From 4e5070c1dd01a252d3ff3b0cc2830c8962cd5bbf Mon Sep 17 00:00:00 2001 From: vyzo Date: Mon, 19 Feb 2024 21:54:09 +0200 Subject: [PATCH] Hash Table interfaces (#1123) This brings hash table interfaces to the runtime, with native (specializable) implementations using open addressing and quadratic probing. The impetus for implementing gerbil-native hash tables is SMP read-safety and the ability to internally wrap mutexes/(fail-fast-)read-write-locks if the user so desires. The problem stems from the lazy rehashing in gambit native hash tables, which means a read can actually write, which can lead to disaster at so many fronts as concurrent reads can crash in SMP. Bonus points increased performance, from better locality. Work Items: - [x] raw table implementation with common specializations - [x] use symbolic tables in keyword-dispatch - [x] use symbolic tables in the mop - [x] bring interfaces into the core - [x] HashTable interface and implementation of hash-* primitives with it - [x] fix tests Follow Up: - [ ] implement interface method specializations now that they are in the core --- .gitattributes | 1 + doc/reference/dev/bootstrap.md | 14 +- src/bootstrap/gerbil/builtin.ssxi.ss | 296 +- src/bootstrap/gerbil/compiler/base__0.scm | 131 +- src/bootstrap/gerbil/compiler/base__1.scm | 651 +- src/bootstrap/gerbil/compiler/compile.ssi | 14 +- src/bootstrap/gerbil/compiler/compile__0.scm | 20146 ++++++++-------- src/bootstrap/gerbil/compiler/compile__1.scm | 2971 ++- src/bootstrap/gerbil/compiler/driver.ssxi.ss | 6 +- src/bootstrap/gerbil/compiler/driver__0.scm | 3668 ++- src/bootstrap/gerbil/compiler/driver__1.scm | 160 +- .../gerbil/compiler/optimize-ann__0.scm | 19866 +++++++-------- .../gerbil/compiler/optimize-base__0.scm | 2507 +- .../gerbil/compiler/optimize-base__1.scm | 3262 +-- .../gerbil/compiler/optimize-call__0.scm | 5821 ++--- .../gerbil/compiler/optimize-spec__0.scm | 12489 +++++----- .../gerbil/compiler/optimize-top__0.scm | 17519 +++++++------- .../gerbil/compiler/optimize-top__1.scm | 396 +- .../gerbil/compiler/optimize-xform__0.scm | 4130 ++-- src/bootstrap/gerbil/compiler/optimize__0.scm | 2288 +- src/bootstrap/gerbil/compiler/ssxi__1.scm | 4686 ++-- .../gerbil/core$_MOP_$_MOP_2___0.scm | 71 +- .../gerbil/core$_macro-object___0.scm | 44 +- src/bootstrap/gerbil/core.ssi | 7 +- src/bootstrap/gerbil/core.ssxi.ss | 5 + src/bootstrap/gerbil/core__10.scm | 4665 ++-- src/bootstrap/gerbil/core__11.scm | 118 +- src/bootstrap/gerbil/core__12.scm | 539 +- src/bootstrap/gerbil/core__13.scm | 250 +- src/bootstrap/gerbil/core__14.scm | 18 +- src/bootstrap/gerbil/core__15.scm | 1196 +- src/bootstrap/gerbil/core__16.scm | 4 +- src/bootstrap/gerbil/core__2.scm | 662 +- src/bootstrap/gerbil/core__3.scm | 1468 +- src/bootstrap/gerbil/core__4.scm | 6320 +++-- src/bootstrap/gerbil/core__5.scm | 444 +- src/bootstrap/gerbil/core__6.scm | 864 +- src/bootstrap/gerbil/core__7.scm | 904 +- src/bootstrap/gerbil/core__8.scm | 2081 +- src/bootstrap/gerbil/core__9.scm | 116 +- src/bootstrap/gerbil/expander/common__0.scm | 16 +- src/bootstrap/gerbil/expander/common__1.scm | 1659 +- src/bootstrap/gerbil/expander/compile__0.scm | 1253 +- src/bootstrap/gerbil/expander/core__0.scm | 3500 ++- src/bootstrap/gerbil/expander/core__1.scm | 7160 +++--- src/bootstrap/gerbil/expander/module.ssxi.ss | 12 +- src/bootstrap/gerbil/expander/module__0.scm | 5094 ++-- src/bootstrap/gerbil/expander/module__1.scm | 1628 +- src/bootstrap/gerbil/expander/root__0.scm | 796 +- src/bootstrap/gerbil/expander/stx__0.scm | 1576 +- src/bootstrap/gerbil/expander/stx__1.scm | 690 +- src/bootstrap/gerbil/expander/stxcase__0.scm | 3429 ++- src/bootstrap/gerbil/expander/stxcase__1.scm | 214 +- src/bootstrap/gerbil/expander/top__0.scm | 4956 ++-- src/bootstrap/gerbil/runtime.ssi | 15 +- src/bootstrap/gerbil/runtime/c3.ssxi.ss | 6 +- src/bootstrap/gerbil/runtime/c3__0.scm | 632 +- src/bootstrap/gerbil/runtime/control.ssi | 5 +- src/bootstrap/gerbil/runtime/control__0.scm | 400 +- src/bootstrap/gerbil/runtime/control__rt.scm | 3 +- src/bootstrap/gerbil/runtime/error__0.scm | 5306 ++-- src/bootstrap/gerbil/runtime/error__1.scm | 1608 +- src/bootstrap/gerbil/runtime/eval.ssi | 176 +- src/bootstrap/gerbil/runtime/eval.ssxi.ss | 208 +- src/bootstrap/gerbil/runtime/eval__0.scm | 4790 ++-- src/bootstrap/gerbil/runtime/eval__1.scm | 3621 +-- src/bootstrap/gerbil/runtime/eval__rt.scm | 1 + src/bootstrap/gerbil/runtime/gambit.ssi | 23 +- src/bootstrap/gerbil/runtime/gambit__0.scm | 2 +- src/bootstrap/gerbil/runtime/hash.ssi | 387 + src/bootstrap/gerbil/runtime/hash.ssxi.ss | 454 + src/bootstrap/gerbil/runtime/hash__0.scm | 3523 +++ src/bootstrap/gerbil/runtime/hash__1.scm | 2111 ++ src/bootstrap/gerbil/runtime/hash__rt.scm | 10 + src/bootstrap/gerbil/runtime/init.ssi | 2 + src/bootstrap/gerbil/runtime/init__0.scm | 565 +- src/bootstrap/gerbil/runtime/init__rt.scm | 2 + src/bootstrap/gerbil/runtime/interface.ssi | 118 + .../gerbil/runtime/interface.ssxi.ss | 133 + src/bootstrap/gerbil/runtime/interface__0.scm | 1213 + src/bootstrap/gerbil/runtime/interface__1.scm | 2212 ++ .../gerbil/runtime/interface__rt.scm | 9 + src/bootstrap/gerbil/runtime/loader.ssi | 5 +- src/bootstrap/gerbil/runtime/loader.ssxi.ss | 4 +- src/bootstrap/gerbil/runtime/loader__0.scm | 158 +- src/bootstrap/gerbil/runtime/loader__rt.scm | 3 +- src/bootstrap/gerbil/runtime/mop.ssi | 1 + src/bootstrap/gerbil/runtime/mop.ssxi.ss | 10 +- src/bootstrap/gerbil/runtime/mop__0.scm | 3071 +-- src/bootstrap/gerbil/runtime/mop__1.scm | 1474 +- src/bootstrap/gerbil/runtime/mop__rt.scm | 1 + src/bootstrap/gerbil/runtime/repl__0.scm | 28 +- src/bootstrap/gerbil/runtime/syntax.ssi | 1 - src/bootstrap/gerbil/runtime/syntax__0.scm | 532 +- src/bootstrap/gerbil/runtime/syntax__1.scm | 2008 +- src/bootstrap/gerbil/runtime/system.ssi | 4 - src/bootstrap/gerbil/runtime/system__0.scm | 174 +- src/bootstrap/gerbil/runtime/system__1.scm | 94 - src/bootstrap/gerbil/runtime/table.ssi | 110 + src/bootstrap/gerbil/runtime/table.ssxi.ss | 97 + src/bootstrap/gerbil/runtime/table__0.scm | 1569 ++ src/bootstrap/gerbil/runtime/table__1.scm | 4641 ++++ src/bootstrap/gerbil/runtime/table__rt.scm | 4 + src/bootstrap/gerbil/runtime/thread.ssi | 3 +- src/bootstrap/gerbil/runtime/thread.ssxi.ss | 8 +- src/bootstrap/gerbil/runtime/thread__0.scm | 406 +- src/bootstrap/gerbil/runtime/thread__rt.scm | 3 +- src/bootstrap/gerbil/runtime/util.ssi | 41 - src/bootstrap/gerbil/runtime/util.ssxi.ss | 99 +- src/bootstrap/gerbil/runtime/util__0.scm | 3153 ++- src/bootstrap/gerbil/runtime/util__1.scm | 2990 +-- src/bootstrap/gerbil/runtime__0.scm | 2 +- src/bootstrap/gerbil/runtime__rt.scm | 7 +- src/build/build-bach.ss | 7 +- src/build/build-libgerbil.ss | 7 +- src/build/build1.ss | 7 +- src/gerbil/boot/gerbil-boot.scm | 7 +- src/gerbil/compiler/compile.ss | 2 +- src/gerbil/compiler/driver.ss | 7 +- src/gerbil/compiler/optimize-call.ss | 8 +- src/gerbil/compiler/optimize.ss | 29 +- src/gerbil/main.ss | 7 +- src/gerbil/prelude/builtin.ssxi.ss | 296 +- src/gerbil/prelude/core.ss | 13 +- src/gerbil/runtime.ss | 15 +- src/gerbil/runtime/control.ss | 18 +- src/gerbil/runtime/eval.ss | 63 +- src/gerbil/runtime/gambit.ss | 24 +- src/gerbil/runtime/hash.ss | 594 + src/gerbil/runtime/init.ss | 12 +- src/gerbil/runtime/interface.ss | 166 + src/gerbil/runtime/loader.ss | 2 +- src/gerbil/runtime/mop.ss | 82 +- src/gerbil/runtime/syntax.ss | 5 +- src/gerbil/runtime/system.ss | 4 - src/gerbil/runtime/table.ss | 387 + src/gerbil/runtime/thread.ss | 2 +- src/gerbil/runtime/util.ss | 104 +- src/gerbil/test/table-bench.ss | 147 + src/gerbil/test/table-test.ss | 39 + src/std/actor-v18/io-test.ss | 3 +- src/std/build-spec.ss | 1 - src/std/build.ss | 5 +- src/std/contract.ss | 2 +- src/std/error.ss | 12 +- src/std/gambit-sharp.ss | 10 - src/std/interface.ss | 218 +- src/std/misc/hash-test.ss | 31 +- src/std/misc/hash.ss | 36 +- src/std/misc/repr-test.ss | 4 +- src/std/misc/repr.ss | 3 +- src/std/misc/string-test.ss | 2 +- src/std/protobuf/protobuf-test.ss | 18 +- src/std/text/json/json-test.ss | 18 +- src/std/text/json/util.ss | 4 +- 155 files changed, 108279 insertions(+), 95159 deletions(-) create mode 100644 .gitattributes create mode 100644 src/bootstrap/gerbil/runtime/hash.ssi create mode 100644 src/bootstrap/gerbil/runtime/hash.ssxi.ss create mode 100644 src/bootstrap/gerbil/runtime/hash__0.scm create mode 100644 src/bootstrap/gerbil/runtime/hash__1.scm create mode 100644 src/bootstrap/gerbil/runtime/hash__rt.scm create mode 100644 src/bootstrap/gerbil/runtime/interface.ssi create mode 100644 src/bootstrap/gerbil/runtime/interface.ssxi.ss create mode 100644 src/bootstrap/gerbil/runtime/interface__0.scm create mode 100644 src/bootstrap/gerbil/runtime/interface__1.scm create mode 100644 src/bootstrap/gerbil/runtime/interface__rt.scm delete mode 100644 src/bootstrap/gerbil/runtime/system__1.scm create mode 100644 src/bootstrap/gerbil/runtime/table.ssi create mode 100644 src/bootstrap/gerbil/runtime/table.ssxi.ss create mode 100644 src/bootstrap/gerbil/runtime/table__0.scm create mode 100644 src/bootstrap/gerbil/runtime/table__1.scm create mode 100644 src/bootstrap/gerbil/runtime/table__rt.scm create mode 100644 src/gerbil/runtime/hash.ss create mode 100644 src/gerbil/runtime/interface.ss create mode 100644 src/gerbil/runtime/table.ss create mode 100644 src/gerbil/test/table-bench.ss create mode 100644 src/gerbil/test/table-test.ss delete mode 100644 src/std/gambit-sharp.ss diff --git a/.gitattributes b/.gitattributes new file mode 100644 index 000000000..b9af99b4f --- /dev/null +++ b/.gitattributes @@ -0,0 +1 @@ +src/bootstrap/** linguist-generated diff --git a/doc/reference/dev/bootstrap.md b/doc/reference/dev/bootstrap.md index 08785e0ce..28cfb4e20 100644 --- a/doc/reference/dev/bootstrap.md +++ b/doc/reference/dev/bootstrap.md @@ -179,7 +179,7 @@ $ mkdir bootstrap/gerbil $ cp gerbil/prelude/builtin.ssxi.ss bootstrap/gerbil # compile the bootstrap with the current compiler -$ gxc -O -d bootstrap -s -S gerbil/prelude/core.ss gerbil/runtime/{gambit,util,system,loader,control,c3,mop,error,thread,syntax,eval,repl,init}.ss gerbil/runtime.ss gerbil/expander/{common,stx,core,top,module,compile,root,stxcase}.ss gerbil/expander.ss gerbil/compiler/{base,compile,optimize-base,optimize-xform,optimize-top,optimize-spec,optimize-ann,optimize-call,optimize,driver,ssxi}.ss gerbil/compiler.ss gerbil/prelude/gambit.ss +$ gxc -O -d bootstrap -s -S gerbil/prelude/core.ss gerbil/runtime/{gambit,util,table,control,system,c3,mop,error,interface,hash,thread,syntax,eval,repl,loader,init}.ss gerbil/runtime.ss gerbil/expander/{common,stx,core,top,module,compile,root,stxcase}.ss gerbil/expander.ss gerbil/compiler/{base,compile,optimize-base,optimize-xform,optimize-top,optimize-spec,optimize-ann,optimize-call,optimize,driver,ssxi}.ss gerbil/compiler.ss gerbil/prelude/gambit.ss ``` ### Recursively Recompiling the bootstrap @@ -193,15 +193,15 @@ bootstrap recompilation. ``` $ cd src $ rm -rf bootstrap/* -$ gxc -no-ssxi -O -d bootstrap -s -S gerbil/prelude/core.ss gerbil/runtime/{gambit,util,system,loader,control,c3,mop,error,thread,syntax,eval,repl,init}.ss gerbil/runtime.ss gerbil/expander/{common,stx,core,top,module,compile,root,stxcase}.ss gerbil/expander.ss gerbil/compiler/{base,compile,optimize-base,optimize-xform,optimize-top,optimize-spec,optimize-ann,optimize-call,optimize,driver,ssxi}.ss gerbil/compiler.ss gerbil/prelude/gambit.ss +$ gxc -no-ssxi -O -d bootstrap -s -S gerbil/prelude/core.ss gerbil/runtime/{gambit,util,table,control,system,c3,mop,error,interface,hash,thread,syntax,eval,repl,loader,init}.ss gerbil/runtime.ss gerbil/expander/{common,stx,core,top,module,compile,root,stxcase}.ss gerbil/expander.ss gerbil/compiler/{base,compile,optimize-base,optimize-xform,optimize-top,optimize-spec,optimize-ann,optimize-call,optimize,driver,ssxi}.ss gerbil/compiler.ss gerbil/prelude/gambit.ss ``` If you have made changes in the compiler optimizer meta and the extant -compiler does not accept your code, you may want to try without -optimizations: +compiler does not accept your code (or generates broken code), you may +want to try without optimizations: ``` -$ gxc -d bootstrap -s -S gerbil/prelude/core.ss gerbil/runtime/{gambit,util,system,loader,control,c3,mop,error,thread,syntax,eval,repl,init}.ss gerbil/runtime.ss gerbil/expander/{common,stx,core,top,module,compile,root,stxcase}.ss gerbil/expander.ss gerbil/compiler/{base,compile,optimize-base,optimize-xform,optimize-top,optimize-spec,optimize-ann,optimize-call,optimize,driver,ssxi}.ss gerbil/compiler.ss gerbil/prelude/gambit.ss +$ gxc -d bootstrap -s -S gerbil/prelude/core.ss gerbil/runtime/{gambit,util,table,control,system,c3,mop,error,interface,hash,thread,syntax,eval,repl,loader,init}.ss gerbil/runtime.ss gerbil/expander/{common,stx,core,top,module,compile,root,stxcase}.ss gerbil/expander.ss gerbil/compiler/{base,compile,optimize-base,optimize-xform,optimize-top,optimize-spec,optimize-ann,optimize-call,optimize,driver,ssxi}.ss gerbil/compiler.ss gerbil/prelude/gambit.ss ``` Otherwise, you are likely violating some of the bootstrap strictures; see below. @@ -217,7 +217,7 @@ $ ../build.sh stage1 If you compiled the base bootstrap without optimization, you will also have to set `GERBIL_BUILD_NOOPT` during the stage1 build: ``` -GERBIL_BUILD_NOOPT=t ../build.sh stage1 +$ GERBIL_BUILD_NOOPT=t ../build.sh stage1 ``` After you have built stage1, you can use it to build the recursive @@ -229,7 +229,7 @@ $ cd src $ rm -rf bootstrap/* $ mkdir -p bootstrap/gerbil $ cp gerbil/prelude/builtin.ssxi.ss bootstrap/gerbil -$ ../build.sh env gxc -O -d bootstrap -s -S gerbil/prelude/core.ss gerbil/runtime/{gambit,util,system,loader,control,c3,mop,error,thread,syntax,eval,repl,init}.ss gerbil/runtime.ss gerbil/expander/{common,stx,core,top,module,compile,root,stxcase}.ss gerbil/expander.ss gerbil/compiler/{base,compile,optimize-base,optimize-xform,optimize-top,optimize-spec,optimize-ann,optimize-call,optimize,driver,ssxi}.ss gerbil/compiler.ss gerbil/prelude/gambit.ss +$ ../build.sh env gxc -O -d bootstrap -s -S gerbil/prelude/core.ss gerbil/runtime/{gambit,util,table,control,system,c3,mop,error,interface,hash,thread,syntax,eval,repl,loader,init}.ss gerbil/runtime.ss gerbil/expander/{common,stx,core,top,module,compile,root,stxcase}.ss gerbil/expander.ss gerbil/compiler/{base,compile,optimize-base,optimize-xform,optimize-top,optimize-spec,optimize-ann,optimize-call,optimize,driver,ssxi}.ss gerbil/compiler.ss gerbil/prelude/gambit.ss ``` And you have a brand new recursive bootstrap you can use. From here diff --git a/src/bootstrap/gerbil/builtin.ssxi.ss b/src/bootstrap/gerbil/builtin.ssxi.ss index e488f95b0..980f405ea 100644 --- a/src/bootstrap/gerbil/builtin.ssxi.ss +++ b/src/bootstrap/gerbil/builtin.ssxi.ss @@ -4,15 +4,8 @@ prelude: :gerbil/compiler/ssxi package: gerbil -;; gx-gambc0: struct-instance? and direct-instance? [pattern matcher] +;; runtime direct-instance? (declare-type* - (struct-instance? - (@lambda 2 inline: - (ast-rules (%#call) - ((%#call _ klass obj) - (%#call (%#ref ##structure-instance-of?) - obj - (%#call (%#ref ##type-id) klass)))))) (direct-instance? (@lambda 2 inline: (ast-rules (%#call) @@ -146,39 +139,6 @@ package: gerbil #'(%#let-values ((($values) expr)) (%#call recur (%#ref $values)))))))))) -;; runtime: simple hash-table ops -(declare-type* - (make-hash-table (@lambda (0) make-table)) - (make-hash-table-eq (@lambda (0) inline: - (ast-rules (%#call) - ((%#call _ arg ...) - (%#call (%#ref make-table) (%#quote test:) (%#ref eq?) arg ...))))) - (make-hash-table-eqv (@lambda (0) inline: - (ast-rules (%#call) - ((%#call _ arg ...) - (%#call (%#ref make-table) (%#quote test:) (%#ref eqv?) arg ...))))) - (list->hash-table (@lambda (1) list->table)) - (list->hash-table-eq (@lambda (1) inline: - (ast-rules (%#call) - ((%#call _ lst arg ...) - (%#call (%#ref list->table) lst (%#quote test:) (%#ref eq?) arg ...))))) - (list->hash-table-eqv (@lambda (1) inline: - (ast-rules (%#call) - ((%#call _ lst arg ...) - (%#call (%#ref list->table) lst (%#quote test:) (%#ref eqv?) arg ...))))) - (hash? (@lambda 1 table?)) - (hash-table? (@lambda 1 table?)) - (hash-length (@lambda 1 table-length)) - (hash-ref (@case-lambda (2 table-ref) (3 table-ref))) - (hash-get (@lambda 2 inline: - (ast-rules (%#call) - ((%#call _ ht key) - (%#call (%#ref table-ref) ht key (%#quote #f)))))) - (hash-put! (@lambda 3 table-set!)) - (hash-remove! (@lambda 2 table-set!)) - (hash->list (@lambda 1 table->list)) - (hash-for-each (@lambda 2 table-for-each)) - (hash-find (@lambda 2 table-search))) ;; runtime: simple arithmetic (declare-type* @@ -201,14 +161,6 @@ package: gerbil (fx/ (@lambda 2 fxquotient)) (fxshift (@lambda 2 fxarithmetic-shift))) -;; runtime: foldings -(declare-type* - (foldl (@case-lambda (3 foldl1) (4 foldl2) ((5) foldl*))) - (foldr (@case-lambda (3 foldr1) (4 foldr2) ((5) foldr*))) - (andmap (@case-lambda (2 andmap1) (3 andmap2) ((4) andmap*))) - (ormap (@case-lambda (2 ormap1) (3 ormap2) ((4) ormap*))) - (filter-map (@case-lambda (2 filter-map1) (3 filter-map2) ((4) filter-map*)))) - ;;; runtime procedure signatures (defrules declare-primitive/0 () ((_ prim ...) @@ -360,40 +312,17 @@ package: gerbil (write-char 1 2)) ;; core runtime primitives -- -(declare-primitive/0/unchecked - gerbil-system system-type) - (declare-primitive/1/unchecked immediate? fixnum? nonnegative-fixnum? fxzero? flonum? box? box - last last-pair dssl-object? dssl-key-object? dssl-rest-object? dssl-optional-object? - plist->hash-table-eq plist->hash-table-eqv - hash-keys - hash-values eq?-hash eqv?-hash equal?-hash keyword? uninterned-keyword? interned-keyword? string-empty? - class-type? - class-type-id - class-type-precedence-list - class-type-slot-vector - class-type-slot-table - class-type-properties - class-type-constructor - class-type-methods - class-type-fields - class-type-struct? - class-type-final? - class-type-sealed? - make-class-predicate - - object? object-type - struct->list class->list exception? error-object? error? error-message error-irritants error-trace read-syntax-from-file @@ -401,7 +330,6 @@ package: gerbil promise?) (declare-primitive/1 - fixnum? nonnegative-fixnum? fxpositive? fxnegative? fxodd? fxeven? fixnum->flonum flzero? flpositive? flnegative? @@ -427,32 +355,6 @@ package: gerbil get-output-u8vector make-promise) -(declare-primitive/2/unchecked - memf find - remove1 remq remv remf - hash-key? - hash-map - string-split string-join - string-prefix? - make-struct-field-accessor - make-struct-field-mutator - make-struct-field-unchecked-accessor - make-struct-field-unchecked-mutator - make-class-slot-accessor - make-class-slot-mutator - make-class-slot-unchecked-accessor - make-class-slot-unchecked-mutator - class-slot-offset - unchecked-field-ref - unchecked-slot-ref - struct-instance? class-instance? - substruct? subclass? - method-ref bound-method-ref - checked-method-ref checked-bound-method-ref - with-unwind-protect - with-catch - file-newer?) - (declare-primitive/2 fxmodulo fxbit-set? @@ -470,25 +372,11 @@ package: gerbil call-with-input-u8vector with-input-from-u8vector call-with-output-u8vector with-output-to-u8vector) -(declare-primitive/3/unchecked - hash-fold - struct-field-ref - class-slot-ref - unchecked-field-set! - unchecked-slot-set! - next-method - find-method - direct-method-ref) - (declare-primitive/3 subvector u8vector-set! subu8vector) -(declare-primitive/4/unchecked - struct-field-set! - class-slot-set!) - (declare-primitive/4 subvector-fill! subu8vector-fill!) @@ -498,42 +386,7 @@ package: gerbil substring-move! subu8vector-move!) -(declare-primitive/6/unchecked - make-class-type) - -(declare-primitive/unchecked* - (iota 1 2 3) - (assgetq 2 3) - (assgetv 2 3) - (assget 2 3) - (pgetq 2 3) - (pgetv 2 3) - (pget 2 3) - (plist->hash-table 1 2) - (hash-update! 3 4) - (hash-copy (1)) - (hash-copy! (1)) - (hash-merge (1)) - (hash-merge! (1)) - (hash-clear! 1 2) - (string->bytes 1 2) - (substring->bytes 3 4) - (bytes->string 1 2) - (string-index 2 3) - (string-rindex 2 3) - (make-instance (1)) - (class-instance-init! (1)) - (slot-ref 2 3) - (slot-set! 3 4) - (bind-method! 3 4) - (call-next-method (3)) - (call-with-parameters (1)) - (read-syntax 0 1) - (load-module 1 2) - (create-directory* 1 2)) - (declare-primitive* - (make-list 1 2) (subvector->list 1 2) (vector->list 1 2 3) (vector->string 1 2 3) @@ -557,7 +410,7 @@ package: gerbil (substring-fill! 4) (substring-move! 5) (current-error-port 0 1) - (make-parameter 1 2) + (make-parameter 1 2 3) (current-exception-handler 0 1) (exit 0 1) (getenv 1 2) @@ -908,7 +761,6 @@ package: gerbil replace-bit-field copy-bit-field) (declare-primitive* - (error (1)) (continuation-graft (2)) (continuation-return (1)) (display-exception 1 2) @@ -980,134 +832,6 @@ package: gerbil (thread-init! 2 3 4) (tty-mode-set! 5 6)) -;; exceptions -(declare-primitive/1 - fixnum-overflow-exception? - fixnum-overflow-exception-procedure - fixnum-overflow-exception-arguments - - initialized-thread-exception? - initialized-thread-exception-procedure - initialized-thread-exception-arguments - uninitialized-thread-exception? - uninitialized-thread-exception-procedure - uninitialized-thread-exception-arguments - inactive-thread-exception? - inactive-thread-exception-procedure - inactive-thread-exception-arguments - - unterminated-process-exception? - unterminated-process-exception-procedure - unterminated-process-exception-arguments - - nonempty-input-port-character-buffer-exception? - nonempty-input-port-character-buffer-exception-arguments - nonempty-input-port-character-buffer-exception-procedure - - unbound-serial-number-exception? - unbound-serial-number-exception-procedure - unbound-serial-number-exception-arguments - unbound-table-key-exception? - unbound-table-key-exception-procedure - unbound-table-key-exception-arguments - - mailbox-receive-timeout-exception? - mailbox-receive-timeout-exception-procedure - mailbox-receive-timeout-exception-arguments - heap-overflow-exception? - stack-overflow-exception? - os-exception? - os-exception-procedure - os-exception-arguments - os-exception-code - os-exception-message - no-such-file-or-directory-exception? - no-such-file-or-directory-exception-procedure - no-such-file-or-directory-exception-arguments - unbound-os-environment-variable-exception? - unbound-os-environment-variable-exception-procedure - unbound-os-environment-variable-exception-arguments - scheduler-exception? - scheduler-exception-reason - deadlock-exception? - abandoned-mutex-exception? - join-timeout-exception? - join-timeout-exception-procedure - join-timeout-exception-arguments - started-thread-exception? - started-thread-exception-procedure - started-thread-exception-arguments - terminated-thread-exception? - terminated-thread-exception-procedure - terminated-thread-exception-arguments - uncaught-exception? - uncaught-exception-procedure - uncaught-exception-arguments - uncaught-exception-reason - cfun-conversion-exception? - cfun-conversion-exception-procedure - cfun-conversion-exception-arguments - cfun-conversion-exception-code - cfun-conversion-exception-message - sfun-conversion-exception? - sfun-conversion-exception-procedure - sfun-conversion-exception-arguments - sfun-conversion-exception-code - sfun-conversion-exception-message - multiple-c-return-exception? - datum-parsing-exception? - datum-parsing-exception-kind - datum-parsing-exception-parameters - datum-parsing-exception-readenv - expression-parsing-exception? - expression-parsing-exception-kind - expression-parsing-exception-parameters - expression-parsing-exception-source - unbound-global-exception? - unbound-global-exception-variable - unbound-global-exception-code - unbound-global-exception-rte - type-exception? - type-exception-procedure - type-exception-arguments - type-exception-arg-num - type-exception-type-id - range-exception? - range-exception-procedure - range-exception-arguments - range-exception-arg-num - divide-by-zero-exception? - divide-by-zero-exception-procedure - divide-by-zero-exception-arguments - improper-length-list-exception? - improper-length-list-exception-procedure - improper-length-list-exception-arguments - improper-length-list-exception-arg-num - wrong-number-of-arguments-exception? - wrong-number-of-arguments-exception-procedure - wrong-number-of-arguments-exception-arguments - number-of-arguments-limit-exception? - number-of-arguments-limit-exception-procedure - number-of-arguments-limit-exception-arguments - nonprocedure-operator-exception? - nonprocedure-operator-exception-operator - nonprocedure-operator-exception-arguments - nonprocedure-operator-exception-code - nonprocedure-operator-exception-rte - unknown-keyword-argument-exception? - unknown-keyword-argument-exception-procedure - unknown-keyword-argument-exception-arguments - keyword-expected-exception? - keyword-expected-exception-procedure - keyword-expected-exception-arguments - error-exception? - error-exception-message - error-exception-parameters - - invalid-hash-number-exception? - invalid-hash-number-exception-procedure - invalid-hash-number-exception-arguments) - ;; hvectors (declare-primitive* (s8vector? 1) @@ -1253,19 +977,3 @@ package: gerbil (f64vector-copy! 3 4 5) (subf64vector-move! 5) (f64vector-shrink! 2)) - -(declare-primitive/unchecked* - (spawn (1)) - (spawn/name (2)) - (spawn/group (2)) - (spawn-actor 4) - (spawn-thread 1 2 3) - (thread-local-ref 1 2) - (thread-local-set! 2) - (thread-local-clear! 1) - (current-thread-group 0) - (actor-thread? 1) - (read-string 2) - (write-string 2) - (read-u8vector 2) - (write-u8vector 2)) diff --git a/src/bootstrap/gerbil/compiler/base__0.scm b/src/bootstrap/gerbil/compiler/base__0.scm index aabad1e39..3f080cb05 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 1708102804) + (define gerbil/compiler/base::timestamp 1708370114) (begin (define gxc#current-compile-symbol-table (make-parameter '#f)) (define gxc#current-compile-runtime-sections (make-parameter '#f)) @@ -18,25 +18,25 @@ (define gxc#current-compile-decls (make-parameter '#f)) (define gxc#current-compile-context (make-parameter '#f)) (define gxc#symbol-table::t - (let ((__tmp196229 (list)) - (__tmp196227 - (let ((__tmp196228 + (let ((__tmp97168 (list)) + (__tmp97166 + (let ((__tmp97167 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp196228 '())))) + (cons __tmp97167 '())))) (declare (not safe)) (make-class-type 'gxc#symbol-table::t 'symbol-table - __tmp196229 + __tmp97168 '(gensyms bindings) - __tmp196227 + __tmp97166 ':init!))) (define gxc#symbol-table? (let () (declare (not safe)) (make-class-predicate gxc#symbol-table::t))) (define gxc#make-symbol-table - (lambda _$args191612_ - (apply make-instance gxc#symbol-table::t _$args191612_))) + (lambda _$args97119_ + (apply make-instance gxc#symbol-table::t _$args97119_))) (define gxc#symbol-table-gensyms (let () (declare (not safe)) @@ -70,90 +70,97 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#symbol-table::t 'bindings))) (define gxc#symbol-table:::init! - (lambda (_self191610_) - (if (let ((__tmp196234 + (lambda (_self97117_) + (if (let ((__tmp97174 (let () (declare (not safe)) - (##structure-length _self191610_)))) + (##structure-length _self97117_)))) (declare (not safe)) - (##fx< '2 __tmp196234)) + (##fx< '2 __tmp97174)) (begin - (let ((__tmp196231 - (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp196230 + (let ((__tmp97171 + (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp97170 (let () (declare (not safe)) - (##structure-type _self191610_)))) + (##structure-type _self97117_)))) (declare (not safe)) (##unchecked-structure-set! - _self191610_ - __tmp196231 + _self97117_ + __tmp97171 '1 - __tmp196230 + __tmp97170 '#f)) - (let ((__tmp196233 - (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp196232 + (let ((__tmp97173 + (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp97172 (let () (declare (not safe)) - (##structure-type _self191610_)))) + (##structure-type _self97117_)))) (declare (not safe)) (##unchecked-structure-set! - _self191610_ - __tmp196233 + _self97117_ + __tmp97173 '2 - __tmp196232 + __tmp97172 '#f))) - (error '"struct-instance-init!: too many arguments for struct" - _self191610_ - '2 + (let ((__tmp97169 (let () (declare (not safe)) - (##vector-length _self191610_)))))) + (##vector-length _self97117_)))) + (declare (not safe)) + (error '"struct-instance-init!: too many arguments for struct" + _self97117_ + '2 + __tmp97169))))) (let () (declare (not safe)) - (bind-method! gxc#symbol-table::t ':init! gxc#symbol-table:::init! '#f)) + (bind-method!__% + gxc#symbol-table::t + ':init! + gxc#symbol-table:::init! + '#f)) (define gxc#raise-compile-error - (lambda (_message191479_ _stx191480_ . _details191481_) - (let ((_ctx191486_ - (let ((_$e191483_ (gxc#current-compile-context))) - (if _$e191483_ _$e191483_ 'compile)))) + (lambda (_message96986_ _stx96987_ . _details96988_) + (let ((_ctx96993_ + (let ((_$e96990_ (gxc#current-compile-context))) + (if _$e96990_ _$e96990_ 'compile)))) (apply gx#raise-syntax-error - _ctx191486_ - _message191479_ - _stx191480_ - _details191481_)))) + _ctx96993_ + _message96986_ + _stx96987_ + _details96988_)))) (define gxc#verbose - (lambda _args191476_ + (lambda _args96983_ (if (gxc#current-compile-verbose) - (let ((__tmp196235 (lambda () (apply displayln _args191476_)))) + (let ((__tmp97175 (lambda () (apply displayln _args96983_)))) (declare (not safe)) - (with-lock gxc#+verbose-mutex+ __tmp196235)) + (with-lock gxc#+verbose-mutex+ __tmp97175)) '#!void))) (define gxc#+verbose-mutex+ (make-mutex 'compiler/driver)) (define gxc#module-path-reserved-chars '":#<>&!?*;()[]{}|'`\"\\") (define gxc#module-id->path-string - (lambda (_id191458_) - (let* ((_str191460_ - (if (let () (declare (not safe)) (symbol? _id191458_)) - (symbol->string _id191458_) - _id191458_)) - (_len191462_ (string-length _str191460_)) - (_res191464_ (make-string _len191462_))) - (let _lp191467_ ((_i191469_ '0)) - (if (fx< _i191469_ _len191462_) - (let* ((_char191471_ (string-ref _str191460_ _i191469_)) - (_xchar191473_ + (lambda (_id96965_) + (let* ((_str96967_ + (if (let () (declare (not safe)) (symbol? _id96965_)) + (symbol->string _id96965_) + _id96965_)) + (_len96969_ (string-length _str96967_)) + (_res96971_ (make-string _len96969_))) + (let _lp96974_ ((_i96976_ '0)) + (if (fx< _i96976_ _len96969_) + (let* ((_char96978_ (string-ref _str96967_ _i96976_)) + (_xchar96980_ (if (let () (declare (not safe)) - (string-index + (string-index__0 gxc#module-path-reserved-chars - _char191471_)) + _char96978_)) '#\_ - _char191471_))) - (string-set! _res191464_ _i191469_ _xchar191473_) - (let ((__tmp196236 - (let () (declare (not safe)) (fx+ _i191469_ '1)))) + _char96978_))) + (string-set! _res96971_ _i96976_ _xchar96980_) + (let ((__tmp97176 + (let () (declare (not safe)) (fx+ _i96976_ '1)))) (declare (not safe)) - (_lp191467_ __tmp196236))) - _res191464_))))))) + (_lp96974_ __tmp97176))) + _res96971_))))))) diff --git a/src/bootstrap/gerbil/compiler/base__1.scm b/src/bootstrap/gerbil/compiler/base__1.scm index 86270ebc2..f3f29adca 100644 --- a/src/bootstrap/gerbil/compiler/base__1.scm +++ b/src/bootstrap/gerbil/compiler/base__1.scm @@ -1,76 +1,76 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g196266_| + (define |gxc[1]#_g97206_| (##structure gx#syntax-quote::t 'symbol-table::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g196268_| + (define |gxc[1]#_g97208_| (##structure gx#syntax-quote::t 'make-symbol-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g196270_| + (define |gxc[1]#_g97210_| (##structure gx#syntax-quote::t 'symbol-table? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g196275_| + (define |gxc[1]#_g97215_| (##structure gx#syntax-quote::t 'symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g196278_| + (define |gxc[1]#_g97218_| (##structure gx#syntax-quote::t 'symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g196283_| + (define |gxc[1]#_g97223_| (##structure gx#syntax-quote::t 'symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g196286_| + (define |gxc[1]#_g97226_| (##structure gx#syntax-quote::t 'symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g196291_| + (define |gxc[1]#_g97231_| (##structure gx#syntax-quote::t '&symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g196294_| + (define |gxc[1]#_g97234_| (##structure gx#syntax-quote::t '&symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g196299_| + (define |gxc[1]#_g97239_| (##structure gx#syntax-quote::t '&symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g196302_| + (define |gxc[1]#_g97242_| (##structure gx#syntax-quote::t '&symbol-table-gensyms-set! @@ -79,431 +79,420 @@ '())) (begin (define |gxc[:0:]#ast-case| - (lambda (_stx191056_) + (lambda (_stx96563_) (let () (declare (not safe)) - (gx#macro-expand-syntax-case__% - _stx191056_ - 'stx-eq? - 'stx-e - 'quote)))) + (gx#macro-expand-syntax-case__% _stx96563_ 'stx-eq? 'stx-e 'quote)))) (define |gxc[:0:]#ast-rules| - (lambda (_stx191059_) - (let* ((_g191062191086_ - (lambda (_g191063191082_) + (lambda (_stx96566_) + (let* ((_g9656996593_ + (lambda (_g9657096589_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g191063191082_)))) - (_g191061191389_ - (lambda (_g191063191090_) + _g9657096589_)))) + (_g9656896896_ + (lambda (_g9657096597_) (if (let () (declare (not safe)) - (gx#stx-pair? _g191063191090_)) - (let ((_e191068191093_ + (gx#stx-pair? _g9657096597_)) + (let ((_e9657596600_ (let () (declare (not safe)) - (gx#syntax-e _g191063191090_)))) - (let ((_hd191067191097_ + (gx#syntax-e _g9657096597_)))) + (let ((_hd9657496604_ (let () (declare (not safe)) - (##car _e191068191093_))) - (_tl191066191100_ + (##car _e9657596600_))) + (_tl9657396607_ (let () (declare (not safe)) - (##cdr _e191068191093_)))) + (##cdr _e9657596600_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl191066191100_)) - (let ((_e191071191103_ + (gx#stx-pair? _tl9657396607_)) + (let ((_e9657896610_ (let () (declare (not safe)) - (gx#syntax-e _tl191066191100_)))) - (let ((_hd191070191107_ + (gx#syntax-e _tl9657396607_)))) + (let ((_hd9657796614_ (let () (declare (not safe)) - (##car _e191071191103_))) - (_tl191069191110_ + (##car _e9657896610_))) + (_tl9657696617_ (let () (declare (not safe)) - (##cdr _e191071191103_)))) + (##cdr _e9657896610_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl191069191110_)) - (let ((_g196237_ + (gx#stx-pair/null? _tl9657696617_)) + (let ((_g97177_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl191069191110_ + _tl9657696617_ '0)))) (begin - (let ((_g196238_ + (let ((_g97178_ (let () (declare (not safe)) - (if (##values? _g196237_) + (if (##values? _g97177_) (##vector-length - _g196237_) + _g97177_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g196238_ 2))) + (##fx= _g97178_ 2))) (error "Context expects 2 values" - _g196238_))) - (let ((_target191072191113_ + _g97178_))) + (let ((_target9657996620_ (let () (declare (not safe)) - (##vector-ref _g196237_ 0))) - (_tl191074191116_ + (##vector-ref _g97177_ 0))) + (_tl9658196623_ (let () (declare (not safe)) - (##vector-ref - _g196237_ - 1)))) + (##vector-ref _g97177_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl191074191116_)) - (letrec ((_loop191075191119_ - (lambda (_hd191073191123_ + _tl9658196623_)) + (letrec ((_loop9658296626_ + (lambda (_hd9658096630_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause191079191126_) + _clause9658696633_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd191073191123_)) - (let ((_e191076191129_ + (gx#stx-pair? _hd9658096630_)) + (let ((_e9658396636_ (let () (declare (not safe)) - (gx#syntax-e _hd191073191123_)))) - (let ((_lp-hd191077191133_ + (gx#syntax-e _hd9658096630_)))) + (let ((_lp-hd9658496640_ (let () (declare (not safe)) - (##car _e191076191129_))) - (_lp-tl191078191136_ + (##car _e9658396636_))) + (_lp-tl9658596643_ (let () (declare (not safe)) - (##cdr _e191076191129_)))) - (_loop191075191119_ - _lp-tl191078191136_ + (##cdr _e9658396636_)))) + (_loop9658296626_ + _lp-tl9658596643_ (let () (declare (not safe)) - (cons _lp-hd191077191133_ - _clause191079191126_))))) - (let ((_clause191080191139_ - (reverse _clause191079191126_))) - ((lambda (_L191143_ _L191145_) + (cons _lp-hd9658496640_ _clause9658696633_))))) + (let ((_clause9658796646_ + (reverse _clause9658696633_))) + ((lambda (_L96650_ _L96652_) (if (let () (declare (not safe)) - (gx#identifier-list? _L191145_)) - (let* ((_g191164191181_ - (lambda (_g191165191177_) + (gx#identifier-list? _L96652_)) + (let* ((_g9667196688_ + (lambda (_g9667296684_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g191165191177_)))) - (_g191163191242_ - (lambda (_g191165191185_) + _g9667296684_)))) + (_g9667096749_ + (lambda (_g9667296692_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _g191165191185_)) - (let ((_g196239_ + _g9667296692_)) + (let ((_g97179_ (let () (declare (not safe)) (gx#syntax-split-splice - _g191165191185_ + _g9667296692_ '0)))) (begin - (let ((_g196240_ + (let ((_g97180_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g196239_) - (##vector-length _g196239_) + _g97179_) + (##vector-length _g97179_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g196240_ 2))) - (error "Context expects 2 values" _g196240_))) + (##fx= _g97180_ 2))) + (error "Context expects 2 values" _g97180_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target191167191188_ + (let ((_target9667496695_ (let () (declare (not safe)) (##vector-ref - _g196239_ + _g97179_ 0))) - (_tl191169191191_ + (_tl9667696698_ (let () (declare (not safe)) (##vector-ref - _g196239_ + _g97179_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl191169191191_)) - (letrec ((_loop191170191194_ + _tl9667696698_)) + (letrec ((_loop9667796701_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd191168191198_ _clause191174191201_) + (lambda (_hd9667596705_ _clause9668196708_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd191168191198_)) - (let ((_e191171191204_ + (gx#stx-pair? _hd9667596705_)) + (let ((_e9667896711_ (let () (declare (not safe)) - (gx#syntax-e _hd191168191198_)))) - (let ((_lp-hd191172191208_ + (gx#syntax-e _hd9667596705_)))) + (let ((_lp-hd9667996715_ (let () (declare (not safe)) - (##car _e191171191204_))) - (_lp-tl191173191211_ + (##car _e9667896711_))) + (_lp-tl9668096718_ (let () (declare (not safe)) - (##cdr _e191171191204_)))) - (_loop191170191194_ - _lp-tl191173191211_ + (##cdr _e9667896711_)))) + (_loop9667796701_ + _lp-tl9668096718_ (let () (declare (not safe)) - (cons _lp-hd191172191208_ - _clause191174191201_))))) - (let ((_clause191175191214_ - (reverse _clause191174191201_))) - ((lambda (_L191218_) + (cons _lp-hd9667996715_ + _clause9668196708_))))) + (let ((_clause9668296721_ + (reverse _clause9668196708_))) + ((lambda (_L96725_) (let () - (let ((__tmp196252 + (let ((__tmp97192 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp196241 - (let ((__tmp196250 - (let ((__tmp196251 + (__tmp97181 + (let ((__tmp97190 + (let ((__tmp97191 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '$stx)))) (declare (not safe)) - (cons __tmp196251 '()))) + (cons __tmp97191 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp196242 - (let ((__tmp196243 - (let ((__tmp196249 + (__tmp97182 + (let ((__tmp97183 + (let ((__tmp97189 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'ast-case))) - (__tmp196244 - (let ((__tmp196248 + (__tmp97184 + (let ((__tmp97188 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '$stx))) - (__tmp196245 - (let ((__tmp196246 - (let ((__tmp196247 - (lambda (_g191233191236_ - _g191234191239_) + (__tmp97185 + (let ((__tmp97186 + (let ((__tmp97187 + (lambda (_g9674096743_ + _g9674196746_) (let () (declare (not safe)) - (cons _g191233191236_ - _g191234191239_))))) + (cons _g9674096743_ + _g9674196746_))))) (declare (not safe)) - (foldr1 __tmp196247 - '() - _L191218_)))) + (foldr1 __tmp97187 '() _L96725_)))) (declare (not safe)) - (cons _L191145_ __tmp196246)))) + (cons _L96652_ __tmp97186)))) (declare (not safe)) - (cons __tmp196248 __tmp196245)))) + (cons __tmp97188 __tmp97185)))) (declare (not safe)) - (cons __tmp196249 __tmp196244)))) + (cons __tmp97189 __tmp97184)))) (declare (not safe)) - (cons __tmp196243 '())))) + (cons __tmp97183 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp196250 - __tmp196242)))) + (cons __tmp97190 + __tmp97182)))) (declare (not safe)) - (cons __tmp196252 __tmp196241)))) - _clause191175191214_)))))) - (_loop191170191194_ _target191167191188_ '())) - (_g191164191181_ _g191165191185_))))) + (cons __tmp97192 __tmp97181)))) + _clause9668296721_)))))) + (_loop9667796701_ _target9667496695_ '())) + (_g9667196688_ _g9667296692_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g191164191181_ - _g191165191185_))))) - (_g191163191242_ - (let ((__tmp196255 - (lambda (_clause191246_) - (let* ((___stx196183196184_ - _clause191246_) - (_g191250191277_ + (_g9667196688_ + _g9667296692_))))) + (_g9667096749_ + (let ((__tmp97195 + (lambda (_clause96753_) + (let* ((___stx9712297123_ + _clause96753_) + (_g9675796784_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx196183196184_))))) - (let ((___kont196186196187_ - (lambda (_L191362_ - _L191364_) - (let ((__tmp196256 - (let ((__tmp196257 + ___stx9712297123_))))) + (let ((___kont9712597126_ + (lambda (_L96869_ + _L96871_) + (let ((__tmp97196 + (let ((__tmp97197 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp196259 + (let ((__tmp97199 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp196258 + (__tmp97198 (let () (declare (not safe)) - (cons _L191362_ '())))) + (cons _L96869_ '())))) (declare (not safe)) - (cons __tmp196259 __tmp196258)))) + (cons __tmp97199 __tmp97198)))) (declare (not safe)) - (cons __tmp196257 '())))) + (cons __tmp97197 '())))) (declare (not safe)) - (cons _L191364_ __tmp196256)))) + (cons _L96871_ __tmp97196)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont196188196189_ - (lambda (_L191314_ - _L191316_ - _L191317_) - (let ((__tmp196260 - (let ((__tmp196261 + (___kont9712797128_ + (lambda (_L96821_ + _L96823_ + _L96824_) + (let ((__tmp97200 + (let ((__tmp97201 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp196262 - (let ((__tmp196264 + (let ((__tmp97202 + (let ((__tmp97204 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp196263 + (__tmp97203 (let () (declare (not safe)) - (cons _L191314_ '())))) + (cons _L96821_ '())))) (declare (not safe)) - (cons __tmp196264 __tmp196263)))) + (cons __tmp97204 __tmp97203)))) (declare (not safe)) - (cons __tmp196262 '())))) + (cons __tmp97202 '())))) (declare (not safe)) - (cons _L191316_ __tmp196261)))) + (cons _L96823_ __tmp97201)))) (declare (not safe)) - (cons _L191317_ __tmp196260))))) + (cons _L96824_ __tmp97200))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx196183196184_)) - (let ((_e191256191342_ + ___stx9712297123_)) + (let ((_e9676396849_ (let () (declare (not safe)) (gx#syntax-e - ___stx196183196184_)))) - (let ((_tl191254191349_ + ___stx9712297123_)))) + (let ((_tl9676196856_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e191256191342_))) - (_hd191255191346_ - (let () (declare (not safe)) (##car _e191256191342_)))) + (##cdr _e9676396849_))) + (_hd9676296853_ + (let () (declare (not safe)) (##car _e9676396849_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl191254191349_)) - (let ((_e191259191352_ + (gx#stx-pair? _tl9676196856_)) + (let ((_e9676696859_ (let () (declare (not safe)) - (gx#syntax-e _tl191254191349_)))) - (let ((_tl191257191359_ + (gx#syntax-e _tl9676196856_)))) + (let ((_tl9676496866_ (let () (declare (not safe)) - (##cdr _e191259191352_))) - (_hd191258191356_ + (##cdr _e9676696859_))) + (_hd9676596863_ (let () (declare (not safe)) - (##car _e191259191352_)))) + (##car _e9676696859_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl191257191359_)) - (___kont196186196187_ - _hd191258191356_ - _hd191255191346_) + (gx#stx-null? _tl9676496866_)) + (___kont9712597126_ _hd9676596863_ _hd9676296853_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl191257191359_)) - (let ((_e191271191304_ + (gx#stx-pair? _tl9676496866_)) + (let ((_e9677896811_ (let () (declare (not safe)) - (gx#syntax-e _tl191257191359_)))) - (let ((_tl191269191311_ + (gx#syntax-e _tl9676496866_)))) + (let ((_tl9677696818_ (let () (declare (not safe)) - (##cdr _e191271191304_))) - (_hd191270191308_ + (##cdr _e9677896811_))) + (_hd9677796815_ (let () (declare (not safe)) - (##car _e191271191304_)))) + (##car _e9677896811_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl191269191311_)) - (___kont196188196189_ - _hd191270191308_ - _hd191258191356_ - _hd191255191346_) + (gx#stx-null? _tl9677696818_)) + (___kont9712797128_ + _hd9677796815_ + _hd9676596863_ + _hd9676296853_) (let () (declare (not safe)) - (_g191250191277_))))) + (_g9675796784_))))) (let () (declare (not safe)) - (_g191250191277_)))))) - (let () (declare (not safe)) (_g191250191277_))))) + (_g9675796784_)))))) + (let () (declare (not safe)) (_g9675796784_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g191250191277_))))))) - (__tmp196253 - (let ((__tmp196254 - (lambda (_g191380191383_ - _g191381191386_) + (_g9675796784_))))))) + (__tmp97193 + (let ((__tmp97194 + (lambda (_g9688796890_ + _g9688896893_) (let () (declare (not safe)) - (cons _g191380191383_ - _g191381191386_))))) + (cons _g9688796890_ + _g9688896893_))))) (declare (not safe)) - (foldr1 __tmp196254 + (foldr1 __tmp97194 '() - _L191143_)))) + _L96650_)))) (declare (not safe)) - (gx#stx-map1 __tmp196255 __tmp196253)))) - (_g191062191086_ _g191063191090_))) - _clause191080191139_ - _hd191070191107_)))))) + (gx#stx-map1 __tmp97195 __tmp97193)))) + (_g9656996593_ _g9657096597_))) + _clause9658796646_ + _hd9657796614_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop191075191119_ - _target191072191113_ + (_loop9658296626_ + _target9657996620_ '())) - (_g191062191086_ - _g191063191090_))))) - (_g191062191086_ _g191063191090_)))) - (_g191062191086_ _g191063191090_)))) - (_g191062191086_ _g191063191090_))))) - (_g191061191389_ _stx191059_)))) + (_g9656996593_ + _g9657096597_))))) + (_g9656996593_ _g9657096597_)))) + (_g9656996593_ _g9657096597_)))) + (_g9656996593_ _g9657096597_))))) + (_g9656896896_ _stx96566_)))) (define |gxc[:0:]#symbol-table| - (let ((__obj196226 + (let ((__obj97165 (let () (declare (not safe)) (##structure @@ -526,7 +515,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj196226 + __obj97165 'gxc#symbol-table::t '1 gerbil/core$$#class-type-info::t @@ -534,7 +523,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj196226 + __obj97165 'symbol-table '2 gerbil/core$$#class-type-info::t @@ -542,7 +531,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj196226 + __obj97165 '(gensyms bindings) '4 gerbil/core$$#class-type-info::t @@ -550,7 +539,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj196226 + __obj97165 '() '3 gerbil/core$$#class-type-info::t @@ -558,7 +547,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj196226 + __obj97165 '#t '5 gerbil/core$$#class-type-info::t @@ -566,7 +555,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj196226 + __obj97165 '#f '6 gerbil/core$$#class-type-info::t @@ -574,7 +563,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj196226 + __obj97165 '#f '7 gerbil/core$$#class-type-info::t @@ -582,205 +571,205 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj196226 + __obj97165 ':init! '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp196265 |gxc[1]#_g196266_|)) + (let ((__tmp97205 |gxc[1]#_g97206_|)) (declare (not safe)) (##unchecked-structure-set! - __obj196226 - __tmp196265 + __obj97165 + __tmp97205 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp196267 |gxc[1]#_g196268_|)) + (let ((__tmp97207 |gxc[1]#_g97208_|)) (declare (not safe)) (##unchecked-structure-set! - __obj196226 - __tmp196267 + __obj97165 + __tmp97207 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp196269 |gxc[1]#_g196270_|)) + (let ((__tmp97209 |gxc[1]#_g97210_|)) (declare (not safe)) (##unchecked-structure-set! - __obj196226 - __tmp196269 + __obj97165 + __tmp97209 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp196271 - (let ((__tmp196276 - (let ((__tmp196277 |gxc[1]#_g196278_|)) + (let ((__tmp97211 + (let ((__tmp97216 + (let ((__tmp97217 |gxc[1]#_g97218_|)) (declare (not safe)) - (cons 'gensyms __tmp196277))) - (__tmp196272 - (let ((__tmp196273 - (let ((__tmp196274 |gxc[1]#_g196275_|)) + (cons 'gensyms __tmp97217))) + (__tmp97212 + (let ((__tmp97213 + (let ((__tmp97214 |gxc[1]#_g97215_|)) (declare (not safe)) - (cons 'bindings __tmp196274)))) + (cons 'bindings __tmp97214)))) (declare (not safe)) - (cons __tmp196273 '())))) + (cons __tmp97213 '())))) (declare (not safe)) - (cons __tmp196276 __tmp196272)))) + (cons __tmp97216 __tmp97212)))) (declare (not safe)) (##unchecked-structure-set! - __obj196226 - __tmp196271 + __obj97165 + __tmp97211 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp196279 - (let ((__tmp196284 - (let ((__tmp196285 |gxc[1]#_g196286_|)) + (let ((__tmp97219 + (let ((__tmp97224 + (let ((__tmp97225 |gxc[1]#_g97226_|)) (declare (not safe)) - (cons 'gensyms __tmp196285))) - (__tmp196280 - (let ((__tmp196281 - (let ((__tmp196282 |gxc[1]#_g196283_|)) + (cons 'gensyms __tmp97225))) + (__tmp97220 + (let ((__tmp97221 + (let ((__tmp97222 |gxc[1]#_g97223_|)) (declare (not safe)) - (cons 'bindings __tmp196282)))) + (cons 'bindings __tmp97222)))) (declare (not safe)) - (cons __tmp196281 '())))) + (cons __tmp97221 '())))) (declare (not safe)) - (cons __tmp196284 __tmp196280)))) + (cons __tmp97224 __tmp97220)))) (declare (not safe)) (##unchecked-structure-set! - __obj196226 - __tmp196279 + __obj97165 + __tmp97219 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp196287 - (let ((__tmp196292 - (let ((__tmp196293 |gxc[1]#_g196294_|)) + (let ((__tmp97227 + (let ((__tmp97232 + (let ((__tmp97233 |gxc[1]#_g97234_|)) (declare (not safe)) - (cons 'gensyms __tmp196293))) - (__tmp196288 - (let ((__tmp196289 - (let ((__tmp196290 |gxc[1]#_g196291_|)) + (cons 'gensyms __tmp97233))) + (__tmp97228 + (let ((__tmp97229 + (let ((__tmp97230 |gxc[1]#_g97231_|)) (declare (not safe)) - (cons 'bindings __tmp196290)))) + (cons 'bindings __tmp97230)))) (declare (not safe)) - (cons __tmp196289 '())))) + (cons __tmp97229 '())))) (declare (not safe)) - (cons __tmp196292 __tmp196288)))) + (cons __tmp97232 __tmp97228)))) (declare (not safe)) (##unchecked-structure-set! - __obj196226 - __tmp196287 + __obj97165 + __tmp97227 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp196295 - (let ((__tmp196300 - (let ((__tmp196301 |gxc[1]#_g196302_|)) + (let ((__tmp97235 + (let ((__tmp97240 + (let ((__tmp97241 |gxc[1]#_g97242_|)) (declare (not safe)) - (cons 'gensyms __tmp196301))) - (__tmp196296 - (let ((__tmp196297 - (let ((__tmp196298 |gxc[1]#_g196299_|)) + (cons 'gensyms __tmp97241))) + (__tmp97236 + (let ((__tmp97237 + (let ((__tmp97238 |gxc[1]#_g97239_|)) (declare (not safe)) - (cons 'bindings __tmp196298)))) + (cons 'bindings __tmp97238)))) (declare (not safe)) - (cons __tmp196297 '())))) + (cons __tmp97237 '())))) (declare (not safe)) - (cons __tmp196300 __tmp196296)))) + (cons __tmp97240 __tmp97236)))) (declare (not safe)) (##unchecked-structure-set! - __obj196226 - __tmp196295 + __obj97165 + __tmp97235 '15 gerbil/core$$#class-type-info::t '#f)) - __obj196226)) + __obj97165)) (define |gxc[:0:]#with-verbose-mutex| - (lambda (_$stx191395_) - (let* ((_g191399191413_ - (lambda (_g191400191409_) + (lambda (_$stx96902_) + (let* ((_g9690696920_ + (lambda (_g9690796916_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g191400191409_)))) - (_g191398191454_ - (lambda (_g191400191417_) + _g9690796916_)))) + (_g9690596961_ + (lambda (_g9690796924_) (if (let () (declare (not safe)) - (gx#stx-pair? _g191400191417_)) - (let ((_e191404191420_ + (gx#stx-pair? _g9690796924_)) + (let ((_e9691196927_ (let () (declare (not safe)) - (gx#syntax-e _g191400191417_)))) - (let ((_hd191403191424_ + (gx#syntax-e _g9690796924_)))) + (let ((_hd9691096931_ (let () (declare (not safe)) - (##car _e191404191420_))) - (_tl191402191427_ + (##car _e9691196927_))) + (_tl9690996934_ (let () (declare (not safe)) - (##cdr _e191404191420_)))) + (##cdr _e9691196927_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl191402191427_)) - (let ((_e191407191430_ + (gx#stx-pair? _tl9690996934_)) + (let ((_e9691496937_ (let () (declare (not safe)) - (gx#syntax-e _tl191402191427_)))) - (let ((_hd191406191434_ + (gx#syntax-e _tl9690996934_)))) + (let ((_hd9691396941_ (let () (declare (not safe)) - (##car _e191407191430_))) - (_tl191405191437_ + (##car _e9691496937_))) + (_tl9691296944_ (let () (declare (not safe)) - (##cdr _e191407191430_)))) + (##cdr _e9691496937_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl191405191437_)) - ((lambda (_L191440_) - (let ((__tmp196310 + (gx#stx-null? _tl9691296944_)) + ((lambda (_L96947_) + (let ((__tmp97250 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'with-lock))) - (__tmp196303 - (let ((__tmp196309 + (__tmp97243 + (let ((__tmp97249 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '+verbose-mutex+))) - (__tmp196304 - (let ((__tmp196305 - (let ((__tmp196308 + (__tmp97244 + (let ((__tmp97245 + (let ((__tmp97248 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp196306 - (let ((__tmp196307 + (__tmp97246 + (let ((__tmp97247 (let () (declare (not safe)) - (cons _L191440_ '())))) + (cons _L96947_ '())))) (declare (not safe)) - (cons '() __tmp196307)))) + (cons '() __tmp97247)))) (declare (not safe)) - (cons __tmp196308 __tmp196306)))) + (cons __tmp97248 __tmp97246)))) (declare (not safe)) - (cons __tmp196305 '())))) + (cons __tmp97245 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp196309 - __tmp196304)))) + (cons __tmp97249 + __tmp97244)))) (declare (not safe)) - (cons __tmp196310 __tmp196303))) - _hd191406191434_) - (_g191399191413_ _g191400191417_)))) - (_g191399191413_ _g191400191417_)))) - (_g191399191413_ _g191400191417_))))) - (_g191398191454_ _$stx191395_)))))) + (cons __tmp97250 __tmp97243))) + _hd9691396941_) + (_g9690696920_ _g9690796924_)))) + (_g9690696920_ _g9690796924_)))) + (_g9690696920_ _g9690796924_))))) + (_g9690596961_ _$stx96902_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile.ssi b/src/bootstrap/gerbil/compiler/compile.ssi index b93c8a266..81719afe2 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 u16vector? 0 u16vector?) - (0 s64vector? 0 s64vector?) - (0 s32vector? 0 s32vector?) + (0 f64vector? 0 f64vector?) (0 u8vector? 0 u8vector?) - (0 s8vector? 0 s8vector?) (0 s16vector? 0 s16vector?) - (0 u64vector? 0 u64vector?) - (0 u32vector? 0 u32vector?) + (0 u16vector? 0 u16vector?) + (0 s8vector? 0 s8vector?) (0 f32vector? 0 f32vector?) - (0 f64vector? 0 f64vector?))) + (0 s64vector? 0 s64vector?) + (0 u32vector? 0 u32vector?) + (0 s32vector? 0 s32vector?) + (0 u64vector? 0 u64vector?))) (%#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 f7cf8cde6..4b41391e4 100644 --- a/src/bootstrap/gerbil/compiler/compile__0.scm +++ b/src/bootstrap/gerbil/compiler/compile__0.scm @@ -1,51 +1,51 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/compile::timestamp 1708102804) + (define gerbil/compiler/compile::timestamp 1708370114) (begin - (define gxc#_g213866_ + (define gxc#_g110238_ (gx#core-deserialize-mark - '(0 (hd . _hd207611_) (else . _else207588_)) + '(0 (else . _else108528_) (hd . _hd108551_)) (gx#current-expander-context))) - (define gxc#_g213867_ + (define gxc#_g110239_ (##structure gx#syntax-quote::t - '_hd207611_ + '_hd108551_ #f (gx#current-expander-context) - (list gxc#_g213866_))) - (define gxc#_g213872_ + (list gxc#_g110238_))) + (define gxc#_g110244_ (gx#core-deserialize-mark - '(0 (hd . _hd207672_) (else . _else207649_)) + '(0 (hd . _hd108612_) (else . _else108589_)) (gx#current-expander-context))) - (define gxc#_g213873_ + (define gxc#_g110245_ (##structure gx#syntax-quote::t - '_hd207672_ + '_hd108612_ #f (gx#current-expander-context) - (list gxc#_g213872_))) - (define gxc#_g213878_ + (list gxc#_g110244_))) + (define gxc#_g110250_ (gx#core-deserialize-mark - '(0 (hd . _hd207734_) (else . _else207711_)) + '(0 (hd . _hd108674_) (else . _else108651_)) (gx#current-expander-context))) - (define gxc#_g213879_ + (define gxc#_g110251_ (##structure gx#syntax-quote::t - '_hd207734_ + '_hd108674_ #f (gx#current-expander-context) - (list gxc#_g213878_))) - (define gxc#_g213884_ + (list gxc#_g110250_))) + (define gxc#_g110256_ (gx#core-deserialize-mark - '(0 (hd . _hd207797_) (else . _else207774_)) + '(0 (hd . _hd108737_) (else . _else108714_)) (gx#current-expander-context))) - (define gxc#_g213885_ + (define gxc#_g110257_ (##structure gx#syntax-quote::t - '_hd207797_ + '_hd108737_ #f (gx#current-expander-context) - (list gxc#_g213884_))) + (list gxc#_g110256_))) (begin (define gxc#gambit-annotations '(not gambit-scheme @@ -87,4552 +87,4545 @@ (define gxc#current-compile-boolean-context (make-parameter '#f)) (define gxc#make-bound-identifier-table (lambda () - (letrec ((_hash-e207809_ - (lambda (_id207811_) + (letrec ((_hash-e108749_ + (lambda (_id108751_) (symbol-hash - (let () (declare (not safe)) (gx#stx-e _id207811_)))))) + (let () (declare (not safe)) (gx#stx-e _id108751_)))))) (let () (declare (not safe)) - (make-table + (make-hash-table 'test: gx#bound-identifier=? 'hash: - _hash-e207809_))))) + _hash-e108749_))))) (define gxc#compile-e__0 - (lambda (_stx207562_) - (let* ((___stx212381212382_ _stx207562_) - (_g207565207576_ + (lambda (_stx108502_) + (let* ((___stx108753108754_ _stx108502_) + (_g108505108516_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212381212382_))))) - (let ((___kont212383212384_ - (lambda (_L207603_) - (let ((_$e207613_ - (let ((__tmp213863 (gxc#current-compile-methods)) - (__tmp213862 + ___stx108753108754_))))) + (let ((___kont108755108756_ + (lambda (_L108543_) + (let ((_$e108553_ + (let ((__tmp110235 (gxc#current-compile-methods)) + (__tmp110234 (let () (declare (not safe)) - (gx#stx-e _L207603_)))) + (gx#stx-e _L108543_)))) (declare (not safe)) - (table-ref __tmp213863 __tmp213862 '#f)))) - (if _$e207613_ - ((lambda (_method207616_) + (hash-get __tmp110235 __tmp110234)))) + (if _$e108553_ + ((lambda (_method108556_) (declare (not safe)) - (_method207616_ _stx207562_)) - _$e207613_) + (_method108556_ _stx108502_)) + _$e108553_) '#!void)))) - (___kont212385212386_ - (lambda (_L207581_) - (let ((__tmp213864 - (let ((__tmp213865 gxc#_g213867_)) + (___kont108757108758_ + (lambda (_L108521_) + (let ((__tmp110236 + (let ((__tmp110237 gxc#_g110239_)) (declare (not safe)) - (gx#datum->syntax__% __tmp213865 'hd '#f '#f)))) + (gx#datum->syntax__% __tmp110237 'hd '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx207562_ - __tmp213864))))) + _stx108502_ + __tmp110236))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx212381212382_)) - (let ((_e207570207595_ + (gx#stx-pair? ___stx108753108754_)) + (let ((_e108510108535_ (let () (declare (not safe)) - (gx#stx-e ___stx212381212382_)))) - (let ((_tl207568207600_ + (gx#stx-e ___stx108753108754_)))) + (let ((_tl108508108540_ (let () (declare (not safe)) - (##cdr _e207570207595_))) - (_hd207569207598_ + (##cdr _e108510108535_))) + (_hd108509108538_ (let () (declare (not safe)) - (##car _e207570207595_)))) - (___kont212383212384_ _hd207569207598_))) - (___kont212385212386_ ___stx212381212382_)))))) + (##car _e108510108535_)))) + (___kont108755108756_ _hd108509108538_))) + (___kont108757108758_ ___stx108753108754_)))))) (define gxc#compile-e__1 - (lambda (_stx207622_ _arg207623_) - (let* ((___stx212395212396_ _stx207622_) - (_g207626207637_ + (lambda (_stx108562_ _arg108563_) + (let* ((___stx108767108768_ _stx108562_) + (_g108566108577_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212395212396_))))) - (let ((___kont212397212398_ - (lambda (_L207664_) - (let ((_$e207674_ - (let ((__tmp213869 (gxc#current-compile-methods)) - (__tmp213868 + ___stx108767108768_))))) + (let ((___kont108769108770_ + (lambda (_L108604_) + (let ((_$e108614_ + (let ((__tmp110241 (gxc#current-compile-methods)) + (__tmp110240 (let () (declare (not safe)) - (gx#stx-e _L207664_)))) + (gx#stx-e _L108604_)))) (declare (not safe)) - (table-ref __tmp213869 __tmp213868 '#f)))) - (if _$e207674_ - ((lambda (_method207677_) + (hash-get __tmp110241 __tmp110240)))) + (if _$e108614_ + ((lambda (_method108617_) (declare (not safe)) - (_method207677_ _stx207622_ _arg207623_)) - _$e207674_) + (_method108617_ _stx108562_ _arg108563_)) + _$e108614_) '#!void)))) - (___kont212399212400_ - (lambda (_L207642_) - (let ((__tmp213870 - (let ((__tmp213871 gxc#_g213873_)) + (___kont108771108772_ + (lambda (_L108582_) + (let ((__tmp110242 + (let ((__tmp110243 gxc#_g110245_)) (declare (not safe)) - (gx#datum->syntax__% __tmp213871 'hd '#f '#f)))) + (gx#datum->syntax__% __tmp110243 'hd '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx207622_ - __tmp213870))))) + _stx108562_ + __tmp110242))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx212395212396_)) - (let ((_e207631207656_ + (gx#stx-pair? ___stx108767108768_)) + (let ((_e108571108596_ (let () (declare (not safe)) - (gx#stx-e ___stx212395212396_)))) - (let ((_tl207629207661_ + (gx#stx-e ___stx108767108768_)))) + (let ((_tl108569108601_ (let () (declare (not safe)) - (##cdr _e207631207656_))) - (_hd207630207659_ + (##cdr _e108571108596_))) + (_hd108570108599_ (let () (declare (not safe)) - (##car _e207631207656_)))) - (___kont212397212398_ _hd207630207659_))) - (___kont212399212400_ ___stx212395212396_)))))) + (##car _e108571108596_)))) + (___kont108769108770_ _hd108570108599_))) + (___kont108771108772_ ___stx108767108768_)))))) (define gxc#compile-e__2 - (lambda (_stx207683_ _arg1207684_ _arg2207685_) - (let* ((___stx212409212410_ _stx207683_) - (_g207688207699_ + (lambda (_stx108623_ _arg1108624_ _arg2108625_) + (let* ((___stx108781108782_ _stx108623_) + (_g108628108639_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212409212410_))))) - (let ((___kont212411212412_ - (lambda (_L207726_) - (let ((_$e207736_ - (let ((__tmp213875 (gxc#current-compile-methods)) - (__tmp213874 + ___stx108781108782_))))) + (let ((___kont108783108784_ + (lambda (_L108666_) + (let ((_$e108676_ + (let ((__tmp110247 (gxc#current-compile-methods)) + (__tmp110246 (let () (declare (not safe)) - (gx#stx-e _L207726_)))) + (gx#stx-e _L108666_)))) (declare (not safe)) - (table-ref __tmp213875 __tmp213874 '#f)))) - (if _$e207736_ - ((lambda (_method207739_) + (hash-get __tmp110247 __tmp110246)))) + (if _$e108676_ + ((lambda (_method108679_) (declare (not safe)) - (_method207739_ - _stx207683_ - _arg1207684_ - _arg2207685_)) - _$e207736_) + (_method108679_ + _stx108623_ + _arg1108624_ + _arg2108625_)) + _$e108676_) '#!void)))) - (___kont212413212414_ - (lambda (_L207704_) - (let ((__tmp213876 - (let ((__tmp213877 gxc#_g213879_)) + (___kont108785108786_ + (lambda (_L108644_) + (let ((__tmp110248 + (let ((__tmp110249 gxc#_g110251_)) (declare (not safe)) - (gx#datum->syntax__% __tmp213877 'hd '#f '#f)))) + (gx#datum->syntax__% __tmp110249 'hd '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx207683_ - __tmp213876))))) + _stx108623_ + __tmp110248))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx212409212410_)) - (let ((_e207693207718_ + (gx#stx-pair? ___stx108781108782_)) + (let ((_e108633108658_ (let () (declare (not safe)) - (gx#stx-e ___stx212409212410_)))) - (let ((_tl207691207723_ + (gx#stx-e ___stx108781108782_)))) + (let ((_tl108631108663_ (let () (declare (not safe)) - (##cdr _e207693207718_))) - (_hd207692207721_ + (##cdr _e108633108658_))) + (_hd108632108661_ (let () (declare (not safe)) - (##car _e207693207718_)))) - (___kont212411212412_ _hd207692207721_))) - (___kont212413212414_ ___stx212409212410_)))))) + (##car _e108633108658_)))) + (___kont108783108784_ _hd108632108661_))) + (___kont108785108786_ ___stx108781108782_)))))) (define gxc#compile-e__3 - (lambda (_stx207745_ _arg1207746_ _arg2207747_ . _args207748_) - (let* ((___stx212423212424_ _stx207745_) - (_g207751207762_ + (lambda (_stx108685_ _arg1108686_ _arg2108687_ . _args108688_) + (let* ((___stx108795108796_ _stx108685_) + (_g108691108702_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212423212424_))))) - (let ((___kont212425212426_ - (lambda (_L207789_) - (let ((_$e207799_ - (let ((__tmp213881 (gxc#current-compile-methods)) - (__tmp213880 + ___stx108795108796_))))) + (let ((___kont108797108798_ + (lambda (_L108729_) + (let ((_$e108739_ + (let ((__tmp110253 (gxc#current-compile-methods)) + (__tmp110252 (let () (declare (not safe)) - (gx#stx-e _L207789_)))) + (gx#stx-e _L108729_)))) (declare (not safe)) - (table-ref __tmp213881 __tmp213880 '#f)))) - (if _$e207799_ - ((lambda (_method207802_) + (hash-get __tmp110253 __tmp110252)))) + (if _$e108739_ + ((lambda (_method108742_) (declare (not safe)) - (apply _method207802_ - _stx207745_ - _arg1207746_ - _arg2207747_ - _args207748_)) - _$e207799_) + (apply _method108742_ + _stx108685_ + _arg1108686_ + _arg2108687_ + _args108688_)) + _$e108739_) '#!void)))) - (___kont212427212428_ - (lambda (_L207767_) - (let ((__tmp213882 - (let ((__tmp213883 gxc#_g213885_)) + (___kont108799108800_ + (lambda (_L108707_) + (let ((__tmp110254 + (let ((__tmp110255 gxc#_g110257_)) (declare (not safe)) - (gx#datum->syntax__% __tmp213883 'hd '#f '#f)))) + (gx#datum->syntax__% __tmp110255 'hd '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx207745_ - __tmp213882))))) + _stx108685_ + __tmp110254))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx212423212424_)) - (let ((_e207756207781_ + (gx#stx-pair? ___stx108795108796_)) + (let ((_e108696108721_ (let () (declare (not safe)) - (gx#stx-e ___stx212423212424_)))) - (let ((_tl207754207786_ + (gx#stx-e ___stx108795108796_)))) + (let ((_tl108694108726_ (let () (declare (not safe)) - (##cdr _e207756207781_))) - (_hd207755207784_ + (##cdr _e108696108721_))) + (_hd108695108724_ (let () (declare (not safe)) - (##car _e207756207781_)))) - (___kont212425212426_ _hd207755207784_))) - (___kont212427212428_ ___stx212423212424_)))))) + (##car _e108696108721_)))) + (___kont108797108798_ _hd108695108724_))) + (___kont108799108800_ ___stx108795108796_)))))) (define gxc#compile-e - (lambda _g213887_ - (let ((_g213886_ (let () (declare (not safe)) (##length _g213887_)))) - (cond ((let () (declare (not safe)) (##fx= _g213886_ 1)) - (apply (lambda (_stx207562_) + (lambda _g110259_ + (let ((_g110258_ (let () (declare (not safe)) (##length _g110259_)))) + (cond ((let () (declare (not safe)) (##fx= _g110258_ 1)) + (apply (lambda (_stx108502_) (let () (declare (not safe)) - (gxc#compile-e__0 _stx207562_))) - _g213887_)) - ((let () (declare (not safe)) (##fx= _g213886_ 2)) - (apply (lambda (_stx207622_ _arg207623_) + (gxc#compile-e__0 _stx108502_))) + _g110259_)) + ((let () (declare (not safe)) (##fx= _g110258_ 2)) + (apply (lambda (_stx108562_ _arg108563_) (let () (declare (not safe)) - (gxc#compile-e__1 _stx207622_ _arg207623_))) - _g213887_)) - ((let () (declare (not safe)) (##fx= _g213886_ 3)) - (apply (lambda (_stx207683_ _arg1207684_ _arg2207685_) + (gxc#compile-e__1 _stx108562_ _arg108563_))) + _g110259_)) + ((let () (declare (not safe)) (##fx= _g110258_ 3)) + (apply (lambda (_stx108623_ _arg1108624_ _arg2108625_) (let () (declare (not safe)) (gxc#compile-e__2 - _stx207683_ - _arg1207684_ - _arg2207685_))) - _g213887_)) - ((let () (declare (not safe)) (##fx>= _g213886_ 3)) - (apply gxc#compile-e__3 _g213887_)) + _stx108623_ + _arg1108624_ + _arg2108625_))) + _g110259_)) + ((let () (declare (not safe)) (##fx>= _g110258_ 3)) + (apply gxc#compile-e__3 _g110259_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-e - _g213887_)))))) - (define gxc#void-method (lambda (_stx207559_ . _args207560_) '#!void)) - (define gxc#false-method (lambda (_stx207556_ . _args207557_) '#f)) - (define gxc#true-method (lambda (_stx207553_ . _args207554_) '#t)) + _g110259_)))))) + (define gxc#void-method (lambda (_stx108499_ . _args108500_) '#!void)) + (define gxc#false-method (lambda (_stx108496_ . _args108497_) '#f)) + (define gxc#true-method (lambda (_stx108493_ . _args108494_) '#t)) (define gxc#&void-expression (make-promise (lambda () - (let ((_tbl207550_ - (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((_tbl108490_ + (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (table-set! _tbl207550_ '%#begin-annotation gxc#void-method)) + (hash-put! _tbl108490_ '%#begin-annotation gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207550_ '%#lambda gxc#void-method)) + (hash-put! _tbl108490_ '%#lambda gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207550_ '%#case-lambda gxc#void-method)) + (hash-put! _tbl108490_ '%#case-lambda gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207550_ '%#let-values gxc#void-method)) + (hash-put! _tbl108490_ '%#let-values gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207550_ '%#letrec-values gxc#void-method)) + (hash-put! _tbl108490_ '%#letrec-values gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207550_ '%#letrec*-values gxc#void-method)) + (hash-put! _tbl108490_ '%#letrec*-values gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207550_ '%#quote gxc#void-method)) + (hash-put! _tbl108490_ '%#quote gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207550_ '%#quote-syntax gxc#void-method)) + (hash-put! _tbl108490_ '%#quote-syntax gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207550_ '%#call gxc#void-method)) + (hash-put! _tbl108490_ '%#call gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207550_ '%#call-unchecked gxc#void-method)) + (hash-put! _tbl108490_ '%#call-unchecked gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207550_ '%#if gxc#void-method)) + (hash-put! _tbl108490_ '%#if gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207550_ '%#ref gxc#void-method)) + (hash-put! _tbl108490_ '%#ref gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207550_ '%#set! gxc#void-method)) + (hash-put! _tbl108490_ '%#set! gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207550_ '%#struct-instance? gxc#void-method)) + (hash-put! _tbl108490_ '%#struct-instance? gxc#void-method)) (let () (declare (not safe)) - (table-set! - _tbl207550_ + (hash-put! + _tbl108490_ '%#struct-direct-instance? gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207550_ '%#struct-ref gxc#void-method)) + (hash-put! _tbl108490_ '%#struct-ref gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207550_ '%#struct-set! gxc#void-method)) + (hash-put! _tbl108490_ '%#struct-set! gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207550_ '%#struct-direct-ref gxc#void-method)) + (hash-put! _tbl108490_ '%#struct-direct-ref gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207550_ '%#struct-direct-set! gxc#void-method)) + (hash-put! _tbl108490_ '%#struct-direct-set! gxc#void-method)) (let () (declare (not safe)) - (table-set! - _tbl207550_ - '%#struct-unchecked-ref - gxc#void-method)) + (hash-put! _tbl108490_ '%#struct-unchecked-ref gxc#void-method)) (let () (declare (not safe)) - (table-set! - _tbl207550_ + (hash-put! + _tbl108490_ '%#struct-unchecked-set! gxc#void-method)) - _tbl207550_)))) + _tbl108490_)))) (define gxc#&void-special-form (make-promise (lambda () - (let ((_tbl207546_ - (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((_tbl108486_ + (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (table-set! _tbl207546_ '%#begin gxc#void-method)) + (hash-put! _tbl108486_ '%#begin gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207546_ '%#begin-syntax gxc#void-method)) + (hash-put! _tbl108486_ '%#begin-syntax gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207546_ '%#begin-foreign gxc#void-method)) + (hash-put! _tbl108486_ '%#begin-foreign gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207546_ '%#module gxc#void-method)) + (hash-put! _tbl108486_ '%#module gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207546_ '%#import gxc#void-method)) + (hash-put! _tbl108486_ '%#import gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207546_ '%#export gxc#void-method)) + (hash-put! _tbl108486_ '%#export gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207546_ '%#provide gxc#void-method)) + (hash-put! _tbl108486_ '%#provide gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207546_ '%#extern gxc#void-method)) + (hash-put! _tbl108486_ '%#extern gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207546_ '%#define-values gxc#void-method)) + (hash-put! _tbl108486_ '%#define-values gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207546_ '%#define-syntax gxc#void-method)) + (hash-put! _tbl108486_ '%#define-syntax gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207546_ '%#define-alias gxc#void-method)) + (hash-put! _tbl108486_ '%#define-alias gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207546_ '%#declare gxc#void-method)) - _tbl207546_)))) + (hash-put! _tbl108486_ '%#declare gxc#void-method)) + _tbl108486_)))) (define gxc#&void (make-promise (lambda () - (let ((_tbl207542_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp213888 (force gxc#&void-special-form))) + (let ((_tbl108482_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp110260 (force gxc#&void-special-form))) (declare (not safe)) - (hash-copy! _tbl207542_ __tmp213888)) - (let ((__tmp213889 (force gxc#&void-expression))) + (hash-merge! _tbl108482_ __tmp110260)) + (let ((__tmp110261 (force gxc#&void-expression))) (declare (not safe)) - (hash-copy! _tbl207542_ __tmp213889)) - _tbl207542_)))) + (hash-merge! _tbl108482_ __tmp110261)) + _tbl108482_)))) (define gxc#&false-expression (make-promise (lambda () - (let ((_tbl207538_ - (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((_tbl108478_ + (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (table-set! _tbl207538_ '%#begin-annotation gxc#false-method)) + (hash-put! _tbl108478_ '%#begin-annotation gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207538_ '%#lambda gxc#false-method)) + (hash-put! _tbl108478_ '%#lambda gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207538_ '%#case-lambda gxc#false-method)) + (hash-put! _tbl108478_ '%#case-lambda gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207538_ '%#let-values gxc#false-method)) + (hash-put! _tbl108478_ '%#let-values gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207538_ '%#letrec-values gxc#false-method)) + (hash-put! _tbl108478_ '%#letrec-values gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207538_ '%#letrec*-values gxc#false-method)) + (hash-put! _tbl108478_ '%#letrec*-values gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207538_ '%#quote gxc#false-method)) + (hash-put! _tbl108478_ '%#quote gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207538_ '%#quote-syntax gxc#false-method)) + (hash-put! _tbl108478_ '%#quote-syntax gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207538_ '%#call gxc#false-method)) + (hash-put! _tbl108478_ '%#call gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207538_ '%#call-unchecked gxc#false-method)) + (hash-put! _tbl108478_ '%#call-unchecked gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207538_ '%#if gxc#false-method)) + (hash-put! _tbl108478_ '%#if gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207538_ '%#ref gxc#false-method)) + (hash-put! _tbl108478_ '%#ref gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207538_ '%#set! gxc#false-method)) + (hash-put! _tbl108478_ '%#set! gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207538_ '%#struct-instance? gxc#false-method)) + (hash-put! _tbl108478_ '%#struct-instance? gxc#false-method)) (let () (declare (not safe)) - (table-set! - _tbl207538_ + (hash-put! + _tbl108478_ '%#struct-direct-instance? gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207538_ '%#struct-ref gxc#false-method)) + (hash-put! _tbl108478_ '%#struct-ref gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207538_ '%#struct-set! gxc#false-method)) + (hash-put! _tbl108478_ '%#struct-set! gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207538_ '%#struct-direct-ref gxc#false-method)) + (hash-put! _tbl108478_ '%#struct-direct-ref gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207538_ '%#struct-direct-set! gxc#false-method)) + (hash-put! _tbl108478_ '%#struct-direct-set! gxc#false-method)) (let () (declare (not safe)) - (table-set! - _tbl207538_ + (hash-put! + _tbl108478_ '%#struct-unchecked-ref gxc#false-method)) (let () (declare (not safe)) - (table-set! - _tbl207538_ + (hash-put! + _tbl108478_ '%#struct-unchecked-set! gxc#false-method)) - _tbl207538_)))) + _tbl108478_)))) (define gxc#&false-special-form (make-promise (lambda () - (let ((_tbl207534_ - (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((_tbl108474_ + (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (table-set! _tbl207534_ '%#begin gxc#false-method)) + (hash-put! _tbl108474_ '%#begin gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207534_ '%#begin-syntax gxc#false-method)) + (hash-put! _tbl108474_ '%#begin-syntax gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207534_ '%#begin-foreign gxc#false-method)) + (hash-put! _tbl108474_ '%#begin-foreign gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207534_ '%#module gxc#false-method)) + (hash-put! _tbl108474_ '%#module gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207534_ '%#import gxc#false-method)) + (hash-put! _tbl108474_ '%#import gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207534_ '%#export gxc#false-method)) + (hash-put! _tbl108474_ '%#export gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207534_ '%#provide gxc#false-method)) + (hash-put! _tbl108474_ '%#provide gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207534_ '%#extern gxc#false-method)) + (hash-put! _tbl108474_ '%#extern gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207534_ '%#define-values gxc#false-method)) + (hash-put! _tbl108474_ '%#define-values gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207534_ '%#define-syntax gxc#false-method)) + (hash-put! _tbl108474_ '%#define-syntax gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207534_ '%#define-alias gxc#false-method)) + (hash-put! _tbl108474_ '%#define-alias gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207534_ '%#declare gxc#false-method)) - _tbl207534_)))) + (hash-put! _tbl108474_ '%#declare gxc#false-method)) + _tbl108474_)))) (define gxc#&false (make-promise (lambda () - (let ((_tbl207530_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp213890 (force gxc#&false-special-form))) + (let ((_tbl108470_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp110262 (force gxc#&false-special-form))) (declare (not safe)) - (hash-copy! _tbl207530_ __tmp213890)) - (let ((__tmp213891 (force gxc#&false-expression))) + (hash-merge! _tbl108470_ __tmp110262)) + (let ((__tmp110263 (force gxc#&false-expression))) (declare (not safe)) - (hash-copy! _tbl207530_ __tmp213891)) - _tbl207530_)))) + (hash-merge! _tbl108470_ __tmp110263)) + _tbl108470_)))) (define gxc#&collect-bindings (make-promise (lambda () - (let ((_tbl207526_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp213892 (force gxc#&void-expression))) + (let ((_tbl108466_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp110264 (force gxc#&void-expression))) (declare (not safe)) - (hash-copy! _tbl207526_ __tmp213892)) - (let ((__tmp213893 (force gxc#&void-special-form))) + (hash-merge! _tbl108466_ __tmp110264)) + (let ((__tmp110265 (force gxc#&void-special-form))) (declare (not safe)) - (hash-copy! _tbl207526_ __tmp213893)) + (hash-merge! _tbl108466_ __tmp110265)) (let () (declare (not safe)) - (table-set! _tbl207526_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl108466_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (table-set! - _tbl207526_ + (hash-put! + _tbl108466_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl207526_ '%#module gxc#collect-module%)) + (hash-put! _tbl108466_ '%#module gxc#collect-module%)) (let () (declare (not safe)) - (table-set! - _tbl207526_ + (hash-put! + _tbl108466_ '%#define-values gxc#collect-bindings-define-values%)) (let () (declare (not safe)) - (table-set! - _tbl207526_ + (hash-put! + _tbl108466_ '%#define-syntax gxc#collect-bindings-define-syntax%)) - _tbl207526_)))) + _tbl108466_)))) (define gxc#apply-collect-bindings - (lambda (_stx207509_ . _args207511_) - (let ((__tmp213895 + (lambda (_stx108449_ . _args108451_) + (let ((__tmp110267 (lambda () (declare (not safe)) - (if (null? _args207511_) - (gxc#compile-e__0 _stx207509_) - (let ((_arg1207516_ (car _args207511_)) - (_rest207518_ (cdr _args207511_))) - (if (null? _rest207518_) - (gxc#compile-e__1 _stx207509_ _arg1207516_) - (let ((_arg2207521_ (car _rest207518_)) - (_rest207523_ (cdr _rest207518_))) - (if (null? _rest207523_) + (if (null? _args108451_) + (gxc#compile-e__0 _stx108449_) + (let ((_arg1108456_ (car _args108451_)) + (_rest108458_ (cdr _args108451_))) + (if (null? _rest108458_) + (gxc#compile-e__1 _stx108449_ _arg1108456_) + (let ((_arg2108461_ (car _rest108458_)) + (_rest108463_ (cdr _rest108458_))) + (if (null? _rest108463_) (gxc#compile-e__2 - _stx207509_ - _arg1207516_ - _arg2207521_) + _stx108449_ + _arg1108456_ + _arg2108461_) (apply gxc#compile-e - _stx207509_ - _arg1207516_ - _arg2207521_ - _rest207523_)))))))) - (__tmp213894 (force gxc#&collect-bindings))) + _stx108449_ + _arg1108456_ + _arg2108461_ + _rest108463_)))))))) + (__tmp110266 (force gxc#&collect-bindings))) (declare (not safe)) (call-with-parameters - __tmp213895 + __tmp110267 gxc#current-compile-methods - __tmp213894)))) + __tmp110266)))) (define gxc#&lift-modules (make-promise (lambda () - (let ((_tbl207506_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp213896 (force gxc#&void))) + (let ((_tbl108446_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp110268 (force gxc#&void))) (declare (not safe)) - (hash-copy! _tbl207506_ __tmp213896)) + (hash-merge! _tbl108446_ __tmp110268)) (let () (declare (not safe)) - (table-set! _tbl207506_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl108446_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (table-set! _tbl207506_ '%#module gxc#lift-modules-module%)) - _tbl207506_)))) + (hash-put! _tbl108446_ '%#module gxc#lift-modules-module%)) + _tbl108446_)))) (define gxc#apply-lift-modules - (lambda (_stx207489_ . _args207491_) - (let ((__tmp213898 + (lambda (_stx108429_ . _args108431_) + (let ((__tmp110270 (lambda () (declare (not safe)) - (if (null? _args207491_) - (gxc#compile-e__0 _stx207489_) - (let ((_arg1207496_ (car _args207491_)) - (_rest207498_ (cdr _args207491_))) - (if (null? _rest207498_) - (gxc#compile-e__1 _stx207489_ _arg1207496_) - (let ((_arg2207501_ (car _rest207498_)) - (_rest207503_ (cdr _rest207498_))) - (if (null? _rest207503_) + (if (null? _args108431_) + (gxc#compile-e__0 _stx108429_) + (let ((_arg1108436_ (car _args108431_)) + (_rest108438_ (cdr _args108431_))) + (if (null? _rest108438_) + (gxc#compile-e__1 _stx108429_ _arg1108436_) + (let ((_arg2108441_ (car _rest108438_)) + (_rest108443_ (cdr _rest108438_))) + (if (null? _rest108443_) (gxc#compile-e__2 - _stx207489_ - _arg1207496_ - _arg2207501_) + _stx108429_ + _arg1108436_ + _arg2108441_) (apply gxc#compile-e - _stx207489_ - _arg1207496_ - _arg2207501_ - _rest207503_)))))))) - (__tmp213897 (force gxc#&lift-modules))) + _stx108429_ + _arg1108436_ + _arg2108441_ + _rest108443_)))))))) + (__tmp110269 (force gxc#&lift-modules))) (declare (not safe)) (call-with-parameters - __tmp213898 + __tmp110270 gxc#current-compile-methods - __tmp213897)))) + __tmp110269)))) (define gxc#&find-runtime-code (make-promise (lambda () - (let ((_tbl207486_ - (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((_tbl108426_ + (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#begin gxc#find-runtime-begin%)) + (hash-put! _tbl108426_ '%#begin gxc#find-runtime-begin%)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#begin-syntax gxc#false-method)) + (hash-put! _tbl108426_ '%#begin-syntax gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#begin-foreign gxc#true-method)) + (hash-put! _tbl108426_ '%#begin-foreign gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#begin-annotation gxc#true-method)) + (hash-put! _tbl108426_ '%#begin-annotation gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#module gxc#false-method)) + (hash-put! _tbl108426_ '%#module gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#import gxc#false-method)) + (hash-put! _tbl108426_ '%#import gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#export gxc#false-method)) + (hash-put! _tbl108426_ '%#export gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#provide gxc#false-method)) + (hash-put! _tbl108426_ '%#provide gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#extern gxc#false-method)) + (hash-put! _tbl108426_ '%#extern gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#define-values gxc#true-method)) + (hash-put! _tbl108426_ '%#define-values gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#define-syntax gxc#false-method)) + (hash-put! _tbl108426_ '%#define-syntax gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#define-alias gxc#false-method)) + (hash-put! _tbl108426_ '%#define-alias gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#declare gxc#false-method)) + (hash-put! _tbl108426_ '%#declare gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#lambda gxc#true-method)) + (hash-put! _tbl108426_ '%#lambda gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#case-lambda gxc#true-method)) + (hash-put! _tbl108426_ '%#case-lambda gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#let-values gxc#true-method)) + (hash-put! _tbl108426_ '%#let-values gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#letrec-values gxc#true-method)) + (hash-put! _tbl108426_ '%#letrec-values gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#letrec*-values gxc#true-method)) + (hash-put! _tbl108426_ '%#letrec*-values gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#quote gxc#true-method)) + (hash-put! _tbl108426_ '%#quote gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#call gxc#true-method)) + (hash-put! _tbl108426_ '%#call gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#call-unchecked gxc#true-method)) + (hash-put! _tbl108426_ '%#call-unchecked gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#if gxc#true-method)) + (hash-put! _tbl108426_ '%#if gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#ref gxc#true-method)) + (hash-put! _tbl108426_ '%#ref gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#set! gxc#true-method)) + (hash-put! _tbl108426_ '%#set! gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#struct-instance? gxc#true-method)) + (hash-put! _tbl108426_ '%#struct-instance? gxc#true-method)) (let () (declare (not safe)) - (table-set! - _tbl207486_ + (hash-put! + _tbl108426_ '%#struct-direct-instance? gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#struct-ref gxc#true-method)) + (hash-put! _tbl108426_ '%#struct-ref gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#struct-set! gxc#true-method)) + (hash-put! _tbl108426_ '%#struct-set! gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#struct-direct-ref gxc#true-method)) + (hash-put! _tbl108426_ '%#struct-direct-ref gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl207486_ '%#struct-direct-set! gxc#true-method)) + (hash-put! _tbl108426_ '%#struct-direct-set! gxc#true-method)) (let () (declare (not safe)) - (table-set! - _tbl207486_ - '%#struct-unchecked-ref - gxc#true-method)) + (hash-put! _tbl108426_ '%#struct-unchecked-ref gxc#true-method)) (let () (declare (not safe)) - (table-set! - _tbl207486_ + (hash-put! + _tbl108426_ '%#struct-unchecked-set! gxc#true-method)) - _tbl207486_)))) + _tbl108426_)))) (define gxc#apply-find-runtime-code - (lambda (_stx207469_ . _args207471_) - (let ((__tmp213900 + (lambda (_stx108409_ . _args108411_) + (let ((__tmp110272 (lambda () (declare (not safe)) - (if (null? _args207471_) - (gxc#compile-e__0 _stx207469_) - (let ((_arg1207476_ (car _args207471_)) - (_rest207478_ (cdr _args207471_))) - (if (null? _rest207478_) - (gxc#compile-e__1 _stx207469_ _arg1207476_) - (let ((_arg2207481_ (car _rest207478_)) - (_rest207483_ (cdr _rest207478_))) - (if (null? _rest207483_) + (if (null? _args108411_) + (gxc#compile-e__0 _stx108409_) + (let ((_arg1108416_ (car _args108411_)) + (_rest108418_ (cdr _args108411_))) + (if (null? _rest108418_) + (gxc#compile-e__1 _stx108409_ _arg1108416_) + (let ((_arg2108421_ (car _rest108418_)) + (_rest108423_ (cdr _rest108418_))) + (if (null? _rest108423_) (gxc#compile-e__2 - _stx207469_ - _arg1207476_ - _arg2207481_) + _stx108409_ + _arg1108416_ + _arg2108421_) (apply gxc#compile-e - _stx207469_ - _arg1207476_ - _arg2207481_ - _rest207483_)))))))) - (__tmp213899 (force gxc#&find-runtime-code))) + _stx108409_ + _arg1108416_ + _arg2108421_ + _rest108423_)))))))) + (__tmp110271 (force gxc#&find-runtime-code))) (declare (not safe)) (call-with-parameters - __tmp213900 + __tmp110272 gxc#current-compile-methods - __tmp213899)))) + __tmp110271)))) (define gxc#&find-lambda-expression (make-promise (lambda () - (let ((_tbl207466_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp213901 (force gxc#&false))) + (let ((_tbl108406_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp110273 (force gxc#&false))) (declare (not safe)) - (hash-copy! _tbl207466_ __tmp213901)) + (hash-merge! _tbl108406_ __tmp110273)) (let () (declare (not safe)) - (table-set! - _tbl207466_ + (hash-put! + _tbl108406_ '%#begin gxc#find-lambda-expression-begin%)) (let () (declare (not safe)) - (table-set! - _tbl207466_ + (hash-put! + _tbl108406_ '%#begin-annotation gxc#find-lambda-expression-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl207466_ '%#lambda values)) + (hash-put! _tbl108406_ '%#lambda values)) (let () (declare (not safe)) - (table-set! _tbl207466_ '%#case-lambda values)) + (hash-put! _tbl108406_ '%#case-lambda values)) (let () (declare (not safe)) - (table-set! - _tbl207466_ + (hash-put! + _tbl108406_ '%#let-values gxc#find-lambda-expression-let-values%)) (let () (declare (not safe)) - (table-set! - _tbl207466_ + (hash-put! + _tbl108406_ '%#letrec-values gxc#find-lambda-expression-let-values%)) (let () (declare (not safe)) - (table-set! - _tbl207466_ + (hash-put! + _tbl108406_ '%#letrec*-values gxc#find-lambda-expression-let-values%)) - _tbl207466_)))) + _tbl108406_)))) (define gxc#apply-find-lambda-expression - (lambda (_stx207449_ . _args207451_) - (let ((__tmp213903 + (lambda (_stx108389_ . _args108391_) + (let ((__tmp110275 (lambda () (declare (not safe)) - (if (null? _args207451_) - (gxc#compile-e__0 _stx207449_) - (let ((_arg1207456_ (car _args207451_)) - (_rest207458_ (cdr _args207451_))) - (if (null? _rest207458_) - (gxc#compile-e__1 _stx207449_ _arg1207456_) - (let ((_arg2207461_ (car _rest207458_)) - (_rest207463_ (cdr _rest207458_))) - (if (null? _rest207463_) + (if (null? _args108391_) + (gxc#compile-e__0 _stx108389_) + (let ((_arg1108396_ (car _args108391_)) + (_rest108398_ (cdr _args108391_))) + (if (null? _rest108398_) + (gxc#compile-e__1 _stx108389_ _arg1108396_) + (let ((_arg2108401_ (car _rest108398_)) + (_rest108403_ (cdr _rest108398_))) + (if (null? _rest108403_) (gxc#compile-e__2 - _stx207449_ - _arg1207456_ - _arg2207461_) + _stx108389_ + _arg1108396_ + _arg2108401_) (apply gxc#compile-e - _stx207449_ - _arg1207456_ - _arg2207461_ - _rest207463_)))))))) - (__tmp213902 (force gxc#&find-lambda-expression))) + _stx108389_ + _arg1108396_ + _arg2108401_ + _rest108403_)))))))) + (__tmp110274 (force gxc#&find-lambda-expression))) (declare (not safe)) (call-with-parameters - __tmp213903 + __tmp110275 gxc#current-compile-methods - __tmp213902)))) + __tmp110274)))) (define gxc#&count-values (make-promise (lambda () - (let ((_tbl207446_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp213904 (force gxc#&false-expression))) + (let ((_tbl108386_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp110276 (force gxc#&false-expression))) (declare (not safe)) - (hash-copy! _tbl207446_ __tmp213904)) + (hash-merge! _tbl108386_ __tmp110276)) (let () (declare (not safe)) - (table-set! _tbl207446_ '%#begin gxc#count-values-begin%)) + (hash-put! _tbl108386_ '%#begin gxc#count-values-begin%)) (let () (declare (not safe)) - (table-set! - _tbl207446_ + (hash-put! + _tbl108386_ '%#begin-annotation gxc#count-values-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl207446_ '%#lambda gxc#count-values-single%)) + (hash-put! _tbl108386_ '%#lambda gxc#count-values-single%)) (let () (declare (not safe)) - (table-set! - _tbl207446_ - '%#case-lambda - gxc#count-values-single%)) + (hash-put! _tbl108386_ '%#case-lambda gxc#count-values-single%)) (let () (declare (not safe)) - (table-set! - _tbl207446_ + (hash-put! + _tbl108386_ '%#let-values gxc#count-values-let-values%)) (let () (declare (not safe)) - (table-set! - _tbl207446_ + (hash-put! + _tbl108386_ '%#letrec-values gxc#count-values-let-values%)) (let () (declare (not safe)) - (table-set! - _tbl207446_ + (hash-put! + _tbl108386_ '%#letrec*-values gxc#count-values-let-values%)) (let () (declare (not safe)) - (table-set! _tbl207446_ '%#quote gxc#count-values-single%)) + (hash-put! _tbl108386_ '%#quote gxc#count-values-single%)) (let () (declare (not safe)) - (table-set! _tbl207446_ '%#call gxc#count-values-call%)) + (hash-put! _tbl108386_ '%#call gxc#count-values-call%)) (let () (declare (not safe)) - (table-set! - _tbl207446_ + (hash-put! + _tbl108386_ '%#call-unchecked gxc#count-values-call%)) (let () (declare (not safe)) - (table-set! _tbl207446_ '%#if gxc#count-values-if%)) - _tbl207446_)))) + (hash-put! _tbl108386_ '%#if gxc#count-values-if%)) + _tbl108386_)))) (define gxc#apply-count-values - (lambda (_stx207429_ . _args207431_) - (let ((__tmp213906 + (lambda (_stx108369_ . _args108371_) + (let ((__tmp110278 (lambda () (declare (not safe)) - (if (null? _args207431_) - (gxc#compile-e__0 _stx207429_) - (let ((_arg1207436_ (car _args207431_)) - (_rest207438_ (cdr _args207431_))) - (if (null? _rest207438_) - (gxc#compile-e__1 _stx207429_ _arg1207436_) - (let ((_arg2207441_ (car _rest207438_)) - (_rest207443_ (cdr _rest207438_))) - (if (null? _rest207443_) + (if (null? _args108371_) + (gxc#compile-e__0 _stx108369_) + (let ((_arg1108376_ (car _args108371_)) + (_rest108378_ (cdr _args108371_))) + (if (null? _rest108378_) + (gxc#compile-e__1 _stx108369_ _arg1108376_) + (let ((_arg2108381_ (car _rest108378_)) + (_rest108383_ (cdr _rest108378_))) + (if (null? _rest108383_) (gxc#compile-e__2 - _stx207429_ - _arg1207436_ - _arg2207441_) + _stx108369_ + _arg1108376_ + _arg2108381_) (apply gxc#compile-e - _stx207429_ - _arg1207436_ - _arg2207441_ - _rest207443_)))))))) - (__tmp213905 (force gxc#&count-values))) + _stx108369_ + _arg1108376_ + _arg2108381_ + _rest108383_)))))))) + (__tmp110277 (force gxc#&count-values))) (declare (not safe)) (call-with-parameters - __tmp213906 + __tmp110278 gxc#current-compile-methods - __tmp213905)))) + __tmp110277)))) (define gxc#&generate-runtime-empty (make-promise (lambda () - (let ((_tbl207426_ - (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((_tbl108366_ + (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (table-set! _tbl207426_ '%#begin gxc#generate-runtime-empty)) + (hash-put! _tbl108366_ '%#begin gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! - _tbl207426_ + (hash-put! + _tbl108366_ '%#begin-syntax gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! - _tbl207426_ + (hash-put! + _tbl108366_ '%#begin-foreign gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! - _tbl207426_ + (hash-put! + _tbl108366_ '%#begin-annotation gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl207426_ '%#module gxc#generate-runtime-empty)) + (hash-put! _tbl108366_ '%#module gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl207426_ '%#import gxc#generate-runtime-empty)) + (hash-put! _tbl108366_ '%#import gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl207426_ '%#export gxc#generate-runtime-empty)) + (hash-put! _tbl108366_ '%#export gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl207426_ '%#provide gxc#generate-runtime-empty)) + (hash-put! _tbl108366_ '%#provide gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl207426_ '%#extern gxc#generate-runtime-empty)) + (hash-put! _tbl108366_ '%#extern gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! - _tbl207426_ + (hash-put! + _tbl108366_ '%#define-values gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! - _tbl207426_ + (hash-put! + _tbl108366_ '%#define-syntax gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! - _tbl207426_ + (hash-put! + _tbl108366_ '%#define-alias gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl207426_ '%#declare gxc#generate-runtime-empty)) + (hash-put! _tbl108366_ '%#declare gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl207426_ '%#lambda gxc#generate-runtime-empty)) + (hash-put! _tbl108366_ '%#lambda gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! - _tbl207426_ + (hash-put! + _tbl108366_ '%#case-lambda gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! - _tbl207426_ + (hash-put! + _tbl108366_ '%#let-values gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! - _tbl207426_ + (hash-put! + _tbl108366_ '%#letrec-values gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! - _tbl207426_ + (hash-put! + _tbl108366_ '%#letrec*-values gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl207426_ '%#quote gxc#generate-runtime-empty)) + (hash-put! _tbl108366_ '%#quote gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl207426_ '%#call gxc#generate-runtime-empty)) + (hash-put! _tbl108366_ '%#call gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! - _tbl207426_ + (hash-put! + _tbl108366_ '%#call-unchecked gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl207426_ '%#if gxc#generate-runtime-empty)) + (hash-put! _tbl108366_ '%#if gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl207426_ '%#ref gxc#generate-runtime-empty)) + (hash-put! _tbl108366_ '%#ref gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl207426_ '%#set! gxc#generate-runtime-empty)) + (hash-put! _tbl108366_ '%#set! gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! - _tbl207426_ + (hash-put! + _tbl108366_ '%#struct-instance? gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! - _tbl207426_ + (hash-put! + _tbl108366_ '%#struct-direct-instance? gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! - _tbl207426_ + (hash-put! + _tbl108366_ '%#struct-ref gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! - _tbl207426_ + (hash-put! + _tbl108366_ '%#struct-set! gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! - _tbl207426_ + (hash-put! + _tbl108366_ '%#struct-direct-ref gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! - _tbl207426_ + (hash-put! + _tbl108366_ '%#struct-direct-set! gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! - _tbl207426_ + (hash-put! + _tbl108366_ '%#struct-unchecked-ref gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! - _tbl207426_ + (hash-put! + _tbl108366_ '%#struct-unchecked-set! gxc#generate-runtime-empty)) - _tbl207426_)))) + _tbl108366_)))) (define gxc#&generate-loader (make-promise (lambda () - (let ((_tbl207422_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp213907 (force gxc#&generate-runtime-empty))) + (let ((_tbl108362_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp110279 (force gxc#&generate-runtime-empty))) (declare (not safe)) - (hash-copy! _tbl207422_ __tmp213907)) + (hash-merge! _tbl108362_ __tmp110279)) (let () (declare (not safe)) - (table-set! _tbl207422_ '%#begin gxc#generate-runtime-begin%)) + (hash-put! _tbl108362_ '%#begin gxc#generate-runtime-begin%)) (let () (declare (not safe)) - (table-set! - _tbl207422_ + (hash-put! + _tbl108362_ '%#import gxc#generate-runtime-loader-import%)) - _tbl207422_)))) + _tbl108362_)))) (define gxc#apply-generate-loader - (lambda (_stx207405_ . _args207407_) - (let ((__tmp213909 + (lambda (_stx108345_ . _args108347_) + (let ((__tmp110281 (lambda () (declare (not safe)) - (if (null? _args207407_) - (gxc#compile-e__0 _stx207405_) - (let ((_arg1207412_ (car _args207407_)) - (_rest207414_ (cdr _args207407_))) - (if (null? _rest207414_) - (gxc#compile-e__1 _stx207405_ _arg1207412_) - (let ((_arg2207417_ (car _rest207414_)) - (_rest207419_ (cdr _rest207414_))) - (if (null? _rest207419_) + (if (null? _args108347_) + (gxc#compile-e__0 _stx108345_) + (let ((_arg1108352_ (car _args108347_)) + (_rest108354_ (cdr _args108347_))) + (if (null? _rest108354_) + (gxc#compile-e__1 _stx108345_ _arg1108352_) + (let ((_arg2108357_ (car _rest108354_)) + (_rest108359_ (cdr _rest108354_))) + (if (null? _rest108359_) (gxc#compile-e__2 - _stx207405_ - _arg1207412_ - _arg2207417_) + _stx108345_ + _arg1108352_ + _arg2108357_) (apply gxc#compile-e - _stx207405_ - _arg1207412_ - _arg2207417_ - _rest207419_)))))))) - (__tmp213908 (force gxc#&generate-loader))) + _stx108345_ + _arg1108352_ + _arg2108357_ + _rest108359_)))))))) + (__tmp110280 (force gxc#&generate-loader))) (declare (not safe)) (call-with-parameters - __tmp213909 + __tmp110281 gxc#current-compile-methods - __tmp213908)))) + __tmp110280)))) (define gxc#&generate-runtime (make-promise (lambda () - (let ((_tbl207402_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp213910 (force gxc#&generate-runtime-empty))) + (let ((_tbl108342_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp110282 (force gxc#&generate-runtime-empty))) (declare (not safe)) - (hash-copy! _tbl207402_ __tmp213910)) + (hash-merge! _tbl108342_ __tmp110282)) (let () (declare (not safe)) - (table-set! _tbl207402_ '%#begin gxc#generate-runtime-begin%)) + (hash-put! _tbl108342_ '%#begin gxc#generate-runtime-begin%)) (let () (declare (not safe)) - (table-set! - _tbl207402_ + (hash-put! + _tbl108342_ '%#begin-foreign gxc#generate-runtime-begin-foreign%)) (let () (declare (not safe)) - (table-set! - _tbl207402_ + (hash-put! + _tbl108342_ '%#begin-annotation gxc#generate-runtime-begin-annotation%)) (let () (declare (not safe)) - (table-set! - _tbl207402_ + (hash-put! + _tbl108342_ '%#define-values gxc#generate-runtime-define-values%)) (let () (declare (not safe)) - (table-set! - _tbl207402_ + (hash-put! + _tbl108342_ '%#declare gxc#generate-runtime-declare%)) (let () (declare (not safe)) - (table-set! _tbl207402_ '%#lambda gxc#generate-runtime-lambda%)) + (hash-put! _tbl108342_ '%#lambda gxc#generate-runtime-lambda%)) (let () (declare (not safe)) - (table-set! - _tbl207402_ + (hash-put! + _tbl108342_ '%#case-lambda gxc#generate-runtime-case-lambda%)) (let () (declare (not safe)) - (table-set! - _tbl207402_ + (hash-put! + _tbl108342_ '%#let-values gxc#generate-runtime-let-values%)) (let () (declare (not safe)) - (table-set! - _tbl207402_ + (hash-put! + _tbl108342_ '%#letrec-values gxc#generate-runtime-letrec-values%)) (let () (declare (not safe)) - (table-set! - _tbl207402_ + (hash-put! + _tbl108342_ '%#letrec*-values gxc#generate-runtime-letrec*-values%)) (let () (declare (not safe)) - (table-set! _tbl207402_ '%#quote gxc#generate-runtime-quote%)) + (hash-put! _tbl108342_ '%#quote gxc#generate-runtime-quote%)) (let () (declare (not safe)) - (table-set! - _tbl207402_ + (hash-put! + _tbl108342_ '%#quote-syntax gxc#generate-runtime-quote-syntax%)) (let () (declare (not safe)) - (table-set! _tbl207402_ '%#call gxc#generate-runtime-call%)) + (hash-put! _tbl108342_ '%#call gxc#generate-runtime-call%)) (let () (declare (not safe)) - (table-set! - _tbl207402_ + (hash-put! + _tbl108342_ '%#call-unchecked gxc#generate-runtime-call-unchecked%)) (let () (declare (not safe)) - (table-set! _tbl207402_ '%#if gxc#generate-runtime-if%)) + (hash-put! _tbl108342_ '%#if gxc#generate-runtime-if%)) (let () (declare (not safe)) - (table-set! _tbl207402_ '%#ref gxc#generate-runtime-ref%)) + (hash-put! _tbl108342_ '%#ref gxc#generate-runtime-ref%)) (let () (declare (not safe)) - (table-set! _tbl207402_ '%#set! gxc#generate-runtime-setq%)) + (hash-put! _tbl108342_ '%#set! gxc#generate-runtime-setq%)) (let () (declare (not safe)) - (table-set! - _tbl207402_ + (hash-put! + _tbl108342_ '%#struct-instance? gxc#generate-runtime-struct-instancep%)) (let () (declare (not safe)) - (table-set! - _tbl207402_ + (hash-put! + _tbl108342_ '%#struct-direct-instance? gxc#generate-runtime-struct-direct-instancep%)) (let () (declare (not safe)) - (table-set! - _tbl207402_ + (hash-put! + _tbl108342_ '%#struct-ref gxc#generate-runtime-struct-ref%)) (let () (declare (not safe)) - (table-set! - _tbl207402_ + (hash-put! + _tbl108342_ '%#struct-set! gxc#generate-runtime-struct-setq%)) (let () (declare (not safe)) - (table-set! - _tbl207402_ + (hash-put! + _tbl108342_ '%#struct-direct-ref gxc#generate-runtime-struct-direct-ref%)) (let () (declare (not safe)) - (table-set! - _tbl207402_ + (hash-put! + _tbl108342_ '%#struct-direct-set! gxc#generate-runtime-struct-direct-setq%)) (let () (declare (not safe)) - (table-set! - _tbl207402_ + (hash-put! + _tbl108342_ '%#struct-unchecked-ref gxc#generate-runtime-struct-unchecked-ref%)) (let () (declare (not safe)) - (table-set! - _tbl207402_ + (hash-put! + _tbl108342_ '%#struct-unchecked-set! gxc#generate-runtime-struct-unchecked-setq%)) - _tbl207402_)))) + _tbl108342_)))) (define gxc#apply-generate-runtime - (lambda (_stx207385_ . _args207387_) - (let ((__tmp213912 + (lambda (_stx108325_ . _args108327_) + (let ((__tmp110284 (lambda () (declare (not safe)) - (if (null? _args207387_) - (gxc#compile-e__0 _stx207385_) - (let ((_arg1207392_ (car _args207387_)) - (_rest207394_ (cdr _args207387_))) - (if (null? _rest207394_) - (gxc#compile-e__1 _stx207385_ _arg1207392_) - (let ((_arg2207397_ (car _rest207394_)) - (_rest207399_ (cdr _rest207394_))) - (if (null? _rest207399_) + (if (null? _args108327_) + (gxc#compile-e__0 _stx108325_) + (let ((_arg1108332_ (car _args108327_)) + (_rest108334_ (cdr _args108327_))) + (if (null? _rest108334_) + (gxc#compile-e__1 _stx108325_ _arg1108332_) + (let ((_arg2108337_ (car _rest108334_)) + (_rest108339_ (cdr _rest108334_))) + (if (null? _rest108339_) (gxc#compile-e__2 - _stx207385_ - _arg1207392_ - _arg2207397_) + _stx108325_ + _arg1108332_ + _arg2108337_) (apply gxc#compile-e - _stx207385_ - _arg1207392_ - _arg2207397_ - _rest207399_)))))))) - (__tmp213911 (force gxc#&generate-runtime))) + _stx108325_ + _arg1108332_ + _arg2108337_ + _rest108339_)))))))) + (__tmp110283 (force gxc#&generate-runtime))) (declare (not safe)) (call-with-parameters - __tmp213912 + __tmp110284 gxc#current-compile-methods - __tmp213911)))) + __tmp110283)))) (define gxc#&generate-runtime-phi (make-promise (lambda () - (let ((_tbl207382_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp213913 (force gxc#&generate-runtime))) + (let ((_tbl108322_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp110285 (force gxc#&generate-runtime))) (declare (not safe)) - (hash-copy! _tbl207382_ __tmp213913)) + (hash-merge! _tbl108322_ __tmp110285)) (let () (declare (not safe)) - (table-set! - _tbl207382_ + (hash-put! + _tbl108322_ '%#define-runtime gxc#generate-runtime-phi-define-runtime%)) - _tbl207382_)))) + _tbl108322_)))) (define gxc#apply-generate-runtime-phi - (lambda (_stx207365_ . _args207367_) - (let ((__tmp213915 + (lambda (_stx108305_ . _args108307_) + (let ((__tmp110287 (lambda () (declare (not safe)) - (if (null? _args207367_) - (gxc#compile-e__0 _stx207365_) - (let ((_arg1207372_ (car _args207367_)) - (_rest207374_ (cdr _args207367_))) - (if (null? _rest207374_) - (gxc#compile-e__1 _stx207365_ _arg1207372_) - (let ((_arg2207377_ (car _rest207374_)) - (_rest207379_ (cdr _rest207374_))) - (if (null? _rest207379_) + (if (null? _args108307_) + (gxc#compile-e__0 _stx108305_) + (let ((_arg1108312_ (car _args108307_)) + (_rest108314_ (cdr _args108307_))) + (if (null? _rest108314_) + (gxc#compile-e__1 _stx108305_ _arg1108312_) + (let ((_arg2108317_ (car _rest108314_)) + (_rest108319_ (cdr _rest108314_))) + (if (null? _rest108319_) (gxc#compile-e__2 - _stx207365_ - _arg1207372_ - _arg2207377_) + _stx108305_ + _arg1108312_ + _arg2108317_) (apply gxc#compile-e - _stx207365_ - _arg1207372_ - _arg2207377_ - _rest207379_)))))))) - (__tmp213914 (force gxc#&generate-runtime-phi))) + _stx108305_ + _arg1108312_ + _arg2108317_ + _rest108319_)))))))) + (__tmp110286 (force gxc#&generate-runtime-phi))) (declare (not safe)) (call-with-parameters - __tmp213915 + __tmp110287 gxc#current-compile-methods - __tmp213914)))) + __tmp110286)))) (define gxc#&collect-expression-refs (make-promise (lambda () - (let ((_tbl207362_ - (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((_tbl108302_ + (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (table-set! _tbl207362_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl108302_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (table-set! - _tbl207362_ + (hash-put! + _tbl108302_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl207362_ '%#lambda gxc#collect-body-lambda%)) + (hash-put! _tbl108302_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) - (table-set! - _tbl207362_ + (hash-put! + _tbl108302_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) - (table-set! - _tbl207362_ + (hash-put! + _tbl108302_ '%#let-values gxc#collect-body-let-values%)) (let () (declare (not safe)) - (table-set! - _tbl207362_ + (hash-put! + _tbl108302_ '%#letrec-values gxc#collect-body-let-values%)) (let () (declare (not safe)) - (table-set! - _tbl207362_ + (hash-put! + _tbl108302_ '%#letrec*-values gxc#collect-body-let-values%)) (let () (declare (not safe)) - (table-set! _tbl207362_ '%#quote gxc#void-method)) + (hash-put! _tbl108302_ '%#quote gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207362_ '%#quote-syntax gxc#void-method)) + (hash-put! _tbl108302_ '%#quote-syntax gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207362_ '%#call gxc#collect-operands)) + (hash-put! _tbl108302_ '%#call gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl207362_ '%#call-unchecked gxc#collect-operands)) + (hash-put! _tbl108302_ '%#call-unchecked gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl207362_ '%#if gxc#collect-operands)) + (hash-put! _tbl108302_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl207362_ '%#ref gxc#collect-refs-ref%)) + (hash-put! _tbl108302_ '%#ref gxc#collect-refs-ref%)) (let () (declare (not safe)) - (table-set! _tbl207362_ '%#set! gxc#collect-refs-setq%)) + (hash-put! _tbl108302_ '%#set! gxc#collect-refs-setq%)) (let () (declare (not safe)) - (table-set! - _tbl207362_ + (hash-put! + _tbl108302_ '%#struct-instance? gxc#collect-operands)) (let () (declare (not safe)) - (table-set! - _tbl207362_ + (hash-put! + _tbl108302_ '%#struct-direct-instance? gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl207362_ '%#struct-ref gxc#collect-operands)) + (hash-put! _tbl108302_ '%#struct-ref gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl207362_ '%#struct-set! gxc#collect-operands)) + (hash-put! _tbl108302_ '%#struct-set! gxc#collect-operands)) (let () (declare (not safe)) - (table-set! - _tbl207362_ + (hash-put! + _tbl108302_ '%#struct-direct-ref gxc#collect-operands)) (let () (declare (not safe)) - (table-set! - _tbl207362_ + (hash-put! + _tbl108302_ '%#struct-direct-set! gxc#collect-operands)) (let () (declare (not safe)) - (table-set! - _tbl207362_ + (hash-put! + _tbl108302_ '%#struct-unchecked-ref gxc#collect-operands)) (let () (declare (not safe)) - (table-set! - _tbl207362_ + (hash-put! + _tbl108302_ '%#struct-unchecked-set! gxc#collect-operands)) - _tbl207362_)))) + _tbl108302_)))) (define gxc#apply-collect-expression-refs - (lambda (_stx207345_ . _args207347_) - (let ((__tmp213917 + (lambda (_stx108285_ . _args108287_) + (let ((__tmp110289 (lambda () (declare (not safe)) - (if (null? _args207347_) - (gxc#compile-e__0 _stx207345_) - (let ((_arg1207352_ (car _args207347_)) - (_rest207354_ (cdr _args207347_))) - (if (null? _rest207354_) - (gxc#compile-e__1 _stx207345_ _arg1207352_) - (let ((_arg2207357_ (car _rest207354_)) - (_rest207359_ (cdr _rest207354_))) - (if (null? _rest207359_) + (if (null? _args108287_) + (gxc#compile-e__0 _stx108285_) + (let ((_arg1108292_ (car _args108287_)) + (_rest108294_ (cdr _args108287_))) + (if (null? _rest108294_) + (gxc#compile-e__1 _stx108285_ _arg1108292_) + (let ((_arg2108297_ (car _rest108294_)) + (_rest108299_ (cdr _rest108294_))) + (if (null? _rest108299_) (gxc#compile-e__2 - _stx207345_ - _arg1207352_ - _arg2207357_) + _stx108285_ + _arg1108292_ + _arg2108297_) (apply gxc#compile-e - _stx207345_ - _arg1207352_ - _arg2207357_ - _rest207359_)))))))) - (__tmp213916 (force gxc#&collect-expression-refs))) + _stx108285_ + _arg1108292_ + _arg2108297_ + _rest108299_)))))))) + (__tmp110288 (force gxc#&collect-expression-refs))) (declare (not safe)) (call-with-parameters - __tmp213917 + __tmp110289 gxc#current-compile-methods - __tmp213916)))) + __tmp110288)))) (define gxc#&generate-meta (make-promise (lambda () - (let ((_tbl207342_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp213918 (force gxc#&void-expression))) + (let ((_tbl108282_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp110290 (force gxc#&void-expression))) (declare (not safe)) - (hash-copy! _tbl207342_ __tmp213918)) + (hash-merge! _tbl108282_ __tmp110290)) (let () (declare (not safe)) - (table-set! _tbl207342_ '%#begin gxc#generate-meta-begin%)) + (hash-put! _tbl108282_ '%#begin gxc#generate-meta-begin%)) (let () (declare (not safe)) - (table-set! - _tbl207342_ + (hash-put! + _tbl108282_ '%#begin-syntax gxc#generate-meta-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl207342_ '%#module gxc#generate-meta-module%)) + (hash-put! _tbl108282_ '%#module gxc#generate-meta-module%)) (let () (declare (not safe)) - (table-set! _tbl207342_ '%#import gxc#generate-meta-import%)) + (hash-put! _tbl108282_ '%#import gxc#generate-meta-import%)) (let () (declare (not safe)) - (table-set! _tbl207342_ '%#export gxc#generate-meta-export%)) + (hash-put! _tbl108282_ '%#export gxc#generate-meta-export%)) (let () (declare (not safe)) - (table-set! _tbl207342_ '%#provide gxc#generate-meta-provide%)) + (hash-put! _tbl108282_ '%#provide gxc#generate-meta-provide%)) (let () (declare (not safe)) - (table-set! _tbl207342_ '%#extern gxc#generate-meta-extern%)) + (hash-put! _tbl108282_ '%#extern gxc#generate-meta-extern%)) (let () (declare (not safe)) - (table-set! - _tbl207342_ + (hash-put! + _tbl108282_ '%#define-values gxc#generate-meta-define-values%)) (let () (declare (not safe)) - (table-set! - _tbl207342_ + (hash-put! + _tbl108282_ '%#define-syntax gxc#generate-meta-define-syntax%)) (let () (declare (not safe)) - (table-set! - _tbl207342_ + (hash-put! + _tbl108282_ '%#define-alias gxc#generate-meta-define-alias%)) (let () (declare (not safe)) - (table-set! _tbl207342_ '%#begin-foreign gxc#void-method)) + (hash-put! _tbl108282_ '%#begin-foreign gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl207342_ '%#declare gxc#void-method)) - _tbl207342_)))) + (hash-put! _tbl108282_ '%#declare gxc#void-method)) + _tbl108282_)))) (define gxc#apply-generate-meta - (lambda (_stx207325_ . _args207327_) - (let ((__tmp213920 + (lambda (_stx108265_ . _args108267_) + (let ((__tmp110292 (lambda () (declare (not safe)) - (if (null? _args207327_) - (gxc#compile-e__0 _stx207325_) - (let ((_arg1207332_ (car _args207327_)) - (_rest207334_ (cdr _args207327_))) - (if (null? _rest207334_) - (gxc#compile-e__1 _stx207325_ _arg1207332_) - (let ((_arg2207337_ (car _rest207334_)) - (_rest207339_ (cdr _rest207334_))) - (if (null? _rest207339_) + (if (null? _args108267_) + (gxc#compile-e__0 _stx108265_) + (let ((_arg1108272_ (car _args108267_)) + (_rest108274_ (cdr _args108267_))) + (if (null? _rest108274_) + (gxc#compile-e__1 _stx108265_ _arg1108272_) + (let ((_arg2108277_ (car _rest108274_)) + (_rest108279_ (cdr _rest108274_))) + (if (null? _rest108279_) (gxc#compile-e__2 - _stx207325_ - _arg1207332_ - _arg2207337_) + _stx108265_ + _arg1108272_ + _arg2108277_) (apply gxc#compile-e - _stx207325_ - _arg1207332_ - _arg2207337_ - _rest207339_)))))))) - (__tmp213919 (force gxc#&generate-meta))) + _stx108265_ + _arg1108272_ + _arg2108277_ + _rest108279_)))))))) + (__tmp110291 (force gxc#&generate-meta))) (declare (not safe)) (call-with-parameters - __tmp213920 + __tmp110292 gxc#current-compile-methods - __tmp213919)))) + __tmp110291)))) (define gxc#&generate-meta-phi (make-promise (lambda () - (let ((_tbl207322_ - (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((_tbl108262_ + (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (table-set! _tbl207322_ '%#begin gxc#generate-meta-begin%)) + (hash-put! _tbl108262_ '%#begin gxc#generate-meta-begin%)) (let () (declare (not safe)) - (table-set! - _tbl207322_ + (hash-put! + _tbl108262_ '%#begin-syntax gxc#generate-meta-begin-syntax%)) (let () (declare (not safe)) - (table-set! - _tbl207322_ + (hash-put! + _tbl108262_ '%#define-syntax gxc#generate-meta-define-syntax%)) (let () (declare (not safe)) - (table-set! - _tbl207322_ + (hash-put! + _tbl108262_ '%#define-alias gxc#generate-meta-define-alias%)) (let () (declare (not safe)) - (table-set! - _tbl207322_ + (hash-put! + _tbl108262_ '%#define-values gxc#generate-meta-phi-define-values%)) (let () (declare (not safe)) - (table-set! - _tbl207322_ + (hash-put! + _tbl108262_ '%#begin-annotation gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl207322_ '%#lambda gxc#generate-meta-phi-expr)) + (hash-put! _tbl108262_ '%#lambda gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! - _tbl207322_ + (hash-put! + _tbl108262_ '%#case-lambda gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! - _tbl207322_ + (hash-put! + _tbl108262_ '%#let-values gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! - _tbl207322_ + (hash-put! + _tbl108262_ '%#letrec-values gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! - _tbl207322_ + (hash-put! + _tbl108262_ '%#letrec*-values gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl207322_ '%#quote gxc#generate-meta-phi-expr)) + (hash-put! _tbl108262_ '%#quote gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! - _tbl207322_ + (hash-put! + _tbl108262_ '%#quote-syntax gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl207322_ '%#call gxc#generate-meta-phi-expr)) + (hash-put! _tbl108262_ '%#call gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! - _tbl207322_ + (hash-put! + _tbl108262_ '%#call-unchecked gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl207322_ '%#if gxc#generate-meta-phi-expr)) + (hash-put! _tbl108262_ '%#if gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl207322_ '%#ref gxc#generate-meta-phi-expr)) + (hash-put! _tbl108262_ '%#ref gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl207322_ '%#set! gxc#generate-meta-phi-expr)) + (hash-put! _tbl108262_ '%#set! gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! - _tbl207322_ + (hash-put! + _tbl108262_ '%#struct-instance? gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! - _tbl207322_ + (hash-put! + _tbl108262_ '%#struct-direct-instance? gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! - _tbl207322_ + (hash-put! + _tbl108262_ '%#struct-ref gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! - _tbl207322_ + (hash-put! + _tbl108262_ '%#struct-set! gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! - _tbl207322_ + (hash-put! + _tbl108262_ '%#struct-direct-ref gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! - _tbl207322_ + (hash-put! + _tbl108262_ '%#struct-direct-set! gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! - _tbl207322_ + (hash-put! + _tbl108262_ '%#struct-unchecked-ref gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! - _tbl207322_ + (hash-put! + _tbl108262_ '%#struct-unchecked-set! gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl207322_ '%#declare gxc#void-method)) - _tbl207322_)))) + (hash-put! _tbl108262_ '%#declare gxc#void-method)) + _tbl108262_)))) (define gxc#apply-generate-meta-phi - (lambda (_stx207305_ . _args207307_) - (let ((__tmp213922 + (lambda (_stx108245_ . _args108247_) + (let ((__tmp110294 (lambda () (declare (not safe)) - (if (null? _args207307_) - (gxc#compile-e__0 _stx207305_) - (let ((_arg1207312_ (car _args207307_)) - (_rest207314_ (cdr _args207307_))) - (if (null? _rest207314_) - (gxc#compile-e__1 _stx207305_ _arg1207312_) - (let ((_arg2207317_ (car _rest207314_)) - (_rest207319_ (cdr _rest207314_))) - (if (null? _rest207319_) + (if (null? _args108247_) + (gxc#compile-e__0 _stx108245_) + (let ((_arg1108252_ (car _args108247_)) + (_rest108254_ (cdr _args108247_))) + (if (null? _rest108254_) + (gxc#compile-e__1 _stx108245_ _arg1108252_) + (let ((_arg2108257_ (car _rest108254_)) + (_rest108259_ (cdr _rest108254_))) + (if (null? _rest108259_) (gxc#compile-e__2 - _stx207305_ - _arg1207312_ - _arg2207317_) + _stx108245_ + _arg1108252_ + _arg2108257_) (apply gxc#compile-e - _stx207305_ - _arg1207312_ - _arg2207317_ - _rest207319_)))))))) - (__tmp213921 (force gxc#&generate-meta-phi))) + _stx108245_ + _arg1108252_ + _arg2108257_ + _rest108259_)))))))) + (__tmp110293 (force gxc#&generate-meta-phi))) (declare (not safe)) (call-with-parameters - __tmp213922 + __tmp110294 gxc#current-compile-methods - __tmp213921)))) + __tmp110293)))) (define gxc#collect-begin% - (lambda (_stx207255_ . _args207256_) - (let* ((_g207258207268_ - (lambda (_g207259207265_) + (lambda (_stx108195_ . _args108196_) + (let* ((_g108198108208_ + (lambda (_g108199108205_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g207259207265_)))) - (_g207257207302_ - (lambda (_g207259207271_) + _g108199108205_)))) + (_g108197108242_ + (lambda (_g108199108211_) (if (let () (declare (not safe)) - (gx#stx-pair? _g207259207271_)) - (let ((_e207263207273_ + (gx#stx-pair? _g108199108211_)) + (let ((_e108203108213_ (let () (declare (not safe)) - (gx#stx-e _g207259207271_)))) - (let ((_hd207262207276_ + (gx#stx-e _g108199108211_)))) + (let ((_hd108202108216_ (let () (declare (not safe)) - (##car _e207263207273_))) - (_tl207261207278_ + (##car _e108203108213_))) + (_tl108201108218_ (let () (declare (not safe)) - (##cdr _e207263207273_)))) - ((lambda (_L207281_) + (##cdr _e108203108213_)))) + ((lambda (_L108221_) (for-each - (lambda (_stx207291_) + (lambda (_stx108231_) (if (let () (declare (not safe)) - (null? _args207256_)) + (null? _args108196_)) (let () (declare (not safe)) - (gxc#compile-e__0 _stx207291_)) - (let ((_arg1207293_ (car _args207256_)) - (_rest207295_ (cdr _args207256_))) + (gxc#compile-e__0 _stx108231_)) + (let ((_arg1108233_ (car _args108196_)) + (_rest108235_ (cdr _args108196_))) (if (let () (declare (not safe)) - (null? _rest207295_)) + (null? _rest108235_)) (let () (declare (not safe)) (gxc#compile-e__1 - _stx207291_ - _arg1207293_)) - (let ((_arg2207298_ - (car _rest207295_)) - (_rest207300_ - (cdr _rest207295_))) + _stx108231_ + _arg1108233_)) + (let ((_arg2108238_ + (car _rest108235_)) + (_rest108240_ + (cdr _rest108235_))) (if (let () (declare (not safe)) - (null? _rest207300_)) + (null? _rest108240_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx207291_ - _arg1207293_ - _arg2207298_)) + _stx108231_ + _arg1108233_ + _arg2108238_)) (apply gxc#compile-e - _stx207291_ - _arg1207293_ - _arg2207298_ - _rest207300_))))))) + _stx108231_ + _arg1108233_ + _arg2108238_ + _rest108240_))))))) (let () (declare (not safe)) - (gx#stx-e _L207281_)))) - _tl207261207278_))) + (gx#stx-e _L108221_)))) + _tl108201108218_))) (let () (declare (not safe)) - (_g207258207268_ _g207259207271_)))))) + (_g108198108208_ _g108199108211_)))))) (declare (not safe)) - (_g207257207302_ _stx207255_)))) + (_g108197108242_ _stx108195_)))) (define gxc#collect-begin-syntax% - (lambda (_stx207251_ . _args207252_) - (let ((__tmp213925 + (lambda (_stx108191_ . _args108192_) + (let ((__tmp110297 (lambda () - (apply gxc#collect-begin% _stx207251_ _args207252_))) - (__tmp213923 - (let ((__tmp213924 (gx#current-expander-phi))) + (apply gxc#collect-begin% _stx108191_ _args108192_))) + (__tmp110295 + (let ((__tmp110296 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp213924 '1)))) + (fx+ __tmp110296 '1)))) (declare (not safe)) (call-with-parameters - __tmp213925 + __tmp110297 gx#current-expander-phi - __tmp213923)))) + __tmp110295)))) (define gxc#collect-module% - (lambda (_stx207181_ . _args207182_) - (let* ((_g207184207198_ - (lambda (_g207185207195_) + (lambda (_stx108121_ . _args108122_) + (let* ((_g108124108138_ + (lambda (_g108125108135_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g207185207195_)))) - (_g207183207248_ - (lambda (_g207185207201_) + _g108125108135_)))) + (_g108123108188_ + (lambda (_g108125108141_) (if (let () (declare (not safe)) - (gx#stx-pair? _g207185207201_)) - (let ((_e207190207203_ + (gx#stx-pair? _g108125108141_)) + (let ((_e108130108143_ (let () (declare (not safe)) - (gx#stx-e _g207185207201_)))) - (let ((_hd207189207206_ + (gx#stx-e _g108125108141_)))) + (let ((_hd108129108146_ (let () (declare (not safe)) - (##car _e207190207203_))) - (_tl207188207208_ + (##car _e108130108143_))) + (_tl108128108148_ (let () (declare (not safe)) - (##cdr _e207190207203_)))) + (##cdr _e108130108143_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl207188207208_)) - (let ((_e207193207211_ + (gx#stx-pair? _tl108128108148_)) + (let ((_e108133108151_ (let () (declare (not safe)) - (gx#stx-e _tl207188207208_)))) - (let ((_hd207192207214_ + (gx#stx-e _tl108128108148_)))) + (let ((_hd108132108154_ (let () (declare (not safe)) - (##car _e207193207211_))) - (_tl207191207216_ + (##car _e108133108151_))) + (_tl108131108156_ (let () (declare (not safe)) - (##cdr _e207193207211_)))) - ((lambda (_L207219_ _L207220_) - (let* ((_ctx207233_ + (##cdr _e108133108151_)))) + ((lambda (_L108159_ _L108160_) + (let* ((_ctx108173_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L207220_))) - (_ctx-stx207235_ + _L108160_))) + (_ctx-stx108175_ (##structure-ref - _ctx207233_ + _ctx108173_ '11 gx#module-context::t '#f))) - (let ((__tmp213926 + (let ((__tmp110298 (lambda () (if (let () (declare (not safe)) - (null? _args207182_)) + (null? _args108122_)) (let () (declare (not safe)) (gxc#compile-e__0 - _ctx-stx207235_)) - (let ((_arg1207239_ - (car _args207182_)) - (_rest207241_ - (cdr _args207182_))) + _ctx-stx108175_)) + (let ((_arg1108179_ + (car _args108122_)) + (_rest108181_ + (cdr _args108122_))) (if (let () (declare (not safe)) - (null? _rest207241_)) + (null? _rest108181_)) (let () (declare (not safe)) (gxc#compile-e__1 - _ctx-stx207235_ - _arg1207239_)) - (let ((_arg2207244_ + _ctx-stx108175_ + _arg1108179_)) + (let ((_arg2108184_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _rest207241_)) - (_rest207246_ (cdr _rest207241_))) - (if (let () (declare (not safe)) (null? _rest207246_)) + (car _rest108181_)) + (_rest108186_ (cdr _rest108181_))) + (if (let () (declare (not safe)) (null? _rest108186_)) (let () (declare (not safe)) (gxc#compile-e__2 - _ctx-stx207235_ - _arg1207239_ - _arg2207244_)) + _ctx-stx108175_ + _arg1108179_ + _arg2108184_)) (apply gxc#compile-e - _ctx-stx207235_ - _arg1207239_ - _arg2207244_ - _rest207246_))))))))) + _ctx-stx108175_ + _arg1108179_ + _arg2108184_ + _rest108186_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp213926 + __tmp110298 gx#current-expander-context - _ctx207233_)))) - _tl207191207216_ - _hd207192207214_))) + _ctx108173_)))) + _tl108131108156_ + _hd108132108154_))) (let () (declare (not safe)) - (_g207184207198_ _g207185207201_))))) + (_g108124108138_ _g108125108141_))))) (let () (declare (not safe)) - (_g207184207198_ _g207185207201_)))))) + (_g108124108138_ _g108125108141_)))))) (declare (not safe)) - (_g207183207248_ _stx207181_)))) + (_g108123108188_ _stx108121_)))) (define gxc#collect-begin-annotation% - (lambda (_stx207104_ . _args207105_) - (let* ((_g207107207124_ - (lambda (_g207108207121_) + (lambda (_stx108044_ . _args108045_) + (let* ((_g108047108064_ + (lambda (_g108048108061_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g207108207121_)))) - (_g207106207178_ - (lambda (_g207108207127_) + _g108048108061_)))) + (_g108046108118_ + (lambda (_g108048108067_) (if (let () (declare (not safe)) - (gx#stx-pair? _g207108207127_)) - (let ((_e207113207129_ + (gx#stx-pair? _g108048108067_)) + (let ((_e108053108069_ (let () (declare (not safe)) - (gx#stx-e _g207108207127_)))) - (let ((_hd207112207132_ + (gx#stx-e _g108048108067_)))) + (let ((_hd108052108072_ (let () (declare (not safe)) - (##car _e207113207129_))) - (_tl207111207134_ + (##car _e108053108069_))) + (_tl108051108074_ (let () (declare (not safe)) - (##cdr _e207113207129_)))) + (##cdr _e108053108069_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl207111207134_)) - (let ((_e207116207137_ + (gx#stx-pair? _tl108051108074_)) + (let ((_e108056108077_ (let () (declare (not safe)) - (gx#stx-e _tl207111207134_)))) - (let ((_hd207115207140_ + (gx#stx-e _tl108051108074_)))) + (let ((_hd108055108080_ (let () (declare (not safe)) - (##car _e207116207137_))) - (_tl207114207142_ + (##car _e108056108077_))) + (_tl108054108082_ (let () (declare (not safe)) - (##cdr _e207116207137_)))) + (##cdr _e108056108077_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl207114207142_)) - (let ((_e207119207145_ + (gx#stx-pair? _tl108054108082_)) + (let ((_e108059108085_ (let () (declare (not safe)) - (gx#stx-e _tl207114207142_)))) - (let ((_hd207118207148_ + (gx#stx-e _tl108054108082_)))) + (let ((_hd108058108088_ (let () (declare (not safe)) - (##car _e207119207145_))) - (_tl207117207150_ + (##car _e108059108085_))) + (_tl108057108090_ (let () (declare (not safe)) - (##cdr _e207119207145_)))) + (##cdr _e108059108085_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl207117207150_)) - ((lambda (_L207153_ _L207154_) + _tl108057108090_)) + ((lambda (_L108093_ _L108094_) (if (let () (declare (not safe)) - (null? _args207105_)) + (null? _args108045_)) (let () (declare (not safe)) (gxc#compile-e__0 - _L207153_)) - (let ((_arg1207169_ - (car _args207105_)) - (_rest207171_ - (cdr _args207105_))) + _L108093_)) + (let ((_arg1108109_ + (car _args108045_)) + (_rest108111_ + (cdr _args108045_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest207171_)) + (null? _rest108111_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L207153_ _arg1207169_)) - (let ((_arg2207174_ (car _rest207171_)) - (_rest207176_ (cdr _rest207171_))) - (if (let () (declare (not safe)) (null? _rest207176_)) + (gxc#compile-e__1 _L108093_ _arg1108109_)) + (let ((_arg2108114_ (car _rest108111_)) + (_rest108116_ (cdr _rest108111_))) + (if (let () (declare (not safe)) (null? _rest108116_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L207153_ - _arg1207169_ - _arg2207174_)) + _L108093_ + _arg1108109_ + _arg2108114_)) (apply gxc#compile-e - _L207153_ - _arg1207169_ - _arg2207174_ - _rest207176_))))))) + _L108093_ + _arg1108109_ + _arg2108114_ + _rest108116_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd207118207148_ - _hd207115207140_) + _hd108058108088_ + _hd108055108080_) (let () (declare (not safe)) - (_g207107207124_ - _g207108207127_))))) + (_g108047108064_ + _g108048108067_))))) (let () (declare (not safe)) - (_g207107207124_ _g207108207127_))))) + (_g108047108064_ _g108048108067_))))) (let () (declare (not safe)) - (_g207107207124_ _g207108207127_))))) + (_g108047108064_ _g108048108067_))))) (let () (declare (not safe)) - (_g207107207124_ _g207108207127_)))))) + (_g108047108064_ _g108048108067_)))))) (declare (not safe)) - (_g207106207178_ _stx207104_)))) + (_g108046108118_ _stx108044_)))) (define gxc#collect-define-values% - (lambda (_stx207027_ . _args207028_) - (let* ((_g207030207047_ - (lambda (_g207031207044_) + (lambda (_stx107967_ . _args107968_) + (let* ((_g107970107987_ + (lambda (_g107971107984_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g207031207044_)))) - (_g207029207101_ - (lambda (_g207031207050_) + _g107971107984_)))) + (_g107969108041_ + (lambda (_g107971107990_) (if (let () (declare (not safe)) - (gx#stx-pair? _g207031207050_)) - (let ((_e207036207052_ + (gx#stx-pair? _g107971107990_)) + (let ((_e107976107992_ (let () (declare (not safe)) - (gx#stx-e _g207031207050_)))) - (let ((_hd207035207055_ + (gx#stx-e _g107971107990_)))) + (let ((_hd107975107995_ (let () (declare (not safe)) - (##car _e207036207052_))) - (_tl207034207057_ + (##car _e107976107992_))) + (_tl107974107997_ (let () (declare (not safe)) - (##cdr _e207036207052_)))) + (##cdr _e107976107992_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl207034207057_)) - (let ((_e207039207060_ + (gx#stx-pair? _tl107974107997_)) + (let ((_e107979108000_ (let () (declare (not safe)) - (gx#stx-e _tl207034207057_)))) - (let ((_hd207038207063_ + (gx#stx-e _tl107974107997_)))) + (let ((_hd107978108003_ (let () (declare (not safe)) - (##car _e207039207060_))) - (_tl207037207065_ + (##car _e107979108000_))) + (_tl107977108005_ (let () (declare (not safe)) - (##cdr _e207039207060_)))) + (##cdr _e107979108000_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl207037207065_)) - (let ((_e207042207068_ + (gx#stx-pair? _tl107977108005_)) + (let ((_e107982108008_ (let () (declare (not safe)) - (gx#stx-e _tl207037207065_)))) - (let ((_hd207041207071_ + (gx#stx-e _tl107977108005_)))) + (let ((_hd107981108011_ (let () (declare (not safe)) - (##car _e207042207068_))) - (_tl207040207073_ + (##car _e107982108008_))) + (_tl107980108013_ (let () (declare (not safe)) - (##cdr _e207042207068_)))) + (##cdr _e107982108008_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl207040207073_)) - ((lambda (_L207076_ _L207077_) + _tl107980108013_)) + ((lambda (_L108016_ _L108017_) (if (let () (declare (not safe)) - (null? _args207028_)) + (null? _args107968_)) (let () (declare (not safe)) (gxc#compile-e__0 - _L207076_)) - (let ((_arg1207092_ - (car _args207028_)) - (_rest207094_ - (cdr _args207028_))) + _L108016_)) + (let ((_arg1108032_ + (car _args107968_)) + (_rest108034_ + (cdr _args107968_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest207094_)) + (null? _rest108034_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L207076_ _arg1207092_)) - (let ((_arg2207097_ (car _rest207094_)) - (_rest207099_ (cdr _rest207094_))) - (if (let () (declare (not safe)) (null? _rest207099_)) + (gxc#compile-e__1 _L108016_ _arg1108032_)) + (let ((_arg2108037_ (car _rest108034_)) + (_rest108039_ (cdr _rest108034_))) + (if (let () (declare (not safe)) (null? _rest108039_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L207076_ - _arg1207092_ - _arg2207097_)) + _L108016_ + _arg1108032_ + _arg2108037_)) (apply gxc#compile-e - _L207076_ - _arg1207092_ - _arg2207097_ - _rest207099_))))))) + _L108016_ + _arg1108032_ + _arg2108037_ + _rest108039_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd207041207071_ - _hd207038207063_) + _hd107981108011_ + _hd107978108003_) (let () (declare (not safe)) - (_g207030207047_ - _g207031207050_))))) + (_g107970107987_ + _g107971107990_))))) (let () (declare (not safe)) - (_g207030207047_ _g207031207050_))))) + (_g107970107987_ _g107971107990_))))) (let () (declare (not safe)) - (_g207030207047_ _g207031207050_))))) + (_g107970107987_ _g107971107990_))))) (let () (declare (not safe)) - (_g207030207047_ _g207031207050_)))))) + (_g107970107987_ _g107971107990_)))))) (declare (not safe)) - (_g207029207101_ _stx207027_)))) + (_g107969108041_ _stx107967_)))) (define gxc#collect-define-syntax% - (lambda (_stx206949_ . _args206950_) - (let* ((_g206952206969_ - (lambda (_g206953206966_) + (lambda (_stx107889_ . _args107890_) + (let* ((_g107892107909_ + (lambda (_g107893107906_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g206953206966_)))) - (_g206951207024_ - (lambda (_g206953206972_) + _g107893107906_)))) + (_g107891107964_ + (lambda (_g107893107912_) (if (let () (declare (not safe)) - (gx#stx-pair? _g206953206972_)) - (let ((_e206958206974_ + (gx#stx-pair? _g107893107912_)) + (let ((_e107898107914_ (let () (declare (not safe)) - (gx#stx-e _g206953206972_)))) - (let ((_hd206957206977_ + (gx#stx-e _g107893107912_)))) + (let ((_hd107897107917_ (let () (declare (not safe)) - (##car _e206958206974_))) - (_tl206956206979_ + (##car _e107898107914_))) + (_tl107896107919_ (let () (declare (not safe)) - (##cdr _e206958206974_)))) + (##cdr _e107898107914_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl206956206979_)) - (let ((_e206961206982_ + (gx#stx-pair? _tl107896107919_)) + (let ((_e107901107922_ (let () (declare (not safe)) - (gx#stx-e _tl206956206979_)))) - (let ((_hd206960206985_ + (gx#stx-e _tl107896107919_)))) + (let ((_hd107900107925_ (let () (declare (not safe)) - (##car _e206961206982_))) - (_tl206959206987_ + (##car _e107901107922_))) + (_tl107899107927_ (let () (declare (not safe)) - (##cdr _e206961206982_)))) + (##cdr _e107901107922_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl206959206987_)) - (let ((_e206964206990_ + (gx#stx-pair? _tl107899107927_)) + (let ((_e107904107930_ (let () (declare (not safe)) - (gx#stx-e _tl206959206987_)))) - (let ((_hd206963206993_ + (gx#stx-e _tl107899107927_)))) + (let ((_hd107903107933_ (let () (declare (not safe)) - (##car _e206964206990_))) - (_tl206962206995_ + (##car _e107904107930_))) + (_tl107902107935_ (let () (declare (not safe)) - (##cdr _e206964206990_)))) + (##cdr _e107904107930_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl206962206995_)) - ((lambda (_L206998_ _L206999_) - (let ((__tmp213929 + _tl107902107935_)) + ((lambda (_L107938_ _L107939_) + (let ((__tmp110301 (lambda () (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (null? _args206950_)) + (null? _args107890_)) (let () (declare (not safe)) - (gxc#compile-e__0 _L206998_)) - (let ((_arg1207015_ (car _args206950_)) - (_rest207017_ (cdr _args206950_))) + (gxc#compile-e__0 _L107938_)) + (let ((_arg1107955_ (car _args107890_)) + (_rest107957_ (cdr _args107890_))) (if (let () (declare (not safe)) - (null? _rest207017_)) + (null? _rest107957_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L206998_ _arg1207015_)) - (let ((_arg2207020_ (car _rest207017_)) - (_rest207022_ (cdr _rest207017_))) + (gxc#compile-e__1 _L107938_ _arg1107955_)) + (let ((_arg2107960_ (car _rest107957_)) + (_rest107962_ (cdr _rest107957_))) (if (let () (declare (not safe)) - (null? _rest207022_)) + (null? _rest107962_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L206998_ - _arg1207015_ - _arg2207020_)) + _L107938_ + _arg1107955_ + _arg2107960_)) (apply gxc#compile-e - _L206998_ - _arg1207015_ - _arg2207020_ - _rest207022_)))))))) - (__tmp213927 - (let ((__tmp213928 (gx#current-expander-phi))) + _L107938_ + _arg1107955_ + _arg2107960_ + _rest107962_)))))))) + (__tmp110299 + (let ((__tmp110300 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp213928 '1)))) + (fx+ __tmp110300 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp213929 + __tmp110301 gx#current-expander-phi - __tmp213927))) - _hd206963206993_ - _hd206960206985_) + __tmp110299))) + _hd107903107933_ + _hd107900107925_) (let () (declare (not safe)) - (_g206952206969_ - _g206953206972_))))) + (_g107892107909_ + _g107893107912_))))) (let () (declare (not safe)) - (_g206952206969_ _g206953206972_))))) + (_g107892107909_ _g107893107912_))))) (let () (declare (not safe)) - (_g206952206969_ _g206953206972_))))) + (_g107892107909_ _g107893107912_))))) (let () (declare (not safe)) - (_g206952206969_ _g206953206972_)))))) + (_g107892107909_ _g107893107912_)))))) (declare (not safe)) - (_g206951207024_ _stx206949_)))) + (_g107891107964_ _stx107889_)))) (define gxc#collect-body-lambda% - (lambda (_stx206872_ . _args206873_) - (let* ((_g206875206892_ - (lambda (_g206876206889_) + (lambda (_stx107812_ . _args107813_) + (let* ((_g107815107832_ + (lambda (_g107816107829_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g206876206889_)))) - (_g206874206946_ - (lambda (_g206876206895_) + _g107816107829_)))) + (_g107814107886_ + (lambda (_g107816107835_) (if (let () (declare (not safe)) - (gx#stx-pair? _g206876206895_)) - (let ((_e206881206897_ + (gx#stx-pair? _g107816107835_)) + (let ((_e107821107837_ (let () (declare (not safe)) - (gx#stx-e _g206876206895_)))) - (let ((_hd206880206900_ + (gx#stx-e _g107816107835_)))) + (let ((_hd107820107840_ (let () (declare (not safe)) - (##car _e206881206897_))) - (_tl206879206902_ + (##car _e107821107837_))) + (_tl107819107842_ (let () (declare (not safe)) - (##cdr _e206881206897_)))) + (##cdr _e107821107837_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl206879206902_)) - (let ((_e206884206905_ + (gx#stx-pair? _tl107819107842_)) + (let ((_e107824107845_ (let () (declare (not safe)) - (gx#stx-e _tl206879206902_)))) - (let ((_hd206883206908_ + (gx#stx-e _tl107819107842_)))) + (let ((_hd107823107848_ (let () (declare (not safe)) - (##car _e206884206905_))) - (_tl206882206910_ + (##car _e107824107845_))) + (_tl107822107850_ (let () (declare (not safe)) - (##cdr _e206884206905_)))) + (##cdr _e107824107845_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl206882206910_)) - (let ((_e206887206913_ + (gx#stx-pair? _tl107822107850_)) + (let ((_e107827107853_ (let () (declare (not safe)) - (gx#stx-e _tl206882206910_)))) - (let ((_hd206886206916_ + (gx#stx-e _tl107822107850_)))) + (let ((_hd107826107856_ (let () (declare (not safe)) - (##car _e206887206913_))) - (_tl206885206918_ + (##car _e107827107853_))) + (_tl107825107858_ (let () (declare (not safe)) - (##cdr _e206887206913_)))) + (##cdr _e107827107853_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl206885206918_)) - ((lambda (_L206921_ _L206922_) + _tl107825107858_)) + ((lambda (_L107861_ _L107862_) (if (let () (declare (not safe)) - (null? _args206873_)) + (null? _args107813_)) (let () (declare (not safe)) (gxc#compile-e__0 - _L206921_)) - (let ((_arg1206937_ - (car _args206873_)) - (_rest206939_ - (cdr _args206873_))) + _L107861_)) + (let ((_arg1107877_ + (car _args107813_)) + (_rest107879_ + (cdr _args107813_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest206939_)) + (null? _rest107879_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L206921_ _arg1206937_)) - (let ((_arg2206942_ (car _rest206939_)) - (_rest206944_ (cdr _rest206939_))) - (if (let () (declare (not safe)) (null? _rest206944_)) + (gxc#compile-e__1 _L107861_ _arg1107877_)) + (let ((_arg2107882_ (car _rest107879_)) + (_rest107884_ (cdr _rest107879_))) + (if (let () (declare (not safe)) (null? _rest107884_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L206921_ - _arg1206937_ - _arg2206942_)) + _L107861_ + _arg1107877_ + _arg2107882_)) (apply gxc#compile-e - _L206921_ - _arg1206937_ - _arg2206942_ - _rest206944_))))))) + _L107861_ + _arg1107877_ + _arg2107882_ + _rest107884_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd206886206916_ - _hd206883206908_) + _hd107826107856_ + _hd107823107848_) (let () (declare (not safe)) - (_g206875206892_ - _g206876206895_))))) + (_g107815107832_ + _g107816107835_))))) (let () (declare (not safe)) - (_g206875206892_ _g206876206895_))))) + (_g107815107832_ _g107816107835_))))) (let () (declare (not safe)) - (_g206875206892_ _g206876206895_))))) + (_g107815107832_ _g107816107835_))))) (let () (declare (not safe)) - (_g206875206892_ _g206876206895_)))))) + (_g107815107832_ _g107816107835_)))))) (declare (not safe)) - (_g206874206946_ _stx206872_)))) + (_g107814107886_ _stx107812_)))) (define gxc#collect-body-case-lambda% - (lambda (_stx206747_ . _args206748_) - (let* ((_g206750206778_ - (lambda (_g206751206775_) + (lambda (_stx107687_ . _args107688_) + (let* ((_g107690107718_ + (lambda (_g107691107715_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g206751206775_)))) - (_g206749206869_ - (lambda (_g206751206781_) + _g107691107715_)))) + (_g107689107809_ + (lambda (_g107691107721_) (if (let () (declare (not safe)) - (gx#stx-pair? _g206751206781_)) - (let ((_e206756206783_ + (gx#stx-pair? _g107691107721_)) + (let ((_e107696107723_ (let () (declare (not safe)) - (gx#stx-e _g206751206781_)))) - (let ((_hd206755206786_ + (gx#stx-e _g107691107721_)))) + (let ((_hd107695107726_ (let () (declare (not safe)) - (##car _e206756206783_))) - (_tl206754206788_ + (##car _e107696107723_))) + (_tl107694107728_ (let () (declare (not safe)) - (##cdr _e206756206783_)))) + (##cdr _e107696107723_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl206754206788_)) - (let ((_g213930_ + (gx#stx-pair/null? _tl107694107728_)) + (let ((_g110302_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl206754206788_ + _tl107694107728_ '0)))) (begin - (let ((_g213931_ + (let ((_g110303_ (let () (declare (not safe)) - (if (##values? _g213930_) - (##vector-length _g213930_) + (if (##values? _g110302_) + (##vector-length _g110302_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g213931_ 2))) + (##fx= _g110303_ 2))) (error "Context expects 2 values" - _g213931_))) - (let ((_target206757206791_ + _g110303_))) + (let ((_target107697107731_ (let () (declare (not safe)) - (##vector-ref _g213930_ 0))) - (_tl206759206793_ + (##vector-ref _g110302_ 0))) + (_tl107699107733_ (let () (declare (not safe)) - (##vector-ref _g213930_ 1)))) + (##vector-ref _g110302_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl206759206793_)) - (letrec ((_loop206760206796_ - (lambda (_hd206758206799_ - _body206764206801_ - _hd206765206803_) + (gx#stx-null? _tl107699107733_)) + (letrec ((_loop107700107736_ + (lambda (_hd107698107739_ + _body107704107741_ + _hd107705107743_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd206758206799_)) - (let ((_e206761206806_ + _hd107698107739_)) + (let ((_e107701107746_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd206758206799_)))) - (let ((_lp-hd206762206809_ + (gx#stx-e _hd107698107739_)))) + (let ((_lp-hd107702107749_ (let () (declare (not safe)) - (##car _e206761206806_))) - (_lp-tl206763206811_ + (##car _e107701107746_))) + (_lp-tl107703107751_ (let () (declare (not safe)) - (##cdr _e206761206806_)))) + (##cdr _e107701107746_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd206762206809_)) - (let ((_e206770206814_ + (gx#stx-pair? _lp-hd107702107749_)) + (let ((_e107710107754_ (let () (declare (not safe)) - (gx#stx-e _lp-hd206762206809_)))) - (let ((_hd206769206817_ + (gx#stx-e _lp-hd107702107749_)))) + (let ((_hd107709107757_ (let () (declare (not safe)) - (##car _e206770206814_))) - (_tl206768206819_ + (##car _e107710107754_))) + (_tl107708107759_ (let () (declare (not safe)) - (##cdr _e206770206814_)))) + (##cdr _e107710107754_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl206768206819_)) - (let ((_e206773206822_ + (gx#stx-pair? _tl107708107759_)) + (let ((_e107713107762_ (let () (declare (not safe)) - (gx#stx-e _tl206768206819_)))) - (let ((_hd206772206825_ + (gx#stx-e _tl107708107759_)))) + (let ((_hd107712107765_ (let () (declare (not safe)) - (##car _e206773206822_))) - (_tl206771206827_ + (##car _e107713107762_))) + (_tl107711107767_ (let () (declare (not safe)) - (##cdr _e206773206822_)))) + (##cdr _e107713107762_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl206771206827_)) - (let ((__tmp213934 + (gx#stx-null? _tl107711107767_)) + (let ((__tmp110306 (let () (declare (not safe)) - (cons _hd206772206825_ - _body206764206801_))) - (__tmp213933 + (cons _hd107712107765_ + _body107704107741_))) + (__tmp110305 (let () (declare (not safe)) - (cons _hd206769206817_ - _hd206765206803_)))) + (cons _hd107709107757_ + _hd107705107743_)))) (declare (not safe)) - (_loop206760206796_ - _lp-tl206763206811_ - __tmp213934 - __tmp213933)) + (_loop107700107736_ + _lp-tl107703107751_ + __tmp110306 + __tmp110305)) (let () (declare (not safe)) - (_g206750206778_ - _g206751206781_))))) + (_g107690107718_ + _g107691107721_))))) (let () (declare (not safe)) - (_g206750206778_ _g206751206781_))))) + (_g107690107718_ _g107691107721_))))) (let () (declare (not safe)) - (_g206750206778_ _g206751206781_))))) - (let ((_body206766206830_ (reverse _body206764206801_)) - (_hd206767206832_ (reverse _hd206765206803_))) - ((lambda (_L206835_ _L206836_) + (_g107690107718_ _g107691107721_))))) + (let ((_body107706107770_ (reverse _body107704107741_)) + (_hd107707107772_ (reverse _hd107705107743_))) + ((lambda (_L107775_ _L107776_) (for-each - (lambda (_stx206851_) + (lambda (_stx107791_) (if (let () (declare (not safe)) - (null? _args206748_)) + (null? _args107688_)) (let () (declare (not safe)) - (gxc#compile-e__0 _stx206851_)) - (let ((_arg1206853_ (car _args206748_)) - (_rest206855_ (cdr _args206748_))) + (gxc#compile-e__0 _stx107791_)) + (let ((_arg1107793_ (car _args107688_)) + (_rest107795_ (cdr _args107688_))) (if (let () (declare (not safe)) - (null? _rest206855_)) + (null? _rest107795_)) (let () (declare (not safe)) (gxc#compile-e__1 - _stx206851_ - _arg1206853_)) - (let ((_arg2206858_ (car _rest206855_)) - (_rest206860_ (cdr _rest206855_))) + _stx107791_ + _arg1107793_)) + (let ((_arg2107798_ (car _rest107795_)) + (_rest107800_ (cdr _rest107795_))) (if (let () (declare (not safe)) - (null? _rest206860_)) + (null? _rest107800_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx206851_ - _arg1206853_ - _arg2206858_)) + _stx107791_ + _arg1107793_ + _arg2107798_)) (apply gxc#compile-e - _stx206851_ - _arg1206853_ - _arg2206858_ - _rest206860_))))))) - (let ((__tmp213932 - (lambda (_g206861206864_ _g206862206866_) + _stx107791_ + _arg1107793_ + _arg2107798_ + _rest107800_))))))) + (let ((__tmp110304 + (lambda (_g107801107804_ _g107802107806_) (let () (declare (not safe)) - (cons _g206861206864_ _g206862206866_))))) + (cons _g107801107804_ _g107802107806_))))) (declare (not safe)) - (foldr1 __tmp213932 '() _L206835_)))) - _body206766206830_ - _hd206767206832_)))))) + (foldr1 __tmp110304 '() _L107775_)))) + _body107706107770_ + _hd107707107772_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop206760206796_ - _target206757206791_ + (_loop107700107736_ + _target107697107731_ '() '()))) (let () (declare (not safe)) - (_g206750206778_ - _g206751206781_)))))) + (_g107690107718_ + _g107691107721_)))))) (let () (declare (not safe)) - (_g206750206778_ _g206751206781_))))) + (_g107690107718_ _g107691107721_))))) (let () (declare (not safe)) - (_g206750206778_ _g206751206781_)))))) + (_g107690107718_ _g107691107721_)))))) (declare (not safe)) - (_g206749206869_ _stx206747_)))) + (_g107689107809_ _stx107687_)))) (define gxc#collect-body-let-values% - (lambda (_stx206593_ . _args206594_) - (let* ((_g206596206631_ - (lambda (_g206597206628_) + (lambda (_stx107533_ . _args107534_) + (let* ((_g107536107571_ + (lambda (_g107537107568_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g206597206628_)))) - (_g206595206744_ - (lambda (_g206597206634_) + _g107537107568_)))) + (_g107535107684_ + (lambda (_g107537107574_) (if (let () (declare (not safe)) - (gx#stx-pair? _g206597206634_)) - (let ((_e206603206636_ + (gx#stx-pair? _g107537107574_)) + (let ((_e107543107576_ (let () (declare (not safe)) - (gx#stx-e _g206597206634_)))) - (let ((_hd206602206639_ + (gx#stx-e _g107537107574_)))) + (let ((_hd107542107579_ (let () (declare (not safe)) - (##car _e206603206636_))) - (_tl206601206641_ + (##car _e107543107576_))) + (_tl107541107581_ (let () (declare (not safe)) - (##cdr _e206603206636_)))) + (##cdr _e107543107576_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl206601206641_)) - (let ((_e206606206644_ + (gx#stx-pair? _tl107541107581_)) + (let ((_e107546107584_ (let () (declare (not safe)) - (gx#stx-e _tl206601206641_)))) - (let ((_hd206605206647_ + (gx#stx-e _tl107541107581_)))) + (let ((_hd107545107587_ (let () (declare (not safe)) - (##car _e206606206644_))) - (_tl206604206649_ + (##car _e107546107584_))) + (_tl107544107589_ (let () (declare (not safe)) - (##cdr _e206606206644_)))) + (##cdr _e107546107584_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd206605206647_)) - (let ((_g213935_ + (gx#stx-pair/null? _hd107545107587_)) + (let ((_g110307_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd206605206647_ + _hd107545107587_ '0)))) (begin - (let ((_g213936_ + (let ((_g110308_ (let () (declare (not safe)) - (if (##values? _g213935_) + (if (##values? _g110307_) (##vector-length - _g213935_) + _g110307_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g213936_ 2))) + (##fx= _g110308_ 2))) (error "Context expects 2 values" - _g213936_))) - (let ((_target206607206652_ + _g110308_))) + (let ((_target107547107592_ (let () (declare (not safe)) (##vector-ref - _g213935_ + _g110307_ 0))) - (_tl206609206654_ + (_tl107549107594_ (let () (declare (not safe)) (##vector-ref - _g213935_ + _g110307_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl206609206654_)) - (letrec ((_loop206610206657_ - (lambda (_hd206608206660_ + _tl107549107594_)) + (letrec ((_loop107550107597_ + (lambda (_hd107548107600_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr206614206662_ - _hd206615206664_) + _expr107554107602_ + _hd107555107604_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd206608206660_)) - (let ((_e206611206667_ + (gx#stx-pair? _hd107548107600_)) + (let ((_e107551107607_ (let () (declare (not safe)) - (gx#stx-e _hd206608206660_)))) - (let ((_lp-hd206612206670_ + (gx#stx-e _hd107548107600_)))) + (let ((_lp-hd107552107610_ (let () (declare (not safe)) - (##car _e206611206667_))) - (_lp-tl206613206672_ + (##car _e107551107607_))) + (_lp-tl107553107612_ (let () (declare (not safe)) - (##cdr _e206611206667_)))) + (##cdr _e107551107607_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd206612206670_)) - (let ((_e206620206675_ + (gx#stx-pair? _lp-hd107552107610_)) + (let ((_e107560107615_ (let () (declare (not safe)) - (gx#stx-e _lp-hd206612206670_)))) - (let ((_hd206619206678_ + (gx#stx-e _lp-hd107552107610_)))) + (let ((_hd107559107618_ (let () (declare (not safe)) - (##car _e206620206675_))) - (_tl206618206680_ + (##car _e107560107615_))) + (_tl107558107620_ (let () (declare (not safe)) - (##cdr _e206620206675_)))) + (##cdr _e107560107615_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl206618206680_)) - (let ((_e206623206683_ + (gx#stx-pair? _tl107558107620_)) + (let ((_e107563107623_ (let () (declare (not safe)) (gx#stx-e - _tl206618206680_)))) - (let ((_hd206622206686_ + _tl107558107620_)))) + (let ((_hd107562107626_ (let () (declare (not safe)) - (##car _e206623206683_))) - (_tl206621206688_ + (##car _e107563107623_))) + (_tl107561107628_ (let () (declare (not safe)) - (##cdr _e206623206683_)))) + (##cdr _e107563107623_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl206621206688_)) - (let ((__tmp213940 + _tl107561107628_)) + (let ((__tmp110312 (let () (declare (not safe)) - (cons _hd206622206686_ + (cons _hd107562107626_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr206614206662_))) - (__tmp213939 + _expr107554107602_))) + (__tmp110311 (let () (declare (not safe)) - (cons _hd206619206678_ _hd206615206664_)))) + (cons _hd107559107618_ _hd107555107604_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop206610206657_ - _lp-tl206613206672_ - __tmp213940 - __tmp213939)) + (_loop107550107597_ + _lp-tl107553107612_ + __tmp110312 + __tmp110311)) (let () (declare (not safe)) - (_g206596206631_ - _g206597206634_))))) + (_g107536107571_ + _g107537107574_))))) (let () (declare (not safe)) - (_g206596206631_ - _g206597206634_))))) + (_g107536107571_ + _g107537107574_))))) (let () (declare (not safe)) - (_g206596206631_ _g206597206634_))))) - (let ((_expr206616206691_ - (reverse _expr206614206662_)) - (_hd206617206693_ (reverse _hd206615206664_))) + (_g107536107571_ _g107537107574_))))) + (let ((_expr107556107631_ + (reverse _expr107554107602_)) + (_hd107557107633_ (reverse _hd107555107604_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl206604206649_)) - (let ((_e206626206696_ + (gx#stx-pair? _tl107544107589_)) + (let ((_e107566107636_ (let () (declare (not safe)) - (gx#stx-e _tl206604206649_)))) - (let ((_hd206625206699_ + (gx#stx-e _tl107544107589_)))) + (let ((_hd107565107639_ (let () (declare (not safe)) - (##car _e206626206696_))) - (_tl206624206701_ + (##car _e107566107636_))) + (_tl107564107641_ (let () (declare (not safe)) - (##cdr _e206626206696_)))) + (##cdr _e107566107636_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl206624206701_)) - ((lambda (_L206704_ - _L206705_ - _L206706_) + (gx#stx-null? _tl107564107641_)) + ((lambda (_L107644_ + _L107645_ + _L107646_) (for-each - (lambda (_stx206726_) + (lambda (_stx107666_) (if (let () (declare (not safe)) - (null? _args206594_)) + (null? _args107534_)) (let () (declare (not safe)) (gxc#compile-e__0 - _stx206726_)) - (let ((_arg1206728_ - (car _args206594_)) - (_rest206730_ - (cdr _args206594_))) + _stx107666_)) + (let ((_arg1107668_ + (car _args107534_)) + (_rest107670_ + (cdr _args107534_))) (if (let () (declare (not safe)) - (null? _rest206730_)) + (null? _rest107670_)) (let () (declare (not safe)) (gxc#compile-e__1 - _stx206726_ - _arg1206728_)) - (let ((_arg2206733_ - (car _rest206730_)) - (_rest206735_ - (cdr _rest206730_))) + _stx107666_ + _arg1107668_)) + (let ((_arg2107673_ + (car _rest107670_)) + (_rest107675_ + (cdr _rest107670_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest206735_)) + (null? _rest107675_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx206726_ - _arg1206728_ - _arg2206733_)) + _stx107666_ + _arg1107668_ + _arg2107673_)) (apply gxc#compile-e - _stx206726_ - _arg1206728_ - _arg2206733_ - _rest206735_))))))) + _stx107666_ + _arg1107668_ + _arg2107673_ + _rest107675_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp213938 - (lambda (_g206736206739_ - _g206737206741_) + (let ((__tmp110310 + (lambda (_g107676107679_ + _g107677107681_) (let () (declare (not safe)) - (cons _g206736206739_ - _g206737206741_)))) - (__tmp213937 + (cons _g107676107679_ + _g107677107681_)))) + (__tmp110309 (let () (declare (not safe)) - (cons _L206704_ '())))) + (cons _L107644_ '())))) (declare (not safe)) - (foldr1 __tmp213938 - __tmp213937 - _L206705_)))) - _hd206625206699_ - _expr206616206691_ - _hd206617206693_) + (foldr1 __tmp110310 + __tmp110309 + _L107645_)))) + _hd107565107639_ + _expr107556107631_ + _hd107557107633_) (let () (declare (not safe)) - (_g206596206631_ _g206597206634_))))) + (_g107536107571_ _g107537107574_))))) (let () (declare (not safe)) - (_g206596206631_ _g206597206634_)))))))) + (_g107536107571_ _g107537107574_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop206610206657_ - _target206607206652_ + (_loop107550107597_ + _target107547107592_ '() '()))) (let () (declare (not safe)) - (_g206596206631_ - _g206597206634_)))))) + (_g107536107571_ + _g107537107574_)))))) (let () (declare (not safe)) - (_g206596206631_ _g206597206634_))))) + (_g107536107571_ _g107537107574_))))) (let () (declare (not safe)) - (_g206596206631_ _g206597206634_))))) + (_g107536107571_ _g107537107574_))))) (let () (declare (not safe)) - (_g206596206631_ _g206597206634_)))))) + (_g107536107571_ _g107537107574_)))))) (declare (not safe)) - (_g206595206744_ _stx206593_)))) + (_g107535107684_ _stx107533_)))) (define gxc#collect-body-setq% - (lambda (_stx206516_ . _args206517_) - (let* ((_g206519206536_ - (lambda (_g206520206533_) + (lambda (_stx107456_ . _args107457_) + (let* ((_g107459107476_ + (lambda (_g107460107473_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g206520206533_)))) - (_g206518206590_ - (lambda (_g206520206539_) + _g107460107473_)))) + (_g107458107530_ + (lambda (_g107460107479_) (if (let () (declare (not safe)) - (gx#stx-pair? _g206520206539_)) - (let ((_e206525206541_ + (gx#stx-pair? _g107460107479_)) + (let ((_e107465107481_ (let () (declare (not safe)) - (gx#stx-e _g206520206539_)))) - (let ((_hd206524206544_ + (gx#stx-e _g107460107479_)))) + (let ((_hd107464107484_ (let () (declare (not safe)) - (##car _e206525206541_))) - (_tl206523206546_ + (##car _e107465107481_))) + (_tl107463107486_ (let () (declare (not safe)) - (##cdr _e206525206541_)))) + (##cdr _e107465107481_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl206523206546_)) - (let ((_e206528206549_ + (gx#stx-pair? _tl107463107486_)) + (let ((_e107468107489_ (let () (declare (not safe)) - (gx#stx-e _tl206523206546_)))) - (let ((_hd206527206552_ + (gx#stx-e _tl107463107486_)))) + (let ((_hd107467107492_ (let () (declare (not safe)) - (##car _e206528206549_))) - (_tl206526206554_ + (##car _e107468107489_))) + (_tl107466107494_ (let () (declare (not safe)) - (##cdr _e206528206549_)))) + (##cdr _e107468107489_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl206526206554_)) - (let ((_e206531206557_ + (gx#stx-pair? _tl107466107494_)) + (let ((_e107471107497_ (let () (declare (not safe)) - (gx#stx-e _tl206526206554_)))) - (let ((_hd206530206560_ + (gx#stx-e _tl107466107494_)))) + (let ((_hd107470107500_ (let () (declare (not safe)) - (##car _e206531206557_))) - (_tl206529206562_ + (##car _e107471107497_))) + (_tl107469107502_ (let () (declare (not safe)) - (##cdr _e206531206557_)))) + (##cdr _e107471107497_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl206529206562_)) - ((lambda (_L206565_ _L206566_) + _tl107469107502_)) + ((lambda (_L107505_ _L107506_) (if (let () (declare (not safe)) - (null? _args206517_)) + (null? _args107457_)) (let () (declare (not safe)) (gxc#compile-e__0 - _L206565_)) - (let ((_arg1206581_ - (car _args206517_)) - (_rest206583_ - (cdr _args206517_))) + _L107505_)) + (let ((_arg1107521_ + (car _args107457_)) + (_rest107523_ + (cdr _args107457_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest206583_)) + (null? _rest107523_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L206565_ _arg1206581_)) - (let ((_arg2206586_ (car _rest206583_)) - (_rest206588_ (cdr _rest206583_))) - (if (let () (declare (not safe)) (null? _rest206588_)) + (gxc#compile-e__1 _L107505_ _arg1107521_)) + (let ((_arg2107526_ (car _rest107523_)) + (_rest107528_ (cdr _rest107523_))) + (if (let () (declare (not safe)) (null? _rest107528_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L206565_ - _arg1206581_ - _arg2206586_)) + _L107505_ + _arg1107521_ + _arg2107526_)) (apply gxc#compile-e - _L206565_ - _arg1206581_ - _arg2206586_ - _rest206588_))))))) + _L107505_ + _arg1107521_ + _arg2107526_ + _rest107528_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd206530206560_ - _hd206527206552_) + _hd107470107500_ + _hd107467107492_) (let () (declare (not safe)) - (_g206519206536_ - _g206520206539_))))) + (_g107459107476_ + _g107460107479_))))) (let () (declare (not safe)) - (_g206519206536_ _g206520206539_))))) + (_g107459107476_ _g107460107479_))))) (let () (declare (not safe)) - (_g206519206536_ _g206520206539_))))) + (_g107459107476_ _g107460107479_))))) (let () (declare (not safe)) - (_g206519206536_ _g206520206539_)))))) + (_g107459107476_ _g107460107479_)))))) (declare (not safe)) - (_g206518206590_ _stx206516_)))) + (_g107458107530_ _stx107456_)))) (define gxc#collect-operands - (lambda (_stx206422_ . _args206423_) - (let* ((_g206425206444_ - (lambda (_g206426206441_) + (lambda (_stx107362_ . _args107363_) + (let* ((_g107365107384_ + (lambda (_g107366107381_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g206426206441_)))) - (_g206424206513_ - (lambda (_g206426206447_) + _g107366107381_)))) + (_g107364107453_ + (lambda (_g107366107387_) (if (let () (declare (not safe)) - (gx#stx-pair? _g206426206447_)) - (let ((_e206430206449_ + (gx#stx-pair? _g107366107387_)) + (let ((_e107370107389_ (let () (declare (not safe)) - (gx#stx-e _g206426206447_)))) - (let ((_hd206429206452_ + (gx#stx-e _g107366107387_)))) + (let ((_hd107369107392_ (let () (declare (not safe)) - (##car _e206430206449_))) - (_tl206428206454_ + (##car _e107370107389_))) + (_tl107368107394_ (let () (declare (not safe)) - (##cdr _e206430206449_)))) + (##cdr _e107370107389_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl206428206454_)) - (let ((_g213941_ + (gx#stx-pair/null? _tl107368107394_)) + (let ((_g110313_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl206428206454_ + _tl107368107394_ '0)))) (begin - (let ((_g213942_ + (let ((_g110314_ (let () (declare (not safe)) - (if (##values? _g213941_) - (##vector-length _g213941_) + (if (##values? _g110313_) + (##vector-length _g110313_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g213942_ 2))) + (##fx= _g110314_ 2))) (error "Context expects 2 values" - _g213942_))) - (let ((_target206431206457_ + _g110314_))) + (let ((_target107371107397_ (let () (declare (not safe)) - (##vector-ref _g213941_ 0))) - (_tl206433206459_ + (##vector-ref _g110313_ 0))) + (_tl107373107399_ (let () (declare (not safe)) - (##vector-ref _g213941_ 1)))) + (##vector-ref _g110313_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl206433206459_)) - (letrec ((_loop206434206462_ - (lambda (_hd206432206465_ - _rands206438206467_) + (gx#stx-null? _tl107373107399_)) + (letrec ((_loop107374107402_ + (lambda (_hd107372107405_ + _rands107378107407_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd206432206465_)) - (let ((_e206435206470_ + _hd107372107405_)) + (let ((_e107375107410_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd206432206465_)))) - (let ((_lp-hd206436206473_ + (gx#stx-e _hd107372107405_)))) + (let ((_lp-hd107376107413_ (let () (declare (not safe)) - (##car _e206435206470_))) - (_lp-tl206437206475_ + (##car _e107375107410_))) + (_lp-tl107377107415_ (let () (declare (not safe)) - (##cdr _e206435206470_)))) - (let ((__tmp213944 + (##cdr _e107375107410_)))) + (let ((__tmp110316 (let () (declare (not safe)) - (cons _lp-hd206436206473_ - _rands206438206467_)))) + (cons _lp-hd107376107413_ + _rands107378107407_)))) (declare (not safe)) - (_loop206434206462_ _lp-tl206437206475_ __tmp213944)))) - (let ((_rands206439206478_ (reverse _rands206438206467_))) - ((lambda (_L206481_) + (_loop107374107402_ _lp-tl107377107415_ __tmp110316)))) + (let ((_rands107379107418_ (reverse _rands107378107407_))) + ((lambda (_L107421_) (for-each - (lambda (_stx206495_) + (lambda (_stx107435_) (if (let () (declare (not safe)) - (null? _args206423_)) + (null? _args107363_)) (let () (declare (not safe)) - (gxc#compile-e__0 _stx206495_)) - (let ((_arg1206497_ (car _args206423_)) - (_rest206499_ (cdr _args206423_))) + (gxc#compile-e__0 _stx107435_)) + (let ((_arg1107437_ (car _args107363_)) + (_rest107439_ (cdr _args107363_))) (if (let () (declare (not safe)) - (null? _rest206499_)) + (null? _rest107439_)) (let () (declare (not safe)) (gxc#compile-e__1 - _stx206495_ - _arg1206497_)) - (let ((_arg2206502_ (car _rest206499_)) - (_rest206504_ (cdr _rest206499_))) + _stx107435_ + _arg1107437_)) + (let ((_arg2107442_ (car _rest107439_)) + (_rest107444_ (cdr _rest107439_))) (if (let () (declare (not safe)) - (null? _rest206504_)) + (null? _rest107444_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx206495_ - _arg1206497_ - _arg2206502_)) + _stx107435_ + _arg1107437_ + _arg2107442_)) (apply gxc#compile-e - _stx206495_ - _arg1206497_ - _arg2206502_ - _rest206504_))))))) - (let ((__tmp213943 - (lambda (_g206505206508_ _g206506206510_) + _stx107435_ + _arg1107437_ + _arg2107442_ + _rest107444_))))))) + (let ((__tmp110315 + (lambda (_g107445107448_ _g107446107450_) (let () (declare (not safe)) - (cons _g206505206508_ _g206506206510_))))) + (cons _g107445107448_ _g107446107450_))))) (declare (not safe)) - (foldr1 __tmp213943 '() _L206481_)))) - _rands206439206478_)))))) + (foldr1 __tmp110315 '() _L107421_)))) + _rands107379107418_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop206434206462_ - _target206431206457_ + (_loop107374107402_ + _target107371107397_ '()))) (let () (declare (not safe)) - (_g206425206444_ - _g206426206447_)))))) + (_g107365107384_ + _g107366107387_)))))) (let () (declare (not safe)) - (_g206425206444_ _g206426206447_))))) + (_g107365107384_ _g107366107387_))))) (let () (declare (not safe)) - (_g206425206444_ _g206426206447_)))))) + (_g107365107384_ _g107366107387_)))))) (declare (not safe)) - (_g206424206513_ _stx206422_)))) + (_g107364107453_ _stx107362_)))) (define gxc#collect-bindings-define-values% - (lambda (_stx206353_) - (let* ((_g206355206372_ - (lambda (_g206356206369_) + (lambda (_stx107293_) + (let* ((_g107295107312_ + (lambda (_g107296107309_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g206356206369_)))) - (_g206354206419_ - (lambda (_g206356206375_) + _g107296107309_)))) + (_g107294107359_ + (lambda (_g107296107315_) (if (let () (declare (not safe)) - (gx#stx-pair? _g206356206375_)) - (let ((_e206361206377_ + (gx#stx-pair? _g107296107315_)) + (let ((_e107301107317_ (let () (declare (not safe)) - (gx#stx-e _g206356206375_)))) - (let ((_hd206360206380_ + (gx#stx-e _g107296107315_)))) + (let ((_hd107300107320_ (let () (declare (not safe)) - (##car _e206361206377_))) - (_tl206359206382_ + (##car _e107301107317_))) + (_tl107299107322_ (let () (declare (not safe)) - (##cdr _e206361206377_)))) + (##cdr _e107301107317_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl206359206382_)) - (let ((_e206364206385_ + (gx#stx-pair? _tl107299107322_)) + (let ((_e107304107325_ (let () (declare (not safe)) - (gx#stx-e _tl206359206382_)))) - (let ((_hd206363206388_ + (gx#stx-e _tl107299107322_)))) + (let ((_hd107303107328_ (let () (declare (not safe)) - (##car _e206364206385_))) - (_tl206362206390_ + (##car _e107304107325_))) + (_tl107302107330_ (let () (declare (not safe)) - (##cdr _e206364206385_)))) + (##cdr _e107304107325_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl206362206390_)) - (let ((_e206367206393_ + (gx#stx-pair? _tl107302107330_)) + (let ((_e107307107333_ (let () (declare (not safe)) - (gx#stx-e _tl206362206390_)))) - (let ((_hd206366206396_ + (gx#stx-e _tl107302107330_)))) + (let ((_hd107306107336_ (let () (declare (not safe)) - (##car _e206367206393_))) - (_tl206365206398_ + (##car _e107307107333_))) + (_tl107305107338_ (let () (declare (not safe)) - (##cdr _e206367206393_)))) + (##cdr _e107307107333_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl206365206398_)) - ((lambda (_L206401_ _L206402_) - (let ((__tmp213945 - (lambda (_bind206417_) + _tl107305107338_)) + ((lambda (_L107341_ _L107342_) + (let ((__tmp110317 + (lambda (_bind107357_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _bind206417_)) + (gx#identifier? _bind107357_)) (let () (declare (not safe)) - (gxc#add-module-binding! _bind206417_ '#f)) + (gxc#add-module-binding! _bind107357_ '#f)) '#!void)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#stx-for-each1 - __tmp213945 - _L206402_))) - _hd206366206396_ - _hd206363206388_) + __tmp110317 + _L107342_))) + _hd107306107336_ + _hd107303107328_) (let () (declare (not safe)) - (_g206355206372_ - _g206356206375_))))) + (_g107295107312_ + _g107296107315_))))) (let () (declare (not safe)) - (_g206355206372_ _g206356206375_))))) + (_g107295107312_ _g107296107315_))))) (let () (declare (not safe)) - (_g206355206372_ _g206356206375_))))) + (_g107295107312_ _g107296107315_))))) (let () (declare (not safe)) - (_g206355206372_ _g206356206375_)))))) + (_g107295107312_ _g107296107315_)))))) (declare (not safe)) - (_g206354206419_ _stx206353_)))) + (_g107294107359_ _stx107293_)))) (define gxc#collect-bindings-define-syntax% - (lambda (_stx206286_) - (let* ((_g206288206305_ - (lambda (_g206289206302_) + (lambda (_stx107226_) + (let* ((_g107228107245_ + (lambda (_g107229107242_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g206289206302_)))) - (_g206287206350_ - (lambda (_g206289206308_) + _g107229107242_)))) + (_g107227107290_ + (lambda (_g107229107248_) (if (let () (declare (not safe)) - (gx#stx-pair? _g206289206308_)) - (let ((_e206294206310_ + (gx#stx-pair? _g107229107248_)) + (let ((_e107234107250_ (let () (declare (not safe)) - (gx#stx-e _g206289206308_)))) - (let ((_hd206293206313_ + (gx#stx-e _g107229107248_)))) + (let ((_hd107233107253_ (let () (declare (not safe)) - (##car _e206294206310_))) - (_tl206292206315_ + (##car _e107234107250_))) + (_tl107232107255_ (let () (declare (not safe)) - (##cdr _e206294206310_)))) + (##cdr _e107234107250_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl206292206315_)) - (let ((_e206297206318_ + (gx#stx-pair? _tl107232107255_)) + (let ((_e107237107258_ (let () (declare (not safe)) - (gx#stx-e _tl206292206315_)))) - (let ((_hd206296206321_ + (gx#stx-e _tl107232107255_)))) + (let ((_hd107236107261_ (let () (declare (not safe)) - (##car _e206297206318_))) - (_tl206295206323_ + (##car _e107237107258_))) + (_tl107235107263_ (let () (declare (not safe)) - (##cdr _e206297206318_)))) + (##cdr _e107237107258_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl206295206323_)) - (let ((_e206300206326_ + (gx#stx-pair? _tl107235107263_)) + (let ((_e107240107266_ (let () (declare (not safe)) - (gx#stx-e _tl206295206323_)))) - (let ((_hd206299206329_ + (gx#stx-e _tl107235107263_)))) + (let ((_hd107239107269_ (let () (declare (not safe)) - (##car _e206300206326_))) - (_tl206298206331_ + (##car _e107240107266_))) + (_tl107238107271_ (let () (declare (not safe)) - (##cdr _e206300206326_)))) + (##cdr _e107240107266_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl206298206331_)) - ((lambda (_L206334_ _L206335_) + _tl107238107271_)) + ((lambda (_L107274_ _L107275_) (let () (declare (not safe)) (gxc#add-module-binding! - _L206335_ + _L107275_ '#t))) - _hd206299206329_ - _hd206296206321_) + _hd107239107269_ + _hd107236107261_) (let () (declare (not safe)) - (_g206288206305_ - _g206289206308_))))) + (_g107228107245_ + _g107229107248_))))) (let () (declare (not safe)) - (_g206288206305_ _g206289206308_))))) + (_g107228107245_ _g107229107248_))))) (let () (declare (not safe)) - (_g206288206305_ _g206289206308_))))) + (_g107228107245_ _g107229107248_))))) (let () (declare (not safe)) - (_g206288206305_ _g206289206308_)))))) + (_g107228107245_ _g107229107248_)))))) (declare (not safe)) - (_g206287206350_ _stx206286_)))) + (_g107227107290_ _stx107226_)))) (define gxc#lift-modules-module% - (lambda (_stx206228_ _modules206229_) - (let* ((_g206231206245_ - (lambda (_g206232206242_) + (lambda (_stx107168_ _modules107169_) + (let* ((_g107171107185_ + (lambda (_g107172107182_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g206232206242_)))) - (_g206230206283_ - (lambda (_g206232206248_) + _g107172107182_)))) + (_g107170107223_ + (lambda (_g107172107188_) (if (let () (declare (not safe)) - (gx#stx-pair? _g206232206248_)) - (let ((_e206237206250_ + (gx#stx-pair? _g107172107188_)) + (let ((_e107177107190_ (let () (declare (not safe)) - (gx#stx-e _g206232206248_)))) - (let ((_hd206236206253_ + (gx#stx-e _g107172107188_)))) + (let ((_hd107176107193_ (let () (declare (not safe)) - (##car _e206237206250_))) - (_tl206235206255_ + (##car _e107177107190_))) + (_tl107175107195_ (let () (declare (not safe)) - (##cdr _e206237206250_)))) + (##cdr _e107177107190_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl206235206255_)) - (let ((_e206240206258_ + (gx#stx-pair? _tl107175107195_)) + (let ((_e107180107198_ (let () (declare (not safe)) - (gx#stx-e _tl206235206255_)))) - (let ((_hd206239206261_ + (gx#stx-e _tl107175107195_)))) + (let ((_hd107179107201_ (let () (declare (not safe)) - (##car _e206240206258_))) - (_tl206238206263_ + (##car _e107180107198_))) + (_tl107178107203_ (let () (declare (not safe)) - (##cdr _e206240206258_)))) - ((lambda (_L206266_ _L206267_) - (let ((_ctx206280_ + (##cdr _e107180107198_)))) + ((lambda (_L107206_ _L107207_) + (let ((_ctx107220_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L206267_)))) + _L107207_)))) (set-box! - _modules206229_ - (let ((__tmp213946 - (unbox _modules206229_))) + _modules107169_ + (let ((__tmp110318 + (unbox _modules107169_))) (declare (not safe)) - (cons _ctx206280_ __tmp213946))) - (let ((__tmp213947 + (cons _ctx107220_ __tmp110318))) + (let ((__tmp110319 (lambda () - (let ((__tmp213948 + (let ((__tmp110320 (##structure-ref - _ctx206280_ + _ctx107220_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - __tmp213948 - _modules206229_))))) + __tmp110320 + _modules107169_))))) (declare (not safe)) (call-with-parameters - __tmp213947 + __tmp110319 gx#current-expander-context - _ctx206280_)))) - _tl206238206263_ - _hd206239206261_))) + _ctx107220_)))) + _tl107178107203_ + _hd107179107201_))) (let () (declare (not safe)) - (_g206231206245_ _g206232206248_))))) + (_g107171107185_ _g107172107188_))))) (let () (declare (not safe)) - (_g206231206245_ _g206232206248_)))))) + (_g107171107185_ _g107172107188_)))))) (declare (not safe)) - (_g206230206283_ _stx206228_)))) + (_g107170107223_ _stx107168_)))) (define gxc#current-compile-decls-unsafe? (lambda () - (let ((_decls206184206186_ (gxc#current-compile-decls))) - (if _decls206184206186_ - (let ((_decls206189_ _decls206184206186_)) - (let _lp206191_ ((_rest206193_ _decls206189_)) - (let* ((_rest206194206202_ _rest206193_) - (_else206196206210_ (lambda () '#f)) - (_K206198206216_ - (lambda (_decls206213_ _decl206214_) + (let ((_decls107124107126_ (gxc#current-compile-decls))) + (if _decls107124107126_ + (let ((_decls107129_ _decls107124107126_)) + (let _lp107131_ ((_rest107133_ _decls107129_)) + (let* ((_rest107134107142_ _rest107133_) + (_else107136107150_ (lambda () '#f)) + (_K107138107156_ + (lambda (_decls107153_ _decl107154_) (if (let () (declare (not safe)) - (equal? _decl206214_ '(not safe))) + (equal? _decl107154_ '(not safe))) '#t (if (let () (declare (not safe)) - (equal? _decl206214_ '(safe))) + (equal? _decl107154_ '(safe))) '#f (let () (declare (not safe)) - (_lp206191_ _decls206213_))))))) + (_lp107131_ _decls107153_))))))) (if (let () (declare (not safe)) - (##pair? _rest206194206202_)) - (let ((_hd206199206219_ + (##pair? _rest107134107142_)) + (let ((_hd107139107159_ (let () (declare (not safe)) - (##car _rest206194206202_))) - (_tl206200206221_ + (##car _rest107134107142_))) + (_tl107140107161_ (let () (declare (not safe)) - (##cdr _rest206194206202_)))) - (let* ((_decl206224_ _hd206199206219_) - (_decls206226_ _tl206200206221_)) + (##cdr _rest107134107142_)))) + (let* ((_decl107164_ _hd107139107159_) + (_decls107166_ _tl107140107161_)) (declare (not safe)) - (_K206198206216_ _decls206226_ _decl206224_))) + (_K107138107156_ _decls107166_ _decl107164_))) (let () (declare (not safe)) - (_else206196206210_)))))) + (_else107136107150_)))))) '#f)))) (define gxc#add-module-binding! - (lambda (_id206178_ _syntax?206179_) - (let ((_eid206181_ + (lambda (_id107118_ _syntax?107119_) + (let ((_eid107121_ (##structure-ref (let () (declare (not safe)) - (gx#resolve-identifier__0 _id206178_)) + (gx#resolve-identifier__0 _id107118_)) '1 gx#binding::t '#f)) - (_ht206182_ + (_ht107122_ (##structure-ref (gxc#current-compile-symbol-table) '2 gxc#symbol-table::t '#f))) - (if (interned-symbol? _eid206181_) + (if (interned-symbol? _eid107121_) '#!void - (let ((__tmp213949 - (let ((__tmp213950 + (let ((__tmp110321 + (let ((__tmp110322 (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _eid206181_)))) + _eid107121_)))) (declare (not safe)) - (gx#make-binding-id__1 __tmp213950 _syntax?206179_)))) + (gx#make-binding-id__1 __tmp110322 _syntax?107119_)))) (declare (not safe)) - (table-set! _ht206182_ _eid206181_ __tmp213949)))))) + (hash-put! _ht107122_ _eid107121_ __tmp110321)))))) (define gxc#runtime-identifier=? - (lambda (_id1206171_ _id2206172_) - (letrec ((_symbol-e206174_ - (lambda (_id206176_) - (if (let () (declare (not safe)) (symbol? _id206176_)) - _id206176_ + (lambda (_id1107111_ _id2107112_) + (letrec ((_symbol-e107114_ + (lambda (_id107116_) + (if (let () (declare (not safe)) (symbol? _id107116_)) + _id107116_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _id206176_)))))) - (let ((__tmp213952 + (gxc#generate-runtime-binding-id _id107116_)))))) + (let ((__tmp110324 (let () (declare (not safe)) - (_symbol-e206174_ _id1206171_))) - (__tmp213951 + (_symbol-e107114_ _id1107111_))) + (__tmp110323 (let () (declare (not safe)) - (_symbol-e206174_ _id2206172_)))) + (_symbol-e107114_ _id2107112_)))) (declare (not safe)) - (eq? __tmp213952 __tmp213951))))) + (eq? __tmp110324 __tmp110323))))) (define gxc#generate-runtime-binding-id - (lambda (_id206149_) - (let ((_$e206151_ + (lambda (_id107089_) + (let ((_$e107091_ (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id206149_ + _id107089_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gx#resolve-identifier__0 _id206149_)) + (gx#resolve-identifier__0 _id107089_)) '#f))) - (if _$e206151_ - ((lambda (_bind206154_) - (let ((_eid206156_ - (##structure-ref _bind206154_ '1 gx#binding::t '#f)) - (_ht206157_ + (if _$e107091_ + ((lambda (_bind107094_) + (let ((_eid107096_ + (##structure-ref _bind107094_ '1 gx#binding::t '#f)) + (_ht107097_ (##structure-ref (gxc#current-compile-symbol-table) '2 gxc#symbol-table::t '#f))) - (if (interned-symbol? _eid206156_) - _eid206156_ - (let ((_$e206159_ + (if (interned-symbol? _eid107096_) + _eid107096_ + (let ((_$e107099_ (let () (declare (not safe)) - (table-ref _ht206157_ _eid206156_ '#f)))) - (if _$e206159_ - (values _$e206159_) + (hash-get _ht107097_ _eid107096_)))) + (if _$e107099_ + (values _$e107099_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind206154_ + _bind107094_ 'gx#local-binding::t)) - (let ((_gid206162_ + (let ((_gid107102_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _eid206156_)))) + _eid107096_)))) (let () (declare (not safe)) - (table-set! - _ht206157_ - _eid206156_ - _gid206162_)) - _gid206162_) + (hash-put! + _ht107097_ + _eid107096_ + _gid107102_)) + _gid107102_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind206154_ + _bind107094_ 'gx#module-binding::t)) - (let ((_gid206169_ - (let ((_$e206164_ + (let ((_gid107109_ + (let ((_$e107104_ (##structure-ref (##structure-ref - _bind206154_ + _bind107094_ '4 gx#module-binding::t '#f) '6 gx#module-context::t '#f))) - (if _$e206164_ - ((lambda (_ns206167_) + (if _$e107104_ + ((lambda (_ns107107_) (let () (declare (not safe)) (make-symbol__1 - _ns206167_ + _ns107107_ '"#" - _eid206156_))) - _$e206164_) + _eid107096_))) + _$e107104_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _eid206156_)))))) + _eid107096_)))))) (let () (declare (not safe)) - (table-set! - _ht206157_ - _eid206156_ - _gid206169_)) - _gid206169_) + (hash-put! + _ht107097_ + _eid107096_ + _gid107109_)) + _gid107109_) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile reference to uninterned binding" - _id206149_ - _eid206156_ - _bind206154_))))))))) - _$e206151_) + _id107089_ + _eid107096_ + _bind107094_))))))))) + _$e107091_) (if (interned-symbol? - (let () (declare (not safe)) (gx#stx-e _id206149_))) - (let () (declare (not safe)) (gx#stx-e _id206149_)) + (let () (declare (not safe)) (gx#stx-e _id107089_))) + (let () (declare (not safe)) (gx#stx-e _id107089_)) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile reference to uninterned identifier" - _id206149_))))))) + _id107089_))))))) (define gxc#generate-runtime-binding-id* - (lambda (_id206147_) - (if (let () (declare (not safe)) (gx#identifier? _id206147_)) + (lambda (_id107087_) + (if (let () (declare (not safe)) (gx#identifier? _id107087_)) (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _id206147_)) + (gxc#generate-runtime-binding-id _id107087_)) (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))))) (define gxc#generate-runtime-gensym-reference__% - (lambda (_sym206127_ _quote?206128_) - (let* ((_ht206130_ + (lambda (_sym107067_ _quote?107068_) + (let* ((_ht107070_ (##structure-ref (gxc#current-compile-symbol-table) '1 gxc#symbol-table::t '#f)) - (_$e206132_ + (_$e107072_ (let () (declare (not safe)) - (table-ref _ht206130_ _sym206127_ '#f)))) - (if _$e206132_ - (values _$e206132_) - (let ((_g206135_ - (if _quote?206128_ - (let ((__tmp213953 (gxc#current-compile-timestamp))) + (hash-get _ht107070_ _sym107067_)))) + (if _$e107072_ + (values _$e107072_) + (let ((_g107075_ + (if _quote?107068_ + (let ((__tmp110325 (gxc#current-compile-timestamp))) (declare (not safe)) (make-symbol__1 '"__" - _sym206127_ + _sym107067_ '"__" - __tmp213953)) + __tmp110325)) (let () (declare (not safe)) - (make-symbol__1 '"_" _sym206127_ '"_"))))) + (make-symbol__1 '"_" _sym107067_ '"_"))))) (let () (declare (not safe)) - (table-set! _ht206130_ _sym206127_ _g206135_)) - _g206135_))))) + (hash-put! _ht107070_ _sym107067_ _g107075_)) + _g107075_))))) (define gxc#generate-runtime-gensym-reference__0 - (lambda (_sym206140_) - (let ((_quote?206142_ '#f)) + (lambda (_sym107080_) + (let ((_quote?107082_ '#f)) (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _sym206140_ - _quote?206142_)))) + _sym107080_ + _quote?107082_)))) (define gxc#generate-runtime-gensym-reference - (lambda _g213955_ - (let ((_g213954_ (let () (declare (not safe)) (##length _g213955_)))) - (cond ((let () (declare (not safe)) (##fx= _g213954_ 1)) - (apply (lambda (_sym206140_) + (lambda _g110327_ + (let ((_g110326_ (let () (declare (not safe)) (##length _g110327_)))) + (cond ((let () (declare (not safe)) (##fx= _g110326_ 1)) + (apply (lambda (_sym107080_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _sym206140_))) - _g213955_)) - ((let () (declare (not safe)) (##fx= _g213954_ 2)) - (apply (lambda (_sym206144_ _quote?206145_) + _sym107080_))) + _g110327_)) + ((let () (declare (not safe)) (##fx= _g110326_ 2)) + (apply (lambda (_sym107084_ _quote?107085_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _sym206144_ - _quote?206145_))) - _g213955_)) + _sym107084_ + _quote?107085_))) + _g110327_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-gensym-reference - _g213955_)))))) + _g110327_)))))) (define gxc#generate-runtime-identifier - (lambda (_id206124_) - (let ((__tmp213956 + (lambda (_id107064_) + (let ((__tmp110328 (let () (declare (not safe)) - (gx#core-identifier-key _id206124_)))) + (gx#core-identifier-key _id107064_)))) (declare (not safe)) - (gxc#generate-runtime-identifier-key __tmp213956)))) + (gxc#generate-runtime-identifier-key __tmp110328)))) (define gxc#generate-runtime-identifier-key - (lambda (_key206084_) - (if (interned-symbol? _key206084_) - _key206084_ - (if (uninterned-symbol? _key206084_) + (lambda (_key107024_) + (if (interned-symbol? _key107024_) + _key107024_ + (if (uninterned-symbol? _key107024_) (let () (declare (not safe)) - (gxc#generate-runtime-gensym-reference__0 _key206084_)) - (let* ((_key206085206092_ _key206084_) - (_E206087206096_ + (gxc#generate-runtime-gensym-reference__0 _key107024_)) + (let* ((_key107025107032_ _key107024_) + (_E107027107036_ (lambda () - (error '"No clause matching" _key206085206092_))) - (_K206088206112_ - (lambda (_mark206099_ _eid206100_) - (let ((_$e206102_ + (let () + (declare (not safe)) + (error '"No clause matching" + _key107025107032_)))) + (_K107028107052_ + (lambda (_mark107039_ _eid107040_) + (let ((_$e107042_ (##structure-ref - _mark206099_ + _mark107039_ '1 gx#expander-mark::t '#f))) - (if _$e206102_ - ((lambda (_ht206105_) - (let ((_$e206107_ + (if _$e107042_ + ((lambda (_ht107045_) + (let ((_$e107047_ (let () (declare (not safe)) - (table-ref - _ht206105_ - _eid206100_ - '#f)))) - (if _$e206107_ - ((lambda (_id206110_) - (if (interned-symbol? _id206110_) - _id206110_ + (hash-get + _ht107045_ + _eid107040_)))) + (if _$e107047_ + ((lambda (_id107050_) + (if (interned-symbol? _id107050_) + _id107050_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _id206110_)))) - _$e206107_) + _id107050_)))) + _$e107047_) (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _eid206100_))))) - _$e206102_) + _eid107040_))))) + _$e107042_) (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _eid206100_))))))) + _eid107040_))))))) (if (let () (declare (not safe)) - (##pair? _key206085206092_)) - (let ((_hd206089206115_ + (##pair? _key107025107032_)) + (let ((_hd107029107055_ (let () (declare (not safe)) - (##car _key206085206092_))) - (_tl206090206117_ + (##car _key107025107032_))) + (_tl107030107057_ (let () (declare (not safe)) - (##cdr _key206085206092_)))) - (let* ((_eid206120_ _hd206089206115_) - (_mark206122_ _tl206090206117_)) + (##cdr _key107025107032_)))) + (let* ((_eid107060_ _hd107029107055_) + (_mark107062_ _tl107030107057_)) (declare (not safe)) - (_K206088206112_ _mark206122_ _eid206120_))) - (let () (declare (not safe)) (_E206087206096_)))))))) + (_K107028107052_ _mark107062_ _eid107060_))) + (let () (declare (not safe)) (_E107027107036_)))))))) (define gxc#generate-runtime-temporary__% - (lambda (_top206071_) - (if _top206071_ - (let ((_ns206073_ + (lambda (_top107011_) + (if _top107011_ + (let ((_ns107013_ (##structure-ref - (let ((__tmp213958 (gx#current-expander-context))) + (let ((__tmp110330 (gx#current-expander-context))) (declare (not safe)) - (gx#core-context-top__1 __tmp213958)) + (gx#core-context-top__1 __tmp110330)) '6 gx#module-context::t '#f)) - (_phi206074_ (gx#current-expander-phi))) - (if _ns206073_ - (if (fxpositive? _phi206074_) - (let ((__tmp213964 (number->string _phi206074_)) - (__tmp213963 (gensym))) + (_phi107014_ (gx#current-expander-phi))) + (if _ns107013_ + (if (fxpositive? _phi107014_) + (let ((__tmp110336 (number->string _phi107014_)) + (__tmp110335 (gensym))) (declare (not safe)) (make-symbol__1 - _ns206073_ + _ns107013_ '"[" - __tmp213964 + __tmp110336 '"]#_" - __tmp213963 + __tmp110335 '"_")) - (let ((__tmp213962 (gensym))) + (let ((__tmp110334 (gensym))) (declare (not safe)) - (make-symbol__1 _ns206073_ '"#_" __tmp213962 '"_"))) - (if (fxpositive? _phi206074_) - (let ((__tmp213961 (number->string _phi206074_)) - (__tmp213960 (gensym))) + (make-symbol__1 _ns107013_ '"#_" __tmp110334 '"_"))) + (if (fxpositive? _phi107014_) + (let ((__tmp110333 (number->string _phi107014_)) + (__tmp110332 (gensym))) (declare (not safe)) (make-symbol__1 '"[" - __tmp213961 + __tmp110333 '"]#_" - __tmp213960 + __tmp110332 '"_")) - (let ((__tmp213959 (gensym))) + (let ((__tmp110331 (gensym))) (declare (not safe)) - (make-symbol__1 '"_" __tmp213959 '"_"))))) - (let ((__tmp213957 (gensym))) + (make-symbol__1 '"_" __tmp110331 '"_"))))) + (let ((__tmp110329 (gensym))) (declare (not safe)) - (make-symbol__1 '"_" __tmp213957 '"_"))))) + (make-symbol__1 '"_" __tmp110329 '"_"))))) (define gxc#generate-runtime-temporary__0 (lambda () - (let ((_top206080_ '#f)) + (let ((_top107020_ '#f)) (declare (not safe)) - (gxc#generate-runtime-temporary__% _top206080_)))) + (gxc#generate-runtime-temporary__% _top107020_)))) (define gxc#generate-runtime-temporary - (lambda _g213966_ - (let ((_g213965_ (let () (declare (not safe)) (##length _g213966_)))) - (cond ((let () (declare (not safe)) (##fx= _g213965_ 0)) + (lambda _g110338_ + (let ((_g110337_ (let () (declare (not safe)) (##length _g110338_)))) + (cond ((let () (declare (not safe)) (##fx= _g110337_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - _g213966_)) - ((let () (declare (not safe)) (##fx= _g213965_ 1)) - (apply (lambda (_top206082_) + _g110338_)) + ((let () (declare (not safe)) (##fx= _g110337_ 1)) + (apply (lambda (_top107022_) (let () (declare (not safe)) - (gxc#generate-runtime-temporary__% _top206082_))) - _g213966_)) + (gxc#generate-runtime-temporary__% _top107022_))) + _g110338_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-temporary - _g213966_)))))) - (define gxc#generate-runtime-empty (lambda (_stx206068_) '(begin))) + _g110338_)))))) + (define gxc#generate-runtime-empty (lambda (_stx107008_) '(begin))) (define gxc#generate-runtime-begin% - (lambda (_stx205920_) - (letrec ((_simplify205922_ - (lambda (_body205966_) - (let _lp205968_ ((_rest205970_ _body205966_) - (_r205971_ '())) - (let* ((_rest205972205980_ _rest205970_) - (_else205974205988_ - (lambda () (reverse _r205971_))) - (_K205976206056_ - (lambda (_rest205991_ _hd205992_) - (let* ((_hd205993206009_ _hd205992_) - (_else205997206017_ + (lambda (_stx106860_) + (letrec ((_simplify106862_ + (lambda (_body106906_) + (let _lp106908_ ((_rest106910_ _body106906_) + (_r106911_ '())) + (let* ((_rest106912106920_ _rest106910_) + (_else106914106928_ + (lambda () (reverse _r106911_))) + (_K106916106996_ + (lambda (_rest106931_ _hd106932_) + (let* ((_hd106933106949_ _hd106932_) + (_else106937106957_ (lambda () - (let ((__tmp213967 + (let ((__tmp110339 (let () (declare (not safe)) - (cons _hd205992_ - _r205971_)))) + (cons _hd106932_ + _r106911_)))) (declare (not safe)) - (_lp205968_ - _rest205991_ - __tmp213967))))) - (let ((_K206005206046_ - (lambda (_exprs206044_) - (let ((__tmp213968 + (_lp106908_ + _rest106931_ + __tmp110339))))) + (let ((_K106945106986_ + (lambda (_exprs106984_) + (let ((__tmp110340 (let () (declare (not safe)) (foldr1 cons - _rest205991_ - _exprs206044_)))) + _rest106931_ + _exprs106984_)))) (declare (not safe)) - (_lp205968_ - __tmp213968 - _r205971_)))) - (_K206000206030_ + (_lp106908_ + __tmp110340 + _r106911_)))) + (_K106940106970_ (lambda () (if (let () (declare (not safe)) - (null? _rest205991_)) - (let ((__tmp213969 + (null? _rest106931_)) + (let ((__tmp110341 (let () (declare (not safe)) - (cons _hd205992_ - _r205971_)))) + (cons _hd106932_ + _r106911_)))) (declare (not safe)) - (_lp205968_ - _rest205991_ - __tmp213969)) + (_lp106908_ + _rest106931_ + __tmp110341)) (let () (declare (not safe)) - (_lp205968_ - _rest205991_ - _r205971_))))) - (_K205999206022_ + (_lp106908_ + _rest106931_ + _r106911_))))) + (_K106939106962_ (lambda () (if (let () (declare (not safe)) - (null? _rest205991_)) - (let ((__tmp213970 + (null? _rest106931_)) + (let ((__tmp110342 (let () (declare (not safe)) - (cons _hd205992_ - _r205971_)))) + (cons _hd106932_ + _r106911_)))) (declare (not safe)) - (_lp205968_ - _rest205991_ - __tmp213970)) + (_lp106908_ + _rest106931_ + __tmp110342)) (let () (declare (not safe)) - (_lp205968_ - _rest205991_ - _r205971_)))))) - (let ((_try-match205996206025_ + (_lp106908_ + _rest106931_ + _r106911_)))))) + (let ((_try-match106936106965_ (lambda () (if (let () (declare (not safe)) - (symbol? _hd205993206009_)) + (symbol? _hd106933106949_)) (let () (declare (not safe)) - (_K205999206022_)) + (_K106939106962_)) (let () (declare (not safe)) - (_else205997206017_)))))) + (_else106937106957_)))))) (if (let () (declare (not safe)) - (##pair? _hd205993206009_)) - (let ((_tl206007206051_ + (##pair? _hd106933106949_)) + (let ((_tl106947106991_ (let () (declare (not safe)) - (##cdr _hd205993206009_))) - (_hd206006206049_ + (##cdr _hd106933106949_))) + (_hd106946106989_ (let () (declare (not safe)) - (##car _hd205993206009_)))) + (##car _hd106933106949_)))) (if (let () (declare (not safe)) - (##eq? _hd206006206049_ + (##eq? _hd106946106989_ 'begin)) - (let ((_exprs206054_ - _tl206007206051_)) + (let ((_exprs106994_ + _tl106947106991_)) (declare (not safe)) - (_K206005206046_ - _exprs206054_)) + (_K106945106986_ + _exprs106994_)) (if (let () (declare (not safe)) - (##eq? _hd206006206049_ + (##eq? _hd106946106989_ 'quote)) (if (let () (declare (not safe)) - (##pair? _tl206007206051_)) - (let ((_tl206004206038_ + (##pair? _tl106947106991_)) + (let ((_tl106944106978_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##cdr _tl206007206051_)))) + (##cdr _tl106947106991_)))) (if (let () (declare (not safe)) - (##null? _tl206004206038_)) - (let () (declare (not safe)) (_K206000206030_)) + (##null? _tl106944106978_)) + (let () (declare (not safe)) (_K106940106970_)) (let () (declare (not safe)) - (_try-match205996206025_)))) - (let () (declare (not safe)) (_try-match205996206025_))) - (let () (declare (not safe)) (_try-match205996206025_))))) + (_try-match106936106965_)))) + (let () (declare (not safe)) (_try-match106936106965_))) + (let () (declare (not safe)) (_try-match106936106965_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_try-match205996206025_))))))))) + (_try-match106936106965_))))))))) (if (let () (declare (not safe)) - (##pair? _rest205972205980_)) - (let ((_hd205977206059_ + (##pair? _rest106912106920_)) + (let ((_hd106917106999_ (let () (declare (not safe)) - (##car _rest205972205980_))) - (_tl205978206061_ + (##car _rest106912106920_))) + (_tl106918107001_ (let () (declare (not safe)) - (##cdr _rest205972205980_)))) - (let* ((_hd206064_ _hd205977206059_) - (_rest206066_ _tl205978206061_)) + (##cdr _rest106912106920_)))) + (let* ((_hd107004_ _hd106917106999_) + (_rest107006_ _tl106918107001_)) (declare (not safe)) - (_K205976206056_ _rest206066_ _hd206064_))) + (_K106916106996_ _rest107006_ _hd107004_))) (let () (declare (not safe)) - (_else205974205988_)))))))) - (let* ((_g205924205934_ - (lambda (_g205925205931_) + (_else106914106928_)))))))) + (let* ((_g106864106874_ + (lambda (_g106865106871_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g205925205931_)))) - (_g205923205963_ - (lambda (_g205925205937_) + _g106865106871_)))) + (_g106863106903_ + (lambda (_g106865106877_) (if (let () (declare (not safe)) - (gx#stx-pair? _g205925205937_)) - (let ((_e205929205939_ + (gx#stx-pair? _g106865106877_)) + (let ((_e106869106879_ (let () (declare (not safe)) - (gx#stx-e _g205925205937_)))) - (let ((_hd205928205942_ + (gx#stx-e _g106865106877_)))) + (let ((_hd106868106882_ (let () (declare (not safe)) - (##car _e205929205939_))) - (_tl205927205944_ + (##car _e106869106879_))) + (_tl106867106884_ (let () (declare (not safe)) - (##cdr _e205929205939_)))) - ((lambda (_L205947_) - (let* ((_body205958_ - (map gxc#compile-e _L205947_)) - (_body205960_ + (##cdr _e106869106879_)))) + ((lambda (_L106887_) + (let* ((_body106898_ + (map gxc#compile-e _L106887_)) + (_body106900_ (let () (declare (not safe)) - (_simplify205922_ _body205958_)))) - (if (fx= (length _body205960_) '1) - (car _body205960_) + (_simplify106862_ _body106898_)))) + (if (fx= (length _body106900_) '1) + (car _body106900_) (let () (declare (not safe)) - (cons 'begin _body205960_))))) - _tl205927205944_))) + (cons 'begin _body106900_))))) + _tl106867106884_))) (let () (declare (not safe)) - (_g205924205934_ _g205925205937_)))))) + (_g106864106874_ _g106865106877_)))))) (declare (not safe)) - (_g205923205963_ _stx205920_))))) + (_g106863106903_ _stx106860_))))) (define gxc#generate-runtime-begin-foreign% - (lambda (_stx205882_) - (let* ((_g205884205894_ - (lambda (_g205885205891_) + (lambda (_stx106822_) + (let* ((_g106824106834_ + (lambda (_g106825106831_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g205885205891_)))) - (_g205883205917_ - (lambda (_g205885205897_) + _g106825106831_)))) + (_g106823106857_ + (lambda (_g106825106837_) (if (let () (declare (not safe)) - (gx#stx-pair? _g205885205897_)) - (let ((_e205889205899_ + (gx#stx-pair? _g106825106837_)) + (let ((_e106829106839_ (let () (declare (not safe)) - (gx#stx-e _g205885205897_)))) - (let ((_hd205888205902_ + (gx#stx-e _g106825106837_)))) + (let ((_hd106828106842_ (let () (declare (not safe)) - (##car _e205889205899_))) - (_tl205887205904_ + (##car _e106829106839_))) + (_tl106827106844_ (let () (declare (not safe)) - (##cdr _e205889205899_)))) - ((lambda (_L205907_) - (let ((__tmp213971 + (##cdr _e106829106839_)))) + ((lambda (_L106847_) + (let ((__tmp110343 (let () (declare (not safe)) - (gx#syntax->datum _L205907_)))) + (gx#syntax->datum _L106847_)))) (declare (not safe)) - (cons 'begin __tmp213971))) - _tl205887205904_))) + (cons 'begin __tmp110343))) + _tl106827106844_))) (let () (declare (not safe)) - (_g205884205894_ _g205885205897_)))))) + (_g106824106834_ _g106825106837_)))))) (declare (not safe)) - (_g205883205917_ _stx205882_)))) + (_g106823106857_ _stx106822_)))) (define gxc#generate-runtime-begin-annotation% - (lambda (_stx205647_) - (let* ((___stx212554212555_ _stx205647_) - (_g205651205703_ + (lambda (_stx106587_) + (let* ((___stx108926108927_ _stx106587_) + (_g106591106643_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212554212555_))))) - (let ((___kont212556212557_ - (lambda (_L205864_ _L205865_) + ___stx108926108927_))))) + (let ((___kont108928108929_ + (lambda (_L106804_ _L106805_) (let () (declare (not safe)) - (gxc#compile-e__0 _L205864_)))) - (___kont212558212559_ - (lambda (_L205812_ _L205813_ _L205814_) + (gxc#compile-e__0 _L106804_)))) + (___kont108930108931_ + (lambda (_L106752_ _L106753_ _L106754_) (let () (declare (not safe)) - (gxc#compile-e__0 _L205812_)))) - (___kont212562212563_ - (lambda (_L205732_ _L205733_) - (let ((_decls205748_ (map gx#syntax->datum _L205733_))) - (let ((__tmp213974 + (gxc#compile-e__0 _L106752_)))) + (___kont108934108935_ + (lambda (_L106672_ _L106673_) + (let ((_decls106688_ (map gx#syntax->datum _L106673_))) + (let ((__tmp110346 (lambda () - (let ((__tmp213975 - (let ((__tmp213978 + (let ((__tmp110347 + (let ((__tmp110350 (let () (declare (not safe)) - (cons 'declare _decls205748_))) - (__tmp213976 - (let ((__tmp213977 + (cons 'declare _decls106688_))) + (__tmp110348 + (let ((__tmp110349 (let () (declare (not safe)) (gxc#compile-e__0 - _L205732_)))) + _L106672_)))) (declare (not safe)) - (cons __tmp213977 '())))) + (cons __tmp110349 '())))) (declare (not safe)) - (cons __tmp213978 __tmp213976)))) + (cons __tmp110350 __tmp110348)))) (declare (not safe)) - (cons 'begin __tmp213975)))) - (__tmp213972 - (let ((__tmp213973 (gxc#current-compile-decls))) + (cons 'begin __tmp110347)))) + (__tmp110344 + (let ((__tmp110345 (gxc#current-compile-decls))) (declare (not safe)) - (foldr1 cons __tmp213973 _decls205748_)))) + (foldr1 cons __tmp110345 _decls106688_)))) (declare (not safe)) (call-with-parameters - __tmp213974 + __tmp110346 gxc#current-compile-decls - __tmp213972)))))) - (let* ((___match212609212610_ - (lambda (_e205669205756_ - _hd205668205759_ - _tl205667205761_ - _e205672205764_ - _hd205671205767_ - _tl205670205769_ - _e205675205772_ - _hd205674205775_ - _tl205673205777_ - ___splice212560212561_ - _target205676205780_ - _tl205678205782_) - (letrec ((_loop205679205785_ - (lambda (_hd205677205788_ - _param205683205790_) + __tmp110344)))))) + (let* ((___match108981108982_ + (lambda (_e106609106696_ + _hd106608106699_ + _tl106607106701_ + _e106612106704_ + _hd106611106707_ + _tl106610106709_ + _e106615106712_ + _hd106614106715_ + _tl106613106717_ + ___splice108932108933_ + _target106616106720_ + _tl106618106722_) + (letrec ((_loop106619106725_ + (lambda (_hd106617106728_ + _param106623106730_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd205677205788_)) - (let ((_e205680205793_ + (gx#stx-pair? _hd106617106728_)) + (let ((_e106620106733_ (let () (declare (not safe)) - (gx#stx-e _hd205677205788_)))) - (let ((_lp-tl205682205798_ + (gx#stx-e _hd106617106728_)))) + (let ((_lp-tl106622106738_ (let () (declare (not safe)) - (##cdr _e205680205793_))) - (_lp-hd205681205796_ + (##cdr _e106620106733_))) + (_lp-hd106621106736_ (let () (declare (not safe)) - (##car _e205680205793_)))) - (let ((__tmp213980 + (##car _e106620106733_)))) + (let ((__tmp110352 (let () (declare (not safe)) - (cons _lp-hd205681205796_ - _param205683205790_)))) + (cons _lp-hd106621106736_ + _param106623106730_)))) (declare (not safe)) - (_loop205679205785_ - _lp-tl205682205798_ - __tmp213980)))) - (let ((_param205684205801_ - (reverse _param205683205790_))) + (_loop106619106725_ + _lp-tl106622106738_ + __tmp110352)))) + (let ((_param106624106741_ + (reverse _param106623106730_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl205670205769_)) - (let ((_e205687205804_ + _tl106610106709_)) + (let ((_e106627106744_ (let () (declare (not safe)) (gx#stx-e - _tl205670205769_)))) - (let ((_tl205685205809_ + _tl106610106709_)))) + (let ((_tl106625106749_ (let () (declare (not safe)) - (##cdr _e205687205804_))) - (_hd205686205807_ + (##cdr _e106627106744_))) + (_hd106626106747_ (let () (declare (not safe)) - (##car _e205687205804_)))) + (##car _e106627106744_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl205685205809_)) - (let ((_L205812_ - _hd205686205807_) - (_L205813_ - _param205684205801_) - (_L205814_ - _hd205674205775_)) + _tl106625106749_)) + (let ((_L106752_ + _hd106626106747_) + (_L106753_ + _param106624106741_) + (_L106754_ + _hd106614106715_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _L205814_)) - (let ((__tmp213979 + (gx#identifier? _L106754_)) + (let ((__tmp110351 (memq (let () (declare (not safe)) - (gx#stx-e _L205814_)) + (gx#stx-e _L106754_)) gxc#gambit-annotations))) (declare (not safe)) - (not __tmp213979))) - (___kont212558212559_ _L205812_ _L205813_ _L205814_) - (___kont212562212563_ _hd205686205807_ _hd205671205767_))) - (let () (declare (not safe)) (_g205651205703_))))) + (not __tmp110351))) + (___kont108930108931_ _L106752_ _L106753_ _L106754_) + (___kont108934108935_ _hd106626106747_ _hd106611106707_))) + (let () (declare (not safe)) (_g106591106643_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g205651205703_)))))))) + (_g106591106643_)))))))) (let () (declare (not safe)) - (_loop205679205785_ _target205676205780_ '()))))) - (___match212583212584_ - (lambda (_e205657205840_ - _hd205656205843_ - _tl205655205845_ - _e205660205848_ - _hd205659205851_ - _tl205658205853_ - _e205663205856_ - _hd205662205859_ - _tl205661205861_) - (let ((_L205864_ _hd205662205859_) - (_L205865_ _hd205659205851_)) + (_loop106619106725_ _target106616106720_ '()))))) + (___match108955108956_ + (lambda (_e106597106780_ + _hd106596106783_ + _tl106595106785_ + _e106600106788_ + _hd106599106791_ + _tl106598106793_ + _e106603106796_ + _hd106602106799_ + _tl106601106801_) + (let ((_L106804_ _hd106602106799_) + (_L106805_ _hd106599106791_)) (if (let () (declare (not safe)) - (gx#identifier? _L205865_)) - (___kont212556212557_ _L205864_ _L205865_) + (gx#identifier? _L106805_)) + (___kont108928108929_ _L106804_ _L106805_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd205659205851_)) - (let ((_e205675205772_ + (gx#stx-pair? _hd106599106791_)) + (let ((_e106615106712_ (let () (declare (not safe)) - (gx#stx-e _hd205659205851_)))) - (let ((_tl205673205777_ + (gx#stx-e _hd106599106791_)))) + (let ((_tl106613106717_ (let () (declare (not safe)) - (##cdr _e205675205772_))) - (_hd205674205775_ + (##cdr _e106615106712_))) + (_hd106614106715_ (let () (declare (not safe)) - (##car _e205675205772_)))) + (##car _e106615106712_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl205673205777_)) - (let ((___splice212560212561_ + _tl106613106717_)) + (let ((___splice108932108933_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl205673205777_ + _tl106613106717_ '0)))) - (let ((_tl205678205782_ + (let ((_tl106618106722_ (let () (declare (not safe)) (##vector-ref - ___splice212560212561_ + ___splice108932108933_ '1))) - (_target205676205780_ + (_target106616106720_ (let () (declare (not safe)) (##vector-ref - ___splice212560212561_ + ___splice108932108933_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl205678205782_)) - (___match212609212610_ - _e205657205840_ - _hd205656205843_ - _tl205655205845_ - _e205660205848_ - _hd205659205851_ - _tl205658205853_ - _e205675205772_ - _hd205674205775_ - _tl205673205777_ - ___splice212560212561_ - _target205676205780_ - _tl205678205782_) - (___kont212562212563_ - _hd205662205859_ - _hd205659205851_)))) - (___kont212562212563_ - _hd205662205859_ - _hd205659205851_)))) - (___kont212562212563_ - _hd205662205859_ - _hd205659205851_))))))) + _tl106618106722_)) + (___match108981108982_ + _e106597106780_ + _hd106596106783_ + _tl106595106785_ + _e106600106788_ + _hd106599106791_ + _tl106598106793_ + _e106615106712_ + _hd106614106715_ + _tl106613106717_ + ___splice108932108933_ + _target106616106720_ + _tl106618106722_) + (___kont108934108935_ + _hd106602106799_ + _hd106599106791_)))) + (___kont108934108935_ + _hd106602106799_ + _hd106599106791_)))) + (___kont108934108935_ + _hd106602106799_ + _hd106599106791_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx212554212555_)) - (let ((_e205657205840_ + (gx#stx-pair? ___stx108926108927_)) + (let ((_e106597106780_ (let () (declare (not safe)) - (gx#stx-e ___stx212554212555_)))) - (let ((_tl205655205845_ + (gx#stx-e ___stx108926108927_)))) + (let ((_tl106595106785_ (let () (declare (not safe)) - (##cdr _e205657205840_))) - (_hd205656205843_ + (##cdr _e106597106780_))) + (_hd106596106783_ (let () (declare (not safe)) - (##car _e205657205840_)))) + (##car _e106597106780_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205655205845_)) - (let ((_e205660205848_ + (gx#stx-pair? _tl106595106785_)) + (let ((_e106600106788_ (let () (declare (not safe)) - (gx#stx-e _tl205655205845_)))) - (let ((_tl205658205853_ + (gx#stx-e _tl106595106785_)))) + (let ((_tl106598106793_ (let () (declare (not safe)) - (##cdr _e205660205848_))) - (_hd205659205851_ + (##cdr _e106600106788_))) + (_hd106599106791_ (let () (declare (not safe)) - (##car _e205660205848_)))) + (##car _e106600106788_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205658205853_)) - (let ((_e205663205856_ + (gx#stx-pair? _tl106598106793_)) + (let ((_e106603106796_ (let () (declare (not safe)) - (gx#stx-e _tl205658205853_)))) - (let ((_tl205661205861_ + (gx#stx-e _tl106598106793_)))) + (let ((_tl106601106801_ (let () (declare (not safe)) - (##cdr _e205663205856_))) - (_hd205662205859_ + (##cdr _e106603106796_))) + (_hd106602106799_ (let () (declare (not safe)) - (##car _e205663205856_)))) + (##car _e106603106796_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl205661205861_)) - (___match212583212584_ - _e205657205840_ - _hd205656205843_ - _tl205655205845_ - _e205660205848_ - _hd205659205851_ - _tl205658205853_ - _e205663205856_ - _hd205662205859_ - _tl205661205861_) + (gx#stx-null? _tl106601106801_)) + (___match108955108956_ + _e106597106780_ + _hd106596106783_ + _tl106595106785_ + _e106600106788_ + _hd106599106791_ + _tl106598106793_ + _e106603106796_ + _hd106602106799_ + _tl106601106801_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd205659205851_)) - (let ((_e205675205772_ + _hd106599106791_)) + (let ((_e106615106712_ (let () (declare (not safe)) (gx#stx-e - _hd205659205851_)))) - (let ((_tl205673205777_ + _hd106599106791_)))) + (let ((_tl106613106717_ (let () (declare (not safe)) - (##cdr _e205675205772_))) - (_hd205674205775_ + (##cdr _e106615106712_))) + (_hd106614106715_ (let () (declare (not safe)) - (##car _e205675205772_)))) + (##car _e106615106712_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl205673205777_)) - (let ((___splice212560212561_ + _tl106613106717_)) + (let ((___splice108932108933_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _tl205673205777_ '0)))) - (let ((_tl205678205782_ + (gx#syntax-split-splice _tl106613106717_ '0)))) + (let ((_tl106618106722_ (let () (declare (not safe)) - (##vector-ref ___splice212560212561_ '1))) - (_target205676205780_ + (##vector-ref ___splice108932108933_ '1))) + (_target106616106720_ (let () (declare (not safe)) - (##vector-ref ___splice212560212561_ '0)))) + (##vector-ref ___splice108932108933_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl205678205782_)) - (___match212609212610_ - _e205657205840_ - _hd205656205843_ - _tl205655205845_ - _e205660205848_ - _hd205659205851_ - _tl205658205853_ - _e205675205772_ - _hd205674205775_ - _tl205673205777_ - ___splice212560212561_ - _target205676205780_ - _tl205678205782_) - (let () (declare (not safe)) (_g205651205703_))))) - (let () (declare (not safe)) (_g205651205703_))))) + (gx#stx-null? _tl106618106722_)) + (___match108981108982_ + _e106597106780_ + _hd106596106783_ + _tl106595106785_ + _e106600106788_ + _hd106599106791_ + _tl106598106793_ + _e106615106712_ + _hd106614106715_ + _tl106613106717_ + ___splice108932108933_ + _target106616106720_ + _tl106618106722_) + (let () (declare (not safe)) (_g106591106643_))))) + (let () (declare (not safe)) (_g106591106643_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g205651205703_)))))) + (_g106591106643_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd205659205851_)) - (let ((_e205675205772_ + (gx#stx-pair? _hd106599106791_)) + (let ((_e106615106712_ (let () (declare (not safe)) - (gx#stx-e _hd205659205851_)))) - (let ((_tl205673205777_ + (gx#stx-e _hd106599106791_)))) + (let ((_tl106613106717_ (let () (declare (not safe)) - (##cdr _e205675205772_))) - (_hd205674205775_ + (##cdr _e106615106712_))) + (_hd106614106715_ (let () (declare (not safe)) - (##car _e205675205772_)))) + (##car _e106615106712_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl205673205777_)) - (let ((___splice212560212561_ + _tl106613106717_)) + (let ((___splice108932108933_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl205673205777_ + _tl106613106717_ '0)))) - (let ((_tl205678205782_ + (let ((_tl106618106722_ (let () (declare (not safe)) (##vector-ref - ___splice212560212561_ + ___splice108932108933_ '1))) - (_target205676205780_ + (_target106616106720_ (let () (declare (not safe)) (##vector-ref - ___splice212560212561_ + ___splice108932108933_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl205678205782_)) - (___match212609212610_ - _e205657205840_ - _hd205656205843_ - _tl205655205845_ - _e205660205848_ - _hd205659205851_ - _tl205658205853_ - _e205675205772_ - _hd205674205775_ - _tl205673205777_ - ___splice212560212561_ - _target205676205780_ - _tl205678205782_) + _tl106618106722_)) + (___match108981108982_ + _e106597106780_ + _hd106596106783_ + _tl106595106785_ + _e106600106788_ + _hd106599106791_ + _tl106598106793_ + _e106615106712_ + _hd106614106715_ + _tl106613106717_ + ___splice108932108933_ + _target106616106720_ + _tl106618106722_) (let () (declare (not safe)) - (_g205651205703_))))) + (_g106591106643_))))) (let () (declare (not safe)) - (_g205651205703_))))) + (_g106591106643_))))) (let () (declare (not safe)) - (_g205651205703_)))))) - (let () (declare (not safe)) (_g205651205703_))))) - (let () (declare (not safe)) (_g205651205703_)))))))) + (_g106591106643_)))))) + (let () (declare (not safe)) (_g106591106643_))))) + (let () (declare (not safe)) (_g106591106643_)))))))) (define gxc#generate-runtime-declare% - (lambda (_stx205607_) - (let* ((_g205609205619_ - (lambda (_g205610205616_) + (lambda (_stx106547_) + (let* ((_g106549106559_ + (lambda (_g106550106556_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g205610205616_)))) - (_g205608205644_ - (lambda (_g205610205622_) + _g106550106556_)))) + (_g106548106584_ + (lambda (_g106550106562_) (if (let () (declare (not safe)) - (gx#stx-pair? _g205610205622_)) - (let ((_e205614205624_ + (gx#stx-pair? _g106550106562_)) + (let ((_e106554106564_ (let () (declare (not safe)) - (gx#stx-e _g205610205622_)))) - (let ((_hd205613205627_ + (gx#stx-e _g106550106562_)))) + (let ((_hd106553106567_ (let () (declare (not safe)) - (##car _e205614205624_))) - (_tl205612205629_ + (##car _e106554106564_))) + (_tl106552106569_ (let () (declare (not safe)) - (##cdr _e205614205624_)))) - ((lambda (_L205632_) - (let ((_decls205642_ - (map gx#syntax->datum _L205632_))) + (##cdr _e106554106564_)))) + ((lambda (_L106572_) + (let ((_decls106582_ + (map gx#syntax->datum _L106572_))) (gxc#current-compile-decls - (let ((__tmp213981 + (let ((__tmp110353 (gxc#current-compile-decls))) (declare (not safe)) - (foldr1 cons __tmp213981 _decls205642_))) + (foldr1 cons __tmp110353 _decls106582_))) (let () (declare (not safe)) - (cons 'declare _decls205642_)))) - _tl205612205629_))) + (cons 'declare _decls106582_)))) + _tl106552106569_))) (let () (declare (not safe)) - (_g205609205619_ _g205610205622_)))))) + (_g106549106559_ _g106550106562_)))))) (declare (not safe)) - (_g205608205644_ _stx205607_)))) + (_g106548106584_ _stx106547_)))) (define gxc#generate-runtime-define-values% - (lambda (_stx205354_) - (let* ((_g205356205373_ - (lambda (_g205357205370_) + (lambda (_stx106294_) + (let* ((_g106296106313_ + (lambda (_g106297106310_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g205357205370_)))) - (_g205355205604_ - (lambda (_g205357205376_) + _g106297106310_)))) + (_g106295106544_ + (lambda (_g106297106316_) (if (let () (declare (not safe)) - (gx#stx-pair? _g205357205376_)) - (let ((_e205362205378_ + (gx#stx-pair? _g106297106316_)) + (let ((_e106302106318_ (let () (declare (not safe)) - (gx#stx-e _g205357205376_)))) - (let ((_hd205361205381_ + (gx#stx-e _g106297106316_)))) + (let ((_hd106301106321_ (let () (declare (not safe)) - (##car _e205362205378_))) - (_tl205360205383_ + (##car _e106302106318_))) + (_tl106300106323_ (let () (declare (not safe)) - (##cdr _e205362205378_)))) + (##cdr _e106302106318_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205360205383_)) - (let ((_e205365205386_ + (gx#stx-pair? _tl106300106323_)) + (let ((_e106305106326_ (let () (declare (not safe)) - (gx#stx-e _tl205360205383_)))) - (let ((_hd205364205389_ + (gx#stx-e _tl106300106323_)))) + (let ((_hd106304106329_ (let () (declare (not safe)) - (##car _e205365205386_))) - (_tl205363205391_ + (##car _e106305106326_))) + (_tl106303106331_ (let () (declare (not safe)) - (##cdr _e205365205386_)))) + (##cdr _e106305106326_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205363205391_)) - (let ((_e205368205394_ + (gx#stx-pair? _tl106303106331_)) + (let ((_e106308106334_ (let () (declare (not safe)) - (gx#stx-e _tl205363205391_)))) - (let ((_hd205367205397_ + (gx#stx-e _tl106303106331_)))) + (let ((_hd106307106337_ (let () (declare (not safe)) - (##car _e205368205394_))) - (_tl205366205399_ + (##car _e106308106334_))) + (_tl106306106339_ (let () (declare (not safe)) - (##cdr _e205368205394_)))) + (##cdr _e106308106334_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl205366205399_)) - ((lambda (_L205402_ _L205403_) - (let* ((___stx212662212663_ - _L205403_) - (_g205420205434_ + _tl106306106339_)) + ((lambda (_L106342_ _L106343_) + (let* ((___stx109034109035_ + _L106343_) + (_g106360106374_ (lambda () (let () (declare @@ -4641,10605 +4634,10606 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212662212663_))))) + ___stx109034109035_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___kont212664212665_ + (let ((___kont109036109037_ (lambda () (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _L205402_)))) - (___kont212666212667_ - (lambda (_L205566_) - (let ((_eid205575_ + (gxc#compile-e__0 _L106342_)))) + (___kont109038109039_ + (lambda (_L106506_) + (let ((_eid106515_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L205566_)))) - (let ((_lambda-expr205576205578_ + (gxc#generate-runtime-binding-id _L106506_)))) + (let ((_lambda-expr106516106518_ (let () (declare (not safe)) (gxc#apply-find-lambda-expression - _L205402_)))) - (if _lambda-expr205576205578_ - (let* ((_lambda-expr205581_ - _lambda-expr205576205578_) - (__tmp213982 + _L106342_)))) + (if _lambda-expr106516106518_ + (let* ((_lambda-expr106521_ + _lambda-expr106516106518_) + (__tmp110354 (gxc#current-compile-runtime-names))) (declare (not safe)) - (table-set! - __tmp213982 - _lambda-expr205581_ - _eid205575_)) + (hash-put! + __tmp110354 + _lambda-expr106521_ + _eid106515_)) '#f)) - (let ((__tmp213983 - (let ((__tmp213984 - (let ((__tmp213985 + (let ((__tmp110355 + (let ((__tmp110356 + (let ((__tmp110357 (let () (declare (not safe)) - (gxc#compile-e__0 _L205402_)))) + (gxc#compile-e__0 _L106342_)))) (declare (not safe)) - (cons __tmp213985 '())))) + (cons __tmp110357 '())))) (declare (not safe)) - (cons _eid205575_ __tmp213984)))) + (cons _eid106515_ __tmp110356)))) (declare (not safe)) - (cons 'define __tmp213983))))) - (___kont212668212669_ + (cons 'define __tmp110355))))) + (___kont109040109041_ (lambda () - (let* ((_tmp205441_ + (let* ((_tmp106381_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_body205550_ - (let _lp205443_ ((_rest205445_ _L205403_) - (_k205446_ '0) - (_r205447_ '())) - (let* ((___stx212632212633_ _rest205445_) - (_g205452205469_ + (_body106490_ + (let _lp106383_ ((_rest106385_ _L106343_) + (_k106386_ '0) + (_r106387_ '())) + (let* ((___stx109004109005_ _rest106385_) + (_g106392106409_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212632212633_))))) - (let ((___kont212634212635_ - (lambda (_L205537_) - (let ((__tmp213986 + ___stx109004109005_))))) + (let ((___kont109006109007_ + (lambda (_L106477_) + (let ((__tmp110358 (let () (declare (not safe)) - (fx+ _k205446_ '1)))) + (fx+ _k106386_ '1)))) (declare (not safe)) - (_lp205443_ - _L205537_ - __tmp213986 - _r205447_)))) - (___kont212636212637_ - (lambda (_L205510_ _L205511_) - (let ((__tmp213993 + (_lp106383_ + _L106477_ + __tmp110358 + _r106387_)))) + (___kont109008109009_ + (lambda (_L106450_ _L106451_) + (let ((__tmp110365 (let () (declare (not safe)) - (fx+ _k205446_ '1))) - (__tmp213987 - (let ((__tmp213988 - (let ((__tmp213989 - (let ((__tmp213992 + (fx+ _k106386_ '1))) + (__tmp110359 + (let ((__tmp110360 + (let ((__tmp110361 + (let ((__tmp110364 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L205511_))) - (__tmp213990 - (let ((__tmp213991 + (gxc#generate-runtime-binding-id _L106451_))) + (__tmp110362 + (let ((__tmp110363 (let () (declare (not safe)) (gxc#generate-runtime-values-ref - _tmp205441_ - _k205446_ - _L205510_)))) + _tmp106381_ + _k106386_ + _L106450_)))) (declare (not safe)) - (cons __tmp213991 '())))) + (cons __tmp110363 '())))) (declare (not safe)) - (cons __tmp213992 __tmp213990)))) + (cons __tmp110364 __tmp110362)))) (declare (not safe)) - (cons 'define __tmp213989)))) + (cons 'define __tmp110361)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213988 - _r205447_)))) + (cons __tmp110360 + _r106387_)))) (declare (not safe)) - (_lp205443_ - _L205510_ - __tmp213993 - __tmp213987)))) - (___kont212638212639_ - (lambda (_L205481_) - (let ((__tmp213994 - (let ((__tmp213995 - (let ((__tmp213996 - (let ((__tmp213999 + (_lp106383_ + _L106450_ + __tmp110365 + __tmp110359)))) + (___kont109010109011_ + (lambda (_L106421_) + (let ((__tmp110366 + (let ((__tmp110367 + (let ((__tmp110368 + (let ((__tmp110371 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L205481_))) - (__tmp213997 - (let ((__tmp213998 + (gxc#generate-runtime-binding-id _L106421_))) + (__tmp110369 + (let ((__tmp110370 (let () (declare (not safe)) (gxc#generate-runtime-values->list - _tmp205441_ - _k205446_)))) + _tmp106381_ + _k106386_)))) (declare (not safe)) - (cons __tmp213998 '())))) + (cons __tmp110370 '())))) (declare (not safe)) - (cons __tmp213999 __tmp213997)))) + (cons __tmp110371 __tmp110369)))) (declare (not safe)) - (cons 'define __tmp213996)))) + (cons 'define __tmp110368)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213995 '())))) + (cons __tmp110367 '())))) (declare (not safe)) (foldl1 cons - __tmp213994 - _r205447_)))) - (___kont212640212641_ - (lambda () (reverse _r205447_)))) - (let ((_g205450205497_ + __tmp110366 + _r106387_)))) + (___kont109012109013_ + (lambda () (reverse _r106387_)))) + (let ((_g106390106437_ (lambda () - (let ((_L205481_ - ___stx212632212633_)) + (let ((_L106421_ + ___stx109004109005_)) (if (let () (declare (not safe)) (gx#identifier? - _L205481_)) - (___kont212638212639_ - _L205481_) - (___kont212640212641_)))))) + _L106421_)) + (___kont109010109011_ + _L106421_) + (___kont109012109013_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx212632212633_)) - (let ((_e205457205526_ + (gx#stx-pair? ___stx109004109005_)) + (let ((_e106397106466_ (let () (declare (not safe)) (gx#stx-e - ___stx212632212633_)))) - (let ((_tl205455205531_ + ___stx109004109005_)))) + (let ((_tl106395106471_ (let () (declare (not safe)) - (##cdr _e205457205526_))) - (_hd205456205529_ + (##cdr _e106397106466_))) + (_hd106396106469_ (let () (declare (not safe)) - (##car _e205457205526_)))) + (##car _e106397106466_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd205456205529_)) - (let ((_e205458205534_ + _hd106396106469_)) + (let ((_e106398106474_ (let () (declare (not safe)) (gx#stx-e - _hd205456205529_)))) + _hd106396106469_)))) (if (let () (declare (not safe)) - (equal? _e205458205534_ + (equal? _e106398106474_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f)) - (___kont212634212635_ _tl205455205531_) - (___kont212636212637_ _tl205455205531_ _hd205456205529_))) + (___kont109006109007_ _tl106395106471_) + (___kont109008109009_ _tl106395106471_ _hd106396106469_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont212636212637_ - _tl205455205531_ - _hd205456205529_)))) + (___kont109008109009_ + _tl106395106471_ + _hd106396106469_)))) (let () (declare (not safe)) - (_g205450205497_))))))))) - (let ((__tmp214000 - (let ((__tmp214003 - (let ((__tmp214004 - (let ((__tmp214005 - (let ((__tmp214006 + (_g106390106437_))))))))) + (let ((__tmp110372 + (let ((__tmp110375 + (let ((__tmp110376 + (let ((__tmp110377 + (let ((__tmp110378 (let () (declare (not safe)) (gxc#compile-e__0 - _L205402_)))) + _L106342_)))) (declare (not safe)) - (cons __tmp214006 '())))) + (cons __tmp110378 '())))) (declare (not safe)) - (cons _tmp205441_ - __tmp214005)))) + (cons _tmp106381_ + __tmp110377)))) (declare (not safe)) - (cons 'define __tmp214004))) - (__tmp214001 - (let ((__tmp214002 + (cons 'define __tmp110376))) + (__tmp110373 + (let ((__tmp110374 (let () (declare (not safe)) (gxc#generate-runtime-check-values - _tmp205441_ - _L205403_ - _L205402_)))) + _tmp106381_ + _L106343_ + _L106342_)))) (declare (not safe)) - (cons __tmp214002 _body205550_)))) + (cons __tmp110374 _body106490_)))) (declare (not safe)) - (cons __tmp214003 __tmp214001)))) + (cons __tmp110375 __tmp110373)))) (declare (not safe)) - (cons 'begin __tmp214000)))))) + (cons 'begin __tmp110372)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx212662212663_)) - (let ((_e205424205588_ + (gx#stx-pair? ___stx109034109035_)) + (let ((_e106364106528_ (let () (declare (not safe)) - (gx#stx-e ___stx212662212663_)))) - (let ((_tl205422205593_ + (gx#stx-e ___stx109034109035_)))) + (let ((_tl106362106533_ (let () (declare (not safe)) - (##cdr _e205424205588_))) - (_hd205423205591_ + (##cdr _e106364106528_))) + (_hd106363106531_ (let () (declare (not safe)) - (##car _e205424205588_)))) + (##car _e106364106528_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd205423205591_)) - (let ((_e205425205596_ + (gx#stx-datum? _hd106363106531_)) + (let ((_e106365106536_ (let () (declare (not safe)) - (gx#stx-e _hd205423205591_)))) + (gx#stx-e _hd106363106531_)))) (if (let () (declare (not safe)) - (equal? _e205425205596_ '#f)) + (equal? _e106365106536_ '#f)) (if (let () (declare (not safe)) - (gx#stx-null? _tl205422205593_)) - (___kont212664212665_) - (___kont212668212669_)) + (gx#stx-null? _tl106362106533_)) + (___kont109036109037_) + (___kont109040109041_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl205422205593_)) - (___kont212666212667_ _hd205423205591_) - (___kont212668212669_)))) + (gx#stx-null? _tl106362106533_)) + (___kont109038109039_ _hd106363106531_) + (___kont109040109041_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl205422205593_)) - (___kont212666212667_ _hd205423205591_) - (___kont212668212669_))))) - (___kont212668212669_))))) + (gx#stx-null? _tl106362106533_)) + (___kont109038109039_ _hd106363106531_) + (___kont109040109041_))))) + (___kont109040109041_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd205367205397_ - _hd205364205389_) + _hd106307106337_ + _hd106304106329_) (let () (declare (not safe)) - (_g205356205373_ - _g205357205376_))))) + (_g106296106313_ + _g106297106316_))))) (let () (declare (not safe)) - (_g205356205373_ _g205357205376_))))) + (_g106296106313_ _g106297106316_))))) (let () (declare (not safe)) - (_g205356205373_ _g205357205376_))))) + (_g106296106313_ _g106297106316_))))) (let () (declare (not safe)) - (_g205356205373_ _g205357205376_)))))) + (_g106296106313_ _g106297106316_)))))) (declare (not safe)) - (_g205355205604_ _stx205354_)))) + (_g106295106544_ _stx106294_)))) (define gxc#generate-runtime-check-values - (lambda (_vals205330_ _hd205331_ _expr205332_) - (let ((_$e205334_ + (lambda (_vals106270_ _hd106271_ _expr106272_) + (let ((_$e106274_ (let () (declare (not safe)) - (gxc#apply-count-values _expr205332_)))) - (if _$e205334_ - ((lambda (_count205337_) - (let ((_len205339_ + (gxc#apply-count-values _expr106272_)))) + (if _$e106274_ + ((lambda (_count106277_) + (let ((_len106279_ (let () (declare (not safe)) - (gx#stx-length _hd205331_))) - (_cmp205340_ + (gx#stx-length _hd106271_))) + (_cmp106280_ (if (let () (declare (not safe)) - (gx#stx-list? _hd205331_)) + (gx#stx-list? _hd106271_)) fx= fx>=))) - (if (or (fx= _len205339_ '0) - (_cmp205340_ _count205337_ _len205339_)) + (if (or (fx= _len106279_ '0) + (_cmp106280_ _count106277_ _len106279_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Value count mismatch" - _expr205332_ - _hd205331_))))) - _$e205334_) - (let* ((_len205345_ + _expr106272_ + _hd106271_))))) + _$e106274_) + (let* ((_len106285_ (let () (declare (not safe)) - (gx#stx-length _hd205331_))) - (_cmp205347_ + (gx#stx-length _hd106271_))) + (_cmp106287_ (if (let () (declare (not safe)) - (gx#stx-list? _hd205331_)) + (gx#stx-list? _hd106271_)) '##fx= '##fx>=)) - (_errmsg205349_ + (_errmsg106289_ (string-append (if (let () (declare (not safe)) - (gx#stx-list? _hd205331_)) + (gx#stx-list? _hd106271_)) '"Context expects " '"Context expects at least ") - (number->string _len205345_) + (number->string _len106285_) '" values")) - (_count205351_ + (_count106291_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0)))) - (if (and (let ((__tmp214030 + (if (and (let ((__tmp110402 (let () (declare (not safe)) - (gx#stx-list? _hd205331_)))) + (gx#stx-list? _hd106271_)))) (declare (not safe)) - (not __tmp214030)) - (fx= _len205345_ '0)) + (not __tmp110402)) + (fx= _len106285_ '0)) '#!void - (let ((__tmp214007 - (let ((__tmp214026 - (let ((__tmp214027 - (let ((__tmp214028 - (let ((__tmp214029 + (let ((__tmp110379 + (let ((__tmp110398 + (let ((__tmp110399 + (let ((__tmp110400 + (let ((__tmp110401 (let () (declare (not safe)) (gxc#generate-runtime-values-count - _vals205330_)))) + _vals106270_)))) (declare (not safe)) - (cons __tmp214029 '())))) + (cons __tmp110401 '())))) (declare (not safe)) - (cons _count205351_ - __tmp214028)))) + (cons _count106291_ + __tmp110400)))) (declare (not safe)) - (cons __tmp214027 '()))) - (__tmp214008 - (let ((__tmp214009 - (let ((__tmp214010 - (let ((__tmp214015 - (let ((__tmp214016 - (let ((__tmp214017 + (cons __tmp110399 '()))) + (__tmp110380 + (let ((__tmp110381 + (let ((__tmp110382 + (let ((__tmp110387 + (let ((__tmp110388 + (let ((__tmp110389 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp214024 - (let ((__tmp214025 + (let ((__tmp110396 + (let ((__tmp110397 (let () (declare (not safe)) - (cons _len205345_ '())))) + (cons _len106285_ '())))) (declare (not safe)) - (cons _count205351_ __tmp214025)))) + (cons _count106291_ __tmp110397)))) (declare (not safe)) - (cons _cmp205347_ __tmp214024)) - (let ((__tmp214018 - (let ((__tmp214019 - (let ((__tmp214020 - (let ((__tmp214021 - (let ((__tmp214022 + (cons _cmp106287_ __tmp110396)) + (let ((__tmp110390 + (let ((__tmp110391 + (let ((__tmp110392 + (let ((__tmp110393 + (let ((__tmp110394 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp214023 + (let ((__tmp110395 (let () (declare (not safe)) - (cons _len205345_ '())))) + (cons _len106285_ '())))) (declare (not safe)) - (cons _count205351_ __tmp214023)))) + (cons _count106291_ __tmp110395)))) (declare (not safe)) - (cons _cmp205347_ __tmp214022)))) + (cons _cmp106287_ __tmp110394)))) (declare (not safe)) - (cons __tmp214021 '())))) + (cons __tmp110393 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp214020)))) + __tmp110392)))) (declare (not safe)) - (cons '() __tmp214019)))) + (cons '() __tmp110391)))) (declare (not safe)) - (cons 'let __tmp214018))))) + (cons 'let __tmp110390))))) (declare (not safe)) - (cons __tmp214017 '())))) + (cons __tmp110389 '())))) (declare (not safe)) - (cons 'not __tmp214016))) - (__tmp214011 - (let ((__tmp214012 - (let ((__tmp214013 - (let ((__tmp214014 + (cons 'not __tmp110388))) + (__tmp110383 + (let ((__tmp110384 + (let ((__tmp110385 + (let ((__tmp110386 (let () (declare (not safe)) - (cons _count205351_ '())))) + (cons _count106291_ '())))) (declare (not safe)) - (cons _errmsg205349_ __tmp214014)))) + (cons _errmsg106289_ __tmp110386)))) (declare (not safe)) - (cons 'error __tmp214013)))) + (cons 'error __tmp110385)))) (declare (not safe)) - (cons __tmp214012 '())))) + (cons __tmp110384 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214015 - __tmp214011)))) + (cons __tmp110387 + __tmp110383)))) (declare (not safe)) - (cons 'if __tmp214010)))) + (cons 'if __tmp110382)))) (declare (not safe)) - (cons __tmp214009 '())))) + (cons __tmp110381 '())))) (declare (not safe)) - (cons __tmp214026 __tmp214008)))) + (cons __tmp110398 __tmp110380)))) (declare (not safe)) - (cons 'let __tmp214007)))))))) + (cons 'let __tmp110379)))))))) (define gxc#generate-runtime-values-count - (lambda (_var205325_) - (letrec ((_generate-inline205327_ + (lambda (_var106265_) + (letrec ((_generate-inline106267_ (lambda () - (let ((__tmp214031 - (let ((__tmp214036 - (let ((__tmp214037 + (let ((__tmp110403 + (let ((__tmp110408 + (let ((__tmp110409 (let () (declare (not safe)) - (cons _var205325_ '())))) + (cons _var106265_ '())))) (declare (not safe)) - (cons '##values? __tmp214037))) - (__tmp214032 - (let ((__tmp214034 - (let ((__tmp214035 + (cons '##values? __tmp110409))) + (__tmp110404 + (let ((__tmp110406 + (let ((__tmp110407 (let () (declare (not safe)) - (cons _var205325_ '())))) + (cons _var106265_ '())))) (declare (not safe)) (cons '##vector-length - __tmp214035))) - (__tmp214033 + __tmp110407))) + (__tmp110405 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp214034 __tmp214033)))) + (cons __tmp110406 __tmp110405)))) (declare (not safe)) - (cons __tmp214036 __tmp214032)))) + (cons __tmp110408 __tmp110404)))) (declare (not safe)) - (cons 'if __tmp214031))))) + (cons 'if __tmp110403))))) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let () (declare (not safe)) (_generate-inline205327_)) - (let ((__tmp214038 - (let ((__tmp214039 - (let ((__tmp214040 - (let ((__tmp214041 + (let () (declare (not safe)) (_generate-inline106267_)) + (let ((__tmp110410 + (let ((__tmp110411 + (let ((__tmp110412 + (let ((__tmp110413 (let () (declare (not safe)) - (_generate-inline205327_)))) + (_generate-inline106267_)))) (declare (not safe)) - (cons __tmp214041 '())))) + (cons __tmp110413 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp214040)))) + (cons '(declare (not safe)) __tmp110412)))) (declare (not safe)) - (cons '() __tmp214039)))) + (cons '() __tmp110411)))) (declare (not safe)) - (cons 'let __tmp214038)))))) + (cons 'let __tmp110410)))))) (define gxc#generate-runtime-values-ref - (lambda (_var205318_ _i205319_ _rest205320_) - (letrec ((_generate-inline205322_ + (lambda (_var106258_ _i106259_ _rest106260_) + (letrec ((_generate-inline106262_ (lambda () - (if (and (fx= _i205319_ '0) - (let ((__tmp214052 + (if (and (fx= _i106259_ '0) + (let ((__tmp110424 (let () (declare (not safe)) - (gx#stx-pair? _rest205320_)))) + (gx#stx-pair? _rest106260_)))) (declare (not safe)) - (not __tmp214052))) - (let ((__tmp214044 - (let ((__tmp214050 - (let ((__tmp214051 + (not __tmp110424))) + (let ((__tmp110416 + (let ((__tmp110422 + (let ((__tmp110423 (let () (declare (not safe)) - (cons _var205318_ '())))) + (cons _var106258_ '())))) (declare (not safe)) - (cons '##values? __tmp214051))) - (__tmp214045 - (let ((__tmp214047 - (let ((__tmp214048 - (let ((__tmp214049 + (cons '##values? __tmp110423))) + (__tmp110417 + (let ((__tmp110419 + (let ((__tmp110420 + (let ((__tmp110421 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons '0 '())))) (declare (not safe)) - (cons _var205318_ __tmp214049)))) + (cons _var106258_ __tmp110421)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##vector-ref - __tmp214048))) - (__tmp214046 + __tmp110420))) + (__tmp110418 (let () (declare (not safe)) - (cons _var205318_ '())))) + (cons _var106258_ '())))) (declare (not safe)) - (cons __tmp214047 __tmp214046)))) + (cons __tmp110419 __tmp110418)))) (declare (not safe)) - (cons __tmp214050 __tmp214045)))) + (cons __tmp110422 __tmp110417)))) (declare (not safe)) - (cons 'if __tmp214044)) - (let ((__tmp214042 - (let ((__tmp214043 + (cons 'if __tmp110416)) + (let ((__tmp110414 + (let ((__tmp110415 (let () (declare (not safe)) - (cons _i205319_ '())))) + (cons _i106259_ '())))) (declare (not safe)) - (cons _var205318_ __tmp214043)))) + (cons _var106258_ __tmp110415)))) (declare (not safe)) - (cons '##vector-ref __tmp214042)))))) + (cons '##vector-ref __tmp110414)))))) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let () (declare (not safe)) (_generate-inline205322_)) - (let ((__tmp214053 - (let ((__tmp214054 - (let ((__tmp214055 - (let ((__tmp214056 + (let () (declare (not safe)) (_generate-inline106262_)) + (let ((__tmp110425 + (let ((__tmp110426 + (let ((__tmp110427 + (let ((__tmp110428 (let () (declare (not safe)) - (_generate-inline205322_)))) + (_generate-inline106262_)))) (declare (not safe)) - (cons __tmp214056 '())))) + (cons __tmp110428 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp214055)))) + (cons '(declare (not safe)) __tmp110427)))) (declare (not safe)) - (cons '() __tmp214054)))) + (cons '() __tmp110426)))) (declare (not safe)) - (cons 'let __tmp214053)))))) + (cons 'let __tmp110425)))))) (define gxc#generate-runtime-values->list - (lambda (_var205315_ _i205316_) - (if (fx= _i205316_ '0) + (lambda (_var106255_ _i106256_) + (if (fx= _i106256_ '0) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp214104 - (let ((__tmp214111 - (let ((__tmp214112 + (let ((__tmp110476 + (let ((__tmp110483 + (let ((__tmp110484 (let () (declare (not safe)) - (cons _var205315_ '())))) + (cons _var106255_ '())))) (declare (not safe)) - (cons '##values? __tmp214112))) - (__tmp214105 - (let ((__tmp214109 - (let ((__tmp214110 + (cons '##values? __tmp110484))) + (__tmp110477 + (let ((__tmp110481 + (let ((__tmp110482 (let () (declare (not safe)) - (cons _var205315_ '())))) + (cons _var106255_ '())))) (declare (not safe)) - (cons '##vector->list __tmp214110))) - (__tmp214106 - (let ((__tmp214107 - (let ((__tmp214108 + (cons '##vector->list __tmp110482))) + (__tmp110478 + (let ((__tmp110479 + (let ((__tmp110480 (let () (declare (not safe)) - (cons _var205315_ + (cons _var106255_ '())))) (declare (not safe)) - (cons 'list __tmp214108)))) + (cons 'list __tmp110480)))) (declare (not safe)) - (cons __tmp214107 '())))) + (cons __tmp110479 '())))) (declare (not safe)) - (cons __tmp214109 __tmp214106)))) + (cons __tmp110481 __tmp110478)))) (declare (not safe)) - (cons __tmp214111 __tmp214105)))) + (cons __tmp110483 __tmp110477)))) (declare (not safe)) - (cons 'if __tmp214104)) - (let ((__tmp214091 - (let ((__tmp214092 - (let ((__tmp214093 - (let ((__tmp214094 - (let ((__tmp214095 - (let ((__tmp214102 - (let ((__tmp214103 + (cons 'if __tmp110476)) + (let ((__tmp110463 + (let ((__tmp110464 + (let ((__tmp110465 + (let ((__tmp110466 + (let ((__tmp110467 + (let ((__tmp110474 + (let ((__tmp110475 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _var205315_ '())))) + (cons _var106255_ '())))) (declare (not safe)) - (cons '##values? __tmp214103))) - (__tmp214096 - (let ((__tmp214100 - (let ((__tmp214101 + (cons '##values? __tmp110475))) + (__tmp110468 + (let ((__tmp110472 + (let ((__tmp110473 (let () (declare (not safe)) - (cons _var205315_ '())))) + (cons _var106255_ '())))) (declare (not safe)) - (cons '##vector->list __tmp214101))) - (__tmp214097 - (let ((__tmp214098 - (let ((__tmp214099 + (cons '##vector->list __tmp110473))) + (__tmp110469 + (let ((__tmp110470 + (let ((__tmp110471 (let () (declare (not safe)) - (cons _var205315_ '())))) + (cons _var106255_ '())))) (declare (not safe)) - (cons 'list __tmp214099)))) + (cons 'list __tmp110471)))) (declare (not safe)) - (cons __tmp214098 '())))) + (cons __tmp110470 '())))) (declare (not safe)) - (cons __tmp214100 __tmp214097)))) + (cons __tmp110472 __tmp110469)))) (declare (not safe)) - (cons __tmp214102 __tmp214096)))) + (cons __tmp110474 __tmp110468)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp214095)))) + (cons 'if __tmp110467)))) (declare (not safe)) - (cons __tmp214094 '())))) + (cons __tmp110466 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp214093)))) + (cons '(declare (not safe)) __tmp110465)))) (declare (not safe)) - (cons '() __tmp214092)))) + (cons '() __tmp110464)))) (declare (not safe)) - (cons 'let __tmp214091))) - (if (fx= _i205316_ '1) + (cons 'let __tmp110463))) + (if (fx= _i106256_ '1) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp214082 - (let ((__tmp214089 - (let ((__tmp214090 + (let ((__tmp110454 + (let ((__tmp110461 + (let ((__tmp110462 (let () (declare (not safe)) - (cons _var205315_ '())))) + (cons _var106255_ '())))) (declare (not safe)) - (cons '##values? __tmp214090))) - (__tmp214083 - (let ((__tmp214085 - (let ((__tmp214086 - (let ((__tmp214087 - (let ((__tmp214088 + (cons '##values? __tmp110462))) + (__tmp110455 + (let ((__tmp110457 + (let ((__tmp110458 + (let ((__tmp110459 + (let ((__tmp110460 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _var205315_ '())))) + (cons _var106255_ '())))) (declare (not safe)) - (cons '##vector->list __tmp214088)))) + (cons '##vector->list __tmp110460)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214087 '())))) + (cons __tmp110459 '())))) (declare (not safe)) - (cons '##cdr __tmp214086))) - (__tmp214084 + (cons '##cdr __tmp110458))) + (__tmp110456 (let () (declare (not safe)) (cons ''() '())))) (declare (not safe)) - (cons __tmp214085 __tmp214084)))) + (cons __tmp110457 __tmp110456)))) (declare (not safe)) - (cons __tmp214089 __tmp214083)))) + (cons __tmp110461 __tmp110455)))) (declare (not safe)) - (cons 'if __tmp214082)) - (let ((__tmp214069 - (let ((__tmp214070 - (let ((__tmp214071 - (let ((__tmp214072 - (let ((__tmp214073 - (let ((__tmp214080 - (let ((__tmp214081 + (cons 'if __tmp110454)) + (let ((__tmp110441 + (let ((__tmp110442 + (let ((__tmp110443 + (let ((__tmp110444 + (let ((__tmp110445 + (let ((__tmp110452 + (let ((__tmp110453 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _var205315_ '())))) + (cons _var106255_ '())))) (declare (not safe)) - (cons '##values? __tmp214081))) - (__tmp214074 - (let ((__tmp214076 - (let ((__tmp214077 - (let ((__tmp214078 - (let ((__tmp214079 + (cons '##values? __tmp110453))) + (__tmp110446 + (let ((__tmp110448 + (let ((__tmp110449 + (let ((__tmp110450 + (let ((__tmp110451 (let () (declare (not safe)) - (cons _var205315_ '())))) + (cons _var106255_ '())))) (declare (not safe)) (cons '##vector->list - __tmp214079)))) + __tmp110451)))) (declare (not safe)) - (cons __tmp214078 '())))) + (cons __tmp110450 '())))) (declare (not safe)) - (cons '##cdr __tmp214077))) - (__tmp214075 + (cons '##cdr __tmp110449))) + (__tmp110447 (let () (declare (not safe)) (cons ''() '())))) (declare (not safe)) - (cons __tmp214076 __tmp214075)))) + (cons __tmp110448 __tmp110447)))) (declare (not safe)) - (cons __tmp214080 __tmp214074)))) + (cons __tmp110452 __tmp110446)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp214073)))) + (cons 'if __tmp110445)))) (declare (not safe)) - (cons __tmp214072 '())))) + (cons __tmp110444 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp214071)))) + __tmp110443)))) (declare (not safe)) - (cons '() __tmp214070)))) + (cons '() __tmp110442)))) (declare (not safe)) - (cons 'let __tmp214069))) + (cons 'let __tmp110441))) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp214065 - (let ((__tmp214067 - (let ((__tmp214068 + (let ((__tmp110437 + (let ((__tmp110439 + (let ((__tmp110440 (let () (declare (not safe)) - (cons _var205315_ '())))) + (cons _var106255_ '())))) (declare (not safe)) - (cons '##vector->list __tmp214068))) - (__tmp214066 + (cons '##vector->list __tmp110440))) + (__tmp110438 (let () (declare (not safe)) - (cons _i205316_ '())))) + (cons _i106256_ '())))) (declare (not safe)) - (cons __tmp214067 __tmp214066)))) + (cons __tmp110439 __tmp110438)))) (declare (not safe)) - (cons '##list-tail __tmp214065)) - (let ((__tmp214057 - (let ((__tmp214058 - (let ((__tmp214059 - (let ((__tmp214060 - (let ((__tmp214061 - (let ((__tmp214063 - (let ((__tmp214064 + (cons '##list-tail __tmp110437)) + (let ((__tmp110429 + (let ((__tmp110430 + (let ((__tmp110431 + (let ((__tmp110432 + (let ((__tmp110433 + (let ((__tmp110435 + (let ((__tmp110436 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _var205315_ '())))) + (cons _var106255_ '())))) (declare (not safe)) - (cons '##vector->list __tmp214064))) - (__tmp214062 - (let () (declare (not safe)) (cons _i205316_ '())))) + (cons '##vector->list __tmp110436))) + (__tmp110434 + (let () (declare (not safe)) (cons _i106256_ '())))) (declare (not safe)) - (cons __tmp214063 __tmp214062)))) + (cons __tmp110435 __tmp110434)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##list-tail - __tmp214061)))) + __tmp110433)))) (declare (not safe)) - (cons __tmp214060 '())))) + (cons __tmp110432 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp214059)))) + __tmp110431)))) (declare (not safe)) - (cons '() __tmp214058)))) + (cons '() __tmp110430)))) (declare (not safe)) - (cons 'let __tmp214057))))))) + (cons 'let __tmp110429))))))) (define gxc#generate-runtime-lambda% - (lambda (_stx205248_) - (let* ((_g205250205267_ - (lambda (_g205251205264_) + (lambda (_stx106188_) + (let* ((_g106190106207_ + (lambda (_g106191106204_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g205251205264_)))) - (_g205249205312_ - (lambda (_g205251205270_) + _g106191106204_)))) + (_g106189106252_ + (lambda (_g106191106210_) (if (let () (declare (not safe)) - (gx#stx-pair? _g205251205270_)) - (let ((_e205256205272_ + (gx#stx-pair? _g106191106210_)) + (let ((_e106196106212_ (let () (declare (not safe)) - (gx#stx-e _g205251205270_)))) - (let ((_hd205255205275_ + (gx#stx-e _g106191106210_)))) + (let ((_hd106195106215_ (let () (declare (not safe)) - (##car _e205256205272_))) - (_tl205254205277_ + (##car _e106196106212_))) + (_tl106194106217_ (let () (declare (not safe)) - (##cdr _e205256205272_)))) + (##cdr _e106196106212_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205254205277_)) - (let ((_e205259205280_ + (gx#stx-pair? _tl106194106217_)) + (let ((_e106199106220_ (let () (declare (not safe)) - (gx#stx-e _tl205254205277_)))) - (let ((_hd205258205283_ + (gx#stx-e _tl106194106217_)))) + (let ((_hd106198106223_ (let () (declare (not safe)) - (##car _e205259205280_))) - (_tl205257205285_ + (##car _e106199106220_))) + (_tl106197106225_ (let () (declare (not safe)) - (##cdr _e205259205280_)))) + (##cdr _e106199106220_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205257205285_)) - (let ((_e205262205288_ + (gx#stx-pair? _tl106197106225_)) + (let ((_e106202106228_ (let () (declare (not safe)) - (gx#stx-e _tl205257205285_)))) - (let ((_hd205261205291_ + (gx#stx-e _tl106197106225_)))) + (let ((_hd106201106231_ (let () (declare (not safe)) - (##car _e205262205288_))) - (_tl205260205293_ + (##car _e106202106228_))) + (_tl106200106233_ (let () (declare (not safe)) - (##cdr _e205262205288_)))) + (##cdr _e106202106228_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl205260205293_)) - ((lambda (_L205296_ _L205297_) + _tl106200106233_)) + ((lambda (_L106236_ _L106237_) (let () (declare (not safe)) (gxc#generate-runtime-lambda-form - _L205297_ - _L205296_))) - _hd205261205291_ - _hd205258205283_) + _L106237_ + _L106236_))) + _hd106201106231_ + _hd106198106223_) (let () (declare (not safe)) - (_g205250205267_ - _g205251205270_))))) + (_g106190106207_ + _g106191106210_))))) (let () (declare (not safe)) - (_g205250205267_ _g205251205270_))))) + (_g106190106207_ _g106191106210_))))) (let () (declare (not safe)) - (_g205250205267_ _g205251205270_))))) + (_g106190106207_ _g106191106210_))))) (let () (declare (not safe)) - (_g205250205267_ _g205251205270_)))))) + (_g106190106207_ _g106191106210_)))))) (declare (not safe)) - (_g205249205312_ _stx205248_)))) + (_g106189106252_ _stx106188_)))) (define gxc#generate-runtime-lambda-form - (lambda (_hd205208_ _body205209_) - (let* ((_hd205211_ + (lambda (_hd106148_ _body106149_) + (let* ((_hd106151_ (let () (declare (not safe)) - (gxc#generate-runtime-lambda-head _hd205208_))) - (_body205213_ + (gxc#generate-runtime-lambda-head _hd106148_))) + (_body106153_ (let () (declare (not safe)) - (gxc#compile-e__0 _body205209_))) - (_body205245_ - (let* ((_body205214205222_ _body205213_) - (_else205216205230_ + (gxc#compile-e__0 _body106149_))) + (_body106185_ + (let* ((_body106154106162_ _body106153_) + (_else106156106170_ (lambda () (let () (declare (not safe)) - (cons _body205213_ '())))) - (_K205218205235_ - (lambda (_exprs205233_) _exprs205233_))) + (cons _body106153_ '())))) + (_K106158106175_ + (lambda (_exprs106173_) _exprs106173_))) (if (let () (declare (not safe)) - (##pair? _body205214205222_)) - (let ((_hd205219205238_ + (##pair? _body106154106162_)) + (let ((_hd106159106178_ (let () (declare (not safe)) - (##car _body205214205222_))) - (_tl205220205240_ + (##car _body106154106162_))) + (_tl106160106180_ (let () (declare (not safe)) - (##cdr _body205214205222_)))) + (##cdr _body106154106162_)))) (if (let () (declare (not safe)) - (##eq? _hd205219205238_ 'begin)) - (let ((_exprs205243_ _tl205220205240_)) + (##eq? _hd106159106178_ 'begin)) + (let ((_exprs106183_ _tl106160106180_)) (declare (not safe)) - (_K205218205235_ _exprs205243_)) + (_K106158106175_ _exprs106183_)) (let () (declare (not safe)) - (_else205216205230_)))) - (let () (declare (not safe)) (_else205216205230_)))))) - (let ((__tmp214113 + (_else106156106170_)))) + (let () (declare (not safe)) (_else106156106170_)))))) + (let ((__tmp110485 (let () (declare (not safe)) - (cons _hd205211_ _body205245_)))) + (cons _hd106151_ _body106185_)))) (declare (not safe)) - (cons 'lambda __tmp214113))))) + (cons 'lambda __tmp110485))))) (define gxc#generate-runtime-lambda-head - (lambda (_hd205206_) + (lambda (_hd106146_) (let () (declare (not safe)) - (gx#stx-map1 gxc#generate-runtime-binding-id* _hd205206_)))) + (gx#stx-map1 gxc#generate-runtime-binding-id* _hd106146_)))) (define gxc#generate-runtime-case-lambda% - (lambda (_stx203749_) - (letrec ((_dispatch-case?203751_ - (lambda (_hd204436_ _body204437_) - (let* ((_form204439_ - (let ((__tmp214114 + (lambda (_stx104689_) + (letrec ((_dispatch-case?104691_ + (lambda (_hd105376_ _body105377_) + (let* ((_form105379_ + (let ((__tmp110486 (let () (declare (not safe)) - (cons _body204437_ '())))) + (cons _body105377_ '())))) (declare (not safe)) - (cons _hd204436_ __tmp214114))) - (___stx212694212695_ _form204439_) - (_g204444204601_ + (cons _hd105376_ __tmp110486))) + (___stx109066109067_ _form105379_) + (_g105384105541_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212694212695_))))) - (let ((___kont212696212697_ - (lambda (_L205126_ _L205127_ _L205128_) '#t)) - (___kont212702212703_ - (lambda (_L204914_ - _L204915_ - _L204916_ - _L204917_ - _L204918_ - _L204919_) + ___stx109066109067_))))) + (let ((___kont109068109069_ + (lambda (_L106066_ _L106067_ _L106068_) '#t)) + (___kont109074109075_ + (lambda (_L105854_ + _L105855_ + _L105856_ + _L105857_ + _L105858_ + _L105859_) '#t)) - (___kont212708212709_ - (lambda (_L204709_ - _L204710_ - _L204711_ - _L204712_) + (___kont109080109081_ + (lambda (_L105649_ + _L105650_ + _L105651_ + _L105652_) '#t)) - (___kont212710212711_ (lambda () '#f))) - (let* ((___match212835212836_ - (lambda (_e204563204613_ - _hd204562204616_ - _tl204561204618_ - _e204566204621_ - _hd204565204624_ - _tl204564204626_ - _e204569204629_ - _hd204568204632_ - _tl204567204634_ - _e204572204637_ - _hd204571204640_ - _tl204570204642_ - _e204575204645_ - _hd204574204648_ - _tl204573204650_ - _e204578204653_ - _hd204577204656_ - _tl204576204658_ - _e204581204661_ - _hd204580204664_ - _tl204579204666_ - _e204584204669_ - _hd204583204672_ - _tl204582204674_ - _e204587204677_ - _hd204586204680_ - _tl204585204682_ - _e204590204685_ - _hd204589204688_ - _tl204588204690_ - _e204593204693_ - _hd204592204696_ - _tl204591204698_ - _e204596204701_ - _hd204595204704_ - _tl204594204706_) - (let ((_L204709_ _hd204595204704_) - (_L204710_ _hd204586204680_) - (_L204711_ _hd204577204656_) - (_L204712_ _hd204562204616_)) + (___kont109082109083_ (lambda () '#f))) + (let* ((___match109207109208_ + (lambda (_e105503105553_ + _hd105502105556_ + _tl105501105558_ + _e105506105561_ + _hd105505105564_ + _tl105504105566_ + _e105509105569_ + _hd105508105572_ + _tl105507105574_ + _e105512105577_ + _hd105511105580_ + _tl105510105582_ + _e105515105585_ + _hd105514105588_ + _tl105513105590_ + _e105518105593_ + _hd105517105596_ + _tl105516105598_ + _e105521105601_ + _hd105520105604_ + _tl105519105606_ + _e105524105609_ + _hd105523105612_ + _tl105522105614_ + _e105527105617_ + _hd105526105620_ + _tl105525105622_ + _e105530105625_ + _hd105529105628_ + _tl105528105630_ + _e105533105633_ + _hd105532105636_ + _tl105531105638_ + _e105536105641_ + _hd105535105644_ + _tl105534105646_) + (let ((_L105649_ _hd105535105644_) + (_L105650_ _hd105526105620_) + (_L105651_ _hd105517105596_) + (_L105652_ _hd105502105556_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L204712_)) + (gx#identifier? _L105652_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L204711_ + _L105651_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _L204712_ - _L204709_)) - (let ((__tmp214115 + _L105652_ + _L105649_)) + (let ((__tmp110487 (let () (declare (not safe)) (gx#free-identifier=? - _L204710_ - _L204712_)))) + _L105650_ + _L105652_)))) (declare (not safe)) - (not __tmp214115))) - (___kont212708212709_ - _L204709_ - _L204710_ - _L204711_ - _L204712_) - (___kont212710212711_))))) - (___match212807212808_ - (lambda (_e204563204613_ - _hd204562204616_ - _tl204561204618_ - _e204566204621_ - _hd204565204624_ - _tl204564204626_ - _e204569204629_ - _hd204568204632_ - _tl204567204634_ - _e204572204637_ - _hd204571204640_ - _tl204570204642_ - _e204575204645_ - _hd204574204648_ - _tl204573204650_ - _e204578204653_ - _hd204577204656_ - _tl204576204658_ - _e204581204661_ - _hd204580204664_ - _tl204579204666_ - _e204584204669_ - _hd204583204672_ - _tl204582204674_ - _e204587204677_ - _hd204586204680_ - _tl204585204682_) + (not __tmp110487))) + (___kont109080109081_ + _L105649_ + _L105650_ + _L105651_ + _L105652_) + (___kont109082109083_))))) + (___match109179109180_ + (lambda (_e105503105553_ + _hd105502105556_ + _tl105501105558_ + _e105506105561_ + _hd105505105564_ + _tl105504105566_ + _e105509105569_ + _hd105508105572_ + _tl105507105574_ + _e105512105577_ + _hd105511105580_ + _tl105510105582_ + _e105515105585_ + _hd105514105588_ + _tl105513105590_ + _e105518105593_ + _hd105517105596_ + _tl105516105598_ + _e105521105601_ + _hd105520105604_ + _tl105519105606_ + _e105524105609_ + _hd105523105612_ + _tl105522105614_ + _e105527105617_ + _hd105526105620_ + _tl105525105622_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl204579204666_)) - (let ((_e204590204685_ + (gx#stx-pair? _tl105519105606_)) + (let ((_e105530105625_ (let () (declare (not safe)) - (gx#stx-e _tl204579204666_)))) - (let ((_tl204588204690_ + (gx#stx-e _tl105519105606_)))) + (let ((_tl105528105630_ (let () (declare (not safe)) - (##cdr _e204590204685_))) - (_hd204589204688_ + (##cdr _e105530105625_))) + (_hd105529105628_ (let () (declare (not safe)) - (##car _e204590204685_)))) + (##car _e105530105625_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd204589204688_)) - (let ((_e204593204693_ + _hd105529105628_)) + (let ((_e105533105633_ (let () (declare (not safe)) (gx#stx-e - _hd204589204688_)))) - (let ((_tl204591204698_ + _hd105529105628_)))) + (let ((_tl105531105638_ (let () (declare (not safe)) - (##cdr _e204593204693_))) - (_hd204592204696_ + (##cdr _e105533105633_))) + (_hd105532105636_ (let () (declare (not safe)) - (##car _e204593204693_)))) + (##car _e105533105633_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd204592204696_)) + _hd105532105636_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd204592204696_)) + _hd105532105636_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl204591204698_)) - (let ((_e204596204701_ + (gx#stx-pair? _tl105531105638_)) + (let ((_e105536105641_ (let () (declare (not safe)) - (gx#stx-e _tl204591204698_)))) - (let ((_tl204594204706_ + (gx#stx-e _tl105531105638_)))) + (let ((_tl105534105646_ (let () (declare (not safe)) - (##cdr _e204596204701_))) - (_hd204595204704_ + (##cdr _e105536105641_))) + (_hd105535105644_ (let () (declare (not safe)) - (##car _e204596204701_)))) + (##car _e105536105641_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl204594204706_)) + (gx#stx-null? _tl105534105646_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl204588204690_)) + (gx#stx-null? _tl105528105630_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl204564204626_)) - (___match212835212836_ - _e204563204613_ - _hd204562204616_ - _tl204561204618_ - _e204566204621_ - _hd204565204624_ - _tl204564204626_ - _e204569204629_ - _hd204568204632_ - _tl204567204634_ - _e204572204637_ - _hd204571204640_ - _tl204570204642_ - _e204575204645_ - _hd204574204648_ - _tl204573204650_ - _e204578204653_ - _hd204577204656_ - _tl204576204658_ - _e204581204661_ - _hd204580204664_ - _tl204579204666_ - _e204584204669_ - _hd204583204672_ - _tl204582204674_ - _e204587204677_ - _hd204586204680_ - _tl204585204682_ - _e204590204685_ - _hd204589204688_ - _tl204588204690_ - _e204593204693_ - _hd204592204696_ - _tl204591204698_ - _e204596204701_ - _hd204595204704_ - _tl204594204706_) - (___kont212710212711_)) - (___kont212710212711_)) - (___kont212710212711_)))) - (___kont212710212711_)) - (___kont212710212711_)) - (___kont212710212711_)))) + (gx#stx-null? _tl105504105566_)) + (___match109207109208_ + _e105503105553_ + _hd105502105556_ + _tl105501105558_ + _e105506105561_ + _hd105505105564_ + _tl105504105566_ + _e105509105569_ + _hd105508105572_ + _tl105507105574_ + _e105512105577_ + _hd105511105580_ + _tl105510105582_ + _e105515105585_ + _hd105514105588_ + _tl105513105590_ + _e105518105593_ + _hd105517105596_ + _tl105516105598_ + _e105521105601_ + _hd105520105604_ + _tl105519105606_ + _e105524105609_ + _hd105523105612_ + _tl105522105614_ + _e105527105617_ + _hd105526105620_ + _tl105525105622_ + _e105530105625_ + _hd105529105628_ + _tl105528105630_ + _e105533105633_ + _hd105532105636_ + _tl105531105638_ + _e105536105641_ + _hd105535105644_ + _tl105534105646_) + (___kont109082109083_)) + (___kont109082109083_)) + (___kont109082109083_)))) + (___kont109082109083_)) + (___kont109082109083_)) + (___kont109082109083_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont212710212711_)))) - (___kont212710212711_)))) - (___match212737212738_ - (lambda (_e204499204754_ - _hd204498204757_ - _tl204497204759_ - ___splice212704212705_ - _target204500204762_ - _tl204502204764_) - (letrec ((_loop204503204767_ - (lambda (_hd204501204770_ - _arg204507204772_) + (___kont109082109083_)))) + (___kont109082109083_)))) + (___match109109109110_ + (lambda (_e105439105694_ + _hd105438105697_ + _tl105437105699_ + ___splice109076109077_ + _target105440105702_ + _tl105442105704_) + (letrec ((_loop105443105707_ + (lambda (_hd105441105710_ + _arg105447105712_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd204501204770_)) - (let ((_e204504204775_ + _hd105441105710_)) + (let ((_e105444105715_ (let () (declare (not safe)) (gx#stx-e - _hd204501204770_)))) - (let ((_lp-tl204506204780_ + _hd105441105710_)))) + (let ((_lp-tl105446105720_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e204504204775_))) - (_lp-hd204505204778_ - (let () (declare (not safe)) (##car _e204504204775_)))) - (let ((__tmp214130 + (##cdr _e105444105715_))) + (_lp-hd105445105718_ + (let () (declare (not safe)) (##car _e105444105715_)))) + (let ((__tmp110502 (let () (declare (not safe)) - (cons _lp-hd204505204778_ _arg204507204772_)))) + (cons _lp-hd105445105718_ _arg105447105712_)))) (declare (not safe)) - (_loop204503204767_ _lp-tl204506204780_ __tmp214130)))) + (_loop105443105707_ _lp-tl105446105720_ __tmp110502)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg204508204783_ - (reverse _arg204507204772_))) + (let ((_arg105448105723_ + (reverse _arg105447105712_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl204497204759_)) - (let ((_e204511204786_ + _tl105437105699_)) + (let ((_e105451105726_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl204497204759_)))) - (let ((_tl204509204791_ + (gx#stx-e _tl105437105699_)))) + (let ((_tl105449105731_ (let () (declare (not safe)) - (##cdr _e204511204786_))) - (_hd204510204789_ + (##cdr _e105451105726_))) + (_hd105450105729_ (let () (declare (not safe)) - (##car _e204511204786_)))) + (##car _e105451105726_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd204510204789_)) - (let ((_e204514204794_ + (gx#stx-pair? _hd105450105729_)) + (let ((_e105454105734_ (let () (declare (not safe)) - (gx#stx-e _hd204510204789_)))) - (let ((_tl204512204799_ + (gx#stx-e _hd105450105729_)))) + (let ((_tl105452105739_ (let () (declare (not safe)) - (##cdr _e204514204794_))) - (_hd204513204797_ + (##cdr _e105454105734_))) + (_hd105453105737_ (let () (declare (not safe)) - (##car _e204514204794_)))) + (##car _e105454105734_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd204513204797_)) + (gx#identifier? _hd105453105737_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd204513204797_)) + (gx#stx-eq? '%#call _hd105453105737_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl204512204799_)) - (let ((_e204517204802_ + (gx#stx-pair? _tl105452105739_)) + (let ((_e105457105742_ (let () (declare (not safe)) (gx#stx-e - _tl204512204799_)))) - (let ((_tl204515204807_ + _tl105452105739_)))) + (let ((_tl105455105747_ (let () (declare (not safe)) - (##cdr _e204517204802_))) - (_hd204516204805_ + (##cdr _e105457105742_))) + (_hd105456105745_ (let () (declare (not safe)) - (##car _e204517204802_)))) + (##car _e105457105742_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd204516204805_)) - (let ((_e204520204810_ + _hd105456105745_)) + (let ((_e105460105750_ (let () (declare (not safe)) (gx#stx-e - _hd204516204805_)))) - (let ((_tl204518204815_ + _hd105456105745_)))) + (let ((_tl105458105755_ (let () (declare (not safe)) - (##cdr _e204520204810_))) - (_hd204519204813_ + (##cdr _e105460105750_))) + (_hd105459105753_ (let () (declare (not safe)) - (##car _e204520204810_)))) + (##car _e105460105750_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd204519204813_)) + _hd105459105753_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd204519204813_)) + (gx#stx-eq? '%#ref _hd105459105753_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl204518204815_)) - (let ((_e204523204818_ + (gx#stx-pair? _tl105458105755_)) + (let ((_e105463105758_ (let () (declare (not safe)) - (gx#stx-e _tl204518204815_)))) - (let ((_tl204521204823_ + (gx#stx-e _tl105458105755_)))) + (let ((_tl105461105763_ (let () (declare (not safe)) - (##cdr _e204523204818_))) - (_hd204522204821_ + (##cdr _e105463105758_))) + (_hd105462105761_ (let () (declare (not safe)) - (##car _e204523204818_)))) + (##car _e105463105758_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl204521204823_)) + (gx#stx-null? _tl105461105763_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl204515204807_)) - (let ((_e204526204826_ + (gx#stx-pair? _tl105455105747_)) + (let ((_e105466105766_ (let () (declare (not safe)) - (gx#stx-e _tl204515204807_)))) - (let ((_tl204524204831_ + (gx#stx-e _tl105455105747_)))) + (let ((_tl105464105771_ (let () (declare (not safe)) - (##cdr _e204526204826_))) - (_hd204525204829_ + (##cdr _e105466105766_))) + (_hd105465105769_ (let () (declare (not safe)) - (##car _e204526204826_)))) + (##car _e105466105766_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd204525204829_)) - (let ((_e204529204834_ + _hd105465105769_)) + (let ((_e105469105774_ (let () (declare (not safe)) (gx#stx-e - _hd204525204829_)))) - (let ((_tl204527204839_ + _hd105465105769_)))) + (let ((_tl105467105779_ (let () (declare (not safe)) - (##cdr _e204529204834_))) - (_hd204528204837_ + (##cdr _e105469105774_))) + (_hd105468105777_ (let () (declare (not safe)) - (##car _e204529204834_)))) + (##car _e105469105774_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd204528204837_)) + _hd105468105777_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd204528204837_)) + _hd105468105777_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl204527204839_)) - (let ((_e204532204842_ + (gx#stx-pair? _tl105467105779_)) + (let ((_e105472105782_ (let () (declare (not safe)) - (gx#stx-e _tl204527204839_)))) - (let ((_tl204530204847_ + (gx#stx-e _tl105467105779_)))) + (let ((_tl105470105787_ (let () (declare (not safe)) - (##cdr _e204532204842_))) - (_hd204531204845_ + (##cdr _e105472105782_))) + (_hd105471105785_ (let () (declare (not safe)) - (##car _e204532204842_)))) + (##car _e105472105782_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl204530204847_)) + (gx#stx-null? _tl105470105787_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl204524204831_)) + (gx#stx-pair/null? _tl105464105771_)) (if (fx>= (let () (declare (not safe)) - (gx#stx-length _tl204524204831_)) + (gx#stx-length _tl105464105771_)) '1) - (let ((___splice212706212707_ + (let ((___splice109078109079_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl204524204831_ + _tl105464105771_ '1)))) - (let ((_tl204535204852_ + (let ((_tl105475105792_ (let () (declare (not safe)) (##vector-ref - ___splice212706212707_ + ___splice109078109079_ '1))) - (_target204533204850_ + (_target105473105790_ (let () (declare (not safe)) (##vector-ref - ___splice212706212707_ + ___splice109078109079_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl204535204852_)) - (let ((_e204544204855_ + _tl105475105792_)) + (let ((_e105484105795_ (let () (declare (not safe)) (gx#stx-e - _tl204535204852_)))) - (let ((_tl204542204860_ + _tl105475105792_)))) + (let ((_tl105482105800_ (let () (declare (not safe)) - (##cdr _e204544204855_))) - (_hd204543204858_ + (##cdr _e105484105795_))) + (_hd105483105798_ (let () (declare (not safe)) - (##car _e204544204855_)))) + (##car _e105484105795_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd204543204858_)) - (let ((_e204547204863_ + _hd105483105798_)) + (let ((_e105487105803_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd204543204858_)))) - (let ((_tl204545204868_ - (let () (declare (not safe)) (##cdr _e204547204863_))) - (_hd204546204866_ - (let () (declare (not safe)) (##car _e204547204863_)))) + (gx#stx-e _hd105483105798_)))) + (let ((_tl105485105808_ + (let () (declare (not safe)) (##cdr _e105487105803_))) + (_hd105486105806_ + (let () (declare (not safe)) (##car _e105487105803_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd204546204866_)) + (gx#identifier? _hd105486105806_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd204546204866_)) + (gx#stx-eq? '%#ref _hd105486105806_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl204545204868_)) - (let ((_e204550204871_ + (gx#stx-pair? _tl105485105808_)) + (let ((_e105490105811_ (let () (declare (not safe)) - (gx#stx-e _tl204545204868_)))) - (let ((_tl204548204876_ + (gx#stx-e _tl105485105808_)))) + (let ((_tl105488105816_ (let () (declare (not safe)) - (##cdr _e204550204871_))) - (_hd204549204874_ + (##cdr _e105490105811_))) + (_hd105489105814_ (let () (declare (not safe)) - (##car _e204550204871_)))) + (##car _e105490105811_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl204548204876_)) + (gx#stx-null? _tl105488105816_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl204542204860_)) - (letrec ((_loop204536204879_ - (lambda (_hd204534204882_ - _xarg204540204884_) + (gx#stx-null? _tl105482105800_)) + (letrec ((_loop105476105819_ + (lambda (_hd105474105822_ + _xarg105480105824_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd204534204882_)) - (let ((_e204537204887_ + _hd105474105822_)) + (let ((_e105477105827_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd204534204882_)))) - (let ((_lp-tl204539204892_ + (gx#stx-e _hd105474105822_)))) + (let ((_lp-tl105479105832_ (let () (declare (not safe)) - (##cdr _e204537204887_))) - (_lp-hd204538204890_ + (##cdr _e105477105827_))) + (_lp-hd105478105830_ (let () (declare (not safe)) - (##car _e204537204887_)))) + (##car _e105477105827_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd204538204890_)) - (let ((_e204553204895_ + (gx#stx-pair? _lp-hd105478105830_)) + (let ((_e105493105835_ (let () (declare (not safe)) - (gx#stx-e _lp-hd204538204890_)))) - (let ((_tl204551204900_ + (gx#stx-e _lp-hd105478105830_)))) + (let ((_tl105491105840_ (let () (declare (not safe)) - (##cdr _e204553204895_))) - (_hd204552204898_ + (##cdr _e105493105835_))) + (_hd105492105838_ (let () (declare (not safe)) - (##car _e204553204895_)))) + (##car _e105493105835_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd204552204898_)) + (gx#identifier? _hd105492105838_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd204552204898_)) + (gx#stx-eq? '%#ref _hd105492105838_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl204551204900_)) - (let ((_e204556204903_ + (gx#stx-pair? _tl105491105840_)) + (let ((_e105496105843_ (let () (declare (not safe)) (gx#stx-e - _tl204551204900_)))) - (let ((_tl204554204908_ + _tl105491105840_)))) + (let ((_tl105494105848_ (let () (declare (not safe)) - (##cdr _e204556204903_))) - (_hd204555204906_ + (##cdr _e105496105843_))) + (_hd105495105846_ (let () (declare (not safe)) - (##car _e204556204903_)))) + (##car _e105496105843_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl204554204908_)) - (let ((__tmp214129 + _tl105494105848_)) + (let ((__tmp110501 (let () (declare (not safe)) - (cons _hd204555204906_ + (cons _hd105495105846_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xarg204540204884_)))) + _xarg105480105824_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop204536204879_ - _lp-tl204539204892_ - __tmp214129)) - (___match212807212808_ - _e204499204754_ - _hd204498204757_ - _tl204497204759_ - _e204511204786_ - _hd204510204789_ - _tl204509204791_ - _e204514204794_ - _hd204513204797_ - _tl204512204799_ - _e204517204802_ - _hd204516204805_ - _tl204515204807_ - _e204520204810_ - _hd204519204813_ - _tl204518204815_ - _e204523204818_ - _hd204522204821_ - _tl204521204823_ - _e204526204826_ - _hd204525204829_ - _tl204524204831_ - _e204529204834_ - _hd204528204837_ - _tl204527204839_ - _e204532204842_ - _hd204531204845_ - _tl204530204847_)))) - (___match212807212808_ - _e204499204754_ - _hd204498204757_ - _tl204497204759_ - _e204511204786_ - _hd204510204789_ - _tl204509204791_ - _e204514204794_ - _hd204513204797_ - _tl204512204799_ - _e204517204802_ - _hd204516204805_ - _tl204515204807_ - _e204520204810_ - _hd204519204813_ - _tl204518204815_ - _e204523204818_ - _hd204522204821_ - _tl204521204823_ - _e204526204826_ - _hd204525204829_ - _tl204524204831_ - _e204529204834_ - _hd204528204837_ - _tl204527204839_ - _e204532204842_ - _hd204531204845_ - _tl204530204847_)) - (___match212807212808_ - _e204499204754_ - _hd204498204757_ - _tl204497204759_ - _e204511204786_ - _hd204510204789_ - _tl204509204791_ - _e204514204794_ - _hd204513204797_ - _tl204512204799_ - _e204517204802_ - _hd204516204805_ - _tl204515204807_ - _e204520204810_ - _hd204519204813_ - _tl204518204815_ - _e204523204818_ - _hd204522204821_ - _tl204521204823_ - _e204526204826_ - _hd204525204829_ - _tl204524204831_ - _e204529204834_ - _hd204528204837_ - _tl204527204839_ - _e204532204842_ - _hd204531204845_ - _tl204530204847_)) - (___match212807212808_ - _e204499204754_ - _hd204498204757_ - _tl204497204759_ - _e204511204786_ - _hd204510204789_ - _tl204509204791_ - _e204514204794_ - _hd204513204797_ - _tl204512204799_ - _e204517204802_ - _hd204516204805_ - _tl204515204807_ - _e204520204810_ - _hd204519204813_ - _tl204518204815_ - _e204523204818_ - _hd204522204821_ - _tl204521204823_ - _e204526204826_ - _hd204525204829_ - _tl204524204831_ - _e204529204834_ - _hd204528204837_ - _tl204527204839_ - _e204532204842_ - _hd204531204845_ - _tl204530204847_)))) - (___match212807212808_ - _e204499204754_ - _hd204498204757_ - _tl204497204759_ - _e204511204786_ - _hd204510204789_ - _tl204509204791_ - _e204514204794_ - _hd204513204797_ - _tl204512204799_ - _e204517204802_ - _hd204516204805_ - _tl204515204807_ - _e204520204810_ - _hd204519204813_ - _tl204518204815_ - _e204523204818_ - _hd204522204821_ - _tl204521204823_ - _e204526204826_ - _hd204525204829_ - _tl204524204831_ - _e204529204834_ - _hd204528204837_ - _tl204527204839_ - _e204532204842_ - _hd204531204845_ - _tl204530204847_)))) - (let ((_xarg204541204911_ (reverse _xarg204540204884_))) + (_loop105476105819_ + _lp-tl105479105832_ + __tmp110501)) + (___match109179109180_ + _e105439105694_ + _hd105438105697_ + _tl105437105699_ + _e105451105726_ + _hd105450105729_ + _tl105449105731_ + _e105454105734_ + _hd105453105737_ + _tl105452105739_ + _e105457105742_ + _hd105456105745_ + _tl105455105747_ + _e105460105750_ + _hd105459105753_ + _tl105458105755_ + _e105463105758_ + _hd105462105761_ + _tl105461105763_ + _e105466105766_ + _hd105465105769_ + _tl105464105771_ + _e105469105774_ + _hd105468105777_ + _tl105467105779_ + _e105472105782_ + _hd105471105785_ + _tl105470105787_)))) + (___match109179109180_ + _e105439105694_ + _hd105438105697_ + _tl105437105699_ + _e105451105726_ + _hd105450105729_ + _tl105449105731_ + _e105454105734_ + _hd105453105737_ + _tl105452105739_ + _e105457105742_ + _hd105456105745_ + _tl105455105747_ + _e105460105750_ + _hd105459105753_ + _tl105458105755_ + _e105463105758_ + _hd105462105761_ + _tl105461105763_ + _e105466105766_ + _hd105465105769_ + _tl105464105771_ + _e105469105774_ + _hd105468105777_ + _tl105467105779_ + _e105472105782_ + _hd105471105785_ + _tl105470105787_)) + (___match109179109180_ + _e105439105694_ + _hd105438105697_ + _tl105437105699_ + _e105451105726_ + _hd105450105729_ + _tl105449105731_ + _e105454105734_ + _hd105453105737_ + _tl105452105739_ + _e105457105742_ + _hd105456105745_ + _tl105455105747_ + _e105460105750_ + _hd105459105753_ + _tl105458105755_ + _e105463105758_ + _hd105462105761_ + _tl105461105763_ + _e105466105766_ + _hd105465105769_ + _tl105464105771_ + _e105469105774_ + _hd105468105777_ + _tl105467105779_ + _e105472105782_ + _hd105471105785_ + _tl105470105787_)) + (___match109179109180_ + _e105439105694_ + _hd105438105697_ + _tl105437105699_ + _e105451105726_ + _hd105450105729_ + _tl105449105731_ + _e105454105734_ + _hd105453105737_ + _tl105452105739_ + _e105457105742_ + _hd105456105745_ + _tl105455105747_ + _e105460105750_ + _hd105459105753_ + _tl105458105755_ + _e105463105758_ + _hd105462105761_ + _tl105461105763_ + _e105466105766_ + _hd105465105769_ + _tl105464105771_ + _e105469105774_ + _hd105468105777_ + _tl105467105779_ + _e105472105782_ + _hd105471105785_ + _tl105470105787_)))) + (___match109179109180_ + _e105439105694_ + _hd105438105697_ + _tl105437105699_ + _e105451105726_ + _hd105450105729_ + _tl105449105731_ + _e105454105734_ + _hd105453105737_ + _tl105452105739_ + _e105457105742_ + _hd105456105745_ + _tl105455105747_ + _e105460105750_ + _hd105459105753_ + _tl105458105755_ + _e105463105758_ + _hd105462105761_ + _tl105461105763_ + _e105466105766_ + _hd105465105769_ + _tl105464105771_ + _e105469105774_ + _hd105468105777_ + _tl105467105779_ + _e105472105782_ + _hd105471105785_ + _tl105470105787_)))) + (let ((_xarg105481105851_ (reverse _xarg105480105824_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl204509204791_)) - (let ((_L204914_ _hd204549204874_) - (_L204915_ _xarg204541204911_) - (_L204916_ _hd204531204845_) - (_L204917_ _hd204522204821_) - (_L204918_ _tl204502204764_) - (_L204919_ _arg204508204783_)) - (if (and (let ((__tmp214127 - (let ((__tmp214128 - (lambda (_g204962204965_ - _g204963204967_) + (gx#stx-null? _tl105449105731_)) + (let ((_L105854_ _hd105489105814_) + (_L105855_ _xarg105481105851_) + (_L105856_ _hd105471105785_) + (_L105857_ _hd105462105761_) + (_L105858_ _tl105442105704_) + (_L105859_ _arg105448105723_)) + (if (and (let ((__tmp110499 + (let ((__tmp110500 + (lambda (_g105902105905_ + _g105903105907_) (let () (declare (not safe)) - (cons _g204962204965_ - _g204963204967_))))) + (cons _g105902105905_ + _g105903105907_))))) (declare (not safe)) - (foldr1 __tmp214128 + (foldr1 __tmp110500 '() - _L204919_)))) + _L105859_)))) (declare (not safe)) - (gx#identifier-list? __tmp214127)) + (gx#identifier-list? __tmp110499)) (let () (declare (not safe)) - (gx#identifier? _L204918_)) + (gx#identifier? _L105858_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L204917_ + _L105857_ 'apply)) - (fx= (length (let ((__tmp214125 - (lambda (_g204969204972_ - _g204970204974_) + (fx= (length (let ((__tmp110497 + (lambda (_g105909105912_ + _g105910105914_) (let () (declare (not safe)) - (cons _g204969204972_ + (cons _g105909105912_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g204970204974_))))) + _g105910105914_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp214125 + (foldr1 __tmp110497 '() - _L204919_))) - (length (let ((__tmp214126 - (lambda (_g204976204979_ - _g204977204981_) + _L105859_))) + (length (let ((__tmp110498 + (lambda (_g105916105919_ + _g105917105921_) (let () (declare (not safe)) - (cons _g204976204979_ + (cons _g105916105919_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g204977204981_))))) + _g105917105921_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp214126 + (foldr1 __tmp110498 '() - _L204915_)))) - (let ((__tmp214123 - (let ((__tmp214124 - (lambda (_g204983204986_ - _g204984204988_) + _L105855_)))) + (let ((__tmp110495 + (let ((__tmp110496 + (lambda (_g105923105926_ + _g105924105928_) (let () (declare (not safe)) - (cons _g204983204986_ - _g204984204988_))))) + (cons _g105923105926_ + _g105924105928_))))) (declare (not safe)) - (foldr1 __tmp214124 + (foldr1 __tmp110496 '() - _L204919_))) - (__tmp214121 - (let ((__tmp214122 - (lambda (_g204990204993_ - _g204991204995_) + _L105859_))) + (__tmp110493 + (let ((__tmp110494 + (lambda (_g105930105933_ + _g105931105935_) (let () (declare (not safe)) - (cons _g204990204993_ - _g204991204995_))))) + (cons _g105930105933_ + _g105931105935_))))) (declare (not safe)) - (foldr1 __tmp214122 + (foldr1 __tmp110494 '() - _L204915_)))) + _L105855_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp214123 - __tmp214121)) + __tmp110495 + __tmp110493)) (let () (declare (not safe)) (gx#free-identifier=? - _L204918_ - _L204914_)) - (let ((__tmp214116 - (let ((__tmp214120 - (lambda (_g204997204999_) + _L105858_ + _L105854_)) + (let ((__tmp110488 + (let ((__tmp110492 + (lambda (_g105937105939_) (let () (declare (not safe)) (gx#free-identifier=? - _g204997204999_ - _L204916_)))) - (__tmp214117 - (let ((__tmp214119 - (lambda (_g205001205004_ + _g105937105939_ + _L105856_)))) + (__tmp110489 + (let ((__tmp110491 + (lambda (_g105941105944_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g205002205006_) + _g105942105946_) (let () (declare (not safe)) - (cons _g205001205004_ _g205002205006_)))) - (__tmp214118 - (let () (declare (not safe)) (cons _L204918_ '())))) + (cons _g105941105944_ _g105942105946_)))) + (__tmp110490 + (let () (declare (not safe)) (cons _L105858_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp214119 - __tmp214118 - _L204919_)))) + (foldr1 __tmp110491 + __tmp110490 + _L105859_)))) (declare (not safe)) - (find __tmp214120 __tmp214117)))) + (find __tmp110492 __tmp110489)))) (declare (not safe)) - (not __tmp214116))) - (___kont212702212703_ - _L204914_ - _L204915_ - _L204916_ - _L204917_ - _L204918_ - _L204919_) - (___match212807212808_ - _e204499204754_ - _hd204498204757_ - _tl204497204759_ - _e204511204786_ - _hd204510204789_ - _tl204509204791_ - _e204514204794_ - _hd204513204797_ - _tl204512204799_ - _e204517204802_ - _hd204516204805_ - _tl204515204807_ - _e204520204810_ - _hd204519204813_ - _tl204518204815_ - _e204523204818_ - _hd204522204821_ - _tl204521204823_ - _e204526204826_ - _hd204525204829_ - _tl204524204831_ - _e204529204834_ - _hd204528204837_ - _tl204527204839_ - _e204532204842_ - _hd204531204845_ - _tl204530204847_))) - (___match212807212808_ - _e204499204754_ - _hd204498204757_ - _tl204497204759_ - _e204511204786_ - _hd204510204789_ - _tl204509204791_ - _e204514204794_ - _hd204513204797_ - _tl204512204799_ - _e204517204802_ - _hd204516204805_ - _tl204515204807_ - _e204520204810_ - _hd204519204813_ - _tl204518204815_ - _e204523204818_ - _hd204522204821_ - _tl204521204823_ - _e204526204826_ - _hd204525204829_ - _tl204524204831_ - _e204529204834_ - _hd204528204837_ - _tl204527204839_ - _e204532204842_ - _hd204531204845_ - _tl204530204847_))))))) + (not __tmp110488))) + (___kont109074109075_ + _L105854_ + _L105855_ + _L105856_ + _L105857_ + _L105858_ + _L105859_) + (___match109179109180_ + _e105439105694_ + _hd105438105697_ + _tl105437105699_ + _e105451105726_ + _hd105450105729_ + _tl105449105731_ + _e105454105734_ + _hd105453105737_ + _tl105452105739_ + _e105457105742_ + _hd105456105745_ + _tl105455105747_ + _e105460105750_ + _hd105459105753_ + _tl105458105755_ + _e105463105758_ + _hd105462105761_ + _tl105461105763_ + _e105466105766_ + _hd105465105769_ + _tl105464105771_ + _e105469105774_ + _hd105468105777_ + _tl105467105779_ + _e105472105782_ + _hd105471105785_ + _tl105470105787_))) + (___match109179109180_ + _e105439105694_ + _hd105438105697_ + _tl105437105699_ + _e105451105726_ + _hd105450105729_ + _tl105449105731_ + _e105454105734_ + _hd105453105737_ + _tl105452105739_ + _e105457105742_ + _hd105456105745_ + _tl105455105747_ + _e105460105750_ + _hd105459105753_ + _tl105458105755_ + _e105463105758_ + _hd105462105761_ + _tl105461105763_ + _e105466105766_ + _hd105465105769_ + _tl105464105771_ + _e105469105774_ + _hd105468105777_ + _tl105467105779_ + _e105472105782_ + _hd105471105785_ + _tl105470105787_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop204536204879_ - _target204533204850_ + (_loop105476105819_ + _target105473105790_ '()))) - (___match212807212808_ - _e204499204754_ - _hd204498204757_ - _tl204497204759_ - _e204511204786_ - _hd204510204789_ - _tl204509204791_ - _e204514204794_ - _hd204513204797_ - _tl204512204799_ - _e204517204802_ - _hd204516204805_ - _tl204515204807_ - _e204520204810_ - _hd204519204813_ - _tl204518204815_ - _e204523204818_ - _hd204522204821_ - _tl204521204823_ - _e204526204826_ - _hd204525204829_ - _tl204524204831_ - _e204529204834_ - _hd204528204837_ - _tl204527204839_ - _e204532204842_ - _hd204531204845_ - _tl204530204847_)) - (___match212807212808_ - _e204499204754_ - _hd204498204757_ - _tl204497204759_ - _e204511204786_ - _hd204510204789_ - _tl204509204791_ - _e204514204794_ - _hd204513204797_ - _tl204512204799_ - _e204517204802_ - _hd204516204805_ - _tl204515204807_ - _e204520204810_ - _hd204519204813_ - _tl204518204815_ - _e204523204818_ - _hd204522204821_ - _tl204521204823_ - _e204526204826_ - _hd204525204829_ - _tl204524204831_ - _e204529204834_ - _hd204528204837_ - _tl204527204839_ - _e204532204842_ - _hd204531204845_ - _tl204530204847_)))) - (___match212807212808_ - _e204499204754_ - _hd204498204757_ - _tl204497204759_ - _e204511204786_ - _hd204510204789_ - _tl204509204791_ - _e204514204794_ - _hd204513204797_ - _tl204512204799_ - _e204517204802_ - _hd204516204805_ - _tl204515204807_ - _e204520204810_ - _hd204519204813_ - _tl204518204815_ - _e204523204818_ - _hd204522204821_ - _tl204521204823_ - _e204526204826_ - _hd204525204829_ - _tl204524204831_ - _e204529204834_ - _hd204528204837_ - _tl204527204839_ - _e204532204842_ - _hd204531204845_ - _tl204530204847_)) - (___match212807212808_ - _e204499204754_ - _hd204498204757_ - _tl204497204759_ - _e204511204786_ - _hd204510204789_ - _tl204509204791_ - _e204514204794_ - _hd204513204797_ - _tl204512204799_ - _e204517204802_ - _hd204516204805_ - _tl204515204807_ - _e204520204810_ - _hd204519204813_ - _tl204518204815_ - _e204523204818_ - _hd204522204821_ - _tl204521204823_ - _e204526204826_ - _hd204525204829_ - _tl204524204831_ - _e204529204834_ - _hd204528204837_ - _tl204527204839_ - _e204532204842_ - _hd204531204845_ - _tl204530204847_)) - (___match212807212808_ - _e204499204754_ - _hd204498204757_ - _tl204497204759_ - _e204511204786_ - _hd204510204789_ - _tl204509204791_ - _e204514204794_ - _hd204513204797_ - _tl204512204799_ - _e204517204802_ - _hd204516204805_ - _tl204515204807_ - _e204520204810_ - _hd204519204813_ - _tl204518204815_ - _e204523204818_ - _hd204522204821_ - _tl204521204823_ - _e204526204826_ - _hd204525204829_ - _tl204524204831_ - _e204529204834_ - _hd204528204837_ - _tl204527204839_ - _e204532204842_ - _hd204531204845_ - _tl204530204847_)))) - (___match212807212808_ - _e204499204754_ - _hd204498204757_ - _tl204497204759_ - _e204511204786_ - _hd204510204789_ - _tl204509204791_ - _e204514204794_ - _hd204513204797_ - _tl204512204799_ - _e204517204802_ - _hd204516204805_ - _tl204515204807_ - _e204520204810_ - _hd204519204813_ - _tl204518204815_ - _e204523204818_ - _hd204522204821_ - _tl204521204823_ - _e204526204826_ - _hd204525204829_ - _tl204524204831_ - _e204529204834_ - _hd204528204837_ - _tl204527204839_ - _e204532204842_ - _hd204531204845_ - _tl204530204847_)))) + (___match109179109180_ + _e105439105694_ + _hd105438105697_ + _tl105437105699_ + _e105451105726_ + _hd105450105729_ + _tl105449105731_ + _e105454105734_ + _hd105453105737_ + _tl105452105739_ + _e105457105742_ + _hd105456105745_ + _tl105455105747_ + _e105460105750_ + _hd105459105753_ + _tl105458105755_ + _e105463105758_ + _hd105462105761_ + _tl105461105763_ + _e105466105766_ + _hd105465105769_ + _tl105464105771_ + _e105469105774_ + _hd105468105777_ + _tl105467105779_ + _e105472105782_ + _hd105471105785_ + _tl105470105787_)) + (___match109179109180_ + _e105439105694_ + _hd105438105697_ + _tl105437105699_ + _e105451105726_ + _hd105450105729_ + _tl105449105731_ + _e105454105734_ + _hd105453105737_ + _tl105452105739_ + _e105457105742_ + _hd105456105745_ + _tl105455105747_ + _e105460105750_ + _hd105459105753_ + _tl105458105755_ + _e105463105758_ + _hd105462105761_ + _tl105461105763_ + _e105466105766_ + _hd105465105769_ + _tl105464105771_ + _e105469105774_ + _hd105468105777_ + _tl105467105779_ + _e105472105782_ + _hd105471105785_ + _tl105470105787_)))) + (___match109179109180_ + _e105439105694_ + _hd105438105697_ + _tl105437105699_ + _e105451105726_ + _hd105450105729_ + _tl105449105731_ + _e105454105734_ + _hd105453105737_ + _tl105452105739_ + _e105457105742_ + _hd105456105745_ + _tl105455105747_ + _e105460105750_ + _hd105459105753_ + _tl105458105755_ + _e105463105758_ + _hd105462105761_ + _tl105461105763_ + _e105466105766_ + _hd105465105769_ + _tl105464105771_ + _e105469105774_ + _hd105468105777_ + _tl105467105779_ + _e105472105782_ + _hd105471105785_ + _tl105470105787_)) + (___match109179109180_ + _e105439105694_ + _hd105438105697_ + _tl105437105699_ + _e105451105726_ + _hd105450105729_ + _tl105449105731_ + _e105454105734_ + _hd105453105737_ + _tl105452105739_ + _e105457105742_ + _hd105456105745_ + _tl105455105747_ + _e105460105750_ + _hd105459105753_ + _tl105458105755_ + _e105463105758_ + _hd105462105761_ + _tl105461105763_ + _e105466105766_ + _hd105465105769_ + _tl105464105771_ + _e105469105774_ + _hd105468105777_ + _tl105467105779_ + _e105472105782_ + _hd105471105785_ + _tl105470105787_)) + (___match109179109180_ + _e105439105694_ + _hd105438105697_ + _tl105437105699_ + _e105451105726_ + _hd105450105729_ + _tl105449105731_ + _e105454105734_ + _hd105453105737_ + _tl105452105739_ + _e105457105742_ + _hd105456105745_ + _tl105455105747_ + _e105460105750_ + _hd105459105753_ + _tl105458105755_ + _e105463105758_ + _hd105462105761_ + _tl105461105763_ + _e105466105766_ + _hd105465105769_ + _tl105464105771_ + _e105469105774_ + _hd105468105777_ + _tl105467105779_ + _e105472105782_ + _hd105471105785_ + _tl105470105787_)))) + (___match109179109180_ + _e105439105694_ + _hd105438105697_ + _tl105437105699_ + _e105451105726_ + _hd105450105729_ + _tl105449105731_ + _e105454105734_ + _hd105453105737_ + _tl105452105739_ + _e105457105742_ + _hd105456105745_ + _tl105455105747_ + _e105460105750_ + _hd105459105753_ + _tl105458105755_ + _e105463105758_ + _hd105462105761_ + _tl105461105763_ + _e105466105766_ + _hd105465105769_ + _tl105464105771_ + _e105469105774_ + _hd105468105777_ + _tl105467105779_ + _e105472105782_ + _hd105471105785_ + _tl105470105787_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match212807212808_ - _e204499204754_ - _hd204498204757_ - _tl204497204759_ - _e204511204786_ - _hd204510204789_ - _tl204509204791_ - _e204514204794_ - _hd204513204797_ - _tl204512204799_ - _e204517204802_ - _hd204516204805_ - _tl204515204807_ - _e204520204810_ - _hd204519204813_ - _tl204518204815_ - _e204523204818_ - _hd204522204821_ - _tl204521204823_ - _e204526204826_ - _hd204525204829_ - _tl204524204831_ - _e204529204834_ - _hd204528204837_ - _tl204527204839_ - _e204532204842_ - _hd204531204845_ - _tl204530204847_)))) - (___match212807212808_ - _e204499204754_ - _hd204498204757_ - _tl204497204759_ - _e204511204786_ - _hd204510204789_ - _tl204509204791_ - _e204514204794_ - _hd204513204797_ - _tl204512204799_ - _e204517204802_ - _hd204516204805_ - _tl204515204807_ - _e204520204810_ - _hd204519204813_ - _tl204518204815_ - _e204523204818_ - _hd204522204821_ - _tl204521204823_ - _e204526204826_ - _hd204525204829_ - _tl204524204831_ - _e204529204834_ - _hd204528204837_ - _tl204527204839_ - _e204532204842_ - _hd204531204845_ - _tl204530204847_)) - (___match212807212808_ - _e204499204754_ - _hd204498204757_ - _tl204497204759_ - _e204511204786_ - _hd204510204789_ - _tl204509204791_ - _e204514204794_ - _hd204513204797_ - _tl204512204799_ - _e204517204802_ - _hd204516204805_ - _tl204515204807_ - _e204520204810_ - _hd204519204813_ - _tl204518204815_ - _e204523204818_ - _hd204522204821_ - _tl204521204823_ - _e204526204826_ - _hd204525204829_ - _tl204524204831_ - _e204529204834_ - _hd204528204837_ - _tl204527204839_ - _e204532204842_ - _hd204531204845_ - _tl204530204847_)) - (___kont212710212711_)))) - (___kont212710212711_)) - (___kont212710212711_)) - (___kont212710212711_)))) + (___match109179109180_ + _e105439105694_ + _hd105438105697_ + _tl105437105699_ + _e105451105726_ + _hd105450105729_ + _tl105449105731_ + _e105454105734_ + _hd105453105737_ + _tl105452105739_ + _e105457105742_ + _hd105456105745_ + _tl105455105747_ + _e105460105750_ + _hd105459105753_ + _tl105458105755_ + _e105463105758_ + _hd105462105761_ + _tl105461105763_ + _e105466105766_ + _hd105465105769_ + _tl105464105771_ + _e105469105774_ + _hd105468105777_ + _tl105467105779_ + _e105472105782_ + _hd105471105785_ + _tl105470105787_)))) + (___match109179109180_ + _e105439105694_ + _hd105438105697_ + _tl105437105699_ + _e105451105726_ + _hd105450105729_ + _tl105449105731_ + _e105454105734_ + _hd105453105737_ + _tl105452105739_ + _e105457105742_ + _hd105456105745_ + _tl105455105747_ + _e105460105750_ + _hd105459105753_ + _tl105458105755_ + _e105463105758_ + _hd105462105761_ + _tl105461105763_ + _e105466105766_ + _hd105465105769_ + _tl105464105771_ + _e105469105774_ + _hd105468105777_ + _tl105467105779_ + _e105472105782_ + _hd105471105785_ + _tl105470105787_)) + (___match109179109180_ + _e105439105694_ + _hd105438105697_ + _tl105437105699_ + _e105451105726_ + _hd105450105729_ + _tl105449105731_ + _e105454105734_ + _hd105453105737_ + _tl105452105739_ + _e105457105742_ + _hd105456105745_ + _tl105455105747_ + _e105460105750_ + _hd105459105753_ + _tl105458105755_ + _e105463105758_ + _hd105462105761_ + _tl105461105763_ + _e105466105766_ + _hd105465105769_ + _tl105464105771_ + _e105469105774_ + _hd105468105777_ + _tl105467105779_ + _e105472105782_ + _hd105471105785_ + _tl105470105787_)) + (___kont109082109083_)))) + (___kont109082109083_)) + (___kont109082109083_)) + (___kont109082109083_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont212710212711_)))) - (___kont212710212711_)) - (___kont212710212711_)))) - (___kont212710212711_)) - (___kont212710212711_)) - (___kont212710212711_)))) + (___kont109082109083_)))) + (___kont109082109083_)) + (___kont109082109083_)))) + (___kont109082109083_)) + (___kont109082109083_)) + (___kont109082109083_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont212710212711_)))) - (___kont212710212711_)) - (___kont212710212711_)) - (___kont212710212711_)))) - (___kont212710212711_)))) - (___kont212710212711_))))))) + (___kont109082109083_)))) + (___kont109082109083_)) + (___kont109082109083_)) + (___kont109082109083_)))) + (___kont109082109083_)))) + (___kont109082109083_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop204503204767_ - _target204500204762_ + (_loop105443105707_ + _target105440105702_ '()))))) - (___match212725212726_ - (lambda (_e204451205014_ - _hd204450205017_ - _tl204449205019_ - ___splice212698212699_ - _target204452205022_ - _tl204454205024_) - (letrec ((_loop204455205027_ - (lambda (_hd204453205030_ - _arg204459205032_) + (___match109097109098_ + (lambda (_e105391105954_ + _hd105390105957_ + _tl105389105959_ + ___splice109070109071_ + _target105392105962_ + _tl105394105964_) + (letrec ((_loop105395105967_ + (lambda (_hd105393105970_ + _arg105399105972_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd204453205030_)) - (let ((_e204456205035_ + _hd105393105970_)) + (let ((_e105396105975_ (let () (declare (not safe)) (gx#stx-e - _hd204453205030_)))) - (let ((_lp-tl204458205040_ + _hd105393105970_)))) + (let ((_lp-tl105398105980_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e204456205035_))) - (_lp-hd204457205038_ - (let () (declare (not safe)) (##car _e204456205035_)))) - (let ((__tmp214144 + (##cdr _e105396105975_))) + (_lp-hd105397105978_ + (let () (declare (not safe)) (##car _e105396105975_)))) + (let ((__tmp110516 (let () (declare (not safe)) - (cons _lp-hd204457205038_ _arg204459205032_)))) + (cons _lp-hd105397105978_ _arg105399105972_)))) (declare (not safe)) - (_loop204455205027_ _lp-tl204458205040_ __tmp214144)))) + (_loop105395105967_ _lp-tl105398105980_ __tmp110516)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg204460205043_ - (reverse _arg204459205032_))) + (let ((_arg105400105983_ + (reverse _arg105399105972_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl204449205019_)) - (let ((_e204463205046_ + _tl105389105959_)) + (let ((_e105403105986_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl204449205019_)))) - (let ((_tl204461205051_ + (gx#stx-e _tl105389105959_)))) + (let ((_tl105401105991_ (let () (declare (not safe)) - (##cdr _e204463205046_))) - (_hd204462205049_ + (##cdr _e105403105986_))) + (_hd105402105989_ (let () (declare (not safe)) - (##car _e204463205046_)))) + (##car _e105403105986_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd204462205049_)) - (let ((_e204466205054_ + (gx#stx-pair? _hd105402105989_)) + (let ((_e105406105994_ (let () (declare (not safe)) - (gx#stx-e _hd204462205049_)))) - (let ((_tl204464205059_ + (gx#stx-e _hd105402105989_)))) + (let ((_tl105404105999_ (let () (declare (not safe)) - (##cdr _e204466205054_))) - (_hd204465205057_ + (##cdr _e105406105994_))) + (_hd105405105997_ (let () (declare (not safe)) - (##car _e204466205054_)))) + (##car _e105406105994_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd204465205057_)) + (gx#identifier? _hd105405105997_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd204465205057_)) + (gx#stx-eq? '%#call _hd105405105997_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl204464205059_)) - (let ((_e204469205062_ + (gx#stx-pair? _tl105404105999_)) + (let ((_e105409106002_ (let () (declare (not safe)) (gx#stx-e - _tl204464205059_)))) - (let ((_tl204467205067_ + _tl105404105999_)))) + (let ((_tl105407106007_ (let () (declare (not safe)) - (##cdr _e204469205062_))) - (_hd204468205065_ + (##cdr _e105409106002_))) + (_hd105408106005_ (let () (declare (not safe)) - (##car _e204469205062_)))) + (##car _e105409106002_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd204468205065_)) - (let ((_e204472205070_ + _hd105408106005_)) + (let ((_e105412106010_ (let () (declare (not safe)) (gx#stx-e - _hd204468205065_)))) - (let ((_tl204470205075_ + _hd105408106005_)))) + (let ((_tl105410106015_ (let () (declare (not safe)) - (##cdr _e204472205070_))) - (_hd204471205073_ + (##cdr _e105412106010_))) + (_hd105411106013_ (let () (declare (not safe)) - (##car _e204472205070_)))) + (##car _e105412106010_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd204471205073_)) + _hd105411106013_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd204471205073_)) + (gx#stx-eq? '%#ref _hd105411106013_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl204470205075_)) - (let ((_e204475205078_ + (gx#stx-pair? _tl105410106015_)) + (let ((_e105415106018_ (let () (declare (not safe)) - (gx#stx-e _tl204470205075_)))) - (let ((_tl204473205083_ + (gx#stx-e _tl105410106015_)))) + (let ((_tl105413106023_ (let () (declare (not safe)) - (##cdr _e204475205078_))) - (_hd204474205081_ + (##cdr _e105415106018_))) + (_hd105414106021_ (let () (declare (not safe)) - (##car _e204475205078_)))) + (##car _e105415106018_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl204473205083_)) + (gx#stx-null? _tl105413106023_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl204467205067_)) - (let ((___splice212700212701_ + (gx#stx-pair/null? _tl105407106007_)) + (let ((___splice109072109073_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl204467205067_ + _tl105407106007_ '0)))) - (let ((_tl204478205088_ + (let ((_tl105418106028_ (let () (declare (not safe)) (##vector-ref - ___splice212700212701_ + ___splice109072109073_ '1))) - (_target204476205086_ + (_target105416106026_ (let () (declare (not safe)) (##vector-ref - ___splice212700212701_ + ___splice109072109073_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl204478205088_)) - (letrec ((_loop204479205091_ - (lambda (_hd204477205094_ + _tl105418106028_)) + (letrec ((_loop105419106031_ + (lambda (_hd105417106034_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xarg204483205096_) + _xarg105423106036_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd204477205094_)) - (let ((_e204480205099_ + (gx#stx-pair? _hd105417106034_)) + (let ((_e105420106039_ (let () (declare (not safe)) - (gx#stx-e _hd204477205094_)))) - (let ((_lp-tl204482205104_ + (gx#stx-e _hd105417106034_)))) + (let ((_lp-tl105422106044_ (let () (declare (not safe)) - (##cdr _e204480205099_))) - (_lp-hd204481205102_ + (##cdr _e105420106039_))) + (_lp-hd105421106042_ (let () (declare (not safe)) - (##car _e204480205099_)))) + (##car _e105420106039_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd204481205102_)) - (let ((_e204487205107_ + (gx#stx-pair? _lp-hd105421106042_)) + (let ((_e105427106047_ (let () (declare (not safe)) - (gx#stx-e _lp-hd204481205102_)))) - (let ((_tl204485205112_ + (gx#stx-e _lp-hd105421106042_)))) + (let ((_tl105425106052_ (let () (declare (not safe)) - (##cdr _e204487205107_))) - (_hd204486205110_ + (##cdr _e105427106047_))) + (_hd105426106050_ (let () (declare (not safe)) - (##car _e204487205107_)))) + (##car _e105427106047_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd204486205110_)) + (gx#identifier? _hd105426106050_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd204486205110_)) + _hd105426106050_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl204485205112_)) - (let ((_e204490205115_ + _tl105425106052_)) + (let ((_e105430106055_ (let () (declare (not safe)) (gx#stx-e - _tl204485205112_)))) - (let ((_tl204488205120_ + _tl105425106052_)))) + (let ((_tl105428106060_ (let () (declare (not safe)) - (##cdr _e204490205115_))) - (_hd204489205118_ + (##cdr _e105430106055_))) + (_hd105429106058_ (let () (declare (not safe)) - (##car _e204490205115_)))) + (##car _e105430106055_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl204488205120_)) - (let ((__tmp214143 + _tl105428106060_)) + (let ((__tmp110515 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _hd204489205118_ _xarg204483205096_)))) + (cons _hd105429106058_ _xarg105423106036_)))) (declare (not safe)) - (_loop204479205091_ _lp-tl204482205104_ __tmp214143)) - (___match212737212738_ - _e204451205014_ - _hd204450205017_ - _tl204449205019_ - ___splice212698212699_ - _target204452205022_ - _tl204454205024_)))) + (_loop105419106031_ _lp-tl105422106044_ __tmp110515)) + (___match109109109110_ + _e105391105954_ + _hd105390105957_ + _tl105389105959_ + ___splice109070109071_ + _target105392105962_ + _tl105394105964_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match212737212738_ - _e204451205014_ - _hd204450205017_ - _tl204449205019_ - ___splice212698212699_ - _target204452205022_ - _tl204454205024_)) - (___match212737212738_ - _e204451205014_ - _hd204450205017_ - _tl204449205019_ - ___splice212698212699_ - _target204452205022_ - _tl204454205024_)) - (___match212737212738_ - _e204451205014_ - _hd204450205017_ - _tl204449205019_ - ___splice212698212699_ - _target204452205022_ - _tl204454205024_)))) - (___match212737212738_ - _e204451205014_ - _hd204450205017_ - _tl204449205019_ - ___splice212698212699_ - _target204452205022_ - _tl204454205024_)))) - (let ((_xarg204484205123_ (reverse _xarg204483205096_))) + (___match109109109110_ + _e105391105954_ + _hd105390105957_ + _tl105389105959_ + ___splice109070109071_ + _target105392105962_ + _tl105394105964_)) + (___match109109109110_ + _e105391105954_ + _hd105390105957_ + _tl105389105959_ + ___splice109070109071_ + _target105392105962_ + _tl105394105964_)) + (___match109109109110_ + _e105391105954_ + _hd105390105957_ + _tl105389105959_ + ___splice109070109071_ + _target105392105962_ + _tl105394105964_)))) + (___match109109109110_ + _e105391105954_ + _hd105390105957_ + _tl105389105959_ + ___splice109070109071_ + _target105392105962_ + _tl105394105964_)))) + (let ((_xarg105424106063_ (reverse _xarg105423106036_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl204461205051_)) - (let ((_L205126_ _xarg204484205123_) - (_L205127_ _hd204474205081_) - (_L205128_ _arg204460205043_)) - (if (and (let ((__tmp214141 - (let ((__tmp214142 - (lambda (_g205156205159_ - _g205157205161_) + (gx#stx-null? _tl105401105991_)) + (let ((_L106066_ _xarg105424106063_) + (_L106067_ _hd105414106021_) + (_L106068_ _arg105400105983_)) + (if (and (let ((__tmp110513 + (let ((__tmp110514 + (lambda (_g106096106099_ + _g106097106101_) (let () (declare (not safe)) - (cons _g205156205159_ - _g205157205161_))))) + (cons _g106096106099_ + _g106097106101_))))) (declare (not safe)) - (foldr1 __tmp214142 + (foldr1 __tmp110514 '() - _L205128_)))) + _L106068_)))) (declare (not safe)) - (gx#identifier-list? __tmp214141)) - (fx= (length (let ((__tmp214139 - (lambda (_g205163205166_ + (gx#identifier-list? __tmp110513)) + (fx= (length (let ((__tmp110511 + (lambda (_g106103106106_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g205164205168_) + _g106104106108_) (let () (declare (not safe)) - (cons _g205163205166_ _g205164205168_))))) + (cons _g106103106106_ _g106104106108_))))) (declare (not safe)) - (foldr1 __tmp214139 '() _L205128_))) + (foldr1 __tmp110511 '() _L106068_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (length (let ((__tmp214140 - (lambda (_g205170205173_ + (length (let ((__tmp110512 + (lambda (_g106110106113_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g205171205175_) + _g106111106115_) (let () (declare (not safe)) - (cons _g205170205173_ _g205171205175_))))) + (cons _g106110106113_ _g106111106115_))))) (declare (not safe)) - (foldr1 __tmp214140 '() _L205126_)))) + (foldr1 __tmp110512 '() _L106066_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp214137 - (let ((__tmp214138 - (lambda (_g205177205180_ - _g205178205182_) + (let ((__tmp110509 + (let ((__tmp110510 + (lambda (_g106117106120_ + _g106118106122_) (let () (declare (not safe)) - (cons _g205177205180_ - _g205178205182_))))) + (cons _g106117106120_ + _g106118106122_))))) (declare (not safe)) - (foldr1 __tmp214138 + (foldr1 __tmp110510 '() - _L205128_))) - (__tmp214135 - (let ((__tmp214136 - (lambda (_g205184205187_ - _g205185205189_) + _L106068_))) + (__tmp110507 + (let ((__tmp110508 + (lambda (_g106124106127_ + _g106125106129_) (let () (declare (not safe)) - (cons _g205184205187_ - _g205185205189_))))) + (cons _g106124106127_ + _g106125106129_))))) (declare (not safe)) - (foldr1 __tmp214136 + (foldr1 __tmp110508 '() - _L205126_)))) + _L106066_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp214137 - __tmp214135)) - (let ((__tmp214131 - (let ((__tmp214134 - (lambda (_g205191205193_) + __tmp110509 + __tmp110507)) + (let ((__tmp110503 + (let ((__tmp110506 + (lambda (_g106131106133_) (let () (declare (not safe)) (gx#free-identifier=? - _g205191205193_ - _L205127_)))) - (__tmp214132 - (let ((__tmp214133 - (lambda (_g205195205198_ + _g106131106133_ + _L106067_)))) + (__tmp110504 + (let ((__tmp110505 + (lambda (_g106135106138_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g205196205200_) + _g106136106140_) (let () (declare (not safe)) - (cons _g205195205198_ _g205196205200_))))) + (cons _g106135106138_ _g106136106140_))))) (declare (not safe)) - (foldr1 __tmp214133 '() _L205128_)))) + (foldr1 __tmp110505 '() _L106068_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (find __tmp214134 - __tmp214132)))) + (find __tmp110506 + __tmp110504)))) (declare (not safe)) - (not __tmp214131))) - (___kont212696212697_ - _L205126_ - _L205127_ - _L205128_) - (___match212737212738_ - _e204451205014_ - _hd204450205017_ - _tl204449205019_ - ___splice212698212699_ - _target204452205022_ - _tl204454205024_))) - (___match212737212738_ - _e204451205014_ - _hd204450205017_ - _tl204449205019_ - ___splice212698212699_ - _target204452205022_ - _tl204454205024_))))))) + (not __tmp110503))) + (___kont109068109069_ + _L106066_ + _L106067_ + _L106068_) + (___match109109109110_ + _e105391105954_ + _hd105390105957_ + _tl105389105959_ + ___splice109070109071_ + _target105392105962_ + _tl105394105964_))) + (___match109109109110_ + _e105391105954_ + _hd105390105957_ + _tl105389105959_ + ___splice109070109071_ + _target105392105962_ + _tl105394105964_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop204479205091_ - _target204476205086_ + (_loop105419106031_ + _target105416106026_ '()))) - (___match212737212738_ - _e204451205014_ - _hd204450205017_ - _tl204449205019_ - ___splice212698212699_ - _target204452205022_ - _tl204454205024_)))) - (___match212737212738_ - _e204451205014_ - _hd204450205017_ - _tl204449205019_ - ___splice212698212699_ - _target204452205022_ - _tl204454205024_)) - (___match212737212738_ - _e204451205014_ - _hd204450205017_ - _tl204449205019_ - ___splice212698212699_ - _target204452205022_ - _tl204454205024_)))) - (___match212737212738_ - _e204451205014_ - _hd204450205017_ - _tl204449205019_ - ___splice212698212699_ - _target204452205022_ - _tl204454205024_)) - (___match212737212738_ - _e204451205014_ - _hd204450205017_ - _tl204449205019_ - ___splice212698212699_ - _target204452205022_ - _tl204454205024_)) - (___match212737212738_ - _e204451205014_ - _hd204450205017_ - _tl204449205019_ - ___splice212698212699_ - _target204452205022_ - _tl204454205024_)))) + (___match109109109110_ + _e105391105954_ + _hd105390105957_ + _tl105389105959_ + ___splice109070109071_ + _target105392105962_ + _tl105394105964_)))) + (___match109109109110_ + _e105391105954_ + _hd105390105957_ + _tl105389105959_ + ___splice109070109071_ + _target105392105962_ + _tl105394105964_)) + (___match109109109110_ + _e105391105954_ + _hd105390105957_ + _tl105389105959_ + ___splice109070109071_ + _target105392105962_ + _tl105394105964_)))) + (___match109109109110_ + _e105391105954_ + _hd105390105957_ + _tl105389105959_ + ___splice109070109071_ + _target105392105962_ + _tl105394105964_)) + (___match109109109110_ + _e105391105954_ + _hd105390105957_ + _tl105389105959_ + ___splice109070109071_ + _target105392105962_ + _tl105394105964_)) + (___match109109109110_ + _e105391105954_ + _hd105390105957_ + _tl105389105959_ + ___splice109070109071_ + _target105392105962_ + _tl105394105964_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match212737212738_ - _e204451205014_ - _hd204450205017_ - _tl204449205019_ - ___splice212698212699_ - _target204452205022_ - _tl204454205024_)))) - (___match212737212738_ - _e204451205014_ - _hd204450205017_ - _tl204449205019_ - ___splice212698212699_ - _target204452205022_ - _tl204454205024_)) - (___match212737212738_ - _e204451205014_ - _hd204450205017_ - _tl204449205019_ - ___splice212698212699_ - _target204452205022_ - _tl204454205024_)) - (___match212737212738_ - _e204451205014_ - _hd204450205017_ - _tl204449205019_ - ___splice212698212699_ - _target204452205022_ - _tl204454205024_)))) - (___match212737212738_ - _e204451205014_ - _hd204450205017_ - _tl204449205019_ - ___splice212698212699_ - _target204452205022_ - _tl204454205024_)))) - (___match212737212738_ - _e204451205014_ - _hd204450205017_ - _tl204449205019_ - ___splice212698212699_ - _target204452205022_ - _tl204454205024_))))))) + (___match109109109110_ + _e105391105954_ + _hd105390105957_ + _tl105389105959_ + ___splice109070109071_ + _target105392105962_ + _tl105394105964_)))) + (___match109109109110_ + _e105391105954_ + _hd105390105957_ + _tl105389105959_ + ___splice109070109071_ + _target105392105962_ + _tl105394105964_)) + (___match109109109110_ + _e105391105954_ + _hd105390105957_ + _tl105389105959_ + ___splice109070109071_ + _target105392105962_ + _tl105394105964_)) + (___match109109109110_ + _e105391105954_ + _hd105390105957_ + _tl105389105959_ + ___splice109070109071_ + _target105392105962_ + _tl105394105964_)))) + (___match109109109110_ + _e105391105954_ + _hd105390105957_ + _tl105389105959_ + ___splice109070109071_ + _target105392105962_ + _tl105394105964_)))) + (___match109109109110_ + _e105391105954_ + _hd105390105957_ + _tl105389105959_ + ___splice109070109071_ + _target105392105962_ + _tl105394105964_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop204455205027_ - _target204452205022_ + (_loop105395105967_ + _target105392105962_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx212694212695_)) - (let ((_e204451205014_ + (gx#stx-pair? ___stx109066109067_)) + (let ((_e105391105954_ (let () (declare (not safe)) - (gx#stx-e ___stx212694212695_)))) - (let ((_tl204449205019_ + (gx#stx-e ___stx109066109067_)))) + (let ((_tl105389105959_ (let () (declare (not safe)) - (##cdr _e204451205014_))) - (_hd204450205017_ + (##cdr _e105391105954_))) + (_hd105390105957_ (let () (declare (not safe)) - (##car _e204451205014_)))) + (##car _e105391105954_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd204450205017_)) - (let ((___splice212698212699_ + (gx#stx-pair/null? _hd105390105957_)) + (let ((___splice109070109071_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd204450205017_ + _hd105390105957_ '0)))) - (let ((_tl204454205024_ + (let ((_tl105394105964_ (let () (declare (not safe)) (##vector-ref - ___splice212698212699_ + ___splice109070109071_ '1))) - (_target204452205022_ + (_target105392105962_ (let () (declare (not safe)) (##vector-ref - ___splice212698212699_ + ___splice109070109071_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl204454205024_)) - (___match212725212726_ - _e204451205014_ - _hd204450205017_ - _tl204449205019_ - ___splice212698212699_ - _target204452205022_ - _tl204454205024_) - (___match212737212738_ - _e204451205014_ - _hd204450205017_ - _tl204449205019_ - ___splice212698212699_ - _target204452205022_ - _tl204454205024_)))) + _tl105394105964_)) + (___match109097109098_ + _e105391105954_ + _hd105390105957_ + _tl105389105959_ + ___splice109070109071_ + _target105392105962_ + _tl105394105964_) + (___match109109109110_ + _e105391105954_ + _hd105390105957_ + _tl105389105959_ + ___splice109070109071_ + _target105392105962_ + _tl105394105964_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl204449205019_)) - (let ((_e204566204621_ + (gx#stx-pair? _tl105389105959_)) + (let ((_e105506105561_ (let () (declare (not safe)) (gx#stx-e - _tl204449205019_)))) - (let ((_tl204564204626_ + _tl105389105959_)))) + (let ((_tl105504105566_ (let () (declare (not safe)) - (##cdr _e204566204621_))) - (_hd204565204624_ + (##cdr _e105506105561_))) + (_hd105505105564_ (let () (declare (not safe)) - (##car _e204566204621_)))) + (##car _e105506105561_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd204565204624_)) - (let ((_e204569204629_ + _hd105505105564_)) + (let ((_e105509105569_ (let () (declare (not safe)) (gx#stx-e - _hd204565204624_)))) - (let ((_tl204567204634_ + _hd105505105564_)))) + (let ((_tl105507105574_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e204569204629_))) - (_hd204568204632_ - (let () (declare (not safe)) (##car _e204569204629_)))) + (##cdr _e105509105569_))) + (_hd105508105572_ + (let () (declare (not safe)) (##car _e105509105569_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd204568204632_)) + (gx#identifier? _hd105508105572_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd204568204632_)) + (gx#stx-eq? '%#call _hd105508105572_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl204567204634_)) - (let ((_e204572204637_ + (gx#stx-pair? _tl105507105574_)) + (let ((_e105512105577_ (let () (declare (not safe)) - (gx#stx-e _tl204567204634_)))) - (let ((_tl204570204642_ + (gx#stx-e _tl105507105574_)))) + (let ((_tl105510105582_ (let () (declare (not safe)) - (##cdr _e204572204637_))) - (_hd204571204640_ + (##cdr _e105512105577_))) + (_hd105511105580_ (let () (declare (not safe)) - (##car _e204572204637_)))) + (##car _e105512105577_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd204571204640_)) - (let ((_e204575204645_ + (gx#stx-pair? _hd105511105580_)) + (let ((_e105515105585_ (let () (declare (not safe)) - (gx#stx-e _hd204571204640_)))) - (let ((_tl204573204650_ + (gx#stx-e _hd105511105580_)))) + (let ((_tl105513105590_ (let () (declare (not safe)) - (##cdr _e204575204645_))) - (_hd204574204648_ + (##cdr _e105515105585_))) + (_hd105514105588_ (let () (declare (not safe)) - (##car _e204575204645_)))) + (##car _e105515105585_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd204574204648_)) + _hd105514105588_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd204574204648_)) + _hd105514105588_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl204573204650_)) - (let ((_e204578204653_ + _tl105513105590_)) + (let ((_e105518105593_ (let () (declare (not safe)) (gx#stx-e - _tl204573204650_)))) - (let ((_tl204576204658_ + _tl105513105590_)))) + (let ((_tl105516105598_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e204578204653_))) - (_hd204577204656_ - (let () (declare (not safe)) (##car _e204578204653_)))) + (##cdr _e105518105593_))) + (_hd105517105596_ + (let () (declare (not safe)) (##car _e105518105593_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl204576204658_)) + (gx#stx-null? _tl105516105598_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl204570204642_)) - (let ((_e204581204661_ + (gx#stx-pair? _tl105510105582_)) + (let ((_e105521105601_ (let () (declare (not safe)) - (gx#stx-e _tl204570204642_)))) - (let ((_tl204579204666_ + (gx#stx-e _tl105510105582_)))) + (let ((_tl105519105606_ (let () (declare (not safe)) - (##cdr _e204581204661_))) - (_hd204580204664_ + (##cdr _e105521105601_))) + (_hd105520105604_ (let () (declare (not safe)) - (##car _e204581204661_)))) + (##car _e105521105601_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd204580204664_)) - (let ((_e204584204669_ + (gx#stx-pair? _hd105520105604_)) + (let ((_e105524105609_ (let () (declare (not safe)) - (gx#stx-e _hd204580204664_)))) - (let ((_tl204582204674_ + (gx#stx-e _hd105520105604_)))) + (let ((_tl105522105614_ (let () (declare (not safe)) - (##cdr _e204584204669_))) - (_hd204583204672_ + (##cdr _e105524105609_))) + (_hd105523105612_ (let () (declare (not safe)) - (##car _e204584204669_)))) + (##car _e105524105609_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd204583204672_)) + (gx#identifier? _hd105523105612_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd204583204672_)) + _hd105523105612_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl204582204674_)) - (let ((_e204587204677_ + _tl105522105614_)) + (let ((_e105527105617_ (let () (declare (not safe)) (gx#stx-e - _tl204582204674_)))) - (let ((_tl204585204682_ + _tl105522105614_)))) + (let ((_tl105525105622_ (let () (declare (not safe)) - (##cdr _e204587204677_))) - (_hd204586204680_ + (##cdr _e105527105617_))) + (_hd105526105620_ (let () (declare (not safe)) - (##car _e204587204677_)))) + (##car _e105527105617_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl204585204682_)) + _tl105525105622_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl204579204666_)) - (let ((_e204590204685_ + _tl105519105606_)) + (let ((_e105530105625_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl204579204666_)))) - (let ((_tl204588204690_ + (gx#stx-e _tl105519105606_)))) + (let ((_tl105528105630_ (let () (declare (not safe)) - (##cdr _e204590204685_))) - (_hd204589204688_ + (##cdr _e105530105625_))) + (_hd105529105628_ (let () (declare (not safe)) - (##car _e204590204685_)))) + (##car _e105530105625_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd204589204688_)) - (let ((_e204593204693_ + (gx#stx-pair? _hd105529105628_)) + (let ((_e105533105633_ (let () (declare (not safe)) - (gx#stx-e _hd204589204688_)))) - (let ((_tl204591204698_ + (gx#stx-e _hd105529105628_)))) + (let ((_tl105531105638_ (let () (declare (not safe)) - (##cdr _e204593204693_))) - (_hd204592204696_ + (##cdr _e105533105633_))) + (_hd105532105636_ (let () (declare (not safe)) - (##car _e204593204693_)))) + (##car _e105533105633_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd204592204696_)) + (gx#identifier? _hd105532105636_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd204592204696_)) + (gx#stx-eq? '%#ref _hd105532105636_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl204591204698_)) - (let ((_e204596204701_ + (gx#stx-pair? _tl105531105638_)) + (let ((_e105536105641_ (let () (declare (not safe)) (gx#stx-e - _tl204591204698_)))) - (let ((_tl204594204706_ + _tl105531105638_)))) + (let ((_tl105534105646_ (let () (declare (not safe)) - (##cdr _e204596204701_))) - (_hd204595204704_ + (##cdr _e105536105641_))) + (_hd105535105644_ (let () (declare (not safe)) - (##car _e204596204701_)))) + (##car _e105536105641_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl204594204706_)) + _tl105534105646_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl204588204690_)) + _tl105528105630_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl204564204626_)) - (___match212835212836_ - _e204451205014_ - _hd204450205017_ - _tl204449205019_ - _e204566204621_ - _hd204565204624_ - _tl204564204626_ - _e204569204629_ - _hd204568204632_ - _tl204567204634_ - _e204572204637_ - _hd204571204640_ - _tl204570204642_ - _e204575204645_ - _hd204574204648_ - _tl204573204650_ - _e204578204653_ - _hd204577204656_ - _tl204576204658_ - _e204581204661_ - _hd204580204664_ - _tl204579204666_ - _e204584204669_ - _hd204583204672_ - _tl204582204674_ - _e204587204677_ - _hd204586204680_ - _tl204585204682_ - _e204590204685_ - _hd204589204688_ - _tl204588204690_ - _e204593204693_ - _hd204592204696_ - _tl204591204698_ - _e204596204701_ - _hd204595204704_ - _tl204594204706_) - (___kont212710212711_)) - (___kont212710212711_)) - (___kont212710212711_)))) - (___kont212710212711_)) - (___kont212710212711_)) - (___kont212710212711_)))) - (___kont212710212711_)))) - (___kont212710212711_)) - (___kont212710212711_)))) + _tl105504105566_)) + (___match109207109208_ + _e105391105954_ + _hd105390105957_ + _tl105389105959_ + _e105506105561_ + _hd105505105564_ + _tl105504105566_ + _e105509105569_ + _hd105508105572_ + _tl105507105574_ + _e105512105577_ + _hd105511105580_ + _tl105510105582_ + _e105515105585_ + _hd105514105588_ + _tl105513105590_ + _e105518105593_ + _hd105517105596_ + _tl105516105598_ + _e105521105601_ + _hd105520105604_ + _tl105519105606_ + _e105524105609_ + _hd105523105612_ + _tl105522105614_ + _e105527105617_ + _hd105526105620_ + _tl105525105622_ + _e105530105625_ + _hd105529105628_ + _tl105528105630_ + _e105533105633_ + _hd105532105636_ + _tl105531105638_ + _e105536105641_ + _hd105535105644_ + _tl105534105646_) + (___kont109082109083_)) + (___kont109082109083_)) + (___kont109082109083_)))) + (___kont109082109083_)) + (___kont109082109083_)) + (___kont109082109083_)))) + (___kont109082109083_)))) + (___kont109082109083_)) + (___kont109082109083_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont212710212711_)) - (___kont212710212711_)) - (___kont212710212711_)))) - (___kont212710212711_)))) - (___kont212710212711_)) - (___kont212710212711_)))) + (___kont109082109083_)) + (___kont109082109083_)) + (___kont109082109083_)))) + (___kont109082109083_)))) + (___kont109082109083_)) + (___kont109082109083_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont212710212711_)) - (___kont212710212711_)) - (___kont212710212711_)))) - (___kont212710212711_)))) - (___kont212710212711_)) - (___kont212710212711_)) - (___kont212710212711_)))) + (___kont109082109083_)) + (___kont109082109083_)) + (___kont109082109083_)))) + (___kont109082109083_)))) + (___kont109082109083_)) + (___kont109082109083_)) + (___kont109082109083_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont212710212711_)))) - (___kont212710212711_))))) - (___kont212710212711_))))))) - (_dispatch-case-e203752_ - (lambda (_hd203900_ _body203901_) - (let* ((_form203903_ - (let ((__tmp214145 + (___kont109082109083_)))) + (___kont109082109083_))))) + (___kont109082109083_))))))) + (_dispatch-case-e104692_ + (lambda (_hd104840_ _body104841_) + (let* ((_form104843_ + (let ((__tmp110517 (let () (declare (not safe)) - (cons _body203901_ '())))) + (cons _body104841_ '())))) (declare (not safe)) - (cons _hd203900_ __tmp214145))) - (___stx212838212839_ _form203903_) - (_g203907204031_ + (cons _hd104840_ __tmp110517))) + (___stx109210109211_ _form104843_) + (_g104847104971_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212838212839_))))) - (let ((___kont212840212841_ - (lambda (_L204402_ _L204403_ _L204404_) - (let ((__tmp214146 - (let ((__tmp214148 + ___stx109210109211_))))) + (let ((___kont109212109213_ + (lambda (_L105342_ _L105343_ _L105344_) + (let ((__tmp110518 + (let ((__tmp110520 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp214147 + (__tmp110519 (let () (declare (not safe)) - (cons _L204403_ '())))) + (cons _L105343_ '())))) (declare (not safe)) - (cons __tmp214148 __tmp214147)))) + (cons __tmp110520 __tmp110519)))) (declare (not safe)) - (gxc#compile-e__0 __tmp214146)))) - (___kont212846212847_ - (lambda (_L204250_ - _L204251_ - _L204252_ - _L204253_) - (let ((__tmp214149 - (let ((__tmp214151 + (gxc#compile-e__0 __tmp110518)))) + (___kont109218109219_ + (lambda (_L105190_ + _L105191_ + _L105192_ + _L105193_) + (let ((__tmp110521 + (let ((__tmp110523 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp214150 + (__tmp110522 (let () (declare (not safe)) - (cons _L204250_ '())))) + (cons _L105190_ '())))) (declare (not safe)) - (cons __tmp214151 __tmp214150)))) + (cons __tmp110523 __tmp110522)))) (declare (not safe)) - (gxc#compile-e__0 __tmp214149)))) - (___kont212850212851_ - (lambda (_L204116_ _L204117_ _L204118_) - (let ((__tmp214152 - (let ((__tmp214154 + (gxc#compile-e__0 __tmp110521)))) + (___kont109222109223_ + (lambda (_L105056_ _L105057_ _L105058_) + (let ((__tmp110524 + (let ((__tmp110526 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp214153 + (__tmp110525 (let () (declare (not safe)) - (cons _L204116_ '())))) + (cons _L105056_ '())))) (declare (not safe)) - (cons __tmp214154 __tmp214153)))) + (cons __tmp110526 __tmp110525)))) (declare (not safe)) - (gxc#compile-e__0 __tmp214152))))) - (let* ((___match212947212948_ - (lambda (_e203999204036_ - _hd203998204039_ - _tl203997204041_ - _e204002204044_ - _hd204001204047_ - _tl204000204049_ - _e204005204052_ - _hd204004204055_ - _tl204003204057_ - _e204008204060_ - _hd204007204063_ - _tl204006204065_ - _e204011204068_ - _hd204010204071_ - _tl204009204073_ - _e204014204076_ - _hd204013204079_ - _tl204012204081_ - _e204017204084_ - _hd204016204087_ - _tl204015204089_ - _e204020204092_ - _hd204019204095_ - _tl204018204097_ - _e204023204100_ - _hd204022204103_ - _tl204021204105_) + (gxc#compile-e__0 __tmp110524))))) + (let* ((___match109319109320_ + (lambda (_e104939104976_ + _hd104938104979_ + _tl104937104981_ + _e104942104984_ + _hd104941104987_ + _tl104940104989_ + _e104945104992_ + _hd104944104995_ + _tl104943104997_ + _e104948105000_ + _hd104947105003_ + _tl104946105005_ + _e104951105008_ + _hd104950105011_ + _tl104949105013_ + _e104954105016_ + _hd104953105019_ + _tl104952105021_ + _e104957105024_ + _hd104956105027_ + _tl104955105029_ + _e104960105032_ + _hd104959105035_ + _tl104958105037_ + _e104963105040_ + _hd104962105043_ + _tl104961105045_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl204015204089_)) - (let ((_e204026204108_ + (gx#stx-pair? _tl104955105029_)) + (let ((_e104966105048_ (let () (declare (not safe)) - (gx#stx-e _tl204015204089_)))) - (let ((_tl204024204113_ + (gx#stx-e _tl104955105029_)))) + (let ((_tl104964105053_ (let () (declare (not safe)) - (##cdr _e204026204108_))) - (_hd204025204111_ + (##cdr _e104966105048_))) + (_hd104965105051_ (let () (declare (not safe)) - (##car _e204026204108_)))) + (##car _e104966105048_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl204024204113_)) + _tl104964105053_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl204000204049_)) - (___kont212850212851_ - _hd204022204103_ - _hd204013204079_ - _hd203998204039_) + _tl104940104989_)) + (___kont109222109223_ + _hd104962105043_ + _hd104953105019_ + _hd104938104979_) (let () (declare (not safe)) - (_g203907204031_))) + (_g104847104971_))) (let () (declare (not safe)) - (_g203907204031_))))) + (_g104847104971_))))) (let () (declare (not safe)) - (_g203907204031_))))) - (___match212877212878_ - (lambda (_e203960204154_ - _hd203959204157_ - _tl203958204159_ - ___splice212848212849_ - _target203961204162_ - _tl203963204164_) - (letrec ((_loop203964204167_ - (lambda (_hd203962204170_ - _arg203968204172_) + (_g104847104971_))))) + (___match109249109250_ + (lambda (_e104900105094_ + _hd104899105097_ + _tl104898105099_ + ___splice109220109221_ + _target104901105102_ + _tl104903105104_) + (letrec ((_loop104904105107_ + (lambda (_hd104902105110_ + _arg104908105112_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd203962204170_)) - (let ((_e203965204175_ + _hd104902105110_)) + (let ((_e104905105115_ (let () (declare (not safe)) (gx#stx-e - _hd203962204170_)))) - (let ((_lp-tl203967204180_ + _hd104902105110_)))) + (let ((_lp-tl104907105120_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e203965204175_))) - (_lp-hd203966204178_ - (let () (declare (not safe)) (##car _e203965204175_)))) - (let ((__tmp214155 + (##cdr _e104905105115_))) + (_lp-hd104906105118_ + (let () (declare (not safe)) (##car _e104905105115_)))) + (let ((__tmp110527 (let () (declare (not safe)) - (cons _lp-hd203966204178_ _arg203968204172_)))) + (cons _lp-hd104906105118_ _arg104908105112_)))) (declare (not safe)) - (_loop203964204167_ _lp-tl203967204180_ __tmp214155)))) + (_loop104904105107_ _lp-tl104907105120_ __tmp110527)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg203969204183_ - (reverse _arg203968204172_))) + (let ((_arg104909105123_ + (reverse _arg104908105112_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl203958204159_)) - (let ((_e203972204186_ + _tl104898105099_)) + (let ((_e104912105126_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl203958204159_)))) - (let ((_tl203970204191_ + (gx#stx-e _tl104898105099_)))) + (let ((_tl104910105131_ (let () (declare (not safe)) - (##cdr _e203972204186_))) - (_hd203971204189_ + (##cdr _e104912105126_))) + (_hd104911105129_ (let () (declare (not safe)) - (##car _e203972204186_)))) + (##car _e104912105126_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd203971204189_)) - (let ((_e203975204194_ + (gx#stx-pair? _hd104911105129_)) + (let ((_e104915105134_ (let () (declare (not safe)) - (gx#stx-e _hd203971204189_)))) - (let ((_tl203973204199_ + (gx#stx-e _hd104911105129_)))) + (let ((_tl104913105139_ (let () (declare (not safe)) - (##cdr _e203975204194_))) - (_hd203974204197_ + (##cdr _e104915105134_))) + (_hd104914105137_ (let () (declare (not safe)) - (##car _e203975204194_)))) + (##car _e104915105134_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd203974204197_)) + (gx#identifier? _hd104914105137_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd203974204197_)) + (gx#stx-eq? '%#call _hd104914105137_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203973204199_)) - (let ((_e203978204202_ + (gx#stx-pair? _tl104913105139_)) + (let ((_e104918105142_ (let () (declare (not safe)) (gx#stx-e - _tl203973204199_)))) - (let ((_tl203976204207_ + _tl104913105139_)))) + (let ((_tl104916105147_ (let () (declare (not safe)) - (##cdr _e203978204202_))) - (_hd203977204205_ + (##cdr _e104918105142_))) + (_hd104917105145_ (let () (declare (not safe)) - (##car _e203978204202_)))) + (##car _e104918105142_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd203977204205_)) - (let ((_e203981204210_ + _hd104917105145_)) + (let ((_e104921105150_ (let () (declare (not safe)) (gx#stx-e - _hd203977204205_)))) - (let ((_tl203979204215_ + _hd104917105145_)))) + (let ((_tl104919105155_ (let () (declare (not safe)) - (##cdr _e203981204210_))) - (_hd203980204213_ + (##cdr _e104921105150_))) + (_hd104920105153_ (let () (declare (not safe)) - (##car _e203981204210_)))) + (##car _e104921105150_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd203980204213_)) + _hd104920105153_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd203980204213_)) + (gx#stx-eq? '%#ref _hd104920105153_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203979204215_)) - (let ((_e203984204218_ + (gx#stx-pair? _tl104919105155_)) + (let ((_e104924105158_ (let () (declare (not safe)) - (gx#stx-e _tl203979204215_)))) - (let ((_tl203982204223_ + (gx#stx-e _tl104919105155_)))) + (let ((_tl104922105163_ (let () (declare (not safe)) - (##cdr _e203984204218_))) - (_hd203983204221_ + (##cdr _e104924105158_))) + (_hd104923105161_ (let () (declare (not safe)) - (##car _e203984204218_)))) + (##car _e104924105158_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl203982204223_)) + (gx#stx-null? _tl104922105163_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203976204207_)) - (let ((_e203987204226_ + (gx#stx-pair? _tl104916105147_)) + (let ((_e104927105166_ (let () (declare (not safe)) - (gx#stx-e _tl203976204207_)))) - (let ((_tl203985204231_ + (gx#stx-e _tl104916105147_)))) + (let ((_tl104925105171_ (let () (declare (not safe)) - (##cdr _e203987204226_))) - (_hd203986204229_ + (##cdr _e104927105166_))) + (_hd104926105169_ (let () (declare (not safe)) - (##car _e203987204226_)))) + (##car _e104927105166_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd203986204229_)) - (let ((_e203990204234_ + _hd104926105169_)) + (let ((_e104930105174_ (let () (declare (not safe)) (gx#stx-e - _hd203986204229_)))) - (let ((_tl203988204239_ + _hd104926105169_)))) + (let ((_tl104928105179_ (let () (declare (not safe)) - (##cdr _e203990204234_))) - (_hd203989204237_ + (##cdr _e104930105174_))) + (_hd104929105177_ (let () (declare (not safe)) - (##car _e203990204234_)))) + (##car _e104930105174_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd203989204237_)) + _hd104929105177_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd203989204237_)) + _hd104929105177_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl203988204239_)) - (let ((_e203993204242_ + (gx#stx-pair? _tl104928105179_)) + (let ((_e104933105182_ (let () (declare (not safe)) - (gx#stx-e _tl203988204239_)))) - (let ((_tl203991204247_ + (gx#stx-e _tl104928105179_)))) + (let ((_tl104931105187_ (let () (declare (not safe)) - (##cdr _e203993204242_))) - (_hd203992204245_ + (##cdr _e104933105182_))) + (_hd104932105185_ (let () (declare (not safe)) - (##car _e203993204242_)))) + (##car _e104933105182_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl203991204247_)) + (gx#stx-null? _tl104931105187_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl203970204191_)) - (___kont212846212847_ - _hd203992204245_ - _hd203983204221_ - _tl203963204164_ - _arg203969204183_) - (___match212947212948_ - _e203960204154_ - _hd203959204157_ - _tl203958204159_ - _e203972204186_ - _hd203971204189_ - _tl203970204191_ - _e203975204194_ - _hd203974204197_ - _tl203973204199_ - _e203978204202_ - _hd203977204205_ - _tl203976204207_ - _e203981204210_ - _hd203980204213_ - _tl203979204215_ - _e203984204218_ - _hd203983204221_ - _tl203982204223_ - _e203987204226_ - _hd203986204229_ - _tl203985204231_ - _e203990204234_ - _hd203989204237_ - _tl203988204239_ - _e203993204242_ - _hd203992204245_ - _tl203991204247_)) + (gx#stx-null? _tl104910105131_)) + (___kont109218109219_ + _hd104932105185_ + _hd104923105161_ + _tl104903105104_ + _arg104909105123_) + (___match109319109320_ + _e104900105094_ + _hd104899105097_ + _tl104898105099_ + _e104912105126_ + _hd104911105129_ + _tl104910105131_ + _e104915105134_ + _hd104914105137_ + _tl104913105139_ + _e104918105142_ + _hd104917105145_ + _tl104916105147_ + _e104921105150_ + _hd104920105153_ + _tl104919105155_ + _e104924105158_ + _hd104923105161_ + _tl104922105163_ + _e104927105166_ + _hd104926105169_ + _tl104925105171_ + _e104930105174_ + _hd104929105177_ + _tl104928105179_ + _e104933105182_ + _hd104932105185_ + _tl104931105187_)) (let () (declare (not safe)) - (_g203907204031_))))) - (let () (declare (not safe)) (_g203907204031_))) - (let () (declare (not safe)) (_g203907204031_))) - (let () (declare (not safe)) (_g203907204031_))))) + (_g104847104971_))))) + (let () (declare (not safe)) (_g104847104971_))) + (let () (declare (not safe)) (_g104847104971_))) + (let () (declare (not safe)) (_g104847104971_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g203907204031_))))) + (_g104847104971_))))) (let () (declare (not safe)) - (_g203907204031_))) + (_g104847104971_))) (let () (declare (not safe)) - (_g203907204031_))))) - (let () (declare (not safe)) (_g203907204031_))) - (let () (declare (not safe)) (_g203907204031_))) - (let () (declare (not safe)) (_g203907204031_))))) + (_g104847104971_))))) + (let () (declare (not safe)) (_g104847104971_))) + (let () (declare (not safe)) (_g104847104971_))) + (let () (declare (not safe)) (_g104847104971_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g203907204031_))))) + (_g104847104971_))))) (let () (declare (not safe)) - (_g203907204031_))) + (_g104847104971_))) (let () (declare (not safe)) - (_g203907204031_))) + (_g104847104971_))) (let () (declare (not safe)) - (_g203907204031_))))) - (let () (declare (not safe)) (_g203907204031_))))) - (let () (declare (not safe)) (_g203907204031_)))))))) + (_g104847104971_))))) + (let () (declare (not safe)) (_g104847104971_))))) + (let () (declare (not safe)) (_g104847104971_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop203964204167_ - _target203961204162_ + (_loop104904105107_ + _target104901105102_ '()))))) - (___match212865212866_ - (lambda (_e203914204290_ - _hd203913204293_ - _tl203912204295_ - ___splice212842212843_ - _target203915204298_ - _tl203917204300_) - (letrec ((_loop203918204303_ - (lambda (_hd203916204306_ - _arg203922204308_) + (___match109237109238_ + (lambda (_e104854105230_ + _hd104853105233_ + _tl104852105235_ + ___splice109214109215_ + _target104855105238_ + _tl104857105240_) + (letrec ((_loop104858105243_ + (lambda (_hd104856105246_ + _arg104862105248_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd203916204306_)) - (let ((_e203919204311_ + _hd104856105246_)) + (let ((_e104859105251_ (let () (declare (not safe)) (gx#stx-e - _hd203916204306_)))) - (let ((_lp-tl203921204316_ + _hd104856105246_)))) + (let ((_lp-tl104861105256_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e203919204311_))) - (_lp-hd203920204314_ - (let () (declare (not safe)) (##car _e203919204311_)))) - (let ((__tmp214157 + (##cdr _e104859105251_))) + (_lp-hd104860105254_ + (let () (declare (not safe)) (##car _e104859105251_)))) + (let ((__tmp110529 (let () (declare (not safe)) - (cons _lp-hd203920204314_ _arg203922204308_)))) + (cons _lp-hd104860105254_ _arg104862105248_)))) (declare (not safe)) - (_loop203918204303_ _lp-tl203921204316_ __tmp214157)))) + (_loop104858105243_ _lp-tl104861105256_ __tmp110529)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg203923204319_ - (reverse _arg203922204308_))) + (let ((_arg104863105259_ + (reverse _arg104862105248_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl203912204295_)) - (let ((_e203926204322_ + _tl104852105235_)) + (let ((_e104866105262_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl203912204295_)))) - (let ((_tl203924204327_ + (gx#stx-e _tl104852105235_)))) + (let ((_tl104864105267_ (let () (declare (not safe)) - (##cdr _e203926204322_))) - (_hd203925204325_ + (##cdr _e104866105262_))) + (_hd104865105265_ (let () (declare (not safe)) - (##car _e203926204322_)))) + (##car _e104866105262_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd203925204325_)) - (let ((_e203929204330_ + (gx#stx-pair? _hd104865105265_)) + (let ((_e104869105270_ (let () (declare (not safe)) - (gx#stx-e _hd203925204325_)))) - (let ((_tl203927204335_ + (gx#stx-e _hd104865105265_)))) + (let ((_tl104867105275_ (let () (declare (not safe)) - (##cdr _e203929204330_))) - (_hd203928204333_ + (##cdr _e104869105270_))) + (_hd104868105273_ (let () (declare (not safe)) - (##car _e203929204330_)))) + (##car _e104869105270_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd203928204333_)) + (gx#identifier? _hd104868105273_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd203928204333_)) + (gx#stx-eq? '%#call _hd104868105273_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203927204335_)) - (let ((_e203932204338_ + (gx#stx-pair? _tl104867105275_)) + (let ((_e104872105278_ (let () (declare (not safe)) (gx#stx-e - _tl203927204335_)))) - (let ((_tl203930204343_ + _tl104867105275_)))) + (let ((_tl104870105283_ (let () (declare (not safe)) - (##cdr _e203932204338_))) - (_hd203931204341_ + (##cdr _e104872105278_))) + (_hd104871105281_ (let () (declare (not safe)) - (##car _e203932204338_)))) + (##car _e104872105278_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd203931204341_)) - (let ((_e203935204346_ + _hd104871105281_)) + (let ((_e104875105286_ (let () (declare (not safe)) (gx#stx-e - _hd203931204341_)))) - (let ((_tl203933204351_ + _hd104871105281_)))) + (let ((_tl104873105291_ (let () (declare (not safe)) - (##cdr _e203935204346_))) - (_hd203934204349_ + (##cdr _e104875105286_))) + (_hd104874105289_ (let () (declare (not safe)) - (##car _e203935204346_)))) + (##car _e104875105286_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd203934204349_)) + _hd104874105289_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd203934204349_)) + (gx#stx-eq? '%#ref _hd104874105289_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203933204351_)) - (let ((_e203938204354_ + (gx#stx-pair? _tl104873105291_)) + (let ((_e104878105294_ (let () (declare (not safe)) - (gx#stx-e _tl203933204351_)))) - (let ((_tl203936204359_ + (gx#stx-e _tl104873105291_)))) + (let ((_tl104876105299_ (let () (declare (not safe)) - (##cdr _e203938204354_))) - (_hd203937204357_ + (##cdr _e104878105294_))) + (_hd104877105297_ (let () (declare (not safe)) - (##car _e203938204354_)))) + (##car _e104878105294_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl203936204359_)) + (gx#stx-null? _tl104876105299_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl203930204343_)) - (let ((___splice212844212845_ + (gx#stx-pair/null? _tl104870105283_)) + (let ((___splice109216109217_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl203930204343_ + _tl104870105283_ '0)))) - (let ((_tl203941204364_ + (let ((_tl104881105304_ (let () (declare (not safe)) (##vector-ref - ___splice212844212845_ + ___splice109216109217_ '1))) - (_target203939204362_ + (_target104879105302_ (let () (declare (not safe)) (##vector-ref - ___splice212844212845_ + ___splice109216109217_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl203941204364_)) - (letrec ((_loop203942204367_ - (lambda (_hd203940204370_ + _tl104881105304_)) + (letrec ((_loop104882105307_ + (lambda (_hd104880105310_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xarg203946204372_) + _xarg104886105312_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd203940204370_)) - (let ((_e203943204375_ + (gx#stx-pair? _hd104880105310_)) + (let ((_e104883105315_ (let () (declare (not safe)) - (gx#stx-e _hd203940204370_)))) - (let ((_lp-tl203945204380_ + (gx#stx-e _hd104880105310_)))) + (let ((_lp-tl104885105320_ (let () (declare (not safe)) - (##cdr _e203943204375_))) - (_lp-hd203944204378_ + (##cdr _e104883105315_))) + (_lp-hd104884105318_ (let () (declare (not safe)) - (##car _e203943204375_)))) + (##car _e104883105315_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd203944204378_)) - (let ((_e203950204383_ + (gx#stx-pair? _lp-hd104884105318_)) + (let ((_e104890105323_ (let () (declare (not safe)) - (gx#stx-e _lp-hd203944204378_)))) - (let ((_tl203948204388_ + (gx#stx-e _lp-hd104884105318_)))) + (let ((_tl104888105328_ (let () (declare (not safe)) - (##cdr _e203950204383_))) - (_hd203949204386_ + (##cdr _e104890105323_))) + (_hd104889105326_ (let () (declare (not safe)) - (##car _e203950204383_)))) + (##car _e104890105323_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd203949204386_)) + (gx#identifier? _hd104889105326_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd203949204386_)) + _hd104889105326_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl203948204388_)) - (let ((_e203953204391_ + _tl104888105328_)) + (let ((_e104893105331_ (let () (declare (not safe)) (gx#stx-e - _tl203948204388_)))) - (let ((_tl203951204396_ + _tl104888105328_)))) + (let ((_tl104891105336_ (let () (declare (not safe)) - (##cdr _e203953204391_))) - (_hd203952204394_ + (##cdr _e104893105331_))) + (_hd104892105334_ (let () (declare (not safe)) - (##car _e203953204391_)))) + (##car _e104893105331_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl203951204396_)) - (let ((__tmp214156 + _tl104891105336_)) + (let ((__tmp110528 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _hd203952204394_ _xarg203946204372_)))) + (cons _hd104892105334_ _xarg104886105312_)))) (declare (not safe)) - (_loop203942204367_ _lp-tl203945204380_ __tmp214156)) - (___match212877212878_ - _e203914204290_ - _hd203913204293_ - _tl203912204295_ - ___splice212842212843_ - _target203915204298_ - _tl203917204300_)))) + (_loop104882105307_ _lp-tl104885105320_ __tmp110528)) + (___match109249109250_ + _e104854105230_ + _hd104853105233_ + _tl104852105235_ + ___splice109214109215_ + _target104855105238_ + _tl104857105240_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match212877212878_ - _e203914204290_ - _hd203913204293_ - _tl203912204295_ - ___splice212842212843_ - _target203915204298_ - _tl203917204300_)) - (___match212877212878_ - _e203914204290_ - _hd203913204293_ - _tl203912204295_ - ___splice212842212843_ - _target203915204298_ - _tl203917204300_)) - (___match212877212878_ - _e203914204290_ - _hd203913204293_ - _tl203912204295_ - ___splice212842212843_ - _target203915204298_ - _tl203917204300_)))) - (___match212877212878_ - _e203914204290_ - _hd203913204293_ - _tl203912204295_ - ___splice212842212843_ - _target203915204298_ - _tl203917204300_)))) - (let ((_xarg203947204399_ (reverse _xarg203946204372_))) + (___match109249109250_ + _e104854105230_ + _hd104853105233_ + _tl104852105235_ + ___splice109214109215_ + _target104855105238_ + _tl104857105240_)) + (___match109249109250_ + _e104854105230_ + _hd104853105233_ + _tl104852105235_ + ___splice109214109215_ + _target104855105238_ + _tl104857105240_)) + (___match109249109250_ + _e104854105230_ + _hd104853105233_ + _tl104852105235_ + ___splice109214109215_ + _target104855105238_ + _tl104857105240_)))) + (___match109249109250_ + _e104854105230_ + _hd104853105233_ + _tl104852105235_ + ___splice109214109215_ + _target104855105238_ + _tl104857105240_)))) + (let ((_xarg104887105339_ (reverse _xarg104886105312_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl203924204327_)) - (___kont212840212841_ - _xarg203947204399_ - _hd203937204357_ - _arg203923204319_) - (___match212877212878_ - _e203914204290_ - _hd203913204293_ - _tl203912204295_ - ___splice212842212843_ - _target203915204298_ - _tl203917204300_))))))) + (gx#stx-null? _tl104864105267_)) + (___kont109212109213_ + _xarg104887105339_ + _hd104877105297_ + _arg104863105259_) + (___match109249109250_ + _e104854105230_ + _hd104853105233_ + _tl104852105235_ + ___splice109214109215_ + _target104855105238_ + _tl104857105240_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop203942204367_ - _target203939204362_ + (_loop104882105307_ + _target104879105302_ '()))) - (___match212877212878_ - _e203914204290_ - _hd203913204293_ - _tl203912204295_ - ___splice212842212843_ - _target203915204298_ - _tl203917204300_)))) - (___match212877212878_ - _e203914204290_ - _hd203913204293_ - _tl203912204295_ - ___splice212842212843_ - _target203915204298_ - _tl203917204300_)) - (___match212877212878_ - _e203914204290_ - _hd203913204293_ - _tl203912204295_ - ___splice212842212843_ - _target203915204298_ - _tl203917204300_)))) - (___match212877212878_ - _e203914204290_ - _hd203913204293_ - _tl203912204295_ - ___splice212842212843_ - _target203915204298_ - _tl203917204300_)) - (___match212877212878_ - _e203914204290_ - _hd203913204293_ - _tl203912204295_ - ___splice212842212843_ - _target203915204298_ - _tl203917204300_)) - (___match212877212878_ - _e203914204290_ - _hd203913204293_ - _tl203912204295_ - ___splice212842212843_ - _target203915204298_ - _tl203917204300_)))) + (___match109249109250_ + _e104854105230_ + _hd104853105233_ + _tl104852105235_ + ___splice109214109215_ + _target104855105238_ + _tl104857105240_)))) + (___match109249109250_ + _e104854105230_ + _hd104853105233_ + _tl104852105235_ + ___splice109214109215_ + _target104855105238_ + _tl104857105240_)) + (___match109249109250_ + _e104854105230_ + _hd104853105233_ + _tl104852105235_ + ___splice109214109215_ + _target104855105238_ + _tl104857105240_)))) + (___match109249109250_ + _e104854105230_ + _hd104853105233_ + _tl104852105235_ + ___splice109214109215_ + _target104855105238_ + _tl104857105240_)) + (___match109249109250_ + _e104854105230_ + _hd104853105233_ + _tl104852105235_ + ___splice109214109215_ + _target104855105238_ + _tl104857105240_)) + (___match109249109250_ + _e104854105230_ + _hd104853105233_ + _tl104852105235_ + ___splice109214109215_ + _target104855105238_ + _tl104857105240_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match212877212878_ - _e203914204290_ - _hd203913204293_ - _tl203912204295_ - ___splice212842212843_ - _target203915204298_ - _tl203917204300_)))) - (___match212877212878_ - _e203914204290_ - _hd203913204293_ - _tl203912204295_ - ___splice212842212843_ - _target203915204298_ - _tl203917204300_)) - (___match212877212878_ - _e203914204290_ - _hd203913204293_ - _tl203912204295_ - ___splice212842212843_ - _target203915204298_ - _tl203917204300_)) - (___match212877212878_ - _e203914204290_ - _hd203913204293_ - _tl203912204295_ - ___splice212842212843_ - _target203915204298_ - _tl203917204300_)))) - (___match212877212878_ - _e203914204290_ - _hd203913204293_ - _tl203912204295_ - ___splice212842212843_ - _target203915204298_ - _tl203917204300_)))) - (___match212877212878_ - _e203914204290_ - _hd203913204293_ - _tl203912204295_ - ___splice212842212843_ - _target203915204298_ - _tl203917204300_))))))) + (___match109249109250_ + _e104854105230_ + _hd104853105233_ + _tl104852105235_ + ___splice109214109215_ + _target104855105238_ + _tl104857105240_)))) + (___match109249109250_ + _e104854105230_ + _hd104853105233_ + _tl104852105235_ + ___splice109214109215_ + _target104855105238_ + _tl104857105240_)) + (___match109249109250_ + _e104854105230_ + _hd104853105233_ + _tl104852105235_ + ___splice109214109215_ + _target104855105238_ + _tl104857105240_)) + (___match109249109250_ + _e104854105230_ + _hd104853105233_ + _tl104852105235_ + ___splice109214109215_ + _target104855105238_ + _tl104857105240_)))) + (___match109249109250_ + _e104854105230_ + _hd104853105233_ + _tl104852105235_ + ___splice109214109215_ + _target104855105238_ + _tl104857105240_)))) + (___match109249109250_ + _e104854105230_ + _hd104853105233_ + _tl104852105235_ + ___splice109214109215_ + _target104855105238_ + _tl104857105240_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop203918204303_ - _target203915204298_ + (_loop104858105243_ + _target104855105238_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx212838212839_)) - (let ((_e203914204290_ + (gx#stx-pair? ___stx109210109211_)) + (let ((_e104854105230_ (let () (declare (not safe)) - (gx#stx-e ___stx212838212839_)))) - (let ((_tl203912204295_ + (gx#stx-e ___stx109210109211_)))) + (let ((_tl104852105235_ (let () (declare (not safe)) - (##cdr _e203914204290_))) - (_hd203913204293_ + (##cdr _e104854105230_))) + (_hd104853105233_ (let () (declare (not safe)) - (##car _e203914204290_)))) + (##car _e104854105230_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd203913204293_)) - (let ((___splice212842212843_ + (gx#stx-pair/null? _hd104853105233_)) + (let ((___splice109214109215_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd203913204293_ + _hd104853105233_ '0)))) - (let ((_tl203917204300_ + (let ((_tl104857105240_ (let () (declare (not safe)) (##vector-ref - ___splice212842212843_ + ___splice109214109215_ '1))) - (_target203915204298_ + (_target104855105238_ (let () (declare (not safe)) (##vector-ref - ___splice212842212843_ + ___splice109214109215_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl203917204300_)) - (___match212865212866_ - _e203914204290_ - _hd203913204293_ - _tl203912204295_ - ___splice212842212843_ - _target203915204298_ - _tl203917204300_) - (___match212877212878_ - _e203914204290_ - _hd203913204293_ - _tl203912204295_ - ___splice212842212843_ - _target203915204298_ - _tl203917204300_)))) + _tl104857105240_)) + (___match109237109238_ + _e104854105230_ + _hd104853105233_ + _tl104852105235_ + ___splice109214109215_ + _target104855105238_ + _tl104857105240_) + (___match109249109250_ + _e104854105230_ + _hd104853105233_ + _tl104852105235_ + ___splice109214109215_ + _target104855105238_ + _tl104857105240_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203912204295_)) - (let ((_e204002204044_ + (gx#stx-pair? _tl104852105235_)) + (let ((_e104942104984_ (let () (declare (not safe)) (gx#stx-e - _tl203912204295_)))) - (let ((_tl204000204049_ + _tl104852105235_)))) + (let ((_tl104940104989_ (let () (declare (not safe)) - (##cdr _e204002204044_))) - (_hd204001204047_ + (##cdr _e104942104984_))) + (_hd104941104987_ (let () (declare (not safe)) - (##car _e204002204044_)))) + (##car _e104942104984_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd204001204047_)) - (let ((_e204005204052_ + _hd104941104987_)) + (let ((_e104945104992_ (let () (declare (not safe)) (gx#stx-e - _hd204001204047_)))) - (let ((_tl204003204057_ + _hd104941104987_)))) + (let ((_tl104943104997_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e204005204052_))) - (_hd204004204055_ - (let () (declare (not safe)) (##car _e204005204052_)))) + (##cdr _e104945104992_))) + (_hd104944104995_ + (let () (declare (not safe)) (##car _e104945104992_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd204004204055_)) + (gx#identifier? _hd104944104995_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd204004204055_)) + (gx#stx-eq? '%#call _hd104944104995_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl204003204057_)) - (let ((_e204008204060_ + (gx#stx-pair? _tl104943104997_)) + (let ((_e104948105000_ (let () (declare (not safe)) - (gx#stx-e _tl204003204057_)))) - (let ((_tl204006204065_ + (gx#stx-e _tl104943104997_)))) + (let ((_tl104946105005_ (let () (declare (not safe)) - (##cdr _e204008204060_))) - (_hd204007204063_ + (##cdr _e104948105000_))) + (_hd104947105003_ (let () (declare (not safe)) - (##car _e204008204060_)))) + (##car _e104948105000_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd204007204063_)) - (let ((_e204011204068_ + (gx#stx-pair? _hd104947105003_)) + (let ((_e104951105008_ (let () (declare (not safe)) - (gx#stx-e _hd204007204063_)))) - (let ((_tl204009204073_ + (gx#stx-e _hd104947105003_)))) + (let ((_tl104949105013_ (let () (declare (not safe)) - (##cdr _e204011204068_))) - (_hd204010204071_ + (##cdr _e104951105008_))) + (_hd104950105011_ (let () (declare (not safe)) - (##car _e204011204068_)))) + (##car _e104951105008_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd204010204071_)) + _hd104950105011_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd204010204071_)) + _hd104950105011_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl204009204073_)) - (let ((_e204014204076_ + _tl104949105013_)) + (let ((_e104954105016_ (let () (declare (not safe)) (gx#stx-e - _tl204009204073_)))) - (let ((_tl204012204081_ + _tl104949105013_)))) + (let ((_tl104952105021_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e204014204076_))) - (_hd204013204079_ - (let () (declare (not safe)) (##car _e204014204076_)))) + (##cdr _e104954105016_))) + (_hd104953105019_ + (let () (declare (not safe)) (##car _e104954105016_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl204012204081_)) + (gx#stx-null? _tl104952105021_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl204006204065_)) - (let ((_e204017204084_ + (gx#stx-pair? _tl104946105005_)) + (let ((_e104957105024_ (let () (declare (not safe)) - (gx#stx-e _tl204006204065_)))) - (let ((_tl204015204089_ + (gx#stx-e _tl104946105005_)))) + (let ((_tl104955105029_ (let () (declare (not safe)) - (##cdr _e204017204084_))) - (_hd204016204087_ + (##cdr _e104957105024_))) + (_hd104956105027_ (let () (declare (not safe)) - (##car _e204017204084_)))) + (##car _e104957105024_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd204016204087_)) - (let ((_e204020204092_ + (gx#stx-pair? _hd104956105027_)) + (let ((_e104960105032_ (let () (declare (not safe)) - (gx#stx-e _hd204016204087_)))) - (let ((_tl204018204097_ + (gx#stx-e _hd104956105027_)))) + (let ((_tl104958105037_ (let () (declare (not safe)) - (##cdr _e204020204092_))) - (_hd204019204095_ + (##cdr _e104960105032_))) + (_hd104959105035_ (let () (declare (not safe)) - (##car _e204020204092_)))) + (##car _e104960105032_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd204019204095_)) + (gx#identifier? _hd104959105035_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd204019204095_)) + _hd104959105035_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl204018204097_)) - (let ((_e204023204100_ + _tl104958105037_)) + (let ((_e104963105040_ (let () (declare (not safe)) (gx#stx-e - _tl204018204097_)))) - (let ((_tl204021204105_ + _tl104958105037_)))) + (let ((_tl104961105045_ (let () (declare (not safe)) - (##cdr _e204023204100_))) - (_hd204022204103_ + (##cdr _e104963105040_))) + (_hd104962105043_ (let () (declare (not safe)) - (##car _e204023204100_)))) + (##car _e104963105040_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl204021204105_)) + _tl104961105045_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl204015204089_)) - (let ((_e204026204108_ + _tl104955105029_)) + (let ((_e104966105048_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl204015204089_)))) - (let ((_tl204024204113_ + (gx#stx-e _tl104955105029_)))) + (let ((_tl104964105053_ (let () (declare (not safe)) - (##cdr _e204026204108_))) - (_hd204025204111_ + (##cdr _e104966105048_))) + (_hd104965105051_ (let () (declare (not safe)) - (##car _e204026204108_)))) + (##car _e104966105048_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl204024204113_)) + (gx#stx-null? _tl104964105053_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl204000204049_)) - (___kont212850212851_ - _hd204022204103_ - _hd204013204079_ - _hd203913204293_) + (gx#stx-null? _tl104940104989_)) + (___kont109222109223_ + _hd104962105043_ + _hd104953105019_ + _hd104853105233_) (let () (declare (not safe)) - (_g203907204031_))) - (let () (declare (not safe)) (_g203907204031_))))) - (let () (declare (not safe)) (_g203907204031_))) - (let () (declare (not safe)) (_g203907204031_))))) + (_g104847104971_))) + (let () (declare (not safe)) (_g104847104971_))))) + (let () (declare (not safe)) (_g104847104971_))) + (let () (declare (not safe)) (_g104847104971_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g203907204031_))) + (_g104847104971_))) (let () (declare (not safe)) - (_g203907204031_))) + (_g104847104971_))) (let () (declare (not safe)) - (_g203907204031_))))) + (_g104847104971_))))) (let () (declare (not safe)) - (_g203907204031_))))) - (let () (declare (not safe)) (_g203907204031_))) - (let () (declare (not safe)) (_g203907204031_))))) + (_g104847104971_))))) + (let () (declare (not safe)) (_g104847104971_))) + (let () (declare (not safe)) (_g104847104971_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g203907204031_))) + (_g104847104971_))) (let () (declare (not safe)) - (_g203907204031_))) + (_g104847104971_))) (let () (declare (not safe)) - (_g203907204031_))))) + (_g104847104971_))))) (let () (declare (not safe)) - (_g203907204031_))))) - (let () (declare (not safe)) (_g203907204031_))) - (let () (declare (not safe)) (_g203907204031_))) - (let () (declare (not safe)) (_g203907204031_))))) + (_g104847104971_))))) + (let () (declare (not safe)) (_g104847104971_))) + (let () (declare (not safe)) (_g104847104971_))) + (let () (declare (not safe)) (_g104847104971_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g203907204031_))))) + (_g104847104971_))))) (let () (declare (not safe)) - (_g203907204031_)))))) + (_g104847104971_)))))) (let () (declare (not safe)) - (_g203907204031_)))))))) - (_generate1203753_ - (lambda (_args203888_ - _arglen203889_ - _hd203890_ - _body203891_) - (let* ((_len203893_ + (_g104847104971_)))))))) + (_generate1104693_ + (lambda (_args104828_ + _arglen104829_ + _hd104830_ + _body104831_) + (let* ((_len104833_ (let () (declare (not safe)) - (gx#stx-length _hd203890_))) - (_condition203895_ + (gx#stx-length _hd104830_))) + (_condition104835_ (if (let () (declare (not safe)) - (gx#stx-list? _hd203890_)) + (gx#stx-list? _hd104830_)) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp214172 - (let ((__tmp214173 + (let ((__tmp110544 + (let ((__tmp110545 (let () (declare (not safe)) - (cons _len203893_ '())))) + (cons _len104833_ '())))) (declare (not safe)) - (cons _arglen203889_ - __tmp214173)))) + (cons _arglen104829_ + __tmp110545)))) (declare (not safe)) - (cons '##fx= __tmp214172)) - (let ((__tmp214166 - (let ((__tmp214167 - (let ((__tmp214168 - (let ((__tmp214169 + (cons '##fx= __tmp110544)) + (let ((__tmp110538 + (let ((__tmp110539 + (let ((__tmp110540 + (let ((__tmp110541 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp214170 - (let ((__tmp214171 + (let ((__tmp110542 + (let ((__tmp110543 (let () (declare (not safe)) - (cons _len203893_ '())))) + (cons _len104833_ '())))) (declare (not safe)) - (cons _arglen203889_ __tmp214171)))) + (cons _arglen104829_ __tmp110543)))) (declare (not safe)) - (cons '##fx= __tmp214170)))) + (cons '##fx= __tmp110542)))) (declare (not safe)) - (cons __tmp214169 '())))) + (cons __tmp110541 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp214168)))) + (cons '(declare (not safe)) __tmp110540)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp214167)))) + (cons '() __tmp110539)))) (declare (not safe)) - (cons 'let __tmp214166))) - (if (> _len203893_ '0) + (cons 'let __tmp110538))) + (if (> _len104833_ '0) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp214164 - (let ((__tmp214165 + (let ((__tmp110536 + (let ((__tmp110537 (let () (declare (not safe)) - (cons _len203893_ + (cons _len104833_ '())))) (declare (not safe)) - (cons _arglen203889_ - __tmp214165)))) + (cons _arglen104829_ + __tmp110537)))) (declare (not safe)) - (cons '##fx>= __tmp214164)) - (let ((__tmp214158 - (let ((__tmp214159 - (let ((__tmp214160 - (let ((__tmp214161 + (cons '##fx>= __tmp110536)) + (let ((__tmp110530 + (let ((__tmp110531 + (let ((__tmp110532 + (let ((__tmp110533 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp214162 - (let ((__tmp214163 + (let ((__tmp110534 + (let ((__tmp110535 (let () (declare (not safe)) - (cons _len203893_ '())))) + (cons _len104833_ '())))) (declare (not safe)) - (cons _arglen203889_ __tmp214163)))) + (cons _arglen104829_ __tmp110535)))) (declare (not safe)) - (cons '##fx>= __tmp214162)))) + (cons '##fx>= __tmp110534)))) (declare (not safe)) - (cons __tmp214161 '())))) + (cons __tmp110533 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp214160)))) + (cons '(declare (not safe)) __tmp110532)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp214159)))) + (cons '() __tmp110531)))) (declare (not safe)) - (cons 'let __tmp214158))) + (cons 'let __tmp110530))) '#t))) - (_dispatch203897_ + (_dispatch104837_ (if (let () (declare (not safe)) - (_dispatch-case?203751_ - _hd203890_ - _body203891_)) + (_dispatch-case?104691_ + _hd104830_ + _body104831_)) (let () (declare (not safe)) - (_dispatch-case-e203752_ - _hd203890_ - _body203891_)) + (_dispatch-case-e104692_ + _hd104830_ + _body104831_)) (let () (declare (not safe)) (gxc#generate-runtime-lambda-form - _hd203890_ - _body203891_))))) - (let ((__tmp214174 - (let ((__tmp214175 - (let ((__tmp214176 - (let ((__tmp214177 + _hd104830_ + _body104831_))))) + (let ((__tmp110546 + (let ((__tmp110547 + (let ((__tmp110548 + (let ((__tmp110549 (let () (declare (not safe)) - (cons _args203888_ + (cons _args104828_ '())))) (declare (not safe)) - (cons _dispatch203897_ - __tmp214177)))) + (cons _dispatch104837_ + __tmp110549)))) (declare (not safe)) - (cons 'apply __tmp214176)))) + (cons 'apply __tmp110548)))) (declare (not safe)) - (cons __tmp214175 '())))) + (cons __tmp110547 '())))) (declare (not safe)) - (cons _condition203895_ __tmp214174)))))) - (let* ((_g203755203783_ - (lambda (_g203756203780_) + (cons _condition104835_ __tmp110546)))))) + (let* ((_g104695104723_ + (lambda (_g104696104720_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g203756203780_)))) - (_g203754203885_ - (lambda (_g203756203786_) + _g104696104720_)))) + (_g104694104825_ + (lambda (_g104696104726_) (if (let () (declare (not safe)) - (gx#stx-pair? _g203756203786_)) - (let ((_e203761203788_ + (gx#stx-pair? _g104696104726_)) + (let ((_e104701104728_ (let () (declare (not safe)) - (gx#stx-e _g203756203786_)))) - (let ((_hd203760203791_ + (gx#stx-e _g104696104726_)))) + (let ((_hd104700104731_ (let () (declare (not safe)) - (##car _e203761203788_))) - (_tl203759203793_ + (##car _e104701104728_))) + (_tl104699104733_ (let () (declare (not safe)) - (##cdr _e203761203788_)))) + (##cdr _e104701104728_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl203759203793_)) - (let ((_g214178_ + (gx#stx-pair/null? _tl104699104733_)) + (let ((_g110550_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl203759203793_ + _tl104699104733_ '0)))) (begin - (let ((_g214179_ + (let ((_g110551_ (let () (declare (not safe)) - (if (##values? _g214178_) - (##vector-length _g214178_) + (if (##values? _g110550_) + (##vector-length _g110550_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g214179_ 2))) + (##fx= _g110551_ 2))) (error "Context expects 2 values" - _g214179_))) - (let ((_target203762203796_ + _g110551_))) + (let ((_target104702104736_ (let () (declare (not safe)) - (##vector-ref _g214178_ 0))) - (_tl203764203798_ + (##vector-ref _g110550_ 0))) + (_tl104704104738_ (let () (declare (not safe)) - (##vector-ref _g214178_ 1)))) + (##vector-ref _g110550_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl203764203798_)) - (letrec ((_loop203765203801_ - (lambda (_hd203763203804_ - _body203769203806_ - _hd203770203808_) + (gx#stx-null? _tl104704104738_)) + (letrec ((_loop104705104741_ + (lambda (_hd104703104744_ + _body104709104746_ + _hd104710104748_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd203763203804_)) - (let ((_e203766203811_ + _hd104703104744_)) + (let ((_e104706104751_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd203763203804_)))) - (let ((_lp-hd203767203814_ + (gx#stx-e _hd104703104744_)))) + (let ((_lp-hd104707104754_ (let () (declare (not safe)) - (##car _e203766203811_))) - (_lp-tl203768203816_ + (##car _e104706104751_))) + (_lp-tl104708104756_ (let () (declare (not safe)) - (##cdr _e203766203811_)))) + (##cdr _e104706104751_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd203767203814_)) - (let ((_e203775203819_ + (gx#stx-pair? _lp-hd104707104754_)) + (let ((_e104715104759_ (let () (declare (not safe)) - (gx#stx-e _lp-hd203767203814_)))) - (let ((_hd203774203822_ + (gx#stx-e _lp-hd104707104754_)))) + (let ((_hd104714104762_ (let () (declare (not safe)) - (##car _e203775203819_))) - (_tl203773203824_ + (##car _e104715104759_))) + (_tl104713104764_ (let () (declare (not safe)) - (##cdr _e203775203819_)))) + (##cdr _e104715104759_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203773203824_)) - (let ((_e203778203827_ + (gx#stx-pair? _tl104713104764_)) + (let ((_e104718104767_ (let () (declare (not safe)) - (gx#stx-e _tl203773203824_)))) - (let ((_hd203777203830_ + (gx#stx-e _tl104713104764_)))) + (let ((_hd104717104770_ (let () (declare (not safe)) - (##car _e203778203827_))) - (_tl203776203832_ + (##car _e104718104767_))) + (_tl104716104772_ (let () (declare (not safe)) - (##cdr _e203778203827_)))) + (##cdr _e104718104767_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl203776203832_)) - (let ((__tmp214208 + (gx#stx-null? _tl104716104772_)) + (let ((__tmp110580 (let () (declare (not safe)) - (cons _hd203777203830_ - _body203769203806_))) - (__tmp214207 + (cons _hd104717104770_ + _body104709104746_))) + (__tmp110579 (let () (declare (not safe)) - (cons _hd203774203822_ - _hd203770203808_)))) + (cons _hd104714104762_ + _hd104710104748_)))) (declare (not safe)) - (_loop203765203801_ - _lp-tl203768203816_ - __tmp214208 - __tmp214207)) + (_loop104705104741_ + _lp-tl104708104756_ + __tmp110580 + __tmp110579)) (let () (declare (not safe)) - (_g203755203783_ - _g203756203786_))))) + (_g104695104723_ + _g104696104726_))))) (let () (declare (not safe)) - (_g203755203783_ _g203756203786_))))) + (_g104695104723_ _g104696104726_))))) (let () (declare (not safe)) - (_g203755203783_ _g203756203786_))))) - (let ((_body203771203835_ (reverse _body203769203806_)) - (_hd203772203837_ (reverse _hd203770203808_))) - ((lambda (_L203840_ _L203841_) - (let ((_args203860_ + (_g104695104723_ _g104696104726_))))) + (let ((_body104711104775_ (reverse _body104709104746_)) + (_hd104712104777_ (reverse _hd104710104748_))) + ((lambda (_L104780_ _L104781_) + (let ((_args104800_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_arglen203861_ + (_arglen104801_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_name203862_ - (let ((_$e203857_ - (let ((__tmp214180 + (_name104802_ + (let ((_$e104797_ + (let ((__tmp110552 (gxc#current-compile-runtime-names))) (declare (not safe)) - (table-ref - __tmp214180 - _stx203749_ - '#f)))) - (if _$e203857_ - _$e203857_ + (hash-get __tmp110552 _stx104689_)))) + (if _$e104797_ + _$e104797_ ''case-lambda-dispatch)))) - (let ((__tmp214181 - (let ((__tmp214182 - (let ((__tmp214183 - (let ((__tmp214184 - (let ((__tmp214197 - (let ((__tmp214198 + (let ((__tmp110553 + (let ((__tmp110554 + (let ((__tmp110555 + (let ((__tmp110556 + (let ((__tmp110569 + (let ((__tmp110570 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp214199 - (let ((__tmp214200 + (let ((__tmp110571 + (let ((__tmp110572 (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp214206 + (let ((__tmp110578 (let () (declare (not safe)) - (cons _args203860_ + (cons _args104800_ '())))) (declare (not safe)) - (cons '##length __tmp214206)) - (let ((__tmp214201 - (let ((__tmp214202 - (let ((__tmp214203 + (cons '##length __tmp110578)) + (let ((__tmp110573 + (let ((__tmp110574 + (let ((__tmp110575 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp214204 - (let ((__tmp214205 + (let ((__tmp110576 + (let ((__tmp110577 (let () (declare (not safe)) - (cons _args203860_ '())))) + (cons _args104800_ '())))) (declare (not safe)) - (cons '##length __tmp214205)))) + (cons '##length __tmp110577)))) (declare (not safe)) - (cons __tmp214204 '())))) + (cons __tmp110576 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp214203)))) + (cons '(declare (not safe)) __tmp110575)))) (declare (not safe)) - (cons '() __tmp214202)))) + (cons '() __tmp110574)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'let __tmp214201))))) + (cons 'let __tmp110573))))) (declare (not safe)) - (cons __tmp214200 '())))) + (cons __tmp110572 '())))) (declare (not safe)) - (cons _arglen203861_ __tmp214199)))) + (cons _arglen104801_ __tmp110571)))) (declare (not safe)) - (cons __tmp214198 '()))) - (__tmp214185 - (let ((__tmp214186 - (let ((__tmp214187 - (let ((__tmp214191 - (let ((__tmp214192 - (let ((__tmp214193 - (let ((__tmp214194 - (let ((__tmp214195 + (cons __tmp110570 '()))) + (__tmp110557 + (let ((__tmp110558 + (let ((__tmp110559 + (let ((__tmp110563 + (let ((__tmp110564 + (let ((__tmp110565 + (let ((__tmp110566 + (let ((__tmp110567 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp214196 + (let ((__tmp110568 (let () (declare (not safe)) - (cons _args203860_ '())))) + (cons _args104800_ '())))) (declare (not safe)) - (cons _name203862_ __tmp214196)))) + (cons _name104802_ __tmp110568)))) (declare (not safe)) (cons '##raise-wrong-number-of-arguments-exception - __tmp214195)))) + __tmp110567)))) (declare (not safe)) - (cons __tmp214194 '())))) + (cons __tmp110566 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'else __tmp214193)))) + (cons 'else __tmp110565)))) (declare (not safe)) - (cons __tmp214192 '()))) - (__tmp214188 - (map (lambda (_g203863203866_ - _g203864203868_) + (cons __tmp110564 '()))) + (__tmp110560 + (map (lambda (_g104803104806_ + _g104804104808_) (let () (declare (not safe)) - (_generate1203753_ - _args203860_ - _arglen203861_ - _g203863203866_ - _g203864203868_))) - (let ((__tmp214189 - (lambda (_g203870203873_ - _g203871203875_) + (_generate1104693_ + _args104800_ + _arglen104801_ + _g104803104806_ + _g104804104808_))) + (let ((__tmp110561 + (lambda (_g104810104813_ + _g104811104815_) (let () (declare (not safe)) - (cons _g203870203873_ + (cons _g104810104813_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g203871203875_))))) + _g104811104815_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp214189 + (foldr1 __tmp110561 '() - _L203841_)) - (let ((__tmp214190 - (lambda (_g203877203880_ - _g203878203882_) + _L104781_)) + (let ((__tmp110562 + (lambda (_g104817104820_ + _g104818104822_) (let () (declare (not safe)) - (cons _g203877203880_ + (cons _g104817104820_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g203878203882_))))) + _g104818104822_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp214190 + (foldr1 __tmp110562 '() - _L203840_))))) + _L104780_))))) (declare (not safe)) - (foldr1 cons __tmp214191 __tmp214188)))) + (foldr1 cons __tmp110563 __tmp110560)))) (declare (not safe)) - (cons 'cond __tmp214187)))) + (cons 'cond __tmp110559)))) (declare (not safe)) - (cons __tmp214186 '())))) + (cons __tmp110558 '())))) (declare (not safe)) - (cons __tmp214197 __tmp214185)))) + (cons __tmp110569 __tmp110557)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'let __tmp214184)))) + (cons 'let __tmp110556)))) (declare (not safe)) - (cons __tmp214183 '())))) + (cons __tmp110555 '())))) (declare (not safe)) - (cons _args203860_ __tmp214182)))) + (cons _args104800_ __tmp110554)))) (declare (not safe)) - (cons 'lambda __tmp214181)))) - _body203771203835_ - _hd203772203837_)))))) + (cons 'lambda __tmp110553)))) + _body104711104775_ + _hd104712104777_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop203765203801_ - _target203762203796_ + (_loop104705104741_ + _target104702104736_ '() '()))) (let () (declare (not safe)) - (_g203755203783_ - _g203756203786_)))))) + (_g104695104723_ + _g104696104726_)))))) (let () (declare (not safe)) - (_g203755203783_ _g203756203786_))))) + (_g104695104723_ _g104696104726_))))) (let () (declare (not safe)) - (_g203755203783_ _g203756203786_)))))) + (_g104695104723_ _g104696104726_)))))) (declare (not safe)) - (_g203754203885_ _stx203749_))))) + (_g104694104825_ _stx104689_))))) (define gxc#generate-runtime-let-values%__% - (lambda (_stx203023_ _compiled-body?203024_) - (letrec ((_generate-simple203026_ - (lambda (_hd203736_ _body203737_) - (let ((__tmp214209 - (let ((__tmp214210 + (lambda (_stx103963_ _compiled-body?103964_) + (letrec ((_generate-simple103966_ + (lambda (_hd104676_ _body104677_) + (let ((__tmp110581 + (let ((__tmp110582 (let () (declare (not safe)) (gxc#generate-runtime-simple-let 'let - _hd203736_ - _body203737_ - _compiled-body?203024_)))) + _hd104676_ + _body104677_ + _compiled-body?103964_)))) (declare (not safe)) - (_coalesce-let*203028_ __tmp214210)))) + (_coalesce-let*103968_ __tmp110582)))) (declare (not safe)) - (_coalesce-boolean203027_ __tmp214209)))) - (_coalesce-boolean203027_ - (lambda (_code203597_) + (_coalesce-boolean103967_ __tmp110581)))) + (_coalesce-boolean103967_ + (lambda (_code104537_) (if (gxc#current-compile-boolean-context) - (let* ((_code203598203624_ _code203597_) - (_else203600203632_ (lambda () _code203597_)) - (_K203602203669_ - (lambda (_expr2203635_ - _expr1203636_ - _id203637_) - (let* ((_expr2203638203646_ _expr2203635_) - (_else203640203654_ + (let* ((_code104538104564_ _code104537_) + (_else104540104572_ (lambda () _code104537_)) + (_K104542104609_ + (lambda (_expr2104575_ + _expr1104576_ + _id104577_) + (let* ((_expr2104578104586_ _expr2104575_) + (_else104580104594_ (lambda () - (let ((__tmp214211 - (let ((__tmp214212 + (let ((__tmp110583 + (let ((__tmp110584 (let () (declare (not safe)) - (cons _expr2203635_ + (cons _expr2104575_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _expr1203636_ __tmp214212)))) + (cons _expr1104576_ __tmp110584)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'or __tmp214211)))) - (_K203642203659_ - (lambda (_exprs203657_) - (let ((__tmp214213 + (cons 'or __tmp110583)))) + (_K104582104599_ + (lambda (_exprs104597_) + (let ((__tmp110585 (let () (declare (not safe)) - (cons _expr1203636_ - _exprs203657_)))) + (cons _expr1104576_ + _exprs104597_)))) (declare (not safe)) - (cons 'or __tmp214213))))) + (cons 'or __tmp110585))))) (if (let () (declare (not safe)) - (##pair? _expr2203638203646_)) - (let ((_hd203643203662_ + (##pair? _expr2104578104586_)) + (let ((_hd104583104602_ (let () (declare (not safe)) - (##car _expr2203638203646_))) - (_tl203644203664_ + (##car _expr2104578104586_))) + (_tl104584104604_ (let () (declare (not safe)) - (##cdr _expr2203638203646_)))) + (##cdr _expr2104578104586_)))) (if (let () (declare (not safe)) - (##eq? _hd203643203662_ 'or)) - (let ((_exprs203667_ - _tl203644203664_)) + (##eq? _hd104583104602_ 'or)) + (let ((_exprs104607_ + _tl104584104604_)) (declare (not safe)) - (_K203642203659_ - _exprs203667_)) + (_K104582104599_ + _exprs104607_)) (let () (declare (not safe)) - (_else203640203654_)))) + (_else104580104594_)))) (let () (declare (not safe)) - (_else203640203654_))))))) + (_else104580104594_))))))) (if (let () (declare (not safe)) - (##pair? _code203598203624_)) - (let ((_hd203603203672_ + (##pair? _code104538104564_)) + (let ((_hd104543104612_ (let () (declare (not safe)) - (##car _code203598203624_))) - (_tl203604203674_ + (##car _code104538104564_))) + (_tl104544104614_ (let () (declare (not safe)) - (##cdr _code203598203624_)))) + (##cdr _code104538104564_)))) (if (let () (declare (not safe)) - (##eq? _hd203603203672_ 'let)) + (##eq? _hd104543104612_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl203604203674_)) - (let ((_hd203605203677_ + (##pair? _tl104544104614_)) + (let ((_hd104545104617_ (let () (declare (not safe)) - (##car _tl203604203674_))) - (_tl203606203679_ + (##car _tl104544104614_))) + (_tl104546104619_ (let () (declare (not safe)) - (##cdr _tl203604203674_)))) + (##cdr _tl104544104614_)))) (if (let () (declare (not safe)) - (##pair? _hd203605203677_)) - (let ((_hd203617203682_ + (##pair? _hd104545104617_)) + (let ((_hd104557104622_ (let () (declare (not safe)) - (##car _hd203605203677_))) - (_tl203618203684_ + (##car _hd104545104617_))) + (_tl104558104624_ (let () (declare (not safe)) - (##cdr _hd203605203677_)))) + (##cdr _hd104545104617_)))) (if (let () (declare (not safe)) - (##pair? _hd203617203682_)) - (let ((_hd203619203687_ + (##pair? _hd104557104622_)) + (let ((_hd104559104627_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd203617203682_))) - (_tl203620203689_ - (let () (declare (not safe)) (##cdr _hd203617203682_)))) - (let ((_id203692_ _hd203619203687_)) - (if (let () (declare (not safe)) (##pair? _tl203620203689_)) - (let ((_hd203621203694_ + (##car _hd104557104622_))) + (_tl104560104629_ + (let () (declare (not safe)) (##cdr _hd104557104622_)))) + (let ((_id104632_ _hd104559104627_)) + (if (let () (declare (not safe)) (##pair? _tl104560104629_)) + (let ((_hd104561104634_ (let () (declare (not safe)) - (##car _tl203620203689_))) - (_tl203622203696_ + (##car _tl104560104629_))) + (_tl104562104636_ (let () (declare (not safe)) - (##cdr _tl203620203689_)))) - (let ((_expr1203699_ _hd203621203694_)) + (##cdr _tl104560104629_)))) + (let ((_expr1104639_ _hd104561104634_)) (if (let () (declare (not safe)) - (##null? _tl203622203696_)) + (##null? _tl104562104636_)) (if (let () (declare (not safe)) - (##null? _tl203618203684_)) + (##null? _tl104558104624_)) (if (let () (declare (not safe)) - (##pair? _tl203606203679_)) - (let ((_hd203607203701_ + (##pair? _tl104546104619_)) + (let ((_hd104547104641_ (let () (declare (not safe)) - (##car _tl203606203679_))) - (_tl203608203703_ + (##car _tl104546104619_))) + (_tl104548104643_ (let () (declare (not safe)) - (##cdr _tl203606203679_)))) + (##cdr _tl104546104619_)))) (if (let () (declare (not safe)) - (##pair? _hd203607203701_)) - (let ((_hd203609203706_ + (##pair? _hd104547104641_)) + (let ((_hd104549104646_ (let () (declare (not safe)) - (##car _hd203607203701_))) - (_tl203610203708_ + (##car _hd104547104641_))) + (_tl104550104648_ (let () (declare (not safe)) - (##cdr _hd203607203701_)))) + (##cdr _hd104547104641_)))) (if (let () (declare (not safe)) - (##eq? _hd203609203706_ + (##eq? _hd104549104646_ 'if)) (if (let () (declare (not safe)) - (##pair? _tl203610203708_)) - (let ((_hd203611203711_ + (##pair? _tl104550104648_)) + (let ((_hd104551104651_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl203610203708_))) - (_tl203612203713_ - (let () (declare (not safe)) (##cdr _tl203610203708_)))) - (if ((lambda (_g203715203717_) + (##car _tl104550104648_))) + (_tl104552104653_ + (let () (declare (not safe)) (##cdr _tl104550104648_)))) + (if ((lambda (_g104655104657_) (let () (declare (not safe)) - (eq? _g203715203717_ _id203692_))) - _hd203611203711_) + (eq? _g104655104657_ _id104632_))) + _hd104551104651_) (if (let () (declare (not safe)) - (##pair? _tl203612203713_)) - (let ((_hd203613203720_ + (##pair? _tl104552104653_)) + (let ((_hd104553104660_ (let () (declare (not safe)) - (##car _tl203612203713_))) - (_tl203614203722_ + (##car _tl104552104653_))) + (_tl104554104662_ (let () (declare (not safe)) - (##cdr _tl203612203713_)))) - (if ((lambda (_g203724203726_) + (##cdr _tl104552104653_)))) + (if ((lambda (_g104664104666_) (let () (declare (not safe)) - (eq? _g203724203726_ _id203692_))) - _hd203613203720_) + (eq? _g104664104666_ _id104632_))) + _hd104553104660_) (if (let () (declare (not safe)) - (##pair? _tl203614203722_)) - (let ((_hd203615203729_ + (##pair? _tl104554104662_)) + (let ((_hd104555104669_ (let () (declare (not safe)) - (##car _tl203614203722_))) - (_tl203616203731_ + (##car _tl104554104662_))) + (_tl104556104671_ (let () (declare (not safe)) - (##cdr _tl203614203722_)))) - (let ((_expr2203734_ _hd203615203729_)) + (##cdr _tl104554104662_)))) + (let ((_expr2104674_ _hd104555104669_)) (if (let () (declare (not safe)) - (##null? _tl203616203731_)) + (##null? _tl104556104671_)) (if (let () (declare (not safe)) - (##null? _tl203608203703_)) + (##null? _tl104548104643_)) (let () (declare (not safe)) - (_K203602203669_ - _expr2203734_ - _expr1203699_ - _id203692_)) + (_K104542104609_ + _expr2104674_ + _expr1104639_ + _id104632_)) (let () (declare (not safe)) - (_else203600203632_))) + (_else104540104572_))) (let () (declare (not safe)) - (_else203600203632_))))) + (_else104540104572_))))) (let () (declare (not safe)) - (_else203600203632_))) + (_else104540104572_))) (let () (declare (not safe)) - (_else203600203632_)))) - (let () (declare (not safe)) (_else203600203632_))) - (let () (declare (not safe)) (_else203600203632_)))) - (let () (declare (not safe)) (_else203600203632_))) + (_else104540104572_)))) + (let () (declare (not safe)) (_else104540104572_))) + (let () (declare (not safe)) (_else104540104572_)))) + (let () (declare (not safe)) (_else104540104572_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else203600203632_)))) + (_else104540104572_)))) (let () (declare (not safe)) - (_else203600203632_)))) + (_else104540104572_)))) (let () (declare (not safe)) - (_else203600203632_))) + (_else104540104572_))) (let () (declare (not safe)) - (_else203600203632_))) + (_else104540104572_))) (let () (declare (not safe)) - (_else203600203632_))))) - (let () (declare (not safe)) (_else203600203632_))))) - (let () (declare (not safe)) (_else203600203632_)))) + (_else104540104572_))))) + (let () (declare (not safe)) (_else104540104572_))))) + (let () (declare (not safe)) (_else104540104572_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else203600203632_)))) + (_else104540104572_)))) (let () (declare (not safe)) - (_else203600203632_))) + (_else104540104572_))) (let () (declare (not safe)) - (_else203600203632_)))) + (_else104540104572_)))) (let () (declare (not safe)) - (_else203600203632_)))) - _code203597_))) - (_coalesce-let*203028_ - (lambda (_code203330_) - (let* ((_code203331203395_ _code203330_) - (_else203335203403_ (lambda () _code203330_))) - (let ((_K203377203548_ - (lambda (_body203544_ _expr203545_ _id203546_) - (let ((__tmp214214 - (let ((__tmp214215 - (let ((__tmp214216 - (let ((__tmp214217 + (_else104540104572_)))) + _code104537_))) + (_coalesce-let*103968_ + (lambda (_code104270_) + (let* ((_code104271104335_ _code104270_) + (_else104275104343_ (lambda () _code104270_))) + (let ((_K104317104488_ + (lambda (_body104484_ _expr104485_ _id104486_) + (let ((__tmp110586 + (let ((__tmp110587 + (let ((__tmp110588 + (let ((__tmp110589 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr203545_ '())))) + (cons _expr104485_ '())))) (declare (not safe)) - (cons _id203546_ __tmp214217)))) + (cons _id104486_ __tmp110589)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214216 '())))) + (cons __tmp110588 '())))) (declare (not safe)) - (cons __tmp214215 _body203544_)))) + (cons __tmp110587 _body104484_)))) (declare (not safe)) - (cons 'let __tmp214214)))) - (_K203354203473_ - (lambda (_body203467_ - _expr2203468_ - _id2203469_ - _expr1203470_ - _id1203471_) - (let ((__tmp214218 - (let ((__tmp214219 - (let ((__tmp214223 - (let ((__tmp214224 + (cons 'let __tmp110586)))) + (_K104294104413_ + (lambda (_body104407_ + _expr2104408_ + _id2104409_ + _expr1104410_ + _id1104411_) + (let ((__tmp110590 + (let ((__tmp110591 + (let ((__tmp110595 + (let ((__tmp110596 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr1203470_ '())))) + (cons _expr1104410_ '())))) (declare (not safe)) - (cons _id1203471_ __tmp214224))) + (cons _id1104411_ __tmp110596))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp214220 - (let ((__tmp214221 - (let ((__tmp214222 + (__tmp110592 + (let ((__tmp110593 + (let ((__tmp110594 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr2203468_ '())))) + (cons _expr2104408_ '())))) (declare (not safe)) - (cons _id2203469_ __tmp214222)))) + (cons _id2104409_ __tmp110594)))) (declare (not safe)) - (cons __tmp214221 '())))) + (cons __tmp110593 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214223 - __tmp214220)))) + (cons __tmp110595 + __tmp110592)))) (declare (not safe)) - (cons __tmp214219 _body203467_)))) + (cons __tmp110591 _body104407_)))) (declare (not safe)) - (cons 'let* __tmp214218)))) - (_K203337203412_ - (lambda (_body203407_ - _bind203408_ - _expr1203409_ - _id1203410_) - (let ((__tmp214225 - (let ((__tmp214226 - (let ((__tmp214227 - (let ((__tmp214228 + (cons 'let* __tmp110590)))) + (_K104277104352_ + (lambda (_body104347_ + _bind104348_ + _expr1104349_ + _id1104350_) + (let ((__tmp110597 + (let ((__tmp110598 + (let ((__tmp110599 + (let ((__tmp110600 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr1203409_ '())))) + (cons _expr1104349_ '())))) (declare (not safe)) - (cons _id1203410_ __tmp214228)))) + (cons _id1104350_ __tmp110600)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214227 - _bind203408_)))) + (cons __tmp110599 + _bind104348_)))) (declare (not safe)) - (cons __tmp214226 _body203407_)))) + (cons __tmp110598 _body104347_)))) (declare (not safe)) - (cons 'let* __tmp214225))))) + (cons 'let* __tmp110597))))) (if (let () (declare (not safe)) - (##pair? _code203331203395_)) - (let ((_tl203379203553_ + (##pair? _code104271104335_)) + (let ((_tl104319104493_ (let () (declare (not safe)) - (##cdr _code203331203395_))) - (_hd203378203551_ + (##cdr _code104271104335_))) + (_hd104318104491_ (let () (declare (not safe)) - (##car _code203331203395_)))) + (##car _code104271104335_)))) (if (let () (declare (not safe)) - (##eq? _hd203378203551_ 'let)) + (##eq? _hd104318104491_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl203379203553_)) - (let ((_tl203381203558_ + (##pair? _tl104319104493_)) + (let ((_tl104321104498_ (let () (declare (not safe)) - (##cdr _tl203379203553_))) - (_hd203380203556_ + (##cdr _tl104319104493_))) + (_hd104320104496_ (let () (declare (not safe)) - (##car _tl203379203553_)))) + (##car _tl104319104493_)))) (if (let () (declare (not safe)) - (##pair? _hd203380203556_)) - (let ((_tl203389203563_ + (##pair? _hd104320104496_)) + (let ((_tl104329104503_ (let () (declare (not safe)) - (##cdr _hd203380203556_))) - (_hd203388203561_ + (##cdr _hd104320104496_))) + (_hd104328104501_ (let () (declare (not safe)) - (##car _hd203380203556_)))) + (##car _hd104320104496_)))) (if (let () (declare (not safe)) - (##pair? _hd203388203561_)) - (let ((_tl203391203568_ + (##pair? _hd104328104501_)) + (let ((_tl104331104508_ (let () (declare (not safe)) - (##cdr _hd203388203561_))) - (_hd203390203566_ + (##cdr _hd104328104501_))) + (_hd104330104506_ (let () (declare (not safe)) - (##car _hd203388203561_)))) + (##car _hd104328104501_)))) (if (let () (declare (not safe)) - (##pair? _tl203391203568_)) - (let ((_tl203393203575_ + (##pair? _tl104331104508_)) + (let ((_tl104333104515_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##cdr _tl203391203568_))) - (_hd203392203573_ + (##cdr _tl104331104508_))) + (_hd104332104513_ (let () (declare (not safe)) - (##car _tl203391203568_)))) + (##car _tl104331104508_)))) (if (let () (declare (not safe)) - (##null? _tl203393203575_)) + (##null? _tl104333104515_)) (if (let () (declare (not safe)) - (##null? _tl203389203563_)) + (##null? _tl104329104503_)) (if (let () (declare (not safe)) - (##pair? _tl203381203558_)) - (let ((_tl203383203582_ + (##pair? _tl104321104498_)) + (let ((_tl104323104522_ (let () (declare (not safe)) - (##cdr _tl203381203558_))) - (_hd203382203580_ + (##cdr _tl104321104498_))) + (_hd104322104520_ (let () (declare (not safe)) - (##car _tl203381203558_)))) + (##car _tl104321104498_)))) (if (let () (declare (not safe)) - (##pair? _hd203382203580_)) - (let ((_tl203385203587_ + (##pair? _hd104322104520_)) + (let ((_tl104325104527_ (let () (declare (not safe)) - (##cdr _hd203382203580_))) - (_hd203384203585_ + (##cdr _hd104322104520_))) + (_hd104324104525_ (let () (declare (not safe)) - (##car _hd203382203580_)))) + (##car _hd104322104520_)))) (if (let () (declare (not safe)) - (##eq? _hd203384203585_ 'let)) + (##eq? _hd104324104525_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl203385203587_)) - (let ((_tl203387203592_ + (##pair? _tl104325104527_)) + (let ((_tl104327104532_ (let () (declare (not safe)) - (##cdr _tl203385203587_))) - (_hd203386203590_ + (##cdr _tl104325104527_))) + (_hd104326104530_ (let () (declare (not safe)) - (##car _tl203385203587_)))) + (##car _tl104325104527_)))) (if (let () (declare (not safe)) - (##null? _hd203386203590_)) + (##null? _hd104326104530_)) (if (let () (declare (not safe)) - (##null? _tl203383203582_)) - (let ((_id203571_ + (##null? _tl104323104522_)) + (let ((_id104511_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd203390203566_) - (_expr203578_ _hd203392203573_) - (_body203595_ _tl203387203592_)) + _hd104330104506_) + (_expr104518_ _hd104332104513_) + (_body104535_ _tl104327104532_)) (let () (declare (not safe)) - (_K203377203548_ _body203595_ _expr203578_ _id203571_))) - (let () (declare (not safe)) (_else203335203403_))) - (if (let () (declare (not safe)) (##pair? _hd203386203590_)) - (let ((_tl203366203522_ + (_K104317104488_ _body104535_ _expr104518_ _id104511_))) + (let () (declare (not safe)) (_else104275104343_))) + (if (let () (declare (not safe)) (##pair? _hd104326104530_)) + (let ((_tl104306104462_ (let () (declare (not safe)) - (##cdr _hd203386203590_))) - (_hd203365203520_ + (##cdr _hd104326104530_))) + (_hd104305104460_ (let () (declare (not safe)) - (##car _hd203386203590_)))) + (##car _hd104326104530_)))) (if (let () (declare (not safe)) - (##pair? _hd203365203520_)) - (let ((_tl203368203527_ + (##pair? _hd104305104460_)) + (let ((_tl104308104467_ (let () (declare (not safe)) - (##cdr _hd203365203520_))) - (_hd203367203525_ + (##cdr _hd104305104460_))) + (_hd104307104465_ (let () (declare (not safe)) - (##car _hd203365203520_)))) + (##car _hd104305104460_)))) (if (let () (declare (not safe)) - (##pair? _tl203368203527_)) - (let ((_tl203370203534_ + (##pair? _tl104308104467_)) + (let ((_tl104310104474_ (let () (declare (not safe)) - (##cdr _tl203368203527_))) - (_hd203369203532_ + (##cdr _tl104308104467_))) + (_hd104309104472_ (let () (declare (not safe)) - (##car _tl203368203527_)))) + (##car _tl104308104467_)))) (if (let () (declare (not safe)) - (##null? _tl203370203534_)) + (##null? _tl104310104474_)) (if (let () (declare (not safe)) - (##null? _tl203366203522_)) + (##null? _tl104306104462_)) (if (let () (declare (not safe)) - (##null? _tl203383203582_)) - (let ((_id1203496_ - _hd203390203566_) - (_expr1203503_ - _hd203392203573_) - (_id2203530_ - _hd203367203525_) - (_expr2203537_ - _hd203369203532_) - (_body203539_ - _tl203387203592_)) + (##null? _tl104323104522_)) + (let ((_id1104436_ + _hd104330104506_) + (_expr1104443_ + _hd104332104513_) + (_id2104470_ + _hd104307104465_) + (_expr2104477_ + _hd104309104472_) + (_body104479_ + _tl104327104532_)) (let () (declare (not safe)) - (_K203354203473_ - _body203539_ - _expr2203537_ - _id2203530_ - _expr1203503_ - _id1203496_))) + (_K104294104413_ + _body104479_ + _expr2104477_ + _id2104470_ + _expr1104443_ + _id1104436_))) (let () (declare (not safe)) - (_else203335203403_))) + (_else104275104343_))) (let () (declare (not safe)) - (_else203335203403_))) + (_else104275104343_))) (let () (declare (not safe)) - (_else203335203403_)))) + (_else104275104343_)))) (let () (declare (not safe)) - (_else203335203403_)))) - (let () (declare (not safe)) (_else203335203403_)))) - (let () (declare (not safe)) (_else203335203403_))))) + (_else104275104343_)))) + (let () (declare (not safe)) (_else104275104343_)))) + (let () (declare (not safe)) (_else104275104343_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else203335203403_))) + (_else104275104343_))) (if (let () (declare (not safe)) - (##eq? _hd203384203585_ + (##eq? _hd104324104525_ 'let*)) (if (let () (declare (not safe)) - (##pair? _tl203385203587_)) - (let ((_tl203347203456_ + (##pair? _tl104325104527_)) + (let ((_tl104287104396_ (let () (declare (not safe)) - (##cdr _tl203385203587_))) - (_hd203346203454_ + (##cdr _tl104325104527_))) + (_hd104286104394_ (let () (declare (not safe)) - (##car _tl203385203587_)))) + (##car _tl104325104527_)))) (if (let () (declare (not safe)) - (##null? _tl203383203582_)) - (let ((_id1203435_ + (##null? _tl104323104522_)) + (let ((_id1104375_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd203390203566_) - (_expr1203442_ _hd203392203573_) - (_bind203459_ _hd203346203454_) - (_body203461_ _tl203347203456_)) + _hd104330104506_) + (_expr1104382_ _hd104332104513_) + (_bind104399_ _hd104286104394_) + (_body104401_ _tl104287104396_)) (let () (declare (not safe)) - (_K203337203412_ - _body203461_ - _bind203459_ - _expr1203442_ - _id1203435_))) - (let () (declare (not safe)) (_else203335203403_)))) + (_K104277104352_ + _body104401_ + _bind104399_ + _expr1104382_ + _id1104375_))) + (let () (declare (not safe)) (_else104275104343_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else203335203403_))) + (_else104275104343_))) (let () (declare (not safe)) - (_else203335203403_))))) + (_else104275104343_))))) (let () (declare (not safe)) - (_else203335203403_)))) + (_else104275104343_)))) (let () (declare (not safe)) - (_else203335203403_))) - (let () (declare (not safe)) (_else203335203403_))) - (let () (declare (not safe)) (_else203335203403_)))) - (let () (declare (not safe)) (_else203335203403_)))) + (_else104275104343_))) + (let () (declare (not safe)) (_else104275104343_))) + (let () (declare (not safe)) (_else104275104343_)))) + (let () (declare (not safe)) (_else104275104343_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else203335203403_)))) + (_else104275104343_)))) (let () (declare (not safe)) - (_else203335203403_)))) + (_else104275104343_)))) (let () (declare (not safe)) - (_else203335203403_))) + (_else104275104343_))) (let () (declare (not safe)) - (_else203335203403_)))) + (_else104275104343_)))) (let () (declare (not safe)) - (_else203335203403_))))))) - (_generate-values203029_ - (lambda (_hd203143_ _body203144_) - (let _lp203146_ ((_rest203148_ _hd203143_) - (_bind203149_ '()) - (_check203150_ '()) - (_post203151_ '())) - (let* ((___stx213149213150_ _rest203148_) - (_g203154203165_ + (_else104275104343_))))))) + (_generate-values103969_ + (lambda (_hd104083_ _body104084_) + (let _lp104086_ ((_rest104088_ _hd104083_) + (_bind104089_ '()) + (_check104090_ '()) + (_post104091_ '())) + (let* ((___stx109521109522_ _rest104088_) + (_g104094104105_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx213149213150_))))) - (let ((___kont213151213152_ - (lambda (_L203192_ _L203193_) - (let* ((___stx213105213106_ _L203193_) - (_g203208203233_ + ___stx109521109522_))))) + (let ((___kont109523109524_ + (lambda (_L104132_ _L104133_) + (let* ((___stx109477109478_ _L104133_) + (_g104148104173_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx213105213106_))))) - (let ((___kont213107213108_ - (lambda (_L203306_ _L203307_) - (let ((_eid203321_ + ___stx109477109478_))))) + (let ((___kont109479109480_ + (lambda (_L104246_ _L104247_) + (let ((_eid104261_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _L203307_))) - (_expr203322_ + _L104247_))) + (_expr104262_ (let () (declare (not safe)) (gxc#compile-e__0 - _L203306_)))) - (let ((__tmp214229 - (let ((__tmp214230 - (let ((__tmp214231 + _L104246_)))) + (let ((__tmp110601 + (let ((__tmp110602 + (let ((__tmp110603 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr203322_ '())))) + (cons _expr104262_ '())))) (declare (not safe)) - (cons _eid203321_ __tmp214231)))) + (cons _eid104261_ __tmp110603)))) (declare (not safe)) - (cons __tmp214230 _bind203149_)))) + (cons __tmp110602 _bind104089_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp203146_ - _L203192_ - __tmp214229 - _check203150_ - _post203151_))))) - (___kont213109213110_ - (lambda (_L203254_ _L203255_) - (let* ((_vals203268_ + (_lp104086_ + _L104132_ + __tmp110601 + _check104090_ + _post104091_))))) + (___kont109481109482_ + (lambda (_L104194_ _L104195_) + (let* ((_vals104208_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_check-values203270_ + (_check-values104210_ (let () (declare (not safe)) (gxc#generate-runtime-check-values - _vals203268_ - _L203255_ - _L203254_))) - (_refs203272_ + _vals104208_ + _L104195_ + _L104194_))) + (_refs104212_ (let () (declare (not safe)) (gxc#generate-runtime-let-values-bind - _vals203268_ - _L203255_))) - (_expr203274_ + _vals104208_ + _L104195_))) + (_expr104214_ (let () (declare (not safe)) (gxc#compile-e__0 - _L203254_)))) - (let ((__tmp214234 - (let ((__tmp214235 - (let ((__tmp214236 + _L104194_)))) + (let ((__tmp110606 + (let ((__tmp110607 + (let ((__tmp110608 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr203274_ '())))) + (cons _expr104214_ '())))) (declare (not safe)) - (cons _vals203268_ __tmp214236)))) + (cons _vals104208_ __tmp110608)))) (declare (not safe)) - (cons __tmp214235 _bind203149_))) - (__tmp214233 + (cons __tmp110607 _bind104089_))) + (__tmp110605 (let () (declare (not safe)) - (cons _check-values203270_ _check203150_))) - (__tmp214232 - (let () (declare (not safe)) (cons _refs203272_ _post203151_)))) + (cons _check-values104210_ _check104090_))) + (__tmp110604 + (let () (declare (not safe)) (cons _refs104212_ _post104091_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp203146_ - _L203192_ - __tmp214234 - __tmp214233 - __tmp214232)))))) + (_lp104086_ + _L104132_ + __tmp110606 + __tmp110605 + __tmp110604)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx213105213106_)) - (let ((_e203214203282_ + ___stx109477109478_)) + (let ((_e104154104222_ (let () (declare (not safe)) (gx#stx-e - ___stx213105213106_)))) - (let ((_tl203212203287_ + ___stx109477109478_)))) + (let ((_tl104152104227_ (let () (declare (not safe)) - (##cdr _e203214203282_))) - (_hd203213203285_ + (##cdr _e104154104222_))) + (_hd104153104225_ (let () (declare (not safe)) - (##car _e203214203282_)))) + (##car _e104154104222_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd203213203285_)) - (let ((_e203217203290_ + _hd104153104225_)) + (let ((_e104157104230_ (let () (declare (not safe)) (gx#stx-e - _hd203213203285_)))) - (let ((_tl203215203295_ + _hd104153104225_)))) + (let ((_tl104155104235_ (let () (declare (not safe)) - (##cdr _e203217203290_))) - (_hd203216203293_ + (##cdr _e104157104230_))) + (_hd104156104233_ (let () (declare (not safe)) - (##car _e203217203290_)))) + (##car _e104157104230_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl203215203295_)) + _tl104155104235_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl203212203287_)) - (let ((_e203220203298_ + (gx#stx-pair? _tl104152104227_)) + (let ((_e104160104238_ (let () (declare (not safe)) - (gx#stx-e _tl203212203287_)))) - (let ((_tl203218203303_ + (gx#stx-e _tl104152104227_)))) + (let ((_tl104158104243_ (let () (declare (not safe)) - (##cdr _e203220203298_))) - (_hd203219203301_ + (##cdr _e104160104238_))) + (_hd104159104241_ (let () (declare (not safe)) - (##car _e203220203298_)))) + (##car _e104160104238_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl203218203303_)) - (___kont213107213108_ - _hd203219203301_ - _hd203216203293_) + (gx#stx-null? _tl104158104243_)) + (___kont109479109480_ + _hd104159104241_ + _hd104156104233_) (let () (declare (not safe)) - (_g203208203233_))))) - (let () (declare (not safe)) (_g203208203233_))) + (_g104148104173_))))) + (let () (declare (not safe)) (_g104148104173_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203212203287_)) - (let ((_e203228203246_ + (gx#stx-pair? _tl104152104227_)) + (let ((_e104168104186_ (let () (declare (not safe)) - (gx#stx-e _tl203212203287_)))) - (let ((_tl203226203251_ + (gx#stx-e _tl104152104227_)))) + (let ((_tl104166104191_ (let () (declare (not safe)) - (##cdr _e203228203246_))) - (_hd203227203249_ + (##cdr _e104168104186_))) + (_hd104167104189_ (let () (declare (not safe)) - (##car _e203228203246_)))) + (##car _e104168104186_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl203226203251_)) - (___kont213109213110_ - _hd203227203249_ - _hd203213203285_) + (gx#stx-null? _tl104166104191_)) + (___kont109481109482_ + _hd104167104189_ + _hd104153104225_) (let () (declare (not safe)) - (_g203208203233_))))) - (let () (declare (not safe)) (_g203208203233_)))))) + (_g104148104173_))))) + (let () (declare (not safe)) (_g104148104173_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl203212203287_)) - (let ((_e203228203246_ + _tl104152104227_)) + (let ((_e104168104186_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl203212203287_)))) - (let ((_tl203226203251_ - (let () (declare (not safe)) (##cdr _e203228203246_))) - (_hd203227203249_ - (let () (declare (not safe)) (##car _e203228203246_)))) + (gx#stx-e _tl104152104227_)))) + (let ((_tl104166104191_ + (let () (declare (not safe)) (##cdr _e104168104186_))) + (_hd104167104189_ + (let () (declare (not safe)) (##car _e104168104186_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl203226203251_)) - (___kont213109213110_ _hd203227203249_ _hd203213203285_) - (let () (declare (not safe)) (_g203208203233_))))) - (let () (declare (not safe)) (_g203208203233_)))))) + (gx#stx-null? _tl104166104191_)) + (___kont109481109482_ _hd104167104189_ _hd104153104225_) + (let () (declare (not safe)) (_g104148104173_))))) + (let () (declare (not safe)) (_g104148104173_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g203208203233_))))))) - (___kont213153213154_ + (_g104148104173_))))))) + (___kont109525109526_ (lambda () - (let* ((_body203172_ - (if _compiled-body?203024_ - _body203144_ + (let* ((_body104112_ + (if _compiled-body?103964_ + _body104084_ (let () (declare (not safe)) (gxc#compile-e__0 - _body203144_)))) - (_body203174_ + _body104084_)))) + (_body104114_ (let () (declare (not safe)) - (_generate-values-post203030_ - _post203151_ - _body203172_))) - (_body203176_ + (_generate-values-post103970_ + _post104091_ + _body104112_))) + (_body104116_ (let () (declare (not safe)) - (_generate-values-check203031_ - _check203150_ - _body203174_)))) - (let ((__tmp214237 - (let ((__tmp214239 - (reverse _bind203149_)) - (__tmp214238 + (_generate-values-check103971_ + _check104090_ + _body104114_)))) + (let ((__tmp110609 + (let ((__tmp110611 + (reverse _bind104089_)) + (__tmp110610 (let () (declare (not safe)) - (cons _body203176_ '())))) + (cons _body104116_ '())))) (declare (not safe)) - (cons __tmp214239 __tmp214238)))) + (cons __tmp110611 __tmp110610)))) (declare (not safe)) - (cons 'let __tmp214237)))))) + (cons 'let __tmp110609)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx213149213150_)) - (let ((_e203160203184_ + (gx#stx-pair? ___stx109521109522_)) + (let ((_e104100104124_ (let () (declare (not safe)) - (gx#stx-e ___stx213149213150_)))) - (let ((_tl203158203189_ + (gx#stx-e ___stx109521109522_)))) + (let ((_tl104098104129_ (let () (declare (not safe)) - (##cdr _e203160203184_))) - (_hd203159203187_ + (##cdr _e104100104124_))) + (_hd104099104127_ (let () (declare (not safe)) - (##car _e203160203184_)))) - (___kont213151213152_ - _tl203158203189_ - _hd203159203187_))) - (___kont213153213154_))))))) - (_generate-values-post203030_ - (lambda (_post203102_ _body203103_) - (let _lp203105_ ((_rest203107_ _post203102_) - (_body203108_ _body203103_)) - (let* ((_rest203109203117_ _rest203107_) - (_else203111203125_ (lambda () _body203108_)) - (_K203113203131_ - (lambda (_rest203128_ _bind203129_) - (let ((__tmp214240 - (let ((__tmp214241 - (let ((__tmp214242 + (##car _e104100104124_)))) + (___kont109523109524_ + _tl104098104129_ + _hd104099104127_))) + (___kont109525109526_))))))) + (_generate-values-post103970_ + (lambda (_post104042_ _body104043_) + (let _lp104045_ ((_rest104047_ _post104042_) + (_body104048_ _body104043_)) + (let* ((_rest104049104057_ _rest104047_) + (_else104051104065_ (lambda () _body104048_)) + (_K104053104071_ + (lambda (_rest104068_ _bind104069_) + (let ((__tmp110612 + (let ((__tmp110613 + (let ((__tmp110614 (let () (declare (not safe)) - (cons _body203108_ + (cons _body104048_ '())))) (declare (not safe)) - (cons _bind203129_ - __tmp214242)))) + (cons _bind104069_ + __tmp110614)))) (declare (not safe)) - (cons 'let __tmp214241)))) + (cons 'let __tmp110613)))) (declare (not safe)) - (_lp203105_ _rest203128_ __tmp214240))))) + (_lp104045_ _rest104068_ __tmp110612))))) (if (let () (declare (not safe)) - (##pair? _rest203109203117_)) - (let ((_hd203114203134_ + (##pair? _rest104049104057_)) + (let ((_hd104054104074_ (let () (declare (not safe)) - (##car _rest203109203117_))) - (_tl203115203136_ + (##car _rest104049104057_))) + (_tl104055104076_ (let () (declare (not safe)) - (##cdr _rest203109203117_)))) - (let* ((_bind203139_ _hd203114203134_) - (_rest203141_ _tl203115203136_)) + (##cdr _rest104049104057_)))) + (let* ((_bind104079_ _hd104054104074_) + (_rest104081_ _tl104055104076_)) (declare (not safe)) - (_K203113203131_ _rest203141_ _bind203139_))) + (_K104053104071_ _rest104081_ _bind104079_))) (let () (declare (not safe)) - (_else203111203125_))))))) - (_generate-values-check203031_ - (lambda (_check203099_ _body203100_) - (let ((__tmp214243 - (let ((__tmp214245 + (_else104051104065_))))))) + (_generate-values-check103971_ + (lambda (_check104039_ _body104040_) + (let ((__tmp110615 + (let ((__tmp110617 (let () (declare (not safe)) - (cons _body203100_ '()))) - (__tmp214244 (reverse _check203099_))) + (cons _body104040_ '()))) + (__tmp110616 (reverse _check104039_))) (declare (not safe)) - (foldr1 cons __tmp214245 __tmp214244)))) + (foldr1 cons __tmp110617 __tmp110616)))) (declare (not safe)) - (cons 'begin __tmp214243))))) - (let* ((_g203033203050_ - (lambda (_g203034203047_) + (cons 'begin __tmp110615))))) + (let* ((_g103973103990_ + (lambda (_g103974103987_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g203034203047_)))) - (_g203032203096_ - (lambda (_g203034203053_) + _g103974103987_)))) + (_g103972104036_ + (lambda (_g103974103993_) (if (let () (declare (not safe)) - (gx#stx-pair? _g203034203053_)) - (let ((_e203039203055_ + (gx#stx-pair? _g103974103993_)) + (let ((_e103979103995_ (let () (declare (not safe)) - (gx#stx-e _g203034203053_)))) - (let ((_hd203038203058_ + (gx#stx-e _g103974103993_)))) + (let ((_hd103978103998_ (let () (declare (not safe)) - (##car _e203039203055_))) - (_tl203037203060_ + (##car _e103979103995_))) + (_tl103977104000_ (let () (declare (not safe)) - (##cdr _e203039203055_)))) + (##cdr _e103979103995_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203037203060_)) - (let ((_e203042203063_ + (gx#stx-pair? _tl103977104000_)) + (let ((_e103982104003_ (let () (declare (not safe)) - (gx#stx-e _tl203037203060_)))) - (let ((_hd203041203066_ + (gx#stx-e _tl103977104000_)))) + (let ((_hd103981104006_ (let () (declare (not safe)) - (##car _e203042203063_))) - (_tl203040203068_ + (##car _e103982104003_))) + (_tl103980104008_ (let () (declare (not safe)) - (##cdr _e203042203063_)))) + (##cdr _e103982104003_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203040203068_)) - (let ((_e203045203071_ + (gx#stx-pair? _tl103980104008_)) + (let ((_e103985104011_ (let () (declare (not safe)) (gx#stx-e - _tl203040203068_)))) - (let ((_hd203044203074_ + _tl103980104008_)))) + (let ((_hd103984104014_ (let () (declare (not safe)) - (##car _e203045203071_))) - (_tl203043203076_ + (##car _e103985104011_))) + (_tl103983104016_ (let () (declare (not safe)) - (##cdr _e203045203071_)))) + (##cdr _e103985104011_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl203043203076_)) - ((lambda (_L203079_ - _L203080_) + _tl103983104016_)) + ((lambda (_L104019_ + _L104020_) (if (let () (declare (not safe)) (gxc#generate-runtime-simple-let? - _L203080_)) + _L104020_)) (let () (declare (not safe)) - (_generate-simple203026_ - _L203080_ - _L203079_)) + (_generate-simple103966_ + _L104020_ + _L104019_)) (let () (declare (not safe)) - (_generate-values203029_ - _L203080_ - _L203079_)))) - _hd203044203074_ - _hd203041203066_) + (_generate-values103969_ + _L104020_ + _L104019_)))) + _hd103984104014_ + _hd103981104006_) (let () (declare (not safe)) - (_g203033203050_ - _g203034203053_))))) + (_g103973103990_ + _g103974103993_))))) (let () (declare (not safe)) - (_g203033203050_ - _g203034203053_))))) + (_g103973103990_ + _g103974103993_))))) (let () (declare (not safe)) - (_g203033203050_ _g203034203053_))))) + (_g103973103990_ _g103974103993_))))) (let () (declare (not safe)) - (_g203033203050_ _g203034203053_)))))) + (_g103973103990_ _g103974103993_)))))) (declare (not safe)) - (_g203032203096_ _stx203023_))))) + (_g103972104036_ _stx103963_))))) (define gxc#generate-runtime-let-values%__0 - (lambda (_stx203742_) - (let ((_compiled-body?203744_ '#f)) + (lambda (_stx104682_) + (let ((_compiled-body?104684_ '#f)) (declare (not safe)) (gxc#generate-runtime-let-values%__% - _stx203742_ - _compiled-body?203744_)))) + _stx104682_ + _compiled-body?104684_)))) (define gxc#generate-runtime-let-values% - (lambda _g214247_ - (let ((_g214246_ (let () (declare (not safe)) (##length _g214247_)))) - (cond ((let () (declare (not safe)) (##fx= _g214246_ 1)) - (apply (lambda (_stx203742_) + (lambda _g110619_ + (let ((_g110618_ (let () (declare (not safe)) (##length _g110619_)))) + (cond ((let () (declare (not safe)) (##fx= _g110618_ 1)) + (apply (lambda (_stx104682_) (let () (declare (not safe)) (gxc#generate-runtime-let-values%__0 - _stx203742_))) - _g214247_)) - ((let () (declare (not safe)) (##fx= _g214246_ 2)) - (apply (lambda (_stx203746_ _compiled-body?203747_) + _stx104682_))) + _g110619_)) + ((let () (declare (not safe)) (##fx= _g110618_ 2)) + (apply (lambda (_stx104686_ _compiled-body?104687_) (let () (declare (not safe)) (gxc#generate-runtime-let-values%__% - _stx203746_ - _compiled-body?203747_))) - _g214247_)) + _stx104686_ + _compiled-body?104687_))) + _g110619_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-let-values% - _g214247_)))))) + _g110619_)))))) (define gxc#generate-runtime-let-values-bind - (lambda (_vals202917_ _hd202918_) - (let _lp202920_ ((_rest202922_ _hd202918_) - (_k202923_ '0) - (_r202924_ '())) - (let* ((___stx213163213164_ _rest202922_) - (_g202929202946_ + (lambda (_vals103857_ _hd103858_) + (let _lp103860_ ((_rest103862_ _hd103858_) + (_k103863_ '0) + (_r103864_ '())) + (let* ((___stx109535109536_ _rest103862_) + (_g103869103886_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx213163213164_))))) - (let ((___kont213165213166_ - (lambda (_L203009_) - (let ((__tmp214248 + ___stx109535109536_))))) + (let ((___kont109537109538_ + (lambda (_L103949_) + (let ((__tmp110620 (let () (declare (not safe)) - (fx+ _k202923_ '1)))) + (fx+ _k103863_ '1)))) (declare (not safe)) - (_lp202920_ _L203009_ __tmp214248 _r202924_)))) - (___kont213167213168_ - (lambda (_L202982_ _L202983_) - (let ((__tmp214254 - (let () (declare (not safe)) (fx+ _k202923_ '1))) - (__tmp214249 - (let ((__tmp214250 - (let ((__tmp214253 + (_lp103860_ _L103949_ __tmp110620 _r103864_)))) + (___kont109539109540_ + (lambda (_L103922_ _L103923_) + (let ((__tmp110626 + (let () (declare (not safe)) (fx+ _k103863_ '1))) + (__tmp110621 + (let ((__tmp110622 + (let ((__tmp110625 (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L202983_))) - (__tmp214251 - (let ((__tmp214252 + _L103923_))) + (__tmp110623 + (let ((__tmp110624 (let () (declare (not safe)) (gxc#generate-runtime-values-ref - _vals202917_ - _k202923_ - _L202982_)))) + _vals103857_ + _k103863_ + _L103922_)))) (declare (not safe)) - (cons __tmp214252 '())))) + (cons __tmp110624 '())))) (declare (not safe)) - (cons __tmp214253 __tmp214251)))) + (cons __tmp110625 __tmp110623)))) (declare (not safe)) - (cons __tmp214250 _r202924_)))) + (cons __tmp110622 _r103864_)))) (declare (not safe)) - (_lp202920_ _L202982_ __tmp214254 __tmp214249)))) - (___kont213169213170_ - (lambda (_L202958_) - (let ((__tmp214255 - (let ((__tmp214256 - (let ((__tmp214259 + (_lp103860_ _L103922_ __tmp110626 __tmp110621)))) + (___kont109541109542_ + (lambda (_L103898_) + (let ((__tmp110627 + (let ((__tmp110628 + (let ((__tmp110631 (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L202958_))) - (__tmp214257 - (let ((__tmp214258 + _L103898_))) + (__tmp110629 + (let ((__tmp110630 (let () (declare (not safe)) (gxc#generate-runtime-values->list - _vals202917_ - _k202923_)))) + _vals103857_ + _k103863_)))) (declare (not safe)) - (cons __tmp214258 '())))) + (cons __tmp110630 '())))) (declare (not safe)) - (cons __tmp214259 __tmp214257)))) + (cons __tmp110631 __tmp110629)))) (declare (not safe)) - (cons __tmp214256 '())))) + (cons __tmp110628 '())))) (declare (not safe)) - (foldl1 cons __tmp214255 _r202924_)))) - (___kont213171213172_ (lambda () (reverse _r202924_)))) - (let ((_g202927202969_ + (foldl1 cons __tmp110627 _r103864_)))) + (___kont109543109544_ (lambda () (reverse _r103864_)))) + (let ((_g103867103909_ (lambda () - (let ((_L202958_ ___stx213163213164_)) + (let ((_L103898_ ___stx109535109536_)) (if (let () (declare (not safe)) - (gx#identifier? _L202958_)) - (___kont213169213170_ _L202958_) - (___kont213171213172_)))))) + (gx#identifier? _L103898_)) + (___kont109541109542_ _L103898_) + (___kont109543109544_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx213163213164_)) - (let ((_e202934202998_ + (gx#stx-pair? ___stx109535109536_)) + (let ((_e103874103938_ (let () (declare (not safe)) - (gx#stx-e ___stx213163213164_)))) - (let ((_tl202932203003_ + (gx#stx-e ___stx109535109536_)))) + (let ((_tl103872103943_ (let () (declare (not safe)) - (##cdr _e202934202998_))) - (_hd202933203001_ + (##cdr _e103874103938_))) + (_hd103873103941_ (let () (declare (not safe)) - (##car _e202934202998_)))) + (##car _e103874103938_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd202933203001_)) - (let ((_e202935203006_ + (gx#stx-datum? _hd103873103941_)) + (let ((_e103875103946_ (let () (declare (not safe)) - (gx#stx-e _hd202933203001_)))) + (gx#stx-e _hd103873103941_)))) (if (let () (declare (not safe)) - (equal? _e202935203006_ '#f)) - (___kont213165213166_ _tl202932203003_) - (___kont213167213168_ - _tl202932203003_ - _hd202933203001_))) - (___kont213167213168_ - _tl202932203003_ - _hd202933203001_)))) - (let () (declare (not safe)) (_g202927202969_))))))))) + (equal? _e103875103946_ '#f)) + (___kont109537109538_ _tl103872103943_) + (___kont109539109540_ + _tl103872103943_ + _hd103873103941_))) + (___kont109539109540_ + _tl103872103943_ + _hd103873103941_)))) + (let () (declare (not safe)) (_g103867103909_))))))))) (define gxc#generate-runtime-letrec-values%__% - (lambda (_stx202599_ _compiled-body?202600_) - (letrec ((_generate-simple202602_ - (lambda (_hd202904_ _body202905_) + (lambda (_stx103539_ _compiled-body?103540_) + (letrec ((_generate-simple103542_ + (lambda (_hd103844_ _body103845_) (let () (declare (not safe)) (gxc#generate-runtime-simple-let 'letrec - _hd202904_ - _body202905_ - _compiled-body?202600_)))) - (_generate-values202603_ - (lambda (_hd202683_ _body202684_) - (let _lp202686_ ((_rest202688_ _hd202683_) - (_bind202689_ '()) - (_check202690_ '()) - (_post202691_ '())) - (let* ((___stx213237213238_ _rest202688_) - (_g202694202705_ + _hd103844_ + _body103845_ + _compiled-body?103540_)))) + (_generate-values103543_ + (lambda (_hd103623_ _body103624_) + (let _lp103626_ ((_rest103628_ _hd103623_) + (_bind103629_ '()) + (_check103630_ '()) + (_post103631_ '())) + (let* ((___stx109609109610_ _rest103628_) + (_g103634103645_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx213237213238_))))) - (let ((___kont213239213240_ - (lambda (_L202732_ _L202733_) - (let* ((___stx213193213194_ _L202733_) - (_g202748202773_ + ___stx109609109610_))))) + (let ((___kont109611109612_ + (lambda (_L103672_ _L103673_) + (let* ((___stx109565109566_ _L103673_) + (_g103688103713_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx213193213194_))))) - (let ((___kont213195213196_ - (lambda (_L202880_ _L202881_) - (let ((_eid202895_ + ___stx109565109566_))))) + (let ((___kont109567109568_ + (lambda (_L103820_ _L103821_) + (let ((_eid103835_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _L202881_))) - (_expr202896_ + _L103821_))) + (_expr103836_ (let () (declare (not safe)) (gxc#compile-e__0 - _L202880_)))) - (let ((__tmp214260 - (let ((__tmp214261 - (let ((__tmp214262 + _L103820_)))) + (let ((__tmp110632 + (let ((__tmp110633 + (let ((__tmp110634 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr202896_ '())))) + (cons _expr103836_ '())))) (declare (not safe)) - (cons _eid202895_ __tmp214262)))) + (cons _eid103835_ __tmp110634)))) (declare (not safe)) - (cons __tmp214261 _bind202689_)))) + (cons __tmp110633 _bind103629_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp202686_ - _L202732_ - __tmp214260 - _check202690_ - _post202691_))))) - (___kont213197213198_ - (lambda (_L202794_ _L202795_) - (let* ((_vals202808_ + (_lp103626_ + _L103672_ + __tmp110632 + _check103630_ + _post103631_))))) + (___kont109569109570_ + (lambda (_L103734_ _L103735_) + (let* ((_vals103748_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_check-values202810_ + (_check-values103750_ (let () (declare (not safe)) (gxc#generate-runtime-check-values - _vals202808_ - _L202795_ - _L202794_))) - (_refs202812_ + _vals103748_ + _L103735_ + _L103734_))) + (_refs103752_ (let () (declare (not safe)) (gxc#generate-runtime-let-values-bind - _vals202808_ - _L202795_))) - (_expr202814_ + _vals103748_ + _L103735_))) + (_expr103754_ (let () (declare (not safe)) (gxc#compile-e__0 - _L202794_)))) - (let ((__tmp214265 - (let ((__tmp214268 - (let ((__tmp214269 + _L103734_)))) + (let ((__tmp110637 + (let ((__tmp110640 + (let ((__tmp110641 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp214270 + (let ((__tmp110642 (let () (declare (not safe)) - (cons _expr202814_ '())))) + (cons _expr103754_ '())))) (declare (not safe)) - (cons _vals202808_ __tmp214270)))) + (cons _vals103748_ __tmp110642)))) (declare (not safe)) - (cons __tmp214269 _bind202689_))) - (__tmp214266 - (map (lambda (_e202816202818_) - (let* ((_g202820202829_ _e202816202818_) - (_E202822202833_ + (cons __tmp110641 _bind103629_))) + (__tmp110638 + (map (lambda (_e103756103758_) + (let* ((_g103760103769_ _e103756103758_) + (_E103762103773_ (lambda () - (error '"No clause matching" - _g202820202829_))) - (_K202823202838_ - (lambda (_eid202836_) - (let ((__tmp214267 + (let () + (declare (not safe)) + (error '"No clause matching" + _g103760103769_)))) + (_K103763103778_ + (lambda (_eid103776_) + (let ((__tmp110639 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons _eid202836_ __tmp214267))))) + (cons _eid103776_ __tmp110639))))) (if (let () (declare (not safe)) - (##pair? _g202820202829_)) - (let ((_hd202824202841_ + (##pair? _g103760103769_)) + (let ((_hd103764103781_ (let () (declare (not safe)) - (##car _g202820202829_))) - (_tl202825202843_ + (##car _g103760103769_))) + (_tl103765103783_ (let () (declare (not safe)) - (##cdr _g202820202829_)))) - (let ((_eid202846_ _hd202824202841_)) + (##cdr _g103760103769_)))) + (let ((_eid103786_ _hd103764103781_)) (if (let () (declare (not safe)) - (##pair? _tl202825202843_)) - (let ((_tl202827202848_ + (##pair? _tl103765103783_)) + (let ((_tl103767103788_ (let () (declare (not safe)) - (##cdr _tl202825202843_)))) + (##cdr _tl103765103783_)))) (if (let () (declare (not safe)) - (##null? _tl202827202848_)) + (##null? _tl103767103788_)) (let () (declare (not safe)) - (_K202823202838_ - _eid202846_)) + (_K103763103778_ + _eid103786_)) (let () (declare (not safe)) - (_E202822202833_)))) + (_E103762103773_)))) (let () (declare (not safe)) - (_E202822202833_))))) + (_E103762103773_))))) (let () (declare (not safe)) - (_E202822202833_))))) - _refs202812_))) + (_E103762103773_))))) + _refs103752_))) (declare (not safe)) - (foldl1 cons __tmp214268 __tmp214266))) - (__tmp214264 + (foldl1 cons __tmp110640 __tmp110638))) + (__tmp110636 (let () (declare (not safe)) - (cons _check-values202810_ _check202690_))) - (__tmp214263 + (cons _check-values103750_ _check103630_))) + (__tmp110635 (let () (declare (not safe)) - (foldl1 cons _refs202812_ _post202691_)))) + (foldl1 cons _refs103752_ _post103631_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp202686_ - _L202732_ - __tmp214265 - __tmp214264 - __tmp214263)))))) + (_lp103626_ + _L103672_ + __tmp110637 + __tmp110636 + __tmp110635)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx213193213194_)) - (let ((_e202754202856_ + ___stx109565109566_)) + (let ((_e103694103796_ (let () (declare (not safe)) (gx#stx-e - ___stx213193213194_)))) - (let ((_tl202752202861_ + ___stx109565109566_)))) + (let ((_tl103692103801_ (let () (declare (not safe)) - (##cdr _e202754202856_))) - (_hd202753202859_ + (##cdr _e103694103796_))) + (_hd103693103799_ (let () (declare (not safe)) - (##car _e202754202856_)))) + (##car _e103694103796_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd202753202859_)) - (let ((_e202757202864_ + _hd103693103799_)) + (let ((_e103697103804_ (let () (declare (not safe)) (gx#stx-e - _hd202753202859_)))) - (let ((_tl202755202869_ + _hd103693103799_)))) + (let ((_tl103695103809_ (let () (declare (not safe)) - (##cdr _e202757202864_))) - (_hd202756202867_ + (##cdr _e103697103804_))) + (_hd103696103807_ (let () (declare (not safe)) - (##car _e202757202864_)))) + (##car _e103697103804_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl202755202869_)) + _tl103695103809_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl202752202861_)) - (let ((_e202760202872_ + (gx#stx-pair? _tl103692103801_)) + (let ((_e103700103812_ (let () (declare (not safe)) - (gx#stx-e _tl202752202861_)))) - (let ((_tl202758202877_ + (gx#stx-e _tl103692103801_)))) + (let ((_tl103698103817_ (let () (declare (not safe)) - (##cdr _e202760202872_))) - (_hd202759202875_ + (##cdr _e103700103812_))) + (_hd103699103815_ (let () (declare (not safe)) - (##car _e202760202872_)))) + (##car _e103700103812_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl202758202877_)) - (___kont213195213196_ - _hd202759202875_ - _hd202756202867_) + (gx#stx-null? _tl103698103817_)) + (___kont109567109568_ + _hd103699103815_ + _hd103696103807_) (let () (declare (not safe)) - (_g202748202773_))))) - (let () (declare (not safe)) (_g202748202773_))) + (_g103688103713_))))) + (let () (declare (not safe)) (_g103688103713_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202752202861_)) - (let ((_e202768202786_ + (gx#stx-pair? _tl103692103801_)) + (let ((_e103708103726_ (let () (declare (not safe)) - (gx#stx-e _tl202752202861_)))) - (let ((_tl202766202791_ + (gx#stx-e _tl103692103801_)))) + (let ((_tl103706103731_ (let () (declare (not safe)) - (##cdr _e202768202786_))) - (_hd202767202789_ + (##cdr _e103708103726_))) + (_hd103707103729_ (let () (declare (not safe)) - (##car _e202768202786_)))) + (##car _e103708103726_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl202766202791_)) - (___kont213197213198_ - _hd202767202789_ - _hd202753202859_) + (gx#stx-null? _tl103706103731_)) + (___kont109569109570_ + _hd103707103729_ + _hd103693103799_) (let () (declare (not safe)) - (_g202748202773_))))) - (let () (declare (not safe)) (_g202748202773_)))))) + (_g103688103713_))))) + (let () (declare (not safe)) (_g103688103713_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl202752202861_)) - (let ((_e202768202786_ + _tl103692103801_)) + (let ((_e103708103726_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl202752202861_)))) - (let ((_tl202766202791_ - (let () (declare (not safe)) (##cdr _e202768202786_))) - (_hd202767202789_ - (let () (declare (not safe)) (##car _e202768202786_)))) + (gx#stx-e _tl103692103801_)))) + (let ((_tl103706103731_ + (let () (declare (not safe)) (##cdr _e103708103726_))) + (_hd103707103729_ + (let () (declare (not safe)) (##car _e103708103726_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl202766202791_)) - (___kont213197213198_ _hd202767202789_ _hd202753202859_) - (let () (declare (not safe)) (_g202748202773_))))) - (let () (declare (not safe)) (_g202748202773_)))))) + (gx#stx-null? _tl103706103731_)) + (___kont109569109570_ _hd103707103729_ _hd103693103799_) + (let () (declare (not safe)) (_g103688103713_))))) + (let () (declare (not safe)) (_g103688103713_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g202748202773_))))))) - (___kont213241213242_ + (_g103688103713_))))))) + (___kont109613109614_ (lambda () - (let* ((_body202712_ - (if _compiled-body?202600_ - _body202684_ + (let* ((_body103652_ + (if _compiled-body?103540_ + _body103624_ (let () (declare (not safe)) (gxc#compile-e__0 - _body202684_)))) - (_body202714_ + _body103624_)))) + (_body103654_ (let () (declare (not safe)) - (_generate-values-post202605_ - _post202691_ - _body202712_))) - (_body202716_ + (_generate-values-post103545_ + _post103631_ + _body103652_))) + (_body103656_ (let () (declare (not safe)) - (_generate-values-check202604_ - _check202690_ - _body202714_)))) - (let ((__tmp214271 - (let ((__tmp214273 - (reverse _bind202689_)) - (__tmp214272 + (_generate-values-check103544_ + _check103630_ + _body103654_)))) + (let ((__tmp110643 + (let ((__tmp110645 + (reverse _bind103629_)) + (__tmp110644 (let () (declare (not safe)) - (cons _body202716_ '())))) + (cons _body103656_ '())))) (declare (not safe)) - (cons __tmp214273 __tmp214272)))) + (cons __tmp110645 __tmp110644)))) (declare (not safe)) - (cons 'letrec __tmp214271)))))) + (cons 'letrec __tmp110643)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx213237213238_)) - (let ((_e202700202724_ + (gx#stx-pair? ___stx109609109610_)) + (let ((_e103640103664_ (let () (declare (not safe)) - (gx#stx-e ___stx213237213238_)))) - (let ((_tl202698202729_ + (gx#stx-e ___stx109609109610_)))) + (let ((_tl103638103669_ (let () (declare (not safe)) - (##cdr _e202700202724_))) - (_hd202699202727_ + (##cdr _e103640103664_))) + (_hd103639103667_ (let () (declare (not safe)) - (##car _e202700202724_)))) - (___kont213239213240_ - _tl202698202729_ - _hd202699202727_))) - (___kont213241213242_))))))) - (_generate-values-check202604_ - (lambda (_check202680_ _body202681_) - (let ((__tmp214274 - (let ((__tmp214276 + (##car _e103640103664_)))) + (___kont109611109612_ + _tl103638103669_ + _hd103639103667_))) + (___kont109613109614_))))))) + (_generate-values-check103544_ + (lambda (_check103620_ _body103621_) + (let ((__tmp110646 + (let ((__tmp110648 (let () (declare (not safe)) - (cons _body202681_ '()))) - (__tmp214275 (reverse _check202680_))) + (cons _body103621_ '()))) + (__tmp110647 (reverse _check103620_))) (declare (not safe)) - (foldr1 cons __tmp214276 __tmp214275)))) + (foldr1 cons __tmp110648 __tmp110647)))) (declare (not safe)) - (cons 'begin __tmp214274)))) - (_generate-values-post202605_ - (lambda (_post202673_ _body202674_) - (let ((__tmp214277 - (let ((__tmp214279 + (cons 'begin __tmp110646)))) + (_generate-values-post103545_ + (lambda (_post103613_ _body103614_) + (let ((__tmp110649 + (let ((__tmp110651 (let () (declare (not safe)) - (cons _body202674_ '()))) - (__tmp214278 - (map (lambda (_g202675202677_) + (cons _body103614_ '()))) + (__tmp110650 + (map (lambda (_g103615103617_) (let () (declare (not safe)) - (cons 'set! _g202675202677_))) - (reverse _post202673_)))) + (cons 'set! _g103615103617_))) + (reverse _post103613_)))) (declare (not safe)) - (foldr1 cons __tmp214279 __tmp214278)))) + (foldr1 cons __tmp110651 __tmp110650)))) (declare (not safe)) - (cons 'begin __tmp214277))))) - (let* ((_g202607202624_ - (lambda (_g202608202621_) + (cons 'begin __tmp110649))))) + (let* ((_g103547103564_ + (lambda (_g103548103561_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g202608202621_)))) - (_g202606202670_ - (lambda (_g202608202627_) + _g103548103561_)))) + (_g103546103610_ + (lambda (_g103548103567_) (if (let () (declare (not safe)) - (gx#stx-pair? _g202608202627_)) - (let ((_e202613202629_ + (gx#stx-pair? _g103548103567_)) + (let ((_e103553103569_ (let () (declare (not safe)) - (gx#stx-e _g202608202627_)))) - (let ((_hd202612202632_ + (gx#stx-e _g103548103567_)))) + (let ((_hd103552103572_ (let () (declare (not safe)) - (##car _e202613202629_))) - (_tl202611202634_ + (##car _e103553103569_))) + (_tl103551103574_ (let () (declare (not safe)) - (##cdr _e202613202629_)))) + (##cdr _e103553103569_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202611202634_)) - (let ((_e202616202637_ + (gx#stx-pair? _tl103551103574_)) + (let ((_e103556103577_ (let () (declare (not safe)) - (gx#stx-e _tl202611202634_)))) - (let ((_hd202615202640_ + (gx#stx-e _tl103551103574_)))) + (let ((_hd103555103580_ (let () (declare (not safe)) - (##car _e202616202637_))) - (_tl202614202642_ + (##car _e103556103577_))) + (_tl103554103582_ (let () (declare (not safe)) - (##cdr _e202616202637_)))) + (##cdr _e103556103577_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202614202642_)) - (let ((_e202619202645_ + (gx#stx-pair? _tl103554103582_)) + (let ((_e103559103585_ (let () (declare (not safe)) (gx#stx-e - _tl202614202642_)))) - (let ((_hd202618202648_ + _tl103554103582_)))) + (let ((_hd103558103588_ (let () (declare (not safe)) - (##car _e202619202645_))) - (_tl202617202650_ + (##car _e103559103585_))) + (_tl103557103590_ (let () (declare (not safe)) - (##cdr _e202619202645_)))) + (##cdr _e103559103585_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl202617202650_)) - ((lambda (_L202653_ - _L202654_) + _tl103557103590_)) + ((lambda (_L103593_ + _L103594_) (if (let () (declare (not safe)) (gxc#generate-runtime-simple-let? - _L202654_)) + _L103594_)) (let () (declare (not safe)) - (_generate-simple202602_ - _L202654_ - _L202653_)) + (_generate-simple103542_ + _L103594_ + _L103593_)) (let () (declare (not safe)) - (_generate-values202603_ - _L202654_ - _L202653_)))) - _hd202618202648_ - _hd202615202640_) + (_generate-values103543_ + _L103594_ + _L103593_)))) + _hd103558103588_ + _hd103555103580_) (let () (declare (not safe)) - (_g202607202624_ - _g202608202627_))))) + (_g103547103564_ + _g103548103567_))))) (let () (declare (not safe)) - (_g202607202624_ - _g202608202627_))))) + (_g103547103564_ + _g103548103567_))))) (let () (declare (not safe)) - (_g202607202624_ _g202608202627_))))) + (_g103547103564_ _g103548103567_))))) (let () (declare (not safe)) - (_g202607202624_ _g202608202627_)))))) + (_g103547103564_ _g103548103567_)))))) (declare (not safe)) - (_g202606202670_ _stx202599_))))) + (_g103546103610_ _stx103539_))))) (define gxc#generate-runtime-letrec-values%__0 - (lambda (_stx202910_) - (let ((_compiled-body?202912_ '#f)) + (lambda (_stx103850_) + (let ((_compiled-body?103852_ '#f)) (declare (not safe)) (gxc#generate-runtime-letrec-values%__% - _stx202910_ - _compiled-body?202912_)))) + _stx103850_ + _compiled-body?103852_)))) (define gxc#generate-runtime-letrec-values% - (lambda _g214281_ - (let ((_g214280_ (let () (declare (not safe)) (##length _g214281_)))) - (cond ((let () (declare (not safe)) (##fx= _g214280_ 1)) - (apply (lambda (_stx202910_) + (lambda _g110653_ + (let ((_g110652_ (let () (declare (not safe)) (##length _g110653_)))) + (cond ((let () (declare (not safe)) (##fx= _g110652_ 1)) + (apply (lambda (_stx103850_) (let () (declare (not safe)) (gxc#generate-runtime-letrec-values%__0 - _stx202910_))) - _g214281_)) - ((let () (declare (not safe)) (##fx= _g214280_ 2)) - (apply (lambda (_stx202914_ _compiled-body?202915_) + _stx103850_))) + _g110653_)) + ((let () (declare (not safe)) (##fx= _g110652_ 2)) + (apply (lambda (_stx103854_ _compiled-body?103855_) (let () (declare (not safe)) (gxc#generate-runtime-letrec-values%__% - _stx202914_ - _compiled-body?202915_))) - _g214281_)) + _stx103854_ + _compiled-body?103855_))) + _g110653_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-letrec-values% - _g214281_)))))) + _g110653_)))))) (define gxc#generate-runtime-letrec*-values% - (lambda (_stx202181_) - (letrec ((_generate-values202183_ - (lambda (_hd202426_ _body202427_) - (let _lp202429_ ((_rest202431_ _hd202426_) - (_bind202432_ '())) - (let* ((_rest202433202441_ _rest202431_) - (_else202435202452_ + (lambda (_stx103121_) + (letrec ((_generate-values103123_ + (lambda (_hd103366_ _body103367_) + (let _lp103369_ ((_rest103371_ _hd103366_) + (_bind103372_ '())) + (let* ((_rest103373103381_ _rest103371_) + (_else103375103392_ (lambda () - (let ((_bind202449_ (reverse _bind202432_)) - (_body202450_ + (let ((_bind103389_ (reverse _bind103372_)) + (_body103390_ (let () (declare (not safe)) - (gxc#compile-e__0 _body202427_)))) - (let ((__tmp214282 - (let ((__tmp214283 + (gxc#compile-e__0 _body103367_)))) + (let ((__tmp110654 + (let ((__tmp110655 (let () (declare (not safe)) - (cons _body202450_ '())))) + (cons _body103390_ '())))) (declare (not safe)) - (cons _bind202449_ __tmp214283)))) + (cons _bind103389_ __tmp110655)))) (declare (not safe)) - (cons 'letrec* __tmp214282))))) - (_K202437202586_ - (lambda (_rest202455_ _hd-bind202456_) - (let* ((___stx213251213252_ _hd-bind202456_) - (_g202459202484_ + (cons 'letrec* __tmp110654))))) + (_K103377103526_ + (lambda (_rest103395_ _hd-bind103396_) + (let* ((___stx109623109624_ _hd-bind103396_) + (_g103399103424_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx213251213252_))))) - (let ((___kont213253213254_ - (lambda (_L202565_ _L202566_) - (let ((_eid202580_ + ___stx109623109624_))))) + (let ((___kont109625109626_ + (lambda (_L103505_ _L103506_) + (let ((_eid103520_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _L202566_))) - (_expr202581_ + _L103506_))) + (_expr103521_ (let () (declare (not safe)) (gxc#compile-e__0 - _L202565_)))) - (let ((__tmp214284 - (let ((__tmp214285 - (let ((__tmp214286 + _L103505_)))) + (let ((__tmp110656 + (let ((__tmp110657 + (let ((__tmp110658 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr202581_ '())))) + (cons _expr103521_ '())))) (declare (not safe)) - (cons _eid202580_ __tmp214286)))) + (cons _eid103520_ __tmp110658)))) (declare (not safe)) - (cons __tmp214285 _bind202432_)))) + (cons __tmp110657 _bind103372_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp202429_ - _rest202455_ - __tmp214284))))) - (___kont213255213256_ - (lambda (_L202505_ _L202506_) - (let* ((_vals202525_ + (_lp103369_ + _rest103395_ + __tmp110656))))) + (___kont109627109628_ + (lambda (_L103445_ _L103446_) + (let* ((_vals103465_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_tmp202527_ + (_tmp103467_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_check-values202529_ + (_check-values103469_ (let () (declare (not safe)) (gxc#generate-runtime-check-values - _tmp202527_ - _L202506_ - _L202505_))) - (_refs202531_ + _tmp103467_ + _L103446_ + _L103445_))) + (_refs103471_ (let () (declare (not safe)) (gxc#generate-runtime-let-values-bind - _vals202525_ - _L202506_))) - (_expr202533_ + _vals103465_ + _L103446_))) + (_expr103473_ (let () (declare (not safe)) (gxc#compile-e__0 - _L202505_)))) - (let ((__tmp214287 - (let ((__tmp214288 - (let ((__tmp214289 + _L103445_)))) + (let ((__tmp110659 + (let ((__tmp110660 + (let ((__tmp110661 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp214290 - (let ((__tmp214291 - (let ((__tmp214292 - (let ((__tmp214295 - (let ((__tmp214296 - (let ((__tmp214297 + (let ((__tmp110662 + (let ((__tmp110663 + (let ((__tmp110664 + (let ((__tmp110667 + (let ((__tmp110668 + (let ((__tmp110669 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr202533_ '())))) + (cons _expr103473_ '())))) (declare (not safe)) - (cons _tmp202527_ __tmp214297)))) + (cons _tmp103467_ __tmp110669)))) (declare (not safe)) - (cons __tmp214296 '()))) - (__tmp214293 - (let ((__tmp214294 - (let () (declare (not safe)) (cons _tmp202527_ '())))) + (cons __tmp110668 '()))) + (__tmp110665 + (let ((__tmp110666 + (let () (declare (not safe)) (cons _tmp103467_ '())))) (declare (not safe)) - (cons _check-values202529_ __tmp214294)))) + (cons _check-values103469_ __tmp110666)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214295 - __tmp214293)))) + (cons __tmp110667 + __tmp110665)))) (declare (not safe)) - (cons 'let __tmp214292)))) + (cons 'let __tmp110664)))) (declare (not safe)) - (cons __tmp214291 '())))) + (cons __tmp110663 '())))) (declare (not safe)) - (cons _vals202525_ __tmp214290)))) + (cons _vals103465_ __tmp110662)))) (declare (not safe)) - (cons __tmp214289 _bind202432_)))) + (cons __tmp110661 _bind103372_)))) (declare (not safe)) - (foldl1 cons __tmp214288 _refs202531_)))) + (foldl1 cons __tmp110660 _refs103471_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp202429_ - _rest202455_ - __tmp214287)))))) + (_lp103369_ + _rest103395_ + __tmp110659)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx213251213252_)) - (let ((_e202465202541_ + (gx#stx-pair? ___stx109623109624_)) + (let ((_e103405103481_ (let () (declare (not safe)) (gx#stx-e - ___stx213251213252_)))) - (let ((_tl202463202546_ + ___stx109623109624_)))) + (let ((_tl103403103486_ (let () (declare (not safe)) - (##cdr _e202465202541_))) - (_hd202464202544_ + (##cdr _e103405103481_))) + (_hd103404103484_ (let () (declare (not safe)) - (##car _e202465202541_)))) + (##car _e103405103481_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd202464202544_)) - (let ((_e202468202549_ + _hd103404103484_)) + (let ((_e103408103489_ (let () (declare (not safe)) (gx#stx-e - _hd202464202544_)))) - (let ((_tl202466202554_ + _hd103404103484_)))) + (let ((_tl103406103494_ (let () (declare (not safe)) - (##cdr _e202468202549_))) - (_hd202467202552_ + (##cdr _e103408103489_))) + (_hd103407103492_ (let () (declare (not safe)) - (##car _e202468202549_)))) + (##car _e103408103489_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl202466202554_)) + _tl103406103494_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl202463202546_)) - (let ((_e202471202557_ + (gx#stx-pair? _tl103403103486_)) + (let ((_e103411103497_ (let () (declare (not safe)) - (gx#stx-e _tl202463202546_)))) - (let ((_tl202469202562_ + (gx#stx-e _tl103403103486_)))) + (let ((_tl103409103502_ (let () (declare (not safe)) - (##cdr _e202471202557_))) - (_hd202470202560_ + (##cdr _e103411103497_))) + (_hd103410103500_ (let () (declare (not safe)) - (##car _e202471202557_)))) + (##car _e103411103497_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl202469202562_)) - (___kont213253213254_ - _hd202470202560_ - _hd202467202552_) + (gx#stx-null? _tl103409103502_)) + (___kont109625109626_ + _hd103410103500_ + _hd103407103492_) (let () (declare (not safe)) - (_g202459202484_))))) - (let () (declare (not safe)) (_g202459202484_))) + (_g103399103424_))))) + (let () (declare (not safe)) (_g103399103424_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202463202546_)) - (let ((_e202479202497_ + (gx#stx-pair? _tl103403103486_)) + (let ((_e103419103437_ (let () (declare (not safe)) - (gx#stx-e _tl202463202546_)))) - (let ((_tl202477202502_ + (gx#stx-e _tl103403103486_)))) + (let ((_tl103417103442_ (let () (declare (not safe)) - (##cdr _e202479202497_))) - (_hd202478202500_ + (##cdr _e103419103437_))) + (_hd103418103440_ (let () (declare (not safe)) - (##car _e202479202497_)))) + (##car _e103419103437_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl202477202502_)) - (___kont213255213256_ - _hd202478202500_ - _hd202464202544_) + (gx#stx-null? _tl103417103442_)) + (___kont109627109628_ + _hd103418103440_ + _hd103404103484_) (let () (declare (not safe)) - (_g202459202484_))))) - (let () (declare (not safe)) (_g202459202484_)))))) + (_g103399103424_))))) + (let () (declare (not safe)) (_g103399103424_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl202463202546_)) - (let ((_e202479202497_ + _tl103403103486_)) + (let ((_e103419103437_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl202463202546_)))) - (let ((_tl202477202502_ - (let () (declare (not safe)) (##cdr _e202479202497_))) - (_hd202478202500_ - (let () (declare (not safe)) (##car _e202479202497_)))) + (gx#stx-e _tl103403103486_)))) + (let ((_tl103417103442_ + (let () (declare (not safe)) (##cdr _e103419103437_))) + (_hd103418103440_ + (let () (declare (not safe)) (##car _e103419103437_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl202477202502_)) - (___kont213255213256_ _hd202478202500_ _hd202464202544_) - (let () (declare (not safe)) (_g202459202484_))))) - (let () (declare (not safe)) (_g202459202484_)))))) + (gx#stx-null? _tl103417103442_)) + (___kont109627109628_ _hd103418103440_ _hd103404103484_) + (let () (declare (not safe)) (_g103399103424_))))) + (let () (declare (not safe)) (_g103399103424_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g202459202484_)))))))) + (_g103399103424_)))))))) (if (let () (declare (not safe)) - (##pair? _rest202433202441_)) - (let ((_hd202438202589_ + (##pair? _rest103373103381_)) + (let ((_hd103378103529_ (let () (declare (not safe)) - (##car _rest202433202441_))) - (_tl202439202591_ + (##car _rest103373103381_))) + (_tl103379103531_ (let () (declare (not safe)) - (##cdr _rest202433202441_)))) - (let* ((_hd-bind202594_ _hd202438202589_) - (_rest202596_ _tl202439202591_)) + (##cdr _rest103373103381_)))) + (let* ((_hd-bind103534_ _hd103378103529_) + (_rest103536_ _tl103379103531_)) (declare (not safe)) - (_K202437202586_ - _rest202596_ - _hd-bind202594_))) + (_K103377103526_ + _rest103536_ + _hd-bind103534_))) (let () (declare (not safe)) - (_else202435202452_))))))) - (_generate-letrec?202184_ - (lambda (_hd202316_) - (let _lp202318_ ((_rest202320_ _hd202316_)) - (let* ((_rest202321202329_ _rest202320_) - (_else202323202337_ (lambda () '#t)) - (_K202325202414_ - (lambda (_rest202340_ _hd-bind202341_) - (let* ((_g202343202360_ - (lambda (_g202344202357_) + (_else103375103392_))))))) + (_generate-letrec?103124_ + (lambda (_hd103256_) + (let _lp103258_ ((_rest103260_ _hd103256_)) + (let* ((_rest103261103269_ _rest103260_) + (_else103263103277_ (lambda () '#t)) + (_K103265103354_ + (lambda (_rest103280_ _hd-bind103281_) + (let* ((_g103283103300_ + (lambda (_g103284103297_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g202344202357_)))) - (_g202342202411_ - (lambda (_g202344202363_) + _g103284103297_)))) + (_g103282103351_ + (lambda (_g103284103303_) (if (let () (declare (not safe)) (gx#stx-pair? - _g202344202363_)) - (let ((_e202349202365_ + _g103284103303_)) + (let ((_e103289103305_ (let () (declare (not safe)) (gx#stx-e - _g202344202363_)))) - (let ((_hd202348202368_ + _g103284103303_)))) + (let ((_hd103288103308_ (let () (declare (not safe)) - (##car _e202349202365_))) - (_tl202347202370_ + (##car _e103289103305_))) + (_tl103287103310_ (let () (declare (not safe)) - (##cdr _e202349202365_)))) + (##cdr _e103289103305_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd202348202368_)) - (let ((_e202352202373_ + _hd103288103308_)) + (let ((_e103292103313_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd202348202368_)))) - (let ((_hd202351202376_ - (let () (declare (not safe)) (##car _e202352202373_))) - (_tl202350202378_ + (gx#stx-e _hd103288103308_)))) + (let ((_hd103291103316_ + (let () (declare (not safe)) (##car _e103292103313_))) + (_tl103290103318_ (let () (declare (not safe)) - (##cdr _e202352202373_)))) + (##cdr _e103292103313_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl202350202378_)) + (gx#stx-null? _tl103290103318_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202347202370_)) - (let ((_e202355202381_ + (gx#stx-pair? _tl103287103310_)) + (let ((_e103295103321_ (let () (declare (not safe)) - (gx#stx-e _tl202347202370_)))) - (let ((_hd202354202384_ + (gx#stx-e _tl103287103310_)))) + (let ((_hd103294103324_ (let () (declare (not safe)) - (##car _e202355202381_))) - (_tl202353202386_ + (##car _e103295103321_))) + (_tl103293103326_ (let () (declare (not safe)) - (##cdr _e202355202381_)))) + (##cdr _e103295103321_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl202353202386_)) - ((lambda (_L202389_ _L202390_) + (gx#stx-null? _tl103293103326_)) + ((lambda (_L103329_ _L103330_) (if (let () (declare (not safe)) - (_is-lambda-expr?202185_ - _L202389_)) + (_is-lambda-expr?103125_ + _L103329_)) (let () (declare (not safe)) - (_lp202318_ _rest202340_)) + (_lp103258_ _rest103280_)) '#f)) - _hd202354202384_ - _hd202351202376_) + _hd103294103324_ + _hd103291103316_) (let () (declare (not safe)) - (_g202343202360_ _g202344202363_))))) + (_g103283103300_ _g103284103303_))))) (let () (declare (not safe)) - (_g202343202360_ _g202344202363_))) + (_g103283103300_ _g103284103303_))) (let () (declare (not safe)) - (_g202343202360_ _g202344202363_))))) + (_g103283103300_ _g103284103303_))))) (let () (declare (not safe)) - (_g202343202360_ _g202344202363_))))) + (_g103283103300_ _g103284103303_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g202343202360_ - _g202344202363_)))))) + (_g103283103300_ + _g103284103303_)))))) (declare (not safe)) - (_g202342202411_ _hd-bind202341_))))) + (_g103282103351_ _hd-bind103281_))))) (if (let () (declare (not safe)) - (##pair? _rest202321202329_)) - (let ((_hd202326202417_ + (##pair? _rest103261103269_)) + (let ((_hd103266103357_ (let () (declare (not safe)) - (##car _rest202321202329_))) - (_tl202327202419_ + (##car _rest103261103269_))) + (_tl103267103359_ (let () (declare (not safe)) - (##cdr _rest202321202329_)))) - (let* ((_hd-bind202422_ _hd202326202417_) - (_rest202424_ _tl202327202419_)) + (##cdr _rest103261103269_)))) + (let* ((_hd-bind103362_ _hd103266103357_) + (_rest103364_ _tl103267103359_)) (declare (not safe)) - (_K202325202414_ - _rest202424_ - _hd-bind202422_))) + (_K103265103354_ + _rest103364_ + _hd-bind103362_))) (let () (declare (not safe)) - (_else202323202337_))))))) - (_is-lambda-expr?202185_ - (lambda (_expr202253_) - (let* ((___stx213295213296_ _expr202253_) - (_g202256202270_ + (_else103263103277_))))))) + (_is-lambda-expr?103125_ + (lambda (_expr103193_) + (let* ((___stx109667109668_ _expr103193_) + (_g103196103210_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx213295213296_))))) - (let ((___kont213297213298_ - (lambda (_L202298_ _L202299_) '#t)) - (___kont213299213300_ (lambda () '#f))) + ___stx109667109668_))))) + (let ((___kont109669109670_ + (lambda (_L103238_ _L103239_) '#t)) + (___kont109671109672_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx213295213296_)) - (let ((_e202262202282_ + (gx#stx-pair? ___stx109667109668_)) + (let ((_e103202103222_ (let () (declare (not safe)) - (gx#stx-e ___stx213295213296_)))) - (let ((_tl202260202287_ + (gx#stx-e ___stx109667109668_)))) + (let ((_tl103200103227_ (let () (declare (not safe)) - (##cdr _e202262202282_))) - (_hd202261202285_ + (##cdr _e103202103222_))) + (_hd103201103225_ (let () (declare (not safe)) - (##car _e202262202282_)))) + (##car _e103202103222_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd202261202285_)) + (gx#identifier? _hd103201103225_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd202261202285_)) + _hd103201103225_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl202260202287_)) - (let ((_e202265202290_ + _tl103200103227_)) + (let ((_e103205103230_ (let () (declare (not safe)) (gx#stx-e - _tl202260202287_)))) - (let ((_tl202263202295_ + _tl103200103227_)))) + (let ((_tl103203103235_ (let () (declare (not safe)) - (##cdr _e202265202290_))) - (_hd202264202293_ + (##cdr _e103205103230_))) + (_hd103204103233_ (let () (declare (not safe)) - (##car _e202265202290_)))) - (___kont213297213298_ - _tl202263202295_ - _hd202264202293_))) - (___kont213299213300_)) - (___kont213299213300_)) - (___kont213299213300_)))) - (___kont213299213300_))))))) - (let* ((_g202187202204_ - (lambda (_g202188202201_) + (##car _e103205103230_)))) + (___kont109669109670_ + _tl103203103235_ + _hd103204103233_))) + (___kont109671109672_)) + (___kont109671109672_)) + (___kont109671109672_)))) + (___kont109671109672_))))))) + (let* ((_g103127103144_ + (lambda (_g103128103141_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g202188202201_)))) - (_g202186202250_ - (lambda (_g202188202207_) + _g103128103141_)))) + (_g103126103190_ + (lambda (_g103128103147_) (if (let () (declare (not safe)) - (gx#stx-pair? _g202188202207_)) - (let ((_e202193202209_ + (gx#stx-pair? _g103128103147_)) + (let ((_e103133103149_ (let () (declare (not safe)) - (gx#stx-e _g202188202207_)))) - (let ((_hd202192202212_ + (gx#stx-e _g103128103147_)))) + (let ((_hd103132103152_ (let () (declare (not safe)) - (##car _e202193202209_))) - (_tl202191202214_ + (##car _e103133103149_))) + (_tl103131103154_ (let () (declare (not safe)) - (##cdr _e202193202209_)))) + (##cdr _e103133103149_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202191202214_)) - (let ((_e202196202217_ + (gx#stx-pair? _tl103131103154_)) + (let ((_e103136103157_ (let () (declare (not safe)) - (gx#stx-e _tl202191202214_)))) - (let ((_hd202195202220_ + (gx#stx-e _tl103131103154_)))) + (let ((_hd103135103160_ (let () (declare (not safe)) - (##car _e202196202217_))) - (_tl202194202222_ + (##car _e103136103157_))) + (_tl103134103162_ (let () (declare (not safe)) - (##cdr _e202196202217_)))) + (##cdr _e103136103157_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202194202222_)) - (let ((_e202199202225_ + (gx#stx-pair? _tl103134103162_)) + (let ((_e103139103165_ (let () (declare (not safe)) (gx#stx-e - _tl202194202222_)))) - (let ((_hd202198202228_ + _tl103134103162_)))) + (let ((_hd103138103168_ (let () (declare (not safe)) - (##car _e202199202225_))) - (_tl202197202230_ + (##car _e103139103165_))) + (_tl103137103170_ (let () (declare (not safe)) - (##cdr _e202199202225_)))) + (##cdr _e103139103165_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl202197202230_)) - ((lambda (_L202233_ - _L202234_) + _tl103137103170_)) + ((lambda (_L103173_ + _L103174_) (if (let () (declare (not safe)) (gxc#generate-runtime-simple-let? - _L202234_)) + _L103174_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_generate-letrec?202184_ _L202234_)) + (_generate-letrec?103124_ _L103174_)) (let () (declare (not safe)) (gxc#generate-runtime-simple-let 'letrec - _L202234_ - _L202233_ + _L103174_ + _L103173_ '#f)) (let () (declare (not safe)) (gxc#generate-runtime-simple-let 'letrec* - _L202234_ - _L202233_ + _L103174_ + _L103173_ '#f))) (let () (declare (not safe)) - (_generate-values202183_ _L202234_ _L202233_)))) + (_generate-values103123_ _L103174_ _L103173_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd202198202228_ - _hd202195202220_) + _hd103138103168_ + _hd103135103160_) (let () (declare (not safe)) - (_g202187202204_ - _g202188202207_))))) + (_g103127103144_ + _g103128103147_))))) (let () (declare (not safe)) - (_g202187202204_ - _g202188202207_))))) + (_g103127103144_ + _g103128103147_))))) (let () (declare (not safe)) - (_g202187202204_ _g202188202207_))))) + (_g103127103144_ _g103128103147_))))) (let () (declare (not safe)) - (_g202187202204_ _g202188202207_)))))) + (_g103127103144_ _g103128103147_)))))) (declare (not safe)) - (_g202186202250_ _stx202181_))))) + (_g103126103190_ _stx103121_))))) (define gxc#generate-runtime-simple-let? - (lambda (_hd202118_) - (let _lp202120_ ((_rest202122_ _hd202118_)) - (let* ((_rest202123202139_ _rest202122_) - (_else202126202147_ (lambda () '#f))) - (let ((_K202129202160_ - (lambda (_rest202158_) + (lambda (_hd103058_) + (let _lp103060_ ((_rest103062_ _hd103058_)) + (let* ((_rest103063103079_ _rest103062_) + (_else103066103087_ (lambda () '#f))) + (let ((_K103069103100_ + (lambda (_rest103098_) (let () (declare (not safe)) - (_lp202120_ _rest202158_)))) - (_K202128202152_ (lambda () '#t))) - (let ((_try-match202125202155_ + (_lp103060_ _rest103098_)))) + (_K103068103092_ (lambda () '#t))) + (let ((_try-match103065103095_ (lambda () (if (let () (declare (not safe)) - (##null? _rest202123202139_)) - (let () (declare (not safe)) (_K202128202152_)) + (##null? _rest103063103079_)) + (let () (declare (not safe)) (_K103068103092_)) (let () (declare (not safe)) - (_else202126202147_)))))) + (_else103066103087_)))))) (if (let () (declare (not safe)) - (##pair? _rest202123202139_)) - (let ((_tl202131202165_ + (##pair? _rest103063103079_)) + (let ((_tl103071103105_ (let () (declare (not safe)) - (##cdr _rest202123202139_))) - (_hd202130202163_ + (##cdr _rest103063103079_))) + (_hd103070103103_ (let () (declare (not safe)) - (##car _rest202123202139_)))) + (##car _rest103063103079_)))) (if (let () (declare (not safe)) - (##pair? _hd202130202163_)) - (let ((_tl202133202170_ + (##pair? _hd103070103103_)) + (let ((_tl103073103110_ (let () (declare (not safe)) - (##cdr _hd202130202163_))) - (_hd202132202168_ + (##cdr _hd103070103103_))) + (_hd103072103108_ (let () (declare (not safe)) - (##car _hd202130202163_)))) + (##car _hd103070103103_)))) (if (let () (declare (not safe)) - (##pair? _hd202132202168_)) - (let ((_tl202137202173_ + (##pair? _hd103072103108_)) + (let ((_tl103077103113_ (let () (declare (not safe)) - (##cdr _hd202132202168_)))) + (##cdr _hd103072103108_)))) (if (let () (declare (not safe)) - (##null? _tl202137202173_)) + (##null? _tl103077103113_)) (if (let () (declare (not safe)) - (##pair? _tl202133202170_)) - (let ((_tl202135202176_ + (##pair? _tl103073103110_)) + (let ((_tl103075103116_ (let () (declare (not safe)) - (##cdr _tl202133202170_)))) + (##cdr _tl103073103110_)))) (if (let () (declare (not safe)) - (##null? _tl202135202176_)) - (let ((_rest202179_ - _tl202131202165_)) + (##null? _tl103075103116_)) + (let ((_rest103119_ + _tl103071103105_)) (declare (not safe)) - (_lp202120_ _rest202179_)) + (_lp103060_ _rest103119_)) (let () (declare (not safe)) - (_else202126202147_)))) + (_else103066103087_)))) (let () (declare (not safe)) - (_else202126202147_))) + (_else103066103087_))) (let () (declare (not safe)) - (_else202126202147_)))) + (_else103066103087_)))) (let () (declare (not safe)) - (_else202126202147_)))) + (_else103066103087_)))) (let () (declare (not safe)) - (_else202126202147_)))) + (_else103066103087_)))) (let () (declare (not safe)) - (_try-match202125202155_))))))))) + (_try-match103065103095_))))))))) (define gxc#generate-runtime-simple-let - (lambda (_form202030_ _hd202031_ _body202032_ _compiled-body?202033_) - (letrec ((_generate1202035_ - (lambda (_bind202074_) - (let* ((_bind202075202086_ _bind202074_) - (_E202077202090_ + (lambda (_form102970_ _hd102971_ _body102972_ _compiled-body?102973_) + (letrec ((_generate1102975_ + (lambda (_bind103014_) + (let* ((_bind103015103026_ _bind103014_) + (_E103017103030_ (lambda () - (error '"No clause matching" - _bind202075202086_))) - (_K202078202096_ - (lambda (_expr202093_ _id202094_) - (let ((__tmp214300 + (let () + (declare (not safe)) + (error '"No clause matching" + _bind103015103026_)))) + (_K103018103036_ + (lambda (_expr103033_ _id103034_) + (let ((__tmp110672 (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _id202094_))) - (__tmp214298 - (let ((__tmp214299 + _id103034_))) + (__tmp110670 + (let ((__tmp110671 (let () (declare (not safe)) (gxc#compile-e__0 - _expr202093_)))) + _expr103033_)))) (declare (not safe)) - (cons __tmp214299 '())))) + (cons __tmp110671 '())))) (declare (not safe)) - (cons __tmp214300 __tmp214298))))) + (cons __tmp110672 __tmp110670))))) (if (let () (declare (not safe)) - (##pair? _bind202075202086_)) - (let ((_hd202079202099_ + (##pair? _bind103015103026_)) + (let ((_hd103019103039_ (let () (declare (not safe)) - (##car _bind202075202086_))) - (_tl202080202101_ + (##car _bind103015103026_))) + (_tl103020103041_ (let () (declare (not safe)) - (##cdr _bind202075202086_)))) + (##cdr _bind103015103026_)))) (if (let () (declare (not safe)) - (##pair? _hd202079202099_)) - (let ((_hd202083202104_ + (##pair? _hd103019103039_)) + (let ((_hd103023103044_ (let () (declare (not safe)) - (##car _hd202079202099_))) - (_tl202084202106_ + (##car _hd103019103039_))) + (_tl103024103046_ (let () (declare (not safe)) - (##cdr _hd202079202099_)))) - (let ((_id202109_ _hd202083202104_)) + (##cdr _hd103019103039_)))) + (let ((_id103049_ _hd103023103044_)) (if (let () (declare (not safe)) - (##null? _tl202084202106_)) + (##null? _tl103024103046_)) (if (let () (declare (not safe)) - (##pair? _tl202080202101_)) - (let ((_hd202081202111_ + (##pair? _tl103020103041_)) + (let ((_hd103021103051_ (let () (declare (not safe)) - (##car _tl202080202101_))) - (_tl202082202113_ + (##car _tl103020103041_))) + (_tl103022103053_ (let () (declare (not safe)) - (##cdr _tl202080202101_)))) - (let ((_expr202116_ - _hd202081202111_)) + (##cdr _tl103020103041_)))) + (let ((_expr103056_ + _hd103021103051_)) (if (let () (declare (not safe)) - (##null? _tl202082202113_)) + (##null? _tl103022103053_)) (let () (declare (not safe)) - (_K202078202096_ - _expr202116_ - _id202109_)) + (_K103018103036_ + _expr103056_ + _id103049_)) (let () (declare (not safe)) - (_E202077202090_))))) + (_E103017103030_))))) (let () (declare (not safe)) - (_E202077202090_))) + (_E103017103030_))) (let () (declare (not safe)) - (_E202077202090_))))) + (_E103017103030_))))) (let () (declare (not safe)) - (_E202077202090_)))) + (_E103017103030_)))) (let () (declare (not safe)) - (_E202077202090_))))))) - (let* ((_bind202037_ (map _generate1202035_ _hd202031_)) - (_body202039_ - (if _compiled-body?202033_ - _body202032_ + (_E103017103030_))))))) + (let* ((_bind102977_ (map _generate1102975_ _hd102971_)) + (_body102979_ + (if _compiled-body?102973_ + _body102972_ (let () (declare (not safe)) - (gxc#compile-e__0 _body202032_)))) - (_body202071_ - (let* ((_body202040202048_ _body202039_) - (_else202042202056_ + (gxc#compile-e__0 _body102972_)))) + (_body103011_ + (let* ((_body102980102988_ _body102979_) + (_else102982102996_ (lambda () (let () (declare (not safe)) - (cons _body202039_ '())))) - (_K202044202061_ - (lambda (_exprs202059_) _exprs202059_))) + (cons _body102979_ '())))) + (_K102984103001_ + (lambda (_exprs102999_) _exprs102999_))) (if (let () (declare (not safe)) - (##pair? _body202040202048_)) - (let ((_hd202045202064_ + (##pair? _body102980102988_)) + (let ((_hd102985103004_ (let () (declare (not safe)) - (##car _body202040202048_))) - (_tl202046202066_ + (##car _body102980102988_))) + (_tl102986103006_ (let () (declare (not safe)) - (##cdr _body202040202048_)))) + (##cdr _body102980102988_)))) (if (let () (declare (not safe)) - (##eq? _hd202045202064_ 'begin)) - (let ((_exprs202069_ _tl202046202066_)) + (##eq? _hd102985103004_ 'begin)) + (let ((_exprs103009_ _tl102986103006_)) (declare (not safe)) - (_K202044202061_ _exprs202069_)) + (_K102984103001_ _exprs103009_)) (let () (declare (not safe)) - (_else202042202056_)))) + (_else102982102996_)))) (let () (declare (not safe)) - (_else202042202056_)))))) - (let ((__tmp214301 + (_else102982102996_)))))) + (let ((__tmp110673 (let () (declare (not safe)) - (cons _bind202037_ _body202071_)))) + (cons _bind102977_ _body103011_)))) (declare (not safe)) - (cons _form202030_ __tmp214301)))))) + (cons _form102970_ __tmp110673)))))) (define gxc#generate-runtime-quote% - (lambda (_stx201938_) - (letrec ((_generate1201940_ - (lambda (_datum201992_) + (lambda (_stx102878_) + (letrec ((_generate1102880_ + (lambda (_datum102932_) (if (or (let () (declare (not safe)) - (null? _datum201992_)) - (interned-symbol? _datum201992_) + (null? _datum102932_)) + (interned-symbol? _datum102932_) (let () (declare (not safe)) - (gx#self-quoting? _datum201992_)) + (gx#self-quoting? _datum102932_)) (let () (declare (not safe)) - (eof-object? _datum201992_))) - _datum201992_ - (if (uninterned-symbol? _datum201992_) + (eof-object? _datum102932_))) + _datum102932_ + (if (uninterned-symbol? _datum102932_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _datum201992_ + _datum102932_ '#t)) (if (let () (declare (not safe)) - (pair? _datum201992_)) - (let ((__tmp214306 - (let ((__tmp214307 - (car _datum201992_))) + (pair? _datum102932_)) + (let ((__tmp110678 + (let ((__tmp110679 + (car _datum102932_))) (declare (not safe)) - (_generate1201940_ __tmp214307))) - (__tmp214304 - (let ((__tmp214305 - (cdr _datum201992_))) + (_generate1102880_ __tmp110679))) + (__tmp110676 + (let ((__tmp110677 + (cdr _datum102932_))) (declare (not safe)) - (_generate1201940_ __tmp214305)))) + (_generate1102880_ __tmp110677)))) (declare (not safe)) - (cons __tmp214306 __tmp214304)) + (cons __tmp110678 __tmp110676)) (if (let () (declare (not safe)) - (box? _datum201992_)) - (let ((__tmp214302 - (let ((__tmp214303 - (unbox _datum201992_))) + (box? _datum102932_)) + (let ((__tmp110674 + (let ((__tmp110675 + (unbox _datum102932_))) (declare (not safe)) - (_generate1201940_ - __tmp214303)))) + (_generate1102880_ + __tmp110675)))) (declare (not safe)) - (box __tmp214302)) + (box __tmp110674)) (if (let () (declare (not safe)) - (vector? _datum201992_)) + (vector? _datum102932_)) (vector-map - _generate1201940_ - _datum201992_) - (if (or (s8vector? _datum201992_) + _generate1102880_ + _datum102932_) + (if (or (s8vector? _datum102932_) (let () (declare (not safe)) - (u8vector? _datum201992_)) - (s16vector? _datum201992_) - (u16vector? _datum201992_) - (s32vector? _datum201992_) - (u32vector? _datum201992_) - (s64vector? _datum201992_) - (u64vector? _datum201992_) - (f32vector? _datum201992_) - (f64vector? _datum201992_)) - _datum201992_ + (u8vector? _datum102932_)) + (s16vector? _datum102932_) + (u16vector? _datum102932_) + (s32vector? _datum102932_) + (u32vector? _datum102932_) + (s64vector? _datum102932_) + (u64vector? _datum102932_) + (f32vector? _datum102932_) + (f64vector? _datum102932_)) + _datum102932_ (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile non-primitive quote" - _stx201938_))))))))))) - (let* ((_g201942201955_ - (lambda (_g201943201952_) + _stx102878_))))))))))) + (let* ((_g102882102895_ + (lambda (_g102883102892_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g201943201952_)))) - (_g201941201989_ - (lambda (_g201943201958_) + _g102883102892_)))) + (_g102881102929_ + (lambda (_g102883102898_) (if (let () (declare (not safe)) - (gx#stx-pair? _g201943201958_)) - (let ((_e201947201960_ + (gx#stx-pair? _g102883102898_)) + (let ((_e102887102900_ (let () (declare (not safe)) - (gx#stx-e _g201943201958_)))) - (let ((_hd201946201963_ + (gx#stx-e _g102883102898_)))) + (let ((_hd102886102903_ (let () (declare (not safe)) - (##car _e201947201960_))) - (_tl201945201965_ + (##car _e102887102900_))) + (_tl102885102905_ (let () (declare (not safe)) - (##cdr _e201947201960_)))) + (##cdr _e102887102900_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl201945201965_)) - (let ((_e201950201968_ + (gx#stx-pair? _tl102885102905_)) + (let ((_e102890102908_ (let () (declare (not safe)) - (gx#stx-e _tl201945201965_)))) - (let ((_hd201949201971_ + (gx#stx-e _tl102885102905_)))) + (let ((_hd102889102911_ (let () (declare (not safe)) - (##car _e201950201968_))) - (_tl201948201973_ + (##car _e102890102908_))) + (_tl102888102913_ (let () (declare (not safe)) - (##cdr _e201950201968_)))) + (##cdr _e102890102908_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl201948201973_)) - ((lambda (_L201976_) - (let ((__tmp214308 - (let ((__tmp214309 - (let ((__tmp214310 + (gx#stx-null? _tl102888102913_)) + ((lambda (_L102916_) + (let ((__tmp110680 + (let ((__tmp110681 + (let ((__tmp110682 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (gx#stx-e _L201976_)))) + (let () (declare (not safe)) (gx#stx-e _L102916_)))) (declare (not safe)) - (_generate1201940_ __tmp214310)))) + (_generate1102880_ __tmp110682)))) (declare (not safe)) - (cons __tmp214309 '())))) + (cons __tmp110681 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'quote __tmp214308))) - _hd201949201971_) + (cons 'quote __tmp110680))) + _hd102889102911_) (let () (declare (not safe)) - (_g201942201955_ - _g201943201958_))))) + (_g102882102895_ + _g102883102898_))))) (let () (declare (not safe)) - (_g201942201955_ _g201943201958_))))) + (_g102882102895_ _g102883102898_))))) (let () (declare (not safe)) - (_g201942201955_ _g201943201958_)))))) + (_g102882102895_ _g102883102898_)))))) (declare (not safe)) - (_g201941201989_ _stx201938_))))) + (_g102881102929_ _stx102878_))))) (define gxc#generate-runtime-call% - (lambda (_stx201456_) - (letrec ((_compile-call201458_ - (lambda (_rator201682_ _rands201683_) - (let ((_rator201685_ + (lambda (_stx102396_) + (letrec ((_compile-call102398_ + (lambda (_rator102622_ _rands102623_) + (let ((_rator102625_ (let () (declare (not safe)) - (gxc#compile-e__0 _rator201682_))) - (_rands201686_ (map gxc#compile-e _rands201683_))) - (let* ((___stx213342213343_ _rator201685_) - (_g201689201741_ + (gxc#compile-e__0 _rator102622_))) + (_rands102626_ (map gxc#compile-e _rands102623_))) + (let* ((___stx109714109715_ _rator102625_) + (_g102629102681_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx213342213343_))))) - (let ((___kont213344213345_ - (lambda (_L201865_ - _L201866_ - _L201867_ - _L201868_) - (if (fx= (length _rands201686_) - (length (let ((__tmp214315 - (lambda (_g201904201907_ + ___stx109714109715_))))) + (let ((___kont109716109717_ + (lambda (_L102805_ + _L102806_ + _L102807_ + _L102808_) + (if (fx= (length _rands102626_) + (length (let ((__tmp110687 + (lambda (_g102844102847_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g201905201909_) + _g102845102849_) (let () (declare (not safe)) - (cons _g201904201907_ _g201905201909_))))) + (cons _g102844102847_ _g102845102849_))))) (declare (not safe)) - (foldr1 __tmp214315 '() _L201867_)))) + (foldr1 __tmp110687 '() _L102807_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_id201912_ _L201868_) - (_args201921_ - (let ((__tmp214311 - (lambda (_g201913201916_ - _g201914201918_) + (let* ((_id102852_ _L102808_) + (_args102861_ + (let ((__tmp110683 + (lambda (_g102853102856_ + _g102854102858_) (let () (declare (not safe)) - (cons _g201913201916_ - _g201914201918_))))) + (cons _g102853102856_ + _g102854102858_))))) (declare (not safe)) - (foldr1 __tmp214311 + (foldr1 __tmp110683 '() - _L201867_))) - (_body201930_ - (let ((__tmp214312 - (lambda (_g201922201925_ - _g201923201927_) + _L102807_))) + (_body102870_ + (let ((__tmp110684 + (lambda (_g102862102865_ + _g102863102867_) (let () (declare (not safe)) - (cons _g201922201925_ - _g201923201927_))))) + (cons _g102862102865_ + _g102863102867_))))) (declare (not safe)) - (foldr1 __tmp214312 + (foldr1 __tmp110684 '() - _L201866_))) - (_init201932_ + _L102806_))) + (_init102872_ (map list - _args201921_ - _rands201686_))) - (let ((__tmp214313 - (let ((__tmp214314 + _args102861_ + _rands102626_))) + (let ((__tmp110685 + (let ((__tmp110686 (let () (declare (not safe)) - (cons _init201932_ - _body201930_)))) + (cons _init102872_ + _body102870_)))) (declare (not safe)) - (cons _id201912_ - __tmp214314)))) + (cons _id102852_ + __tmp110686)))) (declare (not safe)) - (cons 'let __tmp214313))) + (cons 'let __tmp110685))) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal loop application; arity mismatch" - _stx201456_))))) - (___kont213350213351_ + _stx102396_))))) + (___kont109722109723_ (lambda () (let () (declare (not safe)) - (cons _rator201685_ _rands201686_))))) - (let ((___match213409213410_ - (lambda (_e201697201753_ - _hd201696201756_ - _tl201695201758_ - _e201700201761_ - _hd201699201764_ - _tl201698201766_ - _e201703201769_ - _hd201702201772_ - _tl201701201774_ - _e201706201777_ - _hd201705201780_ - _tl201704201782_ - _e201709201785_ - _hd201708201788_ - _tl201707201790_ - _e201712201793_ - _hd201711201796_ - _tl201710201798_ - _e201715201801_ - _hd201714201804_ - _tl201713201806_ - ___splice213346213347_ - _target201716201809_ - _tl201718201811_) - (letrec ((_loop201719201814_ - (lambda (_hd201717201817_ - _arg201723201819_) + (cons _rator102625_ _rands102626_))))) + (let ((___match109781109782_ + (lambda (_e102637102693_ + _hd102636102696_ + _tl102635102698_ + _e102640102701_ + _hd102639102704_ + _tl102638102706_ + _e102643102709_ + _hd102642102712_ + _tl102641102714_ + _e102646102717_ + _hd102645102720_ + _tl102644102722_ + _e102649102725_ + _hd102648102728_ + _tl102647102730_ + _e102652102733_ + _hd102651102736_ + _tl102650102738_ + _e102655102741_ + _hd102654102744_ + _tl102653102746_ + ___splice109718109719_ + _target102656102749_ + _tl102658102751_) + (letrec ((_loop102659102754_ + (lambda (_hd102657102757_ + _arg102663102759_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd201717201817_)) - (let ((_e201720201822_ + _hd102657102757_)) + (let ((_e102660102762_ (let () (declare (not safe)) (gx#stx-e - _hd201717201817_)))) - (let ((_lp-tl201722201827_ + _hd102657102757_)))) + (let ((_lp-tl102662102767_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e201720201822_))) - (_lp-hd201721201825_ - (let () (declare (not safe)) (##car _e201720201822_)))) - (let ((__tmp214317 + (##cdr _e102660102762_))) + (_lp-hd102661102765_ + (let () (declare (not safe)) (##car _e102660102762_)))) + (let ((__tmp110689 (let () (declare (not safe)) - (cons _lp-hd201721201825_ _arg201723201819_)))) + (cons _lp-hd102661102765_ _arg102663102759_)))) (declare (not safe)) - (_loop201719201814_ _lp-tl201722201827_ __tmp214317)))) + (_loop102659102754_ _lp-tl102662102767_ __tmp110689)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg201724201830_ - (reverse _arg201723201819_))) + (let ((_arg102664102770_ + (reverse _arg102663102759_))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl201713201806_)) - (let ((___splice213348213349_ + _tl102653102746_)) + (let ((___splice109720109721_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _tl201713201806_ '0)))) - (let ((_tl201727201835_ + (gx#syntax-split-splice _tl102653102746_ '0)))) + (let ((_tl102667102775_ (let () (declare (not safe)) - (##vector-ref ___splice213348213349_ '1))) - (_target201725201833_ + (##vector-ref ___splice109720109721_ '1))) + (_target102665102773_ (let () (declare (not safe)) - (##vector-ref ___splice213348213349_ '0)))) + (##vector-ref ___splice109720109721_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl201727201835_)) - (letrec ((_loop201728201838_ - (lambda (_hd201726201841_ - _body201732201843_) + (gx#stx-null? _tl102667102775_)) + (letrec ((_loop102668102778_ + (lambda (_hd102666102781_ + _body102672102783_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd201726201841_)) - (let ((_e201729201846_ + (gx#stx-pair? _hd102666102781_)) + (let ((_e102669102786_ (let () (declare (not safe)) (gx#stx-e - _hd201726201841_)))) - (let ((_lp-tl201731201851_ + _hd102666102781_)))) + (let ((_lp-tl102671102791_ (let () (declare (not safe)) - (##cdr _e201729201846_))) - (_lp-hd201730201849_ + (##cdr _e102669102786_))) + (_lp-hd102670102789_ (let () (declare (not safe)) - (##car _e201729201846_)))) - (let ((__tmp214316 + (##car _e102669102786_)))) + (let ((__tmp110688 (let () (declare (not safe)) - (cons _lp-hd201730201849_ - _body201732201843_)))) + (cons _lp-hd102670102789_ + _body102672102783_)))) (declare (not safe)) - (_loop201728201838_ - _lp-tl201731201851_ - __tmp214316)))) - (let ((_body201733201854_ - (reverse _body201732201843_))) + (_loop102668102778_ + _lp-tl102671102791_ + __tmp110688)))) + (let ((_body102673102794_ + (reverse _body102672102783_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl201707201790_)) + _tl102647102730_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl201701201774_)) + _tl102641102714_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl201698201766_)) - (let ((_e201736201857_ + _tl102638102706_)) + (let ((_e102676102797_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl201698201766_)))) - (let ((_tl201734201862_ + (gx#stx-e _tl102638102706_)))) + (let ((_tl102674102802_ (let () (declare (not safe)) - (##cdr _e201736201857_))) - (_hd201735201860_ + (##cdr _e102676102797_))) + (_hd102675102800_ (let () (declare (not safe)) - (##car _e201736201857_)))) + (##car _e102676102797_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl201734201862_)) - (let ((_L201865_ _hd201735201860_) - (_L201866_ _body201733201854_) - (_L201867_ _arg201724201830_) - (_L201868_ _hd201705201780_)) + (gx#stx-null? _tl102674102802_)) + (let ((_L102805_ _hd102675102800_) + (_L102806_ _body102673102794_) + (_L102807_ _arg102664102770_) + (_L102808_ _hd102645102720_)) (if (let () (declare (not safe)) - (eq? _L201868_ _L201865_)) - (___kont213344213345_ - _L201865_ - _L201866_ - _L201867_ - _L201868_) - (___kont213350213351_))) - (___kont213350213351_)))) - (___kont213350213351_)) + (eq? _L102808_ _L102805_)) + (___kont109716109717_ + _L102805_ + _L102806_ + _L102807_ + _L102808_) + (___kont109722109723_))) + (___kont109722109723_)))) + (___kont109722109723_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont213350213351_)) - (___kont213350213351_))))))) + (___kont109722109723_)) + (___kont109722109723_))))))) (let () (declare (not safe)) - (_loop201728201838_ _target201725201833_ '()))) - (___kont213350213351_)))) - (___kont213350213351_))))))) + (_loop102668102778_ _target102665102773_ '()))) + (___kont109722109723_)))) + (___kont109722109723_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop201719201814_ - _target201716201809_ + (_loop102659102754_ + _target102656102749_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx213342213343_)) - (let ((_e201697201753_ + (gx#stx-pair? ___stx109714109715_)) + (let ((_e102637102693_ (let () (declare (not safe)) - (gx#stx-e ___stx213342213343_)))) - (let ((_tl201695201758_ + (gx#stx-e ___stx109714109715_)))) + (let ((_tl102635102698_ (let () (declare (not safe)) - (##cdr _e201697201753_))) - (_hd201696201756_ + (##cdr _e102637102693_))) + (_hd102636102696_ (let () (declare (not safe)) - (##car _e201697201753_)))) + (##car _e102637102693_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd201696201756_)) + (gx#identifier? _hd102636102696_)) (if (let () (declare (not safe)) (gx#stx-eq? 'letrec - _hd201696201756_)) + _hd102636102696_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl201695201758_)) - (let ((_e201700201761_ + _tl102635102698_)) + (let ((_e102640102701_ (let () (declare (not safe)) (gx#stx-e - _tl201695201758_)))) - (let ((_tl201698201766_ + _tl102635102698_)))) + (let ((_tl102638102706_ (let () (declare (not safe)) - (##cdr _e201700201761_))) - (_hd201699201764_ + (##cdr _e102640102701_))) + (_hd102639102704_ (let () (declare (not safe)) - (##car _e201700201761_)))) + (##car _e102640102701_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd201699201764_)) - (let ((_e201703201769_ + _hd102639102704_)) + (let ((_e102643102709_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd201699201764_)))) - (let ((_tl201701201774_ + (gx#stx-e _hd102639102704_)))) + (let ((_tl102641102714_ (let () (declare (not safe)) - (##cdr _e201703201769_))) - (_hd201702201772_ + (##cdr _e102643102709_))) + (_hd102642102712_ (let () (declare (not safe)) - (##car _e201703201769_)))) + (##car _e102643102709_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd201702201772_)) - (let ((_e201706201777_ + (gx#stx-pair? _hd102642102712_)) + (let ((_e102646102717_ (let () (declare (not safe)) - (gx#stx-e _hd201702201772_)))) - (let ((_tl201704201782_ + (gx#stx-e _hd102642102712_)))) + (let ((_tl102644102722_ (let () (declare (not safe)) - (##cdr _e201706201777_))) - (_hd201705201780_ + (##cdr _e102646102717_))) + (_hd102645102720_ (let () (declare (not safe)) - (##car _e201706201777_)))) + (##car _e102646102717_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl201704201782_)) - (let ((_e201709201785_ + (gx#stx-pair? _tl102644102722_)) + (let ((_e102649102725_ (let () (declare (not safe)) - (gx#stx-e _tl201704201782_)))) - (let ((_tl201707201790_ + (gx#stx-e _tl102644102722_)))) + (let ((_tl102647102730_ (let () (declare (not safe)) - (##cdr _e201709201785_))) - (_hd201708201788_ + (##cdr _e102649102725_))) + (_hd102648102728_ (let () (declare (not safe)) - (##car _e201709201785_)))) + (##car _e102649102725_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd201708201788_)) - (let ((_e201712201793_ + (gx#stx-pair? _hd102648102728_)) + (let ((_e102652102733_ (let () (declare (not safe)) (gx#stx-e - _hd201708201788_)))) - (let ((_tl201710201798_ + _hd102648102728_)))) + (let ((_tl102650102738_ (let () (declare (not safe)) - (##cdr _e201712201793_))) - (_hd201711201796_ + (##cdr _e102652102733_))) + (_hd102651102736_ (let () (declare (not safe)) - (##car _e201712201793_)))) + (##car _e102652102733_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd201711201796_)) + _hd102651102736_)) (if (let () (declare (not safe)) (gx#stx-eq? 'lambda - _hd201711201796_)) + _hd102651102736_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl201710201798_)) - (let ((_e201715201801_ + _tl102650102738_)) + (let ((_e102655102741_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl201710201798_)))) - (let ((_tl201713201806_ + (gx#stx-e _tl102650102738_)))) + (let ((_tl102653102746_ (let () (declare (not safe)) - (##cdr _e201715201801_))) - (_hd201714201804_ + (##cdr _e102655102741_))) + (_hd102654102744_ (let () (declare (not safe)) - (##car _e201715201801_)))) + (##car _e102655102741_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd201714201804_)) - (let ((___splice213346213347_ + (gx#stx-pair/null? _hd102654102744_)) + (let ((___splice109718109719_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd201714201804_ + _hd102654102744_ '0)))) - (let ((_tl201718201811_ + (let ((_tl102658102751_ (let () (declare (not safe)) - (##vector-ref ___splice213346213347_ '1))) - (_target201716201809_ + (##vector-ref ___splice109718109719_ '1))) + (_target102656102749_ (let () (declare (not safe)) (##vector-ref - ___splice213346213347_ + ___splice109718109719_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl201718201811_)) - (___match213409213410_ - _e201697201753_ - _hd201696201756_ - _tl201695201758_ - _e201700201761_ - _hd201699201764_ - _tl201698201766_ - _e201703201769_ - _hd201702201772_ - _tl201701201774_ - _e201706201777_ - _hd201705201780_ - _tl201704201782_ - _e201709201785_ - _hd201708201788_ - _tl201707201790_ - _e201712201793_ - _hd201711201796_ - _tl201710201798_ - _e201715201801_ - _hd201714201804_ - _tl201713201806_ - ___splice213346213347_ - _target201716201809_ - _tl201718201811_) - (___kont213350213351_)))) - (___kont213350213351_)))) - (___kont213350213351_)) - (___kont213350213351_)) + (gx#stx-null? _tl102658102751_)) + (___match109781109782_ + _e102637102693_ + _hd102636102696_ + _tl102635102698_ + _e102640102701_ + _hd102639102704_ + _tl102638102706_ + _e102643102709_ + _hd102642102712_ + _tl102641102714_ + _e102646102717_ + _hd102645102720_ + _tl102644102722_ + _e102649102725_ + _hd102648102728_ + _tl102647102730_ + _e102652102733_ + _hd102651102736_ + _tl102650102738_ + _e102655102741_ + _hd102654102744_ + _tl102653102746_ + ___splice109718109719_ + _target102656102749_ + _tl102658102751_) + (___kont109722109723_)))) + (___kont109722109723_)))) + (___kont109722109723_)) + (___kont109722109723_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont213350213351_)))) - (___kont213350213351_)))) - (___kont213350213351_)))) - (___kont213350213351_)))) - (___kont213350213351_)))) + (___kont109722109723_)))) + (___kont109722109723_)))) + (___kont109722109723_)))) + (___kont109722109723_)))) + (___kont109722109723_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont213350213351_)) - (___kont213350213351_)) - (___kont213350213351_)))) - (___kont213350213351_))))))))) - (let* ((_g201460201474_ - (lambda (_g201461201471_) + (___kont109722109723_)) + (___kont109722109723_)) + (___kont109722109723_)))) + (___kont109722109723_))))))))) + (let* ((_g102400102414_ + (lambda (_g102401102411_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g201461201471_)))) - (_g201459201679_ - (lambda (_g201461201477_) + _g102401102411_)))) + (_g102399102619_ + (lambda (_g102401102417_) (if (let () (declare (not safe)) - (gx#stx-pair? _g201461201477_)) - (let ((_e201466201479_ + (gx#stx-pair? _g102401102417_)) + (let ((_e102406102419_ (let () (declare (not safe)) - (gx#stx-e _g201461201477_)))) - (let ((_hd201465201482_ + (gx#stx-e _g102401102417_)))) + (let ((_hd102405102422_ (let () (declare (not safe)) - (##car _e201466201479_))) - (_tl201464201484_ + (##car _e102406102419_))) + (_tl102404102424_ (let () (declare (not safe)) - (##cdr _e201466201479_)))) + (##cdr _e102406102419_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl201464201484_)) - (let ((_e201469201487_ + (gx#stx-pair? _tl102404102424_)) + (let ((_e102409102427_ (let () (declare (not safe)) - (gx#stx-e _tl201464201484_)))) - (let ((_hd201468201490_ + (gx#stx-e _tl102404102424_)))) + (let ((_hd102408102430_ (let () (declare (not safe)) - (##car _e201469201487_))) - (_tl201467201492_ + (##car _e102409102427_))) + (_tl102407102432_ (let () (declare (not safe)) - (##cdr _e201469201487_)))) - ((lambda (_L201495_ _L201496_) + (##cdr _e102409102427_)))) + ((lambda (_L102435_ _L102436_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) (let () (declare (not safe)) - (_compile-call201458_ - _L201496_ - _L201495_)) - (let* ((___stx213458213459_ - _L201496_) - (_g201511201523_ + (_compile-call102398_ + _L102436_ + _L102435_)) + (let* ((___stx109830109831_ + _L102436_) + (_g102451102463_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx213458213459_))))) - (let ((___kont213460213461_ + ___stx109830109831_))))) + (let ((___kont109832109833_ (lambda () - (let ((_f201553_ + (let ((_f102493_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _L201496_)))) - (if (let ((__tmp214332 (symbol->string _f201553_))) + (gxc#compile-e__0 _L102436_)))) + (if (let ((__tmp110704 (symbol->string _f102493_))) (declare (not safe)) - (string-prefix? '"##" __tmp214332)) - (let _lp201555_ ((_rest201558_ (reverse _L201495_)) - (_bind201560_ '()) - (_args201561_ '())) - (let* ((_rest201562201570_ _rest201558_) - (_else201564201578_ + (string-prefix? '"##" __tmp110704)) + (let _lp102495_ ((_rest102498_ (reverse _L102435_)) + (_bind102500_ '()) + (_args102501_ '())) + (let* ((_rest102502102510_ _rest102498_) + (_else102504102518_ (lambda () - (let ((__tmp214318 - (let ((__tmp214319 - (let ((__tmp214320 - (let ((__tmp214321 + (let ((__tmp110690 + (let ((__tmp110691 + (let ((__tmp110692 + (let ((__tmp110693 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _f201553_ _args201561_)))) + (cons _f102493_ _args102501_)))) (declare (not safe)) - (cons __tmp214321 '())))) + (cons __tmp110693 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp214320)))) + __tmp110692)))) (declare (not safe)) - (cons _bind201560_ __tmp214319)))) + (cons _bind102500_ __tmp110691)))) (declare (not safe)) - (cons 'let __tmp214318)))) - (_K201566201664_ - (lambda (_rest201581_ _e201582_) - (let* ((___stx213412213413_ _e201582_) - (_g201587201605_ + (cons 'let __tmp110690)))) + (_K102506102604_ + (lambda (_rest102521_ _e102522_) + (let* ((___stx109784109785_ _e102522_) + (_g102527102545_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx213412213413_))))) - (let ((___kont213414213415_ + ___stx109784109785_))))) + (let ((___kont109786109787_ (lambda () - (let ((__tmp214322 - (let ((__tmp214323 + (let ((__tmp110694 + (let ((__tmp110695 (let () (declare (not safe)) (gxc#compile-e__0 - _e201582_)))) + _e102522_)))) (declare (not safe)) - (cons __tmp214323 - _args201561_)))) + (cons __tmp110695 + _args102501_)))) (declare (not safe)) - (_lp201555_ - _rest201581_ - _bind201560_ - __tmp214322)))) - (___kont213416213417_ + (_lp102495_ + _rest102521_ + _bind102500_ + __tmp110694)))) + (___kont109788109789_ (lambda () - (let ((__tmp214324 - (let ((__tmp214325 + (let ((__tmp110696 + (let ((__tmp110697 (let () (declare (not safe)) (gxc#compile-e__0 - _e201582_)))) + _e102522_)))) (declare (not safe)) - (cons __tmp214325 - _args201561_)))) + (cons __tmp110697 + _args102501_)))) (declare (not safe)) - (_lp201555_ - _rest201581_ - _bind201560_ - __tmp214324)))) - (___kont213418213419_ + (_lp102495_ + _rest102521_ + _bind102500_ + __tmp110696)))) + (___kont109790109791_ (lambda () - (let ((_tmp201612_ - (let ((__tmp214326 + (let ((_tmp102552_ + (let ((__tmp110698 (gensym '__tmp))) (declare (not safe)) (make-symbol__0 - __tmp214326)))) - (let ((__tmp214328 - (let ((__tmp214329 - (let ((__tmp214330 + __tmp110698)))) + (let ((__tmp110700 + (let ((__tmp110701 + (let ((__tmp110702 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp214331 + (let ((__tmp110703 (let () (declare (not safe)) - (gxc#compile-e__0 _e201582_)))) + (gxc#compile-e__0 _e102522_)))) (declare (not safe)) - (cons __tmp214331 '())))) + (cons __tmp110703 '())))) (declare (not safe)) - (cons _tmp201612_ __tmp214330)))) + (cons _tmp102552_ __tmp110702)))) (declare (not safe)) - (cons __tmp214329 _bind201560_))) + (cons __tmp110701 _bind102500_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp214327 + (__tmp110699 (let () (declare (not safe)) - (cons _tmp201612_ - _args201561_)))) + (cons _tmp102552_ + _args102501_)))) (declare (not safe)) - (_lp201555_ - _rest201581_ - __tmp214328 - __tmp214327)))))) + (_lp102495_ + _rest102521_ + __tmp110700 + __tmp110699)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx213412213413_)) - (let ((_e201591201643_ + (gx#stx-pair? ___stx109784109785_)) + (let ((_e102531102583_ (let () (declare (not safe)) (gx#stx-e - ___stx213412213413_)))) - (let ((_tl201589201648_ + ___stx109784109785_)))) + (let ((_tl102529102588_ (let () (declare (not safe)) - (##cdr _e201591201643_))) - (_hd201590201646_ + (##cdr _e102531102583_))) + (_hd102530102586_ (let () (declare (not safe)) - (##car _e201591201643_)))) + (##car _e102531102583_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd201590201646_)) + _hd102530102586_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd201590201646_)) + _hd102530102586_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl201589201648_)) - (let ((_e201594201651_ + _tl102529102588_)) + (let ((_e102534102591_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl201589201648_)))) - (let ((_tl201592201656_ + (gx#stx-e _tl102529102588_)))) + (let ((_tl102532102596_ (let () (declare (not safe)) - (##cdr _e201594201651_))) - (_hd201593201654_ + (##cdr _e102534102591_))) + (_hd102533102594_ (let () (declare (not safe)) - (##car _e201594201651_)))) + (##car _e102534102591_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl201592201656_)) - (___kont213414213415_) - (___kont213418213419_)))) - (___kont213418213419_)) + (gx#stx-null? _tl102532102596_)) + (___kont109786109787_) + (___kont109790109791_)))) + (___kont109790109791_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd201590201646_)) + (gx#stx-eq? '%#quote _hd102530102586_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl201589201648_)) - (let ((_e201600201628_ + (gx#stx-pair? _tl102529102588_)) + (let ((_e102540102568_ (let () (declare (not safe)) - (gx#stx-e _tl201589201648_)))) - (let ((_tl201598201633_ + (gx#stx-e _tl102529102588_)))) + (let ((_tl102538102573_ (let () (declare (not safe)) - (##cdr _e201600201628_))) - (_hd201599201631_ + (##cdr _e102540102568_))) + (_hd102539102571_ (let () (declare (not safe)) - (##car _e201600201628_)))) + (##car _e102540102568_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl201598201633_)) - (___kont213416213417_) - (___kont213418213419_)))) - (___kont213418213419_)) - (___kont213418213419_))) + (gx#stx-null? _tl102538102573_)) + (___kont109788109789_) + (___kont109790109791_)))) + (___kont109790109791_)) + (___kont109790109791_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont213418213419_)))) - (___kont213418213419_))))))) + (___kont109790109791_)))) + (___kont109790109791_))))))) (if (let () (declare (not safe)) - (##pair? _rest201562201570_)) - (let ((_hd201567201667_ + (##pair? _rest102502102510_)) + (let ((_hd102507102607_ (let () (declare (not safe)) - (##car _rest201562201570_))) - (_tl201568201669_ + (##car _rest102502102510_))) + (_tl102508102609_ (let () (declare (not safe)) - (##cdr _rest201562201570_)))) - (let* ((_e201672_ _hd201567201667_) - (_rest201674_ _tl201568201669_)) + (##cdr _rest102502102510_)))) + (let* ((_e102612_ _hd102507102607_) + (_rest102614_ _tl102508102609_)) (declare (not safe)) - (_K201566201664_ _rest201674_ _e201672_))) + (_K102506102604_ _rest102614_ _e102612_))) (let () (declare (not safe)) - (_else201564201578_))))) + (_else102504102518_))))) (let () (declare (not safe)) - (_compile-call201458_ _L201496_ _L201495_)))))) + (_compile-call102398_ _L102436_ _L102435_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont213462213463_ + (___kont109834109835_ (lambda () (let () (declare (not safe)) - (_compile-call201458_ - _L201496_ - _L201495_))))) + (_compile-call102398_ + _L102436_ + _L102435_))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx213458213459_)) - (let ((_e201515201535_ + ___stx109830109831_)) + (let ((_e102455102475_ (let () (declare (not safe)) (gx#stx-e - ___stx213458213459_)))) - (let ((_tl201513201540_ + ___stx109830109831_)))) + (let ((_tl102453102480_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e201515201535_))) - (_hd201514201538_ - (let () (declare (not safe)) (##car _e201515201535_)))) + (##cdr _e102455102475_))) + (_hd102454102478_ + (let () (declare (not safe)) (##car _e102455102475_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd201514201538_)) + (gx#identifier? _hd102454102478_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd201514201538_)) + (gx#stx-eq? '%#ref _hd102454102478_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl201513201540_)) - (let ((_e201518201543_ + (gx#stx-pair? _tl102453102480_)) + (let ((_e102458102483_ (let () (declare (not safe)) - (gx#stx-e _tl201513201540_)))) - (let ((_tl201516201548_ + (gx#stx-e _tl102453102480_)))) + (let ((_tl102456102488_ (let () (declare (not safe)) - (##cdr _e201518201543_))) - (_hd201517201546_ + (##cdr _e102458102483_))) + (_hd102457102486_ (let () (declare (not safe)) - (##car _e201518201543_)))) + (##car _e102458102483_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl201516201548_)) - (___kont213460213461_) - (___kont213462213463_)))) - (___kont213462213463_)) - (___kont213462213463_)) - (___kont213462213463_)))) + (gx#stx-null? _tl102456102488_)) + (___kont109832109833_) + (___kont109834109835_)))) + (___kont109834109835_)) + (___kont109834109835_)) + (___kont109834109835_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont213462213463_)))))) - _tl201467201492_ - _hd201468201490_))) + (___kont109834109835_)))))) + _tl102407102432_ + _hd102408102430_))) (let () (declare (not safe)) - (_g201460201474_ _g201461201477_))))) + (_g102400102414_ _g102401102417_))))) (let () (declare (not safe)) - (_g201460201474_ _g201461201477_)))))) + (_g102400102414_ _g102401102417_)))))) (declare (not safe)) - (_g201459201679_ _stx201456_))))) + (_g102399102619_ _stx102396_))))) (define gxc#generate-runtime-call-unchecked% - (lambda (_stx201244_) - (let* ((___stx213530213531_ _stx201244_) - (_g201247201267_ + (lambda (_stx102184_) + (let* ((___stx109902109903_ _stx102184_) + (_g102187102207_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx213530213531_))))) - (let ((___kont213532213533_ - (lambda (_L201311_ _L201312_) + ___stx109902109903_))))) + (let ((___kont109904109905_ + (lambda (_L102251_ _L102252_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) (let () (declare (not safe)) - (gxc#generate-runtime-call% _stx201244_)) - (let ((_f201330_ - (let ((__tmp214333 - (let ((__tmp214335 + (gxc#generate-runtime-call% _stx102184_)) + (let ((_f102270_ + (let ((__tmp110705 + (let ((__tmp110707 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp214334 + (__tmp110706 (let () (declare (not safe)) - (cons _L201312_ '())))) + (cons _L102252_ '())))) (declare (not safe)) - (cons __tmp214335 __tmp214334)))) + (cons __tmp110707 __tmp110706)))) (declare (not safe)) - (gxc#compile-e__0 __tmp214333)))) - (let _lp201332_ ((_rest201335_ (reverse _L201311_)) - (_bind201337_ '()) - (_args201338_ '())) - (let* ((_rest201339201347_ _rest201335_) - (_else201341201355_ + (gxc#compile-e__0 __tmp110705)))) + (let _lp102272_ ((_rest102275_ (reverse _L102251_)) + (_bind102277_ '()) + (_args102278_ '())) + (let* ((_rest102279102287_ _rest102275_) + (_else102281102295_ (lambda () - (let ((__tmp214336 - (let ((__tmp214337 - (let ((__tmp214338 - (let ((__tmp214339 + (let ((__tmp110708 + (let ((__tmp110709 + (let ((__tmp110710 + (let ((__tmp110711 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _f201330_ _args201338_)))) + (cons _f102270_ _args102278_)))) (declare (not safe)) - (cons __tmp214339 '())))) + (cons __tmp110711 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp214338)))) + (cons '(declare (not safe)) __tmp110710)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _bind201337_ - __tmp214337)))) + (cons _bind102277_ + __tmp110709)))) (declare (not safe)) - (cons 'let __tmp214336)))) - (_K201343201441_ - (lambda (_rest201358_ _e201359_) - (let* ((___stx213484213485_ _e201359_) - (_g201364201382_ + (cons 'let __tmp110708)))) + (_K102283102381_ + (lambda (_rest102298_ _e102299_) + (let* ((___stx109856109857_ _e102299_) + (_g102304102322_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx213484213485_))))) - (let ((___kont213486213487_ + ___stx109856109857_))))) + (let ((___kont109858109859_ (lambda () - (let ((__tmp214340 - (let ((__tmp214341 + (let ((__tmp110712 + (let ((__tmp110713 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _e201359_)))) + (gxc#compile-e__0 _e102299_)))) (declare (not safe)) - (cons __tmp214341 _args201338_)))) + (cons __tmp110713 _args102278_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp201332_ - _rest201358_ - _bind201337_ - __tmp214340)))) - (___kont213488213489_ + (_lp102272_ + _rest102298_ + _bind102277_ + __tmp110712)))) + (___kont109860109861_ (lambda () - (let ((__tmp214342 - (let ((__tmp214343 + (let ((__tmp110714 + (let ((__tmp110715 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _e201359_)))) + (gxc#compile-e__0 _e102299_)))) (declare (not safe)) - (cons __tmp214343 _args201338_)))) + (cons __tmp110715 _args102278_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp201332_ - _rest201358_ - _bind201337_ - __tmp214342)))) - (___kont213490213491_ + (_lp102272_ + _rest102298_ + _bind102277_ + __tmp110714)))) + (___kont109862109863_ (lambda () - (let ((_tmp201389_ - (let ((__tmp214344 + (let ((_tmp102329_ + (let ((__tmp110716 (gensym '__tmp))) (declare (not safe)) (make-symbol__0 - __tmp214344)))) - (let ((__tmp214346 - (let ((__tmp214347 + __tmp110716)))) + (let ((__tmp110718 + (let ((__tmp110719 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp214348 - (let ((__tmp214349 + (let ((__tmp110720 + (let ((__tmp110721 (let () (declare (not safe)) - (gxc#compile-e__0 _e201359_)))) + (gxc#compile-e__0 _e102299_)))) (declare (not safe)) - (cons __tmp214349 '())))) + (cons __tmp110721 '())))) (declare (not safe)) - (cons _tmp201389_ __tmp214348)))) + (cons _tmp102329_ __tmp110720)))) (declare (not safe)) - (cons __tmp214347 _bind201337_))) - (__tmp214345 + (cons __tmp110719 _bind102277_))) + (__tmp110717 (let () (declare (not safe)) - (cons _tmp201389_ _args201338_)))) + (cons _tmp102329_ _args102278_)))) (declare (not safe)) - (_lp201332_ _rest201358_ __tmp214346 __tmp214345)))))) + (_lp102272_ _rest102298_ __tmp110718 __tmp110717)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx213484213485_)) - (let ((_e201368201420_ + ___stx109856109857_)) + (let ((_e102308102360_ (let () (declare (not safe)) (gx#stx-e - ___stx213484213485_)))) - (let ((_tl201366201425_ + ___stx109856109857_)))) + (let ((_tl102306102365_ (let () (declare (not safe)) - (##cdr _e201368201420_))) - (_hd201367201423_ + (##cdr _e102308102360_))) + (_hd102307102363_ (let () (declare (not safe)) - (##car _e201368201420_)))) + (##car _e102308102360_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd201367201423_)) + _hd102307102363_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd201367201423_)) + _hd102307102363_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl201366201425_)) - (let ((_e201371201428_ + (gx#stx-pair? _tl102306102365_)) + (let ((_e102311102368_ (let () (declare (not safe)) - (gx#stx-e _tl201366201425_)))) - (let ((_tl201369201433_ + (gx#stx-e _tl102306102365_)))) + (let ((_tl102309102373_ (let () (declare (not safe)) - (##cdr _e201371201428_))) - (_hd201370201431_ + (##cdr _e102311102368_))) + (_hd102310102371_ (let () (declare (not safe)) - (##car _e201371201428_)))) + (##car _e102311102368_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl201369201433_)) - (___kont213486213487_) - (___kont213490213491_)))) - (___kont213490213491_)) + (gx#stx-null? _tl102309102373_)) + (___kont109858109859_) + (___kont109862109863_)))) + (___kont109862109863_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd201367201423_)) + (gx#stx-eq? '%#quote _hd102307102363_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl201366201425_)) - (let ((_e201377201405_ + (gx#stx-pair? _tl102306102365_)) + (let ((_e102317102345_ (let () (declare (not safe)) - (gx#stx-e _tl201366201425_)))) - (let ((_tl201375201410_ + (gx#stx-e _tl102306102365_)))) + (let ((_tl102315102350_ (let () (declare (not safe)) - (##cdr _e201377201405_))) - (_hd201376201408_ + (##cdr _e102317102345_))) + (_hd102316102348_ (let () (declare (not safe)) - (##car _e201377201405_)))) + (##car _e102317102345_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl201375201410_)) - (___kont213488213489_) - (___kont213490213491_)))) - (___kont213490213491_)) - (___kont213490213491_))) - (___kont213490213491_)))) + (gx#stx-null? _tl102315102350_)) + (___kont109860109861_) + (___kont109862109863_)))) + (___kont109862109863_)) + (___kont109862109863_))) + (___kont109862109863_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont213490213491_))))))) + (___kont109862109863_))))))) (if (let () (declare (not safe)) - (##pair? _rest201339201347_)) - (let ((_hd201344201444_ + (##pair? _rest102279102287_)) + (let ((_hd102284102384_ (let () (declare (not safe)) - (##car _rest201339201347_))) - (_tl201345201446_ + (##car _rest102279102287_))) + (_tl102285102386_ (let () (declare (not safe)) - (##cdr _rest201339201347_)))) - (let* ((_e201449_ _hd201344201444_) - (_rest201451_ _tl201345201446_)) + (##cdr _rest102279102287_)))) + (let* ((_e102389_ _hd102284102384_) + (_rest102391_ _tl102285102386_)) (declare (not safe)) - (_K201343201441_ - _rest201451_ - _e201449_))) + (_K102283102381_ + _rest102391_ + _e102389_))) (let () (declare (not safe)) - (_else201341201355_))))))))) - (___kont213534213535_ + (_else102281102295_))))))))) + (___kont109906109907_ (lambda () (let () (declare (not safe)) - (gxc#generate-runtime-call% _stx201244_))))) + (gxc#generate-runtime-call% _stx102184_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx213530213531_)) - (let ((_e201253201279_ + (gx#stx-pair? ___stx109902109903_)) + (let ((_e102193102219_ (let () (declare (not safe)) - (gx#stx-e ___stx213530213531_)))) - (let ((_tl201251201284_ + (gx#stx-e ___stx109902109903_)))) + (let ((_tl102191102224_ (let () (declare (not safe)) - (##cdr _e201253201279_))) - (_hd201252201282_ + (##cdr _e102193102219_))) + (_hd102192102222_ (let () (declare (not safe)) - (##car _e201253201279_)))) + (##car _e102193102219_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl201251201284_)) - (let ((_e201256201287_ + (gx#stx-pair? _tl102191102224_)) + (let ((_e102196102227_ (let () (declare (not safe)) - (gx#stx-e _tl201251201284_)))) - (let ((_tl201254201292_ + (gx#stx-e _tl102191102224_)))) + (let ((_tl102194102232_ (let () (declare (not safe)) - (##cdr _e201256201287_))) - (_hd201255201290_ + (##cdr _e102196102227_))) + (_hd102195102230_ (let () (declare (not safe)) - (##car _e201256201287_)))) + (##car _e102196102227_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd201255201290_)) - (let ((_e201259201295_ + (gx#stx-pair? _hd102195102230_)) + (let ((_e102199102235_ (let () (declare (not safe)) - (gx#stx-e _hd201255201290_)))) - (let ((_tl201257201300_ + (gx#stx-e _hd102195102230_)))) + (let ((_tl102197102240_ (let () (declare (not safe)) - (##cdr _e201259201295_))) - (_hd201258201298_ + (##cdr _e102199102235_))) + (_hd102198102238_ (let () (declare (not safe)) - (##car _e201259201295_)))) + (##car _e102199102235_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd201258201298_)) + (gx#identifier? _hd102198102238_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd201258201298_)) + _hd102198102238_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl201257201300_)) - (let ((_e201262201303_ + _tl102197102240_)) + (let ((_e102202102243_ (let () (declare (not safe)) (gx#stx-e - _tl201257201300_)))) - (let ((_tl201260201308_ + _tl102197102240_)))) + (let ((_tl102200102248_ (let () (declare (not safe)) - (##cdr _e201262201303_))) - (_hd201261201306_ + (##cdr _e102202102243_))) + (_hd102201102246_ (let () (declare (not safe)) - (##car _e201262201303_)))) + (##car _e102202102243_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl201260201308_)) - (___kont213532213533_ - _tl201254201292_ - _hd201261201306_) - (___kont213534213535_)))) - (___kont213534213535_)) - (___kont213534213535_)) - (___kont213534213535_)))) - (___kont213534213535_)))) - (___kont213534213535_)))) - (___kont213534213535_)))))) + _tl102200102248_)) + (___kont109904109905_ + _tl102194102232_ + _hd102201102246_) + (___kont109906109907_)))) + (___kont109906109907_)) + (___kont109906109907_)) + (___kont109906109907_)))) + (___kont109906109907_)))) + (___kont109906109907_)))) + (___kont109906109907_)))))) (define gxc#generate-runtime-if% - (lambda (_stx201057_) - (letrec ((_simplify201059_ - (lambda (_code201144_) - (let* ((_code201145201163_ _code201144_) - (_else201147201171_ (lambda () _code201144_)) - (_K201149201207_ - (lambda (_expr201174_ _test201175_) - (let* ((_expr201176201184_ _expr201174_) - (_else201178201192_ + (lambda (_stx101997_) + (letrec ((_simplify101999_ + (lambda (_code102084_) + (let* ((_code102085102103_ _code102084_) + (_else102087102111_ (lambda () _code102084_)) + (_K102089102147_ + (lambda (_expr102114_ _test102115_) + (let* ((_expr102116102124_ _expr102114_) + (_else102118102132_ (lambda () - (let ((__tmp214350 - (let ((__tmp214351 + (let ((__tmp110722 + (let ((__tmp110723 (let () (declare (not safe)) - (cons _expr201174_ + (cons _expr102114_ '())))) (declare (not safe)) - (cons _test201175_ - __tmp214351)))) + (cons _test102115_ + __tmp110723)))) (declare (not safe)) - (cons 'and __tmp214350)))) - (_K201180201197_ - (lambda (_exprs201195_) - (let ((__tmp214352 + (cons 'and __tmp110722)))) + (_K102120102137_ + (lambda (_exprs102135_) + (let ((__tmp110724 (let () (declare (not safe)) - (cons _test201175_ - _exprs201195_)))) + (cons _test102115_ + _exprs102135_)))) (declare (not safe)) - (cons 'and __tmp214352))))) + (cons 'and __tmp110724))))) (if (let () (declare (not safe)) - (##pair? _expr201176201184_)) - (let ((_hd201181201200_ + (##pair? _expr102116102124_)) + (let ((_hd102121102140_ (let () (declare (not safe)) - (##car _expr201176201184_))) - (_tl201182201202_ + (##car _expr102116102124_))) + (_tl102122102142_ (let () (declare (not safe)) - (##cdr _expr201176201184_)))) + (##cdr _expr102116102124_)))) (if (let () (declare (not safe)) - (##eq? _hd201181201200_ 'and)) - (let ((_exprs201205_ - _tl201182201202_)) + (##eq? _hd102121102140_ 'and)) + (let ((_exprs102145_ + _tl102122102142_)) (declare (not safe)) - (_K201180201197_ _exprs201205_)) + (_K102120102137_ _exprs102145_)) (let () (declare (not safe)) - (_else201178201192_)))) + (_else102118102132_)))) (let () (declare (not safe)) - (_else201178201192_))))))) + (_else102118102132_))))))) (if (let () (declare (not safe)) - (##pair? _code201145201163_)) - (let ((_hd201150201210_ + (##pair? _code102085102103_)) + (let ((_hd102090102150_ (let () (declare (not safe)) - (##car _code201145201163_))) - (_tl201151201212_ + (##car _code102085102103_))) + (_tl102091102152_ (let () (declare (not safe)) - (##cdr _code201145201163_)))) + (##cdr _code102085102103_)))) (if (let () (declare (not safe)) - (##eq? _hd201150201210_ 'if)) + (##eq? _hd102090102150_ 'if)) (if (let () (declare (not safe)) - (##pair? _tl201151201212_)) - (let ((_hd201152201215_ + (##pair? _tl102091102152_)) + (let ((_hd102092102155_ (let () (declare (not safe)) - (##car _tl201151201212_))) - (_tl201153201217_ + (##car _tl102091102152_))) + (_tl102093102157_ (let () (declare (not safe)) - (##cdr _tl201151201212_)))) - (let ((_test201220_ _hd201152201215_)) + (##cdr _tl102091102152_)))) + (let ((_test102160_ _hd102092102155_)) (if (let () (declare (not safe)) - (##pair? _tl201153201217_)) - (let ((_hd201154201222_ + (##pair? _tl102093102157_)) + (let ((_hd102094102162_ (let () (declare (not safe)) - (##car _tl201153201217_))) - (_tl201155201224_ + (##car _tl102093102157_))) + (_tl102095102164_ (let () (declare (not safe)) - (##cdr _tl201153201217_)))) - (let ((_expr201227_ - _hd201154201222_)) + (##cdr _tl102093102157_)))) + (let ((_expr102167_ + _hd102094102162_)) (if (let () (declare (not safe)) - (##pair? _tl201155201224_)) - (let ((_hd201156201229_ + (##pair? _tl102095102164_)) + (let ((_hd102096102169_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl201155201224_))) - (_tl201157201231_ - (let () (declare (not safe)) (##cdr _tl201155201224_)))) - (if (let () (declare (not safe)) (##pair? _hd201156201229_)) - (let ((_hd201158201234_ + (##car _tl102095102164_))) + (_tl102097102171_ + (let () (declare (not safe)) (##cdr _tl102095102164_)))) + (if (let () (declare (not safe)) (##pair? _hd102096102169_)) + (let ((_hd102098102174_ (let () (declare (not safe)) - (##car _hd201156201229_))) - (_tl201159201236_ + (##car _hd102096102169_))) + (_tl102099102176_ (let () (declare (not safe)) - (##cdr _hd201156201229_)))) + (##cdr _hd102096102169_)))) (if (let () (declare (not safe)) - (##eq? _hd201158201234_ 'quote)) + (##eq? _hd102098102174_ 'quote)) (if (let () (declare (not safe)) - (##pair? _tl201159201236_)) - (let ((_hd201160201239_ + (##pair? _tl102099102176_)) + (let ((_hd102100102179_ (let () (declare (not safe)) - (##car _tl201159201236_))) - (_tl201161201241_ + (##car _tl102099102176_))) + (_tl102101102181_ (let () (declare (not safe)) - (##cdr _tl201159201236_)))) + (##cdr _tl102099102176_)))) (if (let () (declare (not safe)) - (##eq? _hd201160201239_ '#f)) + (##eq? _hd102100102179_ '#f)) (if (let () (declare (not safe)) - (##null? _tl201161201241_)) + (##null? _tl102101102181_)) (if (let () (declare (not safe)) - (##null? _tl201157201231_)) + (##null? _tl102097102171_)) (let () (declare (not safe)) - (_K201149201207_ - _expr201227_ - _test201220_)) + (_K102089102147_ + _expr102167_ + _test102160_)) (let () (declare (not safe)) - (_else201147201171_))) + (_else102087102111_))) (let () (declare (not safe)) - (_else201147201171_))) + (_else102087102111_))) (let () (declare (not safe)) - (_else201147201171_)))) + (_else102087102111_)))) (let () (declare (not safe)) - (_else201147201171_))) - (let () (declare (not safe)) (_else201147201171_)))) - (let () (declare (not safe)) (_else201147201171_)))) - (let () (declare (not safe)) (_else201147201171_))))) + (_else102087102111_))) + (let () (declare (not safe)) (_else102087102111_)))) + (let () (declare (not safe)) (_else102087102111_)))) + (let () (declare (not safe)) (_else102087102111_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else201147201171_))))) + (_else102087102111_))))) (let () (declare (not safe)) - (_else201147201171_))) + (_else102087102111_))) (let () (declare (not safe)) - (_else201147201171_)))) + (_else102087102111_)))) (let () (declare (not safe)) - (_else201147201171_))))))) - (let* ((_g201061201082_ - (lambda (_g201062201079_) + (_else102087102111_))))))) + (let* ((_g102001102022_ + (lambda (_g102002102019_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g201062201079_)))) - (_g201060201141_ - (lambda (_g201062201085_) + _g102002102019_)))) + (_g102000102081_ + (lambda (_g102002102025_) (if (let () (declare (not safe)) - (gx#stx-pair? _g201062201085_)) - (let ((_e201068201087_ + (gx#stx-pair? _g102002102025_)) + (let ((_e102008102027_ (let () (declare (not safe)) - (gx#stx-e _g201062201085_)))) - (let ((_hd201067201090_ + (gx#stx-e _g102002102025_)))) + (let ((_hd102007102030_ (let () (declare (not safe)) - (##car _e201068201087_))) - (_tl201066201092_ + (##car _e102008102027_))) + (_tl102006102032_ (let () (declare (not safe)) - (##cdr _e201068201087_)))) + (##cdr _e102008102027_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl201066201092_)) - (let ((_e201071201095_ + (gx#stx-pair? _tl102006102032_)) + (let ((_e102011102035_ (let () (declare (not safe)) - (gx#stx-e _tl201066201092_)))) - (let ((_hd201070201098_ + (gx#stx-e _tl102006102032_)))) + (let ((_hd102010102038_ (let () (declare (not safe)) - (##car _e201071201095_))) - (_tl201069201100_ + (##car _e102011102035_))) + (_tl102009102040_ (let () (declare (not safe)) - (##cdr _e201071201095_)))) + (##cdr _e102011102035_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl201069201100_)) - (let ((_e201074201103_ + (gx#stx-pair? _tl102009102040_)) + (let ((_e102014102043_ (let () (declare (not safe)) (gx#stx-e - _tl201069201100_)))) - (let ((_hd201073201106_ + _tl102009102040_)))) + (let ((_hd102013102046_ (let () (declare (not safe)) - (##car _e201074201103_))) - (_tl201072201108_ + (##car _e102014102043_))) + (_tl102012102048_ (let () (declare (not safe)) - (##cdr _e201074201103_)))) + (##cdr _e102014102043_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl201072201108_)) - (let ((_e201077201111_ + _tl102012102048_)) + (let ((_e102017102051_ (let () (declare (not safe)) (gx#stx-e - _tl201072201108_)))) - (let ((_hd201076201114_ + _tl102012102048_)))) + (let ((_hd102016102054_ (let () (declare (not safe)) - (##car _e201077201111_))) - (_tl201075201116_ + (##car _e102017102051_))) + (_tl102015102056_ (let () (declare (not safe)) - (##cdr _e201077201111_)))) + (##cdr _e102017102051_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl201075201116_)) - ((lambda (_L201119_ + _tl102015102056_)) + ((lambda (_L102059_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L201120_ - _L201121_) + _L102060_ + _L102061_) (if (gxc#current-compile-boolean-context) - (let ((__tmp214360 - (let ((__tmp214361 - (let ((__tmp214366 + (let ((__tmp110732 + (let ((__tmp110733 + (let ((__tmp110738 (let () (declare (not safe)) - (gxc#compile-e__0 _L201121_))) - (__tmp214362 - (let ((__tmp214365 + (gxc#compile-e__0 _L102061_))) + (__tmp110734 + (let ((__tmp110737 (let () (declare (not safe)) (gxc#compile-e__0 - _L201120_))) - (__tmp214363 - (let ((__tmp214364 + _L102060_))) + (__tmp110735 + (let ((__tmp110736 (let () (declare (not safe)) (gxc#compile-e__0 - _L201119_)))) + _L102059_)))) (declare (not safe)) - (cons __tmp214364 + (cons __tmp110736 '())))) (declare (not safe)) - (cons __tmp214365 - __tmp214363)))) + (cons __tmp110737 + __tmp110735)))) (declare (not safe)) - (cons __tmp214366 __tmp214362)))) + (cons __tmp110738 __tmp110734)))) (declare (not safe)) - (cons 'if __tmp214361)))) + (cons 'if __tmp110733)))) (declare (not safe)) - (_simplify201059_ __tmp214360)) - (let ((__tmp214353 - (let ((__tmp214358 - (let ((__tmp214359 + (_simplify101999_ __tmp110732)) + (let ((__tmp110725 + (let ((__tmp110730 + (let ((__tmp110731 (lambda () (let () (declare (not safe)) (gxc#compile-e__0 - _L201121_))))) + _L102061_))))) (declare (not safe)) (call-with-parameters - __tmp214359 + __tmp110731 gxc#current-compile-boolean-context '#t))) - (__tmp214354 - (let ((__tmp214357 + (__tmp110726 + (let ((__tmp110729 (let () (declare (not safe)) - (gxc#compile-e__0 _L201120_))) - (__tmp214355 - (let ((__tmp214356 + (gxc#compile-e__0 _L102060_))) + (__tmp110727 + (let ((__tmp110728 (let () (declare (not safe)) (gxc#compile-e__0 - _L201119_)))) + _L102059_)))) (declare (not safe)) - (cons __tmp214356 '())))) + (cons __tmp110728 '())))) (declare (not safe)) - (cons __tmp214357 __tmp214355)))) + (cons __tmp110729 __tmp110727)))) (declare (not safe)) - (cons __tmp214358 __tmp214354)))) + (cons __tmp110730 __tmp110726)))) (declare (not safe)) - (cons 'if __tmp214353)))) - _hd201076201114_ - _hd201073201106_ - _hd201070201098_) + (cons 'if __tmp110725)))) + _hd102016102054_ + _hd102013102046_ + _hd102010102038_) (let () (declare (not safe)) - (_g201061201082_ _g201062201085_))))) + (_g102001102022_ _g102002102025_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g201061201082_ - _g201062201085_))))) + (_g102001102022_ + _g102002102025_))))) (let () (declare (not safe)) - (_g201061201082_ - _g201062201085_))))) + (_g102001102022_ + _g102002102025_))))) (let () (declare (not safe)) - (_g201061201082_ _g201062201085_))))) + (_g102001102022_ _g102002102025_))))) (let () (declare (not safe)) - (_g201061201082_ _g201062201085_)))))) + (_g102001102022_ _g102002102025_)))))) (declare (not safe)) - (_g201060201141_ _stx201057_))))) + (_g102000102081_ _stx101997_))))) (define gxc#generate-runtime-ref% - (lambda (_stx201006_) - (let* ((_g201008201021_ - (lambda (_g201009201018_) + (lambda (_stx101946_) + (let* ((_g101948101961_ + (lambda (_g101949101958_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g201009201018_)))) - (_g201007201054_ - (lambda (_g201009201024_) + _g101949101958_)))) + (_g101947101994_ + (lambda (_g101949101964_) (if (let () (declare (not safe)) - (gx#stx-pair? _g201009201024_)) - (let ((_e201013201026_ + (gx#stx-pair? _g101949101964_)) + (let ((_e101953101966_ (let () (declare (not safe)) - (gx#stx-e _g201009201024_)))) - (let ((_hd201012201029_ + (gx#stx-e _g101949101964_)))) + (let ((_hd101952101969_ (let () (declare (not safe)) - (##car _e201013201026_))) - (_tl201011201031_ + (##car _e101953101966_))) + (_tl101951101971_ (let () (declare (not safe)) - (##cdr _e201013201026_)))) + (##cdr _e101953101966_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl201011201031_)) - (let ((_e201016201034_ + (gx#stx-pair? _tl101951101971_)) + (let ((_e101956101974_ (let () (declare (not safe)) - (gx#stx-e _tl201011201031_)))) - (let ((_hd201015201037_ + (gx#stx-e _tl101951101971_)))) + (let ((_hd101955101977_ (let () (declare (not safe)) - (##car _e201016201034_))) - (_tl201014201039_ + (##car _e101956101974_))) + (_tl101954101979_ (let () (declare (not safe)) - (##cdr _e201016201034_)))) + (##cdr _e101956101974_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl201014201039_)) - ((lambda (_L201042_) + (gx#stx-null? _tl101954101979_)) + ((lambda (_L101982_) (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L201042_))) - _hd201015201037_) + _L101982_))) + _hd101955101977_) (let () (declare (not safe)) - (_g201008201021_ _g201009201024_))))) + (_g101948101961_ _g101949101964_))))) (let () (declare (not safe)) - (_g201008201021_ _g201009201024_))))) + (_g101948101961_ _g101949101964_))))) (let () (declare (not safe)) - (_g201008201021_ _g201009201024_)))))) + (_g101948101961_ _g101949101964_)))))) (declare (not safe)) - (_g201007201054_ _stx201006_)))) + (_g101947101994_ _stx101946_)))) (define gxc#generate-runtime-setq% - (lambda (_stx200939_) - (let* ((_g200941200958_ - (lambda (_g200942200955_) + (lambda (_stx101879_) + (let* ((_g101881101898_ + (lambda (_g101882101895_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g200942200955_)))) - (_g200940201003_ - (lambda (_g200942200961_) + _g101882101895_)))) + (_g101880101943_ + (lambda (_g101882101901_) (if (let () (declare (not safe)) - (gx#stx-pair? _g200942200961_)) - (let ((_e200947200963_ + (gx#stx-pair? _g101882101901_)) + (let ((_e101887101903_ (let () (declare (not safe)) - (gx#stx-e _g200942200961_)))) - (let ((_hd200946200966_ + (gx#stx-e _g101882101901_)))) + (let ((_hd101886101906_ (let () (declare (not safe)) - (##car _e200947200963_))) - (_tl200945200968_ + (##car _e101887101903_))) + (_tl101885101908_ (let () (declare (not safe)) - (##cdr _e200947200963_)))) + (##cdr _e101887101903_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200945200968_)) - (let ((_e200950200971_ + (gx#stx-pair? _tl101885101908_)) + (let ((_e101890101911_ (let () (declare (not safe)) - (gx#stx-e _tl200945200968_)))) - (let ((_hd200949200974_ + (gx#stx-e _tl101885101908_)))) + (let ((_hd101889101914_ (let () (declare (not safe)) - (##car _e200950200971_))) - (_tl200948200976_ + (##car _e101890101911_))) + (_tl101888101916_ (let () (declare (not safe)) - (##cdr _e200950200971_)))) + (##cdr _e101890101911_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200948200976_)) - (let ((_e200953200979_ + (gx#stx-pair? _tl101888101916_)) + (let ((_e101893101919_ (let () (declare (not safe)) - (gx#stx-e _tl200948200976_)))) - (let ((_hd200952200982_ + (gx#stx-e _tl101888101916_)))) + (let ((_hd101892101922_ (let () (declare (not safe)) - (##car _e200953200979_))) - (_tl200951200984_ + (##car _e101893101919_))) + (_tl101891101924_ (let () (declare (not safe)) - (##cdr _e200953200979_)))) + (##cdr _e101893101919_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl200951200984_)) - ((lambda (_L200987_ _L200988_) - (let ((__tmp214367 - (let ((__tmp214370 + _tl101891101924_)) + ((lambda (_L101927_ _L101928_) + (let ((__tmp110739 + (let ((__tmp110742 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L200988_))) - (__tmp214368 - (let ((__tmp214369 + (gxc#generate-runtime-binding-id _L101928_))) + (__tmp110740 + (let ((__tmp110741 (let () (declare (not safe)) - (gxc#compile-e__0 _L200987_)))) + (gxc#compile-e__0 _L101927_)))) (declare (not safe)) - (cons __tmp214369 '())))) + (cons __tmp110741 '())))) (declare (not safe)) - (cons __tmp214370 __tmp214368)))) + (cons __tmp110742 __tmp110740)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'set! __tmp214367))) - _hd200952200982_ - _hd200949200974_) + (cons 'set! __tmp110739))) + _hd101892101922_ + _hd101889101914_) (let () (declare (not safe)) - (_g200941200958_ - _g200942200961_))))) + (_g101881101898_ + _g101882101901_))))) (let () (declare (not safe)) - (_g200941200958_ _g200942200961_))))) + (_g101881101898_ _g101882101901_))))) (let () (declare (not safe)) - (_g200941200958_ _g200942200961_))))) + (_g101881101898_ _g101882101901_))))) (let () (declare (not safe)) - (_g200941200958_ _g200942200961_)))))) + (_g101881101898_ _g101882101901_)))))) (declare (not safe)) - (_g200940201003_ _stx200939_)))) + (_g101880101943_ _stx101879_)))) (define gxc#generate-runtime-struct-instancep% - (lambda (_stx200751_) - (let* ((_g200753200770_ - (lambda (_g200754200767_) + (lambda (_stx101691_) + (let* ((_g101693101710_ + (lambda (_g101694101707_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g200754200767_)))) - (_g200752200936_ - (lambda (_g200754200773_) + _g101694101707_)))) + (_g101692101876_ + (lambda (_g101694101713_) (if (let () (declare (not safe)) - (gx#stx-pair? _g200754200773_)) - (let ((_e200759200775_ + (gx#stx-pair? _g101694101713_)) + (let ((_e101699101715_ (let () (declare (not safe)) - (gx#stx-e _g200754200773_)))) - (let ((_hd200758200778_ + (gx#stx-e _g101694101713_)))) + (let ((_hd101698101718_ (let () (declare (not safe)) - (##car _e200759200775_))) - (_tl200757200780_ + (##car _e101699101715_))) + (_tl101697101720_ (let () (declare (not safe)) - (##cdr _e200759200775_)))) + (##cdr _e101699101715_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200757200780_)) - (let ((_e200762200783_ + (gx#stx-pair? _tl101697101720_)) + (let ((_e101702101723_ (let () (declare (not safe)) - (gx#stx-e _tl200757200780_)))) - (let ((_hd200761200786_ + (gx#stx-e _tl101697101720_)))) + (let ((_hd101701101726_ (let () (declare (not safe)) - (##car _e200762200783_))) - (_tl200760200788_ + (##car _e101702101723_))) + (_tl101700101728_ (let () (declare (not safe)) - (##cdr _e200762200783_)))) + (##cdr _e101702101723_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200760200788_)) - (let ((_e200765200791_ + (gx#stx-pair? _tl101700101728_)) + (let ((_e101705101731_ (let () (declare (not safe)) - (gx#stx-e _tl200760200788_)))) - (let ((_hd200764200794_ + (gx#stx-e _tl101700101728_)))) + (let ((_hd101704101734_ (let () (declare (not safe)) - (##car _e200765200791_))) - (_tl200763200796_ + (##car _e101705101731_))) + (_tl101703101736_ (let () (declare (not safe)) - (##cdr _e200765200791_)))) + (##cdr _e101705101731_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl200763200796_)) - ((lambda (_L200799_ _L200800_) + _tl101703101736_)) + ((lambda (_L101739_ _L101740_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp214386 - (let ((__tmp214389 + (let ((__tmp110758 + (let ((__tmp110761 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L200799_))) - (__tmp214387 - (let ((__tmp214388 + (gxc#compile-e__0 _L101739_))) + (__tmp110759 + (let ((__tmp110760 (let () (declare (not safe)) - (gxc#compile-e__0 _L200800_)))) + (gxc#compile-e__0 _L101740_)))) (declare (not safe)) - (cons __tmp214388 '())))) + (cons __tmp110760 '())))) (declare (not safe)) - (cons __tmp214389 __tmp214387)))) + (cons __tmp110761 __tmp110759)))) (declare (not safe)) - (cons '##structure-instance-of? __tmp214386)) - (let _lp200815_ ((_rest200818_ - (let ((__tmp214385 + (cons '##structure-instance-of? __tmp110758)) + (let _lp101755_ ((_rest101758_ + (let ((__tmp110757 (let () (declare (not safe)) - (cons _L200799_ '())))) + (cons _L101739_ '())))) (declare (not safe)) - (cons _L200800_ __tmp214385))) - (_bind200820_ '()) - (_args200821_ '())) - (let* ((_rest200822200830_ _rest200818_) - (_else200824200838_ + (cons _L101740_ __tmp110757))) + (_bind101760_ '()) + (_args101761_ '())) + (let* ((_rest101762101770_ _rest101758_) + (_else101764101778_ (lambda () - (let ((__tmp214371 - (let ((__tmp214372 - (let ((__tmp214373 - (let ((__tmp214374 + (let ((__tmp110743 + (let ((__tmp110744 + (let ((__tmp110745 + (let ((__tmp110746 (let () (declare (not safe)) (cons '##structure-instance-of? - _args200821_)))) + _args101761_)))) (declare (not safe)) - (cons __tmp214374 '())))) + (cons __tmp110746 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp214373)))) + __tmp110745)))) (declare (not safe)) - (cons _bind200820_ __tmp214372)))) + (cons _bind101760_ __tmp110744)))) (declare (not safe)) - (cons 'let __tmp214371)))) - (_K200826200924_ - (lambda (_rest200841_ _e200842_) - (let* ((___stx213568213569_ _e200842_) - (_g200847200865_ + (cons 'let __tmp110743)))) + (_K101766101864_ + (lambda (_rest101781_ _e101782_) + (let* ((___stx109940109941_ _e101782_) + (_g101787101805_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx213568213569_))))) - (let ((___kont213570213571_ + ___stx109940109941_))))) + (let ((___kont109942109943_ (lambda () - (let ((__tmp214375 - (let ((__tmp214376 + (let ((__tmp110747 + (let ((__tmp110748 (let () (declare (not safe)) (gxc#compile-e__0 - _e200842_)))) + _e101782_)))) (declare (not safe)) - (cons __tmp214376 - _args200821_)))) + (cons __tmp110748 + _args101761_)))) (declare (not safe)) - (_lp200815_ - _rest200841_ - _bind200820_ - __tmp214375)))) - (___kont213572213573_ + (_lp101755_ + _rest101781_ + _bind101760_ + __tmp110747)))) + (___kont109944109945_ (lambda () - (let ((__tmp214377 - (let ((__tmp214378 + (let ((__tmp110749 + (let ((__tmp110750 (let () (declare (not safe)) (gxc#compile-e__0 - _e200842_)))) + _e101782_)))) (declare (not safe)) - (cons __tmp214378 - _args200821_)))) + (cons __tmp110750 + _args101761_)))) (declare (not safe)) - (_lp200815_ - _rest200841_ - _bind200820_ - __tmp214377)))) - (___kont213574213575_ + (_lp101755_ + _rest101781_ + _bind101760_ + __tmp110749)))) + (___kont109946109947_ (lambda () - (let ((_tmp200872_ - (let ((__tmp214379 + (let ((_tmp101812_ + (let ((__tmp110751 (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp214379)))) - (let ((__tmp214381 - (let ((__tmp214382 - (let ((__tmp214383 - (let ((__tmp214384 + (make-symbol__0 __tmp110751)))) + (let ((__tmp110753 + (let ((__tmp110754 + (let ((__tmp110755 + (let ((__tmp110756 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e200842_)))) + (gxc#compile-e__0 _e101782_)))) (declare (not safe)) - (cons __tmp214384 '())))) + (cons __tmp110756 '())))) (declare (not safe)) - (cons _tmp200872_ __tmp214383)))) + (cons _tmp101812_ __tmp110755)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214382 - _bind200820_))) - (__tmp214380 + (cons __tmp110754 + _bind101760_))) + (__tmp110752 (let () (declare (not safe)) - (cons _tmp200872_ - _args200821_)))) + (cons _tmp101812_ + _args101761_)))) (declare (not safe)) - (_lp200815_ - _rest200841_ - __tmp214381 - __tmp214380)))))) + (_lp101755_ + _rest101781_ + __tmp110753 + __tmp110752)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx213568213569_)) - (let ((_e200851200903_ + (gx#stx-pair? ___stx109940109941_)) + (let ((_e101791101843_ (let () (declare (not safe)) - (gx#stx-e ___stx213568213569_)))) - (let ((_tl200849200908_ + (gx#stx-e ___stx109940109941_)))) + (let ((_tl101789101848_ (let () (declare (not safe)) - (##cdr _e200851200903_))) - (_hd200850200906_ + (##cdr _e101791101843_))) + (_hd101790101846_ (let () (declare (not safe)) - (##car _e200851200903_)))) + (##car _e101791101843_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd200850200906_)) + (gx#identifier? _hd101790101846_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd200850200906_)) + _hd101790101846_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200849200908_)) - (let ((_e200854200911_ + _tl101789101848_)) + (let ((_e101794101851_ (let () (declare (not safe)) (gx#stx-e - _tl200849200908_)))) - (let ((_tl200852200916_ + _tl101789101848_)))) + (let ((_tl101792101856_ (let () (declare (not safe)) - (##cdr _e200854200911_))) - (_hd200853200914_ + (##cdr _e101794101851_))) + (_hd101793101854_ (let () (declare (not safe)) - (##car _e200854200911_)))) + (##car _e101794101851_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl200852200916_)) - (___kont213570213571_) - (___kont213574213575_)))) - (___kont213574213575_)) + _tl101792101856_)) + (___kont109942109943_) + (___kont109946109947_)))) + (___kont109946109947_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd200850200906_)) + _hd101790101846_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200849200908_)) - (let ((_e200860200888_ + _tl101789101848_)) + (let ((_e101800101828_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl200849200908_)))) - (let ((_tl200858200893_ - (let () (declare (not safe)) (##cdr _e200860200888_))) - (_hd200859200891_ - (let () (declare (not safe)) (##car _e200860200888_)))) + (gx#stx-e _tl101789101848_)))) + (let ((_tl101798101833_ + (let () (declare (not safe)) (##cdr _e101800101828_))) + (_hd101799101831_ + (let () (declare (not safe)) (##car _e101800101828_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200858200893_)) - (___kont213572213573_) - (___kont213574213575_)))) - (___kont213574213575_)) + (gx#stx-null? _tl101798101833_)) + (___kont109944109945_) + (___kont109946109947_)))) + (___kont109946109947_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont213574213575_))) - (___kont213574213575_)))) - (___kont213574213575_))))))) + (___kont109946109947_))) + (___kont109946109947_)))) + (___kont109946109947_))))))) (if (let () (declare (not safe)) - (##pair? _rest200822200830_)) - (let ((_hd200827200927_ + (##pair? _rest101762101770_)) + (let ((_hd101767101867_ (let () (declare (not safe)) - (##car _rest200822200830_))) - (_tl200828200929_ + (##car _rest101762101770_))) + (_tl101768101869_ (let () (declare (not safe)) - (##cdr _rest200822200830_)))) - (let* ((_e200932_ _hd200827200927_) - (_rest200934_ _tl200828200929_)) + (##cdr _rest101762101770_)))) + (let* ((_e101872_ _hd101767101867_) + (_rest101874_ _tl101768101869_)) (declare (not safe)) - (_K200826200924_ _rest200934_ _e200932_))) - (let () (declare (not safe)) (_else200824200838_))))))) + (_K101766101864_ _rest101874_ _e101872_))) + (let () (declare (not safe)) (_else101764101778_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd200764200794_ - _hd200761200786_) + _hd101704101734_ + _hd101701101726_) (let () (declare (not safe)) - (_g200753200770_ - _g200754200773_))))) + (_g101693101710_ + _g101694101713_))))) (let () (declare (not safe)) - (_g200753200770_ _g200754200773_))))) + (_g101693101710_ _g101694101713_))))) (let () (declare (not safe)) - (_g200753200770_ _g200754200773_))))) + (_g101693101710_ _g101694101713_))))) (let () (declare (not safe)) - (_g200753200770_ _g200754200773_)))))) + (_g101693101710_ _g101694101713_)))))) (declare (not safe)) - (_g200752200936_ _stx200751_)))) + (_g101692101876_ _stx101691_)))) (define gxc#generate-runtime-struct-direct-instancep% - (lambda (_stx200563_) - (let* ((_g200565200582_ - (lambda (_g200566200579_) + (lambda (_stx101503_) + (let* ((_g101505101522_ + (lambda (_g101506101519_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g200566200579_)))) - (_g200564200748_ - (lambda (_g200566200585_) + _g101506101519_)))) + (_g101504101688_ + (lambda (_g101506101525_) (if (let () (declare (not safe)) - (gx#stx-pair? _g200566200585_)) - (let ((_e200571200587_ + (gx#stx-pair? _g101506101525_)) + (let ((_e101511101527_ (let () (declare (not safe)) - (gx#stx-e _g200566200585_)))) - (let ((_hd200570200590_ + (gx#stx-e _g101506101525_)))) + (let ((_hd101510101530_ (let () (declare (not safe)) - (##car _e200571200587_))) - (_tl200569200592_ + (##car _e101511101527_))) + (_tl101509101532_ (let () (declare (not safe)) - (##cdr _e200571200587_)))) + (##cdr _e101511101527_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200569200592_)) - (let ((_e200574200595_ + (gx#stx-pair? _tl101509101532_)) + (let ((_e101514101535_ (let () (declare (not safe)) - (gx#stx-e _tl200569200592_)))) - (let ((_hd200573200598_ + (gx#stx-e _tl101509101532_)))) + (let ((_hd101513101538_ (let () (declare (not safe)) - (##car _e200574200595_))) - (_tl200572200600_ + (##car _e101514101535_))) + (_tl101512101540_ (let () (declare (not safe)) - (##cdr _e200574200595_)))) + (##cdr _e101514101535_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200572200600_)) - (let ((_e200577200603_ + (gx#stx-pair? _tl101512101540_)) + (let ((_e101517101543_ (let () (declare (not safe)) - (gx#stx-e _tl200572200600_)))) - (let ((_hd200576200606_ + (gx#stx-e _tl101512101540_)))) + (let ((_hd101516101546_ (let () (declare (not safe)) - (##car _e200577200603_))) - (_tl200575200608_ + (##car _e101517101543_))) + (_tl101515101548_ (let () (declare (not safe)) - (##cdr _e200577200603_)))) + (##cdr _e101517101543_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl200575200608_)) - ((lambda (_L200611_ _L200612_) + _tl101515101548_)) + ((lambda (_L101551_ _L101552_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp214405 - (let ((__tmp214408 + (let ((__tmp110777 + (let ((__tmp110780 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L200611_))) - (__tmp214406 - (let ((__tmp214407 + (gxc#compile-e__0 _L101551_))) + (__tmp110778 + (let ((__tmp110779 (let () (declare (not safe)) - (gxc#compile-e__0 _L200612_)))) + (gxc#compile-e__0 _L101552_)))) (declare (not safe)) - (cons __tmp214407 '())))) + (cons __tmp110779 '())))) (declare (not safe)) - (cons __tmp214408 __tmp214406)))) + (cons __tmp110780 __tmp110778)))) (declare (not safe)) - (cons '##structure-direct-instance-of? __tmp214405)) - (let _lp200627_ ((_rest200630_ - (let ((__tmp214404 + (cons '##structure-direct-instance-of? __tmp110777)) + (let _lp101567_ ((_rest101570_ + (let ((__tmp110776 (let () (declare (not safe)) - (cons _L200611_ '())))) + (cons _L101551_ '())))) (declare (not safe)) - (cons _L200612_ __tmp214404))) - (_bind200632_ '()) - (_args200633_ '())) - (let* ((_rest200634200642_ _rest200630_) - (_else200636200650_ + (cons _L101552_ __tmp110776))) + (_bind101572_ '()) + (_args101573_ '())) + (let* ((_rest101574101582_ _rest101570_) + (_else101576101590_ (lambda () - (let ((__tmp214390 - (let ((__tmp214391 - (let ((__tmp214392 - (let ((__tmp214393 + (let ((__tmp110762 + (let ((__tmp110763 + (let ((__tmp110764 + (let ((__tmp110765 (let () (declare (not safe)) (cons '##structure-direct-instance-of? - _args200633_)))) + _args101573_)))) (declare (not safe)) - (cons __tmp214393 '())))) + (cons __tmp110765 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp214392)))) + __tmp110764)))) (declare (not safe)) - (cons _bind200632_ __tmp214391)))) + (cons _bind101572_ __tmp110763)))) (declare (not safe)) - (cons 'let __tmp214390)))) - (_K200638200736_ - (lambda (_rest200653_ _e200654_) - (let* ((___stx213614213615_ _e200654_) - (_g200659200677_ + (cons 'let __tmp110762)))) + (_K101578101676_ + (lambda (_rest101593_ _e101594_) + (let* ((___stx109986109987_ _e101594_) + (_g101599101617_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx213614213615_))))) - (let ((___kont213616213617_ + ___stx109986109987_))))) + (let ((___kont109988109989_ (lambda () - (let ((__tmp214394 - (let ((__tmp214395 + (let ((__tmp110766 + (let ((__tmp110767 (let () (declare (not safe)) (gxc#compile-e__0 - _e200654_)))) + _e101594_)))) (declare (not safe)) - (cons __tmp214395 - _args200633_)))) + (cons __tmp110767 + _args101573_)))) (declare (not safe)) - (_lp200627_ - _rest200653_ - _bind200632_ - __tmp214394)))) - (___kont213618213619_ + (_lp101567_ + _rest101593_ + _bind101572_ + __tmp110766)))) + (___kont109990109991_ (lambda () - (let ((__tmp214396 - (let ((__tmp214397 + (let ((__tmp110768 + (let ((__tmp110769 (let () (declare (not safe)) (gxc#compile-e__0 - _e200654_)))) + _e101594_)))) (declare (not safe)) - (cons __tmp214397 - _args200633_)))) + (cons __tmp110769 + _args101573_)))) (declare (not safe)) - (_lp200627_ - _rest200653_ - _bind200632_ - __tmp214396)))) - (___kont213620213621_ + (_lp101567_ + _rest101593_ + _bind101572_ + __tmp110768)))) + (___kont109992109993_ (lambda () - (let ((_tmp200684_ - (let ((__tmp214398 + (let ((_tmp101624_ + (let ((__tmp110770 (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp214398)))) - (let ((__tmp214400 - (let ((__tmp214401 - (let ((__tmp214402 - (let ((__tmp214403 + (make-symbol__0 __tmp110770)))) + (let ((__tmp110772 + (let ((__tmp110773 + (let ((__tmp110774 + (let ((__tmp110775 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e200654_)))) + (gxc#compile-e__0 _e101594_)))) (declare (not safe)) - (cons __tmp214403 '())))) + (cons __tmp110775 '())))) (declare (not safe)) - (cons _tmp200684_ __tmp214402)))) + (cons _tmp101624_ __tmp110774)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214401 - _bind200632_))) - (__tmp214399 + (cons __tmp110773 + _bind101572_))) + (__tmp110771 (let () (declare (not safe)) - (cons _tmp200684_ - _args200633_)))) + (cons _tmp101624_ + _args101573_)))) (declare (not safe)) - (_lp200627_ - _rest200653_ - __tmp214400 - __tmp214399)))))) + (_lp101567_ + _rest101593_ + __tmp110772 + __tmp110771)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx213614213615_)) - (let ((_e200663200715_ + (gx#stx-pair? ___stx109986109987_)) + (let ((_e101603101655_ (let () (declare (not safe)) - (gx#stx-e ___stx213614213615_)))) - (let ((_tl200661200720_ + (gx#stx-e ___stx109986109987_)))) + (let ((_tl101601101660_ (let () (declare (not safe)) - (##cdr _e200663200715_))) - (_hd200662200718_ + (##cdr _e101603101655_))) + (_hd101602101658_ (let () (declare (not safe)) - (##car _e200663200715_)))) + (##car _e101603101655_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd200662200718_)) + (gx#identifier? _hd101602101658_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd200662200718_)) + _hd101602101658_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200661200720_)) - (let ((_e200666200723_ + _tl101601101660_)) + (let ((_e101606101663_ (let () (declare (not safe)) (gx#stx-e - _tl200661200720_)))) - (let ((_tl200664200728_ + _tl101601101660_)))) + (let ((_tl101604101668_ (let () (declare (not safe)) - (##cdr _e200666200723_))) - (_hd200665200726_ + (##cdr _e101606101663_))) + (_hd101605101666_ (let () (declare (not safe)) - (##car _e200666200723_)))) + (##car _e101606101663_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl200664200728_)) - (___kont213616213617_) - (___kont213620213621_)))) - (___kont213620213621_)) + _tl101604101668_)) + (___kont109988109989_) + (___kont109992109993_)))) + (___kont109992109993_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd200662200718_)) + _hd101602101658_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200661200720_)) - (let ((_e200672200700_ + _tl101601101660_)) + (let ((_e101612101640_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl200661200720_)))) - (let ((_tl200670200705_ - (let () (declare (not safe)) (##cdr _e200672200700_))) - (_hd200671200703_ - (let () (declare (not safe)) (##car _e200672200700_)))) + (gx#stx-e _tl101601101660_)))) + (let ((_tl101610101645_ + (let () (declare (not safe)) (##cdr _e101612101640_))) + (_hd101611101643_ + (let () (declare (not safe)) (##car _e101612101640_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200670200705_)) - (___kont213618213619_) - (___kont213620213621_)))) - (___kont213620213621_)) + (gx#stx-null? _tl101610101645_)) + (___kont109990109991_) + (___kont109992109993_)))) + (___kont109992109993_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont213620213621_))) - (___kont213620213621_)))) - (___kont213620213621_))))))) + (___kont109992109993_))) + (___kont109992109993_)))) + (___kont109992109993_))))))) (if (let () (declare (not safe)) - (##pair? _rest200634200642_)) - (let ((_hd200639200739_ + (##pair? _rest101574101582_)) + (let ((_hd101579101679_ (let () (declare (not safe)) - (##car _rest200634200642_))) - (_tl200640200741_ + (##car _rest101574101582_))) + (_tl101580101681_ (let () (declare (not safe)) - (##cdr _rest200634200642_)))) - (let* ((_e200744_ _hd200639200739_) - (_rest200746_ _tl200640200741_)) + (##cdr _rest101574101582_)))) + (let* ((_e101684_ _hd101579101679_) + (_rest101686_ _tl101580101681_)) (declare (not safe)) - (_K200638200736_ _rest200746_ _e200744_))) - (let () (declare (not safe)) (_else200636200650_))))))) + (_K101578101676_ _rest101686_ _e101684_))) + (let () (declare (not safe)) (_else101576101590_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd200576200606_ - _hd200573200598_) + _hd101516101546_ + _hd101513101538_) (let () (declare (not safe)) - (_g200565200582_ - _g200566200585_))))) + (_g101505101522_ + _g101506101525_))))) (let () (declare (not safe)) - (_g200565200582_ _g200566200585_))))) + (_g101505101522_ _g101506101525_))))) (let () (declare (not safe)) - (_g200565200582_ _g200566200585_))))) + (_g101505101522_ _g101506101525_))))) (let () (declare (not safe)) - (_g200565200582_ _g200566200585_)))))) + (_g101505101522_ _g101506101525_)))))) (declare (not safe)) - (_g200564200748_ _stx200563_)))) + (_g101504101688_ _stx101503_)))) (define gxc#generate-runtime-struct-ref% - (lambda (_stx200480_) - (let* ((_g200482200503_ - (lambda (_g200483200500_) + (lambda (_stx101420_) + (let* ((_g101422101443_ + (lambda (_g101423101440_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g200483200500_)))) - (_g200481200560_ - (lambda (_g200483200506_) + _g101423101440_)))) + (_g101421101500_ + (lambda (_g101423101446_) (if (let () (declare (not safe)) - (gx#stx-pair? _g200483200506_)) - (let ((_e200489200508_ + (gx#stx-pair? _g101423101446_)) + (let ((_e101429101448_ (let () (declare (not safe)) - (gx#stx-e _g200483200506_)))) - (let ((_hd200488200511_ + (gx#stx-e _g101423101446_)))) + (let ((_hd101428101451_ (let () (declare (not safe)) - (##car _e200489200508_))) - (_tl200487200513_ + (##car _e101429101448_))) + (_tl101427101453_ (let () (declare (not safe)) - (##cdr _e200489200508_)))) + (##cdr _e101429101448_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200487200513_)) - (let ((_e200492200516_ + (gx#stx-pair? _tl101427101453_)) + (let ((_e101432101456_ (let () (declare (not safe)) - (gx#stx-e _tl200487200513_)))) - (let ((_hd200491200519_ + (gx#stx-e _tl101427101453_)))) + (let ((_hd101431101459_ (let () (declare (not safe)) - (##car _e200492200516_))) - (_tl200490200521_ + (##car _e101432101456_))) + (_tl101430101461_ (let () (declare (not safe)) - (##cdr _e200492200516_)))) + (##cdr _e101432101456_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200490200521_)) - (let ((_e200495200524_ + (gx#stx-pair? _tl101430101461_)) + (let ((_e101435101464_ (let () (declare (not safe)) - (gx#stx-e _tl200490200521_)))) - (let ((_hd200494200527_ + (gx#stx-e _tl101430101461_)))) + (let ((_hd101434101467_ (let () (declare (not safe)) - (##car _e200495200524_))) - (_tl200493200529_ + (##car _e101435101464_))) + (_tl101433101469_ (let () (declare (not safe)) - (##cdr _e200495200524_)))) + (##cdr _e101435101464_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200493200529_)) - (let ((_e200498200532_ + _tl101433101469_)) + (let ((_e101438101472_ (let () (declare (not safe)) (gx#stx-e - _tl200493200529_)))) - (let ((_hd200497200535_ + _tl101433101469_)))) + (let ((_hd101437101475_ (let () (declare (not safe)) - (##car _e200498200532_))) - (_tl200496200537_ + (##car _e101438101472_))) + (_tl101436101477_ (let () (declare (not safe)) - (##cdr _e200498200532_)))) + (##cdr _e101438101472_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl200496200537_)) - ((lambda (_L200540_ + _tl101436101477_)) + ((lambda (_L101480_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L200541_ - _L200542_) - (let ((__tmp214409 - (let ((__tmp214415 + _L101481_ + _L101482_) + (let ((__tmp110781 + (let ((__tmp110787 (let () (declare (not safe)) - (gxc#compile-e__0 _L200540_))) - (__tmp214410 - (let ((__tmp214414 + (gxc#compile-e__0 _L101480_))) + (__tmp110782 + (let ((__tmp110786 (let () (declare (not safe)) - (gxc#compile-e__0 _L200541_))) - (__tmp214411 - (let ((__tmp214413 + (gxc#compile-e__0 _L101481_))) + (__tmp110783 + (let ((__tmp110785 (let () (declare (not safe)) - (gxc#compile-e__0 _L200542_))) - (__tmp214412 + (gxc#compile-e__0 _L101482_))) + (__tmp110784 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp214413 __tmp214412)))) + (cons __tmp110785 __tmp110784)))) (declare (not safe)) - (cons __tmp214414 __tmp214411)))) + (cons __tmp110786 __tmp110783)))) (declare (not safe)) - (cons __tmp214415 __tmp214410)))) + (cons __tmp110787 __tmp110782)))) (declare (not safe)) - (cons '##structure-ref __tmp214409))) - _hd200497200535_ - _hd200494200527_ - _hd200491200519_) + (cons '##structure-ref __tmp110781))) + _hd101437101475_ + _hd101434101467_ + _hd101431101459_) (let () (declare (not safe)) - (_g200482200503_ _g200483200506_))))) + (_g101422101443_ _g101423101446_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g200482200503_ - _g200483200506_))))) + (_g101422101443_ + _g101423101446_))))) (let () (declare (not safe)) - (_g200482200503_ _g200483200506_))))) + (_g101422101443_ _g101423101446_))))) (let () (declare (not safe)) - (_g200482200503_ _g200483200506_))))) + (_g101422101443_ _g101423101446_))))) (let () (declare (not safe)) - (_g200482200503_ _g200483200506_)))))) + (_g101422101443_ _g101423101446_)))))) (declare (not safe)) - (_g200481200560_ _stx200480_)))) + (_g101421101500_ _stx101420_)))) (define gxc#generate-runtime-struct-setq% - (lambda (_stx200381_) - (let* ((_g200383200408_ - (lambda (_g200384200405_) + (lambda (_stx101321_) + (let* ((_g101323101348_ + (lambda (_g101324101345_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g200384200405_)))) - (_g200382200477_ - (lambda (_g200384200411_) + _g101324101345_)))) + (_g101322101417_ + (lambda (_g101324101351_) (if (let () (declare (not safe)) - (gx#stx-pair? _g200384200411_)) - (let ((_e200391200413_ + (gx#stx-pair? _g101324101351_)) + (let ((_e101331101353_ (let () (declare (not safe)) - (gx#stx-e _g200384200411_)))) - (let ((_hd200390200416_ + (gx#stx-e _g101324101351_)))) + (let ((_hd101330101356_ (let () (declare (not safe)) - (##car _e200391200413_))) - (_tl200389200418_ + (##car _e101331101353_))) + (_tl101329101358_ (let () (declare (not safe)) - (##cdr _e200391200413_)))) + (##cdr _e101331101353_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200389200418_)) - (let ((_e200394200421_ + (gx#stx-pair? _tl101329101358_)) + (let ((_e101334101361_ (let () (declare (not safe)) - (gx#stx-e _tl200389200418_)))) - (let ((_hd200393200424_ + (gx#stx-e _tl101329101358_)))) + (let ((_hd101333101364_ (let () (declare (not safe)) - (##car _e200394200421_))) - (_tl200392200426_ + (##car _e101334101361_))) + (_tl101332101366_ (let () (declare (not safe)) - (##cdr _e200394200421_)))) + (##cdr _e101334101361_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200392200426_)) - (let ((_e200397200429_ + (gx#stx-pair? _tl101332101366_)) + (let ((_e101337101369_ (let () (declare (not safe)) - (gx#stx-e _tl200392200426_)))) - (let ((_hd200396200432_ + (gx#stx-e _tl101332101366_)))) + (let ((_hd101336101372_ (let () (declare (not safe)) - (##car _e200397200429_))) - (_tl200395200434_ + (##car _e101337101369_))) + (_tl101335101374_ (let () (declare (not safe)) - (##cdr _e200397200429_)))) + (##cdr _e101337101369_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200395200434_)) - (let ((_e200400200437_ + _tl101335101374_)) + (let ((_e101340101377_ (let () (declare (not safe)) (gx#stx-e - _tl200395200434_)))) - (let ((_hd200399200440_ + _tl101335101374_)))) + (let ((_hd101339101380_ (let () (declare (not safe)) - (##car _e200400200437_))) - (_tl200398200442_ + (##car _e101340101377_))) + (_tl101338101382_ (let () (declare (not safe)) - (##cdr _e200400200437_)))) + (##cdr _e101340101377_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200398200442_)) - (let ((_e200403200445_ + _tl101338101382_)) + (let ((_e101343101385_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl200398200442_)))) - (let ((_hd200402200448_ - (let () (declare (not safe)) (##car _e200403200445_))) - (_tl200401200450_ + (gx#stx-e _tl101338101382_)))) + (let ((_hd101342101388_ + (let () (declare (not safe)) (##car _e101343101385_))) + (_tl101341101390_ (let () (declare (not safe)) - (##cdr _e200403200445_)))) + (##cdr _e101343101385_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200401200450_)) - ((lambda (_L200453_ _L200454_ _L200455_ _L200456_) - (let ((__tmp214416 - (let ((__tmp214424 + (gx#stx-null? _tl101341101390_)) + ((lambda (_L101393_ _L101394_ _L101395_ _L101396_) + (let ((__tmp110788 + (let ((__tmp110796 (let () (declare (not safe)) - (gxc#compile-e__0 _L200454_))) - (__tmp214417 - (let ((__tmp214423 + (gxc#compile-e__0 _L101394_))) + (__tmp110789 + (let ((__tmp110795 (let () (declare (not safe)) (gxc#compile-e__0 - _L200453_))) - (__tmp214418 - (let ((__tmp214422 + _L101393_))) + (__tmp110790 + (let ((__tmp110794 (let () (declare (not safe)) (gxc#compile-e__0 - _L200455_))) - (__tmp214419 - (let ((__tmp214421 + _L101395_))) + (__tmp110791 + (let ((__tmp110793 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _L200456_))) - (__tmp214420 + (gxc#compile-e__0 _L101396_))) + (__tmp110792 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp214421 __tmp214420)))) + (cons __tmp110793 __tmp110792)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214422 - __tmp214419)))) + (cons __tmp110794 + __tmp110791)))) (declare (not safe)) - (cons __tmp214423 __tmp214418)))) + (cons __tmp110795 __tmp110790)))) (declare (not safe)) - (cons __tmp214424 __tmp214417)))) + (cons __tmp110796 __tmp110789)))) (declare (not safe)) - (cons '##structure-set! __tmp214416))) - _hd200402200448_ - _hd200399200440_ - _hd200396200432_ - _hd200393200424_) + (cons '##structure-set! __tmp110788))) + _hd101342101388_ + _hd101339101380_ + _hd101336101372_ + _hd101333101364_) (let () (declare (not safe)) - (_g200383200408_ _g200384200411_))))) + (_g101323101348_ _g101324101351_))))) (let () (declare (not safe)) - (_g200383200408_ _g200384200411_))))) + (_g101323101348_ _g101324101351_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g200383200408_ - _g200384200411_))))) + (_g101323101348_ + _g101324101351_))))) (let () (declare (not safe)) - (_g200383200408_ _g200384200411_))))) + (_g101323101348_ _g101324101351_))))) (let () (declare (not safe)) - (_g200383200408_ _g200384200411_))))) + (_g101323101348_ _g101324101351_))))) (let () (declare (not safe)) - (_g200383200408_ _g200384200411_)))))) + (_g101323101348_ _g101324101351_)))))) (declare (not safe)) - (_g200382200477_ _stx200381_)))) + (_g101322101417_ _stx101321_)))) (define gxc#generate-runtime-struct-direct-ref% - (lambda (_stx200298_) - (let* ((_g200300200321_ - (lambda (_g200301200318_) + (lambda (_stx101238_) + (let* ((_g101240101261_ + (lambda (_g101241101258_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g200301200318_)))) - (_g200299200378_ - (lambda (_g200301200324_) + _g101241101258_)))) + (_g101239101318_ + (lambda (_g101241101264_) (if (let () (declare (not safe)) - (gx#stx-pair? _g200301200324_)) - (let ((_e200307200326_ + (gx#stx-pair? _g101241101264_)) + (let ((_e101247101266_ (let () (declare (not safe)) - (gx#stx-e _g200301200324_)))) - (let ((_hd200306200329_ + (gx#stx-e _g101241101264_)))) + (let ((_hd101246101269_ (let () (declare (not safe)) - (##car _e200307200326_))) - (_tl200305200331_ + (##car _e101247101266_))) + (_tl101245101271_ (let () (declare (not safe)) - (##cdr _e200307200326_)))) + (##cdr _e101247101266_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200305200331_)) - (let ((_e200310200334_ + (gx#stx-pair? _tl101245101271_)) + (let ((_e101250101274_ (let () (declare (not safe)) - (gx#stx-e _tl200305200331_)))) - (let ((_hd200309200337_ + (gx#stx-e _tl101245101271_)))) + (let ((_hd101249101277_ (let () (declare (not safe)) - (##car _e200310200334_))) - (_tl200308200339_ + (##car _e101250101274_))) + (_tl101248101279_ (let () (declare (not safe)) - (##cdr _e200310200334_)))) + (##cdr _e101250101274_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200308200339_)) - (let ((_e200313200342_ + (gx#stx-pair? _tl101248101279_)) + (let ((_e101253101282_ (let () (declare (not safe)) - (gx#stx-e _tl200308200339_)))) - (let ((_hd200312200345_ + (gx#stx-e _tl101248101279_)))) + (let ((_hd101252101285_ (let () (declare (not safe)) - (##car _e200313200342_))) - (_tl200311200347_ + (##car _e101253101282_))) + (_tl101251101287_ (let () (declare (not safe)) - (##cdr _e200313200342_)))) + (##cdr _e101253101282_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200311200347_)) - (let ((_e200316200350_ + _tl101251101287_)) + (let ((_e101256101290_ (let () (declare (not safe)) (gx#stx-e - _tl200311200347_)))) - (let ((_hd200315200353_ + _tl101251101287_)))) + (let ((_hd101255101293_ (let () (declare (not safe)) - (##car _e200316200350_))) - (_tl200314200355_ + (##car _e101256101290_))) + (_tl101254101295_ (let () (declare (not safe)) - (##cdr _e200316200350_)))) + (##cdr _e101256101290_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl200314200355_)) - ((lambda (_L200358_ + _tl101254101295_)) + ((lambda (_L101298_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L200359_ - _L200360_) - (let ((__tmp214425 - (let ((__tmp214431 + _L101299_ + _L101300_) + (let ((__tmp110797 + (let ((__tmp110803 (let () (declare (not safe)) - (gxc#compile-e__0 _L200358_))) - (__tmp214426 - (let ((__tmp214430 + (gxc#compile-e__0 _L101298_))) + (__tmp110798 + (let ((__tmp110802 (let () (declare (not safe)) - (gxc#compile-e__0 _L200359_))) - (__tmp214427 - (let ((__tmp214429 + (gxc#compile-e__0 _L101299_))) + (__tmp110799 + (let ((__tmp110801 (let () (declare (not safe)) - (gxc#compile-e__0 _L200360_))) - (__tmp214428 + (gxc#compile-e__0 _L101300_))) + (__tmp110800 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp214429 __tmp214428)))) + (cons __tmp110801 __tmp110800)))) (declare (not safe)) - (cons __tmp214430 __tmp214427)))) + (cons __tmp110802 __tmp110799)))) (declare (not safe)) - (cons __tmp214431 __tmp214426)))) + (cons __tmp110803 __tmp110798)))) (declare (not safe)) - (cons '##direct-structure-ref __tmp214425))) - _hd200315200353_ - _hd200312200345_ - _hd200309200337_) + (cons '##direct-structure-ref __tmp110797))) + _hd101255101293_ + _hd101252101285_ + _hd101249101277_) (let () (declare (not safe)) - (_g200300200321_ _g200301200324_))))) + (_g101240101261_ _g101241101264_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g200300200321_ - _g200301200324_))))) + (_g101240101261_ + _g101241101264_))))) (let () (declare (not safe)) - (_g200300200321_ _g200301200324_))))) + (_g101240101261_ _g101241101264_))))) (let () (declare (not safe)) - (_g200300200321_ _g200301200324_))))) + (_g101240101261_ _g101241101264_))))) (let () (declare (not safe)) - (_g200300200321_ _g200301200324_)))))) + (_g101240101261_ _g101241101264_)))))) (declare (not safe)) - (_g200299200378_ _stx200298_)))) + (_g101239101318_ _stx101238_)))) (define gxc#generate-runtime-struct-direct-setq% - (lambda (_stx200199_) - (let* ((_g200201200226_ - (lambda (_g200202200223_) + (lambda (_stx101139_) + (let* ((_g101141101166_ + (lambda (_g101142101163_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g200202200223_)))) - (_g200200200295_ - (lambda (_g200202200229_) + _g101142101163_)))) + (_g101140101235_ + (lambda (_g101142101169_) (if (let () (declare (not safe)) - (gx#stx-pair? _g200202200229_)) - (let ((_e200209200231_ + (gx#stx-pair? _g101142101169_)) + (let ((_e101149101171_ (let () (declare (not safe)) - (gx#stx-e _g200202200229_)))) - (let ((_hd200208200234_ + (gx#stx-e _g101142101169_)))) + (let ((_hd101148101174_ (let () (declare (not safe)) - (##car _e200209200231_))) - (_tl200207200236_ + (##car _e101149101171_))) + (_tl101147101176_ (let () (declare (not safe)) - (##cdr _e200209200231_)))) + (##cdr _e101149101171_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200207200236_)) - (let ((_e200212200239_ + (gx#stx-pair? _tl101147101176_)) + (let ((_e101152101179_ (let () (declare (not safe)) - (gx#stx-e _tl200207200236_)))) - (let ((_hd200211200242_ + (gx#stx-e _tl101147101176_)))) + (let ((_hd101151101182_ (let () (declare (not safe)) - (##car _e200212200239_))) - (_tl200210200244_ + (##car _e101152101179_))) + (_tl101150101184_ (let () (declare (not safe)) - (##cdr _e200212200239_)))) + (##cdr _e101152101179_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200210200244_)) - (let ((_e200215200247_ + (gx#stx-pair? _tl101150101184_)) + (let ((_e101155101187_ (let () (declare (not safe)) - (gx#stx-e _tl200210200244_)))) - (let ((_hd200214200250_ + (gx#stx-e _tl101150101184_)))) + (let ((_hd101154101190_ (let () (declare (not safe)) - (##car _e200215200247_))) - (_tl200213200252_ + (##car _e101155101187_))) + (_tl101153101192_ (let () (declare (not safe)) - (##cdr _e200215200247_)))) + (##cdr _e101155101187_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200213200252_)) - (let ((_e200218200255_ + _tl101153101192_)) + (let ((_e101158101195_ (let () (declare (not safe)) (gx#stx-e - _tl200213200252_)))) - (let ((_hd200217200258_ + _tl101153101192_)))) + (let ((_hd101157101198_ (let () (declare (not safe)) - (##car _e200218200255_))) - (_tl200216200260_ + (##car _e101158101195_))) + (_tl101156101200_ (let () (declare (not safe)) - (##cdr _e200218200255_)))) + (##cdr _e101158101195_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200216200260_)) - (let ((_e200221200263_ + _tl101156101200_)) + (let ((_e101161101203_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl200216200260_)))) - (let ((_hd200220200266_ - (let () (declare (not safe)) (##car _e200221200263_))) - (_tl200219200268_ + (gx#stx-e _tl101156101200_)))) + (let ((_hd101160101206_ + (let () (declare (not safe)) (##car _e101161101203_))) + (_tl101159101208_ (let () (declare (not safe)) - (##cdr _e200221200263_)))) + (##cdr _e101161101203_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200219200268_)) - ((lambda (_L200271_ _L200272_ _L200273_ _L200274_) - (let ((__tmp214432 - (let ((__tmp214440 + (gx#stx-null? _tl101159101208_)) + ((lambda (_L101211_ _L101212_ _L101213_ _L101214_) + (let ((__tmp110804 + (let ((__tmp110812 (let () (declare (not safe)) - (gxc#compile-e__0 _L200272_))) - (__tmp214433 - (let ((__tmp214439 + (gxc#compile-e__0 _L101212_))) + (__tmp110805 + (let ((__tmp110811 (let () (declare (not safe)) (gxc#compile-e__0 - _L200271_))) - (__tmp214434 - (let ((__tmp214438 + _L101211_))) + (__tmp110806 + (let ((__tmp110810 (let () (declare (not safe)) (gxc#compile-e__0 - _L200273_))) - (__tmp214435 - (let ((__tmp214437 + _L101213_))) + (__tmp110807 + (let ((__tmp110809 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _L200274_))) - (__tmp214436 + (gxc#compile-e__0 _L101214_))) + (__tmp110808 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp214437 __tmp214436)))) + (cons __tmp110809 __tmp110808)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214438 - __tmp214435)))) + (cons __tmp110810 + __tmp110807)))) (declare (not safe)) - (cons __tmp214439 __tmp214434)))) + (cons __tmp110811 __tmp110806)))) (declare (not safe)) - (cons __tmp214440 __tmp214433)))) + (cons __tmp110812 __tmp110805)))) (declare (not safe)) - (cons '##direct-structure-set! __tmp214432))) - _hd200220200266_ - _hd200217200258_ - _hd200214200250_ - _hd200211200242_) + (cons '##direct-structure-set! __tmp110804))) + _hd101160101206_ + _hd101157101198_ + _hd101154101190_ + _hd101151101182_) (let () (declare (not safe)) - (_g200201200226_ _g200202200229_))))) + (_g101141101166_ _g101142101169_))))) (let () (declare (not safe)) - (_g200201200226_ _g200202200229_))))) + (_g101141101166_ _g101142101169_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g200201200226_ - _g200202200229_))))) + (_g101141101166_ + _g101142101169_))))) (let () (declare (not safe)) - (_g200201200226_ _g200202200229_))))) + (_g101141101166_ _g101142101169_))))) (let () (declare (not safe)) - (_g200201200226_ _g200202200229_))))) + (_g101141101166_ _g101142101169_))))) (let () (declare (not safe)) - (_g200201200226_ _g200202200229_)))))) + (_g101141101166_ _g101142101169_)))))) (declare (not safe)) - (_g200200200295_ _stx200199_)))) + (_g101140101235_ _stx101139_)))) (define gxc#generate-runtime-struct-unchecked-ref% - (lambda (_stx199995_) - (let* ((_g199997200018_ - (lambda (_g199998200015_) + (lambda (_stx100935_) + (let* ((_g100937100958_ + (lambda (_g100938100955_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g199998200015_)))) - (_g199996200196_ - (lambda (_g199998200021_) + _g100938100955_)))) + (_g100936101136_ + (lambda (_g100938100961_) (if (let () (declare (not safe)) - (gx#stx-pair? _g199998200021_)) - (let ((_e200004200023_ + (gx#stx-pair? _g100938100961_)) + (let ((_e100944100963_ (let () (declare (not safe)) - (gx#stx-e _g199998200021_)))) - (let ((_hd200003200026_ + (gx#stx-e _g100938100961_)))) + (let ((_hd100943100966_ (let () (declare (not safe)) - (##car _e200004200023_))) - (_tl200002200028_ + (##car _e100944100963_))) + (_tl100942100968_ (let () (declare (not safe)) - (##cdr _e200004200023_)))) + (##cdr _e100944100963_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200002200028_)) - (let ((_e200007200031_ + (gx#stx-pair? _tl100942100968_)) + (let ((_e100947100971_ (let () (declare (not safe)) - (gx#stx-e _tl200002200028_)))) - (let ((_hd200006200034_ + (gx#stx-e _tl100942100968_)))) + (let ((_hd100946100974_ (let () (declare (not safe)) - (##car _e200007200031_))) - (_tl200005200036_ + (##car _e100947100971_))) + (_tl100945100976_ (let () (declare (not safe)) - (##cdr _e200007200031_)))) + (##cdr _e100947100971_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200005200036_)) - (let ((_e200010200039_ + (gx#stx-pair? _tl100945100976_)) + (let ((_e100950100979_ (let () (declare (not safe)) - (gx#stx-e _tl200005200036_)))) - (let ((_hd200009200042_ + (gx#stx-e _tl100945100976_)))) + (let ((_hd100949100982_ (let () (declare (not safe)) - (##car _e200010200039_))) - (_tl200008200044_ + (##car _e100950100979_))) + (_tl100948100984_ (let () (declare (not safe)) - (##cdr _e200010200039_)))) + (##cdr _e100950100979_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200008200044_)) - (let ((_e200013200047_ + _tl100948100984_)) + (let ((_e100953100987_ (let () (declare (not safe)) (gx#stx-e - _tl200008200044_)))) - (let ((_hd200012200050_ + _tl100948100984_)))) + (let ((_hd100952100990_ (let () (declare (not safe)) - (##car _e200013200047_))) - (_tl200011200052_ + (##car _e100953100987_))) + (_tl100951100992_ (let () (declare (not safe)) - (##cdr _e200013200047_)))) + (##cdr _e100953100987_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl200011200052_)) - ((lambda (_L200055_ + _tl100951100992_)) + ((lambda (_L100995_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L200056_ - _L200057_) + _L100996_ + _L100997_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp214459 - (let ((__tmp214465 + (let ((__tmp110831 + (let ((__tmp110837 (let () (declare (not safe)) - (gxc#compile-e__0 _L200055_))) - (__tmp214460 - (let ((__tmp214464 + (gxc#compile-e__0 _L100995_))) + (__tmp110832 + (let ((__tmp110836 (let () (declare (not safe)) - (gxc#compile-e__0 _L200056_))) - (__tmp214461 - (let ((__tmp214463 + (gxc#compile-e__0 _L100996_))) + (__tmp110833 + (let ((__tmp110835 (let () (declare (not safe)) (gxc#compile-e__0 - _L200057_))) - (__tmp214462 + _L100997_))) + (__tmp110834 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp214463 __tmp214462)))) + (cons __tmp110835 __tmp110834)))) (declare (not safe)) - (cons __tmp214464 __tmp214461)))) + (cons __tmp110836 __tmp110833)))) (declare (not safe)) - (cons __tmp214465 __tmp214460)))) + (cons __tmp110837 __tmp110832)))) (declare (not safe)) - (cons '##unchecked-structure-ref __tmp214459)) - (let _lp200075_ ((_rest200078_ - (let ((__tmp214457 - (let ((__tmp214458 + (cons '##unchecked-structure-ref __tmp110831)) + (let _lp101015_ ((_rest101018_ + (let ((__tmp110829 + (let ((__tmp110830 (let () (declare (not safe)) - (cons _L200055_ + (cons _L100995_ '())))) (declare (not safe)) - (cons _L200056_ - __tmp214458)))) + (cons _L100996_ + __tmp110830)))) (declare (not safe)) - (cons _L200057_ __tmp214457))) - (_bind200080_ '()) - (_args200081_ '())) - (let* ((_rest200082200090_ _rest200078_) - (_else200084200098_ + (cons _L100997_ __tmp110829))) + (_bind101020_ '()) + (_args101021_ '())) + (let* ((_rest101022101030_ _rest101018_) + (_else101024101038_ (lambda () - (let ((__tmp214441 - (let ((__tmp214442 - (let ((__tmp214443 - (let ((__tmp214444 - (let ((__tmp214445 + (let ((__tmp110813 + (let ((__tmp110814 + (let ((__tmp110815 + (let ((__tmp110816 + (let ((__tmp110817 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp214446 + (let ((__tmp110818 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (foldr1 cons __tmp214446 _args200081_)))) + (foldr1 cons __tmp110818 _args101021_)))) (declare (not safe)) - (cons '##unchecked-structure-ref __tmp214445)))) + (cons '##unchecked-structure-ref __tmp110817)))) (declare (not safe)) - (cons __tmp214444 '())))) + (cons __tmp110816 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp214443)))) + __tmp110815)))) (declare (not safe)) - (cons _bind200080_ __tmp214442)))) + (cons _bind101020_ __tmp110814)))) (declare (not safe)) - (cons 'let __tmp214441)))) - (_K200086200184_ - (lambda (_rest200101_ _e200102_) - (let* ((___stx213660213661_ _e200102_) - (_g200107200125_ + (cons 'let __tmp110813)))) + (_K101026101124_ + (lambda (_rest101041_ _e101042_) + (let* ((___stx110032110033_ _e101042_) + (_g101047101065_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx213660213661_))))) - (let ((___kont213662213663_ + ___stx110032110033_))))) + (let ((___kont110034110035_ (lambda () - (let ((__tmp214447 - (let ((__tmp214448 + (let ((__tmp110819 + (let ((__tmp110820 (let () (declare (not safe)) (gxc#compile-e__0 - _e200102_)))) + _e101042_)))) (declare (not safe)) - (cons __tmp214448 - _args200081_)))) + (cons __tmp110820 + _args101021_)))) (declare (not safe)) - (_lp200075_ - _rest200101_ - _bind200080_ - __tmp214447)))) - (___kont213664213665_ + (_lp101015_ + _rest101041_ + _bind101020_ + __tmp110819)))) + (___kont110036110037_ (lambda () - (let ((__tmp214449 - (let ((__tmp214450 + (let ((__tmp110821 + (let ((__tmp110822 (let () (declare (not safe)) (gxc#compile-e__0 - _e200102_)))) + _e101042_)))) (declare (not safe)) - (cons __tmp214450 - _args200081_)))) + (cons __tmp110822 + _args101021_)))) (declare (not safe)) - (_lp200075_ - _rest200101_ - _bind200080_ - __tmp214449)))) - (___kont213666213667_ + (_lp101015_ + _rest101041_ + _bind101020_ + __tmp110821)))) + (___kont110038110039_ (lambda () - (let ((_tmp200132_ - (let ((__tmp214451 + (let ((_tmp101072_ + (let ((__tmp110823 (gensym '__tmp))) (declare (not safe)) (make-symbol__0 - __tmp214451)))) - (let ((__tmp214453 - (let ((__tmp214454 - (let ((__tmp214455 + __tmp110823)))) + (let ((__tmp110825 + (let ((__tmp110826 + (let ((__tmp110827 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp214456 + (let ((__tmp110828 (let () (declare (not safe)) - (gxc#compile-e__0 _e200102_)))) + (gxc#compile-e__0 _e101042_)))) (declare (not safe)) - (cons __tmp214456 '())))) + (cons __tmp110828 '())))) (declare (not safe)) - (cons _tmp200132_ __tmp214455)))) + (cons _tmp101072_ __tmp110827)))) (declare (not safe)) - (cons __tmp214454 _bind200080_))) - (__tmp214452 - (let () (declare (not safe)) (cons _tmp200132_ _args200081_)))) + (cons __tmp110826 _bind101020_))) + (__tmp110824 + (let () (declare (not safe)) (cons _tmp101072_ _args101021_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp200075_ - _rest200101_ - __tmp214453 - __tmp214452)))))) + (_lp101015_ + _rest101041_ + __tmp110825 + __tmp110824)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx213660213661_)) - (let ((_e200111200163_ + ___stx110032110033_)) + (let ((_e101051101103_ (let () (declare (not safe)) (gx#stx-e - ___stx213660213661_)))) - (let ((_tl200109200168_ + ___stx110032110033_)))) + (let ((_tl101049101108_ (let () (declare (not safe)) - (##cdr _e200111200163_))) - (_hd200110200166_ + (##cdr _e101051101103_))) + (_hd101050101106_ (let () (declare (not safe)) - (##car _e200111200163_)))) + (##car _e101051101103_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd200110200166_)) + _hd101050101106_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd200110200166_)) + _hd101050101106_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200109200168_)) - (let ((_e200114200171_ + _tl101049101108_)) + (let ((_e101054101111_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl200109200168_)))) - (let ((_tl200112200176_ + (gx#stx-e _tl101049101108_)))) + (let ((_tl101052101116_ (let () (declare (not safe)) - (##cdr _e200114200171_))) - (_hd200113200174_ + (##cdr _e101054101111_))) + (_hd101053101114_ (let () (declare (not safe)) - (##car _e200114200171_)))) + (##car _e101054101111_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200112200176_)) - (___kont213662213663_) - (___kont213666213667_)))) - (___kont213666213667_)) + (gx#stx-null? _tl101052101116_)) + (___kont110034110035_) + (___kont110038110039_)))) + (___kont110038110039_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd200110200166_)) + (gx#stx-eq? '%#quote _hd101050101106_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200109200168_)) - (let ((_e200120200148_ + (gx#stx-pair? _tl101049101108_)) + (let ((_e101060101088_ (let () (declare (not safe)) - (gx#stx-e _tl200109200168_)))) - (let ((_tl200118200153_ + (gx#stx-e _tl101049101108_)))) + (let ((_tl101058101093_ (let () (declare (not safe)) - (##cdr _e200120200148_))) - (_hd200119200151_ + (##cdr _e101060101088_))) + (_hd101059101091_ (let () (declare (not safe)) - (##car _e200120200148_)))) + (##car _e101060101088_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200118200153_)) - (___kont213664213665_) - (___kont213666213667_)))) - (___kont213666213667_)) - (___kont213666213667_))) + (gx#stx-null? _tl101058101093_)) + (___kont110036110037_) + (___kont110038110039_)))) + (___kont110038110039_)) + (___kont110038110039_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont213666213667_)))) - (___kont213666213667_))))))) + (___kont110038110039_)))) + (___kont110038110039_))))))) (if (let () (declare (not safe)) - (##pair? _rest200082200090_)) - (let ((_hd200087200187_ + (##pair? _rest101022101030_)) + (let ((_hd101027101127_ (let () (declare (not safe)) - (##car _rest200082200090_))) - (_tl200088200189_ + (##car _rest101022101030_))) + (_tl101028101129_ (let () (declare (not safe)) - (##cdr _rest200082200090_)))) - (let* ((_e200192_ _hd200087200187_) - (_rest200194_ _tl200088200189_)) + (##cdr _rest101022101030_)))) + (let* ((_e101132_ _hd101027101127_) + (_rest101134_ _tl101028101129_)) (declare (not safe)) - (_K200086200184_ _rest200194_ _e200192_))) + (_K101026101124_ _rest101134_ _e101132_))) (let () (declare (not safe)) - (_else200084200098_))))))) - _hd200012200050_ - _hd200009200042_ - _hd200006200034_) + (_else101024101038_))))))) + _hd100952100990_ + _hd100949100982_ + _hd100946100974_) (let () (declare (not safe)) - (_g199997200018_ _g199998200021_))))) + (_g100937100958_ _g100938100961_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g199997200018_ - _g199998200021_))))) + (_g100937100958_ + _g100938100961_))))) (let () (declare (not safe)) - (_g199997200018_ _g199998200021_))))) + (_g100937100958_ _g100938100961_))))) (let () (declare (not safe)) - (_g199997200018_ _g199998200021_))))) + (_g100937100958_ _g100938100961_))))) (let () (declare (not safe)) - (_g199997200018_ _g199998200021_)))))) + (_g100937100958_ _g100938100961_)))))) (declare (not safe)) - (_g199996200196_ _stx199995_)))) + (_g100936101136_ _stx100935_)))) (define gxc#generate-runtime-struct-unchecked-setq% - (lambda (_stx199775_) - (let* ((_g199777199802_ - (lambda (_g199778199799_) + (lambda (_stx100715_) + (let* ((_g100717100742_ + (lambda (_g100718100739_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g199778199799_)))) - (_g199776199992_ - (lambda (_g199778199805_) + _g100718100739_)))) + (_g100716100932_ + (lambda (_g100718100745_) (if (let () (declare (not safe)) - (gx#stx-pair? _g199778199805_)) - (let ((_e199785199807_ + (gx#stx-pair? _g100718100745_)) + (let ((_e100725100747_ (let () (declare (not safe)) - (gx#stx-e _g199778199805_)))) - (let ((_hd199784199810_ + (gx#stx-e _g100718100745_)))) + (let ((_hd100724100750_ (let () (declare (not safe)) - (##car _e199785199807_))) - (_tl199783199812_ + (##car _e100725100747_))) + (_tl100723100752_ (let () (declare (not safe)) - (##cdr _e199785199807_)))) + (##cdr _e100725100747_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199783199812_)) - (let ((_e199788199815_ + (gx#stx-pair? _tl100723100752_)) + (let ((_e100728100755_ (let () (declare (not safe)) - (gx#stx-e _tl199783199812_)))) - (let ((_hd199787199818_ + (gx#stx-e _tl100723100752_)))) + (let ((_hd100727100758_ (let () (declare (not safe)) - (##car _e199788199815_))) - (_tl199786199820_ + (##car _e100728100755_))) + (_tl100726100760_ (let () (declare (not safe)) - (##cdr _e199788199815_)))) + (##cdr _e100728100755_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199786199820_)) - (let ((_e199791199823_ + (gx#stx-pair? _tl100726100760_)) + (let ((_e100731100763_ (let () (declare (not safe)) - (gx#stx-e _tl199786199820_)))) - (let ((_hd199790199826_ + (gx#stx-e _tl100726100760_)))) + (let ((_hd100730100766_ (let () (declare (not safe)) - (##car _e199791199823_))) - (_tl199789199828_ + (##car _e100731100763_))) + (_tl100729100768_ (let () (declare (not safe)) - (##cdr _e199791199823_)))) + (##cdr _e100731100763_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl199789199828_)) - (let ((_e199794199831_ + _tl100729100768_)) + (let ((_e100734100771_ (let () (declare (not safe)) (gx#stx-e - _tl199789199828_)))) - (let ((_hd199793199834_ + _tl100729100768_)))) + (let ((_hd100733100774_ (let () (declare (not safe)) - (##car _e199794199831_))) - (_tl199792199836_ + (##car _e100734100771_))) + (_tl100732100776_ (let () (declare (not safe)) - (##cdr _e199794199831_)))) + (##cdr _e100734100771_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl199792199836_)) - (let ((_e199797199839_ + _tl100732100776_)) + (let ((_e100737100779_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl199792199836_)))) - (let ((_hd199796199842_ - (let () (declare (not safe)) (##car _e199797199839_))) - (_tl199795199844_ + (gx#stx-e _tl100732100776_)))) + (let ((_hd100736100782_ + (let () (declare (not safe)) (##car _e100737100779_))) + (_tl100735100784_ (let () (declare (not safe)) - (##cdr _e199797199839_)))) + (##cdr _e100737100779_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl199795199844_)) - ((lambda (_L199847_ _L199848_ _L199849_ _L199850_) + (gx#stx-null? _tl100735100784_)) + ((lambda (_L100787_ _L100788_ _L100789_ _L100790_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp214485 - (let ((__tmp214493 + (let ((__tmp110857 + (let ((__tmp110865 (let () (declare (not safe)) - (gxc#compile-e__0 _L199848_))) - (__tmp214486 - (let ((__tmp214492 + (gxc#compile-e__0 _L100788_))) + (__tmp110858 + (let ((__tmp110864 (let () (declare (not safe)) (gxc#compile-e__0 - _L199847_))) - (__tmp214487 - (let ((__tmp214491 + _L100787_))) + (__tmp110859 + (let ((__tmp110863 (let () (declare (not safe)) (gxc#compile-e__0 - _L199849_))) - (__tmp214488 - (let ((__tmp214490 + _L100789_))) + (__tmp110860 + (let ((__tmp110862 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L199850_))) - (__tmp214489 + (gxc#compile-e__0 _L100790_))) + (__tmp110861 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp214490 __tmp214489)))) + (cons __tmp110862 __tmp110861)))) (declare (not safe)) - (cons __tmp214491 __tmp214488)))) + (cons __tmp110863 __tmp110860)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214492 - __tmp214487)))) + (cons __tmp110864 + __tmp110859)))) (declare (not safe)) - (cons __tmp214493 __tmp214486)))) + (cons __tmp110865 __tmp110858)))) (declare (not safe)) (cons '##unchecked-structure-set! - __tmp214485)) - (let _lp199871_ ((_rest199874_ - (let ((__tmp214482 - (let ((__tmp214483 - (let ((__tmp214484 + __tmp110857)) + (let _lp100811_ ((_rest100814_ + (let ((__tmp110854 + (let ((__tmp110855 + (let ((__tmp110856 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L199848_ '())))) + (cons _L100788_ '())))) (declare (not safe)) - (cons _L199847_ __tmp214484)))) + (cons _L100787_ __tmp110856)))) (declare (not safe)) - (cons _L199849_ __tmp214483)))) + (cons _L100789_ __tmp110855)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L199850_ - __tmp214482))) - (_bind199876_ '()) - (_args199877_ '())) - (let* ((_rest199878199886_ _rest199874_) - (_else199880199894_ + (cons _L100790_ + __tmp110854))) + (_bind100816_ '()) + (_args100817_ '())) + (let* ((_rest100818100826_ _rest100814_) + (_else100820100834_ (lambda () - (let ((__tmp214466 - (let ((__tmp214467 - (let ((__tmp214468 - (let ((__tmp214469 + (let ((__tmp110838 + (let ((__tmp110839 + (let ((__tmp110840 + (let ((__tmp110841 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp214470 - (let ((__tmp214471 + (let ((__tmp110842 + (let ((__tmp110843 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) (foldr1 cons - __tmp214471 - _args199877_)))) + __tmp110843 + _args100817_)))) (declare (not safe)) (cons '##unchecked-structure-set! - __tmp214470)))) + __tmp110842)))) (declare (not safe)) - (cons __tmp214469 '())))) + (cons __tmp110841 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp214468)))) + (cons '(declare (not safe)) __tmp110840)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _bind199876_ - __tmp214467)))) + (cons _bind100816_ + __tmp110839)))) (declare (not safe)) - (cons 'let __tmp214466)))) - (_K199882199980_ - (lambda (_rest199897_ _e199898_) - (let* ((___stx213706213707_ - _e199898_) - (_g199903199921_ + (cons 'let __tmp110838)))) + (_K100822100920_ + (lambda (_rest100837_ _e100838_) + (let* ((___stx110078110079_ + _e100838_) + (_g100843100861_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx213706213707_))))) - (let ((___kont213708213709_ + ___stx110078110079_))))) + (let ((___kont110080110081_ (lambda () - (let ((__tmp214472 - (let ((__tmp214473 + (let ((__tmp110844 + (let ((__tmp110845 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e199898_)))) + (gxc#compile-e__0 _e100838_)))) (declare (not safe)) - (cons __tmp214473 _args199877_)))) + (cons __tmp110845 _args100817_)))) (declare (not safe)) - (_lp199871_ _rest199897_ _bind199876_ __tmp214472)))) + (_lp100811_ _rest100837_ _bind100816_ __tmp110844)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont213710213711_ + (___kont110082110083_ (lambda () - (let ((__tmp214474 - (let ((__tmp214475 + (let ((__tmp110846 + (let ((__tmp110847 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e199898_)))) + (gxc#compile-e__0 _e100838_)))) (declare (not safe)) - (cons __tmp214475 _args199877_)))) + (cons __tmp110847 _args100817_)))) (declare (not safe)) - (_lp199871_ _rest199897_ _bind199876_ __tmp214474)))) + (_lp100811_ _rest100837_ _bind100816_ __tmp110846)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont213712213713_ + (___kont110084110085_ (lambda () - (let ((_tmp199928_ - (let ((__tmp214476 + (let ((_tmp100868_ + (let ((__tmp110848 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp214476)))) - (let ((__tmp214478 - (let ((__tmp214479 - (let ((__tmp214480 - (let ((__tmp214481 + (make-symbol__0 __tmp110848)))) + (let ((__tmp110850 + (let ((__tmp110851 + (let ((__tmp110852 + (let ((__tmp110853 (let () (declare (not safe)) - (gxc#compile-e__0 _e199898_)))) + (gxc#compile-e__0 _e100838_)))) (declare (not safe)) - (cons __tmp214481 '())))) + (cons __tmp110853 '())))) (declare (not safe)) - (cons _tmp199928_ __tmp214480)))) + (cons _tmp100868_ __tmp110852)))) (declare (not safe)) - (cons __tmp214479 _bind199876_))) - (__tmp214477 + (cons __tmp110851 _bind100816_))) + (__tmp110849 (let () (declare (not safe)) - (cons _tmp199928_ _args199877_)))) + (cons _tmp100868_ _args100817_)))) (declare (not safe)) - (_lp199871_ _rest199897_ __tmp214478 __tmp214477)))))) + (_lp100811_ _rest100837_ __tmp110850 __tmp110849)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx213706213707_)) - (let ((_e199907199959_ + ___stx110078110079_)) + (let ((_e100847100899_ (let () (declare (not safe)) (gx#stx-e - ___stx213706213707_)))) - (let ((_tl199905199964_ + ___stx110078110079_)))) + (let ((_tl100845100904_ (let () (declare (not safe)) - (##cdr _e199907199959_))) - (_hd199906199962_ + (##cdr _e100847100899_))) + (_hd100846100902_ (let () (declare (not safe)) - (##car _e199907199959_)))) + (##car _e100847100899_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd199906199962_)) + _hd100846100902_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-eq? '%#ref _hd199906199962_)) + (gx#stx-eq? '%#ref _hd100846100902_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199905199964_)) - (let ((_e199910199967_ + (gx#stx-pair? _tl100845100904_)) + (let ((_e100850100907_ (let () (declare (not safe)) - (gx#stx-e _tl199905199964_)))) - (let ((_tl199908199972_ + (gx#stx-e _tl100845100904_)))) + (let ((_tl100848100912_ (let () (declare (not safe)) - (##cdr _e199910199967_))) - (_hd199909199970_ + (##cdr _e100850100907_))) + (_hd100849100910_ (let () (declare (not safe)) - (##car _e199910199967_)))) + (##car _e100850100907_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl199908199972_)) - (___kont213708213709_) - (___kont213712213713_)))) - (___kont213712213713_)) + (gx#stx-null? _tl100848100912_)) + (___kont110080110081_) + (___kont110084110085_)))) + (___kont110084110085_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd199906199962_)) + (gx#stx-eq? '%#quote _hd100846100902_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199905199964_)) - (let ((_e199916199944_ + (gx#stx-pair? _tl100845100904_)) + (let ((_e100856100884_ (let () (declare (not safe)) - (gx#stx-e _tl199905199964_)))) - (let ((_tl199914199949_ + (gx#stx-e _tl100845100904_)))) + (let ((_tl100854100889_ (let () (declare (not safe)) - (##cdr _e199916199944_))) - (_hd199915199947_ + (##cdr _e100856100884_))) + (_hd100855100887_ (let () (declare (not safe)) - (##car _e199916199944_)))) + (##car _e100856100884_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl199914199949_)) - (___kont213710213711_) - (___kont213712213713_)))) - (___kont213712213713_)) - (___kont213712213713_))) - (___kont213712213713_)))) + (gx#stx-null? _tl100854100889_)) + (___kont110082110083_) + (___kont110084110085_)))) + (___kont110084110085_)) + (___kont110084110085_))) + (___kont110084110085_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont213712213713_))))))) + (___kont110084110085_))))))) (if (let () (declare (not safe)) - (##pair? _rest199878199886_)) - (let ((_hd199883199983_ + (##pair? _rest100818100826_)) + (let ((_hd100823100923_ (let () (declare (not safe)) - (##car _rest199878199886_))) - (_tl199884199985_ + (##car _rest100818100826_))) + (_tl100824100925_ (let () (declare (not safe)) - (##cdr _rest199878199886_)))) - (let* ((_e199988_ _hd199883199983_) - (_rest199990_ - _tl199884199985_)) + (##cdr _rest100818100826_)))) + (let* ((_e100928_ _hd100823100923_) + (_rest100930_ + _tl100824100925_)) (declare (not safe)) - (_K199882199980_ - _rest199990_ - _e199988_))) + (_K100822100920_ + _rest100930_ + _e100928_))) (let () (declare (not safe)) - (_else199880199894_))))))) - _hd199796199842_ - _hd199793199834_ - _hd199790199826_ - _hd199787199818_) + (_else100820100834_))))))) + _hd100736100782_ + _hd100733100774_ + _hd100730100766_ + _hd100727100758_) (let () (declare (not safe)) - (_g199777199802_ _g199778199805_))))) + (_g100717100742_ _g100718100745_))))) (let () (declare (not safe)) - (_g199777199802_ _g199778199805_))))) + (_g100717100742_ _g100718100745_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g199777199802_ - _g199778199805_))))) + (_g100717100742_ + _g100718100745_))))) (let () (declare (not safe)) - (_g199777199802_ _g199778199805_))))) + (_g100717100742_ _g100718100745_))))) (let () (declare (not safe)) - (_g199777199802_ _g199778199805_))))) + (_g100717100742_ _g100718100745_))))) (let () (declare (not safe)) - (_g199777199802_ _g199778199805_)))))) + (_g100717100742_ _g100718100745_)))))) (declare (not safe)) - (_g199776199992_ _stx199775_)))) + (_g100716100932_ _stx100715_)))) (define gxc#generate-runtime-loader-import% - (lambda (_stx199629_) - (letrec ((_import-set-template199631_ - (lambda (_in199727_ _phi199728_) - (let ((_iphi199730_ - (fx+ _phi199728_ + (lambda (_stx100569_) + (letrec ((_import-set-template100571_ + (lambda (_in100667_ _phi100668_) + (let ((_iphi100670_ + (fx+ _phi100668_ (##direct-structure-ref - _in199727_ + _in100667_ '2 gx#import-set::t '#f))) - (_imports199731_ + (_imports100671_ (##structure-ref (##direct-structure-ref - _in199727_ + _in100667_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _lp199733_ ((_rest199735_ _imports199731_) - (_r199736_ '())) - (let* ((_rest199737199745_ _rest199735_) - (_else199739199753_ (lambda () _r199736_)) - (_K199741199763_ - (lambda (_rest199756_ _in199757_) + (let _lp100673_ ((_rest100675_ _imports100671_) + (_r100676_ '())) + (let* ((_rest100677100685_ _rest100675_) + (_else100679100693_ (lambda () _r100676_)) + (_K100681100703_ + (lambda (_rest100696_ _in100697_) (if (let () (declare (not safe)) (##structure-instance-of? - _in199757_ + _in100697_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (fxzero? _iphi199730_)) - (let ((__tmp214500 + (fxzero? _iphi100670_)) + (let ((__tmp110872 (let () (declare (not safe)) - (cons _in199757_ - _r199736_)))) + (cons _in100697_ + _r100676_)))) (declare (not safe)) - (_lp199733_ - _rest199756_ - __tmp214500)) + (_lp100673_ + _rest100696_ + __tmp110872)) (let () (declare (not safe)) - (_lp199733_ - _rest199756_ - _r199736_))) + (_lp100673_ + _rest100696_ + _r100676_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in199757_ + _in100697_ 'gx#module-import::t)) - (let ((_iphi199759_ - (fx+ _phi199728_ + (let ((_iphi100699_ + (fx+ _phi100668_ (##direct-structure-ref - _in199757_ + _in100697_ '3 gx#module-import::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _iphi199759_)) - (let ((__tmp214498 - (let ((__tmp214499 + (fxzero? _iphi100699_)) + (let ((__tmp110870 + (let ((__tmp110871 (##direct-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in199757_ + _in100697_ '1 gx#module-import::t '#f) @@ -15247,195 +15241,194 @@ gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp214499 _r199736_)))) + (cons __tmp110871 _r100676_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp199733_ - _rest199756_ - __tmp214498)) + (_lp100673_ + _rest100696_ + __tmp110870)) (let () (declare (not safe)) - (_lp199733_ - _rest199756_ - _r199736_)))) + (_lp100673_ + _rest100696_ + _r100676_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in199757_ + _in100697_ 'gx#import-set::t)) - (let ((_xphi199761_ - (fx+ _iphi199730_ + (let ((_xphi100701_ + (fx+ _iphi100670_ (##direct-structure-ref - _in199757_ + _in100697_ '2 gx#import-set::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _xphi199761_)) - (let ((__tmp214496 - (let ((__tmp214497 + (fxzero? _xphi100701_)) + (let ((__tmp110868 + (let ((__tmp110869 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in199757_ + _in100697_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp214497 _r199736_)))) + (cons __tmp110869 _r100676_)))) (declare (not safe)) - (_lp199733_ _rest199756_ __tmp214496)) - (if (fxpositive? _xphi199761_) - (let ((__tmp214494 - (let ((__tmp214495 + (_lp100673_ _rest100696_ __tmp110868)) + (if (fxpositive? _xphi100701_) + (let ((__tmp110866 + (let ((__tmp110867 (let () (declare (not safe)) - (_import-set-template199631_ - _in199757_ - _iphi199730_)))) + (_import-set-template100571_ + _in100697_ + _iphi100670_)))) (declare (not safe)) - (foldl1 cons _r199736_ __tmp214495)))) + (foldl1 cons _r100676_ __tmp110867)))) (declare (not safe)) - (_lp199733_ _rest199756_ __tmp214494)) + (_lp100673_ _rest100696_ __tmp110866)) (let () (declare (not safe)) - (_lp199733_ _rest199756_ _r199736_))))) + (_lp100673_ _rest100696_ _r100676_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp199733_ - _rest199756_ - _r199736_)))))))) + (_lp100673_ + _rest100696_ + _r100676_)))))))) (if (let () (declare (not safe)) - (##pair? _rest199737199745_)) - (let ((_hd199742199766_ + (##pair? _rest100677100685_)) + (let ((_hd100682100706_ (let () (declare (not safe)) - (##car _rest199737199745_))) - (_tl199743199768_ + (##car _rest100677100685_))) + (_tl100683100708_ (let () (declare (not safe)) - (##cdr _rest199737199745_)))) - (let* ((_in199771_ _hd199742199766_) - (_rest199773_ _tl199743199768_)) + (##cdr _rest100677100685_)))) + (let* ((_in100711_ _hd100682100706_) + (_rest100713_ _tl100683100708_)) (declare (not safe)) - (_K199741199763_ _rest199773_ _in199771_))) + (_K100681100703_ _rest100713_ _in100711_))) (let () (declare (not safe)) - (_else199739199753_))))))))) - (let* ((_g199633199643_ - (lambda (_g199634199640_) + (_else100679100693_))))))))) + (let* ((_g100573100583_ + (lambda (_g100574100580_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g199634199640_)))) - (_g199632199724_ - (lambda (_g199634199646_) + _g100574100580_)))) + (_g100572100664_ + (lambda (_g100574100586_) (if (let () (declare (not safe)) - (gx#stx-pair? _g199634199646_)) - (let ((_e199638199648_ + (gx#stx-pair? _g100574100586_)) + (let ((_e100578100588_ (let () (declare (not safe)) - (gx#stx-e _g199634199646_)))) - (let ((_hd199637199651_ + (gx#stx-e _g100574100586_)))) + (let ((_hd100577100591_ (let () (declare (not safe)) - (##car _e199638199648_))) - (_tl199636199653_ + (##car _e100578100588_))) + (_tl100576100593_ (let () (declare (not safe)) - (##cdr _e199638199648_)))) - ((lambda (_L199656_) - (let ((_ht199667_ + (##cdr _e100578100588_)))) + ((lambda (_L100596_) + (let ((_ht100607_ (let () (declare (not safe)) - (make-table 'test: eq?)))) - (let _lp199669_ ((_rest199671_ _L199656_) - (_loads199672_ '())) - (letrec ((_K199674_ - (lambda (_ctx199717_ - _rest199718_) - (let ((_id199720_ + (make-hash-table-eq)))) + (let _lp100609_ ((_rest100611_ _L100596_) + (_loads100612_ '())) + (letrec ((_K100614_ + (lambda (_ctx100657_ + _rest100658_) + (let ((_id100660_ (##structure-ref - _ctx199717_ + _ctx100657_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) - (table-ref - _ht199667_ - _id199720_ - '#f)) + (hash-get + _ht100607_ + _id100660_)) (let () (declare (not safe)) - (_lp199669_ - _rest199718_ - _loads199672_)) - (let ((_rt199722_ + (_lp100609_ + _rest100658_ + _loads100612_)) + (let ((_rt100662_ (string-append (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#module-id->path-string _id199720_)) + (gxc#module-id->path-string _id100660_)) '"__rt"))) (let () (declare (not safe)) - (table-set! _ht199667_ _id199720_ _rt199722_)) - (let ((__tmp214501 + (hash-put! _ht100607_ _id100660_ _rt100662_)) + (let ((__tmp110873 (let () (declare (not safe)) - (cons _rt199722_ _loads199672_)))) + (cons _rt100662_ _loads100612_)))) (declare (not safe)) - (_lp199669_ _rest199718_ __tmp214501)))))))) + (_lp100609_ _rest100658_ __tmp110873)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest199675199683_ _rest199671_) - (_else199677199695_ + (let* ((_rest100615100623_ _rest100611_) + (_else100617100635_ (lambda () - (let ((__tmp214502 - (map (lambda (_g199690199692_) + (let ((__tmp110874 + (map (lambda (_g100630100632_) (list 'load-module ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g199690199692_)) - (reverse _loads199672_)))) + _g100630100632_)) + (reverse _loads100612_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'begin __tmp214502)))) - (_K199679199705_ - (lambda (_rest199698_ - _in199699_) + (cons 'begin __tmp110874)))) + (_K100619100645_ + (lambda (_rest100638_ + _in100639_) (if (let () (declare (not safe)) (##structure-instance-of? - _in199699_ + _in100639_ 'gx#module-context::t)) (let () (declare (not safe)) - (_K199674_ - _in199699_ - _rest199698_)) + (_K100614_ + _in100639_ + _rest100638_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in199699_ + _in100639_ 'gx#module-import::t)) - (if (let ((__tmp214506 + (if (let ((__tmp110878 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in199699_ + _in100639_ '3 gx#module-import::t '#f))) (declare (not safe)) - (fxzero? __tmp214506)) - (let ((__tmp214505 + (fxzero? __tmp110878)) + (let ((__tmp110877 (##direct-structure-ref (##direct-structure-ref - _in199699_ + _in100639_ '1 gx#module-import::t '#f) @@ -15443,555 +15436,556 @@ gx#module-export::t '#f))) (declare (not safe)) - (_K199674_ __tmp214505 _rest199698_)) + (_K100614_ __tmp110877 _rest100638_)) (let () (declare (not safe)) - (_lp199669_ _rest199698_ _loads199672_))) + (_lp100609_ _rest100638_ _loads100612_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in199699_ + _in100639_ 'gx#import-set::t)) - (let ((_phi199701_ + (let ((_phi100641_ (##direct-structure-ref - _in199699_ + _in100639_ '2 gx#import-set::t '#f))) - (if (let () (declare (not safe)) (fxzero? _phi199701_)) - (let ((__tmp214504 + (if (let () (declare (not safe)) (fxzero? _phi100641_)) + (let ((__tmp110876 (##direct-structure-ref - _in199699_ + _in100639_ '1 gx#import-set::t '#f))) (declare (not safe)) - (_K199674_ __tmp214504 _rest199698_)) - (if (fxpositive? _phi199701_) - (let* ((_deps199703_ + (_K100614_ __tmp110876 _rest100638_)) + (if (fxpositive? _phi100641_) + (let* ((_deps100643_ (let () (declare (not safe)) - (_import-set-template199631_ - _in199699_ + (_import-set-template100571_ + _in100639_ '0))) - (__tmp214503 + (__tmp110875 (let () (declare (not safe)) (foldl1 cons - _rest199698_ - _deps199703_)))) + _rest100638_ + _deps100643_)))) (declare (not safe)) - (_lp199669_ __tmp214503 _loads199672_)) + (_lp100609_ __tmp110875 _loads100612_)) (let () (declare (not safe)) - (_lp199669_ _rest199698_ _loads199672_))))) + (_lp100609_ _rest100638_ _loads100612_))))) (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected import" - _stx199629_ - _in199699_)))))))) + _stx100569_ + _in100639_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest199675199683_)) - (let ((_hd199680199708_ + (##pair? _rest100615100623_)) + (let ((_hd100620100648_ (let () (declare (not safe)) - (##car _rest199675199683_))) - (_tl199681199710_ + (##car _rest100615100623_))) + (_tl100621100650_ (let () (declare (not safe)) - (##cdr _rest199675199683_)))) - (let* ((_in199713_ - _hd199680199708_) - (_rest199715_ - _tl199681199710_)) + (##cdr _rest100615100623_)))) + (let* ((_in100653_ + _hd100620100648_) + (_rest100655_ + _tl100621100650_)) (declare (not safe)) - (_K199679199705_ - _rest199715_ - _in199713_))) + (_K100619100645_ + _rest100655_ + _in100653_))) (let () (declare (not safe)) - (_else199677199695_)))))))) - _tl199636199653_))) + (_else100617100635_)))))))) + _tl100576100593_))) (let () (declare (not safe)) - (_g199633199643_ _g199634199646_)))))) + (_g100573100583_ _g100574100586_)))))) (declare (not safe)) - (_g199632199724_ _stx199629_))))) + (_g100572100664_ _stx100569_))))) (define gxc#generate-runtime-quote-syntax% - (lambda (_stx199445_) - (letrec ((_add-lift!199447_ - (lambda (_expr199627_) + (lambda (_stx100385_) + (letrec ((_add-lift!100387_ + (lambda (_expr100567_) (set-box! (gxc#current-compile-lift) - (let ((__tmp214507 (unbox (gxc#current-compile-lift)))) + (let ((__tmp110879 (unbox (gxc#current-compile-lift)))) (declare (not safe)) - (cons _expr199627_ __tmp214507))))) - (_generate-syntax-quote199448_ - (lambda (_id199624_ _marks199625_) - (let ((__tmp214508 - (let ((__tmp214509 - (let ((__tmp214513 - (let ((__tmp214514 + (cons _expr100567_ __tmp110879))))) + (_generate-syntax-quote100388_ + (lambda (_id100564_ _marks100565_) + (let ((__tmp110880 + (let ((__tmp110881 + (let ((__tmp110885 + (let ((__tmp110886 (let () (declare (not safe)) - (cons _id199624_ '())))) + (cons _id100564_ '())))) (declare (not safe)) - (cons 'quote __tmp214514))) - (__tmp214510 - (let ((__tmp214511 - (let ((__tmp214512 + (cons 'quote __tmp110886))) + (__tmp110882 + (let ((__tmp110883 + (let ((__tmp110884 (let () (declare (not safe)) - (cons _marks199625_ + (cons _marks100565_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(gx#current-expander-context) - __tmp214512)))) + __tmp110884)))) (declare (not safe)) - (cons '#f __tmp214511)))) + (cons '#f __tmp110883)))) (declare (not safe)) - (cons __tmp214513 __tmp214510)))) + (cons __tmp110885 __tmp110882)))) (declare (not safe)) - (cons 'gx#syntax-quote::t __tmp214509)))) + (cons 'gx#syntax-quote::t __tmp110881)))) (declare (not safe)) - (cons '##structure __tmp214508)))) - (_generate-simple199449_ - (lambda (_stxq199619_) - (let ((_gid199621_ + (cons '##structure __tmp110880)))) + (_generate-simple100389_ + (lambda (_stxq100559_) + (let ((_gid100561_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_qid199622_ + (_qid100562_ (let () (declare (not safe)) (gxc#generate-runtime-identifier - _stxq199619_)))) - (let ((__tmp214515 - (let ((__tmp214516 - (let ((__tmp214517 - (let ((__tmp214518 + _stxq100559_)))) + (let ((__tmp110887 + (let ((__tmp110888 + (let ((__tmp110889 + (let ((__tmp110890 (let () (declare (not safe)) - (_generate-syntax-quote199448_ - _qid199622_ + (_generate-syntax-quote100388_ + _qid100562_ ''())))) (declare (not safe)) - (cons __tmp214518 '())))) + (cons __tmp110890 '())))) (declare (not safe)) - (cons _gid199621_ __tmp214517)))) + (cons _gid100561_ __tmp110889)))) (declare (not safe)) - (cons 'define __tmp214516)))) + (cons 'define __tmp110888)))) (declare (not safe)) - (_add-lift!199447_ __tmp214515)) - (let ((__tmp214519 (gxc#current-compile-identifiers))) + (_add-lift!100387_ __tmp110887)) + (let ((__tmp110891 (gxc#current-compile-identifiers))) (declare (not safe)) - (table-set! __tmp214519 _stxq199619_ _gid199621_)) - _gid199621_))) - (_generate-serialized199450_ - (lambda (_stxq199609_ _marks199610_) - (let* ((_mark-refs199612_ - (map _generate-mark199451_ _marks199610_)) - (_gid199614_ + (hash-put! __tmp110891 _stxq100559_ _gid100561_)) + _gid100561_))) + (_generate-serialized100390_ + (lambda (_stxq100549_ _marks100550_) + (let* ((_mark-refs100552_ + (map _generate-mark100391_ _marks100550_)) + (_gid100554_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_qid199616_ + (_qid100556_ (let () (declare (not safe)) (gxc#generate-runtime-identifier - _stxq199609_)))) - (let ((__tmp214520 - (let ((__tmp214521 - (let ((__tmp214522 - (let ((__tmp214523 - (let ((__tmp214524 + _stxq100549_)))) + (let ((__tmp110892 + (let ((__tmp110893 + (let ((__tmp110894 + (let ((__tmp110895 + (let ((__tmp110896 (let () (declare (not safe)) (cons 'list ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _mark-refs199612_)))) + _mark-refs100552_)))) (declare (not safe)) - (_generate-syntax-quote199448_ _qid199616_ __tmp214524)))) + (_generate-syntax-quote100388_ _qid100556_ __tmp110896)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214523 '())))) + (cons __tmp110895 '())))) (declare (not safe)) - (cons _gid199614_ __tmp214522)))) + (cons _gid100554_ __tmp110894)))) (declare (not safe)) - (cons 'define __tmp214521)))) + (cons 'define __tmp110893)))) (declare (not safe)) - (_add-lift!199447_ __tmp214520)) - (let ((__tmp214525 (gxc#current-compile-identifiers))) + (_add-lift!100387_ __tmp110892)) + (let ((__tmp110897 (gxc#current-compile-identifiers))) (declare (not safe)) - (table-set! __tmp214525 _stxq199609_ _gid199614_)) - _gid199614_))) - (_generate-mark199451_ - (lambda (_mark199595_) - (let ((_$e199597_ - (let ((__tmp214526 (gxc#current-compile-marks))) + (hash-put! __tmp110897 _stxq100549_ _gid100554_)) + _gid100554_))) + (_generate-mark100391_ + (lambda (_mark100535_) + (let ((_$e100537_ + (let ((__tmp110898 (gxc#current-compile-marks))) (declare (not safe)) - (table-ref __tmp214526 _mark199595_ '#f)))) - (if _$e199597_ - (values _$e199597_) - (let* ((_gid199600_ + (hash-get __tmp110898 _mark100535_)))) + (if _$e100537_ + (values _$e100537_) + (let* ((_gid100540_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_repr199602_ + (_repr100542_ (let () (declare (not safe)) - (_serialize-mark199452_ _mark199595_))) - (_ctx199604_ - (let ((__tmp214527 + (_serialize-mark100392_ _mark100535_))) + (_ctx100544_ + (let ((__tmp110899 (##structure-ref - _mark199595_ + _mark100535_ '2 gx#expander-mark::t '#f))) (declare (not safe)) - (gx#core-context-top__1 __tmp214527))) - (_ctx-ref199606_ - (if (let ((__tmp214532 + (gx#core-context-top__1 __tmp110899))) + (_ctx-ref100546_ + (if (let ((__tmp110904 (gx#current-expander-context))) (declare (not safe)) - (eq? _ctx199604_ __tmp214532)) + (eq? _ctx100544_ __tmp110904)) '(gx#current-expander-context) - (let ((__tmp214528 - (let ((__tmp214529 - (let ((__tmp214530 - (let ((__tmp214531 + (let ((__tmp110900 + (let ((__tmp110901 + (let ((__tmp110902 + (let ((__tmp110903 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_context-ref199453_ _ctx199604_)))) + (_context-ref100393_ _ctx100544_)))) (declare (not safe)) - (cons __tmp214531 '())))) + (cons __tmp110903 '())))) (declare (not safe)) - (cons 'quote __tmp214530)))) + (cons 'quote __tmp110902)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214529 '())))) + (cons __tmp110901 '())))) (declare (not safe)) (cons 'gx#import-module - __tmp214528))))) - (let ((__tmp214533 (gxc#current-compile-marks))) + __tmp110900))))) + (let ((__tmp110905 (gxc#current-compile-marks))) (declare (not safe)) - (table-set! - __tmp214533 - _mark199595_ - _gid199600_)) - (let ((__tmp214534 - (let ((__tmp214535 - (let ((__tmp214536 - (let ((__tmp214537 - (let ((__tmp214538 + (hash-put! + __tmp110905 + _mark100535_ + _gid100540_)) + (let ((__tmp110906 + (let ((__tmp110907 + (let ((__tmp110908 + (let ((__tmp110909 + (let ((__tmp110910 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp214540 - (let ((__tmp214541 + (let ((__tmp110912 + (let ((__tmp110913 (let () (declare (not safe)) - (cons _repr199602_ '())))) + (cons _repr100542_ '())))) (declare (not safe)) - (cons 'quote __tmp214541))) - (__tmp214539 + (cons 'quote __tmp110913))) + (__tmp110911 (let () (declare (not safe)) - (cons _ctx-ref199606_ '())))) + (cons _ctx-ref100546_ '())))) (declare (not safe)) - (cons __tmp214540 __tmp214539)))) + (cons __tmp110912 __tmp110911)))) (declare (not safe)) - (cons 'gx#core-deserialize-mark __tmp214538)))) + (cons 'gx#core-deserialize-mark __tmp110910)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214537 '())))) + (cons __tmp110909 '())))) (declare (not safe)) - (cons _gid199600_ __tmp214536)))) + (cons _gid100540_ __tmp110908)))) (declare (not safe)) - (cons 'define __tmp214535)))) + (cons 'define __tmp110907)))) (declare (not safe)) - (_add-lift!199447_ __tmp214534)) - _gid199600_))))) - (_serialize-mark199452_ - (lambda (_mark199542_) - (letrec ((_quote-e199544_ - (lambda (_sym199593_) - (if (interned-symbol? _sym199593_) - _sym199593_ + (_add-lift!100387_ __tmp110906)) + _gid100540_))))) + (_serialize-mark100392_ + (lambda (_mark100482_) + (letrec ((_quote-e100484_ + (lambda (_sym100533_) + (if (interned-symbol? _sym100533_) + _sym100533_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _sym199593_)))))) - (let* ((_mark199545199554_ _mark199542_) - (_E199547199558_ + _sym100533_)))))) + (let* ((_mark100485100494_ _mark100482_) + (_E100487100498_ (lambda () - (error '"No clause matching" - _mark199545199554_))) - (_K199548199570_ - (lambda (_trace199561_ - _phi199562_ - _ctx199563_ - _subst199564_) - (let* ((_subs199566_ - (if _subst199564_ + (let () + (declare (not safe)) + (error '"No clause matching" + _mark100485100494_)))) + (_K100488100510_ + (lambda (_trace100501_ + _phi100502_ + _ctx100503_ + _subst100504_) + (let* ((_subs100506_ + (if _subst100504_ (let () (declare (not safe)) - (table->list _subst199564_)) + (hash->list _subst100504_)) '())) - (__tmp214542 - (map (lambda (_pair199568_) - (let ((__tmp214545 - (let ((__tmp214546 - (car _pair199568_))) + (__tmp110914 + (map (lambda (_pair100508_) + (let ((__tmp110917 + (let ((__tmp110918 + (car _pair100508_))) (declare (not safe)) - (_quote-e199544_ - __tmp214546))) - (__tmp214543 - (let ((__tmp214544 - (cdr _pair199568_))) + (_quote-e100484_ + __tmp110918))) + (__tmp110915 + (let ((__tmp110916 + (cdr _pair100508_))) (declare (not safe)) - (_quote-e199544_ - __tmp214544)))) + (_quote-e100484_ + __tmp110916)))) (declare (not safe)) - (cons __tmp214545 - __tmp214543))) - _subs199566_))) + (cons __tmp110917 + __tmp110915))) + _subs100506_))) (declare (not safe)) - (cons _phi199562_ __tmp214542))))) + (cons _phi100502_ __tmp110914))))) (if (let () (declare (not safe)) (##structure-instance-of? - _mark199545199554_ + _mark100485100494_ 'gx#expander-mark::t)) - (let* ((_e199549199573_ + (let* ((_e100489100513_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark199545199554_ + _mark100485100494_ '1 gx#expander-mark::t '#f))) - (_subst199576_ _e199549199573_) - (_e199550199578_ + (_subst100516_ _e100489100513_) + (_e100490100518_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark199545199554_ + _mark100485100494_ '2 gx#expander-mark::t '#f))) - (_ctx199581_ _e199550199578_) - (_e199551199583_ + (_ctx100521_ _e100490100518_) + (_e100491100523_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark199545199554_ + _mark100485100494_ '3 gx#expander-mark::t '#f))) - (_phi199586_ _e199551199583_) - (_e199552199588_ + (_phi100526_ _e100491100523_) + (_e100492100528_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark199545199554_ + _mark100485100494_ '4 gx#expander-mark::t '#f))) - (_trace199591_ _e199552199588_)) + (_trace100531_ _e100492100528_)) (declare (not safe)) - (_K199548199570_ - _trace199591_ - _phi199586_ - _ctx199581_ - _subst199576_)) + (_K100488100510_ + _trace100531_ + _phi100526_ + _ctx100521_ + _subst100516_)) (let () (declare (not safe)) - (_E199547199558_))))))) - (_context-ref199453_ - (lambda (_ctx199529_) - (if (let ((__tmp214554 + (_E100487100498_))))))) + (_context-ref100393_ + (lambda (_ctx100469_) + (if (let ((__tmp110926 (##structure-ref - _ctx199529_ + _ctx100469_ '3 gx#phi-context::t '#f))) (declare (not safe)) (##structure-instance-of? - __tmp214554 + __tmp110926 'gx#module-context::t)) - (let ((_ctx-ref199531_ + (let ((_ctx-ref100471_ (let () (declare (not safe)) - (_context-ref-nested199455_ _ctx199529_))) - (_ctx-origin199532_ + (_context-ref-nested100395_ _ctx100469_))) + (_ctx-origin100472_ (let () (declare (not safe)) - (_context-ref-origin199454_ _ctx199529_))) - (_origin199533_ - (let ((__tmp214548 + (_context-ref-origin100394_ _ctx100469_))) + (_origin100473_ + (let ((__tmp110920 (gx#current-expander-context))) (declare (not safe)) - (_context-ref-origin199454_ __tmp214548)))) + (_context-ref-origin100394_ __tmp110920)))) (if (let () (declare (not safe)) - (eq? _origin199533_ _ctx-origin199532_)) - (let ((_ref199535_ - (let ((__tmp214549 + (eq? _origin100473_ _ctx-origin100472_)) + (let ((_ref100475_ + (let ((__tmp110921 (gx#current-expander-context))) (declare (not safe)) - (_context-ref-nested199455_ - __tmp214549)))) - (let _lp199537_ ((_ref199539_ - (cdr _ref199535_)) - (_ctx-ref199540_ - (cdr _ctx-ref199531_))) + (_context-ref-nested100395_ + __tmp110921)))) + (let _lp100477_ ((_ref100479_ + (cdr _ref100475_)) + (_ctx-ref100480_ + (cdr _ctx-ref100471_))) (if (and (let () (declare (not safe)) - (pair? _ref199539_)) - (let ((__tmp214553 - (car _ref199539_)) - (__tmp214552 - (car _ctx-ref199540_))) + (pair? _ref100479_)) + (let ((__tmp110925 + (car _ref100479_)) + (__tmp110924 + (car _ctx-ref100480_))) (declare (not safe)) - (eq? __tmp214553 __tmp214552))) - (let ((__tmp214551 (cdr _ref199539_)) - (__tmp214550 - (cdr _ctx-ref199540_))) + (eq? __tmp110925 __tmp110924))) + (let ((__tmp110923 (cdr _ref100479_)) + (__tmp110922 + (cdr _ctx-ref100480_))) (declare (not safe)) - (_lp199537_ __tmp214551 __tmp214550)) + (_lp100477_ __tmp110923 __tmp110922)) (let () (declare (not safe)) - (cons '#f _ctx-ref199540_))))) - _ctx-ref199531_)) - (let ((__tmp214547 + (cons '#f _ctx-ref100480_))))) + _ctx-ref100471_)) + (let ((__tmp110919 (##structure-ref - _ctx199529_ + _ctx100469_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp214547))))) - (_context-ref-origin199454_ - (lambda (_ctx199521_) - (let _lp199523_ ((_ctx199525_ _ctx199521_)) - (let ((_super199527_ + (make-symbol__1 '":" __tmp110919))))) + (_context-ref-origin100394_ + (lambda (_ctx100461_) + (let _lp100463_ ((_ctx100465_ _ctx100461_)) + (let ((_super100467_ (##structure-ref - _ctx199525_ + _ctx100465_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _super199527_ + _super100467_ 'gx#module-context::t)) (let () (declare (not safe)) - (_lp199523_ _super199527_)) - _ctx199525_))))) - (_context-ref-nested199455_ - (lambda (_ctx199512_) - (let _lp199514_ ((_ctx199516_ _ctx199512_) - (_r199517_ '())) - (let ((_super199519_ + (_lp100463_ _super100467_)) + _ctx100465_))))) + (_context-ref-nested100395_ + (lambda (_ctx100452_) + (let _lp100454_ ((_ctx100456_ _ctx100452_) + (_r100457_ '())) + (let ((_super100459_ (##structure-ref - _ctx199516_ + _ctx100456_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _super199519_ + _super100459_ 'gx#module-context::t)) - (let ((__tmp214557 - (let ((__tmp214558 + (let ((__tmp110929 + (let ((__tmp110930 (car (##structure-ref - _ctx199516_ + _ctx100456_ '7 gx#module-context::t '#f)))) (declare (not safe)) - (cons __tmp214558 _r199517_)))) + (cons __tmp110930 _r100457_)))) (declare (not safe)) - (_lp199514_ _super199519_ __tmp214557)) - (let ((__tmp214555 - (let ((__tmp214556 + (_lp100454_ _super100459_ __tmp110929)) + (let ((__tmp110927 + (let ((__tmp110928 (##structure-ref - _ctx199516_ + _ctx100456_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp214556)))) + (make-symbol__1 '":" __tmp110928)))) (declare (not safe)) - (cons __tmp214555 _r199517_)))))))) - (let* ((_g199457199470_ - (lambda (_g199458199467_) + (cons __tmp110927 _r100457_)))))))) + (let* ((_g100397100410_ + (lambda (_g100398100407_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g199458199467_)))) - (_g199456199509_ - (lambda (_g199458199473_) + _g100398100407_)))) + (_g100396100449_ + (lambda (_g100398100413_) (if (let () (declare (not safe)) - (gx#stx-pair? _g199458199473_)) - (let ((_e199462199475_ + (gx#stx-pair? _g100398100413_)) + (let ((_e100402100415_ (let () (declare (not safe)) - (gx#stx-e _g199458199473_)))) - (let ((_hd199461199478_ + (gx#stx-e _g100398100413_)))) + (let ((_hd100401100418_ (let () (declare (not safe)) - (##car _e199462199475_))) - (_tl199460199480_ + (##car _e100402100415_))) + (_tl100400100420_ (let () (declare (not safe)) - (##cdr _e199462199475_)))) + (##cdr _e100402100415_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199460199480_)) - (let ((_e199465199483_ + (gx#stx-pair? _tl100400100420_)) + (let ((_e100405100423_ (let () (declare (not safe)) - (gx#stx-e _tl199460199480_)))) - (let ((_hd199464199486_ + (gx#stx-e _tl100400100420_)))) + (let ((_hd100404100426_ (let () (declare (not safe)) - (##car _e199465199483_))) - (_tl199463199488_ + (##car _e100405100423_))) + (_tl100403100428_ (let () (declare (not safe)) - (##cdr _e199465199483_)))) + (##cdr _e100405100423_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl199463199488_)) - ((lambda (_L199491_) + (gx#stx-null? _tl100403100428_)) + ((lambda (_L100431_) (if (let () (declare (not safe)) - (gx#identifier? _L199491_)) - (let ((_$e199504_ - (let ((__tmp214559 + (gx#identifier? _L100431_)) + (let ((_$e100444_ + (let ((__tmp110931 (gxc#current-compile-identifiers))) (declare (not safe)) - (table-ref - __tmp214559 - _L199491_ - '#f)))) - (if _$e199504_ - (values _$e199504_) - (let ((_marks199507_ + (hash-get + __tmp110931 + _L100431_)))) + (if _$e100444_ + (values _$e100444_) + (let ((_marks100447_ (##direct-structure-ref - _L199491_ + _L100431_ '4 gx#syntax-quote::t '#f))) @@ -15999,2105 +15993,2105 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _marks199507_)) + (null? _marks100447_)) (let () (declare (not safe)) - (_generate-simple199449_ _L199491_)) + (_generate-simple100389_ _L100431_)) (let () (declare (not safe)) - (_generate-serialized199450_ - _L199491_ - _marks199507_)))))) + (_generate-serialized100390_ + _L100431_ + _marks100447_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot quote non-identifier syntax" - _L199491_)))) - _hd199464199486_) + _L100431_)))) + _hd100404100426_) (let () (declare (not safe)) - (_g199457199470_ - _g199458199473_))))) + (_g100397100410_ + _g100398100413_))))) (let () (declare (not safe)) - (_g199457199470_ _g199458199473_))))) + (_g100397100410_ _g100398100413_))))) (let () (declare (not safe)) - (_g199457199470_ _g199458199473_)))))) + (_g100397100410_ _g100398100413_)))))) (declare (not safe)) - (_g199456199509_ _stx199445_))))) + (_g100396100449_ _stx100385_))))) (define gxc#generate-runtime-phi-define-runtime% - (lambda (_stx199378_) - (let* ((_g199380199397_ - (lambda (_g199381199394_) + (lambda (_stx100318_) + (let* ((_g100320100337_ + (lambda (_g100321100334_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g199381199394_)))) - (_g199379199442_ - (lambda (_g199381199400_) + _g100321100334_)))) + (_g100319100382_ + (lambda (_g100321100340_) (if (let () (declare (not safe)) - (gx#stx-pair? _g199381199400_)) - (let ((_e199386199402_ + (gx#stx-pair? _g100321100340_)) + (let ((_e100326100342_ (let () (declare (not safe)) - (gx#stx-e _g199381199400_)))) - (let ((_hd199385199405_ + (gx#stx-e _g100321100340_)))) + (let ((_hd100325100345_ (let () (declare (not safe)) - (##car _e199386199402_))) - (_tl199384199407_ + (##car _e100326100342_))) + (_tl100324100347_ (let () (declare (not safe)) - (##cdr _e199386199402_)))) + (##cdr _e100326100342_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199384199407_)) - (let ((_e199389199410_ + (gx#stx-pair? _tl100324100347_)) + (let ((_e100329100350_ (let () (declare (not safe)) - (gx#stx-e _tl199384199407_)))) - (let ((_hd199388199413_ + (gx#stx-e _tl100324100347_)))) + (let ((_hd100328100353_ (let () (declare (not safe)) - (##car _e199389199410_))) - (_tl199387199415_ + (##car _e100329100350_))) + (_tl100327100355_ (let () (declare (not safe)) - (##cdr _e199389199410_)))) + (##cdr _e100329100350_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199387199415_)) - (let ((_e199392199418_ + (gx#stx-pair? _tl100327100355_)) + (let ((_e100332100358_ (let () (declare (not safe)) - (gx#stx-e _tl199387199415_)))) - (let ((_hd199391199421_ + (gx#stx-e _tl100327100355_)))) + (let ((_hd100331100361_ (let () (declare (not safe)) - (##car _e199392199418_))) - (_tl199390199423_ + (##car _e100332100358_))) + (_tl100330100363_ (let () (declare (not safe)) - (##cdr _e199392199418_)))) + (##cdr _e100332100358_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl199390199423_)) - ((lambda (_L199426_ _L199427_) - (let ((__tmp214560 - (let ((__tmp214563 + _tl100330100363_)) + ((lambda (_L100366_ _L100367_) + (let ((__tmp110932 + (let ((__tmp110935 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (gx#stx-e _L199427_))) - (__tmp214561 - (let ((__tmp214562 + (let () (declare (not safe)) (gx#stx-e _L100367_))) + (__tmp110933 + (let ((__tmp110934 (let () (declare (not safe)) - (gxc#compile-e__0 _L199426_)))) + (gxc#compile-e__0 _L100366_)))) (declare (not safe)) - (cons __tmp214562 '())))) + (cons __tmp110934 '())))) (declare (not safe)) - (cons __tmp214563 __tmp214561)))) + (cons __tmp110935 __tmp110933)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'define - __tmp214560))) - _hd199391199421_ - _hd199388199413_) + __tmp110932))) + _hd100331100361_ + _hd100328100353_) (let () (declare (not safe)) - (_g199380199397_ - _g199381199400_))))) + (_g100320100337_ + _g100321100340_))))) (let () (declare (not safe)) - (_g199380199397_ _g199381199400_))))) + (_g100320100337_ _g100321100340_))))) (let () (declare (not safe)) - (_g199380199397_ _g199381199400_))))) + (_g100320100337_ _g100321100340_))))) (let () (declare (not safe)) - (_g199380199397_ _g199381199400_)))))) + (_g100320100337_ _g100321100340_)))))) (declare (not safe)) - (_g199379199442_ _stx199378_)))) + (_g100319100382_ _stx100318_)))) (define gxc#generate-meta-begin% - (lambda (_stx199327_ _state199328_) - (let* ((_g199330199340_ - (lambda (_g199331199337_) + (lambda (_stx100267_ _state100268_) + (let* ((_g100270100280_ + (lambda (_g100271100277_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g199331199337_)))) - (_g199329199375_ - (lambda (_g199331199343_) + _g100271100277_)))) + (_g100269100315_ + (lambda (_g100271100283_) (if (let () (declare (not safe)) - (gx#stx-pair? _g199331199343_)) - (let ((_e199335199345_ + (gx#stx-pair? _g100271100283_)) + (let ((_e100275100285_ (let () (declare (not safe)) - (gx#stx-e _g199331199343_)))) - (let ((_hd199334199348_ + (gx#stx-e _g100271100283_)))) + (let ((_hd100274100288_ (let () (declare (not safe)) - (##car _e199335199345_))) - (_tl199333199350_ + (##car _e100275100285_))) + (_tl100273100290_ (let () (declare (not safe)) - (##cdr _e199335199345_)))) - ((lambda (_L199353_) - (let* ((_c-body199367_ - (map (lambda (_g199362199364_) + (##cdr _e100275100285_)))) + ((lambda (_L100293_) + (let* ((_c-body100307_ + (map (lambda (_g100302100304_) (let () (declare (not safe)) (gxc#compile-e__1 - _g199362199364_ - _state199328_))) - _L199353_)) - (_c-body199372_ - (let ((__tmp214564 - (lambda (_$obj199369_) - (let ((__tmp214565 + _g100302100304_ + _state100268_))) + _L100293_)) + (_c-body100312_ + (let ((__tmp110936 + (lambda (_$obj100309_) + (let ((__tmp110937 (let () (declare (not safe)) - (eq? _$obj199369_ + (eq? _$obj100309_ '#!void)))) (declare (not safe)) - (not __tmp214565))))) + (not __tmp110937))))) (declare (not safe)) - (filter __tmp214564 _c-body199367_)))) + (filter __tmp110936 _c-body100307_)))) (let () (declare (not safe)) - (cons '%#begin _c-body199372_)))) - _tl199333199350_))) + (cons '%#begin _c-body100312_)))) + _tl100273100290_))) (let () (declare (not safe)) - (_g199330199340_ _g199331199343_)))))) + (_g100270100280_ _g100271100283_)))))) (declare (not safe)) - (_g199329199375_ _stx199327_)))) + (_g100269100315_ _stx100267_)))) (define gxc#generate-meta-begin-syntax% - (lambda (_stx199235_ _state199236_) - (let* ((_g199238199248_ - (lambda (_g199239199245_) + (lambda (_stx100175_ _state100176_) + (let* ((_g100178100188_ + (lambda (_g100179100185_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g199239199245_)))) - (_g199237199324_ - (lambda (_g199239199251_) + _g100179100185_)))) + (_g100177100264_ + (lambda (_g100179100191_) (if (let () (declare (not safe)) - (gx#stx-pair? _g199239199251_)) - (let ((_e199243199253_ + (gx#stx-pair? _g100179100191_)) + (let ((_e100183100193_ (let () (declare (not safe)) - (gx#stx-e _g199239199251_)))) - (let ((_hd199242199256_ + (gx#stx-e _g100179100191_)))) + (let ((_hd100182100196_ (let () (declare (not safe)) - (##car _e199243199253_))) - (_tl199241199258_ + (##car _e100183100193_))) + (_tl100181100198_ (let () (declare (not safe)) - (##cdr _e199243199253_)))) - ((lambda (_L199261_) - (let* ((_phi199271_ - (let ((__tmp214566 + (##cdr _e100183100193_)))) + ((lambda (_L100201_) + (let* ((_phi100211_ + (let ((__tmp110938 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp214566 '1))) - (_block199273_ + (fx+ __tmp110938 '1))) + (_block100213_ (let () (declare (not safe)) (gxc#meta-state-begin-phi! - _state199236_ - _phi199271_))) - (_compiled199276_ - (let ((__tmp214567 + _state100176_ + _phi100211_))) + (_compiled100216_ + (let ((__tmp110939 (lambda () - (let ((__tmp214568 - (let ((__tmp214569 + (let ((__tmp110940 + (let ((__tmp110941 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#begin)))) (declare (not safe)) - (cons __tmp214569 _L199261_)))) + (cons __tmp110941 _L100201_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#apply-generate-meta-phi - __tmp214568 - _state199236_))))) + __tmp110940 + _state100176_))))) (declare (not safe)) (call-with-parameters - __tmp214567 + __tmp110939 gx#current-expander-phi - _phi199271_)))) - (let* ((_g199279199289_ - (lambda (_g199280199286_) + _phi100211_)))) + (let* ((_g100219100229_ + (lambda (_g100220100226_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g199280199286_)))) - (_g199278199321_ - (lambda (_g199280199292_) + _g100220100226_)))) + (_g100218100261_ + (lambda (_g100220100232_) (if (let () (declare (not safe)) (gx#stx-pair? - _g199280199292_)) - (let ((_e199284199294_ + _g100220100232_)) + (let ((_e100224100234_ (let () (declare (not safe)) (gx#stx-e - _g199280199292_)))) - (let ((_hd199283199297_ + _g100220100232_)))) + (let ((_hd100223100237_ (let () (declare (not safe)) - (##car _e199284199294_))) - (_tl199282199299_ + (##car _e100224100234_))) + (_tl100222100239_ (let () (declare (not safe)) - (##cdr _e199284199294_)))) + (##cdr _e100224100234_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd199283199297_)) + _hd100223100237_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin - _hd199283199297_)) - ((lambda (_L199302_) - (let ((_c-body199319_ + _hd100223100237_)) + ((lambda (_L100242_) + (let ((_c-body100259_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp214570 - (lambda (_$obj199316_) - (let ((__tmp214571 + (let ((__tmp110942 + (lambda (_$obj100256_) + (let ((__tmp110943 (let () (declare (not safe)) - (eq? _$obj199316_ '#!void)))) + (eq? _$obj100256_ '#!void)))) (declare (not safe)) - (not __tmp214571))))) + (not __tmp110943))))) (declare (not safe)) - (filter __tmp214570 _L199302_)))) - (if _block199273_ - (let ((__tmp214572 - (let ((__tmp214573 - (let ((__tmp214574 - (let ((__tmp214578 - (let ((__tmp214579 + (filter __tmp110942 _L100242_)))) + (if _block100213_ + (let ((__tmp110944 + (let ((__tmp110945 + (let ((__tmp110946 + (let ((__tmp110950 + (let ((__tmp110951 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons 'load-module '())))) (declare (not safe)) - (cons '%#ref __tmp214579))) - (__tmp214575 - (let ((__tmp214576 - (let ((__tmp214577 + (cons '%#ref __tmp110951))) + (__tmp110947 + (let ((__tmp110948 + (let ((__tmp110949 (let () (declare (not safe)) - (cons _block199273_ '())))) + (cons _block100213_ '())))) (declare (not safe)) - (cons '%#quote __tmp214577)))) + (cons '%#quote __tmp110949)))) (declare (not safe)) - (cons __tmp214576 '())))) + (cons __tmp110948 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214578 - __tmp214575)))) + (cons __tmp110950 + __tmp110947)))) (declare (not safe)) - (cons '%#call __tmp214574)))) + (cons '%#call __tmp110946)))) (declare (not safe)) - (cons __tmp214573 _c-body199319_)))) + (cons __tmp110945 _c-body100259_)))) (declare (not safe)) - (cons '%#begin-syntax __tmp214572)) + (cons '%#begin-syntax __tmp110944)) (if (let () (declare (not safe)) - (null? _c-body199319_)) + (null? _c-body100259_)) '#!void (let () (declare (not safe)) - (cons '%#begin-syntax _c-body199319_)))))) - _tl199282199299_) + (cons '%#begin-syntax _c-body100259_)))))) + _tl100222100239_) (let () (declare (not safe)) - (_g199279199289_ _g199280199292_))) + (_g100219100229_ _g100220100232_))) (let () (declare (not safe)) - (_g199279199289_ _g199280199292_))))) + (_g100219100229_ _g100220100232_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g199279199289_ - _g199280199292_)))))) + (_g100219100229_ + _g100220100232_)))))) (declare (not safe)) - (_g199278199321_ _compiled199276_)))) - _tl199241199258_))) + (_g100218100261_ _compiled100216_)))) + _tl100181100198_))) (let () (declare (not safe)) - (_g199238199248_ _g199239199251_)))))) + (_g100178100188_ _g100179100191_)))))) (declare (not safe)) - (_g199237199324_ _stx199235_)))) + (_g100177100264_ _stx100175_)))) (define gxc#generate-meta-module% - (lambda (_stx199166_ _state199167_) - (let () (declare (not safe)) (gxc#meta-state-end-phi! _state199167_)) - (let* ((_g199169199183_ - (lambda (_g199170199180_) + (lambda (_stx100106_ _state100107_) + (let () (declare (not safe)) (gxc#meta-state-end-phi! _state100107_)) + (let* ((_g100109100123_ + (lambda (_g100110100120_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g199170199180_)))) - (_g199168199232_ - (lambda (_g199170199186_) + _g100110100120_)))) + (_g100108100172_ + (lambda (_g100110100126_) (if (let () (declare (not safe)) - (gx#stx-pair? _g199170199186_)) - (let ((_e199175199188_ + (gx#stx-pair? _g100110100126_)) + (let ((_e100115100128_ (let () (declare (not safe)) - (gx#stx-e _g199170199186_)))) - (let ((_hd199174199191_ + (gx#stx-e _g100110100126_)))) + (let ((_hd100114100131_ (let () (declare (not safe)) - (##car _e199175199188_))) - (_tl199173199193_ + (##car _e100115100128_))) + (_tl100113100133_ (let () (declare (not safe)) - (##cdr _e199175199188_)))) + (##cdr _e100115100128_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199173199193_)) - (let ((_e199178199196_ + (gx#stx-pair? _tl100113100133_)) + (let ((_e100118100136_ (let () (declare (not safe)) - (gx#stx-e _tl199173199193_)))) - (let ((_hd199177199199_ + (gx#stx-e _tl100113100133_)))) + (let ((_hd100117100139_ (let () (declare (not safe)) - (##car _e199178199196_))) - (_tl199176199201_ + (##car _e100118100136_))) + (_tl100116100141_ (let () (declare (not safe)) - (##cdr _e199178199196_)))) - ((lambda (_L199204_ _L199205_) - (let ((_key199218_ + (##cdr _e100118100136_)))) + ((lambda (_L100144_ _L100145_) + (let ((_key100158_ (let () (declare (not safe)) (gx#core-identifier-key - _L199205_)))) - (if (interned-symbol? _key199218_) + _L100145_)))) + (if (interned-symbol? _key100158_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile module with uninterned id" - _stx199166_ - _L199205_ - _key199218_))) - (let* ((_ctx199220_ + _stx100106_ + _L100145_ + _key100158_))) + (let* ((_ctx100160_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L199205_))) - (_code199223_ - (let ((__tmp214580 + _L100145_))) + (_code100163_ + (let ((__tmp110952 (lambda () - (let ((__tmp214581 + (let ((__tmp110953 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _ctx199220_ + _ctx100160_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#compile-e__1 __tmp214581 _state199167_))))) + (gxc#compile-e__1 __tmp110953 _state100107_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp214580 + __tmp110952 gx#current-expander-context - _ctx199220_))) - (_rt199225_ - (let ((__tmp214582 + _ctx100160_))) + (_rt100165_ + (let ((__tmp110954 (gxc#current-compile-runtime-sections))) (declare (not safe)) - (table-ref - __tmp214582 - _ctx199220_ - '#f))) - (_loader199227_ - (if _rt199225_ - (let ((__tmp214583 - (let ((__tmp214584 + (hash-get + __tmp110954 + _ctx100160_))) + (_loader100167_ + (if _rt100165_ + (let ((__tmp110955 + (let ((__tmp110956 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp214588 - (let ((__tmp214589 + (let ((__tmp110960 + (let ((__tmp110961 (let () (declare (not safe)) (cons 'load-module '())))) (declare (not safe)) - (cons '%#ref __tmp214589))) - (__tmp214585 - (let ((__tmp214586 - (let ((__tmp214587 + (cons '%#ref __tmp110961))) + (__tmp110957 + (let ((__tmp110958 + (let ((__tmp110959 (let () (declare (not safe)) - (cons _rt199225_ '())))) + (cons _rt100165_ '())))) (declare (not safe)) - (cons '%#quote __tmp214587)))) + (cons '%#quote __tmp110959)))) (declare (not safe)) - (cons __tmp214586 '())))) + (cons __tmp110958 '())))) (declare (not safe)) - (cons __tmp214588 __tmp214585)))) + (cons __tmp110960 __tmp110957)))) (declare (not safe)) - (cons '%#call __tmp214584)))) + (cons '%#call __tmp110956)))) (declare (not safe)) - (cons __tmp214583 '())) + (cons __tmp110955 '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (_modid199229_ + (_modid100169_ (let () (declare (not safe)) - (gx#stx-e _L199205_)))) + (gx#stx-e _L100145_)))) (let () (declare (not safe)) (gxc#meta-state-end-phi! - _state199167_)) - (let ((__tmp214590 - (let ((__tmp214591 + _state100107_)) + (let ((__tmp110962 + (let ((__tmp110963 (let () (declare (not safe)) - (cons _code199223_ + (cons _code100163_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _loader199227_)))) + _loader100167_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _modid199229_ - __tmp214591)))) + (cons _modid100169_ + __tmp110963)))) (declare (not safe)) - (cons '%#module __tmp214590))))) - _tl199176199201_ - _hd199177199199_))) + (cons '%#module __tmp110962))))) + _tl100116100141_ + _hd100117100139_))) (let () (declare (not safe)) - (_g199169199183_ _g199170199186_))))) + (_g100109100123_ _g100110100126_))))) (let () (declare (not safe)) - (_g199169199183_ _g199170199186_)))))) + (_g100109100123_ _g100110100126_)))))) (declare (not safe)) - (_g199168199232_ _stx199166_)))) + (_g100108100172_ _stx100106_)))) (define gxc#generate-meta-import-path - (lambda (_ctx199156_ _context-chain199157_) - (let _lp199159_ ((_ctx199161_ _ctx199156_) (_path199162_ '())) - (let ((_super199164_ - (##structure-ref _ctx199161_ '3 gx#phi-context::t '#f))) - (if (memq _super199164_ _context-chain199157_) - (let ((__tmp214596 - (let ((__tmp214597 + (lambda (_ctx100096_ _context-chain100097_) + (let _lp100099_ ((_ctx100101_ _ctx100096_) (_path100102_ '())) + (let ((_super100104_ + (##structure-ref _ctx100101_ '3 gx#phi-context::t '#f))) + (if (memq _super100104_ _context-chain100097_) + (let ((__tmp110968 + (let ((__tmp110969 (car (##structure-ref - _ctx199161_ + _ctx100101_ '7 gx#module-context::t '#f)))) (declare (not safe)) - (cons __tmp214597 _path199162_)))) + (cons __tmp110969 _path100102_)))) (declare (not safe)) - (cons '#f __tmp214596)) + (cons '#f __tmp110968)) (if (let () (declare (not safe)) (##structure-instance-of? - _super199164_ + _super100104_ 'gx#module-context::t)) - (let ((__tmp214594 - (let ((__tmp214595 + (let ((__tmp110966 + (let ((__tmp110967 (car (##structure-ref - _ctx199161_ + _ctx100101_ '7 gx#module-context::t '#f)))) (declare (not safe)) - (cons __tmp214595 _path199162_)))) + (cons __tmp110967 _path100102_)))) (declare (not safe)) - (_lp199159_ _super199164_ __tmp214594)) - (let ((__tmp214592 - (let ((__tmp214593 + (_lp100099_ _super100104_ __tmp110966)) + (let ((__tmp110964 + (let ((__tmp110965 (##structure-ref - _ctx199161_ + _ctx100101_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp214593)))) + (make-symbol__1 '":" __tmp110965)))) (declare (not safe)) - (cons __tmp214592 _path199162_)))))))) + (cons __tmp110964 _path100102_)))))))) (define gxc#current-context-chain (lambda () - (let _lp199151_ ((_ctx199153_ (gx#current-expander-context)) - (_r199154_ '())) + (let _lp100091_ ((_ctx100093_ (gx#current-expander-context)) + (_r100094_ '())) (if (let () (declare (not safe)) - (##structure-instance-of? _ctx199153_ 'gx#module-context::t)) - (let ((__tmp214599 - (##structure-ref _ctx199153_ '3 gx#phi-context::t '#f)) - (__tmp214598 + (##structure-instance-of? _ctx100093_ 'gx#module-context::t)) + (let ((__tmp110971 + (##structure-ref _ctx100093_ '3 gx#phi-context::t '#f)) + (__tmp110970 (let () (declare (not safe)) - (cons _ctx199153_ _r199154_)))) + (cons _ctx100093_ _r100094_)))) (declare (not safe)) - (_lp199151_ __tmp214599 __tmp214598)) - _r199154_)))) + (_lp100091_ __tmp110971 __tmp110970)) + _r100094_)))) (define gxc#generate-meta-import% - (lambda (_stx198920_ _state198921_) - (letrec* ((_context-chain198923_ + (lambda (_stx99860_ _state99861_) + (letrec* ((_context-chain99863_ (let () (declare (not safe)) (gxc#current-context-chain))) - (_make-import-spec198924_ - (lambda (_in199087_) - (let* ((_in199088199100_ _in199087_) - (_E199090199104_ + (_make-import-spec99864_ + (lambda (_in100027_) + (let* ((_in100028100040_ _in100027_) + (_E100030100044_ (lambda () - (error '"No clause matching" - _in199088199100_))) - (_K199091199114_ - (lambda (_phi199107_ - _name199108_ - _src-name199109_ - _src-phi199110_ - _src-key199111_ - _src-ctx199112_) - (let ((__tmp214600 - (let ((__tmp214604 + (let () + (declare (not safe)) + (error '"No clause matching" + _in100028100040_)))) + (_K100031100054_ + (lambda (_phi100047_ + _name100048_ + _src-name100049_ + _src-phi100050_ + _src-key100051_ + _src-ctx100052_) + (let ((__tmp110972 + (let ((__tmp110976 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _name199108_))) - (__tmp214601 - (let ((__tmp214602 - (let ((__tmp214603 + _name100048_))) + (__tmp110973 + (let ((__tmp110974 + (let ((__tmp110975 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#generate-runtime-identifier-key - _src-name199109_)))) + _src-name100049_)))) (declare (not safe)) - (cons __tmp214603 '())))) + (cons __tmp110975 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _src-phi199110_ - __tmp214602)))) + (cons _src-phi100050_ + __tmp110974)))) (declare (not safe)) - (cons __tmp214604 __tmp214601)))) + (cons __tmp110976 __tmp110973)))) (declare (not safe)) - (cons _phi199107_ __tmp214600))))) + (cons _phi100047_ __tmp110972))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in199088199100_ + _in100028100040_ 'gx#module-import::t)) - (let ((_e199092199117_ + (let ((_e100032100057_ (let () (declare (not safe)) (##unchecked-structure-ref - _in199088199100_ + _in100028100040_ '1 gx#module-import::t '#f)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _e199092199117_ + _e100032100057_ 'gx#module-export::t)) - (let* ((_e199095199120_ + (let* ((_e100035100060_ (let () (declare (not safe)) (##unchecked-structure-ref - _e199092199117_ + _e100032100057_ '1 gx#module-export::t '#f))) - (_src-ctx199123_ _e199095199120_) - (_e199096199125_ + (_src-ctx100063_ _e100035100060_) + (_e100036100065_ (let () (declare (not safe)) (##unchecked-structure-ref - _e199092199117_ + _e100032100057_ '2 gx#module-export::t '#f))) - (_src-key199128_ _e199096199125_) - (_e199097199130_ + (_src-key100068_ _e100036100065_) + (_e100037100070_ (let () (declare (not safe)) (##unchecked-structure-ref - _e199092199117_ + _e100032100057_ '3 gx#module-export::t '#f))) - (_src-phi199133_ _e199097199130_) - (_e199098199135_ + (_src-phi100073_ _e100037100070_) + (_e100038100075_ (let () (declare (not safe)) (##unchecked-structure-ref - _e199092199117_ + _e100032100057_ '4 gx#module-export::t '#f))) - (_src-name199138_ _e199098199135_) - (_e199093199140_ + (_src-name100078_ _e100038100075_) + (_e100033100080_ (let () (declare (not safe)) (##unchecked-structure-ref - _in199088199100_ + _in100028100040_ '2 gx#module-import::t '#f))) - (_name199143_ _e199093199140_) - (_e199094199145_ + (_name100083_ _e100033100080_) + (_e100034100085_ (let () (declare (not safe)) (##unchecked-structure-ref - _in199088199100_ + _in100028100040_ '3 gx#module-import::t '#f))) - (_phi199148_ _e199094199145_)) + (_phi100088_ _e100034100085_)) (declare (not safe)) - (_K199091199114_ - _phi199148_ - _name199143_ - _src-name199138_ - _src-phi199133_ - _src-key199128_ - _src-ctx199123_)) + (_K100031100054_ + _phi100088_ + _name100083_ + _src-name100078_ + _src-phi100073_ + _src-key100068_ + _src-ctx100063_)) (let () (declare (not safe)) - (_E199090199104_)))) + (_E100030100044_)))) (let () (declare (not safe)) - (_E199090199104_)))))) - (_make-import-path198925_ - (lambda (_ctx199085_) + (_E100030100044_)))))) + (_make-import-path99865_ + (lambda (_ctx100025_) (let () (declare (not safe)) (gxc#generate-meta-import-path - _ctx199085_ - _context-chain198923_)))) - (_make-import-spec-in198926_ - (lambda (_ctx199082_ _in199083_) - (let ((__tmp214605 - (let ((__tmp214607 + _ctx100025_ + _context-chain99863_)))) + (_make-import-spec-in99866_ + (lambda (_ctx100022_ _in100023_) + (let ((__tmp110977 + (let ((__tmp110979 (let () (declare (not safe)) - (_make-import-path198925_ _ctx199082_))) - (__tmp214606 (reverse _in199083_))) + (_make-import-path99865_ _ctx100022_))) + (__tmp110978 (reverse _in100023_))) (declare (not safe)) - (cons __tmp214607 __tmp214606)))) + (cons __tmp110979 __tmp110978)))) (declare (not safe)) - (cons 'spec: __tmp214605))))) + (cons 'spec: __tmp110977))))) (let () (declare (not safe)) - (gxc#meta-state-end-phi! _state198921_)) - (let* ((_g198928198938_ - (lambda (_g198929198935_) + (gxc#meta-state-end-phi! _state99861_)) + (let* ((_g9986899878_ + (lambda (_g9986999875_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g198929198935_)))) - (_g198927199079_ - (lambda (_g198929198941_) + _g9986999875_)))) + (_g99867100019_ + (lambda (_g9986999881_) (if (let () (declare (not safe)) - (gx#stx-pair? _g198929198941_)) - (let ((_e198933198943_ + (gx#stx-pair? _g9986999881_)) + (let ((_e9987399883_ (let () (declare (not safe)) - (gx#stx-e _g198929198941_)))) - (let ((_hd198932198946_ + (gx#stx-e _g9986999881_)))) + (let ((_hd9987299886_ (let () (declare (not safe)) - (##car _e198933198943_))) - (_tl198931198948_ + (##car _e9987399883_))) + (_tl9987199888_ (let () (declare (not safe)) - (##cdr _e198933198943_)))) - ((lambda (_L198951_) - (let _lp198962_ ((_rest198964_ _L198951_) - (_current-src198965_ '#f) - (_current-in198966_ '()) - (_r198967_ '())) - (let* ((_rest198968198976_ _rest198964_) - (_else198970198986_ + (##cdr _e9987399883_)))) + ((lambda (_L99891_) + (let _lp99902_ ((_rest99904_ _L99891_) + (_current-src99905_ '#f) + (_current-in99906_ '()) + (_r99907_ '())) + (let* ((_rest9990899916_ _rest99904_) + (_else9991099926_ (lambda () - (let* ((_r198984_ - (if _current-src198965_ - (let ((__tmp214608 + (let* ((_r99924_ + (if _current-src99905_ + (let ((__tmp110980 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_make-import-spec-in198926_ - _current-src198965_ - _current-in198966_)))) + (_make-import-spec-in99866_ + _current-src99905_ + _current-in99906_)))) (declare (not safe)) - (cons __tmp214608 _r198967_)) - _r198967_)) + (cons __tmp110980 _r99907_)) + _r99907_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp214609 - (reverse _r198984_))) + (__tmp110981 + (reverse _r99924_))) (declare (not safe)) - (cons '%#import __tmp214609)))) - (_K198972199067_ - (lambda (_rest198989_ _in198990_) + (cons '%#import __tmp110981)))) + (_K99912100007_ + (lambda (_rest99929_ _in99930_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in198990_ + _in99930_ 'gx#module-import::t)) - (let* ((_in198991198998_ - _in198990_) - (_E198993199002_ + (let* ((_in9993199938_ + _in99930_) + (_E9993399942_ (lambda () - (error '"No clause matching" + (let () + (declare + (not safe)) + (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in198991198998_))) - (_K198994199007_ - (lambda (_src-ctx199005_) + _in9993199938_)))) + (_K9993499947_ + (lambda (_src-ctx99945_) (if (let () (declare (not safe)) - (eq? _current-src198965_ _src-ctx199005_)) - (let ((__tmp214625 - (let ((__tmp214626 + (eq? _current-src99905_ _src-ctx99945_)) + (let ((__tmp110997 + (let ((__tmp110998 (let () (declare (not safe)) - (_make-import-spec198924_ _in198990_)))) + (_make-import-spec99864_ _in99930_)))) (declare (not safe)) - (cons __tmp214626 _current-in198966_)))) + (cons __tmp110998 _current-in99906_)))) (declare (not safe)) - (_lp198962_ - _rest198989_ - _current-src198965_ - __tmp214625 - _r198967_)) - (if _current-src198965_ - (let ((__tmp214623 - (let ((__tmp214624 + (_lp99902_ + _rest99929_ + _current-src99905_ + __tmp110997 + _r99907_)) + (if _current-src99905_ + (let ((__tmp110995 + (let ((__tmp110996 (let () (declare (not safe)) - (_make-import-spec198924_ - _in198990_)))) + (_make-import-spec99864_ + _in99930_)))) (declare (not safe)) - (cons __tmp214624 '()))) - (__tmp214621 - (let ((__tmp214622 + (cons __tmp110996 '()))) + (__tmp110993 + (let ((__tmp110994 (let () (declare (not safe)) - (_make-import-spec-in198926_ - _current-src198965_ - _current-in198966_)))) + (_make-import-spec-in99866_ + _current-src99905_ + _current-in99906_)))) (declare (not safe)) - (cons __tmp214622 _r198967_)))) + (cons __tmp110994 _r99907_)))) (declare (not safe)) - (_lp198962_ - _rest198989_ - _src-ctx199005_ - __tmp214623 - __tmp214621)) - (let ((__tmp214619 - (let ((__tmp214620 + (_lp99902_ + _rest99929_ + _src-ctx99945_ + __tmp110995 + __tmp110993)) + (let ((__tmp110991 + (let ((__tmp110992 (let () (declare (not safe)) - (_make-import-spec198924_ - _in198990_)))) + (_make-import-spec99864_ + _in99930_)))) (declare (not safe)) - (cons __tmp214620 '())))) + (cons __tmp110992 '())))) (declare (not safe)) - (_lp198962_ - _rest198989_ - _src-ctx199005_ - __tmp214619 - _r198967_))))))) + (_lp99902_ + _rest99929_ + _src-ctx99945_ + __tmp110991 + _r99907_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in198991198998_ + _in9993199938_ 'gx#module-import::t)) - (let ((_e198995199010_ + (let ((_e9993599950_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _in198991198998_ + _in9993199938_ '1 gx#module-import::t '#f)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _e198995199010_ + _e9993599950_ 'gx#module-export::t)) - (let* ((_e198996199013_ + (let* ((_e9993699953_ (let () (declare (not safe)) (##unchecked-structure-ref - _e198995199010_ + _e9993599950_ '1 gx#module-export::t '#f))) - (_src-ctx199016_ _e198996199013_)) + (_src-ctx99956_ _e9993699953_)) (declare (not safe)) - (_K198994199007_ _src-ctx199016_)) - (let () (declare (not safe)) (_E198993199002_)))) - (let () (declare (not safe)) (_E198993199002_)))) + (_K9993499947_ _src-ctx99956_)) + (let () (declare (not safe)) (_E9993399942_)))) + (let () (declare (not safe)) (_E9993399942_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in198990_ + _in99930_ 'gx#import-set::t)) - (let* ((_phi199018_ + (let* ((_phi99958_ (##direct-structure-ref - _in198990_ + _in99930_ '2 gx#import-set::t '#f)) - (_src199020_ + (_src99960_ (##direct-structure-ref - _in198990_ + _in99930_ '1 gx#import-set::t '#f)) - (_src-in199060_ - (let* ((_g199021199030_ + (_src-in100000_ + (let* ((_g9996199970_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_make-import-path198925_ _src199020_))) - (_E199024199034_ + (_make-import-path99865_ _src99960_))) + (_E9996499974_ (lambda () - (error '"No clause matching" _g199021199030_)))) - (let ((_K199026199050_ - (lambda (_path199048_) _path199048_)) - (_K199025199040_ - (lambda (_path199038_) + (let () + (declare (not safe)) + (error '"No clause matching" + _g9996199970_))))) + (let ((_K9996699990_ (lambda (_path99988_) _path99988_)) + (_K9996599980_ + (lambda (_path99978_) (let () (declare (not safe)) - (cons 'in: _path199038_))))) + (cons 'in: _path99978_))))) (if (let () (declare (not safe)) - (##pair? _g199021199030_)) - (let ((_tl199028199055_ + (##pair? _g9996199970_)) + (let ((_tl9996899995_ (let () (declare (not safe)) - (##cdr _g199021199030_))) - (_hd199027199053_ + (##cdr _g9996199970_))) + (_hd9996799993_ (let () (declare (not safe)) - (##car _g199021199030_)))) + (##car _g9996199970_)))) (if (let () (declare (not safe)) - (##null? _tl199028199055_)) - (let ((_path199058_ _hd199027199053_)) + (##null? _tl9996899995_)) + (let ((_path99998_ _hd9996799993_)) (declare (not safe)) - (_K199026199050_ _path199058_)) - (let ((_path199043_ _g199021199030_)) + (_K9996699990_ _path99998_)) + (let ((_path99983_ _g9996199970_)) (declare (not safe)) - (_K199025199040_ _path199043_)))) - (let ((_path199043_ _g199021199030_)) + (_K9996599980_ _path99983_)))) + (let ((_path99983_ _g9996199970_)) (declare (not safe)) - (_K199025199040_ _path199043_)))))) - (_r199062_ - (if _current-src198965_ - (let ((__tmp214614 + (_K9996599980_ _path99983_)))))) + (_r100002_ + (if _current-src99905_ + (let ((__tmp110986 (let () (declare (not safe)) - (_make-import-spec-in198926_ - _current-src198965_ - _current-in198966_)))) + (_make-import-spec-in99866_ + _current-src99905_ + _current-in99906_)))) (declare (not safe)) - (cons __tmp214614 _r198967_)) - _r198967_))) - (let ((__tmp214615 - (let ((__tmp214616 + (cons __tmp110986 _r99907_)) + _r99907_))) + (let ((__tmp110987 + (let ((__tmp110988 (if (let () (declare (not safe)) - (fxzero? _phi199018_)) - _src-in199060_ - (let ((__tmp214617 - (let ((__tmp214618 + (fxzero? _phi99958_)) + _src-in100000_ + (let ((__tmp110989 + (let ((__tmp110990 (let () (declare (not safe)) - (cons _src-in199060_ '())))) + (cons _src-in100000_ '())))) (declare (not safe)) - (cons _phi199018_ __tmp214618)))) + (cons _phi99958_ __tmp110990)))) (declare (not safe)) - (cons 'phi: __tmp214617))))) + (cons 'phi: __tmp110989))))) (declare (not safe)) - (cons __tmp214616 _r199062_)))) + (cons __tmp110988 _r100002_)))) (declare (not safe)) - (_lp198962_ _rest198989_ '#f '() __tmp214615))) + (_lp99902_ _rest99929_ '#f '() __tmp110987))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-instance-of? - _in198990_ + _in99930_ 'gx#module-context::t)) - (let* ((_r199065_ + (let* ((_r100005_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if _current-src198965_ - (let ((__tmp214610 + (if _current-src99905_ + (let ((__tmp110982 (let () (declare (not safe)) - (_make-import-spec-in198926_ - _current-src198965_ - _current-in198966_)))) + (_make-import-spec-in99866_ + _current-src99905_ + _current-in99906_)))) (declare (not safe)) - (cons __tmp214610 _r198967_)) - _r198967_)) - (__tmp214611 - (let ((__tmp214612 - (let ((__tmp214613 + (cons __tmp110982 _r99907_)) + _r99907_)) + (__tmp110983 + (let ((__tmp110984 + (let ((__tmp110985 (let () (declare (not safe)) - (_make-import-path198925_ - _in198990_)))) + (_make-import-path99865_ _in99930_)))) (declare (not safe)) - (cons 'runtime: __tmp214613)))) + (cons 'runtime: __tmp110985)))) (declare (not safe)) - (cons __tmp214612 _r199065_)))) + (cons __tmp110984 _r100005_)))) (declare (not safe)) - (_lp198962_ _rest198989_ '#f '() __tmp214611)) + (_lp99902_ _rest99929_ '#f '() __tmp110983)) '#!void)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest198968198976_)) - (let ((_hd198973199070_ + (##pair? _rest9990899916_)) + (let ((_hd99913100010_ (let () (declare (not safe)) - (##car _rest198968198976_))) - (_tl198974199072_ + (##car _rest9990899916_))) + (_tl99914100012_ (let () (declare (not safe)) - (##cdr _rest198968198976_)))) - (let* ((_in199075_ _hd198973199070_) - (_rest199077_ - _tl198974199072_)) + (##cdr _rest9990899916_)))) + (let* ((_in100015_ _hd99913100010_) + (_rest100017_ + _tl99914100012_)) (declare (not safe)) - (_K198972199067_ - _rest199077_ - _in199075_))) + (_K99912100007_ + _rest100017_ + _in100015_))) (let () (declare (not safe)) - (_else198970198986_)))))) - _tl198931198948_))) + (_else9991099926_)))))) + _tl9987199888_))) (let () (declare (not safe)) - (_g198928198938_ _g198929198941_)))))) + (_g9986899878_ _g9986999881_)))))) (declare (not safe)) - (_g198927199079_ _stx198920_))))) + (_g99867100019_ _stx99860_))))) (define gxc#generate-meta-export% - (lambda (_stx198730_ _state198731_) - (letrec* ((_context-chain198733_ + (lambda (_stx99670_ _state99671_) + (letrec* ((_context-chain99673_ (let () (declare (not safe)) (gxc#current-context-chain))) - (_make-import-path198734_ - (lambda (_ctx198918_) + (_make-import-path99674_ + (lambda (_ctx99858_) (let () (declare (not safe)) (gxc#generate-meta-import-path - _ctx198918_ - _context-chain198733_))))) - (let* ((_g198736198746_ - (lambda (_g198737198743_) + _ctx99858_ + _context-chain99673_))))) + (let* ((_g9967699686_ + (lambda (_g9967799683_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g198737198743_)))) - (_g198735198915_ - (lambda (_g198737198749_) + _g9967799683_)))) + (_g9967599855_ + (lambda (_g9967799689_) (if (let () (declare (not safe)) - (gx#stx-pair? _g198737198749_)) - (let ((_e198741198751_ + (gx#stx-pair? _g9967799689_)) + (let ((_e9968199691_ (let () (declare (not safe)) - (gx#stx-e _g198737198749_)))) - (let ((_hd198740198754_ + (gx#stx-e _g9967799689_)))) + (let ((_hd9968099694_ (let () (declare (not safe)) - (##car _e198741198751_))) - (_tl198739198756_ + (##car _e9968199691_))) + (_tl9967999696_ (let () (declare (not safe)) - (##cdr _e198741198751_)))) - ((lambda (_L198759_) - (let _lp198770_ ((_rest198772_ _L198759_) - (_r198773_ '())) - (let* ((_rest198774198782_ _rest198772_) - (_else198776198790_ + (##cdr _e9968199691_)))) + ((lambda (_L99699_) + (let _lp99710_ ((_rest99712_ _L99699_) + (_r99713_ '())) + (let* ((_rest9971499722_ _rest99712_) + (_else9971699730_ (lambda () - (let ((__tmp214627 - (reverse _r198773_))) + (let ((__tmp110999 + (reverse _r99713_))) (declare (not safe)) - (cons '%#export __tmp214627)))) - (_K198778198903_ - (lambda (_rest198793_ _out198794_) - (let* ((_out198795198808_ - _out198794_) - (_E198798198812_ + (cons '%#export __tmp110999)))) + (_K9971899843_ + (lambda (_rest99733_ _out99734_) + (let* ((_out9973599748_ + _out99734_) + (_E9973899752_ (lambda () - (error '"No clause matching" - _out198795198808_)))) - (let ((_K198802198882_ - (lambda (_name198878_ - _phi198879_ - _key198880_) - (let ((__tmp214628 - (let ((__tmp214629 + (let () + (declare (not safe)) + (error '"No clause matching" + _out9973599748_))))) + (let ((_K9974299822_ + (lambda (_name99818_ + _phi99819_ + _key99820_) + (let ((__tmp111000 + (let ((__tmp111001 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp214630 - (let ((__tmp214631 - (let ((__tmp214634 + (let ((__tmp111002 + (let ((__tmp111003 + (let ((__tmp111006 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _key198880_))) - (__tmp214632 - (let ((__tmp214633 + _key99820_))) + (__tmp111004 + (let ((__tmp111005 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _name198878_)))) + _name99818_)))) (declare (not safe)) - (cons __tmp214633 '())))) + (cons __tmp111005 '())))) (declare (not safe)) - (cons __tmp214634 __tmp214632)))) + (cons __tmp111006 __tmp111004)))) (declare (not safe)) - (cons _phi198879_ __tmp214631)))) + (cons _phi99819_ __tmp111003)))) (declare (not safe)) - (cons 'spec: __tmp214630)))) + (cons 'spec: __tmp111002)))) (declare (not safe)) - (cons __tmp214629 _r198773_)))) + (cons __tmp111001 _r99713_)))) (declare (not safe)) - (_lp198770_ _rest198793_ __tmp214628)))) + (_lp99710_ _rest99733_ __tmp111000)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K198799198862_ - (lambda (_phi198816_ - _src198817_) - (let* ((_out198857_ - (if _src198817_ + (_K9973999802_ + (lambda (_phi99756_ + _src99757_) + (let* ((_out99797_ + (if _src99757_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp214635 - (let ((__tmp214636 - (let* ((_g198818198827_ + (let ((__tmp111007 + (let ((__tmp111008 + (let* ((_g9975899767_ (let () (declare (not safe)) - (_make-import-path198734_ - _src198817_))) - (_E198821198831_ + (_make-import-path99674_ + _src99757_))) + (_E9976199771_ (lambda () - (error '"No clause matching" - _g198818198827_)))) - (let ((_K198823198847_ - (lambda (_path198845_) - _path198845_)) - (_K198822198837_ - (lambda (_path198835_) + (let () + (declare (not safe)) + (error '"No clause matching" + _g9975899767_))))) + (let ((_K9976399787_ + (lambda (_path99785_) + _path99785_)) + (_K9976299777_ + (lambda (_path99775_) (let () (declare (not safe)) (cons 'in: - _path198835_))))) + _path99775_))))) (if (let () (declare (not safe)) - (##pair? _g198818198827_)) - (let ((_tl198825198852_ + (##pair? _g9975899767_)) + (let ((_tl9976599792_ (let () (declare (not safe)) - (##cdr _g198818198827_))) - (_hd198824198850_ + (##cdr _g9975899767_))) + (_hd9976499790_ (let () (declare (not safe)) - (##car _g198818198827_)))) + (##car _g9975899767_)))) (if (let () (declare (not safe)) - (##null? _tl198825198852_)) - (let ((_path198855_ - _hd198824198850_)) + (##null? _tl9976599792_)) + (let ((_path99795_ + _hd9976499790_)) (declare (not safe)) - (_K198823198847_ - _path198855_)) - (let ((_path198840_ - _g198818198827_)) + (_K9976399787_ + _path99795_)) + (let ((_path99780_ + _g9975899767_)) (declare (not safe)) - (_K198822198837_ - _path198840_)))) - (let ((_path198840_ - _g198818198827_)) + (_K9976299777_ + _path99780_)))) + (let ((_path99780_ + _g9975899767_)) (declare (not safe)) - (_K198822198837_ - _path198840_))))))) + (_K9976299777_ + _path99780_))))))) (declare (not safe)) - (cons __tmp214636 '())))) + (cons __tmp111008 '())))) (declare (not safe)) - (cons 'import: __tmp214635)) + (cons 'import: __tmp111007)) '#t)) - (_out198859_ - (if (let () (declare (not safe)) (fxzero? _phi198816_)) - _out198857_ - (let ((__tmp214637 - (let ((__tmp214638 + (_out99799_ + (if (let () (declare (not safe)) (fxzero? _phi99756_)) + _out99797_ + (let ((__tmp111009 + (let ((__tmp111010 (let () (declare (not safe)) - (cons _out198857_ '())))) + (cons _out99797_ '())))) (declare (not safe)) - (cons _phi198816_ __tmp214638)))) + (cons _phi99756_ __tmp111010)))) (declare (not safe)) - (cons 'phi: __tmp214637))))) - (let ((__tmp214639 + (cons 'phi: __tmp111009))))) + (let ((__tmp111011 (let () (declare (not safe)) - (cons _out198859_ _r198773_)))) + (cons _out99799_ _r99713_)))) (declare (not safe)) - (_lp198770_ _rest198793_ __tmp214639)))))) + (_lp99710_ _rest99733_ __tmp111011)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match198797198875_ + (let ((_try-match9973799815_ (lambda () (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - _out198795198808_ + _out9973599748_ 'gx#export-set::t)) - (let* ((_e198800198865_ + (let* ((_e9974099805_ (let () (declare (not safe)) (##unchecked-structure-ref - _out198795198808_ + _out9973599748_ '1 gx#export-set::t '#f))) - (_e198801198870_ + (_e9974199810_ (let () (declare (not safe)) (##unchecked-structure-ref - _out198795198808_ + _out9973599748_ '2 gx#export-set::t '#f)))) - (let ((_src198868_ _e198800198865_) - (_phi198873_ _e198801198870_)) + (let ((_src99808_ _e9974099805_) + (_phi99813_ _e9974199810_)) (let () (declare (not safe)) - (_K198799198862_ _phi198873_ _src198868_)))) - (let () (declare (not safe)) (_E198798198812_)))))) + (_K9973999802_ _phi99813_ _src99808_)))) + (let () (declare (not safe)) (_E9973899752_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _out198795198808_ + _out9973599748_ 'gx#module-export::t)) - (let* ((_e198803198885_ + (let* ((_e9974399825_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _out198795198808_ + _out9973599748_ '1 gx#module-export::t '#f))) - (_e198804198888_ + (_e9974499828_ (let () (declare (not safe)) (##unchecked-structure-ref - _out198795198808_ + _out9973599748_ '2 gx#module-export::t '#f))) - (_e198805198893_ + (_e9974599833_ (let () (declare (not safe)) (##unchecked-structure-ref - _out198795198808_ + _out9973599748_ '3 gx#module-export::t '#f))) - (_e198806198898_ + (_e9974699838_ (let () (declare (not safe)) (##unchecked-structure-ref - _out198795198808_ + _out9973599748_ '4 gx#module-export::t '#f)))) - (let ((_key198891_ _e198804198888_) - (_phi198896_ _e198805198893_) - (_name198901_ _e198806198898_)) + (let ((_key99831_ _e9974499828_) + (_phi99836_ _e9974599833_) + (_name99841_ _e9974699838_)) (let () (declare (not safe)) - (_K198802198882_ _name198901_ _phi198896_ _key198891_)))) - (let () (declare (not safe)) (_try-match198797198875_))))))))) + (_K9974299822_ _name99841_ _phi99836_ _key99831_)))) + (let () (declare (not safe)) (_try-match9973799815_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest198774198782_)) - (let ((_hd198779198906_ + (##pair? _rest9971499722_)) + (let ((_hd9971999846_ (let () (declare (not safe)) - (##car _rest198774198782_))) - (_tl198780198908_ + (##car _rest9971499722_))) + (_tl9972099848_ (let () (declare (not safe)) - (##cdr _rest198774198782_)))) - (let* ((_out198911_ - _hd198779198906_) - (_rest198913_ - _tl198780198908_)) + (##cdr _rest9971499722_)))) + (let* ((_out99851_ _hd9971999846_) + (_rest99853_ _tl9972099848_)) (declare (not safe)) - (_K198778198903_ - _rest198913_ - _out198911_))) + (_K9971899843_ + _rest99853_ + _out99851_))) (let () (declare (not safe)) - (_else198776198790_)))))) - _tl198739198756_))) + (_else9971699730_)))))) + _tl9967999696_))) (let () (declare (not safe)) - (_g198736198746_ _g198737198749_)))))) + (_g9967699686_ _g9967799689_)))))) (declare (not safe)) - (_g198735198915_ _stx198730_))))) + (_g9967599855_ _stx99670_))))) (define gxc#generate-meta-provide% - (lambda (_stx198691_ _state198692_) - (let () (declare (not safe)) (gxc#meta-state-end-phi! _state198692_)) - (let* ((_g198694198704_ - (lambda (_g198695198701_) + (lambda (_stx99631_ _state99632_) + (let () (declare (not safe)) (gxc#meta-state-end-phi! _state99632_)) + (let* ((_g9963499644_ + (lambda (_g9963599641_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g198695198701_)))) - (_g198693198727_ - (lambda (_g198695198707_) + _g9963599641_)))) + (_g9963399667_ + (lambda (_g9963599647_) (if (let () (declare (not safe)) - (gx#stx-pair? _g198695198707_)) - (let ((_e198699198709_ + (gx#stx-pair? _g9963599647_)) + (let ((_e9963999649_ (let () (declare (not safe)) - (gx#stx-e _g198695198707_)))) - (let ((_hd198698198712_ + (gx#stx-e _g9963599647_)))) + (let ((_hd9963899652_ (let () (declare (not safe)) - (##car _e198699198709_))) - (_tl198697198714_ + (##car _e9963999649_))) + (_tl9963799654_ (let () (declare (not safe)) - (##cdr _e198699198709_)))) - ((lambda (_L198717_) - (let ((__tmp214640 + (##cdr _e9963999649_)))) + ((lambda (_L99657_) + (let ((__tmp111012 (map gxc#generate-runtime-identifier - _L198717_))) + _L99657_))) (declare (not safe)) - (cons '%#provide __tmp214640))) - _tl198697198714_))) + (cons '%#provide __tmp111012))) + _tl9963799654_))) (let () (declare (not safe)) - (_g198694198704_ _g198695198707_)))))) + (_g9963499644_ _g9963599647_)))))) (declare (not safe)) - (_g198693198727_ _stx198691_)))) + (_g9963399667_ _stx99631_)))) (define gxc#generate-meta-extern% - (lambda (_stx198562_ _state198563_) - (letrec ((_generate1198565_ - (lambda (_id198686_ _eid198687_) - (let ((_eid198689_ + (lambda (_stx99502_ _state99503_) + (letrec ((_generate199505_ + (lambda (_id99626_ _eid99627_) + (let ((_eid99629_ (let () (declare (not safe)) - (gx#stx-e _eid198687_)))) - (if (interned-symbol? _eid198689_) + (gx#stx-e _eid99627_)))) + (if (interned-symbol? _eid99629_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile extern reference" - _stx198562_ - _eid198689_))) - (let ((__tmp214642 + _stx99502_ + _eid99629_))) + (let ((__tmp111014 (let () (declare (not safe)) - (gxc#generate-runtime-identifier _id198686_))) - (__tmp214641 + (gxc#generate-runtime-identifier _id99626_))) + (__tmp111013 (let () (declare (not safe)) - (cons _eid198689_ '())))) + (cons _eid99629_ '())))) (declare (not safe)) - (cons __tmp214642 __tmp214641)))))) - (let* ((_g198567198595_ - (lambda (_g198568198592_) + (cons __tmp111014 __tmp111013)))))) + (let* ((_g9950799535_ + (lambda (_g9950899532_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g198568198592_)))) - (_g198566198683_ - (lambda (_g198568198598_) + _g9950899532_)))) + (_g9950699623_ + (lambda (_g9950899538_) (if (let () (declare (not safe)) - (gx#stx-pair? _g198568198598_)) - (let ((_e198573198600_ + (gx#stx-pair? _g9950899538_)) + (let ((_e9951399540_ (let () (declare (not safe)) - (gx#stx-e _g198568198598_)))) - (let ((_hd198572198603_ + (gx#stx-e _g9950899538_)))) + (let ((_hd9951299543_ (let () (declare (not safe)) - (##car _e198573198600_))) - (_tl198571198605_ + (##car _e9951399540_))) + (_tl9951199545_ (let () (declare (not safe)) - (##cdr _e198573198600_)))) + (##cdr _e9951399540_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl198571198605_)) - (let ((_g214643_ + (gx#stx-pair/null? _tl9951199545_)) + (let ((_g111015_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl198571198605_ + _tl9951199545_ '0)))) (begin - (let ((_g214644_ + (let ((_g111016_ (let () (declare (not safe)) - (if (##values? _g214643_) - (##vector-length _g214643_) + (if (##values? _g111015_) + (##vector-length _g111015_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g214644_ 2))) + (##fx= _g111016_ 2))) (error "Context expects 2 values" - _g214644_))) - (let ((_target198574198608_ + _g111016_))) + (let ((_target9951499548_ (let () (declare (not safe)) - (##vector-ref _g214643_ 0))) - (_tl198576198610_ + (##vector-ref _g111015_ 0))) + (_tl9951699550_ (let () (declare (not safe)) - (##vector-ref _g214643_ 1)))) + (##vector-ref _g111015_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl198576198610_)) - (letrec ((_loop198577198613_ - (lambda (_hd198575198616_ - _eid198581198618_ - _id198582198620_) + (gx#stx-null? _tl9951699550_)) + (letrec ((_loop9951799553_ + (lambda (_hd9951599556_ + _eid9952199558_ + _id9952299560_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd198575198616_)) - (let ((_e198578198623_ + _hd9951599556_)) + (let ((_e9951899563_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd198575198616_)))) - (let ((_lp-hd198579198626_ + (gx#stx-e _hd9951599556_)))) + (let ((_lp-hd9951999566_ (let () (declare (not safe)) - (##car _e198578198623_))) - (_lp-tl198580198628_ + (##car _e9951899563_))) + (_lp-tl9952099568_ (let () (declare (not safe)) - (##cdr _e198578198623_)))) + (##cdr _e9951899563_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd198579198626_)) - (let ((_e198587198631_ + (gx#stx-pair? _lp-hd9951999566_)) + (let ((_e9952799571_ (let () (declare (not safe)) - (gx#stx-e _lp-hd198579198626_)))) - (let ((_hd198586198634_ + (gx#stx-e _lp-hd9951999566_)))) + (let ((_hd9952699574_ (let () (declare (not safe)) - (##car _e198587198631_))) - (_tl198585198636_ + (##car _e9952799571_))) + (_tl9952599576_ (let () (declare (not safe)) - (##cdr _e198587198631_)))) + (##cdr _e9952799571_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198585198636_)) - (let ((_e198590198639_ + (gx#stx-pair? _tl9952599576_)) + (let ((_e9953099579_ (let () (declare (not safe)) - (gx#stx-e _tl198585198636_)))) - (let ((_hd198589198642_ + (gx#stx-e _tl9952599576_)))) + (let ((_hd9952999582_ (let () (declare (not safe)) - (##car _e198590198639_))) - (_tl198588198644_ + (##car _e9953099579_))) + (_tl9952899584_ (let () (declare (not safe)) - (##cdr _e198590198639_)))) + (##cdr _e9953099579_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl198588198644_)) - (let ((__tmp214649 + (gx#stx-null? _tl9952899584_)) + (let ((__tmp111021 (let () (declare (not safe)) - (cons _hd198589198642_ - _eid198581198618_))) - (__tmp214648 + (cons _hd9952999582_ + _eid9952199558_))) + (__tmp111020 (let () (declare (not safe)) - (cons _hd198586198634_ - _id198582198620_)))) + (cons _hd9952699574_ + _id9952299560_)))) (declare (not safe)) - (_loop198577198613_ - _lp-tl198580198628_ - __tmp214649 - __tmp214648)) + (_loop9951799553_ + _lp-tl9952099568_ + __tmp111021 + __tmp111020)) (let () (declare (not safe)) - (_g198567198595_ - _g198568198598_))))) + (_g9950799535_ _g9950899538_))))) (let () (declare (not safe)) - (_g198567198595_ _g198568198598_))))) + (_g9950799535_ _g9950899538_))))) (let () (declare (not safe)) - (_g198567198595_ _g198568198598_))))) - (let ((_eid198583198647_ (reverse _eid198581198618_)) - (_id198584198649_ (reverse _id198582198620_))) - ((lambda (_L198652_ _L198653_) - (let ((__tmp214645 - (map _generate1198565_ - (let ((__tmp214646 - (lambda (_g198668198671_ - _g198669198673_) + (_g9950799535_ _g9950899538_))))) + (let ((_eid9952399587_ (reverse _eid9952199558_)) + (_id9952499589_ (reverse _id9952299560_))) + ((lambda (_L99592_ _L99593_) + (let ((__tmp111017 + (map _generate199505_ + (let ((__tmp111018 + (lambda (_g9960899611_ + _g9960999613_) (let () (declare (not safe)) - (cons _g198668198671_ - _g198669198673_))))) + (cons _g9960899611_ + _g9960999613_))))) (declare (not safe)) - (foldr1 __tmp214646 '() _L198653_)) - (let ((__tmp214647 - (lambda (_g198675198678_ - _g198676198680_) + (foldr1 __tmp111018 '() _L99593_)) + (let ((__tmp111019 + (lambda (_g9961599618_ + _g9961699620_) (let () (declare (not safe)) - (cons _g198675198678_ - _g198676198680_))))) + (cons _g9961599618_ + _g9961699620_))))) (declare (not safe)) - (foldr1 __tmp214647 '() _L198652_))))) + (foldr1 __tmp111019 '() _L99592_))))) (declare (not safe)) - (cons '%#extern __tmp214645))) - _eid198583198647_ - _id198584198649_)))))) + (cons '%#extern __tmp111017))) + _eid9952399587_ + _id9952499589_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop198577198613_ - _target198574198608_ + (_loop9951799553_ + _target9951499548_ '() '()))) (let () (declare (not safe)) - (_g198567198595_ - _g198568198598_)))))) + (_g9950799535_ + _g9950899538_)))))) (let () (declare (not safe)) - (_g198567198595_ _g198568198598_))))) + (_g9950799535_ _g9950899538_))))) (let () (declare (not safe)) - (_g198567198595_ _g198568198598_)))))) + (_g9950799535_ _g9950899538_)))))) (declare (not safe)) - (_g198566198683_ _stx198562_))))) + (_g9950699623_ _stx99502_))))) (define gxc#generate-meta-define-values% - (lambda (_stx198352_ _state198353_) - (letrec ((_generate1198355_ - (lambda (_id198557_) - (let ((_eid198559_ + (lambda (_stx99292_ _state99293_) + (letrec ((_generate199295_ + (lambda (_id99497_) + (let ((_eid99499_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _id198557_))) - (_ident198560_ + (gxc#generate-runtime-binding-id _id99497_))) + (_ident99500_ (let () (declare (not safe)) - (gxc#generate-runtime-identifier _id198557_)))) - (let ((__tmp214650 - (let ((__tmp214651 + (gxc#generate-runtime-identifier _id99497_)))) + (let ((__tmp111022 + (let ((__tmp111023 (let () (declare (not safe)) - (cons _eid198559_ '())))) + (cons _eid99499_ '())))) (declare (not safe)) - (cons _ident198560_ __tmp214651)))) + (cons _ident99500_ __tmp111023)))) (declare (not safe)) - (cons '%#define-runtime __tmp214650))))) - (_generate*198356_ - (lambda (_all198525_) - (let* ((_all198526198534_ _all198525_) - (_else198528198542_ + (cons '%#define-runtime __tmp111022))))) + (_generate*99296_ + (lambda (_all99465_) + (let* ((_all9946699474_ _all99465_) + (_else9946899482_ (lambda () (let () (declare (not safe)) - (cons '%#begin _all198525_)))) - (_K198530198547_ - (lambda (_one198545_) _one198545_))) + (cons '%#begin _all99465_)))) + (_K9947099487_ (lambda (_one99485_) _one99485_))) (if (let () (declare (not safe)) - (##pair? _all198526198534_)) - (let ((_hd198531198550_ + (##pair? _all9946699474_)) + (let ((_hd9947199490_ (let () (declare (not safe)) - (##car _all198526198534_))) - (_tl198532198552_ + (##car _all9946699474_))) + (_tl9947299492_ (let () (declare (not safe)) - (##cdr _all198526198534_)))) - (let ((_one198555_ _hd198531198550_)) + (##cdr _all9946699474_)))) + (let ((_one99495_ _hd9947199490_)) (if (let () (declare (not safe)) - (##null? _tl198532198552_)) + (##null? _tl9947299492_)) (let () (declare (not safe)) - (_K198530198547_ _one198555_)) + (_K9947099487_ _one99495_)) (let () (declare (not safe)) - (_else198528198542_))))) + (_else9946899482_))))) (let () (declare (not safe)) - (_else198528198542_))))))) - (let* ((_g198358198375_ - (lambda (_g198359198372_) + (_else9946899482_))))))) + (let* ((_g9929899315_ + (lambda (_g9929999312_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g198359198372_)))) - (_g198357198522_ - (lambda (_g198359198378_) + _g9929999312_)))) + (_g9929799462_ + (lambda (_g9929999318_) (if (let () (declare (not safe)) - (gx#stx-pair? _g198359198378_)) - (let ((_e198364198380_ + (gx#stx-pair? _g9929999318_)) + (let ((_e9930499320_ (let () (declare (not safe)) - (gx#stx-e _g198359198378_)))) - (let ((_hd198363198383_ + (gx#stx-e _g9929999318_)))) + (let ((_hd9930399323_ (let () (declare (not safe)) - (##car _e198364198380_))) - (_tl198362198385_ + (##car _e9930499320_))) + (_tl9930299325_ (let () (declare (not safe)) - (##cdr _e198364198380_)))) + (##cdr _e9930499320_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198362198385_)) - (let ((_e198367198388_ + (gx#stx-pair? _tl9930299325_)) + (let ((_e9930799328_ (let () (declare (not safe)) - (gx#stx-e _tl198362198385_)))) - (let ((_hd198366198391_ + (gx#stx-e _tl9930299325_)))) + (let ((_hd9930699331_ (let () (declare (not safe)) - (##car _e198367198388_))) - (_tl198365198393_ + (##car _e9930799328_))) + (_tl9930599333_ (let () (declare (not safe)) - (##cdr _e198367198388_)))) + (##cdr _e9930799328_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198365198393_)) - (let ((_e198370198396_ + (gx#stx-pair? _tl9930599333_)) + (let ((_e9931099336_ (let () (declare (not safe)) - (gx#stx-e - _tl198365198393_)))) - (let ((_hd198369198399_ + (gx#stx-e _tl9930599333_)))) + (let ((_hd9930999339_ (let () (declare (not safe)) - (##car _e198370198396_))) - (_tl198368198401_ + (##car _e9931099336_))) + (_tl9930899341_ (let () (declare (not safe)) - (##cdr _e198370198396_)))) + (##cdr _e9931099336_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl198368198401_)) - ((lambda (_L198404_ - _L198405_) - (let _lp198421_ ((_rest198423_ + _tl9930899341_)) + ((lambda (_L99344_ _L99345_) + (let _lp99361_ ((_rest99363_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L198405_) - (_r198424_ '())) - (let* ((___stx213783213784_ _rest198423_) - (_g198429198446_ + _L99345_) + (_r99364_ '())) + (let* ((___stx110155110156_ _rest99363_) + (_g9936999386_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx213783213784_))))) - (let ((___kont213785213786_ - (lambda (_L198509_) + ___stx110155110156_))))) + (let ((___kont110157110158_ + (lambda (_L99449_) (let () (declare (not safe)) - (_lp198421_ _L198509_ _r198424_)))) - (___kont213787213788_ - (lambda (_L198482_ _L198483_) - (let ((__tmp214652 - (let ((__tmp214653 + (_lp99361_ _L99449_ _r99364_)))) + (___kont110159110160_ + (lambda (_L99422_ _L99423_) + (let ((__tmp111024 + (let ((__tmp111025 (let () (declare (not safe)) - (_generate1198355_ _L198483_)))) + (_generate199295_ _L99423_)))) (declare (not safe)) - (cons __tmp214653 _r198424_)))) + (cons __tmp111025 _r99364_)))) (declare (not safe)) - (_lp198421_ _L198482_ __tmp214652)))) - (___kont213789213790_ - (lambda (_L198458_) - (let ((__tmp214654 - (let ((__tmp214655 - (let ((__tmp214656 + (_lp99361_ _L99422_ __tmp111024)))) + (___kont110161110162_ + (lambda (_L99398_) + (let ((__tmp111026 + (let ((__tmp111027 + (let ((__tmp111028 (let () (declare (not safe)) - (_generate1198355_ - _L198458_)))) + (_generate199295_ _L99398_)))) (declare (not safe)) - (cons __tmp214656 '())))) + (cons __tmp111028 '())))) (declare (not safe)) - (foldl1 cons __tmp214655 _r198424_)))) + (foldl1 cons __tmp111027 _r99364_)))) (declare (not safe)) - (_generate*198356_ __tmp214654)))) - (___kont213791213792_ + (_generate*99296_ __tmp111026)))) + (___kont110163110164_ (lambda () - (let ((__tmp214657 (reverse _r198424_))) + (let ((__tmp111029 (reverse _r99364_))) (declare (not safe)) - (_generate*198356_ __tmp214657))))) - (let ((_g198427198469_ + (_generate*99296_ __tmp111029))))) + (let ((_g9936799409_ (lambda () - (let ((_L198458_ ___stx213783213784_)) + (let ((_L99398_ ___stx110155110156_)) (if (let () (declare (not safe)) - (gx#identifier? _L198458_)) - (___kont213789213790_ _L198458_) - (___kont213791213792_)))))) + (gx#identifier? _L99398_)) + (___kont110161110162_ _L99398_) + (___kont110163110164_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx213783213784_)) - (let ((_e198434198498_ + (gx#stx-pair? ___stx110155110156_)) + (let ((_e9937499438_ (let () (declare (not safe)) - (gx#stx-e ___stx213783213784_)))) - (let ((_tl198432198503_ + (gx#stx-e ___stx110155110156_)))) + (let ((_tl9937299443_ (let () (declare (not safe)) - (##cdr _e198434198498_))) - (_hd198433198501_ + (##cdr _e9937499438_))) + (_hd9937399441_ (let () (declare (not safe)) - (##car _e198434198498_)))) + (##car _e9937499438_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd198433198501_)) - (let ((_e198435198506_ + (gx#stx-datum? _hd9937399441_)) + (let ((_e9937599446_ (let () (declare (not safe)) - (gx#stx-e _hd198433198501_)))) + (gx#stx-e _hd9937399441_)))) (if (let () (declare (not safe)) - (equal? _e198435198506_ '#f)) - (___kont213785213786_ _tl198432198503_) - (___kont213787213788_ - _tl198432198503_ - _hd198433198501_))) - (___kont213787213788_ - _tl198432198503_ - _hd198433198501_)))) - (let () (declare (not safe)) (_g198427198469_)))))))) + (equal? _e9937599446_ '#f)) + (___kont110157110158_ _tl9937299443_) + (___kont110159110160_ + _tl9937299443_ + _hd9937399441_))) + (___kont110159110160_ + _tl9937299443_ + _hd9937399441_)))) + (let () (declare (not safe)) (_g9936799409_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd198369198399_ - _hd198366198391_) + _hd9930999339_ + _hd9930699331_) (let () (declare (not safe)) - (_g198358198375_ - _g198359198378_))))) + (_g9929899315_ + _g9929999318_))))) (let () (declare (not safe)) - (_g198358198375_ - _g198359198378_))))) + (_g9929899315_ _g9929999318_))))) (let () (declare (not safe)) - (_g198358198375_ _g198359198378_))))) + (_g9929899315_ _g9929999318_))))) (let () (declare (not safe)) - (_g198358198375_ _g198359198378_)))))) + (_g9929899315_ _g9929999318_)))))) (declare (not safe)) - (_g198357198522_ _stx198352_))))) + (_g9929799462_ _stx99292_))))) (define gxc#generate-meta-define-syntax% - (lambda (_stx198249_ _state198250_) - (let* ((_g198252198269_ - (lambda (_g198253198266_) + (lambda (_stx99189_ _state99190_) + (let* ((_g9919299209_ + (lambda (_g9919399206_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g198253198266_)))) - (_g198251198349_ - (lambda (_g198253198272_) + _g9919399206_)))) + (_g9919199289_ + (lambda (_g9919399212_) (if (let () (declare (not safe)) - (gx#stx-pair? _g198253198272_)) - (let ((_e198258198274_ + (gx#stx-pair? _g9919399212_)) + (let ((_e9919899214_ (let () (declare (not safe)) - (gx#stx-e _g198253198272_)))) - (let ((_hd198257198277_ + (gx#stx-e _g9919399212_)))) + (let ((_hd9919799217_ (let () (declare (not safe)) - (##car _e198258198274_))) - (_tl198256198279_ + (##car _e9919899214_))) + (_tl9919699219_ (let () (declare (not safe)) - (##cdr _e198258198274_)))) + (##cdr _e9919899214_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198256198279_)) - (let ((_e198261198282_ + (gx#stx-pair? _tl9919699219_)) + (let ((_e9920199222_ (let () (declare (not safe)) - (gx#stx-e _tl198256198279_)))) - (let ((_hd198260198285_ + (gx#stx-e _tl9919699219_)))) + (let ((_hd9920099225_ (let () (declare (not safe)) - (##car _e198261198282_))) - (_tl198259198287_ + (##car _e9920199222_))) + (_tl9919999227_ (let () (declare (not safe)) - (##cdr _e198261198282_)))) + (##cdr _e9920199222_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198259198287_)) - (let ((_e198264198290_ + (gx#stx-pair? _tl9919999227_)) + (let ((_e9920499230_ (let () (declare (not safe)) - (gx#stx-e _tl198259198287_)))) - (let ((_hd198263198293_ + (gx#stx-e _tl9919999227_)))) + (let ((_hd9920399233_ (let () (declare (not safe)) - (##car _e198264198290_))) - (_tl198262198295_ + (##car _e9920499230_))) + (_tl9920299235_ (let () (declare (not safe)) - (##cdr _e198264198290_)))) + (##cdr _e9920499230_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl198262198295_)) - ((lambda (_L198298_ _L198299_) - (let* ((_eid198314_ + _tl9920299235_)) + ((lambda (_L99238_ _L99239_) + (let* ((_eid99254_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L198299_))) - (_phi198316_ - (let ((__tmp214658 + _L99239_))) + (_phi99256_ + (let ((__tmp111030 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp214658 '1))) - (_block198318_ + (fx+ __tmp111030 '1))) + (_block99258_ (let () (declare (not safe)) - (gxc#meta-state-begin-phi! _state198250_ _phi198316_)))) + (gxc#meta-state-begin-phi! _state99190_ _phi99256_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_g198321198328_ - (lambda (_g198322198325_) + (let* ((_g9926199268_ + (lambda (_g9926299265_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g198322198325_)))) - (_g198320198346_ - (lambda (_g198322198331_) - ((lambda (_L198333_) + _g9926299265_)))) + (_g9926099286_ + (lambda (_g9926299271_) + ((lambda (_L99273_) (let () - (let ((__tmp214659 - (let ((__tmp214662 + (let ((__tmp111031 + (let ((__tmp111034 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#define-runtime))) - (__tmp214660 - (let ((__tmp214661 + (__tmp111032 + (let ((__tmp111033 (let () (declare (not safe)) - (cons _L198298_ '())))) + (cons _L99238_ '())))) (declare (not safe)) - (cons _L198333_ __tmp214661)))) + (cons _L99273_ __tmp111033)))) (declare (not safe)) - (cons __tmp214662 __tmp214660)))) + (cons __tmp111034 __tmp111032)))) (declare (not safe)) (gxc#meta-state-add-phi! - _state198250_ - _phi198316_ - __tmp214659)))) - _g198322198331_)))) + _state99190_ + _phi99256_ + __tmp111031)))) + _g9926299271_)))) (declare (not safe)) - (_g198320198346_ _eid198314_)) + (_g9926099286_ _eid99254_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _block198318_ - (let ((__tmp214666 - (let ((__tmp214672 + (if _block99258_ + (let ((__tmp111038 + (let ((__tmp111044 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp214673 - (let ((__tmp214674 - (let ((__tmp214675 - (let ((__tmp214679 - (let ((__tmp214680 + (let ((__tmp111045 + (let ((__tmp111046 + (let ((__tmp111047 + (let ((__tmp111051 + (let ((__tmp111052 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'load-module '())))) (declare (not safe)) - (cons '%#ref __tmp214680))) - (__tmp214676 - (let ((__tmp214677 - (let ((__tmp214678 + (cons '%#ref __tmp111052))) + (__tmp111048 + (let ((__tmp111049 + (let ((__tmp111050 (let () (declare (not safe)) - (cons _block198318_ '())))) + (cons _block99258_ '())))) (declare (not safe)) - (cons '%#quote __tmp214678)))) + (cons '%#quote __tmp111050)))) (declare (not safe)) - (cons __tmp214677 '())))) + (cons __tmp111049 '())))) (declare (not safe)) - (cons __tmp214679 __tmp214676)))) + (cons __tmp111051 __tmp111048)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp214675)))) + (cons '%#call __tmp111047)))) (declare (not safe)) - (cons __tmp214674 '())))) + (cons __tmp111046 '())))) (declare (not safe)) - (cons '%#begin-syntax __tmp214673))) - (__tmp214667 - (let ((__tmp214668 - (let ((__tmp214669 - (let ((__tmp214671 + (cons '%#begin-syntax __tmp111045))) + (__tmp111039 + (let ((__tmp111040 + (let ((__tmp111041 + (let ((__tmp111043 (let () (declare (not safe)) (gxc#generate-runtime-identifier - _L198299_))) - (__tmp214670 + _L99239_))) + (__tmp111042 (let () (declare (not safe)) - (cons _eid198314_ '())))) + (cons _eid99254_ '())))) (declare (not safe)) - (cons __tmp214671 - __tmp214670)))) + (cons __tmp111043 + __tmp111042)))) (declare (not safe)) - (cons '%#define-syntax __tmp214669)))) + (cons '%#define-syntax __tmp111041)))) (declare (not safe)) - (cons __tmp214668 '())))) + (cons __tmp111040 '())))) (declare (not safe)) - (cons __tmp214672 __tmp214667)))) + (cons __tmp111044 __tmp111039)))) (declare (not safe)) - (cons '%#begin __tmp214666)) - (let ((__tmp214663 - (let ((__tmp214665 + (cons '%#begin __tmp111038)) + (let ((__tmp111035 + (let ((__tmp111037 (let () (declare (not safe)) - (gxc#generate-runtime-identifier _L198299_))) - (__tmp214664 + (gxc#generate-runtime-identifier _L99239_))) + (__tmp111036 (let () (declare (not safe)) - (cons _eid198314_ '())))) + (cons _eid99254_ '())))) (declare (not safe)) - (cons __tmp214665 __tmp214664)))) + (cons __tmp111037 __tmp111036)))) (declare (not safe)) - (cons '%#define-syntax __tmp214663))))) + (cons '%#define-syntax __tmp111035))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd198263198293_ - _hd198260198285_) + _hd9920399233_ + _hd9920099225_) (let () (declare (not safe)) - (_g198252198269_ - _g198253198272_))))) + (_g9919299209_ + _g9919399212_))))) (let () (declare (not safe)) - (_g198252198269_ _g198253198272_))))) + (_g9919299209_ _g9919399212_))))) (let () (declare (not safe)) - (_g198252198269_ _g198253198272_))))) + (_g9919299209_ _g9919399212_))))) (let () (declare (not safe)) - (_g198252198269_ _g198253198272_)))))) + (_g9919299209_ _g9919399212_)))))) (declare (not safe)) - (_g198251198349_ _stx198249_)))) + (_g9919199289_ _stx99189_)))) (define gxc#generate-meta-define-alias% - (lambda (_stx198181_ _state198182_) - (let* ((_g198184198201_ - (lambda (_g198185198198_) + (lambda (_stx99121_ _state99122_) + (let* ((_g9912499141_ + (lambda (_g9912599138_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g198185198198_)))) - (_g198183198246_ - (lambda (_g198185198204_) + _g9912599138_)))) + (_g9912399186_ + (lambda (_g9912599144_) (if (let () (declare (not safe)) - (gx#stx-pair? _g198185198204_)) - (let ((_e198190198206_ + (gx#stx-pair? _g9912599144_)) + (let ((_e9913099146_ (let () (declare (not safe)) - (gx#stx-e _g198185198204_)))) - (let ((_hd198189198209_ + (gx#stx-e _g9912599144_)))) + (let ((_hd9912999149_ (let () (declare (not safe)) - (##car _e198190198206_))) - (_tl198188198211_ + (##car _e9913099146_))) + (_tl9912899151_ (let () (declare (not safe)) - (##cdr _e198190198206_)))) + (##cdr _e9913099146_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198188198211_)) - (let ((_e198193198214_ + (gx#stx-pair? _tl9912899151_)) + (let ((_e9913399154_ (let () (declare (not safe)) - (gx#stx-e _tl198188198211_)))) - (let ((_hd198192198217_ + (gx#stx-e _tl9912899151_)))) + (let ((_hd9913299157_ (let () (declare (not safe)) - (##car _e198193198214_))) - (_tl198191198219_ + (##car _e9913399154_))) + (_tl9913199159_ (let () (declare (not safe)) - (##cdr _e198193198214_)))) + (##cdr _e9913399154_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198191198219_)) - (let ((_e198196198222_ + (gx#stx-pair? _tl9913199159_)) + (let ((_e9913699162_ (let () (declare (not safe)) - (gx#stx-e _tl198191198219_)))) - (let ((_hd198195198225_ + (gx#stx-e _tl9913199159_)))) + (let ((_hd9913599165_ (let () (declare (not safe)) - (##car _e198196198222_))) - (_tl198194198227_ + (##car _e9913699162_))) + (_tl9913499167_ (let () (declare (not safe)) - (##cdr _e198196198222_)))) + (##cdr _e9913699162_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl198194198227_)) - ((lambda (_L198230_ _L198231_) - (let ((__tmp214681 - (let ((__tmp214684 + _tl9913499167_)) + ((lambda (_L99170_ _L99171_) + (let ((__tmp111053 + (let ((__tmp111056 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-identifier _L198231_))) - (__tmp214682 - (let ((__tmp214683 + (gxc#generate-runtime-identifier _L99171_))) + (__tmp111054 + (let ((__tmp111055 (let () (declare (not safe)) - (gxc#generate-runtime-identifier - _L198230_)))) + (gxc#generate-runtime-identifier _L99170_)))) (declare (not safe)) - (cons __tmp214683 '())))) + (cons __tmp111055 '())))) (declare (not safe)) - (cons __tmp214684 __tmp214682)))) + (cons __tmp111056 __tmp111054)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#define-alias - __tmp214681))) - _hd198195198225_ - _hd198192198217_) + __tmp111053))) + _hd9913599165_ + _hd9913299157_) (let () (declare (not safe)) - (_g198184198201_ - _g198185198204_))))) + (_g9912499141_ + _g9912599144_))))) (let () (declare (not safe)) - (_g198184198201_ _g198185198204_))))) + (_g9912499141_ _g9912599144_))))) (let () (declare (not safe)) - (_g198184198201_ _g198185198204_))))) + (_g9912499141_ _g9912599144_))))) (let () (declare (not safe)) - (_g198184198201_ _g198185198204_)))))) + (_g9912499141_ _g9912599144_)))))) (declare (not safe)) - (_g198183198246_ _stx198181_)))) + (_g9912399186_ _stx99121_)))) (define gxc#generate-meta-phi-define-values% - (lambda (_stx198178_ _state198179_) - (let ((__tmp214685 (gx#current-expander-phi))) + (lambda (_stx99118_ _state99119_) + (let ((__tmp111057 (gx#current-expander-phi))) (declare (not safe)) - (gxc#meta-state-add-phi! _state198179_ __tmp214685 _stx198178_)) + (gxc#meta-state-add-phi! _state99119_ __tmp111057 _stx99118_)) (let () (declare (not safe)) - (gxc#generate-meta-define-values% _stx198178_ _state198179_)))) + (gxc#generate-meta-define-values% _stx99118_ _state99119_)))) (define gxc#generate-meta-phi-expr - (lambda (_stx198175_ _state198176_) - (let ((__tmp214686 (gx#current-expander-phi))) + (lambda (_stx99115_ _state99116_) + (let ((__tmp111058 (gx#current-expander-phi))) (declare (not safe)) - (gxc#meta-state-add-phi! _state198176_ __tmp214686 _stx198175_)) + (gxc#meta-state-add-phi! _state99116_ __tmp111058 _stx99115_)) '#!void)) (define gxc#meta-state::t - (let ((__tmp214689 (list)) - (__tmp214687 - (let ((__tmp214688 + (let ((__tmp111061 (list)) + (__tmp111059 + (let ((__tmp111060 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp214688 '())))) + (cons __tmp111060 '())))) (declare (not safe)) (make-class-type 'gxc#meta-state::t 'meta-state - __tmp214689 + __tmp111061 '(src n open blocks) - __tmp214687 + __tmp111059 ':init!))) (define gxc#meta-state? (let () (declare (not safe)) (make-class-predicate gxc#meta-state::t))) (define gxc#make-meta-state - (lambda _$args198172_ - (apply make-instance gxc#meta-state::t _$args198172_))) + (lambda _$args99112_ + (apply make-instance gxc#meta-state::t _$args99112_))) (define gxc#meta-state-src (let () (declare (not safe)) @@ -18163,100 +18157,103 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#meta-state::t 'blocks))) (define gxc#meta-state:::init! - (lambda (_self198169_ _ctx198170_) - (if (let ((__tmp214697 + (lambda (_self99109_ _ctx99110_) + (if (let ((__tmp111070 (let () (declare (not safe)) - (##structure-length _self198169_)))) + (##structure-length _self99109_)))) (declare (not safe)) - (##fx< '4 __tmp214697)) + (##fx< '4 __tmp111070)) (begin - (let ((__tmp214691 - (let ((__tmp214692 + (let ((__tmp111064 + (let ((__tmp111065 (##structure-ref - _ctx198170_ + _ctx99110_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp214692))) - (__tmp214690 + (gxc#module-id->path-string __tmp111065))) + (__tmp111063 (let () (declare (not safe)) - (##structure-type _self198169_)))) + (##structure-type _self99109_)))) (declare (not safe)) (##unchecked-structure-set! - _self198169_ - __tmp214691 + _self99109_ + __tmp111064 '1 - __tmp214690 + __tmp111063 '#f)) - (let ((__tmp214693 + (let ((__tmp111066 (let () (declare (not safe)) - (##structure-type _self198169_)))) + (##structure-type _self99109_)))) (declare (not safe)) (##unchecked-structure-set! - _self198169_ + _self99109_ '1 '2 - __tmp214693 + __tmp111066 '#f)) - (let ((__tmp214695 - (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp214694 + (let ((__tmp111068 + (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp111067 (let () (declare (not safe)) - (##structure-type _self198169_)))) + (##structure-type _self99109_)))) (declare (not safe)) (##unchecked-structure-set! - _self198169_ - __tmp214695 + _self99109_ + __tmp111068 '3 - __tmp214694 + __tmp111067 '#f)) - (let ((__tmp214696 + (let ((__tmp111069 (let () (declare (not safe)) - (##structure-type _self198169_)))) + (##structure-type _self99109_)))) (declare (not safe)) (##unchecked-structure-set! - _self198169_ + _self99109_ '() '4 - __tmp214696 + __tmp111069 '#f))) - (error '"struct-instance-init!: too many arguments for struct" - _self198169_ - '4 + (let ((__tmp111062 (let () (declare (not safe)) - (##vector-length _self198169_)))))) + (##vector-length _self99109_)))) + (declare (not safe)) + (error '"struct-instance-init!: too many arguments for struct" + _self99109_ + '4 + __tmp111062))))) (let () (declare (not safe)) - (bind-method! gxc#meta-state::t ':init! gxc#meta-state:::init! '#f)) + (bind-method!__% gxc#meta-state::t ':init! gxc#meta-state:::init! '#f)) (define gxc#meta-state-block::t - (let ((__tmp214700 (list)) - (__tmp214698 - (let ((__tmp214699 + (let ((__tmp111073 (list)) + (__tmp111071 + (let ((__tmp111072 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp214699 '())))) + (cons __tmp111072 '())))) (declare (not safe)) (make-class-type 'gxc#meta-state-block::t 'meta-state-block - __tmp214700 + __tmp111073 '(ctx phi n code) - __tmp214698 + __tmp111071 '#f))) (define gxc#meta-state-block? (let () (declare (not safe)) (make-class-predicate gxc#meta-state-block::t))) (define gxc#make-meta-state-block - (lambda _$args198044_ - (apply make-instance gxc#meta-state-block::t _$args198044_))) + (lambda _$args98984_ + (apply make-instance gxc#meta-state-block::t _$args98984_))) (define gxc#meta-state-block-ctx (let () (declare (not safe)) @@ -18322,1263 +18319,1250 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#meta-state-block::t 'code))) (define gxc#meta-state-begin-phi! - (lambda (_state198003_ _phi198004_) - (let* ((_state198005198013_ _state198003_) - (_E198007198017_ + (lambda (_state98943_ _phi98944_) + (let* ((_state9894598953_ _state98943_) + (_E9894798957_ (lambda () - (error '"No clause matching" _state198005198013_))) - (_K198008198026_ - (lambda (_open198020_ _n198021_ _src198022_) + (let () + (declare (not safe)) + (error '"No clause matching" _state9894598953_)))) + (_K9894898966_ + (lambda (_open98960_ _n98961_ _src98962_) (if (let () (declare (not safe)) - (table-ref _open198020_ _phi198004_ '#f)) + (hash-get _open98960_ _phi98944_)) '#f - (let ((_block-ref198024_ + (let ((_block-ref98964_ (string-append - _src198022_ + _src98962_ '"__" - (number->string _n198021_)))) + (number->string _n98961_)))) (##structure-set! - _state198003_ - (let () (declare (not safe)) (fx+ _n198021_ '1)) + _state98943_ + (let () (declare (not safe)) (fx+ _n98961_ '1)) '2 gxc#meta-state::t '#f) - (let ((__tmp214701 - (let ((__tmp214702 + (let ((__tmp111074 + (let ((__tmp111075 (gx#current-expander-context))) (declare (not safe)) (##structure gxc#meta-state-block::t - __tmp214702 - _phi198004_ - _n198021_ + __tmp111075 + _phi98944_ + _n98961_ '())))) (declare (not safe)) - (table-set! _open198020_ _phi198004_ __tmp214701)) - _block-ref198024_))))) + (hash-put! _open98960_ _phi98944_ __tmp111074)) + _block-ref98964_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _state198005198013_ + _state9894598953_ 'gxc#meta-state::t)) - (let* ((_e198009198029_ + (let* ((_e9894998969_ (let () (declare (not safe)) (##unchecked-structure-ref - _state198005198013_ + _state9894598953_ '1 gxc#meta-state::t '#f))) - (_src198032_ _e198009198029_) - (_e198010198034_ + (_src98972_ _e9894998969_) + (_e9895098974_ (let () (declare (not safe)) (##unchecked-structure-ref - _state198005198013_ + _state9894598953_ '2 gxc#meta-state::t '#f))) - (_n198037_ _e198010198034_) - (_e198011198039_ + (_n98977_ _e9895098974_) + (_e9895198979_ (let () (declare (not safe)) (##unchecked-structure-ref - _state198005198013_ + _state9894598953_ '3 gxc#meta-state::t '#f))) - (_open198042_ _e198011198039_)) + (_open98982_ _e9895198979_)) (declare (not safe)) - (_K198008198026_ _open198042_ _n198037_ _src198032_)) - (let () (declare (not safe)) (_E198007198017_)))))) + (_K9894898966_ _open98982_ _n98977_ _src98972_)) + (let () (declare (not safe)) (_E9894798957_)))))) (define gxc#meta-state-add-phi! - (lambda (_state197997_ _phi197998_ _stx197999_) - (let ((_block198001_ - (let ((__tmp214703 + (lambda (_state98937_ _phi98938_ _stx98939_) + (let ((_block98941_ + (let ((__tmp111076 (##structure-ref - _state197997_ + _state98937_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (table-ref __tmp214703 _phi197998_ '#f)))) + (hash-get __tmp111076 _phi98938_)))) (##structure-set! - _block198001_ - (let ((__tmp214704 + _block98941_ + (let ((__tmp111077 (##structure-ref - _block198001_ + _block98941_ '4 gxc#meta-state-block::t '#f))) (declare (not safe)) - (cons _stx197999_ __tmp214704)) + (cons _stx98939_ __tmp111077)) '4 gxc#meta-state-block::t '#f)))) (define gxc#meta-state-end-phi! - (lambda (_state197992_) + (lambda (_state98932_) (##structure-set! - _state197992_ - (let ((__tmp214707 - (lambda (_g214708_ _block197994_ _r197995_) + _state98932_ + (let ((__tmp111080 + (lambda (_g111081_ _block98934_ _r98935_) (let () (declare (not safe)) - (cons _block197994_ _r197995_)))) - (__tmp214706 - (##structure-ref _state197992_ '4 gxc#meta-state::t '#f)) - (__tmp214705 - (##structure-ref _state197992_ '3 gxc#meta-state::t '#f))) + (cons _block98934_ _r98935_)))) + (__tmp111079 + (##structure-ref _state98932_ '4 gxc#meta-state::t '#f)) + (__tmp111078 + (##structure-ref _state98932_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-fold __tmp214707 __tmp214706 __tmp214705)) + (hash-fold __tmp111080 __tmp111079 __tmp111078)) '4 gxc#meta-state::t '#f) (##structure-set! - _state197992_ - (let () (declare (not safe)) (make-table 'test: eq?)) + _state98932_ + (let () (declare (not safe)) (make-hash-table-eq)) '3 gxc#meta-state::t '#f))) (define gxc#meta-state-end! - (lambda (_state197944_) - (let () (declare (not safe)) (gxc#meta-state-end-phi! _state197944_)) - (let ((__tmp214710 - (lambda (_block197946_ _r197947_) - (let* ((_block197948197957_ _block197946_) - (_E197950197961_ + (lambda (_state98884_) + (let () (declare (not safe)) (gxc#meta-state-end-phi! _state98884_)) + (let ((__tmp111083 + (lambda (_block98886_ _r98887_) + (let* ((_block9888898897_ _block98886_) + (_E9889098901_ (lambda () - (error '"No clause matching" - _block197948197957_))) - (_K197951197969_ - (lambda (_code197964_ - _n197965_ - _phi197966_ - _ctx197967_) + (let () + (declare (not safe)) + (error '"No clause matching" + _block9888898897_)))) + (_K9889198909_ + (lambda (_code98904_ _n98905_ _phi98906_ _ctx98907_) (if (let () (declare (not safe)) - (null? _code197964_)) - _r197947_ - (let ((__tmp214711 - (let ((__tmp214712 - (let ((__tmp214713 - (let ((__tmp214714 - (let ((__tmp214715 + (null? _code98904_)) + _r98887_ + (let ((__tmp111084 + (let ((__tmp111085 + (let ((__tmp111086 + (let ((__tmp111087 + (let ((__tmp111088 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp214716 (reverse _code197964_))) + (let ((__tmp111089 (reverse _code98904_))) (declare (not safe)) - (cons '%#begin __tmp214716)))) + (cons '%#begin __tmp111089)))) (declare (not safe)) - (cons __tmp214715 '())))) + (cons __tmp111088 '())))) (declare (not safe)) - (cons _n197965_ __tmp214714)))) + (cons _n98905_ __tmp111087)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _phi197966_ - __tmp214713)))) + (cons _phi98906_ + __tmp111086)))) (declare (not safe)) - (cons _ctx197967_ __tmp214712)))) + (cons _ctx98907_ __tmp111085)))) (declare (not safe)) - (cons __tmp214711 _r197947_)))))) + (cons __tmp111084 _r98887_)))))) (if (let () (declare (not safe)) (##structure-instance-of? - _block197948197957_ + _block9888898897_ 'gxc#meta-state-block::t)) - (let* ((_e197952197972_ + (let* ((_e9889298912_ (let () (declare (not safe)) (##unchecked-structure-ref - _block197948197957_ + _block9888898897_ '1 gxc#meta-state-block::t '#f))) - (_ctx197975_ _e197952197972_) - (_e197953197977_ + (_ctx98915_ _e9889298912_) + (_e9889398917_ (let () (declare (not safe)) (##unchecked-structure-ref - _block197948197957_ + _block9888898897_ '2 gxc#meta-state-block::t '#f))) - (_phi197980_ _e197953197977_) - (_e197954197982_ + (_phi98920_ _e9889398917_) + (_e9889498922_ (let () (declare (not safe)) (##unchecked-structure-ref - _block197948197957_ + _block9888898897_ '3 gxc#meta-state-block::t '#f))) - (_n197985_ _e197954197982_) - (_e197955197987_ + (_n98925_ _e9889498922_) + (_e9889598927_ (let () (declare (not safe)) (##unchecked-structure-ref - _block197948197957_ + _block9888898897_ '4 gxc#meta-state-block::t '#f))) - (_code197990_ _e197955197987_)) + (_code98930_ _e9889598927_)) (declare (not safe)) - (_K197951197969_ - _code197990_ - _n197985_ - _phi197980_ - _ctx197975_)) - (let () (declare (not safe)) (_E197950197961_)))))) - (__tmp214709 - (##structure-ref _state197944_ '4 gxc#meta-state::t '#f))) + (_K9889198909_ + _code98930_ + _n98925_ + _phi98920_ + _ctx98915_)) + (let () (declare (not safe)) (_E9889098901_)))))) + (__tmp111082 + (##structure-ref _state98884_ '4 gxc#meta-state::t '#f))) (declare (not safe)) - (foldl1 __tmp214710 '() __tmp214709)))) + (foldl1 __tmp111083 '() __tmp111082)))) (define gxc#collect-expression-refs - (lambda (_stx197940_) - (let ((_ht197942_ - (let () (declare (not safe)) (make-table 'test: eq?)))) + (lambda (_stx98880_) + (let ((_ht98882_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (gxc#apply-collect-expression-refs _stx197940_ _ht197942_)) - _ht197942_))) + (gxc#apply-collect-expression-refs _stx98880_ _ht98882_)) + _ht98882_))) (define gxc#collect-refs-ref% - (lambda (_stx197883_ _ht197884_) - (let* ((_g197886197899_ - (lambda (_g197887197896_) + (lambda (_stx98823_ _ht98824_) + (let* ((_g9882698839_ + (lambda (_g9882798836_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g197887197896_)))) - (_g197885197937_ - (lambda (_g197887197902_) + _g9882798836_)))) + (_g9882598877_ + (lambda (_g9882798842_) (if (let () (declare (not safe)) - (gx#stx-pair? _g197887197902_)) - (let ((_e197891197904_ + (gx#stx-pair? _g9882798842_)) + (let ((_e9883198844_ (let () (declare (not safe)) - (gx#stx-e _g197887197902_)))) - (let ((_hd197890197907_ + (gx#stx-e _g9882798842_)))) + (let ((_hd9883098847_ (let () (declare (not safe)) - (##car _e197891197904_))) - (_tl197889197909_ + (##car _e9883198844_))) + (_tl9882998849_ (let () (declare (not safe)) - (##cdr _e197891197904_)))) + (##cdr _e9883198844_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197889197909_)) - (let ((_e197894197912_ + (gx#stx-pair? _tl9882998849_)) + (let ((_e9883498852_ (let () (declare (not safe)) - (gx#stx-e _tl197889197909_)))) - (let ((_hd197893197915_ + (gx#stx-e _tl9882998849_)))) + (let ((_hd9883398855_ (let () (declare (not safe)) - (##car _e197894197912_))) - (_tl197892197917_ + (##car _e9883498852_))) + (_tl9883298857_ (let () (declare (not safe)) - (##cdr _e197894197912_)))) + (##cdr _e9883498852_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl197892197917_)) - ((lambda (_L197920_) - (let* ((_bind197932_ + (gx#stx-null? _tl9883298857_)) + ((lambda (_L98860_) + (let* ((_bind98872_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _L197920_))) - (_eid197934_ - (if _bind197932_ + _L98860_))) + (_eid98874_ + (if _bind98872_ (##structure-ref - _bind197932_ + _bind98872_ '1 gx#binding::t '#f) (let () (declare (not safe)) (gx#stx-e - _L197920_))))) + _L98860_))))) (let () (declare (not safe)) - (table-set! - _ht197884_ - _eid197934_ - _eid197934_)))) - _hd197893197915_) + (hash-put! + _ht98824_ + _eid98874_ + _eid98874_)))) + _hd9883398855_) (let () (declare (not safe)) - (_g197886197899_ _g197887197902_))))) + (_g9882698839_ _g9882798842_))))) (let () (declare (not safe)) - (_g197886197899_ _g197887197902_))))) + (_g9882698839_ _g9882798842_))))) (let () (declare (not safe)) - (_g197886197899_ _g197887197902_)))))) + (_g9882698839_ _g9882798842_)))))) (declare (not safe)) - (_g197885197937_ _stx197883_)))) + (_g9882598877_ _stx98823_)))) (define gxc#collect-refs-setq% - (lambda (_stx197810_ _ht197811_) - (let* ((_g197813197830_ - (lambda (_g197814197827_) + (lambda (_stx98750_ _ht98751_) + (let* ((_g9875398770_ + (lambda (_g9875498767_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g197814197827_)))) - (_g197812197880_ - (lambda (_g197814197833_) + _g9875498767_)))) + (_g9875298820_ + (lambda (_g9875498773_) (if (let () (declare (not safe)) - (gx#stx-pair? _g197814197833_)) - (let ((_e197819197835_ + (gx#stx-pair? _g9875498773_)) + (let ((_e9875998775_ (let () (declare (not safe)) - (gx#stx-e _g197814197833_)))) - (let ((_hd197818197838_ + (gx#stx-e _g9875498773_)))) + (let ((_hd9875898778_ (let () (declare (not safe)) - (##car _e197819197835_))) - (_tl197817197840_ + (##car _e9875998775_))) + (_tl9875798780_ (let () (declare (not safe)) - (##cdr _e197819197835_)))) + (##cdr _e9875998775_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197817197840_)) - (let ((_e197822197843_ + (gx#stx-pair? _tl9875798780_)) + (let ((_e9876298783_ (let () (declare (not safe)) - (gx#stx-e _tl197817197840_)))) - (let ((_hd197821197846_ + (gx#stx-e _tl9875798780_)))) + (let ((_hd9876198786_ (let () (declare (not safe)) - (##car _e197822197843_))) - (_tl197820197848_ + (##car _e9876298783_))) + (_tl9876098788_ (let () (declare (not safe)) - (##cdr _e197822197843_)))) + (##cdr _e9876298783_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197820197848_)) - (let ((_e197825197851_ + (gx#stx-pair? _tl9876098788_)) + (let ((_e9876598791_ (let () (declare (not safe)) - (gx#stx-e _tl197820197848_)))) - (let ((_hd197824197854_ + (gx#stx-e _tl9876098788_)))) + (let ((_hd9876498794_ (let () (declare (not safe)) - (##car _e197825197851_))) - (_tl197823197856_ + (##car _e9876598791_))) + (_tl9876398796_ (let () (declare (not safe)) - (##cdr _e197825197851_)))) + (##cdr _e9876598791_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl197823197856_)) - ((lambda (_L197859_ _L197860_) - (let* ((_bind197875_ + _tl9876398796_)) + ((lambda (_L98799_ _L98800_) + (let* ((_bind98815_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _L197860_))) - (_eid197877_ - (if _bind197875_ + _L98800_))) + (_eid98817_ + (if _bind98815_ (##structure-ref - _bind197875_ + _bind98815_ '1 gx#binding::t '#f) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L197860_))))) + (gx#stx-e _L98800_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (table-set! - _ht197811_ - _eid197877_ - _eid197877_)) + (hash-put! + _ht98751_ + _eid98817_ + _eid98817_)) (let () (declare (not safe)) (gxc#compile-e__1 - _L197859_ - _ht197811_)))) - _hd197824197854_ - _hd197821197846_) + _L98799_ + _ht98751_)))) + _hd9876498794_ + _hd9876198786_) (let () (declare (not safe)) - (_g197813197830_ - _g197814197833_))))) + (_g9875398770_ + _g9875498773_))))) (let () (declare (not safe)) - (_g197813197830_ _g197814197833_))))) + (_g9875398770_ _g9875498773_))))) (let () (declare (not safe)) - (_g197813197830_ _g197814197833_))))) + (_g9875398770_ _g9875498773_))))) (let () (declare (not safe)) - (_g197813197830_ _g197814197833_)))))) + (_g9875398770_ _g9875498773_)))))) (declare (not safe)) - (_g197812197880_ _stx197810_)))) + (_g9875298820_ _stx98750_)))) (define gxc#find-runtime-begin% - (lambda (_stx197772_) - (let* ((_g197774197784_ - (lambda (_g197775197781_) + (lambda (_stx98712_) + (let* ((_g9871498724_ + (lambda (_g9871598721_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g197775197781_)))) - (_g197773197807_ - (lambda (_g197775197787_) + _g9871598721_)))) + (_g9871398747_ + (lambda (_g9871598727_) (if (let () (declare (not safe)) - (gx#stx-pair? _g197775197787_)) - (let ((_e197779197789_ + (gx#stx-pair? _g9871598727_)) + (let ((_e9871998729_ (let () (declare (not safe)) - (gx#stx-e _g197775197787_)))) - (let ((_hd197778197792_ + (gx#stx-e _g9871598727_)))) + (let ((_hd9871898732_ (let () (declare (not safe)) - (##car _e197779197789_))) - (_tl197777197794_ + (##car _e9871998729_))) + (_tl9871798734_ (let () (declare (not safe)) - (##cdr _e197779197789_)))) - ((lambda (_L197797_) + (##cdr _e9871998729_)))) + ((lambda (_L98737_) (let () (declare (not safe)) - (ormap1 gxc#compile-e _L197797_))) - _tl197777197794_))) + (ormap1 gxc#compile-e _L98737_))) + _tl9871798734_))) (let () (declare (not safe)) - (_g197774197784_ _g197775197787_)))))) + (_g9871498724_ _g9871598727_)))))) (declare (not safe)) - (_g197773197807_ _stx197772_)))) + (_g9871398747_ _stx98712_)))) (define gxc#find-lambda-expression-begin% - (lambda (_stx197734_) - (let* ((_g197736197746_ - (lambda (_g197737197743_) + (lambda (_stx98674_) + (let* ((_g9867698686_ + (lambda (_g9867798683_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g197737197743_)))) - (_g197735197769_ - (lambda (_g197737197749_) + _g9867798683_)))) + (_g9867598709_ + (lambda (_g9867798689_) (if (let () (declare (not safe)) - (gx#stx-pair? _g197737197749_)) - (let ((_e197741197751_ + (gx#stx-pair? _g9867798689_)) + (let ((_e9868198691_ (let () (declare (not safe)) - (gx#stx-e _g197737197749_)))) - (let ((_hd197740197754_ + (gx#stx-e _g9867798689_)))) + (let ((_hd9868098694_ (let () (declare (not safe)) - (##car _e197741197751_))) - (_tl197739197756_ + (##car _e9868198691_))) + (_tl9867998696_ (let () (declare (not safe)) - (##cdr _e197741197751_)))) - ((lambda (_L197759_) - (let ((__tmp214717 + (##cdr _e9868198691_)))) + ((lambda (_L98699_) + (let ((__tmp111090 (let () (declare (not safe)) - (last _L197759_)))) + (last _L98699_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp214717))) - _tl197739197756_))) + (gxc#compile-e__0 __tmp111090))) + _tl9867998696_))) (let () (declare (not safe)) - (_g197736197746_ _g197737197749_)))))) + (_g9867698686_ _g9867798689_)))))) (declare (not safe)) - (_g197735197769_ _stx197734_)))) + (_g9867598709_ _stx98674_)))) (define gxc#find-lambda-expression-begin-annotation% - (lambda (_stx197667_) - (let* ((_g197669197686_ - (lambda (_g197670197683_) + (lambda (_stx98607_) + (let* ((_g9860998626_ + (lambda (_g9861098623_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g197670197683_)))) - (_g197668197731_ - (lambda (_g197670197689_) + _g9861098623_)))) + (_g9860898671_ + (lambda (_g9861098629_) (if (let () (declare (not safe)) - (gx#stx-pair? _g197670197689_)) - (let ((_e197675197691_ + (gx#stx-pair? _g9861098629_)) + (let ((_e9861598631_ (let () (declare (not safe)) - (gx#stx-e _g197670197689_)))) - (let ((_hd197674197694_ + (gx#stx-e _g9861098629_)))) + (let ((_hd9861498634_ (let () (declare (not safe)) - (##car _e197675197691_))) - (_tl197673197696_ + (##car _e9861598631_))) + (_tl9861398636_ (let () (declare (not safe)) - (##cdr _e197675197691_)))) + (##cdr _e9861598631_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197673197696_)) - (let ((_e197678197699_ + (gx#stx-pair? _tl9861398636_)) + (let ((_e9861898639_ (let () (declare (not safe)) - (gx#stx-e _tl197673197696_)))) - (let ((_hd197677197702_ + (gx#stx-e _tl9861398636_)))) + (let ((_hd9861798642_ (let () (declare (not safe)) - (##car _e197678197699_))) - (_tl197676197704_ + (##car _e9861898639_))) + (_tl9861698644_ (let () (declare (not safe)) - (##cdr _e197678197699_)))) + (##cdr _e9861898639_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197676197704_)) - (let ((_e197681197707_ + (gx#stx-pair? _tl9861698644_)) + (let ((_e9862198647_ (let () (declare (not safe)) - (gx#stx-e _tl197676197704_)))) - (let ((_hd197680197710_ + (gx#stx-e _tl9861698644_)))) + (let ((_hd9862098650_ (let () (declare (not safe)) - (##car _e197681197707_))) - (_tl197679197712_ + (##car _e9862198647_))) + (_tl9861998652_ (let () (declare (not safe)) - (##cdr _e197681197707_)))) + (##cdr _e9862198647_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl197679197712_)) - ((lambda (_L197715_ _L197716_) + _tl9861998652_)) + ((lambda (_L98655_ _L98656_) (let () (declare (not safe)) (gxc#compile-e__0 - _L197715_))) - _hd197680197710_ - _hd197677197702_) + _L98655_))) + _hd9862098650_ + _hd9861798642_) (let () (declare (not safe)) - (_g197669197686_ - _g197670197689_))))) + (_g9860998626_ + _g9861098629_))))) (let () (declare (not safe)) - (_g197669197686_ _g197670197689_))))) + (_g9860998626_ _g9861098629_))))) (let () (declare (not safe)) - (_g197669197686_ _g197670197689_))))) + (_g9860998626_ _g9861098629_))))) (let () (declare (not safe)) - (_g197669197686_ _g197670197689_)))))) + (_g9860998626_ _g9861098629_)))))) (declare (not safe)) - (_g197668197731_ _stx197667_)))) + (_g9860898671_ _stx98607_)))) (define gxc#find-lambda-expression-let-values% - (lambda (_stx197600_) - (let* ((_g197602197619_ - (lambda (_g197603197616_) + (lambda (_stx98540_) + (let* ((_g9854298559_ + (lambda (_g9854398556_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g197603197616_)))) - (_g197601197664_ - (lambda (_g197603197622_) + _g9854398556_)))) + (_g9854198604_ + (lambda (_g9854398562_) (if (let () (declare (not safe)) - (gx#stx-pair? _g197603197622_)) - (let ((_e197608197624_ + (gx#stx-pair? _g9854398562_)) + (let ((_e9854898564_ (let () (declare (not safe)) - (gx#stx-e _g197603197622_)))) - (let ((_hd197607197627_ + (gx#stx-e _g9854398562_)))) + (let ((_hd9854798567_ (let () (declare (not safe)) - (##car _e197608197624_))) - (_tl197606197629_ + (##car _e9854898564_))) + (_tl9854698569_ (let () (declare (not safe)) - (##cdr _e197608197624_)))) + (##cdr _e9854898564_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197606197629_)) - (let ((_e197611197632_ + (gx#stx-pair? _tl9854698569_)) + (let ((_e9855198572_ (let () (declare (not safe)) - (gx#stx-e _tl197606197629_)))) - (let ((_hd197610197635_ + (gx#stx-e _tl9854698569_)))) + (let ((_hd9855098575_ (let () (declare (not safe)) - (##car _e197611197632_))) - (_tl197609197637_ + (##car _e9855198572_))) + (_tl9854998577_ (let () (declare (not safe)) - (##cdr _e197611197632_)))) + (##cdr _e9855198572_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197609197637_)) - (let ((_e197614197640_ + (gx#stx-pair? _tl9854998577_)) + (let ((_e9855498580_ (let () (declare (not safe)) - (gx#stx-e _tl197609197637_)))) - (let ((_hd197613197643_ + (gx#stx-e _tl9854998577_)))) + (let ((_hd9855398583_ (let () (declare (not safe)) - (##car _e197614197640_))) - (_tl197612197645_ + (##car _e9855498580_))) + (_tl9855298585_ (let () (declare (not safe)) - (##cdr _e197614197640_)))) + (##cdr _e9855498580_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl197612197645_)) - ((lambda (_L197648_ _L197649_) + _tl9855298585_)) + ((lambda (_L98588_ _L98589_) (let () (declare (not safe)) (gxc#compile-e__0 - _L197648_))) - _hd197613197643_ - _hd197610197635_) + _L98588_))) + _hd9855398583_ + _hd9855098575_) (let () (declare (not safe)) - (_g197602197619_ - _g197603197622_))))) + (_g9854298559_ + _g9854398562_))))) (let () (declare (not safe)) - (_g197602197619_ _g197603197622_))))) + (_g9854298559_ _g9854398562_))))) (let () (declare (not safe)) - (_g197602197619_ _g197603197622_))))) + (_g9854298559_ _g9854398562_))))) (let () (declare (not safe)) - (_g197602197619_ _g197603197622_)))))) + (_g9854298559_ _g9854398562_)))))) (declare (not safe)) - (_g197601197664_ _stx197600_)))) - (define gxc#count-values-single% (lambda (_stx197598_) '1)) + (_g9854198604_ _stx98540_)))) + (define gxc#count-values-single% (lambda (_stx98538_) '1)) (define gxc#count-values-begin% - (lambda (_stx197516_) - (let* ((_g197518197537_ - (lambda (_g197519197534_) + (lambda (_stx98456_) + (let* ((_g9845898477_ + (lambda (_g9845998474_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g197519197534_)))) - (_g197517197595_ - (lambda (_g197519197540_) + _g9845998474_)))) + (_g9845798535_ + (lambda (_g9845998480_) (if (let () (declare (not safe)) - (gx#stx-pair? _g197519197540_)) - (let ((_e197523197542_ + (gx#stx-pair? _g9845998480_)) + (let ((_e9846398482_ (let () (declare (not safe)) - (gx#stx-e _g197519197540_)))) - (let ((_hd197522197545_ + (gx#stx-e _g9845998480_)))) + (let ((_hd9846298485_ (let () (declare (not safe)) - (##car _e197523197542_))) - (_tl197521197547_ + (##car _e9846398482_))) + (_tl9846198487_ (let () (declare (not safe)) - (##cdr _e197523197542_)))) + (##cdr _e9846398482_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl197521197547_)) - (let ((_g214718_ + (gx#stx-pair/null? _tl9846198487_)) + (let ((_g111091_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl197521197547_ + _tl9846198487_ '0)))) (begin - (let ((_g214719_ + (let ((_g111092_ (let () (declare (not safe)) - (if (##values? _g214718_) - (##vector-length _g214718_) + (if (##values? _g111091_) + (##vector-length _g111091_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g214719_ 2))) + (##fx= _g111092_ 2))) (error "Context expects 2 values" - _g214719_))) - (let ((_target197524197550_ + _g111092_))) + (let ((_target9846498490_ (let () (declare (not safe)) - (##vector-ref _g214718_ 0))) - (_tl197526197552_ + (##vector-ref _g111091_ 0))) + (_tl9846698492_ (let () (declare (not safe)) - (##vector-ref _g214718_ 1)))) + (##vector-ref _g111091_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl197526197552_)) - (letrec ((_loop197527197555_ - (lambda (_hd197525197558_ - _expr197531197560_) + (gx#stx-null? _tl9846698492_)) + (letrec ((_loop9846798495_ + (lambda (_hd9846598498_ + _expr9847198500_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd197525197558_)) - (let ((_e197528197563_ + _hd9846598498_)) + (let ((_e9846898503_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd197525197558_)))) - (let ((_lp-hd197529197566_ - (let () - (declare (not safe)) - (##car _e197528197563_))) - (_lp-tl197530197568_ + (gx#stx-e _hd9846598498_)))) + (let ((_lp-hd9846998506_ + (let () (declare (not safe)) (##car _e9846898503_))) + (_lp-tl9847098508_ (let () (declare (not safe)) - (##cdr _e197528197563_)))) - (let ((__tmp214723 + (##cdr _e9846898503_)))) + (let ((__tmp111096 (let () (declare (not safe)) - (cons _lp-hd197529197566_ _expr197531197560_)))) + (cons _lp-hd9846998506_ _expr9847198500_)))) (declare (not safe)) - (_loop197527197555_ _lp-tl197530197568_ __tmp214723)))) - (let ((_expr197532197571_ (reverse _expr197531197560_))) - ((lambda (_L197574_) - (let ((__tmp214720 - (let ((__tmp214721 - (let ((__tmp214722 - (lambda (_g197587197590_ - _g197588197592_) + (_loop9846798495_ _lp-tl9847098508_ __tmp111096)))) + (let ((_expr9847298511_ (reverse _expr9847198500_))) + ((lambda (_L98514_) + (let ((__tmp111093 + (let ((__tmp111094 + (let ((__tmp111095 + (lambda (_g9852798530_ + _g9852898532_) (let () (declare (not safe)) - (cons _g197587197590_ - _g197588197592_))))) + (cons _g9852798530_ + _g9852898532_))))) (declare (not safe)) - (foldr1 __tmp214722 '() _L197574_)))) + (foldr1 __tmp111095 '() _L98514_)))) (declare (not safe)) - (last __tmp214721)))) + (last __tmp111094)))) (declare (not safe)) - (gxc#compile-e__0 __tmp214720))) - _expr197532197571_)))))) + (gxc#compile-e__0 __tmp111093))) + _expr9847298511_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop197527197555_ - _target197524197550_ + (_loop9846798495_ + _target9846498490_ '()))) (let () (declare (not safe)) - (_g197518197537_ - _g197519197540_)))))) + (_g9845898477_ _g9845998480_)))))) (let () (declare (not safe)) - (_g197518197537_ _g197519197540_))))) + (_g9845898477_ _g9845998480_))))) (let () (declare (not safe)) - (_g197518197537_ _g197519197540_)))))) + (_g9845898477_ _g9845998480_)))))) (declare (not safe)) - (_g197517197595_ _stx197516_)))) + (_g9845798535_ _stx98456_)))) (define gxc#count-values-begin-annotation% - (lambda (_stx197449_) - (let* ((_g197451197468_ - (lambda (_g197452197465_) + (lambda (_stx98389_) + (let* ((_g9839198408_ + (lambda (_g9839298405_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g197452197465_)))) - (_g197450197513_ - (lambda (_g197452197471_) + _g9839298405_)))) + (_g9839098453_ + (lambda (_g9839298411_) (if (let () (declare (not safe)) - (gx#stx-pair? _g197452197471_)) - (let ((_e197457197473_ + (gx#stx-pair? _g9839298411_)) + (let ((_e9839798413_ (let () (declare (not safe)) - (gx#stx-e _g197452197471_)))) - (let ((_hd197456197476_ + (gx#stx-e _g9839298411_)))) + (let ((_hd9839698416_ (let () (declare (not safe)) - (##car _e197457197473_))) - (_tl197455197478_ + (##car _e9839798413_))) + (_tl9839598418_ (let () (declare (not safe)) - (##cdr _e197457197473_)))) + (##cdr _e9839798413_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197455197478_)) - (let ((_e197460197481_ + (gx#stx-pair? _tl9839598418_)) + (let ((_e9840098421_ (let () (declare (not safe)) - (gx#stx-e _tl197455197478_)))) - (let ((_hd197459197484_ + (gx#stx-e _tl9839598418_)))) + (let ((_hd9839998424_ (let () (declare (not safe)) - (##car _e197460197481_))) - (_tl197458197486_ + (##car _e9840098421_))) + (_tl9839898426_ (let () (declare (not safe)) - (##cdr _e197460197481_)))) + (##cdr _e9840098421_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197458197486_)) - (let ((_e197463197489_ + (gx#stx-pair? _tl9839898426_)) + (let ((_e9840398429_ (let () (declare (not safe)) - (gx#stx-e _tl197458197486_)))) - (let ((_hd197462197492_ + (gx#stx-e _tl9839898426_)))) + (let ((_hd9840298432_ (let () (declare (not safe)) - (##car _e197463197489_))) - (_tl197461197494_ + (##car _e9840398429_))) + (_tl9840198434_ (let () (declare (not safe)) - (##cdr _e197463197489_)))) + (##cdr _e9840398429_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl197461197494_)) - ((lambda (_L197497_ _L197498_) + _tl9840198434_)) + ((lambda (_L98437_ _L98438_) (let () (declare (not safe)) (gxc#compile-e__0 - _L197497_))) - _hd197462197492_ - _hd197459197484_) + _L98437_))) + _hd9840298432_ + _hd9839998424_) (let () (declare (not safe)) - (_g197451197468_ - _g197452197471_))))) + (_g9839198408_ + _g9839298411_))))) (let () (declare (not safe)) - (_g197451197468_ _g197452197471_))))) + (_g9839198408_ _g9839298411_))))) (let () (declare (not safe)) - (_g197451197468_ _g197452197471_))))) + (_g9839198408_ _g9839298411_))))) (let () (declare (not safe)) - (_g197451197468_ _g197452197471_)))))) + (_g9839198408_ _g9839298411_)))))) (declare (not safe)) - (_g197450197513_ _stx197449_)))) + (_g9839098453_ _stx98389_)))) (define gxc#count-values-let-values% - (lambda (_stx197382_) - (let* ((_g197384197401_ - (lambda (_g197385197398_) + (lambda (_stx98322_) + (let* ((_g9832498341_ + (lambda (_g9832598338_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g197385197398_)))) - (_g197383197446_ - (lambda (_g197385197404_) + _g9832598338_)))) + (_g9832398386_ + (lambda (_g9832598344_) (if (let () (declare (not safe)) - (gx#stx-pair? _g197385197404_)) - (let ((_e197390197406_ + (gx#stx-pair? _g9832598344_)) + (let ((_e9833098346_ (let () (declare (not safe)) - (gx#stx-e _g197385197404_)))) - (let ((_hd197389197409_ + (gx#stx-e _g9832598344_)))) + (let ((_hd9832998349_ (let () (declare (not safe)) - (##car _e197390197406_))) - (_tl197388197411_ + (##car _e9833098346_))) + (_tl9832898351_ (let () (declare (not safe)) - (##cdr _e197390197406_)))) + (##cdr _e9833098346_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197388197411_)) - (let ((_e197393197414_ + (gx#stx-pair? _tl9832898351_)) + (let ((_e9833398354_ (let () (declare (not safe)) - (gx#stx-e _tl197388197411_)))) - (let ((_hd197392197417_ + (gx#stx-e _tl9832898351_)))) + (let ((_hd9833298357_ (let () (declare (not safe)) - (##car _e197393197414_))) - (_tl197391197419_ + (##car _e9833398354_))) + (_tl9833198359_ (let () (declare (not safe)) - (##cdr _e197393197414_)))) + (##cdr _e9833398354_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197391197419_)) - (let ((_e197396197422_ + (gx#stx-pair? _tl9833198359_)) + (let ((_e9833698362_ (let () (declare (not safe)) - (gx#stx-e _tl197391197419_)))) - (let ((_hd197395197425_ + (gx#stx-e _tl9833198359_)))) + (let ((_hd9833598365_ (let () (declare (not safe)) - (##car _e197396197422_))) - (_tl197394197427_ + (##car _e9833698362_))) + (_tl9833498367_ (let () (declare (not safe)) - (##cdr _e197396197422_)))) + (##cdr _e9833698362_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl197394197427_)) - ((lambda (_L197430_ _L197431_) + _tl9833498367_)) + ((lambda (_L98370_ _L98371_) (let () (declare (not safe)) (gxc#compile-e__0 - _L197430_))) - _hd197395197425_ - _hd197392197417_) + _L98370_))) + _hd9833598365_ + _hd9833298357_) (let () (declare (not safe)) - (_g197384197401_ - _g197385197404_))))) + (_g9832498341_ + _g9832598344_))))) (let () (declare (not safe)) - (_g197384197401_ _g197385197404_))))) + (_g9832498341_ _g9832598344_))))) (let () (declare (not safe)) - (_g197384197401_ _g197385197404_))))) + (_g9832498341_ _g9832598344_))))) (let () (declare (not safe)) - (_g197384197401_ _g197385197404_)))))) + (_g9832498341_ _g9832598344_)))))) (declare (not safe)) - (_g197383197446_ _stx197382_)))) + (_g9832398386_ _stx98322_)))) (define gxc#count-values-call% - (lambda (_stx197249_) - (let* ((___stx213813213814_ _stx197249_) - (_g197252197281_ + (lambda (_stx98189_) + (let* ((___stx110185110186_ _stx98189_) + (_g9819298221_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx213813213814_))))) - (let ((___kont213815213816_ - (lambda (_L197349_ _L197350_) - (length (let ((__tmp214724 - (lambda (_g197371197374_ _g197372197376_) + ___stx110185110186_))))) + (let ((___kont110187110188_ + (lambda (_L98289_ _L98290_) + (length (let ((__tmp111097 + (lambda (_g9831198314_ _g9831298316_) (let () (declare (not safe)) - (cons _g197371197374_ - _g197372197376_))))) + (cons _g9831198314_ _g9831298316_))))) (declare (not safe)) - (foldr1 __tmp214724 '() _L197349_))))) - (___kont213819213820_ (lambda () '#f))) - (let ((___match213858213859_ - (lambda (_e197258197293_ - _hd197257197296_ - _tl197256197298_ - _e197261197301_ - _hd197260197304_ - _tl197259197306_ - _e197264197309_ - _hd197263197312_ - _tl197262197314_ - _e197267197317_ - _hd197266197320_ - _tl197265197322_ - ___splice213817213818_ - _target197268197325_ - _tl197270197327_) - (letrec ((_loop197271197330_ - (lambda (_hd197269197333_ _rand197275197335_) + (foldr1 __tmp111097 '() _L98289_))))) + (___kont110191110192_ (lambda () '#f))) + (let ((___match110230110231_ + (lambda (_e9819898233_ + _hd9819798236_ + _tl9819698238_ + _e9820198241_ + _hd9820098244_ + _tl9819998246_ + _e9820498249_ + _hd9820398252_ + _tl9820298254_ + _e9820798257_ + _hd9820698260_ + _tl9820598262_ + ___splice110189110190_ + _target9820898265_ + _tl9821098267_) + (letrec ((_loop9821198270_ + (lambda (_hd9820998273_ _rand9821598275_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd197269197333_)) - (let ((_e197272197338_ + (gx#stx-pair? _hd9820998273_)) + (let ((_e9821298278_ (let () (declare (not safe)) - (gx#stx-e _hd197269197333_)))) - (let ((_lp-tl197274197343_ + (gx#stx-e _hd9820998273_)))) + (let ((_lp-tl9821498283_ (let () (declare (not safe)) - (##cdr _e197272197338_))) - (_lp-hd197273197341_ + (##cdr _e9821298278_))) + (_lp-hd9821398281_ (let () (declare (not safe)) - (##car _e197272197338_)))) - (let ((__tmp214725 + (##car _e9821298278_)))) + (let ((__tmp111098 (let () (declare (not safe)) - (cons _lp-hd197273197341_ - _rand197275197335_)))) + (cons _lp-hd9821398281_ + _rand9821598275_)))) (declare (not safe)) - (_loop197271197330_ - _lp-tl197274197343_ - __tmp214725)))) - (let ((_rand197276197346_ - (reverse _rand197275197335_))) - (let ((_L197349_ _rand197276197346_) - (_L197350_ _hd197266197320_)) + (_loop9821198270_ + _lp-tl9821498283_ + __tmp111098)))) + (let ((_rand9821698286_ + (reverse _rand9821598275_))) + (let ((_L98289_ _rand9821698286_) + (_L98290_ _hd9820698260_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L197350_ + _L98290_ 'values)) - (___kont213815213816_ - _L197349_ - _L197350_) - (___kont213819213820_)))))))) + (___kont110187110188_ + _L98289_ + _L98290_) + (___kont110191110192_)))))))) (let () (declare (not safe)) - (_loop197271197330_ _target197268197325_ '())))))) + (_loop9821198270_ _target9820898265_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx213813213814_)) - (let ((_e197258197293_ + (gx#stx-pair? ___stx110185110186_)) + (let ((_e9819898233_ (let () (declare (not safe)) - (gx#stx-e ___stx213813213814_)))) - (let ((_tl197256197298_ + (gx#stx-e ___stx110185110186_)))) + (let ((_tl9819698238_ (let () (declare (not safe)) - (##cdr _e197258197293_))) - (_hd197257197296_ + (##cdr _e9819898233_))) + (_hd9819798236_ (let () (declare (not safe)) - (##car _e197258197293_)))) + (##car _e9819898233_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197256197298_)) - (let ((_e197261197301_ + (gx#stx-pair? _tl9819698238_)) + (let ((_e9820198241_ (let () (declare (not safe)) - (gx#stx-e _tl197256197298_)))) - (let ((_tl197259197306_ + (gx#stx-e _tl9819698238_)))) + (let ((_tl9819998246_ (let () (declare (not safe)) - (##cdr _e197261197301_))) - (_hd197260197304_ + (##cdr _e9820198241_))) + (_hd9820098244_ (let () (declare (not safe)) - (##car _e197261197301_)))) + (##car _e9820198241_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd197260197304_)) - (let ((_e197264197309_ + (gx#stx-pair? _hd9820098244_)) + (let ((_e9820498249_ (let () (declare (not safe)) - (gx#stx-e _hd197260197304_)))) - (let ((_tl197262197314_ + (gx#stx-e _hd9820098244_)))) + (let ((_tl9820298254_ (let () (declare (not safe)) - (##cdr _e197264197309_))) - (_hd197263197312_ + (##cdr _e9820498249_))) + (_hd9820398252_ (let () (declare (not safe)) - (##car _e197264197309_)))) + (##car _e9820498249_)))) (if (let () (declare (not safe)) - (gx#identifier? - _hd197263197312_)) + (gx#identifier? _hd9820398252_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd197263197312_)) + _hd9820398252_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl197262197314_)) - (let ((_e197267197317_ + _tl9820298254_)) + (let ((_e9820798257_ (let () (declare (not safe)) (gx#stx-e - _tl197262197314_)))) - (let ((_tl197265197322_ + _tl9820298254_)))) + (let ((_tl9820598262_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e197267197317_))) - (_hd197266197320_ - (let () (declare (not safe)) (##car _e197267197317_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _tl197265197322_)) + (##cdr _e9820798257_))) + (_hd9820698260_ + (let () (declare (not safe)) (##car _e9820798257_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl9820598262_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl197259197306_)) - (let ((___splice213817213818_ + (gx#stx-pair/null? _tl9819998246_)) + (let ((___splice110189110190_ (let () (declare (not safe)) - (gx#syntax-split-splice - _tl197259197306_ - '0)))) - (let ((_tl197270197327_ + (gx#syntax-split-splice _tl9819998246_ '0)))) + (let ((_tl9821098267_ (let () (declare (not safe)) - (##vector-ref ___splice213817213818_ '1))) - (_target197268197325_ + (##vector-ref ___splice110189110190_ '1))) + (_target9820898265_ (let () (declare (not safe)) - (##vector-ref ___splice213817213818_ '0)))) + (##vector-ref ___splice110189110190_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl197270197327_)) - (___match213858213859_ - _e197258197293_ - _hd197257197296_ - _tl197256197298_ - _e197261197301_ - _hd197260197304_ - _tl197259197306_ - _e197264197309_ - _hd197263197312_ - _tl197262197314_ - _e197267197317_ - _hd197266197320_ - _tl197265197322_ - ___splice213817213818_ - _target197268197325_ - _tl197270197327_) - (___kont213819213820_)))) - (___kont213819213820_)) - (___kont213819213820_)))) + (gx#stx-null? _tl9821098267_)) + (___match110230110231_ + _e9819898233_ + _hd9819798236_ + _tl9819698238_ + _e9820198241_ + _hd9820098244_ + _tl9819998246_ + _e9820498249_ + _hd9820398252_ + _tl9820298254_ + _e9820798257_ + _hd9820698260_ + _tl9820598262_ + ___splice110189110190_ + _target9820898265_ + _tl9821098267_) + (___kont110191110192_)))) + (___kont110191110192_)) + (___kont110191110192_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont213819213820_)) - (___kont213819213820_)) - (___kont213819213820_)))) - (___kont213819213820_)))) - (___kont213819213820_)))) - (___kont213819213820_))))))) + (___kont110191110192_)) + (___kont110191110192_)) + (___kont110191110192_)))) + (___kont110191110192_)))) + (___kont110191110192_)))) + (___kont110191110192_))))))) (define gxc#count-values-if% - (lambda (_stx197153_) - (let* ((_g197155197176_ - (lambda (_g197156197173_) + (lambda (_stx98093_) + (let* ((_g9809598116_ + (lambda (_g9809698113_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g197156197173_)))) - (_g197154197246_ - (lambda (_g197156197179_) + _g9809698113_)))) + (_g9809498186_ + (lambda (_g9809698119_) (if (let () (declare (not safe)) - (gx#stx-pair? _g197156197179_)) - (let ((_e197162197181_ + (gx#stx-pair? _g9809698119_)) + (let ((_e9810298121_ (let () (declare (not safe)) - (gx#stx-e _g197156197179_)))) - (let ((_hd197161197184_ + (gx#stx-e _g9809698119_)))) + (let ((_hd9810198124_ (let () (declare (not safe)) - (##car _e197162197181_))) - (_tl197160197186_ + (##car _e9810298121_))) + (_tl9810098126_ (let () (declare (not safe)) - (##cdr _e197162197181_)))) + (##cdr _e9810298121_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197160197186_)) - (let ((_e197165197189_ + (gx#stx-pair? _tl9810098126_)) + (let ((_e9810598129_ (let () (declare (not safe)) - (gx#stx-e _tl197160197186_)))) - (let ((_hd197164197192_ + (gx#stx-e _tl9810098126_)))) + (let ((_hd9810498132_ (let () (declare (not safe)) - (##car _e197165197189_))) - (_tl197163197194_ + (##car _e9810598129_))) + (_tl9810398134_ (let () (declare (not safe)) - (##cdr _e197165197189_)))) + (##cdr _e9810598129_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197163197194_)) - (let ((_e197168197197_ + (gx#stx-pair? _tl9810398134_)) + (let ((_e9810898137_ (let () (declare (not safe)) - (gx#stx-e _tl197163197194_)))) - (let ((_hd197167197200_ + (gx#stx-e _tl9810398134_)))) + (let ((_hd9810798140_ (let () (declare (not safe)) - (##car _e197168197197_))) - (_tl197166197202_ + (##car _e9810898137_))) + (_tl9810698142_ (let () (declare (not safe)) - (##cdr _e197168197197_)))) + (##cdr _e9810898137_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl197166197202_)) - (let ((_e197171197205_ + _tl9810698142_)) + (let ((_e9811198145_ (let () (declare (not safe)) (gx#stx-e - _tl197166197202_)))) - (let ((_hd197170197208_ + _tl9810698142_)))) + (let ((_hd9811098148_ (let () (declare (not safe)) - (##car _e197171197205_))) - (_tl197169197210_ + (##car _e9811198145_))) + (_tl9810998150_ (let () (declare (not safe)) - (##cdr _e197171197205_)))) + (##cdr _e9811198145_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl197169197210_)) - ((lambda (_L197213_ + _tl9810998150_)) + ((lambda (_L98153_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L197214_ - _L197215_) - (let ((_c1197232197234_ + _L98154_ + _L98155_) + (let ((_c19817298174_ (let () (declare (not safe)) - (gxc#compile-e__0 _L197214_)))) - (if _c1197232197234_ - (let* ((_c1197237_ _c1197232197234_) - (_c2197238197240_ + (gxc#compile-e__0 _L98154_)))) + (if _c19817298174_ + (let* ((_c198177_ _c19817298174_) + (_c29817898180_ (let () (declare (not safe)) - (gxc#compile-e__0 _L197213_)))) - (if _c2197238197240_ - (let ((_c2197243_ _c2197238197240_)) - (if (fx= _c1197237_ _c2197243_) - _c1197237_ - '#f)) + (gxc#compile-e__0 _L98153_)))) + (if _c29817898180_ + (let ((_c298183_ _c29817898180_)) + (if (fx= _c198177_ _c298183_) _c198177_ '#f)) '#f)) '#f))) - _hd197170197208_ - _hd197167197200_ - _hd197164197192_) - (let () - (declare (not safe)) - (_g197155197176_ _g197156197179_))))) + _hd9811098148_ + _hd9810798140_ + _hd9810498132_) + (let () (declare (not safe)) (_g9809598116_ _g9809698119_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g197155197176_ - _g197156197179_))))) + (_g9809598116_ + _g9809698119_))))) (let () (declare (not safe)) - (_g197155197176_ _g197156197179_))))) + (_g9809598116_ _g9809698119_))))) (let () (declare (not safe)) - (_g197155197176_ _g197156197179_))))) + (_g9809598116_ _g9809698119_))))) (let () (declare (not safe)) - (_g197155197176_ _g197156197179_)))))) + (_g9809598116_ _g9809698119_)))))) (declare (not safe)) - (_g197154197246_ _stx197153_))))))) + (_g9809498186_ _stx98093_))))))) diff --git a/src/bootstrap/gerbil/compiler/compile__1.scm b/src/bootstrap/gerbil/compiler/compile__1.scm index 6f5135e8e..5a9e6a2da 100644 --- a/src/bootstrap/gerbil/compiler/compile__1.scm +++ b/src/bootstrap/gerbil/compiler/compile__1.scm @@ -1,265 +1,265 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g215101_| + (define |gxc[1]#_g111474_| (##structure gx#syntax-quote::t 'meta-state::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215103_| + (define |gxc[1]#_g111476_| (##structure gx#syntax-quote::t 'make-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215105_| + (define |gxc[1]#_g111478_| (##structure gx#syntax-quote::t 'meta-state? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215112_| + (define |gxc[1]#_g111485_| (##structure gx#syntax-quote::t 'meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215115_| + (define |gxc[1]#_g111488_| (##structure gx#syntax-quote::t 'meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215118_| + (define |gxc[1]#_g111491_| (##structure gx#syntax-quote::t 'meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215121_| + (define |gxc[1]#_g111494_| (##structure gx#syntax-quote::t 'meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215128_| + (define |gxc[1]#_g111501_| (##structure gx#syntax-quote::t 'meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215131_| + (define |gxc[1]#_g111504_| (##structure gx#syntax-quote::t 'meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215134_| + (define |gxc[1]#_g111507_| (##structure gx#syntax-quote::t 'meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215137_| + (define |gxc[1]#_g111510_| (##structure gx#syntax-quote::t 'meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215144_| + (define |gxc[1]#_g111517_| (##structure gx#syntax-quote::t '&meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215147_| + (define |gxc[1]#_g111520_| (##structure gx#syntax-quote::t '&meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215150_| + (define |gxc[1]#_g111523_| (##structure gx#syntax-quote::t '&meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215153_| + (define |gxc[1]#_g111526_| (##structure gx#syntax-quote::t '&meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215160_| + (define |gxc[1]#_g111533_| (##structure gx#syntax-quote::t '&meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215163_| + (define |gxc[1]#_g111536_| (##structure gx#syntax-quote::t '&meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215166_| + (define |gxc[1]#_g111539_| (##structure gx#syntax-quote::t '&meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215169_| + (define |gxc[1]#_g111542_| (##structure gx#syntax-quote::t '&meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215171_| + (define |gxc[1]#_g111544_| (##structure gx#syntax-quote::t 'meta-state-block::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215173_| + (define |gxc[1]#_g111546_| (##structure gx#syntax-quote::t 'make-meta-state-block #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215175_| + (define |gxc[1]#_g111548_| (##structure gx#syntax-quote::t 'meta-state-block? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215182_| + (define |gxc[1]#_g111555_| (##structure gx#syntax-quote::t 'meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215185_| + (define |gxc[1]#_g111558_| (##structure gx#syntax-quote::t 'meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215188_| + (define |gxc[1]#_g111561_| (##structure gx#syntax-quote::t 'meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215191_| + (define |gxc[1]#_g111564_| (##structure gx#syntax-quote::t 'meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215198_| + (define |gxc[1]#_g111571_| (##structure gx#syntax-quote::t 'meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215201_| + (define |gxc[1]#_g111574_| (##structure gx#syntax-quote::t 'meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215204_| + (define |gxc[1]#_g111577_| (##structure gx#syntax-quote::t 'meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215207_| + (define |gxc[1]#_g111580_| (##structure gx#syntax-quote::t 'meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215214_| + (define |gxc[1]#_g111587_| (##structure gx#syntax-quote::t '&meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215217_| + (define |gxc[1]#_g111590_| (##structure gx#syntax-quote::t '&meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215220_| + (define |gxc[1]#_g111593_| (##structure gx#syntax-quote::t '&meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215223_| + (define |gxc[1]#_g111596_| (##structure gx#syntax-quote::t '&meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215230_| + (define |gxc[1]#_g111603_| (##structure gx#syntax-quote::t '&meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215233_| + (define |gxc[1]#_g111606_| (##structure gx#syntax-quote::t '&meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215236_| + (define |gxc[1]#_g111609_| (##structure gx#syntax-quote::t '&meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g215239_| + (define |gxc[1]#_g111612_| (##structure gx#syntax-quote::t '&meta-state-block-ctx-set! @@ -268,105 +268,103 @@ '())) (begin (define |gxc[:0:]#do-compile-e| - (lambda (_$stx196313_) - (let* ((_g196317196339_ - (lambda (_g196318196335_) + (lambda (_$stx97253_) + (let* ((_g9725797279_ + (lambda (_g9725897275_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196318196335_)))) - (_g196316196409_ - (lambda (_g196318196343_) + _g9725897275_)))) + (_g9725697349_ + (lambda (_g9725897283_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196318196343_)) - (let ((_e196324196346_ + (gx#stx-pair? _g9725897283_)) + (let ((_e9726497286_ (let () (declare (not safe)) - (gx#syntax-e _g196318196343_)))) - (let ((_hd196323196350_ + (gx#syntax-e _g9725897283_)))) + (let ((_hd9726397290_ (let () (declare (not safe)) - (##car _e196324196346_))) - (_tl196322196353_ + (##car _e9726497286_))) + (_tl9726297293_ (let () (declare (not safe)) - (##cdr _e196324196346_)))) + (##cdr _e9726497286_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196322196353_)) - (let ((_e196327196356_ + (gx#stx-pair? _tl9726297293_)) + (let ((_e9726797296_ (let () (declare (not safe)) - (gx#syntax-e _tl196322196353_)))) - (let ((_hd196326196360_ + (gx#syntax-e _tl9726297293_)))) + (let ((_hd9726697300_ (let () (declare (not safe)) - (##car _e196327196356_))) - (_tl196325196363_ + (##car _e9726797296_))) + (_tl9726597303_ (let () (declare (not safe)) - (##cdr _e196327196356_)))) + (##cdr _e9726797296_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196325196363_)) - (let ((_e196330196366_ + (gx#stx-pair? _tl9726597303_)) + (let ((_e9727097306_ (let () (declare (not safe)) - (gx#syntax-e - _tl196325196363_)))) - (let ((_hd196329196370_ + (gx#syntax-e _tl9726597303_)))) + (let ((_hd9726997310_ (let () (declare (not safe)) - (##car _e196330196366_))) - (_tl196328196373_ + (##car _e9727097306_))) + (_tl9726897313_ (let () (declare (not safe)) - (##cdr _e196330196366_)))) + (##cdr _e9727097306_)))) (if (let () (declare (not safe)) - (gx#stx-pair? - _tl196328196373_)) - (let ((_e196333196376_ + (gx#stx-pair? _tl9726897313_)) + (let ((_e9727397316_ (let () (declare (not safe)) (gx#syntax-e - _tl196328196373_)))) - (let ((_hd196332196380_ + _tl9726897313_)))) + (let ((_hd9727297320_ (let () (declare (not safe)) - (##car _e196333196376_))) - (_tl196331196383_ + (##car _e9727397316_))) + (_tl9727197323_ (let () (declare (not safe)) - (##cdr _e196333196376_)))) + (##cdr _e9727397316_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl196331196383_)) - ((lambda (_L196386_ - _L196388_ - _L196389_) - (let ((__tmp214780 + _tl9727197323_)) + ((lambda (_L97326_ + _L97328_ + _L97329_) + (let ((__tmp111153 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'ast-case))) - (__tmp214726 - (let ((__tmp214727 - (let ((__tmp214728 - (let ((__tmp214742 - (let ((__tmp214777 - (let ((__tmp214779 + (__tmp111099 + (let ((__tmp111100 + (let ((__tmp111101 + (let ((__tmp111115 + (let ((__tmp111150 + (let ((__tmp111152 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hd))) - (__tmp214778 + (__tmp111151 (let () (declare (not safe)) @@ -374,1254 +372,1246 @@ '#f '_)))) (declare (not safe)) - (cons __tmp214779 - __tmp214778))) - (__tmp214743 - (let ((__tmp214744 - (let ((__tmp214776 + (cons __tmp111152 + __tmp111151))) + (__tmp111116 + (let ((__tmp111117 + (let ((__tmp111149 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cond))) - (__tmp214745 - (let ((__tmp214746 - (let ((__tmp214763 - (let ((__tmp214775 + (__tmp111118 + (let ((__tmp111119 + (let ((__tmp111136 + (let ((__tmp111148 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-get))) - (__tmp214764 - (let ((__tmp214773 - (let ((__tmp214774 + (__tmp111137 + (let ((__tmp111146 + (let ((__tmp111147 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'current-compile-methods)))) (declare (not safe)) - (cons __tmp214774 '()))) + (cons __tmp111147 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp214765 - (let ((__tmp214766 - (let ((__tmp214772 + (__tmp111138 + (let ((__tmp111139 + (let ((__tmp111145 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx-e))) - (__tmp214767 - (let ((__tmp214768 - (let ((__tmp214771 + (__tmp111140 + (let ((__tmp111141 + (let ((__tmp111144 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp214769 - (let ((__tmp214770 + (__tmp111142 + (let ((__tmp111143 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hd)))) (declare (not safe)) - (cons __tmp214770 '())))) + (cons __tmp111143 '())))) (declare (not safe)) - (cons __tmp214771 __tmp214769)))) + (cons __tmp111144 __tmp111142)))) (declare (not safe)) - (cons __tmp214768 '())))) + (cons __tmp111141 '())))) (declare (not safe)) - (cons __tmp214772 __tmp214767)))) + (cons __tmp111145 __tmp111140)))) (declare (not safe)) - (cons __tmp214766 '())))) + (cons __tmp111139 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214773 - __tmp214765)))) + (cons __tmp111146 + __tmp111138)))) (declare (not safe)) - (cons __tmp214775 __tmp214764))) - (__tmp214747 - (let ((__tmp214762 + (cons __tmp111148 __tmp111137))) + (__tmp111120 + (let ((__tmp111135 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '=>))) - (__tmp214748 - (let ((__tmp214749 - (let ((__tmp214761 + (__tmp111121 + (let ((__tmp111122 + (let ((__tmp111134 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp214750 - (let ((__tmp214760 - (let () (declare (not safe)) (cons _L196388_ '()))) - (__tmp214751 - (let ((__tmp214753 - (let ((__tmp214759 + (__tmp111123 + (let ((__tmp111133 + (let () (declare (not safe)) (cons _L97328_ '()))) + (__tmp111124 + (let ((__tmp111126 + (let ((__tmp111132 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare))) - (__tmp214754 - (let ((__tmp214755 - (let ((__tmp214758 + (__tmp111127 + (let ((__tmp111128 + (let ((__tmp111131 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'not))) - (__tmp214756 - (let ((__tmp214757 + (__tmp111129 + (let ((__tmp111130 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'safe)))) (declare (not safe)) - (cons __tmp214757 '())))) + (cons __tmp111130 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214758 - __tmp214756)))) + (cons __tmp111131 + __tmp111129)))) (declare (not safe)) - (cons __tmp214755 '())))) + (cons __tmp111128 '())))) (declare (not safe)) - (cons __tmp214759 __tmp214754))) - (__tmp214752 + (cons __tmp111132 __tmp111127))) + (__tmp111125 (let () (declare (not safe)) - (cons _L196386_ '())))) + (cons _L97326_ '())))) (declare (not safe)) - (cons __tmp214753 __tmp214752)))) + (cons __tmp111126 __tmp111125)))) (declare (not safe)) - (cons __tmp214760 __tmp214751)))) + (cons __tmp111133 __tmp111124)))) (declare (not safe)) - (cons __tmp214761 __tmp214750)))) + (cons __tmp111134 __tmp111123)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214749 '())))) + (cons __tmp111122 '())))) (declare (not safe)) - (cons __tmp214762 __tmp214748)))) + (cons __tmp111135 __tmp111121)))) (declare (not safe)) - (cons __tmp214763 __tmp214747)))) + (cons __tmp111136 __tmp111120)))) (declare (not safe)) - (cons __tmp214746 '())))) + (cons __tmp111119 '())))) (declare (not safe)) - (cons __tmp214776 __tmp214745)))) + (cons __tmp111149 __tmp111118)))) (declare (not safe)) - (cons __tmp214744 '())))) + (cons __tmp111117 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214777 __tmp214743))) - (__tmp214729 - (let ((__tmp214730 - (let ((__tmp214741 + (cons __tmp111150 __tmp111116))) + (__tmp111102 + (let ((__tmp111103 + (let ((__tmp111114 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else))) - (__tmp214731 - (let ((__tmp214732 + (__tmp111104 + (let ((__tmp111105 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp214740 + (let ((__tmp111113 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'raise-compile-error))) - (__tmp214733 - (let ((__tmp214734 - (let ((__tmp214735 - (let ((__tmp214736 - (let ((__tmp214739 + (__tmp111106 + (let ((__tmp111107 + (let ((__tmp111108 + (let ((__tmp111109 + (let ((__tmp111112 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp214737 - (let ((__tmp214738 + (__tmp111110 + (let ((__tmp111111 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hd)))) (declare (not safe)) - (cons __tmp214738 '())))) + (cons __tmp111111 '())))) (declare (not safe)) - (cons __tmp214739 __tmp214737)))) + (cons __tmp111112 __tmp111110)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214736 '())))) + (cons __tmp111109 '())))) (declare (not safe)) - (cons _L196389_ __tmp214735)))) + (cons _L97329_ __tmp111108)))) (declare (not safe)) (cons '"Cannot compile; missing method" - __tmp214734)))) + __tmp111107)))) (declare (not safe)) - (cons __tmp214740 __tmp214733)))) + (cons __tmp111113 __tmp111106)))) (declare (not safe)) - (cons __tmp214732 '())))) + (cons __tmp111105 '())))) (declare (not safe)) - (cons __tmp214741 __tmp214731)))) + (cons __tmp111114 __tmp111104)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214730 '())))) + (cons __tmp111103 '())))) (declare (not safe)) - (cons __tmp214742 __tmp214729)))) + (cons __tmp111115 __tmp111102)))) (declare (not safe)) - (cons '() __tmp214728)))) + (cons '() __tmp111101)))) (declare (not safe)) - (cons _L196389_ __tmp214727)))) + (cons _L97329_ __tmp111100)))) (declare (not safe)) - (cons __tmp214780 __tmp214726))) - _hd196332196380_ - _hd196329196370_ - _hd196326196360_) - (_g196317196339_ _g196318196343_)))) + (cons __tmp111153 __tmp111099))) + _hd9727297320_ + _hd9726997310_ + _hd9726697300_) + (_g9725797279_ _g9725897283_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g196317196339_ - _g196318196343_)))) - (_g196317196339_ _g196318196343_)))) - (_g196317196339_ _g196318196343_)))) - (_g196317196339_ _g196318196343_))))) - (_g196316196409_ _$stx196313_)))) + (_g9725797279_ _g9725897283_)))) + (_g9725797279_ _g9725897283_)))) + (_g9725797279_ _g9725897283_)))) + (_g9725797279_ _g9725897283_))))) + (_g9725697349_ _$stx97253_)))) (define |gxc[:0:]#defcompile-method| - (lambda (_$stx196413_) - (let* ((___stx212437212438_ _$stx196413_) - (_g196419196499_ + (lambda (_$stx97353_) + (let* ((___stx108809108810_ _$stx97353_) + (_g9735997439_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212437212438_))))) - (let ((___kont212440212441_ - (lambda (_L196795_ _L196797_ _L196798_ _L196799_) - (let ((__tmp214781 - (let ((__tmp214782 - (let ((__tmp214783 + ___stx108809108810_))))) + (let ((___kont108812108813_ + (lambda (_L97735_ _L97737_ _L97738_ _L97739_) + (let ((__tmp111154 + (let ((__tmp111155 + (let ((__tmp111156 (let () (declare (not safe)) - (cons _L196797_ '())))) + (cons _L97737_ '())))) (declare (not safe)) - (cons __tmp214783 _L196795_)))) + (cons __tmp111156 _L97735_)))) (declare (not safe)) - (cons _L196798_ __tmp214782)))) + (cons _L97738_ __tmp111155)))) (declare (not safe)) - (cons _L196799_ __tmp214781)))) - (___kont212442212443_ - (lambda (_L196707_ _L196709_ _L196710_ _L196711_) - (let ((__tmp214820 + (cons _L97739_ __tmp111154)))) + (___kont108814108815_ + (lambda (_L97647_ _L97649_ _L97650_ _L97651_) + (let ((__tmp111193 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def))) - (__tmp214784 - (let ((__tmp214785 - (let ((__tmp214786 - (let ((__tmp214819 + (__tmp111157 + (let ((__tmp111158 + (let ((__tmp111159 + (let ((__tmp111192 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'delay))) - (__tmp214787 - (let ((__tmp214788 - (let ((__tmp214818 + (__tmp111160 + (let ((__tmp111161 + (let ((__tmp111191 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp214789 - (let ((__tmp214813 - (let ((__tmp214817 + (__tmp111162 + (let ((__tmp111186 + (let ((__tmp111190 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tbl))) - (__tmp214814 - (let ((__tmp214815 - (let ((__tmp214816 + (__tmp111187 + (let ((__tmp111188 + (let ((__tmp111189 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-hash-table-eq)))) (declare (not safe)) - (cons __tmp214816 '())))) + (cons __tmp111189 '())))) (declare (not safe)) - (cons __tmp214815 '())))) + (cons __tmp111188 '())))) (declare (not safe)) - (cons __tmp214817 __tmp214814))) - (__tmp214790 - (let ((__tmp214804 - (lambda (_g196738196744_ _g196739196747_) - (let ((__tmp214805 - (let ((__tmp214812 + (cons __tmp111190 __tmp111187))) + (__tmp111163 + (let ((__tmp111177 + (lambda (_g9767897684_ _g9767997687_) + (let ((__tmp111178 + (let ((__tmp111185 (let () (declare (not safe)) (gx#datum->syntax__0 '#f - 'hash-copy!))) - (__tmp214806 - (let ((__tmp214811 + 'hash-merge!))) + (__tmp111179 + (let ((__tmp111184 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tbl))) - (__tmp214807 - (let ((__tmp214808 + (__tmp111180 + (let ((__tmp111181 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp214810 + (let ((__tmp111183 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force))) - (__tmp214809 + (__tmp111182 (let () (declare (not safe)) - (cons _g196738196744_ '())))) + (cons _g9767897684_ '())))) (declare (not safe)) - (cons __tmp214810 __tmp214809)))) + (cons __tmp111183 __tmp111182)))) (declare (not safe)) - (cons __tmp214808 '())))) + (cons __tmp111181 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214811 - __tmp214807)))) + (cons __tmp111184 + __tmp111180)))) (declare (not safe)) - (cons __tmp214812 __tmp214806)))) + (cons __tmp111185 __tmp111179)))) (declare (not safe)) - (cons __tmp214805 _g196739196747_)))) - (__tmp214791 + (cons __tmp111178 _g9767997687_)))) + (__tmp111164 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L196707_ - _L196709_)) - (let ((__tmp214794 - (lambda (_g196740196750_ - _g196741196753_ - _g196742196755_) - (let ((__tmp214795 - (let ((__tmp214803 + _L97647_ + _L97649_)) + (let ((__tmp111167 + (lambda (_g9768097690_ + _g9768197693_ + _g9768297695_) + (let ((__tmp111168 + (let ((__tmp111176 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-put!))) - (__tmp214796 - (let ((__tmp214802 + (__tmp111169 + (let ((__tmp111175 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tbl))) - (__tmp214797 - (let ((__tmp214799 - (let ((__tmp214801 + (__tmp111170 + (let ((__tmp111172 + (let ((__tmp111174 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp214800 + (__tmp111173 (let () (declare (not safe)) - (cons _g196741196753_ '())))) + (cons _g9768197693_ '())))) (declare (not safe)) - (cons __tmp214801 __tmp214800))) - (__tmp214798 + (cons __tmp111174 __tmp111173))) + (__tmp111171 (let () (declare (not safe)) - (cons _g196740196750_ '())))) + (cons _g9768097690_ '())))) (declare (not safe)) - (cons __tmp214799 __tmp214798)))) + (cons __tmp111172 __tmp111171)))) (declare (not safe)) - (cons __tmp214802 __tmp214797)))) + (cons __tmp111175 __tmp111170)))) (declare (not safe)) - (cons __tmp214803 __tmp214796)))) + (cons __tmp111176 __tmp111169)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214795 - _g196742196755_)))) - (__tmp214792 - (let ((__tmp214793 + (cons __tmp111168 + _g9768297695_)))) + (__tmp111165 + (let ((__tmp111166 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tbl)))) (declare (not safe)) - (cons __tmp214793 '())))) + (cons __tmp111166 '())))) (declare (not safe)) - (foldr2 __tmp214794 - __tmp214792 - _L196707_ - _L196709_))))) + (foldr2 __tmp111167 + __tmp111165 + _L97647_ + _L97649_))))) (declare (not safe)) - (foldr1 __tmp214804 __tmp214791 _L196710_)))) + (foldr1 __tmp111177 __tmp111164 _L97650_)))) (declare (not safe)) - (cons __tmp214813 __tmp214790)))) + (cons __tmp111186 __tmp111163)))) (declare (not safe)) - (cons __tmp214818 __tmp214789)))) + (cons __tmp111191 __tmp111162)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214788 '())))) + (cons __tmp111161 '())))) (declare (not safe)) - (cons __tmp214819 __tmp214787)))) + (cons __tmp111192 __tmp111160)))) (declare (not safe)) - (cons __tmp214786 '())))) + (cons __tmp111159 '())))) (declare (not safe)) - (cons _L196711_ __tmp214785)))) + (cons _L97651_ __tmp111158)))) (declare (not safe)) - (cons __tmp214820 __tmp214784)))) - (___kont212448212449_ - (lambda (_L196546_ _L196548_ _L196549_ _L196550_ _L196551_) - (let ((__tmp214860 + (cons __tmp111193 __tmp111157)))) + (___kont108820108821_ + (lambda (_L97486_ _L97488_ _L97489_ _L97490_ _L97491_) + (let ((__tmp111233 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp214821 - (let ((__tmp214856 - (let ((__tmp214857 - (let ((__tmp214858 - (let ((__tmp214859 + (__tmp111194 + (let ((__tmp111229 + (let ((__tmp111230 + (let ((__tmp111231 + (let ((__tmp111232 (let () (declare (not safe)) - (cons _L196549_ - _L196548_)))) + (cons _L97489_ + _L97488_)))) (declare (not safe)) - (cons __tmp214859 - _L196546_)))) + (cons __tmp111232 _L97486_)))) (declare (not safe)) - (cons '#f __tmp214858)))) + (cons '#f __tmp111231)))) (declare (not safe)) - (cons _L196551_ __tmp214857))) - (__tmp214822 - (let ((__tmp214823 - (let ((__tmp214855 + (cons _L97491_ __tmp111230))) + (__tmp111195 + (let ((__tmp111196 + (let ((__tmp111228 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def))) - (__tmp214824 - (let ((__tmp214851 - (let ((__tmp214852 - (let ((__tmp214854 + (__tmp111197 + (let ((__tmp111224 + (let ((__tmp111225 + (let ((__tmp111227 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx))) - (__tmp214853 + (__tmp111226 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'args)))) (declare (not safe)) - (cons __tmp214854 __tmp214853)))) + (cons __tmp111227 __tmp111226)))) (declare (not safe)) - (cons _L196550_ __tmp214852))) + (cons _L97490_ __tmp111225))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp214825 - (let ((__tmp214826 - (let ((__tmp214850 + (__tmp111198 + (let ((__tmp111199 + (let ((__tmp111223 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'parameterize))) - (__tmp214827 - (let ((__tmp214843 - (let ((__tmp214844 - (let ((__tmp214849 + (__tmp111200 + (let ((__tmp111216 + (let ((__tmp111217 + (let ((__tmp111222 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'current-compile-methods))) - (__tmp214845 - (let ((__tmp214846 - (let ((__tmp214848 + (__tmp111218 + (let ((__tmp111219 + (let ((__tmp111221 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'force))) - (__tmp214847 - (let () (declare (not safe)) (cons _L196549_ '())))) + (__tmp111220 + (let () (declare (not safe)) (cons _L97489_ '())))) (declare (not safe)) - (cons __tmp214848 __tmp214847)))) + (cons __tmp111221 __tmp111220)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214846 '())))) + (cons __tmp111219 '())))) (declare (not safe)) - (cons __tmp214849 __tmp214845)))) + (cons __tmp111222 __tmp111218)))) (declare (not safe)) - (cons __tmp214844 '()))) - (__tmp214828 - (let ((__tmp214836 - (let ((__tmp214842 + (cons __tmp111217 '()))) + (__tmp111201 + (let ((__tmp111209 + (let ((__tmp111215 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare))) - (__tmp214837 - (let ((__tmp214838 - (let ((__tmp214841 + (__tmp111210 + (let ((__tmp111211 + (let ((__tmp111214 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'not))) - (__tmp214839 - (let ((__tmp214840 + (__tmp111212 + (let ((__tmp111213 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'safe)))) (declare (not safe)) - (cons __tmp214840 '())))) + (cons __tmp111213 '())))) (declare (not safe)) - (cons __tmp214841 __tmp214839)))) + (cons __tmp111214 __tmp111212)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214838 '())))) + (cons __tmp111211 '())))) (declare (not safe)) - (cons __tmp214842 __tmp214837))) - (__tmp214829 - (let ((__tmp214830 - (let ((__tmp214835 + (cons __tmp111215 __tmp111210))) + (__tmp111202 + (let ((__tmp111203 + (let ((__tmp111208 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'do-apply-compile-e))) - (__tmp214831 - (let ((__tmp214834 + (__tmp111204 + (let ((__tmp111207 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'stx))) - (__tmp214832 - (let ((__tmp214833 + (__tmp111205 + (let ((__tmp111206 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'args)))) (declare (not safe)) - (cons __tmp214833 '())))) + (cons __tmp111206 '())))) (declare (not safe)) - (cons __tmp214834 __tmp214832)))) + (cons __tmp111207 __tmp111205)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214835 - __tmp214831)))) + (cons __tmp111208 + __tmp111204)))) (declare (not safe)) - (cons __tmp214830 '())))) + (cons __tmp111203 '())))) (declare (not safe)) - (cons __tmp214836 __tmp214829)))) + (cons __tmp111209 __tmp111202)))) (declare (not safe)) - (cons __tmp214843 __tmp214828)))) + (cons __tmp111216 __tmp111201)))) (declare (not safe)) - (cons __tmp214850 __tmp214827)))) + (cons __tmp111223 __tmp111200)))) (declare (not safe)) - (cons __tmp214826 '())))) + (cons __tmp111199 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214851 - __tmp214825)))) + (cons __tmp111224 + __tmp111198)))) (declare (not safe)) - (cons __tmp214855 __tmp214824)))) + (cons __tmp111228 __tmp111197)))) (declare (not safe)) - (cons __tmp214823 '())))) + (cons __tmp111196 '())))) (declare (not safe)) - (cons __tmp214856 __tmp214822)))) + (cons __tmp111229 __tmp111195)))) (declare (not safe)) - (cons __tmp214860 __tmp214821))))) - (let* ((___match212530212531_ - (lambda (_e196484196506_ - _hd196483196510_ - _tl196482196513_ - _e196487196516_ - _hd196486196520_ - _tl196485196523_ - _e196490196526_ - _hd196489196530_ - _tl196488196533_ - _e196493196536_ - _hd196492196540_ - _tl196491196543_) - (let ((_L196546_ _tl196488196533_) - (_L196548_ _tl196491196543_) - (_L196549_ _hd196492196540_) - (_L196550_ _hd196486196520_) - (_L196551_ _hd196483196510_)) + (cons __tmp111233 __tmp111194))))) + (let* ((___match108902108903_ + (lambda (_e9742497446_ + _hd9742397450_ + _tl9742297453_ + _e9742797456_ + _hd9742697460_ + _tl9742597463_ + _e9743097466_ + _hd9742997470_ + _tl9742897473_ + _e9743397476_ + _hd9743297480_ + _tl9743197483_) + (let ((_L97486_ _tl9742897473_) + (_L97488_ _tl9743197483_) + (_L97489_ _hd9743297480_) + (_L97490_ _hd9742697460_) + (_L97491_ _hd9742397450_)) (if (let () (declare (not safe)) - (gx#identifier? _L196550_)) - (___kont212448212449_ - _L196546_ - _L196548_ - _L196549_ - _L196550_ - _L196551_) - (let () (declare (not safe)) (_g196419196499_)))))) - (___match212506212507_ - (lambda (_e196440196579_ - _hd196439196583_ - _tl196438196586_ - _e196443196589_ - _hd196442196593_ - _tl196441196596_ - _e196444196599_ - _e196447196603_ - _hd196446196607_ - _tl196445196610_ - _e196450196613_ - _hd196449196617_ - _tl196448196620_ - ___splice212444212445_ - _target196451196623_ - _tl196453196626_) - (letrec ((_loop196454196629_ - (lambda (_hd196452196633_ _super196458196636_) + (gx#identifier? _L97490_)) + (___kont108820108821_ + _L97486_ + _L97488_ + _L97489_ + _L97490_ + _L97491_) + (let () (declare (not safe)) (_g9735997439_)))))) + (___match108878108879_ + (lambda (_e9738097519_ + _hd9737997523_ + _tl9737897526_ + _e9738397529_ + _hd9738297533_ + _tl9738197536_ + _e9738497539_ + _e9738797543_ + _hd9738697547_ + _tl9738597550_ + _e9739097553_ + _hd9738997557_ + _tl9738897560_ + ___splice108816108817_ + _target9739197563_ + _tl9739397566_) + (letrec ((_loop9739497569_ + (lambda (_hd9739297573_ _super9739897576_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd196452196633_)) - (let ((_e196455196639_ + (gx#stx-pair? _hd9739297573_)) + (let ((_e9739597579_ (let () (declare (not safe)) - (gx#syntax-e - _hd196452196633_)))) - (let ((_lp-tl196457196646_ + (gx#syntax-e _hd9739297573_)))) + (let ((_lp-tl9739797586_ (let () (declare (not safe)) - (##cdr _e196455196639_))) - (_lp-hd196456196643_ + (##cdr _e9739597579_))) + (_lp-hd9739697583_ (let () (declare (not safe)) - (##car _e196455196639_)))) - (_loop196454196629_ - _lp-tl196457196646_ + (##car _e9739597579_)))) + (_loop9739497569_ + _lp-tl9739797586_ (let () (declare (not safe)) - (cons _lp-hd196456196643_ - _super196458196636_))))) - (let ((_super196459196649_ - (reverse _super196458196636_))) + (cons _lp-hd9739697583_ + _super9739897576_))))) + (let ((_super9739997589_ + (reverse _super9739897576_))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl196445196610_)) - (let ((___splice212446212447_ + _tl9738597550_)) + (let ((___splice108818108819_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl196445196610_ + _tl9738597550_ '0)))) - (let ((_tl196462196656_ + (let ((_tl9740297596_ (let () (declare (not safe)) (##vector-ref - ___splice212446212447_ + ___splice108818108819_ '1))) - (_target196460196653_ + (_target9740097593_ (let () (declare (not safe)) (##vector-ref - ___splice212446212447_ + ___splice108818108819_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl196462196656_)) - (letrec ((_loop196463196659_ - (lambda (_hd196461196663_ + _tl9740297596_)) + (letrec ((_loop9740397599_ + (lambda (_hd9740197603_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _method196467196666_ - _symbol196468196668_) + _method9740797606_ + _symbol9740897608_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd196461196663_)) - (let ((_e196464196671_ + (gx#stx-pair? _hd9740197603_)) + (let ((_e9740497611_ (let () (declare (not safe)) - (gx#syntax-e _hd196461196663_)))) - (let ((_lp-tl196466196678_ + (gx#syntax-e _hd9740197603_)))) + (let ((_lp-tl9740697618_ (let () (declare (not safe)) - (##cdr _e196464196671_))) - (_lp-hd196465196675_ + (##cdr _e9740497611_))) + (_lp-hd9740597615_ (let () (declare (not safe)) - (##car _e196464196671_)))) + (##car _e9740497611_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd196465196675_)) - (let ((_e196473196681_ + (gx#stx-pair? _lp-hd9740597615_)) + (let ((_e9741397621_ (let () (declare (not safe)) - (gx#syntax-e - _lp-hd196465196675_)))) - (let ((_tl196471196688_ + (gx#syntax-e _lp-hd9740597615_)))) + (let ((_tl9741197628_ (let () (declare (not safe)) - (##cdr _e196473196681_))) - (_hd196472196685_ + (##cdr _e9741397621_))) + (_hd9741297625_ (let () (declare (not safe)) - (##car _e196473196681_)))) + (##car _e9741397621_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196471196688_)) - (let ((_e196476196691_ + (gx#stx-pair? _tl9741197628_)) + (let ((_e9741697631_ (let () (declare (not safe)) (gx#syntax-e - _tl196471196688_)))) - (let ((_tl196474196698_ + _tl9741197628_)))) + (let ((_tl9741497638_ (let () (declare (not safe)) - (##cdr _e196476196691_))) - (_hd196475196695_ + (##cdr _e9741697631_))) + (_hd9741597635_ (let () (declare (not safe)) - (##car _e196476196691_)))) + (##car _e9741697631_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl196474196698_)) - (_loop196463196659_ - _lp-tl196466196678_ + _tl9741497638_)) + (_loop9740397599_ + _lp-tl9740697618_ (let () (declare (not safe)) - (cons _hd196475196695_ - _method196467196666_)) + (cons _hd9741597635_ + _method9740797606_)) (let () (declare (not safe)) - (cons _hd196472196685_ - _symbol196468196668_))) - (___match212530212531_ - _e196440196579_ - _hd196439196583_ - _tl196438196586_ - _e196443196589_ - _hd196442196593_ - _tl196441196596_ - _e196447196603_ - _hd196446196607_ - _tl196445196610_ - _e196450196613_ - _hd196449196617_ - _tl196448196620_)))) - (___match212530212531_ - _e196440196579_ - _hd196439196583_ - _tl196438196586_ - _e196443196589_ - _hd196442196593_ - _tl196441196596_ - _e196447196603_ - _hd196446196607_ - _tl196445196610_ - _e196450196613_ - _hd196449196617_ - _tl196448196620_)))) - (___match212530212531_ - _e196440196579_ - _hd196439196583_ - _tl196438196586_ - _e196443196589_ - _hd196442196593_ - _tl196441196596_ - _e196447196603_ - _hd196446196607_ - _tl196445196610_ - _e196450196613_ - _hd196449196617_ - _tl196448196620_)))) - (let ((_symbol196470196704_ - (reverse _symbol196468196668_)) - (_method196469196701_ - (reverse _method196467196666_))) - (___kont212442212443_ - _method196469196701_ - _symbol196470196704_ - _super196459196649_ - _hd196449196617_)))))) - (_loop196463196659_ _target196460196653_ '() '())) + (cons _hd9741297625_ + _symbol9740897608_))) + (___match108902108903_ + _e9738097519_ + _hd9737997523_ + _tl9737897526_ + _e9738397529_ + _hd9738297533_ + _tl9738197536_ + _e9738797543_ + _hd9738697547_ + _tl9738597550_ + _e9739097553_ + _hd9738997557_ + _tl9738897560_)))) + (___match108902108903_ + _e9738097519_ + _hd9737997523_ + _tl9737897526_ + _e9738397529_ + _hd9738297533_ + _tl9738197536_ + _e9738797543_ + _hd9738697547_ + _tl9738597550_ + _e9739097553_ + _hd9738997557_ + _tl9738897560_)))) + (___match108902108903_ + _e9738097519_ + _hd9737997523_ + _tl9737897526_ + _e9738397529_ + _hd9738297533_ + _tl9738197536_ + _e9738797543_ + _hd9738697547_ + _tl9738597550_ + _e9739097553_ + _hd9738997557_ + _tl9738897560_)))) + (let ((_symbol9741097644_ + (reverse _symbol9740897608_)) + (_method9740997641_ + (reverse _method9740797606_))) + (___kont108814108815_ + _method9740997641_ + _symbol9741097644_ + _super9739997589_ + _hd9738997557_)))))) + (_loop9740397599_ _target9740097593_ '() '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match212530212531_ - _e196440196579_ - _hd196439196583_ - _tl196438196586_ - _e196443196589_ - _hd196442196593_ - _tl196441196596_ - _e196447196603_ - _hd196446196607_ - _tl196445196610_ - _e196450196613_ - _hd196449196617_ - _tl196448196620_)))) - (___match212530212531_ - _e196440196579_ - _hd196439196583_ - _tl196438196586_ - _e196443196589_ - _hd196442196593_ - _tl196441196596_ - _e196447196603_ - _hd196446196607_ - _tl196445196610_ - _e196450196613_ - _hd196449196617_ - _tl196448196620_))))))) - (_loop196454196629_ _target196451196623_ '())))) - (___match212468212469_ - (lambda (_e196427196765_ - _hd196426196769_ - _tl196425196772_ - _e196430196775_ - _hd196429196779_ - _tl196428196782_ - _e196433196785_ - _hd196432196789_ - _tl196431196792_) - (let ((_L196795_ _tl196431196792_) - (_L196797_ _hd196432196789_) - (_L196798_ _hd196429196779_) - (_L196799_ _hd196426196769_)) + (___match108902108903_ + _e9738097519_ + _hd9737997523_ + _tl9737897526_ + _e9738397529_ + _hd9738297533_ + _tl9738197536_ + _e9738797543_ + _hd9738697547_ + _tl9738597550_ + _e9739097553_ + _hd9738997557_ + _tl9738897560_)))) + (___match108902108903_ + _e9738097519_ + _hd9737997523_ + _tl9737897526_ + _e9738397529_ + _hd9738297533_ + _tl9738197536_ + _e9738797543_ + _hd9738697547_ + _tl9738597550_ + _e9739097553_ + _hd9738997557_ + _tl9738897560_))))))) + (_loop9739497569_ _target9739197563_ '())))) + (___match108840108841_ + (lambda (_e9736797705_ + _hd9736697709_ + _tl9736597712_ + _e9737097715_ + _hd9736997719_ + _tl9736897722_ + _e9737397725_ + _hd9737297729_ + _tl9737197732_) + (let ((_L97735_ _tl9737197732_) + (_L97737_ _hd9737297729_) + (_L97738_ _hd9736997719_) + (_L97739_ _hd9736697709_)) (if (let () (declare (not safe)) - (gx#identifier? _L196797_)) - (___kont212440212441_ - _L196795_ - _L196797_ - _L196798_ - _L196799_) + (gx#identifier? _L97737_)) + (___kont108812108813_ + _L97735_ + _L97737_ + _L97738_ + _L97739_) (if (let () (declare (not safe)) - (gx#stx-datum? _hd196429196779_)) - (let ((_e196444196599_ + (gx#stx-datum? _hd9736997719_)) + (let ((_e9738497539_ (let () (declare (not safe)) - (gx#stx-e _hd196429196779_)))) + (gx#stx-e _hd9736997719_)))) (if (let () (declare (not safe)) - (equal? _e196444196599_ '#f)) + (equal? _e9738497539_ '#f)) (if (let () (declare (not safe)) - (gx#stx-pair? _hd196432196789_)) - (let ((_e196450196613_ + (gx#stx-pair? _hd9737297729_)) + (let ((_e9739097553_ (let () (declare (not safe)) (gx#syntax-e - _hd196432196789_)))) - (let ((_tl196448196620_ + _hd9737297729_)))) + (let ((_tl9738897560_ (let () (declare (not safe)) - (##cdr _e196450196613_))) - (_hd196449196617_ + (##cdr _e9739097553_))) + (_hd9738997557_ (let () (declare (not safe)) - (##car _e196450196613_)))) + (##car _e9739097553_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl196448196620_)) - (let ((___splice212444212445_ + _tl9738897560_)) + (let ((___splice108816108817_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl196448196620_ + _tl9738897560_ '0)))) - (let ((_tl196453196626_ + (let ((_tl9739397566_ (let () (declare (not safe)) (##vector-ref - ___splice212444212445_ + ___splice108816108817_ '1))) - (_target196451196623_ + (_target9739197563_ (let () (declare (not safe)) (##vector-ref - ___splice212444212445_ + ___splice108816108817_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl196453196626_)) - (___match212506212507_ - _e196427196765_ - _hd196426196769_ - _tl196425196772_ - _e196430196775_ - _hd196429196779_ - _tl196428196782_ - _e196444196599_ - _e196433196785_ - _hd196432196789_ - _tl196431196792_ - _e196450196613_ - _hd196449196617_ - _tl196448196620_ - ___splice212444212445_ - _target196451196623_ - _tl196453196626_) - (___match212530212531_ - _e196427196765_ - _hd196426196769_ - _tl196425196772_ - _e196430196775_ - _hd196429196779_ - _tl196428196782_ - _e196433196785_ - _hd196432196789_ - _tl196431196792_ - _e196450196613_ - _hd196449196617_ - _tl196448196620_)))) - (___match212530212531_ - _e196427196765_ - _hd196426196769_ - _tl196425196772_ - _e196430196775_ - _hd196429196779_ - _tl196428196782_ - _e196433196785_ - _hd196432196789_ - _tl196431196792_ - _e196450196613_ - _hd196449196617_ - _tl196448196620_)))) + _tl9739397566_)) + (___match108878108879_ + _e9736797705_ + _hd9736697709_ + _tl9736597712_ + _e9737097715_ + _hd9736997719_ + _tl9736897722_ + _e9738497539_ + _e9737397725_ + _hd9737297729_ + _tl9737197732_ + _e9739097553_ + _hd9738997557_ + _tl9738897560_ + ___splice108816108817_ + _target9739197563_ + _tl9739397566_) + (___match108902108903_ + _e9736797705_ + _hd9736697709_ + _tl9736597712_ + _e9737097715_ + _hd9736997719_ + _tl9736897722_ + _e9737397725_ + _hd9737297729_ + _tl9737197732_ + _e9739097553_ + _hd9738997557_ + _tl9738897560_)))) + (___match108902108903_ + _e9736797705_ + _hd9736697709_ + _tl9736597712_ + _e9737097715_ + _hd9736997719_ + _tl9736897722_ + _e9737397725_ + _hd9737297729_ + _tl9737197732_ + _e9739097553_ + _hd9738997557_ + _tl9738897560_)))) (let () (declare (not safe)) - (_g196419196499_))) + (_g9735997439_))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd196432196789_)) - (let ((_e196493196536_ + (gx#stx-pair? _hd9737297729_)) + (let ((_e9743397476_ (let () (declare (not safe)) (gx#syntax-e - _hd196432196789_)))) - (let ((_tl196491196543_ + _hd9737297729_)))) + (let ((_tl9743197483_ (let () (declare (not safe)) - (##cdr _e196493196536_))) - (_hd196492196540_ + (##cdr _e9743397476_))) + (_hd9743297480_ (let () (declare (not safe)) - (##car _e196493196536_)))) - (___match212530212531_ - _e196427196765_ - _hd196426196769_ - _tl196425196772_ - _e196430196775_ - _hd196429196779_ - _tl196428196782_ - _e196433196785_ - _hd196432196789_ - _tl196431196792_ - _e196493196536_ - _hd196492196540_ - _tl196491196543_))) + (##car _e9743397476_)))) + (___match108902108903_ + _e9736797705_ + _hd9736697709_ + _tl9736597712_ + _e9737097715_ + _hd9736997719_ + _tl9736897722_ + _e9737397725_ + _hd9737297729_ + _tl9737197732_ + _e9743397476_ + _hd9743297480_ + _tl9743197483_))) (let () (declare (not safe)) - (_g196419196499_))))) + (_g9735997439_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd196432196789_)) - (let ((_e196493196536_ + (gx#stx-pair? _hd9737297729_)) + (let ((_e9743397476_ (let () (declare (not safe)) - (gx#syntax-e _hd196432196789_)))) - (let ((_tl196491196543_ + (gx#syntax-e _hd9737297729_)))) + (let ((_tl9743197483_ (let () (declare (not safe)) - (##cdr _e196493196536_))) - (_hd196492196540_ + (##cdr _e9743397476_))) + (_hd9743297480_ (let () (declare (not safe)) - (##car _e196493196536_)))) - (___match212530212531_ - _e196427196765_ - _hd196426196769_ - _tl196425196772_ - _e196430196775_ - _hd196429196779_ - _tl196428196782_ - _e196433196785_ - _hd196432196789_ - _tl196431196792_ - _e196493196536_ - _hd196492196540_ - _tl196491196543_))) + (##car _e9743397476_)))) + (___match108902108903_ + _e9736797705_ + _hd9736697709_ + _tl9736597712_ + _e9737097715_ + _hd9736997719_ + _tl9736897722_ + _e9737397725_ + _hd9737297729_ + _tl9737197732_ + _e9743397476_ + _hd9743297480_ + _tl9743197483_))) (let () (declare (not safe)) - (_g196419196499_))))))))) + (_g9735997439_))))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx212437212438_)) - (let ((_e196427196765_ + (gx#stx-pair? ___stx108809108810_)) + (let ((_e9736797705_ (let () (declare (not safe)) - (gx#syntax-e ___stx212437212438_)))) - (let ((_tl196425196772_ + (gx#syntax-e ___stx108809108810_)))) + (let ((_tl9736597712_ + (let () (declare (not safe)) (##cdr _e9736797705_))) + (_hd9736697709_ (let () (declare (not safe)) - (##cdr _e196427196765_))) - (_hd196426196769_ - (let () - (declare (not safe)) - (##car _e196427196765_)))) + (##car _e9736797705_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196425196772_)) - (let ((_e196430196775_ + (gx#stx-pair? _tl9736597712_)) + (let ((_e9737097715_ (let () (declare (not safe)) - (gx#syntax-e _tl196425196772_)))) - (let ((_tl196428196782_ + (gx#syntax-e _tl9736597712_)))) + (let ((_tl9736897722_ (let () (declare (not safe)) - (##cdr _e196430196775_))) - (_hd196429196779_ + (##cdr _e9737097715_))) + (_hd9736997719_ (let () (declare (not safe)) - (##car _e196430196775_)))) + (##car _e9737097715_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196428196782_)) - (let ((_e196433196785_ + (gx#stx-pair? _tl9736897722_)) + (let ((_e9737397725_ (let () (declare (not safe)) - (gx#syntax-e _tl196428196782_)))) - (let ((_tl196431196792_ + (gx#syntax-e _tl9736897722_)))) + (let ((_tl9737197732_ (let () (declare (not safe)) - (##cdr _e196433196785_))) - (_hd196432196789_ + (##cdr _e9737397725_))) + (_hd9737297729_ (let () (declare (not safe)) - (##car _e196433196785_)))) - (___match212468212469_ - _e196427196765_ - _hd196426196769_ - _tl196425196772_ - _e196430196775_ - _hd196429196779_ - _tl196428196782_ - _e196433196785_ - _hd196432196789_ - _tl196431196792_))) + (##car _e9737397725_)))) + (___match108840108841_ + _e9736797705_ + _hd9736697709_ + _tl9736597712_ + _e9737097715_ + _hd9736997719_ + _tl9736897722_ + _e9737397725_ + _hd9737297729_ + _tl9737197732_))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd196429196779_)) - (let ((_e196444196599_ + (gx#stx-datum? _hd9736997719_)) + (let ((_e9738497539_ (let () (declare (not safe)) - (gx#stx-e _hd196429196779_)))) + (gx#stx-e _hd9736997719_)))) (declare (not safe)) - (_g196419196499_)) + (_g9735997439_)) (let () (declare (not safe)) - (_g196419196499_)))))) - (let () (declare (not safe)) (_g196419196499_))))) - (let () (declare (not safe)) (_g196419196499_)))))))) + (_g9735997439_)))))) + (let () (declare (not safe)) (_g9735997439_))))) + (let () (declare (not safe)) (_g9735997439_)))))))) (define |gxc[:0:]#do-apply-compile-e| - (lambda (_$stx196822_) - (let* ((_g196826196844_ - (lambda (_g196827196840_) + (lambda (_$stx97762_) + (let* ((_g9776697784_ + (lambda (_g9776797780_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196827196840_)))) - (_g196825196899_ - (lambda (_g196827196848_) + _g9776797780_)))) + (_g9776597839_ + (lambda (_g9776797788_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196827196848_)) - (let ((_e196832196851_ + (gx#stx-pair? _g9776797788_)) + (let ((_e9777297791_ (let () (declare (not safe)) - (gx#syntax-e _g196827196848_)))) - (let ((_hd196831196855_ + (gx#syntax-e _g9776797788_)))) + (let ((_hd9777197795_ (let () (declare (not safe)) - (##car _e196832196851_))) - (_tl196830196858_ + (##car _e9777297791_))) + (_tl9777097798_ (let () (declare (not safe)) - (##cdr _e196832196851_)))) + (##cdr _e9777297791_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196830196858_)) - (let ((_e196835196861_ + (gx#stx-pair? _tl9777097798_)) + (let ((_e9777597801_ (let () (declare (not safe)) - (gx#syntax-e _tl196830196858_)))) - (let ((_hd196834196865_ + (gx#syntax-e _tl9777097798_)))) + (let ((_hd9777497805_ (let () (declare (not safe)) - (##car _e196835196861_))) - (_tl196833196868_ + (##car _e9777597801_))) + (_tl9777397808_ (let () (declare (not safe)) - (##cdr _e196835196861_)))) + (##cdr _e9777597801_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196833196868_)) - (let ((_e196838196871_ + (gx#stx-pair? _tl9777397808_)) + (let ((_e9777897811_ (let () (declare (not safe)) - (gx#syntax-e - _tl196833196868_)))) - (let ((_hd196837196875_ + (gx#syntax-e _tl9777397808_)))) + (let ((_hd9777797815_ (let () (declare (not safe)) - (##car _e196838196871_))) - (_tl196836196878_ + (##car _e9777897811_))) + (_tl9777697818_ (let () (declare (not safe)) - (##cdr _e196838196871_)))) + (##cdr _e9777897811_)))) (if (let () (declare (not safe)) - (gx#stx-null? - _tl196836196878_)) - ((lambda (_L196881_ _L196883_) - (let ((__tmp214949 + (gx#stx-null? _tl9777697818_)) + ((lambda (_L97821_ _L97823_) + (let ((__tmp111322 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp214861 - (let ((__tmp214946 - (let ((__tmp214948 + (__tmp111234 + (let ((__tmp111319 + (let ((__tmp111321 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'null?))) - (__tmp214947 + (__tmp111320 (let () (declare (not safe)) - (cons _L196881_ '())))) + (cons _L97821_ '())))) (declare (not safe)) - (cons __tmp214948 __tmp214947))) - (__tmp214862 - (let ((__tmp214943 - (let ((__tmp214945 + (cons __tmp111321 __tmp111320))) + (__tmp111235 + (let ((__tmp111316 + (let ((__tmp111318 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp214944 + (__tmp111317 (let () (declare (not safe)) - (cons _L196883_ '())))) + (cons _L97823_ '())))) (declare (not safe)) - (cons __tmp214945 __tmp214944))) - (__tmp214863 - (let ((__tmp214864 - (let ((__tmp214942 + (cons __tmp111318 __tmp111317))) + (__tmp111236 + (let ((__tmp111237 + (let ((__tmp111315 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp214865 - (let ((__tmp214928 - (let ((__tmp214936 - (let ((__tmp214941 + (__tmp111238 + (let ((__tmp111301 + (let ((__tmp111309 + (let ((__tmp111314 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg1))) - (__tmp214937 - (let ((__tmp214938 - (let ((__tmp214940 + (__tmp111310 + (let ((__tmp111311 + (let ((__tmp111313 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'car))) - (__tmp214939 + (__tmp111312 (let () (declare (not safe)) - (cons _L196881_ '())))) + (cons _L97821_ '())))) (declare (not safe)) - (cons __tmp214940 __tmp214939)))) + (cons __tmp111313 __tmp111312)))) (declare (not safe)) - (cons __tmp214938 '())))) + (cons __tmp111311 '())))) (declare (not safe)) - (cons __tmp214941 __tmp214937))) - (__tmp214929 - (let ((__tmp214930 - (let ((__tmp214935 + (cons __tmp111314 __tmp111310))) + (__tmp111302 + (let ((__tmp111303 + (let ((__tmp111308 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp214931 - (let ((__tmp214932 - (let ((__tmp214934 + (__tmp111304 + (let ((__tmp111305 + (let ((__tmp111307 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cdr))) - (__tmp214933 + (__tmp111306 (let () (declare (not safe)) - (cons _L196881_ '())))) + (cons _L97821_ '())))) (declare (not safe)) - (cons __tmp214934 __tmp214933)))) + (cons __tmp111307 __tmp111306)))) (declare (not safe)) - (cons __tmp214932 '())))) + (cons __tmp111305 '())))) (declare (not safe)) - (cons __tmp214935 __tmp214931)))) + (cons __tmp111308 __tmp111304)))) (declare (not safe)) - (cons __tmp214930 '())))) + (cons __tmp111303 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214936 - __tmp214929))) - (__tmp214866 - (let ((__tmp214867 - (let ((__tmp214927 + (cons __tmp111309 + __tmp111302))) + (__tmp111239 + (let ((__tmp111240 + (let ((__tmp111300 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp214868 - (let ((__tmp214923 - (let ((__tmp214926 + (__tmp111241 + (let ((__tmp111296 + (let ((__tmp111299 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'null?))) - (__tmp214924 - (let ((__tmp214925 + (__tmp111297 + (let ((__tmp111298 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp214925 '())))) + (cons __tmp111298 '())))) (declare (not safe)) - (cons __tmp214926 __tmp214924))) - (__tmp214869 - (let ((__tmp214918 - (let ((__tmp214922 + (cons __tmp111299 __tmp111297))) + (__tmp111242 + (let ((__tmp111291 + (let ((__tmp111295 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp214919 - (let ((__tmp214920 - (let ((__tmp214921 + (__tmp111292 + (let ((__tmp111293 + (let ((__tmp111294 (let () (declare (not safe)) @@ -1629,578 +1619,575 @@ '#f 'arg1)))) (declare (not safe)) - (cons __tmp214921 + (cons __tmp111294 '())))) (declare (not safe)) - (cons _L196883_ __tmp214920)))) + (cons _L97823_ __tmp111293)))) (declare (not safe)) - (cons __tmp214922 __tmp214919))) - (__tmp214870 - (let ((__tmp214871 - (let ((__tmp214917 + (cons __tmp111295 __tmp111292))) + (__tmp111243 + (let ((__tmp111244 + (let ((__tmp111290 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp214872 - (let ((__tmp214901 - (let ((__tmp214910 + (__tmp111245 + (let ((__tmp111274 + (let ((__tmp111283 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp214916 + (let ((__tmp111289 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg2))) - (__tmp214911 - (let ((__tmp214912 - (let ((__tmp214915 + (__tmp111284 + (let ((__tmp111285 + (let ((__tmp111288 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'car))) - (__tmp214913 - (let ((__tmp214914 + (__tmp111286 + (let ((__tmp111287 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp214914 '())))) + (cons __tmp111287 '())))) (declare (not safe)) - (cons __tmp214915 __tmp214913)))) + (cons __tmp111288 __tmp111286)))) (declare (not safe)) - (cons __tmp214912 '())))) + (cons __tmp111285 '())))) (declare (not safe)) - (cons __tmp214916 __tmp214911))) - (__tmp214902 - (let ((__tmp214903 - (let ((__tmp214909 + (cons __tmp111289 __tmp111284))) + (__tmp111275 + (let ((__tmp111276 + (let ((__tmp111282 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp214904 - (let ((__tmp214905 - (let ((__tmp214908 + (__tmp111277 + (let ((__tmp111278 + (let ((__tmp111281 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cdr))) - (__tmp214906 - (let ((__tmp214907 + (__tmp111279 + (let ((__tmp111280 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp214907 '())))) + (cons __tmp111280 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214908 - __tmp214906)))) + (cons __tmp111281 + __tmp111279)))) (declare (not safe)) - (cons __tmp214905 '())))) + (cons __tmp111278 '())))) (declare (not safe)) - (cons __tmp214909 __tmp214904)))) + (cons __tmp111282 __tmp111277)))) (declare (not safe)) - (cons __tmp214903 '())))) + (cons __tmp111276 '())))) (declare (not safe)) - (cons __tmp214910 __tmp214902))) - (__tmp214873 - (let ((__tmp214874 - (let ((__tmp214900 + (cons __tmp111283 __tmp111275))) + (__tmp111246 + (let ((__tmp111247 + (let ((__tmp111273 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp214875 - (let ((__tmp214896 - (let ((__tmp214899 + (__tmp111248 + (let ((__tmp111269 + (let ((__tmp111272 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'null?))) - (__tmp214897 - (let ((__tmp214898 + (__tmp111270 + (let ((__tmp111271 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp214898 '())))) + (cons __tmp111271 '())))) (declare (not safe)) - (cons __tmp214899 __tmp214897))) - (__tmp214876 - (let ((__tmp214889 - (let ((__tmp214895 + (cons __tmp111272 __tmp111270))) + (__tmp111249 + (let ((__tmp111262 + (let ((__tmp111268 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp214890 - (let ((__tmp214891 - (let ((__tmp214894 + (__tmp111263 + (let ((__tmp111264 + (let ((__tmp111267 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg1))) - (__tmp214892 - (let ((__tmp214893 + (__tmp111265 + (let ((__tmp111266 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg2)))) (declare (not safe)) - (cons __tmp214893 '())))) + (cons __tmp111266 '())))) (declare (not safe)) - (cons __tmp214894 __tmp214892)))) + (cons __tmp111267 __tmp111265)))) (declare (not safe)) - (cons _L196883_ __tmp214891)))) + (cons _L97823_ __tmp111264)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214895 - __tmp214890))) - (__tmp214877 - (let ((__tmp214878 - (let ((__tmp214888 + (cons __tmp111268 + __tmp111263))) + (__tmp111250 + (let ((__tmp111251 + (let ((__tmp111261 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'apply))) - (__tmp214879 - (let ((__tmp214887 + (__tmp111252 + (let ((__tmp111260 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp214880 - (let ((__tmp214881 - (let ((__tmp214886 + (__tmp111253 + (let ((__tmp111254 + (let ((__tmp111259 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg1))) - (__tmp214882 - (let ((__tmp214885 + (__tmp111255 + (let ((__tmp111258 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg2))) - (__tmp214883 - (let ((__tmp214884 + (__tmp111256 + (let ((__tmp111257 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp214884 '())))) + (cons __tmp111257 '())))) (declare (not safe)) - (cons __tmp214885 __tmp214883)))) + (cons __tmp111258 __tmp111256)))) (declare (not safe)) - (cons __tmp214886 __tmp214882)))) + (cons __tmp111259 __tmp111255)))) (declare (not safe)) - (cons _L196883_ __tmp214881)))) + (cons _L97823_ __tmp111254)))) (declare (not safe)) - (cons __tmp214887 __tmp214880)))) + (cons __tmp111260 __tmp111253)))) (declare (not safe)) - (cons __tmp214888 __tmp214879)))) + (cons __tmp111261 __tmp111252)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214878 '())))) + (cons __tmp111251 '())))) (declare (not safe)) - (cons __tmp214889 __tmp214877)))) + (cons __tmp111262 __tmp111250)))) (declare (not safe)) - (cons __tmp214896 __tmp214876)))) + (cons __tmp111269 __tmp111249)))) (declare (not safe)) - (cons __tmp214900 __tmp214875)))) + (cons __tmp111273 __tmp111248)))) (declare (not safe)) - (cons __tmp214874 '())))) + (cons __tmp111247 '())))) (declare (not safe)) - (cons __tmp214901 __tmp214873)))) + (cons __tmp111274 __tmp111246)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214917 - __tmp214872)))) + (cons __tmp111290 + __tmp111245)))) (declare (not safe)) - (cons __tmp214871 '())))) + (cons __tmp111244 '())))) (declare (not safe)) - (cons __tmp214918 __tmp214870)))) + (cons __tmp111291 __tmp111243)))) (declare (not safe)) - (cons __tmp214923 __tmp214869)))) + (cons __tmp111296 __tmp111242)))) (declare (not safe)) - (cons __tmp214927 __tmp214868)))) + (cons __tmp111300 __tmp111241)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214867 '())))) + (cons __tmp111240 '())))) (declare (not safe)) - (cons __tmp214928 __tmp214866)))) + (cons __tmp111301 __tmp111239)))) (declare (not safe)) - (cons __tmp214942 __tmp214865)))) + (cons __tmp111315 __tmp111238)))) (declare (not safe)) - (cons __tmp214864 '())))) + (cons __tmp111237 '())))) (declare (not safe)) - (cons __tmp214943 __tmp214863)))) + (cons __tmp111316 __tmp111236)))) (declare (not safe)) - (cons __tmp214946 __tmp214862)))) + (cons __tmp111319 __tmp111235)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214949 - __tmp214861))) - _hd196837196875_ - _hd196834196865_) - (_g196826196844_ - _g196827196848_)))) - (_g196826196844_ _g196827196848_)))) - (_g196826196844_ _g196827196848_)))) - (_g196826196844_ _g196827196848_))))) - (_g196825196899_ _$stx196822_)))) + (cons __tmp111322 + __tmp111234))) + _hd9777797815_ + _hd9777497805_) + (_g9776697784_ _g9776797788_)))) + (_g9776697784_ _g9776797788_)))) + (_g9776697784_ _g9776797788_)))) + (_g9776697784_ _g9776797788_))))) + (_g9776597839_ _$stx97762_)))) (define |gxc[:0:]#with-primitive-bind+args| - (lambda (_$stx196903_) - (let* ((_g196907196942_ - (lambda (_g196908196938_) + (lambda (_$stx97843_) + (let* ((_g9784797882_ + (lambda (_g9784897878_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196908196938_)))) - (_g196906197067_ - (lambda (_g196908196946_) + _g9784897878_)))) + (_g9784698007_ + (lambda (_g9784897886_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196908196946_)) - (let ((_e196915196949_ + (gx#stx-pair? _g9784897886_)) + (let ((_e9785597889_ (let () (declare (not safe)) - (gx#syntax-e _g196908196946_)))) - (let ((_hd196914196953_ + (gx#syntax-e _g9784897886_)))) + (let ((_hd9785497893_ (let () (declare (not safe)) - (##car _e196915196949_))) - (_tl196913196956_ + (##car _e9785597889_))) + (_tl9785397896_ (let () (declare (not safe)) - (##cdr _e196915196949_)))) + (##cdr _e9785597889_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196913196956_)) - (let ((_e196918196959_ + (gx#stx-pair? _tl9785397896_)) + (let ((_e9785897899_ (let () (declare (not safe)) - (gx#syntax-e _tl196913196956_)))) - (let ((_hd196917196963_ + (gx#syntax-e _tl9785397896_)))) + (let ((_hd9785797903_ (let () (declare (not safe)) - (##car _e196918196959_))) - (_tl196916196966_ + (##car _e9785897899_))) + (_tl9785697906_ (let () (declare (not safe)) - (##cdr _e196918196959_)))) + (##cdr _e9785897899_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd196917196963_)) - (let ((_e196921196969_ + (gx#stx-pair? _hd9785797903_)) + (let ((_e9786197909_ (let () (declare (not safe)) - (gx#syntax-e - _hd196917196963_)))) - (let ((_hd196920196973_ + (gx#syntax-e _hd9785797903_)))) + (let ((_hd9786097913_ (let () (declare (not safe)) - (##car _e196921196969_))) - (_tl196919196976_ + (##car _e9786197909_))) + (_tl9785997916_ (let () (declare (not safe)) - (##cdr _e196921196969_)))) + (##cdr _e9786197909_)))) (if (let () (declare (not safe)) - (gx#stx-pair? - _tl196919196976_)) - (let ((_e196924196979_ + (gx#stx-pair? _tl9785997916_)) + (let ((_e9786497919_ (let () (declare (not safe)) (gx#syntax-e - _tl196919196976_)))) - (let ((_hd196923196983_ + _tl9785997916_)))) + (let ((_hd9786397923_ (let () (declare (not safe)) - (##car _e196924196979_))) - (_tl196922196986_ + (##car _e9786497919_))) + (_tl9786297926_ (let () (declare (not safe)) - (##cdr _e196924196979_)))) + (##cdr _e9786497919_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl196922196986_)) - (let ((_e196927196989_ + _tl9786297926_)) + (let ((_e9786797929_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _tl196922196986_)))) - (let ((_hd196926196993_ - (let () (declare (not safe)) (##car _e196927196989_))) - (_tl196925196996_ - (let () (declare (not safe)) (##cdr _e196927196989_)))) + (gx#syntax-e _tl9786297926_)))) + (let ((_hd9786697933_ + (let () (declare (not safe)) (##car _e9786797929_))) + (_tl9786597936_ + (let () (declare (not safe)) (##cdr _e9786797929_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl196925196996_)) + (gx#stx-null? _tl9786597936_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl196916196966_)) - (let ((_g214950_ + (gx#stx-pair/null? _tl9785697906_)) + (let ((_g111323_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl196916196966_ + _tl9785697906_ '0)))) (begin - (let ((_g214951_ + (let ((_g111324_ (let () (declare (not safe)) - (if (##values? _g214950_) - (##vector-length _g214950_) + (if (##values? _g111323_) + (##vector-length _g111323_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g214951_ 2))) + (##fx= _g111324_ 2))) (error "Context expects 2 values" - _g214951_))) - (let ((_target196928196999_ + _g111324_))) + (let ((_target9786897939_ (let () (declare (not safe)) - (##vector-ref _g214950_ 0))) - (_tl196930197002_ + (##vector-ref _g111323_ 0))) + (_tl9787097942_ (let () (declare (not safe)) - (##vector-ref _g214950_ 1)))) + (##vector-ref _g111323_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl196930197002_)) - (letrec ((_loop196931197005_ - (lambda (_hd196929197009_ - _body196935197012_) + (gx#stx-null? _tl9787097942_)) + (letrec ((_loop9787197945_ + (lambda (_hd9786997949_ + _body9787597952_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd196929197009_)) - (let ((_e196932197015_ + _hd9786997949_)) + (let ((_e9787297955_ (let () (declare (not safe)) (gx#syntax-e - _hd196929197009_)))) - (let ((_lp-hd196933197019_ + _hd9786997949_)))) + (let ((_lp-hd9787397959_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e196932197015_))) - (_lp-tl196934197022_ - (let () (declare (not safe)) (##cdr _e196932197015_)))) - (_loop196931197005_ - _lp-tl196934197022_ + (##car _e9787297955_))) + (_lp-tl9787497962_ + (let () (declare (not safe)) (##cdr _e9787297955_)))) + (_loop9787197945_ + _lp-tl9787497962_ (let () (declare (not safe)) - (cons _lp-hd196933197019_ _body196935197012_))))) + (cons _lp-hd9787397959_ _body9787597952_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_body196936197025_ - (reverse _body196935197012_))) - ((lambda (_L197029_ - _L197031_ - _L197032_ - _L197033_) - (let ((__tmp215083 + (let ((_body9787697965_ + (reverse _body9787597952_))) + ((lambda (_L97969_ + _L97971_ + _L97972_ + _L97973_) + (let ((__tmp111456 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp214952 - (let ((__tmp215082 + (__tmp111325 + (let ((__tmp111455 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp214953 - (let ((__tmp215068 - (let ((__tmp215079 - (let ((__tmp215081 + (__tmp111326 + (let ((__tmp111441 + (let ((__tmp111452 + (let ((__tmp111454 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp215080 + (__tmp111453 (let () (declare (not safe)) - (cons _L197031_ '())))) + (cons _L97971_ '())))) (declare (not safe)) - (cons __tmp215081 __tmp215080))) - (__tmp215069 - (let ((__tmp215075 - (let ((__tmp215076 - (let ((__tmp215077 + (cons __tmp111454 __tmp111453))) + (__tmp111442 + (let ((__tmp111448 + (let ((__tmp111449 + (let ((__tmp111450 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp215078 + (let ((__tmp111451 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)))) (declare (not safe)) - (cons __tmp215078 '())))) + (cons __tmp111451 '())))) (declare (not safe)) - (cons __tmp215077 '())))) + (cons __tmp111450 '())))) (declare (not safe)) - (cons _L197033_ __tmp215076))) + (cons _L97973_ __tmp111449))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp215070 - (let ((__tmp215071 - (let ((__tmp215072 + (__tmp111443 + (let ((__tmp111444 + (let ((__tmp111445 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp215073 - (let ((__tmp215074 + (let ((__tmp111446 + (let ((__tmp111447 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)))) (declare (not safe)) - (cons __tmp215074 '())))) + (cons __tmp111447 '())))) (declare (not safe)) - (cons __tmp215073 '())))) + (cons __tmp111446 '())))) (declare (not safe)) - (cons _L197032_ __tmp215072)))) + (cons _L97972_ __tmp111445)))) (declare (not safe)) - (cons __tmp215071 '())))) + (cons __tmp111444 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp215075 - __tmp215070)))) + (cons __tmp111448 + __tmp111443)))) (declare (not safe)) - (cons __tmp215079 __tmp215069))) - (__tmp214954 - (let ((__tmp214955 - (let ((__tmp215067 + (cons __tmp111452 __tmp111442))) + (__tmp111327 + (let ((__tmp111328 + (let ((__tmp111440 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'match))) - (__tmp214956 - (let ((__tmp215066 + (__tmp111329 + (let ((__tmp111439 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp214957 - (let ((__tmp214963 + (__tmp111330 + (let ((__tmp111336 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp215061 - (let ((__tmp215065 + (let ((__tmp111434 + (let ((__tmp111438 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp215062 - (let ((__tmp215064 + (__tmp111435 + (let ((__tmp111437 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e))) - (__tmp215063 + (__tmp111436 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp215064 __tmp215063)))) + (cons __tmp111437 __tmp111436)))) (declare (not safe)) - (cons __tmp215065 __tmp215062))) - (__tmp214964 - (let ((__tmp214965 - (let ((__tmp215060 + (cons __tmp111438 __tmp111435))) + (__tmp111337 + (let ((__tmp111338 + (let ((__tmp111433 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'ast-case))) - (__tmp214966 - (let ((__tmp215059 + (__tmp111339 + (let ((__tmp111432 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e))) - (__tmp214967 - (let ((__tmp215055 - (let ((__tmp215058 + (__tmp111340 + (let ((__tmp111428 + (let ((__tmp111431 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp215056 - (let ((__tmp215057 + (__tmp111429 + (let ((__tmp111430 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)))) (declare (not safe)) - (cons __tmp215057 '())))) + (cons __tmp111430 '())))) (declare (not safe)) - (cons __tmp215058 __tmp215056))) - (__tmp214968 - (let ((__tmp215035 - (let ((__tmp215051 - (let ((__tmp215054 + (cons __tmp111431 __tmp111429))) + (__tmp111341 + (let ((__tmp111408 + (let ((__tmp111424 + (let ((__tmp111427 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp215052 - (let ((__tmp215053 + (__tmp111425 + (let ((__tmp111426 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '_)))) (declare (not safe)) - (cons __tmp215053 '())))) + (cons __tmp111426 '())))) (declare (not safe)) - (cons __tmp215054 __tmp215052))) - (__tmp215036 - (let ((__tmp215037 - (let ((__tmp215050 + (cons __tmp111427 __tmp111425))) + (__tmp111409 + (let ((__tmp111410 + (let ((__tmp111423 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp215038 - (let ((__tmp215049 + (__tmp111411 + (let ((__tmp111422 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp215039 - (let ((__tmp215040 - (let ((__tmp215041 + (__tmp111412 + (let ((__tmp111413 + (let ((__tmp111414 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp215048 + (let ((__tmp111421 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp215042 - (let ((__tmp215044 - (let ((__tmp215047 + (__tmp111415 + (let ((__tmp111417 + (let ((__tmp111420 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp215045 - (let ((__tmp215046 + (__tmp111418 + (let ((__tmp111419 (let () (declare (not safe)) @@ -2208,462 +2195,459 @@ '#f 'e)))) (declare (not safe)) - (cons __tmp215046 '())))) + (cons __tmp111419 '())))) (declare (not safe)) - (cons __tmp215047 __tmp215045))) - (__tmp215043 + (cons __tmp111420 __tmp111418))) + (__tmp111416 (let () (declare (not safe)) - (cons _L197032_ '())))) + (cons _L97972_ '())))) (declare (not safe)) - (cons __tmp215044 __tmp215043)))) + (cons __tmp111417 __tmp111416)))) (declare (not safe)) - (cons __tmp215048 __tmp215042)))) + (cons __tmp111421 __tmp111415)))) (declare (not safe)) - (cons __tmp215041 '())))) + (cons __tmp111414 '())))) (declare (not safe)) - (cons _L197033_ __tmp215040)))) + (cons _L97973_ __tmp111413)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp215049 - __tmp215039)))) + (cons __tmp111422 + __tmp111412)))) (declare (not safe)) - (cons __tmp215050 __tmp215038)))) + (cons __tmp111423 __tmp111411)))) (declare (not safe)) - (cons __tmp215037 '())))) + (cons __tmp111410 '())))) (declare (not safe)) - (cons __tmp215051 __tmp215036))) - (__tmp214969 - (let ((__tmp215015 - (let ((__tmp215031 - (let ((__tmp215034 + (cons __tmp111424 __tmp111409))) + (__tmp111342 + (let ((__tmp111388 + (let ((__tmp111404 + (let ((__tmp111407 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp215032 - (let ((__tmp215033 + (__tmp111405 + (let ((__tmp111406 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '_)))) (declare (not safe)) - (cons __tmp215033 '())))) + (cons __tmp111406 '())))) (declare (not safe)) - (cons __tmp215034 __tmp215032))) - (__tmp215016 - (let ((__tmp215017 - (let ((__tmp215030 + (cons __tmp111407 __tmp111405))) + (__tmp111389 + (let ((__tmp111390 + (let ((__tmp111403 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp215018 - (let ((__tmp215029 + (__tmp111391 + (let ((__tmp111402 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp215019 - (let ((__tmp215020 - (let ((__tmp215021 - (let ((__tmp215028 + (__tmp111392 + (let ((__tmp111393 + (let ((__tmp111394 + (let ((__tmp111401 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp215022 - (let ((__tmp215024 - (let ((__tmp215027 + (__tmp111395 + (let ((__tmp111397 + (let ((__tmp111400 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp215025 - (let ((__tmp215026 + (__tmp111398 + (let ((__tmp111399 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e)))) (declare (not safe)) - (cons __tmp215026 '())))) + (cons __tmp111399 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp215027 - __tmp215025))) - (__tmp215023 + (cons __tmp111400 + __tmp111398))) + (__tmp111396 (let () (declare (not safe)) - (cons _L197032_ '())))) + (cons _L97972_ '())))) (declare (not safe)) - (cons __tmp215024 __tmp215023)))) + (cons __tmp111397 __tmp111396)))) (declare (not safe)) - (cons __tmp215028 __tmp215022)))) + (cons __tmp111401 __tmp111395)))) (declare (not safe)) - (cons __tmp215021 '())))) + (cons __tmp111394 '())))) (declare (not safe)) - (cons _L197033_ __tmp215020)))) + (cons _L97973_ __tmp111393)))) (declare (not safe)) - (cons __tmp215029 __tmp215019)))) + (cons __tmp111402 __tmp111392)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp215030 - __tmp215018)))) + (cons __tmp111403 + __tmp111391)))) (declare (not safe)) - (cons __tmp215017 '())))) + (cons __tmp111390 '())))) (declare (not safe)) - (cons __tmp215031 __tmp215016))) - (__tmp214970 - (let ((__tmp214971 - (let ((__tmp215014 + (cons __tmp111404 __tmp111389))) + (__tmp111343 + (let ((__tmp111344 + (let ((__tmp111387 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '_))) - (__tmp214972 - (let ((__tmp214973 - (let ((__tmp215013 + (__tmp111345 + (let ((__tmp111346 + (let ((__tmp111386 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp214974 - (let ((__tmp215000 - (let ((__tmp215012 + (__tmp111347 + (let ((__tmp111373 + (let ((__tmp111385 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tmp))) - (__tmp215001 - (let ((__tmp215002 - (let ((__tmp215011 + (__tmp111374 + (let ((__tmp111375 + (let ((__tmp111384 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-symbol))) - (__tmp215003 - (let ((__tmp215004 - (let ((__tmp215010 + (__tmp111376 + (let ((__tmp111377 + (let ((__tmp111383 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'gensym))) - (__tmp215005 - (let ((__tmp215006 - (let ((__tmp215009 + (__tmp111378 + (let ((__tmp111379 + (let ((__tmp111382 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp215007 - (let ((__tmp215008 + (__tmp111380 + (let ((__tmp111381 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '__tmp)))) (declare (not safe)) - (cons __tmp215008 '())))) + (cons __tmp111381 '())))) (declare (not safe)) - (cons __tmp215009 __tmp215007)))) + (cons __tmp111382 __tmp111380)))) (declare (not safe)) - (cons __tmp215006 '())))) + (cons __tmp111379 '())))) (declare (not safe)) - (cons __tmp215010 __tmp215005)))) + (cons __tmp111383 __tmp111378)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp215004 '())))) + (cons __tmp111377 '())))) (declare (not safe)) - (cons __tmp215011 __tmp215003)))) + (cons __tmp111384 __tmp111376)))) (declare (not safe)) - (cons __tmp215002 '())))) + (cons __tmp111375 '())))) (declare (not safe)) - (cons __tmp215012 __tmp215001))) - (__tmp214975 - (let ((__tmp214976 - (let ((__tmp214999 + (cons __tmp111385 __tmp111374))) + (__tmp111348 + (let ((__tmp111349 + (let ((__tmp111372 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp214977 - (let ((__tmp214998 + (__tmp111350 + (let ((__tmp111371 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp214978 - (let ((__tmp214985 - (let ((__tmp214997 + (__tmp111351 + (let ((__tmp111358 + (let ((__tmp111370 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp214986 - (let ((__tmp214988 - (let ((__tmp214996 + (__tmp111359 + (let ((__tmp111361 + (let ((__tmp111369 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp214989 - (let ((__tmp214995 + (__tmp111362 + (let ((__tmp111368 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tmp))) - (__tmp214990 - (let ((__tmp214991 - (let ((__tmp214994 + (__tmp111363 + (let ((__tmp111364 + (let ((__tmp111367 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp214992 - (let ((__tmp214993 + (__tmp111365 + (let ((__tmp111366 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e)))) (declare (not safe)) - (cons __tmp214993 '())))) + (cons __tmp111366 '())))) (declare (not safe)) - (cons __tmp214994 __tmp214992)))) + (cons __tmp111367 __tmp111365)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214991 '())))) + (cons __tmp111364 '())))) (declare (not safe)) - (cons __tmp214995 __tmp214990)))) + (cons __tmp111368 __tmp111363)))) (declare (not safe)) - (cons __tmp214996 __tmp214989))) - (__tmp214987 + (cons __tmp111369 __tmp111362))) + (__tmp111360 (let () (declare (not safe)) - (cons _L197033_ '())))) + (cons _L97973_ '())))) (declare (not safe)) - (cons __tmp214988 __tmp214987)))) + (cons __tmp111361 __tmp111360)))) (declare (not safe)) - (cons __tmp214997 __tmp214986))) - (__tmp214979 - (let ((__tmp214980 - (let ((__tmp214984 + (cons __tmp111370 __tmp111359))) + (__tmp111352 + (let ((__tmp111353 + (let ((__tmp111357 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp214981 - (let ((__tmp214983 + (__tmp111354 + (let ((__tmp111356 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tmp))) - (__tmp214982 + (__tmp111355 (let () (declare (not safe)) - (cons _L197032_ '())))) + (cons _L97972_ '())))) (declare (not safe)) - (cons __tmp214983 __tmp214982)))) + (cons __tmp111356 __tmp111355)))) (declare (not safe)) - (cons __tmp214984 __tmp214981)))) + (cons __tmp111357 __tmp111354)))) (declare (not safe)) - (cons __tmp214980 '())))) + (cons __tmp111353 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214985 - __tmp214979)))) + (cons __tmp111358 + __tmp111352)))) (declare (not safe)) - (cons __tmp214998 __tmp214978)))) + (cons __tmp111371 __tmp111351)))) (declare (not safe)) - (cons __tmp214999 __tmp214977)))) + (cons __tmp111372 __tmp111350)))) (declare (not safe)) - (cons __tmp214976 '())))) + (cons __tmp111349 '())))) (declare (not safe)) - (cons __tmp215000 __tmp214975)))) + (cons __tmp111373 __tmp111348)))) (declare (not safe)) - (cons __tmp215013 __tmp214974)))) + (cons __tmp111386 __tmp111347)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp214973 '())))) + (cons __tmp111346 '())))) (declare (not safe)) - (cons __tmp215014 __tmp214972)))) + (cons __tmp111387 __tmp111345)))) (declare (not safe)) - (cons __tmp214971 '())))) + (cons __tmp111344 '())))) (declare (not safe)) - (cons __tmp215015 __tmp214970)))) + (cons __tmp111388 __tmp111343)))) (declare (not safe)) - (cons __tmp215035 __tmp214969)))) + (cons __tmp111408 __tmp111342)))) (declare (not safe)) - (cons __tmp215055 __tmp214968)))) + (cons __tmp111428 __tmp111341)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp215059 - __tmp214967)))) + (cons __tmp111432 + __tmp111340)))) (declare (not safe)) - (cons __tmp215060 __tmp214966)))) + (cons __tmp111433 __tmp111339)))) (declare (not safe)) - (cons __tmp214965 '())))) + (cons __tmp111338 '())))) (declare (not safe)) - (cons __tmp215061 __tmp214964))) - (__tmp214958 - (let ((__tmp214959 - (let ((__tmp214962 + (cons __tmp111434 __tmp111337))) + (__tmp111331 + (let ((__tmp111332 + (let ((__tmp111335 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else))) - (__tmp214960 - (let ((__tmp214961 - (lambda (_g197058197061_ - _g197059197064_) + (__tmp111333 + (let ((__tmp111334 + (lambda (_g9799898001_ + _g9799998004_) (let () (declare (not safe)) - (cons _g197058197061_ - _g197059197064_))))) + (cons _g9799898001_ + _g9799998004_))))) (declare (not safe)) - (foldr1 __tmp214961 '() _L197029_)))) + (foldr1 __tmp111334 '() _L97969_)))) (declare (not safe)) - (cons __tmp214962 __tmp214960)))) + (cons __tmp111335 __tmp111333)))) (declare (not safe)) - (cons __tmp214959 '())))) + (cons __tmp111332 '())))) (declare (not safe)) - (cons __tmp214963 __tmp214958)))) + (cons __tmp111336 __tmp111331)))) (declare (not safe)) - (cons __tmp215066 __tmp214957)))) + (cons __tmp111439 __tmp111330)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp215067 - __tmp214956)))) + (cons __tmp111440 + __tmp111329)))) (declare (not safe)) - (cons __tmp214955 '())))) + (cons __tmp111328 '())))) (declare (not safe)) - (cons __tmp215068 __tmp214954)))) + (cons __tmp111441 __tmp111327)))) (declare (not safe)) - (cons __tmp215082 __tmp214953)))) + (cons __tmp111455 __tmp111326)))) (declare (not safe)) - (cons __tmp215083 __tmp214952))) - _body196936197025_ - _hd196926196993_ - _hd196923196983_ - _hd196920196973_)))))) + (cons __tmp111456 __tmp111325))) + _body9787697965_ + _hd9786697933_ + _hd9786397923_ + _hd9786097913_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop196931197005_ - _target196928196999_ + (_loop9787197945_ + _target9786897939_ '())) - (_g196907196942_ _g196908196946_))))) - (_g196907196942_ _g196908196946_)) - (_g196907196942_ _g196908196946_)))) - (_g196907196942_ _g196908196946_)))) + (_g9784797882_ _g9784897886_))))) + (_g9784797882_ _g9784897886_)) + (_g9784797882_ _g9784897886_)))) + (_g9784797882_ _g9784897886_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g196907196942_ - _g196908196946_)))) - (_g196907196942_ _g196908196946_)))) - (_g196907196942_ _g196908196946_)))) - (_g196907196942_ _g196908196946_))))) - (_g196906197067_ _$stx196903_)))) + (_g9784797882_ _g9784897886_)))) + (_g9784797882_ _g9784897886_)))) + (_g9784797882_ _g9784897886_)))) + (_g9784797882_ _g9784897886_))))) + (_g9784698007_ _$stx97843_)))) (define |gxc[:0:]#with-inline-unsafe-primitives| - (lambda (_$stx197072_) - (let* ((_g197076197094_ - (lambda (_g197077197090_) + (lambda (_$stx98012_) + (let* ((_g9801698034_ + (lambda (_g9801798030_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g197077197090_)))) - (_g197075197149_ - (lambda (_g197077197098_) + _g9801798030_)))) + (_g9801598089_ + (lambda (_g9801798038_) (if (let () (declare (not safe)) - (gx#stx-pair? _g197077197098_)) - (let ((_e197082197101_ + (gx#stx-pair? _g9801798038_)) + (let ((_e9802298041_ (let () (declare (not safe)) - (gx#syntax-e _g197077197098_)))) - (let ((_hd197081197105_ + (gx#syntax-e _g9801798038_)))) + (let ((_hd9802198045_ (let () (declare (not safe)) - (##car _e197082197101_))) - (_tl197080197108_ + (##car _e9802298041_))) + (_tl9802098048_ (let () (declare (not safe)) - (##cdr _e197082197101_)))) + (##cdr _e9802298041_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197080197108_)) - (let ((_e197085197111_ + (gx#stx-pair? _tl9802098048_)) + (let ((_e9802598051_ (let () (declare (not safe)) - (gx#syntax-e _tl197080197108_)))) - (let ((_hd197084197115_ + (gx#syntax-e _tl9802098048_)))) + (let ((_hd9802498055_ (let () (declare (not safe)) - (##car _e197085197111_))) - (_tl197083197118_ + (##car _e9802598051_))) + (_tl9802398058_ (let () (declare (not safe)) - (##cdr _e197085197111_)))) + (##cdr _e9802598051_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197083197118_)) - (let ((_e197088197121_ + (gx#stx-pair? _tl9802398058_)) + (let ((_e9802898061_ (let () (declare (not safe)) - (gx#syntax-e - _tl197083197118_)))) - (let ((_hd197087197125_ + (gx#syntax-e _tl9802398058_)))) + (let ((_hd9802798065_ (let () (declare (not safe)) - (##car _e197088197121_))) - (_tl197086197128_ + (##car _e9802898061_))) + (_tl9802698068_ (let () (declare (not safe)) - (##cdr _e197088197121_)))) + (##cdr _e9802898061_)))) (if (let () (declare (not safe)) - (gx#stx-null? - _tl197086197128_)) - ((lambda (_L197131_ _L197133_) - (let ((__tmp215099 + (gx#stx-null? _tl9802698068_)) + ((lambda (_L98071_ _L98073_) + (let ((__tmp111472 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cond-expand))) - (__tmp215084 - (let ((__tmp215096 - (let ((__tmp215098 + (__tmp111457 + (let ((__tmp111469 + (let ((__tmp111471 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'gambit-inline-unsafe-primitives))) - (__tmp215097 + (__tmp111470 (let () (declare (not safe)) - (cons _L197133_ '())))) + (cons _L98073_ '())))) (declare (not safe)) - (cons __tmp215098 __tmp215097))) - (__tmp215085 - (let ((__tmp215086 - (let ((__tmp215095 + (cons __tmp111471 __tmp111470))) + (__tmp111458 + (let ((__tmp111459 + (let ((__tmp111468 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else))) - (__tmp215087 - (let ((__tmp215088 - (let ((__tmp215094 + (__tmp111460 + (let ((__tmp111461 + (let ((__tmp111467 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp215089 - (let ((__tmp215092 - (let ((__tmp215093 + (__tmp111462 + (let ((__tmp111465 + (let ((__tmp111466 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -2671,40 +2655,39 @@ '#f 'current-compile-decls-unsafe?)))) (declare (not safe)) - (cons __tmp215093 '()))) - (__tmp215090 - (let ((__tmp215091 - (let () (declare (not safe)) (cons _L197131_ '())))) + (cons __tmp111466 '()))) + (__tmp111463 + (let ((__tmp111464 + (let () (declare (not safe)) (cons _L98071_ '())))) (declare (not safe)) - (cons _L197133_ __tmp215091)))) + (cons _L98073_ __tmp111464)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp215092 - __tmp215090)))) + (cons __tmp111465 + __tmp111463)))) (declare (not safe)) - (cons __tmp215094 __tmp215089)))) + (cons __tmp111467 __tmp111462)))) (declare (not safe)) - (cons __tmp215088 '())))) + (cons __tmp111461 '())))) (declare (not safe)) - (cons __tmp215095 __tmp215087)))) + (cons __tmp111468 __tmp111460)))) (declare (not safe)) - (cons __tmp215086 '())))) + (cons __tmp111459 '())))) (declare (not safe)) - (cons __tmp215096 __tmp215085)))) + (cons __tmp111469 __tmp111458)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp215099 - __tmp215084))) - _hd197087197125_ - _hd197084197115_) - (_g197076197094_ - _g197077197098_)))) - (_g197076197094_ _g197077197098_)))) - (_g197076197094_ _g197077197098_)))) - (_g197076197094_ _g197077197098_))))) - (_g197075197149_ _$stx197072_)))) + (cons __tmp111472 + __tmp111457))) + _hd9802798065_ + _hd9802498055_) + (_g9801698034_ _g9801798038_)))) + (_g9801698034_ _g9801798038_)))) + (_g9801698034_ _g9801798038_)))) + (_g9801698034_ _g9801798038_))))) + (_g9801598089_ _$stx98012_)))) (define |gxc[:0:]#meta-state| - (let ((__obj213860 + (let ((__obj110232 (let () (declare (not safe)) (##structure @@ -2727,7 +2710,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj213860 + __obj110232 'gxc#meta-state::t '1 gerbil/core$$#class-type-info::t @@ -2735,7 +2718,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj213860 + __obj110232 'meta-state '2 gerbil/core$$#class-type-info::t @@ -2743,7 +2726,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj213860 + __obj110232 '(src n open blocks) '4 gerbil/core$$#class-type-info::t @@ -2751,7 +2734,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj213860 + __obj110232 '() '3 gerbil/core$$#class-type-info::t @@ -2759,7 +2742,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj213860 + __obj110232 '#t '5 gerbil/core$$#class-type-info::t @@ -2767,7 +2750,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj213860 + __obj110232 '#f '6 gerbil/core$$#class-type-info::t @@ -2775,7 +2758,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj213860 + __obj110232 '#f '7 gerbil/core$$#class-type-info::t @@ -2783,182 +2766,182 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj213860 + __obj110232 ':init! '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp215100 |gxc[1]#_g215101_|)) + (let ((__tmp111473 |gxc[1]#_g111474_|)) (declare (not safe)) (##unchecked-structure-set! - __obj213860 - __tmp215100 + __obj110232 + __tmp111473 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp215102 |gxc[1]#_g215103_|)) + (let ((__tmp111475 |gxc[1]#_g111476_|)) (declare (not safe)) (##unchecked-structure-set! - __obj213860 - __tmp215102 + __obj110232 + __tmp111475 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp215104 |gxc[1]#_g215105_|)) + (let ((__tmp111477 |gxc[1]#_g111478_|)) (declare (not safe)) (##unchecked-structure-set! - __obj213860 - __tmp215104 + __obj110232 + __tmp111477 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp215106 - (let ((__tmp215119 - (let ((__tmp215120 |gxc[1]#_g215121_|)) + (let ((__tmp111479 + (let ((__tmp111492 + (let ((__tmp111493 |gxc[1]#_g111494_|)) (declare (not safe)) - (cons 'src __tmp215120))) - (__tmp215107 - (let ((__tmp215116 - (let ((__tmp215117 |gxc[1]#_g215118_|)) + (cons 'src __tmp111493))) + (__tmp111480 + (let ((__tmp111489 + (let ((__tmp111490 |gxc[1]#_g111491_|)) (declare (not safe)) - (cons 'n __tmp215117))) - (__tmp215108 - (let ((__tmp215113 - (let ((__tmp215114 |gxc[1]#_g215115_|)) + (cons 'n __tmp111490))) + (__tmp111481 + (let ((__tmp111486 + (let ((__tmp111487 |gxc[1]#_g111488_|)) (declare (not safe)) - (cons 'open __tmp215114))) - (__tmp215109 - (let ((__tmp215110 - (let ((__tmp215111 - |gxc[1]#_g215112_|)) + (cons 'open __tmp111487))) + (__tmp111482 + (let ((__tmp111483 + (let ((__tmp111484 + |gxc[1]#_g111485_|)) (declare (not safe)) - (cons 'blocks __tmp215111)))) + (cons 'blocks __tmp111484)))) (declare (not safe)) - (cons __tmp215110 '())))) + (cons __tmp111483 '())))) (declare (not safe)) - (cons __tmp215113 __tmp215109)))) + (cons __tmp111486 __tmp111482)))) (declare (not safe)) - (cons __tmp215116 __tmp215108)))) + (cons __tmp111489 __tmp111481)))) (declare (not safe)) - (cons __tmp215119 __tmp215107)))) + (cons __tmp111492 __tmp111480)))) (declare (not safe)) (##unchecked-structure-set! - __obj213860 - __tmp215106 + __obj110232 + __tmp111479 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp215122 - (let ((__tmp215135 - (let ((__tmp215136 |gxc[1]#_g215137_|)) + (let ((__tmp111495 + (let ((__tmp111508 + (let ((__tmp111509 |gxc[1]#_g111510_|)) (declare (not safe)) - (cons 'src __tmp215136))) - (__tmp215123 - (let ((__tmp215132 - (let ((__tmp215133 |gxc[1]#_g215134_|)) + (cons 'src __tmp111509))) + (__tmp111496 + (let ((__tmp111505 + (let ((__tmp111506 |gxc[1]#_g111507_|)) (declare (not safe)) - (cons 'n __tmp215133))) - (__tmp215124 - (let ((__tmp215129 - (let ((__tmp215130 |gxc[1]#_g215131_|)) + (cons 'n __tmp111506))) + (__tmp111497 + (let ((__tmp111502 + (let ((__tmp111503 |gxc[1]#_g111504_|)) (declare (not safe)) - (cons 'open __tmp215130))) - (__tmp215125 - (let ((__tmp215126 - (let ((__tmp215127 - |gxc[1]#_g215128_|)) + (cons 'open __tmp111503))) + (__tmp111498 + (let ((__tmp111499 + (let ((__tmp111500 + |gxc[1]#_g111501_|)) (declare (not safe)) - (cons 'blocks __tmp215127)))) + (cons 'blocks __tmp111500)))) (declare (not safe)) - (cons __tmp215126 '())))) + (cons __tmp111499 '())))) (declare (not safe)) - (cons __tmp215129 __tmp215125)))) + (cons __tmp111502 __tmp111498)))) (declare (not safe)) - (cons __tmp215132 __tmp215124)))) + (cons __tmp111505 __tmp111497)))) (declare (not safe)) - (cons __tmp215135 __tmp215123)))) + (cons __tmp111508 __tmp111496)))) (declare (not safe)) (##unchecked-structure-set! - __obj213860 - __tmp215122 + __obj110232 + __tmp111495 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp215138 - (let ((__tmp215151 - (let ((__tmp215152 |gxc[1]#_g215153_|)) + (let ((__tmp111511 + (let ((__tmp111524 + (let ((__tmp111525 |gxc[1]#_g111526_|)) (declare (not safe)) - (cons 'src __tmp215152))) - (__tmp215139 - (let ((__tmp215148 - (let ((__tmp215149 |gxc[1]#_g215150_|)) + (cons 'src __tmp111525))) + (__tmp111512 + (let ((__tmp111521 + (let ((__tmp111522 |gxc[1]#_g111523_|)) (declare (not safe)) - (cons 'n __tmp215149))) - (__tmp215140 - (let ((__tmp215145 - (let ((__tmp215146 |gxc[1]#_g215147_|)) + (cons 'n __tmp111522))) + (__tmp111513 + (let ((__tmp111518 + (let ((__tmp111519 |gxc[1]#_g111520_|)) (declare (not safe)) - (cons 'open __tmp215146))) - (__tmp215141 - (let ((__tmp215142 - (let ((__tmp215143 - |gxc[1]#_g215144_|)) + (cons 'open __tmp111519))) + (__tmp111514 + (let ((__tmp111515 + (let ((__tmp111516 + |gxc[1]#_g111517_|)) (declare (not safe)) - (cons 'blocks __tmp215143)))) + (cons 'blocks __tmp111516)))) (declare (not safe)) - (cons __tmp215142 '())))) + (cons __tmp111515 '())))) (declare (not safe)) - (cons __tmp215145 __tmp215141)))) + (cons __tmp111518 __tmp111514)))) (declare (not safe)) - (cons __tmp215148 __tmp215140)))) + (cons __tmp111521 __tmp111513)))) (declare (not safe)) - (cons __tmp215151 __tmp215139)))) + (cons __tmp111524 __tmp111512)))) (declare (not safe)) (##unchecked-structure-set! - __obj213860 - __tmp215138 + __obj110232 + __tmp111511 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp215154 - (let ((__tmp215167 - (let ((__tmp215168 |gxc[1]#_g215169_|)) + (let ((__tmp111527 + (let ((__tmp111540 + (let ((__tmp111541 |gxc[1]#_g111542_|)) (declare (not safe)) - (cons 'src __tmp215168))) - (__tmp215155 - (let ((__tmp215164 - (let ((__tmp215165 |gxc[1]#_g215166_|)) + (cons 'src __tmp111541))) + (__tmp111528 + (let ((__tmp111537 + (let ((__tmp111538 |gxc[1]#_g111539_|)) (declare (not safe)) - (cons 'n __tmp215165))) - (__tmp215156 - (let ((__tmp215161 - (let ((__tmp215162 |gxc[1]#_g215163_|)) + (cons 'n __tmp111538))) + (__tmp111529 + (let ((__tmp111534 + (let ((__tmp111535 |gxc[1]#_g111536_|)) (declare (not safe)) - (cons 'open __tmp215162))) - (__tmp215157 - (let ((__tmp215158 - (let ((__tmp215159 - |gxc[1]#_g215160_|)) + (cons 'open __tmp111535))) + (__tmp111530 + (let ((__tmp111531 + (let ((__tmp111532 + |gxc[1]#_g111533_|)) (declare (not safe)) - (cons 'blocks __tmp215159)))) + (cons 'blocks __tmp111532)))) (declare (not safe)) - (cons __tmp215158 '())))) + (cons __tmp111531 '())))) (declare (not safe)) - (cons __tmp215161 __tmp215157)))) + (cons __tmp111534 __tmp111530)))) (declare (not safe)) - (cons __tmp215164 __tmp215156)))) + (cons __tmp111537 __tmp111529)))) (declare (not safe)) - (cons __tmp215167 __tmp215155)))) + (cons __tmp111540 __tmp111528)))) (declare (not safe)) (##unchecked-structure-set! - __obj213860 - __tmp215154 + __obj110232 + __tmp111527 '15 gerbil/core$$#class-type-info::t '#f)) - __obj213860)) + __obj110232)) (define |gxc[:0:]#meta-state-block| - (let ((__obj213861 + (let ((__obj110233 (let () (declare (not safe)) (##structure @@ -2981,7 +2964,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj213861 + __obj110233 'gxc#meta-state-block::t '1 gerbil/core$$#class-type-info::t @@ -2989,7 +2972,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj213861 + __obj110233 'meta-state-block '2 gerbil/core$$#class-type-info::t @@ -2997,7 +2980,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj213861 + __obj110233 '(ctx phi n code) '4 gerbil/core$$#class-type-info::t @@ -3005,7 +2988,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj213861 + __obj110233 '() '3 gerbil/core$$#class-type-info::t @@ -3013,7 +2996,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj213861 + __obj110233 '#t '5 gerbil/core$$#class-type-info::t @@ -3021,7 +3004,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj213861 + __obj110233 '#f '6 gerbil/core$$#class-type-info::t @@ -3029,7 +3012,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj213861 + __obj110233 '#f '7 gerbil/core$$#class-type-info::t @@ -3037,177 +3020,177 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj213861 + __obj110233 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp215170 |gxc[1]#_g215171_|)) + (let ((__tmp111543 |gxc[1]#_g111544_|)) (declare (not safe)) (##unchecked-structure-set! - __obj213861 - __tmp215170 + __obj110233 + __tmp111543 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp215172 |gxc[1]#_g215173_|)) + (let ((__tmp111545 |gxc[1]#_g111546_|)) (declare (not safe)) (##unchecked-structure-set! - __obj213861 - __tmp215172 + __obj110233 + __tmp111545 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp215174 |gxc[1]#_g215175_|)) + (let ((__tmp111547 |gxc[1]#_g111548_|)) (declare (not safe)) (##unchecked-structure-set! - __obj213861 - __tmp215174 + __obj110233 + __tmp111547 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp215176 - (let ((__tmp215189 - (let ((__tmp215190 |gxc[1]#_g215191_|)) + (let ((__tmp111549 + (let ((__tmp111562 + (let ((__tmp111563 |gxc[1]#_g111564_|)) (declare (not safe)) - (cons 'ctx __tmp215190))) - (__tmp215177 - (let ((__tmp215186 - (let ((__tmp215187 |gxc[1]#_g215188_|)) + (cons 'ctx __tmp111563))) + (__tmp111550 + (let ((__tmp111559 + (let ((__tmp111560 |gxc[1]#_g111561_|)) (declare (not safe)) - (cons 'phi __tmp215187))) - (__tmp215178 - (let ((__tmp215183 - (let ((__tmp215184 |gxc[1]#_g215185_|)) + (cons 'phi __tmp111560))) + (__tmp111551 + (let ((__tmp111556 + (let ((__tmp111557 |gxc[1]#_g111558_|)) (declare (not safe)) - (cons 'n __tmp215184))) - (__tmp215179 - (let ((__tmp215180 - (let ((__tmp215181 - |gxc[1]#_g215182_|)) + (cons 'n __tmp111557))) + (__tmp111552 + (let ((__tmp111553 + (let ((__tmp111554 + |gxc[1]#_g111555_|)) (declare (not safe)) - (cons 'code __tmp215181)))) + (cons 'code __tmp111554)))) (declare (not safe)) - (cons __tmp215180 '())))) + (cons __tmp111553 '())))) (declare (not safe)) - (cons __tmp215183 __tmp215179)))) + (cons __tmp111556 __tmp111552)))) (declare (not safe)) - (cons __tmp215186 __tmp215178)))) + (cons __tmp111559 __tmp111551)))) (declare (not safe)) - (cons __tmp215189 __tmp215177)))) + (cons __tmp111562 __tmp111550)))) (declare (not safe)) (##unchecked-structure-set! - __obj213861 - __tmp215176 + __obj110233 + __tmp111549 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp215192 - (let ((__tmp215205 - (let ((__tmp215206 |gxc[1]#_g215207_|)) + (let ((__tmp111565 + (let ((__tmp111578 + (let ((__tmp111579 |gxc[1]#_g111580_|)) (declare (not safe)) - (cons 'ctx __tmp215206))) - (__tmp215193 - (let ((__tmp215202 - (let ((__tmp215203 |gxc[1]#_g215204_|)) + (cons 'ctx __tmp111579))) + (__tmp111566 + (let ((__tmp111575 + (let ((__tmp111576 |gxc[1]#_g111577_|)) (declare (not safe)) - (cons 'phi __tmp215203))) - (__tmp215194 - (let ((__tmp215199 - (let ((__tmp215200 |gxc[1]#_g215201_|)) + (cons 'phi __tmp111576))) + (__tmp111567 + (let ((__tmp111572 + (let ((__tmp111573 |gxc[1]#_g111574_|)) (declare (not safe)) - (cons 'n __tmp215200))) - (__tmp215195 - (let ((__tmp215196 - (let ((__tmp215197 - |gxc[1]#_g215198_|)) + (cons 'n __tmp111573))) + (__tmp111568 + (let ((__tmp111569 + (let ((__tmp111570 + |gxc[1]#_g111571_|)) (declare (not safe)) - (cons 'code __tmp215197)))) + (cons 'code __tmp111570)))) (declare (not safe)) - (cons __tmp215196 '())))) + (cons __tmp111569 '())))) (declare (not safe)) - (cons __tmp215199 __tmp215195)))) + (cons __tmp111572 __tmp111568)))) (declare (not safe)) - (cons __tmp215202 __tmp215194)))) + (cons __tmp111575 __tmp111567)))) (declare (not safe)) - (cons __tmp215205 __tmp215193)))) + (cons __tmp111578 __tmp111566)))) (declare (not safe)) (##unchecked-structure-set! - __obj213861 - __tmp215192 + __obj110233 + __tmp111565 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp215208 - (let ((__tmp215221 - (let ((__tmp215222 |gxc[1]#_g215223_|)) + (let ((__tmp111581 + (let ((__tmp111594 + (let ((__tmp111595 |gxc[1]#_g111596_|)) (declare (not safe)) - (cons 'ctx __tmp215222))) - (__tmp215209 - (let ((__tmp215218 - (let ((__tmp215219 |gxc[1]#_g215220_|)) + (cons 'ctx __tmp111595))) + (__tmp111582 + (let ((__tmp111591 + (let ((__tmp111592 |gxc[1]#_g111593_|)) (declare (not safe)) - (cons 'phi __tmp215219))) - (__tmp215210 - (let ((__tmp215215 - (let ((__tmp215216 |gxc[1]#_g215217_|)) + (cons 'phi __tmp111592))) + (__tmp111583 + (let ((__tmp111588 + (let ((__tmp111589 |gxc[1]#_g111590_|)) (declare (not safe)) - (cons 'n __tmp215216))) - (__tmp215211 - (let ((__tmp215212 - (let ((__tmp215213 - |gxc[1]#_g215214_|)) + (cons 'n __tmp111589))) + (__tmp111584 + (let ((__tmp111585 + (let ((__tmp111586 + |gxc[1]#_g111587_|)) (declare (not safe)) - (cons 'code __tmp215213)))) + (cons 'code __tmp111586)))) (declare (not safe)) - (cons __tmp215212 '())))) + (cons __tmp111585 '())))) (declare (not safe)) - (cons __tmp215215 __tmp215211)))) + (cons __tmp111588 __tmp111584)))) (declare (not safe)) - (cons __tmp215218 __tmp215210)))) + (cons __tmp111591 __tmp111583)))) (declare (not safe)) - (cons __tmp215221 __tmp215209)))) + (cons __tmp111594 __tmp111582)))) (declare (not safe)) (##unchecked-structure-set! - __obj213861 - __tmp215208 + __obj110233 + __tmp111581 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp215224 - (let ((__tmp215237 - (let ((__tmp215238 |gxc[1]#_g215239_|)) + (let ((__tmp111597 + (let ((__tmp111610 + (let ((__tmp111611 |gxc[1]#_g111612_|)) (declare (not safe)) - (cons 'ctx __tmp215238))) - (__tmp215225 - (let ((__tmp215234 - (let ((__tmp215235 |gxc[1]#_g215236_|)) + (cons 'ctx __tmp111611))) + (__tmp111598 + (let ((__tmp111607 + (let ((__tmp111608 |gxc[1]#_g111609_|)) (declare (not safe)) - (cons 'phi __tmp215235))) - (__tmp215226 - (let ((__tmp215231 - (let ((__tmp215232 |gxc[1]#_g215233_|)) + (cons 'phi __tmp111608))) + (__tmp111599 + (let ((__tmp111604 + (let ((__tmp111605 |gxc[1]#_g111606_|)) (declare (not safe)) - (cons 'n __tmp215232))) - (__tmp215227 - (let ((__tmp215228 - (let ((__tmp215229 - |gxc[1]#_g215230_|)) + (cons 'n __tmp111605))) + (__tmp111600 + (let ((__tmp111601 + (let ((__tmp111602 + |gxc[1]#_g111603_|)) (declare (not safe)) - (cons 'code __tmp215229)))) + (cons 'code __tmp111602)))) (declare (not safe)) - (cons __tmp215228 '())))) + (cons __tmp111601 '())))) (declare (not safe)) - (cons __tmp215231 __tmp215227)))) + (cons __tmp111604 __tmp111600)))) (declare (not safe)) - (cons __tmp215234 __tmp215226)))) + (cons __tmp111607 __tmp111599)))) (declare (not safe)) - (cons __tmp215237 __tmp215225)))) + (cons __tmp111610 __tmp111598)))) (declare (not safe)) (##unchecked-structure-set! - __obj213861 - __tmp215224 + __obj110233 + __tmp111597 '15 gerbil/core$$#class-type-info::t '#f)) - __obj213861)))) + __obj110233)))) diff --git a/src/bootstrap/gerbil/compiler/driver.ssxi.ss b/src/bootstrap/gerbil/compiler/driver.ssxi.ss index 94693b17e..bd30b40a8 100644 --- a/src/bootstrap/gerbil/compiler/driver.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/driver.ssxi.ss @@ -62,11 +62,7 @@ package: gerbil/compiler (declare-type gxc#compile-exe-output-file (@lambda 2 #f)) (declare-type gxc#static-module-name (@lambda 1 #f)) (declare-type gxc#invoke__% (@lambda 5 #f)) - (declare-type - gxc#invoke__@ - (@kw-lambda-dispatch - (stdout-redirection: stderr-redirection:) - gxc#invoke__%)) + (declare-type gxc#invoke__@ (@lambda (1) #f)) (declare-type gxc#invoke (@kw-lambda (stderr-redirection: stdout-redirection:) gxc#invoke__@)) diff --git a/src/bootstrap/gerbil/compiler/driver__0.scm b/src/bootstrap/gerbil/compiler/driver__0.scm index be435e939..10bbd9100 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 1708102809) + (define gerbil/compiler/driver::timestamp 1708370118) (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 (_path293121_ _fun293122_) + (lambda (_path157528_ _fun157529_) (with-output-to-file - (let ((__tmp297783 + (let ((__tmp157622 (let () (declare (not safe)) - (cons _path293121_ gxc#scheme-file-settings)))) + (cons _path157528_ gxc#scheme-file-settings)))) (declare (not safe)) - (cons 'path: __tmp297783)) - _fun293122_))) + (cons 'path: __tmp157622)) + _fun157529_))) (define gxc#+gerbil-gsc+ '#f) (define gxc#gerbil-gsc (lambda () @@ -47,504 +47,521 @@ (set! gxc#+gerbil-ar+ (getenv '"GERBIL_AR" gxc#default-gerbil-ar))) gxc#+gerbil-ar+)) (define gxc#gerbil-rpath - (lambda (_gerbil-libdir293116_) - (string-append '"-Wl,-rpath=" _gerbil-libdir293116_))) + (lambda (_gerbil-libdir157523_) + (string-append '"-Wl,-rpath=" _gerbil-libdir157523_))) (define gxc#gerbil-runtime-modules '("gerbil/runtime/gambit" "gerbil/runtime/util" - "gerbil/runtime/system" - "gerbil/runtime/loader" + "gerbil/runtime/table" "gerbil/runtime/control" + "gerbil/runtime/system" "gerbil/runtime/c3" "gerbil/runtime/mop" "gerbil/runtime/error" + "gerbil/runtime/interface" + "gerbil/runtime/hash" "gerbil/runtime/thread" "gerbil/runtime/syntax" "gerbil/runtime/eval" "gerbil/runtime/repl" + "gerbil/runtime/loader" "gerbil/runtime/init" "gerbil/runtime")) (define gxc#delete-directory* - (lambda (_dir293114_) (delete-file-or-directory _dir293114_ '#t))) + (lambda (_dir157521_) (delete-file-or-directory _dir157521_ '#t))) (define gxc#compile-module__% - (lambda (_srcpath293088_ _opts293089_) - (if (let () (declare (not safe)) (string? _srcpath293088_)) + (lambda (_srcpath157495_ _opts157496_) + (if (let () (declare (not safe)) (string? _srcpath157495_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _srcpath293088_))) - (let ((_outdir293091_ - (let () (declare (not safe)) (pgetq 'output-dir: _opts293089_))) - (_invoke-gsc?293092_ - (let () (declare (not safe)) (pgetq 'invoke-gsc: _opts293089_))) - (_gsc-options293093_ + _srcpath157495_))) + (let ((_outdir157498_ + (let () + (declare (not safe)) + (pgetq__0 'output-dir: _opts157496_))) + (_invoke-gsc?157499_ + (let () + (declare (not safe)) + (pgetq__0 'invoke-gsc: _opts157496_))) + (_gsc-options157500_ + (let () + (declare (not safe)) + (pgetq__0 'gsc-options: _opts157496_))) + (_keep-scm?157501_ + (let () + (declare (not safe)) + (pgetq__0 'keep-scm: _opts157496_))) + (_verbosity157502_ + (let () (declare (not safe)) (pgetq__0 'verbose: _opts157496_))) + (_optimize157503_ (let () (declare (not safe)) - (pgetq 'gsc-options: _opts293089_))) - (_keep-scm?293094_ - (let () (declare (not safe)) (pgetq 'keep-scm: _opts293089_))) - (_verbosity293095_ - (let () (declare (not safe)) (pgetq 'verbose: _opts293089_))) - (_optimize293096_ - (let () (declare (not safe)) (pgetq 'optimize: _opts293089_))) - (_debug293097_ - (let () (declare (not safe)) (pgetq 'debug: _opts293089_))) - (_gen-ssxi293098_ + (pgetq__0 'optimize: _opts157496_))) + (_debug157504_ + (let () (declare (not safe)) (pgetq__0 'debug: _opts157496_))) + (_gen-ssxi157505_ (let () (declare (not safe)) - (pgetq 'generate-ssxi: _opts293089_)))) - (if _outdir293091_ - (let ((__tmp297784 + (pgetq__0 'generate-ssxi: _opts157496_)))) + (if _outdir157498_ + (let ((__tmp157623 (lambda () (let () (declare (not safe)) - (create-directory* _outdir293091_))))) + (create-directory*__0 _outdir157498_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp297784)) + (with-lock gxc#+driver-mutex+ __tmp157623)) '#!void) - (if _optimize293096_ - (let ((__tmp297785 + (if _optimize157503_ + (let ((__tmp157624 (lambda () (let () (declare (not safe)) (gxc#optimizer-info-init!))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp297785)) + (with-lock gxc#+driver-mutex+ __tmp157624)) '#!void) - (let ((__tmp297789 + (let ((__tmp157628 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile " _srcpath293088_)) - (let ((__tmp297790 - (let ((__tmp297791 + (gxc#verbose '"compile " _srcpath157495_)) + (let ((__tmp157629 + (let ((__tmp157630 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _srcpath293088_))))) + (gx#import-module__0 _srcpath157495_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp297791)))) + (with-lock gxc#+driver-mutex+ __tmp157630)))) (declare (not safe)) - (gxc#compile-top-module __tmp297790)))) - (__tmp297788 + (gxc#compile-top-module __tmp157629)))) + (__tmp157627 (let () (declare (not safe)) (gxc#compile-timestamp))) - (__tmp297786 - (let ((__tmp297787 + (__tmp157625 + (let ((__tmp157626 (let () (declare (not safe)) - (cons _srcpath293088_ '())))) + (cons _srcpath157495_ '())))) (declare (not safe)) - (cons 'compile-module __tmp297787)))) + (cons 'compile-module __tmp157626)))) (declare (not safe)) (call-with-parameters - __tmp297789 + __tmp157628 gxc#current-compile-output-dir - _outdir293091_ + _outdir157498_ gxc#current-compile-invoke-gsc - _invoke-gsc?293092_ + _invoke-gsc?157499_ gxc#current-compile-gsc-options - _gsc-options293093_ + _gsc-options157500_ gxc#current-compile-keep-scm - _keep-scm?293094_ + _keep-scm?157501_ gxc#current-compile-verbose - _verbosity293095_ + _verbosity157502_ gxc#current-compile-optimize - _optimize293096_ + _optimize157503_ gxc#current-compile-debug - _debug293097_ + _debug157504_ gxc#current-compile-generate-ssxi - _gen-ssxi293098_ + _gen-ssxi157505_ gxc#current-compile-timestamp - __tmp297788 + __tmp157627 gxc#current-compile-context - __tmp297786 + __tmp157625 gx#current-expander-compiling? '#t))))) (define gxc#compile-module__0 - (lambda (_srcpath293107_) - (let ((_opts293109_ '())) + (lambda (_srcpath157514_) + (let ((_opts157516_ '())) (declare (not safe)) - (gxc#compile-module__% _srcpath293107_ _opts293109_)))) + (gxc#compile-module__% _srcpath157514_ _opts157516_)))) (define gxc#compile-module - (lambda _g297793_ - (let ((_g297792_ (let () (declare (not safe)) (##length _g297793_)))) - (cond ((let () (declare (not safe)) (##fx= _g297792_ 1)) - (apply (lambda (_srcpath293107_) + (lambda _g157632_ + (let ((_g157631_ (let () (declare (not safe)) (##length _g157632_)))) + (cond ((let () (declare (not safe)) (##fx= _g157631_ 1)) + (apply (lambda (_srcpath157514_) (let () (declare (not safe)) - (gxc#compile-module__0 _srcpath293107_))) - _g297793_)) - ((let () (declare (not safe)) (##fx= _g297792_ 2)) - (apply (lambda (_srcpath293111_ _opts293112_) + (gxc#compile-module__0 _srcpath157514_))) + _g157632_)) + ((let () (declare (not safe)) (##fx= _g157631_ 2)) + (apply (lambda (_srcpath157518_ _opts157519_) (let () (declare (not safe)) (gxc#compile-module__% - _srcpath293111_ - _opts293112_))) - _g297793_)) + _srcpath157518_ + _opts157519_))) + _g157632_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-module - _g297793_)))))) + _g157632_)))))) (define gxc#compile-exe__% - (lambda (_srcpath293064_ _opts293065_) - (if (let () (declare (not safe)) (string? _srcpath293064_)) + (lambda (_srcpath157471_ _opts157472_) + (if (let () (declare (not safe)) (string? _srcpath157471_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _srcpath293064_))) - (let ((_outdir293067_ - (let () (declare (not safe)) (pgetq 'output-dir: _opts293065_))) - (_invoke-gsc?293068_ - (let () (declare (not safe)) (pgetq 'invoke-gsc: _opts293065_))) - (_gsc-options293069_ + _srcpath157471_))) + (let ((_outdir157474_ + (let () + (declare (not safe)) + (pgetq__0 'output-dir: _opts157472_))) + (_invoke-gsc?157475_ + (let () + (declare (not safe)) + (pgetq__0 'invoke-gsc: _opts157472_))) + (_gsc-options157476_ + (let () + (declare (not safe)) + (pgetq__0 'gsc-options: _opts157472_))) + (_keep-scm?157477_ (let () (declare (not safe)) - (pgetq 'gsc-options: _opts293065_))) - (_keep-scm?293070_ - (let () (declare (not safe)) (pgetq 'keep-scm: _opts293065_))) - (_verbosity293071_ - (let () (declare (not safe)) (pgetq 'verbose: _opts293065_))) - (_debug293072_ - (let () (declare (not safe)) (pgetq 'debug: _opts293065_)))) - (if _outdir293067_ - (let ((__tmp297794 + (pgetq__0 'keep-scm: _opts157472_))) + (_verbosity157478_ + (let () (declare (not safe)) (pgetq__0 'verbose: _opts157472_))) + (_debug157479_ + (let () (declare (not safe)) (pgetq__0 'debug: _opts157472_)))) + (if _outdir157474_ + (let ((__tmp157633 (lambda () (let () (declare (not safe)) - (create-directory* _outdir293067_))))) + (create-directory*__0 _outdir157474_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp297794)) + (with-lock gxc#+driver-mutex+ __tmp157633)) '#!void) - (let ((__tmp297798 + (let ((__tmp157637 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile exe " _srcpath293064_)) - (let ((__tmp297799 - (let ((__tmp297800 + (gxc#verbose '"compile exe " _srcpath157471_)) + (let ((__tmp157638 + (let ((__tmp157639 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _srcpath293064_))))) + (gx#import-module__0 _srcpath157471_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp297800)))) + (with-lock gxc#+driver-mutex+ __tmp157639)))) (declare (not safe)) (gxc#compile-executable-module - __tmp297799 - _opts293065_)))) - (__tmp297797 + __tmp157638 + _opts157472_)))) + (__tmp157636 (let () (declare (not safe)) (gxc#compile-timestamp))) - (__tmp297795 - (let ((__tmp297796 + (__tmp157634 + (let ((__tmp157635 (let () (declare (not safe)) - (cons _srcpath293064_ '())))) + (cons _srcpath157471_ '())))) (declare (not safe)) - (cons 'compile-exe __tmp297796)))) + (cons 'compile-exe __tmp157635)))) (declare (not safe)) (call-with-parameters - __tmp297798 + __tmp157637 gxc#current-compile-output-dir - _outdir293067_ + _outdir157474_ gxc#current-compile-invoke-gsc - _invoke-gsc?293068_ + _invoke-gsc?157475_ gxc#current-compile-gsc-options - _gsc-options293069_ + _gsc-options157476_ gxc#current-compile-keep-scm - _keep-scm?293070_ + _keep-scm?157477_ gxc#current-compile-verbose - _verbosity293071_ + _verbosity157478_ gxc#current-compile-debug - _debug293072_ + _debug157479_ gxc#current-compile-timestamp - __tmp297797 + __tmp157636 gxc#current-compile-context - __tmp297795 + __tmp157634 gx#current-expander-compiling? '#t))))) (define gxc#compile-exe__0 - (lambda (_srcpath293080_) - (let ((_opts293082_ '())) + (lambda (_srcpath157487_) + (let ((_opts157489_ '())) (declare (not safe)) - (gxc#compile-exe__% _srcpath293080_ _opts293082_)))) + (gxc#compile-exe__% _srcpath157487_ _opts157489_)))) (define gxc#compile-exe - (lambda _g297802_ - (let ((_g297801_ (let () (declare (not safe)) (##length _g297802_)))) - (cond ((let () (declare (not safe)) (##fx= _g297801_ 1)) - (apply (lambda (_srcpath293080_) + (lambda _g157641_ + (let ((_g157640_ (let () (declare (not safe)) (##length _g157641_)))) + (cond ((let () (declare (not safe)) (##fx= _g157640_ 1)) + (apply (lambda (_srcpath157487_) (let () (declare (not safe)) - (gxc#compile-exe__0 _srcpath293080_))) - _g297802_)) - ((let () (declare (not safe)) (##fx= _g297801_ 2)) - (apply (lambda (_srcpath293084_ _opts293085_) + (gxc#compile-exe__0 _srcpath157487_))) + _g157641_)) + ((let () (declare (not safe)) (##fx= _g157640_ 2)) + (apply (lambda (_srcpath157491_ _opts157492_) (let () (declare (not safe)) - (gxc#compile-exe__% _srcpath293084_ _opts293085_))) - _g297802_)) + (gxc#compile-exe__% _srcpath157491_ _opts157492_))) + _g157641_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-exe - _g297802_)))))) + _g157641_)))))) (define gxc#compile-executable-module - (lambda (_ctx293060_ _opts293061_) + (lambda (_ctx157467_ _opts157468_) (if (let () (declare (not safe)) - (pgetq 'full-program-optimization: _opts293061_)) + (pgetq__0 'full-program-optimization: _opts157468_)) (let () (declare (not safe)) (gxc#compile-executable-module/full-program-optimization - _ctx293060_ - _opts293061_)) + _ctx157467_ + _opts157468_)) (let () (declare (not safe)) (gxc#compile-executable-module/separate - _ctx293060_ - _opts293061_))))) + _ctx157467_ + _opts157468_))))) (define gxc#compile-executable-module/separate - (lambda (_ctx292943_ _opts292944_) - (letrec ((_generate-stub292946_ - (lambda (_builtin-modules293056_) - (let ((_mod-main293058_ + (lambda (_ctx157350_ _opts157351_) + (letrec ((_generate-stub157353_ + (lambda (_builtin-modules157463_) + (let ((_mod-main157465_ (let () (declare (not safe)) - (gxc#find-runtime-symbol _ctx292943_ 'main)))) - (write (let ((__tmp297803 - (let ((__tmp297804 - (let ((__tmp297805 - (let ((__tmp297806 - (let ((__tmp297808 - (let ((__tmp297809 + (gxc#find-runtime-symbol _ctx157350_ 'main)))) + (write (let ((__tmp157642 + (let ((__tmp157643 + (let ((__tmp157644 + (let ((__tmp157645 + (let ((__tmp157647 + (let ((__tmp157648 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _builtin-modules293056_ '())))) + (cons _builtin-modules157463_ '())))) (declare (not safe)) - (cons 'quote __tmp297809))) - (__tmp297807 + (cons 'quote __tmp157648))) + (__tmp157646 (let () (declare (not safe)) (cons 'libgerbil-builtin-modules '())))) (declare (not safe)) - (cons __tmp297808 __tmp297807)))) + (cons __tmp157647 __tmp157646)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'append - __tmp297806)))) + __tmp157645)))) (declare (not safe)) - (cons __tmp297805 '())))) + (cons __tmp157644 '())))) (declare (not safe)) - (cons 'builtin-modules __tmp297804)))) + (cons 'builtin-modules __tmp157643)))) (declare (not safe)) - (cons 'define __tmp297803))) - (write (let ((__tmp297810 - (let ((__tmp297849 + (cons 'define __tmp157642))) + (write (let ((__tmp157649 + (let ((__tmp157688 (let () (declare (not safe)) (cons 'gerbil-main '()))) - (__tmp297811 - (let ((__tmp297812 - (let ((__tmp297813 - (let ((__tmp297837 - (let ((__tmp297838 + (__tmp157650 + (let ((__tmp157651 + (let ((__tmp157652 + (let ((__tmp157676 + (let ((__tmp157677 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp297839 - (let ((__tmp297847 - (let ((__tmp297848 + (let ((__tmp157678 + (let ((__tmp157686 + (let ((__tmp157687 (let () (declare (not safe)) (cons 'builtin-modules '())))) (declare (not safe)) (cons 'gerbil-runtime-init! - __tmp297848))) - (__tmp297840 - (let ((__tmp297841 - (let ((__tmp297842 - (let ((__tmp297843 + __tmp157687))) + (__tmp157679 + (let ((__tmp157680 + (let ((__tmp157681 + (let ((__tmp157682 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp297844 - (let ((__tmp297845 - (let ((__tmp297846 + (let ((__tmp157683 + (let ((__tmp157684 + (let ((__tmp157685 (let () (declare (not safe)) (cons 'command-line '())))) (declare (not safe)) - (cons __tmp297846 '())))) + (cons __tmp157685 '())))) (declare (not safe)) - (cons 'cdr __tmp297845)))) + (cons 'cdr __tmp157684)))) (declare (not safe)) - (cons __tmp297844 '())))) + (cons __tmp157683 '())))) (declare (not safe)) - (cons _mod-main293058_ __tmp297843)))) + (cons _mod-main157465_ __tmp157682)))) (declare (not safe)) - (cons 'apply __tmp297842)))) + (cons 'apply __tmp157681)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp297841 '())))) + (cons __tmp157680 '())))) (declare (not safe)) - (cons __tmp297847 __tmp297840)))) + (cons __tmp157686 __tmp157679)))) (declare (not safe)) - (cons '() __tmp297839)))) + (cons '() __tmp157678)))) (declare (not safe)) - (cons 'lambda __tmp297838))) - (__tmp297814 - (let ((__tmp297815 - (let ((__tmp297816 - (let ((__tmp297817 - (let ((__tmp297828 - (let ((__tmp297829 - (let ((__tmp297830 + (cons 'lambda __tmp157677))) + (__tmp157653 + (let ((__tmp157654 + (let ((__tmp157655 + (let ((__tmp157656 + (let ((__tmp157667 + (let ((__tmp157668 + (let ((__tmp157669 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp297831 - (let ((__tmp297832 - (let ((__tmp297833 - (let ((__tmp297834 - (let ((__tmp297835 - (let ((__tmp297836 + (let ((__tmp157670 + (let ((__tmp157671 + (let ((__tmp157672 + (let ((__tmp157673 + (let ((__tmp157674 + (let ((__tmp157675 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'current-output-port '())))) (declare (not safe)) - (cons __tmp297836 '())))) + (cons __tmp157675 '())))) (declare (not safe)) - (cons 'force-output __tmp297835)))) + (cons 'force-output __tmp157674)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp297834 '())))) + (cons __tmp157673 '())))) (declare (not safe)) - (cons '() __tmp297833)))) + (cons '() __tmp157672)))) (declare (not safe)) - (cons 'lambda __tmp297832)))) + (cons 'lambda __tmp157671)))) (declare (not safe)) - (cons __tmp297831 '())))) + (cons __tmp157670 '())))) (declare (not safe)) - (cons 'void __tmp297830)))) + (cons 'void __tmp157669)))) (declare (not safe)) - (cons 'with-catch __tmp297829))) + (cons 'with-catch __tmp157668))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp297818 - (let ((__tmp297819 - (let ((__tmp297820 + (__tmp157657 + (let ((__tmp157658 + (let ((__tmp157659 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp297821 - (let ((__tmp297822 - (let ((__tmp297823 - (let ((__tmp297824 - (let ((__tmp297825 - (let ((__tmp297826 + (let ((__tmp157660 + (let ((__tmp157661 + (let ((__tmp157662 + (let ((__tmp157663 + (let ((__tmp157664 + (let ((__tmp157665 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp297827 + (let ((__tmp157666 (let () (declare (not safe)) (cons 'current-error-port '())))) (declare (not safe)) - (cons __tmp297827 '())))) + (cons __tmp157666 '())))) (declare (not safe)) - (cons 'force-output __tmp297826)))) + (cons 'force-output __tmp157665)))) (declare (not safe)) - (cons __tmp297825 '())))) + (cons __tmp157664 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp297824)))) + (cons '() __tmp157663)))) (declare (not safe)) - (cons 'lambda __tmp297823)))) + (cons 'lambda __tmp157662)))) (declare (not safe)) - (cons __tmp297822 '())))) + (cons __tmp157661 '())))) (declare (not safe)) - (cons 'void __tmp297821)))) + (cons 'void __tmp157660)))) (declare (not safe)) - (cons 'with-catch __tmp297820)))) + (cons 'with-catch __tmp157659)))) (declare (not safe)) - (cons __tmp297819 '())))) + (cons __tmp157658 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp297828 - __tmp297818)))) + (cons __tmp157667 + __tmp157657)))) (declare (not safe)) - (cons '() __tmp297817)))) + (cons '() __tmp157656)))) (declare (not safe)) - (cons 'lambda __tmp297816)))) + (cons 'lambda __tmp157655)))) (declare (not safe)) - (cons __tmp297815 '())))) + (cons __tmp157654 '())))) (declare (not safe)) - (cons __tmp297837 __tmp297814)))) + (cons __tmp157676 __tmp157653)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'with-unwind-protect - __tmp297813)))) + __tmp157652)))) (declare (not safe)) - (cons __tmp297812 '())))) + (cons __tmp157651 '())))) (declare (not safe)) - (cons __tmp297849 __tmp297811)))) + (cons __tmp157688 __tmp157650)))) (declare (not safe)) - (cons 'define __tmp297810))) + (cons 'define __tmp157649))) (write '(gerbil-main)) (newline)))) - (_get-libgerbil-ld-opts292947_ - (lambda (_libgerbil293054_) + (_get-libgerbil-ld-opts157354_ + (lambda (_libgerbil157461_) (call-with-input-file - (string-append _libgerbil293054_ '".ldd") + (string-append _libgerbil157461_ '".ldd") read))) - (_replace-extension292948_ - (lambda (_path293051_ _ext293052_) + (_replace-extension157355_ + (lambda (_path157458_ _ext157459_) (string-append - (path-strip-extension _path293051_) - _ext293052_))) - (_not-exclude-module?292949_ - (lambda (_ctx293047_) - (let ((_id-str293049_ + (path-strip-extension _path157458_) + _ext157459_))) + (_not-exclude-module?157356_ + (lambda (_ctx157454_) + (let ((_id-str157456_ (symbol->string (##structure-ref - _ctx293047_ + _ctx157454_ '1 gx#expander-context::t '#f)))) - (if (let ((__tmp297851 + (if (let ((__tmp157690 (let () (declare (not safe)) (string-prefix? '"gerbil/" - _id-str293049_)))) + _id-str157456_)))) (declare (not safe)) - (not __tmp297851)) - (let ((__tmp297850 + (not __tmp157690)) + (let ((__tmp157689 (let () (declare (not safe)) - (string-prefix? '"std/" _id-str293049_)))) + (string-prefix? '"std/" _id-str157456_)))) (declare (not safe)) - (not __tmp297850)) + (not __tmp157689)) '#f)))) - (_not-file-empty?292950_ - (lambda (_path293045_) - (let ((__tmp297852 + (_not-file-empty?157357_ + (lambda (_path157452_) + (let ((__tmp157691 (let () (declare (not safe)) - (gxc#file-empty? _path293045_)))) + (gxc#file-empty? _path157452_)))) (declare (not safe)) - (not __tmp297852)))) - (_compile-stub292951_ - (lambda (_output-scm292958_ _output-bin292959_) - (let* ((_gerbil-home292961_ + (not __tmp157691)))) + (_compile-stub157358_ + (lambda (_output-scm157365_ _output-bin157366_) + (let* ((_gerbil-home157368_ (getenv '"GERBIL_BUILD_PREFIX" (let () (declare (not safe)) (gerbil-home)))) - (_gerbil-libdir292963_ - (path-expand '"lib" _gerbil-home292961_)) - (_gerbil-staticdir292965_ - (path-expand '"static" _gerbil-libdir292963_)) - (_gxlink292967_ + (_gerbil-libdir157370_ + (path-expand '"lib" _gerbil-home157368_)) + (_gerbil-staticdir157372_ + (path-expand '"static" _gerbil-libdir157370_)) + (_gxlink157374_ (path-expand '"libgerbil-link" - _gerbil-libdir292963_)) - (_tmp292969_ + _gerbil-libdir157370_)) + (_tmp157376_ (path-expand (string-append '"gxc." @@ -553,349 +570,334 @@ (declare (not safe)) (gxc#compile-timestamp-nanos)))) '"/tmp")) - (_tmp-path292973_ - (lambda (_f292971_) + (_tmp-path157380_ + (lambda (_f157378_) (path-expand - (path-strip-directory _f292971_) - _tmp292969_))) - (_deps292975_ + (path-strip-directory _f157378_) + _tmp157376_))) + (_deps157382_ (let () (declare (not safe)) - (gxc#find-runtime-module-deps _ctx292943_))) - (_deps292977_ + (gxc#find-runtime-module-deps _ctx157350_))) + (_deps157384_ (let () (declare (not safe)) - (filter _not-exclude-module?292949_ - _deps292975_))) - (_src-deps-scm292979_ - (map gxc#find-static-module-file _deps292977_)) - (_src-deps-scm292981_ + (filter _not-exclude-module?157356_ + _deps157382_))) + (_src-deps-scm157386_ + (map gxc#find-static-module-file _deps157384_)) + (_src-deps-scm157388_ (let () (declare (not safe)) - (filter _not-file-empty?292950_ - _src-deps-scm292979_))) - (_src-deps-scm292983_ - (map path-expand _src-deps-scm292981_)) - (_deps-scm292985_ - (map _tmp-path292973_ _src-deps-scm292983_)) - (_deps-c292991_ - (map (lambda (_g292986292988_) + (filter _not-file-empty?157357_ + _src-deps-scm157386_))) + (_src-deps-scm157390_ + (map path-expand _src-deps-scm157388_)) + (_deps-scm157392_ + (map _tmp-path157380_ _src-deps-scm157390_)) + (_deps-c157398_ + (map (lambda (_g157393157395_) (let () (declare (not safe)) - (_replace-extension292948_ - _g292986292988_ + (_replace-extension157355_ + _g157393157395_ '".c"))) - _deps-scm292985_)) - (_deps-o292997_ - (map (lambda (_g292992292994_) + _deps-scm157392_)) + (_deps-o157404_ + (map (lambda (_g157399157401_) (let () (declare (not safe)) - (_replace-extension292948_ - _g292992292994_ + (_replace-extension157355_ + _g157399157401_ '".o"))) - _deps-scm292985_)) - (_src-bin-scm292999_ + _deps-scm157392_)) + (_src-bin-scm157406_ (let () (declare (not safe)) - (gxc#find-static-module-file _ctx292943_))) - (_src-bin-scm293001_ - (path-expand _src-bin-scm292999_)) - (_bin-scm293003_ + (gxc#find-static-module-file _ctx157350_))) + (_src-bin-scm157408_ + (path-expand _src-bin-scm157406_)) + (_bin-scm157410_ (let () (declare (not safe)) - (_tmp-path292973_ _src-bin-scm293001_))) - (_bin-c293005_ + (_tmp-path157380_ _src-bin-scm157408_))) + (_bin-c157412_ (let () (declare (not safe)) - (_replace-extension292948_ - _bin-scm293003_ + (_replace-extension157355_ + _bin-scm157410_ '".c"))) - (_bin-o293007_ + (_bin-o157414_ (let () (declare (not safe)) - (_replace-extension292948_ - _bin-scm293003_ + (_replace-extension157355_ + _bin-scm157410_ '".o"))) - (_output-bin293009_ - (path-expand _output-bin292959_)) - (_output-scm293011_ - (path-expand _output-scm292958_)) - (_output-c293013_ + (_output-bin157416_ + (path-expand _output-bin157366_)) + (_output-scm157418_ + (path-expand _output-scm157365_)) + (_output-c157420_ (let () (declare (not safe)) - (_replace-extension292948_ - _output-scm293011_ + (_replace-extension157355_ + _output-scm157418_ '".c"))) - (_output-o293015_ + (_output-o157422_ (let () (declare (not safe)) - (_replace-extension292948_ - _output-scm293011_ + (_replace-extension157355_ + _output-scm157418_ '".o"))) - (_output_-c293017_ + (_output_-c157424_ (let () (declare (not safe)) - (_replace-extension292948_ - _output-scm293011_ + (_replace-extension157355_ + _output-scm157418_ '"_.c"))) - (_output_-o293019_ + (_output_-o157426_ (let () (declare (not safe)) - (_replace-extension292948_ - _output-scm293011_ + (_replace-extension157355_ + _output-scm157418_ '"_.o"))) - (_gsc-link-opts293021_ + (_gsc-link-opts157428_ (let () (declare (not safe)) (gxc#gsc-link-options__0))) - (_gsc-cc-opts293023_ + (_gsc-cc-opts157430_ (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - (_gsc-static-opts293025_ + (_gsc-static-opts157432_ (let () (declare (not safe)) (gxc#gsc-static-include-options - _gerbil-staticdir292965_))) - (_output-ld-opts293027_ + _gerbil-staticdir157372_))) + (_output-ld-opts157434_ (let () (declare (not safe)) (gxc#gcc-ld-options))) - (_libgerbil.a293029_ - (path-expand '"libgerbil.a" _gerbil-libdir292963_)) - (_libgerbil.so293031_ + (_libgerbil.a157436_ + (path-expand '"libgerbil.a" _gerbil-libdir157370_)) + (_libgerbil.so157438_ (path-expand '"libgerbil.so" - _gerbil-libdir292963_)) - (_libgerbil-ld-opts293033_ - (if (file-exists? _libgerbil.so293031_) + _gerbil-libdir157370_)) + (_libgerbil-ld-opts157440_ + (if (file-exists? _libgerbil.so157438_) (let () (declare (not safe)) - (_get-libgerbil-ld-opts292947_ - _libgerbil.so293031_)) - (if (file-exists? _libgerbil.a293029_) + (_get-libgerbil-ld-opts157354_ + _libgerbil.so157438_)) + (if (file-exists? _libgerbil.a157436_) (let () (declare (not safe)) - (_get-libgerbil-ld-opts292947_ - _libgerbil.a293029_)) + (_get-libgerbil-ld-opts157354_ + _libgerbil.a157436_)) (let () (declare (not safe)) (gxc#raise-compile-error '"libgerbil does not exist" - _libgerbil.a293029_ - _libgerbil.so293031_))))) - (_rpath293035_ + _libgerbil.a157436_ + _libgerbil.so157438_))))) + (_rpath157442_ (let () (declare (not safe)) - (gxc#gerbil-rpath _gerbil-libdir292963_))) - (_builtin-modules293039_ - (map (lambda (_mod293037_) + (gxc#gerbil-rpath _gerbil-libdir157370_))) + (_builtin-modules157446_ + (map (lambda (_mod157444_) (symbol->string (##structure-ref - _mod293037_ + _mod157444_ '1 gx#expander-context::t '#f))) (let () (declare (not safe)) - (cons _ctx292943_ _deps292977_))))) - (let ((__tmp297853 + (cons _ctx157350_ _deps157384_))))) + (let ((__tmp157692 (lambda () - (let ((__tmp297854 - (path-directory _output-bin293009_))) + (let ((__tmp157693 + (path-directory _output-bin157416_))) (declare (not safe)) - (create-directory* __tmp297854))))) + (create-directory*__0 __tmp157693))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp297853)) - (let ((__tmp297855 + (with-lock gxc#+driver-mutex+ __tmp157692)) + (let ((__tmp157694 (lambda () (let () (declare (not safe)) - (_generate-stub292946_ - _builtin-modules293039_))))) + (_generate-stub157353_ + _builtin-modules157446_))))) (declare (not safe)) (gxc#with-output-to-scheme-file - _output-scm293011_ - __tmp297855)) + _output-scm157418_ + __tmp157694)) (if (gxc#current-compile-invoke-gsc) (begin - (let ((__tmp297856 - (lambda () (create-directory _tmp292969_)))) + (let ((__tmp157695 + (lambda () (create-directory _tmp157376_)))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp297856)) + (with-lock gxc#+driver-mutex+ __tmp157695)) (for-each copy-file - _src-deps-scm292983_ - _deps-scm292985_) - (copy-file _src-bin-scm293001_ _bin-scm293003_) - (let ((__tmp297864 + _src-deps-scm157390_ + _deps-scm157392_) + (copy-file _src-bin-scm157408_ _bin-scm157410_) + (let ((__tmp157703 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp297857 - (let ((__tmp297858 - (let ((__tmp297859 - (let ((__tmp297860 - (let ((__tmp297861 - (let ((__tmp297862 + (__tmp157696 + (let ((__tmp157697 + (let ((__tmp157698 + (let ((__tmp157699 + (let ((__tmp157700 + (let ((__tmp157701 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp297863 + (let ((__tmp157702 (let () (declare (not safe)) - (cons _output-scm293011_ '())))) + (cons _output-scm157418_ '())))) (declare (not safe)) - (cons _bin-scm293003_ __tmp297863)))) + (cons _bin-scm157410_ __tmp157702)))) (declare (not safe)) - (foldr1 cons __tmp297862 _deps-scm292985_)))) + (foldr1 cons __tmp157701 _deps-scm157392_)))) (declare (not safe)) - (foldr1 cons __tmp297861 _gsc-link-opts293021_)))) + (foldr1 cons __tmp157700 _gsc-link-opts157428_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _gxlink292967_ - __tmp297860)))) + (cons _gxlink157374_ + __tmp157699)))) (declare (not safe)) - (cons '"-l" __tmp297859)))) + (cons '"-l" __tmp157698)))) (declare (not safe)) - (cons '"-link" __tmp297858)))) + (cons '"-link" __tmp157697)))) (declare (not safe)) - (gxc#invoke__% - '#f - absent-value - absent-value - __tmp297864 - __tmp297857)) - (let ((__tmp297872 + (gxc#invoke __tmp157703 __tmp157696)) + (let ((__tmp157711 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp297865 - (let ((__tmp297866 - (let ((__tmp297867 - (let ((__tmp297868 - (let ((__tmp297869 - (let ((__tmp297870 + (__tmp157704 + (let ((__tmp157705 + (let ((__tmp157706 + (let ((__tmp157707 + (let ((__tmp157708 + (let ((__tmp157709 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp297871 + (let ((__tmp157710 (let () (declare (not safe)) - (cons _output_-c293017_ '())))) + (cons _output_-c157424_ '())))) (declare (not safe)) - (cons _output-c293013_ __tmp297871)))) + (cons _output-c157420_ __tmp157710)))) (declare (not safe)) - (cons _bin-c293005_ __tmp297870)))) + (cons _bin-c157412_ __tmp157709)))) (declare (not safe)) - (foldr1 cons __tmp297869 _deps-c292991_)))) + (foldr1 cons __tmp157708 _deps-c157398_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp297868 - _gsc-static-opts293025_)))) + __tmp157707 + _gsc-static-opts157432_)))) (declare (not safe)) (foldr1 cons - __tmp297867 - _gsc-cc-opts293023_)))) + __tmp157706 + _gsc-cc-opts157430_)))) (declare (not safe)) - (cons '"-obj" __tmp297866)))) + (cons '"-obj" __tmp157705)))) (declare (not safe)) - (gxc#invoke__% - '#f - absent-value - absent-value - __tmp297872 - __tmp297865)) - (let ((__tmp297885 + (gxc#invoke __tmp157711 __tmp157704)) + (let ((__tmp157724 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp297873 - (let ((__tmp297874 - (let ((__tmp297875 - (let ((__tmp297876 - (let ((__tmp297877 - (let ((__tmp297878 + (__tmp157712 + (let ((__tmp157713 + (let ((__tmp157714 + (let ((__tmp157715 + (let ((__tmp157716 + (let ((__tmp157717 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp297879 - (let ((__tmp297880 - (let ((__tmp297881 - (let ((__tmp297882 - (let ((__tmp297883 + (let ((__tmp157718 + (let ((__tmp157719 + (let ((__tmp157720 + (let ((__tmp157721 + (let ((__tmp157722 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp297884 + (let ((__tmp157723 (let () (declare (not safe)) (cons '"-lgambit" - _libgerbil-ld-opts293033_)))) + _libgerbil-ld-opts157440_)))) (declare (not safe)) - (cons '"-lgerbil" __tmp297884)))) + (cons '"-lgerbil" __tmp157723)))) (declare (not safe)) - (cons _gerbil-libdir292963_ __tmp297883)))) + (cons _gerbil-libdir157370_ __tmp157722)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"-L" - __tmp297882)))) + __tmp157721)))) (declare (not safe)) - (cons _rpath293035_ - __tmp297881)))) + (cons _rpath157442_ + __tmp157720)))) (declare (not safe)) (foldr1 cons - __tmp297880 - _output-ld-opts293027_)))) + __tmp157719 + _output-ld-opts157434_)))) (declare (not safe)) - (cons _output_-o293019_ __tmp297879)))) + (cons _output_-o157426_ __tmp157718)))) (declare (not safe)) - (cons _output-o293015_ __tmp297878)))) + (cons _output-o157422_ __tmp157717)))) (declare (not safe)) - (cons _bin-o293007_ __tmp297877)))) + (cons _bin-o157414_ __tmp157716)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp297876 - _deps-o292997_)))) + __tmp157715 + _deps-o157404_)))) (declare (not safe)) - (cons _output-bin293009_ - __tmp297875)))) + (cons _output-bin157416_ + __tmp157714)))) (declare (not safe)) - (cons '"-o" __tmp297874)))) + (cons '"-o" __tmp157713)))) (declare (not safe)) - (gxc#invoke__% - '#f - absent-value - absent-value - __tmp297885 - __tmp297873)) + (gxc#invoke __tmp157724 __tmp157712)) (for-each delete-file - (let ((__tmp297886 - (let ((__tmp297887 - (let ((__tmp297888 + (let ((__tmp157725 + (let ((__tmp157726 + (let ((__tmp157727 (let () (declare (not safe)) - (cons _output_-o293019_ + (cons _output_-o157426_ '())))) (declare (not safe)) - (cons _output-o293015_ - __tmp297888)))) + (cons _output-o157422_ + __tmp157727)))) (declare (not safe)) - (cons _output_-c293017_ __tmp297887)))) + (cons _output_-c157424_ __tmp157726)))) (declare (not safe)) - (cons _output-c293013_ __tmp297886))) + (cons _output-c157420_ __tmp157725))) (let () (declare (not safe)) - (gxc#delete-directory* _tmp292969_))) + (gxc#delete-directory* _tmp157376_))) '#!void))))) - (let* ((_output-bin292953_ + (let* ((_output-bin157360_ (let () (declare (not safe)) - (gxc#compile-exe-output-file _ctx292943_ _opts292944_))) - (_output-scm292955_ - (string-append _output-bin292953_ '"__exe.scm"))) + (gxc#compile-exe-output-file _ctx157350_ _opts157351_))) + (_output-scm157362_ + (string-append _output-bin157360_ '"__exe.scm"))) (let () (declare (not safe)) - (_compile-stub292951_ _output-scm292955_ _output-bin292953_)) + (_compile-stub157358_ _output-scm157362_ _output-bin157360_)) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm292955_)))))) + (delete-file _output-scm157362_)))))) (define gxc#compile-executable-module/full-program-optimization - (lambda (_ctx292768_ _opts292769_) - (letrec ((_reset-declare292771_ + (lambda (_ctx157175_ _opts157176_) + (letrec ((_reset-declare157178_ (lambda () '(declare (gambit-scheme) @@ -917,661 +919,646 @@ (optimize-dead-definitions) (generic) (mostly-fixnum-flonum)))) - (_generate-stub292772_ - (lambda (_deps292934_) - (let ((_mod-main292936_ + (_generate-stub157179_ + (lambda (_deps157341_) + (let ((_mod-main157343_ (let () (declare (not safe)) - (gxc#find-runtime-symbol _ctx292768_ 'main))) - (_reset-decl292937_ + (gxc#find-runtime-symbol _ctx157175_ 'main))) + (_reset-decl157344_ (let () (declare (not safe)) - (_reset-declare292771_))) - (_user-decl292938_ + (_reset-declare157178_))) + (_user-decl157345_ (let () (declare (not safe)) - (_user-declare292773_)))) + (_user-declare157180_)))) (for-each - (lambda (_dep292940_) + (lambda (_dep157347_) (write '(##namespace (""))) (newline) - (write _reset-decl292937_) + (write _reset-decl157344_) (newline) - (if _user-decl292938_ - (begin (write _user-decl292938_) (newline)) + (if _user-decl157345_ + (begin (write _user-decl157345_) (newline)) '#!void) - (write (let ((__tmp297889 + (write (let ((__tmp157728 (let () (declare (not safe)) - (cons _dep292940_ '())))) + (cons _dep157347_ '())))) (declare (not safe)) - (cons 'include __tmp297889))) + (cons 'include __tmp157728))) (newline)) - _deps292934_) - (write (let ((__tmp297890 - (let ((__tmp297903 + _deps157341_) + (write (let ((__tmp157729 + (let ((__tmp157742 (let () (declare (not safe)) (cons 'gerbil-main '()))) - (__tmp297891 - (let ((__tmp297899 - (let ((__tmp297900 - (let ((__tmp297901 - (let ((__tmp297902 + (__tmp157730 + (let ((__tmp157738 + (let ((__tmp157739 + (let ((__tmp157740 + (let ((__tmp157741 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons 'quote __tmp297902)))) + (cons 'quote __tmp157741)))) (declare (not safe)) - (cons __tmp297901 '())))) + (cons __tmp157740 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'gerbil-runtime-init! - __tmp297900))) - (__tmp297892 - (let ((__tmp297893 - (let ((__tmp297894 - (let ((__tmp297895 + __tmp157739))) + (__tmp157731 + (let ((__tmp157732 + (let ((__tmp157733 + (let ((__tmp157734 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp297896 - (let ((__tmp297897 - (let ((__tmp297898 + (let ((__tmp157735 + (let ((__tmp157736 + (let ((__tmp157737 (let () (declare (not safe)) (cons 'command-line '())))) (declare (not safe)) - (cons __tmp297898 '())))) + (cons __tmp157737 '())))) (declare (not safe)) - (cons 'cdr __tmp297897)))) + (cons 'cdr __tmp157736)))) (declare (not safe)) - (cons __tmp297896 '())))) + (cons __tmp157735 '())))) (declare (not safe)) - (cons _mod-main292936_ __tmp297895)))) + (cons _mod-main157343_ __tmp157734)))) (declare (not safe)) - (cons 'apply __tmp297894)))) + (cons 'apply __tmp157733)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp297893 '())))) + (cons __tmp157732 '())))) (declare (not safe)) - (cons __tmp297899 __tmp297892)))) + (cons __tmp157738 __tmp157731)))) (declare (not safe)) - (cons __tmp297903 __tmp297891)))) + (cons __tmp157742 __tmp157730)))) (declare (not safe)) - (cons 'define __tmp297890))) + (cons 'define __tmp157729))) (write '(gerbil-main)) (newline)))) - (_user-declare292773_ + (_user-declare157180_ (lambda () - (let* ((_gsc-opts292839_ + (let* ((_gsc-opts157246_ (let () (declare (not safe)) - (pgetq 'gsc-options: _opts292769_))) - (_gsc-prelude292841_ - (if _gsc-opts292839_ - (member '"-prelude" _gsc-opts292839_) + (pgetq__0 'gsc-options: _opts157176_))) + (_gsc-prelude157248_ + (if _gsc-opts157246_ + (member '"-prelude" _gsc-opts157246_) '#f)) - (_gsc-prelude292843_ - (if _gsc-prelude292841_ + (_gsc-prelude157250_ + (if _gsc-prelude157248_ (read (open-input-string - (cadr _gsc-prelude292841_))) + (cadr _gsc-prelude157248_))) '#f))) - (let _lp292846_ ((_rest292848_ + (let _lp157253_ ((_rest157255_ (let () (declare (not safe)) - (cons _gsc-prelude292843_ '()))) - (_user-decls292849_ '())) - (let* ((_rest292850292858_ _rest292848_) - (_else292852292866_ + (cons _gsc-prelude157250_ '()))) + (_user-decls157256_ '())) + (let* ((_rest157257157265_ _rest157255_) + (_else157259157273_ (lambda () (if (let () (declare (not safe)) - (null? _user-decls292849_)) + (null? _user-decls157256_)) '#f - (let ((__tmp297904 - (reverse _user-decls292849_))) + (let ((__tmp157743 + (reverse _user-decls157256_))) (declare (not safe)) - (cons 'declare __tmp297904))))) - (_K292854292922_ - (lambda (_rest292869_ _expr292870_) - (let* ((_expr292871292883_ _expr292870_) - (_else292874292891_ + (cons 'declare __tmp157743))))) + (_K157261157329_ + (lambda (_rest157276_ _expr157277_) + (let* ((_expr157278157290_ _expr157277_) + (_else157281157298_ (lambda () (let () (declare (not safe)) - (_lp292846_ - _rest292869_ - _user-decls292849_))))) - (let ((_K292879292912_ - (lambda (_decls292910_) - (let ((__tmp297905 + (_lp157253_ + _rest157276_ + _user-decls157256_))))) + (let ((_K157286157319_ + (lambda (_decls157317_) + (let ((__tmp157744 (let () (declare (not safe)) (foldl1 cons - _user-decls292849_ - _decls292910_)))) + _user-decls157256_ + _decls157317_)))) (declare (not safe)) - (_lp292846_ - _rest292869_ - __tmp297905)))) - (_K292876292897_ - (lambda (_exprs292895_) - (let ((__tmp297906 - (append _exprs292895_ - _rest292869_))) + (_lp157253_ + _rest157276_ + __tmp157744)))) + (_K157283157304_ + (lambda (_exprs157302_) + (let ((__tmp157745 + (append _exprs157302_ + _rest157276_))) (declare (not safe)) - (_lp292846_ - __tmp297906 - _user-decls292849_))))) + (_lp157253_ + __tmp157745 + _user-decls157256_))))) (if (let () (declare (not safe)) - (##pair? _expr292871292883_)) - (let ((_tl292881292917_ + (##pair? _expr157278157290_)) + (let ((_tl157288157324_ (let () (declare (not safe)) - (##cdr _expr292871292883_))) - (_hd292880292915_ + (##cdr _expr157278157290_))) + (_hd157287157322_ (let () (declare (not safe)) - (##car _expr292871292883_)))) + (##car _expr157278157290_)))) (if (let () (declare (not safe)) - (##eq? _hd292880292915_ + (##eq? _hd157287157322_ 'declare)) - (let ((_decls292920_ - _tl292881292917_)) + (let ((_decls157327_ + _tl157288157324_)) (declare (not safe)) - (_K292879292912_ - _decls292920_)) + (_K157286157319_ + _decls157327_)) (if (let () (declare (not safe)) - (##eq? _hd292880292915_ + (##eq? _hd157287157322_ 'begin)) - (let ((_exprs292905_ - _tl292881292917_)) + (let ((_exprs157312_ + _tl157288157324_)) (declare (not safe)) - (_K292876292897_ - _exprs292905_)) + (_K157283157304_ + _exprs157312_)) (let () (declare (not safe)) - (_else292874292891_))))) + (_else157281157298_))))) (let () (declare (not safe)) - (_else292874292891_)))))))) + (_else157281157298_)))))))) (if (let () (declare (not safe)) - (##pair? _rest292850292858_)) - (let ((_hd292855292925_ + (##pair? _rest157257157265_)) + (let ((_hd157262157332_ (let () (declare (not safe)) - (##car _rest292850292858_))) - (_tl292856292927_ + (##car _rest157257157265_))) + (_tl157263157334_ (let () (declare (not safe)) - (##cdr _rest292850292858_)))) - (let* ((_expr292930_ _hd292855292925_) - (_rest292932_ _tl292856292927_)) + (##cdr _rest157257157265_)))) + (let* ((_expr157337_ _hd157262157332_) + (_rest157339_ _tl157263157334_)) (declare (not safe)) - (_K292854292922_ _rest292932_ _expr292930_))) + (_K157261157329_ _rest157339_ _expr157337_))) (let () (declare (not safe)) - (_else292852292866_)))))))) - (_compile-stub292774_ - (lambda (_output-scm292781_ _output-bin292782_) - (let* ((_gerbil-home292784_ + (_else157259157273_)))))))) + (_compile-stub157181_ + (lambda (_output-scm157188_ _output-bin157189_) + (let* ((_gerbil-home157191_ (getenv '"GERBIL_BUILD_PREFIX" (let () (declare (not safe)) (gerbil-home)))) - (_gerbil-libdir292786_ - (path-expand '"lib" _gerbil-home292784_)) - (_runtime292788_ + (_gerbil-libdir157193_ + (path-expand '"lib" _gerbil-home157191_)) + (_runtime157195_ (map gxc#find-static-module-file gxc#gerbil-runtime-modules)) - (_gambit-sharp292790_ + (_gambit-sharp157197_ (path-expand '"lib/_gambit#.scm" - _gerbil-home292784_)) - (_include-gambit-sharp292792_ + _gerbil-home157191_)) + (_include-gambit-sharp157199_ (string-append '"(include \"" - _gambit-sharp292790_ + _gambit-sharp157197_ '"\")")) - (_bin-scm292794_ + (_bin-scm157201_ (let () (declare (not safe)) - (gxc#find-static-module-file _ctx292768_))) - (_deps292796_ + (gxc#find-static-module-file _ctx157175_))) + (_deps157203_ (let () (declare (not safe)) - (gxc#find-runtime-module-deps _ctx292768_))) - (_deps292798_ - (map gxc#find-static-module-file _deps292796_)) - (_deps292803_ - (let ((__tmp297907 - (lambda (_$obj292800_) - (let ((__tmp297908 + (gxc#find-runtime-module-deps _ctx157175_))) + (_deps157205_ + (map gxc#find-static-module-file _deps157203_)) + (_deps157210_ + (let ((__tmp157746 + (lambda (_$obj157207_) + (let ((__tmp157747 (let () (declare (not safe)) - (gxc#file-empty? _$obj292800_)))) + (gxc#file-empty? _$obj157207_)))) (declare (not safe)) - (not __tmp297908))))) - (declare (not safe)) - (filter __tmp297907 _deps292798_))) - (_deps292807_ - (let ((__tmp297909 - (lambda (_f292805_) - (let ((__tmp297910 - (member _f292805_ - _runtime292788_))) + (not __tmp157747))))) + (declare (not safe)) + (filter __tmp157746 _deps157205_))) + (_deps157214_ + (let ((__tmp157748 + (lambda (_f157212_) + (let ((__tmp157749 + (member _f157212_ + _runtime157195_))) (declare (not safe)) - (not __tmp297910))))) + (not __tmp157749))))) (declare (not safe)) - (filter __tmp297909 _deps292803_))) - (_output-base292809_ + (filter __tmp157748 _deps157210_))) + (_output-base157216_ (string-append - (path-strip-extension _output-scm292781_))) - (_output-c292811_ - (string-append _output-base292809_ '".c")) - (_output-o292813_ - (string-append _output-base292809_ '".o")) - (_output-c_292815_ - (string-append _output-base292809_ '"_.c")) - (_output-o_292817_ - (string-append _output-base292809_ '"_.o")) - (_gsc-link-opts292819_ + (path-strip-extension _output-scm157188_))) + (_output-c157218_ + (string-append _output-base157216_ '".c")) + (_output-o157220_ + (string-append _output-base157216_ '".o")) + (_output-c_157222_ + (string-append _output-base157216_ '"_.c")) + (_output-o_157224_ + (string-append _output-base157216_ '"_.o")) + (_gsc-link-opts157226_ (let () (declare (not safe)) (gxc#gsc-link-options__0))) - (_gsc-cc-opts292821_ + (_gsc-cc-opts157228_ (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - (_gsc-static-opts292823_ - (let ((__tmp297911 + (_gsc-static-opts157230_ + (let ((__tmp157750 (path-expand '"static" - _gerbil-libdir292786_))) + _gerbil-libdir157193_))) (declare (not safe)) - (gxc#gsc-static-include-options __tmp297911))) - (_output-ld-opts292825_ + (gxc#gsc-static-include-options __tmp157750))) + (_output-ld-opts157232_ (let () (declare (not safe)) (gxc#gcc-ld-options))) - (_gsc-gx-macros292827_ + (_gsc-gx-macros157234_ (if (let () (declare (not safe)) (gerbil-runtime-smp?)) - (let ((__tmp297913 - (let ((__tmp297914 - (let ((__tmp297915 + (let ((__tmp157752 + (let ((__tmp157753 + (let ((__tmp157754 (let () (declare (not safe)) - (cons _include-gambit-sharp292792_ + (cons _include-gambit-sharp157199_ '())))) (declare (not safe)) - (cons '"-e" __tmp297915)))) + (cons '"-e" __tmp157754)))) (declare (not safe)) (cons '"(define-cond-expand-feature|enable-smp|)" - __tmp297914)))) + __tmp157753)))) (declare (not safe)) - (cons '"-e" __tmp297913)) - (let ((__tmp297912 + (cons '"-e" __tmp157752)) + (let ((__tmp157751 (let () (declare (not safe)) - (cons _include-gambit-sharp292792_ + (cons _include-gambit-sharp157199_ '())))) (declare (not safe)) - (cons '"-e" __tmp297912)))) - (_gsc-link-opts292829_ - (append _gsc-link-opts292819_ - _gsc-gx-macros292827_)) - (_rpath292831_ + (cons '"-e" __tmp157751)))) + (_gsc-link-opts157236_ + (append _gsc-link-opts157226_ + _gsc-gx-macros157234_)) + (_rpath157238_ (let () (declare (not safe)) - (gxc#gerbil-rpath _gerbil-libdir292786_))) - (_default-ld-options292833_ - (let ((__tmp297916 + (gxc#gerbil-rpath _gerbil-libdir157193_))) + (_default-ld-options157240_ + (let ((__tmp157755 (let () (declare (not safe)) (cons '"-lm" '())))) (declare (not safe)) - (cons '"-ldl" __tmp297916)))) - (let ((__tmp297917 + (cons '"-ldl" __tmp157755)))) + (let ((__tmp157756 (lambda () - (let ((__tmp297918 - (path-directory _output-bin292782_))) + (let ((__tmp157757 + (path-directory _output-bin157189_))) (declare (not safe)) - (create-directory* __tmp297918))))) + (create-directory*__0 __tmp157757))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp297917)) - (let ((__tmp297919 + (with-lock gxc#+driver-mutex+ __tmp157756)) + (let ((__tmp157758 (lambda () - (let ((__tmp297920 - (let ((__tmp297921 - (let ((__tmp297922 + (let ((__tmp157759 + (let ((__tmp157760 + (let ((__tmp157761 (let () (declare (not safe)) - (cons _bin-scm292794_ + (cons _bin-scm157201_ '())))) (declare (not safe)) (foldr1 cons - __tmp297922 - _deps292807_)))) + __tmp157761 + _deps157214_)))) (declare (not safe)) (foldr1 cons - __tmp297921 - _runtime292788_)))) + __tmp157760 + _runtime157195_)))) (declare (not safe)) - (_generate-stub292772_ __tmp297920))))) + (_generate-stub157179_ __tmp157759))))) (declare (not safe)) (gxc#with-output-to-scheme-file - _output-scm292781_ - __tmp297919)) + _output-scm157188_ + __tmp157758)) (if (gxc#current-compile-invoke-gsc) (begin - (let ((__tmp297928 + (let ((__tmp157767 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp297923 - (let ((__tmp297924 - (let ((__tmp297925 - (let ((__tmp297926 - (let ((__tmp297927 + (__tmp157762 + (let ((__tmp157763 + (let ((__tmp157764 + (let ((__tmp157765 + (let ((__tmp157766 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _output-scm292781_ '())))) + (cons _output-scm157188_ '())))) (declare (not safe)) - (foldr1 cons __tmp297927 _gsc-link-opts292829_)))) + (foldr1 cons __tmp157766 _gsc-link-opts157236_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _output-c_292815_ - __tmp297926)))) + (cons _output-c_157222_ + __tmp157765)))) (declare (not safe)) - (cons '"-o" __tmp297925)))) + (cons '"-o" __tmp157764)))) (declare (not safe)) - (cons '"-link" __tmp297924)))) + (cons '"-link" __tmp157763)))) (declare (not safe)) - (gxc#invoke__% - '#f - absent-value - absent-value - __tmp297928 - __tmp297923)) - (let ((__tmp297934 + (gxc#invoke __tmp157767 __tmp157762)) + (let ((__tmp157773 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp297929 - (let ((__tmp297930 - (let ((__tmp297931 - (let ((__tmp297932 - (let ((__tmp297933 + (__tmp157768 + (let ((__tmp157769 + (let ((__tmp157770 + (let ((__tmp157771 + (let ((__tmp157772 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _output-c_292815_ '())))) + (cons _output-c_157222_ '())))) (declare (not safe)) - (cons _output-c292811_ __tmp297933)))) + (cons _output-c157218_ __tmp157772)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp297932 - _gsc-static-opts292823_)))) + __tmp157771 + _gsc-static-opts157230_)))) (declare (not safe)) (foldr1 cons - __tmp297931 - _gsc-cc-opts292821_)))) + __tmp157770 + _gsc-cc-opts157228_)))) (declare (not safe)) - (cons '"-obj" __tmp297930)))) + (cons '"-obj" __tmp157769)))) (declare (not safe)) - (gxc#invoke__% - '#f - absent-value - absent-value - __tmp297934 - __tmp297929)) - (let ((__tmp297944 + (gxc#invoke __tmp157773 __tmp157768)) + (let ((__tmp157783 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp297935 - (let ((__tmp297936 - (let ((__tmp297937 - (let ((__tmp297938 - (let ((__tmp297939 - (let ((__tmp297940 + (__tmp157774 + (let ((__tmp157775 + (let ((__tmp157776 + (let ((__tmp157777 + (let ((__tmp157778 + (let ((__tmp157779 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp297941 - (let ((__tmp297942 - (let ((__tmp297943 + (let ((__tmp157780 + (let ((__tmp157781 + (let ((__tmp157782 (let () (declare (not safe)) (cons '"-lgambit" - _default-ld-options292833_)))) + _default-ld-options157240_)))) (declare (not safe)) - (cons _gerbil-libdir292786_ - __tmp297943)))) + (cons _gerbil-libdir157193_ + __tmp157782)))) (declare (not safe)) - (cons '"-L" __tmp297942)))) + (cons '"-L" __tmp157781)))) (declare (not safe)) - (cons _rpath292831_ __tmp297941)))) + (cons _rpath157238_ __tmp157780)))) (declare (not safe)) - (foldr1 cons __tmp297940 _output-ld-opts292825_)))) + (foldr1 cons __tmp157779 _output-ld-opts157232_)))) (declare (not safe)) - (cons _output-o_292817_ __tmp297939)))) + (cons _output-o_157224_ __tmp157778)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _output-o292813_ - __tmp297938)))) + (cons _output-o157220_ + __tmp157777)))) (declare (not safe)) - (cons _output-bin292782_ - __tmp297937)))) + (cons _output-bin157189_ + __tmp157776)))) (declare (not safe)) - (cons '"-o" __tmp297936)))) + (cons '"-o" __tmp157775)))) (declare (not safe)) - (gxc#invoke__% - '#f - absent-value - absent-value - __tmp297944 - __tmp297935))) + (gxc#invoke __tmp157783 __tmp157774))) '#!void))))) - (let* ((_output-bin292776_ + (let* ((_output-bin157183_ (let () (declare (not safe)) - (gxc#compile-exe-output-file _ctx292768_ _opts292769_))) - (_output-scm292778_ - (string-append _output-bin292776_ '"__exe.scm"))) + (gxc#compile-exe-output-file _ctx157175_ _opts157176_))) + (_output-scm157185_ + (string-append _output-bin157183_ '"__exe.scm"))) (let () (declare (not safe)) - (_compile-stub292774_ _output-scm292778_ _output-bin292776_)) + (_compile-stub157181_ _output-scm157185_ _output-bin157183_)) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm292778_)))))) + (delete-file _output-scm157185_)))))) (define gxc#find-export-binding - (lambda (_ctx292718_ _id292719_) - (let ((_$e292765_ - (let ((__tmp297946 - (lambda (_e292720292722_) - (let* ((_g292724292734_ _e292720292722_) - (_else292726292742_ (lambda () '#f)) - (_K292728292746_ (lambda () '#t))) + (lambda (_ctx157125_ _id157126_) + (let ((_$e157172_ + (let ((__tmp157785 + (lambda (_e157127157129_) + (let* ((_g157131157141_ _e157127157129_) + (_else157133157149_ (lambda () '#f)) + (_K157135157153_ (lambda () '#t))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _g292724292734_ + _g157131157141_ 'gx#module-export::t)) - (let* ((_e292729292749_ + (let* ((_e157136157156_ (let () (declare (not safe)) (##unchecked-structure-ref - _g292724292734_ + _g157131157141_ '1 gx#module-export::t '#f))) - (_e292730292752_ + (_e157137157159_ (let () (declare (not safe)) (##unchecked-structure-ref - _g292724292734_ + _g157131157141_ '2 gx#module-export::t '#f))) - (_e292731292755_ + (_e157138157162_ (let () (declare (not safe)) (##unchecked-structure-ref - _g292724292734_ + _g157131157141_ '3 gx#module-export::t '#f)))) (if (let () (declare (not safe)) - (##eq? _e292731292755_ '0)) - (let ((_e292732292758_ + (##eq? _e157138157162_ '0)) + (let ((_e157139157165_ (let () (declare (not safe)) (##unchecked-structure-ref - _g292724292734_ + _g157131157141_ '4 gx#module-export::t '#f)))) - (if ((lambda (_g292760292762_) + (if ((lambda (_g157167157169_) (let () (declare (not safe)) - (eq? _g292760292762_ - _id292719_))) - _e292732292758_) + (eq? _g157167157169_ + _id157126_))) + _e157139157165_) (let () (declare (not safe)) - (_K292728292746_)) + (_K157135157153_)) (let () (declare (not safe)) - (_else292726292742_)))) + (_else157133157149_)))) (let () (declare (not safe)) - (_else292726292742_)))) + (_else157133157149_)))) (let () (declare (not safe)) - (_else292726292742_)))))) - (__tmp297945 + (_else157133157149_)))))) + (__tmp157784 (##structure-ref - _ctx292718_ + _ctx157125_ '9 gx#module-context::t '#f))) (declare (not safe)) - (find __tmp297946 __tmp297945)))) - (if _$e292765_ + (find __tmp157785 __tmp157784)))) + (if _$e157172_ (let () (declare (not safe)) - (gx#core-resolve-module-export _$e292765_)) + (gx#core-resolve-module-export _$e157172_)) '#f)))) (define gxc#find-runtime-symbol - (lambda (_ctx292710_ _id292711_) - (let ((_$e292713_ + (lambda (_ctx157117_ _id157118_) + (let ((_$e157120_ (let () (declare (not safe)) - (gxc#find-export-binding _ctx292710_ _id292711_)))) - (if _$e292713_ - ((lambda (_bind292716_) + (gxc#find-export-binding _ctx157117_ _id157118_)))) + (if _$e157120_ + ((lambda (_bind157123_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind292716_ + _bind157123_ 'gx#runtime-binding::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"export is not a runtime binding" - _id292711_))) - (##structure-ref _bind292716_ '1 gx#binding::t '#f)) - _$e292713_) - (let ((__tmp297947 + _id157118_))) + (##structure-ref _bind157123_ '1 gx#binding::t '#f)) + _$e157120_) + (let ((__tmp157786 (##structure-ref - _ctx292710_ + _ctx157117_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"module does not export symbol" - __tmp297947 - _id292711_)))))) + __tmp157786 + _id157118_)))))) (define gxc#find-runtime-module-deps - (lambda (_ctx292597_) - (letrec* ((_ht292599_ - (let () (declare (not safe)) (make-table 'test: eq?))) - (_import-set-template292600_ - (lambda (_in292662_ _phi292663_) - (let ((_iphi292665_ - (fx+ _phi292663_ + (lambda (_ctx157004_) + (letrec* ((_ht157006_ + (let () (declare (not safe)) (make-hash-table-eq))) + (_import-set-template157007_ + (lambda (_in157069_ _phi157070_) + (let ((_iphi157072_ + (fx+ _phi157070_ (##direct-structure-ref - _in292662_ + _in157069_ '2 gx#import-set::t '#f))) - (_imports292666_ + (_imports157073_ (##structure-ref (##direct-structure-ref - _in292662_ + _in157069_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _lp292668_ ((_rest292670_ _imports292666_) - (_r292671_ '())) - (let* ((_rest292672292680_ _rest292670_) - (_else292674292688_ (lambda () _r292671_)) - (_K292676292698_ - (lambda (_rest292691_ _in292692_) + (let _lp157075_ ((_rest157077_ _imports157073_) + (_r157078_ '())) + (let* ((_rest157079157087_ _rest157077_) + (_else157081157095_ (lambda () _r157078_)) + (_K157083157105_ + (lambda (_rest157098_ _in157099_) (if (let () (declare (not safe)) (##structure-instance-of? - _in292692_ + _in157099_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (fxzero? _iphi292665_)) - (let ((__tmp297954 + (fxzero? _iphi157072_)) + (let ((__tmp157793 (let () (declare (not safe)) - (cons _in292692_ - _r292671_)))) + (cons _in157099_ + _r157078_)))) (declare (not safe)) - (_lp292668_ - _rest292691_ - __tmp297954)) + (_lp157075_ + _rest157098_ + __tmp157793)) (let () (declare (not safe)) - (_lp292668_ - _rest292691_ - _r292671_))) + (_lp157075_ + _rest157098_ + _r157078_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in292692_ + _in157099_ 'gx#module-import::t)) - (let ((_iphi292694_ - (fx+ _phi292663_ + (let ((_iphi157101_ + (fx+ _phi157070_ (##direct-structure-ref - _in292692_ + _in157099_ '3 gx#module-import::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _iphi292694_)) - (let ((__tmp297952 - (let ((__tmp297953 + (fxzero? _iphi157101_)) + (let ((__tmp157791 + (let ((__tmp157792 (##direct-structure-ref (##direct-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in292692_ + _in157099_ '1 gx#module-import::t '#f) @@ -1579,892 +1566,888 @@ gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp297953 _r292671_)))) + (cons __tmp157792 _r157078_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp292668_ - _rest292691_ - __tmp297952)) + (_lp157075_ + _rest157098_ + __tmp157791)) (let () (declare (not safe)) - (_lp292668_ - _rest292691_ - _r292671_)))) + (_lp157075_ + _rest157098_ + _r157078_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in292692_ + _in157099_ 'gx#import-set::t)) - (let ((_xphi292696_ - (fx+ _iphi292665_ + (let ((_xphi157103_ + (fx+ _iphi157072_ (##direct-structure-ref - _in292692_ + _in157099_ '2 gx#import-set::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _xphi292696_)) - (let ((__tmp297950 - (let ((__tmp297951 + (fxzero? _xphi157103_)) + (let ((__tmp157789 + (let ((__tmp157790 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in292692_ + _in157099_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp297951 _r292671_)))) + (cons __tmp157790 _r157078_)))) (declare (not safe)) - (_lp292668_ _rest292691_ __tmp297950)) + (_lp157075_ _rest157098_ __tmp157789)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (fxpositive? - _xphi292696_) - (let ((__tmp297948 - (let ((__tmp297949 + _xphi157103_) + (let ((__tmp157787 + (let ((__tmp157788 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_import-set-template292600_ - _in292692_ - _iphi292665_)))) + (_import-set-template157007_ + _in157099_ + _iphi157072_)))) (declare (not safe)) - (foldl1 cons _r292671_ __tmp297949)))) + (foldl1 cons _r157078_ __tmp157788)))) (declare (not safe)) - (_lp292668_ _rest292691_ __tmp297948)) + (_lp157075_ _rest157098_ __tmp157787)) (let () (declare (not safe)) - (_lp292668_ _rest292691_ _r292671_))))) + (_lp157075_ _rest157098_ _r157078_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp292668_ - _rest292691_ - _r292671_)))))))) + (_lp157075_ + _rest157098_ + _r157078_)))))))) (if (let () (declare (not safe)) - (##pair? _rest292672292680_)) - (let ((_hd292677292701_ + (##pair? _rest157079157087_)) + (let ((_hd157084157108_ (let () (declare (not safe)) - (##car _rest292672292680_))) - (_tl292678292703_ + (##car _rest157079157087_))) + (_tl157085157110_ (let () (declare (not safe)) - (##cdr _rest292672292680_)))) - (let* ((_in292706_ _hd292677292701_) - (_rest292708_ _tl292678292703_)) + (##cdr _rest157079157087_)))) + (let* ((_in157113_ _hd157084157108_) + (_rest157115_ _tl157085157110_)) (declare (not safe)) - (_K292676292698_ _rest292708_ _in292706_))) + (_K157083157105_ _rest157115_ _in157113_))) (let () (declare (not safe)) - (_else292674292688_)))))))) - (_find-deps292601_ - (lambda (_rest292608_ _deps292609_) - (let* ((_rest292610292618_ _rest292608_) - (_else292612292626_ (lambda () _deps292609_)) - (_K292614292650_ - (lambda (_rest292629_ _hd292630_) + (_else157081157095_)))))))) + (_find-deps157008_ + (lambda (_rest157015_ _deps157016_) + (let* ((_rest157017157025_ _rest157015_) + (_else157019157033_ (lambda () _deps157016_)) + (_K157021157057_ + (lambda (_rest157036_ _hd157037_) (if (let () (declare (not safe)) (##structure-instance-of? - _hd292630_ + _hd157037_ 'gx#module-context::t)) - (let ((_id292632_ + (let ((_id157039_ (##structure-ref - _hd292630_ + _hd157037_ '1 gx#expander-context::t '#f)) - (_imports292633_ + (_imports157040_ (##structure-ref - _hd292630_ + _hd157037_ '8 gx#module-context::t '#f))) (if (let () (declare (not safe)) - (table-ref - _ht292599_ - _id292632_ - '#f)) + (hash-get _ht157006_ _id157039_)) (let () (declare (not safe)) - (_find-deps292601_ - _rest292629_ - _deps292609_)) - (let ((_$e292635_ + (_find-deps157008_ + _rest157036_ + _deps157016_)) + (let ((_$e157042_ (let () (declare (not safe)) (gx#core-context-prelude__% - _hd292630_)))) - (if _$e292635_ - ((lambda (_pre292638_) - (let ((_xdeps292640_ - (let ((__tmp297967 + _hd157037_)))) + (if _$e157042_ + ((lambda (_pre157045_) + (let ((_xdeps157047_ + (let ((__tmp157806 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _pre292638_ _imports292633_)))) + (cons _pre157045_ _imports157040_)))) (declare (not safe)) - (_find-deps292601_ __tmp297967 _deps292609_)))) + (_find-deps157008_ __tmp157806 _deps157016_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (table-set! - _ht292599_ - _id292632_ - _hd292630_)) - (let ((__tmp297968 + (hash-put! + _ht157006_ + _id157039_ + _hd157037_)) + (let ((__tmp157807 (let () (declare (not safe)) - (cons _hd292630_ + (cons _hd157037_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xdeps292640_)))) + _xdeps157047_)))) (declare (not safe)) - (_find-deps292601_ _rest292629_ __tmp297968)))) + (_find-deps157008_ _rest157036_ __tmp157807)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e292635_) - (let ((_xdeps292642_ + _$e157042_) + (let ((_xdeps157049_ (let () (declare (not safe)) - (_find-deps292601_ - _imports292633_ - _deps292609_)))) + (_find-deps157008_ + _imports157040_ + _deps157016_)))) (let () (declare (not safe)) - (table-set! - _ht292599_ - _id292632_ - _hd292630_)) - (let ((__tmp297966 + (hash-put! + _ht157006_ + _id157039_ + _hd157037_)) + (let ((__tmp157805 (let () (declare (not safe)) - (cons _hd292630_ - _xdeps292642_)))) + (cons _hd157037_ + _xdeps157049_)))) (declare (not safe)) - (_find-deps292601_ - _rest292629_ - __tmp297966))))))) + (_find-deps157008_ + _rest157036_ + __tmp157805))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _hd292630_ + _hd157037_ 'gx#prelude-context::t)) - (let ((_id292644_ + (let ((_id157051_ (##structure-ref - _hd292630_ + _hd157037_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) - (table-ref - _ht292599_ - _id292644_ - '#f)) + (hash-get + _ht157006_ + _id157051_)) (let () (declare (not safe)) - (_find-deps292601_ - _rest292629_ - _deps292609_)) - (let ((_xdeps292646_ - (let ((__tmp297964 + (_find-deps157008_ + _rest157036_ + _deps157016_)) + (let ((_xdeps157053_ + (let ((__tmp157803 (##structure-ref - _hd292630_ + _hd157037_ '7 gx#prelude-context::t '#f))) (declare (not safe)) - (_find-deps292601_ - __tmp297964 - _deps292609_)))) + (_find-deps157008_ + __tmp157803 + _deps157016_)))) (if (let () (declare (not safe)) - (table-ref - _ht292599_ - _id292644_ - '#f)) + (hash-get + _ht157006_ + _id157051_)) (let () (declare (not safe)) - (_find-deps292601_ - _rest292629_ - _xdeps292646_)) + (_find-deps157008_ + _rest157036_ + _xdeps157053_)) (begin (let () (declare (not safe)) - (table-set! - _ht292599_ - _id292644_ - _hd292630_)) - (let ((__tmp297965 + (hash-put! + _ht157006_ + _id157051_ + _hd157037_)) + (let ((__tmp157804 (let () (declare (not safe)) - (cons _hd292630_ + (cons _hd157037_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xdeps292646_)))) + _xdeps157053_)))) (declare (not safe)) - (_find-deps292601_ _rest292629_ __tmp297965))))))) + (_find-deps157008_ _rest157036_ __tmp157804))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd292630_ + _hd157037_ 'gx#module-import::t)) - (if (let ((__tmp297963 + (if (let ((__tmp157802 (##direct-structure-ref - _hd292630_ + _hd157037_ '3 gx#module-import::t '#f))) (declare (not safe)) - (fxzero? __tmp297963)) - (let ((__tmp297961 - (let ((__tmp297962 + (fxzero? __tmp157802)) + (let ((__tmp157800 + (let ((__tmp157801 (##direct-structure-ref - _hd292630_ + _hd157037_ '1 gx#module-import::t '#f))) (declare (not safe)) - (cons __tmp297962 - _rest292629_)))) + (cons __tmp157801 + _rest157036_)))) (declare (not safe)) - (_find-deps292601_ - __tmp297961 - _deps292609_)) + (_find-deps157008_ + __tmp157800 + _deps157016_)) (let () (declare (not safe)) - (_find-deps292601_ - _rest292629_ - _deps292609_))) + (_find-deps157008_ + _rest157036_ + _deps157016_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd292630_ + _hd157037_ 'gx#module-export::t)) - (let ((__tmp297959 - (let ((__tmp297960 + (let ((__tmp157798 + (let ((__tmp157799 (##direct-structure-ref - _hd292630_ + _hd157037_ '1 gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp297960 - _rest292629_)))) + (cons __tmp157799 + _rest157036_)))) (declare (not safe)) - (_find-deps292601_ - __tmp297959 - _deps292609_)) + (_find-deps157008_ + __tmp157798 + _deps157016_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd292630_ + _hd157037_ 'gx#import-set::t)) - (if (let ((__tmp297958 + (if (let ((__tmp157797 (##direct-structure-ref - _hd292630_ + _hd157037_ '2 gx#import-set::t '#f))) (declare (not safe)) - (fxzero? __tmp297958)) - (let ((__tmp297956 - (let ((__tmp297957 + (fxzero? __tmp157797)) + (let ((__tmp157795 + (let ((__tmp157796 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _hd292630_ + _hd157037_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp297957 _rest292629_)))) + (cons __tmp157796 _rest157036_)))) (declare (not safe)) - (_find-deps292601_ __tmp297956 _deps292609_)) + (_find-deps157008_ __tmp157795 _deps157016_)) (if (fxpositive? (##direct-structure-ref - _hd292630_ + _hd157037_ '2 gx#import-set::t '#f)) - (let* ((_xdeps292648_ + (let* ((_xdeps157055_ (let () (declare (not safe)) - (_import-set-template292600_ _hd292630_ '0))) - (__tmp297955 + (_import-set-template157007_ _hd157037_ '0))) + (__tmp157794 (let () (declare (not safe)) - (foldl1 cons _rest292629_ _xdeps292648_)))) + (foldl1 cons _rest157036_ _xdeps157055_)))) (declare (not safe)) - (_find-deps292601_ __tmp297955 _deps292609_)) + (_find-deps157008_ __tmp157794 _deps157016_)) (let () (declare (not safe)) - (_find-deps292601_ _rest292629_ _deps292609_)))) + (_find-deps157008_ _rest157036_ _deps157016_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (error '"Unexpected module import" - _hd292630_))))))))) + (let () + (declare (not safe)) + (error '"Unexpected module import" + _hd157037_)))))))))) (if (let () (declare (not safe)) - (##pair? _rest292610292618_)) - (let ((_hd292615292653_ + (##pair? _rest157017157025_)) + (let ((_hd157022157060_ (let () (declare (not safe)) - (##car _rest292610292618_))) - (_tl292616292655_ + (##car _rest157017157025_))) + (_tl157023157062_ (let () (declare (not safe)) - (##cdr _rest292610292618_)))) - (let* ((_hd292658_ _hd292615292653_) - (_rest292660_ _tl292616292655_)) + (##cdr _rest157017157025_)))) + (let* ((_hd157065_ _hd157022157060_) + (_rest157067_ _tl157023157062_)) (declare (not safe)) - (_K292614292650_ _rest292660_ _hd292658_))) + (_K157021157057_ _rest157067_ _hd157065_))) (let () (declare (not safe)) - (_else292612292626_))))))) - (reverse (let ((__tmp297969 - (let ((__tmp297970 - (let ((_$e292603_ + (_else157019157033_))))))) + (reverse (let ((__tmp157808 + (let ((__tmp157809 + (let ((_$e157010_ (let () (declare (not safe)) (gx#core-context-prelude__% - _ctx292597_)))) - (if _$e292603_ - ((lambda (_pre292606_) - (let ((__tmp297971 + _ctx157004_)))) + (if _$e157010_ + ((lambda (_pre157013_) + (let ((__tmp157810 (##structure-ref - _ctx292597_ + _ctx157004_ '8 gx#module-context::t '#f))) (declare (not safe)) - (cons _pre292606_ __tmp297971))) - _$e292603_) + (cons _pre157013_ __tmp157810))) + _$e157010_) (##structure-ref - _ctx292597_ + _ctx157004_ '8 gx#module-context::t '#f))))) (declare (not safe)) - (_find-deps292601_ __tmp297970 '())))) + (_find-deps157008_ __tmp157809 '())))) (declare (not safe)) - (filter gx#expander-context-id __tmp297969)))))) + (filter gx#expander-context-id __tmp157808)))))) (define gxc#find-static-module-file - (lambda (_ctx292528_) - (let* ((_context-id292530_ + (lambda (_ctx156935_) + (let* ((_context-id156937_ (if (let () (declare (not safe)) (##structure-instance-of? - _ctx292528_ + _ctx156935_ 'gx#module-context::t)) - (##structure-ref _ctx292528_ '1 gx#expander-context::t '#f) - (string->symbol _ctx292528_))) - (_scm292532_ + (##structure-ref _ctx156935_ '1 gx#expander-context::t '#f) + (string->symbol _ctx156935_))) + (_scm156939_ (string-append (let () (declare (not safe)) - (gxc#static-module-name _context-id292530_)) + (gxc#static-module-name _context-id156937_)) '".scm")) - (_dirs292534_ (gx#current-expander-module-library-path)) - (_dirs292540_ - (let ((_user-libpath292536_ (getenv '"GERBIL_PATH" '#f))) - (if _user-libpath292536_ - (let ((_user-libpath292538_ - (path-expand '"lib" _user-libpath292536_))) - (if (member _user-libpath292538_ _dirs292534_) - _dirs292534_ + (_dirs156941_ (gx#current-expander-module-library-path)) + (_dirs156947_ + (let ((_user-libpath156943_ (getenv '"GERBIL_PATH" '#f))) + (if _user-libpath156943_ + (let ((_user-libpath156945_ + (path-expand '"lib" _user-libpath156943_))) + (if (member _user-libpath156945_ _dirs156941_) + _dirs156941_ (let () (declare (not safe)) - (cons _user-libpath292538_ _dirs292534_)))) - _dirs292534_))) - (_dirs292549_ - (let ((_$e292542_ (gxc#current-compile-output-dir))) - (if _$e292542_ - ((lambda (_g292544292546_) + (cons _user-libpath156945_ _dirs156941_)))) + _dirs156941_))) + (_dirs156956_ + (let ((_$e156949_ (gxc#current-compile-output-dir))) + (if _$e156949_ + ((lambda (_g156951156953_) (let () (declare (not safe)) - (cons _g292544292546_ _dirs292540_))) - _$e292542_) - _dirs292540_))) - (_dirs292555_ - (map (lambda (_g292550292552_) - (path-expand '"static" _g292550292552_)) - _dirs292549_))) - (let _lp292558_ ((_rest292560_ _dirs292555_)) - (let* ((_rest292561292569_ _rest292560_) - (_else292563292577_ + (cons _g156951156953_ _dirs156947_))) + _$e156949_) + _dirs156947_))) + (_dirs156962_ + (map (lambda (_g156957156959_) + (path-expand '"static" _g156957156959_)) + _dirs156956_))) + (let _lp156965_ ((_rest156967_ _dirs156962_)) + (let* ((_rest156968156976_ _rest156967_) + (_else156970156984_ (lambda () - (let ((__tmp297972 + (let ((__tmp157811 (##structure-ref - _ctx292528_ + _ctx156935_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"cannot find static module" - __tmp297972 - _scm292532_)))) - (_K292565292585_ - (lambda (_rest292580_ _dir292581_) - (let ((_path292583_ - (path-expand _scm292532_ _dir292581_))) - (if (file-exists? _path292583_) - _path292583_ + __tmp157811 + _scm156939_)))) + (_K156972156992_ + (lambda (_rest156987_ _dir156988_) + (let ((_path156990_ + (path-expand _scm156939_ _dir156988_))) + (if (file-exists? _path156990_) + _path156990_ (let () (declare (not safe)) - (_lp292558_ _rest292580_))))))) - (if (let () (declare (not safe)) (##pair? _rest292561292569_)) - (let ((_hd292566292588_ + (_lp156965_ _rest156987_))))))) + (if (let () (declare (not safe)) (##pair? _rest156968156976_)) + (let ((_hd156973156995_ (let () (declare (not safe)) - (##car _rest292561292569_))) - (_tl292567292590_ + (##car _rest156968156976_))) + (_tl156974156997_ (let () (declare (not safe)) - (##cdr _rest292561292569_)))) - (let* ((_dir292593_ _hd292566292588_) - (_rest292595_ _tl292567292590_)) + (##cdr _rest156968156976_)))) + (let* ((_dir157000_ _hd156973156995_) + (_rest157002_ _tl156974156997_)) (declare (not safe)) - (_K292565292585_ _rest292595_ _dir292593_))) - (let () (declare (not safe)) (_else292563292577_)))))))) + (_K156972156992_ _rest157002_ _dir157000_))) + (let () (declare (not safe)) (_else156970156984_)))))))) (define gxc#file-empty? - (lambda (_path292526_) - (let ((__tmp297973 (file-info-size (file-info _path292526_ '#t)))) + (lambda (_path156933_) + (let ((__tmp157812 (file-info-size (file-info _path156933_ '#t)))) (declare (not safe)) - (zero? __tmp297973)))) + (zero? __tmp157812)))) (define gxc#compile-top-module - (lambda (_ctx292515_) - (let ((__tmp297977 + (lambda (_ctx156922_) + (let ((__tmp157816 (lambda () - (let ((__tmp297978 + (let ((__tmp157817 (##structure-ref - _ctx292515_ + _ctx156922_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#verbose '"compile " __tmp297978)) + (gxc#verbose '"compile " __tmp157817)) (if (gxc#current-compile-optimize) - (let ((__tmp297979 + (let ((__tmp157818 (lambda () (let () (declare (not safe)) - (gxc#optimize! _ctx292515_))))) + (gxc#optimize! _ctx156922_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp297979)) + (with-lock gxc#+driver-mutex+ __tmp157818)) '#!void) (let () (declare (not safe)) - (gxc#collect-bindings _ctx292515_)) - (if (let ((__tmp297982 + (gxc#collect-bindings _ctx156922_)) + (if (let ((__tmp157821 (let () (declare (not safe)) - (gxc#lift-nested-modules _ctx292515_)))) + (gxc#lift-nested-modules _ctx156922_)))) (declare (not safe)) - (null? __tmp297982)) - (let* ((_thr1292520_ - (let ((__tmp297980 + (null? __tmp157821)) + (let* ((_thr1156927_ + (let ((__tmp157819 (lambda () (let () (declare (not safe)) (gxc#compile-runtime-code - _ctx292515_))))) + _ctx156922_))))) (declare (not safe)) - (spawn __tmp297980))) - (_thr2292523_ - (let ((__tmp297981 + (spawn __tmp157819))) + (_thr2156930_ + (let ((__tmp157820 (lambda () (let () (declare (not safe)) - (gxc#compile-meta-code _ctx292515_))))) + (gxc#compile-meta-code _ctx156922_))))) (declare (not safe)) - (spawn __tmp297981)))) - (let () (declare (not safe)) (gxc#join! _thr1292520_)) - (let () (declare (not safe)) (gxc#join! _thr2292523_))) + (spawn __tmp157820)))) + (let () (declare (not safe)) (gxc#join! _thr1156927_)) + (let () (declare (not safe)) (gxc#join! _thr2156930_))) (begin (let () (declare (not safe)) - (gxc#compile-runtime-code _ctx292515_)) + (gxc#compile-runtime-code _ctx156922_)) (let () (declare (not safe)) - (gxc#compile-meta-code _ctx292515_)))) + (gxc#compile-meta-code _ctx156922_)))) (if (and (gxc#current-compile-optimize) (gxc#current-compile-generate-ssxi)) (let () (declare (not safe)) - (gxc#compile-ssxi-code _ctx292515_)) + (gxc#compile-ssxi-code _ctx156922_)) '#!void))) - (__tmp297976 - (let ((__obj297781 + (__tmp157815 + (let ((__obj157620 (let () (declare (not safe)) (##structure gxc#symbol-table::t '#f '#f)))) - (gxc#symbol-table:::init! __obj297781) - __obj297781)) - (__tmp297975 - (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp297974 (let () (declare (not safe)) (make-table)))) + (gxc#symbol-table:::init! __obj157620) + __obj157620)) + (__tmp157814 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp157813 (let () (declare (not safe)) (make-hash-table)))) (declare (not safe)) (call-with-parameters - __tmp297977 + __tmp157816 gx#current-expander-context - _ctx292515_ + _ctx156922_ gx#current-expander-phi '0 gx#current-expander-marks '() gxc#current-compile-symbol-table - __tmp297976 + __tmp157815 gxc#current-compile-runtime-sections - __tmp297975 + __tmp157814 gxc#current-compile-runtime-names - __tmp297974)))) + __tmp157813)))) (define gxc#collect-bindings - (lambda (_ctx292513_) - (let ((__tmp297983 - (##structure-ref _ctx292513_ '11 gx#module-context::t '#f))) + (lambda (_ctx156920_) + (let ((__tmp157822 + (##structure-ref _ctx156920_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-collect-bindings __tmp297983)))) + (gxc#apply-collect-bindings __tmp157822)))) (define gxc#compile-runtime-code - (lambda (_ctx292459_) - (letrec ((_compile1292461_ - (lambda (_ctx292502_) - (let* ((_code292504_ + (lambda (_ctx156866_) + (letrec ((_compile1156868_ + (lambda (_ctx156909_) + (let* ((_code156911_ (##structure-ref - _ctx292502_ + _ctx156909_ '11 gx#module-context::t '#f)) - (_rt292508_ + (_rt156915_ (if (let () (declare (not safe)) - (gxc#apply-find-runtime-code _code292504_)) - (let ((_idstr292506_ - (let ((__tmp297984 + (gxc#apply-find-runtime-code _code156911_)) + (let ((_idstr156913_ + (let ((__tmp157823 (##structure-ref - _ctx292502_ + _ctx156909_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp297984)))) - (string-append _idstr292506_ '"__0")) + __tmp157823)))) + (string-append _idstr156913_ '"__0")) '#f))) - (if _rt292508_ + (if _rt156915_ (begin - (let ((__tmp297985 + (let ((__tmp157824 (gxc#current-compile-runtime-sections))) (declare (not safe)) - (table-set! __tmp297985 _ctx292502_ _rt292508_)) + (hash-put! __tmp157824 _ctx156909_ _rt156915_)) (let () (declare (not safe)) - (_generate-runtime-code292463_ - _ctx292502_ - _code292504_))) - (let ((_path292511_ + (_generate-runtime-code156870_ + _ctx156909_ + _code156911_))) + (let ((_path156918_ (let () (declare (not safe)) (gxc#compile-static-output-file - _ctx292502_)))) + _ctx156909_)))) (declare (not safe)) (gxc#with-output-to-scheme-file - _path292511_ + _path156918_ void))) (let () (declare (not safe)) - (_generate-loader-code292464_ - _ctx292502_ - _code292504_ - _rt292508_))))) - (_context-timestamp292462_ - (lambda (_ctx292500_) + (_generate-loader-code156871_ + _ctx156909_ + _code156911_ + _rt156915_))))) + (_context-timestamp156869_ + (lambda (_ctx156907_) (string->symbol (string-append (symbol->string (##structure-ref - _ctx292500_ + _ctx156907_ '1 gx#expander-context::t '#f)) '"::timestamp")))) - (_generate-runtime-code292463_ - (lambda (_ctx292482_ _code292483_) - (let* ((_lifts292485_ + (_generate-runtime-code156870_ + (lambda (_ctx156889_ _code156890_) + (let* ((_lifts156892_ (let () (declare (not safe)) (box '()))) - (_runtime-code292488_ - (let ((__tmp297988 + (_runtime-code156895_ + (let ((__tmp157827 (lambda () (let () (declare (not safe)) (gxc#apply-generate-runtime - _code292483_)))) - (__tmp297987 + _code156890_)))) + (__tmp157826 (let () (declare (not safe)) - (make-table 'test: eq?))) - (__tmp297986 + (make-hash-table-eq))) + (__tmp157825 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (call-with-parameters - __tmp297988 + __tmp157827 gx#current-expander-context - _ctx292482_ + _ctx156889_ gx#current-expander-phi '0 gxc#current-compile-lift - _lifts292485_ + _lifts156892_ gxc#current-compile-marks - __tmp297987 + __tmp157826 gxc#current-compile-identifiers - __tmp297986))) - (_runtime-code292490_ - (if (let ((__tmp297992 (unbox _lifts292485_))) + __tmp157825))) + (_runtime-code156897_ + (if (let ((__tmp157831 (unbox _lifts156892_))) (declare (not safe)) - (null? __tmp297992)) - _runtime-code292488_ - (let ((__tmp297989 - (let ((__tmp297991 + (null? __tmp157831)) + _runtime-code156895_ + (let ((__tmp157828 + (let ((__tmp157830 (let () (declare (not safe)) - (cons _runtime-code292488_ + (cons _runtime-code156895_ '()))) - (__tmp297990 - (reverse (unbox _lifts292485_)))) + (__tmp157829 + (reverse (unbox _lifts156892_)))) (declare (not safe)) (foldr1 cons - __tmp297991 - __tmp297990)))) + __tmp157830 + __tmp157829)))) (declare (not safe)) - (cons 'begin __tmp297989)))) - (_runtime-code292492_ - (let ((__tmp297993 - (let ((__tmp297995 - (let ((__tmp297996 - (let ((__tmp297999 + (cons 'begin __tmp157828)))) + (_runtime-code156899_ + (let ((__tmp157832 + (let ((__tmp157834 + (let ((__tmp157835 + (let ((__tmp157838 (let () (declare (not safe)) - (_context-timestamp292462_ - _ctx292482_))) - (__tmp297997 - (let ((__tmp297998 + (_context-timestamp156869_ + _ctx156889_))) + (__tmp157836 + (let ((__tmp157837 (gxc#current-compile-timestamp))) (declare (not safe)) - (cons __tmp297998 + (cons __tmp157837 '())))) (declare (not safe)) - (cons __tmp297999 - __tmp297997)))) + (cons __tmp157838 + __tmp157836)))) (declare (not safe)) - (cons 'define __tmp297996))) - (__tmp297994 + (cons 'define __tmp157835))) + (__tmp157833 (let () (declare (not safe)) - (cons _runtime-code292490_ '())))) + (cons _runtime-code156897_ '())))) (declare (not safe)) - (cons __tmp297995 __tmp297994)))) + (cons __tmp157834 __tmp157833)))) (declare (not safe)) - (cons 'begin __tmp297993))) - (_scm0292494_ + (cons 'begin __tmp157832))) + (_scm0156901_ (let () (declare (not safe)) (gxc#compile-output-file - _ctx292482_ + _ctx156889_ '0 '".scm")))) - (let ((_scms292497_ + (let ((_scms156904_ (let () (declare (not safe)) - (gxc#compile-static-output-file _ctx292482_)))) - (let ((__tmp298000 + (gxc#compile-static-output-file _ctx156889_)))) + (let ((__tmp157839 (lambda () (let () (declare (not safe)) (gxc#compile-scm-file__0 - _scm0292494_ - _runtime-code292492_))))) + _scm0156901_ + _runtime-code156899_))))) (declare (not safe)) (call-with-parameters - __tmp298000 + __tmp157839 gxc#current-compile-keep-scm '#t)) - (if (file-exists? _scms292497_) - (delete-file _scms292497_) + (if (file-exists? _scms156904_) + (delete-file _scms156904_) '#!void) (let () (declare (not safe)) (gxc#verbose '"copy static module " - _scm0292494_ + _scm0156901_ '" => " - _scms292497_)) - (copy-file _scm0292494_ _scms292497_) + _scms156904_)) + (copy-file _scm0156901_ _scms156904_) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _scm0292494_)))))) - (_generate-loader-code292464_ - (lambda (_ctx292471_ _code292472_ _rt292473_) - (let* ((_loader-code292476_ - (let ((__tmp298001 + (delete-file _scm0156901_)))))) + (_generate-loader-code156871_ + (lambda (_ctx156878_ _code156879_ _rt156880_) + (let* ((_loader-code156883_ + (let ((__tmp157840 (lambda () (let () (declare (not safe)) (gxc#apply-generate-loader - _code292472_))))) + _code156879_))))) (declare (not safe)) (call-with-parameters - __tmp298001 + __tmp157840 gx#current-expander-context - _ctx292471_))) - (_loader-code292478_ - (if _rt292473_ - (let ((__tmp298002 - (let ((__tmp298003 - (let ((__tmp298004 - (let ((__tmp298005 + _ctx156878_))) + (_loader-code156885_ + (if _rt156880_ + (let ((__tmp157841 + (let ((__tmp157842 + (let ((__tmp157843 + (let ((__tmp157844 (let () (declare (not safe)) - (cons _rt292473_ + (cons _rt156880_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons 'load-module __tmp298005)))) + (cons 'load-module __tmp157844)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp298004 '())))) + (cons __tmp157843 '())))) (declare (not safe)) - (cons _loader-code292476_ - __tmp298003)))) + (cons _loader-code156883_ + __tmp157842)))) (declare (not safe)) - (cons 'begin __tmp298002)) - _loader-code292476_))) - (let ((__tmp298006 + (cons 'begin __tmp157841)) + _loader-code156883_))) + (let ((__tmp157845 (lambda () - (let ((__tmp298007 + (let ((__tmp157846 (let () (declare (not safe)) (gxc#compile-output-file - _ctx292471_ + _ctx156878_ 'rt '".scm")))) (declare (not safe)) (gxc#compile-scm-file__0 - __tmp298007 - _loader-code292478_))))) + __tmp157846 + _loader-code156885_))))) (declare (not safe)) (call-with-parameters - __tmp298006 + __tmp157845 gxc#current-compile-gsc-options '#f)))))) - (let ((_all-modules292466_ - (let ((__tmp298008 + (let ((_all-modules156873_ + (let ((__tmp157847 (let () (declare (not safe)) - (gxc#lift-nested-modules _ctx292459_)))) + (gxc#lift-nested-modules _ctx156866_)))) (declare (not safe)) - (cons _ctx292459_ __tmp298008)))) + (cons _ctx156866_ __tmp157847)))) (for-each - (lambda (_ctx292468_) - (let ((__tmp298009 + (lambda (_ctx156875_) + (let ((__tmp157848 (lambda () (let () (declare (not safe)) - (_compile1292461_ _ctx292468_))))) + (_compile1156868_ _ctx156875_))))) (declare (not safe)) (call-with-parameters - __tmp298009 + __tmp157848 gxc#current-compile-decls '()))) - _all-modules292466_))))) + _all-modules156873_))))) (define gxc#compile-meta-code - (lambda (_ctx292356_) - (letrec ((_compile-ssi292358_ - (lambda (_code292429_) - (let* ((_path292431_ + (lambda (_ctx156763_) + (letrec ((_compile-ssi156765_ + (lambda (_code156836_) + (let* ((_path156838_ (let () (declare (not safe)) (gxc#compile-output-file - _ctx292356_ + _ctx156763_ '#f '".ssi"))) - (_prelude292442_ - (let* ((_super292433_ + (_prelude156849_ + (let* ((_super156840_ (##structure-ref - _ctx292356_ + _ctx156763_ '3 gx#phi-context::t '#f)) - (_$e292435_ + (_$e156842_ (##structure-ref - _super292433_ + _super156840_ '1 gx#expander-context::t '#f))) - (if _$e292435_ - ((lambda (_g292437292439_) + (if _$e156842_ + ((lambda (_g156844156846_) (let () (declare (not safe)) - (make-symbol__1 '":" _g292437292439_))) - _$e292435_) + (make-symbol__1 '":" _g156844156846_))) + _$e156842_) ':))) - (_ns292444_ + (_ns156851_ (##structure-ref - _ctx292356_ + _ctx156763_ '6 gx#module-context::t '#f)) - (_idstr292446_ + (_idstr156853_ (symbol->string (##structure-ref - _ctx292356_ + _ctx156763_ '1 gx#expander-context::t '#f))) - (_pkg292453_ - (let ((_$e292448_ + (_pkg156860_ + (let ((_$e156855_ (let () (declare (not safe)) - (string-rindex _idstr292446_ '#\/)))) - (if _$e292448_ - ((lambda (_x292451_) + (string-rindex__0 _idstr156853_ '#\/)))) + (if _$e156855_ + ((lambda (_x156858_) (string->symbol - (substring _idstr292446_ '0 _x292451_))) - _$e292448_) + (substring _idstr156853_ '0 _x156858_))) + _$e156855_) '#f))) - (_rt292455_ - (let ((__tmp298010 + (_rt156862_ + (let ((__tmp157849 (gxc#current-compile-runtime-sections))) (declare (not safe)) - (table-ref __tmp298010 _ctx292356_ '#f)))) + (hash-get __tmp157849 _ctx156763_)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _path292431_)) - (let ((__tmp298011 + (gxc#verbose '"compile " _path156838_)) + (let ((__tmp157850 (lambda () (let () (declare (not safe)) - (displayln '"prelude:" '" " _prelude292442_)) - (if _pkg292453_ + (displayln '"prelude:" '" " _prelude156849_)) + (if _pkg156860_ (let () (declare (not safe)) - (displayln '"package:" '" " _pkg292453_)) + (displayln '"package:" '" " _pkg156860_)) '#!void) (let () (declare (not safe)) - (displayln '"namespace:" '" " _ns292444_)) + (displayln '"namespace:" '" " _ns156851_)) (newline) - (pretty-print _code292429_) - (if _rt292455_ + (pretty-print _code156836_) + (if _rt156862_ (pretty-print - (let ((__tmp298012 - (let ((__tmp298016 - (let ((__tmp298017 + (let ((__tmp157851 + (let ((__tmp157855 + (let ((__tmp157856 (let () (declare (not safe)) (cons 'load-module @@ -2472,1095 +2455,1098 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp298017))) - (__tmp298013 - (let ((__tmp298014 - (let ((__tmp298015 + (cons '%#ref __tmp157856))) + (__tmp157852 + (let ((__tmp157853 + (let ((__tmp157854 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _rt292455_ '())))) + (cons _rt156862_ '())))) (declare (not safe)) - (cons '%#quote __tmp298015)))) + (cons '%#quote __tmp157854)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp298014 '())))) + (cons __tmp157853 '())))) (declare (not safe)) - (cons __tmp298016 __tmp298013)))) + (cons __tmp157855 __tmp157852)))) (declare (not safe)) - (cons '%#call __tmp298012))) + (cons '%#call __tmp157851))) '#!void)))) (declare (not safe)) (gxc#with-output-to-scheme-file - _path292431_ - __tmp298011))))) - (_compile-phi292359_ - (lambda (_part292369_) - (let* ((_part292370292383_ _part292369_) - (_E292372292387_ + _path156838_ + __tmp157850))))) + (_compile-phi156766_ + (lambda (_part156776_) + (let* ((_part156777156790_ _part156776_) + (_E156779156794_ (lambda () - (error '"No clause matching" - _part292370292383_))) - (_K292373292398_ - (lambda (_code292390_ - _n292391_ - _phi292392_ - _phi-ctx292393_) - (let* ((_code292396_ - (let ((__tmp298018 + (let () + (declare (not safe)) + (error '"No clause matching" + _part156777156790_)))) + (_K156780156805_ + (lambda (_code156797_ + _n156798_ + _phi156799_ + _phi-ctx156800_) + (let* ((_code156803_ + (let ((__tmp157857 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-phi - _code292390_))))) + _code156797_))))) (declare (not safe)) (call-with-parameters - __tmp298018 + __tmp157857 gx#current-expander-context - _phi-ctx292393_ + _phi-ctx156800_ gx#current-expander-phi - _phi292392_))) - (__tmp298019 + _phi156799_))) + (__tmp157858 (let () (declare (not safe)) (gxc#compile-output-file - _ctx292356_ - _n292391_ + _ctx156763_ + _n156798_ '".scm")))) (declare (not safe)) (gxc#compile-scm-file__% - __tmp298019 - _code292396_ + __tmp157858 + _code156803_ '#t))))) (if (let () (declare (not safe)) - (##pair? _part292370292383_)) - (let ((_hd292374292401_ + (##pair? _part156777156790_)) + (let ((_hd156781156808_ (let () (declare (not safe)) - (##car _part292370292383_))) - (_tl292375292403_ + (##car _part156777156790_))) + (_tl156782156810_ (let () (declare (not safe)) - (##cdr _part292370292383_)))) - (let ((_phi-ctx292406_ _hd292374292401_)) + (##cdr _part156777156790_)))) + (let ((_phi-ctx156813_ _hd156781156808_)) (if (let () (declare (not safe)) - (##pair? _tl292375292403_)) - (let ((_hd292376292408_ + (##pair? _tl156782156810_)) + (let ((_hd156783156815_ (let () (declare (not safe)) - (##car _tl292375292403_))) - (_tl292377292410_ + (##car _tl156782156810_))) + (_tl156784156817_ (let () (declare (not safe)) - (##cdr _tl292375292403_)))) - (let ((_phi292413_ _hd292376292408_)) + (##cdr _tl156782156810_)))) + (let ((_phi156820_ _hd156783156815_)) (if (let () (declare (not safe)) - (##pair? _tl292377292410_)) - (let ((_hd292378292415_ + (##pair? _tl156784156817_)) + (let ((_hd156785156822_ (let () (declare (not safe)) - (##car _tl292377292410_))) - (_tl292379292417_ + (##car _tl156784156817_))) + (_tl156786156824_ (let () (declare (not safe)) - (##cdr _tl292377292410_)))) - (let ((_n292420_ _hd292378292415_)) + (##cdr _tl156784156817_)))) + (let ((_n156827_ _hd156785156822_)) (if (let () (declare (not safe)) - (##pair? _tl292379292417_)) - (let ((_hd292380292422_ + (##pair? _tl156786156824_)) + (let ((_hd156787156829_ (let () (declare (not safe)) - (##car _tl292379292417_))) - (_tl292381292424_ + (##car _tl156786156824_))) + (_tl156788156831_ (let () (declare (not safe)) - (##cdr _tl292379292417_)))) - (let ((_code292427_ - _hd292380292422_)) + (##cdr _tl156786156824_)))) + (let ((_code156834_ + _hd156787156829_)) (if (let () (declare (not safe)) - (##null? _tl292381292424_)) + (##null? _tl156788156831_)) (let () (declare (not safe)) - (_K292373292398_ - _code292427_ - _n292420_ - _phi292413_ - _phi-ctx292406_)) + (_K156780156805_ + _code156834_ + _n156827_ + _phi156820_ + _phi-ctx156813_)) (let () (declare (not safe)) - (_E292372292387_))))) + (_E156779156794_))))) (let () (declare (not safe)) - (_E292372292387_))))) + (_E156779156794_))))) (let () (declare (not safe)) - (_E292372292387_))))) + (_E156779156794_))))) (let () (declare (not safe)) - (_E292372292387_))))) - (let () (declare (not safe)) (_E292372292387_))))))) - (let ((_g298020_ + (_E156779156794_))))) + (let () (declare (not safe)) (_E156779156794_))))))) + (let ((_g157859_ (let () (declare (not safe)) - (gxc#generate-meta-code _ctx292356_)))) + (gxc#generate-meta-code _ctx156763_)))) (begin - (let ((_g298021_ + (let ((_g157860_ (let () (declare (not safe)) - (if (##values? _g298020_) - (##vector-length _g298020_) + (if (##values? _g157859_) + (##vector-length _g157859_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g298021_ 2))) - (error "Context expects 2 values" _g298021_))) - (let ((_ssi-code292361_ - (let () (declare (not safe)) (##vector-ref _g298020_ 0))) - (_phi-code292362_ - (let () (declare (not safe)) (##vector-ref _g298020_ 1)))) + (if (not (let () (declare (not safe)) (##fx= _g157860_ 2))) + (error "Context expects 2 values" _g157860_))) + (let ((_ssi-code156768_ + (let () (declare (not safe)) (##vector-ref _g157859_ 0))) + (_phi-code156769_ + (let () (declare (not safe)) (##vector-ref _g157859_ 1)))) (begin (let () (declare (not safe)) - (_compile-ssi292358_ _ssi-code292361_)) - (let ((_threads292367_ - (map (lambda (_code292364_) - (let ((__tmp298022 + (_compile-ssi156765_ _ssi-code156768_)) + (let ((_threads156774_ + (map (lambda (_code156771_) + (let ((__tmp157861 (lambda () (let () (declare (not safe)) - (_compile-phi292359_ - _code292364_))))) + (_compile-phi156766_ + _code156771_))))) (declare (not safe)) - (spawn __tmp298022))) - _phi-code292362_))) - (for-each gxc#join! _threads292367_))))))))) + (spawn __tmp157861))) + _phi-code156769_))) + (for-each gxc#join! _threads156774_))))))))) (define gxc#compile-ssxi-code - (lambda (_ctx292339_) - (let* ((_path292341_ + (lambda (_ctx156746_) + (let* ((_path156748_ (let () (declare (not safe)) - (gxc#compile-output-file _ctx292339_ '#f '".ssxi.ss"))) - (_code292343_ - (let ((__tmp298023 + (gxc#compile-output-file _ctx156746_ '#f '".ssxi.ss"))) + (_code156750_ + (let ((__tmp157862 (##structure-ref - _ctx292339_ + _ctx156746_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-ssxi __tmp298023))) - (_idstr292345_ + (gxc#apply-generate-ssxi __tmp157862))) + (_idstr156752_ (symbol->string - (##structure-ref _ctx292339_ '1 gx#expander-context::t '#f))) - (_pkg292352_ - (let ((_$e292347_ + (##structure-ref _ctx156746_ '1 gx#expander-context::t '#f))) + (_pkg156759_ + (let ((_$e156754_ (let () (declare (not safe)) - (string-rindex _idstr292345_ '#\/)))) - (if _$e292347_ - ((lambda (_x292350_) + (string-rindex__0 _idstr156752_ '#\/)))) + (if _$e156754_ + ((lambda (_x156757_) (string->symbol - (substring _idstr292345_ '0 _x292350_))) - _$e292347_) + (substring _idstr156752_ '0 _x156757_))) + _$e156754_) '#f)))) - (let () (declare (not safe)) (gxc#verbose '"compile " _path292341_)) - (let ((__tmp298024 + (let () (declare (not safe)) (gxc#verbose '"compile " _path156748_)) + (let ((__tmp157863 (lambda () (let () (declare (not safe)) (displayln '"prelude: :gerbil/compiler/ssxi")) - (if _pkg292352_ + (if _pkg156759_ (let () (declare (not safe)) - (displayln '"package: " _pkg292352_)) + (displayln '"package: " _pkg156759_)) '#!void) (newline) - (pretty-print _code292343_)))) + (pretty-print _code156750_)))) (declare (not safe)) - (gxc#with-output-to-scheme-file _path292341_ __tmp298024))))) + (gxc#with-output-to-scheme-file _path156748_ __tmp157863))))) (define gxc#generate-meta-code - (lambda (_ctx292332_) - (let* ((_state292334_ - (let ((__obj297782 + (lambda (_ctx156739_) + (let* ((_state156741_ + (let ((__obj157621 (let () (declare (not safe)) (##structure gxc#meta-state::t '#f '#f '#f '#f)))) - (gxc#meta-state:::init! __obj297782 _ctx292332_) - __obj297782)) - (_ssi-code292336_ - (let ((__tmp298025 + (gxc#meta-state:::init! __obj157621 _ctx156739_) + __obj157621)) + (_ssi-code156743_ + (let ((__tmp157864 (##structure-ref - _ctx292332_ + _ctx156739_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-meta __tmp298025 _state292334_)))) - (values _ssi-code292336_ + (gxc#apply-generate-meta __tmp157864 _state156741_)))) + (values _ssi-code156743_ (let () (declare (not safe)) - (gxc#meta-state-end! _state292334_)))))) + (gxc#meta-state-end! _state156741_)))))) (define gxc#generate-runtime-phi - (lambda (_stx292325_) - (let ((_lifts292327_ (let () (declare (not safe)) (box '())))) - (let ((__tmp298028 + (lambda (_stx156732_) + (let ((_lifts156734_ (let () (declare (not safe)) (box '())))) + (let ((__tmp157867 (lambda () - (let ((_code292330_ + (let ((_code156737_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-phi _stx292325_)))) - (if (let ((__tmp298032 (unbox _lifts292327_))) + (gxc#apply-generate-runtime-phi _stx156732_)))) + (if (let ((__tmp157871 (unbox _lifts156734_))) (declare (not safe)) - (null? __tmp298032)) - _code292330_ - (let ((__tmp298029 - (let ((__tmp298031 + (null? __tmp157871)) + _code156737_ + (let ((__tmp157868 + (let ((__tmp157870 (let () (declare (not safe)) - (cons _code292330_ '()))) - (__tmp298030 - (reverse (unbox _lifts292327_)))) + (cons _code156737_ '()))) + (__tmp157869 + (reverse (unbox _lifts156734_)))) (declare (not safe)) - (foldr1 cons __tmp298031 __tmp298030)))) + (foldr1 cons __tmp157870 __tmp157869)))) (declare (not safe)) - (cons 'begin __tmp298029)))))) - (__tmp298027 - (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp298026 + (cons 'begin __tmp157868)))))) + (__tmp157866 + (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp157865 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (call-with-parameters - __tmp298028 + __tmp157867 gxc#current-compile-lift - _lifts292327_ + _lifts156734_ gxc#current-compile-marks - __tmp298027 + __tmp157866 gxc#current-compile-identifiers - __tmp298026))))) + __tmp157865))))) (define gxc#lift-nested-modules - (lambda (_ctx292321_) - (let ((_modules292323_ (let () (declare (not safe)) (box '())))) - (let ((__tmp298033 - (##structure-ref _ctx292321_ '11 gx#module-context::t '#f))) + (lambda (_ctx156728_) + (let ((_modules156730_ (let () (declare (not safe)) (box '())))) + (let ((__tmp157872 + (##structure-ref _ctx156728_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-lift-modules __tmp298033 _modules292323_)) - (reverse (unbox _modules292323_))))) + (gxc#apply-lift-modules __tmp157872 _modules156730_)) + (reverse (unbox _modules156730_))))) (define gxc#compile-scm-file__% - (lambda (_path292304_ _code292305_ _phi?292306_) - (let () (declare (not safe)) (gxc#verbose '"compile " _path292304_)) - (let ((__tmp298034 + (lambda (_path156711_ _code156712_ _phi?156713_) + (let () (declare (not safe)) (gxc#verbose '"compile " _path156711_)) + (let ((__tmp157873 (lambda () (pretty-print - (let ((__tmp298035 - (let ((__tmp298042 + (let ((__tmp157874 + (let ((__tmp157881 (let () (declare (not safe)) (cons 'block '()))) - (__tmp298036 - (let ((__tmp298041 + (__tmp157875 + (let ((__tmp157880 (let () (declare (not safe)) (cons 'standard-bindings '()))) - (__tmp298037 - (let ((__tmp298040 + (__tmp157876 + (let ((__tmp157879 (let () (declare (not safe)) (cons 'extended-bindings '()))) - (__tmp298038 - (let ((__tmp298039 - (if _phi?292306_ + (__tmp157877 + (let ((__tmp157878 + (if _phi?156713_ '((inlining-limit 200)) '()))) (declare (not safe)) (foldr1 cons '() - __tmp298039)))) + __tmp157878)))) (declare (not safe)) - (cons __tmp298040 __tmp298038)))) + (cons __tmp157879 __tmp157877)))) (declare (not safe)) - (cons __tmp298041 __tmp298037)))) + (cons __tmp157880 __tmp157876)))) (declare (not safe)) - (cons __tmp298042 __tmp298036)))) + (cons __tmp157881 __tmp157875)))) (declare (not safe)) - (cons 'declare __tmp298035))) - (pretty-print _code292305_)))) + (cons 'declare __tmp157874))) + (pretty-print _code156712_)))) (declare (not safe)) - (gxc#with-output-to-scheme-file _path292304_ __tmp298034)) + (gxc#with-output-to-scheme-file _path156711_ __tmp157873)) (if (gxc#current-compile-invoke-gsc) (let () (declare (not safe)) - (gxc#gsc-compile-file _path292304_ _phi?292306_)) + (gxc#gsc-compile-file _path156711_ _phi?156713_)) '#!void) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _path292304_)))) + (delete-file _path156711_)))) (define gxc#compile-scm-file__0 - (lambda (_path292312_ _code292313_) - (let ((_phi?292315_ '#f)) + (lambda (_path156719_ _code156720_) + (let ((_phi?156722_ '#f)) (declare (not safe)) - (gxc#compile-scm-file__% _path292312_ _code292313_ _phi?292315_)))) + (gxc#compile-scm-file__% _path156719_ _code156720_ _phi?156722_)))) (define gxc#compile-scm-file - (lambda _g298044_ - (let ((_g298043_ (let () (declare (not safe)) (##length _g298044_)))) - (cond ((let () (declare (not safe)) (##fx= _g298043_ 2)) - (apply (lambda (_path292312_ _code292313_) + (lambda _g157883_ + (let ((_g157882_ (let () (declare (not safe)) (##length _g157883_)))) + (cond ((let () (declare (not safe)) (##fx= _g157882_ 2)) + (apply (lambda (_path156719_ _code156720_) (let () (declare (not safe)) (gxc#compile-scm-file__0 - _path292312_ - _code292313_))) - _g298044_)) - ((let () (declare (not safe)) (##fx= _g298043_ 3)) - (apply (lambda (_path292317_ _code292318_ _phi?292319_) + _path156719_ + _code156720_))) + _g157883_)) + ((let () (declare (not safe)) (##fx= _g157882_ 3)) + (apply (lambda (_path156724_ _code156725_ _phi?156726_) (let () (declare (not safe)) (gxc#compile-scm-file__% - _path292317_ - _code292318_ - _phi?292319_))) - _g298044_)) + _path156724_ + _code156725_ + _phi?156726_))) + _g157883_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-scm-file - _g298044_)))))) + _g157883_)))))) (define gxc#gsc-link-options__% - (lambda (_phi?292205_) - (let _lp292207_ ((_rest292209_ (gxc#current-compile-gsc-options)) - (_opts292210_ '())) - (let* ((_rest292211292231_ _rest292209_) - (_else292215292239_ + (lambda (_phi?156612_) + (let _lp156614_ ((_rest156616_ (gxc#current-compile-gsc-options)) + (_opts156617_ '())) + (let* ((_rest156618156638_ _rest156616_) + (_else156622156646_ (lambda () - (if (and (let () (declare (not safe)) (not _phi?292205_)) + (if (and (let () (declare (not safe)) (not _phi?156612_)) (gxc#current-compile-debug)) - (let ((__tmp298045 - (let ((__tmp298046 (reverse _opts292210_))) + (let ((__tmp157884 + (let ((__tmp157885 (reverse _opts156617_))) (declare (not safe)) - (cons '"-track-scheme" __tmp298046)))) + (cons '"-track-scheme" __tmp157885)))) (declare (not safe)) - (cons '"-debug-source" __tmp298045)) - (reverse _opts292210_))))) - (let ((_K292225292282_ - (lambda (_rest292280_) + (cons '"-debug-source" __tmp157884)) + (reverse _opts156617_))))) + (let ((_K156632156689_ + (lambda (_rest156687_) (let () (declare (not safe)) - (_lp292207_ _rest292280_ _opts292210_)))) - (_K292220292264_ - (lambda (_rest292262_) + (_lp156614_ _rest156687_ _opts156617_)))) + (_K156627156671_ + (lambda (_rest156669_) (let () (declare (not safe)) - (_lp292207_ _rest292262_ _opts292210_)))) - (_K292217292246_ - (lambda (_rest292243_ _opt292244_) - (let ((__tmp298047 + (_lp156614_ _rest156669_ _opts156617_)))) + (_K156624156653_ + (lambda (_rest156650_ _opt156651_) + (let ((__tmp157886 (let () (declare (not safe)) - (cons _opt292244_ _opts292210_)))) + (cons _opt156651_ _opts156617_)))) (declare (not safe)) - (_lp292207_ _rest292243_ __tmp298047))))) - (if (let () (declare (not safe)) (##pair? _rest292211292231_)) - (let ((_tl292227292287_ + (_lp156614_ _rest156650_ __tmp157886))))) + (if (let () (declare (not safe)) (##pair? _rest156618156638_)) + (let ((_tl156634156694_ (let () (declare (not safe)) - (##cdr _rest292211292231_))) - (_hd292226292285_ + (##cdr _rest156618156638_))) + (_hd156633156692_ (let () (declare (not safe)) - (##car _rest292211292231_)))) + (##car _rest156618156638_)))) (if (let () (declare (not safe)) - (equal? _hd292226292285_ '"-cc-options")) + (equal? _hd156633156692_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl292227292287_)) - (let* ((_tl292229292290_ + (##pair? _tl156634156694_)) + (let* ((_tl156636156697_ (let () (declare (not safe)) - (##cdr _tl292227292287_))) - (_rest292293_ _tl292229292290_)) + (##cdr _tl156634156694_))) + (_rest156700_ _tl156636156697_)) (declare (not safe)) - (_K292225292282_ _rest292293_)) - (let ((_opt292254_ _hd292226292285_) - (_rest292256_ _tl292227292287_)) + (_K156632156689_ _rest156700_)) + (let ((_opt156661_ _hd156633156692_) + (_rest156663_ _tl156634156694_)) (let () (declare (not safe)) - (_K292217292246_ _rest292256_ _opt292254_)))) + (_K156624156653_ _rest156663_ _opt156661_)))) (if (let () (declare (not safe)) - (equal? _hd292226292285_ '"-ld-options")) + (equal? _hd156633156692_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl292227292287_)) - (let* ((_tl292224292272_ + (##pair? _tl156634156694_)) + (let* ((_tl156631156679_ (let () (declare (not safe)) - (##cdr _tl292227292287_))) - (_rest292275_ _tl292224292272_)) + (##cdr _tl156634156694_))) + (_rest156682_ _tl156631156679_)) (declare (not safe)) - (_K292220292264_ _rest292275_)) - (let ((_opt292254_ _hd292226292285_) - (_rest292256_ _tl292227292287_)) + (_K156627156671_ _rest156682_)) + (let ((_opt156661_ _hd156633156692_) + (_rest156663_ _tl156634156694_)) (let () (declare (not safe)) - (_K292217292246_ - _rest292256_ - _opt292254_)))) - (let ((_opt292254_ _hd292226292285_) - (_rest292256_ _tl292227292287_)) + (_K156624156653_ + _rest156663_ + _opt156661_)))) + (let ((_opt156661_ _hd156633156692_) + (_rest156663_ _tl156634156694_)) (let () (declare (not safe)) - (_K292217292246_ _rest292256_ _opt292254_)))))) - (let () (declare (not safe)) (_else292215292239_)))))))) + (_K156624156653_ _rest156663_ _opt156661_)))))) + (let () (declare (not safe)) (_else156622156646_)))))))) (define gxc#gsc-link-options__0 (lambda () - (let ((_phi?292299_ '#f)) + (let ((_phi?156706_ '#f)) (declare (not safe)) - (gxc#gsc-link-options__% _phi?292299_)))) + (gxc#gsc-link-options__% _phi?156706_)))) (define gxc#gsc-link-options - (lambda _g298049_ - (let ((_g298048_ (let () (declare (not safe)) (##length _g298049_)))) - (cond ((let () (declare (not safe)) (##fx= _g298048_ 0)) + (lambda _g157888_ + (let ((_g157887_ (let () (declare (not safe)) (##length _g157888_)))) + (cond ((let () (declare (not safe)) (##fx= _g157887_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#gsc-link-options__0))) - _g298049_)) - ((let () (declare (not safe)) (##fx= _g298048_ 1)) - (apply (lambda (_phi?292301_) + _g157888_)) + ((let () (declare (not safe)) (##fx= _g157887_ 1)) + (apply (lambda (_phi?156708_) (let () (declare (not safe)) - (gxc#gsc-link-options__% _phi?292301_))) - _g298049_)) + (gxc#gsc-link-options__% _phi?156708_))) + _g157888_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-link-options - _g298049_)))))) + _g157888_)))))) (define gxc#gsc-cc-options__% - (lambda (_phi?292106_) - (let _lp292108_ ((_rest292110_ (gxc#current-compile-gsc-options)) - (_opts292111_ '())) - (let* ((_rest292112292132_ _rest292110_) - (_else292116292140_ + (lambda (_phi?156513_) + (let _lp156515_ ((_rest156517_ (gxc#current-compile-gsc-options)) + (_opts156518_ '())) + (let* ((_rest156519156539_ _rest156517_) + (_else156523156547_ (lambda () - (if (and (let () (declare (not safe)) (not _phi?292106_)) + (if (and (let () (declare (not safe)) (not _phi?156513_)) (gxc#current-compile-debug)) - (let ((__tmp298050 - (let ((__tmp298051 (reverse _opts292111_))) + (let ((__tmp157889 + (let ((__tmp157890 (reverse _opts156518_))) (declare (not safe)) - (cons '"-g" __tmp298051)))) + (cons '"-g" __tmp157890)))) (declare (not safe)) - (cons '"-cc-options" __tmp298050)) - (reverse _opts292111_))))) - (let ((_K292126292179_ - (lambda (_rest292176_ _opt292177_) - (let ((__tmp298052 - (let ((__tmp298053 + (cons '"-cc-options" __tmp157889)) + (reverse _opts156518_))))) + (let ((_K156533156586_ + (lambda (_rest156583_ _opt156584_) + (let ((__tmp157891 + (let ((__tmp157892 (let () (declare (not safe)) - (cons '"-cc-options" _opts292111_)))) + (cons '"-cc-options" _opts156518_)))) (declare (not safe)) - (cons _opt292177_ __tmp298053)))) + (cons _opt156584_ __tmp157892)))) (declare (not safe)) - (_lp292108_ _rest292176_ __tmp298052)))) - (_K292121292160_ - (lambda (_rest292158_) + (_lp156515_ _rest156583_ __tmp157891)))) + (_K156528156567_ + (lambda (_rest156565_) (let () (declare (not safe)) - (_lp292108_ _rest292158_ _opts292111_)))) - (_K292118292146_ - (lambda (_rest292144_) + (_lp156515_ _rest156565_ _opts156518_)))) + (_K156525156553_ + (lambda (_rest156551_) (let () (declare (not safe)) - (_lp292108_ _rest292144_ _opts292111_))))) - (if (let () (declare (not safe)) (##pair? _rest292112292132_)) - (let ((_tl292128292184_ + (_lp156515_ _rest156551_ _opts156518_))))) + (if (let () (declare (not safe)) (##pair? _rest156519156539_)) + (let ((_tl156535156591_ (let () (declare (not safe)) - (##cdr _rest292112292132_))) - (_hd292127292182_ + (##cdr _rest156519156539_))) + (_hd156534156589_ (let () (declare (not safe)) - (##car _rest292112292132_)))) + (##car _rest156519156539_)))) (if (let () (declare (not safe)) - (equal? _hd292127292182_ '"-cc-options")) + (equal? _hd156534156589_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl292128292184_)) - (let ((_tl292130292189_ + (##pair? _tl156535156591_)) + (let ((_tl156537156596_ (let () (declare (not safe)) - (##cdr _tl292128292184_))) - (_hd292129292187_ + (##cdr _tl156535156591_))) + (_hd156536156594_ (let () (declare (not safe)) - (##car _tl292128292184_)))) - (let ((_opt292192_ _hd292129292187_) - (_rest292194_ _tl292130292189_)) + (##car _tl156535156591_)))) + (let ((_opt156599_ _hd156536156594_) + (_rest156601_ _tl156537156596_)) (let () (declare (not safe)) - (_K292126292179_ _rest292194_ _opt292192_)))) - (let ((_rest292152_ _tl292128292184_)) + (_K156533156586_ _rest156601_ _opt156599_)))) + (let ((_rest156559_ _tl156535156591_)) (declare (not safe)) - (_K292118292146_ _rest292152_))) + (_K156525156553_ _rest156559_))) (if (let () (declare (not safe)) - (equal? _hd292127292182_ '"-ld-options")) + (equal? _hd156534156589_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl292128292184_)) - (let* ((_tl292125292168_ + (##pair? _tl156535156591_)) + (let* ((_tl156532156575_ (let () (declare (not safe)) - (##cdr _tl292128292184_))) - (_rest292171_ _tl292125292168_)) + (##cdr _tl156535156591_))) + (_rest156578_ _tl156532156575_)) (declare (not safe)) - (_K292121292160_ _rest292171_)) - (let ((_rest292152_ _tl292128292184_)) + (_K156528156567_ _rest156578_)) + (let ((_rest156559_ _tl156535156591_)) (declare (not safe)) - (_K292118292146_ _rest292152_))) - (let ((_rest292152_ _tl292128292184_)) + (_K156525156553_ _rest156559_))) + (let ((_rest156559_ _tl156535156591_)) (declare (not safe)) - (_K292118292146_ _rest292152_))))) - (let () (declare (not safe)) (_else292116292140_)))))))) + (_K156525156553_ _rest156559_))))) + (let () (declare (not safe)) (_else156523156547_)))))))) (define gxc#gsc-cc-options__0 (lambda () - (let ((_phi?292200_ '#f)) + (let ((_phi?156607_ '#f)) (declare (not safe)) - (gxc#gsc-cc-options__% _phi?292200_)))) + (gxc#gsc-cc-options__% _phi?156607_)))) (define gxc#gsc-cc-options - (lambda _g298055_ - (let ((_g298054_ (let () (declare (not safe)) (##length _g298055_)))) - (cond ((let () (declare (not safe)) (##fx= _g298054_ 0)) + (lambda _g157894_ + (let ((_g157893_ (let () (declare (not safe)) (##length _g157894_)))) + (cond ((let () (declare (not safe)) (##fx= _g157893_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - _g298055_)) - ((let () (declare (not safe)) (##fx= _g298054_ 1)) - (apply (lambda (_phi?292202_) + _g157894_)) + ((let () (declare (not safe)) (##fx= _g157893_ 1)) + (apply (lambda (_phi?156609_) (let () (declare (not safe)) - (gxc#gsc-cc-options__% _phi?292202_))) - _g298055_)) + (gxc#gsc-cc-options__% _phi?156609_))) + _g157894_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-cc-options - _g298055_)))))) + _g157894_)))))) (define gxc#gsc-static-include-options - (lambda (_staticdir292101_) - (let* ((_user-staticdir292103_ + (lambda (_staticdir156508_) + (let* ((_user-staticdir156510_ (path-expand (path-expand '"lib/static" (let () (declare (not safe)) (gerbil-path))))) - (__tmp298056 - (let ((__tmp298057 + (__tmp157895 + (let ((__tmp157896 (string-append '"-I " - _staticdir292101_ + _staticdir156508_ '" -I " - _user-staticdir292103_))) + _user-staticdir156510_))) (declare (not safe)) - (cons __tmp298057 '())))) + (cons __tmp157896 '())))) (declare (not safe)) - (cons '"-cc-options" __tmp298056)))) + (cons '"-cc-options" __tmp157895)))) (define gxc#gcc-ld-options (lambda () - (let _lp292013_ ((_rest292015_ (gxc#current-compile-gsc-options)) - (_opts292016_ '())) - (let* ((_rest292017292037_ _rest292015_) - (_else292021292045_ (lambda () _opts292016_))) - (let ((_K292031292088_ - (lambda (_rest292086_) + (let _lp156420_ ((_rest156422_ (gxc#current-compile-gsc-options)) + (_opts156423_ '())) + (let* ((_rest156424156444_ _rest156422_) + (_else156428156452_ (lambda () _opts156423_))) + (let ((_K156438156495_ + (lambda (_rest156493_) (let () (declare (not safe)) - (_lp292013_ _rest292086_ _opts292016_)))) - (_K292026292066_ - (lambda (_rest292063_ _opt292064_) - (let ((__tmp298058 - (append _opts292016_ - (let ((__tmp298059 + (_lp156420_ _rest156493_ _opts156423_)))) + (_K156433156473_ + (lambda (_rest156470_ _opt156471_) + (let ((__tmp157897 + (append _opts156423_ + (let ((__tmp157898 (let () (declare (not safe)) (string-split - _opt292064_ + _opt156471_ '#\space)))) (declare (not safe)) (filter gxc#not-string-empty? - __tmp298059))))) + __tmp157898))))) (declare (not safe)) - (_lp292013_ _rest292063_ __tmp298058)))) - (_K292023292051_ - (lambda (_rest292049_) + (_lp156420_ _rest156470_ __tmp157897)))) + (_K156430156458_ + (lambda (_rest156456_) (let () (declare (not safe)) - (_lp292013_ _rest292049_ _opts292016_))))) - (if (let () (declare (not safe)) (##pair? _rest292017292037_)) - (let ((_tl292033292093_ + (_lp156420_ _rest156456_ _opts156423_))))) + (if (let () (declare (not safe)) (##pair? _rest156424156444_)) + (let ((_tl156440156500_ (let () (declare (not safe)) - (##cdr _rest292017292037_))) - (_hd292032292091_ + (##cdr _rest156424156444_))) + (_hd156439156498_ (let () (declare (not safe)) - (##car _rest292017292037_)))) + (##car _rest156424156444_)))) (if (let () (declare (not safe)) - (equal? _hd292032292091_ '"-cc-options")) + (equal? _hd156439156498_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl292033292093_)) - (let* ((_tl292035292096_ + (##pair? _tl156440156500_)) + (let* ((_tl156442156503_ (let () (declare (not safe)) - (##cdr _tl292033292093_))) - (_rest292099_ _tl292035292096_)) + (##cdr _tl156440156500_))) + (_rest156506_ _tl156442156503_)) (declare (not safe)) - (_K292031292088_ _rest292099_)) - (let ((_rest292057_ _tl292033292093_)) + (_K156438156495_ _rest156506_)) + (let ((_rest156464_ _tl156440156500_)) (declare (not safe)) - (_K292023292051_ _rest292057_))) + (_K156430156458_ _rest156464_))) (if (let () (declare (not safe)) - (equal? _hd292032292091_ '"-ld-options")) + (equal? _hd156439156498_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl292033292093_)) - (let ((_tl292030292076_ + (##pair? _tl156440156500_)) + (let ((_tl156437156483_ (let () (declare (not safe)) - (##cdr _tl292033292093_))) - (_hd292029292074_ + (##cdr _tl156440156500_))) + (_hd156436156481_ (let () (declare (not safe)) - (##car _tl292033292093_)))) - (let ((_opt292079_ _hd292029292074_) - (_rest292081_ _tl292030292076_)) + (##car _tl156440156500_)))) + (let ((_opt156486_ _hd156436156481_) + (_rest156488_ _tl156437156483_)) (let () (declare (not safe)) - (_K292026292066_ - _rest292081_ - _opt292079_)))) - (let ((_rest292057_ _tl292033292093_)) + (_K156433156473_ + _rest156488_ + _opt156486_)))) + (let ((_rest156464_ _tl156440156500_)) (declare (not safe)) - (_K292023292051_ _rest292057_))) - (let ((_rest292057_ _tl292033292093_)) + (_K156430156458_ _rest156464_))) + (let ((_rest156464_ _tl156440156500_)) (declare (not safe)) - (_K292023292051_ _rest292057_))))) - (let () (declare (not safe)) (_else292021292045_)))))))) + (_K156430156458_ _rest156464_))))) + (let () (declare (not safe)) (_else156428156452_)))))))) (define gxc#not-string-empty? - (lambda (_str292010_) - (let ((__tmp298060 - (let () (declare (not safe)) (string-empty? _str292010_)))) + (lambda (_str156417_) + (let ((__tmp157899 + (let () (declare (not safe)) (string-empty? _str156417_)))) (declare (not safe)) - (not __tmp298060)))) + (not __tmp157899)))) (define gxc#gsc-compile-file - (lambda (_path291978_ _phi?291979_) - (letrec ((_gsc-link-path291981_ - (lambda (_base-path292002_) - (let _lp292004_ ((_n292006_ '1)) - (let ((_path292008_ + (lambda (_path156385_ _phi?156386_) + (letrec ((_gsc-link-path156388_ + (lambda (_base-path156409_) + (let _lp156411_ ((_n156413_ '1)) + (let ((_path156415_ (string-append - _base-path292002_ + _base-path156409_ '".o" - (number->string _n292006_)))) - (if (file-exists? _path292008_) - (let ((__tmp298061 + (number->string _n156413_)))) + (if (file-exists? _path156415_) + (let ((__tmp157900 (let () (declare (not safe)) - (+ _n292006_ '1)))) - (declare (not safe)) - (_lp292004_ __tmp298061)) - _path292008_)))))) - (let* ((_base-path291983_ (path-strip-extension _path291978_)) - (_path-c291985_ (string-append _base-path291983_ '".c")) - (_path-o291987_ (string-append _base-path291983_ '".o")) - (_link-path291989_ + (+ _n156413_ '1)))) + (declare (not safe)) + (_lp156411_ __tmp157900)) + _path156415_)))))) + (let* ((_base-path156390_ (path-strip-extension _path156385_)) + (_path-c156392_ (string-append _base-path156390_ '".c")) + (_path-o156394_ (string-append _base-path156390_ '".o")) + (_link-path156396_ (let () (declare (not safe)) - (_gsc-link-path291981_ _base-path291983_))) - (_link-path-c291991_ (string-append _link-path291989_ '".c")) - (_link-path-o291993_ (string-append _link-path291989_ '".o")) - (_gsc-link-opts291995_ + (_gsc-link-path156388_ _base-path156390_))) + (_link-path-c156398_ (string-append _link-path156396_ '".c")) + (_link-path-o156400_ (string-append _link-path156396_ '".o")) + (_gsc-link-opts156402_ (let () (declare (not safe)) - (gxc#gsc-link-options__% _phi?291979_))) - (_gsc-cc-opts291997_ + (gxc#gsc-link-options__% _phi?156386_))) + (_gsc-cc-opts156404_ (let () (declare (not safe)) - (gxc#gsc-cc-options__% _phi?291979_))) - (_gcc-ld-opts291999_ + (gxc#gsc-cc-options__% _phi?156386_))) + (_gcc-ld-opts156406_ (let () (declare (not safe)) (gxc#gcc-ld-options)))) - (let ((__tmp298068 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp298062 - (let ((__tmp298063 - (let ((__tmp298064 - (let ((__tmp298065 - (let ((__tmp298066 - (let ((__tmp298067 + (let ((__tmp157907 (let () (declare (not safe)) (gxc#gerbil-gsc))) + (__tmp157901 + (let ((__tmp157902 + (let ((__tmp157903 + (let ((__tmp157904 + (let ((__tmp157905 + (let ((__tmp157906 (let () (declare (not safe)) - (cons _path291978_ + (cons _path156385_ '())))) (declare (not safe)) (foldr1 cons - __tmp298067 - _gsc-link-opts291995_)))) + __tmp157906 + _gsc-link-opts156402_)))) (declare (not safe)) - (cons _link-path-c291991_ - __tmp298066)))) + (cons _link-path-c156398_ + __tmp157905)))) (declare (not safe)) - (cons '"-o" __tmp298065)))) + (cons '"-o" __tmp157904)))) (declare (not safe)) - (cons '"-flat" __tmp298064)))) + (cons '"-flat" __tmp157903)))) (declare (not safe)) - (cons '"-link" __tmp298063)))) + (cons '"-link" __tmp157902)))) (declare (not safe)) - (gxc#invoke__% '#f '#t absent-value __tmp298068 __tmp298062)) - (let ((__tmp298075 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp298069 - (let ((__tmp298070 - (let ((__tmp298071 - (let ((__tmp298072 - (let ((__tmp298073 - (let ((__tmp298074 + (gxc#invoke __tmp157907 __tmp157901 'stdout-redirection: '#t)) + (let ((__tmp157914 (let () (declare (not safe)) (gxc#gerbil-gsc))) + (__tmp157908 + (let ((__tmp157909 + (let ((__tmp157910 + (let ((__tmp157911 + (let ((__tmp157912 + (let ((__tmp157913 (let () (declare (not safe)) - (cons _link-path-c291991_ + (cons _link-path-c156398_ '())))) (declare (not safe)) - (cons _path-c291985_ - __tmp298074)))) + (cons _path-c156392_ + __tmp157913)))) (declare (not safe)) (foldr1 cons - __tmp298073 - _gsc-cc-opts291997_)))) + __tmp157912 + _gsc-cc-opts156404_)))) (declare (not safe)) - (cons '"-D___DYNAMIC" __tmp298072)))) + (cons '"-D___DYNAMIC" __tmp157911)))) (declare (not safe)) - (cons '"-cc-options" __tmp298071)))) + (cons '"-cc-options" __tmp157910)))) (declare (not safe)) - (cons '"-obj" __tmp298070)))) + (cons '"-obj" __tmp157909)))) (declare (not safe)) - (gxc#invoke__% '#f '#t absent-value __tmp298075 __tmp298069)) - (let ((__tmp298081 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp298076 - (let ((__tmp298077 - (let ((__tmp298078 - (let ((__tmp298079 - (let ((__tmp298080 + (gxc#invoke __tmp157914 __tmp157908 'stdout-redirection: '#t)) + (let ((__tmp157920 (let () (declare (not safe)) (gxc#gerbil-gcc))) + (__tmp157915 + (let ((__tmp157916 + (let ((__tmp157917 + (let ((__tmp157918 + (let ((__tmp157919 (let () (declare (not safe)) - (cons _link-path-o291993_ - _gcc-ld-opts291999_)))) + (cons _link-path-o156400_ + _gcc-ld-opts156406_)))) (declare (not safe)) - (cons _path-o291987_ __tmp298080)))) + (cons _path-o156394_ __tmp157919)))) (declare (not safe)) - (cons _link-path291989_ __tmp298079)))) + (cons _link-path156396_ __tmp157918)))) (declare (not safe)) - (cons '"-o" __tmp298078)))) + (cons '"-o" __tmp157917)))) (declare (not safe)) - (cons '"-shared" __tmp298077)))) + (cons '"-shared" __tmp157916)))) (declare (not safe)) - (gxc#invoke__% - '#f - absent-value - absent-value - __tmp298081 - __tmp298076)) + (gxc#invoke __tmp157920 __tmp157915)) (for-each delete-file - (let ((__tmp298082 - (let ((__tmp298083 - (let ((__tmp298084 + (let ((__tmp157921 + (let ((__tmp157922 + (let ((__tmp157923 (let () (declare (not safe)) - (cons _link-path-o291993_ '())))) + (cons _link-path-o156400_ '())))) (declare (not safe)) - (cons _link-path-c291991_ __tmp298084)))) + (cons _link-path-c156398_ __tmp157923)))) (declare (not safe)) - (cons _path-o291987_ __tmp298083)))) + (cons _path-o156394_ __tmp157922)))) (declare (not safe)) - (cons _path-c291985_ __tmp298082))))))) + (cons _path-c156392_ __tmp157921))))))) (define gxc#compile-output-file - (lambda (_ctx291949_ _n291950_ _ext291951_) - (letrec ((_module-relative-path291953_ - (lambda (_ctx291976_) + (lambda (_ctx156356_ _n156357_ _ext156358_) + (letrec ((_module-relative-path156360_ + (lambda (_ctx156383_) (path-strip-directory - (let ((__tmp298085 + (let ((__tmp157924 (##structure-ref - _ctx291976_ + _ctx156383_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp298085))))) - (_module-source-directory291954_ - (lambda (_ctx291972_) + (gxc#module-id->path-string __tmp157924))))) + (_module-source-directory156361_ + (lambda (_ctx156379_) (path-directory - (let ((_mpath291974_ + (let ((_mpath156381_ (##structure-ref - _ctx291972_ + _ctx156379_ '7 gx#module-context::t '#f))) (if (let () (declare (not safe)) - (string? _mpath291974_)) - _mpath291974_ + (string? _mpath156381_)) + _mpath156381_ (let () (declare (not safe)) - (last _mpath291974_))))))) - (_section-string291955_ - (lambda (_n291970_) - (if (let () (declare (not safe)) (number? _n291970_)) - (number->string _n291970_) - (if (let () (declare (not safe)) (symbol? _n291970_)) - (symbol->string _n291970_) + (last _mpath156381_))))))) + (_section-string156362_ + (lambda (_n156377_) + (if (let () (declare (not safe)) (number? _n156377_)) + (number->string _n156377_) + (if (let () (declare (not safe)) (symbol? _n156377_)) + (symbol->string _n156377_) (if (let () (declare (not safe)) - (string? _n291970_)) - _n291970_ + (string? _n156377_)) + _n156377_ (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected section" - _n291970_))))))) - (_file-name291956_ - (lambda (_path291968_) - (if _n291950_ + _n156377_))))))) + (_file-name156363_ + (lambda (_path156375_) + (if _n156357_ (string-append - _path291968_ + _path156375_ '"__" (let () (declare (not safe)) - (_section-string291955_ _n291950_)) - _ext291951_) - (string-append _path291968_ _ext291951_)))) - (_file-path291957_ + (_section-string156362_ _n156357_)) + _ext156358_) + (string-append _path156375_ _ext156358_)))) + (_file-path156364_ (lambda () - (let ((_$e291963_ (gxc#current-compile-output-dir))) - (if _$e291963_ - ((lambda (_outdir291966_) + (let ((_$e156370_ (gxc#current-compile-output-dir))) + (if _$e156370_ + ((lambda (_outdir156373_) (path-expand - (let ((__tmp298087 - (let ((__tmp298088 + (let ((__tmp157926 + (let ((__tmp157927 (##structure-ref - _ctx291949_ + _ctx156356_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp298088)))) + __tmp157927)))) (declare (not safe)) - (_file-name291956_ __tmp298087)) - _outdir291966_)) - _$e291963_) + (_file-name156363_ __tmp157926)) + _outdir156373_)) + _$e156370_) (path-expand - (let ((__tmp298086 + (let ((__tmp157925 (let () (declare (not safe)) - (_module-relative-path291953_ - _ctx291949_)))) + (_module-relative-path156360_ + _ctx156356_)))) (declare (not safe)) - (_file-name291956_ __tmp298086)) + (_file-name156363_ __tmp157925)) (let () (declare (not safe)) - (_module-source-directory291954_ - _ctx291949_)))))))) - (let ((_path291959_ - (let () (declare (not safe)) (_file-path291957_)))) - (let ((__tmp298089 + (_module-source-directory156361_ + _ctx156356_)))))))) + (let ((_path156366_ + (let () (declare (not safe)) (_file-path156364_)))) + (let ((__tmp157928 (lambda () - (let ((__tmp298090 (path-directory _path291959_))) + (let ((__tmp157929 (path-directory _path156366_))) (declare (not safe)) - (create-directory* __tmp298090))))) + (create-directory*__0 __tmp157929))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp298089)) - _path291959_)))) + (with-lock gxc#+driver-mutex+ __tmp157928)) + _path156366_)))) (define gxc#compile-static-output-file - (lambda (_ctx291931_) - (letrec ((_file-name291933_ - (lambda (_id291947_) + (lambda (_ctx156338_) + (letrec ((_file-name156340_ + (lambda (_id156354_) (string-append (let () (declare (not safe)) - (gxc#static-module-name _id291947_)) + (gxc#static-module-name _id156354_)) '".scm"))) - (_file-path291934_ + (_file-path156341_ (lambda () - (let* ((_file291940_ - (let ((__tmp298091 + (let* ((_file156347_ + (let ((__tmp157930 (##structure-ref - _ctx291931_ + _ctx156338_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (_file-name291933_ __tmp298091))) - (_$e291942_ (gxc#current-compile-output-dir))) - (if _$e291942_ - ((lambda (_outdir291945_) + (_file-name156340_ __tmp157930))) + (_$e156349_ (gxc#current-compile-output-dir))) + (if _$e156349_ + ((lambda (_outdir156352_) (path-expand - _file291940_ - (path-expand '"static" _outdir291945_))) - _$e291942_) - (path-expand _file291940_ '"static")))))) - (let ((_path291936_ - (let () (declare (not safe)) (_file-path291934_)))) - (let ((__tmp298092 + _file156347_ + (path-expand '"static" _outdir156352_))) + _$e156349_) + (path-expand _file156347_ '"static")))))) + (let ((_path156343_ + (let () (declare (not safe)) (_file-path156341_)))) + (let ((__tmp157931 (lambda () - (let ((__tmp298093 (path-directory _path291936_))) + (let ((__tmp157932 (path-directory _path156343_))) (declare (not safe)) - (create-directory* __tmp298093))))) + (create-directory*__0 __tmp157932))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp298092)) - _path291936_)))) + (with-lock gxc#+driver-mutex+ __tmp157931)) + _path156343_)))) (define gxc#compile-exe-output-file - (lambda (_ctx291925_ _opts291926_) - (let ((_$e291928_ + (lambda (_ctx156332_ _opts156333_) + (let ((_$e156335_ (let () (declare (not safe)) - (pgetq 'output-file: _opts291926_)))) - (if _$e291928_ - (values _$e291928_) + (pgetq__0 'output-file: _opts156333_)))) + (if _$e156335_ + (values _$e156335_) (path-strip-directory (symbol->string (##structure-ref - _ctx291925_ + _ctx156332_ '1 gx#expander-context::t '#f))))))) (define gxc#static-module-name - (lambda (_idstr291918_) - (if (let () (declare (not safe)) (string? _idstr291918_)) - (let* ((_str291920_ + (lambda (_idstr156325_) + (if (let () (declare (not safe)) (string? _idstr156325_)) + (let* ((_str156327_ (let () (declare (not safe)) - (gxc#module-id->path-string _idstr291918_))) - (_strs291922_ + (gxc#module-id->path-string _idstr156325_))) + (_strs156329_ (let () (declare (not safe)) - (string-split _str291920_ '#\/)))) - (let () (declare (not safe)) (string-join _strs291922_ '"__"))) - (if (let () (declare (not safe)) (symbol? _idstr291918_)) - (let ((__tmp298094 (symbol->string _idstr291918_))) + (string-split _str156327_ '#\/)))) + (let () (declare (not safe)) (string-join _strs156329_ '"__"))) + (if (let () (declare (not safe)) (symbol? _idstr156325_)) + (let ((__tmp157933 (symbol->string _idstr156325_))) + (declare (not safe)) + (gxc#static-module-name __tmp157933)) + (let () (declare (not safe)) - (gxc#static-module-name __tmp298094)) - (error '"Bad module id" _idstr291918_))))) + (error '"Bad module id" _idstr156325_)))))) (define gxc#invoke__% - (lambda (_g298095_ - _stdout-redirection291879291883_ - _stderr-redirection291880291885_ - _program291887_ - _args291888_) - (let* ((_stdout-redirection291890_ + (lambda (_g157934_ + _stdout-redirection156286156290_ + _stderr-redirection156287156292_ + _program156294_ + _args156295_) + (let* ((_stdout-redirection156297_ (if (let () (declare (not safe)) - (eq? _stdout-redirection291879291883_ absent-value)) + (eq? _stdout-redirection156286156290_ absent-value)) '#f - _stdout-redirection291879291883_)) - (_stderr-redirection291892_ + _stdout-redirection156286156290_)) + (_stderr-redirection156299_ (if (let () (declare (not safe)) - (eq? _stderr-redirection291880291885_ absent-value)) + (eq? _stderr-redirection156287156292_ absent-value)) '#f - _stderr-redirection291880291885_))) - (let ((__tmp298096 + _stderr-redirection156287156292_))) + (let ((__tmp157935 (let () (declare (not safe)) - (cons _program291887_ _args291888_)))) + (cons _program156294_ _args156295_)))) (declare (not safe)) - (gxc#verbose '"invoke " __tmp298096)) - (let* ((_proc291894_ + (gxc#verbose '"invoke " __tmp157935)) + (let* ((_proc156301_ (open-process - (let ((__tmp298097 - (let ((__tmp298098 - (let ((__tmp298099 - (let ((__tmp298100 - (let ((__tmp298101 - (let ((__tmp298102 - (let ((__tmp298103 + (let ((__tmp157936 + (let ((__tmp157937 + (let ((__tmp157938 + (let ((__tmp157939 + (let ((__tmp157940 + (let ((__tmp157941 + (let ((__tmp157942 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _stderr-redirection291892_ '())))) + (cons _stderr-redirection156299_ '())))) (declare (not safe)) - (cons 'stderr-redirection: __tmp298103)))) + (cons 'stderr-redirection: __tmp157942)))) (declare (not safe)) - (cons _stdout-redirection291890_ __tmp298102)))) + (cons _stdout-redirection156297_ __tmp157941)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'stdout-redirection: - __tmp298101)))) + __tmp157940)))) (declare (not safe)) - (cons _args291888_ __tmp298100)))) + (cons _args156295_ __tmp157939)))) (declare (not safe)) - (cons 'arguments: __tmp298099)))) + (cons 'arguments: __tmp157938)))) (declare (not safe)) - (cons _program291887_ __tmp298098)))) + (cons _program156294_ __tmp157937)))) (declare (not safe)) - (cons 'path: __tmp298097)))) - (_output291899_ - (if (or _stdout-redirection291890_ - _stderr-redirection291892_) - (read-line _proc291894_ '#f) + (cons 'path: __tmp157936)))) + (_output156306_ + (if (or _stdout-redirection156297_ + _stderr-redirection156299_) + (read-line _proc156301_ '#f) '#f))) - (let ((_status291902_ (process-status _proc291894_))) - (close-port _proc291894_) - (if (let () (declare (not safe)) (zero? _status291902_)) + (let ((_status156309_ (process-status _proc156301_))) + (close-port _proc156301_) + (if (let () (declare (not safe)) (zero? _status156309_)) '#!void (begin - (display _output291899_) - (let ((__tmp298104 + (display _output156306_) + (let ((__tmp157943 (let () (declare (not safe)) - (cons _program291887_ _args291888_)))) + (cons _program156294_ _args156295_)))) (declare (not safe)) (gxc#raise-compile-error '"Compilation error; process exit with nonzero status" - __tmp298104 - _status291902_))))))))) + __tmp157943 + _status156309_))))))))) (define gxc#invoke__@ - (lambda (_keys291878291907_ . _args291909_) + (lambda (_keys156285156314_ . _args156316_) (apply gxc#invoke__% - _keys291878291907_ + _keys156285156314_ (let () (declare (not safe)) - (table-ref - _keys291878291907_ + (symbolic-table-ref + _keys156285156314_ 'stdout-redirection: absent-value)) (let () (declare (not safe)) - (table-ref - _keys291878291907_ + (symbolic-table-ref + _keys156285156314_ 'stderr-redirection: absent-value)) - _args291909_))) + _args156316_))) (define gxc#invoke - (lambda _args291881291915_ + (lambda _args156288156322_ (apply keyword-dispatch '#(stderr-redirection: stdout-redirection:) gxc#invoke__@ - _args291881291915_))) + _args156288156322_))) (define gxc#join! - (lambda (_thread291872_) - (let ((__tmp298106 - (lambda (_exn291874_) - (if (uncaught-exception? _exn291874_) - (raise (uncaught-exception-reason _exn291874_)) - (raise _exn291874_)))) - (__tmp298105 (lambda () (thread-join! _thread291872_)))) + (lambda (_thread156279_) + (let ((__tmp157945 + (lambda (_exn156281_) + (if (let () + (declare (not safe)) + (uncaught-exception? _exn156281_)) + (raise (let () + (declare (not safe)) + (uncaught-exception-reason _exn156281_))) + (raise _exn156281_)))) + (__tmp157944 (lambda () (thread-join! _thread156279_)))) (declare (not safe)) - (with-catch __tmp298106 __tmp298105)))))) + (with-catch __tmp157945 __tmp157944)))))) diff --git a/src/bootstrap/gerbil/compiler/driver__1.scm b/src/bootstrap/gerbil/compiler/driver__1.scm index 2884603c4..0ac7a02b4 100644 --- a/src/bootstrap/gerbil/compiler/driver__1.scm +++ b/src/bootstrap/gerbil/compiler/driver__1.scm @@ -1,169 +1,169 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gxc[:0:]#with-driver-mutex| - (lambda (_$stx291745_) - (let* ((_g291749291763_ - (lambda (_g291750291759_) + (lambda (_$stx156152_) + (let* ((_g156156156170_ + (lambda (_g156157156166_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g291750291759_)))) - (_g291748291805_ - (lambda (_g291750291767_) + _g156157156166_)))) + (_g156155156212_ + (lambda (_g156157156174_) (if (let () (declare (not safe)) - (gx#stx-pair? _g291750291767_)) - (let ((_e291754291770_ + (gx#stx-pair? _g156157156174_)) + (let ((_e156161156177_ (let () (declare (not safe)) - (gx#syntax-e _g291750291767_)))) - (let ((_hd291753291774_ + (gx#syntax-e _g156157156174_)))) + (let ((_hd156160156181_ (let () (declare (not safe)) - (##car _e291754291770_))) - (_tl291752291777_ + (##car _e156161156177_))) + (_tl156159156184_ (let () (declare (not safe)) - (##cdr _e291754291770_)))) + (##cdr _e156161156177_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl291752291777_)) - (let ((_e291757291780_ + (gx#stx-pair? _tl156159156184_)) + (let ((_e156164156187_ (let () (declare (not safe)) - (gx#syntax-e _tl291752291777_)))) - (let ((_hd291756291784_ + (gx#syntax-e _tl156159156184_)))) + (let ((_hd156163156191_ (let () (declare (not safe)) - (##car _e291757291780_))) - (_tl291755291787_ + (##car _e156164156187_))) + (_tl156162156194_ (let () (declare (not safe)) - (##cdr _e291757291780_)))) + (##cdr _e156164156187_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl291755291787_)) - ((lambda (_L291790_) - (let ((__tmp298114 + (gx#stx-null? _tl156162156194_)) + ((lambda (_L156197_) + (let ((__tmp157953 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'with-lock))) - (__tmp298107 - (let ((__tmp298113 + (__tmp157946 + (let ((__tmp157952 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '+driver-mutex+))) - (__tmp298108 - (let ((__tmp298109 - (let ((__tmp298112 + (__tmp157947 + (let ((__tmp157948 + (let ((__tmp157951 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp298110 - (let ((__tmp298111 + (__tmp157949 + (let ((__tmp157950 (let () (declare (not safe)) - (cons _L291790_ '())))) + (cons _L156197_ '())))) (declare (not safe)) - (cons '() __tmp298111)))) + (cons '() __tmp157950)))) (declare (not safe)) - (cons __tmp298112 __tmp298110)))) + (cons __tmp157951 __tmp157949)))) (declare (not safe)) - (cons __tmp298109 '())))) + (cons __tmp157948 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp298113 - __tmp298108)))) + (cons __tmp157952 + __tmp157947)))) (declare (not safe)) - (cons __tmp298114 __tmp298107))) - _hd291756291784_) - (_g291749291763_ _g291750291767_)))) - (_g291749291763_ _g291750291767_)))) - (_g291749291763_ _g291750291767_))))) - (_g291748291805_ _$stx291745_)))) + (cons __tmp157953 __tmp157946))) + _hd156163156191_) + (_g156156156170_ _g156157156174_)))) + (_g156156156170_ _g156157156174_)))) + (_g156156156170_ _g156157156174_))))) + (_g156155156212_ _$stx156152_)))) (define |gxc[:0:]#go!| - (lambda (_$stx291809_) - (let* ((_g291813291827_ - (lambda (_g291814291823_) + (lambda (_$stx156216_) + (let* ((_g156220156234_ + (lambda (_g156221156230_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g291814291823_)))) - (_g291812291868_ - (lambda (_g291814291831_) + _g156221156230_)))) + (_g156219156275_ + (lambda (_g156221156238_) (if (let () (declare (not safe)) - (gx#stx-pair? _g291814291831_)) - (let ((_e291818291834_ + (gx#stx-pair? _g156221156238_)) + (let ((_e156225156241_ (let () (declare (not safe)) - (gx#syntax-e _g291814291831_)))) - (let ((_hd291817291838_ + (gx#syntax-e _g156221156238_)))) + (let ((_hd156224156245_ (let () (declare (not safe)) - (##car _e291818291834_))) - (_tl291816291841_ + (##car _e156225156241_))) + (_tl156223156248_ (let () (declare (not safe)) - (##cdr _e291818291834_)))) + (##cdr _e156225156241_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl291816291841_)) - (let ((_e291821291844_ + (gx#stx-pair? _tl156223156248_)) + (let ((_e156228156251_ (let () (declare (not safe)) - (gx#syntax-e _tl291816291841_)))) - (let ((_hd291820291848_ + (gx#syntax-e _tl156223156248_)))) + (let ((_hd156227156255_ (let () (declare (not safe)) - (##car _e291821291844_))) - (_tl291819291851_ + (##car _e156228156251_))) + (_tl156226156258_ (let () (declare (not safe)) - (##cdr _e291821291844_)))) + (##cdr _e156228156251_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl291819291851_)) - ((lambda (_L291854_) - (let ((__tmp298120 + (gx#stx-null? _tl156226156258_)) + ((lambda (_L156261_) + (let ((__tmp157959 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'spawn))) - (__tmp298115 - (let ((__tmp298116 - (let ((__tmp298119 + (__tmp157954 + (let ((__tmp157955 + (let ((__tmp157958 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp298117 - (let ((__tmp298118 + (__tmp157956 + (let ((__tmp157957 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L291854_ '())))) + (let () (declare (not safe)) (cons _L156261_ '())))) (declare (not safe)) - (cons '() __tmp298118)))) + (cons '() __tmp157957)))) (declare (not safe)) - (cons __tmp298119 __tmp298117)))) + (cons __tmp157958 __tmp157956)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp298116 '())))) + (cons __tmp157955 '())))) (declare (not safe)) - (cons __tmp298120 __tmp298115))) - _hd291820291848_) - (_g291813291827_ _g291814291831_)))) - (_g291813291827_ _g291814291831_)))) - (_g291813291827_ _g291814291831_))))) - (_g291812291868_ _$stx291809_))))) + (cons __tmp157959 __tmp157954))) + _hd156227156255_) + (_g156220156234_ _g156221156238_)))) + (_g156220156234_ _g156221156238_)))) + (_g156220156234_ _g156221156238_))))) + (_g156219156275_ _$stx156216_))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann__0.scm b/src/bootstrap/gerbil/compiler/optimize-ann__0.scm index 94cb062b5..1d832a707 100644 --- a/src/bootstrap/gerbil/compiler/optimize-ann__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-ann__0.scm @@ -1,171 +1,168 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-ann::timestamp 1708102807) + (define gerbil/compiler/optimize-ann::timestamp 1708370117) (begin (declare (inlining-limit 200)) (define gxc#&optmize-annotated (make-promise (lambda () - (let ((_tbl268279_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp275969 (force gxc#&basic-xform))) + (let ((_tbl146385_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp149507 (force gxc#&basic-xform))) (declare (not safe)) - (hash-copy! _tbl268279_ __tmp275969)) + (hash-merge! _tbl146385_ __tmp149507)) (let () (declare (not safe)) - (table-set! - _tbl268279_ + (hash-put! + _tbl146385_ '%#begin-annotation gxc#optimize-annotation%)) - _tbl268279_)))) + _tbl146385_)))) (define gxc#apply-optimize-annotated - (lambda (_stx268262_ . _args268264_) - (let ((__tmp275971 + (lambda (_stx146368_ . _args146370_) + (let ((__tmp149509 (lambda () (declare (not safe)) - (if (null? _args268264_) - (gxc#compile-e__0 _stx268262_) - (let ((_arg1268269_ (car _args268264_)) - (_rest268271_ (cdr _args268264_))) - (if (null? _rest268271_) - (gxc#compile-e__1 _stx268262_ _arg1268269_) - (let ((_arg2268274_ (car _rest268271_)) - (_rest268276_ (cdr _rest268271_))) - (if (null? _rest268276_) + (if (null? _args146370_) + (gxc#compile-e__0 _stx146368_) + (let ((_arg1146375_ (car _args146370_)) + (_rest146377_ (cdr _args146370_))) + (if (null? _rest146377_) + (gxc#compile-e__1 _stx146368_ _arg1146375_) + (let ((_arg2146380_ (car _rest146377_)) + (_rest146382_ (cdr _rest146377_))) + (if (null? _rest146382_) (gxc#compile-e__2 - _stx268262_ - _arg1268269_ - _arg2268274_) + _stx146368_ + _arg1146375_ + _arg2146380_) (apply gxc#compile-e - _stx268262_ - _arg1268269_ - _arg2268274_ - _rest268276_)))))))) - (__tmp275970 (force gxc#&optmize-annotated))) + _stx146368_ + _arg1146375_ + _arg2146380_ + _rest146382_)))))))) + (__tmp149508 (force gxc#&optmize-annotated))) (declare (not safe)) (call-with-parameters - __tmp275971 + __tmp149509 gxc#current-compile-methods - __tmp275970)))) + __tmp149508)))) (define gxc#&generate-runtime-repr (make-promise (lambda () - (let ((_tbl268259_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp275972 (force gxc#&generate-runtime))) + (let ((_tbl146365_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp149510 (force gxc#&generate-runtime))) (declare (not safe)) - (hash-copy! _tbl268259_ __tmp275972)) + (hash-merge! _tbl146365_ __tmp149510)) (let () (declare (not safe)) - (table-set! _tbl268259_ '%#quote-syntax identity)) - _tbl268259_)))) + (hash-put! _tbl146365_ '%#quote-syntax identity)) + _tbl146365_)))) (define gxc#apply-generate-runtime-repr - (lambda (_stx268242_ . _args268244_) - (let ((__tmp275974 + (lambda (_stx146348_ . _args146350_) + (let ((__tmp149512 (lambda () (declare (not safe)) - (if (null? _args268244_) - (gxc#compile-e__0 _stx268242_) - (let ((_arg1268249_ (car _args268244_)) - (_rest268251_ (cdr _args268244_))) - (if (null? _rest268251_) - (gxc#compile-e__1 _stx268242_ _arg1268249_) - (let ((_arg2268254_ (car _rest268251_)) - (_rest268256_ (cdr _rest268251_))) - (if (null? _rest268256_) + (if (null? _args146350_) + (gxc#compile-e__0 _stx146348_) + (let ((_arg1146355_ (car _args146350_)) + (_rest146357_ (cdr _args146350_))) + (if (null? _rest146357_) + (gxc#compile-e__1 _stx146348_ _arg1146355_) + (let ((_arg2146360_ (car _rest146357_)) + (_rest146362_ (cdr _rest146357_))) + (if (null? _rest146362_) (gxc#compile-e__2 - _stx268242_ - _arg1268249_ - _arg2268254_) + _stx146348_ + _arg1146355_ + _arg2146360_) (apply gxc#compile-e - _stx268242_ - _arg1268249_ - _arg2268254_ - _rest268256_)))))))) - (__tmp275973 (force gxc#&generate-runtime-repr))) + _stx146348_ + _arg1146355_ + _arg2146360_ + _rest146362_)))))))) + (__tmp149511 (force gxc#&generate-runtime-repr))) (declare (not safe)) (call-with-parameters - __tmp275974 + __tmp149512 gxc#current-compile-methods - __tmp275973)))) + __tmp149511)))) (define gxc#&push-match-vars (make-promise (lambda () - (let ((_tbl268239_ - (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((_tbl146345_ + (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (table-set! _tbl268239_ '%#lambda gxc#xform-lambda%)) + (hash-put! _tbl146345_ '%#lambda gxc#xform-lambda%)) (let () (declare (not safe)) - (table-set! - _tbl268239_ + (hash-put! + _tbl146345_ '%#let-values gxc#push-match-vars-let-values%)) (let () (declare (not safe)) - (table-set! - _tbl268239_ - '%#letrec-values - gxc#push-match-vars-stop)) + (hash-put! _tbl146345_ '%#letrec-values gxc#push-match-vars-stop)) (let () (declare (not safe)) - (table-set! _tbl268239_ '%#if gxc#push-match-vars-if%)) + (hash-put! _tbl146345_ '%#if gxc#push-match-vars-if%)) (let () (declare (not safe)) - (table-set! _tbl268239_ '%#call gxc#push-match-vars-call%)) - _tbl268239_)))) + (hash-put! _tbl146345_ '%#call gxc#push-match-vars-call%)) + _tbl146345_)))) (define gxc#apply-push-match-vars - (lambda (_stx268222_ . _args268224_) - (let ((__tmp275976 + (lambda (_stx146328_ . _args146330_) + (let ((__tmp149514 (lambda () (declare (not safe)) - (if (null? _args268224_) - (gxc#compile-e__0 _stx268222_) - (let ((_arg1268229_ (car _args268224_)) - (_rest268231_ (cdr _args268224_))) - (if (null? _rest268231_) - (gxc#compile-e__1 _stx268222_ _arg1268229_) - (let ((_arg2268234_ (car _rest268231_)) - (_rest268236_ (cdr _rest268231_))) - (if (null? _rest268236_) + (if (null? _args146330_) + (gxc#compile-e__0 _stx146328_) + (let ((_arg1146335_ (car _args146330_)) + (_rest146337_ (cdr _args146330_))) + (if (null? _rest146337_) + (gxc#compile-e__1 _stx146328_ _arg1146335_) + (let ((_arg2146340_ (car _rest146337_)) + (_rest146342_ (cdr _rest146337_))) + (if (null? _rest146342_) (gxc#compile-e__2 - _stx268222_ - _arg1268229_ - _arg2268234_) + _stx146328_ + _arg1146335_ + _arg2146340_) (apply gxc#compile-e - _stx268222_ - _arg1268229_ - _arg2268234_ - _rest268236_)))))))) - (__tmp275975 (force gxc#&push-match-vars))) + _stx146328_ + _arg1146335_ + _arg2146340_ + _rest146342_)))))))) + (__tmp149513 (force gxc#&push-match-vars))) (declare (not safe)) (call-with-parameters - __tmp275976 + __tmp149514 gxc#current-compile-methods - __tmp275975)))) + __tmp149513)))) (define gxc#current-annotation-optimizer (make-parameter '())) (define gxc#optimize-annotation% - (lambda (_stx268031_) - (let* ((___stx272863272864_ _stx268031_) - (_g268035268076_ + (lambda (_stx146137_) + (let* ((___stx146401146402_ _stx146137_) + (_g146141146182_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx272863272864_))))) - (let ((___kont272865272866_ - (lambda (_L268198_ _L268199_) - (let ((_ann268213_ - (let () (declare (not safe)) (gx#stx-e _L268199_)))) - (let ((__tmp275979 + ___stx146401146402_))))) + (let ((___kont146403146404_ + (lambda (_L146304_ _L146305_) + (let ((_ann146319_ + (let () (declare (not safe)) (gx#stx-e _L146305_)))) + (let ((__tmp149517 (lambda () - (let ((_$e268216_ _ann268213_)) + (let ((_$e146322_ _ann146319_)) (if (let () (declare (not safe)) - (eq? '@match _$e268216_)) + (eq? '@match _$e146322_)) (begin (let () (declare (not safe)) @@ -173,10 +170,10 @@ '"Optimizing match expansion")) (let () (declare (not safe)) - (gxc#optimize-match _L268198_))) + (gxc#optimize-match _L146304_))) (if (let () (declare (not safe)) - (eq? '@syntax-case _$e268216_)) + (eq? '@syntax-case _$e146322_)) (begin (let () (declare (not safe)) @@ -185,1994 +182,2009 @@ (let () (declare (not safe)) (gxc#optimize-syntax-case - _L268198_))) + _L146304_))) (let () (declare (not safe)) - (gxc#compile-e__0 _L268198_))))))) - (__tmp275977 - (let ((__tmp275978 + (gxc#compile-e__0 _L146304_))))))) + (__tmp149515 + (let ((__tmp149516 (gxc#current-annotation-optimizer))) (declare (not safe)) - (cons _ann268213_ __tmp275978)))) + (cons _ann146319_ __tmp149516)))) (declare (not safe)) (call-with-parameters - __tmp275979 + __tmp149517 gxc#current-annotation-optimizer - __tmp275977))))) - (___kont272867272868_ - (lambda (_L268144_ _L268145_ _L268146_) - (let () (declare (not safe)) (gxc#compile-e__0 _L268144_)))) - (___kont272871272872_ + __tmp149515))))) + (___kont146405146406_ + (lambda (_L146250_ _L146251_ _L146252_) + (let () (declare (not safe)) (gxc#compile-e__0 _L146250_)))) + (___kont146409146410_ (lambda () (let () (declare (not safe)) - (gxc#xform-begin-annotation% _stx268031_))))) - (let* ((___match272918272919_ - (lambda (_e268053268088_ - _hd268052268091_ - _tl268051268093_ - _e268056268096_ - _hd268055268099_ - _tl268054268101_ - _e268059268104_ - _hd268058268107_ - _tl268057268109_ - ___splice272869272870_ - _target268060268112_ - _tl268062268114_) - (letrec ((_loop268063268117_ - (lambda (_hd268061268120_ _param268067268122_) + (gxc#xform-begin-annotation% _stx146137_))))) + (let* ((___match146456146457_ + (lambda (_e146159146194_ + _hd146158146197_ + _tl146157146199_ + _e146162146202_ + _hd146161146205_ + _tl146160146207_ + _e146165146210_ + _hd146164146213_ + _tl146163146215_ + ___splice146407146408_ + _target146166146218_ + _tl146168146220_) + (letrec ((_loop146169146223_ + (lambda (_hd146167146226_ _param146173146228_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd268061268120_)) - (let ((_e268064268125_ + (gx#stx-pair? _hd146167146226_)) + (let ((_e146170146231_ (let () (declare (not safe)) - (gx#stx-e _hd268061268120_)))) - (let ((_lp-tl268066268130_ + (gx#stx-e _hd146167146226_)))) + (let ((_lp-tl146172146236_ (let () (declare (not safe)) - (##cdr _e268064268125_))) - (_lp-hd268065268128_ + (##cdr _e146170146231_))) + (_lp-hd146171146234_ (let () (declare (not safe)) - (##car _e268064268125_)))) - (let ((__tmp275981 + (##car _e146170146231_)))) + (let ((__tmp149519 (let () (declare (not safe)) - (cons _lp-hd268065268128_ - _param268067268122_)))) + (cons _lp-hd146171146234_ + _param146173146228_)))) (declare (not safe)) - (_loop268063268117_ - _lp-tl268066268130_ - __tmp275981)))) - (let ((_param268068268133_ - (reverse _param268067268122_))) + (_loop146169146223_ + _lp-tl146172146236_ + __tmp149519)))) + (let ((_param146174146239_ + (reverse _param146173146228_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl268054268101_)) - (let ((_e268071268136_ + (gx#stx-pair? _tl146160146207_)) + (let ((_e146177146242_ (let () (declare (not safe)) (gx#stx-e - _tl268054268101_)))) - (let ((_tl268069268141_ + _tl146160146207_)))) + (let ((_tl146175146247_ (let () (declare (not safe)) - (##cdr _e268071268136_))) - (_hd268070268139_ + (##cdr _e146177146242_))) + (_hd146176146245_ (let () (declare (not safe)) - (##car _e268071268136_)))) + (##car _e146177146242_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl268069268141_)) - (let ((_L268144_ - _hd268070268139_) - (_L268145_ - _param268068268133_) - (_L268146_ - _hd268058268107_)) + _tl146175146247_)) + (let ((_L146250_ + _hd146176146245_) + (_L146251_ + _param146174146239_) + (_L146252_ + _hd146164146213_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _L268146_)) - (let ((__tmp275980 + (gx#identifier? _L146252_)) + (let ((__tmp149518 (memq (let () (declare (not safe)) - (gx#stx-e _L268146_)) + (gx#stx-e _L146252_)) gxc#gambit-annotations))) (declare (not safe)) - (not __tmp275980))) - (___kont272867272868_ _L268144_ _L268145_ _L268146_) - (___kont272871272872_))) + (not __tmp149518))) + (___kont146405146406_ _L146250_ _L146251_ _L146252_) + (___kont146409146410_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272871272872_)))) - (___kont272871272872_))))))) + (___kont146409146410_)))) + (___kont146409146410_))))))) (let () (declare (not safe)) - (_loop268063268117_ _target268060268112_ '()))))) - (___match272892272893_ - (lambda (_e268041268174_ - _hd268040268177_ - _tl268039268179_ - _e268044268182_ - _hd268043268185_ - _tl268042268187_ - _e268047268190_ - _hd268046268193_ - _tl268045268195_) - (let ((_L268198_ _hd268046268193_) - (_L268199_ _hd268043268185_)) + (_loop146169146223_ _target146166146218_ '()))))) + (___match146430146431_ + (lambda (_e146147146280_ + _hd146146146283_ + _tl146145146285_ + _e146150146288_ + _hd146149146291_ + _tl146148146293_ + _e146153146296_ + _hd146152146299_ + _tl146151146301_) + (let ((_L146304_ _hd146152146299_) + (_L146305_ _hd146149146291_)) (if (let () (declare (not safe)) - (gx#identifier? _L268199_)) - (___kont272865272866_ _L268198_ _L268199_) + (gx#identifier? _L146305_)) + (___kont146403146404_ _L146304_ _L146305_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd268043268185_)) - (let ((_e268059268104_ + (gx#stx-pair? _hd146149146291_)) + (let ((_e146165146210_ (let () (declare (not safe)) - (gx#stx-e _hd268043268185_)))) - (let ((_tl268057268109_ + (gx#stx-e _hd146149146291_)))) + (let ((_tl146163146215_ (let () (declare (not safe)) - (##cdr _e268059268104_))) - (_hd268058268107_ + (##cdr _e146165146210_))) + (_hd146164146213_ (let () (declare (not safe)) - (##car _e268059268104_)))) + (##car _e146165146210_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl268057268109_)) - (let ((___splice272869272870_ + (gx#stx-pair/null? _tl146163146215_)) + (let ((___splice146407146408_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl268057268109_ + _tl146163146215_ '0)))) - (let ((_tl268062268114_ + (let ((_tl146168146220_ (let () (declare (not safe)) (##vector-ref - ___splice272869272870_ + ___splice146407146408_ '1))) - (_target268060268112_ + (_target146166146218_ (let () (declare (not safe)) (##vector-ref - ___splice272869272870_ + ___splice146407146408_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl268062268114_)) - (___match272918272919_ - _e268041268174_ - _hd268040268177_ - _tl268039268179_ - _e268044268182_ - _hd268043268185_ - _tl268042268187_ - _e268059268104_ - _hd268058268107_ - _tl268057268109_ - ___splice272869272870_ - _target268060268112_ - _tl268062268114_) - (___kont272871272872_)))) - (___kont272871272872_)))) - (___kont272871272872_))))))) + _tl146168146220_)) + (___match146456146457_ + _e146147146280_ + _hd146146146283_ + _tl146145146285_ + _e146150146288_ + _hd146149146291_ + _tl146148146293_ + _e146165146210_ + _hd146164146213_ + _tl146163146215_ + ___splice146407146408_ + _target146166146218_ + _tl146168146220_) + (___kont146409146410_)))) + (___kont146409146410_)))) + (___kont146409146410_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx272863272864_)) - (let ((_e268041268174_ + (gx#stx-pair? ___stx146401146402_)) + (let ((_e146147146280_ (let () (declare (not safe)) - (gx#stx-e ___stx272863272864_)))) - (let ((_tl268039268179_ + (gx#stx-e ___stx146401146402_)))) + (let ((_tl146145146285_ (let () (declare (not safe)) - (##cdr _e268041268174_))) - (_hd268040268177_ + (##cdr _e146147146280_))) + (_hd146146146283_ (let () (declare (not safe)) - (##car _e268041268174_)))) + (##car _e146147146280_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl268039268179_)) - (let ((_e268044268182_ + (gx#stx-pair? _tl146145146285_)) + (let ((_e146150146288_ (let () (declare (not safe)) - (gx#stx-e _tl268039268179_)))) - (let ((_tl268042268187_ + (gx#stx-e _tl146145146285_)))) + (let ((_tl146148146293_ (let () (declare (not safe)) - (##cdr _e268044268182_))) - (_hd268043268185_ + (##cdr _e146150146288_))) + (_hd146149146291_ (let () (declare (not safe)) - (##car _e268044268182_)))) + (##car _e146150146288_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl268042268187_)) - (let ((_e268047268190_ + (gx#stx-pair? _tl146148146293_)) + (let ((_e146153146296_ (let () (declare (not safe)) - (gx#stx-e _tl268042268187_)))) - (let ((_tl268045268195_ + (gx#stx-e _tl146148146293_)))) + (let ((_tl146151146301_ (let () (declare (not safe)) - (##cdr _e268047268190_))) - (_hd268046268193_ + (##cdr _e146153146296_))) + (_hd146152146299_ (let () (declare (not safe)) - (##car _e268047268190_)))) + (##car _e146153146296_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl268045268195_)) - (___match272892272893_ - _e268041268174_ - _hd268040268177_ - _tl268039268179_ - _e268044268182_ - _hd268043268185_ - _tl268042268187_ - _e268047268190_ - _hd268046268193_ - _tl268045268195_) + (gx#stx-null? _tl146151146301_)) + (___match146430146431_ + _e146147146280_ + _hd146146146283_ + _tl146145146285_ + _e146150146288_ + _hd146149146291_ + _tl146148146293_ + _e146153146296_ + _hd146152146299_ + _tl146151146301_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd268043268185_)) - (let ((_e268059268104_ + _hd146149146291_)) + (let ((_e146165146210_ (let () (declare (not safe)) (gx#stx-e - _hd268043268185_)))) - (let ((_tl268057268109_ + _hd146149146291_)))) + (let ((_tl146163146215_ (let () (declare (not safe)) - (##cdr _e268059268104_))) - (_hd268058268107_ + (##cdr _e146165146210_))) + (_hd146164146213_ (let () (declare (not safe)) - (##car _e268059268104_)))) + (##car _e146165146210_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl268057268109_)) - (let ((___splice272869272870_ + _tl146163146215_)) + (let ((___splice146407146408_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl268057268109_ '0)))) - (let ((_tl268062268114_ + (gx#syntax-split-splice _tl146163146215_ '0)))) + (let ((_tl146168146220_ (let () (declare (not safe)) - (##vector-ref ___splice272869272870_ '1))) - (_target268060268112_ + (##vector-ref ___splice146407146408_ '1))) + (_target146166146218_ (let () (declare (not safe)) - (##vector-ref ___splice272869272870_ '0)))) + (##vector-ref ___splice146407146408_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl268062268114_)) - (___match272918272919_ - _e268041268174_ - _hd268040268177_ - _tl268039268179_ - _e268044268182_ - _hd268043268185_ - _tl268042268187_ - _e268059268104_ - _hd268058268107_ - _tl268057268109_ - ___splice272869272870_ - _target268060268112_ - _tl268062268114_) - (___kont272871272872_)))) - (___kont272871272872_)))) + (gx#stx-null? _tl146168146220_)) + (___match146456146457_ + _e146147146280_ + _hd146146146283_ + _tl146145146285_ + _e146150146288_ + _hd146149146291_ + _tl146148146293_ + _e146165146210_ + _hd146164146213_ + _tl146163146215_ + ___splice146407146408_ + _target146166146218_ + _tl146168146220_) + (___kont146409146410_)))) + (___kont146409146410_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272871272872_))))) + (___kont146409146410_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd268043268185_)) - (let ((_e268059268104_ + (gx#stx-pair? _hd146149146291_)) + (let ((_e146165146210_ (let () (declare (not safe)) - (gx#stx-e _hd268043268185_)))) - (let ((_tl268057268109_ + (gx#stx-e _hd146149146291_)))) + (let ((_tl146163146215_ (let () (declare (not safe)) - (##cdr _e268059268104_))) - (_hd268058268107_ + (##cdr _e146165146210_))) + (_hd146164146213_ (let () (declare (not safe)) - (##car _e268059268104_)))) + (##car _e146165146210_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl268057268109_)) - (let ((___splice272869272870_ + _tl146163146215_)) + (let ((___splice146407146408_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl268057268109_ + _tl146163146215_ '0)))) - (let ((_tl268062268114_ + (let ((_tl146168146220_ (let () (declare (not safe)) (##vector-ref - ___splice272869272870_ + ___splice146407146408_ '1))) - (_target268060268112_ + (_target146166146218_ (let () (declare (not safe)) (##vector-ref - ___splice272869272870_ + ___splice146407146408_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl268062268114_)) - (___match272918272919_ - _e268041268174_ - _hd268040268177_ - _tl268039268179_ - _e268044268182_ - _hd268043268185_ - _tl268042268187_ - _e268059268104_ - _hd268058268107_ - _tl268057268109_ - ___splice272869272870_ - _target268060268112_ - _tl268062268114_) - (___kont272871272872_)))) - (___kont272871272872_)))) - (___kont272871272872_))))) - (___kont272871272872_)))) - (___kont272871272872_))))))) + _tl146168146220_)) + (___match146456146457_ + _e146147146280_ + _hd146146146283_ + _tl146145146285_ + _e146150146288_ + _hd146149146291_ + _tl146148146293_ + _e146165146210_ + _hd146164146213_ + _tl146163146215_ + ___splice146407146408_ + _target146166146218_ + _tl146168146220_) + (___kont146409146410_)))) + (___kont146409146410_)))) + (___kont146409146410_))))) + (___kont146409146410_)))) + (___kont146409146410_))))))) (define gxc#optimize-match - (lambda (_stx267330_) - (let* ((_g267332267362_ - (lambda (_g267333267359_) + (lambda (_stx145436_) + (let* ((_g145438145468_ + (lambda (_g145439145465_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g267333267359_)))) - (_g267331268028_ - (lambda (_g267333267365_) + _g145439145465_)))) + (_g145437146134_ + (lambda (_g145439145471_) (if (let () (declare (not safe)) - (gx#stx-pair? _g267333267365_)) - (let ((_e267339267367_ + (gx#stx-pair? _g145439145471_)) + (let ((_e145445145473_ (let () (declare (not safe)) - (gx#stx-e _g267333267365_)))) - (let ((_hd267338267370_ + (gx#stx-e _g145439145471_)))) + (let ((_hd145444145476_ (let () (declare (not safe)) - (##car _e267339267367_))) - (_tl267337267372_ + (##car _e145445145473_))) + (_tl145443145478_ (let () (declare (not safe)) - (##cdr _e267339267367_)))) + (##cdr _e145445145473_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd267338267370_)) + (gx#identifier? _hd145444145476_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd267338267370_)) + _hd145444145476_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl267337267372_)) - (let ((_e267342267375_ + (gx#stx-pair? _tl145443145478_)) + (let ((_e145448145481_ (let () (declare (not safe)) - (gx#stx-e _tl267337267372_)))) - (let ((_hd267341267378_ + (gx#stx-e _tl145443145478_)))) + (let ((_hd145447145484_ (let () (declare (not safe)) - (##car _e267342267375_))) - (_tl267340267380_ + (##car _e145448145481_))) + (_tl145446145486_ (let () (declare (not safe)) - (##cdr _e267342267375_)))) + (##cdr _e145448145481_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd267341267378_)) - (let ((_e267345267383_ + _hd145447145484_)) + (let ((_e145451145489_ (let () (declare (not safe)) (gx#stx-e - _hd267341267378_)))) - (let ((_hd267344267386_ + _hd145447145484_)))) + (let ((_hd145450145492_ (let () (declare (not safe)) - (##car _e267345267383_))) - (_tl267343267388_ + (##car _e145451145489_))) + (_tl145449145494_ (let () (declare (not safe)) - (##cdr _e267345267383_)))) + (##cdr _e145451145489_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd267344267386_)) - (let ((_e267348267391_ + _hd145450145492_)) + (let ((_e145454145497_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd267344267386_)))) - (let ((_hd267347267394_ - (let () (declare (not safe)) (##car _e267348267391_))) - (_tl267346267396_ - (let () (declare (not safe)) (##cdr _e267348267391_)))) + (gx#stx-e _hd145450145492_)))) + (let ((_hd145453145500_ + (let () (declare (not safe)) (##car _e145454145497_))) + (_tl145452145502_ + (let () (declare (not safe)) (##cdr _e145454145497_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd267347267394_)) - (let ((_e267351267399_ + (gx#stx-pair? _hd145453145500_)) + (let ((_e145457145505_ (let () (declare (not safe)) - (gx#stx-e _hd267347267394_)))) - (let ((_hd267350267402_ + (gx#stx-e _hd145453145500_)))) + (let ((_hd145456145508_ (let () (declare (not safe)) - (##car _e267351267399_))) - (_tl267349267404_ + (##car _e145457145505_))) + (_tl145455145510_ (let () (declare (not safe)) - (##cdr _e267351267399_)))) + (##cdr _e145457145505_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl267349267404_)) + (gx#stx-null? _tl145455145510_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl267346267396_)) - (let ((_e267354267407_ + (gx#stx-pair? _tl145452145502_)) + (let ((_e145460145513_ (let () (declare (not safe)) - (gx#stx-e _tl267346267396_)))) - (let ((_hd267353267410_ + (gx#stx-e _tl145452145502_)))) + (let ((_hd145459145516_ (let () (declare (not safe)) - (##car _e267354267407_))) - (_tl267352267412_ + (##car _e145460145513_))) + (_tl145458145518_ (let () (declare (not safe)) - (##cdr _e267354267407_)))) + (##cdr _e145460145513_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl267352267412_)) + (gx#stx-null? _tl145458145518_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl267343267388_)) + _tl145449145494_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl267340267380_)) - (let ((_e267357267415_ + _tl145446145486_)) + (let ((_e145463145521_ (let () (declare (not safe)) (gx#stx-e - _tl267340267380_)))) - (let ((_hd267356267418_ + _tl145446145486_)))) + (let ((_hd145462145524_ (let () (declare (not safe)) - (##car _e267357267415_))) - (_tl267355267420_ + (##car _e145463145521_))) + (_tl145461145526_ (let () (declare (not safe)) - (##cdr _e267357267415_)))) + (##cdr _e145463145521_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl267355267420_)) - ((lambda (_L267423_ + _tl145461145526_)) + ((lambda (_L145529_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L267424_ - _L267425_) - (let _lp267449_ ((_body267451_ _L267423_) - (_negation267452_ + _L145530_ + _L145531_) + (let _lp145555_ ((_body145557_ _L145529_) + (_negation145558_ (let () (declare (not safe)) - (cons _L267425_ _L267424_))) - (_clauses267453_ '()) - (_konts267454_ '())) - (let* ((___stx273101273102_ _body267451_) - (_g267457267497_ + (cons _L145531_ _L145530_))) + (_clauses145559_ '()) + (_konts145560_ '())) + (let* ((___stx146639146640_ _body145557_) + (_g145563145603_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx273101273102_))))) - (let ((___kont273103273104_ - (lambda (_L267827_) - (let* ((___stx273037273038_ _L267827_) - (_g267841267871_ + ___stx146639146640_))))) + (let ((___kont146641146642_ + (lambda (_L145933_) + (let* ((___stx146575146576_ _L145933_) + (_g145947145977_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx273037273038_))))) - (let ((___kont273039273040_ - (lambda (_L267967_ - _L267968_ - _L267969_) + ___stx146575146576_))))) + (let ((___kont146577146578_ + (lambda (_L146073_ + _L146074_ + _L146075_) (if (let () (declare (not safe)) - (null? _clauses267453_)) - (let* ((_negation267993268000_ - _negation267452_) - (_E267995268004_ + (null? _clauses145559_)) + (let* ((_negation146099146106_ + _negation145558_) + (_E146101146110_ (lambda () - (error '"No clause matching" + (let () + (declare + (not safe)) + (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _negation267993268000_))) - (_K267996268010_ - (lambda (_negate268007_ _E268008_) - (let ((__tmp275991 - (let ((__tmp275992 - (let ((__tmp276002 - (let ((__tmp276003 - (let ((__tmp276005 + _negation146099146106_)))) + (_K146102146116_ + (lambda (_negate146113_ _E146114_) + (let ((__tmp149529 + (let ((__tmp149530 + (let ((__tmp149540 + (let ((__tmp149541 + (let ((__tmp149543 (let () (declare (not safe)) - (cons _E268008_ '()))) - (__tmp276004 + (cons _E146114_ '()))) + (__tmp149542 (let () (declare (not safe)) - (cons _negate268007_ + (cons _negate146113_ '())))) (declare (not safe)) - (cons __tmp276005 - __tmp276004)))) + (cons __tmp149543 + __tmp149542)))) (declare (not safe)) - (cons __tmp276003 '()))) - (__tmp275993 - (let ((__tmp275994 - (let ((__tmp275995 - (let ((__tmp275997 - (let ((__tmp275998 + (cons __tmp149541 '()))) + (__tmp149531 + (let ((__tmp149532 + (let ((__tmp149533 + (let ((__tmp149535 + (let ((__tmp149536 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp276001 + (let ((__tmp149539 (let () (declare (not safe)) - (cons _L267969_ '()))) - (__tmp275999 - (let ((__tmp276000 + (cons _L146075_ '()))) + (__tmp149537 + (let ((__tmp149538 (let () (declare (not safe)) - (gxc#compile-e__0 _L267968_)))) + (gxc#compile-e__0 _L146074_)))) (declare (not safe)) - (cons __tmp276000 '())))) + (cons __tmp149538 '())))) (declare (not safe)) - (cons __tmp276001 __tmp275999)))) + (cons __tmp149539 __tmp149537)))) (declare (not safe)) - (cons __tmp275998 '()))) - (__tmp275996 - (let () (declare (not safe)) (cons _L267967_ '())))) + (cons __tmp149536 '()))) + (__tmp149534 + (let () (declare (not safe)) (cons _L146073_ '())))) (declare (not safe)) - (cons __tmp275997 __tmp275996)))) + (cons __tmp149535 __tmp149534)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp275995)))) + __tmp149533)))) (declare (not safe)) - (cons __tmp275994 '())))) + (cons __tmp149532 '())))) (declare (not safe)) - (cons __tmp276002 __tmp275993)))) + (cons __tmp149540 __tmp149531)))) (declare (not safe)) - (cons '%#let-values __tmp275992)))) + (cons '%#let-values __tmp149530)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp275991 _stx267330_))))) + (gxc#xform-wrap-source __tmp149529 _stx145436_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _negation267993268000_)) - (let ((_hd267997268013_ + (##pair? _negation146099146106_)) + (let ((_hd146103146119_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _negation267993268000_))) - (_tl267998268015_ + (##car _negation146099146106_))) + (_tl146104146121_ (let () (declare (not safe)) - (##cdr _negation267993268000_)))) - (let* ((_E268018_ _hd267997268013_) - (_negate268020_ _tl267998268015_)) + (##cdr _negation146099146106_)))) + (let* ((_E146124_ _hd146103146119_) + (_negate146126_ _tl146104146121_)) (declare (not safe)) - (_K267996268010_ _negate268020_ _E268018_))) - (let () (declare (not safe)) (_E267995268004_)))) + (_K146102146116_ _negate146126_ _E146124_))) + (let () (declare (not safe)) (_E146101146110_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp275985 - (let ((__tmp275986 - (let ((__tmp275987 + (let ((__tmp149523 + (let ((__tmp149524 + (let ((__tmp149525 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp275990 + (let ((__tmp149528 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp275988 - (let ((__tmp275989 + (__tmp149526 + (let ((__tmp149527 (let () (declare (not safe)) - (cons _L267967_ '())))) + (cons _L146073_ '())))) (declare (not safe)) - (cons '() __tmp275989)))) + (cons '() __tmp149527)))) (declare (not safe)) - (cons __tmp275990 __tmp275988)))) + (cons __tmp149528 __tmp149526)))) (declare (not safe)) - (cons '#f __tmp275987)))) + (cons '#f __tmp149525)))) (declare (not safe)) - (cons __tmp275986 _clauses267453_))) - (__tmp275982 - (let ((__tmp275983 - (let ((__tmp275984 + (cons __tmp149524 _clauses145559_))) + (__tmp149520 + (let ((__tmp149521 + (let ((__tmp149522 (let () (declare (not safe)) - (gxc#compile-e__0 _L267968_)))) + (gxc#compile-e__0 _L146074_)))) (declare (not safe)) - (cons _L267969_ __tmp275984)))) + (cons _L146075_ __tmp149522)))) (declare (not safe)) - (cons __tmp275983 _konts267454_)))) + (cons __tmp149521 _konts145560_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimize-match-body - _stx267330_ - _negation267452_ - __tmp275985 - __tmp275982))))) - (___kont273041273042_ + _stx145436_ + _negation145558_ + __tmp149523 + __tmp149520))))) + (___kont146579146580_ (lambda () - (let* ((_negation267877267884_ - _negation267452_) - (_E267879267888_ + (let* ((_negation145983145990_ + _negation145558_) + (_E145985145994_ (lambda () - (error '"No clause matching" - _negation267877267884_))) - (_K267880267894_ - (lambda (_negate267891_ - _E267892_) - (let ((__tmp276006 - (let ((__tmp276007 + (let () + (declare (not safe)) + (error '"No clause matching" + _negation145983145990_)))) + (_K145986146000_ + (lambda (_negate145997_ + _E145998_) + (let ((__tmp149544 + (let ((__tmp149545 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp276009 - (let ((__tmp276010 - (let ((__tmp276012 + (let ((__tmp149547 + (let ((__tmp149548 + (let ((__tmp149550 (let () (declare (not safe)) - (cons _E267892_ '()))) - (__tmp276011 + (cons _E145998_ '()))) + (__tmp149549 (let () (declare (not safe)) - (cons _negate267891_ + (cons _negate145997_ '())))) (declare (not safe)) - (cons __tmp276012 __tmp276011)))) + (cons __tmp149550 __tmp149549)))) (declare (not safe)) - (cons __tmp276010 '()))) - (__tmp276008 + (cons __tmp149548 '()))) + (__tmp149546 (let () (declare (not safe)) - (cons _L267827_ '())))) + (cons _L145933_ '())))) (declare (not safe)) - (cons __tmp276009 __tmp276008)))) + (cons __tmp149547 __tmp149546)))) (declare (not safe)) - (cons '%#let-values __tmp276007)))) + (cons '%#let-values __tmp149545)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp276006 _stx267330_))))) + (gxc#xform-wrap-source __tmp149544 _stx145436_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _negation267877267884_)) - (let ((_hd267881267897_ + (##pair? _negation145983145990_)) + (let ((_hd145987146003_ (let () (declare (not safe)) - (##car _negation267877267884_))) - (_tl267882267899_ + (##car _negation145983145990_))) + (_tl145988146005_ (let () (declare (not safe)) - (##cdr _negation267877267884_)))) - (let* ((_E267902_ - _hd267881267897_) - (_negate267904_ - _tl267882267899_)) + (##cdr _negation145983145990_)))) + (let* ((_E146008_ + _hd145987146003_) + (_negate146010_ + _tl145988146005_)) (declare (not safe)) - (_K267880267894_ - _negate267904_ - _E267902_))) + (_K145986146000_ + _negate146010_ + _E146008_))) (let () (declare (not safe)) - (_E267879267888_))))))) - (let ((_g267840267906_ + (_E145985145994_))))))) + (let ((_g145946146012_ (lambda () (if (let () (declare (not safe)) - (null? _clauses267453_)) - (___kont273041273042_) + (null? _clauses145559_)) + (___kont146579146580_) (let () (declare (not safe)) - (_g267841267871_)))))) + (_g145947145977_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx273037273038_)) - (let ((_e267848267911_ + ___stx146575146576_)) + (let ((_e145954146017_ (let () (declare (not safe)) (gx#stx-e - ___stx273037273038_)))) - (let ((_tl267846267916_ + ___stx146575146576_)))) + (let ((_tl145952146022_ (let () (declare (not safe)) - (##cdr _e267848267911_))) - (_hd267847267914_ + (##cdr _e145954146017_))) + (_hd145953146020_ (let () (declare (not safe)) - (##car _e267848267911_)))) + (##car _e145954146017_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd267847267914_)) + _hd145953146020_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd267847267914_)) + _hd145953146020_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl267846267916_)) - (let ((_e267851267919_ + _tl145952146022_)) + (let ((_e145957146025_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl267846267916_)))) - (let ((_tl267849267924_ + (gx#stx-e _tl145952146022_)))) + (let ((_tl145955146030_ (let () (declare (not safe)) - (##cdr _e267851267919_))) - (_hd267850267922_ + (##cdr _e145957146025_))) + (_hd145956146028_ (let () (declare (not safe)) - (##car _e267851267919_)))) + (##car _e145957146025_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd267850267922_)) - (let ((_e267854267927_ + (gx#stx-pair? _hd145956146028_)) + (let ((_e145960146033_ (let () (declare (not safe)) - (gx#stx-e _hd267850267922_)))) - (let ((_tl267852267932_ + (gx#stx-e _hd145956146028_)))) + (let ((_tl145958146038_ (let () (declare (not safe)) - (##cdr _e267854267927_))) - (_hd267853267930_ + (##cdr _e145960146033_))) + (_hd145959146036_ (let () (declare (not safe)) - (##car _e267854267927_)))) + (##car _e145960146033_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd267853267930_)) - (let ((_e267857267935_ + (gx#stx-pair? _hd145959146036_)) + (let ((_e145963146041_ (let () (declare (not safe)) - (gx#stx-e _hd267853267930_)))) - (let ((_tl267855267940_ + (gx#stx-e _hd145959146036_)))) + (let ((_tl145961146046_ (let () (declare (not safe)) - (##cdr _e267857267935_))) - (_hd267856267938_ + (##cdr _e145963146041_))) + (_hd145962146044_ (let () (declare (not safe)) - (##car _e267857267935_)))) + (##car _e145963146041_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd267856267938_)) - (let ((_e267860267943_ + (gx#stx-pair? _hd145962146044_)) + (let ((_e145966146049_ (let () (declare (not safe)) (gx#stx-e - _hd267856267938_)))) - (let ((_tl267858267948_ + _hd145962146044_)))) + (let ((_tl145964146054_ (let () (declare (not safe)) - (##cdr _e267860267943_))) - (_hd267859267946_ + (##cdr _e145966146049_))) + (_hd145965146052_ (let () (declare (not safe)) - (##car _e267860267943_)))) + (##car _e145966146049_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl267858267948_)) + _tl145964146054_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl267855267940_)) - (let ((_e267863267951_ + _tl145961146046_)) + (let ((_e145969146057_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl267855267940_)))) - (let ((_tl267861267956_ - (let () (declare (not safe)) (##cdr _e267863267951_))) - (_hd267862267954_ + (gx#stx-e _tl145961146046_)))) + (let ((_tl145967146062_ + (let () (declare (not safe)) (##cdr _e145969146057_))) + (_hd145968146060_ (let () (declare (not safe)) - (##car _e267863267951_)))) + (##car _e145969146057_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl267861267956_)) + (gx#stx-null? _tl145967146062_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl267852267932_)) + (gx#stx-null? _tl145958146038_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl267849267924_)) - (let ((_e267866267959_ + (gx#stx-pair? _tl145955146030_)) + (let ((_e145972146065_ (let () (declare (not safe)) - (gx#stx-e _tl267849267924_)))) - (let ((_tl267864267964_ + (gx#stx-e _tl145955146030_)))) + (let ((_tl145970146070_ (let () (declare (not safe)) - (##cdr _e267866267959_))) - (_hd267865267962_ + (##cdr _e145972146065_))) + (_hd145971146068_ (let () (declare (not safe)) - (##car _e267866267959_)))) + (##car _e145972146065_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl267864267964_)) - (___kont273039273040_ - _hd267865267962_ - _hd267862267954_ - _hd267859267946_) + (gx#stx-null? _tl145970146070_)) + (___kont146577146578_ + _hd145971146068_ + _hd145968146060_ + _hd145965146052_) (let () (declare (not safe)) - (_g267840267906_))))) + (_g145946146012_))))) (let () (declare (not safe)) - (_g267840267906_))) - (let () (declare (not safe)) (_g267840267906_))) - (let () (declare (not safe)) (_g267840267906_))))) - (let () (declare (not safe)) (_g267840267906_))) + (_g145946146012_))) + (let () (declare (not safe)) (_g145946146012_))) + (let () (declare (not safe)) (_g145946146012_))))) + (let () (declare (not safe)) (_g145946146012_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g267840267906_))))) + (_g145946146012_))))) (let () (declare (not safe)) - (_g267840267906_))))) + (_g145946146012_))))) (let () (declare (not safe)) - (_g267840267906_))))) - (let () (declare (not safe)) (_g267840267906_))))) - (let () (declare (not safe)) (_g267840267906_))) - (let () (declare (not safe)) (_g267840267906_))) + (_g145946146012_))))) + (let () (declare (not safe)) (_g145946146012_))))) + (let () (declare (not safe)) (_g145946146012_))) + (let () (declare (not safe)) (_g145946146012_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g267840267906_))))) + (_g145946146012_))))) (let () (declare (not safe)) - (_g267840267906_)))))))) - (___kont273105273106_ - (lambda (_L267558_ _L267559_ _L267560_) - (let* ((___stx272921272922_ _L267559_) - (_g267587267636_ + (_g145946146012_)))))))) + (___kont146643146644_ + (lambda (_L145664_ _L145665_ _L145666_) + (let* ((___stx146459146460_ _L145665_) + (_g145693145742_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx272921272922_))))) - (let ((___kont272923272924_ - (lambda (_L267764_ - _L267765_ - _L267766_) - (let ((__tmp276016 - (let ((__tmp276017 - (let ((__tmp276018 + ___stx146459146460_))))) + (let ((___kont146461146462_ + (lambda (_L145870_ + _L145871_ + _L145872_) + (let ((__tmp149554 + (let ((__tmp149555 + (let ((__tmp149556 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp276021 + (let ((__tmp149559 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp276019 - (let ((__tmp276020 + (__tmp149557 + (let ((__tmp149558 (let () (declare (not safe)) - (cons _L267764_ '())))) + (cons _L145870_ '())))) (declare (not safe)) - (cons '() __tmp276020)))) + (cons '() __tmp149558)))) (declare (not safe)) - (cons __tmp276021 __tmp276019)))) + (cons __tmp149559 __tmp149557)))) (declare (not safe)) - (cons _L267560_ __tmp276018)))) + (cons _L145666_ __tmp149556)))) (declare (not safe)) - (cons __tmp276017 _clauses267453_))) + (cons __tmp149555 _clauses145559_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp276013 - (let ((__tmp276014 - (let ((__tmp276015 + (__tmp149551 + (let ((__tmp149552 + (let ((__tmp149553 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L267765_)))) + (gxc#compile-e__0 _L145871_)))) (declare (not safe)) - (cons _L267766_ __tmp276015)))) + (cons _L145872_ __tmp149553)))) (declare (not safe)) - (cons __tmp276014 _konts267454_)))) + (cons __tmp149552 _konts145560_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp267449_ - _L267558_ - _negation267452_ - __tmp276016 - __tmp276013)))) - (___kont272925272926_ - (lambda (_L267665_) - (let ((__tmp276022 - (let ((__tmp276023 + (_lp145555_ + _L145664_ + _negation145558_ + __tmp149554 + __tmp149551)))) + (___kont146463146464_ + (lambda (_L145771_) + (let ((__tmp149560 + (let ((__tmp149561 (let () (declare (not safe)) (gxc#compile-e__0 - _L267665_)))) + _L145771_)))) (declare (not safe)) - (cons _L267560_ - __tmp276023)))) + (cons _L145666_ + __tmp149561)))) (declare (not safe)) - (_lp267449_ - _L267558_ - __tmp276022 - _clauses267453_ - _konts267454_))))) + (_lp145555_ + _L145664_ + __tmp149560 + _clauses145559_ + _konts145560_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx272921272922_)) - (let ((_e267594267684_ + (gx#stx-pair? ___stx146459146460_)) + (let ((_e145700145790_ (let () (declare (not safe)) (gx#stx-e - ___stx272921272922_)))) - (let ((_tl267592267689_ + ___stx146459146460_)))) + (let ((_tl145698145795_ (let () (declare (not safe)) - (##cdr _e267594267684_))) - (_hd267593267687_ + (##cdr _e145700145790_))) + (_hd145699145793_ (let () (declare (not safe)) - (##car _e267594267684_)))) + (##car _e145700145790_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd267593267687_)) + _hd145699145793_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd267593267687_)) + _hd145699145793_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl267592267689_)) - (let ((_e267597267692_ + _tl145698145795_)) + (let ((_e145703145798_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl267592267689_)))) - (let ((_tl267595267697_ + (gx#stx-e _tl145698145795_)))) + (let ((_tl145701145803_ (let () (declare (not safe)) - (##cdr _e267597267692_))) - (_hd267596267695_ + (##cdr _e145703145798_))) + (_hd145702145801_ (let () (declare (not safe)) - (##car _e267597267692_)))) + (##car _e145703145798_)))) (if (let () (declare (not safe)) - (gx#stx-null? _hd267596267695_)) + (gx#stx-null? _hd145702145801_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl267595267697_)) - (let ((_e267600267700_ + (gx#stx-pair? _tl145701145803_)) + (let ((_e145706145806_ (let () (declare (not safe)) - (gx#stx-e _tl267595267697_)))) - (let ((_tl267598267705_ + (gx#stx-e _tl145701145803_)))) + (let ((_tl145704145811_ (let () (declare (not safe)) - (##cdr _e267600267700_))) - (_hd267599267703_ + (##cdr _e145706145806_))) + (_hd145705145809_ (let () (declare (not safe)) - (##car _e267600267700_)))) + (##car _e145706145806_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd267599267703_)) - (let ((_e267603267708_ + (gx#stx-pair? _hd145705145809_)) + (let ((_e145709145814_ (let () (declare (not safe)) - (gx#stx-e _hd267599267703_)))) - (let ((_tl267601267713_ + (gx#stx-e _hd145705145809_)))) + (let ((_tl145707145819_ (let () (declare (not safe)) - (##cdr _e267603267708_))) - (_hd267602267711_ + (##cdr _e145709145814_))) + (_hd145708145817_ (let () (declare (not safe)) - (##car _e267603267708_)))) + (##car _e145709145814_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd267602267711_)) + _hd145708145817_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd267602267711_)) + _hd145708145817_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl267601267713_)) - (let ((_e267606267716_ + _tl145707145819_)) + (let ((_e145712145822_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl267601267713_)))) - (let ((_tl267604267721_ - (let () (declare (not safe)) (##cdr _e267606267716_))) - (_hd267605267719_ - (let () (declare (not safe)) (##car _e267606267716_)))) + (gx#stx-e _tl145707145819_)))) + (let ((_tl145710145827_ + (let () (declare (not safe)) (##cdr _e145712145822_))) + (_hd145711145825_ + (let () (declare (not safe)) (##car _e145712145822_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd267605267719_)) - (let ((_e267609267724_ + (gx#stx-pair? _hd145711145825_)) + (let ((_e145715145830_ (let () (declare (not safe)) - (gx#stx-e _hd267605267719_)))) - (let ((_tl267607267729_ + (gx#stx-e _hd145711145825_)))) + (let ((_tl145713145835_ (let () (declare (not safe)) - (##cdr _e267609267724_))) - (_hd267608267727_ + (##cdr _e145715145830_))) + (_hd145714145833_ (let () (declare (not safe)) - (##car _e267609267724_)))) + (##car _e145715145830_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd267608267727_)) - (let ((_e267612267732_ + (gx#stx-pair? _hd145714145833_)) + (let ((_e145718145838_ (let () (declare (not safe)) - (gx#stx-e _hd267608267727_)))) - (let ((_tl267610267737_ + (gx#stx-e _hd145714145833_)))) + (let ((_tl145716145843_ (let () (declare (not safe)) - (##cdr _e267612267732_))) - (_hd267611267735_ + (##cdr _e145718145838_))) + (_hd145717145841_ (let () (declare (not safe)) - (##car _e267612267732_)))) + (##car _e145718145838_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd267611267735_)) - (let ((_e267615267740_ + (gx#stx-pair? _hd145717145841_)) + (let ((_e145721145846_ (let () (declare (not safe)) - (gx#stx-e _hd267611267735_)))) - (let ((_tl267613267745_ + (gx#stx-e _hd145717145841_)))) + (let ((_tl145719145851_ (let () (declare (not safe)) - (##cdr _e267615267740_))) - (_hd267614267743_ + (##cdr _e145721145846_))) + (_hd145720145849_ (let () (declare (not safe)) - (##car _e267615267740_)))) + (##car _e145721145846_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl267613267745_)) + _tl145719145851_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl267610267737_)) - (let ((_e267618267748_ + _tl145716145843_)) + (let ((_e145724145854_ (let () (declare (not safe)) (gx#stx-e - _tl267610267737_)))) - (let ((_tl267616267753_ + _tl145716145843_)))) + (let ((_tl145722145859_ (let () (declare (not safe)) - (##cdr _e267618267748_))) - (_hd267617267751_ + (##cdr _e145724145854_))) + (_hd145723145857_ (let () (declare (not safe)) - (##car _e267618267748_)))) + (##car _e145724145854_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl267616267753_)) + _tl145722145859_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl267607267729_)) + (gx#stx-null? _tl145713145835_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl267604267721_)) - (let ((_e267621267756_ + (gx#stx-pair? _tl145710145827_)) + (let ((_e145727145862_ (let () (declare (not safe)) - (gx#stx-e _tl267604267721_)))) - (let ((_tl267619267761_ + (gx#stx-e _tl145710145827_)))) + (let ((_tl145725145867_ (let () (declare (not safe)) - (##cdr _e267621267756_))) - (_hd267620267759_ + (##cdr _e145727145862_))) + (_hd145726145865_ (let () (declare (not safe)) - (##car _e267621267756_)))) + (##car _e145727145862_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl267619267761_)) + (gx#stx-null? _tl145725145867_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl267598267705_)) - (___kont272923272924_ - _hd267620267759_ - _hd267617267751_ - _hd267614267743_) + (gx#stx-null? _tl145704145811_)) + (___kont146461146462_ + _hd145726145865_ + _hd145723145857_ + _hd145720145849_) (let () (declare (not safe)) - (_g267587267636_))) + (_g145693145742_))) (let () (declare (not safe)) - (_g267587267636_))))) - (let () (declare (not safe)) (_g267587267636_))) - (let () (declare (not safe)) (_g267587267636_))) - (let () (declare (not safe)) (_g267587267636_))))) + (_g145693145742_))))) + (let () (declare (not safe)) (_g145693145742_))) + (let () (declare (not safe)) (_g145693145742_))) + (let () (declare (not safe)) (_g145693145742_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g267587267636_))) + (_g145693145742_))) (let () (declare (not safe)) - (_g267587267636_))))) + (_g145693145742_))))) (let () (declare (not safe)) - (_g267587267636_))))) + (_g145693145742_))))) (let () (declare (not safe)) - (_g267587267636_))))) - (let () (declare (not safe)) (_g267587267636_))))) - (let () (declare (not safe)) (_g267587267636_))) + (_g145693145742_))))) + (let () (declare (not safe)) (_g145693145742_))))) + (let () (declare (not safe)) (_g145693145742_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g267587267636_))) + (_g145693145742_))) (let () (declare (not safe)) - (_g267587267636_))))) + (_g145693145742_))))) (let () (declare (not safe)) - (_g267587267636_))))) - (let () (declare (not safe)) (_g267587267636_))) - (let () (declare (not safe)) (_g267587267636_))))) - (let () (declare (not safe)) (_g267587267636_))) + (_g145693145742_))))) + (let () (declare (not safe)) (_g145693145742_))) + (let () (declare (not safe)) (_g145693145742_))))) + (let () (declare (not safe)) (_g145693145742_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#begin-annotation _hd267593267687_)) + (gx#stx-eq? '%#begin-annotation _hd145699145793_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl267592267689_)) - (let ((_e267628267649_ + (gx#stx-pair? _tl145698145795_)) + (let ((_e145734145755_ (let () (declare (not safe)) - (gx#stx-e _tl267592267689_)))) - (let ((_tl267626267654_ + (gx#stx-e _tl145698145795_)))) + (let ((_tl145732145760_ (let () (declare (not safe)) - (##cdr _e267628267649_))) - (_hd267627267652_ + (##cdr _e145734145755_))) + (_hd145733145758_ (let () (declare (not safe)) - (##car _e267628267649_)))) + (##car _e145734145755_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd267627267652_)) + (gx#identifier? _hd145733145758_)) (if (let () (declare (not safe)) - (gx#stx-eq? '@match-else _hd267627267652_)) + (gx#stx-eq? '@match-else _hd145733145758_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl267626267654_)) - (let ((_e267631267657_ + (gx#stx-pair? _tl145732145760_)) + (let ((_e145737145763_ (let () (declare (not safe)) - (gx#stx-e _tl267626267654_)))) - (let ((_tl267629267662_ + (gx#stx-e _tl145732145760_)))) + (let ((_tl145735145768_ (let () (declare (not safe)) - (##cdr _e267631267657_))) - (_hd267630267660_ + (##cdr _e145737145763_))) + (_hd145736145766_ (let () (declare (not safe)) - (##car _e267631267657_)))) + (##car _e145737145763_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl267629267662_)) - (___kont272925272926_ - _hd267630267660_) + _tl145735145768_)) + (___kont146463146464_ + _hd145736145766_) (let () (declare (not safe)) - (_g267587267636_))))) + (_g145693145742_))))) (let () (declare (not safe)) - (_g267587267636_))) + (_g145693145742_))) (let () (declare (not safe)) - (_g267587267636_))) + (_g145693145742_))) (let () (declare (not safe)) - (_g267587267636_))))) - (let () (declare (not safe)) (_g267587267636_))) - (let () (declare (not safe)) (_g267587267636_)))) + (_g145693145742_))))) + (let () (declare (not safe)) (_g145693145742_))) + (let () (declare (not safe)) (_g145693145742_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g267587267636_))))) + (_g145693145742_))))) (let () (declare (not safe)) - (_g267587267636_)))))))) + (_g145693145742_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx273101273102_)) - (let ((_e267462267803_ + (gx#stx-pair? ___stx146639146640_)) + (let ((_e145568145909_ (let () (declare (not safe)) - (gx#stx-e ___stx273101273102_)))) - (let ((_tl267460267808_ + (gx#stx-e ___stx146639146640_)))) + (let ((_tl145566145914_ (let () (declare (not safe)) - (##cdr _e267462267803_))) - (_hd267461267806_ + (##cdr _e145568145909_))) + (_hd145567145912_ (let () (declare (not safe)) - (##car _e267462267803_)))) + (##car _e145568145909_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd267461267806_)) + (gx#identifier? _hd145567145912_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin-annotation - _hd267461267806_)) + _hd145567145912_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl267460267808_)) - (let ((_e267465267811_ + _tl145566145914_)) + (let ((_e145571145917_ (let () (declare (not safe)) (gx#stx-e - _tl267460267808_)))) - (let ((_tl267463267816_ + _tl145566145914_)))) + (let ((_tl145569145922_ (let () (declare (not safe)) - (##cdr _e267465267811_))) - (_hd267464267814_ + (##cdr _e145571145917_))) + (_hd145570145920_ (let () (declare (not safe)) - (##car _e267465267811_)))) + (##car _e145571145917_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd267464267814_)) + _hd145570145920_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-body - _hd267464267814_)) + _hd145570145920_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl267463267816_)) - (let ((_e267468267819_ + (gx#stx-pair? _tl145569145922_)) + (let ((_e145574145925_ (let () (declare (not safe)) - (gx#stx-e _tl267463267816_)))) - (let ((_tl267466267824_ + (gx#stx-e _tl145569145922_)))) + (let ((_tl145572145930_ (let () (declare (not safe)) - (##cdr _e267468267819_))) - (_hd267467267822_ + (##cdr _e145574145925_))) + (_hd145573145928_ (let () (declare (not safe)) - (##car _e267468267819_)))) + (##car _e145574145925_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl267466267824_)) - (___kont273103273104_ _hd267467267822_) + (gx#stx-null? _tl145572145930_)) + (___kont146641146642_ _hd145573145928_) (let () (declare (not safe)) - (_g267457267497_))))) - (let () (declare (not safe)) (_g267457267497_))) - (let () (declare (not safe)) (_g267457267497_))) - (let () (declare (not safe)) (_g267457267497_))))) + (_g145563145603_))))) + (let () (declare (not safe)) (_g145563145603_))) + (let () (declare (not safe)) (_g145563145603_))) + (let () (declare (not safe)) (_g145563145603_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g267457267497_))) + (_g145563145603_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd267461267806_)) + _hd145567145912_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl267460267808_)) - (let ((_e267477267510_ + _tl145566145914_)) + (let ((_e145583145616_ (let () (declare (not safe)) (gx#stx-e - _tl267460267808_)))) - (let ((_tl267475267515_ + _tl145566145914_)))) + (let ((_tl145581145621_ (let () (declare (not safe)) - (##cdr _e267477267510_))) - (_hd267476267513_ + (##cdr _e145583145616_))) + (_hd145582145619_ (let () (declare (not safe)) - (##car _e267477267510_)))) + (##car _e145583145616_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd267476267513_)) - (let ((_e267480267518_ + _hd145582145619_)) + (let ((_e145586145624_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd267476267513_)))) - (let ((_tl267478267523_ + (gx#stx-e _hd145582145619_)))) + (let ((_tl145584145629_ (let () (declare (not safe)) - (##cdr _e267480267518_))) - (_hd267479267521_ + (##cdr _e145586145624_))) + (_hd145585145627_ (let () (declare (not safe)) - (##car _e267480267518_)))) + (##car _e145586145624_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd267479267521_)) - (let ((_e267483267526_ + (gx#stx-pair? _hd145585145627_)) + (let ((_e145589145632_ (let () (declare (not safe)) - (gx#stx-e _hd267479267521_)))) - (let ((_tl267481267531_ + (gx#stx-e _hd145585145627_)))) + (let ((_tl145587145637_ (let () (declare (not safe)) - (##cdr _e267483267526_))) - (_hd267482267529_ + (##cdr _e145589145632_))) + (_hd145588145635_ (let () (declare (not safe)) - (##car _e267483267526_)))) + (##car _e145589145632_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd267482267529_)) - (let ((_e267486267534_ + (gx#stx-pair? _hd145588145635_)) + (let ((_e145592145640_ (let () (declare (not safe)) - (gx#stx-e _hd267482267529_)))) - (let ((_tl267484267539_ + (gx#stx-e _hd145588145635_)))) + (let ((_tl145590145645_ (let () (declare (not safe)) - (##cdr _e267486267534_))) - (_hd267485267537_ + (##cdr _e145592145640_))) + (_hd145591145643_ (let () (declare (not safe)) - (##car _e267486267534_)))) + (##car _e145592145640_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl267484267539_)) + (gx#stx-null? _tl145590145645_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl267481267531_)) - (let ((_e267489267542_ + _tl145587145637_)) + (let ((_e145595145648_ (let () (declare (not safe)) (gx#stx-e - _tl267481267531_)))) - (let ((_tl267487267547_ + _tl145587145637_)))) + (let ((_tl145593145653_ (let () (declare (not safe)) - (##cdr _e267489267542_))) - (_hd267488267545_ + (##cdr _e145595145648_))) + (_hd145594145651_ (let () (declare (not safe)) - (##car _e267489267542_)))) + (##car _e145595145648_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl267487267547_)) + _tl145593145653_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl267478267523_)) + _tl145584145629_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl267475267515_)) - (let ((_e267492267550_ + (gx#stx-pair? _tl145581145621_)) + (let ((_e145598145656_ (let () (declare (not safe)) - (gx#stx-e _tl267475267515_)))) - (let ((_tl267490267555_ + (gx#stx-e _tl145581145621_)))) + (let ((_tl145596145661_ (let () (declare (not safe)) - (##cdr _e267492267550_))) - (_hd267491267553_ + (##cdr _e145598145656_))) + (_hd145597145659_ (let () (declare (not safe)) - (##car _e267492267550_)))) + (##car _e145598145656_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl267490267555_)) - (___kont273105273106_ - _hd267491267553_ - _hd267488267545_ - _hd267485267537_) + (gx#stx-null? _tl145596145661_)) + (___kont146643146644_ + _hd145597145659_ + _hd145594145651_ + _hd145591145643_) (let () (declare (not safe)) - (_g267457267497_))))) - (let () (declare (not safe)) (_g267457267497_))) - (let () (declare (not safe)) (_g267457267497_))) - (let () (declare (not safe)) (_g267457267497_))))) + (_g145563145603_))))) + (let () (declare (not safe)) (_g145563145603_))) + (let () (declare (not safe)) (_g145563145603_))) + (let () (declare (not safe)) (_g145563145603_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g267457267497_))) + (_g145563145603_))) (let () (declare (not safe)) - (_g267457267497_))))) + (_g145563145603_))))) (let () (declare (not safe)) - (_g267457267497_))))) - (let () (declare (not safe)) (_g267457267497_))))) - (let () (declare (not safe)) (_g267457267497_))))) + (_g145563145603_))))) + (let () (declare (not safe)) (_g145563145603_))))) + (let () (declare (not safe)) (_g145563145603_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g267457267497_))) + (_g145563145603_))) (let () (declare (not safe)) - (_g267457267497_)))) + (_g145563145603_)))) (let () (declare (not safe)) - (_g267457267497_))))) + (_g145563145603_))))) (let () (declare (not safe)) - (_g267457267497_))))))) - _hd267356267418_ - _hd267353267410_ - _hd267350267402_) + (_g145563145603_))))))) + _hd145462145524_ + _hd145459145516_ + _hd145456145508_) (let () (declare (not safe)) - (_g267332267362_ _g267333267365_))))) + (_g145438145468_ _g145439145471_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g267332267362_ - _g267333267365_))) + (_g145438145468_ + _g145439145471_))) (let () (declare (not safe)) - (_g267332267362_ - _g267333267365_))) + (_g145438145468_ + _g145439145471_))) (let () (declare (not safe)) - (_g267332267362_ - _g267333267365_))))) + (_g145438145468_ + _g145439145471_))))) (let () (declare (not safe)) - (_g267332267362_ _g267333267365_))) + (_g145438145468_ _g145439145471_))) (let () (declare (not safe)) - (_g267332267362_ _g267333267365_))))) + (_g145438145468_ _g145439145471_))))) (let () (declare (not safe)) - (_g267332267362_ _g267333267365_))))) + (_g145438145468_ _g145439145471_))))) (let () (declare (not safe)) - (_g267332267362_ _g267333267365_))))) + (_g145438145468_ _g145439145471_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g267332267362_ - _g267333267365_))))) + (_g145438145468_ + _g145439145471_))))) (let () (declare (not safe)) - (_g267332267362_ _g267333267365_))) + (_g145438145468_ _g145439145471_))) (let () (declare (not safe)) - (_g267332267362_ _g267333267365_))) + (_g145438145468_ _g145439145471_))) (let () (declare (not safe)) - (_g267332267362_ _g267333267365_))))) + (_g145438145468_ _g145439145471_))))) (let () (declare (not safe)) - (_g267332267362_ _g267333267365_)))))) + (_g145438145468_ _g145439145471_)))))) (declare (not safe)) - (_g267331268028_ _stx267330_)))) + (_g145437146134_ _stx145436_)))) (define gxc#optimize-match-body - (lambda (_stx267036_ _negation267037_ _clauses267038_ _konts267039_) - (letrec ((_push-variables267041_ - (lambda (_clause267288_ _kont267289_) - (let ((_clause267290267300_ _clause267288_) - (_kont267291267302_ _kont267289_)) - (let* ((_E267293267306_ + (lambda (_stx145142_ _negation145143_ _clauses145144_ _konts145145_) + (letrec ((_push-variables145147_ + (lambda (_clause145394_ _kont145395_) + (let ((_clause145396145406_ _clause145394_) + (_kont145397145408_ _kont145395_)) + (let* ((_E145399145412_ (lambda () - (error '"No clause matching" - _clause267290267300_ - _kont267291267302_))) - (_K267294267313_ - (lambda (_clause-lambda267309_ - _clause-name267310_ - _K267311_) - (let ((__tmp276024 + (let () + (declare (not safe)) + (error '"No clause matching" + _clause145396145406_ + _kont145397145408_)))) + (_K145400145419_ + (lambda (_clause-lambda145415_ + _clause-name145416_ + _K145417_) + (let ((__tmp149562 (let () (declare (not safe)) (gxc#apply-push-match-vars - _clause-lambda267309_ + _clause-lambda145415_ '() - _K267311_)))) + _K145417_)))) (declare (not safe)) - (cons _clause-name267310_ __tmp276024))))) + (cons _clause-name145416_ __tmp149562))))) (if (let () (declare (not safe)) - (##pair? _clause267290267300_)) - (let ((_hd267297267316_ + (##pair? _clause145396145406_)) + (let ((_hd145403145422_ (let () (declare (not safe)) - (##car _clause267290267300_))) - (_tl267298267318_ + (##car _clause145396145406_))) + (_tl145404145424_ (let () (declare (not safe)) - (##cdr _clause267290267300_)))) - (let* ((_clause-name267321_ _hd267297267316_) - (_clause-lambda267323_ _tl267298267318_)) + (##cdr _clause145396145406_)))) + (let* ((_clause-name145427_ _hd145403145422_) + (_clause-lambda145429_ _tl145404145424_)) (if (let () (declare (not safe)) - (##pair? _kont267291267302_)) - (let* ((_hd267295267325_ + (##pair? _kont145397145408_)) + (let* ((_hd145401145431_ (let () (declare (not safe)) - (##car _kont267291267302_))) - (_K267328_ _hd267295267325_)) + (##car _kont145397145408_))) + (_K145434_ _hd145401145431_)) (declare (not safe)) - (_K267294267313_ - _clause-lambda267323_ - _clause-name267321_ - _K267328_)) + (_K145400145419_ + _clause-lambda145429_ + _clause-name145427_ + _K145434_)) (let () (declare (not safe)) - (_E267293267306_))))) + (_E145399145412_))))) (let () (declare (not safe)) - (_E267293267306_))))))) - (_start-match267042_ - (lambda (_kont267222_) - (let* ((_g267224267240_ - (lambda (_g267225267237_) + (_E145399145412_))))))) + (_start-match145148_ + (lambda (_kont145328_) + (let* ((_g145330145346_ + (lambda (_g145331145343_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g267225267237_)))) - (_g267223267285_ - (lambda (_g267225267243_) + _g145331145343_)))) + (_g145329145391_ + (lambda (_g145331145349_) (if (let () (declare (not safe)) - (gx#stx-pair? _g267225267243_)) - (let ((_e267229267245_ + (gx#stx-pair? _g145331145349_)) + (let ((_e145335145351_ (let () (declare (not safe)) - (gx#stx-e _g267225267243_)))) - (let ((_hd267228267248_ + (gx#stx-e _g145331145349_)))) + (let ((_hd145334145354_ (let () (declare (not safe)) - (##car _e267229267245_))) - (_tl267227267250_ + (##car _e145335145351_))) + (_tl145333145356_ (let () (declare (not safe)) - (##cdr _e267229267245_)))) + (##cdr _e145335145351_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd267228267248_)) + (gx#identifier? _hd145334145354_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd267228267248_)) + _hd145334145354_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl267227267250_)) - (let ((_e267232267253_ + _tl145333145356_)) + (let ((_e145338145359_ (let () (declare (not safe)) (gx#stx-e - _tl267227267250_)))) - (let ((_hd267231267256_ + _tl145333145356_)))) + (let ((_hd145337145362_ (let () (declare (not safe)) - (##car _e267232267253_))) - (_tl267230267258_ + (##car _e145338145359_))) + (_tl145336145364_ (let () (declare (not safe)) - (##cdr _e267232267253_)))) + (##cdr _e145338145359_)))) (if (let () (declare (not safe)) (gx#stx-null? - _hd267231267256_)) + _hd145337145362_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl267230267258_)) - (let ((_e267235267261_ + (gx#stx-pair? _tl145336145364_)) + (let ((_e145341145367_ (let () (declare (not safe)) - (gx#stx-e _tl267230267258_)))) - (let ((_hd267234267264_ + (gx#stx-e _tl145336145364_)))) + (let ((_hd145340145370_ (let () (declare (not safe)) - (##car _e267235267261_))) - (_tl267233267266_ + (##car _e145341145367_))) + (_tl145339145372_ (let () (declare (not safe)) - (##cdr _e267235267261_)))) + (##cdr _e145341145367_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl267233267266_)) - ((lambda (_L267269_) _L267269_) _hd267234267264_) + (gx#stx-null? _tl145339145372_)) + ((lambda (_L145375_) _L145375_) _hd145340145370_) (let () (declare (not safe)) - (_g267224267240_ _g267225267243_))))) + (_g145330145346_ _g145331145349_))))) (let () (declare (not safe)) - (_g267224267240_ _g267225267243_))) + (_g145330145346_ _g145331145349_))) (let () (declare (not safe)) - (_g267224267240_ _g267225267243_))))) + (_g145330145346_ _g145331145349_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g267224267240_ - _g267225267243_))) + (_g145330145346_ + _g145331145349_))) (let () (declare (not safe)) - (_g267224267240_ - _g267225267243_))) + (_g145330145346_ + _g145331145349_))) (let () (declare (not safe)) - (_g267224267240_ - _g267225267243_))))) + (_g145330145346_ + _g145331145349_))))) (let () (declare (not safe)) - (_g267224267240_ _g267225267243_)))))) + (_g145330145346_ _g145331145349_)))))) (declare (not safe)) - (_g267223267285_ _kont267222_)))) - (_match-body267043_ - (lambda (_blocks267119_) - (let* ((_blocks267120267129_ _blocks267119_) - (_E267122267133_ + (_g145329145391_ _kont145328_)))) + (_match-body145149_ + (lambda (_blocks145225_) + (let* ((_blocks145226145235_ _blocks145225_) + (_E145228145239_ (lambda () - (error '"No clause matching" - _blocks267120267129_))) - (_K267123267205_ - (lambda (_rest267136_ _start267137_) - (let _lp267139_ ((_rest267141_ _rest267136_) - (_body267142_ + (let () + (declare (not safe)) + (error '"No clause matching" + _blocks145226145235_)))) + (_K145229145311_ + (lambda (_rest145242_ _start145243_) + (let _lp145245_ ((_rest145247_ _rest145242_) + (_body145248_ (let () (declare (not safe)) - (_start-match267042_ - _start267137_)))) - (let* ((_rest267143267151_ _rest267141_) - (_else267145267159_ - (lambda () _body267142_)) - (_K267147267193_ - (lambda (_rest267162_ _block267163_) - (let* ((_block267164267171_ - _block267163_) - (_E267166267175_ + (_start-match145148_ + _start145243_)))) + (let* ((_rest145249145257_ _rest145247_) + (_else145251145265_ + (lambda () _body145248_)) + (_K145253145299_ + (lambda (_rest145268_ _block145269_) + (let* ((_block145270145277_ + _block145269_) + (_E145272145281_ (lambda () - (error '"No clause matching" - _block267164267171_))) - (_K267167267181_ - (lambda (_kont267178_ - _K267179_) - (let ((__tmp276025 - (let ((__tmp276026 + (let () + (declare (not safe)) + (error '"No clause matching" + _block145270145277_)))) + (_K145273145287_ + (lambda (_kont145284_ + _K145285_) + (let ((__tmp149563 + (let ((__tmp149564 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp276028 - (let ((__tmp276029 - (let ((__tmp276031 + (let ((__tmp149566 + (let ((__tmp149567 + (let ((__tmp149569 (let () (declare (not safe)) - (cons _K267179_ '()))) - (__tmp276030 + (cons _K145285_ '()))) + (__tmp149568 (let () (declare (not safe)) - (cons _kont267178_ '())))) + (cons _kont145284_ '())))) (declare (not safe)) - (cons __tmp276031 __tmp276030)))) + (cons __tmp149569 __tmp149568)))) (declare (not safe)) - (cons __tmp276029 '()))) - (__tmp276027 + (cons __tmp149567 '()))) + (__tmp149565 (let () (declare (not safe)) - (cons _body267142_ '())))) + (cons _body145248_ '())))) (declare (not safe)) - (cons __tmp276028 __tmp276027)))) + (cons __tmp149566 __tmp149565)))) (declare (not safe)) - (cons '%#let-values __tmp276026)))) + (cons '%#let-values __tmp149564)))) (declare (not safe)) - (_lp267139_ _rest267162_ __tmp276025))))) + (_lp145245_ _rest145268_ __tmp149563))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _block267164267171_)) - (let ((_hd267168267184_ + (##pair? _block145270145277_)) + (let ((_hd145274145290_ (let () (declare (not safe)) - (##car _block267164267171_))) - (_tl267169267186_ + (##car _block145270145277_))) + (_tl145275145292_ (let () (declare (not safe)) - (##cdr _block267164267171_)))) - (let* ((_K267189_ - _hd267168267184_) - (_kont267191_ - _tl267169267186_)) + (##cdr _block145270145277_)))) + (let* ((_K145295_ + _hd145274145290_) + (_kont145297_ + _tl145275145292_)) (declare (not safe)) - (_K267167267181_ - _kont267191_ - _K267189_))) + (_K145273145287_ + _kont145297_ + _K145295_))) (let () (declare (not safe)) - (_E267166267175_))))))) + (_E145272145281_))))))) (if (let () (declare (not safe)) - (##pair? _rest267143267151_)) - (let ((_hd267148267196_ + (##pair? _rest145249145257_)) + (let ((_hd145254145302_ (let () (declare (not safe)) - (##car _rest267143267151_))) - (_tl267149267198_ + (##car _rest145249145257_))) + (_tl145255145304_ (let () (declare (not safe)) - (##cdr _rest267143267151_)))) - (let* ((_block267201_ _hd267148267196_) - (_rest267203_ _tl267149267198_)) + (##cdr _rest145249145257_)))) + (let* ((_block145307_ _hd145254145302_) + (_rest145309_ _tl145255145304_)) (declare (not safe)) - (_K267147267193_ - _rest267203_ - _block267201_))) + (_K145253145299_ + _rest145309_ + _block145307_))) (let () (declare (not safe)) - (_else267145267159_)))))))) + (_else145251145265_)))))))) (if (let () (declare (not safe)) - (##pair? _blocks267120267129_)) - (let ((_hd267124267208_ + (##pair? _blocks145226145235_)) + (let ((_hd145230145314_ (let () (declare (not safe)) - (##car _blocks267120267129_))) - (_tl267125267210_ + (##car _blocks145226145235_))) + (_tl145231145316_ (let () (declare (not safe)) - (##cdr _blocks267120267129_)))) + (##cdr _blocks145226145235_)))) (if (let () (declare (not safe)) - (##pair? _hd267124267208_)) - (let ((_hd267126267213_ + (##pair? _hd145230145314_)) + (let ((_hd145232145319_ (let () (declare (not safe)) - (##car _hd267124267208_))) - (_tl267127267215_ + (##car _hd145230145314_))) + (_tl145233145321_ (let () (declare (not safe)) - (##cdr _hd267124267208_)))) + (##cdr _hd145230145314_)))) (if (let () (declare (not safe)) - (##eq? _hd267126267213_ '#f)) - (let* ((_start267218_ _tl267127267215_) - (_rest267220_ _tl267125267210_)) + (##eq? _hd145232145319_ '#f)) + (let* ((_start145324_ _tl145233145321_) + (_rest145326_ _tl145231145316_)) (declare (not safe)) - (_K267123267205_ - _rest267220_ - _start267218_)) + (_K145229145311_ + _rest145326_ + _start145324_)) (let () (declare (not safe)) - (_E267122267133_)))) + (_E145228145239_)))) (let () (declare (not safe)) - (_E267122267133_)))) - (let () (declare (not safe)) (_E267122267133_))))))) - (let ((__tmp276033 + (_E145228145239_)))) + (let () (declare (not safe)) (_E145228145239_))))))) + (let ((__tmp149571 (lambda () - (let* ((_clauses267046_ - (map _push-variables267041_ - _clauses267038_ - _konts267039_)) - (_blocks267048_ + (let* ((_clauses145152_ + (map _push-variables145147_ + _clauses145144_ + _konts145145_)) + (_blocks145154_ (let () (declare (not safe)) (gxc#optimize-match-basic-blocks - _clauses267046_))) - (_blocks267050_ + _clauses145152_))) + (_blocks145156_ (let () (declare (not safe)) (gxc#optimize-match-fold-basic-blocks - _blocks267048_))) - (_body267052_ + _blocks145154_))) + (_body145158_ (let () (declare (not safe)) - (_match-body267043_ _blocks267050_))) - (_bind267086_ - (map (lambda (_e267053267055_) - (let* ((_g267057267064_ _e267053267055_) - (_E267059267068_ + (_match-body145149_ _blocks145156_))) + (_bind145192_ + (map (lambda (_e145159145161_) + (let* ((_g145163145170_ _e145159145161_) + (_E145165145174_ (lambda () - (error '"No clause matching" - _g267057267064_))) - (_K267060267074_ - (lambda (_kont267071_ _K267072_) - (let ((__tmp276035 + (let () + (declare (not safe)) + (error '"No clause matching" + _g145163145170_)))) + (_K145166145180_ + (lambda (_kont145177_ _K145178_) + (let ((__tmp149573 (let () (declare (not safe)) - (cons _K267072_ '()))) - (__tmp276034 + (cons _K145178_ '()))) + (__tmp149572 (let () (declare (not safe)) - (cons _kont267071_ '())))) + (cons _kont145177_ '())))) (declare (not safe)) - (cons __tmp276035 - __tmp276034))))) + (cons __tmp149573 + __tmp149572))))) (if (let () (declare (not safe)) - (##pair? _g267057267064_)) - (let ((_hd267061267077_ + (##pair? _g145163145170_)) + (let ((_hd145167145183_ (let () (declare (not safe)) - (##car _g267057267064_))) - (_tl267062267079_ + (##car _g145163145170_))) + (_tl145168145185_ (let () (declare (not safe)) - (##cdr _g267057267064_)))) - (let* ((_K267082_ _hd267061267077_) - (_kont267084_ - _tl267062267079_)) + (##cdr _g145163145170_)))) + (let* ((_K145188_ _hd145167145183_) + (_kont145190_ + _tl145168145185_)) (declare (not safe)) - (_K267060267074_ - _kont267084_ - _K267082_))) + (_K145166145180_ + _kont145190_ + _K145188_))) (let () (declare (not safe)) - (_E267059267068_))))) - _konts267039_)) - (_negate267116_ - (let* ((_negation267087267094_ _negation267037_) - (_E267089267098_ + (_E145165145174_))))) + _konts145145_)) + (_negate145222_ + (let* ((_negation145193145200_ _negation145143_) + (_E145195145204_ (lambda () - (error '"No clause matching" - _negation267087267094_))) - (_K267090267104_ - (lambda (_kont267101_ _K267102_) - (let ((__tmp276037 + (let () + (declare (not safe)) + (error '"No clause matching" + _negation145193145200_)))) + (_K145196145210_ + (lambda (_kont145207_ _K145208_) + (let ((__tmp149575 (let () (declare (not safe)) - (cons _K267102_ '()))) - (__tmp276036 + (cons _K145208_ '()))) + (__tmp149574 (let () (declare (not safe)) - (cons _kont267101_ '())))) + (cons _kont145207_ '())))) (declare (not safe)) - (cons __tmp276037 __tmp276036))))) + (cons __tmp149575 __tmp149574))))) (if (let () (declare (not safe)) - (##pair? _negation267087267094_)) - (let ((_hd267091267107_ + (##pair? _negation145193145200_)) + (let ((_hd145197145213_ (let () (declare (not safe)) - (##car _negation267087267094_))) - (_tl267092267109_ + (##car _negation145193145200_))) + (_tl145198145215_ (let () (declare (not safe)) - (##cdr _negation267087267094_)))) - (let* ((_K267112_ _hd267091267107_) - (_kont267114_ _tl267092267109_)) + (##cdr _negation145193145200_)))) + (let* ((_K145218_ _hd145197145213_) + (_kont145220_ _tl145198145215_)) (declare (not safe)) - (_K267090267104_ _kont267114_ _K267112_))) + (_K145196145210_ _kont145220_ _K145218_))) (let () (declare (not safe)) - (_E267089267098_)))))) - (let ((__tmp276038 - (let ((__tmp276039 - (let ((__tmp276044 + (_E145195145204_)))))) + (let ((__tmp149576 + (let ((__tmp149577 + (let ((__tmp149582 (let () (declare (not safe)) - (cons _negate267116_ '()))) - (__tmp276040 - (let ((__tmp276041 - (let ((__tmp276042 - (let ((__tmp276043 + (cons _negate145222_ '()))) + (__tmp149578 + (let ((__tmp149579 + (let ((__tmp149580 + (let ((__tmp149581 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body267052_ '())))) + (cons _body145158_ '())))) (declare (not safe)) - (cons _bind267086_ __tmp276043)))) + (cons _bind145192_ __tmp149581)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp276042)))) + __tmp149580)))) (declare (not safe)) - (cons __tmp276041 '())))) + (cons __tmp149579 '())))) (declare (not safe)) - (cons __tmp276044 __tmp276040)))) + (cons __tmp149582 __tmp149578)))) (declare (not safe)) - (cons '%#let-values __tmp276039)))) + (cons '%#let-values __tmp149577)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp276038 _stx267036_))))) - (__tmp276032 - (let ((__obj275966 + (gxc#xform-wrap-source __tmp149576 _stx145142_))))) + (__tmp149570 + (let ((__obj149504 (let () (declare (not safe)) (##structure @@ -2182,2103 +2194,2112 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj275966) - __obj275966))) + (gx#local-context:::init! __obj149504) + __obj149504))) (declare (not safe)) (call-with-parameters - __tmp276033 + __tmp149571 gx#current-expander-context - __tmp276032))))) + __tmp149570))))) (define gxc#optimize-match-basic-blocks - (lambda (_clauses266996_) - (let _lp266998_ ((_rest267000_ _clauses266996_) (_blocks267001_ '())) - (let* ((_rest267002267010_ _rest267000_) - (_else267004267018_ (lambda () (reverse _blocks267001_))) - (_K267006267024_ - (lambda (_rest267021_ _clause267022_) - (let ((__tmp276045 + (lambda (_clauses145102_) + (let _lp145104_ ((_rest145106_ _clauses145102_) (_blocks145107_ '())) + (let* ((_rest145108145116_ _rest145106_) + (_else145110145124_ (lambda () (reverse _blocks145107_))) + (_K145112145130_ + (lambda (_rest145127_ _clause145128_) + (let ((__tmp149583 (let () (declare (not safe)) (gxc#optimize-match-lift-basic-blocks - _clause267022_ - _blocks267001_)))) + _clause145128_ + _blocks145107_)))) (declare (not safe)) - (_lp266998_ _rest267021_ __tmp276045))))) - (if (let () (declare (not safe)) (##pair? _rest267002267010_)) - (let ((_hd267007267027_ + (_lp145104_ _rest145127_ __tmp149583))))) + (if (let () (declare (not safe)) (##pair? _rest145108145116_)) + (let ((_hd145113145133_ (let () (declare (not safe)) - (##car _rest267002267010_))) - (_tl267008267029_ + (##car _rest145108145116_))) + (_tl145114145135_ (let () (declare (not safe)) - (##cdr _rest267002267010_)))) - (let* ((_clause267032_ _hd267007267027_) - (_rest267034_ _tl267008267029_)) + (##cdr _rest145108145116_)))) + (let* ((_clause145138_ _hd145113145133_) + (_rest145140_ _tl145114145135_)) (declare (not safe)) - (_K267006267024_ _rest267034_ _clause267032_))) - (let () (declare (not safe)) (_else267004267018_))))))) + (_K145112145130_ _rest145140_ _clause145138_))) + (let () (declare (not safe)) (_else145110145124_))))))) (define gxc#optimize-match-lift-basic-blocks - (lambda (_clause266340_ _blocks266341_) - (letrec ((_bind->args266343_ - (lambda (_bind266991_) - (let ((__tmp276046 - (lambda (_b266993_ _r266994_) - (let ((__tmp276047 - (let ((__tmp276048 - (let ((__tmp276049 (car _b266993_))) + (lambda (_clause144446_ _blocks144447_) + (letrec ((_bind->args144449_ + (lambda (_bind145097_) + (let ((__tmp149584 + (lambda (_b145099_ _r145100_) + (let ((__tmp149585 + (let ((__tmp149586 + (let ((__tmp149587 (car _b145099_))) (declare (not safe)) - (cons __tmp276049 '())))) + (cons __tmp149587 '())))) (declare (not safe)) - (cons '%#ref __tmp276048)))) + (cons '%#ref __tmp149586)))) (declare (not safe)) - (cons __tmp276047 _r266994_))))) + (cons __tmp149585 _r145100_))))) (declare (not safe)) - (foldl1 __tmp276046 '() _bind266991_)))) - (_create-block266344_ - (lambda (_body266940_ - _let-bind266941_ - _bind266942_ - _assert266943_) - (let* ((_id266945_ - (let ((__tmp276050 (gensym '__match))) + (foldl1 __tmp149584 '() _bind145097_)))) + (_create-block144450_ + (lambda (_body145046_ + _let-bind145047_ + _bind145048_ + _assert145049_) + (let* ((_id145051_ + (let ((__tmp149588 (gensym '__match))) (declare (not safe)) - (make-symbol__0 __tmp276050))) - (_id266947_ + (make-symbol__0 __tmp149588))) + (_id145053_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id266945_))) - (_g276051_ + (gx#core-quote-syntax__0 _id145051_))) + (_g149589_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _id266947_))) - (_block266950_ - (let ((__tmp276052 - (let ((__tmp276053 - (let ((__tmp276054 + (gx#core-bind-runtime!__0 _id145053_))) + (_block145056_ + (let ((__tmp149590 + (let ((__tmp149591 + (let ((__tmp149592 (let () (declare (not safe)) - (cons _assert266943_ '())))) + (cons _assert145049_ '())))) (declare (not safe)) - (cons _bind266942_ __tmp276054)))) + (cons _bind145048_ __tmp149592)))) (declare (not safe)) - (cons _body266940_ __tmp276053)))) + (cons _body145046_ __tmp149591)))) (declare (not safe)) - (cons _id266947_ __tmp276052))) - (_continue266952_ - (let ((__tmp276055 - (let ((__tmp276057 - (let ((__tmp276058 + (cons _id145053_ __tmp149590))) + (_continue145058_ + (let ((__tmp149593 + (let ((__tmp149595 + (let ((__tmp149596 (let () (declare (not safe)) - (cons _id266947_ '())))) + (cons _id145053_ '())))) (declare (not safe)) - (cons '%#ref __tmp276058))) - (__tmp276056 + (cons '%#ref __tmp149596))) + (__tmp149594 (let () (declare (not safe)) - (_bind->args266343_ - _bind266942_)))) + (_bind->args144449_ + _bind145048_)))) (declare (not safe)) - (cons __tmp276057 __tmp276056)))) + (cons __tmp149595 __tmp149594)))) (declare (not safe)) - (cons '%#call __tmp276055))) - (_continue266988_ + (cons '%#call __tmp149593))) + (_continue145094_ (if (let () (declare (not safe)) - (null? _let-bind266941_)) - _continue266952_ - (let* ((_locals266986_ - (map (lambda (_e266953266955_) - (let* ((_g266957266964_ - _e266953266955_) - (_E266959266968_ + (null? _let-bind145047_)) + _continue145058_ + (let* ((_locals145092_ + (map (lambda (_e145059145061_) + (let* ((_g145063145070_ + _e145059145061_) + (_E145065145074_ (lambda () - (error '"No clause matching" - _g266957266964_))) - (_K266960266974_ - (lambda (_expr266971_ - _id266972_) - (let ((__tmp276060 - (let () + (let () + (declare (not safe)) + (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (cons _id266972_ '()))) - (__tmp276059 - (let () (declare (not safe)) (cons _expr266971_ '())))) + _g145063145070_)))) + (_K145066145080_ + (lambda (_expr145077_ _id145078_) + (let ((__tmp149598 + (let () (declare (not safe)) (cons _id145078_ '()))) + (__tmp149597 + (let () (declare (not safe)) (cons _expr145077_ '())))) (declare (not safe)) - (cons __tmp276060 __tmp276059))))) + (cons __tmp149598 __tmp149597))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _g266957266964_)) - (let ((_hd266961266977_ + (##pair? _g145063145070_)) + (let ((_hd145067145083_ (let () (declare (not safe)) - (##car _g266957266964_))) - (_tl266962266979_ + (##car _g145063145070_))) + (_tl145068145085_ (let () (declare (not safe)) - (##cdr _g266957266964_)))) - (let* ((_id266982_ - _hd266961266977_) - (_expr266984_ - _tl266962266979_)) + (##cdr _g145063145070_)))) + (let* ((_id145088_ + _hd145067145083_) + (_expr145090_ + _tl145068145085_)) (declare (not safe)) - (_K266960266974_ - _expr266984_ - _id266982_))) + (_K145066145080_ + _expr145090_ + _id145088_))) (let () (declare (not safe)) - (_E266959266968_))))) - _let-bind266941_)) - (__tmp276061 - (let ((__tmp276062 + (_E145065145074_))))) + _let-bind145047_)) + (__tmp149599 + (let ((__tmp149600 (let () (declare (not safe)) - (cons _continue266952_ '())))) + (cons _continue145058_ '())))) (declare (not safe)) - (cons _locals266986_ __tmp276062)))) + (cons _locals145092_ __tmp149600)))) (declare (not safe)) - (cons '%#let-values __tmp276061))))) - (values _continue266988_ _block266950_)))) - (_basic-block266345_ - (lambda (_body266526_ _bind266527_ _assert266528_) - (let* ((___stx273209273210_ _body266526_) - (_g266533266617_ + (cons '%#let-values __tmp149599))))) + (values _continue145094_ _block145056_)))) + (_basic-block144451_ + (lambda (_body144632_ _bind144633_ _assert144634_) + (let* ((___stx146747146748_ _body144632_) + (_g144639144723_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx273209273210_))))) - (let ((___kont273211273212_ - (lambda (_L266876_ _L266877_ _L266878_) - (let ((_g276063_ - (let ((__tmp276065 - (let ((__tmp276066 + ___stx146747146748_))))) + (let ((___kont146749146750_ + (lambda (_L144982_ _L144983_ _L144984_) + (let ((_g149601_ + (let ((__tmp149603 + (let ((__tmp149604 (let () (declare (not safe)) - (cons _L266878_ '#t)))) + (cons _L144984_ '#t)))) (declare (not safe)) - (cons __tmp276066 - _assert266528_)))) + (cons __tmp149604 + _assert144634_)))) (declare (not safe)) - (_create-block266344_ - _L266877_ + (_create-block144450_ + _L144983_ '() - _bind266527_ - __tmp276065)))) + _bind144633_ + __tmp149603)))) (begin - (let ((_g276064_ + (let ((_g149602_ (let () (declare (not safe)) - (if (##values? _g276063_) - (##vector-length _g276063_) + (if (##values? _g149601_) + (##vector-length _g149601_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g276064_ 2))) + (##fx= _g149602_ 2))) (error "Context expects 2 values" - _g276064_))) - (let ((_k-continue266896_ + _g149602_))) + (let ((_k-continue145002_ (let () (declare (not safe)) - (##vector-ref _g276063_ 0))) - (_k-block266897_ + (##vector-ref _g149601_ 0))) + (_k-block145003_ (let () (declare (not safe)) - (##vector-ref _g276063_ 1)))) - (let* ((___stx273191273192_ _L266876_) - (_g266900266909_ + (##vector-ref _g149601_ 1)))) + (let* ((___stx146729146730_ _L144982_) + (_g145006145015_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx273191273192_))))) - (let ((___kont273193273194_ + ___stx146729146730_))))) + (let ((___kont146731146732_ (lambda () - (values (let ((__tmp276067 - (let ((__tmp276068 + (values (let ((__tmp149605 + (let ((__tmp149606 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp276069 + (let ((__tmp149607 (let () (declare (not safe)) - (cons _L266876_ '())))) + (cons _L144982_ '())))) (declare (not safe)) - (cons _k-continue266896_ __tmp276069)))) + (cons _k-continue145002_ __tmp149607)))) (declare (not safe)) - (cons _L266878_ __tmp276068)))) + (cons _L144984_ __tmp149606)))) (declare (not safe)) - (cons '%#if __tmp276067)) - (let () (declare (not safe)) (cons _k-block266897_ '()))))) + (cons '%#if __tmp149605)) + (let () (declare (not safe)) (cons _k-block145003_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273195273196_ + (___kont146733146734_ (lambda () - (let ((_g276070_ - (let ((__tmp276072 - (let ((__tmp276073 + (let ((_g149608_ + (let ((__tmp149610 + (let ((__tmp149611 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L266878_ '#f)))) + (cons _L144984_ '#f)))) (declare (not safe)) - (cons __tmp276073 _assert266528_)))) + (cons __tmp149611 _assert144634_)))) (declare (not safe)) - (_create-block266344_ - _L266876_ + (_create-block144450_ + _L144982_ '() - _bind266527_ - __tmp276072)))) + _bind144633_ + __tmp149610)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin - (let ((_g276071_ + (let ((_g149609_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g276070_) - (##vector-length _g276070_) + _g149608_) + (##vector-length _g149608_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g276071_ 2))) - (error "Context expects 2 values" _g276071_))) + (if (not (let () (declare (not safe)) (##fx= _g149609_ 2))) + (error "Context expects 2 values" _g149609_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_e-continue266916_ + (let ((_e-continue145022_ (let () (declare (not safe)) (##vector-ref - _g276070_ + _g149608_ 0))) - (_e-block266917_ + (_e-block145023_ (let () (declare (not safe)) (##vector-ref - _g276070_ + _g149608_ 1)))) - (values (let ((__tmp276074 + (values (let ((__tmp149612 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp276075 - (let ((__tmp276076 + (let ((__tmp149613 + (let ((__tmp149614 (let () (declare (not safe)) - (cons _e-continue266916_ '())))) + (cons _e-continue145022_ '())))) (declare (not safe)) - (cons _k-continue266896_ __tmp276076)))) + (cons _k-continue145002_ __tmp149614)))) (declare (not safe)) - (cons _L266878_ __tmp276075)))) + (cons _L144984_ __tmp149613)))) (declare (not safe)) - (cons '%#if __tmp276074)) - (let ((__tmp276077 + (cons '%#if __tmp149612)) + (let ((__tmp149615 (let () (declare (not safe)) - (cons _e-block266917_ '())))) + (cons _e-block145023_ '())))) (declare (not safe)) - (cons _k-block266897_ __tmp276077))))))))) + (cons _k-block145003_ __tmp149615))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx273191273192_)) - (let ((_e266904266924_ + ___stx146729146730_)) + (let ((_e145010145030_ (let () (declare (not safe)) (gx#stx-e - ___stx273191273192_)))) - (let ((_tl266902266929_ + ___stx146729146730_)))) + (let ((_tl145008145035_ (let () (declare (not safe)) - (##cdr _e266904266924_))) - (_hd266903266927_ + (##cdr _e145010145030_))) + (_hd145009145033_ (let () (declare (not safe)) - (##car _e266904266924_)))) + (##car _e145010145030_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd266903266927_)) + _hd145009145033_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd266903266927_)) - (___kont273193273194_) - (___kont273195273196_)) - (___kont273195273196_)))) - (___kont273195273196_))))))))) - (___kont273213273214_ - (lambda () (values _body266526_ '()))) - (___kont273217273218_ - (lambda (_L266705_ _L266706_ _L266707_) - (let* ((_let-bind266742_ + _hd145009145033_)) + (___kont146731146732_) + (___kont146733146734_)) + (___kont146733146734_)))) + (___kont146733146734_))))))))) + (___kont146751146752_ + (lambda () (values _body144632_ '()))) + (___kont146755146756_ + (lambda (_L144811_ _L144812_ _L144813_) + (let* ((_let-bind144848_ (map cons - (let ((__tmp276078 - (lambda (_g266727266730_ - _g266728266732_) + (let ((__tmp149616 + (lambda (_g144833144836_ + _g144834144838_) (let () (declare (not safe)) - (cons _g266727266730_ - _g266728266732_))))) + (cons _g144833144836_ + _g144834144838_))))) (declare (not safe)) - (foldr1 __tmp276078 + (foldr1 __tmp149616 '() - _L266707_)) - (let ((__tmp276079 - (lambda (_g266734266737_ - _g266735266739_) + _L144813_)) + (let ((__tmp149617 + (lambda (_g144840144843_ + _g144841144845_) (let () (declare (not safe)) - (cons _g266734266737_ - _g266735266739_))))) + (cons _g144840144843_ + _g144841144845_))))) (declare (not safe)) - (foldr1 __tmp276079 + (foldr1 __tmp149617 '() - _L266706_)))) - (_g276080_ - (let ((__tmp276082 + _L144812_)))) + (_g149618_ + (let ((__tmp149620 (let () (declare (not safe)) (foldl1 cons - _bind266527_ - _let-bind266742_)))) + _bind144633_ + _let-bind144848_)))) (declare (not safe)) - (_create-block266344_ - _L266705_ - _let-bind266742_ - __tmp276082 - _assert266528_)))) + (_create-block144450_ + _L144811_ + _let-bind144848_ + __tmp149620 + _assert144634_)))) (begin - (let ((_g276081_ + (let ((_g149619_ (let () (declare (not safe)) - (if (##values? _g276080_) - (##vector-length _g276080_) + (if (##values? _g149618_) + (##vector-length _g149618_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g276081_ 2))) + (##fx= _g149619_ 2))) (error "Context expects 2 values" - _g276081_))) - (let ((_continue266744_ + _g149619_))) + (let ((_continue144850_ (let () (declare (not safe)) - (##vector-ref _g276080_ 0))) - (_block266745_ + (##vector-ref _g149618_ 0))) + (_block144851_ (let () (declare (not safe)) - (##vector-ref _g276080_ 1)))) + (##vector-ref _g149618_ 1)))) (let () - (values _continue266744_ + (values _continue144850_ (let () (declare (not safe)) - (cons _block266745_ + (cons _block144851_ '()))))))))) - (___kont273221273222_ - (lambda () (values _body266526_ '())))) - (let* ((___match273300273301_ - (lambda (_e266586266629_ - _hd266585266632_ - _tl266584266634_ - _e266589266637_ - _hd266588266640_ - _tl266587266642_ - ___splice273219273220_ - _target266590266645_ - _tl266592266647_) - (letrec ((_loop266593266650_ - (lambda (_hd266591266653_ - _expr266597266655_ - _id266598266657_) + (___kont146759146760_ + (lambda () (values _body144632_ '())))) + (let* ((___match146838146839_ + (lambda (_e144692144735_ + _hd144691144738_ + _tl144690144740_ + _e144695144743_ + _hd144694144746_ + _tl144693144748_ + ___splice146757146758_ + _target144696144751_ + _tl144698144753_) + (letrec ((_loop144699144756_ + (lambda (_hd144697144759_ + _expr144703144761_ + _id144704144763_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd266591266653_)) - (let ((_e266594266660_ + _hd144697144759_)) + (let ((_e144700144766_ (let () (declare (not safe)) (gx#stx-e - _hd266591266653_)))) - (let ((_lp-tl266596266665_ + _hd144697144759_)))) + (let ((_lp-tl144702144771_ (let () (declare (not safe)) - (##cdr _e266594266660_))) - (_lp-hd266595266663_ + (##cdr _e144700144766_))) + (_lp-hd144701144769_ (let () (declare (not safe)) - (##car _e266594266660_)))) + (##car _e144700144766_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd266595266663_)) - (let ((_e266603266668_ + _lp-hd144701144769_)) + (let ((_e144709144774_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd266595266663_)))) - (let ((_tl266601266673_ + (gx#stx-e _lp-hd144701144769_)))) + (let ((_tl144707144779_ (let () (declare (not safe)) - (##cdr _e266603266668_))) - (_hd266602266671_ + (##cdr _e144709144774_))) + (_hd144708144777_ (let () (declare (not safe)) - (##car _e266603266668_)))) + (##car _e144709144774_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd266602266671_)) - (let ((_e266606266676_ + (gx#stx-pair? _hd144708144777_)) + (let ((_e144712144782_ (let () (declare (not safe)) - (gx#stx-e _hd266602266671_)))) - (let ((_tl266604266681_ + (gx#stx-e _hd144708144777_)))) + (let ((_tl144710144787_ (let () (declare (not safe)) - (##cdr _e266606266676_))) - (_hd266605266679_ + (##cdr _e144712144782_))) + (_hd144711144785_ (let () (declare (not safe)) - (##car _e266606266676_)))) + (##car _e144712144782_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl266604266681_)) + (gx#stx-null? _tl144710144787_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl266601266673_)) - (let ((_e266609266684_ + (gx#stx-pair? _tl144707144779_)) + (let ((_e144715144790_ (let () (declare (not safe)) - (gx#stx-e _tl266601266673_)))) - (let ((_tl266607266689_ + (gx#stx-e _tl144707144779_)))) + (let ((_tl144713144795_ (let () (declare (not safe)) - (##cdr _e266609266684_))) - (_hd266608266687_ + (##cdr _e144715144790_))) + (_hd144714144793_ (let () (declare (not safe)) - (##car _e266609266684_)))) + (##car _e144715144790_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl266607266689_)) - (let ((__tmp276084 + _tl144713144795_)) + (let ((__tmp149622 (let () (declare (not safe)) - (cons _hd266608266687_ - _expr266597266655_))) - (__tmp276083 + (cons _hd144714144793_ + _expr144703144761_))) + (__tmp149621 (let () (declare (not safe)) - (cons _hd266605266679_ - _id266598266657_)))) + (cons _hd144711144785_ + _id144704144763_)))) (declare (not safe)) - (_loop266593266650_ - _lp-tl266596266665_ - __tmp276084 - __tmp276083)) - (___kont273221273222_)))) - (___kont273221273222_)) - (___kont273221273222_)))) - (___kont273221273222_)))) - (___kont273221273222_)))) + (_loop144699144756_ + _lp-tl144702144771_ + __tmp149622 + __tmp149621)) + (___kont146759146760_)))) + (___kont146759146760_)) + (___kont146759146760_)))) + (___kont146759146760_)))) + (___kont146759146760_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id266600266694_ - (reverse _id266598266657_)) - (_expr266599266692_ - (reverse _expr266597266655_))) + (let ((_id144706144800_ + (reverse _id144704144763_)) + (_expr144705144798_ + (reverse _expr144703144761_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl266587266642_)) - (let ((_e266612266697_ + _tl144693144748_)) + (let ((_e144718144803_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl266587266642_)))) - (let ((_tl266610266702_ - (let () (declare (not safe)) (##cdr _e266612266697_))) - (_hd266611266700_ + (gx#stx-e _tl144693144748_)))) + (let ((_tl144716144808_ + (let () (declare (not safe)) (##cdr _e144718144803_))) + (_hd144717144806_ (let () (declare (not safe)) - (##car _e266612266697_)))) + (##car _e144718144803_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl266610266702_)) - (___kont273217273218_ - _hd266611266700_ - _expr266599266692_ - _id266600266694_) - (___kont273221273222_)))) - (___kont273221273222_))))))) + (gx#stx-null? _tl144716144808_)) + (___kont146755146756_ + _hd144717144806_ + _expr144705144798_ + _id144706144800_) + (___kont146759146760_)))) + (___kont146759146760_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop266593266650_ - _target266590266645_ + (_loop144699144756_ + _target144696144751_ '() '()))))) - (___match273276273277_ - (lambda (_e266552266753_ - _hd266551266756_ - _tl266550266758_ - _e266555266761_ - _hd266554266764_ - _tl266553266766_ - ___splice273215273216_ - _target266556266769_ - _tl266558266771_) - (letrec ((_loop266559266774_ - (lambda (_hd266557266777_) + (___match146814146815_ + (lambda (_e144658144859_ + _hd144657144862_ + _tl144656144864_ + _e144661144867_ + _hd144660144870_ + _tl144659144872_ + ___splice146753146754_ + _target144662144875_ + _tl144664144877_) + (letrec ((_loop144665144880_ + (lambda (_hd144663144883_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd266557266777_)) - (let ((_e266560266780_ + _hd144663144883_)) + (let ((_e144666144886_ (let () (declare (not safe)) (gx#stx-e - _hd266557266777_)))) - (let ((_lp-tl266562266785_ + _hd144663144883_)))) + (let ((_lp-tl144668144891_ (let () (declare (not safe)) - (##cdr _e266560266780_))) - (_lp-hd266561266783_ + (##cdr _e144666144886_))) + (_lp-hd144667144889_ (let () (declare (not safe)) - (##car _e266560266780_)))) + (##car _e144666144886_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd266561266783_)) - (let ((_e266565266788_ + _lp-hd144667144889_)) + (let ((_e144671144894_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd266561266783_)))) - (let ((_tl266563266793_ + (gx#stx-e _lp-hd144667144889_)))) + (let ((_tl144669144899_ (let () (declare (not safe)) - (##cdr _e266565266788_))) - (_hd266564266791_ + (##cdr _e144671144894_))) + (_hd144670144897_ (let () (declare (not safe)) - (##car _e266565266788_)))) + (##car _e144671144894_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd266564266791_)) - (let ((_e266568266796_ + (gx#stx-pair? _hd144670144897_)) + (let ((_e144674144902_ (let () (declare (not safe)) - (gx#stx-e _hd266564266791_)))) - (let ((_tl266566266801_ + (gx#stx-e _hd144670144897_)))) + (let ((_tl144672144907_ (let () (declare (not safe)) - (##cdr _e266568266796_))) - (_hd266567266799_ + (##cdr _e144674144902_))) + (_hd144673144905_ (let () (declare (not safe)) - (##car _e266568266796_)))) + (##car _e144674144902_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl266566266801_)) + (gx#stx-null? _tl144672144907_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl266563266793_)) - (let ((_e266571266804_ + (gx#stx-pair? _tl144669144899_)) + (let ((_e144677144910_ (let () (declare (not safe)) - (gx#stx-e _tl266563266793_)))) - (let ((_tl266569266809_ + (gx#stx-e _tl144669144899_)))) + (let ((_tl144675144915_ (let () (declare (not safe)) - (##cdr _e266571266804_))) - (_hd266570266807_ + (##cdr _e144677144910_))) + (_hd144676144913_ (let () (declare (not safe)) - (##car _e266571266804_)))) + (##car _e144677144910_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd266570266807_)) - (let ((_e266574266812_ + _hd144676144913_)) + (let ((_e144680144918_ (let () (declare (not safe)) (gx#stx-e - _hd266570266807_)))) - (let ((_tl266572266817_ + _hd144676144913_)))) + (let ((_tl144678144923_ (let () (declare (not safe)) - (##cdr _e266574266812_))) - (_hd266573266815_ + (##cdr _e144680144918_))) + (_hd144679144921_ (let () (declare (not safe)) - (##car _e266574266812_)))) + (##car _e144680144918_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd266573266815_)) + _hd144679144921_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd266573266815_)) + _hd144679144921_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl266572266817_)) - (let ((_e266577266820_ + (gx#stx-pair? _tl144678144923_)) + (let ((_e144683144926_ (let () (declare (not safe)) - (gx#stx-e _tl266572266817_)))) - (let ((_tl266575266825_ + (gx#stx-e _tl144678144923_)))) + (let ((_tl144681144931_ (let () (declare (not safe)) - (##cdr _e266577266820_))) - (_hd266576266823_ + (##cdr _e144683144926_))) + (_hd144682144929_ (let () (declare (not safe)) - (##car _e266577266820_)))) + (##car _e144683144926_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl266575266825_)) + (gx#stx-null? _tl144681144931_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl266569266809_)) + (gx#stx-null? _tl144675144915_)) (let () (declare (not safe)) - (_loop266559266774_ _lp-tl266562266785_)) - (___match273300273301_ - _e266552266753_ - _hd266551266756_ - _tl266550266758_ - _e266555266761_ - _hd266554266764_ - _tl266553266766_ - ___splice273215273216_ - _target266556266769_ - _tl266558266771_)) - (___match273300273301_ - _e266552266753_ - _hd266551266756_ - _tl266550266758_ - _e266555266761_ - _hd266554266764_ - _tl266553266766_ - ___splice273215273216_ - _target266556266769_ - _tl266558266771_)))) - (___match273300273301_ - _e266552266753_ - _hd266551266756_ - _tl266550266758_ - _e266555266761_ - _hd266554266764_ - _tl266553266766_ - ___splice273215273216_ - _target266556266769_ - _tl266558266771_)) - (___match273300273301_ - _e266552266753_ - _hd266551266756_ - _tl266550266758_ - _e266555266761_ - _hd266554266764_ - _tl266553266766_ - ___splice273215273216_ - _target266556266769_ - _tl266558266771_)) - (___match273300273301_ - _e266552266753_ - _hd266551266756_ - _tl266550266758_ - _e266555266761_ - _hd266554266764_ - _tl266553266766_ - ___splice273215273216_ - _target266556266769_ - _tl266558266771_)))) + (_loop144665144880_ _lp-tl144668144891_)) + (___match146838146839_ + _e144658144859_ + _hd144657144862_ + _tl144656144864_ + _e144661144867_ + _hd144660144870_ + _tl144659144872_ + ___splice146753146754_ + _target144662144875_ + _tl144664144877_)) + (___match146838146839_ + _e144658144859_ + _hd144657144862_ + _tl144656144864_ + _e144661144867_ + _hd144660144870_ + _tl144659144872_ + ___splice146753146754_ + _target144662144875_ + _tl144664144877_)))) + (___match146838146839_ + _e144658144859_ + _hd144657144862_ + _tl144656144864_ + _e144661144867_ + _hd144660144870_ + _tl144659144872_ + ___splice146753146754_ + _target144662144875_ + _tl144664144877_)) + (___match146838146839_ + _e144658144859_ + _hd144657144862_ + _tl144656144864_ + _e144661144867_ + _hd144660144870_ + _tl144659144872_ + ___splice146753146754_ + _target144662144875_ + _tl144664144877_)) + (___match146838146839_ + _e144658144859_ + _hd144657144862_ + _tl144656144864_ + _e144661144867_ + _hd144660144870_ + _tl144659144872_ + ___splice146753146754_ + _target144662144875_ + _tl144664144877_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match273300273301_ - _e266552266753_ - _hd266551266756_ - _tl266550266758_ - _e266555266761_ - _hd266554266764_ - _tl266553266766_ - ___splice273215273216_ - _target266556266769_ - _tl266558266771_)))) - (___match273300273301_ - _e266552266753_ - _hd266551266756_ - _tl266550266758_ - _e266555266761_ - _hd266554266764_ - _tl266553266766_ - ___splice273215273216_ - _target266556266769_ - _tl266558266771_)) - (___match273300273301_ - _e266552266753_ - _hd266551266756_ - _tl266550266758_ - _e266555266761_ - _hd266554266764_ - _tl266553266766_ - ___splice273215273216_ - _target266556266769_ - _tl266558266771_)))) - (___match273300273301_ - _e266552266753_ - _hd266551266756_ - _tl266550266758_ - _e266555266761_ - _hd266554266764_ - _tl266553266766_ - ___splice273215273216_ - _target266556266769_ - _tl266558266771_)))) - (___match273300273301_ - _e266552266753_ - _hd266551266756_ - _tl266550266758_ - _e266555266761_ - _hd266554266764_ - _tl266553266766_ - ___splice273215273216_ - _target266556266769_ - _tl266558266771_)))) + (___match146838146839_ + _e144658144859_ + _hd144657144862_ + _tl144656144864_ + _e144661144867_ + _hd144660144870_ + _tl144659144872_ + ___splice146753146754_ + _target144662144875_ + _tl144664144877_)))) + (___match146838146839_ + _e144658144859_ + _hd144657144862_ + _tl144656144864_ + _e144661144867_ + _hd144660144870_ + _tl144659144872_ + ___splice146753146754_ + _target144662144875_ + _tl144664144877_)) + (___match146838146839_ + _e144658144859_ + _hd144657144862_ + _tl144656144864_ + _e144661144867_ + _hd144660144870_ + _tl144659144872_ + ___splice146753146754_ + _target144662144875_ + _tl144664144877_)))) + (___match146838146839_ + _e144658144859_ + _hd144657144862_ + _tl144656144864_ + _e144661144867_ + _hd144660144870_ + _tl144659144872_ + ___splice146753146754_ + _target144662144875_ + _tl144664144877_)))) + (___match146838146839_ + _e144658144859_ + _hd144657144862_ + _tl144656144864_ + _e144661144867_ + _hd144660144870_ + _tl144659144872_ + ___splice146753146754_ + _target144662144875_ + _tl144664144877_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (if (let () (declare (not safe)) (gx#stx-pair? - _tl266553266766_)) - (let ((_e266580266829_ + _tl144659144872_)) + (let ((_e144686144935_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl266553266766_)))) - (let ((_tl266578266834_ - (let () (declare (not safe)) (##cdr _e266580266829_))) - (_hd266579266832_ + (gx#stx-e _tl144659144872_)))) + (let ((_tl144684144940_ + (let () (declare (not safe)) (##cdr _e144686144935_))) + (_hd144685144938_ (let () (declare (not safe)) - (##car _e266580266829_)))) + (##car _e144686144935_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl266578266834_)) - (___kont273213273214_) - (___match273300273301_ - _e266552266753_ - _hd266551266756_ - _tl266550266758_ - _e266555266761_ - _hd266554266764_ - _tl266553266766_ - ___splice273215273216_ - _target266556266769_ - _tl266558266771_)))) - (___match273300273301_ - _e266552266753_ - _hd266551266756_ - _tl266550266758_ - _e266555266761_ - _hd266554266764_ - _tl266553266766_ - ___splice273215273216_ - _target266556266769_ - _tl266558266771_))))))) + (gx#stx-null? _tl144684144940_)) + (___kont146751146752_) + (___match146838146839_ + _e144658144859_ + _hd144657144862_ + _tl144656144864_ + _e144661144867_ + _hd144660144870_ + _tl144659144872_ + ___splice146753146754_ + _target144662144875_ + _tl144664144877_)))) + (___match146838146839_ + _e144658144859_ + _hd144657144862_ + _tl144656144864_ + _e144661144867_ + _hd144660144870_ + _tl144659144872_ + ___splice146753146754_ + _target144662144875_ + _tl144664144877_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop266559266774_ - _target266556266769_)))))) + (_loop144665144880_ + _target144662144875_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx273209273210_)) - (let ((_e266540266844_ + (gx#stx-pair? ___stx146747146748_)) + (let ((_e144646144950_ (let () (declare (not safe)) - (gx#stx-e ___stx273209273210_)))) - (let ((_tl266538266849_ + (gx#stx-e ___stx146747146748_)))) + (let ((_tl144644144955_ (let () (declare (not safe)) - (##cdr _e266540266844_))) - (_hd266539266847_ + (##cdr _e144646144950_))) + (_hd144645144953_ (let () (declare (not safe)) - (##car _e266540266844_)))) + (##car _e144646144950_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd266539266847_)) + (gx#identifier? _hd144645144953_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd266539266847_)) + _hd144645144953_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl266538266849_)) - (let ((_e266543266852_ + _tl144644144955_)) + (let ((_e144649144958_ (let () (declare (not safe)) (gx#stx-e - _tl266538266849_)))) - (let ((_tl266541266857_ + _tl144644144955_)))) + (let ((_tl144647144963_ (let () (declare (not safe)) - (##cdr _e266543266852_))) - (_hd266542266855_ + (##cdr _e144649144958_))) + (_hd144648144961_ (let () (declare (not safe)) - (##car _e266543266852_)))) + (##car _e144649144958_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl266541266857_)) - (let ((_e266546266860_ + _tl144647144963_)) + (let ((_e144652144966_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl266541266857_)))) - (let ((_tl266544266865_ - (let () (declare (not safe)) (##cdr _e266546266860_))) - (_hd266545266863_ - (let () (declare (not safe)) (##car _e266546266860_)))) + (gx#stx-e _tl144647144963_)))) + (let ((_tl144650144971_ + (let () (declare (not safe)) (##cdr _e144652144966_))) + (_hd144651144969_ + (let () (declare (not safe)) (##car _e144652144966_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl266544266865_)) - (let ((_e266549266868_ + (gx#stx-pair? _tl144650144971_)) + (let ((_e144655144974_ (let () (declare (not safe)) - (gx#stx-e _tl266544266865_)))) - (let ((_tl266547266873_ + (gx#stx-e _tl144650144971_)))) + (let ((_tl144653144979_ (let () (declare (not safe)) - (##cdr _e266549266868_))) - (_hd266548266871_ + (##cdr _e144655144974_))) + (_hd144654144977_ (let () (declare (not safe)) - (##car _e266549266868_)))) + (##car _e144655144974_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl266547266873_)) - (___kont273211273212_ - _hd266548266871_ - _hd266545266863_ - _hd266542266855_) - (___kont273221273222_)))) - (___kont273221273222_)))) - (___kont273221273222_)))) + (gx#stx-null? _tl144653144979_)) + (___kont146749146750_ + _hd144654144977_ + _hd144651144969_ + _hd144648144961_) + (___kont146759146760_)))) + (___kont146759146760_)))) + (___kont146759146760_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273221273222_)) + (___kont146759146760_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd266539266847_)) + _hd144645144953_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl266538266849_)) - (let ((_e266555266761_ + _tl144644144955_)) + (let ((_e144661144867_ (let () (declare (not safe)) (gx#stx-e - _tl266538266849_)))) - (let ((_tl266553266766_ + _tl144644144955_)))) + (let ((_tl144659144872_ (let () (declare (not safe)) - (##cdr _e266555266761_))) - (_hd266554266764_ + (##cdr _e144661144867_))) + (_hd144660144870_ (let () (declare (not safe)) - (##car _e266555266761_)))) + (##car _e144661144867_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd266554266764_)) - (let ((___splice273215273216_ + _hd144660144870_)) + (let ((___splice146753146754_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd266554266764_ '0)))) - (let ((_tl266558266771_ + (gx#syntax-split-splice _hd144660144870_ '0)))) + (let ((_tl144664144877_ (let () (declare (not safe)) - (##vector-ref ___splice273215273216_ '1))) - (_target266556266769_ + (##vector-ref ___splice146753146754_ '1))) + (_target144662144875_ (let () (declare (not safe)) - (##vector-ref ___splice273215273216_ '0)))) + (##vector-ref ___splice146753146754_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl266558266771_)) - (___match273276273277_ - _e266540266844_ - _hd266539266847_ - _tl266538266849_ - _e266555266761_ - _hd266554266764_ - _tl266553266766_ - ___splice273215273216_ - _target266556266769_ - _tl266558266771_) - (___kont273221273222_)))) - (___kont273221273222_)))) + (gx#stx-null? _tl144664144877_)) + (___match146814146815_ + _e144646144950_ + _hd144645144953_ + _tl144644144955_ + _e144661144867_ + _hd144660144870_ + _tl144659144872_ + ___splice146753146754_ + _target144662144875_ + _tl144664144877_) + (___kont146759146760_)))) + (___kont146759146760_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273221273222_)) - (___kont273221273222_))) - (___kont273221273222_)))) - (___kont273221273222_))))))) - (_fold-blocks266346_ - (lambda (_rest266445_ _blocks266446_) - (let* ((_rest266447266464_ _rest266445_) - (_E266450266468_ + (___kont146759146760_)) + (___kont146759146760_))) + (___kont146759146760_)))) + (___kont146759146760_))))))) + (_fold-blocks144452_ + (lambda (_rest144551_ _blocks144552_) + (let* ((_rest144553144570_ _rest144551_) + (_E144556144574_ (lambda () - (error '"No clause matching" - _rest266447266464_)))) - (let ((_K266452266488_ - (lambda (_rest266479_ - _assert266480_ - _bind266481_ - _body266482_ - _name266483_) - (let ((_g276085_ + (let () + (declare (not safe)) + (error '"No clause matching" + _rest144553144570_))))) + (let ((_K144558144594_ + (lambda (_rest144585_ + _assert144586_ + _bind144587_ + _body144588_ + _name144589_) + (let ((_g149623_ (let () (declare (not safe)) - (_basic-block266345_ - _body266482_ - _bind266481_ - _assert266480_)))) + (_basic-block144451_ + _body144588_ + _bind144587_ + _assert144586_)))) (begin - (let ((_g276086_ + (let ((_g149624_ (let () (declare (not safe)) - (if (##values? _g276085_) - (##vector-length _g276085_) + (if (##values? _g149623_) + (##vector-length _g149623_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g276086_ 2))) + (##fx= _g149624_ 2))) (error "Context expects 2 values" - _g276086_))) - (let ((_body266485_ + _g149624_))) + (let ((_body144591_ (let () (declare (not safe)) - (##vector-ref _g276085_ 0))) - (_body-blocks266486_ + (##vector-ref _g149623_ 0))) + (_body-blocks144592_ (let () (declare (not safe)) - (##vector-ref _g276085_ 1)))) - (let ((__tmp276097 + (##vector-ref _g149623_ 1)))) + (let ((__tmp149635 (let () (declare (not safe)) (foldl1 cons - _rest266479_ - _body-blocks266486_))) - (__tmp276087 - (let ((__tmp276088 - (let ((__tmp276089 - (let ((__tmp276090 + _rest144585_ + _body-blocks144592_))) + (__tmp149625 + (let ((__tmp149626 + (let ((__tmp149627 + (let ((__tmp149628 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp276093 - (let ((__tmp276094 - (let ((__tmp276096 - (reverse (map car _bind266481_))) - (__tmp276095 + (let ((__tmp149631 + (let ((__tmp149632 + (let ((__tmp149634 + (reverse (map car _bind144587_))) + (__tmp149633 (let () (declare (not safe)) - (cons _body266485_ '())))) + (cons _body144591_ '())))) (declare (not safe)) - (cons __tmp276096 __tmp276095)))) + (cons __tmp149634 __tmp149633)))) (declare (not safe)) - (cons '%#lambda __tmp276094))) - (__tmp276091 - (let ((__tmp276092 + (cons '%#lambda __tmp149632))) + (__tmp149629 + (let ((__tmp149630 (let () (declare (not safe)) - (cons _bind266481_ '())))) + (cons _bind144587_ '())))) (declare (not safe)) - (cons _assert266480_ __tmp276092)))) + (cons _assert144586_ __tmp149630)))) (declare (not safe)) - (cons __tmp276093 __tmp276091)))) + (cons __tmp149631 __tmp149629)))) (declare (not safe)) - (cons 'continue: __tmp276090)))) + (cons 'continue: __tmp149628)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _name266483_ - __tmp276089)))) + (cons _name144589_ + __tmp149627)))) (declare (not safe)) - (cons __tmp276088 - _blocks266446_)))) + (cons __tmp149626 + _blocks144552_)))) (declare (not safe)) - (_fold-blocks266346_ - __tmp276097 - __tmp276087))))))) - (_K266451266473_ (lambda () _blocks266446_))) - (let ((_try-match266449266476_ + (_fold-blocks144452_ + __tmp149635 + __tmp149625))))))) + (_K144557144579_ (lambda () _blocks144552_))) + (let ((_try-match144555144582_ (lambda () (if (let () (declare (not safe)) - (##null? _rest266447266464_)) + (##null? _rest144553144570_)) (let () (declare (not safe)) - (_K266451266473_)) + (_K144557144579_)) (let () (declare (not safe)) - (_E266450266468_)))))) + (_E144556144574_)))))) (if (let () (declare (not safe)) - (##pair? _rest266447266464_)) - (let ((_tl266454266493_ + (##pair? _rest144553144570_)) + (let ((_tl144560144599_ (let () (declare (not safe)) - (##cdr _rest266447266464_))) - (_hd266453266491_ + (##cdr _rest144553144570_))) + (_hd144559144597_ (let () (declare (not safe)) - (##car _rest266447266464_)))) + (##car _rest144553144570_)))) (if (let () (declare (not safe)) - (##pair? _hd266453266491_)) - (let ((_tl266456266498_ + (##pair? _hd144559144597_)) + (let ((_tl144562144604_ (let () (declare (not safe)) - (##cdr _hd266453266491_))) - (_hd266455266496_ + (##cdr _hd144559144597_))) + (_hd144561144602_ (let () (declare (not safe)) - (##car _hd266453266491_)))) + (##car _hd144559144597_)))) (if (let () (declare (not safe)) - (##pair? _tl266456266498_)) - (let ((_tl266458266505_ + (##pair? _tl144562144604_)) + (let ((_tl144564144611_ (let () (declare (not safe)) - (##cdr _tl266456266498_))) - (_hd266457266503_ + (##cdr _tl144562144604_))) + (_hd144563144609_ (let () (declare (not safe)) - (##car _tl266456266498_)))) + (##car _tl144562144604_)))) (if (let () (declare (not safe)) - (##pair? _tl266458266505_)) - (let ((_tl266460266512_ + (##pair? _tl144564144611_)) + (let ((_tl144566144618_ (let () (declare (not safe)) - (##cdr _tl266458266505_))) - (_hd266459266510_ + (##cdr _tl144564144611_))) + (_hd144565144616_ (let () (declare (not safe)) - (##car _tl266458266505_)))) + (##car _tl144564144611_)))) (if (let () (declare (not safe)) - (##pair? _tl266460266512_)) - (let ((_tl266462266519_ + (##pair? _tl144566144618_)) + (let ((_tl144568144625_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _tl266460266512_))) - (_hd266461266517_ - (let () (declare (not safe)) (##car _tl266460266512_)))) - (if (let () (declare (not safe)) (##null? _tl266462266519_)) - (let ((_name266501_ _hd266455266496_) - (_body266508_ _hd266457266503_) - (_bind266515_ _hd266459266510_) - (_assert266522_ _hd266461266517_) - (_rest266524_ _tl266454266493_)) + (##cdr _tl144566144618_))) + (_hd144567144623_ + (let () (declare (not safe)) (##car _tl144566144618_)))) + (if (let () (declare (not safe)) (##null? _tl144568144625_)) + (let ((_name144607_ _hd144561144602_) + (_body144614_ _hd144563144609_) + (_bind144621_ _hd144565144616_) + (_assert144628_ _hd144567144623_) + (_rest144630_ _tl144560144599_)) (let () (declare (not safe)) - (_K266452266488_ - _rest266524_ - _assert266522_ - _bind266515_ - _body266508_ - _name266501_))) - (let () (declare (not safe)) (_E266450266468_)))) - (let () (declare (not safe)) (_E266450266468_)))) + (_K144558144594_ + _rest144630_ + _assert144628_ + _bind144621_ + _body144614_ + _name144607_))) + (let () (declare (not safe)) (_E144556144574_)))) + (let () (declare (not safe)) (_E144556144574_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E266450266468_)))) + (_E144556144574_)))) (let () (declare (not safe)) - (_E266450266468_)))) + (_E144556144574_)))) (let () (declare (not safe)) - (_E266450266468_)))) + (_E144556144574_)))) (let () (declare (not safe)) - (_try-match266449266476_))))))))) - (let* ((_clause266347266354_ _clause266340_) - (_E266349266358_ + (_try-match144555144582_))))))))) + (let* ((_clause144453144460_ _clause144446_) + (_E144455144464_ (lambda () - (error '"No clause matching" _clause266347266354_))) - (_K266350266433_ - (lambda (_body266361_ _name266362_) - (let* ((_g266364266380_ - (lambda (_g266365266377_) + (let () + (declare (not safe)) + (error '"No clause matching" _clause144453144460_)))) + (_K144456144539_ + (lambda (_body144467_ _name144468_) + (let* ((_g144470144486_ + (lambda (_g144471144483_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g266365266377_)))) - (_g266363266430_ - (lambda (_g266365266383_) + _g144471144483_)))) + (_g144469144536_ + (lambda (_g144471144489_) (if (let () (declare (not safe)) - (gx#stx-pair? _g266365266383_)) - (let ((_e266369266385_ + (gx#stx-pair? _g144471144489_)) + (let ((_e144475144491_ (let () (declare (not safe)) - (gx#stx-e _g266365266383_)))) - (let ((_hd266368266388_ + (gx#stx-e _g144471144489_)))) + (let ((_hd144474144494_ (let () (declare (not safe)) - (##car _e266369266385_))) - (_tl266367266390_ + (##car _e144475144491_))) + (_tl144473144496_ (let () (declare (not safe)) - (##cdr _e266369266385_)))) + (##cdr _e144475144491_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd266368266388_)) + (gx#identifier? _hd144474144494_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd266368266388_)) + _hd144474144494_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl266367266390_)) - (let ((_e266372266393_ + _tl144473144496_)) + (let ((_e144478144499_ (let () (declare (not safe)) (gx#stx-e - _tl266367266390_)))) - (let ((_hd266371266396_ + _tl144473144496_)))) + (let ((_hd144477144502_ (let () (declare (not safe)) - (##car _e266372266393_))) - (_tl266370266398_ + (##car _e144478144499_))) + (_tl144476144504_ (let () (declare (not safe)) - (##cdr _e266372266393_)))) + (##cdr _e144478144499_)))) (if (let () (declare (not safe)) (gx#stx-null? - _hd266371266396_)) + _hd144477144502_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl266370266398_)) - (let ((_e266375266401_ + (gx#stx-pair? _tl144476144504_)) + (let ((_e144481144507_ (let () (declare (not safe)) - (gx#stx-e _tl266370266398_)))) - (let ((_hd266374266404_ + (gx#stx-e _tl144476144504_)))) + (let ((_hd144480144510_ (let () (declare (not safe)) - (##car _e266375266401_))) - (_tl266373266406_ + (##car _e144481144507_))) + (_tl144479144512_ (let () (declare (not safe)) - (##cdr _e266375266401_)))) + (##cdr _e144481144507_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl266373266406_)) - ((lambda (_L266409_) - (let ((_g276098_ + (gx#stx-null? _tl144479144512_)) + ((lambda (_L144515_) + (let ((_g149636_ (let () (declare (not safe)) - (_basic-block266345_ - _L266409_ + (_basic-block144451_ + _L144515_ '() '())))) (begin - (let ((_g276099_ + (let ((_g149637_ (let () (declare (not safe)) - (if (##values? _g276098_) - (##vector-length _g276098_) + (if (##values? _g149636_) + (##vector-length _g149636_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g276099_ 2))) + (##fx= _g149637_ 2))) (error "Context expects 2 values" - _g276099_))) - (let ((_body266427_ + _g149637_))) + (let ((_body144533_ (let () (declare (not safe)) - (##vector-ref _g276098_ 0))) - (_body-blocks266428_ + (##vector-ref _g149636_ 0))) + (_body-blocks144534_ (let () (declare (not safe)) - (##vector-ref _g276098_ 1)))) - (let ((__tmp276100 - (let ((__tmp276101 - (let ((__tmp276102 - (let ((__tmp276103 + (##vector-ref _g149636_ 1)))) + (let ((__tmp149638 + (let ((__tmp149639 + (let ((__tmp149640 + (let ((__tmp149641 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp276105 - (let ((__tmp276106 - (let ((__tmp276107 + (let ((__tmp149643 + (let ((__tmp149644 + (let ((__tmp149645 (let () (declare (not safe)) - (cons _body266427_ '())))) + (cons _body144533_ '())))) (declare (not safe)) - (cons '() __tmp276107)))) + (cons '() __tmp149645)))) (declare (not safe)) - (cons '%#lambda __tmp276106))) - (__tmp276104 + (cons '%#lambda __tmp149644))) + (__tmp149642 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp276105 __tmp276104)))) + (cons __tmp149643 __tmp149642)))) (declare (not safe)) - (cons 'restart: __tmp276103)))) + (cons 'restart: __tmp149641)))) (declare (not safe)) - (cons _name266362_ __tmp276102)))) + (cons _name144468_ __tmp149640)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp276101 - _blocks266341_)))) + (cons __tmp149639 + _blocks144447_)))) (declare (not safe)) - (_fold-blocks266346_ - _body-blocks266428_ - __tmp276100)))))) - _hd266374266404_) + (_fold-blocks144452_ + _body-blocks144534_ + __tmp149638)))))) + _hd144480144510_) (let () (declare (not safe)) - (_g266364266380_ _g266365266383_))))) + (_g144470144486_ _g144471144489_))))) (let () (declare (not safe)) - (_g266364266380_ _g266365266383_))) + (_g144470144486_ _g144471144489_))) (let () (declare (not safe)) - (_g266364266380_ _g266365266383_))))) + (_g144470144486_ _g144471144489_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g266364266380_ - _g266365266383_))) + (_g144470144486_ + _g144471144489_))) (let () (declare (not safe)) - (_g266364266380_ - _g266365266383_))) + (_g144470144486_ + _g144471144489_))) (let () (declare (not safe)) - (_g266364266380_ - _g266365266383_))))) + (_g144470144486_ + _g144471144489_))))) (let () (declare (not safe)) - (_g266364266380_ _g266365266383_)))))) + (_g144470144486_ _g144471144489_)))))) (declare (not safe)) - (_g266363266430_ _body266361_))))) - (if (let () (declare (not safe)) (##pair? _clause266347266354_)) - (let ((_hd266351266436_ + (_g144469144536_ _body144467_))))) + (if (let () (declare (not safe)) (##pair? _clause144453144460_)) + (let ((_hd144457144542_ (let () (declare (not safe)) - (##car _clause266347266354_))) - (_tl266352266438_ + (##car _clause144453144460_))) + (_tl144458144544_ (let () (declare (not safe)) - (##cdr _clause266347266354_)))) - (let* ((_name266441_ _hd266351266436_) - (_body266443_ _tl266352266438_)) + (##cdr _clause144453144460_)))) + (let* ((_name144547_ _hd144457144542_) + (_body144549_ _tl144458144544_)) (declare (not safe)) - (_K266350266433_ _body266443_ _name266441_))) - (let () (declare (not safe)) (_E266349266358_))))))) + (_K144456144539_ _body144549_ _name144547_))) + (let () (declare (not safe)) (_E144455144464_))))))) (define gxc#optimize-match-fold-basic-blocks - (lambda (_blocks265946_) - (let _lp265948_ ((_rest265950_ _blocks265946_) (_blocks265951_ '())) - (let* ((_rest265952265960_ _rest265950_) - (_else265954266009_ + (lambda (_blocks144052_) + (let _lp144054_ ((_rest144056_ _blocks144052_) (_blocks144057_ '())) + (let* ((_rest144058144066_ _rest144056_) + (_else144060144115_ (lambda () - (let ((__tmp276108 - (lambda (_block265968_ _r265969_) - (let* ((_block265970265981_ _block265968_) - (_E265972265985_ + (let ((__tmp149646 + (lambda (_block144074_ _r144075_) + (let* ((_block144076144087_ _block144074_) + (_E144078144091_ (lambda () - (error '"No clause matching" - _block265970265981_))) - (_K265973265991_ - (lambda (_kont265988_ _name265989_) - (let ((__tmp276109 + (let () + (declare (not safe)) + (error '"No clause matching" + _block144076144087_)))) + (_K144079144097_ + (lambda (_kont144094_ _name144095_) + (let ((__tmp149647 (let () (declare (not safe)) - (cons _name265989_ - _kont265988_)))) + (cons _name144095_ + _kont144094_)))) (declare (not safe)) - (cons __tmp276109 _r265969_))))) + (cons __tmp149647 _r144075_))))) (if (let () (declare (not safe)) - (##pair? _block265970265981_)) - (let ((_hd265974265994_ + (##pair? _block144076144087_)) + (let ((_hd144080144100_ (let () (declare (not safe)) - (##car _block265970265981_))) - (_tl265975265996_ + (##car _block144076144087_))) + (_tl144081144102_ (let () (declare (not safe)) - (##cdr _block265970265981_)))) - (let ((_name265999_ _hd265974265994_)) + (##cdr _block144076144087_)))) + (let ((_name144105_ _hd144080144100_)) (if (let () (declare (not safe)) - (##pair? _tl265975265996_)) - (let ((_tl265977266001_ + (##pair? _tl144081144102_)) + (let ((_tl144083144107_ (let () (declare (not safe)) - (##cdr _tl265975265996_)))) + (##cdr _tl144081144102_)))) (if (let () (declare (not safe)) - (##pair? _tl265977266001_)) - (let* ((_hd265978266004_ + (##pair? _tl144083144107_)) + (let* ((_hd144084144110_ (let () (declare (not safe)) - (##car _tl265977266001_))) - (_kont266007_ - _hd265978266004_)) + (##car _tl144083144107_))) + (_kont144113_ + _hd144084144110_)) (declare (not safe)) - (_K265973265991_ - _kont266007_ - _name265999_)) + (_K144079144097_ + _kont144113_ + _name144105_)) (let () (declare (not safe)) - (_E265972265985_)))) + (_E144078144091_)))) (let () (declare (not safe)) - (_E265972265985_))))) + (_E144078144091_))))) (let () (declare (not safe)) - (_E265972265985_))))))) + (_E144078144091_))))))) (declare (not safe)) - (foldl1 __tmp276108 '() _blocks265951_)))) - (_K265956266328_ - (lambda (_rest266012_ _block266013_) - (let* ((_block266014266039_ _block266013_) - (_E266017266043_ + (foldl1 __tmp149646 '() _blocks144057_)))) + (_K144062144434_ + (lambda (_rest144118_ _block144119_) + (let* ((_block144120144145_ _block144119_) + (_E144123144149_ (lambda () - (error '"No clause matching" - _block266014266039_)))) - (let ((_K266029266299_ - (lambda (_assert266221_ _kont266222_ _name266223_) - (let* ((_g266225266241_ - (lambda (_g266226266238_) + (let () + (declare (not safe)) + (error '"No clause matching" + _block144120144145_))))) + (let ((_K144135144405_ + (lambda (_assert144327_ _kont144328_ _name144329_) + (let* ((_g144331144347_ + (lambda (_g144332144344_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g266226266238_)))) - (_g266224266296_ - (lambda (_g266226266244_) + _g144332144344_)))) + (_g144330144402_ + (lambda (_g144332144350_) (if (let () (declare (not safe)) - (gx#stx-pair? _g266226266244_)) - (let ((_e266230266246_ + (gx#stx-pair? _g144332144350_)) + (let ((_e144336144352_ (let () (declare (not safe)) (gx#stx-e - _g266226266244_)))) - (let ((_hd266229266249_ + _g144332144350_)))) + (let ((_hd144335144355_ (let () (declare (not safe)) - (##car _e266230266246_))) - (_tl266228266251_ + (##car _e144336144352_))) + (_tl144334144357_ (let () (declare (not safe)) - (##cdr _e266230266246_)))) + (##cdr _e144336144352_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd266229266249_)) + _hd144335144355_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd266229266249_)) + _hd144335144355_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl266228266251_)) - (let ((_e266233266254_ + (gx#stx-pair? _tl144334144357_)) + (let ((_e144339144360_ (let () (declare (not safe)) - (gx#stx-e _tl266228266251_)))) - (let ((_hd266232266257_ + (gx#stx-e _tl144334144357_)))) + (let ((_hd144338144363_ (let () (declare (not safe)) - (##car _e266233266254_))) - (_tl266231266259_ + (##car _e144339144360_))) + (_tl144337144365_ (let () (declare (not safe)) - (##cdr _e266233266254_)))) + (##cdr _e144339144360_)))) (if (let () (declare (not safe)) - (gx#stx-null? _hd266232266257_)) + (gx#stx-null? _hd144338144363_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl266231266259_)) - (let ((_e266236266262_ + (gx#stx-pair? _tl144337144365_)) + (let ((_e144342144368_ (let () (declare (not safe)) - (gx#stx-e _tl266231266259_)))) - (let ((_hd266235266265_ + (gx#stx-e _tl144337144365_)))) + (let ((_hd144341144371_ (let () (declare (not safe)) - (##car _e266236266262_))) - (_tl266234266267_ + (##car _e144342144368_))) + (_tl144340144373_ (let () (declare (not safe)) - (##cdr _e266236266262_)))) + (##cdr _e144342144368_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl266234266267_)) - ((lambda (_L266270_) - (let* ((_body266285_ + (gx#stx-null? _tl144340144373_)) + ((lambda (_L144376_) + (let* ((_body144391_ (let () (declare (not safe)) (gxc#optimize-match-block - _L266270_ - _assert266221_ + _L144376_ + _assert144327_ '() - _rest266012_))) - (_block266287_ - (let ((__tmp276110 - (let ((__tmp276111 + _rest144118_))) + (_block144393_ + (let ((__tmp149648 + (let ((__tmp149649 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp276113 - (let ((__tmp276114 - (let ((__tmp276115 + (let ((__tmp149651 + (let ((__tmp149652 + (let ((__tmp149653 (let () (declare (not safe)) - (cons _body266285_ '())))) + (cons _body144391_ '())))) (declare (not safe)) - (cons '() __tmp276115)))) + (cons '() __tmp149653)))) (declare (not safe)) - (cons '%#lambda __tmp276114))) - (__tmp276112 + (cons '%#lambda __tmp149652))) + (__tmp149650 (let () (declare (not safe)) - (cons _assert266221_ '())))) + (cons _assert144327_ '())))) (declare (not safe)) - (cons __tmp276113 __tmp276112)))) + (cons __tmp149651 __tmp149650)))) (declare (not safe)) - (cons 'restart: __tmp276111)))) + (cons 'restart: __tmp149649)))) (declare (not safe)) - (cons _name266223_ __tmp276110))) + (cons _name144329_ __tmp149648))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_blocks266289_ + (_blocks144395_ (let () (declare (not safe)) - (cons _block266287_ - _blocks265951_))) - (_rest266291_ + (cons _block144393_ + _blocks144057_))) + (_rest144397_ (let () (declare (not safe)) (gxc#optimize-match-prune-blocks - _rest266012_ - _blocks266289_))) - (_rest266293_ + _rest144118_ + _blocks144395_))) + (_rest144399_ (let () (declare (not safe)) (gxc#optimize-match-fuse-restart-blocks - _rest266291_ - _blocks266289_)))) + _rest144397_ + _blocks144395_)))) (let () (declare (not safe)) - (_lp265948_ - _rest266293_ - _blocks266289_)))) - _hd266235266265_) + (_lp144054_ + _rest144399_ + _blocks144395_)))) + _hd144341144371_) (let () (declare (not safe)) - (_g266225266241_ - _g266226266244_))))) + (_g144331144347_ + _g144332144350_))))) (let () (declare (not safe)) - (_g266225266241_ _g266226266244_))) + (_g144331144347_ _g144332144350_))) (let () (declare (not safe)) - (_g266225266241_ _g266226266244_))))) + (_g144331144347_ _g144332144350_))))) (let () (declare (not safe)) - (_g266225266241_ _g266226266244_))) + (_g144331144347_ _g144332144350_))) (let () (declare (not safe)) - (_g266225266241_ _g266226266244_))) + (_g144331144347_ _g144332144350_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g266225266241_ - _g266226266244_))))) + (_g144331144347_ + _g144332144350_))))) (let () (declare (not safe)) - (_g266225266241_ - _g266226266244_)))))) + (_g144331144347_ + _g144332144350_)))))) (declare (not safe)) - (_g266224266296_ _kont266222_)))) - (_K266018266182_ - (lambda (_bind266047_ - _assert266048_ - _kont266049_ - _name266050_) - (let* ((_g266052266078_ - (lambda (_g266053266075_) + (_g144330144402_ _kont144328_)))) + (_K144124144288_ + (lambda (_bind144153_ + _assert144154_ + _kont144155_ + _name144156_) + (let* ((_g144158144184_ + (lambda (_g144159144181_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g266053266075_)))) - (_g266051266179_ - (lambda (_g266053266081_) + _g144159144181_)))) + (_g144157144285_ + (lambda (_g144159144187_) (if (let () (declare (not safe)) - (gx#stx-pair? _g266053266081_)) - (let ((_e266058266083_ + (gx#stx-pair? _g144159144187_)) + (let ((_e144164144189_ (let () (declare (not safe)) (gx#stx-e - _g266053266081_)))) - (let ((_hd266057266086_ + _g144159144187_)))) + (let ((_hd144163144192_ (let () (declare (not safe)) - (##car _e266058266083_))) - (_tl266056266088_ + (##car _e144164144189_))) + (_tl144162144194_ (let () (declare (not safe)) - (##cdr _e266058266083_)))) + (##cdr _e144164144189_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd266057266086_)) + _hd144163144192_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd266057266086_)) + _hd144163144192_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl266056266088_)) - (let ((_e266061266091_ + (gx#stx-pair? _tl144162144194_)) + (let ((_e144167144197_ (let () (declare (not safe)) - (gx#stx-e _tl266056266088_)))) - (let ((_hd266060266094_ + (gx#stx-e _tl144162144194_)))) + (let ((_hd144166144200_ (let () (declare (not safe)) - (##car _e266061266091_))) - (_tl266059266096_ + (##car _e144167144197_))) + (_tl144165144202_ (let () (declare (not safe)) - (##cdr _e266061266091_)))) + (##cdr _e144167144197_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd266060266094_)) - (let ((_g276116_ + (gx#stx-pair/null? _hd144166144200_)) + (let ((_g149654_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd266060266094_ + _hd144166144200_ '0)))) (begin - (let ((_g276117_ + (let ((_g149655_ (let () (declare (not safe)) - (if (##values? _g276116_) - (##vector-length _g276116_) + (if (##values? _g149654_) + (##vector-length _g149654_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g276117_ 2))) + (##fx= _g149655_ 2))) (error "Context expects 2 values" - _g276117_))) - (let ((_target266062266099_ + _g149655_))) + (let ((_target144168144205_ (let () (declare (not safe)) - (##vector-ref _g276116_ 0))) - (_tl266064266101_ + (##vector-ref _g149654_ 0))) + (_tl144170144207_ (let () (declare (not safe)) - (##vector-ref _g276116_ 1)))) + (##vector-ref _g149654_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl266064266101_)) - (letrec ((_loop266065266104_ - (lambda (_hd266063266107_ - _id266069266109_) + (gx#stx-null? _tl144170144207_)) + (letrec ((_loop144171144210_ + (lambda (_hd144169144213_ + _id144175144215_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd266063266107_)) - (let ((_e266066266112_ + _hd144169144213_)) + (let ((_e144172144218_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd266063266107_)))) - (let ((_lp-hd266067266115_ - (let () (declare (not safe)) (##car _e266066266112_))) - (_lp-tl266068266117_ - (let () (declare (not safe)) (##cdr _e266066266112_)))) - (let ((__tmp276127 + (gx#stx-e _hd144169144213_)))) + (let ((_lp-hd144173144221_ + (let () (declare (not safe)) (##car _e144172144218_))) + (_lp-tl144174144223_ + (let () (declare (not safe)) (##cdr _e144172144218_)))) + (let ((__tmp149665 (let () (declare (not safe)) - (cons _lp-hd266067266115_ _id266069266109_)))) + (cons _lp-hd144173144221_ _id144175144215_)))) (declare (not safe)) - (_loop266065266104_ _lp-tl266068266117_ __tmp276127)))) - (let ((_id266070266120_ (reverse _id266069266109_))) + (_loop144171144210_ _lp-tl144174144223_ __tmp149665)))) + (let ((_id144176144226_ (reverse _id144175144215_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl266059266096_)) - (let ((_e266073266123_ + (gx#stx-pair? _tl144165144202_)) + (let ((_e144179144229_ (let () (declare (not safe)) - (gx#stx-e _tl266059266096_)))) - (let ((_hd266072266126_ + (gx#stx-e _tl144165144202_)))) + (let ((_hd144178144232_ (let () (declare (not safe)) - (##car _e266073266123_))) - (_tl266071266128_ + (##car _e144179144229_))) + (_tl144177144234_ (let () (declare (not safe)) - (##cdr _e266073266123_)))) + (##cdr _e144179144229_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl266071266128_)) - ((lambda (_L266131_ _L266132_) - (let* ((_body266161_ + (gx#stx-null? _tl144177144234_)) + ((lambda (_L144237_ _L144238_) + (let* ((_body144267_ (let () (declare (not safe)) (gxc#optimize-match-block - _L266131_ - _assert266048_ - _bind266047_ - _rest266012_))) - (_block266170_ - (let ((__tmp276118 - (let ((__tmp276119 - (let ((__tmp276122 - (let ((__tmp276123 + _L144237_ + _assert144154_ + _bind144153_ + _rest144118_))) + (_block144276_ + (let ((__tmp149656 + (let ((__tmp149657 + (let ((__tmp149660 + (let ((__tmp149661 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp276125 - (let ((__tmp276126 - (lambda (_g266162266165_ - _g266163266167_) + (let ((__tmp149663 + (let ((__tmp149664 + (lambda (_g144268144271_ + _g144269144273_) (let () (declare (not safe)) - (cons _g266162266165_ - _g266163266167_))))) + (cons _g144268144271_ + _g144269144273_))))) (declare (not safe)) - (foldr1 __tmp276126 '() _L266132_))) - (__tmp276124 + (foldr1 __tmp149664 '() _L144238_))) + (__tmp149662 (let () (declare (not safe)) - (cons _body266161_ '())))) + (cons _body144267_ '())))) (declare (not safe)) - (cons __tmp276125 __tmp276124)))) + (cons __tmp149663 __tmp149662)))) (declare (not safe)) - (cons '%#lambda __tmp276123))) - (__tmp276120 - (let ((__tmp276121 + (cons '%#lambda __tmp149661))) + (__tmp149658 + (let ((__tmp149659 (let () (declare (not safe)) - (cons _bind266047_ '())))) + (cons _bind144153_ '())))) (declare (not safe)) - (cons _assert266048_ __tmp276121)))) + (cons _assert144154_ __tmp149659)))) (declare (not safe)) - (cons __tmp276122 __tmp276120)))) + (cons __tmp149660 __tmp149658)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'continue: - __tmp276119)))) + __tmp149657)))) (declare (not safe)) - (cons _name266050_ __tmp276118))) - (_blocks266172_ + (cons _name144156_ __tmp149656))) + (_blocks144278_ (let () (declare (not safe)) - (cons _block266170_ _blocks265951_))) - (_rest266174_ + (cons _block144276_ _blocks144057_))) + (_rest144280_ (let () (declare (not safe)) (gxc#optimize-match-prune-blocks - _rest266012_ - _blocks266172_))) - (_rest266176_ + _rest144118_ + _blocks144278_))) + (_rest144282_ (let () (declare (not safe)) (gxc#optimize-match-fuse-restart-blocks - _rest266174_ - _blocks266172_)))) + _rest144280_ + _blocks144278_)))) (let () (declare (not safe)) - (_lp265948_ _rest266176_ _blocks266172_)))) - _hd266072266126_ - _id266070266120_) + (_lp144054_ _rest144282_ _blocks144278_)))) + _hd144178144232_ + _id144176144226_) (let () (declare (not safe)) - (_g266052266078_ _g266053266081_))))) + (_g144158144184_ _g144159144187_))))) (let () (declare (not safe)) - (_g266052266078_ _g266053266081_)))))))) + (_g144158144184_ _g144159144187_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop266065266104_ - _target266062266099_ + (_loop144171144210_ + _target144168144205_ '()))) (let () (declare (not safe)) - (_g266052266078_ _g266053266081_)))))) + (_g144158144184_ _g144159144187_)))))) (let () (declare (not safe)) - (_g266052266078_ _g266053266081_))))) + (_g144158144184_ _g144159144187_))))) (let () (declare (not safe)) - (_g266052266078_ _g266053266081_))) + (_g144158144184_ _g144159144187_))) (let () (declare (not safe)) - (_g266052266078_ _g266053266081_))) + (_g144158144184_ _g144159144187_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g266052266078_ - _g266053266081_))))) + (_g144158144184_ + _g144159144187_))))) (let () (declare (not safe)) - (_g266052266078_ - _g266053266081_)))))) + (_g144158144184_ + _g144159144187_)))))) (declare (not safe)) - (_g266051266179_ _kont266049_))))) + (_g144157144285_ _kont144155_))))) (if (let () (declare (not safe)) - (##pair? _block266014266039_)) - (let ((_tl266031266304_ + (##pair? _block144120144145_)) + (let ((_tl144137144410_ (let () (declare (not safe)) - (##cdr _block266014266039_))) - (_hd266030266302_ + (##cdr _block144120144145_))) + (_hd144136144408_ (let () (declare (not safe)) - (##car _block266014266039_)))) + (##car _block144120144145_)))) (if (let () (declare (not safe)) - (##pair? _tl266031266304_)) - (let ((_tl266033266311_ + (##pair? _tl144137144410_)) + (let ((_tl144139144417_ (let () (declare (not safe)) - (##cdr _tl266031266304_))) - (_hd266032266309_ + (##cdr _tl144137144410_))) + (_hd144138144415_ (let () (declare (not safe)) - (##car _tl266031266304_)))) + (##car _tl144137144410_)))) (if (let () (declare (not safe)) - (##eq? _hd266032266309_ 'restart:)) + (##eq? _hd144138144415_ 'restart:)) (if (let () (declare (not safe)) - (##pair? _tl266033266311_)) - (let ((_tl266035266316_ + (##pair? _tl144139144417_)) + (let ((_tl144141144422_ (let () (declare (not safe)) - (##cdr _tl266033266311_))) - (_hd266034266314_ + (##cdr _tl144139144417_))) + (_hd144140144420_ (let () (declare (not safe)) - (##car _tl266033266311_)))) + (##car _tl144139144417_)))) (if (let () (declare (not safe)) - (##pair? _tl266035266316_)) - (let ((_tl266037266323_ + (##pair? _tl144141144422_)) + (let ((_tl144143144429_ (let () (declare (not safe)) - (##cdr _tl266035266316_))) - (_hd266036266321_ + (##cdr _tl144141144422_))) + (_hd144142144427_ (let () (declare (not safe)) - (##car _tl266035266316_)))) + (##car _tl144141144422_)))) (if (let () (declare (not safe)) - (##null? _tl266037266323_)) - (let ((_name266307_ - _hd266030266302_) - (_kont266319_ - _hd266034266314_) - (_assert266326_ - _hd266036266321_)) + (##null? _tl144143144429_)) + (let ((_name144413_ + _hd144136144408_) + (_kont144425_ + _hd144140144420_) + (_assert144432_ + _hd144142144427_)) (let () (declare (not safe)) - (_K266029266299_ - _assert266326_ - _kont266319_ - _name266307_))) + (_K144135144405_ + _assert144432_ + _kont144425_ + _name144413_))) (let () (declare (not safe)) - (_E266017266043_)))) + (_E144123144149_)))) (let () (declare (not safe)) - (_E266017266043_)))) + (_E144123144149_)))) (let () (declare (not safe)) - (_E266017266043_))) + (_E144123144149_))) (if (let () (declare (not safe)) - (##eq? _hd266032266309_ + (##eq? _hd144138144415_ 'continue:)) (if (let () (declare (not safe)) - (##pair? _tl266033266311_)) - (let ((_tl266024266199_ + (##pair? _tl144139144417_)) + (let ((_tl144130144305_ (let () (declare (not safe)) - (##cdr _tl266033266311_))) - (_hd266023266197_ + (##cdr _tl144139144417_))) + (_hd144129144303_ (let () (declare (not safe)) - (##car _tl266033266311_)))) + (##car _tl144139144417_)))) (if (let () (declare (not safe)) - (##pair? _tl266024266199_)) - (let ((_tl266026266206_ + (##pair? _tl144130144305_)) + (let ((_tl144132144312_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _tl266024266199_))) - (_hd266025266204_ - (let () (declare (not safe)) (##car _tl266024266199_)))) - (if (let () (declare (not safe)) (##pair? _tl266026266206_)) - (let ((_tl266028266213_ + (##cdr _tl144130144305_))) + (_hd144131144310_ + (let () (declare (not safe)) (##car _tl144130144305_)))) + (if (let () (declare (not safe)) (##pair? _tl144132144312_)) + (let ((_tl144134144319_ (let () (declare (not safe)) - (##cdr _tl266026266206_))) - (_hd266027266211_ + (##cdr _tl144132144312_))) + (_hd144133144317_ (let () (declare (not safe)) - (##car _tl266026266206_)))) + (##car _tl144132144312_)))) (if (let () (declare (not safe)) - (##null? _tl266028266213_)) - (let ((_name266190_ _hd266030266302_) - (_kont266202_ _hd266023266197_) - (_assert266209_ _hd266025266204_) - (_bind266216_ _hd266027266211_)) + (##null? _tl144134144319_)) + (let ((_name144296_ _hd144136144408_) + (_kont144308_ _hd144129144303_) + (_assert144315_ _hd144131144310_) + (_bind144322_ _hd144133144317_)) (let () (declare (not safe)) - (_K266018266182_ - _bind266216_ - _assert266209_ - _kont266202_ - _name266190_))) - (let () (declare (not safe)) (_E266017266043_)))) - (let () (declare (not safe)) (_E266017266043_)))) - (let () (declare (not safe)) (_E266017266043_)))) + (_K144124144288_ + _bind144322_ + _assert144315_ + _kont144308_ + _name144296_))) + (let () (declare (not safe)) (_E144123144149_)))) + (let () (declare (not safe)) (_E144123144149_)))) + (let () (declare (not safe)) (_E144123144149_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E266017266043_))) + (_E144123144149_))) (let () (declare (not safe)) - (_E266017266043_))))) + (_E144123144149_))))) (let () (declare (not safe)) - (_E266017266043_)))) + (_E144123144149_)))) (let () (declare (not safe)) - (_E266017266043_)))))))) - (if (let () (declare (not safe)) (##pair? _rest265952265960_)) - (let ((_hd265957266331_ + (_E144123144149_)))))))) + (if (let () (declare (not safe)) (##pair? _rest144058144066_)) + (let ((_hd144063144437_ (let () (declare (not safe)) - (##car _rest265952265960_))) - (_tl265958266333_ + (##car _rest144058144066_))) + (_tl144064144439_ (let () (declare (not safe)) - (##cdr _rest265952265960_)))) - (let* ((_block266336_ _hd265957266331_) - (_rest266338_ _tl265958266333_)) + (##cdr _rest144058144066_)))) + (let* ((_block144442_ _hd144063144437_) + (_rest144444_ _tl144064144439_)) (declare (not safe)) - (_K265956266328_ _rest266338_ _block266336_))) - (let () (declare (not safe)) (_else265954266009_))))))) + (_K144062144434_ _rest144444_ _block144442_))) + (let () (declare (not safe)) (_else144060144115_))))))) (define gxc#optimize-match-block - (lambda (_body260579_ _assert260580_ _bind260581_ _blocks260582_) - (letrec* ((_env-assert260817_ '()) - (_env-type260818_ '()) - (_env-bind260819_ '()) - (_in-splice?260820_ '#f) - (_do-assert260821_ - (lambda (_assert265869_ _K265870_) - (if (let () (declare (not safe)) (pair? _assert265869_)) - (let _lp265872_ ((_rest265874_ _assert265869_) - (_env-assert265875_ - _env-assert260817_) - (_env-type265876_ _env-type260818_)) - (let* ((_rest265877265885_ _rest265874_) - (_else265879265893_ + (lambda (_body138685_ _assert138686_ _bind138687_ _blocks138688_) + (letrec* ((_env-assert138923_ '()) + (_env-type138924_ '()) + (_env-bind138925_ '()) + (_in-splice?138926_ '#f) + (_do-assert138927_ + (lambda (_assert143975_ _K143976_) + (if (let () (declare (not safe)) (pair? _assert143975_)) + (let _lp143978_ ((_rest143980_ _assert143975_) + (_env-assert143981_ + _env-assert138923_) + (_env-type143982_ _env-type138924_)) + (let* ((_rest143983143991_ _rest143980_) + (_else143985143999_ (lambda () (let () (declare (not safe)) - (_do-assert!260827_ - _env-assert265875_ - _env-type265876_ - _K265870_)))) - (_K265881265934_ - (lambda (_rest265896_ _assert265897_) - (let* ((_assert265898265905_ - _assert265897_) - (_E265900265909_ + (_do-assert!138933_ + _env-assert143981_ + _env-type143982_ + _K143976_)))) + (_K143987144040_ + (lambda (_rest144002_ _assert144003_) + (let* ((_assert144004144011_ + _assert144003_) + (_E144006144015_ (lambda () - (error '"No clause matching" - _assert265898265905_))) - (_K265901265922_ - (lambda (_val265912_ _expr265913_) - (let* ((_sexpr265915_ + (let () + (declare (not safe)) + (error '"No clause matching" + _assert144004144011_)))) + (_K144007144028_ + (lambda (_val144018_ _expr144019_) + (let* ((_sexpr144021_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr265913_))) - (_env-assert265917_ - (let ((__tmp276128 + _expr144019_))) + (_env-assert144023_ + (let ((__tmp149666 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _sexpr265915_ _val265912_)))) + (cons _sexpr144021_ _val144018_)))) (declare (not safe)) - (cons __tmp276128 _env-assert265875_))) - (_env-type265919_ + (cons __tmp149666 _env-assert143981_))) + (_env-type144025_ (let () (declare (not safe)) - (_fold-assert-type260823_ - _expr265913_ - _val265912_ - _env-type265876_)))) + (_fold-assert-type138929_ + _expr144019_ + _val144018_ + _env-type143982_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp265872_ - _rest265896_ - _env-assert265917_ - _env-type265919_)))))) + (_lp143978_ + _rest144002_ + _env-assert144023_ + _env-type144025_)))))) (if (let () (declare (not safe)) - (##pair? _assert265898265905_)) - (let ((_hd265902265925_ + (##pair? _assert144004144011_)) + (let ((_hd144008144031_ (let () (declare (not safe)) - (##car _assert265898265905_))) - (_tl265903265927_ + (##car _assert144004144011_))) + (_tl144009144033_ (let () (declare (not safe)) - (##cdr _assert265898265905_)))) - (let* ((_expr265930_ - _hd265902265925_) - (_val265932_ - _tl265903265927_)) + (##cdr _assert144004144011_)))) + (let* ((_expr144036_ + _hd144008144031_) + (_val144038_ + _tl144009144033_)) (declare (not safe)) - (_K265901265922_ - _val265932_ - _expr265930_))) + (_K144007144028_ + _val144038_ + _expr144036_))) (let () (declare (not safe)) - (_E265900265909_))))))) + (_E144006144015_))))))) (if (let () (declare (not safe)) - (##pair? _rest265877265885_)) - (let ((_hd265882265937_ + (##pair? _rest143983143991_)) + (let ((_hd143988144043_ (let () (declare (not safe)) - (##car _rest265877265885_))) - (_tl265883265939_ + (##car _rest143983143991_))) + (_tl143989144045_ (let () (declare (not safe)) - (##cdr _rest265877265885_)))) - (let* ((_assert265942_ _hd265882265937_) - (_rest265944_ _tl265883265939_)) + (##cdr _rest143983143991_)))) + (let* ((_assert144048_ _hd143988144043_) + (_rest144050_ _tl143989144045_)) (declare (not safe)) - (_K265881265934_ - _rest265944_ - _assert265942_))) + (_K143987144040_ + _rest144050_ + _assert144048_))) (let () (declare (not safe)) - (_else265879265893_))))) - (_K265870_)))) - (_predicate-type260822_ - (lambda (_id265814_) - (let* ((_sym265816_ + (_else143985143999_))))) + (_K143976_)))) + (_predicate-type138928_ + (lambda (_id143920_) + (let* ((_sym143922_ (let () (declare (not safe)) - (gxc#identifier-symbol _id265814_))) - (_$e265818_ _sym265816_)) - (let ((_default265820265851_ + (gxc#identifier-symbol _id143920_))) + (_$e143924_ _sym143922_)) + (let ((_default143926143957_ (lambda () - (let* ((_g265823265830_ + (let* ((_g143929143936_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _sym265816_))) - (_else265825265838_ (lambda () '#f)) - (_K265827265843_ - (lambda (_t265841_) + _sym143922_))) + (_else143931143944_ (lambda () '#f)) + (_K143933143949_ + (lambda (_t143947_) (let () (declare (not safe)) (gxc#optimizer-resolve-type - _t265841_))))) + _t143947_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _g265823265830_ + _g143929143936_ 'gxc#!predicate::t)) - (let* ((_e265828265846_ + (let* ((_e143934143952_ (let () (declare (not safe)) (##unchecked-structure-ref - _g265823265830_ + _g143929143936_ '1 gxc#!type::t '#f))) - (_t265849_ _e265828265846_)) + (_t143955_ _e143934143952_)) (declare (not safe)) - (gxc#optimizer-resolve-type _t265849_)) + (gxc#optimizer-resolve-type _t143955_)) (let () (declare (not safe)) - (_else265825265838_)))))) - (_table265821265853_ + (_else143931143944_)))))) + (_table143927143959_ '#(#f (##box? . 3) #f @@ -4342,50 +4363,50 @@ #f #f #f))) - (if (let () (declare (not safe)) (symbol? _$e265818_)) - (let* ((_h265856_ + (if (let () (declare (not safe)) (symbol? _$e143924_)) + (let* ((_h143962_ (let () (declare (not safe)) - (##symbol-hash _$e265818_))) - (_ix265859_ + (##symbol-hash _$e143924_))) + (_ix143965_ (let () (declare (not safe)) - (##fxmodulo _h265856_ '63))) - (_q265862_ + (##fxmodulo _h143962_ '63))) + (_q143968_ (let () (declare (not safe)) (##vector-ref - _table265821265853_ - _ix265859_)))) - (if _q265862_ - (if (let ((__tmp276129 + _table143927143959_ + _ix143965_)))) + (if _q143968_ + (if (let ((__tmp149667 (let () (declare (not safe)) - (##car _q265862_)))) + (##car _q143968_)))) (declare (not safe)) - (eq? __tmp276129 _$e265818_)) - (let ((_x265866_ + (eq? __tmp149667 _$e143924_)) + (let ((_x143972_ (let () (declare (not safe)) - (##cdr _q265862_)))) + (##cdr _q143968_)))) (if (let () (declare (not safe)) - (##fx< _x265866_ '5)) + (##fx< _x143972_ '5)) (if (let () (declare (not safe)) - (##fx< _x265866_ '2)) + (##fx< _x143972_ '2)) (if (let () (declare (not safe)) - (##fx= _x265866_ '0)) + (##fx= _x143972_ '0)) 'pair 'null) (if (let () (declare (not safe)) - (##fx= _x265866_ '2)) + (##fx= _x143972_ '2)) 'vector (if (let () (declare (not safe)) - (##fx= _x265866_ + (##fx= _x143972_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '3)) 'box @@ -4393,19 +4414,19 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##fx< _x265866_ '7)) + (##fx< _x143972_ '7)) (if (let () (declare (not safe)) - (##fx= _x265866_ '5)) + (##fx= _x143972_ '5)) 'stx-pair 'stx-null) (if (let () (declare (not safe)) - (##fx= _x265866_ '7)) + (##fx= _x143972_ '7)) 'stx-vector (if (let () (declare (not safe)) - (##fx= _x265866_ + (##fx= _x143972_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '8)) 'stx-box @@ -4413,5304 +4434,5306 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_default265820265851_))) + (_default143926143957_))) (let () (declare (not safe)) - (_default265820265851_)))) + (_default143926143957_)))) (let () (declare (not safe)) - (_default265820265851_))))))) - (_fold-assert-type260823_ - (lambda (_expr264762_ _val264763_ _env264764_) - (let* ((___stx273467273468_ _expr264762_) - (_g264772264951_ + (_default143926143957_))))))) + (_fold-assert-type138929_ + (lambda (_expr142868_ _val142869_ _env142870_) + (let* ((___stx147005147006_ _expr142868_) + (_g142878143057_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx273467273468_))))) - (let ((___kont273469273470_ - (lambda (_L265783_ _L265784_) - (let ((_$e265806_ + ___stx147005147006_))))) + (let ((___kont147007147008_ + (lambda (_L143889_ _L143890_) + (let ((_$e143912_ (let () (declare (not safe)) - (_predicate-type260822_ _L265784_)))) - (if _$e265806_ - ((lambda (_t265809_) - (let ((__tmp276130 - (let ((__tmp276131 - (let ((__tmp276132 + (_predicate-type138928_ _L143890_)))) + (if _$e143912_ + ((lambda (_t143915_) + (let ((__tmp149668 + (let ((__tmp149669 + (let ((__tmp149670 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _val264763_ '())))) + (cons _val142869_ '())))) (declare (not safe)) - (cons _t265809_ __tmp276132)))) + (cons _t143915_ __tmp149670)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L265783_ - __tmp276131)))) + (cons _L143889_ + __tmp149669)))) (declare (not safe)) - (cons __tmp276130 _env264764_))) - _$e265806_) - _env264764_)))) - (___kont273471273472_ - (lambda (_L265473_ _L265474_ _L265475_) - (let ((_$e265500_ + (cons __tmp149668 _env142870_))) + _$e143912_) + _env142870_)))) + (___kont147009147010_ + (lambda (_L143579_ _L143580_ _L143581_) + (let ((_$e143606_ (let () (declare (not safe)) - (gxc#identifier-symbol _L265475_)))) + (gxc#identifier-symbol _L143581_)))) (if (or (let () (declare (not safe)) - (eq? '##fx= _$e265500_)) + (eq? '##fx= _$e143606_)) (let () (declare (not safe)) - (eq? 'fx= _$e265500_))) - (let* ((___stx273373273374_ _L265474_) - (_g265507265536_ + (eq? 'fx= _$e143606_))) + (let* ((___stx146911146912_ _L143580_) + (_g143613143642_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx273373273374_))))) - (let ((___kont273375273376_ - (lambda (_L265604_ _L265605_) - (let ((_$e265630_ + ___stx146911146912_))))) + (let ((___kont146913146914_ + (lambda (_L143710_ _L143711_) + (let ((_$e143736_ (let () (declare (not safe)) - (_countf-symbol260824_ - _L265605_)))) - (if _$e265630_ - ((lambda (_sym265633_) - (let ((__tmp276138 + (_countf-symbol138930_ + _L143711_)))) + (if _$e143736_ + ((lambda (_sym143739_) + (let ((__tmp149676 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp276139 - (let ((__tmp276140 - (let ((__tmp276142 + (let ((__tmp149677 + (let ((__tmp149678 + (let ((__tmp149680 (let () (declare (not safe)) - (gx#stx-e _L265473_))) - (__tmp276141 + (gx#stx-e _L143579_))) + (__tmp149679 (let () (declare (not safe)) - (cons _val264763_ '())))) + (cons _val142869_ '())))) (declare (not safe)) - (cons __tmp276142 __tmp276141)))) + (cons __tmp149680 __tmp149679)))) (declare (not safe)) - (cons _sym265633_ __tmp276140)))) + (cons _sym143739_ __tmp149678)))) (declare (not safe)) - (cons _L265604_ __tmp276139)))) + (cons _L143710_ __tmp149677)))) (declare (not safe)) - (cons __tmp276138 _env264764_))) - _$e265630_) - _env264764_)))) + (cons __tmp149676 _env142870_))) + _$e143736_) + _env142870_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273377273378_ - (lambda () _env264764_))) + (___kont146915146916_ + (lambda () _env142870_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx273373273374_)) - (let ((_e265513265548_ + ___stx146911146912_)) + (let ((_e143619143654_ (let () (declare (not safe)) (gx#stx-e - ___stx273373273374_)))) - (let ((_tl265511265553_ + ___stx146911146912_)))) + (let ((_tl143617143659_ (let () (declare (not safe)) - (##cdr _e265513265548_))) - (_hd265512265551_ + (##cdr _e143619143654_))) + (_hd143618143657_ (let () (declare (not safe)) - (##car _e265513265548_)))) + (##car _e143619143654_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd265512265551_)) + _hd143618143657_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd265512265551_)) + _hd143618143657_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl265511265553_)) - (let ((_e265516265556_ + (gx#stx-pair? _tl143617143659_)) + (let ((_e143622143662_ (let () (declare (not safe)) - (gx#stx-e _tl265511265553_)))) - (let ((_tl265514265561_ + (gx#stx-e _tl143617143659_)))) + (let ((_tl143620143667_ (let () (declare (not safe)) - (##cdr _e265516265556_))) - (_hd265515265559_ + (##cdr _e143622143662_))) + (_hd143621143665_ (let () (declare (not safe)) - (##car _e265516265556_)))) + (##car _e143622143662_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd265515265559_)) - (let ((_e265519265564_ + (gx#stx-pair? _hd143621143665_)) + (let ((_e143625143670_ (let () (declare (not safe)) - (gx#stx-e _hd265515265559_)))) - (let ((_tl265517265569_ + (gx#stx-e _hd143621143665_)))) + (let ((_tl143623143675_ (let () (declare (not safe)) - (##cdr _e265519265564_))) - (_hd265518265567_ + (##cdr _e143625143670_))) + (_hd143624143673_ (let () (declare (not safe)) - (##car _e265519265564_)))) + (##car _e143625143670_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd265518265567_)) + (gx#identifier? _hd143624143673_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd265518265567_)) + _hd143624143673_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl265517265569_)) - (let ((_e265522265572_ + _tl143623143675_)) + (let ((_e143628143678_ (let () (declare (not safe)) (gx#stx-e - _tl265517265569_)))) - (let ((_tl265520265577_ + _tl143623143675_)))) + (let ((_tl143626143683_ (let () (declare (not safe)) - (##cdr _e265522265572_))) - (_hd265521265575_ + (##cdr _e143628143678_))) + (_hd143627143681_ (let () (declare (not safe)) - (##car _e265522265572_)))) + (##car _e143628143678_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl265520265577_)) + _tl143626143683_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl265514265561_)) - (let ((_e265525265580_ + _tl143620143667_)) + (let ((_e143631143686_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl265514265561_)))) - (let ((_tl265523265585_ + (gx#stx-e _tl143620143667_)))) + (let ((_tl143629143691_ (let () (declare (not safe)) - (##cdr _e265525265580_))) - (_hd265524265583_ + (##cdr _e143631143686_))) + (_hd143630143689_ (let () (declare (not safe)) - (##car _e265525265580_)))) + (##car _e143631143686_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd265524265583_)) - (let ((_e265528265588_ + (gx#stx-pair? _hd143630143689_)) + (let ((_e143634143694_ (let () (declare (not safe)) - (gx#stx-e _hd265524265583_)))) - (let ((_tl265526265593_ + (gx#stx-e _hd143630143689_)))) + (let ((_tl143632143699_ (let () (declare (not safe)) - (##cdr _e265528265588_))) - (_hd265527265591_ + (##cdr _e143634143694_))) + (_hd143633143697_ (let () (declare (not safe)) - (##car _e265528265588_)))) + (##car _e143634143694_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd265527265591_)) + (gx#identifier? _hd143633143697_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd265527265591_)) + (gx#stx-eq? '%#ref _hd143633143697_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl265526265593_)) - (let ((_e265531265596_ + (gx#stx-pair? _tl143632143699_)) + (let ((_e143637143702_ (let () (declare (not safe)) (gx#stx-e - _tl265526265593_)))) - (let ((_tl265529265601_ + _tl143632143699_)))) + (let ((_tl143635143707_ (let () (declare (not safe)) - (##cdr _e265531265596_))) - (_hd265530265599_ + (##cdr _e143637143702_))) + (_hd143636143705_ (let () (declare (not safe)) - (##car _e265531265596_)))) + (##car _e143637143702_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl265529265601_)) + _tl143635143707_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl265523265585_)) - (___kont273375273376_ - _hd265530265599_ - _hd265521265575_) - (___kont273377273378_)) - (___kont273377273378_)))) - (___kont273377273378_)) - (___kont273377273378_)) - (___kont273377273378_)))) - (___kont273377273378_)))) - (___kont273377273378_)) - (___kont273377273378_)))) + _tl143629143691_)) + (___kont146913146914_ + _hd143636143705_ + _hd143627143681_) + (___kont146915146916_)) + (___kont146915146916_)))) + (___kont146915146916_)) + (___kont146915146916_)) + (___kont146915146916_)))) + (___kont146915146916_)))) + (___kont146915146916_)) + (___kont146915146916_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273377273378_)) - (___kont273377273378_)) - (___kont273377273378_)))) - (___kont273377273378_)))) - (___kont273377273378_)) - (___kont273377273378_)) - (___kont273377273378_)))) + (___kont146915146916_)) + (___kont146915146916_)) + (___kont146915146916_)))) + (___kont146915146916_)))) + (___kont146915146916_)) + (___kont146915146916_)) + (___kont146915146916_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273377273378_)))) + (___kont146915146916_)))) (if (or (let () (declare (not safe)) - (eq? '##eq? _$e265500_)) + (eq? '##eq? _$e143606_)) (let () (declare (not safe)) - (eq? 'eq? _$e265500_)) + (eq? 'eq? _$e143606_)) (let () (declare (not safe)) - (eq? '##eqv? _$e265500_)) + (eq? '##eqv? _$e143606_)) (let () (declare (not safe)) - (eq? 'eqv? _$e265500_)) + (eq? 'eqv? _$e143606_)) (let () (declare (not safe)) - (eq? '##equal? _$e265500_)) + (eq? '##equal? _$e143606_)) (let () (declare (not safe)) - (eq? 'equal? _$e265500_)) + (eq? 'equal? _$e143606_)) (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e265500_)) + _$e143606_)) (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e265500_))) - ((lambda (_sym265659_) - (let* ((_sym265661_ + (eq? 'gx#stx-eq? _$e143606_))) + ((lambda (_sym143765_) + (let* ((_sym143767_ (let () (declare (not safe)) - (_eqf-symbol260825_ - _sym265659_))) - (___stx273441273442_ - _L265474_) - (_g265664265677_ + (_eqf-symbol138931_ + _sym143765_))) + (___stx146979146980_ + _L143580_) + (_g143770143783_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx273441273442_))))) - (let ((___kont273443273444_ - (lambda (_L265705_) - (let ((__tmp276133 - (let ((__tmp276134 + ___stx146979146980_))))) + (let ((___kont146981146982_ + (lambda (_L143811_) + (let ((__tmp149671 + (let ((__tmp149672 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp276135 - (let ((__tmp276137 + (let ((__tmp149673 + (let ((__tmp149675 (let () (declare (not safe)) - (gx#stx-e _L265473_))) - (__tmp276136 + (gx#stx-e _L143579_))) + (__tmp149674 (let () (declare (not safe)) - (cons _val264763_ '())))) + (cons _val142869_ '())))) (declare (not safe)) - (cons __tmp276137 __tmp276136)))) + (cons __tmp149675 __tmp149674)))) (declare (not safe)) - (cons _sym265661_ __tmp276135)))) + (cons _sym143767_ __tmp149673)))) (declare (not safe)) - (cons _L265705_ __tmp276134)))) + (cons _L143811_ __tmp149672)))) (declare (not safe)) - (cons __tmp276133 _env264764_)))) + (cons __tmp149671 _env142870_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273445273446_ - (lambda () _env264764_))) + (___kont146983146984_ + (lambda () _env142870_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx273441273442_)) - (let ((_e265669265689_ + ___stx146979146980_)) + (let ((_e143775143795_ (let () (declare (not safe)) (gx#stx-e - ___stx273441273442_)))) - (let ((_tl265667265694_ + ___stx146979146980_)))) + (let ((_tl143773143800_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e265669265689_))) - (_hd265668265692_ - (let () (declare (not safe)) (##car _e265669265689_)))) + (##cdr _e143775143795_))) + (_hd143774143798_ + (let () (declare (not safe)) (##car _e143775143795_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd265668265692_)) + (gx#identifier? _hd143774143798_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd265668265692_)) + (gx#stx-eq? '%#ref _hd143774143798_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl265667265694_)) - (let ((_e265672265697_ + (gx#stx-pair? _tl143773143800_)) + (let ((_e143778143803_ (let () (declare (not safe)) - (gx#stx-e _tl265667265694_)))) - (let ((_tl265670265702_ + (gx#stx-e _tl143773143800_)))) + (let ((_tl143776143808_ (let () (declare (not safe)) - (##cdr _e265672265697_))) - (_hd265671265700_ + (##cdr _e143778143803_))) + (_hd143777143806_ (let () (declare (not safe)) - (##car _e265672265697_)))) + (##car _e143778143803_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl265670265702_)) - (___kont273443273444_ _hd265671265700_) - (___kont273445273446_)))) - (___kont273445273446_)) - (___kont273445273446_)) - (___kont273445273446_)))) + (gx#stx-null? _tl143776143808_)) + (___kont146981146982_ _hd143777143806_) + (___kont146983146984_)))) + (___kont146983146984_)) + (___kont146983146984_)) + (___kont146983146984_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273445273446_))))) - _$e265500_) - _env264764_))))) - (___kont273473273474_ - (lambda (_L265377_ _L265378_ _L265379_) - (let ((__tmp276143 - (let ((__tmp276153 + (___kont146983146984_))))) + _$e143606_) + _env142870_))))) + (___kont147011147012_ + (lambda (_L143483_ _L143484_ _L143485_) + (let ((__tmp149681 + (let ((__tmp149691 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp276144 - (let ((__tmp276150 - (let ((__tmp276152 + (__tmp149682 + (let ((__tmp149688 + (let ((__tmp149690 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp276151 + (__tmp149689 (let () (declare (not safe)) - (cons _L265379_ + (cons _L143485_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp276152 __tmp276151))) + (cons __tmp149690 __tmp149689))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp276145 - (let ((__tmp276146 - (let ((__tmp276147 + (__tmp149683 + (let ((__tmp149684 + (let ((__tmp149685 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp276149 + (let ((__tmp149687 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp276148 + (__tmp149686 (let () (declare (not safe)) - (cons _L265378_ '())))) + (cons _L143484_ '())))) (declare (not safe)) - (cons __tmp276149 __tmp276148)))) + (cons __tmp149687 __tmp149686)))) (declare (not safe)) - (cons __tmp276147 '())))) + (cons __tmp149685 '())))) (declare (not safe)) - (cons _L265377_ __tmp276146)))) + (cons _L143483_ __tmp149684)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp276150 - __tmp276145)))) + (cons __tmp149688 + __tmp149683)))) (declare (not safe)) - (cons __tmp276153 __tmp276144)))) + (cons __tmp149691 __tmp149682)))) (declare (not safe)) - (_fold-assert-type260823_ - __tmp276143 - _val264763_ - _env264764_)))) - (___kont273475273476_ - (lambda (_L265267_ _L265268_ _L265269_) - (let ((_$e265298_ + (_fold-assert-type138929_ + __tmp149681 + _val142869_ + _env142870_)))) + (___kont147013147014_ + (lambda (_L143373_ _L143374_ _L143375_) + (let ((_$e143404_ (let () (declare (not safe)) - (gxc#identifier-symbol _L265269_)))) + (gxc#identifier-symbol _L143375_)))) (if (or (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e265298_)) + _$e143404_)) (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e265298_))) - ((lambda (_sym265304_) - (let* ((_sym265306_ + (eq? 'gx#stx-eq? _$e143404_))) + ((lambda (_sym143410_) + (let* ((_sym143412_ (let () (declare (not safe)) - (_eqf-symbol260825_ - _sym265304_))) - (__tmp276154 - (let ((__tmp276155 - (let ((__tmp276156 - (let ((__tmp276157 + (_eqf-symbol138931_ + _sym143410_))) + (__tmp149692 + (let ((__tmp149693 + (let ((__tmp149694 + (let ((__tmp149695 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _val264763_ '())))) + (cons _val142869_ '())))) (declare (not safe)) - (cons _L265267_ __tmp276157)))) + (cons _L143373_ __tmp149695)))) (declare (not safe)) - (cons _sym265306_ __tmp276156)))) + (cons _sym143412_ __tmp149694)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L265268_ - __tmp276155)))) + (cons _L143374_ + __tmp149693)))) (declare (not safe)) - (cons __tmp276154 _env264764_))) - _$e265298_) - _env264764_)))) - (___kont273477273478_ - (lambda (_L265151_ _L265152_ _L265153_) - (let ((__tmp276158 - (let ((__tmp276171 + (cons __tmp149692 _env142870_))) + _$e143404_) + _env142870_)))) + (___kont147015147016_ + (lambda (_L143257_ _L143258_ _L143259_) + (let ((__tmp149696 + (let ((__tmp149709 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp276159 - (let ((__tmp276168 - (let ((__tmp276170 + (__tmp149697 + (let ((__tmp149706 + (let ((__tmp149708 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp276169 + (__tmp149707 (let () (declare (not safe)) - (cons _L265153_ + (cons _L143259_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp276170 __tmp276169))) + (cons __tmp149708 __tmp149707))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp276160 - (let ((__tmp276165 - (let ((__tmp276167 + (__tmp149698 + (let ((__tmp149703 + (let ((__tmp149705 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp276166 - (let () (declare (not safe)) (cons _L265151_ '())))) + (__tmp149704 + (let () (declare (not safe)) (cons _L143257_ '())))) (declare (not safe)) - (cons __tmp276167 __tmp276166))) - (__tmp276161 - (let ((__tmp276162 - (let ((__tmp276164 + (cons __tmp149705 __tmp149704))) + (__tmp149699 + (let ((__tmp149700 + (let ((__tmp149702 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax))) - (__tmp276163 + (__tmp149701 (let () (declare (not safe)) - (cons _L265152_ '())))) + (cons _L143258_ '())))) (declare (not safe)) - (cons __tmp276164 __tmp276163)))) + (cons __tmp149702 __tmp149701)))) (declare (not safe)) - (cons __tmp276162 '())))) + (cons __tmp149700 '())))) (declare (not safe)) - (cons __tmp276165 __tmp276161)))) + (cons __tmp149703 __tmp149699)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp276168 - __tmp276160)))) + (cons __tmp149706 + __tmp149698)))) (declare (not safe)) - (cons __tmp276171 __tmp276159)))) + (cons __tmp149709 __tmp149697)))) (declare (not safe)) - (_fold-assert-type260823_ - __tmp276158 - _val264763_ - _env264764_)))) - (___kont273479273480_ - (lambda (_L265035_ _L265036_ _L265037_) - (let ((__tmp276172 + (_fold-assert-type138929_ + __tmp149696 + _val142869_ + _env142870_)))) + (___kont147017147018_ + (lambda (_L143141_ _L143142_ _L143143_) + (let ((__tmp149710 (let () (declare (not safe)) (gxc#apply-expression-subst - _L265036_ - _L265037_ - _L265035_)))) + _L143142_ + _L143143_ + _L143141_)))) (declare (not safe)) - (_fold-assert-type260823_ - __tmp276172 - _val264763_ - _env264764_)))) - (___kont273481273482_ (lambda () _env264764_))) + (_fold-assert-type138929_ + __tmp149710 + _val142869_ + _env142870_)))) + (___kont147019147020_ (lambda () _env142870_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx273467273468_)) - (let ((_e264778265727_ + (gx#stx-pair? ___stx147005147006_)) + (let ((_e142884143833_ (let () (declare (not safe)) - (gx#stx-e ___stx273467273468_)))) - (let ((_tl264776265732_ + (gx#stx-e ___stx147005147006_)))) + (let ((_tl142882143838_ (let () (declare (not safe)) - (##cdr _e264778265727_))) - (_hd264777265730_ + (##cdr _e142884143833_))) + (_hd142883143836_ (let () (declare (not safe)) - (##car _e264778265727_)))) + (##car _e142884143833_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd264777265730_)) + (gx#identifier? _hd142883143836_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd264777265730_)) + _hd142883143836_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264776265732_)) - (let ((_e264781265735_ + (gx#stx-pair? _tl142882143838_)) + (let ((_e142887143841_ (let () (declare (not safe)) (gx#stx-e - _tl264776265732_)))) - (let ((_tl264779265740_ + _tl142882143838_)))) + (let ((_tl142885143846_ (let () (declare (not safe)) - (##cdr _e264781265735_))) - (_hd264780265738_ + (##cdr _e142887143841_))) + (_hd142886143844_ (let () (declare (not safe)) - (##car _e264781265735_)))) + (##car _e142887143841_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd264780265738_)) - (let ((_e264784265743_ + _hd142886143844_)) + (let ((_e142890143849_ (let () (declare (not safe)) (gx#stx-e - _hd264780265738_)))) - (let ((_tl264782265748_ + _hd142886143844_)))) + (let ((_tl142888143854_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e264784265743_))) - (_hd264783265746_ - (let () (declare (not safe)) (##car _e264784265743_)))) + (##cdr _e142890143849_))) + (_hd142889143852_ + (let () (declare (not safe)) (##car _e142890143849_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd264783265746_)) + (gx#identifier? _hd142889143852_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd264783265746_)) + (gx#stx-eq? '%#ref _hd142889143852_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264782265748_)) - (let ((_e264787265751_ + (gx#stx-pair? _tl142888143854_)) + (let ((_e142893143857_ (let () (declare (not safe)) - (gx#stx-e _tl264782265748_)))) - (let ((_tl264785265756_ + (gx#stx-e _tl142888143854_)))) + (let ((_tl142891143862_ (let () (declare (not safe)) - (##cdr _e264787265751_))) - (_hd264786265754_ + (##cdr _e142893143857_))) + (_hd142892143860_ (let () (declare (not safe)) - (##car _e264787265751_)))) + (##car _e142893143857_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl264785265756_)) + (gx#stx-null? _tl142891143862_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264779265740_)) - (let ((_e264790265759_ + (gx#stx-pair? _tl142885143846_)) + (let ((_e142896143865_ (let () (declare (not safe)) (gx#stx-e - _tl264779265740_)))) - (let ((_tl264788265764_ + _tl142885143846_)))) + (let ((_tl142894143870_ (let () (declare (not safe)) - (##cdr _e264790265759_))) - (_hd264789265762_ + (##cdr _e142896143865_))) + (_hd142895143868_ (let () (declare (not safe)) - (##car _e264790265759_)))) + (##car _e142896143865_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd264789265762_)) - (let ((_e264793265767_ + _hd142895143868_)) + (let ((_e142899143873_ (let () (declare (not safe)) (gx#stx-e - _hd264789265762_)))) - (let ((_tl264791265772_ + _hd142895143868_)))) + (let ((_tl142897143878_ (let () (declare (not safe)) - (##cdr _e264793265767_))) - (_hd264792265770_ + (##cdr _e142899143873_))) + (_hd142898143876_ (let () (declare (not safe)) - (##car _e264793265767_)))) + (##car _e142899143873_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd264792265770_)) + _hd142898143876_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd264792265770_)) + (gx#stx-eq? '%#ref _hd142898143876_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264791265772_)) - (let ((_e264796265775_ + (gx#stx-pair? _tl142897143878_)) + (let ((_e142902143881_ (let () (declare (not safe)) - (gx#stx-e _tl264791265772_)))) - (let ((_tl264794265780_ + (gx#stx-e _tl142897143878_)))) + (let ((_tl142900143886_ (let () (declare (not safe)) - (##cdr _e264796265775_))) - (_hd264795265778_ + (##cdr _e142902143881_))) + (_hd142901143884_ (let () (declare (not safe)) - (##car _e264796265775_)))) + (##car _e142902143881_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl264794265780_)) + (gx#stx-null? _tl142900143886_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl264788265764_)) - (___kont273469273470_ - _hd264795265778_ - _hd264786265754_) + (gx#stx-null? _tl142894143870_)) + (___kont147007147008_ + _hd142901143884_ + _hd142892143860_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264788265764_)) - (let ((_e264817265449_ + (gx#stx-pair? _tl142894143870_)) + (let ((_e142923143555_ (let () (declare (not safe)) (gx#stx-e - _tl264788265764_)))) - (let ((_tl264815265454_ + _tl142894143870_)))) + (let ((_tl142921143560_ (let () (declare (not safe)) - (##cdr _e264817265449_))) - (_hd264816265452_ + (##cdr _e142923143555_))) + (_hd142922143558_ (let () (declare (not safe)) - (##car _e264817265449_)))) + (##car _e142923143555_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd264816265452_)) - (let ((_e264820265457_ + _hd142922143558_)) + (let ((_e142926143563_ (let () (declare (not safe)) (gx#stx-e - _hd264816265452_)))) - (let ((_tl264818265462_ + _hd142922143558_)))) + (let ((_tl142924143568_ (let () (declare (not safe)) - (##cdr _e264820265457_))) - (_hd264819265460_ + (##cdr _e142926143563_))) + (_hd142925143566_ (let () (declare (not safe)) - (##car _e264820265457_)))) + (##car _e142926143563_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd264819265460_)) + _hd142925143566_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _hd264819265460_)) + (gx#stx-eq? '%#quote _hd142925143566_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264818265462_)) - (let ((_e264823265465_ + (gx#stx-pair? _tl142924143568_)) + (let ((_e142929143571_ (let () (declare (not safe)) - (gx#stx-e _tl264818265462_)))) - (let ((_tl264821265470_ + (gx#stx-e _tl142924143568_)))) + (let ((_tl142927143576_ (let () (declare (not safe)) - (##cdr _e264823265465_))) - (_hd264822265468_ + (##cdr _e142929143571_))) + (_hd142928143574_ (let () (declare (not safe)) - (##car _e264823265465_)))) + (##car _e142929143571_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl264821265470_)) + (gx#stx-null? _tl142927143576_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl264815265454_)) - (___kont273471273472_ - _hd264822265468_ - _hd264789265762_ - _hd264786265754_) - (___kont273481273482_)) - (___kont273481273482_)))) - (___kont273481273482_)) + (gx#stx-null? _tl142921143560_)) + (___kont147009147010_ + _hd142928143574_ + _hd142895143868_ + _hd142892143860_) + (___kont147019147020_)) + (___kont147019147020_)))) + (___kont147019147020_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd264819265460_)) + (gx#stx-eq? '%#quote-syntax _hd142925143566_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264818265462_)) - (let ((_e264883265259_ + (gx#stx-pair? _tl142924143568_)) + (let ((_e142989143365_ (let () (declare (not safe)) - (gx#stx-e _tl264818265462_)))) - (let ((_tl264881265264_ + (gx#stx-e _tl142924143568_)))) + (let ((_tl142987143370_ (let () (declare (not safe)) - (##cdr _e264883265259_))) - (_hd264882265262_ + (##cdr _e142989143365_))) + (_hd142988143368_ (let () (declare (not safe)) - (##car _e264883265259_)))) + (##car _e142989143365_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl264881265264_)) + (gx#stx-null? _tl142987143370_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl264815265454_)) - (___kont273475273476_ - _hd264882265262_ - _hd264795265778_ - _hd264786265754_) - (___kont273481273482_)) - (___kont273481273482_)))) - (___kont273481273482_)) - (___kont273481273482_))) - (___kont273481273482_)))) + (gx#stx-null? _tl142921143560_)) + (___kont147013147014_ + _hd142988143368_ + _hd142901143884_ + _hd142892143860_) + (___kont147019147020_)) + (___kont147019147020_)))) + (___kont147019147020_)) + (___kont147019147020_))) + (___kont147019147020_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273481273482_)))) - (___kont273481273482_))) + (___kont147019147020_)))) + (___kont147019147020_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264788265764_)) - (let ((_e264817265449_ + (gx#stx-pair? _tl142894143870_)) + (let ((_e142923143555_ (let () (declare (not safe)) - (gx#stx-e _tl264788265764_)))) - (let ((_tl264815265454_ + (gx#stx-e _tl142894143870_)))) + (let ((_tl142921143560_ (let () (declare (not safe)) - (##cdr _e264817265449_))) - (_hd264816265452_ + (##cdr _e142923143555_))) + (_hd142922143558_ (let () (declare (not safe)) - (##car _e264817265449_)))) + (##car _e142923143555_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd264816265452_)) - (let ((_e264820265457_ + (gx#stx-pair? _hd142922143558_)) + (let ((_e142926143563_ (let () (declare (not safe)) (gx#stx-e - _hd264816265452_)))) - (let ((_tl264818265462_ + _hd142922143558_)))) + (let ((_tl142924143568_ (let () (declare (not safe)) - (##cdr _e264820265457_))) - (_hd264819265460_ + (##cdr _e142926143563_))) + (_hd142925143566_ (let () (declare (not safe)) - (##car _e264820265457_)))) + (##car _e142926143563_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd264819265460_)) + _hd142925143566_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd264819265460_)) + _hd142925143566_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl264818265462_)) - (let ((_e264823265465_ + (gx#stx-pair? _tl142924143568_)) + (let ((_e142929143571_ (let () (declare (not safe)) - (gx#stx-e _tl264818265462_)))) - (let ((_tl264821265470_ + (gx#stx-e _tl142924143568_)))) + (let ((_tl142927143576_ (let () (declare (not safe)) - (##cdr _e264823265465_))) - (_hd264822265468_ + (##cdr _e142929143571_))) + (_hd142928143574_ (let () (declare (not safe)) - (##car _e264823265465_)))) + (##car _e142929143571_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl264821265470_)) + (gx#stx-null? _tl142927143576_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl264815265454_)) - (___kont273471273472_ - _hd264822265468_ - _hd264789265762_ - _hd264786265754_) - (___kont273481273482_)) - (___kont273481273482_)))) - (___kont273481273482_)) - (___kont273481273482_)) + (gx#stx-null? _tl142921143560_)) + (___kont147009147010_ + _hd142928143574_ + _hd142895143868_ + _hd142892143860_) + (___kont147019147020_)) + (___kont147019147020_)))) + (___kont147019147020_)) + (___kont147019147020_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273481273482_)))) - (___kont273481273482_)))) - (___kont273481273482_))))) + (___kont147019147020_)))) + (___kont147019147020_)))) + (___kont147019147020_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264788265764_)) - (let ((_e264817265449_ + (gx#stx-pair? _tl142894143870_)) + (let ((_e142923143555_ (let () (declare (not safe)) - (gx#stx-e _tl264788265764_)))) - (let ((_tl264815265454_ + (gx#stx-e _tl142894143870_)))) + (let ((_tl142921143560_ (let () (declare (not safe)) - (##cdr _e264817265449_))) - (_hd264816265452_ + (##cdr _e142923143555_))) + (_hd142922143558_ (let () (declare (not safe)) - (##car _e264817265449_)))) + (##car _e142923143555_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd264816265452_)) - (let ((_e264820265457_ + (gx#stx-pair? _hd142922143558_)) + (let ((_e142926143563_ (let () (declare (not safe)) - (gx#stx-e _hd264816265452_)))) - (let ((_tl264818265462_ + (gx#stx-e _hd142922143558_)))) + (let ((_tl142924143568_ (let () (declare (not safe)) - (##cdr _e264820265457_))) - (_hd264819265460_ + (##cdr _e142926143563_))) + (_hd142925143566_ (let () (declare (not safe)) - (##car _e264820265457_)))) + (##car _e142926143563_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd264819265460_)) + _hd142925143566_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd264819265460_)) + _hd142925143566_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl264818265462_)) - (let ((_e264823265465_ + _tl142924143568_)) + (let ((_e142929143571_ (let () (declare (not safe)) (gx#stx-e - _tl264818265462_)))) - (let ((_tl264821265470_ + _tl142924143568_)))) + (let ((_tl142927143576_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e264823265465_))) - (_hd264822265468_ - (let () (declare (not safe)) (##car _e264823265465_)))) + (##cdr _e142929143571_))) + (_hd142928143574_ + (let () (declare (not safe)) (##car _e142929143571_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl264821265470_)) + (gx#stx-null? _tl142927143576_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl264815265454_)) - (___kont273471273472_ - _hd264822265468_ - _hd264789265762_ - _hd264786265754_) - (___kont273481273482_)) - (___kont273481273482_)))) + (gx#stx-null? _tl142921143560_)) + (___kont147009147010_ + _hd142928143574_ + _hd142895143868_ + _hd142892143860_) + (___kont147019147020_)) + (___kont147019147020_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273481273482_)) - (___kont273481273482_)) - (___kont273481273482_)))) - (___kont273481273482_)))) - (___kont273481273482_))) + (___kont147019147020_)) + (___kont147019147020_)) + (___kont147019147020_)))) + (___kont147019147020_)))) + (___kont147019147020_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264788265764_)) - (let ((_e264817265449_ + (gx#stx-pair? _tl142894143870_)) + (let ((_e142923143555_ (let () (declare (not safe)) - (gx#stx-e _tl264788265764_)))) - (let ((_tl264815265454_ + (gx#stx-e _tl142894143870_)))) + (let ((_tl142921143560_ (let () (declare (not safe)) - (##cdr _e264817265449_))) - (_hd264816265452_ + (##cdr _e142923143555_))) + (_hd142922143558_ (let () (declare (not safe)) - (##car _e264817265449_)))) + (##car _e142923143555_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd264816265452_)) - (let ((_e264820265457_ + (gx#stx-pair? _hd142922143558_)) + (let ((_e142926143563_ (let () (declare (not safe)) - (gx#stx-e _hd264816265452_)))) - (let ((_tl264818265462_ + (gx#stx-e _hd142922143558_)))) + (let ((_tl142924143568_ (let () (declare (not safe)) - (##cdr _e264820265457_))) - (_hd264819265460_ + (##cdr _e142926143563_))) + (_hd142925143566_ (let () (declare (not safe)) - (##car _e264820265457_)))) + (##car _e142926143563_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd264819265460_)) + (gx#identifier? _hd142925143566_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd264819265460_)) + _hd142925143566_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl264818265462_)) - (let ((_e264823265465_ + _tl142924143568_)) + (let ((_e142929143571_ (let () (declare (not safe)) (gx#stx-e - _tl264818265462_)))) - (let ((_tl264821265470_ + _tl142924143568_)))) + (let ((_tl142927143576_ (let () (declare (not safe)) - (##cdr _e264823265465_))) - (_hd264822265468_ + (##cdr _e142929143571_))) + (_hd142928143574_ (let () (declare (not safe)) - (##car _e264823265465_)))) + (##car _e142929143571_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl264821265470_)) + _tl142927143576_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl264815265454_)) - (___kont273471273472_ - _hd264822265468_ - _hd264789265762_ - _hd264786265754_) + (gx#stx-null? _tl142921143560_)) + (___kont147009147010_ + _hd142928143574_ + _hd142895143868_ + _hd142892143860_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd264792265770_)) + (gx#stx-eq? '%#quote _hd142898143876_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264791265772_)) - (let ((_e264847265361_ + (gx#stx-pair? _tl142897143878_)) + (let ((_e142953143467_ (let () (declare (not safe)) - (gx#stx-e _tl264791265772_)))) - (let ((_tl264845265366_ + (gx#stx-e _tl142897143878_)))) + (let ((_tl142951143472_ (let () (declare (not safe)) - (##cdr _e264847265361_))) - (_hd264846265364_ + (##cdr _e142953143467_))) + (_hd142952143470_ (let () (declare (not safe)) - (##car _e264847265361_)))) - (___kont273481273482_))) - (___kont273481273482_)) + (##car _e142953143467_)))) + (___kont147019147020_))) + (___kont147019147020_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd264792265770_)) + (gx#stx-eq? '%#quote-syntax _hd142898143876_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264791265772_)) - (let ((_e264907265119_ + (gx#stx-pair? _tl142897143878_)) + (let ((_e143013143225_ (let () (declare (not safe)) - (gx#stx-e _tl264791265772_)))) - (let ((_tl264905265124_ + (gx#stx-e _tl142897143878_)))) + (let ((_tl143011143230_ (let () (declare (not safe)) - (##cdr _e264907265119_))) - (_hd264906265122_ + (##cdr _e143013143225_))) + (_hd143012143228_ (let () (declare (not safe)) - (##car _e264907265119_)))) - (___kont273481273482_))) - (___kont273481273482_)) - (___kont273481273482_)))) + (##car _e143013143225_)))) + (___kont147019147020_))) + (___kont147019147020_)) + (___kont147019147020_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd264792265770_)) + (gx#stx-eq? '%#quote _hd142898143876_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264791265772_)) - (let ((_e264847265361_ + (gx#stx-pair? _tl142897143878_)) + (let ((_e142953143467_ (let () (declare (not safe)) - (gx#stx-e _tl264791265772_)))) - (let ((_tl264845265366_ + (gx#stx-e _tl142897143878_)))) + (let ((_tl142951143472_ (let () (declare (not safe)) - (##cdr _e264847265361_))) - (_hd264846265364_ + (##cdr _e142953143467_))) + (_hd142952143470_ (let () (declare (not safe)) - (##car _e264847265361_)))) + (##car _e142953143467_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl264845265366_)) + (gx#stx-null? _tl142951143472_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl264815265454_)) - (___kont273473273474_ - _hd264816265452_ - _hd264846265364_ - _hd264786265754_) - (___kont273481273482_)) - (___kont273481273482_)))) - (___kont273481273482_)) + (gx#stx-null? _tl142921143560_)) + (___kont147011147012_ + _hd142922143558_ + _hd142952143470_ + _hd142892143860_) + (___kont147019147020_)) + (___kont147019147020_)))) + (___kont147019147020_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd264792265770_)) + (gx#stx-eq? '%#quote-syntax _hd142898143876_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264791265772_)) - (let ((_e264907265119_ + (gx#stx-pair? _tl142897143878_)) + (let ((_e143013143225_ (let () (declare (not safe)) - (gx#stx-e _tl264791265772_)))) - (let ((_tl264905265124_ + (gx#stx-e _tl142897143878_)))) + (let ((_tl143011143230_ (let () (declare (not safe)) - (##cdr _e264907265119_))) - (_hd264906265122_ + (##cdr _e143013143225_))) + (_hd143012143228_ (let () (declare (not safe)) - (##car _e264907265119_)))) - (___kont273481273482_))) - (___kont273481273482_)) - (___kont273481273482_)))))) + (##car _e143013143225_)))) + (___kont147019147020_))) + (___kont147019147020_)) + (___kont147019147020_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd264792265770_)) + _hd142898143876_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl264791265772_)) - (let ((_e264847265361_ + _tl142897143878_)) + (let ((_e142953143467_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl264791265772_)))) - (let ((_tl264845265366_ + (gx#stx-e _tl142897143878_)))) + (let ((_tl142951143472_ (let () (declare (not safe)) - (##cdr _e264847265361_))) - (_hd264846265364_ + (##cdr _e142953143467_))) + (_hd142952143470_ (let () (declare (not safe)) - (##car _e264847265361_)))) + (##car _e142953143467_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl264845265366_)) + (gx#stx-null? _tl142951143472_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl264815265454_)) - (___kont273473273474_ - _hd264816265452_ - _hd264846265364_ - _hd264786265754_) - (___kont273481273482_)) - (___kont273481273482_)))) - (___kont273481273482_)) + (gx#stx-null? _tl142921143560_)) + (___kont147011147012_ + _hd142922143558_ + _hd142952143470_ + _hd142892143860_) + (___kont147019147020_)) + (___kont147019147020_)))) + (___kont147019147020_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd264792265770_)) + _hd142898143876_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl264791265772_)) - (let ((_e264907265119_ + (gx#stx-pair? _tl142897143878_)) + (let ((_e143013143225_ (let () (declare (not safe)) - (gx#stx-e _tl264791265772_)))) - (let ((_tl264905265124_ + (gx#stx-e _tl142897143878_)))) + (let ((_tl143011143230_ (let () (declare (not safe)) - (##cdr _e264907265119_))) - (_hd264906265122_ + (##cdr _e143013143225_))) + (_hd143012143228_ (let () (declare (not safe)) - (##car _e264907265119_)))) - (___kont273481273482_))) - (___kont273481273482_)) - (___kont273481273482_)))) + (##car _e143013143225_)))) + (___kont147019147020_))) + (___kont147019147020_)) + (___kont147019147020_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd264792265770_)) + _hd142898143876_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl264791265772_)) - (let ((_e264847265361_ + _tl142897143878_)) + (let ((_e142953143467_ (let () (declare (not safe)) (gx#stx-e - _tl264791265772_)))) - (let ((_tl264845265366_ + _tl142897143878_)))) + (let ((_tl142951143472_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e264847265361_))) - (_hd264846265364_ - (let () (declare (not safe)) (##car _e264847265361_)))) + (##cdr _e142953143467_))) + (_hd142952143470_ + (let () (declare (not safe)) (##car _e142953143467_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl264845265366_)) + (gx#stx-null? _tl142951143472_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl264815265454_)) - (___kont273473273474_ - _hd264816265452_ - _hd264846265364_ - _hd264786265754_) - (___kont273481273482_)) - (___kont273481273482_)))) + (gx#stx-null? _tl142921143560_)) + (___kont147011147012_ + _hd142922143558_ + _hd142952143470_ + _hd142892143860_) + (___kont147019147020_)) + (___kont147019147020_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273481273482_)) + (___kont147019147020_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd264792265770_)) + _hd142898143876_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl264791265772_)) - (let ((_e264907265119_ + _tl142897143878_)) + (let ((_e143013143225_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl264791265772_)))) - (let ((_tl264905265124_ + (gx#stx-e _tl142897143878_)))) + (let ((_tl143011143230_ (let () (declare (not safe)) - (##cdr _e264907265119_))) - (_hd264906265122_ + (##cdr _e143013143225_))) + (_hd143012143228_ (let () (declare (not safe)) - (##car _e264907265119_)))) + (##car _e143013143225_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl264905265124_)) + (gx#stx-null? _tl143011143230_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd264819265460_)) + (gx#stx-eq? '%#ref _hd142925143566_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264818265462_)) - (let ((_e264916265143_ + (gx#stx-pair? _tl142924143568_)) + (let ((_e143022143249_ (let () (declare (not safe)) - (gx#stx-e _tl264818265462_)))) - (let ((_tl264914265148_ + (gx#stx-e _tl142924143568_)))) + (let ((_tl143020143254_ (let () (declare (not safe)) - (##cdr _e264916265143_))) - (_hd264915265146_ + (##cdr _e143022143249_))) + (_hd143021143252_ (let () (declare (not safe)) - (##car _e264916265143_)))) + (##car _e143022143249_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl264914265148_)) + (gx#stx-null? _tl143020143254_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl264815265454_)) - (___kont273477273478_ - _hd264915265146_ - _hd264906265122_ - _hd264786265754_) - (___kont273481273482_)) - (___kont273481273482_)))) - (___kont273481273482_)) - (___kont273481273482_)) - (___kont273481273482_)))) - (___kont273481273482_)) + (gx#stx-null? _tl142921143560_)) + (___kont147015147016_ + _hd143021143252_ + _hd143012143228_ + _hd142892143860_) + (___kont147019147020_)) + (___kont147019147020_)))) + (___kont147019147020_)) + (___kont147019147020_)) + (___kont147019147020_)))) + (___kont147019147020_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273481273482_)))) + (___kont147019147020_)))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd264792265770_)) + _hd142898143876_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl264791265772_)) - (let ((_e264847265361_ + _tl142897143878_)) + (let ((_e142953143467_ (let () (declare (not safe)) (gx#stx-e - _tl264791265772_)))) - (let ((_tl264845265366_ + _tl142897143878_)))) + (let ((_tl142951143472_ (let () (declare (not safe)) - (##cdr _e264847265361_))) - (_hd264846265364_ + (##cdr _e142953143467_))) + (_hd142952143470_ (let () (declare (not safe)) - (##car _e264847265361_)))) + (##car _e142953143467_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl264845265366_)) + _tl142951143472_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl264815265454_)) - (___kont273473273474_ - _hd264816265452_ - _hd264846265364_ - _hd264786265754_) - (___kont273481273482_)) - (___kont273481273482_)))) + (gx#stx-null? _tl142921143560_)) + (___kont147011147012_ + _hd142922143558_ + _hd142952143470_ + _hd142892143860_) + (___kont147019147020_)) + (___kont147019147020_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273481273482_)) + (___kont147019147020_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd264792265770_)) + _hd142898143876_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl264791265772_)) - (let ((_e264907265119_ + _tl142897143878_)) + (let ((_e143013143225_ (let () (declare (not safe)) (gx#stx-e - _tl264791265772_)))) - (let ((_tl264905265124_ + _tl142897143878_)))) + (let ((_tl143011143230_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e264907265119_))) - (_hd264906265122_ - (let () (declare (not safe)) (##car _e264907265119_)))) - (___kont273481273482_))) + (##cdr _e143013143225_))) + (_hd143012143228_ + (let () (declare (not safe)) (##car _e143013143225_)))) + (___kont147019147020_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273481273482_)) - (___kont273481273482_)))))) + (___kont147019147020_)) + (___kont147019147020_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd264792265770_)) + (gx#stx-eq? '%#quote _hd142898143876_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264791265772_)) - (let ((_e264847265361_ + (gx#stx-pair? _tl142897143878_)) + (let ((_e142953143467_ (let () (declare (not safe)) (gx#stx-e - _tl264791265772_)))) - (let ((_tl264845265366_ + _tl142897143878_)))) + (let ((_tl142951143472_ (let () (declare (not safe)) - (##cdr _e264847265361_))) - (_hd264846265364_ + (##cdr _e142953143467_))) + (_hd142952143470_ (let () (declare (not safe)) - (##car _e264847265361_)))) + (##car _e142953143467_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl264845265366_)) + _tl142951143472_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl264815265454_)) - (___kont273473273474_ - _hd264816265452_ - _hd264846265364_ - _hd264786265754_) - (___kont273481273482_)) - (___kont273481273482_)))) - (___kont273481273482_)) + _tl142921143560_)) + (___kont147011147012_ + _hd142922143558_ + _hd142952143470_ + _hd142892143860_) + (___kont147019147020_)) + (___kont147019147020_)))) + (___kont147019147020_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd264792265770_)) + _hd142898143876_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264791265772_)) - (let ((_e264907265119_ + (gx#stx-pair? _tl142897143878_)) + (let ((_e143013143225_ (let () (declare (not safe)) (gx#stx-e - _tl264791265772_)))) - (let ((_tl264905265124_ + _tl142897143878_)))) + (let ((_tl143011143230_ (let () (declare (not safe)) - (##cdr _e264907265119_))) - (_hd264906265122_ + (##cdr _e143013143225_))) + (_hd143012143228_ (let () (declare (not safe)) - (##car _e264907265119_)))) - (___kont273481273482_))) - (___kont273481273482_)) - (___kont273481273482_)))))) + (##car _e143013143225_)))) + (___kont147019147020_))) + (___kont147019147020_)) + (___kont147019147020_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd264792265770_)) + (gx#stx-eq? '%#quote _hd142898143876_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264791265772_)) - (let ((_e264847265361_ + (gx#stx-pair? _tl142897143878_)) + (let ((_e142953143467_ (let () (declare (not safe)) - (gx#stx-e _tl264791265772_)))) - (let ((_tl264845265366_ + (gx#stx-e _tl142897143878_)))) + (let ((_tl142951143472_ (let () (declare (not safe)) - (##cdr _e264847265361_))) - (_hd264846265364_ + (##cdr _e142953143467_))) + (_hd142952143470_ (let () (declare (not safe)) - (##car _e264847265361_)))) - (___kont273481273482_))) - (___kont273481273482_)) + (##car _e142953143467_)))) + (___kont147019147020_))) + (___kont147019147020_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd264792265770_)) + _hd142898143876_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264791265772_)) - (let ((_e264907265119_ + (gx#stx-pair? _tl142897143878_)) + (let ((_e143013143225_ (let () (declare (not safe)) - (gx#stx-e _tl264791265772_)))) - (let ((_tl264905265124_ + (gx#stx-e _tl142897143878_)))) + (let ((_tl143011143230_ (let () (declare (not safe)) - (##cdr _e264907265119_))) - (_hd264906265122_ + (##cdr _e143013143225_))) + (_hd143012143228_ (let () (declare (not safe)) - (##car _e264907265119_)))) - (___kont273481273482_))) - (___kont273481273482_)) - (___kont273481273482_))))) + (##car _e143013143225_)))) + (___kont147019147020_))) + (___kont147019147020_)) + (___kont147019147020_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264788265764_)) - (let ((_e264817265449_ + (gx#stx-pair? _tl142894143870_)) + (let ((_e142923143555_ (let () (declare (not safe)) - (gx#stx-e _tl264788265764_)))) - (let ((_tl264815265454_ + (gx#stx-e _tl142894143870_)))) + (let ((_tl142921143560_ (let () (declare (not safe)) - (##cdr _e264817265449_))) - (_hd264816265452_ + (##cdr _e142923143555_))) + (_hd142922143558_ (let () (declare (not safe)) - (##car _e264817265449_)))) + (##car _e142923143555_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd264816265452_)) - (let ((_e264820265457_ + (gx#stx-pair? _hd142922143558_)) + (let ((_e142926143563_ (let () (declare (not safe)) - (gx#stx-e _hd264816265452_)))) - (let ((_tl264818265462_ + (gx#stx-e _hd142922143558_)))) + (let ((_tl142924143568_ (let () (declare (not safe)) - (##cdr _e264820265457_))) - (_hd264819265460_ + (##cdr _e142926143563_))) + (_hd142925143566_ (let () (declare (not safe)) - (##car _e264820265457_)))) + (##car _e142926143563_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd264819265460_)) + (gx#identifier? _hd142925143566_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd264819265460_)) + _hd142925143566_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264818265462_)) - (let ((_e264823265465_ + (gx#stx-pair? _tl142924143568_)) + (let ((_e142929143571_ (let () (declare (not safe)) (gx#stx-e - _tl264818265462_)))) - (let ((_tl264821265470_ + _tl142924143568_)))) + (let ((_tl142927143576_ (let () (declare (not safe)) - (##cdr _e264823265465_))) - (_hd264822265468_ + (##cdr _e142929143571_))) + (_hd142928143574_ (let () (declare (not safe)) - (##car _e264823265465_)))) + (##car _e142929143571_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl264821265470_)) + _tl142927143576_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl264815265454_)) - (___kont273471273472_ - _hd264822265468_ - _hd264789265762_ - _hd264786265754_) - (___kont273481273482_)) - (___kont273481273482_)))) - (___kont273481273482_)) - (___kont273481273482_)) - (___kont273481273482_)))) - (___kont273481273482_)))) - (___kont273481273482_))))) + _tl142921143560_)) + (___kont147009147010_ + _hd142928143574_ + _hd142895143868_ + _hd142892143860_) + (___kont147019147020_)) + (___kont147019147020_)))) + (___kont147019147020_)) + (___kont147019147020_)) + (___kont147019147020_)))) + (___kont147019147020_)))) + (___kont147019147020_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl264788265764_)) - (let ((_e264817265449_ + _tl142894143870_)) + (let ((_e142923143555_ (let () (declare (not safe)) (gx#stx-e - _tl264788265764_)))) - (let ((_tl264815265454_ + _tl142894143870_)))) + (let ((_tl142921143560_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e264817265449_))) - (_hd264816265452_ - (let () (declare (not safe)) (##car _e264817265449_)))) + (##cdr _e142923143555_))) + (_hd142922143558_ + (let () (declare (not safe)) (##car _e142923143555_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd264816265452_)) - (let ((_e264820265457_ + (gx#stx-pair? _hd142922143558_)) + (let ((_e142926143563_ (let () (declare (not safe)) - (gx#stx-e _hd264816265452_)))) - (let ((_tl264818265462_ + (gx#stx-e _hd142922143558_)))) + (let ((_tl142924143568_ (let () (declare (not safe)) - (##cdr _e264820265457_))) - (_hd264819265460_ + (##cdr _e142926143563_))) + (_hd142925143566_ (let () (declare (not safe)) - (##car _e264820265457_)))) + (##car _e142926143563_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd264819265460_)) + (gx#identifier? _hd142925143566_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd264819265460_)) + (gx#stx-eq? '%#quote _hd142925143566_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264818265462_)) - (let ((_e264823265465_ + (gx#stx-pair? _tl142924143568_)) + (let ((_e142929143571_ (let () (declare (not safe)) - (gx#stx-e _tl264818265462_)))) - (let ((_tl264821265470_ + (gx#stx-e _tl142924143568_)))) + (let ((_tl142927143576_ (let () (declare (not safe)) - (##cdr _e264823265465_))) - (_hd264822265468_ + (##cdr _e142929143571_))) + (_hd142928143574_ (let () (declare (not safe)) - (##car _e264823265465_)))) + (##car _e142929143571_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl264821265470_)) + (gx#stx-null? _tl142927143576_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl264815265454_)) - (___kont273471273472_ - _hd264822265468_ - _hd264789265762_ - _hd264786265754_) - (___kont273481273482_)) - (___kont273481273482_)))) - (___kont273481273482_)) - (___kont273481273482_)) - (___kont273481273482_)))) - (___kont273481273482_)))) + _tl142921143560_)) + (___kont147009147010_ + _hd142928143574_ + _hd142895143868_ + _hd142892143860_) + (___kont147019147020_)) + (___kont147019147020_)))) + (___kont147019147020_)) + (___kont147019147020_)) + (___kont147019147020_)))) + (___kont147019147020_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273481273482_))))) - (___kont273481273482_)) - (___kont273481273482_)))) - (___kont273481273482_)) + (___kont147019147020_))))) + (___kont147019147020_)) + (___kont147019147020_)))) + (___kont147019147020_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd264783265746_)) + (gx#stx-eq? '%#lambda _hd142889143852_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264782265748_)) - (let ((_e264931264987_ + (gx#stx-pair? _tl142888143854_)) + (let ((_e143037143093_ (let () (declare (not safe)) - (gx#stx-e _tl264782265748_)))) - (let ((_tl264929264992_ + (gx#stx-e _tl142888143854_)))) + (let ((_tl143035143098_ (let () (declare (not safe)) - (##cdr _e264931264987_))) - (_hd264930264990_ + (##cdr _e143037143093_))) + (_hd143036143096_ (let () (declare (not safe)) - (##car _e264931264987_)))) + (##car _e143037143093_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd264930264990_)) - (let ((_e264934264995_ + (gx#stx-pair? _hd143036143096_)) + (let ((_e143040143101_ (let () (declare (not safe)) (gx#stx-e - _hd264930264990_)))) - (let ((_tl264932265000_ + _hd143036143096_)))) + (let ((_tl143038143106_ (let () (declare (not safe)) - (##cdr _e264934264995_))) - (_hd264933264998_ + (##cdr _e143040143101_))) + (_hd143039143104_ (let () (declare (not safe)) - (##car _e264934264995_)))) + (##car _e143040143101_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl264932265000_)) + _tl143038143106_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl264929264992_)) - (let ((_e264937265003_ + _tl143035143098_)) + (let ((_e143043143109_ (let () (declare (not safe)) (gx#stx-e - _tl264929264992_)))) - (let ((_tl264935265008_ + _tl143035143098_)))) + (let ((_tl143041143114_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e264937265003_))) - (_hd264936265006_ - (let () (declare (not safe)) (##car _e264937265003_)))) + (##cdr _e143043143109_))) + (_hd143042143112_ + (let () (declare (not safe)) (##car _e143043143109_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl264935265008_)) + (gx#stx-null? _tl143041143114_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264779265740_)) - (let ((_e264940265011_ + (gx#stx-pair? _tl142885143846_)) + (let ((_e143046143117_ (let () (declare (not safe)) - (gx#stx-e _tl264779265740_)))) - (let ((_tl264938265016_ + (gx#stx-e _tl142885143846_)))) + (let ((_tl143044143122_ (let () (declare (not safe)) - (##cdr _e264940265011_))) - (_hd264939265014_ + (##cdr _e143046143117_))) + (_hd143045143120_ (let () (declare (not safe)) - (##car _e264940265011_)))) + (##car _e143046143117_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd264939265014_)) - (let ((_e264943265019_ + (gx#stx-pair? _hd143045143120_)) + (let ((_e143049143125_ (let () (declare (not safe)) - (gx#stx-e _hd264939265014_)))) - (let ((_tl264941265024_ + (gx#stx-e _hd143045143120_)))) + (let ((_tl143047143130_ (let () (declare (not safe)) - (##cdr _e264943265019_))) - (_hd264942265022_ + (##cdr _e143049143125_))) + (_hd143048143128_ (let () (declare (not safe)) - (##car _e264943265019_)))) + (##car _e143049143125_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd264942265022_)) + (gx#identifier? _hd143048143128_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd264942265022_)) + _hd143048143128_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl264941265024_)) - (let ((_e264946265027_ + _tl143047143130_)) + (let ((_e143052143133_ (let () (declare (not safe)) (gx#stx-e - _tl264941265024_)))) - (let ((_tl264944265032_ + _tl143047143130_)))) + (let ((_tl143050143138_ (let () (declare (not safe)) - (##cdr _e264946265027_))) - (_hd264945265030_ + (##cdr _e143052143133_))) + (_hd143051143136_ (let () (declare (not safe)) - (##car _e264946265027_)))) + (##car _e143052143133_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl264944265032_)) + _tl143050143138_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl264938265016_)) - (___kont273479273480_ - _hd264945265030_ - _hd264936265006_ - _hd264933264998_) - (___kont273481273482_)) - (___kont273481273482_)))) + (gx#stx-null? _tl143044143122_)) + (___kont147017147018_ + _hd143051143136_ + _hd143042143112_ + _hd143039143104_) + (___kont147019147020_)) + (___kont147019147020_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273481273482_)) - (___kont273481273482_)) - (___kont273481273482_)))) - (___kont273481273482_)))) - (___kont273481273482_)) - (___kont273481273482_)))) + (___kont147019147020_)) + (___kont147019147020_)) + (___kont147019147020_)))) + (___kont147019147020_)))) + (___kont147019147020_)) + (___kont147019147020_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273481273482_)) - (___kont273481273482_)))) - (___kont273481273482_)))) - (___kont273481273482_)) - (___kont273481273482_))) - (___kont273481273482_)))) + (___kont147019147020_)) + (___kont147019147020_)))) + (___kont147019147020_)))) + (___kont147019147020_)) + (___kont147019147020_))) + (___kont147019147020_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273481273482_)))) - (___kont273481273482_)) - (___kont273481273482_)) - (___kont273481273482_)))) - (___kont273481273482_)))))) - (_countf-symbol260824_ - (lambda (_id264754_) - (let ((_$e264756_ + (___kont147019147020_)))) + (___kont147019147020_)) + (___kont147019147020_)) + (___kont147019147020_)))) + (___kont147019147020_)))))) + (_countf-symbol138930_ + (lambda (_id142860_) + (let ((_$e142862_ (let () (declare (not safe)) - (gxc#identifier-symbol _id264754_)))) + (gxc#identifier-symbol _id142860_)))) (if (or (let () (declare (not safe)) - (eq? '##vector-length _$e264756_)) + (eq? '##vector-length _$e142862_)) (let () (declare (not safe)) - (eq? 'vector-length _$e264756_))) + (eq? 'vector-length _$e142862_))) 'vector-length (if (let () (declare (not safe)) - (eq? 'values-count _$e264756_)) + (eq? 'values-count _$e142862_)) 'values-count '#f))))) - (_eqf-symbol260825_ - (lambda (_sym264740_) - (let ((_$e264742_ _sym264740_)) + (_eqf-symbol138931_ + (lambda (_sym142846_) + (let ((_$e142848_ _sym142846_)) (if (or (let () (declare (not safe)) - (eq? '##eq? _$e264742_)) + (eq? '##eq? _$e142848_)) (let () (declare (not safe)) - (eq? 'eq? _$e264742_))) + (eq? 'eq? _$e142848_))) 'eq? (if (or (let () (declare (not safe)) - (eq? '##eqv? _$e264742_)) + (eq? '##eqv? _$e142848_)) (let () (declare (not safe)) - (eq? 'eqv? _$e264742_))) + (eq? 'eqv? _$e142848_))) 'eqv? (if (or (let () (declare (not safe)) - (eq? '##equal? _$e264742_)) + (eq? '##equal? _$e142848_)) (let () (declare (not safe)) - (eq? 'equal? _$e264742_))) + (eq? 'equal? _$e142848_))) 'equal? (if (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e264742_)) + _$e142848_)) 'free-identifier=? (if (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e264742_)) + (eq? 'gx#stx-eq? _$e142848_)) 'stx-eq? '#f)))))))) - (_eqf-symbol?260826_ - (lambda (_sym264723_) - (let ((_$e264725_ _sym264723_)) + (_eqf-symbol?138932_ + (lambda (_sym142829_) + (let ((_$e142831_ _sym142829_)) (if (or (let () (declare (not safe)) - (eq? 'eq? _$e264725_)) + (eq? 'eq? _$e142831_)) (let () (declare (not safe)) - (eq? 'eqv? _$e264725_)) + (eq? 'eqv? _$e142831_)) (let () (declare (not safe)) - (eq? 'equal? _$e264725_)) + (eq? 'equal? _$e142831_)) (let () (declare (not safe)) - (eq? 'free-identifier=? _$e264725_)) + (eq? 'free-identifier=? _$e142831_)) (let () (declare (not safe)) - (eq? 'stx-eq? _$e264725_))) + (eq? 'stx-eq? _$e142831_))) '#t '#f)))) - (_do-assert!260827_ - (lambda (_assert264714_ _type264715_ _K264716_) - (let ((_unwind-assert264718_ _env-assert260817_) - (_unwind-type264719_ _env-type260818_)) - (set! _env-assert260817_ _assert264714_) - (set! _env-type260818_ _type264715_) - (let ((_val264721_ (_K264716_))) - (set! _env-assert260817_ _unwind-assert264718_) - (set! _env-type260818_ _unwind-type264719_) - _val264721_)))) - (_do-bind260828_ - (lambda (_bind264711_ _K264712_) - (if (let () (declare (not safe)) (pair? _bind264711_)) - (let ((__tmp276173 + (_do-assert!138933_ + (lambda (_assert142820_ _type142821_ _K142822_) + (let ((_unwind-assert142824_ _env-assert138923_) + (_unwind-type142825_ _env-type138924_)) + (set! _env-assert138923_ _assert142820_) + (set! _env-type138924_ _type142821_) + (let ((_val142827_ (_K142822_))) + (set! _env-assert138923_ _unwind-assert142824_) + (set! _env-type138924_ _unwind-type142825_) + _val142827_)))) + (_do-bind138934_ + (lambda (_bind142817_ _K142818_) + (if (let () (declare (not safe)) (pair? _bind142817_)) + (let ((__tmp149711 (let () (declare (not safe)) - (_fold-bind-env260829_ - _bind264711_ - _env-bind260819_)))) + (_fold-bind-env138935_ + _bind142817_ + _env-bind138925_)))) (declare (not safe)) - (_do-bind!260830_ __tmp276173 _K264712_)) - (_K264712_)))) - (_fold-bind-env260829_ - (lambda (_bind264640_ _env264641_) - (let _lp264643_ ((_rest264645_ _bind264640_) - (_env264646_ _env264641_)) - (let* ((_rest264647264655_ _rest264645_) - (_else264649264663_ (lambda () _env264646_)) - (_K264651264699_ - (lambda (_rest264666_ _bind264667_) - (let* ((_bind264668264675_ _bind264667_) - (_E264670264679_ + (_do-bind!138936_ __tmp149711 _K142818_)) + (_K142818_)))) + (_fold-bind-env138935_ + (lambda (_bind142746_ _env142747_) + (let _lp142749_ ((_rest142751_ _bind142746_) + (_env142752_ _env142747_)) + (let* ((_rest142753142761_ _rest142751_) + (_else142755142769_ (lambda () _env142752_)) + (_K142757142805_ + (lambda (_rest142772_ _bind142773_) + (let* ((_bind142774142781_ _bind142773_) + (_E142776142785_ (lambda () - (error '"No clause matching" - _bind264668264675_))) - (_K264671264687_ - (lambda (_expr264682_ _id264683_) - (let* ((_sexpr264685_ + (let () + (declare (not safe)) + (error '"No clause matching" + _bind142774142781_)))) + (_K142777142793_ + (lambda (_expr142788_ _id142789_) + (let* ((_sexpr142791_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr264682_))) - (__tmp276174 - (let ((__tmp276175 + _expr142788_))) + (__tmp149712 + (let ((__tmp149713 (let () (declare (not safe)) - (cons _sexpr264685_ + (cons _sexpr142791_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id264683_)))) + _id142789_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp276175 - _env264646_)))) + (cons __tmp149713 + _env142752_)))) (declare (not safe)) - (_lp264643_ - _rest264666_ - __tmp276174))))) + (_lp142749_ + _rest142772_ + __tmp149712))))) (if (let () (declare (not safe)) - (##pair? _bind264668264675_)) - (let ((_hd264672264690_ + (##pair? _bind142774142781_)) + (let ((_hd142778142796_ (let () (declare (not safe)) - (##car _bind264668264675_))) - (_tl264673264692_ + (##car _bind142774142781_))) + (_tl142779142798_ (let () (declare (not safe)) - (##cdr _bind264668264675_)))) - (let* ((_id264695_ _hd264672264690_) - (_expr264697_ - _tl264673264692_)) + (##cdr _bind142774142781_)))) + (let* ((_id142801_ _hd142778142796_) + (_expr142803_ + _tl142779142798_)) (declare (not safe)) - (_K264671264687_ - _expr264697_ - _id264695_))) + (_K142777142793_ + _expr142803_ + _id142801_))) (let () (declare (not safe)) - (_E264670264679_))))))) + (_E142776142785_))))))) (if (let () (declare (not safe)) - (##pair? _rest264647264655_)) - (let ((_hd264652264702_ + (##pair? _rest142753142761_)) + (let ((_hd142758142808_ (let () (declare (not safe)) - (##car _rest264647264655_))) - (_tl264653264704_ + (##car _rest142753142761_))) + (_tl142759142810_ (let () (declare (not safe)) - (##cdr _rest264647264655_)))) - (let* ((_bind264707_ _hd264652264702_) - (_rest264709_ _tl264653264704_)) + (##cdr _rest142753142761_)))) + (let* ((_bind142813_ _hd142758142808_) + (_rest142815_ _tl142759142810_)) (declare (not safe)) - (_K264651264699_ _rest264709_ _bind264707_))) + (_K142757142805_ _rest142815_ _bind142813_))) (let () (declare (not safe)) - (_else264649264663_))))))) - (_do-bind!260830_ - (lambda (_env264633_ _K264634_) - (let ((_unwind264636_ _env-bind260819_)) - (set! _env-bind260819_ _env264633_) - (let ((_val264638_ (_K264634_))) - (set! _env-bind260819_ _unwind264636_) - _val264638_)))) - (_do-splice!260831_ - (lambda (_K264627_) - (let ((_unwind264629_ _in-splice?260820_)) - (set! _in-splice?260820_ '#t) - (let ((_val264631_ (_K264627_))) - (set! _in-splice?260820_ _unwind264629_) - _val264631_)))) - (_optimize-e260832_ - (lambda (_expr263824_) - (let* ((___stx273919273920_ _expr263824_) - (_g263831264004_ + (_else142755142769_))))))) + (_do-bind!138936_ + (lambda (_env142739_ _K142740_) + (let ((_unwind142742_ _env-bind138925_)) + (set! _env-bind138925_ _env142739_) + (let ((_val142744_ (_K142740_))) + (set! _env-bind138925_ _unwind142742_) + _val142744_)))) + (_do-splice!138937_ + (lambda (_K142733_) + (let ((_unwind142735_ _in-splice?138926_)) + (set! _in-splice?138926_ '#t) + (let ((_val142737_ (_K142733_))) + (set! _in-splice?138926_ _unwind142735_) + _val142737_)))) + (_optimize-e138938_ + (lambda (_expr141930_) + (let* ((___stx147457147458_ _expr141930_) + (_g141937142110_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx273919273920_))))) - (let ((___kont273921273922_ - (lambda (_L264599_ _L264600_ _L264601_) - (let ((_$e264618_ + ___stx147457147458_))))) + (let ((___kont147459147460_ + (lambda (_L142705_ _L142706_ _L142707_) + (let ((_$e142724_ (let () (declare (not safe)) - (_assert-e260835_ _L264601_)))) + (_assert-e138941_ _L142707_)))) (if (let () (declare (not safe)) - (eq? '#t _$e264618_)) + (eq? '#t _$e142724_)) (let () (declare (not safe)) - (_optimize-e260832_ _L264600_)) + (_optimize-e138938_ _L142706_)) (if (let () (declare (not safe)) - (eq? '#f _$e264618_)) + (eq? '#f _$e142724_)) (let () (declare (not safe)) - (_optimize-e260832_ _L264599_)) - (let ((_K264621_ + (_optimize-e138938_ _L142705_)) + (let ((_K142727_ (let () (declare (not safe)) - (_optimize-t__0__272852272853_ - _L264600_ - _L264601_))) - (_E264622_ + (_optimize-t__0__146390146391_ + _L142706_ + _L142707_))) + (_E142728_ (let () (declare (not safe)) - (_optimize-f__272854272855_ - _L264599_ - _L264601_)))) - (if (let ((__tmp276180 + (_optimize-f__146392146393_ + _L142705_ + _L142707_)))) + (if (let ((__tmp149718 (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _K264621_))) - (__tmp276179 + _K142727_))) + (__tmp149717 (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _E264622_)))) + _E142728_)))) (declare (not safe)) - (equal? __tmp276180 - __tmp276179)) - _K264621_ - (let ((__tmp276176 - (let ((__tmp276177 - (let ((__tmp276178 + (equal? __tmp149718 + __tmp149717)) + _K142727_ + (let ((__tmp149714 + (let ((__tmp149715 + (let ((__tmp149716 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _E264622_ '())))) + (cons _E142728_ '())))) (declare (not safe)) - (cons _K264621_ __tmp276178)))) + (cons _K142727_ __tmp149716)))) (declare (not safe)) - (cons _L264601_ __tmp276177)))) + (cons _L142707_ __tmp149715)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#if - __tmp276176))))))))) - (___kont273923273924_ - (lambda (_L264529_ _L264530_) - (let ((_$e264550_ + __tmp149714))))))))) + (___kont147461147462_ + (lambda (_L142635_ _L142636_) + (let ((_$e142656_ (let () (declare (not safe)) - (_lookup-block260840_ _L264530_)))) - (if _$e264550_ - ((lambda (_block264553_) + (_lookup-block138946_ _L142636_)))) + (if _$e142656_ + ((lambda (_block142659_) (if (let () (declare (not safe)) - (_nonlinear-block?260842_ - _block264553_)) - _expr263824_ - (let ((__tmp276181 - (let ((__tmp276182 - (let ((__tmp276183 + (_nonlinear-block?138948_ + _block142659_)) + _expr141930_ + (let ((__tmp149719 + (let ((__tmp149720 + (let ((__tmp149721 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g264554264557_ _g264555264559_) + (lambda (_g142660142663_ _g142661142665_) (let () (declare (not safe)) - (cons _g264554264557_ _g264555264559_))))) + (cons _g142660142663_ _g142661142665_))))) (declare (not safe)) - (foldr1 __tmp276183 '() _L264529_)))) + (foldr1 __tmp149721 '() _L142635_)))) (declare (not safe)) - (_inline-block260841_ _block264553_ __tmp276182)))) + (_inline-block138947_ _block142659_ __tmp149720)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_optimize-e260832_ - __tmp276181)))) - _$e264550_) - _expr263824_)))) - (___kont273927273928_ - (lambda (_L264419_ _L264420_ _L264421_) - (let* ((_body264440_ + (_optimize-e138938_ + __tmp149719)))) + _$e142656_) + _expr141930_)))) + (___kont147465147466_ + (lambda (_L142525_ _L142526_ _L142527_) + (let* ((_body142546_ (let () (declare (not safe)) - (_optimize-e260832_ _L264419_))) - (__tmp276184 - (let ((__tmp276186 + (_optimize-e138938_ _L142525_))) + (__tmp149722 + (let ((__tmp149724 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L264420_ - _L264421_)) - (let ((__tmp276187 - (lambda (_g264441264445_ + _L142526_ + _L142527_)) + (let ((__tmp149725 + (lambda (_g142547142551_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g264442264447_ - _g264443264449_) - (let ((__tmp276188 - (let ((__tmp276193 + _g142548142553_ + _g142549142555_) + (let ((__tmp149726 + (let ((__tmp149731 (let () (declare (not safe)) - (cons _g264442264447_ '()))) - (__tmp276189 - (let ((__tmp276190 - (let ((__tmp276192 + (cons _g142548142553_ '()))) + (__tmp149727 + (let ((__tmp149728 + (let ((__tmp149730 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp276191 + (__tmp149729 (let () (declare (not safe)) - (cons _g264441264445_ '())))) + (cons _g142547142551_ '())))) (declare (not safe)) - (cons __tmp276192 __tmp276191)))) + (cons __tmp149730 __tmp149729)))) (declare (not safe)) - (cons __tmp276190 '())))) + (cons __tmp149728 '())))) (declare (not safe)) - (cons __tmp276193 __tmp276189)))) + (cons __tmp149731 __tmp149727)))) (declare (not safe)) - (cons __tmp276188 _g264443264449_))))) + (cons __tmp149726 _g142549142555_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp276187 + (foldr2 __tmp149725 '() - _L264420_ - _L264421_)))) - (__tmp276185 + _L142526_ + _L142527_)))) + (__tmp149723 (let () (declare (not safe)) - (cons _body264440_ '())))) + (cons _body142546_ '())))) (declare (not safe)) - (cons __tmp276186 __tmp276185)))) + (cons __tmp149724 __tmp149723)))) (declare (not safe)) - (cons '%#let-values __tmp276184)))) - (___kont273931273932_ - (lambda (_L264287_ _L264288_ _L264289_) - (let ((__tmp276194 + (cons '%#let-values __tmp149722)))) + (___kont147469147470_ + (lambda (_L142393_ _L142394_ _L142395_) + (let ((__tmp149732 (map cons - (let ((__tmp276195 - (lambda (_g264307264310_ - _g264308264312_) + (let ((__tmp149733 + (lambda (_g142413142416_ + _g142414142418_) (let () (declare (not safe)) - (cons _g264307264310_ - _g264308264312_))))) + (cons _g142413142416_ + _g142414142418_))))) (declare (not safe)) - (foldr1 __tmp276195 + (foldr1 __tmp149733 '() - _L264289_)) - (let ((__tmp276196 - (lambda (_g264314264317_ - _g264315264319_) + _L142395_)) + (let ((__tmp149734 + (lambda (_g142420142423_ + _g142421142425_) (let () (declare (not safe)) - (cons _g264314264317_ - _g264315264319_))))) + (cons _g142420142423_ + _g142421142425_))))) (declare (not safe)) - (foldr1 __tmp276196 + (foldr1 __tmp149734 '() - _L264288_))))) + _L142394_))))) (declare (not safe)) - (_bind-e__0__272860272861_ - __tmp276194 - _L264287_)))) - (___kont273935273936_ - (lambda (_L264144_ - _L264145_ - _L264146_ - _L264147_ - _L264148_) - (let ((__tmp276197 + (_bind-e__0__146398146399_ + __tmp149732 + _L142393_)))) + (___kont147473147474_ + (lambda (_L142250_ + _L142251_ + _L142252_ + _L142253_ + _L142254_) + (let ((__tmp149735 (lambda () - (let* ((_expr264190_ + (let* ((_expr142296_ (let () (declare (not safe)) - (_optimize-e260832_ - _L264146_))) - (__tmp276198 - (let ((__tmp276200 - (let ((__tmp276203 - (let ((__tmp276210 + (_optimize-e138938_ + _L142252_))) + (__tmp149736 + (let ((__tmp149738 + (let ((__tmp149741 + (let ((__tmp149748 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L264148_ '()))) - (__tmp276204 - (let ((__tmp276205 - (let ((__tmp276206 - (let ((__tmp276208 - (let ((__tmp276209 - (lambda (_g264191264194_ + (cons _L142254_ '()))) + (__tmp149742 + (let ((__tmp149743 + (let ((__tmp149744 + (let ((__tmp149746 + (let ((__tmp149747 + (lambda (_g142297142300_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g264192264196_) + _g142298142302_) (let () (declare (not safe)) - (cons _g264191264194_ _g264192264196_))))) + (cons _g142297142300_ _g142298142302_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp276209 + (foldr1 __tmp149747 '() - _L264147_))) - (__tmp276207 + _L142253_))) + (__tmp149745 (let () (declare (not safe)) - (cons _expr264190_ '())))) + (cons _expr142296_ '())))) (declare (not safe)) - (cons __tmp276208 __tmp276207)))) + (cons __tmp149746 __tmp149745)))) (declare (not safe)) - (cons '%#lambda __tmp276206)))) + (cons '%#lambda __tmp149744)))) (declare (not safe)) - (cons __tmp276205 '())))) + (cons __tmp149743 '())))) (declare (not safe)) - (cons __tmp276210 __tmp276204))) - (__tmp276201 - (let ((__tmp276202 - (lambda (_g264198264201_ _g264199264203_) + (cons __tmp149748 __tmp149742))) + (__tmp149739 + (let ((__tmp149740 + (lambda (_g142304142307_ _g142305142309_) (let () (declare (not safe)) - (cons _g264198264201_ _g264199264203_))))) + (cons _g142304142307_ _g142305142309_))))) (declare (not safe)) - (foldr1 __tmp276202 '() _L264145_)))) + (foldr1 __tmp149740 '() _L142251_)))) (declare (not safe)) - (cons __tmp276203 __tmp276201))) - (__tmp276199 - (let () (declare (not safe)) (cons _L264144_ '())))) + (cons __tmp149741 __tmp149739))) + (__tmp149737 + (let () (declare (not safe)) (cons _L142250_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp276200 - __tmp276199)))) + (cons __tmp149738 + __tmp149737)))) (declare (not safe)) (cons '%#letrec-values - __tmp276198))))) + __tmp149736))))) (declare (not safe)) - (_do-splice!260831_ __tmp276197)))) - (___kont273941273942_ (lambda () _expr263824_))) - (let* ((___match274128274129_ - (lambda (_e263954264016_ - _hd263953264019_ - _tl263952264021_ - _e263957264024_ - _hd263956264027_ - _tl263955264029_ - _e263960264032_ - _hd263959264035_ - _tl263958264037_ - _e263963264040_ - _hd263962264043_ - _tl263961264045_ - _e263966264048_ - _hd263965264051_ - _tl263964264053_ - _e263969264056_ - _hd263968264059_ - _tl263967264061_ - _e263972264064_ - _hd263971264067_ - _tl263970264069_ - _e263975264072_ - _hd263974264075_ - _tl263973264077_ - ___splice273937273938_ - _target263976264080_ - _tl263978264082_) - (letrec ((_loop263979264085_ - (lambda (_hd263977264088_ - _id263983264090_) + (_do-splice!138937_ __tmp149735)))) + (___kont147479147480_ (lambda () _expr141930_))) + (let* ((___match147666147667_ + (lambda (_e142060142122_ + _hd142059142125_ + _tl142058142127_ + _e142063142130_ + _hd142062142133_ + _tl142061142135_ + _e142066142138_ + _hd142065142141_ + _tl142064142143_ + _e142069142146_ + _hd142068142149_ + _tl142067142151_ + _e142072142154_ + _hd142071142157_ + _tl142070142159_ + _e142075142162_ + _hd142074142165_ + _tl142073142167_ + _e142078142170_ + _hd142077142173_ + _tl142076142175_ + _e142081142178_ + _hd142080142181_ + _tl142079142183_ + ___splice147475147476_ + _target142082142186_ + _tl142084142188_) + (letrec ((_loop142085142191_ + (lambda (_hd142083142194_ + _id142089142196_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd263977264088_)) - (let ((_e263980264093_ + _hd142083142194_)) + (let ((_e142086142199_ (let () (declare (not safe)) (gx#stx-e - _hd263977264088_)))) - (let ((_lp-tl263982264098_ + _hd142083142194_)))) + (let ((_lp-tl142088142204_ (let () (declare (not safe)) - (##cdr _e263980264093_))) - (_lp-hd263981264096_ + (##cdr _e142086142199_))) + (_lp-hd142087142202_ (let () (declare (not safe)) - (##car _e263980264093_)))) - (let ((__tmp276212 + (##car _e142086142199_)))) + (let ((__tmp149750 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd263981264096_ _id263983264090_)))) + (cons _lp-hd142087142202_ _id142089142196_)))) (declare (not safe)) - (_loop263979264085_ _lp-tl263982264098_ __tmp276212)))) + (_loop142085142191_ _lp-tl142088142204_ __tmp149750)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id263984264101_ - (reverse _id263983264090_))) + (let ((_id142090142207_ + (reverse _id142089142196_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263973264077_)) - (let ((_e263987264104_ + _tl142079142183_)) + (let ((_e142093142210_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl263973264077_)))) - (let ((_tl263985264109_ + (gx#stx-e _tl142079142183_)))) + (let ((_tl142091142215_ (let () (declare (not safe)) - (##cdr _e263987264104_))) - (_hd263986264107_ + (##cdr _e142093142210_))) + (_hd142092142213_ (let () (declare (not safe)) - (##car _e263987264104_)))) + (##car _e142093142210_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263985264109_)) + (gx#stx-null? _tl142091142215_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl263967264061_)) + (gx#stx-null? _tl142073142167_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl263958264037_)) - (let ((___splice273939273940_ + (gx#stx-pair/null? _tl142064142143_)) + (let ((___splice147477147478_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl263958264037_ + _tl142064142143_ '0)))) - (let ((_tl263990264114_ + (let ((_tl142096142220_ (let () (declare (not safe)) (##vector-ref - ___splice273939273940_ + ___splice147477147478_ '1))) - (_target263988264112_ + (_target142094142218_ (let () (declare (not safe)) (##vector-ref - ___splice273939273940_ + ___splice147477147478_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263990264114_)) - (letrec ((_loop263991264117_ - (lambda (_hd263989264120_ - _bind263995264122_) + (gx#stx-null? _tl142096142220_)) + (letrec ((_loop142097142223_ + (lambda (_hd142095142226_ + _bind142101142228_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd263989264120_)) - (let ((_e263992264125_ + _hd142095142226_)) + (let ((_e142098142231_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd263989264120_)))) - (let ((_lp-tl263994264130_ + (gx#stx-e _hd142095142226_)))) + (let ((_lp-tl142100142236_ (let () (declare (not safe)) - (##cdr _e263992264125_))) - (_lp-hd263993264128_ + (##cdr _e142098142231_))) + (_lp-hd142099142234_ (let () (declare (not safe)) - (##car _e263992264125_)))) - (let ((__tmp276211 + (##car _e142098142231_)))) + (let ((__tmp149749 (let () (declare (not safe)) - (cons _lp-hd263993264128_ _bind263995264122_)))) + (cons _lp-hd142099142234_ _bind142101142228_)))) (declare (not safe)) - (_loop263991264117_ _lp-tl263994264130_ __tmp276211)))) - (let ((_bind263996264133_ (reverse _bind263995264122_))) + (_loop142097142223_ _lp-tl142100142236_ __tmp149749)))) + (let ((_bind142102142239_ (reverse _bind142101142228_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263955264029_)) - (let ((_e263999264136_ + (gx#stx-pair? _tl142061142135_)) + (let ((_e142105142242_ (let () (declare (not safe)) - (gx#stx-e _tl263955264029_)))) - (let ((_tl263997264141_ + (gx#stx-e _tl142061142135_)))) + (let ((_tl142103142247_ (let () (declare (not safe)) - (##cdr _e263999264136_))) - (_hd263998264139_ + (##cdr _e142105142242_))) + (_hd142104142245_ (let () (declare (not safe)) - (##car _e263999264136_)))) + (##car _e142105142242_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263997264141_)) - (___kont273935273936_ - _hd263998264139_ - _bind263996264133_ - _hd263986264107_ - _id263984264101_ - _hd263965264051_) - (___kont273941273942_)))) - (___kont273941273942_))))))) + (gx#stx-null? _tl142103142247_)) + (___kont147473147474_ + _hd142104142245_ + _bind142102142239_ + _hd142092142213_ + _id142090142207_ + _hd142071142157_) + (___kont147479147480_)))) + (___kont147479147480_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop263991264117_ - _target263988264112_ + (_loop142097142223_ + _target142094142218_ '()))) - (___kont273941273942_)))) - (___kont273941273942_)) - (___kont273941273942_)) - (___kont273941273942_)))) - (___kont273941273942_))))))) + (___kont147479147480_)))) + (___kont147479147480_)) + (___kont147479147480_)) + (___kont147479147480_)))) + (___kont147479147480_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop263979264085_ - _target263976264080_ + (_loop142085142191_ + _target142082142186_ '()))))) - (___match274062274063_ - (lambda (_e263920264211_ - _hd263919264214_ - _tl263918264216_ - _e263923264219_ - _hd263922264222_ - _tl263921264224_ - ___splice273933273934_ - _target263924264227_ - _tl263926264229_) - (letrec ((_loop263927264232_ - (lambda (_hd263925264235_ - _expr263931264237_ - _id263932264239_) + (___match147600147601_ + (lambda (_e142026142317_ + _hd142025142320_ + _tl142024142322_ + _e142029142325_ + _hd142028142328_ + _tl142027142330_ + ___splice147471147472_ + _target142030142333_ + _tl142032142335_) + (letrec ((_loop142033142338_ + (lambda (_hd142031142341_ + _expr142037142343_ + _id142038142345_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd263925264235_)) - (let ((_e263928264242_ + _hd142031142341_)) + (let ((_e142034142348_ (let () (declare (not safe)) (gx#stx-e - _hd263925264235_)))) - (let ((_lp-tl263930264247_ + _hd142031142341_)))) + (let ((_lp-tl142036142353_ (let () (declare (not safe)) - (##cdr _e263928264242_))) - (_lp-hd263929264245_ + (##cdr _e142034142348_))) + (_lp-hd142035142351_ (let () (declare (not safe)) - (##car _e263928264242_)))) + (##car _e142034142348_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd263929264245_)) - (let ((_e263937264250_ + _lp-hd142035142351_)) + (let ((_e142043142356_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd263929264245_)))) - (let ((_tl263935264255_ + (gx#stx-e _lp-hd142035142351_)))) + (let ((_tl142041142361_ (let () (declare (not safe)) - (##cdr _e263937264250_))) - (_hd263936264253_ + (##cdr _e142043142356_))) + (_hd142042142359_ (let () (declare (not safe)) - (##car _e263937264250_)))) + (##car _e142043142356_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263936264253_)) - (let ((_e263940264258_ + (gx#stx-pair? _hd142042142359_)) + (let ((_e142046142364_ (let () (declare (not safe)) - (gx#stx-e _hd263936264253_)))) - (let ((_tl263938264263_ + (gx#stx-e _hd142042142359_)))) + (let ((_tl142044142369_ (let () (declare (not safe)) - (##cdr _e263940264258_))) - (_hd263939264261_ + (##cdr _e142046142364_))) + (_hd142045142367_ (let () (declare (not safe)) - (##car _e263940264258_)))) + (##car _e142046142364_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263938264263_)) + (gx#stx-null? _tl142044142369_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263935264255_)) - (let ((_e263943264266_ + (gx#stx-pair? _tl142041142361_)) + (let ((_e142049142372_ (let () (declare (not safe)) - (gx#stx-e _tl263935264255_)))) - (let ((_tl263941264271_ + (gx#stx-e _tl142041142361_)))) + (let ((_tl142047142377_ (let () (declare (not safe)) - (##cdr _e263943264266_))) - (_hd263942264269_ + (##cdr _e142049142372_))) + (_hd142048142375_ (let () (declare (not safe)) - (##car _e263943264266_)))) + (##car _e142049142372_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl263941264271_)) - (let ((__tmp276214 + _tl142047142377_)) + (let ((__tmp149752 (let () (declare (not safe)) - (cons _hd263942264269_ - _expr263931264237_))) - (__tmp276213 + (cons _hd142048142375_ + _expr142037142343_))) + (__tmp149751 (let () (declare (not safe)) - (cons _hd263939264261_ - _id263932264239_)))) + (cons _hd142045142367_ + _id142038142345_)))) (declare (not safe)) - (_loop263927264232_ - _lp-tl263930264247_ - __tmp276214 - __tmp276213)) - (___kont273941273942_)))) - (___kont273941273942_)) - (___kont273941273942_)))) - (___kont273941273942_)))) - (___kont273941273942_)))) + (_loop142033142338_ + _lp-tl142036142353_ + __tmp149752 + __tmp149751)) + (___kont147479147480_)))) + (___kont147479147480_)) + (___kont147479147480_)))) + (___kont147479147480_)))) + (___kont147479147480_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id263934264276_ - (reverse _id263932264239_)) - (_expr263933264274_ - (reverse _expr263931264237_))) + (let ((_id142040142382_ + (reverse _id142038142345_)) + (_expr142039142380_ + (reverse _expr142037142343_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263921264224_)) - (let ((_e263946264279_ + _tl142027142330_)) + (let ((_e142052142385_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl263921264224_)))) - (let ((_tl263944264284_ + (gx#stx-e _tl142027142330_)))) + (let ((_tl142050142390_ (let () (declare (not safe)) - (##cdr _e263946264279_))) - (_hd263945264282_ + (##cdr _e142052142385_))) + (_hd142051142388_ (let () (declare (not safe)) - (##car _e263946264279_)))) + (##car _e142052142385_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263944264284_)) - (___kont273931273932_ - _hd263945264282_ - _expr263933264274_ - _id263934264276_) - (___kont273941273942_)))) - (___kont273941273942_))))))) + (gx#stx-null? _tl142050142390_)) + (___kont147469147470_ + _hd142051142388_ + _expr142039142380_ + _id142040142382_) + (___kont147479147480_)))) + (___kont147479147480_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop263927264232_ - _target263924264227_ + (_loop142033142338_ + _target142030142333_ '() '()))))) - (___match274038274039_ - (lambda (_e263882264327_ - _hd263881264330_ - _tl263880264332_ - _e263885264335_ - _hd263884264338_ - _tl263883264340_ - ___splice273929273930_ - _target263886264343_ - _tl263888264345_) - (letrec ((_loop263889264348_ - (lambda (_hd263887264351_ - _xid263893264353_ - _id263894264355_) + (___match147576147577_ + (lambda (_e141988142433_ + _hd141987142436_ + _tl141986142438_ + _e141991142441_ + _hd141990142444_ + _tl141989142446_ + ___splice147467147468_ + _target141992142449_ + _tl141994142451_) + (letrec ((_loop141995142454_ + (lambda (_hd141993142457_ + _xid141999142459_ + _id142000142461_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd263887264351_)) - (let ((_e263890264358_ + _hd141993142457_)) + (let ((_e141996142464_ (let () (declare (not safe)) (gx#stx-e - _hd263887264351_)))) - (let ((_lp-tl263892264363_ + _hd141993142457_)))) + (let ((_lp-tl141998142469_ (let () (declare (not safe)) - (##cdr _e263890264358_))) - (_lp-hd263891264361_ + (##cdr _e141996142464_))) + (_lp-hd141997142467_ (let () (declare (not safe)) - (##car _e263890264358_)))) + (##car _e141996142464_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd263891264361_)) - (let ((_e263899264366_ + _lp-hd141997142467_)) + (let ((_e142005142472_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd263891264361_)))) - (let ((_tl263897264371_ + (gx#stx-e _lp-hd141997142467_)))) + (let ((_tl142003142477_ (let () (declare (not safe)) - (##cdr _e263899264366_))) - (_hd263898264369_ + (##cdr _e142005142472_))) + (_hd142004142475_ (let () (declare (not safe)) - (##car _e263899264366_)))) + (##car _e142005142472_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263898264369_)) - (let ((_e263902264374_ + (gx#stx-pair? _hd142004142475_)) + (let ((_e142008142480_ (let () (declare (not safe)) - (gx#stx-e _hd263898264369_)))) - (let ((_tl263900264379_ + (gx#stx-e _hd142004142475_)))) + (let ((_tl142006142485_ (let () (declare (not safe)) - (##cdr _e263902264374_))) - (_hd263901264377_ + (##cdr _e142008142480_))) + (_hd142007142483_ (let () (declare (not safe)) - (##car _e263902264374_)))) + (##car _e142008142480_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263900264379_)) + (gx#stx-null? _tl142006142485_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263897264371_)) - (let ((_e263905264382_ + (gx#stx-pair? _tl142003142477_)) + (let ((_e142011142488_ (let () (declare (not safe)) - (gx#stx-e _tl263897264371_)))) - (let ((_tl263903264387_ + (gx#stx-e _tl142003142477_)))) + (let ((_tl142009142493_ (let () (declare (not safe)) - (##cdr _e263905264382_))) - (_hd263904264385_ + (##cdr _e142011142488_))) + (_hd142010142491_ (let () (declare (not safe)) - (##car _e263905264382_)))) + (##car _e142011142488_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd263904264385_)) - (let ((_e263908264390_ + _hd142010142491_)) + (let ((_e142014142496_ (let () (declare (not safe)) (gx#stx-e - _hd263904264385_)))) - (let ((_tl263906264395_ + _hd142010142491_)))) + (let ((_tl142012142501_ (let () (declare (not safe)) - (##cdr _e263908264390_))) - (_hd263907264393_ + (##cdr _e142014142496_))) + (_hd142013142499_ (let () (declare (not safe)) - (##car _e263908264390_)))) + (##car _e142014142496_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd263907264393_)) + _hd142013142499_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd263907264393_)) + _hd142013142499_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl263906264395_)) - (let ((_e263911264398_ + (gx#stx-pair? _tl142012142501_)) + (let ((_e142017142504_ (let () (declare (not safe)) - (gx#stx-e _tl263906264395_)))) - (let ((_tl263909264403_ + (gx#stx-e _tl142012142501_)))) + (let ((_tl142015142509_ (let () (declare (not safe)) - (##cdr _e263911264398_))) - (_hd263910264401_ + (##cdr _e142017142504_))) + (_hd142016142507_ (let () (declare (not safe)) - (##car _e263911264398_)))) + (##car _e142017142504_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263909264403_)) + (gx#stx-null? _tl142015142509_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl263903264387_)) - (let ((__tmp276216 + (gx#stx-null? _tl142009142493_)) + (let ((__tmp149754 (let () (declare (not safe)) - (cons _hd263910264401_ - _xid263893264353_))) - (__tmp276215 + (cons _hd142016142507_ + _xid141999142459_))) + (__tmp149753 (let () (declare (not safe)) - (cons _hd263901264377_ - _id263894264355_)))) + (cons _hd142007142483_ + _id142000142461_)))) (declare (not safe)) - (_loop263889264348_ - _lp-tl263892264363_ - __tmp276216 - __tmp276215)) - (___match274062274063_ - _e263882264327_ - _hd263881264330_ - _tl263880264332_ - _e263885264335_ - _hd263884264338_ - _tl263883264340_ - ___splice273929273930_ - _target263886264343_ - _tl263888264345_)) - (___match274062274063_ - _e263882264327_ - _hd263881264330_ - _tl263880264332_ - _e263885264335_ - _hd263884264338_ - _tl263883264340_ - ___splice273929273930_ - _target263886264343_ - _tl263888264345_)))) - (___match274062274063_ - _e263882264327_ - _hd263881264330_ - _tl263880264332_ - _e263885264335_ - _hd263884264338_ - _tl263883264340_ - ___splice273929273930_ - _target263886264343_ - _tl263888264345_)) - (___match274062274063_ - _e263882264327_ - _hd263881264330_ - _tl263880264332_ - _e263885264335_ - _hd263884264338_ - _tl263883264340_ - ___splice273929273930_ - _target263886264343_ - _tl263888264345_)) - (___match274062274063_ - _e263882264327_ - _hd263881264330_ - _tl263880264332_ - _e263885264335_ - _hd263884264338_ - _tl263883264340_ - ___splice273929273930_ - _target263886264343_ - _tl263888264345_)))) + (_loop141995142454_ + _lp-tl141998142469_ + __tmp149754 + __tmp149753)) + (___match147600147601_ + _e141988142433_ + _hd141987142436_ + _tl141986142438_ + _e141991142441_ + _hd141990142444_ + _tl141989142446_ + ___splice147467147468_ + _target141992142449_ + _tl141994142451_)) + (___match147600147601_ + _e141988142433_ + _hd141987142436_ + _tl141986142438_ + _e141991142441_ + _hd141990142444_ + _tl141989142446_ + ___splice147467147468_ + _target141992142449_ + _tl141994142451_)))) + (___match147600147601_ + _e141988142433_ + _hd141987142436_ + _tl141986142438_ + _e141991142441_ + _hd141990142444_ + _tl141989142446_ + ___splice147467147468_ + _target141992142449_ + _tl141994142451_)) + (___match147600147601_ + _e141988142433_ + _hd141987142436_ + _tl141986142438_ + _e141991142441_ + _hd141990142444_ + _tl141989142446_ + ___splice147467147468_ + _target141992142449_ + _tl141994142451_)) + (___match147600147601_ + _e141988142433_ + _hd141987142436_ + _tl141986142438_ + _e141991142441_ + _hd141990142444_ + _tl141989142446_ + ___splice147467147468_ + _target141992142449_ + _tl141994142451_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match274062274063_ - _e263882264327_ - _hd263881264330_ - _tl263880264332_ - _e263885264335_ - _hd263884264338_ - _tl263883264340_ - ___splice273929273930_ - _target263886264343_ - _tl263888264345_)))) - (___match274062274063_ - _e263882264327_ - _hd263881264330_ - _tl263880264332_ - _e263885264335_ - _hd263884264338_ - _tl263883264340_ - ___splice273929273930_ - _target263886264343_ - _tl263888264345_)) - (___match274062274063_ - _e263882264327_ - _hd263881264330_ - _tl263880264332_ - _e263885264335_ - _hd263884264338_ - _tl263883264340_ - ___splice273929273930_ - _target263886264343_ - _tl263888264345_)))) - (___match274062274063_ - _e263882264327_ - _hd263881264330_ - _tl263880264332_ - _e263885264335_ - _hd263884264338_ - _tl263883264340_ - ___splice273929273930_ - _target263886264343_ - _tl263888264345_)))) - (___match274062274063_ - _e263882264327_ - _hd263881264330_ - _tl263880264332_ - _e263885264335_ - _hd263884264338_ - _tl263883264340_ - ___splice273929273930_ - _target263886264343_ - _tl263888264345_)))) + (___match147600147601_ + _e141988142433_ + _hd141987142436_ + _tl141986142438_ + _e141991142441_ + _hd141990142444_ + _tl141989142446_ + ___splice147467147468_ + _target141992142449_ + _tl141994142451_)))) + (___match147600147601_ + _e141988142433_ + _hd141987142436_ + _tl141986142438_ + _e141991142441_ + _hd141990142444_ + _tl141989142446_ + ___splice147467147468_ + _target141992142449_ + _tl141994142451_)) + (___match147600147601_ + _e141988142433_ + _hd141987142436_ + _tl141986142438_ + _e141991142441_ + _hd141990142444_ + _tl141989142446_ + ___splice147467147468_ + _target141992142449_ + _tl141994142451_)))) + (___match147600147601_ + _e141988142433_ + _hd141987142436_ + _tl141986142438_ + _e141991142441_ + _hd141990142444_ + _tl141989142446_ + ___splice147467147468_ + _target141992142449_ + _tl141994142451_)))) + (___match147600147601_ + _e141988142433_ + _hd141987142436_ + _tl141986142438_ + _e141991142441_ + _hd141990142444_ + _tl141989142446_ + ___splice147467147468_ + _target141992142449_ + _tl141994142451_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id263896264408_ - (reverse _id263894264355_)) - (_xid263895264406_ - (reverse _xid263893264353_))) + (let ((_id142002142514_ + (reverse _id142000142461_)) + (_xid142001142512_ + (reverse _xid141999142459_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263883264340_)) - (let ((_e263914264411_ + _tl141989142446_)) + (let ((_e142020142517_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl263883264340_)))) - (let ((_tl263912264416_ + (gx#stx-e _tl141989142446_)))) + (let ((_tl142018142522_ (let () (declare (not safe)) - (##cdr _e263914264411_))) - (_hd263913264414_ + (##cdr _e142020142517_))) + (_hd142019142520_ (let () (declare (not safe)) - (##car _e263914264411_)))) + (##car _e142020142517_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263912264416_)) - (___kont273927273928_ - _hd263913264414_ - _xid263895264406_ - _id263896264408_) - (___match274062274063_ - _e263882264327_ - _hd263881264330_ - _tl263880264332_ - _e263885264335_ - _hd263884264338_ - _tl263883264340_ - ___splice273929273930_ - _target263886264343_ - _tl263888264345_)))) - (___match274062274063_ - _e263882264327_ - _hd263881264330_ - _tl263880264332_ - _e263885264335_ - _hd263884264338_ - _tl263883264340_ - ___splice273929273930_ - _target263886264343_ - _tl263888264345_))))))) + (gx#stx-null? _tl142018142522_)) + (___kont147465147466_ + _hd142019142520_ + _xid142001142512_ + _id142002142514_) + (___match147600147601_ + _e141988142433_ + _hd141987142436_ + _tl141986142438_ + _e141991142441_ + _hd141990142444_ + _tl141989142446_ + ___splice147467147468_ + _target141992142449_ + _tl141994142451_)))) + (___match147600147601_ + _e141988142433_ + _hd141987142436_ + _tl141986142438_ + _e141991142441_ + _hd141990142444_ + _tl141989142446_ + ___splice147467147468_ + _target141992142449_ + _tl141994142451_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop263889264348_ - _target263886264343_ + (_loop141995142454_ + _target141992142449_ '() '()))))) - (___match274014274015_ - (lambda (_e263852264457_ - _hd263851264460_ - _tl263850264462_ - _e263855264465_ - _hd263854264468_ - _tl263853264470_ - _e263858264473_ - _hd263857264476_ - _tl263856264478_ - _e263861264481_ - _hd263860264484_ - _tl263859264486_ - ___splice273925273926_ - _target263862264489_ - _tl263864264491_) - (letrec ((_loop263865264494_ - (lambda (_hd263863264497_ - _id263869264499_) + (___match147552147553_ + (lambda (_e141958142563_ + _hd141957142566_ + _tl141956142568_ + _e141961142571_ + _hd141960142574_ + _tl141959142576_ + _e141964142579_ + _hd141963142582_ + _tl141962142584_ + _e141967142587_ + _hd141966142590_ + _tl141965142592_ + ___splice147463147464_ + _target141968142595_ + _tl141970142597_) + (letrec ((_loop141971142600_ + (lambda (_hd141969142603_ + _id141975142605_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd263863264497_)) - (let ((_e263866264502_ + _hd141969142603_)) + (let ((_e141972142608_ (let () (declare (not safe)) (gx#stx-e - _hd263863264497_)))) - (let ((_lp-tl263868264507_ + _hd141969142603_)))) + (let ((_lp-tl141974142613_ (let () (declare (not safe)) - (##cdr _e263866264502_))) - (_lp-hd263867264505_ + (##cdr _e141972142608_))) + (_lp-hd141973142611_ (let () (declare (not safe)) - (##car _e263866264502_)))) + (##car _e141972142608_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd263867264505_)) - (let ((_e263873264510_ + _lp-hd141973142611_)) + (let ((_e141979142616_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd263867264505_)))) - (let ((_tl263871264515_ + (gx#stx-e _lp-hd141973142611_)))) + (let ((_tl141977142621_ (let () (declare (not safe)) - (##cdr _e263873264510_))) - (_hd263872264513_ + (##cdr _e141979142616_))) + (_hd141978142619_ (let () (declare (not safe)) - (##car _e263873264510_)))) + (##car _e141979142616_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd263872264513_)) + (gx#identifier? _hd141978142619_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd263872264513_)) + (gx#stx-eq? '%#ref _hd141978142619_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263871264515_)) - (let ((_e263876264518_ + (gx#stx-pair? _tl141977142621_)) + (let ((_e141982142624_ (let () (declare (not safe)) - (gx#stx-e _tl263871264515_)))) - (let ((_tl263874264523_ + (gx#stx-e _tl141977142621_)))) + (let ((_tl141980142629_ (let () (declare (not safe)) - (##cdr _e263876264518_))) - (_hd263875264521_ + (##cdr _e141982142624_))) + (_hd141981142627_ (let () (declare (not safe)) - (##car _e263876264518_)))) + (##car _e141982142624_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263874264523_)) - (let ((__tmp276217 + (gx#stx-null? _tl141980142629_)) + (let ((__tmp149755 (let () (declare (not safe)) - (cons _hd263875264521_ - _id263869264499_)))) + (cons _hd141981142627_ + _id141975142605_)))) (declare (not safe)) - (_loop263865264494_ - _lp-tl263868264507_ - __tmp276217)) - (___kont273941273942_)))) - (___kont273941273942_)) - (___kont273941273942_)) - (___kont273941273942_)))) - (___kont273941273942_)))) + (_loop141971142600_ + _lp-tl141974142613_ + __tmp149755)) + (___kont147479147480_)))) + (___kont147479147480_)) + (___kont147479147480_)) + (___kont147479147480_)))) + (___kont147479147480_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id263870264526_ - (reverse _id263869264499_))) - (___kont273923273924_ - _id263870264526_ - _hd263860264484_)))))) + (let ((_id141976142632_ + (reverse _id141975142605_))) + (___kont147461147462_ + _id141976142632_ + _hd141966142590_)))))) (let () (declare (not safe)) - (_loop263865264494_ - _target263862264489_ + (_loop141971142600_ + _target141968142595_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx273919273920_)) - (let ((_e263838264567_ + (gx#stx-pair? ___stx147457147458_)) + (let ((_e141944142673_ (let () (declare (not safe)) - (gx#stx-e ___stx273919273920_)))) - (let ((_tl263836264572_ + (gx#stx-e ___stx147457147458_)))) + (let ((_tl141942142678_ (let () (declare (not safe)) - (##cdr _e263838264567_))) - (_hd263837264570_ + (##cdr _e141944142673_))) + (_hd141943142676_ (let () (declare (not safe)) - (##car _e263838264567_)))) + (##car _e141944142673_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd263837264570_)) + (gx#identifier? _hd141943142676_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd263837264570_)) + _hd141943142676_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263836264572_)) - (let ((_e263841264575_ + _tl141942142678_)) + (let ((_e141947142681_ (let () (declare (not safe)) (gx#stx-e - _tl263836264572_)))) - (let ((_tl263839264580_ + _tl141942142678_)))) + (let ((_tl141945142686_ (let () (declare (not safe)) - (##cdr _e263841264575_))) - (_hd263840264578_ + (##cdr _e141947142681_))) + (_hd141946142684_ (let () (declare (not safe)) - (##car _e263841264575_)))) + (##car _e141947142681_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263839264580_)) - (let ((_e263844264583_ + _tl141945142686_)) + (let ((_e141950142689_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl263839264580_)))) - (let ((_tl263842264588_ - (let () (declare (not safe)) (##cdr _e263844264583_))) - (_hd263843264586_ - (let () (declare (not safe)) (##car _e263844264583_)))) + (gx#stx-e _tl141945142686_)))) + (let ((_tl141948142694_ + (let () (declare (not safe)) (##cdr _e141950142689_))) + (_hd141949142692_ + (let () (declare (not safe)) (##car _e141950142689_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263842264588_)) - (let ((_e263847264591_ + (gx#stx-pair? _tl141948142694_)) + (let ((_e141953142697_ (let () (declare (not safe)) - (gx#stx-e _tl263842264588_)))) - (let ((_tl263845264596_ + (gx#stx-e _tl141948142694_)))) + (let ((_tl141951142702_ (let () (declare (not safe)) - (##cdr _e263847264591_))) - (_hd263846264594_ + (##cdr _e141953142697_))) + (_hd141952142700_ (let () (declare (not safe)) - (##car _e263847264591_)))) + (##car _e141953142697_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263845264596_)) - (___kont273921273922_ - _hd263846264594_ - _hd263843264586_ - _hd263840264578_) - (___kont273941273942_)))) - (___kont273941273942_)))) - (___kont273941273942_)))) + (gx#stx-null? _tl141951142702_)) + (___kont147459147460_ + _hd141952142700_ + _hd141949142692_ + _hd141946142684_) + (___kont147479147480_)))) + (___kont147479147480_)))) + (___kont147479147480_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273941273942_)) + (___kont147479147480_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd263837264570_)) + _hd141943142676_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263836264572_)) - (let ((_e263855264465_ + _tl141942142678_)) + (let ((_e141961142571_ (let () (declare (not safe)) (gx#stx-e - _tl263836264572_)))) - (let ((_tl263853264470_ + _tl141942142678_)))) + (let ((_tl141959142576_ (let () (declare (not safe)) - (##cdr _e263855264465_))) - (_hd263854264468_ + (##cdr _e141961142571_))) + (_hd141960142574_ (let () (declare (not safe)) - (##car _e263855264465_)))) + (##car _e141961142571_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd263854264468_)) - (let ((_e263858264473_ + _hd141960142574_)) + (let ((_e141964142579_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd263854264468_)))) - (let ((_tl263856264478_ + (gx#stx-e _hd141960142574_)))) + (let ((_tl141962142584_ (let () (declare (not safe)) - (##cdr _e263858264473_))) - (_hd263857264476_ + (##cdr _e141964142579_))) + (_hd141963142582_ (let () (declare (not safe)) - (##car _e263858264473_)))) + (##car _e141964142579_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd263857264476_)) + (gx#identifier? _hd141963142582_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd263857264476_)) + (gx#stx-eq? '%#ref _hd141963142582_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263856264478_)) - (let ((_e263861264481_ + (gx#stx-pair? _tl141962142584_)) + (let ((_e141967142587_ (let () (declare (not safe)) - (gx#stx-e _tl263856264478_)))) - (let ((_tl263859264486_ + (gx#stx-e _tl141962142584_)))) + (let ((_tl141965142592_ (let () (declare (not safe)) - (##cdr _e263861264481_))) - (_hd263860264484_ + (##cdr _e141967142587_))) + (_hd141966142590_ (let () (declare (not safe)) - (##car _e263861264481_)))) + (##car _e141967142587_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263859264486_)) + (gx#stx-null? _tl141965142592_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl263853264470_)) - (let ((___splice273925273926_ + _tl141959142576_)) + (let ((___splice147463147464_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl263853264470_ + _tl141959142576_ '0)))) - (let ((_tl263864264491_ + (let ((_tl141970142597_ (let () (declare (not safe)) (##vector-ref - ___splice273925273926_ + ___splice147463147464_ '1))) - (_target263862264489_ + (_target141968142595_ (let () (declare (not safe)) (##vector-ref - ___splice273925273926_ + ___splice147463147464_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl263864264491_)) - (___match274014274015_ - _e263838264567_ - _hd263837264570_ - _tl263836264572_ - _e263855264465_ - _hd263854264468_ - _tl263853264470_ - _e263858264473_ - _hd263857264476_ - _tl263856264478_ - _e263861264481_ - _hd263860264484_ - _tl263859264486_ - ___splice273925273926_ - _target263862264489_ - _tl263864264491_) - (___kont273941273942_)))) - (___kont273941273942_)) - (___kont273941273942_)))) - (___kont273941273942_)) - (___kont273941273942_)) - (___kont273941273942_)))) - (___kont273941273942_)))) + _tl141970142597_)) + (___match147552147553_ + _e141944142673_ + _hd141943142676_ + _tl141942142678_ + _e141961142571_ + _hd141960142574_ + _tl141959142576_ + _e141964142579_ + _hd141963142582_ + _tl141962142584_ + _e141967142587_ + _hd141966142590_ + _tl141965142592_ + ___splice147463147464_ + _target141968142595_ + _tl141970142597_) + (___kont147479147480_)))) + (___kont147479147480_)) + (___kont147479147480_)))) + (___kont147479147480_)) + (___kont147479147480_)) + (___kont147479147480_)))) + (___kont147479147480_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273941273942_)) + (___kont147479147480_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd263837264570_)) + _hd141943142676_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263836264572_)) - (let ((_e263885264335_ + _tl141942142678_)) + (let ((_e141991142441_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl263836264572_)))) - (let ((_tl263883264340_ - (let () (declare (not safe)) (##cdr _e263885264335_))) - (_hd263884264338_ - (let () (declare (not safe)) (##car _e263885264335_)))) + (gx#stx-e _tl141942142678_)))) + (let ((_tl141989142446_ + (let () (declare (not safe)) (##cdr _e141991142441_))) + (_hd141990142444_ + (let () (declare (not safe)) (##car _e141991142441_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd263884264338_)) - (let ((___splice273929273930_ + (gx#stx-pair/null? _hd141990142444_)) + (let ((___splice147467147468_ (let () (declare (not safe)) - (gx#syntax-split-splice _hd263884264338_ '0)))) - (let ((_tl263888264345_ + (gx#syntax-split-splice _hd141990142444_ '0)))) + (let ((_tl141994142451_ (let () (declare (not safe)) - (##vector-ref ___splice273929273930_ '1))) - (_target263886264343_ + (##vector-ref ___splice147467147468_ '1))) + (_target141992142449_ (let () (declare (not safe)) - (##vector-ref ___splice273929273930_ '0)))) + (##vector-ref ___splice147467147468_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263888264345_)) - (___match274038274039_ - _e263838264567_ - _hd263837264570_ - _tl263836264572_ - _e263885264335_ - _hd263884264338_ - _tl263883264340_ - ___splice273929273930_ - _target263886264343_ - _tl263888264345_) - (___kont273941273942_)))) - (___kont273941273942_)))) - (___kont273941273942_)) + (gx#stx-null? _tl141994142451_)) + (___match147576147577_ + _e141944142673_ + _hd141943142676_ + _tl141942142678_ + _e141991142441_ + _hd141990142444_ + _tl141989142446_ + ___splice147467147468_ + _target141992142449_ + _tl141994142451_) + (___kont147479147480_)))) + (___kont147479147480_)))) + (___kont147479147480_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd263837264570_)) + _hd141943142676_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263836264572_)) - (let ((_e263957264024_ + _tl141942142678_)) + (let ((_e142063142130_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl263836264572_)))) - (let ((_tl263955264029_ + (gx#stx-e _tl141942142678_)))) + (let ((_tl142061142135_ (let () (declare (not safe)) - (##cdr _e263957264024_))) - (_hd263956264027_ + (##cdr _e142063142130_))) + (_hd142062142133_ (let () (declare (not safe)) - (##car _e263957264024_)))) + (##car _e142063142130_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263956264027_)) - (let ((_e263960264032_ + (gx#stx-pair? _hd142062142133_)) + (let ((_e142066142138_ (let () (declare (not safe)) - (gx#stx-e _hd263956264027_)))) - (let ((_tl263958264037_ + (gx#stx-e _hd142062142133_)))) + (let ((_tl142064142143_ (let () (declare (not safe)) - (##cdr _e263960264032_))) - (_hd263959264035_ + (##cdr _e142066142138_))) + (_hd142065142141_ (let () (declare (not safe)) - (##car _e263960264032_)))) + (##car _e142066142138_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263959264035_)) - (let ((_e263963264040_ + (gx#stx-pair? _hd142065142141_)) + (let ((_e142069142146_ (let () (declare (not safe)) - (gx#stx-e _hd263959264035_)))) - (let ((_tl263961264045_ + (gx#stx-e _hd142065142141_)))) + (let ((_tl142067142151_ (let () (declare (not safe)) - (##cdr _e263963264040_))) - (_hd263962264043_ + (##cdr _e142069142146_))) + (_hd142068142149_ (let () (declare (not safe)) - (##car _e263963264040_)))) + (##car _e142069142146_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263962264043_)) - (let ((_e263966264048_ + (gx#stx-pair? _hd142068142149_)) + (let ((_e142072142154_ (let () (declare (not safe)) (gx#stx-e - _hd263962264043_)))) - (let ((_tl263964264053_ + _hd142068142149_)))) + (let ((_tl142070142159_ (let () (declare (not safe)) - (##cdr _e263966264048_))) - (_hd263965264051_ + (##cdr _e142072142154_))) + (_hd142071142157_ (let () (declare (not safe)) - (##car _e263966264048_)))) + (##car _e142072142154_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl263964264053_)) + _tl142070142159_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263961264045_)) - (let ((_e263969264056_ + _tl142067142151_)) + (let ((_e142075142162_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl263961264045_)))) - (let ((_tl263967264061_ - (let () (declare (not safe)) (##cdr _e263969264056_))) - (_hd263968264059_ - (let () (declare (not safe)) (##car _e263969264056_)))) + (gx#stx-e _tl142067142151_)))) + (let ((_tl142073142167_ + (let () (declare (not safe)) (##cdr _e142075142162_))) + (_hd142074142165_ + (let () (declare (not safe)) (##car _e142075142162_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263968264059_)) - (let ((_e263972264064_ + (gx#stx-pair? _hd142074142165_)) + (let ((_e142078142170_ (let () (declare (not safe)) - (gx#stx-e _hd263968264059_)))) - (let ((_tl263970264069_ + (gx#stx-e _hd142074142165_)))) + (let ((_tl142076142175_ (let () (declare (not safe)) - (##cdr _e263972264064_))) - (_hd263971264067_ + (##cdr _e142078142170_))) + (_hd142077142173_ (let () (declare (not safe)) - (##car _e263972264064_)))) + (##car _e142078142170_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd263971264067_)) + (gx#identifier? _hd142077142173_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd263971264067_)) + (gx#stx-eq? '%#lambda _hd142077142173_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263970264069_)) - (let ((_e263975264072_ + (gx#stx-pair? _tl142076142175_)) + (let ((_e142081142178_ (let () (declare (not safe)) - (gx#stx-e _tl263970264069_)))) - (let ((_tl263973264077_ + (gx#stx-e _tl142076142175_)))) + (let ((_tl142079142183_ (let () (declare (not safe)) - (##cdr _e263975264072_))) - (_hd263974264075_ + (##cdr _e142081142178_))) + (_hd142080142181_ (let () (declare (not safe)) - (##car _e263975264072_)))) + (##car _e142081142178_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd263974264075_)) - (let ((___splice273937273938_ + _hd142080142181_)) + (let ((___splice147475147476_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd263974264075_ + _hd142080142181_ '0)))) - (let ((_tl263978264082_ + (let ((_tl142084142188_ (let () (declare (not safe)) (##vector-ref - ___splice273937273938_ + ___splice147475147476_ '1))) - (_target263976264080_ + (_target142082142186_ (let () (declare (not safe)) (##vector-ref - ___splice273937273938_ + ___splice147475147476_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl263978264082_)) - (___match274128274129_ - _e263838264567_ - _hd263837264570_ - _tl263836264572_ - _e263957264024_ - _hd263956264027_ - _tl263955264029_ - _e263960264032_ - _hd263959264035_ - _tl263958264037_ - _e263963264040_ - _hd263962264043_ - _tl263961264045_ - _e263966264048_ - _hd263965264051_ - _tl263964264053_ - _e263969264056_ - _hd263968264059_ - _tl263967264061_ - _e263972264064_ - _hd263971264067_ - _tl263970264069_ - _e263975264072_ - _hd263974264075_ - _tl263973264077_ - ___splice273937273938_ - _target263976264080_ - _tl263978264082_) - (___kont273941273942_)))) - (___kont273941273942_)))) - (___kont273941273942_)) - (___kont273941273942_)) - (___kont273941273942_)))) - (___kont273941273942_)))) - (___kont273941273942_)) + _tl142084142188_)) + (___match147666147667_ + _e141944142673_ + _hd141943142676_ + _tl141942142678_ + _e142063142130_ + _hd142062142133_ + _tl142061142135_ + _e142066142138_ + _hd142065142141_ + _tl142064142143_ + _e142069142146_ + _hd142068142149_ + _tl142067142151_ + _e142072142154_ + _hd142071142157_ + _tl142070142159_ + _e142075142162_ + _hd142074142165_ + _tl142073142167_ + _e142078142170_ + _hd142077142173_ + _tl142076142175_ + _e142081142178_ + _hd142080142181_ + _tl142079142183_ + ___splice147475147476_ + _target142082142186_ + _tl142084142188_) + (___kont147479147480_)))) + (___kont147479147480_)))) + (___kont147479147480_)) + (___kont147479147480_)) + (___kont147479147480_)))) + (___kont147479147480_)))) + (___kont147479147480_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273941273942_)))) - (___kont273941273942_)))) - (___kont273941273942_)))) - (___kont273941273942_)))) - (___kont273941273942_)) - (___kont273941273942_))))) + (___kont147479147480_)))) + (___kont147479147480_)))) + (___kont147479147480_)))) + (___kont147479147480_)))) + (___kont147479147480_)) + (___kont147479147480_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273941273942_)))) - (___kont273941273942_))))))) - (_optimize-t__272850272851_ - (lambda (_expr263807_ _test263808_ _continue263809_) - (let ((__tmp276219 - (let ((__tmp276220 + (___kont147479147480_)))) + (___kont147479147480_))))))) + (_optimize-t__146388146389_ + (lambda (_expr141913_ _test141914_ _continue141915_) + (let ((__tmp149757 + (let ((__tmp149758 (let () (declare (not safe)) - (cons _test263808_ '#t)))) + (cons _test141914_ '#t)))) (declare (not safe)) - (cons __tmp276220 '()))) - (__tmp276218 - (lambda () (_continue263809_ _expr263807_)))) + (cons __tmp149758 '()))) + (__tmp149756 + (lambda () (_continue141915_ _expr141913_)))) (declare (not safe)) - (_do-assert260821_ __tmp276219 __tmp276218)))) - (_optimize-t__0__272852272853_ - (lambda (_expr263815_ _test263816_) - (let ((_continue263818_ _optimize-e260832_)) + (_do-assert138927_ __tmp149757 __tmp149756)))) + (_optimize-t__0__146390146391_ + (lambda (_expr141921_ _test141922_) + (let ((_continue141924_ _optimize-e138938_)) (declare (not safe)) - (_optimize-t__272850272851_ - _expr263815_ - _test263816_ - _continue263818_)))) - (_optimize-t260833_ - (lambda _g276222_ - (let ((_g276221_ + (_optimize-t__146388146389_ + _expr141921_ + _test141922_ + _continue141924_)))) + (_optimize-t138939_ + (lambda _g149760_ + (let ((_g149759_ (let () (declare (not safe)) - (##length _g276222_)))) - (cond ((let () (declare (not safe)) (##fx= _g276221_ 2)) - (apply (lambda (_expr263815_ _test263816_) + (##length _g149760_)))) + (cond ((let () (declare (not safe)) (##fx= _g149759_ 2)) + (apply (lambda (_expr141921_ _test141922_) (let () (declare (not safe)) - (_optimize-t__0__272852272853_ - _expr263815_ - _test263816_))) - _g276222_)) - ((let () (declare (not safe)) (##fx= _g276221_ 3)) - (apply (lambda (_expr263820_ - _test263821_ - _continue263822_) + (_optimize-t__0__146390146391_ + _expr141921_ + _test141922_))) + _g149760_)) + ((let () (declare (not safe)) (##fx= _g149759_ 3)) + (apply (lambda (_expr141926_ + _test141927_ + _continue141928_) (let () (declare (not safe)) - (_optimize-t__272850272851_ - _expr263820_ - _test263821_ - _continue263822_))) - _g276222_)) + (_optimize-t__146388146389_ + _expr141926_ + _test141927_ + _continue141928_))) + _g149760_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g276222_)))))) - (_optimize-f__272854272855_ - (lambda (_expr262892_ _test262893_) - (let ((__tmp276265 - (if _test262893_ - (let ((__tmp276266 + _g149760_)))))) + (_optimize-f__146392146393_ + (lambda (_expr140998_ _test140999_) + (let ((__tmp149803 + (if _test140999_ + (let ((__tmp149804 (let () (declare (not safe)) - (cons _test262893_ '#f)))) + (cons _test140999_ '#f)))) (declare (not safe)) - (cons __tmp276266 '())) + (cons __tmp149804 '())) '())) - (__tmp276223 + (__tmp149761 (lambda () - (let* ((___stx274169274170_ _expr262892_) - (_g262901263074_ + (let* ((___stx147707147708_ _expr140998_) + (_g141007141180_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx274169274170_))))) - (let ((___kont274171274172_ - (lambda (_L263662_ _L263663_) - (let ((_$e263683_ + ___stx147707147708_))))) + (let ((___kont147709147710_ + (lambda (_L141768_ _L141769_) + (let ((_$e141789_ (let () (declare (not safe)) - (_lookup-block260840_ - _L263663_)))) - (if _$e263683_ - ((lambda (_block263686_) + (_lookup-block138946_ + _L141769_)))) + (if _$e141789_ + ((lambda (_block141792_) (if (let () (declare (not safe)) - (_nonlinear-block?260842_ - _block263686_)) - _expr262892_ - (let* ((_inline263695_ - (let ((__tmp276224 + (_nonlinear-block?138948_ + _block141792_)) + _expr140998_ + (let* ((_inline141801_ + (let ((__tmp149762 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp276225 - (lambda (_g263687263690_ _g263688263692_) + (let ((__tmp149763 + (lambda (_g141793141796_ _g141794141798_) (let () (declare (not safe)) - (cons _g263687263690_ - _g263688263692_))))) + (cons _g141793141796_ + _g141794141798_))))) (declare (not safe)) - (foldr1 __tmp276225 '() _L263662_)))) + (foldr1 __tmp149763 '() _L141768_)))) (declare (not safe)) - (_inline-block260841_ _block263686_ __tmp276224))) - (___stx274131274132_ _inline263695_) - (_g263698263719_ + (_inline-block138947_ _block141792_ __tmp149762))) + (___stx147669147670_ _inline141801_) + (_g141804141825_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx274131274132_))))) - (let ((___kont274133274134_ - (lambda (_L263763_ _L263764_ _L263765_) - (let ((_$e263787_ + ___stx147669147670_))))) + (let ((___kont147671147672_ + (lambda (_L141869_ _L141870_ _L141871_) + (let ((_$e141893_ (let () (declare (not safe)) - (_assert-e260835_ _L263765_)))) + (_assert-e138941_ _L141871_)))) (if (let () (declare (not safe)) - (eq? '#t _$e263787_)) - (if _in-splice?260820_ + (eq? '#t _$e141893_)) + (if _in-splice?138926_ (let () (declare (not safe)) - (_optimize-f__0__272856272857_ _L263764_)) + (_optimize-f__0__146394146395_ _L141870_)) (let () (declare (not safe)) - (_optimize-e260832_ _L263764_))) + (_optimize-e138938_ _L141870_))) (if (let () (declare (not safe)) - (eq? '#f _$e263787_)) + (eq? '#f _$e141893_)) (let () (declare (not safe)) - (_optimize-f__0__272856272857_ _L263763_)) - _expr262892_))))) - (___kont274135274136_ + (_optimize-f__0__146394146395_ _L141869_)) + _expr140998_))))) + (___kont147673147674_ (lambda () (let () (declare (not safe)) - (_optimize-f__0__272856272857_ _inline263695_))))) + (_optimize-f__0__146394146395_ _inline141801_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx274131274132_)) - (let ((_e263705263731_ + (gx#stx-pair? ___stx147669147670_)) + (let ((_e141811141837_ (let () (declare (not safe)) - (gx#stx-e ___stx274131274132_)))) - (let ((_tl263703263736_ + (gx#stx-e ___stx147669147670_)))) + (let ((_tl141809141842_ (let () (declare (not safe)) - (##cdr _e263705263731_))) - (_hd263704263734_ + (##cdr _e141811141837_))) + (_hd141810141840_ (let () (declare (not safe)) - (##car _e263705263731_)))) + (##car _e141811141837_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd263704263734_)) + (gx#identifier? _hd141810141840_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd263704263734_)) + (gx#stx-eq? '%#if _hd141810141840_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263703263736_)) - (let ((_e263708263739_ + (gx#stx-pair? _tl141809141842_)) + (let ((_e141814141845_ (let () (declare (not safe)) - (gx#stx-e _tl263703263736_)))) - (let ((_tl263706263744_ + (gx#stx-e _tl141809141842_)))) + (let ((_tl141812141850_ (let () (declare (not safe)) - (##cdr _e263708263739_))) - (_hd263707263742_ + (##cdr _e141814141845_))) + (_hd141813141848_ (let () (declare (not safe)) - (##car _e263708263739_)))) + (##car _e141814141845_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263706263744_)) - (let ((_e263711263747_ + _tl141812141850_)) + (let ((_e141817141853_ (let () (declare (not safe)) (gx#stx-e - _tl263706263744_)))) - (let ((_tl263709263752_ + _tl141812141850_)))) + (let ((_tl141815141858_ (let () (declare (not safe)) - (##cdr _e263711263747_))) - (_hd263710263750_ + (##cdr _e141817141853_))) + (_hd141816141856_ (let () (declare (not safe)) - (##car _e263711263747_)))) + (##car _e141817141853_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263709263752_)) - (let ((_e263714263755_ + _tl141815141858_)) + (let ((_e141820141861_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl263709263752_)))) - (let ((_tl263712263760_ - (let () (declare (not safe)) (##cdr _e263714263755_))) - (_hd263713263758_ - (let () (declare (not safe)) (##car _e263714263755_)))) + (gx#stx-e _tl141815141858_)))) + (let ((_tl141818141866_ + (let () (declare (not safe)) (##cdr _e141820141861_))) + (_hd141819141864_ + (let () (declare (not safe)) (##car _e141820141861_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263712263760_)) - (___kont274133274134_ - _hd263713263758_ - _hd263710263750_ - _hd263707263742_) - (___kont274135274136_)))) - (___kont274135274136_)))) + (gx#stx-null? _tl141818141866_)) + (___kont147671147672_ + _hd141819141864_ + _hd141816141856_ + _hd141813141848_) + (___kont147673147674_)))) + (___kont147673147674_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274135274136_)))) - (___kont274135274136_)) - (___kont274135274136_)) - (___kont274135274136_)))) - (___kont274135274136_)))))) + (___kont147673147674_)))) + (___kont147673147674_)) + (___kont147673147674_)) + (___kont147673147674_)))) + (___kont147673147674_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e263683_) - _expr262892_)))) - (___kont274175274176_ - (lambda (_L263560_ _L263561_ _L263562_) - (let ((_$e263579_ + _$e141789_) + _expr140998_)))) + (___kont147713147714_ + (lambda (_L141666_ _L141667_ _L141668_) + (let ((_$e141685_ (let () (declare (not safe)) - (_assert-e260835_ - _L263562_)))) + (_assert-e138941_ + _L141668_)))) (if (let () (declare (not safe)) - (eq? '#t _$e263579_)) - (if _in-splice?260820_ + (eq? '#t _$e141685_)) + (if _in-splice?138926_ (let () (declare (not safe)) - (_optimize-f__0__272856272857_ - _L263561_)) + (_optimize-f__0__146394146395_ + _L141667_)) (let () (declare (not safe)) - (_optimize-e260832_ - _L263561_))) + (_optimize-e138938_ + _L141667_))) (if (let () (declare (not safe)) - (eq? '#f _$e263579_)) + (eq? '#f _$e141685_)) (let () (declare (not safe)) - (_optimize-f__0__272856272857_ - _L263560_)) - (let ((_K263582_ + (_optimize-f__0__146394146395_ + _L141666_)) + (let ((_K141688_ (let () (declare (not safe)) - (_optimize-t__272850272851_ - _L263561_ - _L263562_ - _optimize-f260834_))) - (_E263583_ + (_optimize-t__146388146389_ + _L141667_ + _L141668_ + _optimize-f138940_))) + (_E141689_ (let () (declare (not safe)) - (_optimize-f__272854272855_ - _L263560_ - _L263562_)))) - (if (let ((__tmp276230 + (_optimize-f__146392146393_ + _L141666_ + _L141668_)))) + (if (let ((__tmp149768 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#apply-generate-runtime-repr _K263582_))) - (__tmp276229 + (gxc#apply-generate-runtime-repr _K141688_))) + (__tmp149767 (let () (declare (not safe)) - (gxc#apply-generate-runtime-repr _E263583_)))) + (gxc#apply-generate-runtime-repr _E141689_)))) (declare (not safe)) - (equal? __tmp276230 __tmp276229)) - _K263582_ - (let ((__tmp276226 - (let ((__tmp276227 - (let ((__tmp276228 + (equal? __tmp149768 __tmp149767)) + _K141688_ + (let ((__tmp149764 + (let ((__tmp149765 + (let ((__tmp149766 (let () (declare (not safe)) - (cons _E263583_ '())))) + (cons _E141689_ '())))) (declare (not safe)) - (cons _K263582_ __tmp276228)))) + (cons _K141688_ __tmp149766)))) (declare (not safe)) - (cons _L263562_ __tmp276227)))) + (cons _L141668_ __tmp149765)))) (declare (not safe)) - (cons '%#if __tmp276226))))))))) + (cons '%#if __tmp149764))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274177274178_ - (lambda (_L263490_ _L263491_ _L263492_) - (let* ((_body263511_ + (___kont147715147716_ + (lambda (_L141596_ _L141597_ _L141598_) + (let* ((_body141617_ (let () (declare (not safe)) - (_optimize-f__0__272856272857_ - _L263490_))) - (__tmp276231 - (let ((__tmp276233 + (_optimize-f__0__146394146395_ + _L141596_))) + (__tmp149769 + (let ((__tmp149771 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L263491_ - _L263492_)) - (let ((__tmp276234 + _L141597_ + _L141598_)) + (let ((__tmp149772 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g263512263516_ - _g263513263518_ - _g263514263520_) - (let ((__tmp276235 - (let ((__tmp276240 + (lambda (_g141618141622_ + _g141619141624_ + _g141620141626_) + (let ((__tmp149773 + (let ((__tmp149778 (let () (declare (not safe)) - (cons _g263513263518_ '()))) - (__tmp276236 - (let ((__tmp276237 - (let ((__tmp276239 + (cons _g141619141624_ '()))) + (__tmp149774 + (let ((__tmp149775 + (let ((__tmp149777 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp276238 + (__tmp149776 (let () (declare (not safe)) - (cons _g263512263516_ + (cons _g141618141622_ '())))) (declare (not safe)) - (cons __tmp276239 - __tmp276238)))) + (cons __tmp149777 + __tmp149776)))) (declare (not safe)) - (cons __tmp276237 '())))) + (cons __tmp149775 '())))) (declare (not safe)) - (cons __tmp276240 __tmp276236)))) + (cons __tmp149778 __tmp149774)))) (declare (not safe)) - (cons __tmp276235 _g263514263520_))))) + (cons __tmp149773 _g141620141626_))))) (declare (not safe)) - (foldr2 __tmp276234 '() _L263491_ _L263492_)))) - (__tmp276232 - (let () (declare (not safe)) (cons _body263511_ '())))) + (foldr2 __tmp149772 '() _L141597_ _L141598_)))) + (__tmp149770 + (let () (declare (not safe)) (cons _body141617_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp276233 - __tmp276232)))) + (cons __tmp149771 + __tmp149770)))) (declare (not safe)) - (cons '%#let-values __tmp276231)))) - (___kont274181274182_ - (lambda (_L263358_ _L263359_ _L263360_) - (let ((__tmp276241 + (cons '%#let-values __tmp149769)))) + (___kont147719147720_ + (lambda (_L141464_ _L141465_ _L141466_) + (let ((__tmp149779 (map cons - (let ((__tmp276242 - (lambda (_g263378263381_ + (let ((__tmp149780 + (lambda (_g141484141487_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g263379263383_) + _g141485141489_) (let () (declare (not safe)) - (cons _g263378263381_ _g263379263383_))))) + (cons _g141484141487_ _g141485141489_))))) (declare (not safe)) - (foldr1 __tmp276242 '() _L263360_)) + (foldr1 __tmp149780 '() _L141466_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp276243 - (lambda (_g263385263388_ + (let ((__tmp149781 + (lambda (_g141491141494_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g263386263390_) + _g141492141496_) (let () (declare (not safe)) - (cons _g263385263388_ _g263386263390_))))) + (cons _g141491141494_ _g141492141496_))))) (declare (not safe)) - (foldr1 __tmp276243 '() _L263359_))))) + (foldr1 __tmp149781 '() _L141465_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_bind-e__272858272859_ - __tmp276241 - _L263358_ - _optimize-f260834_)))) - (___kont274185274186_ - (lambda (_L263214_ - _L263215_ - _L263216_ - _L263217_ - _L263218_) - (let ((__tmp276244 + (_bind-e__146396146397_ + __tmp149779 + _L141464_ + _optimize-f138940_)))) + (___kont147723147724_ + (lambda (_L141320_ + _L141321_ + _L141322_ + _L141323_ + _L141324_) + (let ((__tmp149782 (lambda () - (let* ((_expr263261_ + (let* ((_expr141367_ (let () (declare (not safe)) - (_optimize-f__0__272856272857_ - _L263216_))) - (__tmp276245 - (let ((__tmp276247 + (_optimize-f__0__146394146395_ + _L141322_))) + (__tmp149783 + (let ((__tmp149785 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp276250 - (let ((__tmp276257 + (let ((__tmp149788 + (let ((__tmp149795 (let () (declare (not safe)) - (cons _L263218_ '()))) - (__tmp276251 - (let ((__tmp276252 - (let ((__tmp276253 - (let ((__tmp276255 - (let ((__tmp276256 + (cons _L141324_ '()))) + (__tmp149789 + (let ((__tmp149790 + (let ((__tmp149791 + (let ((__tmp149793 + (let ((__tmp149794 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g263262263265_ _g263263263267_) + (lambda (_g141368141371_ _g141369141373_) (let () (declare (not safe)) - (cons _g263262263265_ _g263263263267_))))) + (cons _g141368141371_ _g141369141373_))))) (declare (not safe)) - (foldr1 __tmp276256 '() _L263217_))) - (__tmp276254 - (let () (declare (not safe)) (cons _expr263261_ '())))) + (foldr1 __tmp149794 '() _L141323_))) + (__tmp149792 + (let () (declare (not safe)) (cons _expr141367_ '())))) (declare (not safe)) - (cons __tmp276255 __tmp276254)))) + (cons __tmp149793 __tmp149792)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#lambda __tmp276253)))) + (cons '%#lambda __tmp149791)))) (declare (not safe)) - (cons __tmp276252 '())))) + (cons __tmp149790 '())))) (declare (not safe)) - (cons __tmp276257 __tmp276251))) - (__tmp276248 - (let ((__tmp276249 - (lambda (_g263269263272_ - _g263270263274_) + (cons __tmp149795 __tmp149789))) + (__tmp149786 + (let ((__tmp149787 + (lambda (_g141375141378_ + _g141376141380_) (let () (declare (not safe)) - (cons _g263269263272_ - _g263270263274_))))) + (cons _g141375141378_ + _g141376141380_))))) (declare (not safe)) - (foldr1 __tmp276249 '() _L263215_)))) + (foldr1 __tmp149787 '() _L141321_)))) (declare (not safe)) - (cons __tmp276250 __tmp276248))) - (__tmp276246 - (let () (declare (not safe)) (cons _L263214_ '())))) + (cons __tmp149788 __tmp149786))) + (__tmp149784 + (let () (declare (not safe)) (cons _L141320_ '())))) (declare (not safe)) - (cons __tmp276247 __tmp276246)))) + (cons __tmp149785 __tmp149784)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#letrec-values - __tmp276245))))) + __tmp149783))))) (declare (not safe)) - (_do-splice!260831_ __tmp276244)))) - (___kont274191274192_ - (lambda () _expr262892_))) - (let* ((___match274378274379_ - (lambda (_e263024263086_ - _hd263023263089_ - _tl263022263091_ - _e263027263094_ - _hd263026263097_ - _tl263025263099_ - _e263030263102_ - _hd263029263105_ - _tl263028263107_ - _e263033263110_ - _hd263032263113_ - _tl263031263115_ - _e263036263118_ - _hd263035263121_ - _tl263034263123_ - _e263039263126_ - _hd263038263129_ - _tl263037263131_ - _e263042263134_ - _hd263041263137_ - _tl263040263139_ - _e263045263142_ - _hd263044263145_ - _tl263043263147_ - ___splice274187274188_ - _target263046263150_ - _tl263048263152_) - (letrec ((_loop263049263155_ - (lambda (_hd263047263158_ - _id263053263160_) + (_do-splice!138937_ __tmp149782)))) + (___kont147729147730_ + (lambda () _expr140998_))) + (let* ((___match147916147917_ + (lambda (_e141130141192_ + _hd141129141195_ + _tl141128141197_ + _e141133141200_ + _hd141132141203_ + _tl141131141205_ + _e141136141208_ + _hd141135141211_ + _tl141134141213_ + _e141139141216_ + _hd141138141219_ + _tl141137141221_ + _e141142141224_ + _hd141141141227_ + _tl141140141229_ + _e141145141232_ + _hd141144141235_ + _tl141143141237_ + _e141148141240_ + _hd141147141243_ + _tl141146141245_ + _e141151141248_ + _hd141150141251_ + _tl141149141253_ + ___splice147725147726_ + _target141152141256_ + _tl141154141258_) + (letrec ((_loop141155141261_ + (lambda (_hd141153141264_ + _id141159141266_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd263047263158_)) - (let ((_e263050263163_ + _hd141153141264_)) + (let ((_e141156141269_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd263047263158_)))) - (let ((_lp-tl263052263168_ + (gx#stx-e _hd141153141264_)))) + (let ((_lp-tl141158141274_ (let () (declare (not safe)) - (##cdr _e263050263163_))) - (_lp-hd263051263166_ + (##cdr _e141156141269_))) + (_lp-hd141157141272_ (let () (declare (not safe)) - (##car _e263050263163_)))) - (let ((__tmp276259 + (##car _e141156141269_)))) + (let ((__tmp149797 (let () (declare (not safe)) - (cons _lp-hd263051263166_ _id263053263160_)))) + (cons _lp-hd141157141272_ _id141159141266_)))) (declare (not safe)) - (_loop263049263155_ - _lp-tl263052263168_ - __tmp276259)))) - (let ((_id263054263171_ (reverse _id263053263160_))) + (_loop141155141261_ + _lp-tl141158141274_ + __tmp149797)))) + (let ((_id141160141277_ (reverse _id141159141266_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263043263147_)) - (let ((_e263057263174_ + (gx#stx-pair? _tl141149141253_)) + (let ((_e141163141280_ (let () (declare (not safe)) - (gx#stx-e _tl263043263147_)))) - (let ((_tl263055263179_ + (gx#stx-e _tl141149141253_)))) + (let ((_tl141161141285_ (let () (declare (not safe)) - (##cdr _e263057263174_))) - (_hd263056263177_ + (##cdr _e141163141280_))) + (_hd141162141283_ (let () (declare (not safe)) - (##car _e263057263174_)))) + (##car _e141163141280_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263055263179_)) + (gx#stx-null? _tl141161141285_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl263037263131_)) + (gx#stx-null? _tl141143141237_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl263028263107_)) - (let ((___splice274189274190_ + _tl141134141213_)) + (let ((___splice147727147728_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl263028263107_ + _tl141134141213_ '0)))) - (let ((_tl263060263184_ + (let ((_tl141166141290_ (let () (declare (not safe)) (##vector-ref - ___splice274189274190_ + ___splice147727147728_ '1))) - (_target263058263182_ + (_target141164141288_ (let () (declare (not safe)) (##vector-ref - ___splice274189274190_ + ___splice147727147728_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl263060263184_)) - (letrec ((_loop263061263187_ - (lambda (_hd263059263190_ + _tl141166141290_)) + (letrec ((_loop141167141293_ + (lambda (_hd141165141296_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind263065263192_) + _bind141171141298_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263059263190_)) - (let ((_e263062263195_ + (gx#stx-pair? _hd141165141296_)) + (let ((_e141168141301_ (let () (declare (not safe)) - (gx#stx-e _hd263059263190_)))) - (let ((_lp-tl263064263200_ + (gx#stx-e _hd141165141296_)))) + (let ((_lp-tl141170141306_ (let () (declare (not safe)) - (##cdr _e263062263195_))) - (_lp-hd263063263198_ + (##cdr _e141168141301_))) + (_lp-hd141169141304_ (let () (declare (not safe)) - (##car _e263062263195_)))) - (let ((__tmp276258 + (##car _e141168141301_)))) + (let ((__tmp149796 (let () (declare (not safe)) - (cons _lp-hd263063263198_ - _bind263065263192_)))) + (cons _lp-hd141169141304_ + _bind141171141298_)))) (declare (not safe)) - (_loop263061263187_ - _lp-tl263064263200_ - __tmp276258)))) - (let ((_bind263066263203_ - (reverse _bind263065263192_))) + (_loop141167141293_ + _lp-tl141170141306_ + __tmp149796)))) + (let ((_bind141172141309_ + (reverse _bind141171141298_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263025263099_)) - (let ((_e263069263206_ + (gx#stx-pair? _tl141131141205_)) + (let ((_e141175141312_ (let () (declare (not safe)) - (gx#stx-e _tl263025263099_)))) - (let ((_tl263067263211_ + (gx#stx-e _tl141131141205_)))) + (let ((_tl141173141317_ (let () (declare (not safe)) - (##cdr _e263069263206_))) - (_hd263068263209_ + (##cdr _e141175141312_))) + (_hd141174141315_ (let () (declare (not safe)) - (##car _e263069263206_)))) + (##car _e141175141312_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263067263211_)) - (___kont274185274186_ - _hd263068263209_ - _bind263066263203_ - _hd263056263177_ - _id263054263171_ - _hd263035263121_) - (___kont274191274192_)))) - (___kont274191274192_))))))) + (gx#stx-null? _tl141173141317_)) + (___kont147723147724_ + _hd141174141315_ + _bind141172141309_ + _hd141162141283_ + _id141160141277_ + _hd141141141227_) + (___kont147729147730_)))) + (___kont147729147730_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop263061263187_ - _target263058263182_ + (_loop141167141293_ + _target141164141288_ '()))) - (___kont274191274192_)))) - (___kont274191274192_)) - (___kont274191274192_)) - (___kont274191274192_)))) - (___kont274191274192_))))))) + (___kont147729147730_)))) + (___kont147729147730_)) + (___kont147729147730_)) + (___kont147729147730_)))) + (___kont147729147730_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop263049263155_ - _target263046263150_ + (_loop141155141261_ + _target141152141256_ '()))))) - (___match274312274313_ - (lambda (_e262990263282_ - _hd262989263285_ - _tl262988263287_ - _e262993263290_ - _hd262992263293_ - _tl262991263295_ - ___splice274183274184_ - _target262994263298_ - _tl262996263300_) - (letrec ((_loop262997263303_ - (lambda (_hd262995263306_ - _expr263001263308_ - _id263002263310_) + (___match147850147851_ + (lambda (_e141096141388_ + _hd141095141391_ + _tl141094141393_ + _e141099141396_ + _hd141098141399_ + _tl141097141401_ + ___splice147721147722_ + _target141100141404_ + _tl141102141406_) + (letrec ((_loop141103141409_ + (lambda (_hd141101141412_ + _expr141107141414_ + _id141108141416_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd262995263306_)) - (let ((_e262998263313_ + _hd141101141412_)) + (let ((_e141104141419_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd262995263306_)))) - (let ((_lp-tl263000263318_ + (gx#stx-e _hd141101141412_)))) + (let ((_lp-tl141106141424_ (let () (declare (not safe)) - (##cdr _e262998263313_))) - (_lp-hd262999263316_ + (##cdr _e141104141419_))) + (_lp-hd141105141422_ (let () (declare (not safe)) - (##car _e262998263313_)))) + (##car _e141104141419_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd262999263316_)) - (let ((_e263007263321_ + (gx#stx-pair? _lp-hd141105141422_)) + (let ((_e141113141427_ (let () (declare (not safe)) - (gx#stx-e _lp-hd262999263316_)))) - (let ((_tl263005263326_ + (gx#stx-e _lp-hd141105141422_)))) + (let ((_tl141111141432_ (let () (declare (not safe)) - (##cdr _e263007263321_))) - (_hd263006263324_ + (##cdr _e141113141427_))) + (_hd141112141430_ (let () (declare (not safe)) - (##car _e263007263321_)))) + (##car _e141113141427_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263006263324_)) - (let ((_e263010263329_ + (gx#stx-pair? _hd141112141430_)) + (let ((_e141116141435_ (let () (declare (not safe)) - (gx#stx-e _hd263006263324_)))) - (let ((_tl263008263334_ + (gx#stx-e _hd141112141430_)))) + (let ((_tl141114141440_ (let () (declare (not safe)) - (##cdr _e263010263329_))) - (_hd263009263332_ + (##cdr _e141116141435_))) + (_hd141115141438_ (let () (declare (not safe)) - (##car _e263010263329_)))) + (##car _e141116141435_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263008263334_)) + (gx#stx-null? _tl141114141440_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263005263326_)) - (let ((_e263013263337_ + _tl141111141432_)) + (let ((_e141119141443_ (let () (declare (not safe)) (gx#stx-e - _tl263005263326_)))) - (let ((_tl263011263342_ + _tl141111141432_)))) + (let ((_tl141117141448_ (let () (declare (not safe)) - (##cdr _e263013263337_))) - (_hd263012263340_ + (##cdr _e141119141443_))) + (_hd141118141446_ (let () (declare (not safe)) - (##car _e263013263337_)))) + (##car _e141119141443_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl263011263342_)) - (let ((__tmp276261 + _tl141117141448_)) + (let ((__tmp149799 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _hd263012263340_ _expr263001263308_))) - (__tmp276260 + (cons _hd141118141446_ _expr141107141414_))) + (__tmp149798 (let () (declare (not safe)) - (cons _hd263009263332_ _id263002263310_)))) + (cons _hd141115141438_ _id141108141416_)))) (declare (not safe)) - (_loop262997263303_ - _lp-tl263000263318_ - __tmp276261 - __tmp276260)) - (___kont274191274192_)))) + (_loop141103141409_ + _lp-tl141106141424_ + __tmp149799 + __tmp149798)) + (___kont147729147730_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274191274192_)) - (___kont274191274192_)))) - (___kont274191274192_)))) - (___kont274191274192_)))) - (let ((_id263004263347_ (reverse _id263002263310_)) - (_expr263003263345_ (reverse _expr263001263308_))) + (___kont147729147730_)) + (___kont147729147730_)))) + (___kont147729147730_)))) + (___kont147729147730_)))) + (let ((_id141110141453_ (reverse _id141108141416_)) + (_expr141109141451_ (reverse _expr141107141414_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl262991263295_)) - (let ((_e263016263350_ + (gx#stx-pair? _tl141097141401_)) + (let ((_e141122141456_ (let () (declare (not safe)) - (gx#stx-e _tl262991263295_)))) - (let ((_tl263014263355_ + (gx#stx-e _tl141097141401_)))) + (let ((_tl141120141461_ (let () (declare (not safe)) - (##cdr _e263016263350_))) - (_hd263015263353_ + (##cdr _e141122141456_))) + (_hd141121141459_ (let () (declare (not safe)) - (##car _e263016263350_)))) + (##car _e141122141456_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263014263355_)) - (___kont274181274182_ - _hd263015263353_ - _expr263003263345_ - _id263004263347_) - (___kont274191274192_)))) - (___kont274191274192_))))))) + (gx#stx-null? _tl141120141461_)) + (___kont147719147720_ + _hd141121141459_ + _expr141109141451_ + _id141110141453_) + (___kont147729147730_)))) + (___kont147729147730_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop262997263303_ - _target262994263298_ + (_loop141103141409_ + _target141100141404_ '() '()))))) - (___match274288274289_ - (lambda (_e262952263398_ - _hd262951263401_ - _tl262950263403_ - _e262955263406_ - _hd262954263409_ - _tl262953263411_ - ___splice274179274180_ - _target262956263414_ - _tl262958263416_) - (letrec ((_loop262959263419_ - (lambda (_hd262957263422_ - _xid262963263424_ - _id262964263426_) + (___match147826147827_ + (lambda (_e141058141504_ + _hd141057141507_ + _tl141056141509_ + _e141061141512_ + _hd141060141515_ + _tl141059141517_ + ___splice147717147718_ + _target141062141520_ + _tl141064141522_) + (letrec ((_loop141065141525_ + (lambda (_hd141063141528_ + _xid141069141530_ + _id141070141532_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd262957263422_)) - (let ((_e262960263429_ + _hd141063141528_)) + (let ((_e141066141535_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd262957263422_)))) - (let ((_lp-tl262962263434_ + (gx#stx-e _hd141063141528_)))) + (let ((_lp-tl141068141540_ (let () (declare (not safe)) - (##cdr _e262960263429_))) - (_lp-hd262961263432_ + (##cdr _e141066141535_))) + (_lp-hd141067141538_ (let () (declare (not safe)) - (##car _e262960263429_)))) + (##car _e141066141535_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd262961263432_)) - (let ((_e262969263437_ + (gx#stx-pair? _lp-hd141067141538_)) + (let ((_e141075141543_ (let () (declare (not safe)) - (gx#stx-e _lp-hd262961263432_)))) - (let ((_tl262967263442_ + (gx#stx-e _lp-hd141067141538_)))) + (let ((_tl141073141548_ (let () (declare (not safe)) - (##cdr _e262969263437_))) - (_hd262968263440_ + (##cdr _e141075141543_))) + (_hd141074141546_ (let () (declare (not safe)) - (##car _e262969263437_)))) + (##car _e141075141543_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd262968263440_)) - (let ((_e262972263445_ + (gx#stx-pair? _hd141074141546_)) + (let ((_e141078141551_ (let () (declare (not safe)) - (gx#stx-e _hd262968263440_)))) - (let ((_tl262970263450_ + (gx#stx-e _hd141074141546_)))) + (let ((_tl141076141556_ (let () (declare (not safe)) - (##cdr _e262972263445_))) - (_hd262971263448_ + (##cdr _e141078141551_))) + (_hd141077141554_ (let () (declare (not safe)) - (##car _e262972263445_)))) + (##car _e141078141551_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262970263450_)) + (gx#stx-null? _tl141076141556_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl262967263442_)) - (let ((_e262975263453_ + _tl141073141548_)) + (let ((_e141081141559_ (let () (declare (not safe)) (gx#stx-e - _tl262967263442_)))) - (let ((_tl262973263458_ + _tl141073141548_)))) + (let ((_tl141079141564_ (let () (declare (not safe)) - (##cdr _e262975263453_))) - (_hd262974263456_ + (##cdr _e141081141559_))) + (_hd141080141562_ (let () (declare (not safe)) - (##car _e262975263453_)))) + (##car _e141081141559_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd262974263456_)) - (let ((_e262978263461_ + _hd141080141562_)) + (let ((_e141084141567_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd262974263456_)))) - (let ((_tl262976263466_ - (let () (declare (not safe)) (##cdr _e262978263461_))) - (_hd262977263464_ + (gx#stx-e _hd141080141562_)))) + (let ((_tl141082141572_ + (let () (declare (not safe)) (##cdr _e141084141567_))) + (_hd141083141570_ (let () (declare (not safe)) - (##car _e262978263461_)))) + (##car _e141084141567_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd262977263464_)) + (gx#identifier? _hd141083141570_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd262977263464_)) + (gx#stx-eq? '%#ref _hd141083141570_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl262976263466_)) - (let ((_e262981263469_ + (gx#stx-pair? _tl141082141572_)) + (let ((_e141087141575_ (let () (declare (not safe)) - (gx#stx-e _tl262976263466_)))) - (let ((_tl262979263474_ + (gx#stx-e _tl141082141572_)))) + (let ((_tl141085141580_ (let () (declare (not safe)) - (##cdr _e262981263469_))) - (_hd262980263472_ + (##cdr _e141087141575_))) + (_hd141086141578_ (let () (declare (not safe)) - (##car _e262981263469_)))) + (##car _e141087141575_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262979263474_)) + (gx#stx-null? _tl141085141580_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl262973263458_)) - (let ((__tmp276263 + (gx#stx-null? _tl141079141564_)) + (let ((__tmp149801 (let () (declare (not safe)) - (cons _hd262980263472_ - _xid262963263424_))) - (__tmp276262 + (cons _hd141086141578_ + _xid141069141530_))) + (__tmp149800 (let () (declare (not safe)) - (cons _hd262971263448_ - _id262964263426_)))) + (cons _hd141077141554_ + _id141070141532_)))) (declare (not safe)) - (_loop262959263419_ - _lp-tl262962263434_ - __tmp276263 - __tmp276262)) - (___match274312274313_ - _e262952263398_ - _hd262951263401_ - _tl262950263403_ - _e262955263406_ - _hd262954263409_ - _tl262953263411_ - ___splice274179274180_ - _target262956263414_ - _tl262958263416_)) - (___match274312274313_ - _e262952263398_ - _hd262951263401_ - _tl262950263403_ - _e262955263406_ - _hd262954263409_ - _tl262953263411_ - ___splice274179274180_ - _target262956263414_ - _tl262958263416_)))) - (___match274312274313_ - _e262952263398_ - _hd262951263401_ - _tl262950263403_ - _e262955263406_ - _hd262954263409_ - _tl262953263411_ - ___splice274179274180_ - _target262956263414_ - _tl262958263416_)) - (___match274312274313_ - _e262952263398_ - _hd262951263401_ - _tl262950263403_ - _e262955263406_ - _hd262954263409_ - _tl262953263411_ - ___splice274179274180_ - _target262956263414_ - _tl262958263416_)) - (___match274312274313_ - _e262952263398_ - _hd262951263401_ - _tl262950263403_ - _e262955263406_ - _hd262954263409_ - _tl262953263411_ - ___splice274179274180_ - _target262956263414_ - _tl262958263416_)))) - (___match274312274313_ - _e262952263398_ - _hd262951263401_ - _tl262950263403_ - _e262955263406_ - _hd262954263409_ - _tl262953263411_ - ___splice274179274180_ - _target262956263414_ - _tl262958263416_)))) + (_loop141065141525_ + _lp-tl141068141540_ + __tmp149801 + __tmp149800)) + (___match147850147851_ + _e141058141504_ + _hd141057141507_ + _tl141056141509_ + _e141061141512_ + _hd141060141515_ + _tl141059141517_ + ___splice147717147718_ + _target141062141520_ + _tl141064141522_)) + (___match147850147851_ + _e141058141504_ + _hd141057141507_ + _tl141056141509_ + _e141061141512_ + _hd141060141515_ + _tl141059141517_ + ___splice147717147718_ + _target141062141520_ + _tl141064141522_)))) + (___match147850147851_ + _e141058141504_ + _hd141057141507_ + _tl141056141509_ + _e141061141512_ + _hd141060141515_ + _tl141059141517_ + ___splice147717147718_ + _target141062141520_ + _tl141064141522_)) + (___match147850147851_ + _e141058141504_ + _hd141057141507_ + _tl141056141509_ + _e141061141512_ + _hd141060141515_ + _tl141059141517_ + ___splice147717147718_ + _target141062141520_ + _tl141064141522_)) + (___match147850147851_ + _e141058141504_ + _hd141057141507_ + _tl141056141509_ + _e141061141512_ + _hd141060141515_ + _tl141059141517_ + ___splice147717147718_ + _target141062141520_ + _tl141064141522_)))) + (___match147850147851_ + _e141058141504_ + _hd141057141507_ + _tl141056141509_ + _e141061141512_ + _hd141060141515_ + _tl141059141517_ + ___splice147717147718_ + _target141062141520_ + _tl141064141522_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match274312274313_ - _e262952263398_ - _hd262951263401_ - _tl262950263403_ - _e262955263406_ - _hd262954263409_ - _tl262953263411_ - ___splice274179274180_ - _target262956263414_ - _tl262958263416_)) - (___match274312274313_ - _e262952263398_ - _hd262951263401_ - _tl262950263403_ - _e262955263406_ - _hd262954263409_ - _tl262953263411_ - ___splice274179274180_ - _target262956263414_ - _tl262958263416_)))) - (___match274312274313_ - _e262952263398_ - _hd262951263401_ - _tl262950263403_ - _e262955263406_ - _hd262954263409_ - _tl262953263411_ - ___splice274179274180_ - _target262956263414_ - _tl262958263416_)))) - (___match274312274313_ - _e262952263398_ - _hd262951263401_ - _tl262950263403_ - _e262955263406_ - _hd262954263409_ - _tl262953263411_ - ___splice274179274180_ - _target262956263414_ - _tl262958263416_)))) - (let ((_id262966263479_ (reverse _id262964263426_)) - (_xid262965263477_ (reverse _xid262963263424_))) + (___match147850147851_ + _e141058141504_ + _hd141057141507_ + _tl141056141509_ + _e141061141512_ + _hd141060141515_ + _tl141059141517_ + ___splice147717147718_ + _target141062141520_ + _tl141064141522_)) + (___match147850147851_ + _e141058141504_ + _hd141057141507_ + _tl141056141509_ + _e141061141512_ + _hd141060141515_ + _tl141059141517_ + ___splice147717147718_ + _target141062141520_ + _tl141064141522_)))) + (___match147850147851_ + _e141058141504_ + _hd141057141507_ + _tl141056141509_ + _e141061141512_ + _hd141060141515_ + _tl141059141517_ + ___splice147717147718_ + _target141062141520_ + _tl141064141522_)))) + (___match147850147851_ + _e141058141504_ + _hd141057141507_ + _tl141056141509_ + _e141061141512_ + _hd141060141515_ + _tl141059141517_ + ___splice147717147718_ + _target141062141520_ + _tl141064141522_)))) + (let ((_id141072141585_ (reverse _id141070141532_)) + (_xid141071141583_ (reverse _xid141069141530_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl262953263411_)) - (let ((_e262984263482_ + (gx#stx-pair? _tl141059141517_)) + (let ((_e141090141588_ (let () (declare (not safe)) - (gx#stx-e _tl262953263411_)))) - (let ((_tl262982263487_ + (gx#stx-e _tl141059141517_)))) + (let ((_tl141088141593_ (let () (declare (not safe)) - (##cdr _e262984263482_))) - (_hd262983263485_ + (##cdr _e141090141588_))) + (_hd141089141591_ (let () (declare (not safe)) - (##car _e262984263482_)))) + (##car _e141090141588_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262982263487_)) - (___kont274177274178_ - _hd262983263485_ - _xid262965263477_ - _id262966263479_) - (___match274312274313_ - _e262952263398_ - _hd262951263401_ - _tl262950263403_ - _e262955263406_ - _hd262954263409_ - _tl262953263411_ - ___splice274179274180_ - _target262956263414_ - _tl262958263416_)))) - (___match274312274313_ - _e262952263398_ - _hd262951263401_ - _tl262950263403_ - _e262955263406_ - _hd262954263409_ - _tl262953263411_ - ___splice274179274180_ - _target262956263414_ - _tl262958263416_))))))) + (gx#stx-null? _tl141088141593_)) + (___kont147715147716_ + _hd141089141591_ + _xid141071141583_ + _id141072141585_) + (___match147850147851_ + _e141058141504_ + _hd141057141507_ + _tl141056141509_ + _e141061141512_ + _hd141060141515_ + _tl141059141517_ + ___splice147717147718_ + _target141062141520_ + _tl141064141522_)))) + (___match147850147851_ + _e141058141504_ + _hd141057141507_ + _tl141056141509_ + _e141061141512_ + _hd141060141515_ + _tl141059141517_ + ___splice147717147718_ + _target141062141520_ + _tl141064141522_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop262959263419_ - _target262956263414_ + (_loop141065141525_ + _target141062141520_ '() '()))))) - (___match274234274235_ - (lambda (_e262907263590_ - _hd262906263593_ - _tl262905263595_ - _e262910263598_ - _hd262909263601_ - _tl262908263603_ - _e262913263606_ - _hd262912263609_ - _tl262911263611_ - _e262916263614_ - _hd262915263617_ - _tl262914263619_ - ___splice274173274174_ - _target262917263622_ - _tl262919263624_) - (letrec ((_loop262920263627_ - (lambda (_hd262918263630_ - _id262924263632_) + (___match147772147773_ + (lambda (_e141013141696_ + _hd141012141699_ + _tl141011141701_ + _e141016141704_ + _hd141015141707_ + _tl141014141709_ + _e141019141712_ + _hd141018141715_ + _tl141017141717_ + _e141022141720_ + _hd141021141723_ + _tl141020141725_ + ___splice147711147712_ + _target141023141728_ + _tl141025141730_) + (letrec ((_loop141026141733_ + (lambda (_hd141024141736_ + _id141030141738_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd262918263630_)) - (let ((_e262921263635_ + _hd141024141736_)) + (let ((_e141027141741_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd262918263630_)))) - (let ((_lp-tl262923263640_ + (gx#stx-e _hd141024141736_)))) + (let ((_lp-tl141029141746_ (let () (declare (not safe)) - (##cdr _e262921263635_))) - (_lp-hd262922263638_ + (##cdr _e141027141741_))) + (_lp-hd141028141744_ (let () (declare (not safe)) - (##car _e262921263635_)))) + (##car _e141027141741_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd262922263638_)) - (let ((_e262928263643_ + (gx#stx-pair? _lp-hd141028141744_)) + (let ((_e141034141749_ (let () (declare (not safe)) - (gx#stx-e _lp-hd262922263638_)))) - (let ((_tl262926263648_ + (gx#stx-e _lp-hd141028141744_)))) + (let ((_tl141032141754_ (let () (declare (not safe)) - (##cdr _e262928263643_))) - (_hd262927263646_ + (##cdr _e141034141749_))) + (_hd141033141752_ (let () (declare (not safe)) - (##car _e262928263643_)))) + (##car _e141034141749_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd262927263646_)) + (gx#identifier? _hd141033141752_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd262927263646_)) + (gx#stx-eq? '%#ref _hd141033141752_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl262926263648_)) - (let ((_e262931263651_ + (gx#stx-pair? _tl141032141754_)) + (let ((_e141037141757_ (let () (declare (not safe)) (gx#stx-e - _tl262926263648_)))) - (let ((_tl262929263656_ + _tl141032141754_)))) + (let ((_tl141035141762_ (let () (declare (not safe)) - (##cdr _e262931263651_))) - (_hd262930263654_ + (##cdr _e141037141757_))) + (_hd141036141760_ (let () (declare (not safe)) - (##car _e262931263651_)))) + (##car _e141037141757_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl262929263656_)) - (let ((__tmp276264 + _tl141035141762_)) + (let ((__tmp149802 (let () (declare (not safe)) - (cons _hd262930263654_ + (cons _hd141036141760_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id262924263632_)))) + _id141030141738_)))) (declare (not safe)) - (_loop262920263627_ _lp-tl262923263640_ __tmp276264)) + (_loop141026141733_ _lp-tl141029141746_ __tmp149802)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274191274192_)))) - (___kont274191274192_)) - (___kont274191274192_)) - (___kont274191274192_)))) - (___kont274191274192_)))) - (let ((_id262925263659_ (reverse _id262924263632_))) - (___kont274171274172_ - _id262925263659_ - _hd262915263617_)))))) + (___kont147729147730_)))) + (___kont147729147730_)) + (___kont147729147730_)) + (___kont147729147730_)))) + (___kont147729147730_)))) + (let ((_id141031141765_ (reverse _id141030141738_))) + (___kont147709147710_ + _id141031141765_ + _hd141021141723_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop262920263627_ - _target262917263622_ + (_loop141026141733_ + _target141023141728_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx274169274170_)) - (let ((_e262907263590_ + (gx#stx-pair? ___stx147707147708_)) + (let ((_e141013141696_ (let () (declare (not safe)) (gx#stx-e - ___stx274169274170_)))) - (let ((_tl262905263595_ + ___stx147707147708_)))) + (let ((_tl141011141701_ (let () (declare (not safe)) - (##cdr _e262907263590_))) - (_hd262906263593_ + (##cdr _e141013141696_))) + (_hd141012141699_ (let () (declare (not safe)) - (##car _e262907263590_)))) + (##car _e141013141696_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd262906263593_)) + _hd141012141699_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd262906263593_)) + _hd141012141699_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl262905263595_)) - (let ((_e262910263598_ + _tl141011141701_)) + (let ((_e141016141704_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl262905263595_)))) - (let ((_tl262908263603_ - (let () (declare (not safe)) (##cdr _e262910263598_))) - (_hd262909263601_ + (gx#stx-e _tl141011141701_)))) + (let ((_tl141014141709_ + (let () (declare (not safe)) (##cdr _e141016141704_))) + (_hd141015141707_ (let () (declare (not safe)) - (##car _e262910263598_)))) + (##car _e141016141704_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd262909263601_)) - (let ((_e262913263606_ + (gx#stx-pair? _hd141015141707_)) + (let ((_e141019141712_ (let () (declare (not safe)) - (gx#stx-e _hd262909263601_)))) - (let ((_tl262911263611_ + (gx#stx-e _hd141015141707_)))) + (let ((_tl141017141717_ (let () (declare (not safe)) - (##cdr _e262913263606_))) - (_hd262912263609_ + (##cdr _e141019141712_))) + (_hd141018141715_ (let () (declare (not safe)) - (##car _e262913263606_)))) + (##car _e141019141712_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd262912263609_)) + (gx#identifier? _hd141018141715_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd262912263609_)) + (gx#stx-eq? '%#ref _hd141018141715_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl262911263611_)) - (let ((_e262916263614_ + (gx#stx-pair? _tl141017141717_)) + (let ((_e141022141720_ (let () (declare (not safe)) - (gx#stx-e _tl262911263611_)))) - (let ((_tl262914263619_ + (gx#stx-e _tl141017141717_)))) + (let ((_tl141020141725_ (let () (declare (not safe)) - (##cdr _e262916263614_))) - (_hd262915263617_ + (##cdr _e141022141720_))) + (_hd141021141723_ (let () (declare (not safe)) - (##car _e262916263614_)))) + (##car _e141022141720_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl262914263619_)) + _tl141020141725_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl262908263603_)) - (let ((___splice274173274174_ + _tl141014141709_)) + (let ((___splice147711147712_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl262908263603_ + _tl141014141709_ '0)))) - (let ((_tl262919263624_ + (let ((_tl141025141730_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice274173274174_ '1))) - (_target262917263622_ + (##vector-ref ___splice147711147712_ '1))) + (_target141023141728_ (let () (declare (not safe)) - (##vector-ref ___splice274173274174_ '0)))) + (##vector-ref ___splice147711147712_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262919263624_)) - (___match274234274235_ - _e262907263590_ - _hd262906263593_ - _tl262905263595_ - _e262910263598_ - _hd262909263601_ - _tl262908263603_ - _e262913263606_ - _hd262912263609_ - _tl262911263611_ - _e262916263614_ - _hd262915263617_ - _tl262914263619_ - ___splice274173274174_ - _target262917263622_ - _tl262919263624_) - (___kont274191274192_)))) + (gx#stx-null? _tl141025141730_)) + (___match147772147773_ + _e141013141696_ + _hd141012141699_ + _tl141011141701_ + _e141016141704_ + _hd141015141707_ + _tl141014141709_ + _e141019141712_ + _hd141018141715_ + _tl141017141717_ + _e141022141720_ + _hd141021141723_ + _tl141020141725_ + ___splice147711147712_ + _target141023141728_ + _tl141025141730_) + (___kont147729147730_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274191274192_)) - (___kont274191274192_)))) - (___kont274191274192_)) - (___kont274191274192_)) - (___kont274191274192_)))) - (___kont274191274192_)))) - (___kont274191274192_)) + (___kont147729147730_)) + (___kont147729147730_)))) + (___kont147729147730_)) + (___kont147729147730_)) + (___kont147729147730_)))) + (___kont147729147730_)))) + (___kont147729147730_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd262906263593_)) + _hd141012141699_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl262905263595_)) - (let ((_e262940263536_ + _tl141011141701_)) + (let ((_e141046141642_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl262905263595_)))) - (let ((_tl262938263541_ + (gx#stx-e _tl141011141701_)))) + (let ((_tl141044141647_ (let () (declare (not safe)) - (##cdr _e262940263536_))) - (_hd262939263539_ + (##cdr _e141046141642_))) + (_hd141045141645_ (let () (declare (not safe)) - (##car _e262940263536_)))) + (##car _e141046141642_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl262938263541_)) - (let ((_e262943263544_ + (gx#stx-pair? _tl141044141647_)) + (let ((_e141049141650_ (let () (declare (not safe)) - (gx#stx-e _tl262938263541_)))) - (let ((_tl262941263549_ + (gx#stx-e _tl141044141647_)))) + (let ((_tl141047141655_ (let () (declare (not safe)) - (##cdr _e262943263544_))) - (_hd262942263547_ + (##cdr _e141049141650_))) + (_hd141048141653_ (let () (declare (not safe)) - (##car _e262943263544_)))) + (##car _e141049141650_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl262941263549_)) - (let ((_e262946263552_ + (gx#stx-pair? _tl141047141655_)) + (let ((_e141052141658_ (let () (declare (not safe)) - (gx#stx-e _tl262941263549_)))) - (let ((_tl262944263557_ + (gx#stx-e _tl141047141655_)))) + (let ((_tl141050141663_ (let () (declare (not safe)) - (##cdr _e262946263552_))) - (_hd262945263555_ + (##cdr _e141052141658_))) + (_hd141051141661_ (let () (declare (not safe)) - (##car _e262946263552_)))) + (##car _e141052141658_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262944263557_)) - (___kont274175274176_ - _hd262945263555_ - _hd262942263547_ - _hd262939263539_) - (___kont274191274192_)))) - (___kont274191274192_)))) - (___kont274191274192_)))) - (___kont274191274192_)) + (gx#stx-null? _tl141050141663_)) + (___kont147713147714_ + _hd141051141661_ + _hd141048141653_ + _hd141045141645_) + (___kont147729147730_)))) + (___kont147729147730_)))) + (___kont147729147730_)))) + (___kont147729147730_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd262906263593_)) + (gx#stx-eq? '%#let-values _hd141012141699_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl262905263595_)) - (let ((_e262955263406_ + (gx#stx-pair? _tl141011141701_)) + (let ((_e141061141512_ (let () (declare (not safe)) - (gx#stx-e _tl262905263595_)))) - (let ((_tl262953263411_ + (gx#stx-e _tl141011141701_)))) + (let ((_tl141059141517_ (let () (declare (not safe)) - (##cdr _e262955263406_))) - (_hd262954263409_ + (##cdr _e141061141512_))) + (_hd141060141515_ (let () (declare (not safe)) - (##car _e262955263406_)))) + (##car _e141061141512_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd262954263409_)) - (let ((___splice274179274180_ + (gx#stx-pair/null? _hd141060141515_)) + (let ((___splice147717147718_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd262954263409_ + _hd141060141515_ '0)))) - (let ((_tl262958263416_ + (let ((_tl141064141522_ (let () (declare (not safe)) (##vector-ref - ___splice274179274180_ + ___splice147717147718_ '1))) - (_target262956263414_ + (_target141062141520_ (let () (declare (not safe)) (##vector-ref - ___splice274179274180_ + ___splice147717147718_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262958263416_)) - (___match274288274289_ - _e262907263590_ - _hd262906263593_ - _tl262905263595_ - _e262955263406_ - _hd262954263409_ - _tl262953263411_ - ___splice274179274180_ - _target262956263414_ - _tl262958263416_) - (___kont274191274192_)))) - (___kont274191274192_)))) - (___kont274191274192_)) + (gx#stx-null? _tl141064141522_)) + (___match147826147827_ + _e141013141696_ + _hd141012141699_ + _tl141011141701_ + _e141061141512_ + _hd141060141515_ + _tl141059141517_ + ___splice147717147718_ + _target141062141520_ + _tl141064141522_) + (___kont147729147730_)))) + (___kont147729147730_)))) + (___kont147729147730_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#letrec-values _hd262906263593_)) + (gx#stx-eq? '%#letrec-values _hd141012141699_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl262905263595_)) - (let ((_e263027263094_ + (gx#stx-pair? _tl141011141701_)) + (let ((_e141133141200_ (let () (declare (not safe)) - (gx#stx-e _tl262905263595_)))) - (let ((_tl263025263099_ + (gx#stx-e _tl141011141701_)))) + (let ((_tl141131141205_ (let () (declare (not safe)) - (##cdr _e263027263094_))) - (_hd263026263097_ + (##cdr _e141133141200_))) + (_hd141132141203_ (let () (declare (not safe)) - (##car _e263027263094_)))) + (##car _e141133141200_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263026263097_)) - (let ((_e263030263102_ + (gx#stx-pair? _hd141132141203_)) + (let ((_e141136141208_ (let () (declare (not safe)) - (gx#stx-e _hd263026263097_)))) - (let ((_tl263028263107_ + (gx#stx-e _hd141132141203_)))) + (let ((_tl141134141213_ (let () (declare (not safe)) - (##cdr _e263030263102_))) - (_hd263029263105_ + (##cdr _e141136141208_))) + (_hd141135141211_ (let () (declare (not safe)) - (##car _e263030263102_)))) + (##car _e141136141208_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263029263105_)) - (let ((_e263033263110_ + (gx#stx-pair? _hd141135141211_)) + (let ((_e141139141216_ (let () (declare (not safe)) (gx#stx-e - _hd263029263105_)))) - (let ((_tl263031263115_ + _hd141135141211_)))) + (let ((_tl141137141221_ (let () (declare (not safe)) - (##cdr _e263033263110_))) - (_hd263032263113_ + (##cdr _e141139141216_))) + (_hd141138141219_ (let () (declare (not safe)) - (##car _e263033263110_)))) + (##car _e141139141216_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd263032263113_)) - (let ((_e263036263118_ + _hd141138141219_)) + (let ((_e141142141224_ (let () (declare (not safe)) (gx#stx-e - _hd263032263113_)))) - (let ((_tl263034263123_ + _hd141138141219_)))) + (let ((_tl141140141229_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e263036263118_))) - (_hd263035263121_ - (let () (declare (not safe)) (##car _e263036263118_)))) + (##cdr _e141142141224_))) + (_hd141141141227_ + (let () (declare (not safe)) (##car _e141142141224_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263034263123_)) + (gx#stx-null? _tl141140141229_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263031263115_)) - (let ((_e263039263126_ + (gx#stx-pair? _tl141137141221_)) + (let ((_e141145141232_ (let () (declare (not safe)) - (gx#stx-e _tl263031263115_)))) - (let ((_tl263037263131_ + (gx#stx-e _tl141137141221_)))) + (let ((_tl141143141237_ (let () (declare (not safe)) - (##cdr _e263039263126_))) - (_hd263038263129_ + (##cdr _e141145141232_))) + (_hd141144141235_ (let () (declare (not safe)) - (##car _e263039263126_)))) + (##car _e141145141232_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263038263129_)) - (let ((_e263042263134_ + (gx#stx-pair? _hd141144141235_)) + (let ((_e141148141240_ (let () (declare (not safe)) - (gx#stx-e _hd263038263129_)))) - (let ((_tl263040263139_ + (gx#stx-e _hd141144141235_)))) + (let ((_tl141146141245_ (let () (declare (not safe)) - (##cdr _e263042263134_))) - (_hd263041263137_ + (##cdr _e141148141240_))) + (_hd141147141243_ (let () (declare (not safe)) - (##car _e263042263134_)))) + (##car _e141148141240_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd263041263137_)) + (gx#identifier? _hd141147141243_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd263041263137_)) + _hd141147141243_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263040263139_)) - (let ((_e263045263142_ + _tl141146141245_)) + (let ((_e141151141248_ (let () (declare (not safe)) (gx#stx-e - _tl263040263139_)))) - (let ((_tl263043263147_ + _tl141146141245_)))) + (let ((_tl141149141253_ (let () (declare (not safe)) - (##cdr _e263045263142_))) - (_hd263044263145_ + (##cdr _e141151141248_))) + (_hd141150141251_ (let () (declare (not safe)) - (##car _e263045263142_)))) + (##car _e141151141248_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd263044263145_)) - (let ((___splice274187274188_ + _hd141150141251_)) + (let ((___splice147725147726_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _hd263044263145_ '0)))) - (let ((_tl263048263152_ + (gx#syntax-split-splice _hd141150141251_ '0)))) + (let ((_tl141154141258_ (let () (declare (not safe)) - (##vector-ref ___splice274187274188_ '1))) - (_target263046263150_ + (##vector-ref ___splice147725147726_ '1))) + (_target141152141256_ (let () (declare (not safe)) - (##vector-ref ___splice274187274188_ '0)))) + (##vector-ref ___splice147725147726_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263048263152_)) - (___match274378274379_ - _e262907263590_ - _hd262906263593_ - _tl262905263595_ - _e263027263094_ - _hd263026263097_ - _tl263025263099_ - _e263030263102_ - _hd263029263105_ - _tl263028263107_ - _e263033263110_ - _hd263032263113_ - _tl263031263115_ - _e263036263118_ - _hd263035263121_ - _tl263034263123_ - _e263039263126_ - _hd263038263129_ - _tl263037263131_ - _e263042263134_ - _hd263041263137_ - _tl263040263139_ - _e263045263142_ - _hd263044263145_ - _tl263043263147_ - ___splice274187274188_ - _target263046263150_ - _tl263048263152_) - (___kont274191274192_)))) - (___kont274191274192_)))) + (gx#stx-null? _tl141154141258_)) + (___match147916147917_ + _e141013141696_ + _hd141012141699_ + _tl141011141701_ + _e141133141200_ + _hd141132141203_ + _tl141131141205_ + _e141136141208_ + _hd141135141211_ + _tl141134141213_ + _e141139141216_ + _hd141138141219_ + _tl141137141221_ + _e141142141224_ + _hd141141141227_ + _tl141140141229_ + _e141145141232_ + _hd141144141235_ + _tl141143141237_ + _e141148141240_ + _hd141147141243_ + _tl141146141245_ + _e141151141248_ + _hd141150141251_ + _tl141149141253_ + ___splice147725147726_ + _target141152141256_ + _tl141154141258_) + (___kont147729147730_)))) + (___kont147729147730_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274191274192_)) - (___kont274191274192_)) - (___kont274191274192_)))) - (___kont274191274192_)))) - (___kont274191274192_)) - (___kont274191274192_)))) + (___kont147729147730_)) + (___kont147729147730_)) + (___kont147729147730_)))) + (___kont147729147730_)))) + (___kont147729147730_)) + (___kont147729147730_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274191274192_)))) - (___kont274191274192_)))) - (___kont274191274192_)))) - (___kont274191274192_)) - (___kont274191274192_))))) + (___kont147729147730_)))) + (___kont147729147730_)))) + (___kont147729147730_)))) + (___kont147729147730_)) + (___kont147729147730_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274191274192_)))) - (___kont274191274192_)))))))) + (___kont147729147730_)))) + (___kont147729147730_)))))))) (declare (not safe)) - (_do-assert260821_ __tmp276265 __tmp276223)))) - (_optimize-f__0__272856272857_ - (lambda (_expr263799_) - (let ((_test263801_ '#f)) + (_do-assert138927_ __tmp149803 __tmp149761)))) + (_optimize-f__0__146394146395_ + (lambda (_expr141905_) + (let ((_test141907_ '#f)) (declare (not safe)) - (_optimize-f__272854272855_ - _expr263799_ - _test263801_)))) - (_optimize-f260834_ - (lambda _g276268_ - (let ((_g276267_ + (_optimize-f__146392146393_ + _expr141905_ + _test141907_)))) + (_optimize-f138940_ + (lambda _g149806_ + (let ((_g149805_ (let () (declare (not safe)) - (##length _g276268_)))) - (cond ((let () (declare (not safe)) (##fx= _g276267_ 1)) - (apply (lambda (_expr263799_) + (##length _g149806_)))) + (cond ((let () (declare (not safe)) (##fx= _g149805_ 1)) + (apply (lambda (_expr141905_) (let () (declare (not safe)) - (_optimize-f__0__272856272857_ - _expr263799_))) - _g276268_)) - ((let () (declare (not safe)) (##fx= _g276267_ 2)) - (apply (lambda (_expr263803_ _test263804_) + (_optimize-f__0__146394146395_ + _expr141905_))) + _g149806_)) + ((let () (declare (not safe)) (##fx= _g149805_ 2)) + (apply (lambda (_expr141909_ _test141910_) (let () (declare (not safe)) - (_optimize-f__272854272855_ - _expr263803_ - _test263804_))) - _g276268_)) + (_optimize-f__146392146393_ + _expr141909_ + _test141910_))) + _g149806_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g276268_)))))) - (_assert-e260835_ - (lambda (_expr261833_) - (let* ((_sexpr261835_ + _g149806_)))))) + (_assert-e138941_ + (lambda (_expr139939_) + (let* ((_sexpr139941_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-repr _expr261833_))) - (_$e261837_ - (assoc _sexpr261835_ _env-assert260817_))) - (if _$e261837_ - (cdr _$e261837_) - (let _assert261840_ ((_expr261842_ _expr261833_)) - (let* ((___stx274475274476_ _expr261842_) - (_g261850262029_ + (gxc#apply-generate-runtime-repr _expr139939_))) + (_$e139943_ + (assoc _sexpr139941_ _env-assert138923_))) + (if _$e139943_ + (cdr _$e139943_) + (let _assert139946_ ((_expr139948_ _expr139939_)) + (let* ((___stx148013148014_ _expr139948_) + (_g139956140135_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx274475274476_))))) - (let ((___kont274477274478_ - (lambda (_L262860_ _L262861_) - (let ((_$e262883_ + ___stx148013148014_))))) + (let ((___kont148015148016_ + (lambda (_L140966_ _L140967_) + (let ((_$e140989_ (let () (declare (not safe)) - (_predicate-type260822_ - _L262861_)))) - (if _$e262883_ - ((lambda (_t262886_) + (_predicate-type138928_ + _L140967_)))) + (if _$e140989_ + ((lambda (_t140992_) (let () (declare (not safe)) - (_assert-type260836_ - _L262860_ - _t262886_))) - _$e262883_) + (_assert-type138942_ + _L140966_ + _t140992_))) + _$e140989_) '#!void)))) - (___kont274479274480_ - (lambda (_L262553_ _L262554_ _L262555_) - (let ((_$e262580_ + (___kont148017148018_ + (lambda (_L140659_ _L140660_ _L140661_) + (let ((_$e140686_ (let () (declare (not safe)) (gxc#identifier-symbol - _L262555_)))) + _L140661_)))) (if (or (let () (declare (not safe)) - (eq? '##fx= _$e262580_)) + (eq? '##fx= _$e140686_)) (let () (declare (not safe)) - (eq? 'fx= _$e262580_))) - (let* ((___stx274381274382_ - _L262554_) - (_g262587262616_ + (eq? 'fx= _$e140686_))) + (let* ((___stx147919147920_ + _L140660_) + (_g140693140722_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx274381274382_))))) - (let ((___kont274383274384_ - (lambda (_L262684_ - _L262685_) - (let ((_$e262710_ + ___stx147919147920_))))) + (let ((___kont147921147922_ + (lambda (_L140790_ + _L140791_) + (let ((_$e140816_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_countf-symbol260824_ _L262685_)))) - (if _$e262710_ - ((lambda (_sym262713_) - (let ((__tmp276271 + (_countf-symbol138930_ _L140791_)))) + (if _$e140816_ + ((lambda (_sym140819_) + (let ((__tmp149809 (let () (declare (not safe)) - (gx#stx-e _L262553_)))) + (gx#stx-e _L140659_)))) (declare (not safe)) - (_assert-count260837_ - _L262684_ - _sym262713_ - __tmp276271))) - _$e262710_) + (_assert-count138943_ + _L140790_ + _sym140819_ + __tmp149809))) + _$e140816_) '#!void)))) - (___kont274385274386_ (lambda () '#!void))) + (___kont147923147924_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx274381274382_)) - (let ((_e262593262628_ + ___stx147919147920_)) + (let ((_e140699140734_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx274381274382_)))) - (let ((_tl262591262633_ - (let () (declare (not safe)) (##cdr _e262593262628_))) - (_hd262592262631_ - (let () (declare (not safe)) (##car _e262593262628_)))) + (gx#stx-e ___stx147919147920_)))) + (let ((_tl140697140739_ + (let () (declare (not safe)) (##cdr _e140699140734_))) + (_hd140698140737_ + (let () (declare (not safe)) (##car _e140699140734_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd262592262631_)) + (gx#identifier? _hd140698140737_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd262592262631_)) + (gx#stx-eq? '%#call _hd140698140737_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl262591262633_)) - (let ((_e262596262636_ + (gx#stx-pair? _tl140697140739_)) + (let ((_e140702140742_ (let () (declare (not safe)) - (gx#stx-e _tl262591262633_)))) - (let ((_tl262594262641_ + (gx#stx-e _tl140697140739_)))) + (let ((_tl140700140747_ (let () (declare (not safe)) - (##cdr _e262596262636_))) - (_hd262595262639_ + (##cdr _e140702140742_))) + (_hd140701140745_ (let () (declare (not safe)) - (##car _e262596262636_)))) + (##car _e140702140742_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd262595262639_)) - (let ((_e262599262644_ + (gx#stx-pair? _hd140701140745_)) + (let ((_e140705140750_ (let () (declare (not safe)) - (gx#stx-e _hd262595262639_)))) - (let ((_tl262597262649_ + (gx#stx-e _hd140701140745_)))) + (let ((_tl140703140755_ (let () (declare (not safe)) - (##cdr _e262599262644_))) - (_hd262598262647_ + (##cdr _e140705140750_))) + (_hd140704140753_ (let () (declare (not safe)) - (##car _e262599262644_)))) + (##car _e140705140750_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd262598262647_)) + _hd140704140753_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd262598262647_)) + _hd140704140753_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl262597262649_)) - (let ((_e262602262652_ + _tl140703140755_)) + (let ((_e140708140758_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl262597262649_)))) - (let ((_tl262600262657_ - (let () (declare (not safe)) (##cdr _e262602262652_))) - (_hd262601262655_ - (let () (declare (not safe)) (##car _e262602262652_)))) + (gx#stx-e _tl140703140755_)))) + (let ((_tl140706140763_ + (let () (declare (not safe)) (##cdr _e140708140758_))) + (_hd140707140761_ + (let () (declare (not safe)) (##car _e140708140758_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262600262657_)) + (gx#stx-null? _tl140706140763_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl262594262641_)) - (let ((_e262605262660_ + (gx#stx-pair? _tl140700140747_)) + (let ((_e140711140766_ (let () (declare (not safe)) - (gx#stx-e _tl262594262641_)))) - (let ((_tl262603262665_ + (gx#stx-e _tl140700140747_)))) + (let ((_tl140709140771_ (let () (declare (not safe)) - (##cdr _e262605262660_))) - (_hd262604262663_ + (##cdr _e140711140766_))) + (_hd140710140769_ (let () (declare (not safe)) - (##car _e262605262660_)))) + (##car _e140711140766_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd262604262663_)) - (let ((_e262608262668_ + (gx#stx-pair? _hd140710140769_)) + (let ((_e140714140774_ (let () (declare (not safe)) - (gx#stx-e _hd262604262663_)))) - (let ((_tl262606262673_ + (gx#stx-e _hd140710140769_)))) + (let ((_tl140712140779_ (let () (declare (not safe)) - (##cdr _e262608262668_))) - (_hd262607262671_ + (##cdr _e140714140774_))) + (_hd140713140777_ (let () (declare (not safe)) - (##car _e262608262668_)))) + (##car _e140714140774_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd262607262671_)) + (gx#identifier? _hd140713140777_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd262607262671_)) + _hd140713140777_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl262606262673_)) - (let ((_e262611262676_ + _tl140712140779_)) + (let ((_e140717140782_ (let () (declare (not safe)) (gx#stx-e - _tl262606262673_)))) - (let ((_tl262609262681_ + _tl140712140779_)))) + (let ((_tl140715140787_ (let () (declare (not safe)) - (##cdr _e262611262676_))) - (_hd262610262679_ + (##cdr _e140717140782_))) + (_hd140716140785_ (let () (declare (not safe)) - (##car _e262611262676_)))) + (##car _e140717140782_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl262609262681_)) + _tl140715140787_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl262603262665_)) - (___kont274383274384_ _hd262610262679_ _hd262601262655_) - (___kont274385274386_)) - (___kont274385274386_)))) + (gx#stx-null? _tl140709140771_)) + (___kont147921147922_ _hd140716140785_ _hd140707140761_) + (___kont147923147924_)) + (___kont147923147924_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274385274386_)) - (___kont274385274386_)) - (___kont274385274386_)))) - (___kont274385274386_)))) - (___kont274385274386_)) - (___kont274385274386_)))) - (___kont274385274386_)) + (___kont147923147924_)) + (___kont147923147924_)) + (___kont147923147924_)))) + (___kont147923147924_)))) + (___kont147923147924_)) + (___kont147923147924_)))) + (___kont147923147924_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274385274386_)) - (___kont274385274386_)))) - (___kont274385274386_)))) - (___kont274385274386_)) - (___kont274385274386_)) - (___kont274385274386_)))) - (___kont274385274386_)))) + (___kont147923147924_)) + (___kont147923147924_)))) + (___kont147923147924_)))) + (___kont147923147924_)) + (___kont147923147924_)) + (___kont147923147924_)))) + (___kont147923147924_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (or (let () (declare (not safe)) (eq? '##eq? - _$e262580_)) + _$e140686_)) (let () (declare (not safe)) - (eq? 'eq? _$e262580_)) + (eq? 'eq? _$e140686_)) (let () (declare (not safe)) (eq? '##eqv? - _$e262580_)) + _$e140686_)) (let () (declare (not safe)) - (eq? 'eqv? _$e262580_)) + (eq? 'eqv? _$e140686_)) (let () (declare (not safe)) (eq? '##equal? - _$e262580_)) + _$e140686_)) (let () (declare (not safe)) (eq? 'equal? - _$e262580_)) + _$e140686_)) (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e262580_)) + _$e140686_)) (let () (declare (not safe)) (eq? 'gx#stx-eq? - _$e262580_))) - ((lambda (_sym262739_) - (let* ((___stx274449274450_ - _L262554_) - (_g262742262755_ + _$e140686_))) + ((lambda (_sym140845_) + (let* ((___stx147987147988_ + _L140660_) + (_g140848140861_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -9718,1465 +9741,1465 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx274449274450_))))) - (let ((___kont274451274452_ - (lambda (_L262783_) - (let ((__tmp276270 + ___stx147987147988_))))) + (let ((___kont147989147990_ + (lambda (_L140889_) + (let ((__tmp149808 (let () (declare (not safe)) - (_eqf-symbol260825_ _sym262739_))) - (__tmp276269 + (_eqf-symbol138931_ _sym140845_))) + (__tmp149807 (let () (declare (not safe)) - (gx#stx-e _L262553_)))) + (gx#stx-e _L140659_)))) (declare (not safe)) - (_assert-eqf260838_ - _L262783_ - __tmp276270 - __tmp276269)))) - (___kont274453274454_ (lambda () '#!void))) + (_assert-eqf138944_ + _L140889_ + __tmp149808 + __tmp149807)))) + (___kont147991147992_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx274449274450_)) - (let ((_e262747262767_ + (gx#stx-pair? ___stx147987147988_)) + (let ((_e140853140873_ (let () (declare (not safe)) - (gx#stx-e ___stx274449274450_)))) - (let ((_tl262745262772_ + (gx#stx-e ___stx147987147988_)))) + (let ((_tl140851140878_ (let () (declare (not safe)) - (##cdr _e262747262767_))) - (_hd262746262770_ + (##cdr _e140853140873_))) + (_hd140852140876_ (let () (declare (not safe)) - (##car _e262747262767_)))) + (##car _e140853140873_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd262746262770_)) + (gx#identifier? _hd140852140876_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd262746262770_)) + (gx#stx-eq? '%#ref _hd140852140876_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl262745262772_)) - (let ((_e262750262775_ + (gx#stx-pair? _tl140851140878_)) + (let ((_e140856140881_ (let () (declare (not safe)) - (gx#stx-e _tl262745262772_)))) - (let ((_tl262748262780_ + (gx#stx-e _tl140851140878_)))) + (let ((_tl140854140886_ (let () (declare (not safe)) - (##cdr _e262750262775_))) - (_hd262749262778_ + (##cdr _e140856140881_))) + (_hd140855140884_ (let () (declare (not safe)) - (##car _e262750262775_)))) + (##car _e140856140881_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262748262780_)) - (___kont274451274452_ - _hd262749262778_) - (___kont274453274454_)))) - (___kont274453274454_)) - (___kont274453274454_)) - (___kont274453274454_)))) - (___kont274453274454_))))) + (gx#stx-null? _tl140854140886_)) + (___kont147989147990_ + _hd140855140884_) + (___kont147991147992_)))) + (___kont147991147992_)) + (___kont147991147992_)) + (___kont147991147992_)))) + (___kont147991147992_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e262580_) + _$e140686_) '#!void))))) - (___kont274481274482_ - (lambda (_L262457_ _L262458_ _L262459_) - (let ((__tmp276272 - (let ((__tmp276282 + (___kont148019148020_ + (lambda (_L140563_ _L140564_ _L140565_) + (let ((__tmp149810 + (let ((__tmp149820 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp276273 - (let ((__tmp276279 - (let ((__tmp276281 + (__tmp149811 + (let ((__tmp149817 + (let ((__tmp149819 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp276280 + (__tmp149818 (let () (declare (not safe)) - (cons _L262459_ '())))) + (cons _L140565_ '())))) (declare (not safe)) - (cons __tmp276281 __tmp276280))) - (__tmp276274 - (let ((__tmp276275 - (let ((__tmp276276 - (let ((__tmp276278 + (cons __tmp149819 __tmp149818))) + (__tmp149812 + (let ((__tmp149813 + (let ((__tmp149814 + (let ((__tmp149816 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp276277 + (__tmp149815 (let () (declare (not safe)) - (cons _L262458_ '())))) + (cons _L140564_ '())))) (declare (not safe)) - (cons __tmp276278 __tmp276277)))) + (cons __tmp149816 __tmp149815)))) (declare (not safe)) - (cons __tmp276276 '())))) + (cons __tmp149814 '())))) (declare (not safe)) - (cons _L262457_ __tmp276275)))) + (cons _L140563_ __tmp149813)))) (declare (not safe)) - (cons __tmp276279 __tmp276274)))) + (cons __tmp149817 __tmp149812)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp276282 - __tmp276273)))) + (cons __tmp149820 + __tmp149811)))) (declare (not safe)) - (_assert261840_ __tmp276272)))) - (___kont274483274484_ - (lambda (_L262349_ _L262350_ _L262351_) - (let ((_$e262380_ + (_assert139946_ __tmp149810)))) + (___kont148021148022_ + (lambda (_L140455_ _L140456_ _L140457_) + (let ((_$e140486_ (let () (declare (not safe)) (gxc#identifier-symbol - _L262351_)))) + _L140457_)))) (if (or (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e262380_)) + _$e140486_)) (let () (declare (not safe)) (eq? 'gx#stx-eq? - _$e262380_))) - ((lambda (_sym262386_) - (let ((__tmp276283 + _$e140486_))) + ((lambda (_sym140492_) + (let ((__tmp149821 (let () (declare (not safe)) - (_eqf-symbol260825_ - _sym262386_)))) + (_eqf-symbol138931_ + _sym140492_)))) (declare (not safe)) - (_assert-eqf260838_ - _L262350_ - __tmp276283 - _L262349_))) - _$e262380_) + (_assert-eqf138944_ + _L140456_ + __tmp149821 + _L140455_))) + _$e140486_) '#!void)))) - (___kont274485274486_ - (lambda (_L262233_ _L262234_ _L262235_) - (let ((__tmp276284 - (let ((__tmp276297 + (___kont148023148024_ + (lambda (_L140339_ _L140340_ _L140341_) + (let ((__tmp149822 + (let ((__tmp149835 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp276285 - (let ((__tmp276294 - (let ((__tmp276296 + (__tmp149823 + (let ((__tmp149832 + (let ((__tmp149834 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp276295 + (__tmp149833 (let () (declare (not safe)) - (cons _L262235_ '())))) + (cons _L140341_ '())))) (declare (not safe)) - (cons __tmp276296 __tmp276295))) - (__tmp276286 - (let ((__tmp276291 - (let ((__tmp276293 + (cons __tmp149834 __tmp149833))) + (__tmp149824 + (let ((__tmp149829 + (let ((__tmp149831 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp276292 + (__tmp149830 (let () (declare (not safe)) - (cons _L262233_ '())))) + (cons _L140339_ '())))) (declare (not safe)) - (cons __tmp276293 __tmp276292))) - (__tmp276287 - (let ((__tmp276288 - (let ((__tmp276290 + (cons __tmp149831 __tmp149830))) + (__tmp149825 + (let ((__tmp149826 + (let ((__tmp149828 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax))) - (__tmp276289 + (__tmp149827 (let () (declare (not safe)) - (cons _L262234_ '())))) + (cons _L140340_ '())))) (declare (not safe)) - (cons __tmp276290 __tmp276289)))) + (cons __tmp149828 __tmp149827)))) (declare (not safe)) - (cons __tmp276288 '())))) + (cons __tmp149826 '())))) (declare (not safe)) - (cons __tmp276291 __tmp276287)))) + (cons __tmp149829 __tmp149825)))) (declare (not safe)) - (cons __tmp276294 __tmp276286)))) + (cons __tmp149832 __tmp149824)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp276297 - __tmp276285)))) + (cons __tmp149835 + __tmp149823)))) (declare (not safe)) - (_assert261840_ __tmp276284)))) - (___kont274487274488_ - (lambda (_L262113_ _L262114_ _L262115_) - (let ((__tmp276298 + (_assert139946_ __tmp149822)))) + (___kont148025148026_ + (lambda (_L140219_ _L140220_ _L140221_) + (let ((__tmp149836 (let () (declare (not safe)) (gxc#apply-expression-subst - _L262114_ - _L262115_ - _L262113_)))) + _L140220_ + _L140221_ + _L140219_)))) (declare (not safe)) - (_assert261840_ __tmp276298)))) - (___kont274489274490_ + (_assert139946_ __tmp149836)))) + (___kont148027148028_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx274475274476_)) - (let ((_e261856262804_ + (gx#stx-pair? ___stx148013148014_)) + (let ((_e139962140910_ (let () (declare (not safe)) - (gx#stx-e ___stx274475274476_)))) - (let ((_tl261854262809_ + (gx#stx-e ___stx148013148014_)))) + (let ((_tl139960140915_ (let () (declare (not safe)) - (##cdr _e261856262804_))) - (_hd261855262807_ + (##cdr _e139962140910_))) + (_hd139961140913_ (let () (declare (not safe)) - (##car _e261856262804_)))) + (##car _e139962140910_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd261855262807_)) + _hd139961140913_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd261855262807_)) + _hd139961140913_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl261854262809_)) - (let ((_e261859262812_ + _tl139960140915_)) + (let ((_e139965140918_ (let () (declare (not safe)) (gx#stx-e - _tl261854262809_)))) - (let ((_tl261857262817_ + _tl139960140915_)))) + (let ((_tl139963140923_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e261859262812_))) - (_hd261858262815_ - (let () (declare (not safe)) (##car _e261859262812_)))) + (##cdr _e139965140918_))) + (_hd139964140921_ + (let () (declare (not safe)) (##car _e139965140918_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd261858262815_)) - (let ((_e261862262820_ + (gx#stx-pair? _hd139964140921_)) + (let ((_e139968140926_ (let () (declare (not safe)) - (gx#stx-e _hd261858262815_)))) - (let ((_tl261860262825_ + (gx#stx-e _hd139964140921_)))) + (let ((_tl139966140931_ (let () (declare (not safe)) - (##cdr _e261862262820_))) - (_hd261861262823_ + (##cdr _e139968140926_))) + (_hd139967140929_ (let () (declare (not safe)) - (##car _e261862262820_)))) + (##car _e139968140926_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd261861262823_)) + (gx#identifier? _hd139967140929_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd261861262823_)) + (gx#stx-eq? '%#ref _hd139967140929_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261860262825_)) - (let ((_e261865262828_ + (gx#stx-pair? _tl139966140931_)) + (let ((_e139971140934_ (let () (declare (not safe)) - (gx#stx-e _tl261860262825_)))) - (let ((_tl261863262833_ + (gx#stx-e _tl139966140931_)))) + (let ((_tl139969140939_ (let () (declare (not safe)) - (##cdr _e261865262828_))) - (_hd261864262831_ + (##cdr _e139971140934_))) + (_hd139970140937_ (let () (declare (not safe)) - (##car _e261865262828_)))) + (##car _e139971140934_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261863262833_)) + (gx#stx-null? _tl139969140939_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl261857262817_)) - (let ((_e261868262836_ + _tl139963140923_)) + (let ((_e139974140942_ (let () (declare (not safe)) (gx#stx-e - _tl261857262817_)))) - (let ((_tl261866262841_ + _tl139963140923_)))) + (let ((_tl139972140947_ (let () (declare (not safe)) - (##cdr _e261868262836_))) - (_hd261867262839_ + (##cdr _e139974140942_))) + (_hd139973140945_ (let () (declare (not safe)) - (##car _e261868262836_)))) + (##car _e139974140942_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd261867262839_)) - (let ((_e261871262844_ + _hd139973140945_)) + (let ((_e139977140950_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd261867262839_)))) - (let ((_tl261869262849_ + (gx#stx-e _hd139973140945_)))) + (let ((_tl139975140955_ (let () (declare (not safe)) - (##cdr _e261871262844_))) - (_hd261870262847_ + (##cdr _e139977140950_))) + (_hd139976140953_ (let () (declare (not safe)) - (##car _e261871262844_)))) + (##car _e139977140950_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd261870262847_)) + (gx#identifier? _hd139976140953_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd261870262847_)) + (gx#stx-eq? '%#ref _hd139976140953_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261869262849_)) - (let ((_e261874262852_ + (gx#stx-pair? _tl139975140955_)) + (let ((_e139980140958_ (let () (declare (not safe)) - (gx#stx-e _tl261869262849_)))) - (let ((_tl261872262857_ + (gx#stx-e _tl139975140955_)))) + (let ((_tl139978140963_ (let () (declare (not safe)) - (##cdr _e261874262852_))) - (_hd261873262855_ + (##cdr _e139980140958_))) + (_hd139979140961_ (let () (declare (not safe)) - (##car _e261874262852_)))) + (##car _e139980140958_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261872262857_)) + (gx#stx-null? _tl139978140963_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl261866262841_)) - (___kont274477274478_ - _hd261873262855_ - _hd261864262831_) + (gx#stx-null? _tl139972140947_)) + (___kont148015148016_ + _hd139979140961_ + _hd139970140937_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl261866262841_)) - (let ((_e261895262529_ + _tl139972140947_)) + (let ((_e140001140635_ (let () (declare (not safe)) (gx#stx-e - _tl261866262841_)))) - (let ((_tl261893262534_ + _tl139972140947_)))) + (let ((_tl139999140640_ (let () (declare (not safe)) - (##cdr _e261895262529_))) - (_hd261894262532_ + (##cdr _e140001140635_))) + (_hd140000140638_ (let () (declare (not safe)) - (##car _e261895262529_)))) + (##car _e140001140635_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd261894262532_)) - (let ((_e261898262537_ + _hd140000140638_)) + (let ((_e140004140643_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd261894262532_)))) - (let ((_tl261896262542_ + (gx#stx-e _hd140000140638_)))) + (let ((_tl140002140648_ (let () (declare (not safe)) - (##cdr _e261898262537_))) - (_hd261897262540_ + (##cdr _e140004140643_))) + (_hd140003140646_ (let () (declare (not safe)) - (##car _e261898262537_)))) + (##car _e140004140643_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd261897262540_)) + (gx#identifier? _hd140003140646_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd261897262540_)) + (gx#stx-eq? '%#quote _hd140003140646_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261896262542_)) - (let ((_e261901262545_ + (gx#stx-pair? _tl140002140648_)) + (let ((_e140007140651_ (let () (declare (not safe)) - (gx#stx-e _tl261896262542_)))) - (let ((_tl261899262550_ + (gx#stx-e _tl140002140648_)))) + (let ((_tl140005140656_ (let () (declare (not safe)) - (##cdr _e261901262545_))) - (_hd261900262548_ + (##cdr _e140007140651_))) + (_hd140006140654_ (let () (declare (not safe)) - (##car _e261901262545_)))) + (##car _e140007140651_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261899262550_)) + (gx#stx-null? _tl140005140656_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl261893262534_)) - (___kont274479274480_ - _hd261900262548_ - _hd261867262839_ - _hd261864262831_) - (___kont274489274490_)) - (___kont274489274490_)))) - (___kont274489274490_)) + (gx#stx-null? _tl139999140640_)) + (___kont148017148018_ + _hd140006140654_ + _hd139973140945_ + _hd139970140937_) + (___kont148027148028_)) + (___kont148027148028_)))) + (___kont148027148028_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd261897262540_)) + _hd140003140646_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261896262542_)) - (let ((_e261961262341_ + (gx#stx-pair? _tl140002140648_)) + (let ((_e140067140447_ (let () (declare (not safe)) - (gx#stx-e _tl261896262542_)))) - (let ((_tl261959262346_ + (gx#stx-e _tl140002140648_)))) + (let ((_tl140065140452_ (let () (declare (not safe)) - (##cdr _e261961262341_))) - (_hd261960262344_ + (##cdr _e140067140447_))) + (_hd140066140450_ (let () (declare (not safe)) - (##car _e261961262341_)))) + (##car _e140067140447_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261959262346_)) + (gx#stx-null? _tl140065140452_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl261893262534_)) - (___kont274483274484_ - _hd261960262344_ - _hd261873262855_ - _hd261864262831_) - (___kont274489274490_)) - (___kont274489274490_)))) - (___kont274489274490_)) - (___kont274489274490_))) - (___kont274489274490_)))) - (___kont274489274490_)))) + _tl139999140640_)) + (___kont148021148022_ + _hd140066140450_ + _hd139979140961_ + _hd139970140937_) + (___kont148027148028_)) + (___kont148027148028_)))) + (___kont148027148028_)) + (___kont148027148028_))) + (___kont148027148028_)))) + (___kont148027148028_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274489274490_))) + (___kont148027148028_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261866262841_)) - (let ((_e261895262529_ + (gx#stx-pair? _tl139972140947_)) + (let ((_e140001140635_ (let () (declare (not safe)) (gx#stx-e - _tl261866262841_)))) - (let ((_tl261893262534_ + _tl139972140947_)))) + (let ((_tl139999140640_ (let () (declare (not safe)) - (##cdr _e261895262529_))) - (_hd261894262532_ + (##cdr _e140001140635_))) + (_hd140000140638_ (let () (declare (not safe)) - (##car _e261895262529_)))) + (##car _e140001140635_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd261894262532_)) - (let ((_e261898262537_ + _hd140000140638_)) + (let ((_e140004140643_ (let () (declare (not safe)) (gx#stx-e - _hd261894262532_)))) - (let ((_tl261896262542_ + _hd140000140638_)))) + (let ((_tl140002140648_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e261898262537_))) - (_hd261897262540_ - (let () (declare (not safe)) (##car _e261898262537_)))) + (##cdr _e140004140643_))) + (_hd140003140646_ + (let () (declare (not safe)) (##car _e140004140643_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd261897262540_)) + (gx#identifier? _hd140003140646_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd261897262540_)) + (gx#stx-eq? '%#quote _hd140003140646_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261896262542_)) - (let ((_e261901262545_ + (gx#stx-pair? _tl140002140648_)) + (let ((_e140007140651_ (let () (declare (not safe)) - (gx#stx-e _tl261896262542_)))) - (let ((_tl261899262550_ + (gx#stx-e _tl140002140648_)))) + (let ((_tl140005140656_ (let () (declare (not safe)) - (##cdr _e261901262545_))) - (_hd261900262548_ + (##cdr _e140007140651_))) + (_hd140006140654_ (let () (declare (not safe)) - (##car _e261901262545_)))) + (##car _e140007140651_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261899262550_)) + (gx#stx-null? _tl140005140656_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl261893262534_)) - (___kont274479274480_ - _hd261900262548_ - _hd261867262839_ - _hd261864262831_) - (___kont274489274490_)) - (___kont274489274490_)))) - (___kont274489274490_)) - (___kont274489274490_)) - (___kont274489274490_)))) + (gx#stx-null? _tl139999140640_)) + (___kont148017148018_ + _hd140006140654_ + _hd139973140945_ + _hd139970140937_) + (___kont148027148028_)) + (___kont148027148028_)))) + (___kont148027148028_)) + (___kont148027148028_)) + (___kont148027148028_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274489274490_)))) - (___kont274489274490_))))) + (___kont148027148028_)))) + (___kont148027148028_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261866262841_)) - (let ((_e261895262529_ + (gx#stx-pair? _tl139972140947_)) + (let ((_e140001140635_ (let () (declare (not safe)) - (gx#stx-e _tl261866262841_)))) - (let ((_tl261893262534_ + (gx#stx-e _tl139972140947_)))) + (let ((_tl139999140640_ (let () (declare (not safe)) - (##cdr _e261895262529_))) - (_hd261894262532_ + (##cdr _e140001140635_))) + (_hd140000140638_ (let () (declare (not safe)) - (##car _e261895262529_)))) + (##car _e140001140635_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd261894262532_)) - (let ((_e261898262537_ + (gx#stx-pair? _hd140000140638_)) + (let ((_e140004140643_ (let () (declare (not safe)) (gx#stx-e - _hd261894262532_)))) - (let ((_tl261896262542_ + _hd140000140638_)))) + (let ((_tl140002140648_ (let () (declare (not safe)) - (##cdr _e261898262537_))) - (_hd261897262540_ + (##cdr _e140004140643_))) + (_hd140003140646_ (let () (declare (not safe)) - (##car _e261898262537_)))) + (##car _e140004140643_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd261897262540_)) + _hd140003140646_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd261897262540_)) + _hd140003140646_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl261896262542_)) - (let ((_e261901262545_ + (gx#stx-pair? _tl140002140648_)) + (let ((_e140007140651_ (let () (declare (not safe)) - (gx#stx-e _tl261896262542_)))) - (let ((_tl261899262550_ + (gx#stx-e _tl140002140648_)))) + (let ((_tl140005140656_ (let () (declare (not safe)) - (##cdr _e261901262545_))) - (_hd261900262548_ + (##cdr _e140007140651_))) + (_hd140006140654_ (let () (declare (not safe)) - (##car _e261901262545_)))) + (##car _e140007140651_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261899262550_)) + (gx#stx-null? _tl140005140656_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl261893262534_)) - (___kont274479274480_ - _hd261900262548_ - _hd261867262839_ - _hd261864262831_) - (___kont274489274490_)) - (___kont274489274490_)))) - (___kont274489274490_)) - (___kont274489274490_)) + (gx#stx-null? _tl139999140640_)) + (___kont148017148018_ + _hd140006140654_ + _hd139973140945_ + _hd139970140937_) + (___kont148027148028_)) + (___kont148027148028_)))) + (___kont148027148028_)) + (___kont148027148028_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274489274490_)))) - (___kont274489274490_)))) - (___kont274489274490_))) + (___kont148027148028_)))) + (___kont148027148028_)))) + (___kont148027148028_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261866262841_)) - (let ((_e261895262529_ + (gx#stx-pair? _tl139972140947_)) + (let ((_e140001140635_ (let () (declare (not safe)) - (gx#stx-e _tl261866262841_)))) - (let ((_tl261893262534_ + (gx#stx-e _tl139972140947_)))) + (let ((_tl139999140640_ (let () (declare (not safe)) - (##cdr _e261895262529_))) - (_hd261894262532_ + (##cdr _e140001140635_))) + (_hd140000140638_ (let () (declare (not safe)) - (##car _e261895262529_)))) + (##car _e140001140635_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd261894262532_)) - (let ((_e261898262537_ + (gx#stx-pair? _hd140000140638_)) + (let ((_e140004140643_ (let () (declare (not safe)) (gx#stx-e - _hd261894262532_)))) - (let ((_tl261896262542_ + _hd140000140638_)))) + (let ((_tl140002140648_ (let () (declare (not safe)) - (##cdr _e261898262537_))) - (_hd261897262540_ + (##cdr _e140004140643_))) + (_hd140003140646_ (let () (declare (not safe)) - (##car _e261898262537_)))) + (##car _e140004140643_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd261897262540_)) + _hd140003140646_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd261897262540_)) + _hd140003140646_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl261896262542_)) - (let ((_e261901262545_ + _tl140002140648_)) + (let ((_e140007140651_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl261896262542_)))) - (let ((_tl261899262550_ + (gx#stx-e _tl140002140648_)))) + (let ((_tl140005140656_ (let () (declare (not safe)) - (##cdr _e261901262545_))) - (_hd261900262548_ + (##cdr _e140007140651_))) + (_hd140006140654_ (let () (declare (not safe)) - (##car _e261901262545_)))) + (##car _e140007140651_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261899262550_)) + (gx#stx-null? _tl140005140656_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl261893262534_)) - (___kont274479274480_ - _hd261900262548_ - _hd261867262839_ - _hd261864262831_) + (gx#stx-null? _tl139999140640_)) + (___kont148017148018_ + _hd140006140654_ + _hd139973140945_ + _hd139970140937_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd261870262847_)) + (gx#stx-eq? '%#quote _hd139976140953_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261869262849_)) - (let ((_e261925262441_ + (gx#stx-pair? _tl139975140955_)) + (let ((_e140031140547_ (let () (declare (not safe)) - (gx#stx-e _tl261869262849_)))) - (let ((_tl261923262446_ + (gx#stx-e _tl139975140955_)))) + (let ((_tl140029140552_ (let () (declare (not safe)) - (##cdr _e261925262441_))) - (_hd261924262444_ + (##cdr _e140031140547_))) + (_hd140030140550_ (let () (declare (not safe)) - (##car _e261925262441_)))) - (___kont274489274490_))) - (___kont274489274490_)) + (##car _e140031140547_)))) + (___kont148027148028_))) + (___kont148027148028_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd261870262847_)) + _hd139976140953_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261869262849_)) - (let ((_e261985262201_ + (gx#stx-pair? _tl139975140955_)) + (let ((_e140091140307_ (let () (declare (not safe)) (gx#stx-e - _tl261869262849_)))) - (let ((_tl261983262206_ + _tl139975140955_)))) + (let ((_tl140089140312_ (let () (declare (not safe)) - (##cdr _e261985262201_))) - (_hd261984262204_ + (##cdr _e140091140307_))) + (_hd140090140310_ (let () (declare (not safe)) - (##car _e261985262201_)))) - (___kont274489274490_))) - (___kont274489274490_)) - (___kont274489274490_)))) + (##car _e140091140307_)))) + (___kont148027148028_))) + (___kont148027148028_)) + (___kont148027148028_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd261870262847_)) + (gx#stx-eq? '%#quote _hd139976140953_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261869262849_)) - (let ((_e261925262441_ + (gx#stx-pair? _tl139975140955_)) + (let ((_e140031140547_ (let () (declare (not safe)) - (gx#stx-e _tl261869262849_)))) - (let ((_tl261923262446_ + (gx#stx-e _tl139975140955_)))) + (let ((_tl140029140552_ (let () (declare (not safe)) - (##cdr _e261925262441_))) - (_hd261924262444_ + (##cdr _e140031140547_))) + (_hd140030140550_ (let () (declare (not safe)) - (##car _e261925262441_)))) + (##car _e140031140547_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261923262446_)) + (gx#stx-null? _tl140029140552_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl261893262534_)) - (___kont274481274482_ - _hd261894262532_ - _hd261924262444_ - _hd261864262831_) - (___kont274489274490_)) - (___kont274489274490_)))) - (___kont274489274490_)) + (gx#stx-null? _tl139999140640_)) + (___kont148019148020_ + _hd140000140638_ + _hd140030140550_ + _hd139970140937_) + (___kont148027148028_)) + (___kont148027148028_)))) + (___kont148027148028_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd261870262847_)) + _hd139976140953_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261869262849_)) - (let ((_e261985262201_ + (gx#stx-pair? _tl139975140955_)) + (let ((_e140091140307_ (let () (declare (not safe)) - (gx#stx-e _tl261869262849_)))) - (let ((_tl261983262206_ + (gx#stx-e _tl139975140955_)))) + (let ((_tl140089140312_ (let () (declare (not safe)) - (##cdr _e261985262201_))) - (_hd261984262204_ + (##cdr _e140091140307_))) + (_hd140090140310_ (let () (declare (not safe)) - (##car _e261985262201_)))) - (___kont274489274490_))) - (___kont274489274490_)) - (___kont274489274490_)))))) + (##car _e140091140307_)))) + (___kont148027148028_))) + (___kont148027148028_)) + (___kont148027148028_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd261870262847_)) + (gx#stx-eq? '%#quote _hd139976140953_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261869262849_)) - (let ((_e261925262441_ + (gx#stx-pair? _tl139975140955_)) + (let ((_e140031140547_ (let () (declare (not safe)) - (gx#stx-e _tl261869262849_)))) - (let ((_tl261923262446_ + (gx#stx-e _tl139975140955_)))) + (let ((_tl140029140552_ (let () (declare (not safe)) - (##cdr _e261925262441_))) - (_hd261924262444_ + (##cdr _e140031140547_))) + (_hd140030140550_ (let () (declare (not safe)) - (##car _e261925262441_)))) + (##car _e140031140547_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261923262446_)) + (gx#stx-null? _tl140029140552_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl261893262534_)) - (___kont274481274482_ - _hd261894262532_ - _hd261924262444_ - _hd261864262831_) - (___kont274489274490_)) - (___kont274489274490_)))) - (___kont274489274490_)) + (gx#stx-null? _tl139999140640_)) + (___kont148019148020_ + _hd140000140638_ + _hd140030140550_ + _hd139970140937_) + (___kont148027148028_)) + (___kont148027148028_)))) + (___kont148027148028_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd261870262847_)) + (gx#stx-eq? '%#quote-syntax _hd139976140953_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261869262849_)) - (let ((_e261985262201_ + (gx#stx-pair? _tl139975140955_)) + (let ((_e140091140307_ (let () (declare (not safe)) - (gx#stx-e _tl261869262849_)))) - (let ((_tl261983262206_ + (gx#stx-e _tl139975140955_)))) + (let ((_tl140089140312_ (let () (declare (not safe)) - (##cdr _e261985262201_))) - (_hd261984262204_ + (##cdr _e140091140307_))) + (_hd140090140310_ (let () (declare (not safe)) - (##car _e261985262201_)))) - (___kont274489274490_))) - (___kont274489274490_)) - (___kont274489274490_)))) + (##car _e140091140307_)))) + (___kont148027148028_))) + (___kont148027148028_)) + (___kont148027148028_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd261870262847_)) + _hd139976140953_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl261869262849_)) - (let ((_e261925262441_ + (gx#stx-pair? _tl139975140955_)) + (let ((_e140031140547_ (let () (declare (not safe)) - (gx#stx-e _tl261869262849_)))) - (let ((_tl261923262446_ + (gx#stx-e _tl139975140955_)))) + (let ((_tl140029140552_ (let () (declare (not safe)) - (##cdr _e261925262441_))) - (_hd261924262444_ + (##cdr _e140031140547_))) + (_hd140030140550_ (let () (declare (not safe)) - (##car _e261925262441_)))) + (##car _e140031140547_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261923262446_)) + (gx#stx-null? _tl140029140552_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl261893262534_)) - (___kont274481274482_ - _hd261894262532_ - _hd261924262444_ - _hd261864262831_) - (___kont274489274490_)) - (___kont274489274490_)))) - (___kont274489274490_)) + (gx#stx-null? _tl139999140640_)) + (___kont148019148020_ + _hd140000140638_ + _hd140030140550_ + _hd139970140937_) + (___kont148027148028_)) + (___kont148027148028_)))) + (___kont148027148028_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd261870262847_)) + (gx#stx-eq? '%#quote-syntax _hd139976140953_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261869262849_)) - (let ((_e261985262201_ + (gx#stx-pair? _tl139975140955_)) + (let ((_e140091140307_ (let () (declare (not safe)) - (gx#stx-e _tl261869262849_)))) - (let ((_tl261983262206_ + (gx#stx-e _tl139975140955_)))) + (let ((_tl140089140312_ (let () (declare (not safe)) - (##cdr _e261985262201_))) - (_hd261984262204_ + (##cdr _e140091140307_))) + (_hd140090140310_ (let () (declare (not safe)) - (##car _e261985262201_)))) + (##car _e140091140307_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261983262206_)) + (gx#stx-null? _tl140089140312_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd261897262540_)) + (gx#stx-eq? '%#ref _hd140003140646_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261896262542_)) - (let ((_e261994262225_ + (gx#stx-pair? _tl140002140648_)) + (let ((_e140100140331_ (let () (declare (not safe)) (gx#stx-e - _tl261896262542_)))) - (let ((_tl261992262230_ + _tl140002140648_)))) + (let ((_tl140098140336_ (let () (declare (not safe)) - (##cdr _e261994262225_))) - (_hd261993262228_ + (##cdr _e140100140331_))) + (_hd140099140334_ (let () (declare (not safe)) - (##car _e261994262225_)))) + (##car _e140100140331_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl261992262230_)) + _tl140098140336_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl261893262534_)) - (___kont274485274486_ - _hd261993262228_ - _hd261984262204_ - _hd261864262831_) - (___kont274489274490_)) - (___kont274489274490_)))) - (___kont274489274490_)) - (___kont274489274490_)) - (___kont274489274490_)))) - (___kont274489274490_)) - (___kont274489274490_)))) + _tl139999140640_)) + (___kont148023148024_ + _hd140099140334_ + _hd140090140310_ + _hd139970140937_) + (___kont148027148028_)) + (___kont148027148028_)))) + (___kont148027148028_)) + (___kont148027148028_)) + (___kont148027148028_)))) + (___kont148027148028_)) + (___kont148027148028_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd261870262847_)) + _hd139976140953_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl261869262849_)) - (let ((_e261925262441_ + _tl139975140955_)) + (let ((_e140031140547_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl261869262849_)))) - (let ((_tl261923262446_ + (gx#stx-e _tl139975140955_)))) + (let ((_tl140029140552_ (let () (declare (not safe)) - (##cdr _e261925262441_))) - (_hd261924262444_ + (##cdr _e140031140547_))) + (_hd140030140550_ (let () (declare (not safe)) - (##car _e261925262441_)))) + (##car _e140031140547_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261923262446_)) + (gx#stx-null? _tl140029140552_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl261893262534_)) - (___kont274481274482_ - _hd261894262532_ - _hd261924262444_ - _hd261864262831_) - (___kont274489274490_)) - (___kont274489274490_)))) - (___kont274489274490_)) + (gx#stx-null? _tl139999140640_)) + (___kont148019148020_ + _hd140000140638_ + _hd140030140550_ + _hd139970140937_) + (___kont148027148028_)) + (___kont148027148028_)))) + (___kont148027148028_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd261870262847_)) + _hd139976140953_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl261869262849_)) - (let ((_e261985262201_ + (gx#stx-pair? _tl139975140955_)) + (let ((_e140091140307_ (let () (declare (not safe)) - (gx#stx-e _tl261869262849_)))) - (let ((_tl261983262206_ + (gx#stx-e _tl139975140955_)))) + (let ((_tl140089140312_ (let () (declare (not safe)) - (##cdr _e261985262201_))) - (_hd261984262204_ + (##cdr _e140091140307_))) + (_hd140090140310_ (let () (declare (not safe)) - (##car _e261985262201_)))) - (___kont274489274490_))) - (___kont274489274490_)) - (___kont274489274490_)))))) + (##car _e140091140307_)))) + (___kont148027148028_))) + (___kont148027148028_)) + (___kont148027148028_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd261870262847_)) + _hd139976140953_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl261869262849_)) - (let ((_e261925262441_ + _tl139975140955_)) + (let ((_e140031140547_ (let () (declare (not safe)) (gx#stx-e - _tl261869262849_)))) - (let ((_tl261923262446_ + _tl139975140955_)))) + (let ((_tl140029140552_ (let () (declare (not safe)) - (##cdr _e261925262441_))) - (_hd261924262444_ + (##cdr _e140031140547_))) + (_hd140030140550_ (let () (declare (not safe)) - (##car _e261925262441_)))) + (##car _e140031140547_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl261923262446_)) + _tl140029140552_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl261893262534_)) - (___kont274481274482_ - _hd261894262532_ - _hd261924262444_ - _hd261864262831_) - (___kont274489274490_)) - (___kont274489274490_)))) + (gx#stx-null? _tl139999140640_)) + (___kont148019148020_ + _hd140000140638_ + _hd140030140550_ + _hd139970140937_) + (___kont148027148028_)) + (___kont148027148028_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274489274490_)) + (___kont148027148028_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd261870262847_)) + _hd139976140953_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl261869262849_)) - (let ((_e261985262201_ + _tl139975140955_)) + (let ((_e140091140307_ (let () (declare (not safe)) (gx#stx-e - _tl261869262849_)))) - (let ((_tl261983262206_ + _tl139975140955_)))) + (let ((_tl140089140312_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e261985262201_))) - (_hd261984262204_ - (let () (declare (not safe)) (##car _e261985262201_)))) - (___kont274489274490_))) + (##cdr _e140091140307_))) + (_hd140090140310_ + (let () (declare (not safe)) (##car _e140091140307_)))) + (___kont148027148028_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274489274490_)) - (___kont274489274490_)))))) + (___kont148027148028_)) + (___kont148027148028_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd261870262847_)) + (gx#stx-eq? '%#quote _hd139976140953_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261869262849_)) - (let ((_e261925262441_ + (gx#stx-pair? _tl139975140955_)) + (let ((_e140031140547_ (let () (declare (not safe)) (gx#stx-e - _tl261869262849_)))) - (let ((_tl261923262446_ + _tl139975140955_)))) + (let ((_tl140029140552_ (let () (declare (not safe)) - (##cdr _e261925262441_))) - (_hd261924262444_ + (##cdr _e140031140547_))) + (_hd140030140550_ (let () (declare (not safe)) - (##car _e261925262441_)))) - (___kont274489274490_))) - (___kont274489274490_)) + (##car _e140031140547_)))) + (___kont148027148028_))) + (___kont148027148028_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd261870262847_)) + _hd139976140953_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261869262849_)) - (let ((_e261985262201_ + (gx#stx-pair? _tl139975140955_)) + (let ((_e140091140307_ (let () (declare (not safe)) (gx#stx-e - _tl261869262849_)))) - (let ((_tl261983262206_ + _tl139975140955_)))) + (let ((_tl140089140312_ (let () (declare (not safe)) - (##cdr _e261985262201_))) - (_hd261984262204_ + (##cdr _e140091140307_))) + (_hd140090140310_ (let () (declare (not safe)) - (##car _e261985262201_)))) - (___kont274489274490_))) - (___kont274489274490_)) - (___kont274489274490_))))) + (##car _e140091140307_)))) + (___kont148027148028_))) + (___kont148027148028_)) + (___kont148027148028_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261866262841_)) - (let ((_e261895262529_ + (gx#stx-pair? _tl139972140947_)) + (let ((_e140001140635_ (let () (declare (not safe)) - (gx#stx-e _tl261866262841_)))) - (let ((_tl261893262534_ + (gx#stx-e _tl139972140947_)))) + (let ((_tl139999140640_ (let () (declare (not safe)) - (##cdr _e261895262529_))) - (_hd261894262532_ + (##cdr _e140001140635_))) + (_hd140000140638_ (let () (declare (not safe)) - (##car _e261895262529_)))) + (##car _e140001140635_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd261894262532_)) - (let ((_e261898262537_ + (gx#stx-pair? _hd140000140638_)) + (let ((_e140004140643_ (let () (declare (not safe)) - (gx#stx-e _hd261894262532_)))) - (let ((_tl261896262542_ + (gx#stx-e _hd140000140638_)))) + (let ((_tl140002140648_ (let () (declare (not safe)) - (##cdr _e261898262537_))) - (_hd261897262540_ + (##cdr _e140004140643_))) + (_hd140003140646_ (let () (declare (not safe)) - (##car _e261898262537_)))) + (##car _e140004140643_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd261897262540_)) + _hd140003140646_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd261897262540_)) + _hd140003140646_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl261896262542_)) - (let ((_e261901262545_ + _tl140002140648_)) + (let ((_e140007140651_ (let () (declare (not safe)) (gx#stx-e - _tl261896262542_)))) - (let ((_tl261899262550_ + _tl140002140648_)))) + (let ((_tl140005140656_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e261901262545_))) - (_hd261900262548_ - (let () (declare (not safe)) (##car _e261901262545_)))) + (##cdr _e140007140651_))) + (_hd140006140654_ + (let () (declare (not safe)) (##car _e140007140651_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261899262550_)) + (gx#stx-null? _tl140005140656_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl261893262534_)) - (___kont274479274480_ - _hd261900262548_ - _hd261867262839_ - _hd261864262831_) - (___kont274489274490_)) - (___kont274489274490_)))) + (gx#stx-null? _tl139999140640_)) + (___kont148017148018_ + _hd140006140654_ + _hd139973140945_ + _hd139970140937_) + (___kont148027148028_)) + (___kont148027148028_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274489274490_)) - (___kont274489274490_)) - (___kont274489274490_)))) - (___kont274489274490_)))) - (___kont274489274490_))))) + (___kont148027148028_)) + (___kont148027148028_)) + (___kont148027148028_)))) + (___kont148027148028_)))) + (___kont148027148028_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261866262841_)) - (let ((_e261895262529_ + (gx#stx-pair? _tl139972140947_)) + (let ((_e140001140635_ (let () (declare (not safe)) - (gx#stx-e _tl261866262841_)))) - (let ((_tl261893262534_ + (gx#stx-e _tl139972140947_)))) + (let ((_tl139999140640_ (let () (declare (not safe)) - (##cdr _e261895262529_))) - (_hd261894262532_ + (##cdr _e140001140635_))) + (_hd140000140638_ (let () (declare (not safe)) - (##car _e261895262529_)))) + (##car _e140001140635_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd261894262532_)) - (let ((_e261898262537_ + (gx#stx-pair? _hd140000140638_)) + (let ((_e140004140643_ (let () (declare (not safe)) - (gx#stx-e _hd261894262532_)))) - (let ((_tl261896262542_ + (gx#stx-e _hd140000140638_)))) + (let ((_tl140002140648_ (let () (declare (not safe)) - (##cdr _e261898262537_))) - (_hd261897262540_ + (##cdr _e140004140643_))) + (_hd140003140646_ (let () (declare (not safe)) - (##car _e261898262537_)))) + (##car _e140004140643_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd261897262540_)) + (gx#identifier? _hd140003140646_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd261897262540_)) + _hd140003140646_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261896262542_)) - (let ((_e261901262545_ + (gx#stx-pair? _tl140002140648_)) + (let ((_e140007140651_ (let () (declare (not safe)) (gx#stx-e - _tl261896262542_)))) - (let ((_tl261899262550_ + _tl140002140648_)))) + (let ((_tl140005140656_ (let () (declare (not safe)) - (##cdr _e261901262545_))) - (_hd261900262548_ + (##cdr _e140007140651_))) + (_hd140006140654_ (let () (declare (not safe)) - (##car _e261901262545_)))) + (##car _e140007140651_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl261899262550_)) + _tl140005140656_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl261893262534_)) - (___kont274479274480_ - _hd261900262548_ - _hd261867262839_ - _hd261864262831_) - (___kont274489274490_)) - (___kont274489274490_)))) - (___kont274489274490_)) - (___kont274489274490_)) - (___kont274489274490_)))) - (___kont274489274490_)))) - (___kont274489274490_))))) + _tl139999140640_)) + (___kont148017148018_ + _hd140006140654_ + _hd139973140945_ + _hd139970140937_) + (___kont148027148028_)) + (___kont148027148028_)))) + (___kont148027148028_)) + (___kont148027148028_)) + (___kont148027148028_)))) + (___kont148027148028_)))) + (___kont148027148028_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274489274490_)) - (___kont274489274490_)))) - (___kont274489274490_)) + (___kont148027148028_)) + (___kont148027148028_)))) + (___kont148027148028_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd261861262823_)) + (gx#stx-eq? '%#lambda _hd139967140929_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261860262825_)) - (let ((_e262009262065_ + (gx#stx-pair? _tl139966140931_)) + (let ((_e140115140171_ (let () (declare (not safe)) (gx#stx-e - _tl261860262825_)))) - (let ((_tl262007262070_ + _tl139966140931_)))) + (let ((_tl140113140176_ (let () (declare (not safe)) - (##cdr _e262009262065_))) - (_hd262008262068_ + (##cdr _e140115140171_))) + (_hd140114140174_ (let () (declare (not safe)) - (##car _e262009262065_)))) + (##car _e140115140171_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd262008262068_)) - (let ((_e262012262073_ + _hd140114140174_)) + (let ((_e140118140179_ (let () (declare (not safe)) (gx#stx-e - _hd262008262068_)))) - (let ((_tl262010262078_ + _hd140114140174_)))) + (let ((_tl140116140184_ (let () (declare (not safe)) - (##cdr _e262012262073_))) - (_hd262011262076_ + (##cdr _e140118140179_))) + (_hd140117140182_ (let () (declare (not safe)) - (##car _e262012262073_)))) + (##car _e140118140179_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl262010262078_)) + _tl140116140184_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl262007262070_)) - (let ((_e262015262081_ + (gx#stx-pair? _tl140113140176_)) + (let ((_e140121140187_ (let () (declare (not safe)) - (gx#stx-e _tl262007262070_)))) - (let ((_tl262013262086_ + (gx#stx-e _tl140113140176_)))) + (let ((_tl140119140192_ (let () (declare (not safe)) - (##cdr _e262015262081_))) - (_hd262014262084_ + (##cdr _e140121140187_))) + (_hd140120140190_ (let () (declare (not safe)) - (##car _e262015262081_)))) + (##car _e140121140187_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262013262086_)) + (gx#stx-null? _tl140119140192_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261857262817_)) - (let ((_e262018262089_ + (gx#stx-pair? _tl139963140923_)) + (let ((_e140124140195_ (let () (declare (not safe)) - (gx#stx-e _tl261857262817_)))) - (let ((_tl262016262094_ + (gx#stx-e _tl139963140923_)))) + (let ((_tl140122140200_ (let () (declare (not safe)) - (##cdr _e262018262089_))) - (_hd262017262092_ + (##cdr _e140124140195_))) + (_hd140123140198_ (let () (declare (not safe)) - (##car _e262018262089_)))) + (##car _e140124140195_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd262017262092_)) - (let ((_e262021262097_ + (gx#stx-pair? _hd140123140198_)) + (let ((_e140127140203_ (let () (declare (not safe)) (gx#stx-e - _hd262017262092_)))) - (let ((_tl262019262102_ + _hd140123140198_)))) + (let ((_tl140125140208_ (let () (declare (not safe)) - (##cdr _e262021262097_))) - (_hd262020262100_ + (##cdr _e140127140203_))) + (_hd140126140206_ (let () (declare (not safe)) - (##car _e262021262097_)))) + (##car _e140127140203_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd262020262100_)) + _hd140126140206_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd262020262100_)) + _hd140126140206_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl262019262102_)) - (let ((_e262024262105_ + _tl140125140208_)) + (let ((_e140130140211_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl262019262102_)))) - (let ((_tl262022262110_ + (gx#stx-e _tl140125140208_)))) + (let ((_tl140128140216_ (let () (declare (not safe)) - (##cdr _e262024262105_))) - (_hd262023262108_ + (##cdr _e140130140211_))) + (_hd140129140214_ (let () (declare (not safe)) - (##car _e262024262105_)))) + (##car _e140130140211_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262022262110_)) + (gx#stx-null? _tl140128140216_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl262016262094_)) - (___kont274487274488_ - _hd262023262108_ - _hd262014262084_ - _hd262011262076_) - (___kont274489274490_)) - (___kont274489274490_)))) - (___kont274489274490_)) + (gx#stx-null? _tl140122140200_)) + (___kont148025148026_ + _hd140129140214_ + _hd140120140190_ + _hd140117140182_) + (___kont148027148028_)) + (___kont148027148028_)))) + (___kont148027148028_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274489274490_)) - (___kont274489274490_)))) - (___kont274489274490_)))) - (___kont274489274490_)) - (___kont274489274490_)))) - (___kont274489274490_)) - (___kont274489274490_)))) + (___kont148027148028_)) + (___kont148027148028_)))) + (___kont148027148028_)))) + (___kont148027148028_)) + (___kont148027148028_)))) + (___kont148027148028_)) + (___kont148027148028_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274489274490_)))) - (___kont274489274490_)) - (___kont274489274490_))) - (___kont274489274490_)))) - (___kont274489274490_)))) + (___kont148027148028_)))) + (___kont148027148028_)) + (___kont148027148028_))) + (___kont148027148028_)))) + (___kont148027148028_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274489274490_)) - (___kont274489274490_)) - (___kont274489274490_)))) - (___kont274489274490_))))))))) - (_assert-type260836_ - (lambda (_id261735_ _t261736_) - (let _lp261738_ ((_rest261740_ _env-type260818_)) - (let* ((_rest261741261749_ _rest261740_) - (_else261743261757_ (lambda () '#!void)) - (_K261745261821_ - (lambda (_rest261760_ _type-info261761_) - (let* ((_type-info261762261774_ - _type-info261761_) - (_else261764261782_ + (___kont148027148028_)) + (___kont148027148028_)) + (___kont148027148028_)))) + (___kont148027148028_))))))))) + (_assert-type138942_ + (lambda (_id139841_ _t139842_) + (let _lp139844_ ((_rest139846_ _env-type138924_)) + (let* ((_rest139847139855_ _rest139846_) + (_else139849139863_ (lambda () '#!void)) + (_K139851139927_ + (lambda (_rest139866_ _type-info139867_) + (let* ((_type-info139868139880_ + _type-info139867_) + (_else139870139888_ (lambda () (let () (declare (not safe)) - (_lp261738_ _rest261760_)))) - (_K261766261797_ - (lambda (_val261785_ - _xt261786_ - _xid261787_) + (_lp139844_ _rest139866_)))) + (_K139872139903_ + (lambda (_val139891_ + _xt139892_ + _xid139893_) (if (let () (declare (not safe)) (gx#free-identifier=? - _id261735_ - _xid261787_)) + _id139841_ + _xid139893_)) (if (let () (declare (not safe)) - (eq? _t261736_ - _xt261786_)) - _val261785_ - (if _val261785_ + (eq? _t139842_ + _xt139892_)) + _val139891_ + (if _val139891_ (if (let () (declare (not safe)) (##structure-instance-of? - _t261736_ + _t139842_ 'gxc#!class::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##structure-instance-of? _xt261786_ 'gxc#!class::t)) - (memq _t261736_ - (map (lambda (_g261788261790_) + (##structure-instance-of? _xt139892_ 'gxc#!class::t)) + (memq _t139842_ + (map (lambda (_g139894139896_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _xt261786_ - _g261788261790_))) + _xt139892_ + _g139894139896_))) (##structure-ref - _xt261786_ + _xt139892_ '3 gxc#!class::t '#f))) @@ -11184,3500 +11207,3511 @@ '#f) (if (and (let () (declare (not safe)) - (##structure-instance-of? _t261736_ 'gxc#!class::t)) + (##structure-instance-of? _t139842_ 'gxc#!class::t)) (let () (declare (not safe)) - (##structure-instance-of? _xt261786_ 'gxc#!class::t)) - (memq _xt261786_ - (map (lambda (_g261792261794_) + (##structure-instance-of? _xt139892_ 'gxc#!class::t)) + (memq _xt139892_ + (map (lambda (_g139898139900_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _t261736_ - _g261792261794_))) + _t139842_ + _g139898139900_))) (##structure-ref - _t261736_ + _t139842_ '3 gxc#!class::t '#f)))) '#f - (let () (declare (not safe)) (_lp261738_ _rest261760_))))) + (let () (declare (not safe)) (_lp139844_ _rest139866_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp261738_ _rest261760_)))))) + (_lp139844_ _rest139866_)))))) (if (let () (declare (not safe)) - (##pair? _type-info261762261774_)) - (let ((_hd261767261800_ + (##pair? _type-info139868139880_)) + (let ((_hd139873139906_ (let () (declare (not safe)) - (##car _type-info261762261774_))) - (_tl261768261802_ + (##car _type-info139868139880_))) + (_tl139874139908_ (let () (declare (not safe)) - (##cdr _type-info261762261774_)))) - (let ((_xid261805_ _hd261767261800_)) + (##cdr _type-info139868139880_)))) + (let ((_xid139911_ _hd139873139906_)) (if (let () (declare (not safe)) - (##pair? _tl261768261802_)) - (let ((_hd261769261807_ + (##pair? _tl139874139908_)) + (let ((_hd139875139913_ (let () (declare (not safe)) - (##car _tl261768261802_))) - (_tl261770261809_ + (##car _tl139874139908_))) + (_tl139876139915_ (let () (declare (not safe)) - (##cdr _tl261768261802_)))) - (let ((_xt261812_ - _hd261769261807_)) + (##cdr _tl139874139908_)))) + (let ((_xt139918_ + _hd139875139913_)) (if (let () (declare (not safe)) - (##pair? _tl261770261809_)) - (let ((_hd261771261814_ + (##pair? _tl139876139915_)) + (let ((_hd139877139920_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl261770261809_))) - (_tl261772261816_ - (let () (declare (not safe)) (##cdr _tl261770261809_)))) - (let ((_val261819_ _hd261771261814_)) - (if (let () (declare (not safe)) (##null? _tl261772261816_)) + (##car _tl139876139915_))) + (_tl139878139922_ + (let () (declare (not safe)) (##cdr _tl139876139915_)))) + (let ((_val139925_ _hd139877139920_)) + (if (let () (declare (not safe)) (##null? _tl139878139922_)) (let () (declare (not safe)) - (_K261766261797_ _val261819_ _xt261812_ _xid261805_)) - (let () (declare (not safe)) (_else261764261782_))))) - (let () (declare (not safe)) (_else261764261782_))))) + (_K139872139903_ _val139925_ _xt139918_ _xid139911_)) + (let () (declare (not safe)) (_else139870139888_))))) + (let () (declare (not safe)) (_else139870139888_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else261764261782_))))) + (_else139870139888_))))) (let () (declare (not safe)) - (_else261764261782_))))))) + (_else139870139888_))))))) (if (let () (declare (not safe)) - (##pair? _rest261741261749_)) - (let ((_hd261746261824_ + (##pair? _rest139847139855_)) + (let ((_hd139852139930_ (let () (declare (not safe)) - (##car _rest261741261749_))) - (_tl261747261826_ + (##car _rest139847139855_))) + (_tl139853139932_ (let () (declare (not safe)) - (##cdr _rest261741261749_)))) - (let* ((_type-info261829_ _hd261746261824_) - (_rest261831_ _tl261747261826_)) + (##cdr _rest139847139855_)))) + (let* ((_type-info139935_ _hd139852139930_) + (_rest139937_ _tl139853139932_)) (declare (not safe)) - (_K261745261821_ - _rest261831_ - _type-info261829_))) + (_K139851139927_ + _rest139937_ + _type-info139935_))) (let () (declare (not safe)) - (_else261743261757_))))))) - (_assert-count260837_ - (lambda (_id261634_ _sym261635_ _count261636_) - (let _lp261638_ ((_rest261640_ _env-type260818_)) - (let* ((_rest261641261649_ _rest261640_) - (_else261643261657_ (lambda () '#!void)) - (_K261645261723_ - (lambda (_rest261660_ _type-info261661_) - (let* ((_type-info261662261676_ - _type-info261661_) - (_else261664261684_ + (_else139849139863_))))))) + (_assert-count138943_ + (lambda (_id139740_ _sym139741_ _count139742_) + (let _lp139744_ ((_rest139746_ _env-type138924_)) + (let* ((_rest139747139755_ _rest139746_) + (_else139749139763_ (lambda () '#!void)) + (_K139751139829_ + (lambda (_rest139766_ _type-info139767_) + (let* ((_type-info139768139782_ + _type-info139767_) + (_else139770139790_ (lambda () (let () (declare (not safe)) - (_lp261638_ _rest261660_)))) - (_K261666261692_ - (lambda (_val261687_ - _xcount261688_ - _xsym261689_ - _xid261690_) + (_lp139744_ _rest139766_)))) + (_K139772139798_ + (lambda (_val139793_ + _xcount139794_ + _xsym139795_ + _xid139796_) (if (and (let () (declare (not safe)) - (eq? _sym261635_ - _xsym261689_)) + (eq? _sym139741_ + _xsym139795_)) (let () (declare (not safe)) (gx#free-identifier=? - _id261634_ - _xid261690_))) - (if _val261687_ - (fx= _count261636_ - _xcount261688_) - (if (fx= _count261636_ - _xcount261688_) + _id139740_ + _xid139796_))) + (if _val139793_ + (fx= _count139742_ + _xcount139794_) + (if (fx= _count139742_ + _xcount139794_) '#f (let () (declare (not safe)) - (_lp261638_ - _rest261660_)))) + (_lp139744_ + _rest139766_)))) (let () (declare (not safe)) - (_lp261638_ _rest261660_)))))) + (_lp139744_ _rest139766_)))))) (if (let () (declare (not safe)) - (##pair? _type-info261662261676_)) - (let ((_hd261667261695_ + (##pair? _type-info139768139782_)) + (let ((_hd139773139801_ (let () (declare (not safe)) - (##car _type-info261662261676_))) - (_tl261668261697_ + (##car _type-info139768139782_))) + (_tl139774139803_ (let () (declare (not safe)) - (##cdr _type-info261662261676_)))) - (let ((_xid261700_ _hd261667261695_)) + (##cdr _type-info139768139782_)))) + (let ((_xid139806_ _hd139773139801_)) (if (let () (declare (not safe)) - (##pair? _tl261668261697_)) - (let ((_hd261669261702_ + (##pair? _tl139774139803_)) + (let ((_hd139775139808_ (let () (declare (not safe)) - (##car _tl261668261697_))) - (_tl261670261704_ + (##car _tl139774139803_))) + (_tl139776139810_ (let () (declare (not safe)) - (##cdr _tl261668261697_)))) - (let ((_xsym261707_ - _hd261669261702_)) + (##cdr _tl139774139803_)))) + (let ((_xsym139813_ + _hd139775139808_)) (if (let () (declare (not safe)) - (##pair? _tl261670261704_)) - (let ((_hd261671261709_ + (##pair? _tl139776139810_)) + (let ((_hd139777139815_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl261670261704_))) - (_tl261672261711_ - (let () (declare (not safe)) (##cdr _tl261670261704_)))) - (let ((_xcount261714_ _hd261671261709_)) - (if (let () (declare (not safe)) (##pair? _tl261672261711_)) - (let ((_hd261673261716_ + (##car _tl139776139810_))) + (_tl139778139817_ + (let () (declare (not safe)) (##cdr _tl139776139810_)))) + (let ((_xcount139820_ _hd139777139815_)) + (if (let () (declare (not safe)) (##pair? _tl139778139817_)) + (let ((_hd139779139822_ (let () (declare (not safe)) - (##car _tl261672261711_))) - (_tl261674261718_ + (##car _tl139778139817_))) + (_tl139780139824_ (let () (declare (not safe)) - (##cdr _tl261672261711_)))) - (let ((_val261721_ _hd261673261716_)) + (##cdr _tl139778139817_)))) + (let ((_val139827_ _hd139779139822_)) (if (let () (declare (not safe)) - (##null? _tl261674261718_)) + (##null? _tl139780139824_)) (let () (declare (not safe)) - (_K261666261692_ - _val261721_ - _xcount261714_ - _xsym261707_ - _xid261700_)) + (_K139772139798_ + _val139827_ + _xcount139820_ + _xsym139813_ + _xid139806_)) (let () (declare (not safe)) - (_else261664261684_))))) - (let () (declare (not safe)) (_else261664261684_))))) - (let () (declare (not safe)) (_else261664261684_))))) + (_else139770139790_))))) + (let () (declare (not safe)) (_else139770139790_))))) + (let () (declare (not safe)) (_else139770139790_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else261664261684_))))) + (_else139770139790_))))) (let () (declare (not safe)) - (_else261664261684_))))))) + (_else139770139790_))))))) (if (let () (declare (not safe)) - (##pair? _rest261641261649_)) - (let ((_hd261646261726_ + (##pair? _rest139747139755_)) + (let ((_hd139752139832_ (let () (declare (not safe)) - (##car _rest261641261649_))) - (_tl261647261728_ + (##car _rest139747139755_))) + (_tl139753139834_ (let () (declare (not safe)) - (##cdr _rest261641261649_)))) - (let* ((_type-info261731_ _hd261646261726_) - (_rest261733_ _tl261647261728_)) + (##cdr _rest139747139755_)))) + (let* ((_type-info139837_ _hd139752139832_) + (_rest139839_ _tl139753139834_)) (declare (not safe)) - (_K261645261723_ - _rest261733_ - _type-info261731_))) + (_K139751139829_ + _rest139839_ + _type-info139837_))) (let () (declare (not safe)) - (_else261643261657_))))))) - (_assert-eqf260838_ - (lambda (_id261524_ _sym261525_ _datum261526_) - (letrec ((_eqf261528_ - (lambda (_sym261629_) - (let ((_$e261631_ _sym261629_)) + (_else139749139763_))))))) + (_assert-eqf138944_ + (lambda (_id139630_ _sym139631_ _datum139632_) + (letrec ((_eqf139634_ + (lambda (_sym139735_) + (let ((_$e139737_ _sym139735_)) (if (let () (declare (not safe)) - (eq? 'eq? _$e261631_)) + (eq? 'eq? _$e139737_)) eq? (if (let () (declare (not safe)) - (eq? 'eqv? _$e261631_)) + (eq? 'eqv? _$e139737_)) eqv? (if (let () (declare (not safe)) - (eq? 'equal? _$e261631_)) + (eq? 'equal? _$e139737_)) equal? (if (let () (declare (not safe)) (eq? 'free-identifier=? - _$e261631_)) + _$e139737_)) gx#free-identifier=? (if (let () (declare (not safe)) (eq? 'stx-eq? - _$e261631_)) + _$e139737_)) gx#stx-eq? (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected eqf symbol" - _body260579_ - _sym261629_))))))))))) - (let _lp261530_ ((_rest261532_ _env-type260818_)) - (let* ((_rest261533261541_ _rest261532_) - (_else261535261549_ (lambda () '#!void)) - (_K261537261617_ - (lambda (_rest261552_ _type-info261553_) - (let* ((_type-info261554261568_ - _type-info261553_) - (_else261556261576_ + _body138685_ + _sym139735_))))))))))) + (let _lp139636_ ((_rest139638_ _env-type138924_)) + (let* ((_rest139639139647_ _rest139638_) + (_else139641139655_ (lambda () '#!void)) + (_K139643139723_ + (lambda (_rest139658_ _type-info139659_) + (let* ((_type-info139660139674_ + _type-info139659_) + (_else139662139682_ (lambda () (let () (declare (not safe)) - (_lp261530_ _rest261552_)))) - (_K261558261586_ - (lambda (_val261579_ - _xdatum261580_ - _xsym261581_ - _xid261582_) + (_lp139636_ _rest139658_)))) + (_K139664139692_ + (lambda (_val139685_ + _xdatum139686_ + _xsym139687_ + _xid139688_) (if (and (let () (declare (not safe)) - (eq? _sym261525_ - _xsym261581_)) + (eq? _sym139631_ + _xsym139687_)) (let () (declare (not safe)) (gx#free-identifier=? - _id261524_ - _xid261582_))) - (let ((_=?261584_ + _id139630_ + _xid139688_))) + (let ((_=?139690_ (let () (declare (not safe)) - (_eqf261528_ - _sym261525_)))) - (if _val261579_ - (_=?261584_ - _datum261526_ - _xdatum261580_) - (if (_=?261584_ - _datum261526_ - _xdatum261580_) + (_eqf139634_ + _sym139631_)))) + (if _val139685_ + (_=?139690_ + _datum139632_ + _xdatum139686_) + (if (_=?139690_ + _datum139632_ + _xdatum139686_) '#f (let () (declare (not safe)) - (_lp261530_ - _rest261552_))))) + (_lp139636_ + _rest139658_))))) (let () (declare (not safe)) - (_lp261530_ - _rest261552_)))))) + (_lp139636_ + _rest139658_)))))) (if (let () (declare (not safe)) - (##pair? _type-info261554261568_)) - (let ((_hd261559261589_ + (##pair? _type-info139660139674_)) + (let ((_hd139665139695_ (let () (declare (not safe)) - (##car _type-info261554261568_))) - (_tl261560261591_ + (##car _type-info139660139674_))) + (_tl139666139697_ (let () (declare (not safe)) - (##cdr _type-info261554261568_)))) - (let ((_xid261594_ - _hd261559261589_)) + (##cdr _type-info139660139674_)))) + (let ((_xid139700_ + _hd139665139695_)) (if (let () (declare (not safe)) - (##pair? _tl261560261591_)) - (let ((_hd261561261596_ + (##pair? _tl139666139697_)) + (let ((_hd139667139702_ (let () (declare (not safe)) - (##car _tl261560261591_))) - (_tl261562261598_ + (##car _tl139666139697_))) + (_tl139668139704_ (let () (declare (not safe)) - (##cdr _tl261560261591_)))) - (let ((_xsym261601_ - _hd261561261596_)) + (##cdr _tl139666139697_)))) + (let ((_xsym139707_ + _hd139667139702_)) (if (let () (declare (not safe)) - (##pair? _tl261562261598_)) - (let ((_hd261563261603_ + (##pair? _tl139668139704_)) + (let ((_hd139669139709_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _tl261562261598_))) - (_tl261564261605_ + (##car _tl139668139704_))) + (_tl139670139711_ (let () (declare (not safe)) - (##cdr _tl261562261598_)))) - (let ((_xdatum261608_ _hd261563261603_)) + (##cdr _tl139668139704_)))) + (let ((_xdatum139714_ _hd139669139709_)) (if (let () (declare (not safe)) - (##pair? _tl261564261605_)) - (let ((_hd261565261610_ + (##pair? _tl139670139711_)) + (let ((_hd139671139716_ (let () (declare (not safe)) - (##car _tl261564261605_))) - (_tl261566261612_ + (##car _tl139670139711_))) + (_tl139672139718_ (let () (declare (not safe)) - (##cdr _tl261564261605_)))) - (let ((_val261615_ _hd261565261610_)) + (##cdr _tl139670139711_)))) + (let ((_val139721_ _hd139671139716_)) (if (let () (declare (not safe)) - (##null? _tl261566261612_)) + (##null? _tl139672139718_)) (let () (declare (not safe)) - (_K261558261586_ - _val261615_ - _xdatum261608_ - _xsym261601_ - _xid261594_)) + (_K139664139692_ + _val139721_ + _xdatum139714_ + _xsym139707_ + _xid139700_)) (let () (declare (not safe)) - (_else261556261576_))))) - (let () (declare (not safe)) (_else261556261576_))))) - (let () (declare (not safe)) (_else261556261576_))))) + (_else139662139682_))))) + (let () (declare (not safe)) (_else139662139682_))))) + (let () (declare (not safe)) (_else139662139682_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else261556261576_))))) + (_else139662139682_))))) (let () (declare (not safe)) - (_else261556261576_))))))) + (_else139662139682_))))))) (if (let () (declare (not safe)) - (##pair? _rest261533261541_)) - (let ((_hd261538261620_ + (##pair? _rest139639139647_)) + (let ((_hd139644139726_ (let () (declare (not safe)) - (##car _rest261533261541_))) - (_tl261539261622_ + (##car _rest139639139647_))) + (_tl139645139728_ (let () (declare (not safe)) - (##cdr _rest261533261541_)))) - (let* ((_type-info261625_ _hd261538261620_) - (_rest261627_ _tl261539261622_)) + (##cdr _rest139639139647_)))) + (let* ((_type-info139731_ _hd139644139726_) + (_rest139733_ _tl139645139728_)) (declare (not safe)) - (_K261537261617_ - _rest261627_ - _type-info261625_))) + (_K139643139723_ + _rest139733_ + _type-info139731_))) (let () (declare (not safe)) - (_else261535261549_)))))))) - (_bind-e__272858272859_ - (lambda (_bind261427_ _body261428_ _continue261429_) - (let _lp261431_ ((_rest261433_ _bind261427_) - (_subst261434_ '()) - (_locals261435_ '()) - (_env261436_ _env-bind260819_)) - (let* ((_rest261437261445_ _rest261433_) - (_else261439261459_ + (_else139641139655_)))))))) + (_bind-e__146396146397_ + (lambda (_bind139533_ _body139534_ _continue139535_) + (let _lp139537_ ((_rest139539_ _bind139533_) + (_subst139540_ '()) + (_locals139541_ '()) + (_env139542_ _env-bind138925_)) + (let* ((_rest139543139551_ _rest139539_) + (_else139545139565_ (lambda () - (let* ((_body261453_ + (let* ((_body139559_ (if (let () (declare (not safe)) - (null? _subst261434_)) - _body261428_ + (null? _subst139540_)) + _body139534_ (let () (declare (not safe)) (gxc#apply-expression-subst* - _body261428_ - _subst261434_)))) - (_body261456_ - (let ((__tmp276299 + _body139534_ + _subst139540_)))) + (_body139562_ + (let ((__tmp149837 (lambda () - (_continue261429_ - _body261453_)))) + (_continue139535_ + _body139559_)))) (declare (not safe)) - (_do-bind!260830_ - _env261436_ - __tmp276299)))) + (_do-bind!138936_ + _env139542_ + __tmp149837)))) (if (let () (declare (not safe)) - (null? _locals261435_)) - _body261456_ - (let ((__tmp276300 - (let ((__tmp276301 + (null? _locals139541_)) + _body139562_ + (let ((__tmp149838 + (let ((__tmp149839 (let () (declare (not safe)) - (cons _body261456_ + (cons _body139562_ '())))) (declare (not safe)) - (cons _locals261435_ - __tmp276301)))) + (cons _locals139541_ + __tmp149839)))) (declare (not safe)) - (cons '%#let-values __tmp276300)))))) - (_K261441261500_ - (lambda (_rest261462_ _bind261463_) - (let* ((_bind261464261471_ _bind261463_) - (_E261466261475_ + (cons '%#let-values __tmp149838)))))) + (_K139547139606_ + (lambda (_rest139568_ _bind139569_) + (let* ((_bind139570139577_ _bind139569_) + (_E139572139581_ (lambda () - (error '"No clause matching" - _bind261464261471_))) - (_K261467261488_ - (lambda (_expr261478_ _id261479_) - (let* ((_sexpr261481_ + (let () + (declare (not safe)) + (error '"No clause matching" + _bind139570139577_)))) + (_K139573139594_ + (lambda (_expr139584_ _id139585_) + (let* ((_sexpr139587_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr261478_))) - (_$e261483_ + _expr139584_))) + (_$e139589_ (let () (declare (not safe)) - (assget _sexpr261481_ - _env-bind260819_)))) - (if _$e261483_ - ((lambda (_xid261486_) - (let ((__tmp276308 - (let ((__tmp276309 + (assget__0 + _sexpr139587_ + _env-bind138925_)))) + (if _$e139589_ + ((lambda (_xid139592_) + (let ((__tmp149846 + (let ((__tmp149847 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id261479_ _xid261486_)))) + (cons _id139585_ _xid139592_)))) (declare (not safe)) - (cons __tmp276309 _subst261434_)))) + (cons __tmp149847 _subst139540_)))) (declare (not safe)) - (_lp261431_ - _rest261462_ - __tmp276308 - _locals261435_ - _env261436_))) + (_lp139537_ + _rest139568_ + __tmp149846 + _locals139541_ + _env139542_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e261483_) - (let ((__tmp276304 - (let ((__tmp276305 - (let ((__tmp276307 + _$e139589_) + (let ((__tmp149842 + (let ((__tmp149843 + (let ((__tmp149845 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id261479_ '()))) - (__tmp276306 + (cons _id139585_ '()))) + (__tmp149844 (let () (declare (not safe)) - (cons _expr261478_ '())))) + (cons _expr139584_ '())))) (declare (not safe)) - (cons __tmp276307 __tmp276306)))) + (cons __tmp149845 __tmp149844)))) (declare (not safe)) - (cons __tmp276305 _locals261435_))) - (__tmp276302 - (let ((__tmp276303 + (cons __tmp149843 _locals139541_))) + (__tmp149840 + (let ((__tmp149841 (let () (declare (not safe)) - (cons _sexpr261481_ _id261479_)))) + (cons _sexpr139587_ _id139585_)))) (declare (not safe)) - (cons __tmp276303 _env261436_)))) + (cons __tmp149841 _env139542_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp261431_ - _rest261462_ - _subst261434_ - __tmp276304 - __tmp276302))))))) + (_lp139537_ + _rest139568_ + _subst139540_ + __tmp149842 + __tmp149840))))))) (if (let () (declare (not safe)) - (##pair? _bind261464261471_)) - (let ((_hd261468261491_ + (##pair? _bind139570139577_)) + (let ((_hd139574139597_ (let () (declare (not safe)) - (##car _bind261464261471_))) - (_tl261469261493_ + (##car _bind139570139577_))) + (_tl139575139599_ (let () (declare (not safe)) - (##cdr _bind261464261471_)))) - (let* ((_id261496_ _hd261468261491_) - (_expr261498_ - _tl261469261493_)) + (##cdr _bind139570139577_)))) + (let* ((_id139602_ _hd139574139597_) + (_expr139604_ + _tl139575139599_)) (declare (not safe)) - (_K261467261488_ - _expr261498_ - _id261496_))) + (_K139573139594_ + _expr139604_ + _id139602_))) (let () (declare (not safe)) - (_E261466261475_))))))) + (_E139572139581_))))))) (if (let () (declare (not safe)) - (##pair? _rest261437261445_)) - (let ((_hd261442261503_ + (##pair? _rest139543139551_)) + (let ((_hd139548139609_ (let () (declare (not safe)) - (##car _rest261437261445_))) - (_tl261443261505_ + (##car _rest139543139551_))) + (_tl139549139611_ (let () (declare (not safe)) - (##cdr _rest261437261445_)))) - (let* ((_bind261508_ _hd261442261503_) - (_rest261510_ _tl261443261505_)) + (##cdr _rest139543139551_)))) + (let* ((_bind139614_ _hd139548139609_) + (_rest139616_ _tl139549139611_)) (declare (not safe)) - (_K261441261500_ _rest261510_ _bind261508_))) + (_K139547139606_ _rest139616_ _bind139614_))) (let () (declare (not safe)) - (_else261439261459_))))))) - (_bind-e__0__272860272861_ - (lambda (_bind261515_ _body261516_) - (let ((_continue261518_ _optimize-e260832_)) + (_else139545139565_))))))) + (_bind-e__0__146398146399_ + (lambda (_bind139621_ _body139622_) + (let ((_continue139624_ _optimize-e138938_)) (declare (not safe)) - (_bind-e__272858272859_ - _bind261515_ - _body261516_ - _continue261518_)))) - (_bind-e260839_ - (lambda _g276311_ - (let ((_g276310_ + (_bind-e__146396146397_ + _bind139621_ + _body139622_ + _continue139624_)))) + (_bind-e138945_ + (lambda _g149849_ + (let ((_g149848_ (let () (declare (not safe)) - (##length _g276311_)))) - (cond ((let () (declare (not safe)) (##fx= _g276310_ 2)) - (apply (lambda (_bind261515_ _body261516_) + (##length _g149849_)))) + (cond ((let () (declare (not safe)) (##fx= _g149848_ 2)) + (apply (lambda (_bind139621_ _body139622_) (let () (declare (not safe)) - (_bind-e__0__272860272861_ - _bind261515_ - _body261516_))) - _g276311_)) - ((let () (declare (not safe)) (##fx= _g276310_ 3)) - (apply (lambda (_bind261520_ - _body261521_ - _continue261522_) + (_bind-e__0__146398146399_ + _bind139621_ + _body139622_))) + _g149849_)) + ((let () (declare (not safe)) (##fx= _g149848_ 3)) + (apply (lambda (_bind139626_ + _body139627_ + _continue139628_) (let () (declare (not safe)) - (_bind-e__272858272859_ - _bind261520_ - _body261521_ - _continue261522_))) - _g276311_)) + (_bind-e__146396146397_ + _bind139626_ + _body139627_ + _continue139628_))) + _g149849_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g276311_)))))) - (_lookup-block260840_ - (lambda (_id261422_) - (let ((__tmp276312 - (lambda (_block261424_) - (let ((__tmp276313 (car _block261424_))) + _g149849_)))))) + (_lookup-block138946_ + (lambda (_id139528_) + (let ((__tmp149850 + (lambda (_block139530_) + (let ((__tmp149851 (car _block139530_))) (declare (not safe)) (gx#free-identifier=? - __tmp276313 - _id261422_))))) + __tmp149851 + _id139528_))))) (declare (not safe)) - (find __tmp276312 _blocks260582_)))) - (_inline-block260841_ - (lambda (_block261298_ _args261299_) - (let* ((_kont261301_ (caddr _block261298_)) - (_g261303261329_ - (lambda (_g261304261326_) + (find __tmp149850 _blocks138688_)))) + (_inline-block138947_ + (lambda (_block139404_ _args139405_) + (let* ((_kont139407_ (caddr _block139404_)) + (_g139409139435_ + (lambda (_g139410139432_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g261304261326_)))) - (_g261302261419_ - (lambda (_g261304261332_) + _g139410139432_)))) + (_g139408139525_ + (lambda (_g139410139438_) (if (let () (declare (not safe)) - (gx#stx-pair? _g261304261332_)) - (let ((_e261309261334_ + (gx#stx-pair? _g139410139438_)) + (let ((_e139415139440_ (let () (declare (not safe)) - (gx#stx-e _g261304261332_)))) - (let ((_hd261308261337_ + (gx#stx-e _g139410139438_)))) + (let ((_hd139414139443_ (let () (declare (not safe)) - (##car _e261309261334_))) - (_tl261307261339_ + (##car _e139415139440_))) + (_tl139413139445_ (let () (declare (not safe)) - (##cdr _e261309261334_)))) + (##cdr _e139415139440_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd261308261337_)) + (gx#identifier? _hd139414139443_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd261308261337_)) + _hd139414139443_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl261307261339_)) - (let ((_e261312261342_ + _tl139413139445_)) + (let ((_e139418139448_ (let () (declare (not safe)) (gx#stx-e - _tl261307261339_)))) - (let ((_hd261311261345_ + _tl139413139445_)))) + (let ((_hd139417139451_ (let () (declare (not safe)) - (##car _e261312261342_))) - (_tl261310261347_ + (##car _e139418139448_))) + (_tl139416139453_ (let () (declare (not safe)) - (##cdr _e261312261342_)))) + (##cdr _e139418139448_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd261311261345_)) - (let ((_g276314_ + _hd139417139451_)) + (let ((_g149852_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd261311261345_ '0)))) + (gx#syntax-split-splice _hd139417139451_ '0)))) (begin - (let ((_g276315_ + (let ((_g149853_ (let () (declare (not safe)) - (if (##values? _g276314_) - (##vector-length _g276314_) + (if (##values? _g149852_) + (##vector-length _g149852_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g276315_ 2))) - (error "Context expects 2 values" _g276315_))) - (let ((_target261313261350_ + (##fx= _g149853_ 2))) + (error "Context expects 2 values" _g149853_))) + (let ((_target139419139456_ (let () (declare (not safe)) - (##vector-ref _g276314_ 0))) - (_tl261315261352_ + (##vector-ref _g149852_ 0))) + (_tl139421139458_ (let () (declare (not safe)) - (##vector-ref _g276314_ 1)))) + (##vector-ref _g149852_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261315261352_)) - (letrec ((_loop261316261355_ - (lambda (_hd261314261358_ - _id261320261360_) + (gx#stx-null? _tl139421139458_)) + (letrec ((_loop139422139461_ + (lambda (_hd139420139464_ + _id139426139466_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd261314261358_)) - (let ((_e261317261363_ + (gx#stx-pair? _hd139420139464_)) + (let ((_e139423139469_ (let () (declare (not safe)) (gx#stx-e - _hd261314261358_)))) - (let ((_lp-hd261318261366_ + _hd139420139464_)))) + (let ((_lp-hd139424139472_ (let () (declare (not safe)) - (##car _e261317261363_))) - (_lp-tl261319261368_ + (##car _e139423139469_))) + (_lp-tl139425139474_ (let () (declare (not safe)) - (##cdr _e261317261363_)))) - (let ((__tmp276319 + (##cdr _e139423139469_)))) + (let ((__tmp149857 (let () (declare (not safe)) - (cons _lp-hd261318261366_ - _id261320261360_)))) + (cons _lp-hd139424139472_ + _id139426139466_)))) (declare (not safe)) - (_loop261316261355_ - _lp-tl261319261368_ - __tmp276319)))) - (let ((_id261321261371_ - (reverse _id261320261360_))) + (_loop139422139461_ + _lp-tl139425139474_ + __tmp149857)))) + (let ((_id139427139477_ + (reverse _id139426139466_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl261310261347_)) - (let ((_e261324261374_ + _tl139416139453_)) + (let ((_e139430139480_ (let () (declare (not safe)) (gx#stx-e - _tl261310261347_)))) - (let ((_hd261323261377_ + _tl139416139453_)))) + (let ((_hd139429139483_ (let () (declare (not safe)) - (##car _e261324261374_))) - (_tl261322261379_ + (##car _e139430139480_))) + (_tl139428139485_ (let () (declare (not safe)) - (##cdr _e261324261374_)))) + (##cdr _e139430139480_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl261322261379_)) - ((lambda (_L261382_ + _tl139428139485_)) + ((lambda (_L139488_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L261383_) - (if (let ((__tmp276317 - (let ((__tmp276318 - (lambda (_g261402261405_ - _g261403261407_) + _L139489_) + (if (let ((__tmp149855 + (let ((__tmp149856 + (lambda (_g139508139511_ + _g139509139513_) (let () (declare (not safe)) - (cons _g261402261405_ - _g261403261407_))))) + (cons _g139508139511_ + _g139509139513_))))) (declare (not safe)) - (foldr1 __tmp276318 '() _L261383_)))) + (foldr1 __tmp149856 '() _L139489_)))) (declare (not safe)) - (null? __tmp276317)) - _L261382_ - (let ((_subst261417_ + (null? __tmp149855)) + _L139488_ + (let ((_subst139523_ (map cons - (let ((__tmp276316 - (lambda (_g261409261412_ - _g261410261414_) + (let ((__tmp149854 + (lambda (_g139515139518_ + _g139516139520_) (let () (declare (not safe)) - (cons _g261409261412_ - _g261410261414_))))) + (cons _g139515139518_ + _g139516139520_))))) (declare (not safe)) - (foldr1 __tmp276316 '() _L261383_)) - _args261299_))) + (foldr1 __tmp149854 '() _L139489_)) + _args139405_))) (declare (not safe)) (gxc#apply-expression-subst* - _L261382_ - _subst261417_)))) - _hd261323261377_ - _id261321261371_) + _L139488_ + _subst139523_)))) + _hd139429139483_ + _id139427139477_) (let () (declare (not safe)) - (_g261303261329_ _g261304261332_))))) + (_g139409139435_ _g139410139438_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g261303261329_ - _g261304261332_)))))))) + (_g139409139435_ + _g139410139438_)))))))) (let () (declare (not safe)) - (_loop261316261355_ - _target261313261350_ + (_loop139422139461_ + _target139419139456_ '()))) (let () (declare (not safe)) - (_g261303261329_ _g261304261332_)))))) + (_g139409139435_ _g139410139438_)))))) (let () (declare (not safe)) - (_g261303261329_ _g261304261332_))))) + (_g139409139435_ _g139410139438_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g261303261329_ - _g261304261332_))) + (_g139409139435_ + _g139410139438_))) (let () (declare (not safe)) - (_g261303261329_ - _g261304261332_))) + (_g139409139435_ + _g139410139438_))) (let () (declare (not safe)) - (_g261303261329_ - _g261304261332_))))) + (_g139409139435_ + _g139410139438_))))) (let () (declare (not safe)) - (_g261303261329_ _g261304261332_)))))) + (_g139409139435_ _g139410139438_)))))) (declare (not safe)) - (_g261302261419_ _kont261301_)))) - (_nonlinear-block?260842_ - (lambda (_block260847_) - (letrec ((_nonlinear-expr?260849_ - (lambda (_expr260957_) - (let* ((___stx274945274946_ _expr260957_) - (_g260963261029_ + (_g139408139525_ _kont139407_)))) + (_nonlinear-block?138948_ + (lambda (_block138953_) + (letrec ((_nonlinear-expr?138955_ + (lambda (_expr139063_) + (let* ((___stx148483148484_ _expr139063_) + (_g139069139135_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx274945274946_))))) - (let ((___kont274947274948_ (lambda () '#t)) - (___kont274949274950_ - (lambda (_L261228_) - (let* ((___stx274927274928_ - _L261228_) - (_g261246261255_ + ___stx148483148484_))))) + (let ((___kont148485148486_ (lambda () '#t)) + (___kont148487148488_ + (lambda (_L139334_) + (let* ((___stx148465148466_ + _L139334_) + (_g139352139361_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx274927274928_))))) - (let ((___kont274929274930_ + ___stx148465148466_))))) + (let ((___kont148467148468_ (lambda () '#f)) - (___kont274931274932_ + (___kont148469148470_ (lambda () '#t))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx274927274928_)) - (let ((_e261250261267_ + ___stx148465148466_)) + (let ((_e139356139373_ (let () (declare (not safe)) (gx#stx-e - ___stx274927274928_)))) - (let ((_tl261248261272_ + ___stx148465148466_)))) + (let ((_tl139354139378_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e261250261267_))) - (_hd261249261270_ - (let () (declare (not safe)) (##car _e261250261267_)))) + (##cdr _e139356139373_))) + (_hd139355139376_ + (let () (declare (not safe)) (##car _e139356139373_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd261249261270_)) + (gx#identifier? _hd139355139376_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd261249261270_)) - (___kont274929274930_) - (___kont274931274932_)) - (___kont274931274932_)))) + (gx#stx-eq? '%#call _hd139355139376_)) + (___kont148467148468_) + (___kont148469148470_)) + (___kont148469148470_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274931274932_)))))) - (___kont274953274954_ - (lambda (_L261126_) + (___kont148469148470_)))))) + (___kont148491148492_ + (lambda (_L139232_) (let () (declare (not safe)) - (_nonlinear-expr?260849_ - _L261126_)))) - (___kont274955274956_ - (lambda (_L261073_ - _L261074_ - _L261075_) - (let ((_$e261094_ + (_nonlinear-expr?138955_ + _L139232_)))) + (___kont148493148494_ + (lambda (_L139179_ + _L139180_ + _L139181_) + (let ((_$e139200_ (let () (declare (not safe)) - (_nonlinear-expr?260849_ - _L261074_)))) - (if _$e261094_ - _$e261094_ + (_nonlinear-expr?138955_ + _L139180_)))) + (if _$e139200_ + _$e139200_ (let () (declare (not safe)) - (_nonlinear-expr?260849_ - _L261073_)))))) - (___kont274957274958_ + (_nonlinear-expr?138955_ + _L139179_)))))) + (___kont148495148496_ (lambda () '#f))) - (let* ((___match275008275009_ - (lambda (_e261003261102_ - _hd261002261105_ - _tl261001261107_ - _e261006261110_ - _hd261005261113_ - _tl261004261115_) + (let* ((___match148546148547_ + (lambda (_e139109139208_ + _hd139108139211_ + _tl139107139213_ + _e139112139216_ + _hd139111139219_ + _tl139110139221_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl261004261115_)) - (let ((_e261009261118_ + _tl139110139221_)) + (let ((_e139115139224_ (let () (declare (not safe)) (gx#stx-e - _tl261004261115_)))) - (let ((_tl261007261123_ + _tl139110139221_)))) + (let ((_tl139113139229_ (let () (declare (not safe)) - (##cdr _e261009261118_))) - (_hd261008261121_ + (##cdr _e139115139224_))) + (_hd139114139227_ (let () (declare (not safe)) - (##car _e261009261118_)))) + (##car _e139115139224_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl261007261123_)) - (___kont274953274954_ - _hd261008261121_) - (___kont274957274958_)))) - (___kont274957274958_)))) - (___match274992274993_ - (lambda (_e260971261144_ - _hd260970261147_ - _tl260969261149_ - _e260974261152_ - _hd260973261155_ - _tl260972261157_ - ___splice274951274952_ - _target260975261160_ - _tl260977261162_) - (letrec ((_loop260978261165_ - (lambda (_hd260976261168_) + _tl139113139229_)) + (___kont148491148492_ + _hd139114139227_) + (___kont148495148496_)))) + (___kont148495148496_)))) + (___match148530148531_ + (lambda (_e139077139250_ + _hd139076139253_ + _tl139075139255_ + _e139080139258_ + _hd139079139261_ + _tl139078139263_ + ___splice148489148490_ + _target139081139266_ + _tl139083139268_) + (letrec ((_loop139084139271_ + (lambda (_hd139082139274_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _hd260976261168_)) - (let ((_e260979261171_ + (gx#stx-pair? _hd139082139274_)) + (let ((_e139085139277_ (let () (declare (not safe)) - (gx#stx-e _hd260976261168_)))) - (let ((_lp-tl260981261176_ + (gx#stx-e _hd139082139274_)))) + (let ((_lp-tl139087139282_ (let () (declare (not safe)) - (##cdr _e260979261171_))) - (_lp-hd260980261174_ + (##cdr _e139085139277_))) + (_lp-hd139086139280_ (let () (declare (not safe)) - (##car _e260979261171_)))) + (##car _e139085139277_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd260980261174_)) - (let ((_e260984261179_ + (gx#stx-pair? _lp-hd139086139280_)) + (let ((_e139090139285_ (let () (declare (not safe)) - (gx#stx-e _lp-hd260980261174_)))) - (let ((_tl260982261184_ + (gx#stx-e _lp-hd139086139280_)))) + (let ((_tl139088139290_ (let () (declare (not safe)) - (##cdr _e260984261179_))) - (_hd260983261182_ + (##cdr _e139090139285_))) + (_hd139089139288_ (let () (declare (not safe)) - (##car _e260984261179_)))) + (##car _e139090139285_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd260983261182_)) - (let ((_e260987261187_ + (gx#stx-pair? _hd139089139288_)) + (let ((_e139093139293_ (let () (declare (not safe)) - (gx#stx-e _hd260983261182_)))) - (let ((_tl260985261192_ + (gx#stx-e _hd139089139288_)))) + (let ((_tl139091139298_ (let () (declare (not safe)) - (##cdr _e260987261187_))) - (_hd260986261190_ + (##cdr _e139093139293_))) + (_hd139092139296_ (let () (declare (not safe)) - (##car _e260987261187_)))) + (##car _e139093139293_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl260985261192_)) + _tl139091139298_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260982261184_)) - (let ((_e260990261195_ + _tl139088139290_)) + (let ((_e139096139301_ (let () (declare (not safe)) (gx#stx-e - _tl260982261184_)))) - (let ((_tl260988261200_ + _tl139088139290_)))) + (let ((_tl139094139306_ (let () (declare (not safe)) - (##cdr _e260990261195_))) - (_hd260989261198_ + (##cdr _e139096139301_))) + (_hd139095139304_ (let () (declare (not safe)) - (##car _e260990261195_)))) + (##car _e139096139301_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd260989261198_)) - (let ((_e260993261203_ + _hd139095139304_)) + (let ((_e139099139309_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd260989261198_)))) - (let ((_tl260991261208_ + (gx#stx-e _hd139095139304_)))) + (let ((_tl139097139314_ (let () (declare (not safe)) - (##cdr _e260993261203_))) - (_hd260992261206_ + (##cdr _e139099139309_))) + (_hd139098139312_ (let () (declare (not safe)) - (##car _e260993261203_)))) + (##car _e139099139309_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd260992261206_)) + (gx#identifier? _hd139098139312_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd260992261206_)) + (gx#stx-eq? '%#ref _hd139098139312_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260991261208_)) - (let ((_e260996261211_ + (gx#stx-pair? _tl139097139314_)) + (let ((_e139102139317_ (let () (declare (not safe)) - (gx#stx-e _tl260991261208_)))) - (let ((_tl260994261216_ + (gx#stx-e _tl139097139314_)))) + (let ((_tl139100139322_ (let () (declare (not safe)) - (##cdr _e260996261211_))) - (_hd260995261214_ + (##cdr _e139102139317_))) + (_hd139101139320_ (let () (declare (not safe)) - (##car _e260996261211_)))) + (##car _e139102139317_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260994261216_)) + (gx#stx-null? _tl139100139322_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl260988261200_)) + _tl139094139306_)) (let () (declare (not safe)) - (_loop260978261165_ - _lp-tl260981261176_)) - (___match275008275009_ - _e260971261144_ - _hd260970261147_ - _tl260969261149_ - _e260974261152_ - _hd260973261155_ - _tl260972261157_)) - (___match275008275009_ - _e260971261144_ - _hd260970261147_ - _tl260969261149_ - _e260974261152_ - _hd260973261155_ - _tl260972261157_)))) - (___match275008275009_ - _e260971261144_ - _hd260970261147_ - _tl260969261149_ - _e260974261152_ - _hd260973261155_ - _tl260972261157_)) - (___match275008275009_ - _e260971261144_ - _hd260970261147_ - _tl260969261149_ - _e260974261152_ - _hd260973261155_ - _tl260972261157_)) - (___match275008275009_ - _e260971261144_ - _hd260970261147_ - _tl260969261149_ - _e260974261152_ - _hd260973261155_ - _tl260972261157_)))) - (___match275008275009_ - _e260971261144_ - _hd260970261147_ - _tl260969261149_ - _e260974261152_ - _hd260973261155_ - _tl260972261157_)))) + (_loop139084139271_ + _lp-tl139087139282_)) + (___match148546148547_ + _e139077139250_ + _hd139076139253_ + _tl139075139255_ + _e139080139258_ + _hd139079139261_ + _tl139078139263_)) + (___match148546148547_ + _e139077139250_ + _hd139076139253_ + _tl139075139255_ + _e139080139258_ + _hd139079139261_ + _tl139078139263_)))) + (___match148546148547_ + _e139077139250_ + _hd139076139253_ + _tl139075139255_ + _e139080139258_ + _hd139079139261_ + _tl139078139263_)) + (___match148546148547_ + _e139077139250_ + _hd139076139253_ + _tl139075139255_ + _e139080139258_ + _hd139079139261_ + _tl139078139263_)) + (___match148546148547_ + _e139077139250_ + _hd139076139253_ + _tl139075139255_ + _e139080139258_ + _hd139079139261_ + _tl139078139263_)))) + (___match148546148547_ + _e139077139250_ + _hd139076139253_ + _tl139075139255_ + _e139080139258_ + _hd139079139261_ + _tl139078139263_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match275008275009_ - _e260971261144_ - _hd260970261147_ - _tl260969261149_ - _e260974261152_ - _hd260973261155_ - _tl260972261157_)) - (___match275008275009_ - _e260971261144_ - _hd260970261147_ - _tl260969261149_ - _e260974261152_ - _hd260973261155_ - _tl260972261157_)))) - (___match275008275009_ - _e260971261144_ - _hd260970261147_ - _tl260969261149_ - _e260974261152_ - _hd260973261155_ - _tl260972261157_)))) - (___match275008275009_ - _e260971261144_ - _hd260970261147_ - _tl260969261149_ - _e260974261152_ - _hd260973261155_ - _tl260972261157_)))) + (___match148546148547_ + _e139077139250_ + _hd139076139253_ + _tl139075139255_ + _e139080139258_ + _hd139079139261_ + _tl139078139263_)) + (___match148546148547_ + _e139077139250_ + _hd139076139253_ + _tl139075139255_ + _e139080139258_ + _hd139079139261_ + _tl139078139263_)))) + (___match148546148547_ + _e139077139250_ + _hd139076139253_ + _tl139075139255_ + _e139080139258_ + _hd139079139261_ + _tl139078139263_)))) + (___match148546148547_ + _e139077139250_ + _hd139076139253_ + _tl139075139255_ + _e139080139258_ + _hd139079139261_ + _tl139078139263_)))) (let () (if (let () (declare (not safe)) - (gx#stx-pair? _tl260972261157_)) - (let ((_e260999261220_ + (gx#stx-pair? _tl139078139263_)) + (let ((_e139105139326_ (let () (declare (not safe)) - (gx#stx-e _tl260972261157_)))) - (let ((_tl260997261225_ + (gx#stx-e _tl139078139263_)))) + (let ((_tl139103139331_ (let () (declare (not safe)) - (##cdr _e260999261220_))) - (_hd260998261223_ + (##cdr _e139105139326_))) + (_hd139104139329_ (let () (declare (not safe)) - (##car _e260999261220_)))) + (##car _e139105139326_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260997261225_)) - (___kont274949274950_ _hd260998261223_) - (___kont274957274958_)))) - (___kont274957274958_))))))) + (gx#stx-null? _tl139103139331_)) + (___kont148487148488_ _hd139104139329_) + (___kont148495148496_)))) + (___kont148495148496_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop260978261165_ - _target260975261160_)))))) + (_loop139084139271_ + _target139081139266_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx274945274946_)) - (let ((_e260967261285_ + ___stx148483148484_)) + (let ((_e139073139391_ (let () (declare (not safe)) (gx#stx-e - ___stx274945274946_)))) - (let ((_tl260965261290_ + ___stx148483148484_)))) + (let ((_tl139071139396_ (let () (declare (not safe)) - (##cdr _e260967261285_))) - (_hd260966261288_ + (##cdr _e139073139391_))) + (_hd139072139394_ (let () (declare (not safe)) - (##car _e260967261285_)))) + (##car _e139073139391_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd260966261288_)) + _hd139072139394_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd260966261288_)) - (___kont274947274948_) + _hd139072139394_)) + (___kont148485148486_) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd260966261288_)) + _hd139072139394_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl260965261290_)) - (let ((_e260974261152_ + (gx#stx-pair? _tl139071139396_)) + (let ((_e139080139258_ (let () (declare (not safe)) - (gx#stx-e _tl260965261290_)))) - (let ((_tl260972261157_ + (gx#stx-e _tl139071139396_)))) + (let ((_tl139078139263_ (let () (declare (not safe)) - (##cdr _e260974261152_))) - (_hd260973261155_ + (##cdr _e139080139258_))) + (_hd139079139261_ (let () (declare (not safe)) - (##car _e260974261152_)))) + (##car _e139080139258_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd260973261155_)) - (let ((___splice274951274952_ + (gx#stx-pair/null? _hd139079139261_)) + (let ((___splice148489148490_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd260973261155_ + _hd139079139261_ '0)))) - (let ((_tl260977261162_ + (let ((_tl139083139268_ (let () (declare (not safe)) (##vector-ref - ___splice274951274952_ + ___splice148489148490_ '1))) - (_target260975261160_ + (_target139081139266_ (let () (declare (not safe)) (##vector-ref - ___splice274951274952_ + ___splice148489148490_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260977261162_)) - (___match274992274993_ - _e260967261285_ - _hd260966261288_ - _tl260965261290_ - _e260974261152_ - _hd260973261155_ - _tl260972261157_ - ___splice274951274952_ - _target260975261160_ - _tl260977261162_) + (gx#stx-null? _tl139083139268_)) + (___match148530148531_ + _e139073139391_ + _hd139072139394_ + _tl139071139396_ + _e139080139258_ + _hd139079139261_ + _tl139078139263_ + ___splice148489148490_ + _target139081139266_ + _tl139083139268_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260972261157_)) - (let ((_e261009261118_ + (gx#stx-pair? _tl139078139263_)) + (let ((_e139115139224_ (let () (declare (not safe)) (gx#stx-e - _tl260972261157_)))) - (let ((_tl261007261123_ + _tl139078139263_)))) + (let ((_tl139113139229_ (let () (declare (not safe)) - (##cdr _e261009261118_))) - (_hd261008261121_ + (##cdr _e139115139224_))) + (_hd139114139227_ (let () (declare (not safe)) - (##car _e261009261118_)))) + (##car _e139115139224_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl261007261123_)) - (___kont274953274954_ - _hd261008261121_) - (___kont274957274958_)))) - (___kont274957274958_))))) + _tl139113139229_)) + (___kont148491148492_ + _hd139114139227_) + (___kont148495148496_)))) + (___kont148495148496_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260972261157_)) - (let ((_e261009261118_ + (gx#stx-pair? _tl139078139263_)) + (let ((_e139115139224_ (let () (declare (not safe)) - (gx#stx-e _tl260972261157_)))) - (let ((_tl261007261123_ + (gx#stx-e _tl139078139263_)))) + (let ((_tl139113139229_ (let () (declare (not safe)) - (##cdr _e261009261118_))) - (_hd261008261121_ + (##cdr _e139115139224_))) + (_hd139114139227_ (let () (declare (not safe)) - (##car _e261009261118_)))) + (##car _e139115139224_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261007261123_)) - (___kont274953274954_ - _hd261008261121_) - (___kont274957274958_)))) - (___kont274957274958_))))) - (___kont274957274958_)) + (gx#stx-null? _tl139113139229_)) + (___kont148491148492_ + _hd139114139227_) + (___kont148495148496_)))) + (___kont148495148496_))))) + (___kont148495148496_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd260966261288_)) + (gx#stx-eq? '%#if _hd139072139394_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260965261290_)) - (let ((_e261018261049_ + (gx#stx-pair? _tl139071139396_)) + (let ((_e139124139155_ (let () (declare (not safe)) - (gx#stx-e _tl260965261290_)))) - (let ((_tl261016261054_ + (gx#stx-e _tl139071139396_)))) + (let ((_tl139122139160_ (let () (declare (not safe)) - (##cdr _e261018261049_))) - (_hd261017261052_ + (##cdr _e139124139155_))) + (_hd139123139158_ (let () (declare (not safe)) - (##car _e261018261049_)))) + (##car _e139124139155_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261016261054_)) - (let ((_e261021261057_ + (gx#stx-pair? _tl139122139160_)) + (let ((_e139127139163_ (let () (declare (not safe)) - (gx#stx-e _tl261016261054_)))) - (let ((_tl261019261062_ + (gx#stx-e _tl139122139160_)))) + (let ((_tl139125139168_ (let () (declare (not safe)) - (##cdr _e261021261057_))) - (_hd261020261060_ + (##cdr _e139127139163_))) + (_hd139126139166_ (let () (declare (not safe)) - (##car _e261021261057_)))) + (##car _e139127139163_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261019261062_)) - (let ((_e261024261065_ + (gx#stx-pair? _tl139125139168_)) + (let ((_e139130139171_ (let () (declare (not safe)) (gx#stx-e - _tl261019261062_)))) - (let ((_tl261022261070_ + _tl139125139168_)))) + (let ((_tl139128139176_ (let () (declare (not safe)) - (##cdr _e261024261065_))) - (_hd261023261068_ + (##cdr _e139130139171_))) + (_hd139129139174_ (let () (declare (not safe)) - (##car _e261024261065_)))) + (##car _e139130139171_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl261022261070_)) - (___kont274955274956_ - _hd261023261068_ - _hd261020261060_ - _hd261017261052_) - (___kont274957274958_)))) - (___kont274957274958_)))) - (___kont274957274958_)))) - (___kont274957274958_)) - (___kont274957274958_)))) + _tl139128139176_)) + (___kont148493148494_ + _hd139129139174_ + _hd139126139166_ + _hd139123139158_) + (___kont148495148496_)))) + (___kont148495148496_)))) + (___kont148495148496_)))) + (___kont148495148496_)) + (___kont148495148496_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274957274958_)))) - (___kont274957274958_)))))))) - (let* ((_kont260851_ (caddr _block260847_)) - (_g260853260879_ - (lambda (_g260854260876_) + (___kont148495148496_)))) + (___kont148495148496_)))))))) + (let* ((_kont138957_ (caddr _block138953_)) + (_g138959138985_ + (lambda (_g138960138982_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g260854260876_)))) - (_g260852260954_ - (lambda (_g260854260882_) + _g138960138982_)))) + (_g138958139060_ + (lambda (_g138960138988_) (if (let () (declare (not safe)) - (gx#stx-pair? _g260854260882_)) - (let ((_e260859260884_ + (gx#stx-pair? _g138960138988_)) + (let ((_e138965138990_ (let () (declare (not safe)) - (gx#stx-e _g260854260882_)))) - (let ((_hd260858260887_ + (gx#stx-e _g138960138988_)))) + (let ((_hd138964138993_ (let () (declare (not safe)) - (##car _e260859260884_))) - (_tl260857260889_ + (##car _e138965138990_))) + (_tl138963138995_ (let () (declare (not safe)) - (##cdr _e260859260884_)))) + (##cdr _e138965138990_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd260858260887_)) + _hd138964138993_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd260858260887_)) + _hd138964138993_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260857260889_)) - (let ((_e260862260892_ + _tl138963138995_)) + (let ((_e138968138998_ (let () (declare (not safe)) (gx#stx-e - _tl260857260889_)))) - (let ((_hd260861260895_ + _tl138963138995_)))) + (let ((_hd138967139001_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e260862260892_))) - (_tl260860260897_ - (let () (declare (not safe)) (##cdr _e260862260892_)))) + (##car _e138968138998_))) + (_tl138966139003_ + (let () (declare (not safe)) (##cdr _e138968138998_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd260861260895_)) - (let ((_g276320_ + (gx#stx-pair/null? _hd138967139001_)) + (let ((_g149858_ (let () (declare (not safe)) - (gx#syntax-split-splice _hd260861260895_ '0)))) + (gx#syntax-split-splice _hd138967139001_ '0)))) (begin - (let ((_g276321_ + (let ((_g149859_ (let () (declare (not safe)) - (if (##values? _g276320_) - (##vector-length _g276320_) + (if (##values? _g149858_) + (##vector-length _g149858_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g276321_ 2))) - (error "Context expects 2 values" _g276321_))) - (let ((_target260863260900_ + (##fx= _g149859_ 2))) + (error "Context expects 2 values" _g149859_))) + (let ((_target138969139006_ (let () (declare (not safe)) - (##vector-ref _g276320_ 0))) - (_tl260865260902_ + (##vector-ref _g149858_ 0))) + (_tl138971139008_ (let () (declare (not safe)) - (##vector-ref _g276320_ 1)))) + (##vector-ref _g149858_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260865260902_)) - (letrec ((_loop260866260905_ - (lambda (_hd260864260908_ - _id260870260910_) + (gx#stx-null? _tl138971139008_)) + (letrec ((_loop138972139011_ + (lambda (_hd138970139014_ + _id138976139016_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd260864260908_)) - (let ((_e260867260913_ + _hd138970139014_)) + (let ((_e138973139019_ (let () (declare (not safe)) (gx#stx-e - _hd260864260908_)))) - (let ((_lp-hd260868260916_ + _hd138970139014_)))) + (let ((_lp-hd138974139022_ (let () (declare (not safe)) - (##car _e260867260913_))) - (_lp-tl260869260918_ + (##car _e138973139019_))) + (_lp-tl138975139024_ (let () (declare (not safe)) - (##cdr _e260867260913_)))) - (let ((__tmp276322 + (##cdr _e138973139019_)))) + (let ((__tmp149860 (let () (declare (not safe)) - (cons _lp-hd260868260916_ + (cons _lp-hd138974139022_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id260870260910_)))) + _id138976139016_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop260866260905_ - _lp-tl260869260918_ - __tmp276322)))) - (let ((_id260871260921_ - (reverse _id260870260910_))) + (_loop138972139011_ + _lp-tl138975139024_ + __tmp149860)))) + (let ((_id138977139027_ + (reverse _id138976139016_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260860260897_)) - (let ((_e260874260924_ + _tl138966139003_)) + (let ((_e138980139030_ (let () (declare (not safe)) (gx#stx-e - _tl260860260897_)))) - (let ((_hd260873260927_ + _tl138966139003_)))) + (let ((_hd138979139033_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e260874260924_))) - (_tl260872260929_ - (let () (declare (not safe)) (##cdr _e260874260924_)))) + (##car _e138980139030_))) + (_tl138978139035_ + (let () (declare (not safe)) (##cdr _e138980139030_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260872260929_)) - ((lambda (_L260932_ _L260933_) + (gx#stx-null? _tl138978139035_)) + ((lambda (_L139038_ _L139039_) (let () (declare (not safe)) - (_nonlinear-expr?260849_ _L260932_))) - _hd260873260927_ - _id260871260921_) + (_nonlinear-expr?138955_ _L139038_))) + _hd138979139033_ + _id138977139027_) (let () (declare (not safe)) - (_g260853260879_ _g260854260882_))))) + (_g138959138985_ _g138960138988_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g260853260879_ - _g260854260882_)))))))) + (_g138959138985_ + _g138960138988_)))))))) (let () (declare (not safe)) - (_loop260866260905_ - _target260863260900_ + (_loop138972139011_ + _target138969139006_ '()))) (let () (declare (not safe)) - (_g260853260879_ _g260854260882_)))))) + (_g138959138985_ _g138960138988_)))))) (let () (declare (not safe)) - (_g260853260879_ _g260854260882_))))) + (_g138959138985_ _g138960138988_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g260853260879_ - _g260854260882_))) + (_g138959138985_ + _g138960138988_))) (let () (declare (not safe)) - (_g260853260879_ - _g260854260882_))) + (_g138959138985_ + _g138960138988_))) (let () (declare (not safe)) - (_g260853260879_ - _g260854260882_))))) + (_g138959138985_ + _g138960138988_))))) (let () (declare (not safe)) - (_g260853260879_ _g260854260882_)))))) + (_g138959138985_ _g138960138988_)))))) (declare (not safe)) - (_g260852260954_ _kont260851_)))))) - (let ((__tmp276323 + (_g138958139060_ _kont138957_)))))) + (let ((__tmp149861 (lambda () - (let ((__tmp276324 + (let ((__tmp149862 (lambda () (if (memq '@match:prefix (gxc#current-annotation-optimizer)) - (let ((__tmp276325 + (let ((__tmp149863 (lambda () (let () (declare (not safe)) - (_optimize-e260832_ - _body260579_))))) + (_optimize-e138938_ + _body138685_))))) (declare (not safe)) - (_do-splice!260831_ __tmp276325)) + (_do-splice!138937_ __tmp149863)) (let () (declare (not safe)) - (_optimize-e260832_ _body260579_)))))) + (_optimize-e138938_ _body138685_)))))) (declare (not safe)) - (_do-bind260828_ _bind260581_ __tmp276324))))) + (_do-bind138934_ _bind138687_ __tmp149862))))) (declare (not safe)) - (_do-assert260821_ _assert260580_ __tmp276323))))) + (_do-assert138927_ _assert138686_ __tmp149861))))) (define gxc#optimize-match-prune-blocks - (lambda (_blocks260491_ _konts260492_) - (letrec* ((_rtab260494_ - (let () (declare (not safe)) (make-table 'test: eq?)))) + (lambda (_blocks138597_ _konts138598_) + (letrec* ((_rtab138600_ + (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_block260496_) - (let ((__tmp276326 (caddr _block260496_))) + (lambda (_block138602_) + (let ((__tmp149864 (caddr _block138602_))) (declare (not safe)) - (gxc#apply-collect-runtime-refs __tmp276326 _rtab260494_))) - _konts260492_) - (let _lp260498_ ((_rest260500_ _blocks260491_) (_r260501_ '())) - (let* ((_rest260502260510_ _rest260500_) - (_else260504260518_ (lambda () (reverse _r260501_))) - (_K260506260567_ - (lambda (_rest260521_ _block260522_) - (let* ((_block260523260534_ _block260522_) - (_E260525260538_ + (gxc#apply-collect-runtime-refs __tmp149864 _rtab138600_))) + _konts138598_) + (let _lp138604_ ((_rest138606_ _blocks138597_) (_r138607_ '())) + (let* ((_rest138608138616_ _rest138606_) + (_else138610138624_ (lambda () (reverse _r138607_))) + (_K138612138673_ + (lambda (_rest138627_ _block138628_) + (let* ((_block138629138640_ _block138628_) + (_E138631138644_ (lambda () - (error '"No clause matching" - _block260523260534_))) - (_K260526260545_ - (lambda (_kont260541_ _type260542_ _name260543_) - (if (let ((__tmp276328 + (let () + (declare (not safe)) + (error '"No clause matching" + _block138629138640_)))) + (_K138632138651_ + (lambda (_kont138647_ _type138648_ _name138649_) + (if (let ((__tmp149866 (let () (declare (not safe)) (gxc#identifier-symbol - _name260543_)))) + _name138649_)))) (declare (not safe)) - (table-ref _rtab260494_ __tmp276328 '#f)) + (hash-get _rtab138600_ __tmp149866)) (begin (let () (declare (not safe)) (gxc#apply-collect-runtime-refs - _kont260541_ - _rtab260494_)) - (let ((__tmp276327 + _kont138647_ + _rtab138600_)) + (let ((__tmp149865 (let () (declare (not safe)) - (cons _block260522_ - _r260501_)))) + (cons _block138628_ + _r138607_)))) (declare (not safe)) - (_lp260498_ _rest260521_ __tmp276327))) + (_lp138604_ _rest138627_ __tmp149865))) (let () (declare (not safe)) - (_lp260498_ _rest260521_ _r260501_)))))) + (_lp138604_ _rest138627_ _r138607_)))))) (if (let () (declare (not safe)) - (##pair? _block260523260534_)) - (let ((_hd260527260548_ + (##pair? _block138629138640_)) + (let ((_hd138633138654_ (let () (declare (not safe)) - (##car _block260523260534_))) - (_tl260528260550_ + (##car _block138629138640_))) + (_tl138634138656_ (let () (declare (not safe)) - (##cdr _block260523260534_)))) - (let ((_name260553_ _hd260527260548_)) + (##cdr _block138629138640_)))) + (let ((_name138659_ _hd138633138654_)) (if (let () (declare (not safe)) - (##pair? _tl260528260550_)) - (let ((_hd260529260555_ + (##pair? _tl138634138656_)) + (let ((_hd138635138661_ (let () (declare (not safe)) - (##car _tl260528260550_))) - (_tl260530260557_ + (##car _tl138634138656_))) + (_tl138636138663_ (let () (declare (not safe)) - (##cdr _tl260528260550_)))) - (let ((_type260560_ _hd260529260555_)) + (##cdr _tl138634138656_)))) + (let ((_type138666_ _hd138635138661_)) (if (let () (declare (not safe)) - (##pair? _tl260530260557_)) - (let* ((_hd260531260562_ + (##pair? _tl138636138663_)) + (let* ((_hd138637138668_ (let () (declare (not safe)) - (##car _tl260530260557_))) - (_kont260565_ - _hd260531260562_)) + (##car _tl138636138663_))) + (_kont138671_ + _hd138637138668_)) (declare (not safe)) - (_K260526260545_ - _kont260565_ - _type260560_ - _name260553_)) + (_K138632138651_ + _kont138671_ + _type138666_ + _name138659_)) (let () (declare (not safe)) - (_E260525260538_))))) + (_E138631138644_))))) (let () (declare (not safe)) - (_E260525260538_))))) + (_E138631138644_))))) (let () (declare (not safe)) - (_E260525260538_))))))) - (if (let () (declare (not safe)) (##pair? _rest260502260510_)) - (let ((_hd260507260570_ + (_E138631138644_))))))) + (if (let () (declare (not safe)) (##pair? _rest138608138616_)) + (let ((_hd138613138676_ (let () (declare (not safe)) - (##car _rest260502260510_))) - (_tl260508260572_ + (##car _rest138608138616_))) + (_tl138614138678_ (let () (declare (not safe)) - (##cdr _rest260502260510_)))) - (let* ((_block260575_ _hd260507260570_) - (_rest260577_ _tl260508260572_)) + (##cdr _rest138608138616_)))) + (let* ((_block138681_ _hd138613138676_) + (_rest138683_ _tl138614138678_)) (declare (not safe)) - (_K260506260567_ _rest260577_ _block260575_))) - (let () (declare (not safe)) (_else260504260518_)))))))) + (_K138612138673_ _rest138683_ _block138681_))) + (let () (declare (not safe)) (_else138610138624_)))))))) (define gxc#optimize-match-fuse-restart-blocks - (lambda (_blocks260415_ _konts260416_) - (let* ((_blocks260417260433_ _blocks260415_) - (_else260419260441_ (lambda () _blocks260415_)) - (_K260421260459_ - (lambda (_rest260444_ _kont260445_ _name260446_) - (letrec* ((_rtab260448_ + (lambda (_blocks138521_ _konts138522_) + (let* ((_blocks138523138539_ _blocks138521_) + (_else138525138547_ (lambda () _blocks138521_)) + (_K138527138565_ + (lambda (_rest138550_ _kont138551_ _name138552_) + (letrec* ((_rtab138554_ (let () (declare (not safe)) - (make-table 'test: eq?)))) + (make-hash-table-eq)))) (for-each - (lambda (_block260450_) - (let ((__tmp276329 (caddr _block260450_))) + (lambda (_block138556_) + (let ((__tmp149867 (caddr _block138556_))) (declare (not safe)) (gxc#apply-collect-runtime-refs - __tmp276329 - _rtab260448_))) - _konts260416_) - (if (fx= (let ((__tmp276337 + __tmp149867 + _rtab138554_))) + _konts138522_) + (if (fx= (let ((__tmp149875 (let () (declare (not safe)) - (gxc#identifier-symbol _name260446_)))) + (gxc#identifier-symbol _name138552_)))) (declare (not safe)) - (table-ref _rtab260448_ __tmp276337)) + (hash-ref__0 _rtab138554_ __tmp149875)) '1) - (let* ((_rblock260454_ - (let ((__tmp276330 - (lambda (_block260452_) - (let ((__tmp276332 - (caddr _block260452_)) - (__tmp276331 + (let* ((_rblock138560_ + (let ((__tmp149868 + (lambda (_block138558_) + (let ((__tmp149870 + (caddr _block138558_)) + (__tmp149869 (let () (declare (not safe)) - (cons _name260446_ '())))) + (cons _name138552_ '())))) (declare (not safe)) (gxc#apply-find-var-refs - __tmp276332 - __tmp276331))))) + __tmp149870 + __tmp149869))))) (declare (not safe)) - (find __tmp276330 _konts260416_))) - (_assert260456_ + (find __tmp149868 _konts138522_))) + (_assert138562_ (let () (declare (not safe)) (gxc#optimize-match-assert-restart - _rblock260454_ - _name260446_)))) - (let ((__tmp276333 - (let ((__tmp276334 - (let ((__tmp276335 - (let ((__tmp276336 + _rblock138560_ + _name138552_)))) + (let ((__tmp149871 + (let ((__tmp149872 + (let ((__tmp149873 + (let ((__tmp149874 (let () (declare (not safe)) - (cons _assert260456_ + (cons _assert138562_ '())))) (declare (not safe)) - (cons _kont260445_ - __tmp276336)))) + (cons _kont138551_ + __tmp149874)))) (declare (not safe)) - (cons 'restart: __tmp276335)))) + (cons 'restart: __tmp149873)))) (declare (not safe)) - (cons _name260446_ __tmp276334)))) + (cons _name138552_ __tmp149872)))) (declare (not safe)) - (cons __tmp276333 _rest260444_))) - _blocks260415_))))) - (if (let () (declare (not safe)) (##pair? _blocks260417260433_)) - (let ((_hd260422260462_ + (cons __tmp149871 _rest138550_))) + _blocks138521_))))) + (if (let () (declare (not safe)) (##pair? _blocks138523138539_)) + (let ((_hd138528138568_ (let () (declare (not safe)) - (##car _blocks260417260433_))) - (_tl260423260464_ + (##car _blocks138523138539_))) + (_tl138529138570_ (let () (declare (not safe)) - (##cdr _blocks260417260433_)))) - (if (let () (declare (not safe)) (##pair? _hd260422260462_)) - (let ((_hd260424260467_ + (##cdr _blocks138523138539_)))) + (if (let () (declare (not safe)) (##pair? _hd138528138568_)) + (let ((_hd138530138573_ (let () (declare (not safe)) - (##car _hd260422260462_))) - (_tl260425260469_ + (##car _hd138528138568_))) + (_tl138531138575_ (let () (declare (not safe)) - (##cdr _hd260422260462_)))) - (let ((_name260472_ _hd260424260467_)) + (##cdr _hd138528138568_)))) + (let ((_name138578_ _hd138530138573_)) (if (let () (declare (not safe)) - (##pair? _tl260425260469_)) - (let ((_hd260426260474_ + (##pair? _tl138531138575_)) + (let ((_hd138532138580_ (let () (declare (not safe)) - (##car _tl260425260469_))) - (_tl260427260476_ + (##car _tl138531138575_))) + (_tl138533138582_ (let () (declare (not safe)) - (##cdr _tl260425260469_)))) + (##cdr _tl138531138575_)))) (if (let () (declare (not safe)) - (##eq? _hd260426260474_ 'restart:)) + (##eq? _hd138532138580_ 'restart:)) (if (let () (declare (not safe)) - (##pair? _tl260427260476_)) - (let ((_hd260428260479_ + (##pair? _tl138533138582_)) + (let ((_hd138534138585_ (let () (declare (not safe)) - (##car _tl260427260476_))) - (_tl260429260481_ + (##car _tl138533138582_))) + (_tl138535138587_ (let () (declare (not safe)) - (##cdr _tl260427260476_)))) - (let ((_kont260484_ _hd260428260479_)) + (##cdr _tl138533138582_)))) + (let ((_kont138590_ _hd138534138585_)) (if (let () (declare (not safe)) - (##pair? _tl260429260481_)) - (let ((_tl260431260486_ + (##pair? _tl138535138587_)) + (let ((_tl138537138592_ (let () (declare (not safe)) - (##cdr _tl260429260481_)))) + (##cdr _tl138535138587_)))) (if (let () (declare (not safe)) - (##null? _tl260431260486_)) - (let ((_rest260489_ - _tl260423260464_)) + (##null? _tl138537138592_)) + (let ((_rest138595_ + _tl138529138570_)) (declare (not safe)) - (_K260421260459_ - _rest260489_ - _kont260484_ - _name260472_)) + (_K138527138565_ + _rest138595_ + _kont138590_ + _name138578_)) (let () (declare (not safe)) - (_else260419260441_)))) + (_else138525138547_)))) (let () (declare (not safe)) - (_else260419260441_))))) + (_else138525138547_))))) (let () (declare (not safe)) - (_else260419260441_))) + (_else138525138547_))) (let () (declare (not safe)) - (_else260419260441_)))) + (_else138525138547_)))) (let () (declare (not safe)) - (_else260419260441_))))) - (let () (declare (not safe)) (_else260419260441_)))) - (let () (declare (not safe)) (_else260419260441_)))))) + (_else138525138547_))))) + (let () (declare (not safe)) (_else138525138547_)))) + (let () (declare (not safe)) (_else138525138547_)))))) (define gxc#optimize-match-assert-restart - (lambda (_block259811_ _name259812_) - (letrec ((_assert-restart259814_ - (lambda (_expr259970_ _assert259971_) - (let* ((___stx275049275050_ _expr259970_) - (_g259977260074_ + (lambda (_block137917_ _name137918_) + (letrec ((_assert-restart137920_ + (lambda (_expr138076_ _assert138077_) + (let* ((___stx148587148588_ _expr138076_) + (_g138083138180_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx275049275050_))))) - (let ((___kont275051275052_ - (lambda (_L260390_ _L260391_ _L260392_) - (let ((_$e260409_ - (let ((__tmp276338 - (let ((__tmp276339 + ___stx148587148588_))))) + (let ((___kont148589148590_ + (lambda (_L138496_ _L138497_ _L138498_) + (let ((_$e138515_ + (let ((__tmp149876 + (let ((__tmp149877 (let () (declare (not safe)) - (cons _L260392_ '#t)))) + (cons _L138498_ '#t)))) (declare (not safe)) - (cons __tmp276339 - _assert259971_)))) + (cons __tmp149877 + _assert138077_)))) (declare (not safe)) - (_assert-restart259814_ - _L260391_ - __tmp276338)))) - (if _$e260409_ - _$e260409_ - (let ((__tmp276340 - (let ((__tmp276341 + (_assert-restart137920_ + _L138497_ + __tmp149876)))) + (if _$e138515_ + _$e138515_ + (let ((__tmp149878 + (let ((__tmp149879 (let () (declare (not safe)) - (cons _L260392_ '#f)))) + (cons _L138498_ '#f)))) (declare (not safe)) - (cons __tmp276341 - _assert259971_)))) + (cons __tmp149879 + _assert138077_)))) (declare (not safe)) - (_assert-restart259814_ - _L260390_ - __tmp276340)))))) - (___kont275053275054_ - (lambda (_L260338_) + (_assert-restart137920_ + _L138496_ + __tmp149878)))))) + (___kont148591148592_ + (lambda (_L138444_) (if (let () (declare (not safe)) (gx#free-identifier=? - _L260338_ - _name259812_)) - _assert259971_ + _L138444_ + _name137918_)) + _assert138077_ '#f))) - (___kont275055275056_ - (lambda (_L260288_) + (___kont148593148594_ + (lambda (_L138394_) (let () (declare (not safe)) - (_assert-restart259814_ - _L260288_ - _assert259971_)))) - (___kont275057275058_ - (lambda (_L260214_ - _L260215_ - _L260216_ - _L260217_ - _L260218_) + (_assert-restart137920_ + _L138394_ + _assert138077_)))) + (___kont148595148596_ + (lambda (_L138320_ + _L138321_ + _L138322_ + _L138323_ + _L138324_) (let () (declare (not safe)) - (_assert-restart259814_ - _L260216_ - _assert259971_)))) - (___kont275063275064_ (lambda () '#f))) - (let ((___match275218275219_ - (lambda (_e260024260086_ - _hd260023260089_ - _tl260022260091_ - _e260027260094_ - _hd260026260097_ - _tl260025260099_ - _e260030260102_ - _hd260029260105_ - _tl260028260107_ - _e260033260110_ - _hd260032260113_ - _tl260031260115_ - _e260036260118_ - _hd260035260121_ - _tl260034260123_ - _e260039260126_ - _hd260038260129_ - _tl260037260131_ - _e260042260134_ - _hd260041260137_ - _tl260040260139_ - _e260045260142_ - _hd260044260145_ - _tl260043260147_ - ___splice275059275060_ - _target260046260150_ - _tl260048260152_) - (letrec ((_loop260049260155_ - (lambda (_hd260047260158_ - _id260053260160_) + (_assert-restart137920_ + _L138322_ + _assert138077_)))) + (___kont148601148602_ (lambda () '#f))) + (let ((___match148756148757_ + (lambda (_e138130138192_ + _hd138129138195_ + _tl138128138197_ + _e138133138200_ + _hd138132138203_ + _tl138131138205_ + _e138136138208_ + _hd138135138211_ + _tl138134138213_ + _e138139138216_ + _hd138138138219_ + _tl138137138221_ + _e138142138224_ + _hd138141138227_ + _tl138140138229_ + _e138145138232_ + _hd138144138235_ + _tl138143138237_ + _e138148138240_ + _hd138147138243_ + _tl138146138245_ + _e138151138248_ + _hd138150138251_ + _tl138149138253_ + ___splice148597148598_ + _target138152138256_ + _tl138154138258_) + (letrec ((_loop138155138261_ + (lambda (_hd138153138264_ + _id138159138266_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd260047260158_)) - (let ((_e260050260163_ + _hd138153138264_)) + (let ((_e138156138269_ (let () (declare (not safe)) (gx#stx-e - _hd260047260158_)))) - (let ((_lp-tl260052260168_ + _hd138153138264_)))) + (let ((_lp-tl138158138274_ (let () (declare (not safe)) - (##cdr _e260050260163_))) - (_lp-hd260051260166_ + (##cdr _e138156138269_))) + (_lp-hd138157138272_ (let () (declare (not safe)) - (##car _e260050260163_)))) - (let ((__tmp276343 + (##car _e138156138269_)))) + (let ((__tmp149881 (let () (declare (not safe)) - (cons _lp-hd260051260166_ + (cons _lp-hd138157138272_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id260053260160_)))) + _id138159138266_)))) (declare (not safe)) - (_loop260049260155_ _lp-tl260052260168_ __tmp276343)))) + (_loop138155138261_ _lp-tl138158138274_ __tmp149881)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id260054260171_ - (reverse _id260053260160_))) + (let ((_id138160138277_ + (reverse _id138159138266_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260043260147_)) - (let ((_e260057260174_ + _tl138149138253_)) + (let ((_e138163138280_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl260043260147_)))) - (let ((_tl260055260179_ - (let () (declare (not safe)) (##cdr _e260057260174_))) - (_hd260056260177_ - (let () (declare (not safe)) (##car _e260057260174_)))) + (gx#stx-e _tl138149138253_)))) + (let ((_tl138161138285_ + (let () (declare (not safe)) (##cdr _e138163138280_))) + (_hd138162138283_ + (let () (declare (not safe)) (##car _e138163138280_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260055260179_)) + (gx#stx-null? _tl138161138285_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl260037260131_)) + (gx#stx-null? _tl138143138237_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl260028260107_)) - (let ((___splice275061275062_ + (gx#stx-pair/null? _tl138134138213_)) + (let ((___splice148599148600_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl260028260107_ + _tl138134138213_ '0)))) - (let ((_tl260060260184_ + (let ((_tl138166138290_ (let () (declare (not safe)) (##vector-ref - ___splice275061275062_ + ___splice148599148600_ '1))) - (_target260058260182_ + (_target138164138288_ (let () (declare (not safe)) (##vector-ref - ___splice275061275062_ + ___splice148599148600_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260060260184_)) - (letrec ((_loop260061260187_ - (lambda (_hd260059260190_ - _bind260065260192_) + (gx#stx-null? _tl138166138290_)) + (letrec ((_loop138167138293_ + (lambda (_hd138165138296_ + _bind138171138298_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd260059260190_)) - (let ((_e260062260195_ + _hd138165138296_)) + (let ((_e138168138301_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd260059260190_)))) - (let ((_lp-tl260064260200_ - (let () (declare (not safe)) (##cdr _e260062260195_))) - (_lp-hd260063260198_ - (let () (declare (not safe)) (##car _e260062260195_)))) - (let ((__tmp276342 + (gx#stx-e _hd138165138296_)))) + (let ((_lp-tl138170138306_ + (let () (declare (not safe)) (##cdr _e138168138301_))) + (_lp-hd138169138304_ + (let () (declare (not safe)) (##car _e138168138301_)))) + (let ((__tmp149880 (let () (declare (not safe)) - (cons _lp-hd260063260198_ _bind260065260192_)))) + (cons _lp-hd138169138304_ _bind138171138298_)))) (declare (not safe)) - (_loop260061260187_ _lp-tl260064260200_ __tmp276342)))) - (let ((_bind260066260203_ (reverse _bind260065260192_))) + (_loop138167138293_ _lp-tl138170138306_ __tmp149880)))) + (let ((_bind138172138309_ (reverse _bind138171138298_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260025260099_)) - (let ((_e260069260206_ + (gx#stx-pair? _tl138131138205_)) + (let ((_e138175138312_ (let () (declare (not safe)) - (gx#stx-e _tl260025260099_)))) - (let ((_tl260067260211_ + (gx#stx-e _tl138131138205_)))) + (let ((_tl138173138317_ (let () (declare (not safe)) - (##cdr _e260069260206_))) - (_hd260068260209_ + (##cdr _e138175138312_))) + (_hd138174138315_ (let () (declare (not safe)) - (##car _e260069260206_)))) + (##car _e138175138312_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260067260211_)) - (___kont275057275058_ - _hd260068260209_ - _bind260066260203_ - _hd260056260177_ - _id260054260171_ - _hd260035260121_) - (___kont275063275064_)))) - (___kont275063275064_))))))) + (gx#stx-null? _tl138173138317_)) + (___kont148595148596_ + _hd138174138315_ + _bind138172138309_ + _hd138162138283_ + _id138160138277_ + _hd138141138227_) + (___kont148601148602_)))) + (___kont148601148602_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop260061260187_ - _target260058260182_ + (_loop138167138293_ + _target138164138288_ '()))) - (___kont275063275064_)))) - (___kont275063275064_)) - (___kont275063275064_)) - (___kont275063275064_)))) - (___kont275063275064_))))))) + (___kont148601148602_)))) + (___kont148601148602_)) + (___kont148601148602_)) + (___kont148601148602_)))) + (___kont148601148602_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop260049260155_ - _target260046260150_ + (_loop138155138261_ + _target138152138256_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx275049275050_)) - (let ((_e259984260358_ + (gx#stx-pair? ___stx148587148588_)) + (let ((_e138090138464_ (let () (declare (not safe)) - (gx#stx-e ___stx275049275050_)))) - (let ((_tl259982260363_ + (gx#stx-e ___stx148587148588_)))) + (let ((_tl138088138469_ (let () (declare (not safe)) - (##cdr _e259984260358_))) - (_hd259983260361_ + (##cdr _e138090138464_))) + (_hd138089138467_ (let () (declare (not safe)) - (##car _e259984260358_)))) + (##car _e138090138464_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd259983260361_)) + (gx#identifier? _hd138089138467_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd259983260361_)) + _hd138089138467_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259982260363_)) - (let ((_e259987260366_ + _tl138088138469_)) + (let ((_e138093138472_ (let () (declare (not safe)) (gx#stx-e - _tl259982260363_)))) - (let ((_tl259985260371_ + _tl138088138469_)))) + (let ((_tl138091138477_ (let () (declare (not safe)) - (##cdr _e259987260366_))) - (_hd259986260369_ + (##cdr _e138093138472_))) + (_hd138092138475_ (let () (declare (not safe)) - (##car _e259987260366_)))) + (##car _e138093138472_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259985260371_)) - (let ((_e259990260374_ + _tl138091138477_)) + (let ((_e138096138480_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl259985260371_)))) - (let ((_tl259988260379_ - (let () (declare (not safe)) (##cdr _e259990260374_))) - (_hd259989260377_ - (let () (declare (not safe)) (##car _e259990260374_)))) + (gx#stx-e _tl138091138477_)))) + (let ((_tl138094138485_ + (let () (declare (not safe)) (##cdr _e138096138480_))) + (_hd138095138483_ + (let () (declare (not safe)) (##car _e138096138480_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl259988260379_)) - (let ((_e259993260382_ + (gx#stx-pair? _tl138094138485_)) + (let ((_e138099138488_ (let () (declare (not safe)) - (gx#stx-e _tl259988260379_)))) - (let ((_tl259991260387_ + (gx#stx-e _tl138094138485_)))) + (let ((_tl138097138493_ (let () (declare (not safe)) - (##cdr _e259993260382_))) - (_hd259992260385_ + (##cdr _e138099138488_))) + (_hd138098138491_ (let () (declare (not safe)) - (##car _e259993260382_)))) + (##car _e138099138488_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259991260387_)) - (___kont275051275052_ - _hd259992260385_ - _hd259989260377_ - _hd259986260369_) - (___kont275063275064_)))) - (___kont275063275064_)))) - (___kont275063275064_)))) + (gx#stx-null? _tl138097138493_)) + (___kont148589148590_ + _hd138098138491_ + _hd138095138483_ + _hd138092138475_) + (___kont148601148602_)))) + (___kont148601148602_)))) + (___kont148601148602_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont275063275064_)) + (___kont148601148602_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd259983260361_)) + _hd138089138467_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259982260363_)) - (let ((_e260000260314_ + _tl138088138469_)) + (let ((_e138106138420_ (let () (declare (not safe)) (gx#stx-e - _tl259982260363_)))) - (let ((_tl259998260319_ + _tl138088138469_)))) + (let ((_tl138104138425_ (let () (declare (not safe)) - (##cdr _e260000260314_))) - (_hd259999260317_ + (##cdr _e138106138420_))) + (_hd138105138423_ (let () (declare (not safe)) - (##car _e260000260314_)))) + (##car _e138106138420_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd259999260317_)) - (let ((_e260003260322_ + _hd138105138423_)) + (let ((_e138109138428_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd259999260317_)))) - (let ((_tl260001260327_ + (gx#stx-e _hd138105138423_)))) + (let ((_tl138107138433_ (let () (declare (not safe)) - (##cdr _e260003260322_))) - (_hd260002260325_ + (##cdr _e138109138428_))) + (_hd138108138431_ (let () (declare (not safe)) - (##car _e260003260322_)))) + (##car _e138109138428_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd260002260325_)) + (gx#identifier? _hd138108138431_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd260002260325_)) + (gx#stx-eq? '%#ref _hd138108138431_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260001260327_)) - (let ((_e260006260330_ + (gx#stx-pair? _tl138107138433_)) + (let ((_e138112138436_ (let () (declare (not safe)) - (gx#stx-e _tl260001260327_)))) - (let ((_tl260004260335_ + (gx#stx-e _tl138107138433_)))) + (let ((_tl138110138441_ (let () (declare (not safe)) - (##cdr _e260006260330_))) - (_hd260005260333_ + (##cdr _e138112138436_))) + (_hd138111138439_ (let () (declare (not safe)) - (##car _e260006260330_)))) + (##car _e138112138436_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260004260335_)) - (___kont275053275054_ - _hd260005260333_) - (___kont275063275064_)))) - (___kont275063275064_)) - (___kont275063275064_)) - (___kont275063275064_)))) - (___kont275063275064_)))) + (gx#stx-null? _tl138110138441_)) + (___kont148591148592_ + _hd138111138439_) + (___kont148601148602_)))) + (___kont148601148602_)) + (___kont148601148602_)) + (___kont148601148602_)))) + (___kont148601148602_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont275063275064_)) + (___kont148601148602_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd259983260361_)) + _hd138089138467_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259982260363_)) - (let ((_e260013260272_ + _tl138088138469_)) + (let ((_e138119138378_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl259982260363_)))) - (let ((_tl260011260277_ - (let () (declare (not safe)) (##cdr _e260013260272_))) - (_hd260012260275_ - (let () (declare (not safe)) (##car _e260013260272_)))) + (gx#stx-e _tl138088138469_)))) + (let ((_tl138117138383_ + (let () (declare (not safe)) (##cdr _e138119138378_))) + (_hd138118138381_ + (let () (declare (not safe)) (##car _e138119138378_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260011260277_)) - (let ((_e260016260280_ + (gx#stx-pair? _tl138117138383_)) + (let ((_e138122138386_ (let () (declare (not safe)) - (gx#stx-e _tl260011260277_)))) - (let ((_tl260014260285_ + (gx#stx-e _tl138117138383_)))) + (let ((_tl138120138391_ (let () (declare (not safe)) - (##cdr _e260016260280_))) - (_hd260015260283_ + (##cdr _e138122138386_))) + (_hd138121138389_ (let () (declare (not safe)) - (##car _e260016260280_)))) + (##car _e138122138386_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260014260285_)) - (___kont275055275056_ _hd260015260283_) - (___kont275063275064_)))) - (___kont275063275064_)))) - (___kont275063275064_)) + (gx#stx-null? _tl138120138391_)) + (___kont148593148594_ _hd138121138389_) + (___kont148601148602_)))) + (___kont148601148602_)))) + (___kont148601148602_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd259983260361_)) + _hd138089138467_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259982260363_)) - (let ((_e260027260094_ + _tl138088138469_)) + (let ((_e138133138200_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl259982260363_)))) - (let ((_tl260025260099_ + (gx#stx-e _tl138088138469_)))) + (let ((_tl138131138205_ (let () (declare (not safe)) - (##cdr _e260027260094_))) - (_hd260026260097_ + (##cdr _e138133138200_))) + (_hd138132138203_ (let () (declare (not safe)) - (##car _e260027260094_)))) + (##car _e138133138200_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd260026260097_)) - (let ((_e260030260102_ + (gx#stx-pair? _hd138132138203_)) + (let ((_e138136138208_ (let () (declare (not safe)) - (gx#stx-e _hd260026260097_)))) - (let ((_tl260028260107_ + (gx#stx-e _hd138132138203_)))) + (let ((_tl138134138213_ (let () (declare (not safe)) - (##cdr _e260030260102_))) - (_hd260029260105_ + (##cdr _e138136138208_))) + (_hd138135138211_ (let () (declare (not safe)) - (##car _e260030260102_)))) + (##car _e138136138208_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd260029260105_)) - (let ((_e260033260110_ + (gx#stx-pair? _hd138135138211_)) + (let ((_e138139138216_ (let () (declare (not safe)) - (gx#stx-e _hd260029260105_)))) - (let ((_tl260031260115_ + (gx#stx-e _hd138135138211_)))) + (let ((_tl138137138221_ (let () (declare (not safe)) - (##cdr _e260033260110_))) - (_hd260032260113_ + (##cdr _e138139138216_))) + (_hd138138138219_ (let () (declare (not safe)) - (##car _e260033260110_)))) + (##car _e138139138216_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd260032260113_)) - (let ((_e260036260118_ + (gx#stx-pair? _hd138138138219_)) + (let ((_e138142138224_ (let () (declare (not safe)) (gx#stx-e - _hd260032260113_)))) - (let ((_tl260034260123_ + _hd138138138219_)))) + (let ((_tl138140138229_ (let () (declare (not safe)) - (##cdr _e260036260118_))) - (_hd260035260121_ + (##cdr _e138142138224_))) + (_hd138141138227_ (let () (declare (not safe)) - (##car _e260036260118_)))) + (##car _e138142138224_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl260034260123_)) + _tl138140138229_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260031260115_)) - (let ((_e260039260126_ + _tl138137138221_)) + (let ((_e138145138232_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl260031260115_)))) - (let ((_tl260037260131_ - (let () (declare (not safe)) (##cdr _e260039260126_))) - (_hd260038260129_ - (let () (declare (not safe)) (##car _e260039260126_)))) + (gx#stx-e _tl138137138221_)))) + (let ((_tl138143138237_ + (let () (declare (not safe)) (##cdr _e138145138232_))) + (_hd138144138235_ + (let () (declare (not safe)) (##car _e138145138232_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd260038260129_)) - (let ((_e260042260134_ + (gx#stx-pair? _hd138144138235_)) + (let ((_e138148138240_ (let () (declare (not safe)) - (gx#stx-e _hd260038260129_)))) - (let ((_tl260040260139_ + (gx#stx-e _hd138144138235_)))) + (let ((_tl138146138245_ (let () (declare (not safe)) - (##cdr _e260042260134_))) - (_hd260041260137_ + (##cdr _e138148138240_))) + (_hd138147138243_ (let () (declare (not safe)) - (##car _e260042260134_)))) + (##car _e138148138240_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd260041260137_)) + (gx#identifier? _hd138147138243_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd260041260137_)) + (gx#stx-eq? '%#lambda _hd138147138243_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260040260139_)) - (let ((_e260045260142_ + (gx#stx-pair? _tl138146138245_)) + (let ((_e138151138248_ (let () (declare (not safe)) - (gx#stx-e _tl260040260139_)))) - (let ((_tl260043260147_ + (gx#stx-e _tl138146138245_)))) + (let ((_tl138149138253_ (let () (declare (not safe)) - (##cdr _e260045260142_))) - (_hd260044260145_ + (##cdr _e138151138248_))) + (_hd138150138251_ (let () (declare (not safe)) - (##car _e260045260142_)))) + (##car _e138151138248_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd260044260145_)) - (let ((___splice275059275060_ + _hd138150138251_)) + (let ((___splice148597148598_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd260044260145_ + _hd138150138251_ '0)))) - (let ((_tl260048260152_ + (let ((_tl138154138258_ (let () (declare (not safe)) (##vector-ref - ___splice275059275060_ + ___splice148597148598_ '1))) - (_target260046260150_ + (_target138152138256_ (let () (declare (not safe)) (##vector-ref - ___splice275059275060_ + ___splice148597148598_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl260048260152_)) - (___match275218275219_ - _e259984260358_ - _hd259983260361_ - _tl259982260363_ - _e260027260094_ - _hd260026260097_ - _tl260025260099_ - _e260030260102_ - _hd260029260105_ - _tl260028260107_ - _e260033260110_ - _hd260032260113_ - _tl260031260115_ - _e260036260118_ - _hd260035260121_ - _tl260034260123_ - _e260039260126_ - _hd260038260129_ - _tl260037260131_ - _e260042260134_ - _hd260041260137_ - _tl260040260139_ - _e260045260142_ - _hd260044260145_ - _tl260043260147_ - ___splice275059275060_ - _target260046260150_ - _tl260048260152_) - (___kont275063275064_)))) - (___kont275063275064_)))) - (___kont275063275064_)) - (___kont275063275064_)) - (___kont275063275064_)))) - (___kont275063275064_)))) - (___kont275063275064_)) + _tl138154138258_)) + (___match148756148757_ + _e138090138464_ + _hd138089138467_ + _tl138088138469_ + _e138133138200_ + _hd138132138203_ + _tl138131138205_ + _e138136138208_ + _hd138135138211_ + _tl138134138213_ + _e138139138216_ + _hd138138138219_ + _tl138137138221_ + _e138142138224_ + _hd138141138227_ + _tl138140138229_ + _e138145138232_ + _hd138144138235_ + _tl138143138237_ + _e138148138240_ + _hd138147138243_ + _tl138146138245_ + _e138151138248_ + _hd138150138251_ + _tl138149138253_ + ___splice148597148598_ + _target138152138256_ + _tl138154138258_) + (___kont148601148602_)))) + (___kont148601148602_)))) + (___kont148601148602_)) + (___kont148601148602_)) + (___kont148601148602_)))) + (___kont148601148602_)))) + (___kont148601148602_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont275063275064_)))) - (___kont275063275064_)))) - (___kont275063275064_)))) - (___kont275063275064_)))) - (___kont275063275064_)) - (___kont275063275064_))))) + (___kont148601148602_)))) + (___kont148601148602_)))) + (___kont148601148602_)))) + (___kont148601148602_)))) + (___kont148601148602_)) + (___kont148601148602_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont275063275064_)))) - (___kont275063275064_)))))))) - (let* ((_block259815259828_ _block259811_) - (_E259817259832_ + (___kont148601148602_)))) + (___kont148601148602_)))))))) + (let* ((_block137921137934_ _block137917_) + (_E137923137938_ (lambda () - (error '"No clause matching" _block259815259828_))) - (_K259818259945_ - (lambda (_maybe-bind259835_ _assert259836_ _kont259837_) - (let* ((_g259839259865_ - (lambda (_g259840259862_) + (let () + (declare (not safe)) + (error '"No clause matching" _block137921137934_)))) + (_K137924138051_ + (lambda (_maybe-bind137941_ _assert137942_ _kont137943_) + (let* ((_g137945137971_ + (lambda (_g137946137968_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g259840259862_)))) - (_g259838259942_ - (lambda (_g259840259868_) + _g137946137968_)))) + (_g137944138048_ + (lambda (_g137946137974_) (if (let () (declare (not safe)) - (gx#stx-pair? _g259840259868_)) - (let ((_e259845259870_ + (gx#stx-pair? _g137946137974_)) + (let ((_e137951137976_ (let () (declare (not safe)) - (gx#stx-e _g259840259868_)))) - (let ((_hd259844259873_ + (gx#stx-e _g137946137974_)))) + (let ((_hd137950137979_ (let () (declare (not safe)) - (##car _e259845259870_))) - (_tl259843259875_ + (##car _e137951137976_))) + (_tl137949137981_ (let () (declare (not safe)) - (##cdr _e259845259870_)))) + (##cdr _e137951137976_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd259844259873_)) + (gx#identifier? _hd137950137979_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd259844259873_)) + _hd137950137979_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259843259875_)) - (let ((_e259848259878_ + _tl137949137981_)) + (let ((_e137954137984_ (let () (declare (not safe)) (gx#stx-e - _tl259843259875_)))) - (let ((_hd259847259881_ + _tl137949137981_)))) + (let ((_hd137953137987_ (let () (declare (not safe)) - (##car _e259848259878_))) - (_tl259846259883_ + (##car _e137954137984_))) + (_tl137952137989_ (let () (declare (not safe)) - (##cdr _e259848259878_)))) + (##cdr _e137954137984_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd259847259881_)) - (let ((_g276344_ + _hd137953137987_)) + (let ((_g149882_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd259847259881_ '0)))) + (gx#syntax-split-splice _hd137953137987_ '0)))) (begin - (let ((_g276345_ + (let ((_g149883_ (let () (declare (not safe)) - (if (##values? _g276344_) - (##vector-length _g276344_) + (if (##values? _g149882_) + (##vector-length _g149882_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g276345_ 2))) - (error "Context expects 2 values" _g276345_))) - (let ((_target259849259886_ + (##fx= _g149883_ 2))) + (error "Context expects 2 values" _g149883_))) + (let ((_target137955137992_ (let () (declare (not safe)) - (##vector-ref _g276344_ 0))) - (_tl259851259888_ + (##vector-ref _g149882_ 0))) + (_tl137957137994_ (let () (declare (not safe)) - (##vector-ref _g276344_ 1)))) + (##vector-ref _g149882_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259851259888_)) - (letrec ((_loop259852259891_ - (lambda (_hd259850259894_ - _id259856259896_) + (gx#stx-null? _tl137957137994_)) + (letrec ((_loop137958137997_ + (lambda (_hd137956138000_ + _id137962138002_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd259850259894_)) - (let ((_e259853259899_ + (gx#stx-pair? _hd137956138000_)) + (let ((_e137959138005_ (let () (declare (not safe)) (gx#stx-e - _hd259850259894_)))) - (let ((_lp-hd259854259902_ + _hd137956138000_)))) + (let ((_lp-hd137960138008_ (let () (declare (not safe)) - (##car _e259853259899_))) - (_lp-tl259855259904_ + (##car _e137959138005_))) + (_lp-tl137961138010_ (let () (declare (not safe)) - (##cdr _e259853259899_)))) - (let ((__tmp276346 + (##cdr _e137959138005_)))) + (let ((__tmp149884 (let () (declare (not safe)) - (cons _lp-hd259854259902_ - _id259856259896_)))) + (cons _lp-hd137960138008_ + _id137962138002_)))) (declare (not safe)) - (_loop259852259891_ - _lp-tl259855259904_ - __tmp276346)))) - (let ((_id259857259907_ - (reverse _id259856259896_))) + (_loop137958137997_ + _lp-tl137961138010_ + __tmp149884)))) + (let ((_id137963138013_ + (reverse _id137962138002_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259846259883_)) - (let ((_e259860259910_ + _tl137952137989_)) + (let ((_e137966138016_ (let () (declare (not safe)) (gx#stx-e - _tl259846259883_)))) - (let ((_hd259859259913_ + _tl137952137989_)))) + (let ((_hd137965138019_ (let () (declare (not safe)) - (##car _e259860259910_))) - (_tl259858259915_ + (##car _e137966138016_))) + (_tl137964138021_ (let () (declare (not safe)) - (##cdr _e259860259910_)))) + (##cdr _e137966138016_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl259858259915_)) - ((lambda (_L259918_ + _tl137964138021_)) + ((lambda (_L138024_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L259919_) + _L138025_) (let () (declare (not safe)) - (_assert-restart259814_ _L259918_ _assert259836_))) - _hd259859259913_ - _id259857259907_) + (_assert-restart137920_ _L138024_ _assert137942_))) + _hd137965138019_ + _id137963138013_) (let () (declare (not safe)) - (_g259839259865_ _g259840259868_))))) + (_g137945137971_ _g137946137974_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g259839259865_ - _g259840259868_)))))))) + (_g137945137971_ + _g137946137974_)))))))) (let () (declare (not safe)) - (_loop259852259891_ _target259849259886_ '()))) + (_loop137958137997_ _target137955137992_ '()))) (let () (declare (not safe)) - (_g259839259865_ _g259840259868_)))))) + (_g137945137971_ _g137946137974_)))))) (let () (declare (not safe)) - (_g259839259865_ _g259840259868_))))) + (_g137945137971_ _g137946137974_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g259839259865_ - _g259840259868_))) + (_g137945137971_ + _g137946137974_))) (let () (declare (not safe)) - (_g259839259865_ - _g259840259868_))) + (_g137945137971_ + _g137946137974_))) (let () (declare (not safe)) - (_g259839259865_ - _g259840259868_))))) + (_g137945137971_ + _g137946137974_))))) (let () (declare (not safe)) - (_g259839259865_ _g259840259868_)))))) + (_g137945137971_ _g137946137974_)))))) (declare (not safe)) - (_g259838259942_ _kont259837_))))) - (if (let () (declare (not safe)) (##pair? _block259815259828_)) - (let ((_tl259820259948_ + (_g137944138048_ _kont137943_))))) + (if (let () (declare (not safe)) (##pair? _block137921137934_)) + (let ((_tl137926138054_ (let () (declare (not safe)) - (##cdr _block259815259828_)))) - (if (let () (declare (not safe)) (##pair? _tl259820259948_)) - (let ((_tl259822259951_ + (##cdr _block137921137934_)))) + (if (let () (declare (not safe)) (##pair? _tl137926138054_)) + (let ((_tl137928138057_ (let () (declare (not safe)) - (##cdr _tl259820259948_)))) + (##cdr _tl137926138054_)))) (if (let () (declare (not safe)) - (##pair? _tl259822259951_)) - (let ((_hd259823259954_ + (##pair? _tl137928138057_)) + (let ((_hd137929138060_ (let () (declare (not safe)) - (##car _tl259822259951_))) - (_tl259824259956_ + (##car _tl137928138057_))) + (_tl137930138062_ (let () (declare (not safe)) - (##cdr _tl259822259951_)))) - (let ((_kont259959_ _hd259823259954_)) + (##cdr _tl137928138057_)))) + (let ((_kont138065_ _hd137929138060_)) (if (let () (declare (not safe)) - (##pair? _tl259824259956_)) - (let ((_hd259825259961_ + (##pair? _tl137930138062_)) + (let ((_hd137931138067_ (let () (declare (not safe)) - (##car _tl259824259956_))) - (_tl259826259963_ + (##car _tl137930138062_))) + (_tl137932138069_ (let () (declare (not safe)) - (##cdr _tl259824259956_)))) - (let* ((_assert259966_ _hd259825259961_) - (_maybe-bind259968_ - _tl259826259963_)) + (##cdr _tl137930138062_)))) + (let* ((_assert138072_ _hd137931138067_) + (_maybe-bind138074_ + _tl137932138069_)) (declare (not safe)) - (_K259818259945_ - _maybe-bind259968_ - _assert259966_ - _kont259959_))) + (_K137924138051_ + _maybe-bind138074_ + _assert138072_ + _kont138065_))) (let () (declare (not safe)) - (_E259817259832_))))) - (let () (declare (not safe)) (_E259817259832_)))) - (let () (declare (not safe)) (_E259817259832_)))) - (let () (declare (not safe)) (_E259817259832_))))))) + (_E137923137938_))))) + (let () (declare (not safe)) (_E137923137938_)))) + (let () (declare (not safe)) (_E137923137938_)))) + (let () (declare (not safe)) (_E137923137938_))))))) (define gxc#optimize-syntax-case - (lambda (_stx259442_) - (let* ((_g259444259474_ - (lambda (_g259445259471_) + (lambda (_stx137548_) + (let* ((_g137550137580_ + (lambda (_g137551137577_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g259445259471_)))) - (_g259443259808_ - (lambda (_g259445259477_) + _g137551137577_)))) + (_g137549137914_ + (lambda (_g137551137583_) (if (let () (declare (not safe)) - (gx#stx-pair? _g259445259477_)) - (let ((_e259451259479_ + (gx#stx-pair? _g137551137583_)) + (let ((_e137557137585_ (let () (declare (not safe)) - (gx#stx-e _g259445259477_)))) - (let ((_hd259450259482_ + (gx#stx-e _g137551137583_)))) + (let ((_hd137556137588_ (let () (declare (not safe)) - (##car _e259451259479_))) - (_tl259449259484_ + (##car _e137557137585_))) + (_tl137555137590_ (let () (declare (not safe)) - (##cdr _e259451259479_)))) + (##cdr _e137557137585_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd259450259482_)) + (gx#identifier? _hd137556137588_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd259450259482_)) + _hd137556137588_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl259449259484_)) - (let ((_e259454259487_ + (gx#stx-pair? _tl137555137590_)) + (let ((_e137560137593_ (let () (declare (not safe)) - (gx#stx-e _tl259449259484_)))) - (let ((_hd259453259490_ + (gx#stx-e _tl137555137590_)))) + (let ((_hd137559137596_ (let () (declare (not safe)) - (##car _e259454259487_))) - (_tl259452259492_ + (##car _e137560137593_))) + (_tl137558137598_ (let () (declare (not safe)) - (##cdr _e259454259487_)))) + (##cdr _e137560137593_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd259453259490_)) - (let ((_e259457259495_ + _hd137559137596_)) + (let ((_e137563137601_ (let () (declare (not safe)) (gx#stx-e - _hd259453259490_)))) - (let ((_hd259456259498_ + _hd137559137596_)))) + (let ((_hd137562137604_ (let () (declare (not safe)) - (##car _e259457259495_))) - (_tl259455259500_ + (##car _e137563137601_))) + (_tl137561137606_ (let () (declare (not safe)) - (##cdr _e259457259495_)))) + (##cdr _e137563137601_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd259456259498_)) - (let ((_e259460259503_ + _hd137562137604_)) + (let ((_e137566137609_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd259456259498_)))) - (let ((_hd259459259506_ - (let () (declare (not safe)) (##car _e259460259503_))) - (_tl259458259508_ - (let () (declare (not safe)) (##cdr _e259460259503_)))) + (gx#stx-e _hd137562137604_)))) + (let ((_hd137565137612_ + (let () (declare (not safe)) (##car _e137566137609_))) + (_tl137564137614_ + (let () (declare (not safe)) (##cdr _e137566137609_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd259459259506_)) - (let ((_e259463259511_ + (gx#stx-pair? _hd137565137612_)) + (let ((_e137569137617_ (let () (declare (not safe)) - (gx#stx-e _hd259459259506_)))) - (let ((_hd259462259514_ + (gx#stx-e _hd137565137612_)))) + (let ((_hd137568137620_ (let () (declare (not safe)) - (##car _e259463259511_))) - (_tl259461259516_ + (##car _e137569137617_))) + (_tl137567137622_ (let () (declare (not safe)) - (##cdr _e259463259511_)))) + (##cdr _e137569137617_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259461259516_)) + (gx#stx-null? _tl137567137622_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl259458259508_)) - (let ((_e259466259519_ + (gx#stx-pair? _tl137564137614_)) + (let ((_e137572137625_ (let () (declare (not safe)) - (gx#stx-e _tl259458259508_)))) - (let ((_hd259465259522_ + (gx#stx-e _tl137564137614_)))) + (let ((_hd137571137628_ (let () (declare (not safe)) - (##car _e259466259519_))) - (_tl259464259524_ + (##car _e137572137625_))) + (_tl137570137630_ (let () (declare (not safe)) - (##cdr _e259466259519_)))) + (##cdr _e137572137625_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259464259524_)) + (gx#stx-null? _tl137570137630_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl259455259500_)) + _tl137561137606_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259452259492_)) - (let ((_e259469259527_ + _tl137558137598_)) + (let ((_e137575137633_ (let () (declare (not safe)) (gx#stx-e - _tl259452259492_)))) - (let ((_hd259468259530_ + _tl137558137598_)))) + (let ((_hd137574137636_ (let () (declare (not safe)) - (##car _e259469259527_))) - (_tl259467259532_ + (##car _e137575137633_))) + (_tl137573137638_ (let () (declare (not safe)) - (##cdr _e259469259527_)))) + (##cdr _e137575137633_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl259467259532_)) - ((lambda (_L259535_ + _tl137573137638_)) + ((lambda (_L137641_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L259536_ - _L259537_) - (let _lp259561_ ((_body259563_ _L259535_) - (_clauses259564_ '())) - (let* ((___stx275221275222_ _body259563_) - (_g259567259614_ + _L137642_ + _L137643_) + (let _lp137667_ ((_body137669_ _L137641_) + (_clauses137670_ '())) + (let* ((___stx148759148760_ _body137669_) + (_g137673137720_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx275221275222_))))) - (let ((___kont275223275224_ - (lambda (_L259780_ _L259781_ _L259782_) - (let ((__tmp276347 - (let ((__tmp276348 - (let ((__tmp276349 + ___stx148759148760_))))) + (let ((___kont148761148762_ + (lambda (_L137886_ _L137887_ _L137888_) + (let ((__tmp149885 + (let ((__tmp149886 + (let ((__tmp149887 (let () (declare (not safe)) (gxc#compile-e__0 - _L259781_)))) + _L137887_)))) (declare (not safe)) - (cons _L259782_ - __tmp276349)))) + (cons _L137888_ + __tmp149887)))) (declare (not safe)) - (cons __tmp276348 - _clauses259564_)))) + (cons __tmp149886 + _clauses137670_)))) (declare (not safe)) - (_lp259561_ _L259780_ __tmp276347)))) - (___kont275225275226_ - (lambda (_L259659_ _L259660_) - (let ((_$e259681_ (length _clauses259564_))) + (_lp137667_ _L137886_ __tmp149885)))) + (___kont148763148764_ + (lambda (_L137765_ _L137766_) + (let ((_$e137787_ (length _clauses137670_))) (if (let () (declare (not safe)) - (eq? '0 _$e259681_)) - (let ((__tmp276367 - (let ((__tmp276368 - (let ((__tmp276371 - (let ((__tmp276372 + (eq? '0 _$e137787_)) + (let ((__tmp149905 + (let ((__tmp149906 + (let ((__tmp149909 + (let ((__tmp149910 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp276374 + (let ((__tmp149912 (let () (declare (not safe)) - (cons _L259537_ '()))) - (__tmp276373 + (cons _L137643_ '()))) + (__tmp149911 (let () (declare (not safe)) - (cons _L259536_ '())))) + (cons _L137642_ '())))) (declare (not safe)) - (cons __tmp276374 __tmp276373)))) + (cons __tmp149912 __tmp149911)))) (declare (not safe)) - (cons __tmp276372 '()))) - (__tmp276369 - (let ((__tmp276370 + (cons __tmp149910 '()))) + (__tmp149907 + (let ((__tmp149908 (let () (declare (not safe)) - (gxc#compile-e__0 _body259563_)))) + (gxc#compile-e__0 _body137669_)))) (declare (not safe)) - (cons __tmp276370 '())))) + (cons __tmp149908 '())))) (declare (not safe)) - (cons __tmp276371 __tmp276369)))) + (cons __tmp149909 __tmp149907)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp276368)))) + __tmp149906)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp276367 - _stx259442_)) + __tmp149905 + _stx137548_)) (if (let () (declare (not safe)) - (eq? '1 _$e259681_)) - (let* ((_clauses259683259692_ - _clauses259564_) - (_E259685259696_ + (eq? '1 _$e137787_)) + (let* ((_clauses137789137798_ + _clauses137670_) + (_E137791137802_ (lambda () - (error '"No clause matching" - _clauses259683259692_))) - (_K259686259702_ - (lambda (_clause-lambda259699_ - _clause259700_) - (let ((__tmp276352 - (let ((__tmp276353 + (let () + (declare (not safe)) + (error '"No clause matching" + _clauses137789137798_)))) + (_K137792137808_ + (lambda (_clause-lambda137805_ + _clause137806_) + (let ((__tmp149890 + (let ((__tmp149891 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp276363 - (let ((__tmp276364 - (let ((__tmp276366 + (let ((__tmp149901 + (let ((__tmp149902 + (let ((__tmp149904 (let () (declare (not safe)) - (cons _L259537_ '()))) - (__tmp276365 + (cons _L137643_ '()))) + (__tmp149903 (let () (declare (not safe)) - (cons _L259536_ '())))) + (cons _L137642_ '())))) (declare (not safe)) - (cons __tmp276366 __tmp276365)))) + (cons __tmp149904 __tmp149903)))) (declare (not safe)) - (cons __tmp276364 '()))) - (__tmp276354 - (let ((__tmp276355 - (let ((__tmp276356 - (let ((__tmp276359 - (let ((__tmp276360 - (let ((__tmp276362 + (cons __tmp149902 '()))) + (__tmp149892 + (let ((__tmp149893 + (let ((__tmp149894 + (let ((__tmp149897 + (let ((__tmp149898 + (let ((__tmp149900 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _clause259700_ '()))) - (__tmp276361 + (cons _clause137806_ '()))) + (__tmp149899 (let () (declare (not safe)) - (cons _clause-lambda259699_ '())))) + (cons _clause-lambda137805_ '())))) (declare (not safe)) - (cons __tmp276362 __tmp276361)))) + (cons __tmp149900 __tmp149899)))) (declare (not safe)) - (cons __tmp276360 '()))) - (__tmp276357 - (let ((__tmp276358 + (cons __tmp149898 '()))) + (__tmp149895 + (let ((__tmp149896 (let () (declare (not safe)) - (gxc#compile-e__0 _body259563_)))) + (gxc#compile-e__0 _body137669_)))) (declare (not safe)) - (cons __tmp276358 '())))) + (cons __tmp149896 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp276359 - __tmp276357)))) + (cons __tmp149897 + __tmp149895)))) (declare (not safe)) - (cons '%#let-values __tmp276356)))) + (cons '%#let-values __tmp149894)))) (declare (not safe)) - (cons __tmp276355 '())))) + (cons __tmp149893 '())))) (declare (not safe)) - (cons __tmp276363 __tmp276354)))) + (cons __tmp149901 __tmp149892)))) (declare (not safe)) - (cons '%#let-values __tmp276353)))) + (cons '%#let-values __tmp149891)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp276352 _stx259442_))))) + (gxc#xform-wrap-source __tmp149890 _stx137548_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _clauses259683259692_)) - (let ((_hd259687259705_ + (##pair? _clauses137789137798_)) + (let ((_hd137793137811_ (let () (declare (not safe)) - (##car _clauses259683259692_))) - (_tl259688259707_ + (##car _clauses137789137798_))) + (_tl137794137813_ (let () (declare (not safe)) - (##cdr _clauses259683259692_)))) + (##cdr _clauses137789137798_)))) (if (let () (declare (not safe)) - (##pair? _hd259687259705_)) - (let ((_hd259689259710_ + (##pair? _hd137793137811_)) + (let ((_hd137795137816_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _hd259687259705_))) - (_tl259690259712_ - (let () (declare (not safe)) (##cdr _hd259687259705_)))) - (let* ((_clause259715_ _hd259689259710_) - (_clause-lambda259717_ _tl259690259712_)) + (##car _hd137793137811_))) + (_tl137796137818_ + (let () (declare (not safe)) (##cdr _hd137793137811_)))) + (let* ((_clause137821_ _hd137795137816_) + (_clause-lambda137823_ _tl137796137818_)) (if (let () (declare (not safe)) - (##null? _tl259688259707_)) + (##null? _tl137794137813_)) (let () (declare (not safe)) - (_K259686259702_ - _clause-lambda259717_ - _clause259715_)) - (let () (declare (not safe)) (_E259685259696_))))) - (let () (declare (not safe)) (_E259685259696_)))) + (_K137792137808_ + _clause-lambda137823_ + _clause137821_)) + (let () (declare (not safe)) (_E137791137802_))))) + (let () (declare (not safe)) (_E137791137802_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E259685259696_)))) - (let ((__tmp276351 + (_E137791137802_)))) + (let ((__tmp149889 (let () (declare (not safe)) (gxc#compile-e__0 - _L259659_))) - (__tmp276350 + _L137765_))) + (__tmp149888 (let () (declare (not safe)) - (cons _L259537_ - _L259536_)))) + (cons _L137643_ + _L137642_)))) (declare (not safe)) (gxc#optimize-syntax-case-body - _stx259442_ - __tmp276351 - __tmp276350 - _clauses259564_)))))))) + _stx137548_ + __tmp149889 + __tmp149888 + _clauses137670_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx275221275222_)) - (let ((_e259574259724_ + (gx#stx-pair? ___stx148759148760_)) + (let ((_e137680137830_ (let () (declare (not safe)) - (gx#stx-e ___stx275221275222_)))) - (let ((_tl259572259729_ + (gx#stx-e ___stx148759148760_)))) + (let ((_tl137678137835_ (let () (declare (not safe)) - (##cdr _e259574259724_))) - (_hd259573259727_ + (##cdr _e137680137830_))) + (_hd137679137833_ (let () (declare (not safe)) - (##car _e259574259724_)))) + (##car _e137680137830_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd259573259727_)) + (gx#identifier? _hd137679137833_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd259573259727_)) + _hd137679137833_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259572259729_)) - (let ((_e259577259732_ + _tl137678137835_)) + (let ((_e137683137838_ (let () (declare (not safe)) (gx#stx-e - _tl259572259729_)))) - (let ((_tl259575259737_ + _tl137678137835_)))) + (let ((_tl137681137843_ (let () (declare (not safe)) - (##cdr _e259577259732_))) - (_hd259576259735_ + (##cdr _e137683137838_))) + (_hd137682137841_ (let () (declare (not safe)) - (##car _e259577259732_)))) + (##car _e137683137838_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd259576259735_)) - (let ((_e259580259740_ + _hd137682137841_)) + (let ((_e137686137846_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd259576259735_)))) - (let ((_tl259578259745_ - (let () (declare (not safe)) (##cdr _e259580259740_))) - (_hd259579259743_ - (let () (declare (not safe)) (##car _e259580259740_)))) + (gx#stx-e _hd137682137841_)))) + (let ((_tl137684137851_ + (let () (declare (not safe)) (##cdr _e137686137846_))) + (_hd137685137849_ + (let () (declare (not safe)) (##car _e137686137846_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd259579259743_)) - (let ((_e259583259748_ + (gx#stx-pair? _hd137685137849_)) + (let ((_e137689137854_ (let () (declare (not safe)) - (gx#stx-e _hd259579259743_)))) - (let ((_tl259581259753_ + (gx#stx-e _hd137685137849_)))) + (let ((_tl137687137859_ (let () (declare (not safe)) - (##cdr _e259583259748_))) - (_hd259582259751_ + (##cdr _e137689137854_))) + (_hd137688137857_ (let () (declare (not safe)) - (##car _e259583259748_)))) + (##car _e137689137854_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd259582259751_)) - (let ((_e259586259756_ + (gx#stx-pair? _hd137688137857_)) + (let ((_e137692137862_ (let () (declare (not safe)) - (gx#stx-e _hd259582259751_)))) - (let ((_tl259584259761_ + (gx#stx-e _hd137688137857_)))) + (let ((_tl137690137867_ (let () (declare (not safe)) - (##cdr _e259586259756_))) - (_hd259585259759_ + (##cdr _e137692137862_))) + (_hd137691137865_ (let () (declare (not safe)) - (##car _e259586259756_)))) + (##car _e137692137862_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259584259761_)) + (gx#stx-null? _tl137690137867_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl259581259753_)) - (let ((_e259589259764_ + (gx#stx-pair? _tl137687137859_)) + (let ((_e137695137870_ (let () (declare (not safe)) (gx#stx-e - _tl259581259753_)))) - (let ((_tl259587259769_ + _tl137687137859_)))) + (let ((_tl137693137875_ (let () (declare (not safe)) - (##cdr _e259589259764_))) - (_hd259588259767_ + (##cdr _e137695137870_))) + (_hd137694137873_ (let () (declare (not safe)) - (##car _e259589259764_)))) + (##car _e137695137870_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl259587259769_)) + _tl137693137875_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl259578259745_)) + _tl137684137851_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259575259737_)) - (let ((_e259592259772_ + _tl137681137843_)) + (let ((_e137698137878_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl259575259737_)))) - (let ((_tl259590259777_ + (gx#stx-e _tl137681137843_)))) + (let ((_tl137696137883_ (let () (declare (not safe)) - (##cdr _e259592259772_))) - (_hd259591259775_ + (##cdr _e137698137878_))) + (_hd137697137881_ (let () (declare (not safe)) - (##car _e259592259772_)))) + (##car _e137698137878_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259590259777_)) - (___kont275223275224_ - _hd259591259775_ - _hd259588259767_ - _hd259585259759_) - (let () (declare (not safe)) (_g259567259614_))))) - (let () (declare (not safe)) (_g259567259614_))) - (let () (declare (not safe)) (_g259567259614_))) + (gx#stx-null? _tl137696137883_)) + (___kont148761148762_ + _hd137697137881_ + _hd137694137873_ + _hd137691137865_) + (let () (declare (not safe)) (_g137673137720_))))) + (let () (declare (not safe)) (_g137673137720_))) + (let () (declare (not safe)) (_g137673137720_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g259567259614_))))) + (_g137673137720_))))) (let () (declare (not safe)) - (_g259567259614_))) + (_g137673137720_))) (let () (declare (not safe)) - (_g259567259614_))))) + (_g137673137720_))))) (let () (declare (not safe)) - (_g259567259614_))))) - (let () (declare (not safe)) (_g259567259614_))))) - (let () (declare (not safe)) (_g259567259614_))))) + (_g137673137720_))))) + (let () (declare (not safe)) (_g137673137720_))))) + (let () (declare (not safe)) (_g137673137720_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g259567259614_))) + (_g137673137720_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd259573259727_)) + _hd137679137833_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259572259729_)) - (let ((_e259600259627_ + _tl137678137835_)) + (let ((_e137706137733_ (let () (declare (not safe)) (gx#stx-e - _tl259572259729_)))) - (let ((_tl259598259632_ + _tl137678137835_)))) + (let ((_tl137704137738_ (let () (declare (not safe)) - (##cdr _e259600259627_))) - (_hd259599259630_ + (##cdr _e137706137733_))) + (_hd137705137736_ (let () (declare (not safe)) - (##car _e259600259627_)))) + (##car _e137706137733_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd259599259630_)) - (let ((_e259603259635_ + _hd137705137736_)) + (let ((_e137709137741_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd259599259630_)))) - (let ((_tl259601259640_ + (gx#stx-e _hd137705137736_)))) + (let ((_tl137707137746_ (let () (declare (not safe)) - (##cdr _e259603259635_))) - (_hd259602259638_ + (##cdr _e137709137741_))) + (_hd137708137744_ (let () (declare (not safe)) - (##car _e259603259635_)))) + (##car _e137709137741_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd259602259638_)) + (gx#identifier? _hd137708137744_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd259602259638_)) + (gx#stx-eq? '%#ref _hd137708137744_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl259601259640_)) - (let ((_e259606259643_ + (gx#stx-pair? _tl137707137746_)) + (let ((_e137712137749_ (let () (declare (not safe)) - (gx#stx-e _tl259601259640_)))) - (let ((_tl259604259648_ + (gx#stx-e _tl137707137746_)))) + (let ((_tl137710137754_ (let () (declare (not safe)) - (##cdr _e259606259643_))) - (_hd259605259646_ + (##cdr _e137712137749_))) + (_hd137711137752_ (let () (declare (not safe)) - (##car _e259606259643_)))) + (##car _e137712137749_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259604259648_)) + (gx#stx-null? _tl137710137754_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259598259632_)) - (let ((_e259609259651_ + _tl137704137738_)) + (let ((_e137715137757_ (let () (declare (not safe)) (gx#stx-e - _tl259598259632_)))) - (let ((_tl259607259656_ + _tl137704137738_)))) + (let ((_tl137713137762_ (let () (declare (not safe)) - (##cdr _e259609259651_))) - (_hd259608259654_ + (##cdr _e137715137757_))) + (_hd137714137760_ (let () (declare (not safe)) - (##car _e259609259651_)))) + (##car _e137715137757_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl259607259656_)) - (___kont275225275226_ - _hd259608259654_ - _hd259605259646_) + _tl137713137762_)) + (___kont148763148764_ + _hd137714137760_ + _hd137711137752_) (let () (declare (not safe)) - (_g259567259614_))))) + (_g137673137720_))))) (let () (declare (not safe)) - (_g259567259614_))) + (_g137673137720_))) (let () (declare (not safe)) - (_g259567259614_))))) + (_g137673137720_))))) (let () (declare (not safe)) - (_g259567259614_))) - (let () (declare (not safe)) (_g259567259614_))) - (let () (declare (not safe)) (_g259567259614_))))) - (let () (declare (not safe)) (_g259567259614_))))) + (_g137673137720_))) + (let () (declare (not safe)) (_g137673137720_))) + (let () (declare (not safe)) (_g137673137720_))))) + (let () (declare (not safe)) (_g137673137720_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g259567259614_))) + (_g137673137720_))) (let () (declare (not safe)) - (_g259567259614_)))) + (_g137673137720_)))) (let () (declare (not safe)) - (_g259567259614_))))) + (_g137673137720_))))) (let () (declare (not safe)) - (_g259567259614_))))))) - _hd259468259530_ - _hd259465259522_ - _hd259462259514_) + (_g137673137720_))))))) + _hd137574137636_ + _hd137571137628_ + _hd137568137620_) (let () (declare (not safe)) - (_g259444259474_ _g259445259477_))))) + (_g137550137580_ _g137551137583_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g259444259474_ - _g259445259477_))) + (_g137550137580_ + _g137551137583_))) (let () (declare (not safe)) - (_g259444259474_ - _g259445259477_))) + (_g137550137580_ + _g137551137583_))) (let () (declare (not safe)) - (_g259444259474_ - _g259445259477_))))) + (_g137550137580_ + _g137551137583_))))) (let () (declare (not safe)) - (_g259444259474_ _g259445259477_))) + (_g137550137580_ _g137551137583_))) (let () (declare (not safe)) - (_g259444259474_ _g259445259477_))))) + (_g137550137580_ _g137551137583_))))) (let () (declare (not safe)) - (_g259444259474_ _g259445259477_))))) + (_g137550137580_ _g137551137583_))))) (let () (declare (not safe)) - (_g259444259474_ _g259445259477_))))) + (_g137550137580_ _g137551137583_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g259444259474_ - _g259445259477_))))) + (_g137550137580_ + _g137551137583_))))) (let () (declare (not safe)) - (_g259444259474_ _g259445259477_))) + (_g137550137580_ _g137551137583_))) (let () (declare (not safe)) - (_g259444259474_ _g259445259477_))) + (_g137550137580_ _g137551137583_))) (let () (declare (not safe)) - (_g259444259474_ _g259445259477_))))) + (_g137550137580_ _g137551137583_))))) (let () (declare (not safe)) - (_g259444259474_ _g259445259477_)))))) + (_g137550137580_ _g137551137583_)))))) (declare (not safe)) - (_g259443259808_ _stx259442_)))) + (_g137549137914_ _stx137548_)))) (define gxc#optimize-syntax-case-body - (lambda (_stx259370_ _expr259371_ _negation259372_ _clauses259373_) - (letrec ((_normalize259375_ - (lambda (_clauses259402_) - (let* ((_clauses259403259412_ _clauses259402_) - (_E259405259416_ + (lambda (_stx137476_ _expr137477_ _negation137478_ _clauses137479_) + (letrec ((_normalize137481_ + (lambda (_clauses137508_) + (let* ((_clauses137509137518_ _clauses137508_) + (_E137511137522_ (lambda () - (error '"No clause matching" - _clauses259403259412_))) - (_K259406259423_ - (lambda (_rest259419_ _kont259420_ _id259421_) - (let ((__tmp276375 + (let () + (declare (not safe)) + (error '"No clause matching" + _clauses137509137518_)))) + (_K137512137529_ + (lambda (_rest137525_ _kont137526_ _id137527_) + (let ((__tmp149913 (let () (declare (not safe)) - (cons '#f _kont259420_)))) + (cons '#f _kont137526_)))) (declare (not safe)) - (cons __tmp276375 _rest259419_))))) + (cons __tmp149913 _rest137525_))))) (if (let () (declare (not safe)) - (##pair? _clauses259403259412_)) - (let ((_hd259407259426_ + (##pair? _clauses137509137518_)) + (let ((_hd137513137532_ (let () (declare (not safe)) - (##car _clauses259403259412_))) - (_tl259408259428_ + (##car _clauses137509137518_))) + (_tl137514137534_ (let () (declare (not safe)) - (##cdr _clauses259403259412_)))) + (##cdr _clauses137509137518_)))) (if (let () (declare (not safe)) - (##pair? _hd259407259426_)) - (let ((_hd259409259431_ + (##pair? _hd137513137532_)) + (let ((_hd137515137537_ (let () (declare (not safe)) - (##car _hd259407259426_))) - (_tl259410259433_ + (##car _hd137513137532_))) + (_tl137516137539_ (let () (declare (not safe)) - (##cdr _hd259407259426_)))) - (let* ((_id259436_ _hd259409259431_) - (_kont259438_ _tl259410259433_) - (_rest259440_ _tl259408259428_)) + (##cdr _hd137513137532_)))) + (let* ((_id137542_ _hd137515137537_) + (_kont137544_ _tl137516137539_) + (_rest137546_ _tl137514137534_)) (declare (not safe)) - (_K259406259423_ - _rest259440_ - _kont259438_ - _id259436_))) + (_K137512137529_ + _rest137546_ + _kont137544_ + _id137542_))) (let () (declare (not safe)) - (_E259405259416_)))) - (let () (declare (not safe)) (_E259405259416_))))))) - (let ((__tmp276377 + (_E137511137522_)))) + (let () (declare (not safe)) (_E137511137522_))))))) + (let ((__tmp149915 (lambda () - (let* ((_id259378_ - (let ((__tmp276378 (gensym '__stx))) + (let* ((_id137484_ + (let ((__tmp149916 (gensym '__stx))) (declare (not safe)) - (make-symbol__0 __tmp276378))) - (_id259380_ + (make-symbol__0 __tmp149916))) + (_id137486_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id259378_))) - (_g276379_ + (gx#core-quote-syntax__0 _id137484_))) + (_g149917_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _id259380_))) - (_g276380_ - (let ((__tmp276382 (car _negation259372_))) + (gx#core-bind-runtime!__0 _id137486_))) + (_g149918_ + (let ((__tmp149920 (car _negation137478_))) (declare (not safe)) (gxc#optimize-syntax-case-clauses - _clauses259373_ - __tmp276382)))) + _clauses137479_ + __tmp149920)))) (begin - (let ((_g276381_ + (let ((_g149919_ (let () (declare (not safe)) - (if (##values? _g276380_) - (##vector-length _g276380_) + (if (##values? _g149918_) + (##vector-length _g149918_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g276381_ 2))) - (error "Context expects 2 values" _g276381_))) - (let ((_clauses259383_ + (##fx= _g149919_ 2))) + (error "Context expects 2 values" _g149919_))) + (let ((_clauses137489_ (let () (declare (not safe)) - (##vector-ref _g276380_ 0))) - (_konts259384_ + (##vector-ref _g149918_ 0))) + (_konts137490_ (let () (declare (not safe)) - (##vector-ref _g276380_ 1)))) - (let* ((_clauses259393_ - (map (lambda (_g259385259388_ _g259386259390_) + (##vector-ref _g149918_ 1)))) + (let* ((_clauses137499_ + (map (lambda (_g137491137494_ _g137492137496_) (let () (declare (not safe)) (gxc#optimize-syntax-case-closure - _g259385259388_ - _g259386259390_ - _id259380_))) - _clauses259383_ - (let ((__tmp276384 - (let ((__tmp276385 - (car _negation259372_))) + _g137491137494_ + _g137492137496_ + _id137486_))) + _clauses137489_ + (let ((__tmp149922 + (let ((__tmp149923 + (car _negation137478_))) (declare (not safe)) - (cons __tmp276385 '()))) - (__tmp276383 - (map car (cdr _clauses259383_)))) + (cons __tmp149923 '()))) + (__tmp149921 + (map car (cdr _clauses137489_)))) (declare (not safe)) (foldr1 cons - __tmp276384 - __tmp276383)))) - (_clauses259395_ + __tmp149922 + __tmp149921)))) + (_clauses137501_ (let () (declare (not safe)) - (_normalize259375_ _clauses259393_))) - (_negation259397_ + (_normalize137481_ _clauses137499_))) + (_negation137503_ (let () (declare (not safe)) (gxc#optimize-syntax-case-closure - _negation259372_ + _negation137478_ '#f - _id259380_))) - (_body259399_ + _id137486_))) + (_body137505_ (let () (declare (not safe)) (gxc#optimize-match-body - _stx259370_ - _negation259397_ - _clauses259395_ - _konts259384_)))) - (let ((__tmp276386 - (let ((__tmp276387 - (let ((__tmp276389 - (let ((__tmp276390 - (let ((__tmp276392 + _stx137476_ + _negation137503_ + _clauses137501_ + _konts137490_)))) + (let ((__tmp149924 + (let ((__tmp149925 + (let ((__tmp149927 + (let ((__tmp149928 + (let ((__tmp149930 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id259380_ '()))) - (__tmp276391 - (let () (declare (not safe)) (cons _expr259371_ '())))) + (cons _id137486_ '()))) + (__tmp149929 + (let () (declare (not safe)) (cons _expr137477_ '())))) (declare (not safe)) - (cons __tmp276392 __tmp276391)))) + (cons __tmp149930 __tmp149929)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp276390 '()))) - (__tmp276388 + (cons __tmp149928 '()))) + (__tmp149926 (let () (declare (not safe)) - (cons _body259399_ '())))) + (cons _body137505_ '())))) (declare (not safe)) - (cons __tmp276389 __tmp276388)))) + (cons __tmp149927 __tmp149926)))) (declare (not safe)) - (cons '%#let-values __tmp276387)))) + (cons '%#let-values __tmp149925)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp276386 - _stx259370_)))))))) - (__tmp276376 - (let ((__obj275967 + __tmp149924 + _stx137476_)))))))) + (__tmp149914 + (let ((__obj149505 (let () (declare (not safe)) (##structure @@ -14687,3729 +14721,3733 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj275967) - __obj275967))) + (gx#local-context:::init! __obj149505) + __obj149505))) (declare (not safe)) (call-with-parameters - __tmp276377 + __tmp149915 gx#current-expander-context - __tmp276376))))) + __tmp149914))))) (define gxc#optimize-syntax-case-clauses - (lambda (_clauses258128_ _negation-id258129_) - (letrec ((_xform-e258131_ - (lambda (_expr258515_ - _kont-id258516_ - _kont-box258517_ - _negation-id258518_) - (let* ((___stx275423275424_ _expr258515_) - (_g258524258657_ + (lambda (_clauses136234_ _negation-id136235_) + (letrec ((_xform-e136237_ + (lambda (_expr136621_ + _kont-id136622_ + _kont-box136623_ + _negation-id136624_) + (let* ((___stx148961148962_ _expr136621_) + (_g136630136763_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx275423275424_))))) - (let ((___kont275425275426_ - (lambda (_L259346_ _L259347_ _L259348_) - (let* ((_K259365_ + ___stx148961148962_))))) + (let ((___kont148963148964_ + (lambda (_L137452_ _L137453_ _L137454_) + (let* ((_K137471_ (let () (declare (not safe)) - (_xform-e258131_ - _L259347_ - _kont-id258516_ - _kont-box258517_ - _negation-id258518_))) - (__tmp276393 - (let ((__tmp276394 - (let ((__tmp276395 + (_xform-e136237_ + _L137453_ + _kont-id136622_ + _kont-box136623_ + _negation-id136624_))) + (__tmp149931 + (let ((__tmp149932 + (let ((__tmp149933 (let () (declare (not safe)) - (cons _L259346_ '())))) + (cons _L137452_ '())))) (declare (not safe)) - (cons _K259365_ __tmp276395)))) + (cons _K137471_ __tmp149933)))) (declare (not safe)) - (cons _L259348_ __tmp276394)))) + (cons _L137454_ __tmp149932)))) (declare (not safe)) - (cons '%#if __tmp276393)))) - (___kont275427275428_ - (lambda (_L259262_ - _L259263_ - _L259264_ - _L259265_ - _L259266_) - (let* ((_id259301_ - (let ((__tmp276396 (gensym '__splice))) + (cons '%#if __tmp149931)))) + (___kont148965148966_ + (lambda (_L137368_ + _L137369_ + _L137370_ + _L137371_ + _L137372_) + (let* ((_id137407_ + (let ((__tmp149934 (gensym '__splice))) (declare (not safe)) - (make-symbol__0 __tmp276396))) - (_id259303_ + (make-symbol__0 __tmp149934))) + (_id137409_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id259301_))) - (_g276397_ + (gx#core-quote-syntax__0 _id137407_))) + (_g149935_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _id259303_))) - (_body259306_ + _id137409_))) + (_body137412_ (let () (declare (not safe)) - (_xform-e258131_ - _L259262_ - _kont-id258516_ - _kont-box258517_ - _negation-id258518_)))) - (let ((__tmp276398 - (let ((__tmp276423 - (let ((__tmp276424 - (let ((__tmp276432 + (_xform-e136237_ + _L137368_ + _kont-id136622_ + _kont-box136623_ + _negation-id136624_)))) + (let ((__tmp149936 + (let ((__tmp149961 + (let ((__tmp149962 + (let ((__tmp149970 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id259303_ '()))) - (__tmp276425 - (let ((__tmp276426 - (let ((__tmp276431 + (cons _id137409_ '()))) + (__tmp149963 + (let ((__tmp149964 + (let ((__tmp149969 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp276427 - (let ((__tmp276428 - (let ((__tmp276430 + (__tmp149965 + (let ((__tmp149966 + (let ((__tmp149968 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp276429 + (__tmp149967 (let () (declare (not safe)) - (cons _L259264_ '())))) + (cons _L137370_ '())))) (declare (not safe)) - (cons __tmp276430 __tmp276429)))) + (cons __tmp149968 __tmp149967)))) (declare (not safe)) - (cons __tmp276428 _L259263_)))) + (cons __tmp149966 _L137369_)))) (declare (not safe)) - (cons __tmp276431 __tmp276427)))) + (cons __tmp149969 __tmp149965)))) (declare (not safe)) - (cons __tmp276426 '())))) + (cons __tmp149964 '())))) (declare (not safe)) - (cons __tmp276432 __tmp276425)))) + (cons __tmp149970 __tmp149963)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp276424 '()))) - (__tmp276399 - (let ((__tmp276400 - (let ((__tmp276401 - (let ((__tmp276403 + (cons __tmp149962 '()))) + (__tmp149937 + (let ((__tmp149938 + (let ((__tmp149939 + (let ((__tmp149941 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp276414 - (let ((__tmp276422 + (let ((__tmp149952 + (let ((__tmp149960 (let () (declare (not safe)) - (cons _L259266_ '()))) - (__tmp276415 - (let ((__tmp276416 - (let ((__tmp276417 - (let ((__tmp276418 - (let ((__tmp276420 + (cons _L137372_ '()))) + (__tmp149953 + (let ((__tmp149954 + (let ((__tmp149955 + (let ((__tmp149956 + (let ((__tmp149958 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp276421 + (let ((__tmp149959 (let () (declare (not safe)) - (cons _id259303_ '())))) + (cons _id137409_ '())))) (declare (not safe)) - (cons '%#ref __tmp276421))) - (__tmp276419 + (cons '%#ref __tmp149959))) + (__tmp149957 (let () (declare (not safe)) (cons '(%#quote 0) '())))) (declare (not safe)) - (cons __tmp276420 __tmp276419)))) + (cons __tmp149958 __tmp149957)))) (declare (not safe)) - (cons '(%#ref ##vector-ref) __tmp276418)))) + (cons '(%#ref ##vector-ref) __tmp149956)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#call - __tmp276417)))) + __tmp149955)))) (declare (not safe)) - (cons __tmp276416 '())))) + (cons __tmp149954 '())))) (declare (not safe)) - (cons __tmp276422 __tmp276415))) - (__tmp276404 - (let ((__tmp276405 - (let ((__tmp276413 + (cons __tmp149960 __tmp149953))) + (__tmp149942 + (let ((__tmp149943 + (let ((__tmp149951 (let () (declare (not safe)) - (cons _L259265_ '()))) - (__tmp276406 - (let ((__tmp276407 - (let ((__tmp276408 - (let ((__tmp276409 + (cons _L137371_ '()))) + (__tmp149944 + (let ((__tmp149945 + (let ((__tmp149946 + (let ((__tmp149947 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp276411 - (let ((__tmp276412 + (let ((__tmp149949 + (let ((__tmp149950 (let () (declare (not safe)) - (cons _id259303_ '())))) + (cons _id137409_ '())))) (declare (not safe)) - (cons '%#ref __tmp276412))) - (__tmp276410 + (cons '%#ref __tmp149950))) + (__tmp149948 (let () (declare (not safe)) (cons '(%#quote 1) '())))) (declare (not safe)) - (cons __tmp276411 __tmp276410)))) + (cons __tmp149949 __tmp149948)))) (declare (not safe)) - (cons '(%#ref ##vector-ref) __tmp276409)))) + (cons '(%#ref ##vector-ref) __tmp149947)))) (declare (not safe)) - (cons '%#call __tmp276408)))) + (cons '%#call __tmp149946)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp276407 '())))) + (cons __tmp149945 '())))) (declare (not safe)) - (cons __tmp276413 __tmp276406)))) + (cons __tmp149951 __tmp149944)))) (declare (not safe)) - (cons __tmp276405 '())))) + (cons __tmp149943 '())))) (declare (not safe)) - (cons __tmp276414 __tmp276404))) - (__tmp276402 + (cons __tmp149952 __tmp149942))) + (__tmp149940 (let () (declare (not safe)) - (cons _body259306_ '())))) + (cons _body137412_ '())))) (declare (not safe)) - (cons __tmp276403 __tmp276402)))) + (cons __tmp149941 __tmp149940)))) (declare (not safe)) - (cons '%#let-values __tmp276401)))) + (cons '%#let-values __tmp149939)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp276400 '())))) + (cons __tmp149938 '())))) (declare (not safe)) - (cons __tmp276423 __tmp276399)))) + (cons __tmp149961 __tmp149937)))) (declare (not safe)) - (cons '%#let-values __tmp276398))))) - (___kont275429275430_ - (lambda (_L259144_ _L259145_) - (let* ((_body259159_ + (cons '%#let-values __tmp149936))))) + (___kont148967148968_ + (lambda (_L137250_ _L137251_) + (let* ((_body137265_ (let () (declare (not safe)) - (_xform-e258131_ - _L259144_ - _kont-id258516_ - _kont-box258517_ - _negation-id258518_))) - (__tmp276433 - (let ((__tmp276434 + (_xform-e136237_ + _L137250_ + _kont-id136622_ + _kont-box136623_ + _negation-id136624_))) + (__tmp149971 + (let ((__tmp149972 (let () (declare (not safe)) - (cons _body259159_ '())))) + (cons _body137265_ '())))) (declare (not safe)) - (cons _L259145_ __tmp276434)))) + (cons _L137251_ __tmp149972)))) (declare (not safe)) - (cons '%#let-values __tmp276433)))) - (___kont275431275432_ - (lambda (_L259088_ _L259089_ _L259090_) - (let* ((_lambda-expr259113_ + (cons '%#let-values __tmp149971)))) + (___kont148969148970_ + (lambda (_L137194_ _L137195_ _L137196_) + (let* ((_lambda-expr137219_ (let () (declare (not safe)) - (_xform-loop-e258132_ - _L259089_ - _kont-id258516_ - _kont-box258517_ - _negation-id258518_))) - (__tmp276435 - (let ((__tmp276437 - (let ((__tmp276438 - (let ((__tmp276440 + (_xform-loop-e136238_ + _L137195_ + _kont-id136622_ + _kont-box136623_ + _negation-id136624_))) + (__tmp149973 + (let ((__tmp149975 + (let ((__tmp149976 + (let ((__tmp149978 (let () (declare (not safe)) - (cons _L259090_ + (cons _L137196_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp276439 + (__tmp149977 (let () (declare (not safe)) - (cons _lambda-expr259113_ '())))) + (cons _lambda-expr137219_ '())))) (declare (not safe)) - (cons __tmp276440 __tmp276439)))) + (cons __tmp149978 __tmp149977)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp276438 '()))) - (__tmp276436 + (cons __tmp149976 '()))) + (__tmp149974 (let () (declare (not safe)) - (cons _L259088_ '())))) + (cons _L137194_ '())))) (declare (not safe)) - (cons __tmp276437 __tmp276436)))) + (cons __tmp149975 __tmp149974)))) (declare (not safe)) - (cons '%#letrec-values __tmp276435)))) - (___kont275433275434_ - (lambda (_L258750_ _L258751_ _L258752_) - (let* ((___stx275325275326_ _L258751_) - (_g258781258824_ + (cons '%#letrec-values __tmp149973)))) + (___kont148971148972_ + (lambda (_L136856_ _L136857_ _L136858_) + (let* ((___stx148863148864_ _L136857_) + (_g136887136930_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx275325275326_))))) - (let ((___kont275327275328_ - (lambda (_L258940_ - _L258941_ - _L258942_ - _L258943_) - (let ((_kont258984_ - (let ((__tmp276445 + ___stx148863148864_))))) + (let ((___kont148865148866_ + (lambda (_L137046_ + _L137047_ + _L137048_ + _L137049_) + (let ((_kont137090_ + (let ((__tmp149983 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp276441 - (let ((__tmp276443 - (let ((__tmp276444 + (__tmp149979 + (let ((__tmp149981 + (let ((__tmp149982 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g258976258979_ _g258977258981_) + (lambda (_g137082137085_ _g137083137087_) (let () (declare (not safe)) - (cons _g258976258979_ _g258977258981_))))) + (cons _g137082137085_ _g137083137087_))))) (declare (not safe)) - (foldr1 __tmp276444 '() _L258752_))) - (__tmp276442 - (let () (declare (not safe)) (cons _L258942_ '())))) + (foldr1 __tmp149982 '() _L136858_))) + (__tmp149980 + (let () (declare (not safe)) (cons _L137048_ '())))) (declare (not safe)) - (cons __tmp276443 __tmp276442)))) + (cons __tmp149981 __tmp149980)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp276445 - __tmp276441)))) + (cons __tmp149983 + __tmp149979)))) (set-box! - _kont-box258517_ - _kont258984_) - (let* ((_kont-args258995_ - (map (lambda (_id258986_) - (let ((__tmp276446 + _kont-box136623_ + _kont137090_) + (let* ((_kont-args137101_ + (map (lambda (_id137092_) + (let ((__tmp149984 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id258986_ '())))) + (let () (declare (not safe)) (cons _id137092_ '())))) (declare (not safe)) - (cons '%#ref __tmp276446))) - (let ((__tmp276447 - (lambda (_g258987258990_ _g258988258992_) + (cons '%#ref __tmp149984))) + (let ((__tmp149985 + (lambda (_g137093137096_ _g137094137098_) (let () (declare (not safe)) - (cons _g258987258990_ _g258988258992_))))) + (cons _g137093137096_ _g137094137098_))))) (declare (not safe)) - (foldr1 __tmp276447 '() _L258752_)))) + (foldr1 __tmp149985 '() _L136858_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_body258997_ - (let ((__tmp276448 - (let ((__tmp276449 + (_body137103_ + (let ((__tmp149986 + (let ((__tmp149987 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp276461 - (let ((__tmp276462 - (let ((__tmp276463 - (let ((__tmp276464 + (let ((__tmp149999 + (let ((__tmp150000 + (let ((__tmp150001 + (let ((__tmp150002 (let () (declare (not safe)) - (cons _kont-id258516_ + (cons _kont-id136622_ '())))) (declare (not safe)) - (cons '%#ref __tmp276464)))) + (cons '%#ref __tmp150002)))) (declare (not safe)) - (cons __tmp276463 - _kont-args258995_)))) + (cons __tmp150001 + _kont-args137101_)))) (declare (not safe)) - (cons '%#call __tmp276462))) - (__tmp276450 - (let ((__tmp276451 - (let ((__tmp276460 + (cons '%#call __tmp150000))) + (__tmp149988 + (let ((__tmp149989 + (let ((__tmp149998 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp276452 - (let ((__tmp276457 - (let ((__tmp276459 + (__tmp149990 + (let ((__tmp149995 + (let ((__tmp149997 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp276458 - (let () (declare (not safe)) (cons _L258941_ '())))) + (__tmp149996 + (let () (declare (not safe)) (cons _L137047_ '())))) (declare (not safe)) - (cons __tmp276459 __tmp276458))) + (cons __tmp149997 __tmp149996))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp276453 - (let ((__tmp276454 - (let ((__tmp276456 + (__tmp149991 + (let ((__tmp149992 + (let ((__tmp149994 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp276455 + (__tmp149993 (let () (declare (not safe)) - (cons _L258940_ '())))) + (cons _L137046_ '())))) (declare (not safe)) - (cons __tmp276456 __tmp276455)))) + (cons __tmp149994 __tmp149993)))) (declare (not safe)) - (cons __tmp276454 '())))) + (cons __tmp149992 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp276457 - __tmp276453)))) + (cons __tmp149995 + __tmp149991)))) (declare (not safe)) - (cons __tmp276460 __tmp276452)))) + (cons __tmp149998 __tmp149990)))) (declare (not safe)) - (cons __tmp276451 '())))) + (cons __tmp149989 '())))) (declare (not safe)) - (cons __tmp276461 __tmp276450)))) + (cons __tmp149999 __tmp149988)))) (declare (not safe)) - (cons _L258943_ __tmp276449)))) + (cons _L137049_ __tmp149987)))) (declare (not safe)) - (cons '%#if __tmp276448)))) + (cons '%#if __tmp149986)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let ((__tmp276472 - (let ((__tmp276473 - (lambda (_g258999259002_ + (if (let ((__tmp150010 + (let ((__tmp150011 + (lambda (_g137105137108_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g259000259004_) + _g137106137110_) (let () (declare (not safe)) - (cons _g258999259002_ _g259000259004_))))) + (cons _g137105137108_ _g137106137110_))))) (declare (not safe)) - (foldr1 __tmp276473 '() _L258752_)))) + (foldr1 __tmp150011 '() _L136858_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (null? __tmp276472)) - _body258997_ - (let ((__tmp276465 - (let ((__tmp276467 - (map (lambda (_id259007_ + (null? __tmp150010)) + _body137103_ + (let ((__tmp150003 + (let ((__tmp150005 + (map (lambda (_id137113_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _arg259008_) - (let ((__tmp276469 + _arg137114_) + (let ((__tmp150007 (let () (declare (not safe)) - (cons _id259007_ '()))) - (__tmp276468 + (cons _id137113_ '()))) + (__tmp150006 (let () (declare (not safe)) - (cons _arg259008_ '())))) + (cons _arg137114_ '())))) (declare (not safe)) - (cons __tmp276469 __tmp276468))) - (let ((__tmp276470 - (lambda (_g259009259012_ _g259010259014_) + (cons __tmp150007 __tmp150006))) + (let ((__tmp150008 + (lambda (_g137115137118_ _g137116137120_) (let () (declare (not safe)) - (cons _g259009259012_ - _g259010259014_))))) + (cons _g137115137118_ + _g137116137120_))))) (declare (not safe)) - (foldr1 __tmp276470 '() _L258752_)) - (let ((__tmp276471 - (lambda (_g259016259019_ _g259017259021_) + (foldr1 __tmp150008 '() _L136858_)) + (let ((__tmp150009 + (lambda (_g137122137125_ _g137123137127_) (let () (declare (not safe)) - (cons _g259016259019_ - _g259017259021_))))) + (cons _g137122137125_ + _g137123137127_))))) (declare (not safe)) - (foldr1 __tmp276471 '() _L258750_)))) - (__tmp276466 - (let () (declare (not safe)) (cons _body258997_ '())))) + (foldr1 __tmp150009 '() _L136856_)))) + (__tmp150004 + (let () (declare (not safe)) (cons _body137103_ '())))) (declare (not safe)) - (cons __tmp276467 __tmp276466)))) + (cons __tmp150005 __tmp150004)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp276465))))))) - (___kont275329275330_ + __tmp150003))))))) + (___kont148867148868_ (lambda () - (let ((_kont258838_ - (let ((__tmp276478 + (let ((_kont136944_ + (let ((__tmp150016 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp276474 - (let ((__tmp276476 - (let ((__tmp276477 + (__tmp150012 + (let ((__tmp150014 + (let ((__tmp150015 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g258830258833_ _g258831258835_) + (lambda (_g136936136939_ _g136937136941_) (let () (declare (not safe)) - (cons _g258830258833_ _g258831258835_))))) + (cons _g136936136939_ _g136937136941_))))) (declare (not safe)) - (foldr1 __tmp276477 '() _L258752_))) - (__tmp276475 - (let () (declare (not safe)) (cons _L258751_ '())))) + (foldr1 __tmp150015 '() _L136858_))) + (__tmp150013 + (let () (declare (not safe)) (cons _L136857_ '())))) (declare (not safe)) - (cons __tmp276476 __tmp276475)))) + (cons __tmp150014 __tmp150013)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp276478 - __tmp276474)))) + (cons __tmp150016 + __tmp150012)))) (set-box! - _kont-box258517_ - _kont258838_) - (let ((__tmp276479 - (let ((__tmp276482 - (let ((__tmp276483 + _kont-box136623_ + _kont136944_) + (let ((__tmp150017 + (let ((__tmp150020 + (let ((__tmp150021 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _kont-id258516_ '())))) + (cons _kont-id136622_ '())))) (declare (not safe)) - (cons '%#ref __tmp276483))) - (__tmp276480 - (let ((__tmp276481 - (lambda (_g258839258842_ _g258840258844_) + (cons '%#ref __tmp150021))) + (__tmp150018 + (let ((__tmp150019 + (lambda (_g136945136948_ _g136946136950_) (let () (declare (not safe)) - (cons _g258839258842_ _g258840258844_))))) + (cons _g136945136948_ _g136946136950_))))) (declare (not safe)) - (foldr1 __tmp276481 '() _L258750_)))) + (foldr1 __tmp150019 '() _L136856_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp276482 - __tmp276480)))) + (cons __tmp150020 + __tmp150018)))) (declare (not safe)) - (cons '%#call __tmp276479)))))) - (let ((___match275420275421_ - (lambda (_e258789258852_ - _hd258788258855_ - _tl258787258857_ - _e258792258860_ - _hd258791258863_ - _tl258790258865_ - _e258795258868_ - _hd258794258871_ - _tl258793258873_ - _e258798258876_ - _hd258797258879_ - _tl258796258881_ - _e258801258884_ - _hd258800258887_ - _tl258799258889_ - _e258804258892_ - _hd258803258895_ - _tl258802258897_ - _e258807258900_ - _hd258806258903_ - _tl258805258905_ - _e258810258908_ - _hd258809258911_ - _tl258808258913_ - _e258813258916_ - _hd258812258919_ - _tl258811258921_ - _e258816258924_ - _hd258815258927_ - _tl258814258929_ - _e258819258932_ - _hd258818258935_ - _tl258817258937_) - (let ((_L258940_ _hd258818258935_) - (_L258941_ _hd258809258911_) - (_L258942_ _hd258794258871_) - (_L258943_ _hd258791258863_)) + (cons '%#call __tmp150017)))))) + (let ((___match148958148959_ + (lambda (_e136895136958_ + _hd136894136961_ + _tl136893136963_ + _e136898136966_ + _hd136897136969_ + _tl136896136971_ + _e136901136974_ + _hd136900136977_ + _tl136899136979_ + _e136904136982_ + _hd136903136985_ + _tl136902136987_ + _e136907136990_ + _hd136906136993_ + _tl136905136995_ + _e136910136998_ + _hd136909137001_ + _tl136908137003_ + _e136913137006_ + _hd136912137009_ + _tl136911137011_ + _e136916137014_ + _hd136915137017_ + _tl136914137019_ + _e136919137022_ + _hd136918137025_ + _tl136917137027_ + _e136922137030_ + _hd136921137033_ + _tl136920137035_ + _e136925137038_ + _hd136924137041_ + _tl136923137043_) + (let ((_L137046_ _hd136924137041_) + (_L137047_ _hd136915137017_) + (_L137048_ _hd136900136977_) + (_L137049_ _hd136897136969_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L258941_ - _negation-id258518_)) - (___kont275327275328_ - _L258940_ - _L258941_ - _L258942_ - _L258943_) - (___kont275329275330_)))))) + _L137047_ + _negation-id136624_)) + (___kont148865148866_ + _L137046_ + _L137047_ + _L137048_ + _L137049_) + (___kont148867148868_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx275325275326_)) - (let ((_e258789258852_ + (gx#stx-pair? ___stx148863148864_)) + (let ((_e136895136958_ (let () (declare (not safe)) (gx#stx-e - ___stx275325275326_)))) - (let ((_tl258787258857_ + ___stx148863148864_)))) + (let ((_tl136893136963_ (let () (declare (not safe)) - (##cdr _e258789258852_))) - (_hd258788258855_ + (##cdr _e136895136958_))) + (_hd136894136961_ (let () (declare (not safe)) - (##car _e258789258852_)))) + (##car _e136895136958_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd258788258855_)) + _hd136894136961_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd258788258855_)) + _hd136894136961_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258787258857_)) - (let ((_e258792258860_ + _tl136893136963_)) + (let ((_e136898136966_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl258787258857_)))) - (let ((_tl258790258865_ + (gx#stx-e _tl136893136963_)))) + (let ((_tl136896136971_ (let () (declare (not safe)) - (##cdr _e258792258860_))) - (_hd258791258863_ + (##cdr _e136898136966_))) + (_hd136897136969_ (let () (declare (not safe)) - (##car _e258792258860_)))) + (##car _e136898136966_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258790258865_)) - (let ((_e258795258868_ + (gx#stx-pair? _tl136896136971_)) + (let ((_e136901136974_ (let () (declare (not safe)) - (gx#stx-e _tl258790258865_)))) - (let ((_tl258793258873_ + (gx#stx-e _tl136896136971_)))) + (let ((_tl136899136979_ (let () (declare (not safe)) - (##cdr _e258795258868_))) - (_hd258794258871_ + (##cdr _e136901136974_))) + (_hd136900136977_ (let () (declare (not safe)) - (##car _e258795258868_)))) + (##car _e136901136974_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258793258873_)) - (let ((_e258798258876_ + (gx#stx-pair? _tl136899136979_)) + (let ((_e136904136982_ (let () (declare (not safe)) - (gx#stx-e _tl258793258873_)))) - (let ((_tl258796258881_ + (gx#stx-e _tl136899136979_)))) + (let ((_tl136902136987_ (let () (declare (not safe)) - (##cdr _e258798258876_))) - (_hd258797258879_ + (##cdr _e136904136982_))) + (_hd136903136985_ (let () (declare (not safe)) - (##car _e258798258876_)))) + (##car _e136904136982_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258797258879_)) - (let ((_e258801258884_ + (gx#stx-pair? _hd136903136985_)) + (let ((_e136907136990_ (let () (declare (not safe)) (gx#stx-e - _hd258797258879_)))) - (let ((_tl258799258889_ + _hd136903136985_)))) + (let ((_tl136905136995_ (let () (declare (not safe)) - (##cdr _e258801258884_))) - (_hd258800258887_ + (##cdr _e136907136990_))) + (_hd136906136993_ (let () (declare (not safe)) - (##car _e258801258884_)))) + (##car _e136907136990_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd258800258887_)) + _hd136906136993_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd258800258887_)) + _hd136906136993_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258799258889_)) - (let ((_e258804258892_ + _tl136905136995_)) + (let ((_e136910136998_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl258799258889_)))) - (let ((_tl258802258897_ + (gx#stx-e _tl136905136995_)))) + (let ((_tl136908137003_ (let () (declare (not safe)) - (##cdr _e258804258892_))) - (_hd258803258895_ + (##cdr _e136910136998_))) + (_hd136909137001_ (let () (declare (not safe)) - (##car _e258804258892_)))) + (##car _e136910136998_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258803258895_)) - (let ((_e258807258900_ + (gx#stx-pair? _hd136909137001_)) + (let ((_e136913137006_ (let () (declare (not safe)) - (gx#stx-e _hd258803258895_)))) - (let ((_tl258805258905_ + (gx#stx-e _hd136909137001_)))) + (let ((_tl136911137011_ (let () (declare (not safe)) - (##cdr _e258807258900_))) - (_hd258806258903_ + (##cdr _e136913137006_))) + (_hd136912137009_ (let () (declare (not safe)) - (##car _e258807258900_)))) + (##car _e136913137006_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd258806258903_)) + (gx#identifier? _hd136912137009_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd258806258903_)) + (gx#stx-eq? '%#ref _hd136912137009_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258805258905_)) - (let ((_e258810258908_ + (gx#stx-pair? _tl136911137011_)) + (let ((_e136916137014_ (let () (declare (not safe)) (gx#stx-e - _tl258805258905_)))) - (let ((_tl258808258913_ + _tl136911137011_)))) + (let ((_tl136914137019_ (let () (declare (not safe)) - (##cdr _e258810258908_))) - (_hd258809258911_ + (##cdr _e136916137014_))) + (_hd136915137017_ (let () (declare (not safe)) - (##car _e258810258908_)))) + (##car _e136916137014_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258808258913_)) + _tl136914137019_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258802258897_)) - (let ((_e258813258916_ + _tl136908137003_)) + (let ((_e136919137022_ (let () (declare (not safe)) (gx#stx-e - _tl258802258897_)))) - (let ((_tl258811258921_ + _tl136908137003_)))) + (let ((_tl136917137027_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e258813258916_))) - (_hd258812258919_ - (let () (declare (not safe)) (##car _e258813258916_)))) + (##cdr _e136919137022_))) + (_hd136918137025_ + (let () (declare (not safe)) (##car _e136919137022_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258812258919_)) - (let ((_e258816258924_ + (gx#stx-pair? _hd136918137025_)) + (let ((_e136922137030_ (let () (declare (not safe)) - (gx#stx-e _hd258812258919_)))) - (let ((_tl258814258929_ + (gx#stx-e _hd136918137025_)))) + (let ((_tl136920137035_ (let () (declare (not safe)) - (##cdr _e258816258924_))) - (_hd258815258927_ + (##cdr _e136922137030_))) + (_hd136921137033_ (let () (declare (not safe)) - (##car _e258816258924_)))) + (##car _e136922137030_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd258815258927_)) + (gx#identifier? _hd136921137033_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd258815258927_)) + (gx#stx-eq? '%#ref _hd136921137033_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258814258929_)) - (let ((_e258819258932_ + (gx#stx-pair? _tl136920137035_)) + (let ((_e136925137038_ (let () (declare (not safe)) - (gx#stx-e _tl258814258929_)))) - (let ((_tl258817258937_ + (gx#stx-e _tl136920137035_)))) + (let ((_tl136923137043_ (let () (declare (not safe)) - (##cdr _e258819258932_))) - (_hd258818258935_ + (##cdr _e136925137038_))) + (_hd136924137041_ (let () (declare (not safe)) - (##car _e258819258932_)))) + (##car _e136925137038_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258817258937_)) + (gx#stx-null? _tl136923137043_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl258811258921_)) + _tl136917137027_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl258796258881_)) - (___match275420275421_ - _e258789258852_ - _hd258788258855_ - _tl258787258857_ - _e258792258860_ - _hd258791258863_ - _tl258790258865_ - _e258795258868_ - _hd258794258871_ - _tl258793258873_ - _e258798258876_ - _hd258797258879_ - _tl258796258881_ - _e258801258884_ - _hd258800258887_ - _tl258799258889_ - _e258804258892_ - _hd258803258895_ - _tl258802258897_ - _e258807258900_ - _hd258806258903_ - _tl258805258905_ - _e258810258908_ - _hd258809258911_ - _tl258808258913_ - _e258813258916_ - _hd258812258919_ - _tl258811258921_ - _e258816258924_ - _hd258815258927_ - _tl258814258929_ - _e258819258932_ - _hd258818258935_ - _tl258817258937_) - (___kont275329275330_)) - (___kont275329275330_)) - (___kont275329275330_)))) - (___kont275329275330_)) - (___kont275329275330_)) - (___kont275329275330_)))) - (___kont275329275330_)))) + _tl136902136987_)) + (___match148958148959_ + _e136895136958_ + _hd136894136961_ + _tl136893136963_ + _e136898136966_ + _hd136897136969_ + _tl136896136971_ + _e136901136974_ + _hd136900136977_ + _tl136899136979_ + _e136904136982_ + _hd136903136985_ + _tl136902136987_ + _e136907136990_ + _hd136906136993_ + _tl136905136995_ + _e136910136998_ + _hd136909137001_ + _tl136908137003_ + _e136913137006_ + _hd136912137009_ + _tl136911137011_ + _e136916137014_ + _hd136915137017_ + _tl136914137019_ + _e136919137022_ + _hd136918137025_ + _tl136917137027_ + _e136922137030_ + _hd136921137033_ + _tl136920137035_ + _e136925137038_ + _hd136924137041_ + _tl136923137043_) + (___kont148867148868_)) + (___kont148867148868_)) + (___kont148867148868_)))) + (___kont148867148868_)) + (___kont148867148868_)) + (___kont148867148868_)))) + (___kont148867148868_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont275329275330_)) - (___kont275329275330_)))) - (___kont275329275330_)) - (___kont275329275330_)) - (___kont275329275330_)))) - (___kont275329275330_)))) - (___kont275329275330_)) + (___kont148867148868_)) + (___kont148867148868_)))) + (___kont148867148868_)) + (___kont148867148868_)) + (___kont148867148868_)))) + (___kont148867148868_)))) + (___kont148867148868_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont275329275330_)) - (___kont275329275330_)))) - (___kont275329275330_)))) - (___kont275329275330_)))) - (___kont275329275330_)))) - (___kont275329275330_)) + (___kont148867148868_)) + (___kont148867148868_)))) + (___kont148867148868_)))) + (___kont148867148868_)))) + (___kont148867148868_)))) + (___kont148867148868_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont275329275330_)) - (___kont275329275330_)))) - (___kont275329275330_)))))))) - (let* ((___match275680275681_ - (lambda (_e258622258662_ - _hd258621258665_ - _tl258620258667_ - _e258625258670_ - _hd258624258673_ - _tl258623258675_ - _e258628258678_ - _hd258627258681_ - _tl258626258683_ - _e258631258686_ - _hd258630258689_ - _tl258629258691_ - ___splice275435275436_ - _target258632258694_ - _tl258634258696_) - (letrec ((_loop258635258699_ - (lambda (_hd258633258702_ - _id258639258704_) + (___kont148867148868_)) + (___kont148867148868_)))) + (___kont148867148868_)))))))) + (let* ((___match149218149219_ + (lambda (_e136728136768_ + _hd136727136771_ + _tl136726136773_ + _e136731136776_ + _hd136730136779_ + _tl136729136781_ + _e136734136784_ + _hd136733136787_ + _tl136732136789_ + _e136737136792_ + _hd136736136795_ + _tl136735136797_ + ___splice148973148974_ + _target136738136800_ + _tl136740136802_) + (letrec ((_loop136741136805_ + (lambda (_hd136739136808_ + _id136745136810_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd258633258702_)) - (let ((_e258636258707_ + _hd136739136808_)) + (let ((_e136742136813_ (let () (declare (not safe)) (gx#stx-e - _hd258633258702_)))) - (let ((_lp-tl258638258712_ + _hd136739136808_)))) + (let ((_lp-tl136744136818_ (let () (declare (not safe)) - (##cdr _e258636258707_))) - (_lp-hd258637258710_ + (##cdr _e136742136813_))) + (_lp-hd136743136816_ (let () (declare (not safe)) - (##car _e258636258707_)))) - (let ((__tmp276485 + (##car _e136742136813_)))) + (let ((__tmp150023 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd258637258710_ _id258639258704_)))) + (cons _lp-hd136743136816_ _id136745136810_)))) (declare (not safe)) - (_loop258635258699_ _lp-tl258638258712_ __tmp276485)))) + (_loop136741136805_ _lp-tl136744136818_ __tmp150023)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id258640258715_ - (reverse _id258639258704_))) + (let ((_id136746136821_ + (reverse _id136745136810_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258629258691_)) - (let ((_e258643258718_ + _tl136735136797_)) + (let ((_e136749136824_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl258629258691_)))) - (let ((_tl258641258723_ - (let () (declare (not safe)) (##cdr _e258643258718_))) - (_hd258642258721_ + (gx#stx-e _tl136735136797_)))) + (let ((_tl136747136829_ + (let () (declare (not safe)) (##cdr _e136749136824_))) + (_hd136748136827_ (let () (declare (not safe)) - (##car _e258643258718_)))) + (##car _e136749136824_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258641258723_)) + (gx#stx-null? _tl136747136829_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl258623258675_)) - (let ((___splice275437275438_ + (gx#stx-pair/null? _tl136729136781_)) + (let ((___splice148975148976_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl258623258675_ + _tl136729136781_ '0)))) - (let ((_tl258646258728_ + (let ((_tl136752136834_ (let () (declare (not safe)) (##vector-ref - ___splice275437275438_ + ___splice148975148976_ '1))) - (_target258644258726_ + (_target136750136832_ (let () (declare (not safe)) (##vector-ref - ___splice275437275438_ + ___splice148975148976_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258646258728_)) - (letrec ((_loop258647258731_ - (lambda (_hd258645258734_ - _arg258651258736_) + (gx#stx-null? _tl136752136834_)) + (letrec ((_loop136753136837_ + (lambda (_hd136751136840_ + _arg136757136842_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd258645258734_)) - (let ((_e258648258739_ + _hd136751136840_)) + (let ((_e136754136845_ (let () (declare (not safe)) (gx#stx-e - _hd258645258734_)))) - (let ((_lp-tl258650258744_ + _hd136751136840_)))) + (let ((_lp-tl136756136850_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e258648258739_))) - (_lp-hd258649258742_ - (let () (declare (not safe)) (##car _e258648258739_)))) - (let ((__tmp276484 + (##cdr _e136754136845_))) + (_lp-hd136755136848_ + (let () (declare (not safe)) (##car _e136754136845_)))) + (let ((__tmp150022 (let () (declare (not safe)) - (cons _lp-hd258649258742_ _arg258651258736_)))) + (cons _lp-hd136755136848_ _arg136757136842_)))) (declare (not safe)) - (_loop258647258731_ _lp-tl258650258744_ __tmp276484)))) + (_loop136753136837_ _lp-tl136756136850_ __tmp150022)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg258652258747_ - (reverse _arg258651258736_))) - (___kont275433275434_ - _arg258652258747_ - _hd258642258721_ - _id258640258715_)))))) + (let ((_arg136758136853_ + (reverse _arg136757136842_))) + (___kont148971148972_ + _arg136758136853_ + _hd136748136827_ + _id136746136821_)))))) (let () (declare (not safe)) - (_loop258647258731_ - _target258644258726_ + (_loop136753136837_ + _target136750136832_ '()))) (let () (declare (not safe)) - (_g258524258657_))))) - (let () (declare (not safe)) (_g258524258657_))) - (let () (declare (not safe)) (_g258524258657_))))) - (let () (declare (not safe)) (_g258524258657_)))))))) + (_g136630136763_))))) + (let () (declare (not safe)) (_g136630136763_))) + (let () (declare (not safe)) (_g136630136763_))))) + (let () (declare (not safe)) (_g136630136763_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop258635258699_ - _target258632258694_ + (_loop136741136805_ + _target136738136800_ '()))))) - (___match275562275563_ - (lambda (_e258548259166_ - _hd258547259169_ - _tl258546259171_ - _e258551259174_ - _hd258550259177_ - _tl258549259179_ - _e258554259182_ - _hd258553259185_ - _tl258552259187_ - _e258557259190_ - _hd258556259193_ - _tl258555259195_ - _e258560259198_ - _hd258559259201_ - _tl258558259203_ - _e258563259206_ - _hd258562259209_ - _tl258561259211_ - _e258566259214_ - _hd258565259217_ - _tl258564259219_ - _e258569259222_ - _hd258568259225_ - _tl258567259227_ - _e258572259230_ - _hd258571259233_ - _tl258570259235_ - _e258575259238_ - _hd258574259241_ - _tl258573259243_ - _e258578259246_ - _hd258577259249_ - _tl258576259251_ - _e258581259254_ - _hd258580259257_ - _tl258579259259_) - (let ((_L259262_ _hd258580259257_) - (_L259263_ _tl258570259235_) - (_L259264_ _hd258577259249_) - (_L259265_ _hd258562259209_) - (_L259266_ _hd258559259201_)) + (___match149100149101_ + (lambda (_e136654137272_ + _hd136653137275_ + _tl136652137277_ + _e136657137280_ + _hd136656137283_ + _tl136655137285_ + _e136660137288_ + _hd136659137291_ + _tl136658137293_ + _e136663137296_ + _hd136662137299_ + _tl136661137301_ + _e136666137304_ + _hd136665137307_ + _tl136664137309_ + _e136669137312_ + _hd136668137315_ + _tl136667137317_ + _e136672137320_ + _hd136671137323_ + _tl136670137325_ + _e136675137328_ + _hd136674137331_ + _tl136673137333_ + _e136678137336_ + _hd136677137339_ + _tl136676137341_ + _e136681137344_ + _hd136680137347_ + _tl136679137349_ + _e136684137352_ + _hd136683137355_ + _tl136682137357_ + _e136687137360_ + _hd136686137363_ + _tl136685137365_) + (let ((_L137368_ _hd136686137363_) + (_L137369_ _tl136676137341_) + (_L137370_ _hd136683137355_) + (_L137371_ _hd136668137315_) + (_L137372_ _hd136665137307_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L259264_ + _L137370_ 'gx#syntax-split-splice)) - (___kont275427275428_ - _L259262_ - _L259263_ - _L259264_ - _L259265_ - _L259266_) - (___kont275429275430_ - _hd258580259257_ - _hd258550259177_)))))) + (___kont148965148966_ + _L137368_ + _L137369_ + _L137370_ + _L137371_ + _L137372_) + (___kont148967148968_ + _hd136686137363_ + _hd136656137283_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx275423275424_)) - (let ((_e258531259314_ + (gx#stx-pair? ___stx148961148962_)) + (let ((_e136637137420_ (let () (declare (not safe)) - (gx#stx-e ___stx275423275424_)))) - (let ((_tl258529259319_ + (gx#stx-e ___stx148961148962_)))) + (let ((_tl136635137425_ (let () (declare (not safe)) - (##cdr _e258531259314_))) - (_hd258530259317_ + (##cdr _e136637137420_))) + (_hd136636137423_ (let () (declare (not safe)) - (##car _e258531259314_)))) + (##car _e136637137420_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd258530259317_)) + (gx#identifier? _hd136636137423_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd258530259317_)) + _hd136636137423_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258529259319_)) - (let ((_e258534259322_ + _tl136635137425_)) + (let ((_e136640137428_ (let () (declare (not safe)) (gx#stx-e - _tl258529259319_)))) - (let ((_tl258532259327_ + _tl136635137425_)))) + (let ((_tl136638137433_ (let () (declare (not safe)) - (##cdr _e258534259322_))) - (_hd258533259325_ + (##cdr _e136640137428_))) + (_hd136639137431_ (let () (declare (not safe)) - (##car _e258534259322_)))) + (##car _e136640137428_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258532259327_)) - (let ((_e258537259330_ + _tl136638137433_)) + (let ((_e136643137436_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl258532259327_)))) - (let ((_tl258535259335_ - (let () (declare (not safe)) (##cdr _e258537259330_))) - (_hd258536259333_ - (let () (declare (not safe)) (##car _e258537259330_)))) + (gx#stx-e _tl136638137433_)))) + (let ((_tl136641137441_ + (let () (declare (not safe)) (##cdr _e136643137436_))) + (_hd136642137439_ + (let () (declare (not safe)) (##car _e136643137436_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258535259335_)) - (let ((_e258540259338_ + (gx#stx-pair? _tl136641137441_)) + (let ((_e136646137444_ (let () (declare (not safe)) - (gx#stx-e _tl258535259335_)))) - (let ((_tl258538259343_ + (gx#stx-e _tl136641137441_)))) + (let ((_tl136644137449_ (let () (declare (not safe)) - (##cdr _e258540259338_))) - (_hd258539259341_ + (##cdr _e136646137444_))) + (_hd136645137447_ (let () (declare (not safe)) - (##car _e258540259338_)))) + (##car _e136646137444_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258538259343_)) - (___kont275425275426_ - _hd258539259341_ - _hd258536259333_ - _hd258533259325_) + (gx#stx-null? _tl136644137449_)) + (___kont148963148964_ + _hd136645137447_ + _hd136642137439_ + _hd136639137431_) (let () (declare (not safe)) - (_g258524258657_))))) - (let () (declare (not safe)) (_g258524258657_))))) - (let () (declare (not safe)) (_g258524258657_))))) + (_g136630136763_))))) + (let () (declare (not safe)) (_g136630136763_))))) + (let () (declare (not safe)) (_g136630136763_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g258524258657_))) + (_g136630136763_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd258530259317_)) + _hd136636137423_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258529259319_)) - (let ((_e258551259174_ + _tl136635137425_)) + (let ((_e136657137280_ (let () (declare (not safe)) (gx#stx-e - _tl258529259319_)))) - (let ((_tl258549259179_ + _tl136635137425_)))) + (let ((_tl136655137285_ (let () (declare (not safe)) - (##cdr _e258551259174_))) - (_hd258550259177_ + (##cdr _e136657137280_))) + (_hd136656137283_ (let () (declare (not safe)) - (##car _e258551259174_)))) + (##car _e136657137280_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd258550259177_)) - (let ((_e258554259182_ + _hd136656137283_)) + (let ((_e136660137288_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd258550259177_)))) - (let ((_tl258552259187_ + (gx#stx-e _hd136656137283_)))) + (let ((_tl136658137293_ (let () (declare (not safe)) - (##cdr _e258554259182_))) - (_hd258553259185_ + (##cdr _e136660137288_))) + (_hd136659137291_ (let () (declare (not safe)) - (##car _e258554259182_)))) + (##car _e136660137288_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258553259185_)) - (let ((_e258557259190_ + (gx#stx-pair? _hd136659137291_)) + (let ((_e136663137296_ (let () (declare (not safe)) - (gx#stx-e _hd258553259185_)))) - (let ((_tl258555259195_ + (gx#stx-e _hd136659137291_)))) + (let ((_tl136661137301_ (let () (declare (not safe)) - (##cdr _e258557259190_))) - (_hd258556259193_ + (##cdr _e136663137296_))) + (_hd136662137299_ (let () (declare (not safe)) - (##car _e258557259190_)))) + (##car _e136663137296_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258556259193_)) - (let ((_e258560259198_ + (gx#stx-pair? _hd136662137299_)) + (let ((_e136666137304_ (let () (declare (not safe)) - (gx#stx-e _hd258556259193_)))) - (let ((_tl258558259203_ + (gx#stx-e _hd136662137299_)))) + (let ((_tl136664137309_ (let () (declare (not safe)) - (##cdr _e258560259198_))) - (_hd258559259201_ + (##cdr _e136666137304_))) + (_hd136665137307_ (let () (declare (not safe)) - (##car _e258560259198_)))) + (##car _e136666137304_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258558259203_)) - (let ((_e258563259206_ + (gx#stx-pair? _tl136664137309_)) + (let ((_e136669137312_ (let () (declare (not safe)) (gx#stx-e - _tl258558259203_)))) - (let ((_tl258561259211_ + _tl136664137309_)))) + (let ((_tl136667137317_ (let () (declare (not safe)) - (##cdr _e258563259206_))) - (_hd258562259209_ + (##cdr _e136669137312_))) + (_hd136668137315_ (let () (declare (not safe)) - (##car _e258563259206_)))) + (##car _e136669137312_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258561259211_)) + _tl136667137317_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258555259195_)) - (let ((_e258566259214_ + _tl136661137301_)) + (let ((_e136672137320_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl258555259195_)))) - (let ((_tl258564259219_ - (let () (declare (not safe)) (##cdr _e258566259214_))) - (_hd258565259217_ - (let () (declare (not safe)) (##car _e258566259214_)))) + (gx#stx-e _tl136661137301_)))) + (let ((_tl136670137325_ + (let () (declare (not safe)) (##cdr _e136672137320_))) + (_hd136671137323_ + (let () (declare (not safe)) (##car _e136672137320_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258565259217_)) - (let ((_e258569259222_ + (gx#stx-pair? _hd136671137323_)) + (let ((_e136675137328_ (let () (declare (not safe)) - (gx#stx-e _hd258565259217_)))) - (let ((_tl258567259227_ + (gx#stx-e _hd136671137323_)))) + (let ((_tl136673137333_ (let () (declare (not safe)) - (##cdr _e258569259222_))) - (_hd258568259225_ + (##cdr _e136675137328_))) + (_hd136674137331_ (let () (declare (not safe)) - (##car _e258569259222_)))) + (##car _e136675137328_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd258568259225_)) + (gx#identifier? _hd136674137331_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd258568259225_)) + (gx#stx-eq? '%#call _hd136674137331_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258567259227_)) - (let ((_e258572259230_ + (gx#stx-pair? _tl136673137333_)) + (let ((_e136678137336_ (let () (declare (not safe)) - (gx#stx-e _tl258567259227_)))) - (let ((_tl258570259235_ + (gx#stx-e _tl136673137333_)))) + (let ((_tl136676137341_ (let () (declare (not safe)) - (##cdr _e258572259230_))) - (_hd258571259233_ + (##cdr _e136678137336_))) + (_hd136677137339_ (let () (declare (not safe)) - (##car _e258572259230_)))) + (##car _e136678137336_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd258571259233_)) - (let ((_e258575259238_ + _hd136677137339_)) + (let ((_e136681137344_ (let () (declare (not safe)) (gx#stx-e - _hd258571259233_)))) - (let ((_tl258573259243_ + _hd136677137339_)))) + (let ((_tl136679137349_ (let () (declare (not safe)) - (##cdr _e258575259238_))) - (_hd258574259241_ + (##cdr _e136681137344_))) + (_hd136680137347_ (let () (declare (not safe)) - (##car _e258575259238_)))) + (##car _e136681137344_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd258574259241_)) + _hd136680137347_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd258574259241_)) + _hd136680137347_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl258573259243_)) - (let ((_e258578259246_ + (gx#stx-pair? _tl136679137349_)) + (let ((_e136684137352_ (let () (declare (not safe)) - (gx#stx-e _tl258573259243_)))) - (let ((_tl258576259251_ + (gx#stx-e _tl136679137349_)))) + (let ((_tl136682137357_ (let () (declare (not safe)) - (##cdr _e258578259246_))) - (_hd258577259249_ + (##cdr _e136684137352_))) + (_hd136683137355_ (let () (declare (not safe)) - (##car _e258578259246_)))) + (##car _e136684137352_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258576259251_)) + (gx#stx-null? _tl136682137357_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl258564259219_)) + (gx#stx-null? _tl136670137325_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl258552259187_)) + (gx#stx-null? _tl136658137293_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258549259179_)) - (let ((_e258581259254_ + (gx#stx-pair? _tl136655137285_)) + (let ((_e136687137360_ (let () (declare (not safe)) (gx#stx-e - _tl258549259179_)))) - (let ((_tl258579259259_ + _tl136655137285_)))) + (let ((_tl136685137365_ (let () (declare (not safe)) - (##cdr _e258581259254_))) - (_hd258580259257_ + (##cdr _e136687137360_))) + (_hd136686137363_ (let () (declare (not safe)) - (##car _e258581259254_)))) + (##car _e136687137360_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258579259259_)) - (___match275562275563_ - _e258531259314_ - _hd258530259317_ - _tl258529259319_ - _e258551259174_ - _hd258550259177_ - _tl258549259179_ - _e258554259182_ - _hd258553259185_ - _tl258552259187_ - _e258557259190_ - _hd258556259193_ - _tl258555259195_ - _e258560259198_ - _hd258559259201_ - _tl258558259203_ - _e258563259206_ - _hd258562259209_ - _tl258561259211_ - _e258566259214_ - _hd258565259217_ - _tl258564259219_ - _e258569259222_ - _hd258568259225_ - _tl258567259227_ - _e258572259230_ - _hd258571259233_ - _tl258570259235_ - _e258575259238_ - _hd258574259241_ - _tl258573259243_ - _e258578259246_ - _hd258577259249_ - _tl258576259251_ - _e258581259254_ - _hd258580259257_ - _tl258579259259_) + _tl136685137365_)) + (___match149100149101_ + _e136637137420_ + _hd136636137423_ + _tl136635137425_ + _e136657137280_ + _hd136656137283_ + _tl136655137285_ + _e136660137288_ + _hd136659137291_ + _tl136658137293_ + _e136663137296_ + _hd136662137299_ + _tl136661137301_ + _e136666137304_ + _hd136665137307_ + _tl136664137309_ + _e136669137312_ + _hd136668137315_ + _tl136667137317_ + _e136672137320_ + _hd136671137323_ + _tl136670137325_ + _e136675137328_ + _hd136674137331_ + _tl136673137333_ + _e136678137336_ + _hd136677137339_ + _tl136676137341_ + _e136681137344_ + _hd136680137347_ + _tl136679137349_ + _e136684137352_ + _hd136683137355_ + _tl136682137357_ + _e136687137360_ + _hd136686137363_ + _tl136685137365_) (let () (declare (not safe)) - (_g258524258657_))))) + (_g136630136763_))))) (let () (declare (not safe)) - (_g258524258657_))) + (_g136630136763_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258549259179_)) - (let ((_e258592259136_ + (gx#stx-pair? _tl136655137285_)) + (let ((_e136698137242_ (let () (declare (not safe)) (gx#stx-e - _tl258549259179_)))) - (let ((_tl258590259141_ + _tl136655137285_)))) + (let ((_tl136696137247_ (let () (declare (not safe)) - (##cdr _e258592259136_))) - (_hd258591259139_ + (##cdr _e136698137242_))) + (_hd136697137245_ (let () (declare (not safe)) - (##car _e258592259136_)))) + (##car _e136698137242_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258590259141_)) - (___kont275429275430_ - _hd258591259139_ - _hd258550259177_) + _tl136696137247_)) + (___kont148967148968_ + _hd136697137245_ + _hd136656137283_) (let () (declare (not safe)) - (_g258524258657_))))) + (_g136630136763_))))) (let () (declare (not safe)) - (_g258524258657_)))) + (_g136630136763_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258549259179_)) - (let ((_e258592259136_ + (gx#stx-pair? _tl136655137285_)) + (let ((_e136698137242_ (let () (declare (not safe)) - (gx#stx-e _tl258549259179_)))) - (let ((_tl258590259141_ + (gx#stx-e _tl136655137285_)))) + (let ((_tl136696137247_ (let () (declare (not safe)) - (##cdr _e258592259136_))) - (_hd258591259139_ + (##cdr _e136698137242_))) + (_hd136697137245_ (let () (declare (not safe)) - (##car _e258592259136_)))) + (##car _e136698137242_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258590259141_)) - (___kont275429275430_ - _hd258591259139_ - _hd258550259177_) + _tl136696137247_)) + (___kont148967148968_ + _hd136697137245_ + _hd136656137283_) (let () (declare (not safe)) - (_g258524258657_))))) + (_g136630136763_))))) (let () (declare (not safe)) - (_g258524258657_)))) + (_g136630136763_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258549259179_)) - (let ((_e258592259136_ + (gx#stx-pair? _tl136655137285_)) + (let ((_e136698137242_ (let () (declare (not safe)) - (gx#stx-e _tl258549259179_)))) - (let ((_tl258590259141_ + (gx#stx-e _tl136655137285_)))) + (let ((_tl136696137247_ (let () (declare (not safe)) - (##cdr _e258592259136_))) - (_hd258591259139_ + (##cdr _e136698137242_))) + (_hd136697137245_ (let () (declare (not safe)) - (##car _e258592259136_)))) + (##car _e136698137242_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258590259141_)) - (___kont275429275430_ - _hd258591259139_ - _hd258550259177_) + (gx#stx-null? _tl136696137247_)) + (___kont148967148968_ + _hd136697137245_ + _hd136656137283_) (let () (declare (not safe)) - (_g258524258657_))))) + (_g136630136763_))))) (let () (declare (not safe)) - (_g258524258657_)))))) + (_g136630136763_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258549259179_)) - (let ((_e258592259136_ + (gx#stx-pair? _tl136655137285_)) + (let ((_e136698137242_ (let () (declare (not safe)) - (gx#stx-e _tl258549259179_)))) - (let ((_tl258590259141_ + (gx#stx-e _tl136655137285_)))) + (let ((_tl136696137247_ (let () (declare (not safe)) - (##cdr _e258592259136_))) - (_hd258591259139_ + (##cdr _e136698137242_))) + (_hd136697137245_ (let () (declare (not safe)) - (##car _e258592259136_)))) + (##car _e136698137242_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258590259141_)) - (___kont275429275430_ - _hd258591259139_ - _hd258550259177_) + (gx#stx-null? _tl136696137247_)) + (___kont148967148968_ + _hd136697137245_ + _hd136656137283_) (let () (declare (not safe)) - (_g258524258657_))))) - (let () (declare (not safe)) (_g258524258657_)))) + (_g136630136763_))))) + (let () (declare (not safe)) (_g136630136763_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258549259179_)) - (let ((_e258592259136_ + (gx#stx-pair? _tl136655137285_)) + (let ((_e136698137242_ (let () (declare (not safe)) - (gx#stx-e _tl258549259179_)))) - (let ((_tl258590259141_ + (gx#stx-e _tl136655137285_)))) + (let ((_tl136696137247_ (let () (declare (not safe)) - (##cdr _e258592259136_))) - (_hd258591259139_ + (##cdr _e136698137242_))) + (_hd136697137245_ (let () (declare (not safe)) - (##car _e258592259136_)))) + (##car _e136698137242_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258590259141_)) - (___kont275429275430_ - _hd258591259139_ - _hd258550259177_) + (gx#stx-null? _tl136696137247_)) + (___kont148967148968_ + _hd136697137245_ + _hd136656137283_) (let () (declare (not safe)) - (_g258524258657_))))) - (let () (declare (not safe)) (_g258524258657_)))) - (if (let () (declare (not safe)) (gx#stx-pair? _tl258549259179_)) - (let ((_e258592259136_ + (_g136630136763_))))) + (let () (declare (not safe)) (_g136630136763_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _tl136655137285_)) + (let ((_e136698137242_ (let () (declare (not safe)) - (gx#stx-e _tl258549259179_)))) - (let ((_tl258590259141_ + (gx#stx-e _tl136655137285_)))) + (let ((_tl136696137247_ (let () (declare (not safe)) - (##cdr _e258592259136_))) - (_hd258591259139_ + (##cdr _e136698137242_))) + (_hd136697137245_ (let () (declare (not safe)) - (##car _e258592259136_)))) + (##car _e136698137242_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258590259141_)) - (___kont275429275430_ - _hd258591259139_ - _hd258550259177_) - (let () (declare (not safe)) (_g258524258657_))))) - (let () (declare (not safe)) (_g258524258657_)))))) + (gx#stx-null? _tl136696137247_)) + (___kont148967148968_ + _hd136697137245_ + _hd136656137283_) + (let () (declare (not safe)) (_g136630136763_))))) + (let () (declare (not safe)) (_g136630136763_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl258549259179_)) - (let ((_e258592259136_ + _tl136655137285_)) + (let ((_e136698137242_ (let () (declare (not safe)) (gx#stx-e - _tl258549259179_)))) - (let ((_tl258590259141_ + _tl136655137285_)))) + (let ((_tl136696137247_ (let () (declare (not safe)) - (##cdr _e258592259136_))) - (_hd258591259139_ + (##cdr _e136698137242_))) + (_hd136697137245_ (let () (declare (not safe)) - (##car _e258592259136_)))) + (##car _e136698137242_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258590259141_)) - (___kont275429275430_ - _hd258591259139_ - _hd258550259177_) + _tl136696137247_)) + (___kont148967148968_ + _hd136697137245_ + _hd136656137283_) (let () (declare (not safe)) - (_g258524258657_))))) + (_g136630136763_))))) (let () (declare (not safe)) - (_g258524258657_)))))) + (_g136630136763_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258549259179_)) - (let ((_e258592259136_ + (gx#stx-pair? _tl136655137285_)) + (let ((_e136698137242_ (let () (declare (not safe)) (gx#stx-e - _tl258549259179_)))) - (let ((_tl258590259141_ + _tl136655137285_)))) + (let ((_tl136696137247_ (let () (declare (not safe)) - (##cdr _e258592259136_))) - (_hd258591259139_ + (##cdr _e136698137242_))) + (_hd136697137245_ (let () (declare (not safe)) - (##car _e258592259136_)))) + (##car _e136698137242_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258590259141_)) - (___kont275429275430_ - _hd258591259139_ - _hd258550259177_) + _tl136696137247_)) + (___kont148967148968_ + _hd136697137245_ + _hd136656137283_) (let () (declare (not safe)) - (_g258524258657_))))) + (_g136630136763_))))) (let () (declare (not safe)) - (_g258524258657_)))) + (_g136630136763_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258549259179_)) - (let ((_e258592259136_ + (gx#stx-pair? _tl136655137285_)) + (let ((_e136698137242_ (let () (declare (not safe)) - (gx#stx-e _tl258549259179_)))) - (let ((_tl258590259141_ + (gx#stx-e _tl136655137285_)))) + (let ((_tl136696137247_ (let () (declare (not safe)) - (##cdr _e258592259136_))) - (_hd258591259139_ + (##cdr _e136698137242_))) + (_hd136697137245_ (let () (declare (not safe)) - (##car _e258592259136_)))) + (##car _e136698137242_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258590259141_)) - (___kont275429275430_ - _hd258591259139_ - _hd258550259177_) + _tl136696137247_)) + (___kont148967148968_ + _hd136697137245_ + _hd136656137283_) (let () (declare (not safe)) - (_g258524258657_))))) + (_g136630136763_))))) (let () (declare (not safe)) - (_g258524258657_)))) + (_g136630136763_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258549259179_)) - (let ((_e258592259136_ + (gx#stx-pair? _tl136655137285_)) + (let ((_e136698137242_ (let () (declare (not safe)) - (gx#stx-e _tl258549259179_)))) - (let ((_tl258590259141_ + (gx#stx-e _tl136655137285_)))) + (let ((_tl136696137247_ (let () (declare (not safe)) - (##cdr _e258592259136_))) - (_hd258591259139_ + (##cdr _e136698137242_))) + (_hd136697137245_ (let () (declare (not safe)) - (##car _e258592259136_)))) + (##car _e136698137242_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258590259141_)) - (___kont275429275430_ - _hd258591259139_ - _hd258550259177_) + (gx#stx-null? _tl136696137247_)) + (___kont148967148968_ + _hd136697137245_ + _hd136656137283_) (let () (declare (not safe)) - (_g258524258657_))))) + (_g136630136763_))))) (let () (declare (not safe)) - (_g258524258657_)))))) + (_g136630136763_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258549259179_)) - (let ((_e258592259136_ + (gx#stx-pair? _tl136655137285_)) + (let ((_e136698137242_ (let () (declare (not safe)) - (gx#stx-e _tl258549259179_)))) - (let ((_tl258590259141_ + (gx#stx-e _tl136655137285_)))) + (let ((_tl136696137247_ (let () (declare (not safe)) - (##cdr _e258592259136_))) - (_hd258591259139_ + (##cdr _e136698137242_))) + (_hd136697137245_ (let () (declare (not safe)) - (##car _e258592259136_)))) + (##car _e136698137242_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258590259141_)) - (___kont275429275430_ - _hd258591259139_ - _hd258550259177_) + (gx#stx-null? _tl136696137247_)) + (___kont148967148968_ + _hd136697137245_ + _hd136656137283_) (let () (declare (not safe)) - (_g258524258657_))))) - (let () (declare (not safe)) (_g258524258657_)))))) - (if (let () (declare (not safe)) (gx#stx-pair? _tl258549259179_)) - (let ((_e258592259136_ + (_g136630136763_))))) + (let () (declare (not safe)) (_g136630136763_)))))) + (if (let () (declare (not safe)) (gx#stx-pair? _tl136655137285_)) + (let ((_e136698137242_ (let () (declare (not safe)) - (gx#stx-e _tl258549259179_)))) - (let ((_tl258590259141_ + (gx#stx-e _tl136655137285_)))) + (let ((_tl136696137247_ (let () (declare (not safe)) - (##cdr _e258592259136_))) - (_hd258591259139_ + (##cdr _e136698137242_))) + (_hd136697137245_ (let () (declare (not safe)) - (##car _e258592259136_)))) + (##car _e136698137242_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258590259141_)) - (___kont275429275430_ - _hd258591259139_ - _hd258550259177_) - (let () (declare (not safe)) (_g258524258657_))))) - (let () (declare (not safe)) (_g258524258657_)))) + (gx#stx-null? _tl136696137247_)) + (___kont148967148968_ + _hd136697137245_ + _hd136656137283_) + (let () (declare (not safe)) (_g136630136763_))))) + (let () (declare (not safe)) (_g136630136763_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl258549259179_)) - (let ((_e258592259136_ + _tl136655137285_)) + (let ((_e136698137242_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl258549259179_)))) - (let ((_tl258590259141_ - (let () (declare (not safe)) (##cdr _e258592259136_))) - (_hd258591259139_ - (let () (declare (not safe)) (##car _e258592259136_)))) + (gx#stx-e _tl136655137285_)))) + (let ((_tl136696137247_ + (let () (declare (not safe)) (##cdr _e136698137242_))) + (_hd136697137245_ + (let () (declare (not safe)) (##car _e136698137242_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258590259141_)) - (___kont275429275430_ _hd258591259139_ _hd258550259177_) - (let () (declare (not safe)) (_g258524258657_))))) - (let () (declare (not safe)) (_g258524258657_)))))) + (gx#stx-null? _tl136696137247_)) + (___kont148967148968_ _hd136697137245_ _hd136656137283_) + (let () (declare (not safe)) (_g136630136763_))))) + (let () (declare (not safe)) (_g136630136763_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl258549259179_)) - (let ((_e258592259136_ + _tl136655137285_)) + (let ((_e136698137242_ (let () (declare (not safe)) (gx#stx-e - _tl258549259179_)))) - (let ((_tl258590259141_ + _tl136655137285_)))) + (let ((_tl136696137247_ (let () (declare (not safe)) - (##cdr _e258592259136_))) - (_hd258591259139_ + (##cdr _e136698137242_))) + (_hd136697137245_ (let () (declare (not safe)) - (##car _e258592259136_)))) + (##car _e136698137242_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258590259141_)) - (___kont275429275430_ - _hd258591259139_ - _hd258550259177_) + _tl136696137247_)) + (___kont148967148968_ + _hd136697137245_ + _hd136656137283_) (let () (declare (not safe)) - (_g258524258657_))))) + (_g136630136763_))))) (let () (declare (not safe)) - (_g258524258657_)))))) + (_g136630136763_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258549259179_)) - (let ((_e258592259136_ + (gx#stx-pair? _tl136655137285_)) + (let ((_e136698137242_ (let () (declare (not safe)) - (gx#stx-e _tl258549259179_)))) - (let ((_tl258590259141_ + (gx#stx-e _tl136655137285_)))) + (let ((_tl136696137247_ (let () (declare (not safe)) - (##cdr _e258592259136_))) - (_hd258591259139_ + (##cdr _e136698137242_))) + (_hd136697137245_ (let () (declare (not safe)) - (##car _e258592259136_)))) + (##car _e136698137242_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258590259141_)) - (___kont275429275430_ - _hd258591259139_ - _hd258550259177_) + _tl136696137247_)) + (___kont148967148968_ + _hd136697137245_ + _hd136656137283_) (let () (declare (not safe)) - (_g258524258657_))))) + (_g136630136763_))))) (let () (declare (not safe)) - (_g258524258657_)))))) + (_g136630136763_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258549259179_)) - (let ((_e258592259136_ + (gx#stx-pair? _tl136655137285_)) + (let ((_e136698137242_ (let () (declare (not safe)) - (gx#stx-e _tl258549259179_)))) - (let ((_tl258590259141_ + (gx#stx-e _tl136655137285_)))) + (let ((_tl136696137247_ (let () (declare (not safe)) - (##cdr _e258592259136_))) - (_hd258591259139_ + (##cdr _e136698137242_))) + (_hd136697137245_ (let () (declare (not safe)) - (##car _e258592259136_)))) + (##car _e136698137242_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258590259141_)) - (___kont275429275430_ - _hd258591259139_ - _hd258550259177_) + (gx#stx-null? _tl136696137247_)) + (___kont148967148968_ + _hd136697137245_ + _hd136656137283_) (let () (declare (not safe)) - (_g258524258657_))))) + (_g136630136763_))))) (let () (declare (not safe)) - (_g258524258657_)))))) + (_g136630136763_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258549259179_)) - (let ((_e258592259136_ + (gx#stx-pair? _tl136655137285_)) + (let ((_e136698137242_ (let () (declare (not safe)) - (gx#stx-e _tl258549259179_)))) - (let ((_tl258590259141_ + (gx#stx-e _tl136655137285_)))) + (let ((_tl136696137247_ (let () (declare (not safe)) - (##cdr _e258592259136_))) - (_hd258591259139_ + (##cdr _e136698137242_))) + (_hd136697137245_ (let () (declare (not safe)) - (##car _e258592259136_)))) + (##car _e136698137242_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258590259141_)) - (___kont275429275430_ - _hd258591259139_ - _hd258550259177_) + (gx#stx-null? _tl136696137247_)) + (___kont148967148968_ + _hd136697137245_ + _hd136656137283_) (let () (declare (not safe)) - (_g258524258657_))))) - (let () (declare (not safe)) (_g258524258657_)))))) + (_g136630136763_))))) + (let () (declare (not safe)) (_g136630136763_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g258524258657_))) + (_g136630136763_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd258530259317_)) + _hd136636137423_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258529259319_)) - (let ((_e258601259040_ + _tl136635137425_)) + (let ((_e136707137146_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl258529259319_)))) - (let ((_tl258599259045_ - (let () (declare (not safe)) (##cdr _e258601259040_))) - (_hd258600259043_ - (let () (declare (not safe)) (##car _e258601259040_)))) + (gx#stx-e _tl136635137425_)))) + (let ((_tl136705137151_ + (let () (declare (not safe)) (##cdr _e136707137146_))) + (_hd136706137149_ + (let () (declare (not safe)) (##car _e136707137146_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258600259043_)) - (let ((_e258604259048_ + (gx#stx-pair? _hd136706137149_)) + (let ((_e136710137154_ (let () (declare (not safe)) - (gx#stx-e _hd258600259043_)))) - (let ((_tl258602259053_ + (gx#stx-e _hd136706137149_)))) + (let ((_tl136708137159_ (let () (declare (not safe)) - (##cdr _e258604259048_))) - (_hd258603259051_ + (##cdr _e136710137154_))) + (_hd136709137157_ (let () (declare (not safe)) - (##car _e258604259048_)))) + (##car _e136710137154_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258603259051_)) - (let ((_e258607259056_ + (gx#stx-pair? _hd136709137157_)) + (let ((_e136713137162_ (let () (declare (not safe)) - (gx#stx-e _hd258603259051_)))) - (let ((_tl258605259061_ + (gx#stx-e _hd136709137157_)))) + (let ((_tl136711137167_ (let () (declare (not safe)) - (##cdr _e258607259056_))) - (_hd258606259059_ + (##cdr _e136713137162_))) + (_hd136712137165_ (let () (declare (not safe)) - (##car _e258607259056_)))) + (##car _e136713137162_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258606259059_)) - (let ((_e258610259064_ + (gx#stx-pair? _hd136712137165_)) + (let ((_e136716137170_ (let () (declare (not safe)) - (gx#stx-e _hd258606259059_)))) - (let ((_tl258608259069_ + (gx#stx-e _hd136712137165_)))) + (let ((_tl136714137175_ (let () (declare (not safe)) - (##cdr _e258610259064_))) - (_hd258609259067_ + (##cdr _e136716137170_))) + (_hd136715137173_ (let () (declare (not safe)) - (##car _e258610259064_)))) + (##car _e136716137170_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258608259069_)) + _tl136714137175_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258605259061_)) - (let ((_e258613259072_ + _tl136711137167_)) + (let ((_e136719137178_ (let () (declare (not safe)) (gx#stx-e - _tl258605259061_)))) - (let ((_tl258611259077_ + _tl136711137167_)))) + (let ((_tl136717137183_ (let () (declare (not safe)) - (##cdr _e258613259072_))) - (_hd258612259075_ + (##cdr _e136719137178_))) + (_hd136718137181_ (let () (declare (not safe)) - (##car _e258613259072_)))) + (##car _e136719137178_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258611259077_)) + _tl136717137183_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl258602259053_)) + (gx#stx-null? _tl136708137159_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258599259045_)) - (let ((_e258616259080_ + (gx#stx-pair? _tl136705137151_)) + (let ((_e136722137186_ (let () (declare (not safe)) - (gx#stx-e _tl258599259045_)))) - (let ((_tl258614259085_ + (gx#stx-e _tl136705137151_)))) + (let ((_tl136720137191_ (let () (declare (not safe)) - (##cdr _e258616259080_))) - (_hd258615259083_ + (##cdr _e136722137186_))) + (_hd136721137189_ (let () (declare (not safe)) - (##car _e258616259080_)))) + (##car _e136722137186_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258614259085_)) - (___kont275431275432_ - _hd258615259083_ - _hd258612259075_ - _hd258609259067_) + (gx#stx-null? _tl136720137191_)) + (___kont148969148970_ + _hd136721137189_ + _hd136718137181_ + _hd136715137173_) (let () (declare (not safe)) - (_g258524258657_))))) - (let () (declare (not safe)) (_g258524258657_))) - (let () (declare (not safe)) (_g258524258657_))) - (let () (declare (not safe)) (_g258524258657_))))) + (_g136630136763_))))) + (let () (declare (not safe)) (_g136630136763_))) + (let () (declare (not safe)) (_g136630136763_))) + (let () (declare (not safe)) (_g136630136763_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g258524258657_))) + (_g136630136763_))) (let () (declare (not safe)) - (_g258524258657_))))) + (_g136630136763_))))) (let () (declare (not safe)) - (_g258524258657_))))) + (_g136630136763_))))) (let () (declare (not safe)) - (_g258524258657_))))) - (let () (declare (not safe)) (_g258524258657_))))) - (let () (declare (not safe)) (_g258524258657_))) + (_g136630136763_))))) + (let () (declare (not safe)) (_g136630136763_))))) + (let () (declare (not safe)) (_g136630136763_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd258530259317_)) + _hd136636137423_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258529259319_)) - (let ((_e258625258670_ + _tl136635137425_)) + (let ((_e136731136776_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl258529259319_)))) - (let ((_tl258623258675_ + (gx#stx-e _tl136635137425_)))) + (let ((_tl136729136781_ (let () (declare (not safe)) - (##cdr _e258625258670_))) - (_hd258624258673_ + (##cdr _e136731136776_))) + (_hd136730136779_ (let () (declare (not safe)) - (##car _e258625258670_)))) + (##car _e136731136776_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258624258673_)) - (let ((_e258628258678_ + (gx#stx-pair? _hd136730136779_)) + (let ((_e136734136784_ (let () (declare (not safe)) - (gx#stx-e _hd258624258673_)))) - (let ((_tl258626258683_ + (gx#stx-e _hd136730136779_)))) + (let ((_tl136732136789_ (let () (declare (not safe)) - (##cdr _e258628258678_))) - (_hd258627258681_ + (##cdr _e136734136784_))) + (_hd136733136787_ (let () (declare (not safe)) - (##car _e258628258678_)))) + (##car _e136734136784_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd258627258681_)) + (gx#identifier? _hd136733136787_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd258627258681_)) + _hd136733136787_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258626258683_)) - (let ((_e258631258686_ + (gx#stx-pair? _tl136732136789_)) + (let ((_e136737136792_ (let () (declare (not safe)) (gx#stx-e - _tl258626258683_)))) - (let ((_tl258629258691_ + _tl136732136789_)))) + (let ((_tl136735136797_ (let () (declare (not safe)) - (##cdr _e258631258686_))) - (_hd258630258689_ + (##cdr _e136737136792_))) + (_hd136736136795_ (let () (declare (not safe)) - (##car _e258631258686_)))) + (##car _e136737136792_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd258630258689_)) - (let ((___splice275435275436_ + _hd136736136795_)) + (let ((___splice148973148974_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd258630258689_ + _hd136736136795_ '0)))) - (let ((_tl258634258696_ + (let ((_tl136740136802_ (let () (declare (not safe)) (##vector-ref - ___splice275435275436_ + ___splice148973148974_ '1))) - (_target258632258694_ + (_target136738136800_ (let () (declare (not safe)) (##vector-ref - ___splice275435275436_ + ___splice148973148974_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258634258696_)) - (___match275680275681_ - _e258531259314_ - _hd258530259317_ - _tl258529259319_ - _e258625258670_ - _hd258624258673_ - _tl258623258675_ - _e258628258678_ - _hd258627258681_ - _tl258626258683_ - _e258631258686_ - _hd258630258689_ - _tl258629258691_ - ___splice275435275436_ - _target258632258694_ - _tl258634258696_) + _tl136740136802_)) + (___match149218149219_ + _e136637137420_ + _hd136636137423_ + _tl136635137425_ + _e136731136776_ + _hd136730136779_ + _tl136729136781_ + _e136734136784_ + _hd136733136787_ + _tl136732136789_ + _e136737136792_ + _hd136736136795_ + _tl136735136797_ + ___splice148973148974_ + _target136738136800_ + _tl136740136802_) (let () (declare (not safe)) - (_g258524258657_))))) + (_g136630136763_))))) (let () (declare (not safe)) - (_g258524258657_))))) + (_g136630136763_))))) (let () (declare (not safe)) - (_g258524258657_))) + (_g136630136763_))) (let () (declare (not safe)) - (_g258524258657_))) + (_g136630136763_))) (let () (declare (not safe)) - (_g258524258657_))))) - (let () (declare (not safe)) (_g258524258657_))))) - (let () (declare (not safe)) (_g258524258657_))) - (let () (declare (not safe)) (_g258524258657_)))))) + (_g136630136763_))))) + (let () (declare (not safe)) (_g136630136763_))))) + (let () (declare (not safe)) (_g136630136763_))) + (let () (declare (not safe)) (_g136630136763_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g258524258657_))))) + (_g136630136763_))))) (let () (declare (not safe)) - (_g258524258657_)))))))) - (_xform-loop-e258132_ - (lambda (_expr258341_ - _kont-id258342_ - _kont-box258343_ - _negation-id258344_) - (let* ((_g258346258386_ - (lambda (_g258347258383_) + (_g136630136763_)))))))) + (_xform-loop-e136238_ + (lambda (_expr136447_ + _kont-id136448_ + _kont-box136449_ + _negation-id136450_) + (let* ((_g136452136492_ + (lambda (_g136453136489_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g258347258383_)))) - (_g258345258512_ - (lambda (_g258347258389_) + _g136453136489_)))) + (_g136451136618_ + (lambda (_g136453136495_) (if (let () (declare (not safe)) - (gx#stx-pair? _g258347258389_)) - (let ((_e258354258391_ + (gx#stx-pair? _g136453136495_)) + (let ((_e136460136497_ (let () (declare (not safe)) - (gx#stx-e _g258347258389_)))) - (let ((_hd258353258394_ + (gx#stx-e _g136453136495_)))) + (let ((_hd136459136500_ (let () (declare (not safe)) - (##car _e258354258391_))) - (_tl258352258396_ + (##car _e136460136497_))) + (_tl136458136502_ (let () (declare (not safe)) - (##cdr _e258354258391_)))) + (##cdr _e136460136497_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd258353258394_)) + (gx#identifier? _hd136459136500_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd258353258394_)) + _hd136459136500_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258352258396_)) - (let ((_e258357258399_ + _tl136458136502_)) + (let ((_e136463136505_ (let () (declare (not safe)) (gx#stx-e - _tl258352258396_)))) - (let ((_hd258356258402_ + _tl136458136502_)))) + (let ((_hd136462136508_ (let () (declare (not safe)) - (##car _e258357258399_))) - (_tl258355258404_ + (##car _e136463136505_))) + (_tl136461136510_ (let () (declare (not safe)) - (##cdr _e258357258399_)))) + (##cdr _e136463136505_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd258356258402_)) - (let ((_g276486_ + _hd136462136508_)) + (let ((_g150024_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd258356258402_ '0)))) + (gx#syntax-split-splice _hd136462136508_ '0)))) (begin - (let ((_g276487_ + (let ((_g150025_ (let () (declare (not safe)) - (if (##values? _g276486_) - (##vector-length _g276486_) + (if (##values? _g150024_) + (##vector-length _g150024_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g276487_ 2))) - (error "Context expects 2 values" _g276487_))) - (let ((_target258358258407_ + (##fx= _g150025_ 2))) + (error "Context expects 2 values" _g150025_))) + (let ((_target136464136513_ (let () (declare (not safe)) - (##vector-ref _g276486_ 0))) - (_tl258360258409_ + (##vector-ref _g150024_ 0))) + (_tl136466136515_ (let () (declare (not safe)) - (##vector-ref _g276486_ 1)))) + (##vector-ref _g150024_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258360258409_)) - (letrec ((_loop258361258412_ - (lambda (_hd258359258415_ - _id258365258417_) + (gx#stx-null? _tl136466136515_)) + (letrec ((_loop136467136518_ + (lambda (_hd136465136521_ + _id136471136523_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258359258415_)) - (let ((_e258362258420_ + (gx#stx-pair? _hd136465136521_)) + (let ((_e136468136526_ (let () (declare (not safe)) (gx#stx-e - _hd258359258415_)))) - (let ((_lp-hd258363258423_ + _hd136465136521_)))) + (let ((_lp-hd136469136529_ (let () (declare (not safe)) - (##car _e258362258420_))) - (_lp-tl258364258425_ + (##car _e136468136526_))) + (_lp-tl136470136531_ (let () (declare (not safe)) - (##cdr _e258362258420_)))) - (let ((__tmp276496 + (##cdr _e136468136526_)))) + (let ((__tmp150034 (let () (declare (not safe)) - (cons _lp-hd258363258423_ - _id258365258417_)))) + (cons _lp-hd136469136529_ + _id136471136523_)))) (declare (not safe)) - (_loop258361258412_ - _lp-tl258364258425_ - __tmp276496)))) - (let ((_id258366258428_ - (reverse _id258365258417_))) + (_loop136467136518_ + _lp-tl136470136531_ + __tmp150034)))) + (let ((_id136472136534_ + (reverse _id136471136523_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258355258404_)) - (let ((_e258369258431_ + _tl136461136510_)) + (let ((_e136475136537_ (let () (declare (not safe)) (gx#stx-e - _tl258355258404_)))) - (let ((_hd258368258434_ + _tl136461136510_)))) + (let ((_hd136474136540_ (let () (declare (not safe)) - (##car _e258369258431_))) - (_tl258367258436_ + (##car _e136475136537_))) + (_tl136473136542_ (let () (declare (not safe)) - (##cdr _e258369258431_)))) + (##cdr _e136475136537_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd258368258434_)) - (let ((_e258372258439_ + _hd136474136540_)) + (let ((_e136478136545_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd258368258434_)))) - (let ((_hd258371258442_ + (gx#stx-e _hd136474136540_)))) + (let ((_hd136477136548_ (let () (declare (not safe)) - (##car _e258372258439_))) - (_tl258370258444_ + (##car _e136478136545_))) + (_tl136476136550_ (let () (declare (not safe)) - (##cdr _e258372258439_)))) + (##cdr _e136478136545_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd258371258442_)) + (gx#identifier? _hd136477136548_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd258371258442_)) + (gx#stx-eq? '%#if _hd136477136548_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258370258444_)) - (let ((_e258375258447_ + (gx#stx-pair? _tl136476136550_)) + (let ((_e136481136553_ (let () (declare (not safe)) - (gx#stx-e _tl258370258444_)))) - (let ((_hd258374258450_ + (gx#stx-e _tl136476136550_)))) + (let ((_hd136480136556_ (let () (declare (not safe)) - (##car _e258375258447_))) - (_tl258373258452_ + (##car _e136481136553_))) + (_tl136479136558_ (let () (declare (not safe)) - (##cdr _e258375258447_)))) + (##cdr _e136481136553_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258373258452_)) - (let ((_e258378258455_ + (gx#stx-pair? _tl136479136558_)) + (let ((_e136484136561_ (let () (declare (not safe)) (gx#stx-e - _tl258373258452_)))) - (let ((_hd258377258458_ + _tl136479136558_)))) + (let ((_hd136483136564_ (let () (declare (not safe)) - (##car _e258378258455_))) - (_tl258376258460_ + (##car _e136484136561_))) + (_tl136482136566_ (let () (declare (not safe)) - (##cdr _e258378258455_)))) + (##cdr _e136484136561_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258376258460_)) - (let ((_e258381258463_ + _tl136482136566_)) + (let ((_e136487136569_ (let () (declare (not safe)) (gx#stx-e - _tl258376258460_)))) - (let ((_hd258380258466_ + _tl136482136566_)))) + (let ((_hd136486136572_ (let () (declare (not safe)) - (##car _e258381258463_))) - (_tl258379258468_ + (##car _e136487136569_))) + (_tl136485136574_ (let () (declare (not safe)) - (##cdr _e258381258463_)))) + (##cdr _e136487136569_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258379258468_)) + _tl136485136574_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl258367258436_)) - ((lambda (_L258471_ _L258472_ _L258473_ _L258474_) - (let* ((_E258503_ + (gx#stx-null? _tl136473136542_)) + ((lambda (_L136577_ _L136578_ _L136579_ _L136580_) + (let* ((_E136609_ (let () (declare (not safe)) - (_xform-e258131_ - _L258471_ - _kont-id258342_ - _kont-box258343_ - _negation-id258344_))) - (__tmp276488 - (let ((__tmp276494 - (let ((__tmp276495 - (lambda (_g258504258507_ - _g258505258509_) + (_xform-e136237_ + _L136577_ + _kont-id136448_ + _kont-box136449_ + _negation-id136450_))) + (__tmp150026 + (let ((__tmp150032 + (let ((__tmp150033 + (lambda (_g136610136613_ + _g136611136615_) (let () (declare (not safe)) - (cons _g258504258507_ - _g258505258509_))))) + (cons _g136610136613_ + _g136611136615_))))) (declare (not safe)) - (foldr1 __tmp276495 '() _L258474_))) - (__tmp276489 - (let ((__tmp276490 - (let ((__tmp276491 - (let ((__tmp276492 - (let ((__tmp276493 + (foldr1 __tmp150033 '() _L136580_))) + (__tmp150027 + (let ((__tmp150028 + (let ((__tmp150029 + (let ((__tmp150030 + (let ((__tmp150031 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _E258503_ '())))) + (cons _E136609_ '())))) (declare (not safe)) - (cons _L258472_ __tmp276493)))) + (cons _L136578_ __tmp150031)))) (declare (not safe)) - (cons _L258473_ __tmp276492)))) + (cons _L136579_ __tmp150030)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp276491)))) + (cons '%#if __tmp150029)))) (declare (not safe)) - (cons __tmp276490 '())))) + (cons __tmp150028 '())))) (declare (not safe)) - (cons __tmp276494 __tmp276489)))) + (cons __tmp150032 __tmp150027)))) (declare (not safe)) - (cons '%#lambda __tmp276488))) - _hd258380258466_ - _hd258377258458_ - _hd258374258450_ - _id258366258428_) + (cons '%#lambda __tmp150026))) + _hd136486136572_ + _hd136483136564_ + _hd136480136556_ + _id136472136534_) (let () (declare (not safe)) - (_g258346258386_ _g258347258389_))) + (_g136452136492_ _g136453136495_))) (let () (declare (not safe)) - (_g258346258386_ _g258347258389_))))) + (_g136452136492_ _g136453136495_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g258346258386_ - _g258347258389_))))) + (_g136452136492_ + _g136453136495_))))) (let () (declare (not safe)) - (_g258346258386_ - _g258347258389_))))) + (_g136452136492_ + _g136453136495_))))) (let () (declare (not safe)) - (_g258346258386_ _g258347258389_))) + (_g136452136492_ _g136453136495_))) (let () (declare (not safe)) - (_g258346258386_ _g258347258389_))) + (_g136452136492_ _g136453136495_))) (let () (declare (not safe)) - (_g258346258386_ _g258347258389_))))) + (_g136452136492_ _g136453136495_))))) (let () (declare (not safe)) - (_g258346258386_ _g258347258389_))))) + (_g136452136492_ _g136453136495_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g258346258386_ - _g258347258389_)))))))) + (_g136452136492_ + _g136453136495_)))))))) (let () (declare (not safe)) - (_loop258361258412_ _target258358258407_ '()))) + (_loop136467136518_ _target136464136513_ '()))) (let () (declare (not safe)) - (_g258346258386_ _g258347258389_)))))) + (_g136452136492_ _g136453136495_)))))) (let () (declare (not safe)) - (_g258346258386_ _g258347258389_))))) + (_g136452136492_ _g136453136495_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g258346258386_ - _g258347258389_))) + (_g136452136492_ + _g136453136495_))) (let () (declare (not safe)) - (_g258346258386_ - _g258347258389_))) + (_g136452136492_ + _g136453136495_))) (let () (declare (not safe)) - (_g258346258386_ - _g258347258389_))))) + (_g136452136492_ + _g136453136495_))))) (let () (declare (not safe)) - (_g258346258386_ _g258347258389_)))))) + (_g136452136492_ _g136453136495_)))))) (declare (not safe)) - (_g258345258512_ _expr258341_)))) - (_clause-e258133_ - (lambda (_clause-lambda258211_ _kont-id258212_ _rest258213_) - (letrec* ((_kont-box258215_ + (_g136451136618_ _expr136447_)))) + (_clause-e136239_ + (lambda (_clause-lambda136317_ _kont-id136318_ _rest136319_) + (letrec* ((_kont-box136321_ (let () (declare (not safe)) (box '#f)))) - (let* ((_negation-id258255_ - (let* ((_rest258216258226_ _rest258213_) - (_else258218258234_ - (lambda () _negation-id258129_)) - (_K258220258240_ - (lambda (_clause258237_ - _clause-id258238_) - _clause-id258238_))) + (let* ((_negation-id136361_ + (let* ((_rest136322136332_ _rest136319_) + (_else136324136340_ + (lambda () _negation-id136235_)) + (_K136326136346_ + (lambda (_clause136343_ + _clause-id136344_) + _clause-id136344_))) (if (let () (declare (not safe)) - (##pair? _rest258216258226_)) - (let ((_hd258221258243_ + (##pair? _rest136322136332_)) + (let ((_hd136327136349_ (let () (declare (not safe)) - (##car _rest258216258226_)))) + (##car _rest136322136332_)))) (if (let () (declare (not safe)) - (##pair? _hd258221258243_)) - (let ((_hd258223258246_ + (##pair? _hd136327136349_)) + (let ((_hd136329136352_ (let () (declare (not safe)) - (##car _hd258221258243_))) - (_tl258224258248_ + (##car _hd136327136349_))) + (_tl136330136354_ (let () (declare (not safe)) - (##cdr _hd258221258243_)))) - (let* ((_clause-id258251_ - _hd258223258246_) - (_clause258253_ - _tl258224258248_)) + (##cdr _hd136327136349_)))) + (let* ((_clause-id136357_ + _hd136329136352_) + (_clause136359_ + _tl136330136354_)) (declare (not safe)) - (_K258220258240_ - _clause258253_ - _clause-id258251_))) + (_K136326136346_ + _clause136359_ + _clause-id136357_))) (let () (declare (not safe)) - (_else258218258234_)))) + (_else136324136340_)))) (let () (declare (not safe)) - (_else258218258234_))))) - (_g258257258277_ - (lambda (_g258258258274_) + (_else136324136340_))))) + (_g136363136383_ + (lambda (_g136364136380_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g258258258274_)))) - (_g258256258338_ - (lambda (_g258258258280_) + _g136364136380_)))) + (_g136362136444_ + (lambda (_g136364136386_) (if (let () (declare (not safe)) - (gx#stx-pair? _g258258258280_)) - (let ((_e258263258282_ + (gx#stx-pair? _g136364136386_)) + (let ((_e136369136388_ (let () (declare (not safe)) - (gx#stx-e _g258258258280_)))) - (let ((_hd258262258285_ + (gx#stx-e _g136364136386_)))) + (let ((_hd136368136391_ (let () (declare (not safe)) - (##car _e258263258282_))) - (_tl258261258287_ + (##car _e136369136388_))) + (_tl136367136393_ (let () (declare (not safe)) - (##cdr _e258263258282_)))) + (##cdr _e136369136388_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd258262258285_)) + _hd136368136391_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd258262258285_)) + _hd136368136391_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258261258287_)) - (let ((_e258266258290_ + _tl136367136393_)) + (let ((_e136372136396_ (let () (declare (not safe)) (gx#stx-e - _tl258261258287_)))) - (let ((_hd258265258293_ + _tl136367136393_)))) + (let ((_hd136371136399_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e258266258290_))) - (_tl258264258295_ - (let () (declare (not safe)) (##cdr _e258266258290_)))) + (##car _e136372136396_))) + (_tl136370136401_ + (let () (declare (not safe)) (##cdr _e136372136396_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258265258293_)) - (let ((_e258269258298_ + (gx#stx-pair? _hd136371136399_)) + (let ((_e136375136404_ (let () (declare (not safe)) - (gx#stx-e _hd258265258293_)))) - (let ((_hd258268258301_ + (gx#stx-e _hd136371136399_)))) + (let ((_hd136374136407_ (let () (declare (not safe)) - (##car _e258269258298_))) - (_tl258267258303_ + (##car _e136375136404_))) + (_tl136373136409_ (let () (declare (not safe)) - (##cdr _e258269258298_)))) + (##cdr _e136375136404_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258267258303_)) + (gx#stx-null? _tl136373136409_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258264258295_)) - (let ((_e258272258306_ + (gx#stx-pair? _tl136370136401_)) + (let ((_e136378136412_ (let () (declare (not safe)) - (gx#stx-e _tl258264258295_)))) - (let ((_hd258271258309_ + (gx#stx-e _tl136370136401_)))) + (let ((_hd136377136415_ (let () (declare (not safe)) - (##car _e258272258306_))) - (_tl258270258311_ + (##car _e136378136412_))) + (_tl136376136417_ (let () (declare (not safe)) - (##cdr _e258272258306_)))) + (##cdr _e136378136412_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258270258311_)) - ((lambda (_L258314_ _L258315_) - (let ((_body258336_ + (gx#stx-null? _tl136376136417_)) + ((lambda (_L136420_ _L136421_) + (let ((_body136442_ (let () (declare (not safe)) - (_xform-e258131_ - _L258314_ - _kont-id258212_ - _kont-box258215_ - _negation-id258255_)))) - (values (let ((__tmp276497 - (let ((__tmp276499 + (_xform-e136237_ + _L136420_ + _kont-id136318_ + _kont-box136321_ + _negation-id136361_)))) + (values (let ((__tmp150035 + (let ((__tmp150037 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L258315_ '()))) - (__tmp276498 + (let () (declare (not safe)) (cons _L136421_ '()))) + (__tmp150036 (let () (declare (not safe)) - (cons _body258336_ '())))) + (cons _body136442_ '())))) (declare (not safe)) - (cons __tmp276499 __tmp276498)))) + (cons __tmp150037 __tmp150036)))) (declare (not safe)) - (cons '%#lambda __tmp276497)) + (cons '%#lambda __tmp150035)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (unbox _kont-box258215_)))) - _hd258271258309_ - _hd258268258301_) + (unbox _kont-box136321_)))) + _hd136377136415_ + _hd136374136407_) (let () (declare (not safe)) - (_g258257258277_ _g258258258280_))))) + (_g136363136383_ _g136364136386_))))) (let () (declare (not safe)) - (_g258257258277_ _g258258258280_))) + (_g136363136383_ _g136364136386_))) (let () (declare (not safe)) - (_g258257258277_ _g258258258280_))))) + (_g136363136383_ _g136364136386_))))) (let () (declare (not safe)) - (_g258257258277_ _g258258258280_))))) + (_g136363136383_ _g136364136386_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g258257258277_ - _g258258258280_))) + (_g136363136383_ + _g136364136386_))) (let () (declare (not safe)) - (_g258257258277_ - _g258258258280_))) + (_g136363136383_ + _g136364136386_))) (let () (declare (not safe)) - (_g258257258277_ - _g258258258280_))))) + (_g136363136383_ + _g136364136386_))))) (let () (declare (not safe)) - (_g258257258277_ _g258258258280_)))))) + (_g136363136383_ _g136364136386_)))))) (declare (not safe)) - (_g258256258338_ _clause-lambda258211_)))))) - (let _lp258135_ ((_rest258137_ _clauses258128_) - (_clauses258138_ '()) - (_konts258139_ '())) - (let* ((_rest258140258148_ _rest258137_) - (_else258142258156_ + (_g136362136444_ _clause-lambda136317_)))))) + (let _lp136241_ ((_rest136243_ _clauses136234_) + (_clauses136244_ '()) + (_konts136245_ '())) + (let* ((_rest136246136254_ _rest136243_) + (_else136248136262_ (lambda () - (values (reverse _clauses258138_) - (reverse _konts258139_)))) - (_K258144258199_ - (lambda (_rest258159_ _clause258160_) - (let* ((_clause258161258168_ _clause258160_) - (_E258163258172_ + (values (reverse _clauses136244_) + (reverse _konts136245_)))) + (_K136250136305_ + (lambda (_rest136265_ _clause136266_) + (let* ((_clause136267136274_ _clause136266_) + (_E136269136278_ (lambda () - (error '"No clause matching" - _clause258161258168_))) - (_K258164258187_ - (lambda (_clause-lambda258175_ _clause-id258176_) - (let* ((_id258178_ - (let ((__tmp276500 (gensym '__kont))) + (let () + (declare (not safe)) + (error '"No clause matching" + _clause136267136274_)))) + (_K136270136293_ + (lambda (_clause-lambda136281_ _clause-id136282_) + (let* ((_id136284_ + (let ((__tmp150038 (gensym '__kont))) (declare (not safe)) - (make-symbol__0 __tmp276500))) - (_id258180_ + (make-symbol__0 __tmp150038))) + (_id136286_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _id258178_))) - (_g276501_ + _id136284_))) + (_g150039_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _id258180_))) - (_g276502_ + _id136286_))) + (_g150040_ (let () (declare (not safe)) - (_clause-e258133_ - _clause-lambda258175_ - _id258180_ - _rest258159_)))) + (_clause-e136239_ + _clause-lambda136281_ + _id136286_ + _rest136265_)))) (begin - (let ((_g276503_ + (let ((_g150041_ (let () (declare (not safe)) - (if (##values? _g276502_) - (##vector-length _g276502_) + (if (##values? _g150040_) + (##vector-length _g150040_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g276503_ 2))) + (##fx= _g150041_ 2))) (error "Context expects 2 values" - _g276503_))) - (let ((_clause-lambda258183_ + _g150041_))) + (let ((_clause-lambda136289_ (let () (declare (not safe)) - (##vector-ref _g276502_ 0))) - (_kont258184_ + (##vector-ref _g150040_ 0))) + (_kont136290_ (let () (declare (not safe)) - (##vector-ref _g276502_ 1)))) + (##vector-ref _g150040_ 1)))) (let () - (let ((__tmp276506 - (let ((__tmp276507 + (let ((__tmp150044 + (let ((__tmp150045 (let () (declare (not safe)) - (cons _clause-id258176_ - _clause-lambda258183_)))) + (cons _clause-id136282_ + _clause-lambda136289_)))) (declare (not safe)) - (cons __tmp276507 - _clauses258138_))) - (__tmp276504 - (let ((__tmp276505 + (cons __tmp150045 + _clauses136244_))) + (__tmp150042 + (let ((__tmp150043 (let () (declare (not safe)) - (cons _id258180_ - _kont258184_)))) + (cons _id136286_ + _kont136290_)))) (declare (not safe)) - (cons __tmp276505 - _konts258139_)))) + (cons __tmp150043 + _konts136245_)))) (declare (not safe)) - (_lp258135_ - _rest258159_ - __tmp276506 - __tmp276504))))))))) + (_lp136241_ + _rest136265_ + __tmp150044 + __tmp150042))))))))) (if (let () (declare (not safe)) - (##pair? _clause258161258168_)) - (let ((_hd258165258190_ + (##pair? _clause136267136274_)) + (let ((_hd136271136296_ (let () (declare (not safe)) - (##car _clause258161258168_))) - (_tl258166258192_ + (##car _clause136267136274_))) + (_tl136272136298_ (let () (declare (not safe)) - (##cdr _clause258161258168_)))) - (let* ((_clause-id258195_ _hd258165258190_) - (_clause-lambda258197_ _tl258166258192_)) + (##cdr _clause136267136274_)))) + (let* ((_clause-id136301_ _hd136271136296_) + (_clause-lambda136303_ _tl136272136298_)) (declare (not safe)) - (_K258164258187_ - _clause-lambda258197_ - _clause-id258195_))) + (_K136270136293_ + _clause-lambda136303_ + _clause-id136301_))) (let () (declare (not safe)) - (_E258163258172_))))))) - (if (let () (declare (not safe)) (##pair? _rest258140258148_)) - (let ((_hd258145258202_ + (_E136269136278_))))))) + (if (let () (declare (not safe)) (##pair? _rest136246136254_)) + (let ((_hd136251136308_ (let () (declare (not safe)) - (##car _rest258140258148_))) - (_tl258146258204_ + (##car _rest136246136254_))) + (_tl136252136310_ (let () (declare (not safe)) - (##cdr _rest258140258148_)))) - (let* ((_clause258207_ _hd258145258202_) - (_rest258209_ _tl258146258204_)) + (##cdr _rest136246136254_)))) + (let* ((_clause136313_ _hd136251136308_) + (_rest136315_ _tl136252136310_)) (declare (not safe)) - (_K258144258199_ _rest258209_ _clause258207_))) - (let () (declare (not safe)) (_else258142258156_)))))))) + (_K136250136305_ _rest136315_ _clause136313_))) + (let () (declare (not safe)) (_else136248136262_)))))))) (define gxc#optimize-syntax-case-closure - (lambda (_clause257472_ _negation257473_ _target257474_) - (letrec ((_closure-e257476_ - (lambda (_expr257593_) - (let* ((___stx275683275684_ _expr257593_) - (_g257600257715_ + (lambda (_clause135578_ _negation135579_ _target135580_) + (letrec ((_closure-e135582_ + (lambda (_expr135699_) + (let* ((___stx149221149222_ _expr135699_) + (_g135706135821_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx275683275684_))))) - (let ((___kont275685275686_ - (lambda (_L258106_ _L258107_ _L258108_) - (let ((__tmp276508 - (let ((__tmp276509 - (let ((__tmp276512 + ___stx149221149222_))))) + (let ((___kont149223149224_ + (lambda (_L136212_ _L136213_ _L136214_) + (let ((__tmp150046 + (let ((__tmp150047 + (let ((__tmp150050 (let () (declare (not safe)) - (_closure-e257476_ - _L258107_))) - (__tmp276510 - (let ((__tmp276511 + (_closure-e135582_ + _L136213_))) + (__tmp150048 + (let ((__tmp150049 (let () (declare (not safe)) - (_closure-e257476_ - _L258106_)))) + (_closure-e135582_ + _L136212_)))) (declare (not safe)) - (cons __tmp276511 '())))) + (cons __tmp150049 '())))) (declare (not safe)) - (cons __tmp276512 - __tmp276510)))) + (cons __tmp150050 + __tmp150048)))) (declare (not safe)) - (cons _L258108_ __tmp276509)))) + (cons _L136214_ __tmp150047)))) (declare (not safe)) - (cons '%#if __tmp276508)))) - (___kont275687275688_ - (lambda (_L258054_ _L258055_) - (let ((__tmp276513 - (let ((__tmp276514 - (let ((__tmp276515 + (cons '%#if __tmp150046)))) + (___kont149225149226_ + (lambda (_L136160_ _L136161_) + (let ((__tmp150051 + (let ((__tmp150052 + (let ((__tmp150053 (let () (declare (not safe)) - (_closure-e257476_ - _L258054_)))) + (_closure-e135582_ + _L136160_)))) (declare (not safe)) - (cons __tmp276515 '())))) + (cons __tmp150053 '())))) (declare (not safe)) - (cons _L258055_ __tmp276514)))) + (cons _L136161_ __tmp150052)))) (declare (not safe)) - (cons '%#let-values __tmp276513)))) - (___kont275689275690_ - (lambda (_L258000_ _L258001_ _L258002_) - (let ((__tmp276516 - (let ((__tmp276518 - (let ((__tmp276519 - (let ((__tmp276522 + (cons '%#let-values __tmp150051)))) + (___kont149227149228_ + (lambda (_L136106_ _L136107_ _L136108_) + (let ((__tmp150054 + (let ((__tmp150056 + (let ((__tmp150057 + (let ((__tmp150060 (let () (declare (not safe)) - (cons _L258002_ + (cons _L136108_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp276520 - (let ((__tmp276521 + (__tmp150058 + (let ((__tmp150059 (let () (declare (not safe)) - (_closure-e257476_ _L258001_)))) + (_closure-e135582_ _L136107_)))) (declare (not safe)) - (cons __tmp276521 '())))) + (cons __tmp150059 '())))) (declare (not safe)) - (cons __tmp276522 __tmp276520)))) + (cons __tmp150060 __tmp150058)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp276519 '()))) - (__tmp276517 + (cons __tmp150057 '()))) + (__tmp150055 (let () (declare (not safe)) - (cons _L258000_ '())))) + (cons _L136106_ '())))) (declare (not safe)) - (cons __tmp276518 __tmp276517)))) + (cons __tmp150056 __tmp150055)))) (declare (not safe)) - (cons '%#letrec-values __tmp276516)))) - (___kont275691275692_ - (lambda (_L257913_ _L257914_) - (let ((__tmp276523 - (let ((__tmp276526 - (let ((__tmp276527 - (lambda (_g257931257934_ - _g257932257936_) + (cons '%#letrec-values __tmp150054)))) + (___kont149229149230_ + (lambda (_L136019_ _L136020_) + (let ((__tmp150061 + (let ((__tmp150064 + (let ((__tmp150065 + (lambda (_g136037136040_ + _g136038136042_) (let () (declare (not safe)) - (cons _g257931257934_ - _g257932257936_))))) + (cons _g136037136040_ + _g136038136042_))))) (declare (not safe)) - (foldr1 __tmp276527 + (foldr1 __tmp150065 '() - _L257914_))) - (__tmp276524 - (let ((__tmp276525 + _L136020_))) + (__tmp150062 + (let ((__tmp150063 (let () (declare (not safe)) - (_closure-e257476_ - _L257913_)))) + (_closure-e135582_ + _L136019_)))) (declare (not safe)) - (cons __tmp276525 '())))) + (cons __tmp150063 '())))) (declare (not safe)) - (cons __tmp276526 __tmp276524)))) + (cons __tmp150064 __tmp150062)))) (declare (not safe)) - (cons '%#lambda __tmp276523)))) - (___kont275695275696_ - (lambda (_L257843_) - (let ((__tmp276528 - (let ((__tmp276529 - (let ((__tmp276531 + (cons '%#lambda __tmp150061)))) + (___kont149233149234_ + (lambda (_L135949_) + (let ((__tmp150066 + (let ((__tmp150067 + (let ((__tmp150069 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp276530 + (__tmp150068 (let () (declare (not safe)) - (cons _L257843_ '())))) + (cons _L135949_ '())))) (declare (not safe)) - (cons __tmp276531 - __tmp276530)))) + (cons __tmp150069 + __tmp150068)))) (declare (not safe)) - (cons __tmp276529 '())))) + (cons __tmp150067 '())))) (declare (not safe)) - (cons '%#call __tmp276528)))) - (___kont275697275698_ - (lambda (_L257776_ _L257777_) _expr257593_))) - (let* ((___match275916275917_ - (lambda (_e257692257720_ - _hd257691257723_ - _tl257690257725_ - _e257695257728_ - _hd257694257731_ - _tl257693257733_ - _e257698257736_ - _hd257697257739_ - _tl257696257741_ - _e257701257744_ - _hd257700257747_ - _tl257699257749_ - ___splice275699275700_ - _target257702257752_ - _tl257704257754_) - (letrec ((_loop257705257757_ - (lambda (_hd257703257760_ - _arg257709257762_) + (cons '%#call __tmp150066)))) + (___kont149235149236_ + (lambda (_L135882_ _L135883_) _expr135699_))) + (let* ((___match149454149455_ + (lambda (_e135798135826_ + _hd135797135829_ + _tl135796135831_ + _e135801135834_ + _hd135800135837_ + _tl135799135839_ + _e135804135842_ + _hd135803135845_ + _tl135802135847_ + _e135807135850_ + _hd135806135853_ + _tl135805135855_ + ___splice149237149238_ + _target135808135858_ + _tl135810135860_) + (letrec ((_loop135811135863_ + (lambda (_hd135809135866_ + _arg135815135868_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd257703257760_)) - (let ((_e257706257765_ + _hd135809135866_)) + (let ((_e135812135871_ (let () (declare (not safe)) (gx#stx-e - _hd257703257760_)))) - (let ((_lp-tl257708257770_ + _hd135809135866_)))) + (let ((_lp-tl135814135876_ (let () (declare (not safe)) - (##cdr _e257706257765_))) - (_lp-hd257707257768_ + (##cdr _e135812135871_))) + (_lp-hd135813135874_ (let () (declare (not safe)) - (##car _e257706257765_)))) - (let ((__tmp276532 + (##car _e135812135871_)))) + (let ((__tmp150070 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd257707257768_ _arg257709257762_)))) + (cons _lp-hd135813135874_ _arg135815135868_)))) (declare (not safe)) - (_loop257705257757_ _lp-tl257708257770_ __tmp276532)))) + (_loop135811135863_ _lp-tl135814135876_ __tmp150070)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg257710257773_ - (reverse _arg257709257762_))) - (___kont275697275698_ - _arg257710257773_ - _hd257700257747_)))))) + (let ((_arg135816135879_ + (reverse _arg135815135868_))) + (___kont149235149236_ + _arg135816135879_ + _hd135806135853_)))))) (let () (declare (not safe)) - (_loop257705257757_ - _target257702257752_ + (_loop135811135863_ + _target135808135858_ '()))))) - (___match275874275875_ - (lambda (_e257675257803_ - _hd257674257806_ - _tl257673257808_ - _e257678257811_ - _hd257677257814_ - _tl257676257816_ - _e257681257819_ - _hd257680257822_ - _tl257679257824_ - _e257684257827_ - _hd257683257830_ - _tl257682257832_ - _e257687257835_ - _hd257686257838_ - _tl257685257840_) - (let ((_L257843_ _hd257683257830_)) + (___match149412149413_ + (lambda (_e135781135909_ + _hd135780135912_ + _tl135779135914_ + _e135784135917_ + _hd135783135920_ + _tl135782135922_ + _e135787135925_ + _hd135786135928_ + _tl135785135930_ + _e135790135933_ + _hd135789135936_ + _tl135788135938_ + _e135793135941_ + _hd135792135944_ + _tl135791135946_) + (let ((_L135949_ _hd135789135936_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L257843_ - _negation257473_)) - (___kont275695275696_ _L257843_) + _L135949_ + _negation135579_)) + (___kont149233149234_ _L135949_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl257676257816_)) - (let ((___splice275699275700_ + _tl135782135922_)) + (let ((___splice149237149238_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl257676257816_ + _tl135782135922_ '0)))) - (let ((_tl257704257754_ + (let ((_tl135810135860_ (let () (declare (not safe)) (##vector-ref - ___splice275699275700_ + ___splice149237149238_ '1))) - (_target257702257752_ + (_target135808135858_ (let () (declare (not safe)) (##vector-ref - ___splice275699275700_ + ___splice149237149238_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257704257754_)) - (___match275916275917_ - _e257675257803_ - _hd257674257806_ - _tl257673257808_ - _e257678257811_ - _hd257677257814_ - _tl257676257816_ - _e257681257819_ - _hd257680257822_ - _tl257679257824_ - _e257684257827_ - _hd257683257830_ - _tl257682257832_ - ___splice275699275700_ - _target257702257752_ - _tl257704257754_) + _tl135810135860_)) + (___match149454149455_ + _e135781135909_ + _hd135780135912_ + _tl135779135914_ + _e135784135917_ + _hd135783135920_ + _tl135782135922_ + _e135787135925_ + _hd135786135928_ + _tl135785135930_ + _e135790135933_ + _hd135789135936_ + _tl135788135938_ + ___splice149237149238_ + _target135808135858_ + _tl135810135860_) (let () (declare (not safe)) - (_g257600257715_))))) + (_g135706135821_))))) (let () (declare (not safe)) - (_g257600257715_))))))) - (___match275832275833_ - (lambda (_e257656257865_ - _hd257655257868_ - _tl257654257870_ - _e257659257873_ - _hd257658257876_ - _tl257657257878_ - ___splice275693275694_ - _target257660257881_ - _tl257662257883_) - (letrec ((_loop257663257886_ - (lambda (_hd257661257889_ - _id257667257891_) + (_g135706135821_))))))) + (___match149370149371_ + (lambda (_e135762135971_ + _hd135761135974_ + _tl135760135976_ + _e135765135979_ + _hd135764135982_ + _tl135763135984_ + ___splice149231149232_ + _target135766135987_ + _tl135768135989_) + (letrec ((_loop135769135992_ + (lambda (_hd135767135995_ + _id135773135997_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd257661257889_)) - (let ((_e257664257894_ + _hd135767135995_)) + (let ((_e135770136000_ (let () (declare (not safe)) (gx#stx-e - _hd257661257889_)))) - (let ((_lp-tl257666257899_ + _hd135767135995_)))) + (let ((_lp-tl135772136005_ (let () (declare (not safe)) - (##cdr _e257664257894_))) - (_lp-hd257665257897_ + (##cdr _e135770136000_))) + (_lp-hd135771136003_ (let () (declare (not safe)) - (##car _e257664257894_)))) - (let ((__tmp276533 + (##car _e135770136000_)))) + (let ((__tmp150071 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd257665257897_ _id257667257891_)))) + (cons _lp-hd135771136003_ _id135773135997_)))) (declare (not safe)) - (_loop257663257886_ _lp-tl257666257899_ __tmp276533)))) + (_loop135769135992_ _lp-tl135772136005_ __tmp150071)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id257668257902_ - (reverse _id257667257891_))) + (let ((_id135774136008_ + (reverse _id135773135997_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257657257878_)) - (let ((_e257671257905_ + _tl135763135984_)) + (let ((_e135777136011_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl257657257878_)))) - (let ((_tl257669257910_ - (let () (declare (not safe)) (##cdr _e257671257905_))) - (_hd257670257908_ + (gx#stx-e _tl135763135984_)))) + (let ((_tl135775136016_ + (let () (declare (not safe)) (##cdr _e135777136011_))) + (_hd135776136014_ (let () (declare (not safe)) - (##car _e257671257905_)))) + (##car _e135777136011_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257669257910_)) - (___kont275691275692_ - _hd257670257908_ - _id257668257902_) - (let () (declare (not safe)) (_g257600257715_))))) - (let () (declare (not safe)) (_g257600257715_)))))))) + (gx#stx-null? _tl135775136016_)) + (___kont149229149230_ + _hd135776136014_ + _id135774136008_) + (let () (declare (not safe)) (_g135706135821_))))) + (let () (declare (not safe)) (_g135706135821_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop257663257886_ - _target257660257881_ + (_loop135769135992_ + _target135766135987_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx275683275684_)) - (let ((_e257607258074_ + (gx#stx-pair? ___stx149221149222_)) + (let ((_e135713136180_ (let () (declare (not safe)) - (gx#stx-e ___stx275683275684_)))) - (let ((_tl257605258079_ + (gx#stx-e ___stx149221149222_)))) + (let ((_tl135711136185_ (let () (declare (not safe)) - (##cdr _e257607258074_))) - (_hd257606258077_ + (##cdr _e135713136180_))) + (_hd135712136183_ (let () (declare (not safe)) - (##car _e257607258074_)))) + (##car _e135713136180_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd257606258077_)) + (gx#identifier? _hd135712136183_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd257606258077_)) + _hd135712136183_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257605258079_)) - (let ((_e257610258082_ + _tl135711136185_)) + (let ((_e135716136188_ (let () (declare (not safe)) (gx#stx-e - _tl257605258079_)))) - (let ((_tl257608258087_ + _tl135711136185_)))) + (let ((_tl135714136193_ (let () (declare (not safe)) - (##cdr _e257610258082_))) - (_hd257609258085_ + (##cdr _e135716136188_))) + (_hd135715136191_ (let () (declare (not safe)) - (##car _e257610258082_)))) + (##car _e135716136188_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257608258087_)) - (let ((_e257613258090_ + _tl135714136193_)) + (let ((_e135719136196_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl257608258087_)))) - (let ((_tl257611258095_ - (let () (declare (not safe)) (##cdr _e257613258090_))) - (_hd257612258093_ - (let () (declare (not safe)) (##car _e257613258090_)))) + (gx#stx-e _tl135714136193_)))) + (let ((_tl135717136201_ + (let () (declare (not safe)) (##cdr _e135719136196_))) + (_hd135718136199_ + (let () (declare (not safe)) (##car _e135719136196_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257611258095_)) - (let ((_e257616258098_ + (gx#stx-pair? _tl135717136201_)) + (let ((_e135722136204_ (let () (declare (not safe)) - (gx#stx-e _tl257611258095_)))) - (let ((_tl257614258103_ + (gx#stx-e _tl135717136201_)))) + (let ((_tl135720136209_ (let () (declare (not safe)) - (##cdr _e257616258098_))) - (_hd257615258101_ + (##cdr _e135722136204_))) + (_hd135721136207_ (let () (declare (not safe)) - (##car _e257616258098_)))) + (##car _e135722136204_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257614258103_)) - (___kont275685275686_ - _hd257615258101_ - _hd257612258093_ - _hd257609258085_) + (gx#stx-null? _tl135720136209_)) + (___kont149223149224_ + _hd135721136207_ + _hd135718136199_ + _hd135715136191_) (let () (declare (not safe)) - (_g257600257715_))))) - (let () (declare (not safe)) (_g257600257715_))))) - (let () (declare (not safe)) (_g257600257715_))))) + (_g135706135821_))))) + (let () (declare (not safe)) (_g135706135821_))))) + (let () (declare (not safe)) (_g135706135821_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g257600257715_))) + (_g135706135821_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd257606258077_)) + _hd135712136183_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257605258079_)) - (let ((_e257624258038_ + _tl135711136185_)) + (let ((_e135730136144_ (let () (declare (not safe)) (gx#stx-e - _tl257605258079_)))) - (let ((_tl257622258043_ + _tl135711136185_)))) + (let ((_tl135728136149_ (let () (declare (not safe)) - (##cdr _e257624258038_))) - (_hd257623258041_ + (##cdr _e135730136144_))) + (_hd135729136147_ (let () (declare (not safe)) - (##car _e257624258038_)))) + (##car _e135730136144_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257622258043_)) - (let ((_e257627258046_ + _tl135728136149_)) + (let ((_e135733136152_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl257622258043_)))) - (let ((_tl257625258051_ + (gx#stx-e _tl135728136149_)))) + (let ((_tl135731136157_ (let () (declare (not safe)) - (##cdr _e257627258046_))) - (_hd257626258049_ + (##cdr _e135733136152_))) + (_hd135732136155_ (let () (declare (not safe)) - (##car _e257627258046_)))) + (##car _e135733136152_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257625258051_)) - (___kont275687275688_ - _hd257626258049_ - _hd257623258041_) - (let () (declare (not safe)) (_g257600257715_))))) - (let () (declare (not safe)) (_g257600257715_))))) + (gx#stx-null? _tl135731136157_)) + (___kont149225149226_ + _hd135732136155_ + _hd135729136147_) + (let () (declare (not safe)) (_g135706135821_))))) + (let () (declare (not safe)) (_g135706135821_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g257600257715_))) + (_g135706135821_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd257606258077_)) + _hd135712136183_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257605258079_)) - (let ((_e257636257952_ + _tl135711136185_)) + (let ((_e135742136058_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl257605258079_)))) - (let ((_tl257634257957_ - (let () (declare (not safe)) (##cdr _e257636257952_))) - (_hd257635257955_ - (let () (declare (not safe)) (##car _e257636257952_)))) + (gx#stx-e _tl135711136185_)))) + (let ((_tl135740136063_ + (let () (declare (not safe)) (##cdr _e135742136058_))) + (_hd135741136061_ + (let () (declare (not safe)) (##car _e135742136058_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257635257955_)) - (let ((_e257639257960_ + (gx#stx-pair? _hd135741136061_)) + (let ((_e135745136066_ (let () (declare (not safe)) - (gx#stx-e _hd257635257955_)))) - (let ((_tl257637257965_ + (gx#stx-e _hd135741136061_)))) + (let ((_tl135743136071_ (let () (declare (not safe)) - (##cdr _e257639257960_))) - (_hd257638257963_ + (##cdr _e135745136066_))) + (_hd135744136069_ (let () (declare (not safe)) - (##car _e257639257960_)))) + (##car _e135745136066_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257638257963_)) - (let ((_e257642257968_ + (gx#stx-pair? _hd135744136069_)) + (let ((_e135748136074_ (let () (declare (not safe)) - (gx#stx-e _hd257638257963_)))) - (let ((_tl257640257973_ + (gx#stx-e _hd135744136069_)))) + (let ((_tl135746136079_ (let () (declare (not safe)) - (##cdr _e257642257968_))) - (_hd257641257971_ + (##cdr _e135748136074_))) + (_hd135747136077_ (let () (declare (not safe)) - (##car _e257642257968_)))) + (##car _e135748136074_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257641257971_)) - (let ((_e257645257976_ + (gx#stx-pair? _hd135747136077_)) + (let ((_e135751136082_ (let () (declare (not safe)) - (gx#stx-e _hd257641257971_)))) - (let ((_tl257643257981_ + (gx#stx-e _hd135747136077_)))) + (let ((_tl135749136087_ (let () (declare (not safe)) - (##cdr _e257645257976_))) - (_hd257644257979_ + (##cdr _e135751136082_))) + (_hd135750136085_ (let () (declare (not safe)) - (##car _e257645257976_)))) + (##car _e135751136082_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257643257981_)) + _tl135749136087_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257640257973_)) - (let ((_e257648257984_ + _tl135746136079_)) + (let ((_e135754136090_ (let () (declare (not safe)) (gx#stx-e - _tl257640257973_)))) - (let ((_tl257646257989_ + _tl135746136079_)))) + (let ((_tl135752136095_ (let () (declare (not safe)) - (##cdr _e257648257984_))) - (_hd257647257987_ + (##cdr _e135754136090_))) + (_hd135753136093_ (let () (declare (not safe)) - (##car _e257648257984_)))) + (##car _e135754136090_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257646257989_)) + _tl135752136095_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl257637257965_)) + (gx#stx-null? _tl135743136071_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257634257957_)) - (let ((_e257651257992_ + (gx#stx-pair? _tl135740136063_)) + (let ((_e135757136098_ (let () (declare (not safe)) - (gx#stx-e _tl257634257957_)))) - (let ((_tl257649257997_ + (gx#stx-e _tl135740136063_)))) + (let ((_tl135755136103_ (let () (declare (not safe)) - (##cdr _e257651257992_))) - (_hd257650257995_ + (##cdr _e135757136098_))) + (_hd135756136101_ (let () (declare (not safe)) - (##car _e257651257992_)))) + (##car _e135757136098_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257649257997_)) - (___kont275689275690_ - _hd257650257995_ - _hd257647257987_ - _hd257644257979_) + (gx#stx-null? _tl135755136103_)) + (___kont149227149228_ + _hd135756136101_ + _hd135753136093_ + _hd135750136085_) (let () (declare (not safe)) - (_g257600257715_))))) - (let () (declare (not safe)) (_g257600257715_))) - (let () (declare (not safe)) (_g257600257715_))) - (let () (declare (not safe)) (_g257600257715_))))) + (_g135706135821_))))) + (let () (declare (not safe)) (_g135706135821_))) + (let () (declare (not safe)) (_g135706135821_))) + (let () (declare (not safe)) (_g135706135821_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g257600257715_))) + (_g135706135821_))) (let () (declare (not safe)) - (_g257600257715_))))) + (_g135706135821_))))) (let () (declare (not safe)) - (_g257600257715_))))) + (_g135706135821_))))) (let () (declare (not safe)) - (_g257600257715_))))) - (let () (declare (not safe)) (_g257600257715_))))) - (let () (declare (not safe)) (_g257600257715_))) + (_g135706135821_))))) + (let () (declare (not safe)) (_g135706135821_))))) + (let () (declare (not safe)) (_g135706135821_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd257606258077_)) + _hd135712136183_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257605258079_)) - (let ((_e257659257873_ + _tl135711136185_)) + (let ((_e135765135979_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl257605258079_)))) - (let ((_tl257657257878_ + (gx#stx-e _tl135711136185_)))) + (let ((_tl135763135984_ (let () (declare (not safe)) - (##cdr _e257659257873_))) - (_hd257658257876_ + (##cdr _e135765135979_))) + (_hd135764135982_ (let () (declare (not safe)) - (##car _e257659257873_)))) + (##car _e135765135979_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd257658257876_)) - (let ((___splice275693275694_ + (gx#stx-pair/null? _hd135764135982_)) + (let ((___splice149231149232_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd257658257876_ + _hd135764135982_ '0)))) - (let ((_tl257662257883_ + (let ((_tl135768135989_ (let () (declare (not safe)) - (##vector-ref ___splice275693275694_ '1))) - (_target257660257881_ + (##vector-ref ___splice149231149232_ '1))) + (_target135766135987_ (let () (declare (not safe)) (##vector-ref - ___splice275693275694_ + ___splice149231149232_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257662257883_)) - (___match275832275833_ - _e257607258074_ - _hd257606258077_ - _tl257605258079_ - _e257659257873_ - _hd257658257876_ - _tl257657257878_ - ___splice275693275694_ - _target257660257881_ - _tl257662257883_) + (gx#stx-null? _tl135768135989_)) + (___match149370149371_ + _e135713136180_ + _hd135712136183_ + _tl135711136185_ + _e135765135979_ + _hd135764135982_ + _tl135763135984_ + ___splice149231149232_ + _target135766135987_ + _tl135768135989_) (let () (declare (not safe)) - (_g257600257715_))))) - (let () (declare (not safe)) (_g257600257715_))))) - (let () (declare (not safe)) (_g257600257715_))) + (_g135706135821_))))) + (let () (declare (not safe)) (_g135706135821_))))) + (let () (declare (not safe)) (_g135706135821_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd257606258077_)) + (gx#stx-eq? '%#call _hd135712136183_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257605258079_)) - (let ((_e257678257811_ + (gx#stx-pair? _tl135711136185_)) + (let ((_e135784135917_ (let () (declare (not safe)) - (gx#stx-e _tl257605258079_)))) - (let ((_tl257676257816_ + (gx#stx-e _tl135711136185_)))) + (let ((_tl135782135922_ (let () (declare (not safe)) - (##cdr _e257678257811_))) - (_hd257677257814_ + (##cdr _e135784135917_))) + (_hd135783135920_ (let () (declare (not safe)) - (##car _e257678257811_)))) + (##car _e135784135917_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257677257814_)) - (let ((_e257681257819_ + (gx#stx-pair? _hd135783135920_)) + (let ((_e135787135925_ (let () (declare (not safe)) - (gx#stx-e _hd257677257814_)))) - (let ((_tl257679257824_ + (gx#stx-e _hd135783135920_)))) + (let ((_tl135785135930_ (let () (declare (not safe)) - (##cdr _e257681257819_))) - (_hd257680257822_ + (##cdr _e135787135925_))) + (_hd135786135928_ (let () (declare (not safe)) - (##car _e257681257819_)))) + (##car _e135787135925_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd257680257822_)) + (gx#identifier? _hd135786135928_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd257680257822_)) + _hd135786135928_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257679257824_)) - (let ((_e257684257827_ + _tl135785135930_)) + (let ((_e135790135933_ (let () (declare (not safe)) (gx#stx-e - _tl257679257824_)))) - (let ((_tl257682257832_ + _tl135785135930_)))) + (let ((_tl135788135938_ (let () (declare (not safe)) - (##cdr _e257684257827_))) - (_hd257683257830_ + (##cdr _e135790135933_))) + (_hd135789135936_ (let () (declare (not safe)) - (##car _e257684257827_)))) + (##car _e135790135933_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257682257832_)) + _tl135788135938_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257676257816_)) - (let ((_e257687257835_ + _tl135782135922_)) + (let ((_e135793135941_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl257676257816_)))) - (let ((_tl257685257840_ + (gx#stx-e _tl135782135922_)))) + (let ((_tl135791135946_ (let () (declare (not safe)) - (##cdr _e257687257835_))) - (_hd257686257838_ + (##cdr _e135793135941_))) + (_hd135792135944_ (let () (declare (not safe)) - (##car _e257687257835_)))) + (##car _e135793135941_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257685257840_)) - (___match275874275875_ - _e257607258074_ - _hd257606258077_ - _tl257605258079_ - _e257678257811_ - _hd257677257814_ - _tl257676257816_ - _e257681257819_ - _hd257680257822_ - _tl257679257824_ - _e257684257827_ - _hd257683257830_ - _tl257682257832_ - _e257687257835_ - _hd257686257838_ - _tl257685257840_) + (gx#stx-null? _tl135791135946_)) + (___match149412149413_ + _e135713136180_ + _hd135712136183_ + _tl135711136185_ + _e135784135917_ + _hd135783135920_ + _tl135782135922_ + _e135787135925_ + _hd135786135928_ + _tl135785135930_ + _e135790135933_ + _hd135789135936_ + _tl135788135938_ + _e135793135941_ + _hd135792135944_ + _tl135791135946_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl257676257816_)) - (let ((___splice275699275700_ + (gx#stx-pair/null? _tl135782135922_)) + (let ((___splice149237149238_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl257676257816_ + _tl135782135922_ '0)))) - (let ((_tl257704257754_ + (let ((_tl135810135860_ (let () (declare (not safe)) (##vector-ref - ___splice275699275700_ + ___splice149237149238_ '1))) - (_target257702257752_ + (_target135808135858_ (let () (declare (not safe)) (##vector-ref - ___splice275699275700_ + ___splice149237149238_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257704257754_)) - (___match275916275917_ - _e257607258074_ - _hd257606258077_ - _tl257605258079_ - _e257678257811_ - _hd257677257814_ - _tl257676257816_ - _e257681257819_ - _hd257680257822_ - _tl257679257824_ - _e257684257827_ - _hd257683257830_ - _tl257682257832_ - ___splice275699275700_ - _target257702257752_ - _tl257704257754_) + (gx#stx-null? _tl135810135860_)) + (___match149454149455_ + _e135713136180_ + _hd135712136183_ + _tl135711136185_ + _e135784135917_ + _hd135783135920_ + _tl135782135922_ + _e135787135925_ + _hd135786135928_ + _tl135785135930_ + _e135790135933_ + _hd135789135936_ + _tl135788135938_ + ___splice149237149238_ + _target135808135858_ + _tl135810135860_) (let () (declare (not safe)) - (_g257600257715_))))) + (_g135706135821_))))) (let () (declare (not safe)) - (_g257600257715_)))))) + (_g135706135821_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl257676257816_)) - (let ((___splice275699275700_ + (gx#stx-pair/null? _tl135782135922_)) + (let ((___splice149237149238_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl257676257816_ '0)))) - (let ((_tl257704257754_ + (gx#syntax-split-splice _tl135782135922_ '0)))) + (let ((_tl135810135860_ (let () (declare (not safe)) - (##vector-ref ___splice275699275700_ '1))) - (_target257702257752_ + (##vector-ref ___splice149237149238_ '1))) + (_target135808135858_ (let () (declare (not safe)) - (##vector-ref ___splice275699275700_ '0)))) + (##vector-ref ___splice149237149238_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257704257754_)) - (___match275916275917_ - _e257607258074_ - _hd257606258077_ - _tl257605258079_ - _e257678257811_ - _hd257677257814_ - _tl257676257816_ - _e257681257819_ - _hd257680257822_ - _tl257679257824_ - _e257684257827_ - _hd257683257830_ - _tl257682257832_ - ___splice275699275700_ - _target257702257752_ - _tl257704257754_) + (gx#stx-null? _tl135810135860_)) + (___match149454149455_ + _e135713136180_ + _hd135712136183_ + _tl135711136185_ + _e135784135917_ + _hd135783135920_ + _tl135782135922_ + _e135787135925_ + _hd135786135928_ + _tl135785135930_ + _e135790135933_ + _hd135789135936_ + _tl135788135938_ + ___splice149237149238_ + _target135808135858_ + _tl135810135860_) (let () (declare (not safe)) - (_g257600257715_))))) - (let () (declare (not safe)) (_g257600257715_)))) - (let () (declare (not safe)) (_g257600257715_))))) + (_g135706135821_))))) + (let () (declare (not safe)) (_g135706135821_)))) + (let () (declare (not safe)) (_g135706135821_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g257600257715_))) + (_g135706135821_))) (let () (declare (not safe)) - (_g257600257715_))) + (_g135706135821_))) (let () (declare (not safe)) - (_g257600257715_))))) + (_g135706135821_))))) (let () (declare (not safe)) - (_g257600257715_))))) - (let () (declare (not safe)) (_g257600257715_))) - (let () (declare (not safe)) (_g257600257715_))))))) + (_g135706135821_))))) + (let () (declare (not safe)) (_g135706135821_))) + (let () (declare (not safe)) (_g135706135821_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g257600257715_))))) + (_g135706135821_))))) (let () (declare (not safe)) - (_g257600257715_))))))))) - (let* ((_clause257477257484_ _clause257472_) - (_E257479257488_ + (_g135706135821_))))))))) + (let* ((_clause135583135590_ _clause135578_) + (_E135585135594_ (lambda () - (error '"No clause matching" _clause257477257484_))) - (_K257480257581_ - (lambda (_kont257491_ _id257492_) - (let* ((_g257494257514_ - (lambda (_g257495257511_) + (let () + (declare (not safe)) + (error '"No clause matching" _clause135583135590_)))) + (_K135586135687_ + (lambda (_kont135597_ _id135598_) + (let* ((_g135600135620_ + (lambda (_g135601135617_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g257495257511_)))) - (_g257493257578_ - (lambda (_g257495257517_) + _g135601135617_)))) + (_g135599135684_ + (lambda (_g135601135623_) (if (let () (declare (not safe)) - (gx#stx-pair? _g257495257517_)) - (let ((_e257500257519_ + (gx#stx-pair? _g135601135623_)) + (let ((_e135606135625_ (let () (declare (not safe)) - (gx#stx-e _g257495257517_)))) - (let ((_hd257499257522_ + (gx#stx-e _g135601135623_)))) + (let ((_hd135605135628_ (let () (declare (not safe)) - (##car _e257500257519_))) - (_tl257498257524_ + (##car _e135606135625_))) + (_tl135604135630_ (let () (declare (not safe)) - (##cdr _e257500257519_)))) + (##cdr _e135606135625_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd257499257522_)) + (gx#identifier? _hd135605135628_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd257499257522_)) + _hd135605135628_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257498257524_)) - (let ((_e257503257527_ + _tl135604135630_)) + (let ((_e135609135633_ (let () (declare (not safe)) (gx#stx-e - _tl257498257524_)))) - (let ((_hd257502257530_ + _tl135604135630_)))) + (let ((_hd135608135636_ (let () (declare (not safe)) - (##car _e257503257527_))) - (_tl257501257532_ + (##car _e135609135633_))) + (_tl135607135638_ (let () (declare (not safe)) - (##cdr _e257503257527_)))) + (##cdr _e135609135633_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd257502257530_)) - (let ((_e257506257535_ + _hd135608135636_)) + (let ((_e135612135641_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd257502257530_)))) - (let ((_hd257505257538_ + (gx#stx-e _hd135608135636_)))) + (let ((_hd135611135644_ (let () (declare (not safe)) - (##car _e257506257535_))) - (_tl257504257540_ + (##car _e135612135641_))) + (_tl135610135646_ (let () (declare (not safe)) - (##cdr _e257506257535_)))) + (##cdr _e135612135641_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257504257540_)) + (gx#stx-null? _tl135610135646_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257501257532_)) - (let ((_e257509257543_ + (gx#stx-pair? _tl135607135638_)) + (let ((_e135615135649_ (let () (declare (not safe)) - (gx#stx-e _tl257501257532_)))) - (let ((_hd257508257546_ + (gx#stx-e _tl135607135638_)))) + (let ((_hd135614135652_ (let () (declare (not safe)) - (##car _e257509257543_))) - (_tl257507257548_ + (##car _e135615135649_))) + (_tl135613135654_ (let () (declare (not safe)) - (##cdr _e257509257543_)))) + (##cdr _e135615135649_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257507257548_)) - ((lambda (_L257551_ _L257552_) - (let* ((_body257573_ + (gx#stx-null? _tl135613135654_)) + ((lambda (_L135657_ _L135658_) + (let* ((_body135679_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L257551_ - _L257552_ - _target257474_))) - (_body257575_ - (if _negation257473_ + _L135657_ + _L135658_ + _target135580_))) + (_body135681_ + (if _negation135579_ (let () (declare (not safe)) - (_closure-e257476_ - _body257573_)) - _body257573_))) - (let ((__tmp276535 + (_closure-e135582_ + _body135679_)) + _body135679_))) + (let ((__tmp150073 (let () (declare (not safe)) (gxc#identifier-symbol - _id257492_))) - (__tmp276534 - (let ((__obj275968 + _id135598_))) + (__tmp150072 + (let ((__obj149506 (let () (declare (not safe)) (##structure @@ -18420,641 +18458,641 @@ '#f '#f)))) (gxc#!lambda:::init! - __obj275968 + __obj149506 'lambda '0 '#f) - __obj275968))) + __obj149506))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp276535 - __tmp276534 + __tmp150073 + __tmp150072 '#t)) - (let ((__tmp276536 - (let ((__tmp276537 - (let ((__tmp276538 + (let ((__tmp150074 + (let ((__tmp150075 + (let ((__tmp150076 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body257575_ '())))) + (cons _body135681_ '())))) (declare (not safe)) - (cons '() __tmp276538)))) + (cons '() __tmp150076)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#lambda - __tmp276537)))) + __tmp150075)))) (declare (not safe)) - (cons _id257492_ __tmp276536)))) - _hd257508257546_ - _hd257505257538_) + (cons _id135598_ __tmp150074)))) + _hd135614135652_ + _hd135611135644_) (let () (declare (not safe)) - (_g257494257514_ _g257495257517_))))) + (_g135600135620_ _g135601135623_))))) (let () (declare (not safe)) - (_g257494257514_ _g257495257517_))) + (_g135600135620_ _g135601135623_))) (let () (declare (not safe)) - (_g257494257514_ _g257495257517_))))) + (_g135600135620_ _g135601135623_))))) (let () (declare (not safe)) - (_g257494257514_ _g257495257517_))))) + (_g135600135620_ _g135601135623_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g257494257514_ - _g257495257517_))) + (_g135600135620_ + _g135601135623_))) (let () (declare (not safe)) - (_g257494257514_ - _g257495257517_))) + (_g135600135620_ + _g135601135623_))) (let () (declare (not safe)) - (_g257494257514_ - _g257495257517_))))) + (_g135600135620_ + _g135601135623_))))) (let () (declare (not safe)) - (_g257494257514_ _g257495257517_)))))) + (_g135600135620_ _g135601135623_)))))) (declare (not safe)) - (_g257493257578_ _kont257491_))))) - (if (let () (declare (not safe)) (##pair? _clause257477257484_)) - (let ((_hd257481257584_ + (_g135599135684_ _kont135597_))))) + (if (let () (declare (not safe)) (##pair? _clause135583135590_)) + (let ((_hd135587135690_ (let () (declare (not safe)) - (##car _clause257477257484_))) - (_tl257482257586_ + (##car _clause135583135590_))) + (_tl135588135692_ (let () (declare (not safe)) - (##cdr _clause257477257484_)))) - (let* ((_id257589_ _hd257481257584_) - (_kont257591_ _tl257482257586_)) + (##cdr _clause135583135590_)))) + (let* ((_id135695_ _hd135587135690_) + (_kont135697_ _tl135588135692_)) (declare (not safe)) - (_K257480257581_ _kont257591_ _id257589_))) - (let () (declare (not safe)) (_E257479257488_))))))) + (_K135586135687_ _kont135697_ _id135695_))) + (let () (declare (not safe)) (_E135585135594_))))))) (define gxc#push-match-vars-let-values% - (lambda (_stx257258_ _vars257259_ _K257260_) - (let* ((_g257262257279_ - (lambda (_g257263257276_) + (lambda (_stx135364_ _vars135365_ _K135366_) + (let* ((_g135368135385_ + (lambda (_g135369135382_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g257263257276_)))) - (_g257261257469_ - (lambda (_g257263257282_) + _g135369135382_)))) + (_g135367135575_ + (lambda (_g135369135388_) (if (let () (declare (not safe)) - (gx#stx-pair? _g257263257282_)) - (let ((_e257268257284_ + (gx#stx-pair? _g135369135388_)) + (let ((_e135374135390_ (let () (declare (not safe)) - (gx#stx-e _g257263257282_)))) - (let ((_hd257267257287_ + (gx#stx-e _g135369135388_)))) + (let ((_hd135373135393_ (let () (declare (not safe)) - (##car _e257268257284_))) - (_tl257266257289_ + (##car _e135374135390_))) + (_tl135372135395_ (let () (declare (not safe)) - (##cdr _e257268257284_)))) + (##cdr _e135374135390_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257266257289_)) - (let ((_e257271257292_ + (gx#stx-pair? _tl135372135395_)) + (let ((_e135377135398_ (let () (declare (not safe)) - (gx#stx-e _tl257266257289_)))) - (let ((_hd257270257295_ + (gx#stx-e _tl135372135395_)))) + (let ((_hd135376135401_ (let () (declare (not safe)) - (##car _e257271257292_))) - (_tl257269257297_ + (##car _e135377135398_))) + (_tl135375135403_ (let () (declare (not safe)) - (##cdr _e257271257292_)))) + (##cdr _e135377135398_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257269257297_)) - (let ((_e257274257300_ + (gx#stx-pair? _tl135375135403_)) + (let ((_e135380135406_ (let () (declare (not safe)) - (gx#stx-e _tl257269257297_)))) - (let ((_hd257273257303_ + (gx#stx-e _tl135375135403_)))) + (let ((_hd135379135409_ (let () (declare (not safe)) - (##car _e257274257300_))) - (_tl257272257305_ + (##car _e135380135406_))) + (_tl135378135411_ (let () (declare (not safe)) - (##cdr _e257274257300_)))) + (##cdr _e135380135406_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257272257305_)) - ((lambda (_L257308_ _L257309_) - (let _lp257324_ ((_rest257326_ + _tl135378135411_)) + ((lambda (_L135414_ _L135415_) + (let _lp135430_ ((_rest135432_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L257309_) - (_rebind257327_ '()) - (_vars257328_ _vars257259_)) + _L135415_) + (_rebind135433_ '()) + (_vars135434_ _vars135365_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest257329257337_ - _rest257326_) - (_else257331257345_ + (let* ((_rest135435135443_ + _rest135432_) + (_else135437135451_ (lambda () (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (null? _rebind257327_)) + (null? _rebind135433_)) (let () (declare (not safe)) - (gxc#compile-e__2 _L257308_ _vars257328_ _K257260_)) - (let ((__tmp276539 - (let ((__tmp276540 - (let ((__tmp276543 - (reverse _rebind257327_)) - (__tmp276541 - (let ((__tmp276542 + (gxc#compile-e__2 _L135414_ _vars135434_ _K135366_)) + (let ((__tmp150077 + (let ((__tmp150078 + (let ((__tmp150081 + (reverse _rebind135433_)) + (__tmp150079 + (let ((__tmp150080 (let () (declare (not safe)) (gxc#compile-e__2 - _L257308_ - _vars257328_ - _K257260_)))) + _L135414_ + _vars135434_ + _K135366_)))) (declare (not safe)) - (cons __tmp276542 '())))) + (cons __tmp150080 '())))) (declare (not safe)) - (cons __tmp276543 __tmp276541)))) + (cons __tmp150081 __tmp150079)))) (declare (not safe)) - (cons '%#let-values __tmp276540)))) + (cons '%#let-values __tmp150078)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp276539 _stx257258_))))) - (_K257333257457_ - (lambda (_rest257348_ _bind257349_) - (let* ((___stx275919275920_ _bind257349_) - (_g257352257375_ + (gxc#xform-wrap-source __tmp150077 _stx135364_))))) + (_K135439135563_ + (lambda (_rest135454_ _bind135455_) + (let* ((___stx149457149458_ _bind135455_) + (_g135458135481_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx275919275920_))))) - (let ((___kont275921275922_ - (lambda (_L257427_ _L257428_) - (let ((__tmp276544 + ___stx149457149458_))))) + (let ((___kont149459149460_ + (lambda (_L135533_ _L135534_) + (let ((__tmp150082 (let () (declare (not safe)) - (cons _bind257349_ _vars257328_)))) + (cons _bind135455_ _vars135434_)))) (declare (not safe)) - (_lp257324_ - _rest257348_ - _rebind257327_ - __tmp276544)))) - (___kont275923275924_ + (_lp135430_ + _rest135454_ + _rebind135433_ + __tmp150082)))) + (___kont149461149462_ (lambda () - (let ((__tmp276545 + (let ((__tmp150083 (let () (declare (not safe)) - (cons _bind257349_ _rebind257327_)))) + (cons _bind135455_ _rebind135433_)))) (declare (not safe)) - (_lp257324_ - _rest257348_ - __tmp276545 - _vars257328_))))) + (_lp135430_ + _rest135454_ + __tmp150083 + _vars135434_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx275919275920_)) - (let ((_e257358257387_ + (gx#stx-pair? ___stx149457149458_)) + (let ((_e135464135493_ (let () (declare (not safe)) - (gx#stx-e ___stx275919275920_)))) - (let ((_tl257356257392_ + (gx#stx-e ___stx149457149458_)))) + (let ((_tl135462135498_ (let () (declare (not safe)) - (##cdr _e257358257387_))) - (_hd257357257390_ + (##cdr _e135464135493_))) + (_hd135463135496_ (let () (declare (not safe)) - (##car _e257358257387_)))) + (##car _e135464135493_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257357257390_)) - (let ((_e257361257395_ + (gx#stx-pair? _hd135463135496_)) + (let ((_e135467135501_ (let () (declare (not safe)) - (gx#stx-e _hd257357257390_)))) - (let ((_tl257359257400_ + (gx#stx-e _hd135463135496_)))) + (let ((_tl135465135506_ (let () (declare (not safe)) - (##cdr _e257361257395_))) - (_hd257360257398_ + (##cdr _e135467135501_))) + (_hd135466135504_ (let () (declare (not safe)) - (##car _e257361257395_)))) + (##car _e135467135501_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257359257400_)) + (gx#stx-null? _tl135465135506_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257356257392_)) - (let ((_e257364257403_ + _tl135462135498_)) + (let ((_e135470135509_ (let () (declare (not safe)) (gx#stx-e - _tl257356257392_)))) - (let ((_tl257362257408_ + _tl135462135498_)))) + (let ((_tl135468135514_ (let () (declare (not safe)) - (##cdr _e257364257403_))) - (_hd257363257406_ + (##cdr _e135470135509_))) + (_hd135469135512_ (let () (declare (not safe)) - (##car _e257364257403_)))) + (##car _e135470135509_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd257363257406_)) - (let ((_e257367257411_ + _hd135469135512_)) + (let ((_e135473135517_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd257363257406_)))) - (let ((_tl257365257416_ + (gx#stx-e _hd135469135512_)))) + (let ((_tl135471135522_ (let () (declare (not safe)) - (##cdr _e257367257411_))) - (_hd257366257414_ + (##cdr _e135473135517_))) + (_hd135472135520_ (let () (declare (not safe)) - (##car _e257367257411_)))) + (##car _e135473135517_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd257366257414_)) + (gx#identifier? _hd135472135520_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd257366257414_)) + (gx#stx-eq? '%#ref _hd135472135520_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257365257416_)) - (let ((_e257370257419_ + (gx#stx-pair? _tl135471135522_)) + (let ((_e135476135525_ (let () (declare (not safe)) - (gx#stx-e _tl257365257416_)))) - (let ((_tl257368257424_ + (gx#stx-e _tl135471135522_)))) + (let ((_tl135474135530_ (let () (declare (not safe)) - (##cdr _e257370257419_))) - (_hd257369257422_ + (##cdr _e135476135525_))) + (_hd135475135528_ (let () (declare (not safe)) - (##car _e257370257419_)))) + (##car _e135476135525_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257368257424_)) + (gx#stx-null? _tl135474135530_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl257362257408_)) - (___kont275921275922_ - _hd257369257422_ - _hd257360257398_) - (___kont275923275924_)) - (___kont275923275924_)))) - (___kont275923275924_)) - (___kont275923275924_)) - (___kont275923275924_)))) - (___kont275923275924_)))) + (gx#stx-null? _tl135468135514_)) + (___kont149459149460_ + _hd135475135528_ + _hd135466135504_) + (___kont149461149462_)) + (___kont149461149462_)))) + (___kont149461149462_)) + (___kont149461149462_)) + (___kont149461149462_)))) + (___kont149461149462_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont275923275924_)) - (___kont275923275924_)))) - (___kont275923275924_)))) - (___kont275923275924_))))))) + (___kont149461149462_)) + (___kont149461149462_)))) + (___kont149461149462_)))) + (___kont149461149462_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest257329257337_)) - (let ((_hd257334257460_ + (##pair? _rest135435135443_)) + (let ((_hd135440135566_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _rest257329257337_))) - (_tl257335257462_ + (##car _rest135435135443_))) + (_tl135441135568_ (let () (declare (not safe)) - (##cdr _rest257329257337_)))) - (let* ((_bind257465_ _hd257334257460_) - (_rest257467_ _tl257335257462_)) + (##cdr _rest135435135443_)))) + (let* ((_bind135571_ _hd135440135566_) + (_rest135573_ _tl135441135568_)) (declare (not safe)) - (_K257333257457_ _rest257467_ _bind257465_))) - (let () (declare (not safe)) (_else257331257345_)))))) + (_K135439135563_ _rest135573_ _bind135571_))) + (let () (declare (not safe)) (_else135437135451_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd257273257303_ - _hd257270257295_) + _hd135379135409_ + _hd135376135401_) (let () (declare (not safe)) - (_g257262257279_ - _g257263257282_))))) + (_g135368135385_ + _g135369135388_))))) (let () (declare (not safe)) - (_g257262257279_ _g257263257282_))))) + (_g135368135385_ _g135369135388_))))) (let () (declare (not safe)) - (_g257262257279_ _g257263257282_))))) + (_g135368135385_ _g135369135388_))))) (let () (declare (not safe)) - (_g257262257279_ _g257263257282_)))))) + (_g135368135385_ _g135369135388_)))))) (declare (not safe)) - (_g257261257469_ _stx257258_)))) + (_g135367135575_ _stx135364_)))) (define gxc#push-match-vars-if% - (lambda (_stx257173_ _vars257174_ _K257175_) - (let* ((_g257177257198_ - (lambda (_g257178257195_) + (lambda (_stx135279_ _vars135280_ _K135281_) + (let* ((_g135283135304_ + (lambda (_g135284135301_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g257178257195_)))) - (_g257176257255_ - (lambda (_g257178257201_) + _g135284135301_)))) + (_g135282135361_ + (lambda (_g135284135307_) (if (let () (declare (not safe)) - (gx#stx-pair? _g257178257201_)) - (let ((_e257184257203_ + (gx#stx-pair? _g135284135307_)) + (let ((_e135290135309_ (let () (declare (not safe)) - (gx#stx-e _g257178257201_)))) - (let ((_hd257183257206_ + (gx#stx-e _g135284135307_)))) + (let ((_hd135289135312_ (let () (declare (not safe)) - (##car _e257184257203_))) - (_tl257182257208_ + (##car _e135290135309_))) + (_tl135288135314_ (let () (declare (not safe)) - (##cdr _e257184257203_)))) + (##cdr _e135290135309_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257182257208_)) - (let ((_e257187257211_ + (gx#stx-pair? _tl135288135314_)) + (let ((_e135293135317_ (let () (declare (not safe)) - (gx#stx-e _tl257182257208_)))) - (let ((_hd257186257214_ + (gx#stx-e _tl135288135314_)))) + (let ((_hd135292135320_ (let () (declare (not safe)) - (##car _e257187257211_))) - (_tl257185257216_ + (##car _e135293135317_))) + (_tl135291135322_ (let () (declare (not safe)) - (##cdr _e257187257211_)))) + (##cdr _e135293135317_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257185257216_)) - (let ((_e257190257219_ + (gx#stx-pair? _tl135291135322_)) + (let ((_e135296135325_ (let () (declare (not safe)) - (gx#stx-e _tl257185257216_)))) - (let ((_hd257189257222_ + (gx#stx-e _tl135291135322_)))) + (let ((_hd135295135328_ (let () (declare (not safe)) - (##car _e257190257219_))) - (_tl257188257224_ + (##car _e135296135325_))) + (_tl135294135330_ (let () (declare (not safe)) - (##cdr _e257190257219_)))) + (##cdr _e135296135325_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257188257224_)) - (let ((_e257193257227_ + _tl135294135330_)) + (let ((_e135299135333_ (let () (declare (not safe)) (gx#stx-e - _tl257188257224_)))) - (let ((_hd257192257230_ + _tl135294135330_)))) + (let ((_hd135298135336_ (let () (declare (not safe)) - (##car _e257193257227_))) - (_tl257191257232_ + (##car _e135299135333_))) + (_tl135297135338_ (let () (declare (not safe)) - (##cdr _e257193257227_)))) + (##cdr _e135299135333_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257191257232_)) - ((lambda (_L257235_ - _L257236_ - _L257237_) - (if (let ((__tmp276552 + _tl135297135338_)) + ((lambda (_L135341_ + _L135342_ + _L135343_) + (if (let ((__tmp150090 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (map caar _vars257174_))) + (map caar _vars135280_))) (declare (not safe)) - (gxc#apply-find-var-refs _L257237_ __tmp276552)) + (gxc#apply-find-var-refs _L135343_ __tmp150090)) (let () (declare (not safe)) (gxc#push-match-vars-stop - _stx257173_ - _vars257174_ - _K257175_)) - (let ((__tmp276546 - (let ((__tmp276547 - (let ((__tmp276548 - (let ((__tmp276551 + _stx135279_ + _vars135280_ + _K135281_)) + (let ((__tmp150084 + (let ((__tmp150085 + (let ((__tmp150086 + (let ((__tmp150089 (let () (declare (not safe)) (gxc#compile-e__2 - _L257236_ - _vars257174_ - _K257175_))) - (__tmp276549 - (let ((__tmp276550 + _L135342_ + _vars135280_ + _K135281_))) + (__tmp150087 + (let ((__tmp150088 (let () (declare (not safe)) (gxc#compile-e__2 - _L257235_ - _vars257174_ - _K257175_)))) + _L135341_ + _vars135280_ + _K135281_)))) (declare (not safe)) - (cons __tmp276550 '())))) + (cons __tmp150088 '())))) (declare (not safe)) - (cons __tmp276551 __tmp276549)))) + (cons __tmp150089 __tmp150087)))) (declare (not safe)) - (cons _L257237_ __tmp276548)))) + (cons _L135343_ __tmp150086)))) (declare (not safe)) - (cons '%#if __tmp276547)))) + (cons '%#if __tmp150085)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp276546 _stx257173_)))) - _hd257192257230_ - _hd257189257222_ - _hd257186257214_) + (gxc#xform-wrap-source __tmp150084 _stx135279_)))) + _hd135298135336_ + _hd135295135328_ + _hd135292135320_) (let () (declare (not safe)) - (_g257177257198_ _g257178257201_))))) + (_g135283135304_ _g135284135307_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g257177257198_ - _g257178257201_))))) + (_g135283135304_ + _g135284135307_))))) (let () (declare (not safe)) - (_g257177257198_ _g257178257201_))))) + (_g135283135304_ _g135284135307_))))) (let () (declare (not safe)) - (_g257177257198_ _g257178257201_))))) + (_g135283135304_ _g135284135307_))))) (let () (declare (not safe)) - (_g257177257198_ _g257178257201_)))))) + (_g135283135304_ _g135284135307_)))))) (declare (not safe)) - (_g257176257255_ _stx257173_)))) + (_g135282135361_ _stx135279_)))) (define gxc#push-match-vars-call% - (lambda (_stx257093_ _vars257094_ _K257095_) - (let* ((_g257097257116_ - (lambda (_g257098257113_) + (lambda (_stx135199_ _vars135200_ _K135201_) + (let* ((_g135203135222_ + (lambda (_g135204135219_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g257098257113_)))) - (_g257096257170_ - (lambda (_g257098257119_) + _g135204135219_)))) + (_g135202135276_ + (lambda (_g135204135225_) (if (let () (declare (not safe)) - (gx#stx-pair? _g257098257119_)) - (let ((_e257102257121_ + (gx#stx-pair? _g135204135225_)) + (let ((_e135208135227_ (let () (declare (not safe)) - (gx#stx-e _g257098257119_)))) - (let ((_hd257101257124_ + (gx#stx-e _g135204135225_)))) + (let ((_hd135207135230_ (let () (declare (not safe)) - (##car _e257102257121_))) - (_tl257100257126_ + (##car _e135208135227_))) + (_tl135206135232_ (let () (declare (not safe)) - (##cdr _e257102257121_)))) + (##cdr _e135208135227_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257100257126_)) - (let ((_e257105257129_ + (gx#stx-pair? _tl135206135232_)) + (let ((_e135211135235_ (let () (declare (not safe)) - (gx#stx-e _tl257100257126_)))) - (let ((_hd257104257132_ + (gx#stx-e _tl135206135232_)))) + (let ((_hd135210135238_ (let () (declare (not safe)) - (##car _e257105257129_))) - (_tl257103257134_ + (##car _e135211135235_))) + (_tl135209135240_ (let () (declare (not safe)) - (##cdr _e257105257129_)))) + (##cdr _e135211135235_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257104257132_)) - (let ((_e257108257137_ + (gx#stx-pair? _hd135210135238_)) + (let ((_e135214135243_ (let () (declare (not safe)) - (gx#stx-e _hd257104257132_)))) - (let ((_hd257107257140_ + (gx#stx-e _hd135210135238_)))) + (let ((_hd135213135246_ (let () (declare (not safe)) - (##car _e257108257137_))) - (_tl257106257142_ + (##car _e135214135243_))) + (_tl135212135248_ (let () (declare (not safe)) - (##cdr _e257108257137_)))) + (##cdr _e135214135243_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd257107257140_)) + _hd135213135246_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd257107257140_)) + _hd135213135246_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257106257142_)) - (let ((_e257111257145_ + _tl135212135248_)) + (let ((_e135217135251_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl257106257142_)))) - (let ((_hd257110257148_ - (let () (declare (not safe)) (##car _e257111257145_))) - (_tl257109257150_ - (let () (declare (not safe)) (##cdr _e257111257145_)))) + (gx#stx-e _tl135212135248_)))) + (let ((_hd135216135254_ + (let () (declare (not safe)) (##car _e135217135251_))) + (_tl135215135256_ + (let () (declare (not safe)) (##cdr _e135217135251_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257109257150_)) - ((lambda (_L257153_) + (gx#stx-null? _tl135215135256_)) + ((lambda (_L135259_) (if (and (let () (declare (not safe)) - (gx#free-identifier=? _L257153_ _K257095_)) + (gx#free-identifier=? _L135259_ _K135201_)) (let () (declare (not safe)) - (pair? _vars257094_))) - (let ((__tmp276553 - (let ((__tmp276554 - (let ((__tmp276556 - (reverse _vars257094_)) - (__tmp276555 + (pair? _vars135200_))) + (let ((__tmp150091 + (let ((__tmp150092 + (let ((__tmp150094 + (reverse _vars135200_)) + (__tmp150093 (let () (declare (not safe)) - (cons _stx257093_ '())))) + (cons _stx135199_ '())))) (declare (not safe)) - (cons __tmp276556 __tmp276555)))) + (cons __tmp150094 __tmp150093)))) (declare (not safe)) - (cons '%#let-values __tmp276554)))) + (cons '%#let-values __tmp150092)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp276553 _stx257093_)) - _stx257093_)) - _hd257110257148_) + (gxc#xform-wrap-source __tmp150091 _stx135199_)) + _stx135199_)) + _hd135216135254_) (let () (declare (not safe)) - (_g257097257116_ _g257098257119_))))) - (let () (declare (not safe)) (_g257097257116_ _g257098257119_))) + (_g135203135222_ _g135204135225_))))) + (let () (declare (not safe)) (_g135203135222_ _g135204135225_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g257097257116_ - _g257098257119_))) + (_g135203135222_ + _g135204135225_))) (let () (declare (not safe)) - (_g257097257116_ - _g257098257119_))))) + (_g135203135222_ + _g135204135225_))))) (let () (declare (not safe)) - (_g257097257116_ _g257098257119_))))) + (_g135203135222_ _g135204135225_))))) (let () (declare (not safe)) - (_g257097257116_ _g257098257119_))))) + (_g135203135222_ _g135204135225_))))) (let () (declare (not safe)) - (_g257097257116_ _g257098257119_)))))) + (_g135203135222_ _g135204135225_)))))) (declare (not safe)) - (_g257096257170_ _stx257093_)))) + (_g135202135276_ _stx135199_)))) (define gxc#push-match-vars-stop - (lambda (_stx257089_ _vars257090_ _K257091_) - (if (let () (declare (not safe)) (null? _vars257090_)) - _stx257089_ - (let ((__tmp276557 - (let ((__tmp276558 - (let ((__tmp276560 (reverse _vars257090_)) - (__tmp276559 + (lambda (_stx135195_ _vars135196_ _K135197_) + (if (let () (declare (not safe)) (null? _vars135196_)) + _stx135195_ + (let ((__tmp150095 + (let ((__tmp150096 + (let ((__tmp150098 (reverse _vars135196_)) + (__tmp150097 (let () (declare (not safe)) - (cons _stx257089_ '())))) + (cons _stx135195_ '())))) (declare (not safe)) - (cons __tmp276560 __tmp276559)))) + (cons __tmp150098 __tmp150097)))) (declare (not safe)) - (cons '%#let-values __tmp276558)))) + (cons '%#let-values __tmp150096)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp276557 _stx257089_))))))) + (gxc#xform-wrap-source __tmp150095 _stx135195_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base__0.scm b/src/bootstrap/gerbil/compiler/optimize-base__0.scm index 6b5a59559..a14e67f1c 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-base__0.scm @@ -1,32 +1,32 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-base::timestamp 1708102805) + (define gerbil/compiler/optimize-base::timestamp 1708370115) (begin (define gxc#current-compile-optimizer-info (make-parameter '#f)) (define gxc#current-compile-mutators (make-parameter '#f)) (define gxc#current-compile-local-type (make-parameter '#f)) (define gxc#optimizer-info::t - (let ((__tmp221416 (list)) - (__tmp221414 - (let ((__tmp221415 + (let ((__tmp113221 (list)) + (__tmp113219 + (let ((__tmp113220 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp221415 '())))) + (cons __tmp113220 '())))) (declare (not safe)) (make-class-type 'gxc#optimizer-info::t 'optimizer-info - __tmp221416 + __tmp113221 '(type ssxi methods) - __tmp221414 + __tmp113219 ':init!))) (define gxc#optimizer-info? (let () (declare (not safe)) (make-class-predicate gxc#optimizer-info::t))) (define gxc#make-optimizer-info - (lambda _$args216787_ - (apply make-instance gxc#optimizer-info::t _$args216787_))) + (lambda _$args113160_ + (apply make-instance gxc#optimizer-info::t _$args113160_))) (define gxc#optimizer-info-type (let () (declare (not safe)) @@ -76,85 +76,88 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#optimizer-info::t 'methods))) (define gxc#optimizer-info:::init! - (lambda (_self216785_) - (if (let ((__tmp221423 + (lambda (_self113158_) + (if (let ((__tmp113229 (let () (declare (not safe)) - (##structure-length _self216785_)))) + (##structure-length _self113158_)))) (declare (not safe)) - (##fx< '3 __tmp221423)) + (##fx< '3 __tmp113229)) (begin - (let ((__tmp221418 - (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp221417 + (let ((__tmp113224 + (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp113223 (let () (declare (not safe)) - (##structure-type _self216785_)))) + (##structure-type _self113158_)))) (declare (not safe)) (##unchecked-structure-set! - _self216785_ - __tmp221418 + _self113158_ + __tmp113224 '1 - __tmp221417 + __tmp113223 '#f)) - (let ((__tmp221420 - (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp221419 + (let ((__tmp113226 + (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp113225 (let () (declare (not safe)) - (##structure-type _self216785_)))) + (##structure-type _self113158_)))) (declare (not safe)) (##unchecked-structure-set! - _self216785_ - __tmp221420 + _self113158_ + __tmp113226 '2 - __tmp221419 + __tmp113225 '#f)) - (let ((__tmp221422 - (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp221421 + (let ((__tmp113228 + (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp113227 (let () (declare (not safe)) - (##structure-type _self216785_)))) + (##structure-type _self113158_)))) (declare (not safe)) (##unchecked-structure-set! - _self216785_ - __tmp221422 + _self113158_ + __tmp113228 '3 - __tmp221421 + __tmp113227 '#f))) - (error '"struct-instance-init!: too many arguments for struct" - _self216785_ - '3 + (let ((__tmp113222 (let () (declare (not safe)) - (##vector-length _self216785_)))))) + (##vector-length _self113158_)))) + (declare (not safe)) + (error '"struct-instance-init!: too many arguments for struct" + _self113158_ + '3 + __tmp113222))))) (let () (declare (not safe)) - (bind-method! + (bind-method!__% gxc#optimizer-info::t ':init! gxc#optimizer-info:::init! '#f)) (define gxc#!type::t - (let ((__tmp221426 (list)) - (__tmp221424 - (let ((__tmp221425 + (let ((__tmp113232 (list)) + (__tmp113230 + (let ((__tmp113231 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp221425 '())))) + (cons __tmp113231 '())))) (declare (not safe)) (make-class-type 'gxc#!type::t '!type - __tmp221426 + __tmp113232 '(id) - __tmp221424 + __tmp113230 '#f))) (define gxc#!type? (let () (declare (not safe)) (make-class-predicate gxc#!type::t))) (define gxc#make-!type - (lambda _$args216660_ (apply make-instance gxc#!type::t _$args216660_))) + (lambda _$args113033_ (apply make-instance gxc#!type::t _$args113033_))) (define gxc#!type-id (let () (declare (not safe)) @@ -170,24 +173,24 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!type::t 'id))) (define gxc#!alias::t - (let ((__tmp221429 (list gxc#!type::t)) - (__tmp221427 - (let ((__tmp221428 + (let ((__tmp113235 (list gxc#!type::t)) + (__tmp113233 + (let ((__tmp113234 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp221428 '())))) + (cons __tmp113234 '())))) (declare (not safe)) (make-class-type 'gxc#!alias::t '!alias - __tmp221429 + __tmp113235 '() - __tmp221427 + __tmp113233 '#f))) (define gxc#!alias? (let () (declare (not safe)) (make-class-predicate gxc#!alias::t))) (define gxc#make-!alias - (lambda _$args216657_ (apply make-instance gxc#!alias::t _$args216657_))) + (lambda _$args113030_ (apply make-instance gxc#!alias::t _$args113030_))) (define gxc#!alias-id (let () (declare (not safe)) @@ -205,25 +208,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!alias::t 'id))) (define gxc#!procedure::t - (let ((__tmp221432 (list gxc#!type::t)) - (__tmp221430 - (let ((__tmp221431 + (let ((__tmp113238 (list gxc#!type::t)) + (__tmp113236 + (let ((__tmp113237 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp221431 '())))) + (cons __tmp113237 '())))) (declare (not safe)) (make-class-type 'gxc#!procedure::t '!procedure - __tmp221432 + __tmp113238 '() - __tmp221430 + __tmp113236 '#f))) (define gxc#!procedure? (let () (declare (not safe)) (make-class-predicate gxc#!procedure::t))) (define gxc#make-!procedure - (lambda _$args216654_ - (apply make-instance gxc#!procedure::t _$args216654_))) + (lambda _$args113027_ + (apply make-instance gxc#!procedure::t _$args113027_))) (define gxc#!procedure-id (let () (declare (not safe)) @@ -241,17 +244,17 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!procedure::t 'id))) (define gxc#!class::t - (let ((__tmp221435 (list gxc#!type::t)) - (__tmp221433 - (let ((__tmp221434 + (let ((__tmp113241 (list gxc#!type::t)) + (__tmp113239 + (let ((__tmp113240 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp221434 '())))) + (cons __tmp113240 '())))) (declare (not safe)) (make-class-type 'gxc#!class::t '!class - __tmp221435 + __tmp113241 '(super precedence-list slots fields @@ -260,12 +263,12 @@ final? metaclass methods) - __tmp221433 + __tmp113239 ':init!))) (define gxc#!class? (let () (declare (not safe)) (make-class-predicate gxc#!class::t))) (define gxc#make-!class - (lambda _$args216651_ (apply make-instance gxc#!class::t _$args216651_))) + (lambda _$args113024_ (apply make-instance gxc#!class::t _$args113024_))) (define gxc#!class-super (let () (declare (not safe)) @@ -427,25 +430,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!class::t 'id))) (define gxc#!predicate::t - (let ((__tmp221438 (list gxc#!procedure::t)) - (__tmp221436 - (let ((__tmp221437 + (let ((__tmp113244 (list gxc#!procedure::t)) + (__tmp113242 + (let ((__tmp113243 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp221437 '())))) + (cons __tmp113243 '())))) (declare (not safe)) (make-class-type 'gxc#!predicate::t '!predicate - __tmp221438 + __tmp113244 '() - __tmp221436 + __tmp113242 '#f))) (define gxc#!predicate? (let () (declare (not safe)) (make-class-predicate gxc#!predicate::t))) (define gxc#make-!predicate - (lambda _$args216648_ - (apply make-instance gxc#!predicate::t _$args216648_))) + (lambda _$args113021_ + (apply make-instance gxc#!predicate::t _$args113021_))) (define gxc#!predicate-id (let () (declare (not safe)) @@ -463,25 +466,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!predicate::t 'id))) (define gxc#!constructor::t - (let ((__tmp221441 (list gxc#!procedure::t)) - (__tmp221439 - (let ((__tmp221440 + (let ((__tmp113247 (list gxc#!procedure::t)) + (__tmp113245 + (let ((__tmp113246 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp221440 '())))) + (cons __tmp113246 '())))) (declare (not safe)) (make-class-type 'gxc#!constructor::t '!constructor - __tmp221441 + __tmp113247 '() - __tmp221439 + __tmp113245 '#f))) (define gxc#!constructor? (let () (declare (not safe)) (make-class-predicate gxc#!constructor::t))) (define gxc#make-!constructor - (lambda _$args216645_ - (apply make-instance gxc#!constructor::t _$args216645_))) + (lambda _$args113018_ + (apply make-instance gxc#!constructor::t _$args113018_))) (define gxc#!constructor-id (let () (declare (not safe)) @@ -499,25 +502,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!constructor::t 'id))) (define gxc#!accessor::t - (let ((__tmp221444 (list gxc#!procedure::t)) - (__tmp221442 - (let ((__tmp221443 + (let ((__tmp113250 (list gxc#!procedure::t)) + (__tmp113248 + (let ((__tmp113249 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp221443 '())))) + (cons __tmp113249 '())))) (declare (not safe)) (make-class-type 'gxc#!accessor::t '!accessor - __tmp221444 + __tmp113250 '(slot checked?) - __tmp221442 + __tmp113248 '#f))) (define gxc#!accessor? (let () (declare (not safe)) (make-class-predicate gxc#!accessor::t))) (define gxc#make-!accessor - (lambda _$args216642_ - (apply make-instance gxc#!accessor::t _$args216642_))) + (lambda _$args113015_ + (apply make-instance gxc#!accessor::t _$args113015_))) (define gxc#!accessor-slot (let () (declare (not safe)) @@ -567,25 +570,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!accessor::t 'id))) (define gxc#!mutator::t - (let ((__tmp221447 (list gxc#!procedure::t)) - (__tmp221445 - (let ((__tmp221446 + (let ((__tmp113253 (list gxc#!procedure::t)) + (__tmp113251 + (let ((__tmp113252 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp221446 '())))) + (cons __tmp113252 '())))) (declare (not safe)) (make-class-type 'gxc#!mutator::t '!mutator - __tmp221447 + __tmp113253 '(slot checked?) - __tmp221445 + __tmp113251 '#f))) (define gxc#!mutator? (let () (declare (not safe)) (make-class-predicate gxc#!mutator::t))) (define gxc#make-!mutator - (lambda _$args216639_ - (apply make-instance gxc#!mutator::t _$args216639_))) + (lambda _$args113012_ + (apply make-instance gxc#!mutator::t _$args113012_))) (define gxc#!mutator-slot (let () (declare (not safe)) @@ -635,25 +638,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!mutator::t 'id))) (define gxc#!lambda::t - (let ((__tmp221450 (list gxc#!procedure::t)) - (__tmp221448 - (let ((__tmp221449 + (let ((__tmp113256 (list gxc#!procedure::t)) + (__tmp113254 + (let ((__tmp113255 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp221449 '())))) + (cons __tmp113255 '())))) (declare (not safe)) (make-class-type 'gxc#!lambda::t '!lambda - __tmp221450 + __tmp113256 '(arity dispatch inline inline-typedecl) - __tmp221448 + __tmp113254 ':init!))) (define gxc#!lambda? (let () (declare (not safe)) (make-class-predicate gxc#!lambda::t))) (define gxc#make-!lambda - (lambda _$args216636_ - (apply make-instance gxc#!lambda::t _$args216636_))) + (lambda _$args113009_ + (apply make-instance gxc#!lambda::t _$args113009_))) (define gxc#!lambda-arity (let () (declare (not safe)) @@ -735,25 +738,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!lambda::t 'id))) (define gxc#!case-lambda::t - (let ((__tmp221453 (list gxc#!procedure::t)) - (__tmp221451 - (let ((__tmp221452 + (let ((__tmp113259 (list gxc#!procedure::t)) + (__tmp113257 + (let ((__tmp113258 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp221452 '())))) + (cons __tmp113258 '())))) (declare (not safe)) (make-class-type 'gxc#!case-lambda::t '!case-lambda - __tmp221453 + __tmp113259 '(clauses) - __tmp221451 + __tmp113257 '#f))) (define gxc#!case-lambda? (let () (declare (not safe)) (make-class-predicate gxc#!case-lambda::t))) (define gxc#make-!case-lambda - (lambda _$args216633_ - (apply make-instance gxc#!case-lambda::t _$args216633_))) + (lambda _$args113006_ + (apply make-instance gxc#!case-lambda::t _$args113006_))) (define gxc#!case-lambda-clauses (let () (declare (not safe)) @@ -787,25 +790,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!case-lambda::t 'id))) (define gxc#!kw-lambda::t - (let ((__tmp221456 (list gxc#!procedure::t)) - (__tmp221454 - (let ((__tmp221455 + (let ((__tmp113262 (list gxc#!procedure::t)) + (__tmp113260 + (let ((__tmp113261 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp221455 '())))) + (cons __tmp113261 '())))) (declare (not safe)) (make-class-type 'gxc#!kw-lambda::t '!kw-lambda - __tmp221456 + __tmp113262 '(table dispatch) - __tmp221454 + __tmp113260 '#f))) (define gxc#!kw-lambda? (let () (declare (not safe)) (make-class-predicate gxc#!kw-lambda::t))) (define gxc#make-!kw-lambda - (lambda _$args216630_ - (apply make-instance gxc#!kw-lambda::t _$args216630_))) + (lambda _$args113003_ + (apply make-instance gxc#!kw-lambda::t _$args113003_))) (define gxc#!kw-lambda-table (let () (declare (not safe)) @@ -855,27 +858,27 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!kw-lambda::t 'id))) (define gxc#!kw-lambda-primary::t - (let ((__tmp221459 (list gxc#!procedure::t)) - (__tmp221457 - (let ((__tmp221458 + (let ((__tmp113265 (list gxc#!procedure::t)) + (__tmp113263 + (let ((__tmp113264 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp221458 '())))) + (cons __tmp113264 '())))) (declare (not safe)) (make-class-type 'gxc#!kw-lambda-primary::t '!kw-lambda-primary - __tmp221459 + __tmp113265 '(keys main) - __tmp221457 + __tmp113263 '#f))) (define gxc#!kw-lambda-primary? (let () (declare (not safe)) (make-class-predicate gxc#!kw-lambda-primary::t))) (define gxc#make-!kw-lambda-primary - (lambda _$args216627_ - (apply make-instance gxc#!kw-lambda-primary::t _$args216627_))) + (lambda _$args113000_ + (apply make-instance gxc#!kw-lambda-primary::t _$args113000_))) (define gxc#!kw-lambda-primary-keys (let () (declare (not safe)) @@ -925,27 +928,27 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!kw-lambda-primary::t 'id))) (define gxc#!primitive::t - (let ((__tmp221460 (list))) + (let ((__tmp113266 (list))) (declare (not safe)) (make-class-type 'gxc#!primitive::t '!primitive - __tmp221460 + __tmp113266 '() '() '#f))) (define gxc#!primitive? (let () (declare (not safe)) (make-class-predicate gxc#!primitive::t))) (define gxc#make-!primitive - (lambda _$args216624_ - (apply make-instance gxc#!primitive::t _$args216624_))) + (lambda _$args112997_ + (apply make-instance gxc#!primitive::t _$args112997_))) (define gxc#!primitive-lambda::t - (let ((__tmp221461 (list gxc#!primitive::t gxc#!lambda::t))) + (let ((__tmp113267 (list gxc#!primitive::t gxc#!lambda::t))) (declare (not safe)) (make-class-type 'gxc#!primitive-lambda::t '!primitive-lambda - __tmp221461 + __tmp113267 '() '() ':init!))) @@ -954,8 +957,8 @@ (declare (not safe)) (make-class-predicate gxc#!primitive-lambda::t))) (define gxc#make-!primitive-lambda - (lambda _$args216621_ - (apply make-instance gxc#!primitive-lambda::t _$args216621_))) + (lambda _$args112994_ + (apply make-instance gxc#!primitive-lambda::t _$args112994_))) (define gxc#!primitive-lambda-arity (let () (declare (not safe)) @@ -1045,12 +1048,12 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!primitive-lambda::t 'id))) (define gxc#!primitive-case-lambda::t - (let ((__tmp221462 (list gxc#!primitive::t gxc#!case-lambda::t))) + (let ((__tmp113268 (list gxc#!primitive::t gxc#!case-lambda::t))) (declare (not safe)) (make-class-type 'gxc#!primitive-case-lambda::t '!primitive-case-lambda - __tmp221462 + __tmp113268 '() '() ':init!))) @@ -1059,8 +1062,8 @@ (declare (not safe)) (make-class-predicate gxc#!primitive-case-lambda::t))) (define gxc#make-!primitive-case-lambda - (lambda _$args216618_ - (apply make-instance gxc#!primitive-case-lambda::t _$args216618_))) + (lambda _$args112991_ + (apply make-instance gxc#!primitive-case-lambda::t _$args112991_))) (define gxc#!primitive-case-lambda-clauses (let () (declare (not safe)) @@ -1100,1067 +1103,1105 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!primitive-case-lambda::t 'id))) (define gxc#!class:::init!__0 - (lambda (_self216500_ - _id216501_ - _super216502_ - _slots216503_ - _ctor-method216504_ - _struct?216505_ - _final?216506_ - _metaclass216507_) - (let _lp216509_ ((_rest216511_ _super216502_)) - (let* ((_rest216512216520_ _rest216511_) - (_else216514216528_ (lambda () '#!void)) - (_K216516216534_ - (lambda (_rest216531_ _super-id216532_) + (lambda (_self112873_ + _id112874_ + _super112875_ + _slots112876_ + _ctor-method112877_ + _struct?112878_ + _final?112879_ + _metaclass112880_) + (let _lp112882_ ((_rest112884_ _super112875_)) + (let* ((_rest112885112893_ _rest112884_) + (_else112887112901_ (lambda () '#!void)) + (_K112889112907_ + (lambda (_rest112904_ _super-id112905_) (if (##structure-ref - (let ((__tmp221465 - (let ((__tmp221466 + (let ((__tmp113271 + (let ((__tmp113272 (let () (declare (not safe)) - (cons _id216501_ '())))) + (cons _id112874_ '())))) (declare (not safe)) - (cons '!class __tmp221466)))) + (cons '!class __tmp113272)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp221465 - _super-id216532_)) + __tmp113271 + _super-id112905_)) '8 gxc#!class::t '#f) - (let ((__tmp221463 - (let ((__tmp221464 + (let ((__tmp113269 + (let ((__tmp113270 (let () (declare (not safe)) - (cons _id216501_ '())))) + (cons _id112874_ '())))) (declare (not safe)) - (cons '!class __tmp221464)))) + (cons '!class __tmp113270)))) (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp221463 - _super-id216532_)) + __tmp113269 + _super-id112905_)) '#!void) - (let () (declare (not safe)) (_lp216509_ _rest216531_))))) - (if (let () (declare (not safe)) (##pair? _rest216512216520_)) - (let ((_hd216517216537_ + (let () (declare (not safe)) (_lp112882_ _rest112904_))))) + (if (let () (declare (not safe)) (##pair? _rest112885112893_)) + (let ((_hd112890112910_ (let () (declare (not safe)) - (##car _rest216512216520_))) - (_tl216518216539_ + (##car _rest112885112893_))) + (_tl112891112912_ (let () (declare (not safe)) - (##cdr _rest216512216520_)))) - (let* ((_super-id216542_ _hd216517216537_) - (_rest216544_ _tl216518216539_)) + (##cdr _rest112885112893_)))) + (let* ((_super-id112915_ _hd112890112910_) + (_rest112917_ _tl112891112912_)) (declare (not safe)) - (_K216516216534_ _rest216544_ _super-id216542_))) + (_K112889112907_ _rest112917_ _super-id112915_))) '#!void))) - (let* ((_ctor-method216594_ - (let ((_$e216546_ _ctor-method216504_)) - (if _$e216546_ - _$e216546_ - (let _lp216549_ ((_rest216551_ _super216502_) - (_method216552_ '#f)) - (let* ((_rest216553216561_ _rest216551_) - (_else216555216569_ (lambda () _method216552_)) - (_K216557216582_ - (lambda (_rest216572_ _super-id216573_) - (let* ((_klass216575_ - (let ((__tmp221467 - (let ((__tmp221468 + (let* ((_ctor-method112967_ + (let ((_$e112919_ _ctor-method112877_)) + (if _$e112919_ + _$e112919_ + (let _lp112922_ ((_rest112924_ _super112875_) + (_method112925_ '#f)) + (let* ((_rest112926112934_ _rest112924_) + (_else112928112942_ (lambda () _method112925_)) + (_K112930112955_ + (lambda (_rest112945_ _super-id112946_) + (let* ((_klass112948_ + (let ((__tmp113273 + (let ((__tmp113274 (let () (declare (not safe)) - (cons _id216501_ + (cons _id112874_ '())))) (declare (not safe)) (cons '!class - __tmp221468)))) + __tmp113274)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp221467 - _super-id216573_))) - (_$e216577_ + __tmp113273 + _super-id112946_))) + (_$e112950_ (##structure-ref - _klass216575_ + _klass112948_ '6 gxc#!class::t '#f))) - (if _$e216577_ - ((lambda (_ctor-method216580_) - (if _method216552_ + (if _$e112950_ + ((lambda (_ctor-method112953_) + (if _method112925_ (if (let () (declare (not safe)) - (eq? _ctor-method216580_ - _method216552_)) + (eq? _ctor-method112953_ + _method112925_)) (let () (declare (not safe)) - (_lp216549_ - _rest216572_ - _ctor-method216580_)) - (let ((__tmp221469 - (let ((__tmp221470 + (_lp112922_ + _rest112945_ + _ctor-method112953_)) + (let ((__tmp113275 + (let ((__tmp113276 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id216501_ '())))) + (let () (declare (not safe)) (cons _id112874_ '())))) (declare (not safe)) - (cons '!class __tmp221470)))) + (cons '!class __tmp113276)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp221469 - _method216552_ - _ctor-method216580_))) + __tmp113275 + _method112925_ + _ctor-method112953_))) (let () (declare (not safe)) - (_lp216549_ - _rest216572_ - _ctor-method216580_)))) - _$e216577_) + (_lp112922_ + _rest112945_ + _ctor-method112953_)))) + _$e112950_) (let () (declare (not safe)) - (_lp216549_ - _rest216572_ - _method216552_))))))) + (_lp112922_ + _rest112945_ + _method112925_))))))) (if (let () (declare (not safe)) - (##pair? _rest216553216561_)) - (let ((_hd216558216585_ + (##pair? _rest112926112934_)) + (let ((_hd112931112958_ (let () (declare (not safe)) - (##car _rest216553216561_))) - (_tl216559216587_ + (##car _rest112926112934_))) + (_tl112932112960_ (let () (declare (not safe)) - (##cdr _rest216553216561_)))) - (let* ((_super-id216590_ _hd216558216585_) - (_rest216592_ _tl216559216587_)) + (##cdr _rest112926112934_)))) + (let* ((_super-id112963_ _hd112931112958_) + (_rest112965_ _tl112932112960_)) (declare (not safe)) - (_K216557216582_ - _rest216592_ - _super-id216590_))) + (_K112930112955_ + _rest112965_ + _super-id112963_))) (let () (declare (not safe)) - (_else216555216569_)))))))) - (_g221471_ - (let ((__tmp221476 - (lambda (_klass-id216596_) - (let ((__tmp221477 + (_else112928112942_)))))))) + (_g113277_ + (let ((__tmp113282 + (lambda (_klass-id112969_) + (let ((__tmp113283 (##structure-ref - (let ((__tmp221478 - (let ((__tmp221479 + (let ((__tmp113284 + (let ((__tmp113285 (let () (declare (not safe)) - (cons _id216501_ '())))) + (cons _id112874_ '())))) (declare (not safe)) - (cons '!class __tmp221479)))) + (cons '!class __tmp113285)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp221478 - _klass-id216596_)) + __tmp113284 + _klass-id112969_)) '3 gxc#!class::t '#f))) (declare (not safe)) - (cons _klass-id216596_ __tmp221477)))) - (__tmp221473 - (lambda (_klass-id216598_) + (cons _klass-id112969_ __tmp113283)))) + (__tmp113279 + (lambda (_klass-id112971_) (##structure-ref - (let ((__tmp221474 - (let ((__tmp221475 + (let ((__tmp113280 + (let ((__tmp113281 (let () (declare (not safe)) - (cons _id216501_ '())))) + (cons _id112874_ '())))) (declare (not safe)) - (cons '!class __tmp221475)))) + (cons '!class __tmp113281)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp221474 - _klass-id216598_)) + __tmp113280 + _klass-id112971_)) '7 gxc#!class::t '#f)))) (declare (not safe)) - (c4-linearize__% - '#f - __tmp221476 - __tmp221473 - eq? - identity + (c4-linearize '() - _super216502_)))) + _super112875_ + 'get-precedence-list: + __tmp113282 + 'struct: + __tmp113279 + 'eq: + eq? + 'get-name: + identity)))) (begin - (let ((_g221472_ + (let ((_g113278_ (let () (declare (not safe)) - (if (##values? _g221471_) - (##vector-length _g221471_) + (if (##values? _g113277_) + (##vector-length _g113277_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g221472_ 2))) - (error "Context expects 2 values" _g221472_))) - (let ((_precedence-list216600_ - (let () (declare (not safe)) (##vector-ref _g221471_ 0))) - (_base-struct216601_ - (let () (declare (not safe)) (##vector-ref _g221471_ 1)))) - (let ((_fields216603_ - (let ((__tmp221480 - (let ((__tmp221481 + (if (not (let () (declare (not safe)) (##fx= _g113278_ 2))) + (error "Context expects 2 values" _g113278_))) + (let ((_precedence-list112973_ + (let () (declare (not safe)) (##vector-ref _g113277_ 0))) + (_base-struct112974_ + (let () (declare (not safe)) (##vector-ref _g113277_ 1)))) + (let ((_fields112976_ + (let ((__tmp113286 + (let ((__tmp113287 (let () (declare (not safe)) - (cons _id216501_ '())))) + (cons _id112874_ '())))) (declare (not safe)) - (cons '!class __tmp221481)))) + (cons '!class __tmp113287)))) (declare (not safe)) (gxc#compute-class-fields - __tmp221480 - _base-struct216601_ - _precedence-list216600_ - _slots216503_)))) - (##structure-set! _self216500_ _id216501_ '1 gxc#!type::t '#f) + __tmp113286 + _base-struct112974_ + _precedence-list112973_ + _slots112876_)))) + (##structure-set! _self112873_ _id112874_ '1 gxc#!type::t '#f) (##structure-set! - _self216500_ - _super216502_ + _self112873_ + _super112875_ '2 gxc#!class::t '#f) (##structure-set! - _self216500_ - _precedence-list216600_ + _self112873_ + _precedence-list112973_ '3 gxc#!class::t '#f) (##structure-set! - _self216500_ - _slots216503_ + _self112873_ + _slots112876_ '4 gxc#!class::t '#f) (##structure-set! - _self216500_ - _fields216603_ + _self112873_ + _fields112976_ '5 gxc#!class::t '#f) (##structure-set! - _self216500_ - _ctor-method216594_ + _self112873_ + _ctor-method112967_ '6 gxc#!class::t '#f) (##structure-set! - _self216500_ - _struct?216505_ + _self112873_ + _struct?112878_ '7 gxc#!class::t '#f) (##structure-set! - _self216500_ - _final?216506_ + _self112873_ + _final?112879_ '8 gxc#!class::t '#f) (##structure-set! - _self216500_ - _metaclass216507_ + _self112873_ + _metaclass112880_ '9 gxc#!class::t '#f))))))) (define gxc#!class:::init!__1 - (lambda (_self216606_ - _id216607_ - _super216608_ - _precedence-list216609_ - _slots216610_ - _fields216611_ - _constructor216612_ - _struct?216613_ - _final?216614_ - _metaclass216615_ - _methods216616_) - (##structure-set! _self216606_ _id216607_ '1 gxc#!type::t '#f) - (##structure-set! _self216606_ _super216608_ '2 gxc#!class::t '#f) + (lambda (_self112979_ + _id112980_ + _super112981_ + _precedence-list112982_ + _slots112983_ + _fields112984_ + _constructor112985_ + _struct?112986_ + _final?112987_ + _metaclass112988_ + _methods112989_) + (##structure-set! _self112979_ _id112980_ '1 gxc#!type::t '#f) + (##structure-set! _self112979_ _super112981_ '2 gxc#!class::t '#f) (##structure-set! - _self216606_ - _precedence-list216609_ + _self112979_ + _precedence-list112982_ '3 gxc#!class::t '#f) - (##structure-set! _self216606_ _slots216610_ '4 gxc#!class::t '#f) - (##structure-set! _self216606_ _fields216611_ '5 gxc#!class::t '#f) + (##structure-set! _self112979_ _slots112983_ '4 gxc#!class::t '#f) + (##structure-set! _self112979_ _fields112984_ '5 gxc#!class::t '#f) (##structure-set! - _self216606_ - _constructor216612_ + _self112979_ + _constructor112985_ '6 gxc#!class::t '#f) - (##structure-set! _self216606_ _struct?216613_ '7 gxc#!class::t '#f) - (##structure-set! _self216606_ _final?216614_ '8 gxc#!class::t '#f) - (##structure-set! _self216606_ _metaclass216615_ '9 gxc#!class::t '#f) - (if _methods216616_ + (##structure-set! _self112979_ _struct?112986_ '7 gxc#!class::t '#f) + (##structure-set! _self112979_ _final?112987_ '8 gxc#!class::t '#f) + (##structure-set! _self112979_ _metaclass112988_ '9 gxc#!class::t '#f) + (if _methods112989_ (##structure-set! - _self216606_ + _self112979_ (let () (declare (not safe)) - (list->table _methods216616_ 'test: eq?)) + (list->hash-table-eq _methods112989_)) '10 gxc#!class::t '#f) '#!void))) (define gxc#!class:::init! - (lambda _g221483_ - (let ((_g221482_ (let () (declare (not safe)) (##length _g221483_)))) - (cond ((let () (declare (not safe)) (##fx= _g221482_ 8)) - (apply (lambda (_self216500_ - _id216501_ - _super216502_ - _slots216503_ - _ctor-method216504_ - _struct?216505_ - _final?216506_ - _metaclass216507_) + (lambda _g113289_ + (let ((_g113288_ (let () (declare (not safe)) (##length _g113289_)))) + (cond ((let () (declare (not safe)) (##fx= _g113288_ 8)) + (apply (lambda (_self112873_ + _id112874_ + _super112875_ + _slots112876_ + _ctor-method112877_ + _struct?112878_ + _final?112879_ + _metaclass112880_) (let () (declare (not safe)) (gxc#!class:::init!__0 - _self216500_ - _id216501_ - _super216502_ - _slots216503_ - _ctor-method216504_ - _struct?216505_ - _final?216506_ - _metaclass216507_))) - _g221483_)) - ((let () (declare (not safe)) (##fx= _g221482_ 11)) - (apply (lambda (_self216606_ - _id216607_ - _super216608_ - _precedence-list216609_ - _slots216610_ - _fields216611_ - _constructor216612_ - _struct?216613_ - _final?216614_ - _metaclass216615_ - _methods216616_) + _self112873_ + _id112874_ + _super112875_ + _slots112876_ + _ctor-method112877_ + _struct?112878_ + _final?112879_ + _metaclass112880_))) + _g113289_)) + ((let () (declare (not safe)) (##fx= _g113288_ 11)) + (apply (lambda (_self112979_ + _id112980_ + _super112981_ + _precedence-list112982_ + _slots112983_ + _fields112984_ + _constructor112985_ + _struct?112986_ + _final?112987_ + _metaclass112988_ + _methods112989_) (let () (declare (not safe)) (gxc#!class:::init!__1 - _self216606_ - _id216607_ - _super216608_ - _precedence-list216609_ - _slots216610_ - _fields216611_ - _constructor216612_ - _struct?216613_ - _final?216614_ - _metaclass216615_ - _methods216616_))) - _g221483_)) + _self112979_ + _id112980_ + _super112981_ + _precedence-list112982_ + _slots112983_ + _fields112984_ + _constructor112985_ + _struct?112986_ + _final?112987_ + _metaclass112988_ + _methods112989_))) + _g113289_)) (else (##raise-wrong-number-of-arguments-exception gxc#!class:::init! - _g221483_)))))) + _g113289_)))))) (define gxc#!class:::init!::specialize - (lambda (__t221357) - (let ((__precedence-list221358 - (let ((__tmp221368 + (lambda (__t113162) + (let ((__id113163 + (let ((__tmp113173 (let () (declare (not safe)) - (class-slot-offset __t221357 'precedence-list)))) - (if __tmp221368 - __tmp221368 - (error '"Unknown slot" 'precedence-list)))) - (__fields221359 - (let ((__tmp221369 + (class-slot-offset __t113162 'id)))) + (if __tmp113173 + __tmp113173 + (let () + (declare (not safe)) + (error '"Unknown slot" 'id))))) + (__slots113164 + (let ((__tmp113174 (let () (declare (not safe)) - (class-slot-offset __t221357 'fields)))) - (if __tmp221369 __tmp221369 (error '"Unknown slot" 'fields)))) - (__id221360 - (let ((__tmp221370 + (class-slot-offset __t113162 'slots)))) + (if __tmp113174 + __tmp113174 + (let () + (declare (not safe)) + (error '"Unknown slot" 'slots))))) + (__precedence-list113165 + (let ((__tmp113175 (let () (declare (not safe)) - (class-slot-offset __t221357 'id)))) - (if __tmp221370 __tmp221370 (error '"Unknown slot" 'id)))) - (__super221361 - (let ((__tmp221371 + (class-slot-offset __t113162 'precedence-list)))) + (if __tmp113175 + __tmp113175 + (let () + (declare (not safe)) + (error '"Unknown slot" 'precedence-list))))) + (__constructor113166 + (let ((__tmp113176 (let () (declare (not safe)) - (class-slot-offset __t221357 'super)))) - (if __tmp221371 __tmp221371 (error '"Unknown slot" 'super)))) - (__metaclass221362 - (let ((__tmp221372 + (class-slot-offset __t113162 'constructor)))) + (if __tmp113176 + __tmp113176 + (let () + (declare (not safe)) + (error '"Unknown slot" 'constructor))))) + (__struct?113167 + (let ((__tmp113177 (let () (declare (not safe)) - (class-slot-offset __t221357 'metaclass)))) - (if __tmp221372 - __tmp221372 - (error '"Unknown slot" 'metaclass)))) - (__constructor221363 - (let ((__tmp221373 + (class-slot-offset __t113162 'struct?)))) + (if __tmp113177 + __tmp113177 + (let () + (declare (not safe)) + (error '"Unknown slot" 'struct?))))) + (__metaclass113168 + (let ((__tmp113178 (let () (declare (not safe)) - (class-slot-offset __t221357 'constructor)))) - (if __tmp221373 - __tmp221373 - (error '"Unknown slot" 'constructor)))) - (__slots221364 - (let ((__tmp221374 + (class-slot-offset __t113162 'metaclass)))) + (if __tmp113178 + __tmp113178 + (let () + (declare (not safe)) + (error '"Unknown slot" 'metaclass))))) + (__super113169 + (let ((__tmp113179 (let () (declare (not safe)) - (class-slot-offset __t221357 'slots)))) - (if __tmp221374 __tmp221374 (error '"Unknown slot" 'slots)))) - (__final?221365 - (let ((__tmp221375 + (class-slot-offset __t113162 'super)))) + (if __tmp113179 + __tmp113179 + (let () + (declare (not safe)) + (error '"Unknown slot" 'super))))) + (__final?113170 + (let ((__tmp113180 (let () (declare (not safe)) - (class-slot-offset __t221357 'final?)))) - (if __tmp221375 __tmp221375 (error '"Unknown slot" 'final?)))) - (__struct?221366 - (let ((__tmp221376 + (class-slot-offset __t113162 'final?)))) + (if __tmp113180 + __tmp113180 + (let () + (declare (not safe)) + (error '"Unknown slot" 'final?))))) + (__methods113171 + (let ((__tmp113181 (let () (declare (not safe)) - (class-slot-offset __t221357 'struct?)))) - (if __tmp221376 - __tmp221376 - (error '"Unknown slot" 'struct?)))) - (__methods221367 - (let ((__tmp221377 + (class-slot-offset __t113162 'methods)))) + (if __tmp113181 + __tmp113181 + (let () + (declare (not safe)) + (error '"Unknown slot" 'methods))))) + (__fields113172 + (let ((__tmp113182 (let () (declare (not safe)) - (class-slot-offset __t221357 'methods)))) - (if __tmp221377 - __tmp221377 - (error '"Unknown slot" 'methods))))) - (lambda _g221485_ - (let ((_g221484_ - (let () (declare (not safe)) (##length _g221485_)))) - (cond ((let () (declare (not safe)) (##fx= _g221484_ 8)) - (apply (lambda (_self216500_ - _id216501_ - _super216502_ - _slots216503_ - _ctor-method216504_ - _struct?216505_ - _final?216506_ - _metaclass216507_) - (let _lp216509_ ((_rest216511_ _super216502_)) - (let* ((_rest216512216520_ _rest216511_) - (_else216514216528_ (lambda () '#!void)) - (_K216516216534_ - (lambda (_rest216531_ _super-id216532_) + (class-slot-offset __t113162 'fields)))) + (if __tmp113182 + __tmp113182 + (let () + (declare (not safe)) + (error '"Unknown slot" 'fields)))))) + (lambda _g113291_ + (let ((_g113290_ + (let () (declare (not safe)) (##length _g113291_)))) + (cond ((let () (declare (not safe)) (##fx= _g113290_ 8)) + (apply (lambda (_self112873_ + _id112874_ + _super112875_ + _slots112876_ + _ctor-method112877_ + _struct?112878_ + _final?112879_ + _metaclass112880_) + (let _lp112882_ ((_rest112884_ _super112875_)) + (let* ((_rest112885112893_ _rest112884_) + (_else112887112901_ (lambda () '#!void)) + (_K112889112907_ + (lambda (_rest112904_ _super-id112905_) (if (##structure-ref - (let ((__tmp221488 - (let ((__tmp221489 + (let ((__tmp113294 + (let ((__tmp113295 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id216501_ '())))) + (cons _id112874_ '())))) (declare (not safe)) - (cons '!class __tmp221489)))) + (cons '!class __tmp113295)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimizer-resolve-class - __tmp221488 - _super-id216532_)) + __tmp113294 + _super-id112905_)) '8 gxc#!class::t '#f) - (let ((__tmp221486 - (let ((__tmp221487 + (let ((__tmp113292 + (let ((__tmp113293 (let () (declare (not safe)) - (cons _id216501_ + (cons _id112874_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '!class __tmp221487)))) + (cons '!class __tmp113293)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp221486 - _super-id216532_)) + __tmp113292 + _super-id112905_)) '#!void) (let () (declare (not safe)) - (_lp216509_ _rest216531_))))) + (_lp112882_ _rest112904_))))) (if (let () (declare (not safe)) - (##pair? _rest216512216520_)) - (let ((_hd216517216537_ + (##pair? _rest112885112893_)) + (let ((_hd112890112910_ (let () (declare (not safe)) - (##car _rest216512216520_))) - (_tl216518216539_ + (##car _rest112885112893_))) + (_tl112891112912_ (let () (declare (not safe)) - (##cdr _rest216512216520_)))) - (let* ((_super-id216542_ - _hd216517216537_) - (_rest216544_ _tl216518216539_)) + (##cdr _rest112885112893_)))) + (let* ((_super-id112915_ + _hd112890112910_) + (_rest112917_ _tl112891112912_)) (declare (not safe)) - (_K216516216534_ - _rest216544_ - _super-id216542_))) + (_K112889112907_ + _rest112917_ + _super-id112915_))) '#!void))) - (let* ((_ctor-method216594_ - (let ((_$e216546_ _ctor-method216504_)) - (if _$e216546_ - _$e216546_ - (let _lp216549_ ((_rest216551_ - _super216502_) - (_method216552_ + (let* ((_ctor-method112967_ + (let ((_$e112919_ _ctor-method112877_)) + (if _$e112919_ + _$e112919_ + (let _lp112922_ ((_rest112924_ + _super112875_) + (_method112925_ '#f)) - (let* ((_rest216553216561_ - _rest216551_) - (_else216555216569_ + (let* ((_rest112926112934_ + _rest112924_) + (_else112928112942_ (lambda () - _method216552_)) - (_K216557216582_ - (lambda (_rest216572_ - _super-id216573_) - (let* ((_klass216575_ - (let ((__tmp221490 + _method112925_)) + (_K112930112955_ + (lambda (_rest112945_ + _super-id112946_) + (let* ((_klass112948_ + (let ((__tmp113296 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp221491 + (let ((__tmp113297 (let () (declare (not safe)) - (cons _id216501_ '())))) + (cons _id112874_ '())))) (declare (not safe)) - (cons '!class __tmp221491)))) + (cons '!class __tmp113297)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp221490 - _super-id216573_))) - (_$e216577_ - (##structure-ref _klass216575_ '6 gxc#!class::t '#f))) - (if _$e216577_ - ((lambda (_ctor-method216580_) - (if _method216552_ + __tmp113296 + _super-id112946_))) + (_$e112950_ + (##structure-ref _klass112948_ '6 gxc#!class::t '#f))) + (if _$e112950_ + ((lambda (_ctor-method112953_) + (if _method112925_ (if (let () (declare (not safe)) - (eq? _ctor-method216580_ _method216552_)) + (eq? _ctor-method112953_ _method112925_)) (let () (declare (not safe)) - (_lp216549_ - _rest216572_ - _ctor-method216580_)) - (let ((__tmp221492 - (let ((__tmp221493 + (_lp112922_ + _rest112945_ + _ctor-method112953_)) + (let ((__tmp113298 + (let ((__tmp113299 (let () (declare (not safe)) - (cons _id216501_ '())))) + (cons _id112874_ '())))) (declare (not safe)) - (cons '!class __tmp221493)))) + (cons '!class __tmp113299)))) (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp221492 - _method216552_ - _ctor-method216580_))) + __tmp113298 + _method112925_ + _ctor-method112953_))) (let () (declare (not safe)) - (_lp216549_ _rest216572_ _ctor-method216580_)))) - _$e216577_) + (_lp112922_ _rest112945_ _ctor-method112953_)))) + _$e112950_) (let () (declare (not safe)) - (_lp216549_ _rest216572_ _method216552_))))))) + (_lp112922_ _rest112945_ _method112925_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest216553216561_)) - (let ((_hd216558216585_ + (##pair? _rest112926112934_)) + (let ((_hd112931112958_ (let () (declare (not safe)) - (##car _rest216553216561_))) - (_tl216559216587_ + (##car _rest112926112934_))) + (_tl112932112960_ (let () (declare (not safe)) - (##cdr _rest216553216561_)))) - (let* ((_super-id216590_ - _hd216558216585_) - (_rest216592_ - _tl216559216587_)) + (##cdr _rest112926112934_)))) + (let* ((_super-id112963_ + _hd112931112958_) + (_rest112965_ + _tl112932112960_)) (declare (not safe)) - (_K216557216582_ - _rest216592_ - _super-id216590_))) + (_K112930112955_ + _rest112965_ + _super-id112963_))) (let () (declare (not safe)) - (_else216555216569_)))))))) - (_g221494_ - (let ((__tmp221499 - (lambda (_klass-id216596_) - (let ((__tmp221500 + (_else112928112942_)))))))) + (_g113300_ + (let ((__tmp113305 + (lambda (_klass-id112969_) + (let ((__tmp113306 (##structure-ref - (let ((__tmp221501 - (let ((__tmp221502 + (let ((__tmp113307 + (let ((__tmp113308 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id216501_ '())))) + (cons _id112874_ '())))) (declare (not safe)) - (cons '!class __tmp221502)))) + (cons '!class __tmp113308)))) (declare (not safe)) - (gxc#optimizer-resolve-class __tmp221501 _klass-id216596_)) + (gxc#optimizer-resolve-class __tmp113307 _klass-id112969_)) '3 gxc#!class::t '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _klass-id216596_ - __tmp221500)))) - (__tmp221496 - (lambda (_klass-id216598_) + (cons _klass-id112969_ + __tmp113306)))) + (__tmp113302 + (lambda (_klass-id112971_) (##structure-ref - (let ((__tmp221497 - (let ((__tmp221498 + (let ((__tmp113303 + (let ((__tmp113304 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id216501_ '())))) + (cons _id112874_ '())))) (declare (not safe)) - (cons '!class __tmp221498)))) + (cons '!class __tmp113304)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimizer-resolve-class - __tmp221497 - _klass-id216598_)) + __tmp113303 + _klass-id112971_)) '7 gxc#!class::t '#f)))) (declare (not safe)) - (c4-linearize__% - '#f - __tmp221499 - __tmp221496 - eq? - identity + (c4-linearize '() - _super216502_)))) + _super112875_ + 'get-precedence-list: + __tmp113305 + 'struct: + __tmp113302 + 'eq: + eq? + 'get-name: + identity)))) (begin - (let ((_g221495_ + (let ((_g113301_ (let () (declare (not safe)) - (if (##values? _g221494_) - (##vector-length _g221494_) + (if (##values? _g113300_) + (##vector-length _g113300_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g221495_ 2))) + (##fx= _g113301_ 2))) (error "Context expects 2 values" - _g221495_))) - (let ((_precedence-list216600_ + _g113301_))) + (let ((_precedence-list112973_ (let () (declare (not safe)) - (##vector-ref _g221494_ 0))) - (_base-struct216601_ + (##vector-ref _g113300_ 0))) + (_base-struct112974_ (let () (declare (not safe)) - (##vector-ref _g221494_ 1)))) - (let ((_fields216603_ - (let ((__tmp221503 - (let ((__tmp221504 + (##vector-ref _g113300_ 1)))) + (let ((_fields112976_ + (let ((__tmp113309 + (let ((__tmp113310 (let () (declare (not safe)) - (cons _id216501_ + (cons _id112874_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '!class - __tmp221504)))) + __tmp113310)))) (declare (not safe)) (gxc#compute-class-fields - __tmp221503 - _base-struct216601_ - _precedence-list216600_ - _slots216503_)))) + __tmp113309 + _base-struct112974_ + _precedence-list112973_ + _slots112876_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _self216500_ - _id216501_ - __id221360 - __t221357 + _self112873_ + _id112874_ + __id113163 + __t113162 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self216500_ - _super216502_ - __super221361 - __t221357 + _self112873_ + _super112875_ + __super113169 + __t113162 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self216500_ - _precedence-list216600_ - __precedence-list221358 - __t221357 + _self112873_ + _precedence-list112973_ + __precedence-list113165 + __t113162 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self216500_ - _slots216503_ - __slots221364 - __t221357 + _self112873_ + _slots112876_ + __slots113164 + __t113162 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self216500_ - _fields216603_ - __fields221359 - __t221357 + _self112873_ + _fields112976_ + __fields113172 + __t113162 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self216500_ - _ctor-method216594_ - __constructor221363 - __t221357 + _self112873_ + _ctor-method112967_ + __constructor113166 + __t113162 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self216500_ - _struct?216505_ - __struct?221366 - __t221357 + _self112873_ + _struct?112878_ + __struct?113167 + __t113162 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self216500_ - _final?216506_ - __final?221365 - __t221357 + _self112873_ + _final?112879_ + __final?113170 + __t113162 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self216500_ - _metaclass216507_ - __metaclass221362 - __t221357 + _self112873_ + _metaclass112880_ + __metaclass113168 + __t113162 '#f))))))) - _g221485_)) - ((let () (declare (not safe)) (##fx= _g221484_ 11)) - (apply (lambda (_self216606_ - _id216607_ - _super216608_ - _precedence-list216609_ - _slots216610_ - _fields216611_ - _constructor216612_ - _struct?216613_ - _final?216614_ - _metaclass216615_ - _methods216616_) + _g113291_)) + ((let () (declare (not safe)) (##fx= _g113290_ 11)) + (apply (lambda (_self112979_ + _id112980_ + _super112981_ + _precedence-list112982_ + _slots112983_ + _fields112984_ + _constructor112985_ + _struct?112986_ + _final?112987_ + _metaclass112988_ + _methods112989_) (let () (declare (not safe)) (##unchecked-structure-set! - _self216606_ - _id216607_ - __id221360 - __t221357 + _self112979_ + _id112980_ + __id113163 + __t113162 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self216606_ - _super216608_ - __super221361 - __t221357 + _self112979_ + _super112981_ + __super113169 + __t113162 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self216606_ - _precedence-list216609_ - __precedence-list221358 - __t221357 + _self112979_ + _precedence-list112982_ + __precedence-list113165 + __t113162 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self216606_ - _slots216610_ - __slots221364 - __t221357 + _self112979_ + _slots112983_ + __slots113164 + __t113162 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self216606_ - _fields216611_ - __fields221359 - __t221357 + _self112979_ + _fields112984_ + __fields113172 + __t113162 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self216606_ - _constructor216612_ - __constructor221363 - __t221357 + _self112979_ + _constructor112985_ + __constructor113166 + __t113162 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self216606_ - _struct?216613_ - __struct?221366 - __t221357 + _self112979_ + _struct?112986_ + __struct?113167 + __t113162 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self216606_ - _final?216614_ - __final?221365 - __t221357 + _self112979_ + _final?112987_ + __final?113170 + __t113162 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self216606_ - _metaclass216615_ - __metaclass221362 - __t221357 + _self112979_ + _metaclass112988_ + __metaclass113168 + __t113162 '#f)) - (if _methods216616_ - (let ((__tmp221505 + (if _methods112989_ + (let ((__tmp113311 (let () (declare (not safe)) - (list->table - _methods216616_ - 'test: - eq?)))) + (list->hash-table-eq + _methods112989_)))) (declare (not safe)) (##unchecked-structure-set! - _self216606_ - __tmp221505 - __methods221367 - __t221357 + _self112979_ + __tmp113311 + __methods113171 + __t113162 '#f)) '#!void)) - _g221485_)) + _g113291_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g221485_)))))))) + _g113291_)))))))) (let () (declare (not safe)) (bind-specializer! gxc#!class:::init! gxc#!class:::init!::specialize)) (let () (declare (not safe)) - (bind-method! gxc#!class::t ':init! gxc#!class:::init! '#f)) + (bind-method!__% gxc#!class::t ':init! gxc#!class:::init! '#f)) (define gxc#compute-class-fields - (lambda (_where216352_ - _base-struct216353_ - _precedence-list216354_ - _direct-slots216355_) - (let* ((_base-fields216357_ - (if _base-struct216353_ + (lambda (_where112725_ + _base-struct112726_ + _precedence-list112727_ + _direct-slots112728_) + (let* ((_base-fields112730_ + (if _base-struct112726_ (##structure-ref (let () (declare (not safe)) (gxc#optimizer-resolve-class - _where216352_ - _base-struct216353_)) + _where112725_ + _base-struct112726_)) '5 gxc#!class::t '#f) '())) - (_r-fields216359_ (reverse _base-fields216357_)) - (_seen-slots216367_ - (let ((_tab216361_ - (let () (declare (not safe)) (make-table 'test: eq?)))) + (_r-fields112732_ (reverse _base-fields112730_)) + (_seen-slots112740_ + (let ((_tab112734_ + (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_g216362216364_) + (lambda (_g112735112737_) (let () (declare (not safe)) - (table-set! _tab216361_ _g216362216364_ '#t))) - _base-fields216357_) - _tab216361_)) - (_process-slot216371_ - (lambda (_slot216369_) + (hash-put! _tab112734_ _g112735112737_ '#t))) + _base-fields112730_) + _tab112734_)) + (_process-slot112744_ + (lambda (_slot112742_) (if (let () (declare (not safe)) - (table-ref _seen-slots216367_ _slot216369_ '#f)) + (hash-get _seen-slots112740_ _slot112742_)) '#!void (begin (let () (declare (not safe)) - (table-set! _seen-slots216367_ _slot216369_ '#t)) - (set! _r-fields216359_ + (hash-put! _seen-slots112740_ _slot112742_ '#t)) + (set! _r-fields112732_ (let () (declare (not safe)) - (cons _slot216369_ _r-fields216359_)))))))) + (cons _slot112742_ _r-fields112732_)))))))) (for-each - (lambda (_mixin216374_) - (let ((_klass216376_ + (lambda (_mixin112747_) + (let ((_klass112749_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _where216352_ - _mixin216374_)))) - (if (##structure-ref _klass216376_ '7 gxc#!class::t '#f) + _where112725_ + _mixin112747_)))) + (if (##structure-ref _klass112749_ '7 gxc#!class::t '#f) '#!void (for-each - _process-slot216371_ - (##structure-ref _klass216376_ '5 gxc#!class::t '#f))))) - _precedence-list216354_) - (for-each _process-slot216371_ _direct-slots216355_) - (reverse _r-fields216359_)))) + _process-slot112744_ + (##structure-ref _klass112749_ '5 gxc#!class::t '#f))))) + _precedence-list112727_) + (for-each _process-slot112744_ _direct-slots112728_) + (reverse _r-fields112732_)))) (define gxc#!class-slot->field-offset - (lambda (_klass216311_ _slot216312_) - (let _lp216314_ ((_rest216316_ - (##structure-ref _klass216311_ '5 gxc#!class::t '#f)) - (_offset216317_ '1)) - (let* ((_rest216318216326_ _rest216316_) - (_else216320216334_ + (lambda (_klass112684_ _slot112685_) + (let _lp112687_ ((_rest112689_ + (##structure-ref _klass112684_ '5 gxc#!class::t '#f)) + (_offset112690_ '1)) + (let* ((_rest112691112699_ _rest112689_) + (_else112693112707_ (lambda () - (let ((__tmp221507 - (##structure-ref _klass216311_ '1 gxc#!type::t '#f)) - (__tmp221506 + (let ((__tmp113313 + (##structure-ref _klass112684_ '1 gxc#!type::t '#f)) + (__tmp113312 (##structure-ref - _klass216311_ + _klass112684_ '5 gxc#!class::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown class slot" - __tmp221507 - __tmp221506 - _slot216312_)))) - (_K216322216340_ - (lambda (_rest216337_ _s216338_) + __tmp113313 + __tmp113312 + _slot112685_)))) + (_K112695112713_ + (lambda (_rest112710_ _s112711_) (if (let () (declare (not safe)) - (eq? _s216338_ _slot216312_)) - _offset216317_ - (let ((__tmp221508 + (eq? _s112711_ _slot112685_)) + _offset112690_ + (let ((__tmp113314 (let () (declare (not safe)) - (fx+ _offset216317_ '1)))) + (fx+ _offset112690_ '1)))) (declare (not safe)) - (_lp216314_ _rest216337_ __tmp221508)))))) - (if (let () (declare (not safe)) (##pair? _rest216318216326_)) - (let ((_hd216323216343_ + (_lp112687_ _rest112710_ __tmp113314)))))) + (if (let () (declare (not safe)) (##pair? _rest112691112699_)) + (let ((_hd112696112716_ (let () (declare (not safe)) - (##car _rest216318216326_))) - (_tl216324216345_ + (##car _rest112691112699_))) + (_tl112697112718_ (let () (declare (not safe)) - (##cdr _rest216318216326_)))) - (let* ((_s216348_ _hd216323216343_) - (_rest216350_ _tl216324216345_)) + (##cdr _rest112691112699_)))) + (let* ((_s112721_ _hd112696112716_) + (_rest112723_ _tl112697112718_)) (declare (not safe)) - (_K216322216340_ _rest216350_ _s216348_))) - (let () (declare (not safe)) (_else216320216334_))))))) + (_K112695112713_ _rest112723_ _s112721_))) + (let () (declare (not safe)) (_else112693112707_))))))) (define gxc#!class-slot-find-struct - (lambda (_klass216269_ _slot216270_) + (lambda (_klass112642_ _slot112643_) (if (let () (declare (not safe)) - (gxc#!class-struct-slot? _klass216269_ _slot216270_)) - _klass216269_ - (let _lp216272_ ((_rest216274_ + (gxc#!class-struct-slot? _klass112642_ _slot112643_)) + _klass112642_ + (let _lp112645_ ((_rest112647_ (##structure-ref - _klass216269_ + _klass112642_ '3 gxc#!class::t '#f))) - (let* ((_rest216275216283_ _rest216274_) - (_else216277216291_ (lambda () '#f)) - (_K216279216299_ - (lambda (_rest216294_ _super216295_) - (let ((_super-class216297_ - (let ((__tmp221509 - (let ((__tmp221510 - (let ((__tmp221512 + (let* ((_rest112648112656_ _rest112647_) + (_else112650112664_ (lambda () '#f)) + (_K112652112672_ + (lambda (_rest112667_ _super112668_) + (let ((_super-class112670_ + (let ((__tmp113315 + (let ((__tmp113316 + (let ((__tmp113318 (##structure-ref - _klass216269_ + _klass112642_ '1 gxc#!type::t '#f)) - (__tmp221511 + (__tmp113317 (let () (declare (not safe)) - (cons _slot216270_ + (cons _slot112643_ '())))) (declare (not safe)) - (cons __tmp221512 - __tmp221511)))) + (cons __tmp113318 + __tmp113317)))) (declare (not safe)) (cons '!class-slot-find-struct - __tmp221510)))) + __tmp113316)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp221509 - _super216295_)))) + __tmp113315 + _super112668_)))) (if (let () (declare (not safe)) (gxc#!class-struct-slot? - _super-class216297_ - _slot216270_)) - _super-class216297_ + _super-class112670_ + _slot112643_)) + _super-class112670_ (let () (declare (not safe)) - (_lp216272_ _rest216294_))))))) - (if (let () (declare (not safe)) (##pair? _rest216275216283_)) - (let ((_hd216280216302_ + (_lp112645_ _rest112667_))))))) + (if (let () (declare (not safe)) (##pair? _rest112648112656_)) + (let ((_hd112653112675_ (let () (declare (not safe)) - (##car _rest216275216283_))) - (_tl216281216304_ + (##car _rest112648112656_))) + (_tl112654112677_ (let () (declare (not safe)) - (##cdr _rest216275216283_)))) - (let* ((_super216307_ _hd216280216302_) - (_rest216309_ _tl216281216304_)) + (##cdr _rest112648112656_)))) + (let* ((_super112680_ _hd112653112675_) + (_rest112682_ _tl112654112677_)) (declare (not safe)) - (_K216279216299_ _rest216309_ _super216307_))) - (let () (declare (not safe)) (_else216277216291_)))))))) + (_K112652112672_ _rest112682_ _super112680_))) + (let () (declare (not safe)) (_else112650112664_)))))))) (define gxc#!class-struct-slot? - (lambda (_klass216266_ _slot216267_) - (if (##structure-ref _klass216266_ '7 gxc#!class::t '#f) - (memq _slot216267_ - (##structure-ref _klass216266_ '5 gxc#!class::t '#f)) + (lambda (_klass112639_ _slot112640_) + (if (##structure-ref _klass112639_ '7 gxc#!class::t '#f) + (memq _slot112640_ + (##structure-ref _klass112639_ '5 gxc#!class::t '#f)) '#f))) (define gxc#!predicate:::init! - (lambda (_self216263_ _id216264_) - (##structure-set! _self216263_ _id216264_ '1 gxc#!type::t '#f))) + (lambda (_self112636_ _id112637_) + (##structure-set! _self112636_ _id112637_ '1 gxc#!type::t '#f))) (define gxc#!predicate:::init!::specialize - (lambda (__t221378) - (let ((__id221379 - (let ((__tmp221380 + (lambda (__t113183) + (let ((__id113184 + (let ((__tmp113185 (let () (declare (not safe)) - (class-slot-offset __t221378 'id)))) - (if __tmp221380 __tmp221380 (error '"Unknown slot" 'id))))) - (lambda (_self216263_ _id216264_) + (class-slot-offset __t113183 'id)))) + (if __tmp113185 + __tmp113185 + (let () + (declare (not safe)) + (error '"Unknown slot" 'id)))))) + (lambda (_self112636_ _id112637_) (let () (declare (not safe)) (##unchecked-structure-set! - _self216263_ - _id216264_ - __id221379 - __t221378 + _self112636_ + _id112637_ + __id113184 + __t113183 '#f)))))) (let () (declare (not safe)) @@ -2169,26 +2210,30 @@ gxc#!predicate:::init!::specialize)) (let () (declare (not safe)) - (bind-method! gxc#!predicate::t ':init! gxc#!predicate:::init! '#f)) + (bind-method!__% gxc#!predicate::t ':init! gxc#!predicate:::init! '#f)) (define gxc#!constructor:::init! - (lambda (_self216138_ _id216139_) - (##structure-set! _self216138_ _id216139_ '1 gxc#!type::t '#f))) + (lambda (_self112511_ _id112512_) + (##structure-set! _self112511_ _id112512_ '1 gxc#!type::t '#f))) (define gxc#!constructor:::init!::specialize - (lambda (__t221381) - (let ((__id221382 - (let ((__tmp221383 + (lambda (__t113186) + (let ((__id113187 + (let ((__tmp113188 (let () (declare (not safe)) - (class-slot-offset __t221381 'id)))) - (if __tmp221383 __tmp221383 (error '"Unknown slot" 'id))))) - (lambda (_self216138_ _id216139_) + (class-slot-offset __t113186 'id)))) + (if __tmp113188 + __tmp113188 + (let () + (declare (not safe)) + (error '"Unknown slot" 'id)))))) + (lambda (_self112511_ _id112512_) (let () (declare (not safe)) (##unchecked-structure-set! - _self216138_ - _id216139_ - __id221382 - __t221381 + _self112511_ + _id112512_ + __id113187 + __t113186 '#f)))))) (let () (declare (not safe)) @@ -2197,63 +2242,77 @@ gxc#!constructor:::init!::specialize)) (let () (declare (not safe)) - (bind-method! gxc#!constructor::t ':init! gxc#!constructor:::init! '#f)) + (bind-method!__% + gxc#!constructor::t + ':init! + gxc#!constructor:::init! + '#f)) (define gxc#!accessor:::init! - (lambda (_self216011_ _id216012_ _slot216013_ _checked?216014_) - (##structure-set! _self216011_ _id216012_ '1 gxc#!type::t '#f) - (##structure-set! _self216011_ _slot216013_ '2 gxc#!accessor::t '#f) + (lambda (_self112384_ _id112385_ _slot112386_ _checked?112387_) + (##structure-set! _self112384_ _id112385_ '1 gxc#!type::t '#f) + (##structure-set! _self112384_ _slot112386_ '2 gxc#!accessor::t '#f) (##structure-set! - _self216011_ - _checked?216014_ + _self112384_ + _checked?112387_ '3 gxc#!accessor::t '#f))) (define gxc#!accessor:::init!::specialize - (lambda (__t221384) - (let ((__slot221385 - (let ((__tmp221388 + (lambda (__t113189) + (let ((__id113190 + (let ((__tmp113193 (let () (declare (not safe)) - (class-slot-offset __t221384 'slot)))) - (if __tmp221388 __tmp221388 (error '"Unknown slot" 'slot)))) - (__id221386 - (let ((__tmp221389 + (class-slot-offset __t113189 'id)))) + (if __tmp113193 + __tmp113193 + (let () + (declare (not safe)) + (error '"Unknown slot" 'id))))) + (__slot113191 + (let ((__tmp113194 (let () (declare (not safe)) - (class-slot-offset __t221384 'id)))) - (if __tmp221389 __tmp221389 (error '"Unknown slot" 'id)))) - (__checked?221387 - (let ((__tmp221390 + (class-slot-offset __t113189 'slot)))) + (if __tmp113194 + __tmp113194 + (let () + (declare (not safe)) + (error '"Unknown slot" 'slot))))) + (__checked?113192 + (let ((__tmp113195 (let () (declare (not safe)) - (class-slot-offset __t221384 'checked?)))) - (if __tmp221390 - __tmp221390 - (error '"Unknown slot" 'checked?))))) - (lambda (_self216011_ _id216012_ _slot216013_ _checked?216014_) + (class-slot-offset __t113189 'checked?)))) + (if __tmp113195 + __tmp113195 + (let () + (declare (not safe)) + (error '"Unknown slot" 'checked?)))))) + (lambda (_self112384_ _id112385_ _slot112386_ _checked?112387_) (let () (declare (not safe)) (##unchecked-structure-set! - _self216011_ - _id216012_ - __id221386 - __t221384 + _self112384_ + _id112385_ + __id113190 + __t113189 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self216011_ - _slot216013_ - __slot221385 - __t221384 + _self112384_ + _slot112386_ + __slot113191 + __t113189 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self216011_ - _checked?216014_ - __checked?221387 - __t221384 + _self112384_ + _checked?112387_ + __checked?113192 + __t113189 '#f)))))) (let () (declare (not safe)) @@ -2262,63 +2321,73 @@ gxc#!accessor:::init!::specialize)) (let () (declare (not safe)) - (bind-method! gxc#!accessor::t ':init! gxc#!accessor:::init! '#f)) + (bind-method!__% gxc#!accessor::t ':init! gxc#!accessor:::init! '#f)) (define gxc#!mutator:::init! - (lambda (_self215884_ _id215885_ _slot215886_ _checked?215887_) - (##structure-set! _self215884_ _id215885_ '1 gxc#!type::t '#f) - (##structure-set! _self215884_ _slot215886_ '2 gxc#!mutator::t '#f) + (lambda (_self112257_ _id112258_ _slot112259_ _checked?112260_) + (##structure-set! _self112257_ _id112258_ '1 gxc#!type::t '#f) + (##structure-set! _self112257_ _slot112259_ '2 gxc#!mutator::t '#f) (##structure-set! - _self215884_ - _checked?215887_ + _self112257_ + _checked?112260_ '3 gxc#!mutator::t '#f))) (define gxc#!mutator:::init!::specialize - (lambda (__t221391) - (let ((__slot221392 - (let ((__tmp221395 + (lambda (__t113196) + (let ((__slot113197 + (let ((__tmp113200 (let () (declare (not safe)) - (class-slot-offset __t221391 'slot)))) - (if __tmp221395 __tmp221395 (error '"Unknown slot" 'slot)))) - (__id221393 - (let ((__tmp221396 + (class-slot-offset __t113196 'slot)))) + (if __tmp113200 + __tmp113200 + (let () + (declare (not safe)) + (error '"Unknown slot" 'slot))))) + (__id113198 + (let ((__tmp113201 (let () (declare (not safe)) - (class-slot-offset __t221391 'id)))) - (if __tmp221396 __tmp221396 (error '"Unknown slot" 'id)))) - (__checked?221394 - (let ((__tmp221397 + (class-slot-offset __t113196 'id)))) + (if __tmp113201 + __tmp113201 + (let () + (declare (not safe)) + (error '"Unknown slot" 'id))))) + (__checked?113199 + (let ((__tmp113202 (let () (declare (not safe)) - (class-slot-offset __t221391 'checked?)))) - (if __tmp221397 - __tmp221397 - (error '"Unknown slot" 'checked?))))) - (lambda (_self215884_ _id215885_ _slot215886_ _checked?215887_) + (class-slot-offset __t113196 'checked?)))) + (if __tmp113202 + __tmp113202 + (let () + (declare (not safe)) + (error '"Unknown slot" 'checked?)))))) + (lambda (_self112257_ _id112258_ _slot112259_ _checked?112260_) (let () (declare (not safe)) (##unchecked-structure-set! - _self215884_ - _id215885_ - __id221393 - __t221391 + _self112257_ + _id112258_ + __id113198 + __t113196 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self215884_ - _slot215886_ - __slot221392 - __t221391 + _self112257_ + _slot112259_ + __slot113197 + __t113196 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self215884_ - _checked?215887_ - __checked?221394 - __t221391 + _self112257_ + _checked?112260_ + __checked?113199 + __t113196 '#f)))))) (let () (declare (not safe)) @@ -2327,417 +2396,431 @@ gxc#!mutator:::init!::specialize)) (let () (declare (not safe)) - (bind-method! gxc#!mutator::t ':init! gxc#!mutator:::init! '#f)) + (bind-method!__% gxc#!mutator::t ':init! gxc#!mutator:::init! '#f)) (define gxc#!lambda:::init!__% - (lambda (_self215728_ - _id215729_ - _arity215730_ - _dispatch215731_ - _inline215732_ - _typedecl215733_) - (if (let ((__tmp221518 + (lambda (_self112101_ + _id112102_ + _arity112103_ + _dispatch112104_ + _inline112105_ + _typedecl112106_) + (if (let ((__tmp113325 (let () (declare (not safe)) - (##structure-length _self215728_)))) + (##structure-length _self112101_)))) (declare (not safe)) - (##fx< '5 __tmp221518)) + (##fx< '5 __tmp113325)) (begin - (let ((__tmp221513 + (let ((__tmp113320 (let () (declare (not safe)) - (##structure-type _self215728_)))) + (##structure-type _self112101_)))) (declare (not safe)) (##unchecked-structure-set! - _self215728_ - _id215729_ + _self112101_ + _id112102_ '1 - __tmp221513 + __tmp113320 '#f)) - (let ((__tmp221514 + (let ((__tmp113321 (let () (declare (not safe)) - (##structure-type _self215728_)))) + (##structure-type _self112101_)))) (declare (not safe)) (##unchecked-structure-set! - _self215728_ - _arity215730_ + _self112101_ + _arity112103_ '2 - __tmp221514 + __tmp113321 '#f)) - (let ((__tmp221515 + (let ((__tmp113322 (let () (declare (not safe)) - (##structure-type _self215728_)))) + (##structure-type _self112101_)))) (declare (not safe)) (##unchecked-structure-set! - _self215728_ - _dispatch215731_ + _self112101_ + _dispatch112104_ '3 - __tmp221515 + __tmp113322 '#f)) - (let ((__tmp221516 + (let ((__tmp113323 (let () (declare (not safe)) - (##structure-type _self215728_)))) + (##structure-type _self112101_)))) (declare (not safe)) (##unchecked-structure-set! - _self215728_ - _inline215732_ + _self112101_ + _inline112105_ '4 - __tmp221516 + __tmp113323 '#f)) - (let ((__tmp221517 + (let ((__tmp113324 (let () (declare (not safe)) - (##structure-type _self215728_)))) + (##structure-type _self112101_)))) (declare (not safe)) (##unchecked-structure-set! - _self215728_ - _typedecl215733_ + _self112101_ + _typedecl112106_ '5 - __tmp221517 + __tmp113324 '#f))) - (error '"struct-instance-init!: too many arguments for struct" - _self215728_ - '5 + (let ((__tmp113319 (let () (declare (not safe)) - (##vector-length _self215728_)))))) + (##vector-length _self112101_)))) + (declare (not safe)) + (error '"struct-instance-init!: too many arguments for struct" + _self112101_ + '5 + __tmp113319))))) (define gxc#!lambda:::init!__0 - (lambda (_self215738_ _id215739_ _arity215740_ _dispatch215741_) - (let* ((_inline215743_ '#f) (_typedecl215745_ '#f)) - (if (let ((__tmp221524 + (lambda (_self112111_ _id112112_ _arity112113_ _dispatch112114_) + (let* ((_inline112116_ '#f) (_typedecl112118_ '#f)) + (if (let ((__tmp113332 (let () (declare (not safe)) - (##structure-length _self215738_)))) + (##structure-length _self112111_)))) (declare (not safe)) - (##fx< '5 __tmp221524)) + (##fx< '5 __tmp113332)) (begin - (let ((__tmp221519 + (let ((__tmp113327 (let () (declare (not safe)) - (##structure-type _self215738_)))) + (##structure-type _self112111_)))) (declare (not safe)) (##unchecked-structure-set! - _self215738_ - _id215739_ + _self112111_ + _id112112_ '1 - __tmp221519 + __tmp113327 '#f)) - (let ((__tmp221520 + (let ((__tmp113328 (let () (declare (not safe)) - (##structure-type _self215738_)))) + (##structure-type _self112111_)))) (declare (not safe)) (##unchecked-structure-set! - _self215738_ - _arity215740_ + _self112111_ + _arity112113_ '2 - __tmp221520 + __tmp113328 '#f)) - (let ((__tmp221521 + (let ((__tmp113329 (let () (declare (not safe)) - (##structure-type _self215738_)))) + (##structure-type _self112111_)))) (declare (not safe)) (##unchecked-structure-set! - _self215738_ - _dispatch215741_ + _self112111_ + _dispatch112114_ '3 - __tmp221521 + __tmp113329 '#f)) - (let ((__tmp221522 + (let ((__tmp113330 (let () (declare (not safe)) - (##structure-type _self215738_)))) + (##structure-type _self112111_)))) (declare (not safe)) (##unchecked-structure-set! - _self215738_ - _inline215743_ + _self112111_ + _inline112116_ '4 - __tmp221522 + __tmp113330 '#f)) - (let ((__tmp221523 + (let ((__tmp113331 (let () (declare (not safe)) - (##structure-type _self215738_)))) + (##structure-type _self112111_)))) (declare (not safe)) (##unchecked-structure-set! - _self215738_ - _typedecl215745_ + _self112111_ + _typedecl112118_ '5 - __tmp221523 + __tmp113331 '#f))) - (error '"struct-instance-init!: too many arguments for struct" - _self215738_ - '5 + (let ((__tmp113326 (let () (declare (not safe)) - (##vector-length _self215738_))))))) + (##vector-length _self112111_)))) + (declare (not safe)) + (error '"struct-instance-init!: too many arguments for struct" + _self112111_ + '5 + __tmp113326)))))) (define gxc#!lambda:::init!__1 - (lambda (_self215747_ - _id215748_ - _arity215749_ - _dispatch215750_ - _inline215751_) - (let ((_typedecl215753_ '#f)) - (if (let ((__tmp221530 + (lambda (_self112120_ + _id112121_ + _arity112122_ + _dispatch112123_ + _inline112124_) + (let ((_typedecl112126_ '#f)) + (if (let ((__tmp113339 (let () (declare (not safe)) - (##structure-length _self215747_)))) + (##structure-length _self112120_)))) (declare (not safe)) - (##fx< '5 __tmp221530)) + (##fx< '5 __tmp113339)) (begin - (let ((__tmp221525 + (let ((__tmp113334 (let () (declare (not safe)) - (##structure-type _self215747_)))) + (##structure-type _self112120_)))) (declare (not safe)) (##unchecked-structure-set! - _self215747_ - _id215748_ + _self112120_ + _id112121_ '1 - __tmp221525 + __tmp113334 '#f)) - (let ((__tmp221526 + (let ((__tmp113335 (let () (declare (not safe)) - (##structure-type _self215747_)))) + (##structure-type _self112120_)))) (declare (not safe)) (##unchecked-structure-set! - _self215747_ - _arity215749_ + _self112120_ + _arity112122_ '2 - __tmp221526 + __tmp113335 '#f)) - (let ((__tmp221527 + (let ((__tmp113336 (let () (declare (not safe)) - (##structure-type _self215747_)))) + (##structure-type _self112120_)))) (declare (not safe)) (##unchecked-structure-set! - _self215747_ - _dispatch215750_ + _self112120_ + _dispatch112123_ '3 - __tmp221527 + __tmp113336 '#f)) - (let ((__tmp221528 + (let ((__tmp113337 (let () (declare (not safe)) - (##structure-type _self215747_)))) + (##structure-type _self112120_)))) (declare (not safe)) (##unchecked-structure-set! - _self215747_ - _inline215751_ + _self112120_ + _inline112124_ '4 - __tmp221528 + __tmp113337 '#f)) - (let ((__tmp221529 + (let ((__tmp113338 (let () (declare (not safe)) - (##structure-type _self215747_)))) + (##structure-type _self112120_)))) (declare (not safe)) (##unchecked-structure-set! - _self215747_ - _typedecl215753_ + _self112120_ + _typedecl112126_ '5 - __tmp221529 + __tmp113338 '#f))) - (error '"struct-instance-init!: too many arguments for struct" - _self215747_ - '5 + (let ((__tmp113333 (let () (declare (not safe)) - (##vector-length _self215747_))))))) + (##vector-length _self112120_)))) + (declare (not safe)) + (error '"struct-instance-init!: too many arguments for struct" + _self112120_ + '5 + __tmp113333)))))) (define gxc#!lambda:::init! - (lambda _g221532_ - (let ((_g221531_ (let () (declare (not safe)) (##length _g221532_)))) - (cond ((let () (declare (not safe)) (##fx= _g221531_ 4)) - (apply (lambda (_self215738_ - _id215739_ - _arity215740_ - _dispatch215741_) + (lambda _g113341_ + (let ((_g113340_ (let () (declare (not safe)) (##length _g113341_)))) + (cond ((let () (declare (not safe)) (##fx= _g113340_ 4)) + (apply (lambda (_self112111_ + _id112112_ + _arity112113_ + _dispatch112114_) (let () (declare (not safe)) (gxc#!lambda:::init!__0 - _self215738_ - _id215739_ - _arity215740_ - _dispatch215741_))) - _g221532_)) - ((let () (declare (not safe)) (##fx= _g221531_ 5)) - (apply (lambda (_self215747_ - _id215748_ - _arity215749_ - _dispatch215750_ - _inline215751_) + _self112111_ + _id112112_ + _arity112113_ + _dispatch112114_))) + _g113341_)) + ((let () (declare (not safe)) (##fx= _g113340_ 5)) + (apply (lambda (_self112120_ + _id112121_ + _arity112122_ + _dispatch112123_ + _inline112124_) (let () (declare (not safe)) (gxc#!lambda:::init!__1 - _self215747_ - _id215748_ - _arity215749_ - _dispatch215750_ - _inline215751_))) - _g221532_)) - ((let () (declare (not safe)) (##fx= _g221531_ 6)) - (apply (lambda (_self215755_ - _id215756_ - _arity215757_ - _dispatch215758_ - _inline215759_ - _typedecl215760_) - (if (let ((__tmp221538 + _self112120_ + _id112121_ + _arity112122_ + _dispatch112123_ + _inline112124_))) + _g113341_)) + ((let () (declare (not safe)) (##fx= _g113340_ 6)) + (apply (lambda (_self112128_ + _id112129_ + _arity112130_ + _dispatch112131_ + _inline112132_ + _typedecl112133_) + (if (let ((__tmp113348 (let () (declare (not safe)) - (##structure-length _self215755_)))) + (##structure-length _self112128_)))) (declare (not safe)) - (##fx< '5 __tmp221538)) + (##fx< '5 __tmp113348)) (begin - (let ((__tmp221533 + (let ((__tmp113343 (let () (declare (not safe)) - (##structure-type _self215755_)))) + (##structure-type _self112128_)))) (declare (not safe)) (##unchecked-structure-set! - _self215755_ - _id215756_ + _self112128_ + _id112129_ '1 - __tmp221533 + __tmp113343 '#f)) - (let ((__tmp221534 + (let ((__tmp113344 (let () (declare (not safe)) - (##structure-type _self215755_)))) + (##structure-type _self112128_)))) (declare (not safe)) (##unchecked-structure-set! - _self215755_ - _arity215757_ + _self112128_ + _arity112130_ '2 - __tmp221534 + __tmp113344 '#f)) - (let ((__tmp221535 + (let ((__tmp113345 (let () (declare (not safe)) - (##structure-type _self215755_)))) + (##structure-type _self112128_)))) (declare (not safe)) (##unchecked-structure-set! - _self215755_ - _dispatch215758_ + _self112128_ + _dispatch112131_ '3 - __tmp221535 + __tmp113345 '#f)) - (let ((__tmp221536 + (let ((__tmp113346 (let () (declare (not safe)) - (##structure-type _self215755_)))) + (##structure-type _self112128_)))) (declare (not safe)) (##unchecked-structure-set! - _self215755_ - _inline215759_ + _self112128_ + _inline112132_ '4 - __tmp221536 + __tmp113346 '#f)) - (let ((__tmp221537 + (let ((__tmp113347 (let () (declare (not safe)) - (##structure-type _self215755_)))) + (##structure-type _self112128_)))) (declare (not safe)) (##unchecked-structure-set! - _self215755_ - _typedecl215760_ + _self112128_ + _typedecl112133_ '5 - __tmp221537 + __tmp113347 '#f))) - (error '"struct-instance-init!: too many arguments for struct" - _self215755_ - '5 + (let ((__tmp113342 (let () (declare (not safe)) - (##vector-length _self215755_))))) - _g221532_)) + (##vector-length _self112128_)))) + (declare (not safe)) + (error '"struct-instance-init!: too many arguments for struct" + _self112128_ + '5 + __tmp113342)))) + _g113341_)) (else (##raise-wrong-number-of-arguments-exception gxc#!lambda:::init! - _g221532_)))))) + _g113341_)))))) (let () (declare (not safe)) - (bind-method! gxc#!lambda::t ':init! gxc#!lambda:::init! '#f)) + (bind-method!__% gxc#!lambda::t ':init! gxc#!lambda:::init! '#f)) (define gxc#!primitive-lambda:::init! gxc#!lambda:::init!) (let () (declare (not safe)) - (bind-method! + (bind-method!__% gxc#!primitive-lambda::t ':init! gxc#!primitive-lambda:::init! '#f)) (define gxc#!primitive-case-lambda:::init! - (lambda (_self215480_ . _args215481_) - (apply struct-instance-init! _self215480_ _args215481_))) + (lambda (_self111853_ . _args111854_) + (apply struct-instance-init! _self111853_ _args111854_))) (let () (declare (not safe)) - (bind-method! + (bind-method!__% gxc#!primitive-case-lambda::t ':init! gxc#!primitive-case-lambda:::init! '#f)) (define gxc#!type-vtab - (lambda (_type215355_) + (lambda (_type111728_) (if (let () (declare (not safe)) - (##structure-instance-of? _type215355_ 'gxc#!class::t)) + (##structure-instance-of? _type111728_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-method-table _type215355_)) + (gxc#!class-method-table _type111728_)) '#f))) (define gxc#!class-method-table - (lambda (_klass215348_) - (let ((_$e215350_ - (##structure-ref _klass215348_ '10 gxc#!class::t '#f))) - (if _$e215350_ - _$e215350_ - (let ((_tab215353_ - (let () (declare (not safe)) (make-table 'test: eq?)))) + (lambda (_klass111721_) + (let ((_$e111723_ + (##structure-ref _klass111721_ '10 gxc#!class::t '#f))) + (if _$e111723_ + _$e111723_ + (let ((_tab111726_ + (let () (declare (not safe)) (make-hash-table-eq)))) (##structure-set! - _klass215348_ - _tab215353_ + _klass111721_ + _tab111726_ '10 gxc#!class::t '#f) - _tab215353_))))) + _tab111726_))))) (define gxc#!class-lookup-method - (lambda (_klass215339_ _method215340_) - (let ((_tab215341215343_ - (##structure-ref _klass215339_ '10 gxc#!class::t '#f))) - (if _tab215341215343_ - (let ((_tab215346_ _tab215341215343_)) + (lambda (_klass111712_ _method111713_) + (let ((_tab111714111716_ + (##structure-ref _klass111712_ '10 gxc#!class::t '#f))) + (if _tab111714111716_ + (let ((_tab111719_ _tab111714111716_)) (declare (not safe)) - (table-ref _tab215346_ _method215340_ '#f)) + (hash-get _tab111719_ _method111713_)) '#f)))) (define gxc#!type-lookup-method - (lambda (_type215336_ _method215337_) + (lambda (_type111709_ _method111710_) (if (let () (declare (not safe)) - (##structure-instance-of? _type215336_ 'gxc#!class::t)) + (##structure-instance-of? _type111709_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-lookup-method _type215336_ _method215337_)) + (gxc#!class-lookup-method _type111709_ _method111710_)) '#f))) (define gxc#optimizer-declare-type!__% - (lambda (_sym215320_ _type215321_ _local?215322_) + (lambda (_sym111693_ _type111694_ _local?111695_) (if (let () (declare (not safe)) - (##structure-instance-of? _type215321_ 'gxc#!type::t)) + (##structure-instance-of? _type111694_ 'gxc#!type::t)) '#!void - (error '"bad declaration: expected !type" - _sym215320_ - _type215321_)) - (let ((__tmp221539 - (let () (declare (not safe)) (struct->list _type215321_)))) + (let () + (declare (not safe)) + (error '"bad declaration: expected !type" + _sym111693_ + _type111694_))) + (let ((__tmp113349 + (let () (declare (not safe)) (struct->list _type111694_)))) (declare (not safe)) - (gxc#verbose '"declare-type " _sym215320_ '" " __tmp221539)) - (let ((__tmp221540 - (if _local?215322_ + (gxc#verbose '"declare-type " _sym111693_ '" " __tmp113349)) + (let ((__tmp113350 + (if _local?111695_ (gxc#current-compile-local-type) (##structure-ref (gxc#current-compile-optimizer-info) @@ -2745,44 +2828,44 @@ gxc#optimizer-info::t '#f)))) (declare (not safe)) - (table-set! __tmp221540 _sym215320_ _type215321_)))) + (hash-put! __tmp113350 _sym111693_ _type111694_)))) (define gxc#optimizer-declare-type!__0 - (lambda (_sym215327_ _type215328_) - (let ((_local?215330_ '#f)) + (lambda (_sym111700_ _type111701_) + (let ((_local?111703_ '#f)) (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym215327_ - _type215328_ - _local?215330_)))) + _sym111700_ + _type111701_ + _local?111703_)))) (define gxc#optimizer-declare-type! - (lambda _g221542_ - (let ((_g221541_ (let () (declare (not safe)) (##length _g221542_)))) - (cond ((let () (declare (not safe)) (##fx= _g221541_ 2)) - (apply (lambda (_sym215327_ _type215328_) + (lambda _g113352_ + (let ((_g113351_ (let () (declare (not safe)) (##length _g113352_)))) + (cond ((let () (declare (not safe)) (##fx= _g113351_ 2)) + (apply (lambda (_sym111700_ _type111701_) (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym215327_ - _type215328_))) - _g221542_)) - ((let () (declare (not safe)) (##fx= _g221541_ 3)) - (apply (lambda (_sym215332_ _type215333_ _local?215334_) + _sym111700_ + _type111701_))) + _g113352_)) + ((let () (declare (not safe)) (##fx= _g113351_ 3)) + (apply (lambda (_sym111705_ _type111706_ _local?111707_) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym215332_ - _type215333_ - _local?215334_))) - _g221542_)) + _sym111705_ + _type111706_ + _local?111707_))) + _g113352_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-type! - _g221542_)))))) + _g113352_)))))) (define gxc#optimizer-clear-type!__% - (lambda (_sym215306_ _local?215307_) - (let () (declare (not safe)) (gxc#verbose '"clear-type " _sym215306_)) - (let ((__tmp221543 - (if _local?215307_ + (lambda (_sym111679_ _local?111680_) + (let () (declare (not safe)) (gxc#verbose '"clear-type " _sym111679_)) + (let ((__tmp113353 + (if _local?111680_ (gxc#current-compile-local-type) (##structure-ref (gxc#current-compile-optimizer-info) @@ -2790,262 +2873,262 @@ gxc#optimizer-info::t '#f)))) (declare (not safe)) - (table-set! __tmp221543 _sym215306_)))) + (hash-remove! __tmp113353 _sym111679_)))) (define gxc#optimizer-clear-type!__0 - (lambda (_sym215312_) - (let ((_local?215314_ '#f)) + (lambda (_sym111685_) + (let ((_local?111687_ '#f)) (declare (not safe)) - (gxc#optimizer-clear-type!__% _sym215312_ _local?215314_)))) + (gxc#optimizer-clear-type!__% _sym111685_ _local?111687_)))) (define gxc#optimizer-clear-type! - (lambda _g221545_ - (let ((_g221544_ (let () (declare (not safe)) (##length _g221545_)))) - (cond ((let () (declare (not safe)) (##fx= _g221544_ 1)) - (apply (lambda (_sym215312_) + (lambda _g113355_ + (let ((_g113354_ (let () (declare (not safe)) (##length _g113355_)))) + (cond ((let () (declare (not safe)) (##fx= _g113354_ 1)) + (apply (lambda (_sym111685_) (let () (declare (not safe)) - (gxc#optimizer-clear-type!__0 _sym215312_))) - _g221545_)) - ((let () (declare (not safe)) (##fx= _g221544_ 2)) - (apply (lambda (_sym215316_ _local?215317_) + (gxc#optimizer-clear-type!__0 _sym111685_))) + _g113355_)) + ((let () (declare (not safe)) (##fx= _g113354_ 2)) + (apply (lambda (_sym111689_ _local?111690_) (let () (declare (not safe)) (gxc#optimizer-clear-type!__% - _sym215316_ - _local?215317_))) - _g221545_)) + _sym111689_ + _local?111690_))) + _g113355_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-clear-type! - _g221545_)))))) + _g113355_)))))) (define gxc#optimizer-declare-method!__% - (lambda (_type-t215279_ _method215280_ _sym215281_ _rebind?215282_) - (let* ((_type215284_ + (lambda (_type-t111652_ _method111653_ _sym111654_ _rebind?111655_) + (let* ((_type111657_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _type-t215279_))) - (_$e215286_ - (let () (declare (not safe)) (gxc#!type-vtab _type215284_)))) - (if _$e215286_ - ((lambda (_vtab215289_) + (gxc#optimizer-resolve-type _type-t111652_))) + (_$e111659_ + (let () (declare (not safe)) (gxc#!type-vtab _type111657_)))) + (if _$e111659_ + ((lambda (_vtab111662_) (if (let () (declare (not safe)) - (hash-key? _vtab215289_ _method215280_)) - (if _rebind?215282_ + (hash-key? _vtab111662_ _method111653_)) + (if _rebind?111655_ (begin (let () (declare (not safe)) (gxc#verbose '"declare-method: rebind existing method" - _type-t215279_ + _type-t111652_ '" " - _method215280_)) + _method111653_)) (let () (declare (not safe)) - (table-set! - _vtab215289_ - _method215280_ - _sym215281_))) - (let ((__tmp221550 - (let ((__tmp221551 - (let ((__tmp221552 - (let ((__tmp221553 + (hash-put! + _vtab111662_ + _method111653_ + _sym111654_))) + (let ((__tmp113360 + (let ((__tmp113361 + (let ((__tmp113362 + (let ((__tmp113363 (let () (declare (not safe)) - (cons _sym215281_ + (cons _sym111654_ '())))) (declare (not safe)) - (cons _method215280_ - __tmp221553)))) + (cons _method111653_ + __tmp113363)))) (declare (not safe)) - (cons _type-t215279_ __tmp221552)))) + (cons _type-t111652_ __tmp113362)))) (declare (not safe)) - (cons 'bind-method! __tmp221551)))) + (cons 'bind-method! __tmp113361)))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: duplicate method declaration" - __tmp221550 - _method215280_))) + __tmp113360 + _method111653_))) (begin (let () (declare (not safe)) (gxc#verbose '"declare-method " - _type-t215279_ + _type-t111652_ '" " - _method215280_ + _method111653_ '" => " - _sym215281_)) + _sym111654_)) (let () (declare (not safe)) - (table-set! - _vtab215289_ - _method215280_ - _sym215281_))))) - _$e215286_) - (if (let () (declare (not safe)) (not _type215284_)) + (hash-put! + _vtab111662_ + _method111653_ + _sym111654_))))) + _$e111659_) + (if (let () (declare (not safe)) (not _type111657_)) (let () (declare (not safe)) (gxc#verbose '"declare-method: unknown type " - _type-t215279_)) - (let ((__tmp221546 - (let ((__tmp221547 - (let ((__tmp221548 - (let ((__tmp221549 + _type-t111652_)) + (let ((__tmp113356 + (let ((__tmp113357 + (let ((__tmp113358 + (let ((__tmp113359 (let () (declare (not safe)) - (cons _method215280_ '())))) + (cons _method111653_ '())))) (declare (not safe)) - (cons _sym215281_ __tmp221549)))) + (cons _sym111654_ __tmp113359)))) (declare (not safe)) - (cons _type-t215279_ __tmp221548)))) + (cons _type-t111652_ __tmp113358)))) (declare (not safe)) - (cons 'bind-method! __tmp221547)))) + (cons 'bind-method! __tmp113357)))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: bad method declaration; no method table" - __tmp221546 - _type215284_))))))) + __tmp113356 + _type111657_))))))) (define gxc#optimizer-declare-method!__0 - (lambda (_type-t215294_ _method215295_ _sym215296_) - (let ((_rebind?215298_ '#f)) + (lambda (_type-t111667_ _method111668_ _sym111669_) + (let ((_rebind?111671_ '#f)) (declare (not safe)) (gxc#optimizer-declare-method!__% - _type-t215294_ - _method215295_ - _sym215296_ - _rebind?215298_)))) + _type-t111667_ + _method111668_ + _sym111669_ + _rebind?111671_)))) (define gxc#optimizer-declare-method! - (lambda _g221555_ - (let ((_g221554_ (let () (declare (not safe)) (##length _g221555_)))) - (cond ((let () (declare (not safe)) (##fx= _g221554_ 3)) - (apply (lambda (_type-t215294_ _method215295_ _sym215296_) + (lambda _g113365_ + (let ((_g113364_ (let () (declare (not safe)) (##length _g113365_)))) + (cond ((let () (declare (not safe)) (##fx= _g113364_ 3)) + (apply (lambda (_type-t111667_ _method111668_ _sym111669_) (let () (declare (not safe)) (gxc#optimizer-declare-method!__0 - _type-t215294_ - _method215295_ - _sym215296_))) - _g221555_)) - ((let () (declare (not safe)) (##fx= _g221554_ 4)) - (apply (lambda (_type-t215300_ - _method215301_ - _sym215302_ - _rebind?215303_) + _type-t111667_ + _method111668_ + _sym111669_))) + _g113365_)) + ((let () (declare (not safe)) (##fx= _g113364_ 4)) + (apply (lambda (_type-t111673_ + _method111674_ + _sym111675_ + _rebind?111676_) (let () (declare (not safe)) (gxc#optimizer-declare-method!__% - _type-t215300_ - _method215301_ - _sym215302_ - _rebind?215303_))) - _g221555_)) + _type-t111673_ + _method111674_ + _sym111675_ + _rebind?111676_))) + _g113365_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-method! - _g221555_)))))) + _g113365_)))))) (define gxc#optimizer-lookup-type - (lambda (_sym215267_) - (let ((_$e215275_ - (let ((_ht215268215270_ (gxc#current-compile-local-type))) - (if _ht215268215270_ - (let ((_ht215273_ _ht215268215270_)) + (lambda (_sym111640_) + (let ((_$e111648_ + (let ((_ht111641111643_ (gxc#current-compile-local-type))) + (if _ht111641111643_ + (let ((_ht111646_ _ht111641111643_)) (declare (not safe)) - (table-ref _ht215273_ _sym215267_ '#f)) + (hash-get _ht111646_ _sym111640_)) '#f)))) - (if _$e215275_ - _$e215275_ - (let ((__tmp221556 + (if _$e111648_ + _$e111648_ + (let ((__tmp113366 (##structure-ref (gxc#current-compile-optimizer-info) '1 gxc#optimizer-info::t '#f))) (declare (not safe)) - (table-ref __tmp221556 _sym215267_ '#f)))))) + (hash-get __tmp113366 _sym111640_)))))) (define gxc#optimizer-resolve-type - (lambda (_sym215259_) - (let ((_type215260215262_ + (lambda (_sym111632_) + (let ((_type111633111635_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym215259_)))) - (if _type215260215262_ - (let ((_type215265_ _type215260215262_)) + (gxc#optimizer-lookup-type _sym111632_)))) + (if _type111633111635_ + (let ((_type111638_ _type111633111635_)) (if (let () (declare (not safe)) - (##structure-instance-of? _type215265_ 'gxc#!alias::t)) - (let ((__tmp221557 - (##structure-ref _type215265_ '1 gxc#!type::t '#f))) + (##structure-instance-of? _type111638_ 'gxc#!alias::t)) + (let ((__tmp113367 + (##structure-ref _type111638_ '1 gxc#!type::t '#f))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp221557)) - _type215265_)) + (gxc#optimizer-resolve-type __tmp113367)) + _type111638_)) '#f)))) (define gxc#optimizer-resolve-class - (lambda (_where215251_ _klass-id215252_) - (let ((_$e215254_ + (lambda (_where111624_ _klass-id111625_) + (let ((_$e111627_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _klass-id215252_)))) - (if _$e215254_ - ((lambda (_klass215257_) + (gxc#optimizer-resolve-type _klass-id111625_)))) + (if _$e111627_ + ((lambda (_klass111630_) (if (let () (declare (not safe)) - (##structure-instance-of? _klass215257_ 'gxc#!class::t)) + (##structure-instance-of? _klass111630_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"bad class reference; not a class type" - _where215251_ - _klass-id215252_ - _klass215257_))) - _klass215257_) - _$e215254_) + _where111624_ + _klass-id111625_ + _klass111630_))) + _klass111630_) + _$e111627_) (let () (declare (not safe)) (gxc#raise-compile-error '"unknown class" - _where215251_ - _klass-id215252_)))))) + _where111624_ + _klass-id111625_)))))) (define gxc#optimizer-lookup-method - (lambda (_type-t215248_ _method215249_) - (let ((__tmp221558 + (lambda (_type-t111621_ _method111622_) + (let ((__tmp113368 (let () (declare (not safe)) - (gxc#optimizer-resolve-type _type-t215248_)))) + (gxc#optimizer-resolve-type _type-t111621_)))) (declare (not safe)) - (gxc#!type-lookup-method __tmp221558 _method215249_)))) + (gxc#!type-lookup-method __tmp113368 _method111622_)))) (define gxc#optimizer-top-level-method! - (lambda (_sym215246_) + (lambda (_sym111619_) (let () (declare (not safe)) - (gxc#verbose '"top-level method: " _sym215246_)) - (let ((__tmp221559 + (gxc#verbose '"top-level method: " _sym111619_)) + (let ((__tmp113369 (##structure-ref (gxc#current-compile-optimizer-info) '3 gxc#optimizer-info::t '#f))) (declare (not safe)) - (table-set! __tmp221559 _sym215246_ '#t)))) + (hash-put! __tmp113369 _sym111619_ '#t)))) (define gxc#optimizer-top-level-method? - (lambda (_sym215244_) - (let ((__tmp221560 + (lambda (_sym111617_) + (let ((__tmp113370 (##structure-ref (gxc#current-compile-optimizer-info) '3 gxc#optimizer-info::t '#f))) (declare (not safe)) - (table-ref __tmp221560 _sym215244_ '#f)))) + (hash-get __tmp113370 _sym111617_)))) (define gxc#identifier-symbol - (lambda (_stx215242_) + (lambda (_stx111615_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _stx215242_ + _stx111615_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _stx215242_)) - (let () (declare (not safe)) (gx#stx-e _stx215242_))))))) + (gxc#generate-runtime-binding-id _stx111615_)) + (let () (declare (not safe)) (gx#stx-e _stx111615_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base__1.scm b/src/bootstrap/gerbil/compiler/optimize-base__1.scm index 2f360d5a1..6cfed37ef 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base__1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-base__1.scm @@ -1,1602 +1,1602 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g221562_| + (define |gxc[1]#_g113372_| (##structure gx#syntax-quote::t 'optimizer-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221564_| + (define |gxc[1]#_g113374_| (##structure gx#syntax-quote::t 'make-optimizer-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221566_| + (define |gxc[1]#_g113376_| (##structure gx#syntax-quote::t 'optimizer-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221572_| + (define |gxc[1]#_g113382_| (##structure gx#syntax-quote::t 'optimizer-info-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221575_| + (define |gxc[1]#_g113385_| (##structure gx#syntax-quote::t 'optimizer-info-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221578_| + (define |gxc[1]#_g113388_| (##structure gx#syntax-quote::t 'optimizer-info-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221584_| + (define |gxc[1]#_g113394_| (##structure gx#syntax-quote::t 'optimizer-info-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221587_| + (define |gxc[1]#_g113397_| (##structure gx#syntax-quote::t 'optimizer-info-ssxi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221590_| + (define |gxc[1]#_g113400_| (##structure gx#syntax-quote::t 'optimizer-info-type-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221596_| + (define |gxc[1]#_g113406_| (##structure gx#syntax-quote::t '&optimizer-info-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221599_| + (define |gxc[1]#_g113409_| (##structure gx#syntax-quote::t '&optimizer-info-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221602_| + (define |gxc[1]#_g113412_| (##structure gx#syntax-quote::t '&optimizer-info-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221608_| + (define |gxc[1]#_g113418_| (##structure gx#syntax-quote::t '&optimizer-info-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221611_| + (define |gxc[1]#_g113421_| (##structure gx#syntax-quote::t '&optimizer-info-ssxi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221614_| + (define |gxc[1]#_g113424_| (##structure gx#syntax-quote::t '&optimizer-info-type-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221616_| + (define |gxc[1]#_g113426_| (##structure gx#syntax-quote::t '!type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221618_| + (define |gxc[1]#_g113428_| (##structure gx#syntax-quote::t 'make-!type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221620_| + (define |gxc[1]#_g113430_| (##structure gx#syntax-quote::t '!type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221624_| + (define |gxc[1]#_g113434_| (##structure gx#syntax-quote::t '!type-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221628_| + (define |gxc[1]#_g113438_| (##structure gx#syntax-quote::t '!type-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221632_| + (define |gxc[1]#_g113442_| (##structure gx#syntax-quote::t '&!type-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221636_| + (define |gxc[1]#_g113446_| (##structure gx#syntax-quote::t '&!type-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221639_| + (define |gxc[1]#_g113449_| (##structure gx#syntax-quote::t '!type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221641_| + (define |gxc[1]#_g113451_| (##structure gx#syntax-quote::t '!alias::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221643_| + (define |gxc[1]#_g113453_| (##structure gx#syntax-quote::t 'make-!alias #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221645_| + (define |gxc[1]#_g113455_| (##structure gx#syntax-quote::t '!alias? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221649_| + (define |gxc[1]#_g113459_| (##structure gx#syntax-quote::t '!alias-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221653_| + (define |gxc[1]#_g113463_| (##structure gx#syntax-quote::t '!alias-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221657_| + (define |gxc[1]#_g113467_| (##structure gx#syntax-quote::t '&!alias-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221661_| + (define |gxc[1]#_g113471_| (##structure gx#syntax-quote::t '&!alias-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221665_| + (define |gxc[1]#_g113475_| (##structure gx#syntax-quote::t '!procedure::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221667_| + (define |gxc[1]#_g113477_| (##structure gx#syntax-quote::t 'make-!procedure #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221669_| + (define |gxc[1]#_g113479_| (##structure gx#syntax-quote::t '!procedure? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221673_| + (define |gxc[1]#_g113483_| (##structure gx#syntax-quote::t '!procedure-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221677_| + (define |gxc[1]#_g113487_| (##structure gx#syntax-quote::t '!procedure-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221681_| + (define |gxc[1]#_g113491_| (##structure gx#syntax-quote::t '&!procedure-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221685_| + (define |gxc[1]#_g113495_| (##structure gx#syntax-quote::t '&!procedure-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221689_| + (define |gxc[1]#_g113499_| (##structure gx#syntax-quote::t '!class::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221691_| + (define |gxc[1]#_g113501_| (##structure gx#syntax-quote::t 'make-!class #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221693_| + (define |gxc[1]#_g113503_| (##structure gx#syntax-quote::t '!class? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221706_| + (define |gxc[1]#_g113516_| (##structure gx#syntax-quote::t '!class-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221709_| + (define |gxc[1]#_g113519_| (##structure gx#syntax-quote::t '!class-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221712_| + (define |gxc[1]#_g113522_| (##structure gx#syntax-quote::t '!class-metaclass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221715_| + (define |gxc[1]#_g113525_| (##structure gx#syntax-quote::t '!class-final? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221718_| + (define |gxc[1]#_g113528_| (##structure gx#syntax-quote::t '!class-struct? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221721_| + (define |gxc[1]#_g113531_| (##structure gx#syntax-quote::t '!class-constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221724_| + (define |gxc[1]#_g113534_| (##structure gx#syntax-quote::t '!class-fields #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221727_| + (define |gxc[1]#_g113537_| (##structure gx#syntax-quote::t '!class-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221730_| + (define |gxc[1]#_g113540_| (##structure gx#syntax-quote::t '!class-precedence-list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221733_| + (define |gxc[1]#_g113543_| (##structure gx#syntax-quote::t '!class-super #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221746_| + (define |gxc[1]#_g113556_| (##structure gx#syntax-quote::t '!class-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221749_| + (define |gxc[1]#_g113559_| (##structure gx#syntax-quote::t '!class-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221752_| + (define |gxc[1]#_g113562_| (##structure gx#syntax-quote::t '!class-metaclass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221755_| + (define |gxc[1]#_g113565_| (##structure gx#syntax-quote::t '!class-final?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221758_| + (define |gxc[1]#_g113568_| (##structure gx#syntax-quote::t '!class-struct?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221761_| + (define |gxc[1]#_g113571_| (##structure gx#syntax-quote::t '!class-constructor-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221764_| + (define |gxc[1]#_g113574_| (##structure gx#syntax-quote::t '!class-fields-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221767_| + (define |gxc[1]#_g113577_| (##structure gx#syntax-quote::t '!class-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221770_| + (define |gxc[1]#_g113580_| (##structure gx#syntax-quote::t '!class-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221773_| + (define |gxc[1]#_g113583_| (##structure gx#syntax-quote::t '!class-super-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221786_| + (define |gxc[1]#_g113596_| (##structure gx#syntax-quote::t '&!class-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221789_| + (define |gxc[1]#_g113599_| (##structure gx#syntax-quote::t '&!class-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221792_| + (define |gxc[1]#_g113602_| (##structure gx#syntax-quote::t '&!class-metaclass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221795_| + (define |gxc[1]#_g113605_| (##structure gx#syntax-quote::t '&!class-final? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221798_| + (define |gxc[1]#_g113608_| (##structure gx#syntax-quote::t '&!class-struct? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221801_| + (define |gxc[1]#_g113611_| (##structure gx#syntax-quote::t '&!class-constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221804_| + (define |gxc[1]#_g113614_| (##structure gx#syntax-quote::t '&!class-fields #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221807_| + (define |gxc[1]#_g113617_| (##structure gx#syntax-quote::t '&!class-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221810_| + (define |gxc[1]#_g113620_| (##structure gx#syntax-quote::t '&!class-precedence-list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221813_| + (define |gxc[1]#_g113623_| (##structure gx#syntax-quote::t '&!class-super #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221826_| + (define |gxc[1]#_g113636_| (##structure gx#syntax-quote::t '&!class-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221829_| + (define |gxc[1]#_g113639_| (##structure gx#syntax-quote::t '&!class-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221832_| + (define |gxc[1]#_g113642_| (##structure gx#syntax-quote::t '&!class-metaclass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221835_| + (define |gxc[1]#_g113645_| (##structure gx#syntax-quote::t '&!class-final?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221838_| + (define |gxc[1]#_g113648_| (##structure gx#syntax-quote::t '&!class-struct?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221841_| + (define |gxc[1]#_g113651_| (##structure gx#syntax-quote::t '&!class-constructor-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221844_| + (define |gxc[1]#_g113654_| (##structure gx#syntax-quote::t '&!class-fields-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221847_| + (define |gxc[1]#_g113657_| (##structure gx#syntax-quote::t '&!class-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221850_| + (define |gxc[1]#_g113660_| (##structure gx#syntax-quote::t '&!class-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221853_| + (define |gxc[1]#_g113663_| (##structure gx#syntax-quote::t '&!class-super-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221856_| + (define |gxc[1]#_g113666_| (##structure gx#syntax-quote::t '!procedure #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221858_| + (define |gxc[1]#_g113668_| (##structure gx#syntax-quote::t '!predicate::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221860_| + (define |gxc[1]#_g113670_| (##structure gx#syntax-quote::t 'make-!predicate #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221862_| + (define |gxc[1]#_g113672_| (##structure gx#syntax-quote::t '!predicate? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221866_| + (define |gxc[1]#_g113676_| (##structure gx#syntax-quote::t '!predicate-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221870_| + (define |gxc[1]#_g113680_| (##structure gx#syntax-quote::t '!predicate-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221874_| + (define |gxc[1]#_g113684_| (##structure gx#syntax-quote::t '&!predicate-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221878_| + (define |gxc[1]#_g113688_| (##structure gx#syntax-quote::t '&!predicate-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221882_| + (define |gxc[1]#_g113692_| (##structure gx#syntax-quote::t '!constructor::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221884_| + (define |gxc[1]#_g113694_| (##structure gx#syntax-quote::t 'make-!constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221886_| + (define |gxc[1]#_g113696_| (##structure gx#syntax-quote::t '!constructor? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221890_| + (define |gxc[1]#_g113700_| (##structure gx#syntax-quote::t '!constructor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221894_| + (define |gxc[1]#_g113704_| (##structure gx#syntax-quote::t '!constructor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221898_| + (define |gxc[1]#_g113708_| (##structure gx#syntax-quote::t '&!constructor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221902_| + (define |gxc[1]#_g113712_| (##structure gx#syntax-quote::t '&!constructor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221906_| + (define |gxc[1]#_g113716_| (##structure gx#syntax-quote::t '!accessor::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221908_| + (define |gxc[1]#_g113718_| (##structure gx#syntax-quote::t 'make-!accessor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221910_| + (define |gxc[1]#_g113720_| (##structure gx#syntax-quote::t '!accessor? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221916_| + (define |gxc[1]#_g113726_| (##structure gx#syntax-quote::t '!accessor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221919_| + (define |gxc[1]#_g113729_| (##structure gx#syntax-quote::t '!accessor-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221922_| + (define |gxc[1]#_g113732_| (##structure gx#syntax-quote::t '!accessor-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221928_| + (define |gxc[1]#_g113738_| (##structure gx#syntax-quote::t '!accessor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221931_| + (define |gxc[1]#_g113741_| (##structure gx#syntax-quote::t '!accessor-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221934_| + (define |gxc[1]#_g113744_| (##structure gx#syntax-quote::t '!accessor-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221940_| + (define |gxc[1]#_g113750_| (##structure gx#syntax-quote::t '&!accessor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221943_| + (define |gxc[1]#_g113753_| (##structure gx#syntax-quote::t '&!accessor-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221946_| + (define |gxc[1]#_g113756_| (##structure gx#syntax-quote::t '&!accessor-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221952_| + (define |gxc[1]#_g113762_| (##structure gx#syntax-quote::t '&!accessor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221955_| + (define |gxc[1]#_g113765_| (##structure gx#syntax-quote::t '&!accessor-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221958_| + (define |gxc[1]#_g113768_| (##structure gx#syntax-quote::t '&!accessor-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221962_| + (define |gxc[1]#_g113772_| (##structure gx#syntax-quote::t '!mutator::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221964_| + (define |gxc[1]#_g113774_| (##structure gx#syntax-quote::t 'make-!mutator #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221966_| + (define |gxc[1]#_g113776_| (##structure gx#syntax-quote::t '!mutator? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221972_| + (define |gxc[1]#_g113782_| (##structure gx#syntax-quote::t '!mutator-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221975_| + (define |gxc[1]#_g113785_| (##structure gx#syntax-quote::t '!mutator-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221978_| + (define |gxc[1]#_g113788_| (##structure gx#syntax-quote::t '!mutator-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221984_| + (define |gxc[1]#_g113794_| (##structure gx#syntax-quote::t '!mutator-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221987_| + (define |gxc[1]#_g113797_| (##structure gx#syntax-quote::t '!mutator-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221990_| + (define |gxc[1]#_g113800_| (##structure gx#syntax-quote::t '!mutator-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221996_| + (define |gxc[1]#_g113806_| (##structure gx#syntax-quote::t '&!mutator-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221999_| + (define |gxc[1]#_g113809_| (##structure gx#syntax-quote::t '&!mutator-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222002_| + (define |gxc[1]#_g113812_| (##structure gx#syntax-quote::t '&!mutator-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222008_| + (define |gxc[1]#_g113818_| (##structure gx#syntax-quote::t '&!mutator-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222011_| + (define |gxc[1]#_g113821_| (##structure gx#syntax-quote::t '&!mutator-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222014_| + (define |gxc[1]#_g113824_| (##structure gx#syntax-quote::t '&!mutator-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222018_| + (define |gxc[1]#_g113828_| (##structure gx#syntax-quote::t '!lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222020_| + (define |gxc[1]#_g113830_| (##structure gx#syntax-quote::t 'make-!lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222022_| + (define |gxc[1]#_g113832_| (##structure gx#syntax-quote::t '!lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222030_| + (define |gxc[1]#_g113840_| (##structure gx#syntax-quote::t '!lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222033_| + (define |gxc[1]#_g113843_| (##structure gx#syntax-quote::t '!lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222036_| + (define |gxc[1]#_g113846_| (##structure gx#syntax-quote::t '!lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222039_| + (define |gxc[1]#_g113849_| (##structure gx#syntax-quote::t '!lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222042_| + (define |gxc[1]#_g113852_| (##structure gx#syntax-quote::t '!lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222050_| + (define |gxc[1]#_g113860_| (##structure gx#syntax-quote::t '!lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222053_| + (define |gxc[1]#_g113863_| (##structure gx#syntax-quote::t '!lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222056_| + (define |gxc[1]#_g113866_| (##structure gx#syntax-quote::t '!lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222059_| + (define |gxc[1]#_g113869_| (##structure gx#syntax-quote::t '!lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222062_| + (define |gxc[1]#_g113872_| (##structure gx#syntax-quote::t '!lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222070_| + (define |gxc[1]#_g113880_| (##structure gx#syntax-quote::t '&!lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222073_| + (define |gxc[1]#_g113883_| (##structure gx#syntax-quote::t '&!lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222076_| + (define |gxc[1]#_g113886_| (##structure gx#syntax-quote::t '&!lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222079_| + (define |gxc[1]#_g113889_| (##structure gx#syntax-quote::t '&!lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222082_| + (define |gxc[1]#_g113892_| (##structure gx#syntax-quote::t '&!lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222090_| + (define |gxc[1]#_g113900_| (##structure gx#syntax-quote::t '&!lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222093_| + (define |gxc[1]#_g113903_| (##structure gx#syntax-quote::t '&!lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222096_| + (define |gxc[1]#_g113906_| (##structure gx#syntax-quote::t '&!lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222099_| + (define |gxc[1]#_g113909_| (##structure gx#syntax-quote::t '&!lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222102_| + (define |gxc[1]#_g113912_| (##structure gx#syntax-quote::t '&!lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222106_| + (define |gxc[1]#_g113916_| (##structure gx#syntax-quote::t '!case-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222108_| + (define |gxc[1]#_g113918_| (##structure gx#syntax-quote::t 'make-!case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222110_| + (define |gxc[1]#_g113920_| (##structure gx#syntax-quote::t '!case-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222115_| + (define |gxc[1]#_g113925_| (##structure gx#syntax-quote::t '!case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222118_| + (define |gxc[1]#_g113928_| (##structure gx#syntax-quote::t '!case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222123_| + (define |gxc[1]#_g113933_| (##structure gx#syntax-quote::t '!case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222126_| + (define |gxc[1]#_g113936_| (##structure gx#syntax-quote::t '!case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222131_| + (define |gxc[1]#_g113941_| (##structure gx#syntax-quote::t '&!case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222134_| + (define |gxc[1]#_g113944_| (##structure gx#syntax-quote::t '&!case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222139_| + (define |gxc[1]#_g113949_| (##structure gx#syntax-quote::t '&!case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222142_| + (define |gxc[1]#_g113952_| (##structure gx#syntax-quote::t '&!case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222146_| + (define |gxc[1]#_g113956_| (##structure gx#syntax-quote::t '!kw-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222148_| + (define |gxc[1]#_g113958_| (##structure gx#syntax-quote::t 'make-!kw-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222150_| + (define |gxc[1]#_g113960_| (##structure gx#syntax-quote::t '!kw-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222156_| + (define |gxc[1]#_g113966_| (##structure gx#syntax-quote::t '!kw-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222159_| + (define |gxc[1]#_g113969_| (##structure gx#syntax-quote::t '!kw-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222162_| + (define |gxc[1]#_g113972_| (##structure gx#syntax-quote::t '!kw-lambda-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222168_| + (define |gxc[1]#_g113978_| (##structure gx#syntax-quote::t '!kw-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222171_| + (define |gxc[1]#_g113981_| (##structure gx#syntax-quote::t '!kw-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222174_| + (define |gxc[1]#_g113984_| (##structure gx#syntax-quote::t '!kw-lambda-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222180_| + (define |gxc[1]#_g113990_| (##structure gx#syntax-quote::t '&!kw-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222183_| + (define |gxc[1]#_g113993_| (##structure gx#syntax-quote::t '&!kw-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222186_| + (define |gxc[1]#_g113996_| (##structure gx#syntax-quote::t '&!kw-lambda-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222192_| + (define |gxc[1]#_g114002_| (##structure gx#syntax-quote::t '&!kw-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222195_| + (define |gxc[1]#_g114005_| (##structure gx#syntax-quote::t '&!kw-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222198_| + (define |gxc[1]#_g114008_| (##structure gx#syntax-quote::t '&!kw-lambda-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222202_| + (define |gxc[1]#_g114012_| (##structure gx#syntax-quote::t '!kw-lambda-primary::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222204_| + (define |gxc[1]#_g114014_| (##structure gx#syntax-quote::t 'make-!kw-lambda-primary #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222206_| + (define |gxc[1]#_g114016_| (##structure gx#syntax-quote::t '!kw-lambda-primary? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222212_| + (define |gxc[1]#_g114022_| (##structure gx#syntax-quote::t '!kw-lambda-primary-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222215_| + (define |gxc[1]#_g114025_| (##structure gx#syntax-quote::t '!kw-lambda-primary-main #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222218_| + (define |gxc[1]#_g114028_| (##structure gx#syntax-quote::t '!kw-lambda-primary-keys #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222224_| + (define |gxc[1]#_g114034_| (##structure gx#syntax-quote::t '!kw-lambda-primary-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222227_| + (define |gxc[1]#_g114037_| (##structure gx#syntax-quote::t '!kw-lambda-primary-main-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222230_| + (define |gxc[1]#_g114040_| (##structure gx#syntax-quote::t '!kw-lambda-primary-keys-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222236_| + (define |gxc[1]#_g114046_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222239_| + (define |gxc[1]#_g114049_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-main #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222242_| + (define |gxc[1]#_g114052_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-keys #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222248_| + (define |gxc[1]#_g114058_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222251_| + (define |gxc[1]#_g114061_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-main-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222254_| + (define |gxc[1]#_g114064_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-keys-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222256_| + (define |gxc[1]#_g114066_| (##structure gx#syntax-quote::t '!primitive::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222258_| + (define |gxc[1]#_g114068_| (##structure gx#syntax-quote::t 'make-!primitive #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222260_| + (define |gxc[1]#_g114070_| (##structure gx#syntax-quote::t '!primitive? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222264_| + (define |gxc[1]#_g114074_| (##structure gx#syntax-quote::t '!lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222266_| + (define |gxc[1]#_g114076_| (##structure gx#syntax-quote::t '!primitive #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222268_| + (define |gxc[1]#_g114078_| (##structure gx#syntax-quote::t '!primitive-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222270_| + (define |gxc[1]#_g114080_| (##structure gx#syntax-quote::t 'make-!primitive-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222272_| + (define |gxc[1]#_g114082_| (##structure gx#syntax-quote::t '!primitive-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222280_| + (define |gxc[1]#_g114090_| (##structure gx#syntax-quote::t '!primitive-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222283_| + (define |gxc[1]#_g114093_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222286_| + (define |gxc[1]#_g114096_| (##structure gx#syntax-quote::t '!primitive-lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222289_| + (define |gxc[1]#_g114099_| (##structure gx#syntax-quote::t '!primitive-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222292_| + (define |gxc[1]#_g114102_| (##structure gx#syntax-quote::t '!primitive-lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222300_| + (define |gxc[1]#_g114110_| (##structure gx#syntax-quote::t '!primitive-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222303_| + (define |gxc[1]#_g114113_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222306_| + (define |gxc[1]#_g114116_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222309_| + (define |gxc[1]#_g114119_| (##structure gx#syntax-quote::t '!primitive-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222312_| + (define |gxc[1]#_g114122_| (##structure gx#syntax-quote::t '!primitive-lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222320_| + (define |gxc[1]#_g114130_| (##structure gx#syntax-quote::t '&!primitive-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222323_| + (define |gxc[1]#_g114133_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222326_| + (define |gxc[1]#_g114136_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222329_| + (define |gxc[1]#_g114139_| (##structure gx#syntax-quote::t '&!primitive-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222332_| + (define |gxc[1]#_g114142_| (##structure gx#syntax-quote::t '&!primitive-lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222340_| + (define |gxc[1]#_g114150_| (##structure gx#syntax-quote::t '&!primitive-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222343_| + (define |gxc[1]#_g114153_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222346_| + (define |gxc[1]#_g114156_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222349_| + (define |gxc[1]#_g114159_| (##structure gx#syntax-quote::t '&!primitive-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222352_| + (define |gxc[1]#_g114162_| (##structure gx#syntax-quote::t '&!primitive-lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222356_| + (define |gxc[1]#_g114166_| (##structure gx#syntax-quote::t '!case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222359_| + (define |gxc[1]#_g114169_| (##structure gx#syntax-quote::t '!primitive-case-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222361_| + (define |gxc[1]#_g114171_| (##structure gx#syntax-quote::t 'make-!primitive-case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222363_| + (define |gxc[1]#_g114173_| (##structure gx#syntax-quote::t '!primitive-case-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222368_| + (define |gxc[1]#_g114178_| (##structure gx#syntax-quote::t '!primitive-case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222371_| + (define |gxc[1]#_g114181_| (##structure gx#syntax-quote::t '!primitive-case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222376_| + (define |gxc[1]#_g114186_| (##structure gx#syntax-quote::t '!primitive-case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222379_| + (define |gxc[1]#_g114189_| (##structure gx#syntax-quote::t '!primitive-case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222384_| + (define |gxc[1]#_g114194_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222387_| + (define |gxc[1]#_g114197_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222392_| + (define |gxc[1]#_g114202_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g222395_| + (define |gxc[1]#_g114205_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-clauses-set! @@ -1605,7 +1605,7 @@ '())) (begin (define |gxc[:0:]#optimizer-info| - (let ((__obj221398 + (let ((__obj113203 (let () (declare (not safe)) (##structure @@ -1628,7 +1628,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221398 + __obj113203 'gxc#optimizer-info::t '1 gerbil/core$$#class-type-info::t @@ -1636,7 +1636,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221398 + __obj113203 'optimizer-info '2 gerbil/core$$#class-type-info::t @@ -1644,7 +1644,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221398 + __obj113203 '(type ssxi methods) '4 gerbil/core$$#class-type-info::t @@ -1652,7 +1652,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221398 + __obj113203 '() '3 gerbil/core$$#class-type-info::t @@ -1660,7 +1660,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221398 + __obj113203 '#t '5 gerbil/core$$#class-type-info::t @@ -1668,7 +1668,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221398 + __obj113203 '#f '6 gerbil/core$$#class-type-info::t @@ -1676,7 +1676,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221398 + __obj113203 '#f '7 gerbil/core$$#class-type-info::t @@ -1684,150 +1684,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221398 + __obj113203 ':init! '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221561 |gxc[1]#_g221562_|)) + (let ((__tmp113371 |gxc[1]#_g113372_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221398 - __tmp221561 + __obj113203 + __tmp113371 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221563 |gxc[1]#_g221564_|)) + (let ((__tmp113373 |gxc[1]#_g113374_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221398 - __tmp221563 + __obj113203 + __tmp113373 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221565 |gxc[1]#_g221566_|)) + (let ((__tmp113375 |gxc[1]#_g113376_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221398 - __tmp221565 + __obj113203 + __tmp113375 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221567 - (let ((__tmp221576 - (let ((__tmp221577 |gxc[1]#_g221578_|)) + (let ((__tmp113377 + (let ((__tmp113386 + (let ((__tmp113387 |gxc[1]#_g113388_|)) (declare (not safe)) - (cons 'type __tmp221577))) - (__tmp221568 - (let ((__tmp221573 - (let ((__tmp221574 |gxc[1]#_g221575_|)) + (cons 'type __tmp113387))) + (__tmp113378 + (let ((__tmp113383 + (let ((__tmp113384 |gxc[1]#_g113385_|)) (declare (not safe)) - (cons 'ssxi __tmp221574))) - (__tmp221569 - (let ((__tmp221570 - (let ((__tmp221571 |gxc[1]#_g221572_|)) + (cons 'ssxi __tmp113384))) + (__tmp113379 + (let ((__tmp113380 + (let ((__tmp113381 |gxc[1]#_g113382_|)) (declare (not safe)) - (cons 'methods __tmp221571)))) + (cons 'methods __tmp113381)))) (declare (not safe)) - (cons __tmp221570 '())))) + (cons __tmp113380 '())))) (declare (not safe)) - (cons __tmp221573 __tmp221569)))) + (cons __tmp113383 __tmp113379)))) (declare (not safe)) - (cons __tmp221576 __tmp221568)))) + (cons __tmp113386 __tmp113378)))) (declare (not safe)) (##unchecked-structure-set! - __obj221398 - __tmp221567 + __obj113203 + __tmp113377 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221579 - (let ((__tmp221588 - (let ((__tmp221589 |gxc[1]#_g221590_|)) + (let ((__tmp113389 + (let ((__tmp113398 + (let ((__tmp113399 |gxc[1]#_g113400_|)) (declare (not safe)) - (cons 'type __tmp221589))) - (__tmp221580 - (let ((__tmp221585 - (let ((__tmp221586 |gxc[1]#_g221587_|)) + (cons 'type __tmp113399))) + (__tmp113390 + (let ((__tmp113395 + (let ((__tmp113396 |gxc[1]#_g113397_|)) (declare (not safe)) - (cons 'ssxi __tmp221586))) - (__tmp221581 - (let ((__tmp221582 - (let ((__tmp221583 |gxc[1]#_g221584_|)) + (cons 'ssxi __tmp113396))) + (__tmp113391 + (let ((__tmp113392 + (let ((__tmp113393 |gxc[1]#_g113394_|)) (declare (not safe)) - (cons 'methods __tmp221583)))) + (cons 'methods __tmp113393)))) (declare (not safe)) - (cons __tmp221582 '())))) + (cons __tmp113392 '())))) (declare (not safe)) - (cons __tmp221585 __tmp221581)))) + (cons __tmp113395 __tmp113391)))) (declare (not safe)) - (cons __tmp221588 __tmp221580)))) + (cons __tmp113398 __tmp113390)))) (declare (not safe)) (##unchecked-structure-set! - __obj221398 - __tmp221579 + __obj113203 + __tmp113389 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221591 - (let ((__tmp221600 - (let ((__tmp221601 |gxc[1]#_g221602_|)) + (let ((__tmp113401 + (let ((__tmp113410 + (let ((__tmp113411 |gxc[1]#_g113412_|)) (declare (not safe)) - (cons 'type __tmp221601))) - (__tmp221592 - (let ((__tmp221597 - (let ((__tmp221598 |gxc[1]#_g221599_|)) + (cons 'type __tmp113411))) + (__tmp113402 + (let ((__tmp113407 + (let ((__tmp113408 |gxc[1]#_g113409_|)) (declare (not safe)) - (cons 'ssxi __tmp221598))) - (__tmp221593 - (let ((__tmp221594 - (let ((__tmp221595 |gxc[1]#_g221596_|)) + (cons 'ssxi __tmp113408))) + (__tmp113403 + (let ((__tmp113404 + (let ((__tmp113405 |gxc[1]#_g113406_|)) (declare (not safe)) - (cons 'methods __tmp221595)))) + (cons 'methods __tmp113405)))) (declare (not safe)) - (cons __tmp221594 '())))) + (cons __tmp113404 '())))) (declare (not safe)) - (cons __tmp221597 __tmp221593)))) + (cons __tmp113407 __tmp113403)))) (declare (not safe)) - (cons __tmp221600 __tmp221592)))) + (cons __tmp113410 __tmp113402)))) (declare (not safe)) (##unchecked-structure-set! - __obj221398 - __tmp221591 + __obj113203 + __tmp113401 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221603 - (let ((__tmp221612 - (let ((__tmp221613 |gxc[1]#_g221614_|)) + (let ((__tmp113413 + (let ((__tmp113422 + (let ((__tmp113423 |gxc[1]#_g113424_|)) (declare (not safe)) - (cons 'type __tmp221613))) - (__tmp221604 - (let ((__tmp221609 - (let ((__tmp221610 |gxc[1]#_g221611_|)) + (cons 'type __tmp113423))) + (__tmp113414 + (let ((__tmp113419 + (let ((__tmp113420 |gxc[1]#_g113421_|)) (declare (not safe)) - (cons 'ssxi __tmp221610))) - (__tmp221605 - (let ((__tmp221606 - (let ((__tmp221607 |gxc[1]#_g221608_|)) + (cons 'ssxi __tmp113420))) + (__tmp113415 + (let ((__tmp113416 + (let ((__tmp113417 |gxc[1]#_g113418_|)) (declare (not safe)) - (cons 'methods __tmp221607)))) + (cons 'methods __tmp113417)))) (declare (not safe)) - (cons __tmp221606 '())))) + (cons __tmp113416 '())))) (declare (not safe)) - (cons __tmp221609 __tmp221605)))) + (cons __tmp113419 __tmp113415)))) (declare (not safe)) - (cons __tmp221612 __tmp221604)))) + (cons __tmp113422 __tmp113414)))) (declare (not safe)) (##unchecked-structure-set! - __obj221398 - __tmp221603 + __obj113203 + __tmp113413 '15 gerbil/core$$#class-type-info::t '#f)) - __obj221398)) + __obj113203)) (define |gxc[:0:]#!type| - (let ((__obj221399 + (let ((__obj113204 (let () (declare (not safe)) (##structure @@ -1850,7 +1850,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221399 + __obj113204 'gxc#!type::t '1 gerbil/core$$#class-type-info::t @@ -1858,7 +1858,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221399 + __obj113204 '!type '2 gerbil/core$$#class-type-info::t @@ -1866,7 +1866,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221399 + __obj113204 '(id) '4 gerbil/core$$#class-type-info::t @@ -1874,7 +1874,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221399 + __obj113204 '() '3 gerbil/core$$#class-type-info::t @@ -1882,7 +1882,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221399 + __obj113204 '#t '5 gerbil/core$$#class-type-info::t @@ -1890,7 +1890,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221399 + __obj113204 '#f '6 gerbil/core$$#class-type-info::t @@ -1898,7 +1898,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221399 + __obj113204 '#f '7 gerbil/core$$#class-type-info::t @@ -1906,94 +1906,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221399 + __obj113204 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221615 |gxc[1]#_g221616_|)) + (let ((__tmp113425 |gxc[1]#_g113426_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221399 - __tmp221615 + __obj113204 + __tmp113425 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221617 |gxc[1]#_g221618_|)) + (let ((__tmp113427 |gxc[1]#_g113428_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221399 - __tmp221617 + __obj113204 + __tmp113427 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221619 |gxc[1]#_g221620_|)) + (let ((__tmp113429 |gxc[1]#_g113430_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221399 - __tmp221619 + __obj113204 + __tmp113429 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221621 - (let ((__tmp221622 - (let ((__tmp221623 |gxc[1]#_g221624_|)) + (let ((__tmp113431 + (let ((__tmp113432 + (let ((__tmp113433 |gxc[1]#_g113434_|)) (declare (not safe)) - (cons 'id __tmp221623)))) + (cons 'id __tmp113433)))) (declare (not safe)) - (cons __tmp221622 '())))) + (cons __tmp113432 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221399 - __tmp221621 + __obj113204 + __tmp113431 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221625 - (let ((__tmp221626 - (let ((__tmp221627 |gxc[1]#_g221628_|)) + (let ((__tmp113435 + (let ((__tmp113436 + (let ((__tmp113437 |gxc[1]#_g113438_|)) (declare (not safe)) - (cons 'id __tmp221627)))) + (cons 'id __tmp113437)))) (declare (not safe)) - (cons __tmp221626 '())))) + (cons __tmp113436 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221399 - __tmp221625 + __obj113204 + __tmp113435 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221629 - (let ((__tmp221630 - (let ((__tmp221631 |gxc[1]#_g221632_|)) + (let ((__tmp113439 + (let ((__tmp113440 + (let ((__tmp113441 |gxc[1]#_g113442_|)) (declare (not safe)) - (cons 'id __tmp221631)))) + (cons 'id __tmp113441)))) (declare (not safe)) - (cons __tmp221630 '())))) + (cons __tmp113440 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221399 - __tmp221629 + __obj113204 + __tmp113439 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221633 - (let ((__tmp221634 - (let ((__tmp221635 |gxc[1]#_g221636_|)) + (let ((__tmp113443 + (let ((__tmp113444 + (let ((__tmp113445 |gxc[1]#_g113446_|)) (declare (not safe)) - (cons 'id __tmp221635)))) + (cons 'id __tmp113445)))) (declare (not safe)) - (cons __tmp221634 '())))) + (cons __tmp113444 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221399 - __tmp221633 + __obj113204 + __tmp113443 '15 gerbil/core$$#class-type-info::t '#f)) - __obj221399)) + __obj113204)) (define |gxc[:0:]#!alias| - (let ((__obj221400 + (let ((__obj113205 (let () (declare (not safe)) (##structure @@ -2016,7 +2016,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221400 + __obj113205 'gxc#!alias::t '1 gerbil/core$$#class-type-info::t @@ -2024,7 +2024,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221400 + __obj113205 '!alias '2 gerbil/core$$#class-type-info::t @@ -2032,26 +2032,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221400 + __obj113205 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221637 - (let ((__tmp221638 |gxc[1]#_g221639_|)) + (let ((__tmp113447 + (let ((__tmp113448 |gxc[1]#_g113449_|)) (declare (not safe)) - (cons __tmp221638 '())))) + (cons __tmp113448 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221400 - __tmp221637 + __obj113205 + __tmp113447 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj221400 + __obj113205 '#t '5 gerbil/core$$#class-type-info::t @@ -2059,7 +2059,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221400 + __obj113205 '#f '6 gerbil/core$$#class-type-info::t @@ -2067,7 +2067,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221400 + __obj113205 '#f '7 gerbil/core$$#class-type-info::t @@ -2075,94 +2075,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221400 + __obj113205 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221640 |gxc[1]#_g221641_|)) + (let ((__tmp113450 |gxc[1]#_g113451_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221400 - __tmp221640 + __obj113205 + __tmp113450 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221642 |gxc[1]#_g221643_|)) + (let ((__tmp113452 |gxc[1]#_g113453_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221400 - __tmp221642 + __obj113205 + __tmp113452 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221644 |gxc[1]#_g221645_|)) + (let ((__tmp113454 |gxc[1]#_g113455_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221400 - __tmp221644 + __obj113205 + __tmp113454 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221646 - (let ((__tmp221647 - (let ((__tmp221648 |gxc[1]#_g221649_|)) + (let ((__tmp113456 + (let ((__tmp113457 + (let ((__tmp113458 |gxc[1]#_g113459_|)) (declare (not safe)) - (cons 'id __tmp221648)))) + (cons 'id __tmp113458)))) (declare (not safe)) - (cons __tmp221647 '())))) + (cons __tmp113457 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221400 - __tmp221646 + __obj113205 + __tmp113456 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221650 - (let ((__tmp221651 - (let ((__tmp221652 |gxc[1]#_g221653_|)) + (let ((__tmp113460 + (let ((__tmp113461 + (let ((__tmp113462 |gxc[1]#_g113463_|)) (declare (not safe)) - (cons 'id __tmp221652)))) + (cons 'id __tmp113462)))) (declare (not safe)) - (cons __tmp221651 '())))) + (cons __tmp113461 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221400 - __tmp221650 + __obj113205 + __tmp113460 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221654 - (let ((__tmp221655 - (let ((__tmp221656 |gxc[1]#_g221657_|)) + (let ((__tmp113464 + (let ((__tmp113465 + (let ((__tmp113466 |gxc[1]#_g113467_|)) (declare (not safe)) - (cons 'id __tmp221656)))) + (cons 'id __tmp113466)))) (declare (not safe)) - (cons __tmp221655 '())))) + (cons __tmp113465 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221400 - __tmp221654 + __obj113205 + __tmp113464 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221658 - (let ((__tmp221659 - (let ((__tmp221660 |gxc[1]#_g221661_|)) + (let ((__tmp113468 + (let ((__tmp113469 + (let ((__tmp113470 |gxc[1]#_g113471_|)) (declare (not safe)) - (cons 'id __tmp221660)))) + (cons 'id __tmp113470)))) (declare (not safe)) - (cons __tmp221659 '())))) + (cons __tmp113469 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221400 - __tmp221658 + __obj113205 + __tmp113468 '15 gerbil/core$$#class-type-info::t '#f)) - __obj221400)) + __obj113205)) (define |gxc[:0:]#!procedure| - (let ((__obj221401 + (let ((__obj113206 (let () (declare (not safe)) (##structure @@ -2185,7 +2185,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221401 + __obj113206 'gxc#!procedure::t '1 gerbil/core$$#class-type-info::t @@ -2193,7 +2193,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221401 + __obj113206 '!procedure '2 gerbil/core$$#class-type-info::t @@ -2201,26 +2201,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221401 + __obj113206 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221662 - (let ((__tmp221663 |gxc[1]#_g221639_|)) + (let ((__tmp113472 + (let ((__tmp113473 |gxc[1]#_g113449_|)) (declare (not safe)) - (cons __tmp221663 '())))) + (cons __tmp113473 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221401 - __tmp221662 + __obj113206 + __tmp113472 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj221401 + __obj113206 '#t '5 gerbil/core$$#class-type-info::t @@ -2228,7 +2228,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221401 + __obj113206 '#f '6 gerbil/core$$#class-type-info::t @@ -2236,7 +2236,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221401 + __obj113206 '#f '7 gerbil/core$$#class-type-info::t @@ -2244,94 +2244,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221401 + __obj113206 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221664 |gxc[1]#_g221665_|)) + (let ((__tmp113474 |gxc[1]#_g113475_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221401 - __tmp221664 + __obj113206 + __tmp113474 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221666 |gxc[1]#_g221667_|)) + (let ((__tmp113476 |gxc[1]#_g113477_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221401 - __tmp221666 + __obj113206 + __tmp113476 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221668 |gxc[1]#_g221669_|)) + (let ((__tmp113478 |gxc[1]#_g113479_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221401 - __tmp221668 + __obj113206 + __tmp113478 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221670 - (let ((__tmp221671 - (let ((__tmp221672 |gxc[1]#_g221673_|)) + (let ((__tmp113480 + (let ((__tmp113481 + (let ((__tmp113482 |gxc[1]#_g113483_|)) (declare (not safe)) - (cons 'id __tmp221672)))) + (cons 'id __tmp113482)))) (declare (not safe)) - (cons __tmp221671 '())))) + (cons __tmp113481 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221401 - __tmp221670 + __obj113206 + __tmp113480 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221674 - (let ((__tmp221675 - (let ((__tmp221676 |gxc[1]#_g221677_|)) + (let ((__tmp113484 + (let ((__tmp113485 + (let ((__tmp113486 |gxc[1]#_g113487_|)) (declare (not safe)) - (cons 'id __tmp221676)))) + (cons 'id __tmp113486)))) (declare (not safe)) - (cons __tmp221675 '())))) + (cons __tmp113485 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221401 - __tmp221674 + __obj113206 + __tmp113484 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221678 - (let ((__tmp221679 - (let ((__tmp221680 |gxc[1]#_g221681_|)) + (let ((__tmp113488 + (let ((__tmp113489 + (let ((__tmp113490 |gxc[1]#_g113491_|)) (declare (not safe)) - (cons 'id __tmp221680)))) + (cons 'id __tmp113490)))) (declare (not safe)) - (cons __tmp221679 '())))) + (cons __tmp113489 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221401 - __tmp221678 + __obj113206 + __tmp113488 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221682 - (let ((__tmp221683 - (let ((__tmp221684 |gxc[1]#_g221685_|)) + (let ((__tmp113492 + (let ((__tmp113493 + (let ((__tmp113494 |gxc[1]#_g113495_|)) (declare (not safe)) - (cons 'id __tmp221684)))) + (cons 'id __tmp113494)))) (declare (not safe)) - (cons __tmp221683 '())))) + (cons __tmp113493 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221401 - __tmp221682 + __obj113206 + __tmp113492 '15 gerbil/core$$#class-type-info::t '#f)) - __obj221401)) + __obj113206)) (define |gxc[:0:]#!class| - (let ((__obj221402 + (let ((__obj113207 (let () (declare (not safe)) (##structure @@ -2354,7 +2354,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221402 + __obj113207 'gxc#!class::t '1 gerbil/core$$#class-type-info::t @@ -2362,7 +2362,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221402 + __obj113207 '!class '2 gerbil/core$$#class-type-info::t @@ -2370,7 +2370,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221402 + __obj113207 '(super precedence-list slots fields @@ -2382,21 +2382,21 @@ '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221686 - (let ((__tmp221687 |gxc[1]#_g221639_|)) + (let ((__tmp113496 + (let ((__tmp113497 |gxc[1]#_g113449_|)) (declare (not safe)) - (cons __tmp221687 '())))) + (cons __tmp113497 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221402 - __tmp221686 + __obj113207 + __tmp113496 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj221402 + __obj113207 '#t '5 gerbil/core$$#class-type-info::t @@ -2404,7 +2404,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221402 + __obj113207 '#f '6 gerbil/core$$#class-type-info::t @@ -2412,7 +2412,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221402 + __obj113207 '#f '7 gerbil/core$$#class-type-info::t @@ -2420,382 +2420,382 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221402 + __obj113207 ':init! '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221688 |gxc[1]#_g221689_|)) + (let ((__tmp113498 |gxc[1]#_g113499_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221402 - __tmp221688 + __obj113207 + __tmp113498 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221690 |gxc[1]#_g221691_|)) + (let ((__tmp113500 |gxc[1]#_g113501_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221402 - __tmp221690 + __obj113207 + __tmp113500 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221692 |gxc[1]#_g221693_|)) + (let ((__tmp113502 |gxc[1]#_g113503_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221402 - __tmp221692 + __obj113207 + __tmp113502 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221694 - (let ((__tmp221731 - (let ((__tmp221732 |gxc[1]#_g221733_|)) + (let ((__tmp113504 + (let ((__tmp113541 + (let ((__tmp113542 |gxc[1]#_g113543_|)) (declare (not safe)) - (cons 'super __tmp221732))) - (__tmp221695 - (let ((__tmp221728 - (let ((__tmp221729 |gxc[1]#_g221730_|)) + (cons 'super __tmp113542))) + (__tmp113505 + (let ((__tmp113538 + (let ((__tmp113539 |gxc[1]#_g113540_|)) (declare (not safe)) - (cons 'precedence-list __tmp221729))) - (__tmp221696 - (let ((__tmp221725 - (let ((__tmp221726 |gxc[1]#_g221727_|)) + (cons 'precedence-list __tmp113539))) + (__tmp113506 + (let ((__tmp113535 + (let ((__tmp113536 |gxc[1]#_g113537_|)) (declare (not safe)) - (cons 'slots __tmp221726))) - (__tmp221697 - (let ((__tmp221722 - (let ((__tmp221723 - |gxc[1]#_g221724_|)) + (cons 'slots __tmp113536))) + (__tmp113507 + (let ((__tmp113532 + (let ((__tmp113533 + |gxc[1]#_g113534_|)) (declare (not safe)) - (cons 'fields __tmp221723))) - (__tmp221698 - (let ((__tmp221719 - (let ((__tmp221720 - |gxc[1]#_g221721_|)) + (cons 'fields __tmp113533))) + (__tmp113508 + (let ((__tmp113529 + (let ((__tmp113530 + |gxc[1]#_g113531_|)) (declare (not safe)) (cons 'constructor - __tmp221720))) - (__tmp221699 - (let ((__tmp221716 - (let ((__tmp221717 - |gxc[1]#_g221718_|)) + __tmp113530))) + (__tmp113509 + (let ((__tmp113526 + (let ((__tmp113527 + |gxc[1]#_g113528_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp221717))) - (__tmp221700 - (let ((__tmp221713 - (let ((__tmp221714 |gxc[1]#_g221715_|)) + __tmp113527))) + (__tmp113510 + (let ((__tmp113523 + (let ((__tmp113524 |gxc[1]#_g113525_|)) (declare (not safe)) - (cons 'final? __tmp221714))) - (__tmp221701 - (let ((__tmp221710 - (let ((__tmp221711 |gxc[1]#_g221712_|)) + (cons 'final? __tmp113524))) + (__tmp113511 + (let ((__tmp113520 + (let ((__tmp113521 |gxc[1]#_g113522_|)) (declare (not safe)) - (cons 'metaclass __tmp221711))) - (__tmp221702 - (let ((__tmp221707 - (let ((__tmp221708 |gxc[1]#_g221709_|)) + (cons 'metaclass __tmp113521))) + (__tmp113512 + (let ((__tmp113517 + (let ((__tmp113518 |gxc[1]#_g113519_|)) (declare (not safe)) - (cons 'methods __tmp221708))) - (__tmp221703 - (let ((__tmp221704 - (let ((__tmp221705 - |gxc[1]#_g221706_|)) + (cons 'methods __tmp113518))) + (__tmp113513 + (let ((__tmp113514 + (let ((__tmp113515 + |gxc[1]#_g113516_|)) (declare (not safe)) - (cons 'id __tmp221705)))) + (cons 'id __tmp113515)))) (declare (not safe)) - (cons __tmp221704 '())))) + (cons __tmp113514 '())))) (declare (not safe)) - (cons __tmp221707 __tmp221703)))) + (cons __tmp113517 __tmp113513)))) (declare (not safe)) - (cons __tmp221710 __tmp221702)))) + (cons __tmp113520 __tmp113512)))) (declare (not safe)) - (cons __tmp221713 __tmp221701)))) + (cons __tmp113523 __tmp113511)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp221716 - __tmp221700)))) + (cons __tmp113526 + __tmp113510)))) (declare (not safe)) - (cons __tmp221719 __tmp221699)))) + (cons __tmp113529 __tmp113509)))) (declare (not safe)) - (cons __tmp221722 __tmp221698)))) + (cons __tmp113532 __tmp113508)))) (declare (not safe)) - (cons __tmp221725 __tmp221697)))) + (cons __tmp113535 __tmp113507)))) (declare (not safe)) - (cons __tmp221728 __tmp221696)))) + (cons __tmp113538 __tmp113506)))) (declare (not safe)) - (cons __tmp221731 __tmp221695)))) + (cons __tmp113541 __tmp113505)))) (declare (not safe)) (##unchecked-structure-set! - __obj221402 - __tmp221694 + __obj113207 + __tmp113504 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221734 - (let ((__tmp221771 - (let ((__tmp221772 |gxc[1]#_g221773_|)) + (let ((__tmp113544 + (let ((__tmp113581 + (let ((__tmp113582 |gxc[1]#_g113583_|)) (declare (not safe)) - (cons 'super __tmp221772))) - (__tmp221735 - (let ((__tmp221768 - (let ((__tmp221769 |gxc[1]#_g221770_|)) + (cons 'super __tmp113582))) + (__tmp113545 + (let ((__tmp113578 + (let ((__tmp113579 |gxc[1]#_g113580_|)) (declare (not safe)) - (cons 'precedence-list __tmp221769))) - (__tmp221736 - (let ((__tmp221765 - (let ((__tmp221766 |gxc[1]#_g221767_|)) + (cons 'precedence-list __tmp113579))) + (__tmp113546 + (let ((__tmp113575 + (let ((__tmp113576 |gxc[1]#_g113577_|)) (declare (not safe)) - (cons 'slots __tmp221766))) - (__tmp221737 - (let ((__tmp221762 - (let ((__tmp221763 - |gxc[1]#_g221764_|)) + (cons 'slots __tmp113576))) + (__tmp113547 + (let ((__tmp113572 + (let ((__tmp113573 + |gxc[1]#_g113574_|)) (declare (not safe)) - (cons 'fields __tmp221763))) - (__tmp221738 - (let ((__tmp221759 - (let ((__tmp221760 - |gxc[1]#_g221761_|)) + (cons 'fields __tmp113573))) + (__tmp113548 + (let ((__tmp113569 + (let ((__tmp113570 + |gxc[1]#_g113571_|)) (declare (not safe)) (cons 'constructor - __tmp221760))) - (__tmp221739 - (let ((__tmp221756 - (let ((__tmp221757 - |gxc[1]#_g221758_|)) + __tmp113570))) + (__tmp113549 + (let ((__tmp113566 + (let ((__tmp113567 + |gxc[1]#_g113568_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp221757))) - (__tmp221740 - (let ((__tmp221753 - (let ((__tmp221754 |gxc[1]#_g221755_|)) + __tmp113567))) + (__tmp113550 + (let ((__tmp113563 + (let ((__tmp113564 |gxc[1]#_g113565_|)) (declare (not safe)) - (cons 'final? __tmp221754))) - (__tmp221741 - (let ((__tmp221750 - (let ((__tmp221751 |gxc[1]#_g221752_|)) + (cons 'final? __tmp113564))) + (__tmp113551 + (let ((__tmp113560 + (let ((__tmp113561 |gxc[1]#_g113562_|)) (declare (not safe)) - (cons 'metaclass __tmp221751))) - (__tmp221742 - (let ((__tmp221747 - (let ((__tmp221748 |gxc[1]#_g221749_|)) + (cons 'metaclass __tmp113561))) + (__tmp113552 + (let ((__tmp113557 + (let ((__tmp113558 |gxc[1]#_g113559_|)) (declare (not safe)) - (cons 'methods __tmp221748))) - (__tmp221743 - (let ((__tmp221744 - (let ((__tmp221745 - |gxc[1]#_g221746_|)) + (cons 'methods __tmp113558))) + (__tmp113553 + (let ((__tmp113554 + (let ((__tmp113555 + |gxc[1]#_g113556_|)) (declare (not safe)) - (cons 'id __tmp221745)))) + (cons 'id __tmp113555)))) (declare (not safe)) - (cons __tmp221744 '())))) + (cons __tmp113554 '())))) (declare (not safe)) - (cons __tmp221747 __tmp221743)))) + (cons __tmp113557 __tmp113553)))) (declare (not safe)) - (cons __tmp221750 __tmp221742)))) + (cons __tmp113560 __tmp113552)))) (declare (not safe)) - (cons __tmp221753 __tmp221741)))) + (cons __tmp113563 __tmp113551)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp221756 - __tmp221740)))) + (cons __tmp113566 + __tmp113550)))) (declare (not safe)) - (cons __tmp221759 __tmp221739)))) + (cons __tmp113569 __tmp113549)))) (declare (not safe)) - (cons __tmp221762 __tmp221738)))) + (cons __tmp113572 __tmp113548)))) (declare (not safe)) - (cons __tmp221765 __tmp221737)))) + (cons __tmp113575 __tmp113547)))) (declare (not safe)) - (cons __tmp221768 __tmp221736)))) + (cons __tmp113578 __tmp113546)))) (declare (not safe)) - (cons __tmp221771 __tmp221735)))) + (cons __tmp113581 __tmp113545)))) (declare (not safe)) (##unchecked-structure-set! - __obj221402 - __tmp221734 + __obj113207 + __tmp113544 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221774 - (let ((__tmp221811 - (let ((__tmp221812 |gxc[1]#_g221813_|)) + (let ((__tmp113584 + (let ((__tmp113621 + (let ((__tmp113622 |gxc[1]#_g113623_|)) (declare (not safe)) - (cons 'super __tmp221812))) - (__tmp221775 - (let ((__tmp221808 - (let ((__tmp221809 |gxc[1]#_g221810_|)) + (cons 'super __tmp113622))) + (__tmp113585 + (let ((__tmp113618 + (let ((__tmp113619 |gxc[1]#_g113620_|)) (declare (not safe)) - (cons 'precedence-list __tmp221809))) - (__tmp221776 - (let ((__tmp221805 - (let ((__tmp221806 |gxc[1]#_g221807_|)) + (cons 'precedence-list __tmp113619))) + (__tmp113586 + (let ((__tmp113615 + (let ((__tmp113616 |gxc[1]#_g113617_|)) (declare (not safe)) - (cons 'slots __tmp221806))) - (__tmp221777 - (let ((__tmp221802 - (let ((__tmp221803 - |gxc[1]#_g221804_|)) + (cons 'slots __tmp113616))) + (__tmp113587 + (let ((__tmp113612 + (let ((__tmp113613 + |gxc[1]#_g113614_|)) (declare (not safe)) - (cons 'fields __tmp221803))) - (__tmp221778 - (let ((__tmp221799 - (let ((__tmp221800 - |gxc[1]#_g221801_|)) + (cons 'fields __tmp113613))) + (__tmp113588 + (let ((__tmp113609 + (let ((__tmp113610 + |gxc[1]#_g113611_|)) (declare (not safe)) (cons 'constructor - __tmp221800))) - (__tmp221779 - (let ((__tmp221796 - (let ((__tmp221797 - |gxc[1]#_g221798_|)) + __tmp113610))) + (__tmp113589 + (let ((__tmp113606 + (let ((__tmp113607 + |gxc[1]#_g113608_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp221797))) - (__tmp221780 - (let ((__tmp221793 - (let ((__tmp221794 |gxc[1]#_g221795_|)) + __tmp113607))) + (__tmp113590 + (let ((__tmp113603 + (let ((__tmp113604 |gxc[1]#_g113605_|)) (declare (not safe)) - (cons 'final? __tmp221794))) - (__tmp221781 - (let ((__tmp221790 - (let ((__tmp221791 |gxc[1]#_g221792_|)) + (cons 'final? __tmp113604))) + (__tmp113591 + (let ((__tmp113600 + (let ((__tmp113601 |gxc[1]#_g113602_|)) (declare (not safe)) - (cons 'metaclass __tmp221791))) - (__tmp221782 - (let ((__tmp221787 - (let ((__tmp221788 |gxc[1]#_g221789_|)) + (cons 'metaclass __tmp113601))) + (__tmp113592 + (let ((__tmp113597 + (let ((__tmp113598 |gxc[1]#_g113599_|)) (declare (not safe)) - (cons 'methods __tmp221788))) - (__tmp221783 - (let ((__tmp221784 - (let ((__tmp221785 - |gxc[1]#_g221786_|)) + (cons 'methods __tmp113598))) + (__tmp113593 + (let ((__tmp113594 + (let ((__tmp113595 + |gxc[1]#_g113596_|)) (declare (not safe)) - (cons 'id __tmp221785)))) + (cons 'id __tmp113595)))) (declare (not safe)) - (cons __tmp221784 '())))) + (cons __tmp113594 '())))) (declare (not safe)) - (cons __tmp221787 __tmp221783)))) + (cons __tmp113597 __tmp113593)))) (declare (not safe)) - (cons __tmp221790 __tmp221782)))) + (cons __tmp113600 __tmp113592)))) (declare (not safe)) - (cons __tmp221793 __tmp221781)))) + (cons __tmp113603 __tmp113591)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp221796 - __tmp221780)))) + (cons __tmp113606 + __tmp113590)))) (declare (not safe)) - (cons __tmp221799 __tmp221779)))) + (cons __tmp113609 __tmp113589)))) (declare (not safe)) - (cons __tmp221802 __tmp221778)))) + (cons __tmp113612 __tmp113588)))) (declare (not safe)) - (cons __tmp221805 __tmp221777)))) + (cons __tmp113615 __tmp113587)))) (declare (not safe)) - (cons __tmp221808 __tmp221776)))) + (cons __tmp113618 __tmp113586)))) (declare (not safe)) - (cons __tmp221811 __tmp221775)))) + (cons __tmp113621 __tmp113585)))) (declare (not safe)) (##unchecked-structure-set! - __obj221402 - __tmp221774 + __obj113207 + __tmp113584 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221814 - (let ((__tmp221851 - (let ((__tmp221852 |gxc[1]#_g221853_|)) + (let ((__tmp113624 + (let ((__tmp113661 + (let ((__tmp113662 |gxc[1]#_g113663_|)) (declare (not safe)) - (cons 'super __tmp221852))) - (__tmp221815 - (let ((__tmp221848 - (let ((__tmp221849 |gxc[1]#_g221850_|)) + (cons 'super __tmp113662))) + (__tmp113625 + (let ((__tmp113658 + (let ((__tmp113659 |gxc[1]#_g113660_|)) (declare (not safe)) - (cons 'precedence-list __tmp221849))) - (__tmp221816 - (let ((__tmp221845 - (let ((__tmp221846 |gxc[1]#_g221847_|)) + (cons 'precedence-list __tmp113659))) + (__tmp113626 + (let ((__tmp113655 + (let ((__tmp113656 |gxc[1]#_g113657_|)) (declare (not safe)) - (cons 'slots __tmp221846))) - (__tmp221817 - (let ((__tmp221842 - (let ((__tmp221843 - |gxc[1]#_g221844_|)) + (cons 'slots __tmp113656))) + (__tmp113627 + (let ((__tmp113652 + (let ((__tmp113653 + |gxc[1]#_g113654_|)) (declare (not safe)) - (cons 'fields __tmp221843))) - (__tmp221818 - (let ((__tmp221839 - (let ((__tmp221840 - |gxc[1]#_g221841_|)) + (cons 'fields __tmp113653))) + (__tmp113628 + (let ((__tmp113649 + (let ((__tmp113650 + |gxc[1]#_g113651_|)) (declare (not safe)) (cons 'constructor - __tmp221840))) - (__tmp221819 - (let ((__tmp221836 - (let ((__tmp221837 - |gxc[1]#_g221838_|)) + __tmp113650))) + (__tmp113629 + (let ((__tmp113646 + (let ((__tmp113647 + |gxc[1]#_g113648_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp221837))) - (__tmp221820 - (let ((__tmp221833 - (let ((__tmp221834 |gxc[1]#_g221835_|)) + __tmp113647))) + (__tmp113630 + (let ((__tmp113643 + (let ((__tmp113644 |gxc[1]#_g113645_|)) (declare (not safe)) - (cons 'final? __tmp221834))) - (__tmp221821 - (let ((__tmp221830 - (let ((__tmp221831 |gxc[1]#_g221832_|)) + (cons 'final? __tmp113644))) + (__tmp113631 + (let ((__tmp113640 + (let ((__tmp113641 |gxc[1]#_g113642_|)) (declare (not safe)) - (cons 'metaclass __tmp221831))) - (__tmp221822 - (let ((__tmp221827 - (let ((__tmp221828 |gxc[1]#_g221829_|)) + (cons 'metaclass __tmp113641))) + (__tmp113632 + (let ((__tmp113637 + (let ((__tmp113638 |gxc[1]#_g113639_|)) (declare (not safe)) - (cons 'methods __tmp221828))) - (__tmp221823 - (let ((__tmp221824 - (let ((__tmp221825 - |gxc[1]#_g221826_|)) + (cons 'methods __tmp113638))) + (__tmp113633 + (let ((__tmp113634 + (let ((__tmp113635 + |gxc[1]#_g113636_|)) (declare (not safe)) - (cons 'id __tmp221825)))) + (cons 'id __tmp113635)))) (declare (not safe)) - (cons __tmp221824 '())))) + (cons __tmp113634 '())))) (declare (not safe)) - (cons __tmp221827 __tmp221823)))) + (cons __tmp113637 __tmp113633)))) (declare (not safe)) - (cons __tmp221830 __tmp221822)))) + (cons __tmp113640 __tmp113632)))) (declare (not safe)) - (cons __tmp221833 __tmp221821)))) + (cons __tmp113643 __tmp113631)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp221836 - __tmp221820)))) + (cons __tmp113646 + __tmp113630)))) (declare (not safe)) - (cons __tmp221839 __tmp221819)))) + (cons __tmp113649 __tmp113629)))) (declare (not safe)) - (cons __tmp221842 __tmp221818)))) + (cons __tmp113652 __tmp113628)))) (declare (not safe)) - (cons __tmp221845 __tmp221817)))) + (cons __tmp113655 __tmp113627)))) (declare (not safe)) - (cons __tmp221848 __tmp221816)))) + (cons __tmp113658 __tmp113626)))) (declare (not safe)) - (cons __tmp221851 __tmp221815)))) + (cons __tmp113661 __tmp113625)))) (declare (not safe)) (##unchecked-structure-set! - __obj221402 - __tmp221814 + __obj113207 + __tmp113624 '15 gerbil/core$$#class-type-info::t '#f)) - __obj221402)) + __obj113207)) (define |gxc[:0:]#!predicate| - (let ((__obj221403 + (let ((__obj113208 (let () (declare (not safe)) (##structure @@ -2818,7 +2818,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221403 + __obj113208 'gxc#!predicate::t '1 gerbil/core$$#class-type-info::t @@ -2826,7 +2826,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221403 + __obj113208 '!predicate '2 gerbil/core$$#class-type-info::t @@ -2834,26 +2834,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221403 + __obj113208 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221854 - (let ((__tmp221855 |gxc[1]#_g221856_|)) + (let ((__tmp113664 + (let ((__tmp113665 |gxc[1]#_g113666_|)) (declare (not safe)) - (cons __tmp221855 '())))) + (cons __tmp113665 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221403 - __tmp221854 + __obj113208 + __tmp113664 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj221403 + __obj113208 '#t '5 gerbil/core$$#class-type-info::t @@ -2861,7 +2861,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221403 + __obj113208 '#f '6 gerbil/core$$#class-type-info::t @@ -2869,7 +2869,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221403 + __obj113208 '#f '7 gerbil/core$$#class-type-info::t @@ -2877,94 +2877,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221403 + __obj113208 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221857 |gxc[1]#_g221858_|)) + (let ((__tmp113667 |gxc[1]#_g113668_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221403 - __tmp221857 + __obj113208 + __tmp113667 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221859 |gxc[1]#_g221860_|)) + (let ((__tmp113669 |gxc[1]#_g113670_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221403 - __tmp221859 + __obj113208 + __tmp113669 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221861 |gxc[1]#_g221862_|)) + (let ((__tmp113671 |gxc[1]#_g113672_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221403 - __tmp221861 + __obj113208 + __tmp113671 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221863 - (let ((__tmp221864 - (let ((__tmp221865 |gxc[1]#_g221866_|)) + (let ((__tmp113673 + (let ((__tmp113674 + (let ((__tmp113675 |gxc[1]#_g113676_|)) (declare (not safe)) - (cons 'id __tmp221865)))) + (cons 'id __tmp113675)))) (declare (not safe)) - (cons __tmp221864 '())))) + (cons __tmp113674 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221403 - __tmp221863 + __obj113208 + __tmp113673 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221867 - (let ((__tmp221868 - (let ((__tmp221869 |gxc[1]#_g221870_|)) + (let ((__tmp113677 + (let ((__tmp113678 + (let ((__tmp113679 |gxc[1]#_g113680_|)) (declare (not safe)) - (cons 'id __tmp221869)))) + (cons 'id __tmp113679)))) (declare (not safe)) - (cons __tmp221868 '())))) + (cons __tmp113678 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221403 - __tmp221867 + __obj113208 + __tmp113677 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221871 - (let ((__tmp221872 - (let ((__tmp221873 |gxc[1]#_g221874_|)) + (let ((__tmp113681 + (let ((__tmp113682 + (let ((__tmp113683 |gxc[1]#_g113684_|)) (declare (not safe)) - (cons 'id __tmp221873)))) + (cons 'id __tmp113683)))) (declare (not safe)) - (cons __tmp221872 '())))) + (cons __tmp113682 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221403 - __tmp221871 + __obj113208 + __tmp113681 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221875 - (let ((__tmp221876 - (let ((__tmp221877 |gxc[1]#_g221878_|)) + (let ((__tmp113685 + (let ((__tmp113686 + (let ((__tmp113687 |gxc[1]#_g113688_|)) (declare (not safe)) - (cons 'id __tmp221877)))) + (cons 'id __tmp113687)))) (declare (not safe)) - (cons __tmp221876 '())))) + (cons __tmp113686 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221403 - __tmp221875 + __obj113208 + __tmp113685 '15 gerbil/core$$#class-type-info::t '#f)) - __obj221403)) + __obj113208)) (define |gxc[:0:]#!constructor| - (let ((__obj221404 + (let ((__obj113209 (let () (declare (not safe)) (##structure @@ -2987,7 +2987,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221404 + __obj113209 'gxc#!constructor::t '1 gerbil/core$$#class-type-info::t @@ -2995,7 +2995,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221404 + __obj113209 '!constructor '2 gerbil/core$$#class-type-info::t @@ -3003,26 +3003,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221404 + __obj113209 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221879 - (let ((__tmp221880 |gxc[1]#_g221856_|)) + (let ((__tmp113689 + (let ((__tmp113690 |gxc[1]#_g113666_|)) (declare (not safe)) - (cons __tmp221880 '())))) + (cons __tmp113690 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221404 - __tmp221879 + __obj113209 + __tmp113689 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj221404 + __obj113209 '#t '5 gerbil/core$$#class-type-info::t @@ -3030,7 +3030,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221404 + __obj113209 '#f '6 gerbil/core$$#class-type-info::t @@ -3038,7 +3038,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221404 + __obj113209 '#f '7 gerbil/core$$#class-type-info::t @@ -3046,94 +3046,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221404 + __obj113209 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221881 |gxc[1]#_g221882_|)) + (let ((__tmp113691 |gxc[1]#_g113692_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221404 - __tmp221881 + __obj113209 + __tmp113691 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221883 |gxc[1]#_g221884_|)) + (let ((__tmp113693 |gxc[1]#_g113694_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221404 - __tmp221883 + __obj113209 + __tmp113693 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221885 |gxc[1]#_g221886_|)) + (let ((__tmp113695 |gxc[1]#_g113696_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221404 - __tmp221885 + __obj113209 + __tmp113695 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221887 - (let ((__tmp221888 - (let ((__tmp221889 |gxc[1]#_g221890_|)) + (let ((__tmp113697 + (let ((__tmp113698 + (let ((__tmp113699 |gxc[1]#_g113700_|)) (declare (not safe)) - (cons 'id __tmp221889)))) + (cons 'id __tmp113699)))) (declare (not safe)) - (cons __tmp221888 '())))) + (cons __tmp113698 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221404 - __tmp221887 + __obj113209 + __tmp113697 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221891 - (let ((__tmp221892 - (let ((__tmp221893 |gxc[1]#_g221894_|)) + (let ((__tmp113701 + (let ((__tmp113702 + (let ((__tmp113703 |gxc[1]#_g113704_|)) (declare (not safe)) - (cons 'id __tmp221893)))) + (cons 'id __tmp113703)))) (declare (not safe)) - (cons __tmp221892 '())))) + (cons __tmp113702 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221404 - __tmp221891 + __obj113209 + __tmp113701 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221895 - (let ((__tmp221896 - (let ((__tmp221897 |gxc[1]#_g221898_|)) + (let ((__tmp113705 + (let ((__tmp113706 + (let ((__tmp113707 |gxc[1]#_g113708_|)) (declare (not safe)) - (cons 'id __tmp221897)))) + (cons 'id __tmp113707)))) (declare (not safe)) - (cons __tmp221896 '())))) + (cons __tmp113706 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221404 - __tmp221895 + __obj113209 + __tmp113705 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221899 - (let ((__tmp221900 - (let ((__tmp221901 |gxc[1]#_g221902_|)) + (let ((__tmp113709 + (let ((__tmp113710 + (let ((__tmp113711 |gxc[1]#_g113712_|)) (declare (not safe)) - (cons 'id __tmp221901)))) + (cons 'id __tmp113711)))) (declare (not safe)) - (cons __tmp221900 '())))) + (cons __tmp113710 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221404 - __tmp221899 + __obj113209 + __tmp113709 '15 gerbil/core$$#class-type-info::t '#f)) - __obj221404)) + __obj113209)) (define |gxc[:0:]#!accessor| - (let ((__obj221405 + (let ((__obj113210 (let () (declare (not safe)) (##structure @@ -3156,7 +3156,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221405 + __obj113210 'gxc#!accessor::t '1 gerbil/core$$#class-type-info::t @@ -3164,7 +3164,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221405 + __obj113210 '!accessor '2 gerbil/core$$#class-type-info::t @@ -3172,26 +3172,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221405 + __obj113210 '(slot checked?) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221903 - (let ((__tmp221904 |gxc[1]#_g221856_|)) + (let ((__tmp113713 + (let ((__tmp113714 |gxc[1]#_g113666_|)) (declare (not safe)) - (cons __tmp221904 '())))) + (cons __tmp113714 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221405 - __tmp221903 + __obj113210 + __tmp113713 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj221405 + __obj113210 '#t '5 gerbil/core$$#class-type-info::t @@ -3199,7 +3199,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221405 + __obj113210 '#f '6 gerbil/core$$#class-type-info::t @@ -3207,7 +3207,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221405 + __obj113210 '#f '7 gerbil/core$$#class-type-info::t @@ -3215,150 +3215,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221405 + __obj113210 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221905 |gxc[1]#_g221906_|)) + (let ((__tmp113715 |gxc[1]#_g113716_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221405 - __tmp221905 + __obj113210 + __tmp113715 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221907 |gxc[1]#_g221908_|)) + (let ((__tmp113717 |gxc[1]#_g113718_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221405 - __tmp221907 + __obj113210 + __tmp113717 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221909 |gxc[1]#_g221910_|)) + (let ((__tmp113719 |gxc[1]#_g113720_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221405 - __tmp221909 + __obj113210 + __tmp113719 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221911 - (let ((__tmp221920 - (let ((__tmp221921 |gxc[1]#_g221922_|)) + (let ((__tmp113721 + (let ((__tmp113730 + (let ((__tmp113731 |gxc[1]#_g113732_|)) (declare (not safe)) - (cons 'slot __tmp221921))) - (__tmp221912 - (let ((__tmp221917 - (let ((__tmp221918 |gxc[1]#_g221919_|)) + (cons 'slot __tmp113731))) + (__tmp113722 + (let ((__tmp113727 + (let ((__tmp113728 |gxc[1]#_g113729_|)) (declare (not safe)) - (cons 'checked? __tmp221918))) - (__tmp221913 - (let ((__tmp221914 - (let ((__tmp221915 |gxc[1]#_g221916_|)) + (cons 'checked? __tmp113728))) + (__tmp113723 + (let ((__tmp113724 + (let ((__tmp113725 |gxc[1]#_g113726_|)) (declare (not safe)) - (cons 'id __tmp221915)))) + (cons 'id __tmp113725)))) (declare (not safe)) - (cons __tmp221914 '())))) + (cons __tmp113724 '())))) (declare (not safe)) - (cons __tmp221917 __tmp221913)))) + (cons __tmp113727 __tmp113723)))) (declare (not safe)) - (cons __tmp221920 __tmp221912)))) + (cons __tmp113730 __tmp113722)))) (declare (not safe)) (##unchecked-structure-set! - __obj221405 - __tmp221911 + __obj113210 + __tmp113721 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221923 - (let ((__tmp221932 - (let ((__tmp221933 |gxc[1]#_g221934_|)) + (let ((__tmp113733 + (let ((__tmp113742 + (let ((__tmp113743 |gxc[1]#_g113744_|)) (declare (not safe)) - (cons 'slot __tmp221933))) - (__tmp221924 - (let ((__tmp221929 - (let ((__tmp221930 |gxc[1]#_g221931_|)) + (cons 'slot __tmp113743))) + (__tmp113734 + (let ((__tmp113739 + (let ((__tmp113740 |gxc[1]#_g113741_|)) (declare (not safe)) - (cons 'checked? __tmp221930))) - (__tmp221925 - (let ((__tmp221926 - (let ((__tmp221927 |gxc[1]#_g221928_|)) + (cons 'checked? __tmp113740))) + (__tmp113735 + (let ((__tmp113736 + (let ((__tmp113737 |gxc[1]#_g113738_|)) (declare (not safe)) - (cons 'id __tmp221927)))) + (cons 'id __tmp113737)))) (declare (not safe)) - (cons __tmp221926 '())))) + (cons __tmp113736 '())))) (declare (not safe)) - (cons __tmp221929 __tmp221925)))) + (cons __tmp113739 __tmp113735)))) (declare (not safe)) - (cons __tmp221932 __tmp221924)))) + (cons __tmp113742 __tmp113734)))) (declare (not safe)) (##unchecked-structure-set! - __obj221405 - __tmp221923 + __obj113210 + __tmp113733 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221935 - (let ((__tmp221944 - (let ((__tmp221945 |gxc[1]#_g221946_|)) + (let ((__tmp113745 + (let ((__tmp113754 + (let ((__tmp113755 |gxc[1]#_g113756_|)) (declare (not safe)) - (cons 'slot __tmp221945))) - (__tmp221936 - (let ((__tmp221941 - (let ((__tmp221942 |gxc[1]#_g221943_|)) + (cons 'slot __tmp113755))) + (__tmp113746 + (let ((__tmp113751 + (let ((__tmp113752 |gxc[1]#_g113753_|)) (declare (not safe)) - (cons 'checked? __tmp221942))) - (__tmp221937 - (let ((__tmp221938 - (let ((__tmp221939 |gxc[1]#_g221940_|)) + (cons 'checked? __tmp113752))) + (__tmp113747 + (let ((__tmp113748 + (let ((__tmp113749 |gxc[1]#_g113750_|)) (declare (not safe)) - (cons 'id __tmp221939)))) + (cons 'id __tmp113749)))) (declare (not safe)) - (cons __tmp221938 '())))) + (cons __tmp113748 '())))) (declare (not safe)) - (cons __tmp221941 __tmp221937)))) + (cons __tmp113751 __tmp113747)))) (declare (not safe)) - (cons __tmp221944 __tmp221936)))) + (cons __tmp113754 __tmp113746)))) (declare (not safe)) (##unchecked-structure-set! - __obj221405 - __tmp221935 + __obj113210 + __tmp113745 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221947 - (let ((__tmp221956 - (let ((__tmp221957 |gxc[1]#_g221958_|)) + (let ((__tmp113757 + (let ((__tmp113766 + (let ((__tmp113767 |gxc[1]#_g113768_|)) (declare (not safe)) - (cons 'slot __tmp221957))) - (__tmp221948 - (let ((__tmp221953 - (let ((__tmp221954 |gxc[1]#_g221955_|)) + (cons 'slot __tmp113767))) + (__tmp113758 + (let ((__tmp113763 + (let ((__tmp113764 |gxc[1]#_g113765_|)) (declare (not safe)) - (cons 'checked? __tmp221954))) - (__tmp221949 - (let ((__tmp221950 - (let ((__tmp221951 |gxc[1]#_g221952_|)) + (cons 'checked? __tmp113764))) + (__tmp113759 + (let ((__tmp113760 + (let ((__tmp113761 |gxc[1]#_g113762_|)) (declare (not safe)) - (cons 'id __tmp221951)))) + (cons 'id __tmp113761)))) (declare (not safe)) - (cons __tmp221950 '())))) + (cons __tmp113760 '())))) (declare (not safe)) - (cons __tmp221953 __tmp221949)))) + (cons __tmp113763 __tmp113759)))) (declare (not safe)) - (cons __tmp221956 __tmp221948)))) + (cons __tmp113766 __tmp113758)))) (declare (not safe)) (##unchecked-structure-set! - __obj221405 - __tmp221947 + __obj113210 + __tmp113757 '15 gerbil/core$$#class-type-info::t '#f)) - __obj221405)) + __obj113210)) (define |gxc[:0:]#!mutator| - (let ((__obj221406 + (let ((__obj113211 (let () (declare (not safe)) (##structure @@ -3381,7 +3381,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221406 + __obj113211 'gxc#!mutator::t '1 gerbil/core$$#class-type-info::t @@ -3389,7 +3389,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221406 + __obj113211 '!mutator '2 gerbil/core$$#class-type-info::t @@ -3397,26 +3397,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221406 + __obj113211 '(slot checked?) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221959 - (let ((__tmp221960 |gxc[1]#_g221856_|)) + (let ((__tmp113769 + (let ((__tmp113770 |gxc[1]#_g113666_|)) (declare (not safe)) - (cons __tmp221960 '())))) + (cons __tmp113770 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221406 - __tmp221959 + __obj113211 + __tmp113769 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj221406 + __obj113211 '#t '5 gerbil/core$$#class-type-info::t @@ -3424,7 +3424,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221406 + __obj113211 '#f '6 gerbil/core$$#class-type-info::t @@ -3432,7 +3432,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221406 + __obj113211 '#f '7 gerbil/core$$#class-type-info::t @@ -3440,150 +3440,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221406 + __obj113211 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221961 |gxc[1]#_g221962_|)) + (let ((__tmp113771 |gxc[1]#_g113772_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221406 - __tmp221961 + __obj113211 + __tmp113771 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221963 |gxc[1]#_g221964_|)) + (let ((__tmp113773 |gxc[1]#_g113774_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221406 - __tmp221963 + __obj113211 + __tmp113773 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221965 |gxc[1]#_g221966_|)) + (let ((__tmp113775 |gxc[1]#_g113776_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221406 - __tmp221965 + __obj113211 + __tmp113775 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221967 - (let ((__tmp221976 - (let ((__tmp221977 |gxc[1]#_g221978_|)) + (let ((__tmp113777 + (let ((__tmp113786 + (let ((__tmp113787 |gxc[1]#_g113788_|)) (declare (not safe)) - (cons 'slot __tmp221977))) - (__tmp221968 - (let ((__tmp221973 - (let ((__tmp221974 |gxc[1]#_g221975_|)) + (cons 'slot __tmp113787))) + (__tmp113778 + (let ((__tmp113783 + (let ((__tmp113784 |gxc[1]#_g113785_|)) (declare (not safe)) - (cons 'checked? __tmp221974))) - (__tmp221969 - (let ((__tmp221970 - (let ((__tmp221971 |gxc[1]#_g221972_|)) + (cons 'checked? __tmp113784))) + (__tmp113779 + (let ((__tmp113780 + (let ((__tmp113781 |gxc[1]#_g113782_|)) (declare (not safe)) - (cons 'id __tmp221971)))) + (cons 'id __tmp113781)))) (declare (not safe)) - (cons __tmp221970 '())))) + (cons __tmp113780 '())))) (declare (not safe)) - (cons __tmp221973 __tmp221969)))) + (cons __tmp113783 __tmp113779)))) (declare (not safe)) - (cons __tmp221976 __tmp221968)))) + (cons __tmp113786 __tmp113778)))) (declare (not safe)) (##unchecked-structure-set! - __obj221406 - __tmp221967 + __obj113211 + __tmp113777 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221979 - (let ((__tmp221988 - (let ((__tmp221989 |gxc[1]#_g221990_|)) + (let ((__tmp113789 + (let ((__tmp113798 + (let ((__tmp113799 |gxc[1]#_g113800_|)) (declare (not safe)) - (cons 'slot __tmp221989))) - (__tmp221980 - (let ((__tmp221985 - (let ((__tmp221986 |gxc[1]#_g221987_|)) + (cons 'slot __tmp113799))) + (__tmp113790 + (let ((__tmp113795 + (let ((__tmp113796 |gxc[1]#_g113797_|)) (declare (not safe)) - (cons 'checked? __tmp221986))) - (__tmp221981 - (let ((__tmp221982 - (let ((__tmp221983 |gxc[1]#_g221984_|)) + (cons 'checked? __tmp113796))) + (__tmp113791 + (let ((__tmp113792 + (let ((__tmp113793 |gxc[1]#_g113794_|)) (declare (not safe)) - (cons 'id __tmp221983)))) + (cons 'id __tmp113793)))) (declare (not safe)) - (cons __tmp221982 '())))) + (cons __tmp113792 '())))) (declare (not safe)) - (cons __tmp221985 __tmp221981)))) + (cons __tmp113795 __tmp113791)))) (declare (not safe)) - (cons __tmp221988 __tmp221980)))) + (cons __tmp113798 __tmp113790)))) (declare (not safe)) (##unchecked-structure-set! - __obj221406 - __tmp221979 + __obj113211 + __tmp113789 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221991 - (let ((__tmp222000 - (let ((__tmp222001 |gxc[1]#_g222002_|)) + (let ((__tmp113801 + (let ((__tmp113810 + (let ((__tmp113811 |gxc[1]#_g113812_|)) (declare (not safe)) - (cons 'slot __tmp222001))) - (__tmp221992 - (let ((__tmp221997 - (let ((__tmp221998 |gxc[1]#_g221999_|)) + (cons 'slot __tmp113811))) + (__tmp113802 + (let ((__tmp113807 + (let ((__tmp113808 |gxc[1]#_g113809_|)) (declare (not safe)) - (cons 'checked? __tmp221998))) - (__tmp221993 - (let ((__tmp221994 - (let ((__tmp221995 |gxc[1]#_g221996_|)) + (cons 'checked? __tmp113808))) + (__tmp113803 + (let ((__tmp113804 + (let ((__tmp113805 |gxc[1]#_g113806_|)) (declare (not safe)) - (cons 'id __tmp221995)))) + (cons 'id __tmp113805)))) (declare (not safe)) - (cons __tmp221994 '())))) + (cons __tmp113804 '())))) (declare (not safe)) - (cons __tmp221997 __tmp221993)))) + (cons __tmp113807 __tmp113803)))) (declare (not safe)) - (cons __tmp222000 __tmp221992)))) + (cons __tmp113810 __tmp113802)))) (declare (not safe)) (##unchecked-structure-set! - __obj221406 - __tmp221991 + __obj113211 + __tmp113801 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222003 - (let ((__tmp222012 - (let ((__tmp222013 |gxc[1]#_g222014_|)) + (let ((__tmp113813 + (let ((__tmp113822 + (let ((__tmp113823 |gxc[1]#_g113824_|)) (declare (not safe)) - (cons 'slot __tmp222013))) - (__tmp222004 - (let ((__tmp222009 - (let ((__tmp222010 |gxc[1]#_g222011_|)) + (cons 'slot __tmp113823))) + (__tmp113814 + (let ((__tmp113819 + (let ((__tmp113820 |gxc[1]#_g113821_|)) (declare (not safe)) - (cons 'checked? __tmp222010))) - (__tmp222005 - (let ((__tmp222006 - (let ((__tmp222007 |gxc[1]#_g222008_|)) + (cons 'checked? __tmp113820))) + (__tmp113815 + (let ((__tmp113816 + (let ((__tmp113817 |gxc[1]#_g113818_|)) (declare (not safe)) - (cons 'id __tmp222007)))) + (cons 'id __tmp113817)))) (declare (not safe)) - (cons __tmp222006 '())))) + (cons __tmp113816 '())))) (declare (not safe)) - (cons __tmp222009 __tmp222005)))) + (cons __tmp113819 __tmp113815)))) (declare (not safe)) - (cons __tmp222012 __tmp222004)))) + (cons __tmp113822 __tmp113814)))) (declare (not safe)) (##unchecked-structure-set! - __obj221406 - __tmp222003 + __obj113211 + __tmp113813 '15 gerbil/core$$#class-type-info::t '#f)) - __obj221406)) + __obj113211)) (define |gxc[:0:]#!lambda| - (let ((__obj221407 + (let ((__obj113212 (let () (declare (not safe)) (##structure @@ -3606,7 +3606,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221407 + __obj113212 'gxc#!lambda::t '1 gerbil/core$$#class-type-info::t @@ -3614,7 +3614,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221407 + __obj113212 '!lambda '2 gerbil/core$$#class-type-info::t @@ -3622,26 +3622,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221407 + __obj113212 '(arity dispatch inline inline-typedecl) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222015 - (let ((__tmp222016 |gxc[1]#_g221856_|)) + (let ((__tmp113825 + (let ((__tmp113826 |gxc[1]#_g113666_|)) (declare (not safe)) - (cons __tmp222016 '())))) + (cons __tmp113826 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221407 - __tmp222015 + __obj113212 + __tmp113825 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj221407 + __obj113212 '#t '5 gerbil/core$$#class-type-info::t @@ -3649,7 +3649,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221407 + __obj113212 '#f '6 gerbil/core$$#class-type-info::t @@ -3657,7 +3657,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221407 + __obj113212 '#f '7 gerbil/core$$#class-type-info::t @@ -3665,218 +3665,218 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221407 + __obj113212 ':init! '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222017 |gxc[1]#_g222018_|)) + (let ((__tmp113827 |gxc[1]#_g113828_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221407 - __tmp222017 + __obj113212 + __tmp113827 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222019 |gxc[1]#_g222020_|)) + (let ((__tmp113829 |gxc[1]#_g113830_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221407 - __tmp222019 + __obj113212 + __tmp113829 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222021 |gxc[1]#_g222022_|)) + (let ((__tmp113831 |gxc[1]#_g113832_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221407 - __tmp222021 + __obj113212 + __tmp113831 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222023 - (let ((__tmp222040 - (let ((__tmp222041 |gxc[1]#_g222042_|)) + (let ((__tmp113833 + (let ((__tmp113850 + (let ((__tmp113851 |gxc[1]#_g113852_|)) (declare (not safe)) - (cons 'arity __tmp222041))) - (__tmp222024 - (let ((__tmp222037 - (let ((__tmp222038 |gxc[1]#_g222039_|)) + (cons 'arity __tmp113851))) + (__tmp113834 + (let ((__tmp113847 + (let ((__tmp113848 |gxc[1]#_g113849_|)) (declare (not safe)) - (cons 'dispatch __tmp222038))) - (__tmp222025 - (let ((__tmp222034 - (let ((__tmp222035 |gxc[1]#_g222036_|)) + (cons 'dispatch __tmp113848))) + (__tmp113835 + (let ((__tmp113844 + (let ((__tmp113845 |gxc[1]#_g113846_|)) (declare (not safe)) - (cons 'inline __tmp222035))) - (__tmp222026 - (let ((__tmp222031 - (let ((__tmp222032 - |gxc[1]#_g222033_|)) + (cons 'inline __tmp113845))) + (__tmp113836 + (let ((__tmp113841 + (let ((__tmp113842 + |gxc[1]#_g113843_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp222032))) - (__tmp222027 - (let ((__tmp222028 - (let ((__tmp222029 - |gxc[1]#_g222030_|)) + __tmp113842))) + (__tmp113837 + (let ((__tmp113838 + (let ((__tmp113839 + |gxc[1]#_g113840_|)) (declare (not safe)) - (cons 'id __tmp222029)))) + (cons 'id __tmp113839)))) (declare (not safe)) - (cons __tmp222028 '())))) + (cons __tmp113838 '())))) (declare (not safe)) - (cons __tmp222031 __tmp222027)))) + (cons __tmp113841 __tmp113837)))) (declare (not safe)) - (cons __tmp222034 __tmp222026)))) + (cons __tmp113844 __tmp113836)))) (declare (not safe)) - (cons __tmp222037 __tmp222025)))) + (cons __tmp113847 __tmp113835)))) (declare (not safe)) - (cons __tmp222040 __tmp222024)))) + (cons __tmp113850 __tmp113834)))) (declare (not safe)) (##unchecked-structure-set! - __obj221407 - __tmp222023 + __obj113212 + __tmp113833 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222043 - (let ((__tmp222060 - (let ((__tmp222061 |gxc[1]#_g222062_|)) + (let ((__tmp113853 + (let ((__tmp113870 + (let ((__tmp113871 |gxc[1]#_g113872_|)) (declare (not safe)) - (cons 'arity __tmp222061))) - (__tmp222044 - (let ((__tmp222057 - (let ((__tmp222058 |gxc[1]#_g222059_|)) + (cons 'arity __tmp113871))) + (__tmp113854 + (let ((__tmp113867 + (let ((__tmp113868 |gxc[1]#_g113869_|)) (declare (not safe)) - (cons 'dispatch __tmp222058))) - (__tmp222045 - (let ((__tmp222054 - (let ((__tmp222055 |gxc[1]#_g222056_|)) + (cons 'dispatch __tmp113868))) + (__tmp113855 + (let ((__tmp113864 + (let ((__tmp113865 |gxc[1]#_g113866_|)) (declare (not safe)) - (cons 'inline __tmp222055))) - (__tmp222046 - (let ((__tmp222051 - (let ((__tmp222052 - |gxc[1]#_g222053_|)) + (cons 'inline __tmp113865))) + (__tmp113856 + (let ((__tmp113861 + (let ((__tmp113862 + |gxc[1]#_g113863_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp222052))) - (__tmp222047 - (let ((__tmp222048 - (let ((__tmp222049 - |gxc[1]#_g222050_|)) + __tmp113862))) + (__tmp113857 + (let ((__tmp113858 + (let ((__tmp113859 + |gxc[1]#_g113860_|)) (declare (not safe)) - (cons 'id __tmp222049)))) + (cons 'id __tmp113859)))) (declare (not safe)) - (cons __tmp222048 '())))) + (cons __tmp113858 '())))) (declare (not safe)) - (cons __tmp222051 __tmp222047)))) + (cons __tmp113861 __tmp113857)))) (declare (not safe)) - (cons __tmp222054 __tmp222046)))) + (cons __tmp113864 __tmp113856)))) (declare (not safe)) - (cons __tmp222057 __tmp222045)))) + (cons __tmp113867 __tmp113855)))) (declare (not safe)) - (cons __tmp222060 __tmp222044)))) + (cons __tmp113870 __tmp113854)))) (declare (not safe)) (##unchecked-structure-set! - __obj221407 - __tmp222043 + __obj113212 + __tmp113853 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222063 - (let ((__tmp222080 - (let ((__tmp222081 |gxc[1]#_g222082_|)) + (let ((__tmp113873 + (let ((__tmp113890 + (let ((__tmp113891 |gxc[1]#_g113892_|)) (declare (not safe)) - (cons 'arity __tmp222081))) - (__tmp222064 - (let ((__tmp222077 - (let ((__tmp222078 |gxc[1]#_g222079_|)) + (cons 'arity __tmp113891))) + (__tmp113874 + (let ((__tmp113887 + (let ((__tmp113888 |gxc[1]#_g113889_|)) (declare (not safe)) - (cons 'dispatch __tmp222078))) - (__tmp222065 - (let ((__tmp222074 - (let ((__tmp222075 |gxc[1]#_g222076_|)) + (cons 'dispatch __tmp113888))) + (__tmp113875 + (let ((__tmp113884 + (let ((__tmp113885 |gxc[1]#_g113886_|)) (declare (not safe)) - (cons 'inline __tmp222075))) - (__tmp222066 - (let ((__tmp222071 - (let ((__tmp222072 - |gxc[1]#_g222073_|)) + (cons 'inline __tmp113885))) + (__tmp113876 + (let ((__tmp113881 + (let ((__tmp113882 + |gxc[1]#_g113883_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp222072))) - (__tmp222067 - (let ((__tmp222068 - (let ((__tmp222069 - |gxc[1]#_g222070_|)) + __tmp113882))) + (__tmp113877 + (let ((__tmp113878 + (let ((__tmp113879 + |gxc[1]#_g113880_|)) (declare (not safe)) - (cons 'id __tmp222069)))) + (cons 'id __tmp113879)))) (declare (not safe)) - (cons __tmp222068 '())))) + (cons __tmp113878 '())))) (declare (not safe)) - (cons __tmp222071 __tmp222067)))) + (cons __tmp113881 __tmp113877)))) (declare (not safe)) - (cons __tmp222074 __tmp222066)))) + (cons __tmp113884 __tmp113876)))) (declare (not safe)) - (cons __tmp222077 __tmp222065)))) + (cons __tmp113887 __tmp113875)))) (declare (not safe)) - (cons __tmp222080 __tmp222064)))) + (cons __tmp113890 __tmp113874)))) (declare (not safe)) (##unchecked-structure-set! - __obj221407 - __tmp222063 + __obj113212 + __tmp113873 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222083 - (let ((__tmp222100 - (let ((__tmp222101 |gxc[1]#_g222102_|)) + (let ((__tmp113893 + (let ((__tmp113910 + (let ((__tmp113911 |gxc[1]#_g113912_|)) (declare (not safe)) - (cons 'arity __tmp222101))) - (__tmp222084 - (let ((__tmp222097 - (let ((__tmp222098 |gxc[1]#_g222099_|)) + (cons 'arity __tmp113911))) + (__tmp113894 + (let ((__tmp113907 + (let ((__tmp113908 |gxc[1]#_g113909_|)) (declare (not safe)) - (cons 'dispatch __tmp222098))) - (__tmp222085 - (let ((__tmp222094 - (let ((__tmp222095 |gxc[1]#_g222096_|)) + (cons 'dispatch __tmp113908))) + (__tmp113895 + (let ((__tmp113904 + (let ((__tmp113905 |gxc[1]#_g113906_|)) (declare (not safe)) - (cons 'inline __tmp222095))) - (__tmp222086 - (let ((__tmp222091 - (let ((__tmp222092 - |gxc[1]#_g222093_|)) + (cons 'inline __tmp113905))) + (__tmp113896 + (let ((__tmp113901 + (let ((__tmp113902 + |gxc[1]#_g113903_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp222092))) - (__tmp222087 - (let ((__tmp222088 - (let ((__tmp222089 - |gxc[1]#_g222090_|)) + __tmp113902))) + (__tmp113897 + (let ((__tmp113898 + (let ((__tmp113899 + |gxc[1]#_g113900_|)) (declare (not safe)) - (cons 'id __tmp222089)))) + (cons 'id __tmp113899)))) (declare (not safe)) - (cons __tmp222088 '())))) + (cons __tmp113898 '())))) (declare (not safe)) - (cons __tmp222091 __tmp222087)))) + (cons __tmp113901 __tmp113897)))) (declare (not safe)) - (cons __tmp222094 __tmp222086)))) + (cons __tmp113904 __tmp113896)))) (declare (not safe)) - (cons __tmp222097 __tmp222085)))) + (cons __tmp113907 __tmp113895)))) (declare (not safe)) - (cons __tmp222100 __tmp222084)))) + (cons __tmp113910 __tmp113894)))) (declare (not safe)) (##unchecked-structure-set! - __obj221407 - __tmp222083 + __obj113212 + __tmp113893 '15 gerbil/core$$#class-type-info::t '#f)) - __obj221407)) + __obj113212)) (define |gxc[:0:]#!case-lambda| - (let ((__obj221408 + (let ((__obj113213 (let () (declare (not safe)) (##structure @@ -3899,7 +3899,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221408 + __obj113213 'gxc#!case-lambda::t '1 gerbil/core$$#class-type-info::t @@ -3907,7 +3907,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221408 + __obj113213 '!case-lambda '2 gerbil/core$$#class-type-info::t @@ -3915,26 +3915,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221408 + __obj113213 '(clauses) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222103 - (let ((__tmp222104 |gxc[1]#_g221856_|)) + (let ((__tmp113913 + (let ((__tmp113914 |gxc[1]#_g113666_|)) (declare (not safe)) - (cons __tmp222104 '())))) + (cons __tmp113914 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221408 - __tmp222103 + __obj113213 + __tmp113913 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj221408 + __obj113213 '#t '5 gerbil/core$$#class-type-info::t @@ -3942,7 +3942,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221408 + __obj113213 '#f '6 gerbil/core$$#class-type-info::t @@ -3950,7 +3950,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221408 + __obj113213 '#f '7 gerbil/core$$#class-type-info::t @@ -3958,122 +3958,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221408 + __obj113213 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222105 |gxc[1]#_g222106_|)) + (let ((__tmp113915 |gxc[1]#_g113916_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221408 - __tmp222105 + __obj113213 + __tmp113915 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222107 |gxc[1]#_g222108_|)) + (let ((__tmp113917 |gxc[1]#_g113918_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221408 - __tmp222107 + __obj113213 + __tmp113917 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222109 |gxc[1]#_g222110_|)) + (let ((__tmp113919 |gxc[1]#_g113920_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221408 - __tmp222109 + __obj113213 + __tmp113919 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222111 - (let ((__tmp222116 - (let ((__tmp222117 |gxc[1]#_g222118_|)) + (let ((__tmp113921 + (let ((__tmp113926 + (let ((__tmp113927 |gxc[1]#_g113928_|)) (declare (not safe)) - (cons 'clauses __tmp222117))) - (__tmp222112 - (let ((__tmp222113 - (let ((__tmp222114 |gxc[1]#_g222115_|)) + (cons 'clauses __tmp113927))) + (__tmp113922 + (let ((__tmp113923 + (let ((__tmp113924 |gxc[1]#_g113925_|)) (declare (not safe)) - (cons 'id __tmp222114)))) + (cons 'id __tmp113924)))) (declare (not safe)) - (cons __tmp222113 '())))) + (cons __tmp113923 '())))) (declare (not safe)) - (cons __tmp222116 __tmp222112)))) + (cons __tmp113926 __tmp113922)))) (declare (not safe)) (##unchecked-structure-set! - __obj221408 - __tmp222111 + __obj113213 + __tmp113921 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222119 - (let ((__tmp222124 - (let ((__tmp222125 |gxc[1]#_g222126_|)) + (let ((__tmp113929 + (let ((__tmp113934 + (let ((__tmp113935 |gxc[1]#_g113936_|)) (declare (not safe)) - (cons 'clauses __tmp222125))) - (__tmp222120 - (let ((__tmp222121 - (let ((__tmp222122 |gxc[1]#_g222123_|)) + (cons 'clauses __tmp113935))) + (__tmp113930 + (let ((__tmp113931 + (let ((__tmp113932 |gxc[1]#_g113933_|)) (declare (not safe)) - (cons 'id __tmp222122)))) + (cons 'id __tmp113932)))) (declare (not safe)) - (cons __tmp222121 '())))) + (cons __tmp113931 '())))) (declare (not safe)) - (cons __tmp222124 __tmp222120)))) + (cons __tmp113934 __tmp113930)))) (declare (not safe)) (##unchecked-structure-set! - __obj221408 - __tmp222119 + __obj113213 + __tmp113929 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222127 - (let ((__tmp222132 - (let ((__tmp222133 |gxc[1]#_g222134_|)) + (let ((__tmp113937 + (let ((__tmp113942 + (let ((__tmp113943 |gxc[1]#_g113944_|)) (declare (not safe)) - (cons 'clauses __tmp222133))) - (__tmp222128 - (let ((__tmp222129 - (let ((__tmp222130 |gxc[1]#_g222131_|)) + (cons 'clauses __tmp113943))) + (__tmp113938 + (let ((__tmp113939 + (let ((__tmp113940 |gxc[1]#_g113941_|)) (declare (not safe)) - (cons 'id __tmp222130)))) + (cons 'id __tmp113940)))) (declare (not safe)) - (cons __tmp222129 '())))) + (cons __tmp113939 '())))) (declare (not safe)) - (cons __tmp222132 __tmp222128)))) + (cons __tmp113942 __tmp113938)))) (declare (not safe)) (##unchecked-structure-set! - __obj221408 - __tmp222127 + __obj113213 + __tmp113937 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222135 - (let ((__tmp222140 - (let ((__tmp222141 |gxc[1]#_g222142_|)) + (let ((__tmp113945 + (let ((__tmp113950 + (let ((__tmp113951 |gxc[1]#_g113952_|)) (declare (not safe)) - (cons 'clauses __tmp222141))) - (__tmp222136 - (let ((__tmp222137 - (let ((__tmp222138 |gxc[1]#_g222139_|)) + (cons 'clauses __tmp113951))) + (__tmp113946 + (let ((__tmp113947 + (let ((__tmp113948 |gxc[1]#_g113949_|)) (declare (not safe)) - (cons 'id __tmp222138)))) + (cons 'id __tmp113948)))) (declare (not safe)) - (cons __tmp222137 '())))) + (cons __tmp113947 '())))) (declare (not safe)) - (cons __tmp222140 __tmp222136)))) + (cons __tmp113950 __tmp113946)))) (declare (not safe)) (##unchecked-structure-set! - __obj221408 - __tmp222135 + __obj113213 + __tmp113945 '15 gerbil/core$$#class-type-info::t '#f)) - __obj221408)) + __obj113213)) (define |gxc[:0:]#!kw-lambda| - (let ((__obj221409 + (let ((__obj113214 (let () (declare (not safe)) (##structure @@ -4096,7 +4096,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221409 + __obj113214 'gxc#!kw-lambda::t '1 gerbil/core$$#class-type-info::t @@ -4104,7 +4104,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221409 + __obj113214 '!kw-lambda '2 gerbil/core$$#class-type-info::t @@ -4112,26 +4112,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221409 + __obj113214 '(table dispatch) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222143 - (let ((__tmp222144 |gxc[1]#_g221856_|)) + (let ((__tmp113953 + (let ((__tmp113954 |gxc[1]#_g113666_|)) (declare (not safe)) - (cons __tmp222144 '())))) + (cons __tmp113954 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221409 - __tmp222143 + __obj113214 + __tmp113953 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj221409 + __obj113214 '#t '5 gerbil/core$$#class-type-info::t @@ -4139,7 +4139,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221409 + __obj113214 '#f '6 gerbil/core$$#class-type-info::t @@ -4147,7 +4147,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221409 + __obj113214 '#f '7 gerbil/core$$#class-type-info::t @@ -4155,150 +4155,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221409 + __obj113214 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222145 |gxc[1]#_g222146_|)) + (let ((__tmp113955 |gxc[1]#_g113956_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221409 - __tmp222145 + __obj113214 + __tmp113955 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222147 |gxc[1]#_g222148_|)) + (let ((__tmp113957 |gxc[1]#_g113958_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221409 - __tmp222147 + __obj113214 + __tmp113957 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222149 |gxc[1]#_g222150_|)) + (let ((__tmp113959 |gxc[1]#_g113960_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221409 - __tmp222149 + __obj113214 + __tmp113959 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222151 - (let ((__tmp222160 - (let ((__tmp222161 |gxc[1]#_g222162_|)) + (let ((__tmp113961 + (let ((__tmp113970 + (let ((__tmp113971 |gxc[1]#_g113972_|)) (declare (not safe)) - (cons 'table __tmp222161))) - (__tmp222152 - (let ((__tmp222157 - (let ((__tmp222158 |gxc[1]#_g222159_|)) + (cons 'table __tmp113971))) + (__tmp113962 + (let ((__tmp113967 + (let ((__tmp113968 |gxc[1]#_g113969_|)) (declare (not safe)) - (cons 'dispatch __tmp222158))) - (__tmp222153 - (let ((__tmp222154 - (let ((__tmp222155 |gxc[1]#_g222156_|)) + (cons 'dispatch __tmp113968))) + (__tmp113963 + (let ((__tmp113964 + (let ((__tmp113965 |gxc[1]#_g113966_|)) (declare (not safe)) - (cons 'id __tmp222155)))) + (cons 'id __tmp113965)))) (declare (not safe)) - (cons __tmp222154 '())))) + (cons __tmp113964 '())))) (declare (not safe)) - (cons __tmp222157 __tmp222153)))) + (cons __tmp113967 __tmp113963)))) (declare (not safe)) - (cons __tmp222160 __tmp222152)))) + (cons __tmp113970 __tmp113962)))) (declare (not safe)) (##unchecked-structure-set! - __obj221409 - __tmp222151 + __obj113214 + __tmp113961 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222163 - (let ((__tmp222172 - (let ((__tmp222173 |gxc[1]#_g222174_|)) + (let ((__tmp113973 + (let ((__tmp113982 + (let ((__tmp113983 |gxc[1]#_g113984_|)) (declare (not safe)) - (cons 'table __tmp222173))) - (__tmp222164 - (let ((__tmp222169 - (let ((__tmp222170 |gxc[1]#_g222171_|)) + (cons 'table __tmp113983))) + (__tmp113974 + (let ((__tmp113979 + (let ((__tmp113980 |gxc[1]#_g113981_|)) (declare (not safe)) - (cons 'dispatch __tmp222170))) - (__tmp222165 - (let ((__tmp222166 - (let ((__tmp222167 |gxc[1]#_g222168_|)) + (cons 'dispatch __tmp113980))) + (__tmp113975 + (let ((__tmp113976 + (let ((__tmp113977 |gxc[1]#_g113978_|)) (declare (not safe)) - (cons 'id __tmp222167)))) + (cons 'id __tmp113977)))) (declare (not safe)) - (cons __tmp222166 '())))) + (cons __tmp113976 '())))) (declare (not safe)) - (cons __tmp222169 __tmp222165)))) + (cons __tmp113979 __tmp113975)))) (declare (not safe)) - (cons __tmp222172 __tmp222164)))) + (cons __tmp113982 __tmp113974)))) (declare (not safe)) (##unchecked-structure-set! - __obj221409 - __tmp222163 + __obj113214 + __tmp113973 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222175 - (let ((__tmp222184 - (let ((__tmp222185 |gxc[1]#_g222186_|)) + (let ((__tmp113985 + (let ((__tmp113994 + (let ((__tmp113995 |gxc[1]#_g113996_|)) (declare (not safe)) - (cons 'table __tmp222185))) - (__tmp222176 - (let ((__tmp222181 - (let ((__tmp222182 |gxc[1]#_g222183_|)) + (cons 'table __tmp113995))) + (__tmp113986 + (let ((__tmp113991 + (let ((__tmp113992 |gxc[1]#_g113993_|)) (declare (not safe)) - (cons 'dispatch __tmp222182))) - (__tmp222177 - (let ((__tmp222178 - (let ((__tmp222179 |gxc[1]#_g222180_|)) + (cons 'dispatch __tmp113992))) + (__tmp113987 + (let ((__tmp113988 + (let ((__tmp113989 |gxc[1]#_g113990_|)) (declare (not safe)) - (cons 'id __tmp222179)))) + (cons 'id __tmp113989)))) (declare (not safe)) - (cons __tmp222178 '())))) + (cons __tmp113988 '())))) (declare (not safe)) - (cons __tmp222181 __tmp222177)))) + (cons __tmp113991 __tmp113987)))) (declare (not safe)) - (cons __tmp222184 __tmp222176)))) + (cons __tmp113994 __tmp113986)))) (declare (not safe)) (##unchecked-structure-set! - __obj221409 - __tmp222175 + __obj113214 + __tmp113985 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222187 - (let ((__tmp222196 - (let ((__tmp222197 |gxc[1]#_g222198_|)) + (let ((__tmp113997 + (let ((__tmp114006 + (let ((__tmp114007 |gxc[1]#_g114008_|)) (declare (not safe)) - (cons 'table __tmp222197))) - (__tmp222188 - (let ((__tmp222193 - (let ((__tmp222194 |gxc[1]#_g222195_|)) + (cons 'table __tmp114007))) + (__tmp113998 + (let ((__tmp114003 + (let ((__tmp114004 |gxc[1]#_g114005_|)) (declare (not safe)) - (cons 'dispatch __tmp222194))) - (__tmp222189 - (let ((__tmp222190 - (let ((__tmp222191 |gxc[1]#_g222192_|)) + (cons 'dispatch __tmp114004))) + (__tmp113999 + (let ((__tmp114000 + (let ((__tmp114001 |gxc[1]#_g114002_|)) (declare (not safe)) - (cons 'id __tmp222191)))) + (cons 'id __tmp114001)))) (declare (not safe)) - (cons __tmp222190 '())))) + (cons __tmp114000 '())))) (declare (not safe)) - (cons __tmp222193 __tmp222189)))) + (cons __tmp114003 __tmp113999)))) (declare (not safe)) - (cons __tmp222196 __tmp222188)))) + (cons __tmp114006 __tmp113998)))) (declare (not safe)) (##unchecked-structure-set! - __obj221409 - __tmp222187 + __obj113214 + __tmp113997 '15 gerbil/core$$#class-type-info::t '#f)) - __obj221409)) + __obj113214)) (define |gxc[:0:]#!kw-lambda-primary| - (let ((__obj221410 + (let ((__obj113215 (let () (declare (not safe)) (##structure @@ -4321,7 +4321,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221410 + __obj113215 'gxc#!kw-lambda-primary::t '1 gerbil/core$$#class-type-info::t @@ -4329,7 +4329,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221410 + __obj113215 '!kw-lambda-primary '2 gerbil/core$$#class-type-info::t @@ -4337,26 +4337,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221410 + __obj113215 '(keys main) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222199 - (let ((__tmp222200 |gxc[1]#_g221856_|)) + (let ((__tmp114009 + (let ((__tmp114010 |gxc[1]#_g113666_|)) (declare (not safe)) - (cons __tmp222200 '())))) + (cons __tmp114010 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj221410 - __tmp222199 + __obj113215 + __tmp114009 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj221410 + __obj113215 '#t '5 gerbil/core$$#class-type-info::t @@ -4364,7 +4364,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221410 + __obj113215 '#f '6 gerbil/core$$#class-type-info::t @@ -4372,7 +4372,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221410 + __obj113215 '#f '7 gerbil/core$$#class-type-info::t @@ -4380,150 +4380,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221410 + __obj113215 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222201 |gxc[1]#_g222202_|)) + (let ((__tmp114011 |gxc[1]#_g114012_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221410 - __tmp222201 + __obj113215 + __tmp114011 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222203 |gxc[1]#_g222204_|)) + (let ((__tmp114013 |gxc[1]#_g114014_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221410 - __tmp222203 + __obj113215 + __tmp114013 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222205 |gxc[1]#_g222206_|)) + (let ((__tmp114015 |gxc[1]#_g114016_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221410 - __tmp222205 + __obj113215 + __tmp114015 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222207 - (let ((__tmp222216 - (let ((__tmp222217 |gxc[1]#_g222218_|)) + (let ((__tmp114017 + (let ((__tmp114026 + (let ((__tmp114027 |gxc[1]#_g114028_|)) (declare (not safe)) - (cons 'keys __tmp222217))) - (__tmp222208 - (let ((__tmp222213 - (let ((__tmp222214 |gxc[1]#_g222215_|)) + (cons 'keys __tmp114027))) + (__tmp114018 + (let ((__tmp114023 + (let ((__tmp114024 |gxc[1]#_g114025_|)) (declare (not safe)) - (cons 'main __tmp222214))) - (__tmp222209 - (let ((__tmp222210 - (let ((__tmp222211 |gxc[1]#_g222212_|)) + (cons 'main __tmp114024))) + (__tmp114019 + (let ((__tmp114020 + (let ((__tmp114021 |gxc[1]#_g114022_|)) (declare (not safe)) - (cons 'id __tmp222211)))) + (cons 'id __tmp114021)))) (declare (not safe)) - (cons __tmp222210 '())))) + (cons __tmp114020 '())))) (declare (not safe)) - (cons __tmp222213 __tmp222209)))) + (cons __tmp114023 __tmp114019)))) (declare (not safe)) - (cons __tmp222216 __tmp222208)))) + (cons __tmp114026 __tmp114018)))) (declare (not safe)) (##unchecked-structure-set! - __obj221410 - __tmp222207 + __obj113215 + __tmp114017 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222219 - (let ((__tmp222228 - (let ((__tmp222229 |gxc[1]#_g222230_|)) + (let ((__tmp114029 + (let ((__tmp114038 + (let ((__tmp114039 |gxc[1]#_g114040_|)) (declare (not safe)) - (cons 'keys __tmp222229))) - (__tmp222220 - (let ((__tmp222225 - (let ((__tmp222226 |gxc[1]#_g222227_|)) + (cons 'keys __tmp114039))) + (__tmp114030 + (let ((__tmp114035 + (let ((__tmp114036 |gxc[1]#_g114037_|)) (declare (not safe)) - (cons 'main __tmp222226))) - (__tmp222221 - (let ((__tmp222222 - (let ((__tmp222223 |gxc[1]#_g222224_|)) + (cons 'main __tmp114036))) + (__tmp114031 + (let ((__tmp114032 + (let ((__tmp114033 |gxc[1]#_g114034_|)) (declare (not safe)) - (cons 'id __tmp222223)))) + (cons 'id __tmp114033)))) (declare (not safe)) - (cons __tmp222222 '())))) + (cons __tmp114032 '())))) (declare (not safe)) - (cons __tmp222225 __tmp222221)))) + (cons __tmp114035 __tmp114031)))) (declare (not safe)) - (cons __tmp222228 __tmp222220)))) + (cons __tmp114038 __tmp114030)))) (declare (not safe)) (##unchecked-structure-set! - __obj221410 - __tmp222219 + __obj113215 + __tmp114029 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222231 - (let ((__tmp222240 - (let ((__tmp222241 |gxc[1]#_g222242_|)) + (let ((__tmp114041 + (let ((__tmp114050 + (let ((__tmp114051 |gxc[1]#_g114052_|)) (declare (not safe)) - (cons 'keys __tmp222241))) - (__tmp222232 - (let ((__tmp222237 - (let ((__tmp222238 |gxc[1]#_g222239_|)) + (cons 'keys __tmp114051))) + (__tmp114042 + (let ((__tmp114047 + (let ((__tmp114048 |gxc[1]#_g114049_|)) (declare (not safe)) - (cons 'main __tmp222238))) - (__tmp222233 - (let ((__tmp222234 - (let ((__tmp222235 |gxc[1]#_g222236_|)) + (cons 'main __tmp114048))) + (__tmp114043 + (let ((__tmp114044 + (let ((__tmp114045 |gxc[1]#_g114046_|)) (declare (not safe)) - (cons 'id __tmp222235)))) + (cons 'id __tmp114045)))) (declare (not safe)) - (cons __tmp222234 '())))) + (cons __tmp114044 '())))) (declare (not safe)) - (cons __tmp222237 __tmp222233)))) + (cons __tmp114047 __tmp114043)))) (declare (not safe)) - (cons __tmp222240 __tmp222232)))) + (cons __tmp114050 __tmp114042)))) (declare (not safe)) (##unchecked-structure-set! - __obj221410 - __tmp222231 + __obj113215 + __tmp114041 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222243 - (let ((__tmp222252 - (let ((__tmp222253 |gxc[1]#_g222254_|)) + (let ((__tmp114053 + (let ((__tmp114062 + (let ((__tmp114063 |gxc[1]#_g114064_|)) (declare (not safe)) - (cons 'keys __tmp222253))) - (__tmp222244 - (let ((__tmp222249 - (let ((__tmp222250 |gxc[1]#_g222251_|)) + (cons 'keys __tmp114063))) + (__tmp114054 + (let ((__tmp114059 + (let ((__tmp114060 |gxc[1]#_g114061_|)) (declare (not safe)) - (cons 'main __tmp222250))) - (__tmp222245 - (let ((__tmp222246 - (let ((__tmp222247 |gxc[1]#_g222248_|)) + (cons 'main __tmp114060))) + (__tmp114055 + (let ((__tmp114056 + (let ((__tmp114057 |gxc[1]#_g114058_|)) (declare (not safe)) - (cons 'id __tmp222247)))) + (cons 'id __tmp114057)))) (declare (not safe)) - (cons __tmp222246 '())))) + (cons __tmp114056 '())))) (declare (not safe)) - (cons __tmp222249 __tmp222245)))) + (cons __tmp114059 __tmp114055)))) (declare (not safe)) - (cons __tmp222252 __tmp222244)))) + (cons __tmp114062 __tmp114054)))) (declare (not safe)) (##unchecked-structure-set! - __obj221410 - __tmp222243 + __obj113215 + __tmp114053 '15 gerbil/core$$#class-type-info::t '#f)) - __obj221410)) + __obj113215)) (define |gxc[:0:]#!primitive| - (let ((__obj221411 + (let ((__obj113216 (let () (declare (not safe)) (##structure @@ -4546,7 +4546,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221411 + __obj113216 'gxc#!primitive::t '1 gerbil/core$$#class-type-info::t @@ -4554,7 +4554,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221411 + __obj113216 '!primitive '2 gerbil/core$$#class-type-info::t @@ -4562,7 +4562,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221411 + __obj113216 '() '4 gerbil/core$$#class-type-info::t @@ -4570,7 +4570,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221411 + __obj113216 '() '3 gerbil/core$$#class-type-info::t @@ -4578,7 +4578,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221411 + __obj113216 '#f '5 gerbil/core$$#class-type-info::t @@ -4586,7 +4586,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221411 + __obj113216 '#f '6 gerbil/core$$#class-type-info::t @@ -4594,7 +4594,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221411 + __obj113216 '#f '7 gerbil/core$$#class-type-info::t @@ -4602,39 +4602,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221411 + __obj113216 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222255 |gxc[1]#_g222256_|)) + (let ((__tmp114065 |gxc[1]#_g114066_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221411 - __tmp222255 + __obj113216 + __tmp114065 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222257 |gxc[1]#_g222258_|)) + (let ((__tmp114067 |gxc[1]#_g114068_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221411 - __tmp222257 + __obj113216 + __tmp114067 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222259 |gxc[1]#_g222260_|)) + (let ((__tmp114069 |gxc[1]#_g114070_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221411 - __tmp222259 + __obj113216 + __tmp114069 '11 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj221411 + __obj113216 '() '12 gerbil/core$$#class-type-info::t @@ -4642,7 +4642,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221411 + __obj113216 '() '13 gerbil/core$$#class-type-info::t @@ -4650,7 +4650,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221411 + __obj113216 '() '14 gerbil/core$$#class-type-info::t @@ -4658,14 +4658,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221411 + __obj113216 '() '15 gerbil/core$$#class-type-info::t '#f)) - __obj221411)) + __obj113216)) (define |gxc[:0:]#!primitive-lambda| - (let ((__obj221412 + (let ((__obj113217 (let () (declare (not safe)) (##structure @@ -4688,7 +4688,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221412 + __obj113217 'gxc#!primitive-lambda::t '1 gerbil/core$$#class-type-info::t @@ -4696,7 +4696,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221412 + __obj113217 '!primitive-lambda '2 gerbil/core$$#class-type-info::t @@ -4704,30 +4704,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221412 + __obj113217 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222261 - (let ((__tmp222265 |gxc[1]#_g222266_|) - (__tmp222262 - (let ((__tmp222263 |gxc[1]#_g222264_|)) + (let ((__tmp114071 + (let ((__tmp114075 |gxc[1]#_g114076_|) + (__tmp114072 + (let ((__tmp114073 |gxc[1]#_g114074_|)) (declare (not safe)) - (cons __tmp222263 '())))) + (cons __tmp114073 '())))) (declare (not safe)) - (cons __tmp222265 __tmp222262)))) + (cons __tmp114075 __tmp114072)))) (declare (not safe)) (##unchecked-structure-set! - __obj221412 - __tmp222261 + __obj113217 + __tmp114071 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj221412 + __obj113217 '#f '5 gerbil/core$$#class-type-info::t @@ -4735,7 +4735,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221412 + __obj113217 '#f '6 gerbil/core$$#class-type-info::t @@ -4743,7 +4743,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221412 + __obj113217 '#f '7 gerbil/core$$#class-type-info::t @@ -4751,218 +4751,218 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221412 + __obj113217 ':init! '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222267 |gxc[1]#_g222268_|)) + (let ((__tmp114077 |gxc[1]#_g114078_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221412 - __tmp222267 + __obj113217 + __tmp114077 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222269 |gxc[1]#_g222270_|)) + (let ((__tmp114079 |gxc[1]#_g114080_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221412 - __tmp222269 + __obj113217 + __tmp114079 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222271 |gxc[1]#_g222272_|)) + (let ((__tmp114081 |gxc[1]#_g114082_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221412 - __tmp222271 + __obj113217 + __tmp114081 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222273 - (let ((__tmp222290 - (let ((__tmp222291 |gxc[1]#_g222292_|)) + (let ((__tmp114083 + (let ((__tmp114100 + (let ((__tmp114101 |gxc[1]#_g114102_|)) (declare (not safe)) - (cons 'arity __tmp222291))) - (__tmp222274 - (let ((__tmp222287 - (let ((__tmp222288 |gxc[1]#_g222289_|)) + (cons 'arity __tmp114101))) + (__tmp114084 + (let ((__tmp114097 + (let ((__tmp114098 |gxc[1]#_g114099_|)) (declare (not safe)) - (cons 'dispatch __tmp222288))) - (__tmp222275 - (let ((__tmp222284 - (let ((__tmp222285 |gxc[1]#_g222286_|)) + (cons 'dispatch __tmp114098))) + (__tmp114085 + (let ((__tmp114094 + (let ((__tmp114095 |gxc[1]#_g114096_|)) (declare (not safe)) - (cons 'inline __tmp222285))) - (__tmp222276 - (let ((__tmp222281 - (let ((__tmp222282 - |gxc[1]#_g222283_|)) + (cons 'inline __tmp114095))) + (__tmp114086 + (let ((__tmp114091 + (let ((__tmp114092 + |gxc[1]#_g114093_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp222282))) - (__tmp222277 - (let ((__tmp222278 - (let ((__tmp222279 - |gxc[1]#_g222280_|)) + __tmp114092))) + (__tmp114087 + (let ((__tmp114088 + (let ((__tmp114089 + |gxc[1]#_g114090_|)) (declare (not safe)) - (cons 'id __tmp222279)))) + (cons 'id __tmp114089)))) (declare (not safe)) - (cons __tmp222278 '())))) + (cons __tmp114088 '())))) (declare (not safe)) - (cons __tmp222281 __tmp222277)))) + (cons __tmp114091 __tmp114087)))) (declare (not safe)) - (cons __tmp222284 __tmp222276)))) + (cons __tmp114094 __tmp114086)))) (declare (not safe)) - (cons __tmp222287 __tmp222275)))) + (cons __tmp114097 __tmp114085)))) (declare (not safe)) - (cons __tmp222290 __tmp222274)))) + (cons __tmp114100 __tmp114084)))) (declare (not safe)) (##unchecked-structure-set! - __obj221412 - __tmp222273 + __obj113217 + __tmp114083 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222293 - (let ((__tmp222310 - (let ((__tmp222311 |gxc[1]#_g222312_|)) + (let ((__tmp114103 + (let ((__tmp114120 + (let ((__tmp114121 |gxc[1]#_g114122_|)) (declare (not safe)) - (cons 'arity __tmp222311))) - (__tmp222294 - (let ((__tmp222307 - (let ((__tmp222308 |gxc[1]#_g222309_|)) + (cons 'arity __tmp114121))) + (__tmp114104 + (let ((__tmp114117 + (let ((__tmp114118 |gxc[1]#_g114119_|)) (declare (not safe)) - (cons 'dispatch __tmp222308))) - (__tmp222295 - (let ((__tmp222304 - (let ((__tmp222305 |gxc[1]#_g222306_|)) + (cons 'dispatch __tmp114118))) + (__tmp114105 + (let ((__tmp114114 + (let ((__tmp114115 |gxc[1]#_g114116_|)) (declare (not safe)) - (cons 'inline __tmp222305))) - (__tmp222296 - (let ((__tmp222301 - (let ((__tmp222302 - |gxc[1]#_g222303_|)) + (cons 'inline __tmp114115))) + (__tmp114106 + (let ((__tmp114111 + (let ((__tmp114112 + |gxc[1]#_g114113_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp222302))) - (__tmp222297 - (let ((__tmp222298 - (let ((__tmp222299 - |gxc[1]#_g222300_|)) + __tmp114112))) + (__tmp114107 + (let ((__tmp114108 + (let ((__tmp114109 + |gxc[1]#_g114110_|)) (declare (not safe)) - (cons 'id __tmp222299)))) + (cons 'id __tmp114109)))) (declare (not safe)) - (cons __tmp222298 '())))) + (cons __tmp114108 '())))) (declare (not safe)) - (cons __tmp222301 __tmp222297)))) + (cons __tmp114111 __tmp114107)))) (declare (not safe)) - (cons __tmp222304 __tmp222296)))) + (cons __tmp114114 __tmp114106)))) (declare (not safe)) - (cons __tmp222307 __tmp222295)))) + (cons __tmp114117 __tmp114105)))) (declare (not safe)) - (cons __tmp222310 __tmp222294)))) + (cons __tmp114120 __tmp114104)))) (declare (not safe)) (##unchecked-structure-set! - __obj221412 - __tmp222293 + __obj113217 + __tmp114103 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222313 - (let ((__tmp222330 - (let ((__tmp222331 |gxc[1]#_g222332_|)) + (let ((__tmp114123 + (let ((__tmp114140 + (let ((__tmp114141 |gxc[1]#_g114142_|)) (declare (not safe)) - (cons 'arity __tmp222331))) - (__tmp222314 - (let ((__tmp222327 - (let ((__tmp222328 |gxc[1]#_g222329_|)) + (cons 'arity __tmp114141))) + (__tmp114124 + (let ((__tmp114137 + (let ((__tmp114138 |gxc[1]#_g114139_|)) (declare (not safe)) - (cons 'dispatch __tmp222328))) - (__tmp222315 - (let ((__tmp222324 - (let ((__tmp222325 |gxc[1]#_g222326_|)) + (cons 'dispatch __tmp114138))) + (__tmp114125 + (let ((__tmp114134 + (let ((__tmp114135 |gxc[1]#_g114136_|)) (declare (not safe)) - (cons 'inline __tmp222325))) - (__tmp222316 - (let ((__tmp222321 - (let ((__tmp222322 - |gxc[1]#_g222323_|)) + (cons 'inline __tmp114135))) + (__tmp114126 + (let ((__tmp114131 + (let ((__tmp114132 + |gxc[1]#_g114133_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp222322))) - (__tmp222317 - (let ((__tmp222318 - (let ((__tmp222319 - |gxc[1]#_g222320_|)) + __tmp114132))) + (__tmp114127 + (let ((__tmp114128 + (let ((__tmp114129 + |gxc[1]#_g114130_|)) (declare (not safe)) - (cons 'id __tmp222319)))) + (cons 'id __tmp114129)))) (declare (not safe)) - (cons __tmp222318 '())))) + (cons __tmp114128 '())))) (declare (not safe)) - (cons __tmp222321 __tmp222317)))) + (cons __tmp114131 __tmp114127)))) (declare (not safe)) - (cons __tmp222324 __tmp222316)))) + (cons __tmp114134 __tmp114126)))) (declare (not safe)) - (cons __tmp222327 __tmp222315)))) + (cons __tmp114137 __tmp114125)))) (declare (not safe)) - (cons __tmp222330 __tmp222314)))) + (cons __tmp114140 __tmp114124)))) (declare (not safe)) (##unchecked-structure-set! - __obj221412 - __tmp222313 + __obj113217 + __tmp114123 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222333 - (let ((__tmp222350 - (let ((__tmp222351 |gxc[1]#_g222352_|)) + (let ((__tmp114143 + (let ((__tmp114160 + (let ((__tmp114161 |gxc[1]#_g114162_|)) (declare (not safe)) - (cons 'arity __tmp222351))) - (__tmp222334 - (let ((__tmp222347 - (let ((__tmp222348 |gxc[1]#_g222349_|)) + (cons 'arity __tmp114161))) + (__tmp114144 + (let ((__tmp114157 + (let ((__tmp114158 |gxc[1]#_g114159_|)) (declare (not safe)) - (cons 'dispatch __tmp222348))) - (__tmp222335 - (let ((__tmp222344 - (let ((__tmp222345 |gxc[1]#_g222346_|)) + (cons 'dispatch __tmp114158))) + (__tmp114145 + (let ((__tmp114154 + (let ((__tmp114155 |gxc[1]#_g114156_|)) (declare (not safe)) - (cons 'inline __tmp222345))) - (__tmp222336 - (let ((__tmp222341 - (let ((__tmp222342 - |gxc[1]#_g222343_|)) + (cons 'inline __tmp114155))) + (__tmp114146 + (let ((__tmp114151 + (let ((__tmp114152 + |gxc[1]#_g114153_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp222342))) - (__tmp222337 - (let ((__tmp222338 - (let ((__tmp222339 - |gxc[1]#_g222340_|)) + __tmp114152))) + (__tmp114147 + (let ((__tmp114148 + (let ((__tmp114149 + |gxc[1]#_g114150_|)) (declare (not safe)) - (cons 'id __tmp222339)))) + (cons 'id __tmp114149)))) (declare (not safe)) - (cons __tmp222338 '())))) + (cons __tmp114148 '())))) (declare (not safe)) - (cons __tmp222341 __tmp222337)))) + (cons __tmp114151 __tmp114147)))) (declare (not safe)) - (cons __tmp222344 __tmp222336)))) + (cons __tmp114154 __tmp114146)))) (declare (not safe)) - (cons __tmp222347 __tmp222335)))) + (cons __tmp114157 __tmp114145)))) (declare (not safe)) - (cons __tmp222350 __tmp222334)))) + (cons __tmp114160 __tmp114144)))) (declare (not safe)) (##unchecked-structure-set! - __obj221412 - __tmp222333 + __obj113217 + __tmp114143 '15 gerbil/core$$#class-type-info::t '#f)) - __obj221412)) + __obj113217)) (define |gxc[:0:]#!primitive-case-lambda| - (let ((__obj221413 + (let ((__obj113218 (let () (declare (not safe)) (##structure @@ -4985,7 +4985,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221413 + __obj113218 'gxc#!primitive-case-lambda::t '1 gerbil/core$$#class-type-info::t @@ -4993,7 +4993,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221413 + __obj113218 '!primitive-case-lambda '2 gerbil/core$$#class-type-info::t @@ -5001,30 +5001,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221413 + __obj113218 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222353 - (let ((__tmp222357 |gxc[1]#_g222266_|) - (__tmp222354 - (let ((__tmp222355 |gxc[1]#_g222356_|)) + (let ((__tmp114163 + (let ((__tmp114167 |gxc[1]#_g114076_|) + (__tmp114164 + (let ((__tmp114165 |gxc[1]#_g114166_|)) (declare (not safe)) - (cons __tmp222355 '())))) + (cons __tmp114165 '())))) (declare (not safe)) - (cons __tmp222357 __tmp222354)))) + (cons __tmp114167 __tmp114164)))) (declare (not safe)) (##unchecked-structure-set! - __obj221413 - __tmp222353 + __obj113218 + __tmp114163 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj221413 + __obj113218 '#f '5 gerbil/core$$#class-type-info::t @@ -5032,7 +5032,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221413 + __obj113218 '#f '6 gerbil/core$$#class-type-info::t @@ -5040,7 +5040,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221413 + __obj113218 '#f '7 gerbil/core$$#class-type-info::t @@ -5048,117 +5048,117 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj221413 + __obj113218 ':init! '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222358 |gxc[1]#_g222359_|)) + (let ((__tmp114168 |gxc[1]#_g114169_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221413 - __tmp222358 + __obj113218 + __tmp114168 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222360 |gxc[1]#_g222361_|)) + (let ((__tmp114170 |gxc[1]#_g114171_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221413 - __tmp222360 + __obj113218 + __tmp114170 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222362 |gxc[1]#_g222363_|)) + (let ((__tmp114172 |gxc[1]#_g114173_|)) (declare (not safe)) (##unchecked-structure-set! - __obj221413 - __tmp222362 + __obj113218 + __tmp114172 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222364 - (let ((__tmp222369 - (let ((__tmp222370 |gxc[1]#_g222371_|)) + (let ((__tmp114174 + (let ((__tmp114179 + (let ((__tmp114180 |gxc[1]#_g114181_|)) (declare (not safe)) - (cons 'clauses __tmp222370))) - (__tmp222365 - (let ((__tmp222366 - (let ((__tmp222367 |gxc[1]#_g222368_|)) + (cons 'clauses __tmp114180))) + (__tmp114175 + (let ((__tmp114176 + (let ((__tmp114177 |gxc[1]#_g114178_|)) (declare (not safe)) - (cons 'id __tmp222367)))) + (cons 'id __tmp114177)))) (declare (not safe)) - (cons __tmp222366 '())))) + (cons __tmp114176 '())))) (declare (not safe)) - (cons __tmp222369 __tmp222365)))) + (cons __tmp114179 __tmp114175)))) (declare (not safe)) (##unchecked-structure-set! - __obj221413 - __tmp222364 + __obj113218 + __tmp114174 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222372 - (let ((__tmp222377 - (let ((__tmp222378 |gxc[1]#_g222379_|)) + (let ((__tmp114182 + (let ((__tmp114187 + (let ((__tmp114188 |gxc[1]#_g114189_|)) (declare (not safe)) - (cons 'clauses __tmp222378))) - (__tmp222373 - (let ((__tmp222374 - (let ((__tmp222375 |gxc[1]#_g222376_|)) + (cons 'clauses __tmp114188))) + (__tmp114183 + (let ((__tmp114184 + (let ((__tmp114185 |gxc[1]#_g114186_|)) (declare (not safe)) - (cons 'id __tmp222375)))) + (cons 'id __tmp114185)))) (declare (not safe)) - (cons __tmp222374 '())))) + (cons __tmp114184 '())))) (declare (not safe)) - (cons __tmp222377 __tmp222373)))) + (cons __tmp114187 __tmp114183)))) (declare (not safe)) (##unchecked-structure-set! - __obj221413 - __tmp222372 + __obj113218 + __tmp114182 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222380 - (let ((__tmp222385 - (let ((__tmp222386 |gxc[1]#_g222387_|)) + (let ((__tmp114190 + (let ((__tmp114195 + (let ((__tmp114196 |gxc[1]#_g114197_|)) (declare (not safe)) - (cons 'clauses __tmp222386))) - (__tmp222381 - (let ((__tmp222382 - (let ((__tmp222383 |gxc[1]#_g222384_|)) + (cons 'clauses __tmp114196))) + (__tmp114191 + (let ((__tmp114192 + (let ((__tmp114193 |gxc[1]#_g114194_|)) (declare (not safe)) - (cons 'id __tmp222383)))) + (cons 'id __tmp114193)))) (declare (not safe)) - (cons __tmp222382 '())))) + (cons __tmp114192 '())))) (declare (not safe)) - (cons __tmp222385 __tmp222381)))) + (cons __tmp114195 __tmp114191)))) (declare (not safe)) (##unchecked-structure-set! - __obj221413 - __tmp222380 + __obj113218 + __tmp114190 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp222388 - (let ((__tmp222393 - (let ((__tmp222394 |gxc[1]#_g222395_|)) + (let ((__tmp114198 + (let ((__tmp114203 + (let ((__tmp114204 |gxc[1]#_g114205_|)) (declare (not safe)) - (cons 'clauses __tmp222394))) - (__tmp222389 - (let ((__tmp222390 - (let ((__tmp222391 |gxc[1]#_g222392_|)) + (cons 'clauses __tmp114204))) + (__tmp114199 + (let ((__tmp114200 + (let ((__tmp114201 |gxc[1]#_g114202_|)) (declare (not safe)) - (cons 'id __tmp222391)))) + (cons 'id __tmp114201)))) (declare (not safe)) - (cons __tmp222390 '())))) + (cons __tmp114200 '())))) (declare (not safe)) - (cons __tmp222393 __tmp222389)))) + (cons __tmp114203 __tmp114199)))) (declare (not safe)) (##unchecked-structure-set! - __obj221413 - __tmp222388 + __obj113218 + __tmp114198 '15 gerbil/core$$#class-type-info::t '#f)) - __obj221413)))) + __obj113218)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call__0.scm b/src/bootstrap/gerbil/compiler/optimize-call__0.scm index 376bfc43d..4bd818594 100644 --- a/src/bootstrap/gerbil/compiler/optimize-call__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-call__0.scm @@ -1,592 +1,598 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-call::timestamp 1708102809) + (define gerbil/compiler/optimize-call::timestamp 1708370118) (begin (define gxc#&optimize-call (make-promise (lambda () - (let ((_tbl278565_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp283424 (force gxc#&basic-xform))) + (let ((_tbl152103_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp152394 (force gxc#&basic-xform))) (declare (not safe)) - (hash-copy! _tbl278565_ __tmp283424)) + (hash-merge! _tbl152103_ __tmp152394)) (let () (declare (not safe)) - (table-set! _tbl278565_ '%#call gxc#optimize-call%)) - _tbl278565_)))) + (hash-put! _tbl152103_ '%#call gxc#optimize-call%)) + _tbl152103_)))) (define gxc#apply-optimize-call - (lambda (_stx278548_ . _args278550_) - (let ((__tmp283426 + (lambda (_stx152086_ . _args152088_) + (let ((__tmp152396 (lambda () (declare (not safe)) - (if (null? _args278550_) - (gxc#compile-e__0 _stx278548_) - (let ((_arg1278555_ (car _args278550_)) - (_rest278557_ (cdr _args278550_))) - (if (null? _rest278557_) - (gxc#compile-e__1 _stx278548_ _arg1278555_) - (let ((_arg2278560_ (car _rest278557_)) - (_rest278562_ (cdr _rest278557_))) - (if (null? _rest278562_) + (if (null? _args152088_) + (gxc#compile-e__0 _stx152086_) + (let ((_arg1152093_ (car _args152088_)) + (_rest152095_ (cdr _args152088_))) + (if (null? _rest152095_) + (gxc#compile-e__1 _stx152086_ _arg1152093_) + (let ((_arg2152098_ (car _rest152095_)) + (_rest152100_ (cdr _rest152095_))) + (if (null? _rest152100_) (gxc#compile-e__2 - _stx278548_ - _arg1278555_ - _arg2278560_) + _stx152086_ + _arg1152093_ + _arg2152098_) (apply gxc#compile-e - _stx278548_ - _arg1278555_ - _arg2278560_ - _rest278562_)))))))) - (__tmp283425 (force gxc#&optimize-call))) + _stx152086_ + _arg1152093_ + _arg2152098_ + _rest152100_)))))))) + (__tmp152395 (force gxc#&optimize-call))) (declare (not safe)) (call-with-parameters - __tmp283426 + __tmp152396 gxc#current-compile-methods - __tmp283425)))) + __tmp152395)))) (define gxc#optimize-call% - (lambda (_stx278403_) - (let* ((___stx283174283175_ _stx278403_) - (_g278406278426_ + (lambda (_stx151941_) + (let* ((___stx152144152145_ _stx151941_) + (_g151944151964_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx283174283175_))))) - (let ((___kont283176283177_ - (lambda (_L278470_ _L278471_) - (let* ((_rator-id278489_ + ___stx152144152145_))))) + (let ((___kont152146152147_ + (lambda (_L152008_ _L152009_) + (let* ((_rator-id152027_ (let () (declare (not safe)) - (gxc#identifier-symbol _L278471_))) - (_rator-type278491_ + (gxc#identifier-symbol _L152009_))) + (_rator-type152029_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _rator-id278489_)))) + (gxc#optimizer-resolve-type _rator-id152027_)))) (if (let () (declare (not safe)) (##structure-instance-of? - _rator-type278491_ + _rator-type152029_ 'gxc#!procedure::t)) (begin - (let ((__tmp283427 + (let ((__tmp152397 (##structure-ref - _rator-type278491_ + _rator-type152029_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#verbose '"optimize-call " - _rator-id278489_ + _rator-id152027_ '" => " - _rator-type278491_ + _rator-type152029_ '" " - __tmp283427)) - (let ((_optimized278494_ - (let ((__method283422 + __tmp152397)) + (let ((_optimized152032_ + (let ((__method152392 (let () (declare (not safe)) (method-ref - _rator-type278491_ + _rator-type152029_ 'optimize-call)))) - (if __method283422 - (__method283422 - _rator-type278491_ - _stx278403_ - _L278470_) - (error '"Missing method" - _rator-type278491_ - 'optimize-call))))) + (if __method152392 + (__method152392 + _rator-type152029_ + _stx151941_ + _L152008_) + (let () + (declare (not safe)) + (error '"Missing method" + _rator-type152029_ + 'optimize-call)))))) (if (let () (declare (not safe)) (class-instance? gxc#!primitive::t - _rator-type278491_)) - _optimized278494_ - (let* ((___stx283156283157_ _optimized278494_) - (_g278497278507_ + _rator-type152029_)) + _optimized152032_ + (let* ((___stx152126152127_ _optimized152032_) + (_g152035152045_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx283156283157_))))) - (let ((___kont283158283159_ - (lambda (_L278527_) - (let ((__tmp283428 + ___stx152126152127_))))) + (let ((___kont152128152129_ + (lambda (_L152065_) + (let ((__tmp152398 (let () (declare (not safe)) (cons '%#call-unchecked - _L278527_)))) + _L152065_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp283428 - _stx278403_)))) - (___kont283160283161_ - (lambda () _optimized278494_))) + __tmp152398 + _stx151941_)))) + (___kont152130152131_ + (lambda () _optimized152032_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx283156283157_)) - (let ((_e278502278519_ + (gx#stx-pair? ___stx152126152127_)) + (let ((_e152040152057_ (let () (declare (not safe)) (gx#stx-e - ___stx283156283157_)))) - (let ((_tl278500278524_ + ___stx152126152127_)))) + (let ((_tl152038152062_ (let () (declare (not safe)) - (##cdr _e278502278519_))) - (_hd278501278522_ + (##cdr _e152040152057_))) + (_hd152039152060_ (let () (declare (not safe)) - (##car _e278502278519_)))) + (##car _e152040152057_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd278501278522_)) + _hd152039152060_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd278501278522_)) - (___kont283158283159_ - _tl278500278524_) - (___kont283160283161_)) - (___kont283160283161_)))) - (___kont283160283161_))))))) + _hd152039152060_)) + (___kont152128152129_ + _tl152038152062_) + (___kont152130152131_)) + (___kont152130152131_)))) + (___kont152130152131_))))))) (if (let () (declare (not safe)) - (not _rator-type278491_)) + (not _rator-type152029_)) (let () (declare (not safe)) - (gxc#xform-call% _stx278403_)) + (gxc#xform-call% _stx151941_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _stx278403_ - _rator-type278491_))))))) - (___kont283178283179_ + _stx151941_ + _rator-type152029_))))))) + (___kont152148152149_ (lambda () (let () (declare (not safe)) - (gxc#xform-call% _stx278403_))))) + (gxc#xform-call% _stx151941_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx283174283175_)) - (let ((_e278412278438_ + (gx#stx-pair? ___stx152144152145_)) + (let ((_e151950151976_ (let () (declare (not safe)) - (gx#stx-e ___stx283174283175_)))) - (let ((_tl278410278443_ - (let () (declare (not safe)) (##cdr _e278412278438_))) - (_hd278411278441_ + (gx#stx-e ___stx152144152145_)))) + (let ((_tl151948151981_ + (let () (declare (not safe)) (##cdr _e151950151976_))) + (_hd151949151979_ (let () (declare (not safe)) - (##car _e278412278438_)))) + (##car _e151950151976_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl278410278443_)) - (let ((_e278415278446_ + (gx#stx-pair? _tl151948151981_)) + (let ((_e151953151984_ (let () (declare (not safe)) - (gx#stx-e _tl278410278443_)))) - (let ((_tl278413278451_ + (gx#stx-e _tl151948151981_)))) + (let ((_tl151951151989_ (let () (declare (not safe)) - (##cdr _e278415278446_))) - (_hd278414278449_ + (##cdr _e151953151984_))) + (_hd151952151987_ (let () (declare (not safe)) - (##car _e278415278446_)))) + (##car _e151953151984_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd278414278449_)) - (let ((_e278418278454_ + (gx#stx-pair? _hd151952151987_)) + (let ((_e151956151992_ (let () (declare (not safe)) - (gx#stx-e _hd278414278449_)))) - (let ((_tl278416278459_ + (gx#stx-e _hd151952151987_)))) + (let ((_tl151954151997_ (let () (declare (not safe)) - (##cdr _e278418278454_))) - (_hd278417278457_ + (##cdr _e151956151992_))) + (_hd151955151995_ (let () (declare (not safe)) - (##car _e278418278454_)))) + (##car _e151956151992_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd278417278457_)) + (gx#identifier? _hd151955151995_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd278417278457_)) + _hd151955151995_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl278416278459_)) - (let ((_e278421278462_ + _tl151954151997_)) + (let ((_e151959152000_ (let () (declare (not safe)) (gx#stx-e - _tl278416278459_)))) - (let ((_tl278419278467_ + _tl151954151997_)))) + (let ((_tl151957152005_ (let () (declare (not safe)) - (##cdr _e278421278462_))) - (_hd278420278465_ + (##cdr _e151959152000_))) + (_hd151958152003_ (let () (declare (not safe)) - (##car _e278421278462_)))) + (##car _e151959152000_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl278419278467_)) - (___kont283176283177_ - _tl278413278451_ - _hd278420278465_) - (___kont283178283179_)))) - (___kont283178283179_)) - (___kont283178283179_)) - (___kont283178283179_)))) - (___kont283178283179_)))) - (___kont283178283179_)))) - (___kont283178283179_)))))) + _tl151957152005_)) + (___kont152146152147_ + _tl151951151989_ + _hd151958152003_) + (___kont152148152149_)))) + (___kont152148152149_)) + (___kont152148152149_)) + (___kont152148152149_)))) + (___kont152148152149_)))) + (___kont152148152149_)))) + (___kont152148152149_)))))) (define gxc#!predicate::optimize-call - (lambda (_self278357_ _stx278358_ _args278359_) - (let* ((_g278361278371_ - (lambda (_g278362278368_) + (lambda (_self151895_ _stx151896_ _args151897_) + (let* ((_g151899151909_ + (lambda (_g151900151906_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g278362278368_)))) - (_g278360278400_ - (lambda (_g278362278374_) + _g151900151906_)))) + (_g151898151938_ + (lambda (_g151900151912_) (if (let () (declare (not safe)) - (gx#stx-pair? _g278362278374_)) - (let ((_e278366278376_ + (gx#stx-pair? _g151900151912_)) + (let ((_e151904151914_ (let () (declare (not safe)) - (gx#stx-e _g278362278374_)))) - (let ((_hd278365278379_ + (gx#stx-e _g151900151912_)))) + (let ((_hd151903151917_ (let () (declare (not safe)) - (##car _e278366278376_))) - (_tl278364278381_ + (##car _e151904151914_))) + (_tl151902151919_ (let () (declare (not safe)) - (##cdr _e278366278376_)))) + (##cdr _e151904151914_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl278364278381_)) - ((lambda (_L278384_) - (let* ((_klass278395_ - (let ((__tmp283429 + (gx#stx-null? _tl151902151919_)) + ((lambda (_L151922_) + (let* ((_klass151933_ + (let ((__tmp152399 (##structure-ref - _self278357_ + _self151895_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx278358_ - __tmp283429))) - (_object278397_ + _stx151896_ + __tmp152399))) + (_object151935_ (let () (declare (not safe)) - (gxc#compile-e__0 _L278384_)))) + (gxc#compile-e__0 _L151922_)))) (if (##structure-ref - _klass278395_ + _klass151933_ '8 gxc#!class::t '#f) - (let ((__tmp283445 - (let ((__tmp283446 - (let ((__tmp283448 - (let ((__tmp283449 + (let ((__tmp152415 + (let ((__tmp152416 + (let ((__tmp152418 + (let ((__tmp152419 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283450 + (let ((__tmp152420 (##structure-ref - _klass278395_ + _klass151933_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp283450 '())))) + (cons __tmp152420 '())))) (declare (not safe)) - (cons '%#quote __tmp283449))) - (__tmp283447 - (let () (declare (not safe)) (cons _object278397_ '())))) + (cons '%#quote __tmp152419))) + (__tmp152417 + (let () (declare (not safe)) (cons _object151935_ '())))) (declare (not safe)) - (cons __tmp283448 __tmp283447)))) + (cons __tmp152418 __tmp152417)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-direct-instance? - __tmp283446)))) + __tmp152416)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp283445 - _stx278358_)) + __tmp152415 + _stx151896_)) (if (##structure-ref - _klass278395_ + _klass151933_ '7 gxc#!class::t '#f) - (let ((__tmp283439 - (let ((__tmp283440 - (let ((__tmp283442 - (let ((__tmp283443 + (let ((__tmp152409 + (let ((__tmp152410 + (let ((__tmp152412 + (let ((__tmp152413 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283444 + (let ((__tmp152414 (##structure-ref - _klass278395_ + _klass151933_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp283444 '())))) + (cons __tmp152414 '())))) (declare (not safe)) - (cons '%#quote __tmp283443))) - (__tmp283441 + (cons '%#quote __tmp152413))) + (__tmp152411 (let () (declare (not safe)) - (cons _object278397_ '())))) + (cons _object151935_ '())))) (declare (not safe)) - (cons __tmp283442 __tmp283441)))) + (cons __tmp152412 __tmp152411)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-instance? - __tmp283440)))) + __tmp152410)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp283439 - _stx278358_)) - (let ((__tmp283430 - (let ((__tmp283431 - (let ((__tmp283437 - (let ((__tmp283438 + __tmp152409 + _stx151896_)) + (let ((__tmp152400 + (let ((__tmp152401 + (let ((__tmp152407 + (let ((__tmp152408 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'class-instance? '())))) (declare (not safe)) - (cons '%#ref __tmp283438))) - (__tmp283432 - (let ((__tmp283434 - (let ((__tmp283435 - (let ((__tmp283436 + (cons '%#ref __tmp152408))) + (__tmp152402 + (let ((__tmp152404 + (let ((__tmp152405 + (let ((__tmp152406 (##structure-ref - _self278357_ + _self151895_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp283436 '())))) + (cons __tmp152406 '())))) (declare (not safe)) - (cons '%#ref __tmp283435))) - (__tmp283433 + (cons '%#ref __tmp152405))) + (__tmp152403 (let () (declare (not safe)) - (cons _object278397_ '())))) + (cons _object151935_ '())))) (declare (not safe)) - (cons __tmp283434 __tmp283433)))) + (cons __tmp152404 __tmp152403)))) (declare (not safe)) - (cons __tmp283437 __tmp283432)))) + (cons __tmp152407 __tmp152402)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#call - __tmp283431)))) + __tmp152401)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp283430 - _stx278358_)))))) - _hd278365278379_) + __tmp152400 + _stx151896_)))))) + _hd151903151917_) (let () (declare (not safe)) - (_g278361278371_ _g278362278374_))))) + (_g151899151909_ _g151900151912_))))) (let () (declare (not safe)) - (_g278361278371_ _g278362278374_)))))) + (_g151899151909_ _g151900151912_)))))) (declare (not safe)) - (_g278360278400_ _args278359_)))) + (_g151898151938_ _args151897_)))) (define gxc#!predicate::optimize-call::specialize - (lambda (__t283135) - (let ((__id283136 - (let ((__tmp283137 + (lambda (__t152105) + (let ((__id152106 + (let ((__tmp152107 (let () (declare (not safe)) - (class-slot-offset __t283135 'id)))) - (if __tmp283137 __tmp283137 (error '"Unknown slot" 'id))))) - (lambda (_self278357_ _stx278358_ _args278359_) - (let* ((_g278361278371_ - (lambda (_g278362278368_) + (class-slot-offset __t152105 'id)))) + (if __tmp152107 + __tmp152107 + (let () + (declare (not safe)) + (error '"Unknown slot" 'id)))))) + (lambda (_self151895_ _stx151896_ _args151897_) + (let* ((_g151899151909_ + (lambda (_g151900151906_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g278362278368_)))) - (_g278360278400_ - (lambda (_g278362278374_) + _g151900151906_)))) + (_g151898151938_ + (lambda (_g151900151912_) (if (let () (declare (not safe)) - (gx#stx-pair? _g278362278374_)) - (let ((_e278366278376_ + (gx#stx-pair? _g151900151912_)) + (let ((_e151904151914_ (let () (declare (not safe)) - (gx#stx-e _g278362278374_)))) - (let ((_hd278365278379_ + (gx#stx-e _g151900151912_)))) + (let ((_hd151903151917_ (let () (declare (not safe)) - (##car _e278366278376_))) - (_tl278364278381_ + (##car _e151904151914_))) + (_tl151902151919_ (let () (declare (not safe)) - (##cdr _e278366278376_)))) + (##cdr _e151904151914_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl278364278381_)) - ((lambda (_L278384_) - (let* ((_klass278395_ - (let ((__tmp283451 + (gx#stx-null? _tl151902151919_)) + ((lambda (_L151922_) + (let* ((_klass151933_ + (let ((__tmp152421 (let () (declare (not safe)) (##unchecked-structure-ref - _self278357_ - __id283136 - __t283135 + _self151895_ + __id152106 + __t152105 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx278358_ - __tmp283451))) - (_object278397_ + _stx151896_ + __tmp152421))) + (_object151935_ (let () (declare (not safe)) - (gxc#compile-e__0 _L278384_)))) + (gxc#compile-e__0 _L151922_)))) (if (##structure-ref - _klass278395_ + _klass151933_ '8 gxc#!class::t '#f) - (let ((__tmp283467 - (let ((__tmp283468 - (let ((__tmp283470 - (let ((__tmp283471 + (let ((__tmp152437 + (let ((__tmp152438 + (let ((__tmp152440 + (let ((__tmp152441 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283472 + (let ((__tmp152442 (##structure-ref - _klass278395_ + _klass151933_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp283472 '())))) + (cons __tmp152442 '())))) (declare (not safe)) - (cons '%#quote __tmp283471))) - (__tmp283469 + (cons '%#quote __tmp152441))) + (__tmp152439 (let () (declare (not safe)) - (cons _object278397_ '())))) + (cons _object151935_ '())))) (declare (not safe)) - (cons __tmp283470 __tmp283469)))) + (cons __tmp152440 __tmp152439)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-direct-instance? - __tmp283468)))) + __tmp152438)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp283467 - _stx278358_)) + __tmp152437 + _stx151896_)) (if (##structure-ref - _klass278395_ + _klass151933_ '7 gxc#!class::t '#f) - (let ((__tmp283461 - (let ((__tmp283462 - (let ((__tmp283464 + (let ((__tmp152431 + (let ((__tmp152432 + (let ((__tmp152434 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283465 - (let ((__tmp283466 + (let ((__tmp152435 + (let ((__tmp152436 (##structure-ref - _klass278395_ + _klass151933_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp283466 '())))) + (cons __tmp152436 '())))) (declare (not safe)) - (cons '%#quote __tmp283465))) - (__tmp283463 + (cons '%#quote __tmp152435))) + (__tmp152433 (let () (declare (not safe)) - (cons _object278397_ '())))) + (cons _object151935_ '())))) (declare (not safe)) - (cons __tmp283464 __tmp283463)))) + (cons __tmp152434 __tmp152433)))) (declare (not safe)) - (cons '%#struct-instance? __tmp283462)))) + (cons '%#struct-instance? __tmp152432)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp283461 - _stx278358_)) - (let ((__tmp283452 - (let ((__tmp283453 - (let ((__tmp283459 + __tmp152431 + _stx151896_)) + (let ((__tmp152422 + (let ((__tmp152423 + (let ((__tmp152429 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283460 + (let ((__tmp152430 (let () (declare (not safe)) (cons 'class-instance? '())))) (declare (not safe)) - (cons '%#ref __tmp283460))) - (__tmp283454 - (let ((__tmp283456 - (let ((__tmp283457 - (let ((__tmp283458 + (cons '%#ref __tmp152430))) + (__tmp152424 + (let ((__tmp152426 + (let ((__tmp152427 + (let ((__tmp152428 (let () (declare (not safe)) (##unchecked-structure-ref - _self278357_ - __id283136 - __t283135 + _self151895_ + __id152106 + __t152105 '#f)))) (declare (not safe)) - (cons __tmp283458 '())))) + (cons __tmp152428 '())))) (declare (not safe)) - (cons '%#ref __tmp283457))) - (__tmp283455 + (cons '%#ref __tmp152427))) + (__tmp152425 (let () (declare (not safe)) - (cons _object278397_ '())))) + (cons _object151935_ '())))) (declare (not safe)) - (cons __tmp283456 __tmp283455)))) + (cons __tmp152426 __tmp152425)))) (declare (not safe)) - (cons __tmp283459 __tmp283454)))) + (cons __tmp152429 __tmp152424)))) (declare (not safe)) - (cons '%#call __tmp283453)))) + (cons '%#call __tmp152423)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp283452 - _stx278358_)))))) - _hd278365278379_) + __tmp152422 + _stx151896_)))))) + _hd151903151917_) (let () (declare (not safe)) - (_g278361278371_ _g278362278374_))))) + (_g151899151909_ _g151900151912_))))) (let () (declare (not safe)) - (_g278361278371_ _g278362278374_)))))) + (_g151899151909_ _g151900151912_)))))) (declare (not safe)) - (_g278360278400_ _args278359_)))))) + (_g151898151938_ _args151897_)))))) (let () (declare (not safe)) (bind-specializer! @@ -594,238 +600,242 @@ gxc#!predicate::optimize-call::specialize)) (let () (declare (not safe)) - (bind-method! + (bind-method!__% gxc#!predicate::t 'optimize-call gxc#!predicate::optimize-call '#f)) (define gxc#!constructor::optimize-call - (lambda (_self278077_ _stx278078_ _args278079_) - (let* ((_klass278081_ - (let ((__tmp283473 - (##structure-ref _self278077_ '1 gxc#!type::t '#f))) + (lambda (_self151615_ _stx151616_ _args151617_) + (let* ((_klass151619_ + (let ((__tmp152443 + (##structure-ref _self151615_ '1 gxc#!type::t '#f))) (declare (not safe)) - (gxc#optimizer-resolve-class _stx278078_ __tmp283473))) - (_fields278083_ - (length (##structure-ref _klass278081_ '5 gxc#!class::t '#f))) - (_args278085_ (map gxc#compile-e _args278079_)) - (_inline-make-object278087_ - (let ((__tmp283474 - (let ((__tmp283480 - (let ((__tmp283481 + (gxc#optimizer-resolve-class _stx151616_ __tmp152443))) + (_fields151621_ + (length (##structure-ref _klass151619_ '5 gxc#!class::t '#f))) + (_args151623_ (map gxc#compile-e _args151617_)) + (_inline-make-object151625_ + (let ((__tmp152444 + (let ((__tmp152450 + (let ((__tmp152451 (let () (declare (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp283481))) - (__tmp283475 - (let ((__tmp283477 - (let ((__tmp283478 - (let ((__tmp283479 + (cons '%#ref __tmp152451))) + (__tmp152445 + (let ((__tmp152447 + (let ((__tmp152448 + (let ((__tmp152449 (##structure-ref - _self278077_ + _self151615_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp283479 '())))) + (cons __tmp152449 '())))) + (declare (not safe)) + (cons '%#ref __tmp152448))) + (__tmp152446 + (let () (declare (not safe)) - (cons '%#ref __tmp283478))) - (__tmp283476 - (make-list _fields278083_ '(%#quote #f)))) + (make-list__% + _fields151621_ + '(%#quote #f))))) (declare (not safe)) - (cons __tmp283477 __tmp283476)))) + (cons __tmp152447 __tmp152446)))) (declare (not safe)) - (cons __tmp283480 __tmp283475)))) + (cons __tmp152450 __tmp152445)))) (declare (not safe)) - (cons '%#call __tmp283474)))) - (let ((_$e278090_ - (##structure-ref _klass278081_ '6 gxc#!class::t '#f))) - (if _$e278090_ - ((lambda (_ctor278093_) - (let ((_$obj278095_ - (let ((__tmp283581 (gensym '__obj))) + (cons '%#call __tmp152444)))) + (let ((_$e151628_ + (##structure-ref _klass151619_ '6 gxc#!class::t '#f))) + (if _$e151628_ + ((lambda (_ctor151631_) + (let ((_$obj151633_ + (let ((__tmp152551 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp283581))) - (_ctor-impl278096_ + (make-symbol__0 __tmp152551))) + (_ctor-impl151634_ (let () (declare (not safe)) (gxc#!class-lookup-method - _klass278081_ - _ctor278093_)))) - (let ((__tmp283582 - (let ((__tmp283583 - (let ((__tmp283651 - (let ((__tmp283652 - (let ((__tmp283654 + _klass151619_ + _ctor151631_)))) + (let ((__tmp152552 + (let ((__tmp152553 + (let ((__tmp152621 + (let ((__tmp152622 + (let ((__tmp152624 (let () (declare (not safe)) - (cons _$obj278095_ + (cons _$obj151633_ '()))) - (__tmp283653 + (__tmp152623 (let () (declare (not safe)) - (cons _inline-make-object278087_ + (cons _inline-make-object151625_ '())))) (declare (not safe)) - (cons __tmp283654 - __tmp283653)))) + (cons __tmp152624 + __tmp152623)))) (declare (not safe)) - (cons __tmp283652 '()))) - (__tmp283584 - (let ((__tmp283585 - (let ((__tmp283586 - (let ((__tmp283590 - (if _ctor-impl278096_ + (cons __tmp152622 '()))) + (__tmp152554 + (let ((__tmp152555 + (let ((__tmp152556 + (let ((__tmp152560 + (if _ctor-impl151634_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283645 - (let ((__tmp283649 - (let ((__tmp283650 + (let ((__tmp152615 + (let ((__tmp152619 + (let ((__tmp152620 (let () (declare (not safe)) - (cons _ctor-impl278096_ + (cons _ctor-impl151634_ '())))) (declare (not safe)) - (cons '%#ref __tmp283650))) - (__tmp283646 - (let ((__tmp283647 - (let ((__tmp283648 + (cons '%#ref __tmp152620))) + (__tmp152616 + (let ((__tmp152617 + (let ((__tmp152618 (let () (declare (not safe)) - (cons _$obj278095_ + (cons _$obj151633_ '())))) (declare (not safe)) - (cons '%#ref __tmp283648)))) + (cons '%#ref __tmp152618)))) (declare (not safe)) - (cons __tmp283647 _args278085_)))) + (cons __tmp152617 _args151623_)))) (declare (not safe)) - (cons __tmp283649 __tmp283646)))) + (cons __tmp152619 __tmp152616)))) (declare (not safe)) - (cons '%#call __tmp283645)) - (let* ((_$ctor278098_ - (let ((__tmp283591 (gensym '__constructor))) + (cons '%#call __tmp152615)) + (let* ((_$ctor151636_ + (let ((__tmp152561 (gensym '__constructor))) (declare (not safe)) - (make-symbol__0 __tmp283591))) - (__tmp283592 - (let ((__tmp283627 - (let ((__tmp283628 - (let ((__tmp283644 + (make-symbol__0 __tmp152561))) + (__tmp152562 + (let ((__tmp152597 + (let ((__tmp152598 + (let ((__tmp152614 (let () (declare (not safe)) - (cons _$ctor278098_ + (cons _$ctor151636_ '()))) - (__tmp283629 - (let ((__tmp283630 - (let ((__tmp283631 + (__tmp152599 + (let ((__tmp152600 + (let ((__tmp152601 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283642 - (let ((__tmp283643 + (let ((__tmp152612 + (let ((__tmp152613 (let () (declare (not safe)) (cons 'direct-method-ref '())))) (declare (not safe)) - (cons '%#ref __tmp283643))) - (__tmp283632 - (let ((__tmp283639 - (let ((__tmp283640 - (let ((__tmp283641 + (cons '%#ref __tmp152613))) + (__tmp152602 + (let ((__tmp152609 + (let ((__tmp152610 + (let ((__tmp152611 (##structure-ref - _self278077_ + _self151615_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp283641 '())))) + (cons __tmp152611 '())))) (declare (not safe)) - (cons '%#ref __tmp283640))) - (__tmp283633 - (let ((__tmp283637 - (let ((__tmp283638 + (cons '%#ref __tmp152610))) + (__tmp152603 + (let ((__tmp152607 + (let ((__tmp152608 (let () (declare (not safe)) - (cons _$obj278095_ + (cons _$obj151633_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp283638))) - (__tmp283634 - (let ((__tmp283635 - (let ((__tmp283636 + __tmp152608))) + (__tmp152604 + (let ((__tmp152605 + (let ((__tmp152606 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _ctor278093_ '())))) + (cons _ctor151631_ '())))) (declare (not safe)) - (cons '%#quote __tmp283636)))) + (cons '%#quote __tmp152606)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283635 '())))) + (cons __tmp152605 '())))) (declare (not safe)) - (cons __tmp283637 __tmp283634)))) + (cons __tmp152607 __tmp152604)))) (declare (not safe)) - (cons __tmp283639 __tmp283633)))) + (cons __tmp152609 __tmp152603)))) (declare (not safe)) - (cons __tmp283642 __tmp283632)))) + (cons __tmp152612 __tmp152602)))) (declare (not safe)) - (cons '%#call __tmp283631)))) + (cons '%#call __tmp152601)))) (declare (not safe)) - (cons __tmp283630 '())))) + (cons __tmp152600 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283644 - __tmp283629)))) + (cons __tmp152614 + __tmp152599)))) (declare (not safe)) - (cons __tmp283628 '()))) - (__tmp283593 - (let ((__tmp283594 - (let ((__tmp283595 - (let ((__tmp283625 - (let ((__tmp283626 + (cons __tmp152598 '()))) + (__tmp152563 + (let ((__tmp152564 + (let ((__tmp152565 + (let ((__tmp152595 + (let ((__tmp152596 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$ctor278098_ '())))) + (cons _$ctor151636_ '())))) (declare (not safe)) - (cons '%#ref __tmp283626))) - (__tmp283596 - (let ((__tmp283618 - (let ((__tmp283619 - (let ((__tmp283623 - (let ((__tmp283624 + (cons '%#ref __tmp152596))) + (__tmp152566 + (let ((__tmp152588 + (let ((__tmp152589 + (let ((__tmp152593 + (let ((__tmp152594 (let () (declare (not safe)) - (cons _$ctor278098_ + (cons _$ctor151636_ '())))) (declare (not safe)) - (cons '%#ref __tmp283624))) - (__tmp283620 - (let ((__tmp283621 - (let ((__tmp283622 + (cons '%#ref __tmp152594))) + (__tmp152590 + (let ((__tmp152591 + (let ((__tmp152592 (let () (declare (not safe)) - (cons _$obj278095_ + (cons _$obj151633_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp283622)))) + __tmp152592)))) (declare (not safe)) - (cons __tmp283621 - _args278085_)))) + (cons __tmp152591 + _args151623_)))) (declare (not safe)) - (cons __tmp283623 __tmp283620)))) + (cons __tmp152593 __tmp152590)))) (declare (not safe)) - (cons '%#call __tmp283619))) - (__tmp283597 - (let ((__tmp283598 - (let ((__tmp283599 - (let ((__tmp283616 - (let ((__tmp283617 + (cons '%#call __tmp152589))) + (__tmp152567 + (let ((__tmp152568 + (let ((__tmp152569 + (let ((__tmp152586 + (let ((__tmp152587 (let () (declare (not safe)) @@ -835,281 +845,281 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp283617))) - (__tmp283600 - (let ((__tmp283614 - (let ((__tmp283615 + __tmp152587))) + (__tmp152570 + (let ((__tmp152584 + (let ((__tmp152585 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '"missing constructor method implementation" '())))) (declare (not safe)) - (cons '%#quote __tmp283615))) - (__tmp283601 - (let ((__tmp283612 - (let ((__tmp283613 + (cons '%#quote __tmp152585))) + (__tmp152571 + (let ((__tmp152582 + (let ((__tmp152583 (let () (declare (not safe)) (cons 'class: '())))) (declare (not safe)) - (cons '%#quote __tmp283613))) - (__tmp283602 - (let ((__tmp283609 - (let ((__tmp283610 - (let ((__tmp283611 + (cons '%#quote __tmp152583))) + (__tmp152572 + (let ((__tmp152579 + (let ((__tmp152580 + (let ((__tmp152581 (##structure-ref - _self278077_ + _self151615_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp283611 '())))) + (cons __tmp152581 '())))) (declare (not safe)) - (cons '%#ref __tmp283610))) - (__tmp283603 - (let ((__tmp283607 - (let ((__tmp283608 + (cons '%#ref __tmp152580))) + (__tmp152573 + (let ((__tmp152577 + (let ((__tmp152578 (let () (declare (not safe)) (cons 'method: '())))) (declare (not safe)) - (cons '%#quote __tmp283608))) - (__tmp283604 - (let ((__tmp283605 - (let ((__tmp283606 + (cons '%#quote __tmp152578))) + (__tmp152574 + (let ((__tmp152575 + (let ((__tmp152576 (let () (declare (not safe)) - (cons _ctor278093_ + (cons _ctor151631_ '())))) (declare (not safe)) - (cons '%#quote __tmp283606)))) + (cons '%#quote __tmp152576)))) (declare (not safe)) - (cons __tmp283605 '())))) + (cons __tmp152575 '())))) (declare (not safe)) - (cons __tmp283607 __tmp283604)))) + (cons __tmp152577 __tmp152574)))) (declare (not safe)) - (cons __tmp283609 __tmp283603)))) + (cons __tmp152579 __tmp152573)))) (declare (not safe)) - (cons __tmp283612 __tmp283602)))) + (cons __tmp152582 __tmp152572)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283614 - __tmp283601)))) + (cons __tmp152584 + __tmp152571)))) (declare (not safe)) - (cons __tmp283616 __tmp283600)))) + (cons __tmp152586 __tmp152570)))) (declare (not safe)) - (cons '%#call __tmp283599)))) + (cons '%#call __tmp152569)))) (declare (not safe)) - (cons __tmp283598 '())))) + (cons __tmp152568 '())))) (declare (not safe)) - (cons __tmp283618 __tmp283597)))) + (cons __tmp152588 __tmp152567)))) (declare (not safe)) - (cons __tmp283625 __tmp283596)))) + (cons __tmp152595 __tmp152566)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp283595)))) + (cons '%#if __tmp152565)))) (declare (not safe)) - (cons __tmp283594 '())))) + (cons __tmp152564 '())))) (declare (not safe)) - (cons __tmp283627 __tmp283593)))) + (cons __tmp152597 __tmp152563)))) (declare (not safe)) - (cons '%#let-values __tmp283592)))) - (__tmp283587 - (let ((__tmp283588 - (let ((__tmp283589 + (cons '%#let-values __tmp152562)))) + (__tmp152557 + (let ((__tmp152558 + (let ((__tmp152559 (let () (declare (not safe)) - (cons _$obj278095_ '())))) + (cons _$obj151633_ '())))) (declare (not safe)) - (cons '%#ref __tmp283589)))) + (cons '%#ref __tmp152559)))) (declare (not safe)) - (cons __tmp283588 '())))) + (cons __tmp152558 '())))) (declare (not safe)) - (cons __tmp283590 __tmp283587)))) + (cons __tmp152560 __tmp152557)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#begin - __tmp283586)))) + __tmp152556)))) (declare (not safe)) - (cons __tmp283585 '())))) + (cons __tmp152555 '())))) (declare (not safe)) - (cons __tmp283651 __tmp283584)))) + (cons __tmp152621 __tmp152554)))) (declare (not safe)) - (cons '%#let-values __tmp283583)))) + (cons '%#let-values __tmp152553)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp283582 _stx278078_)))) - _$e278090_) - (let ((_$e278100_ - (##structure-ref _klass278081_ '9 gxc#!class::t '#f))) - (if _$e278100_ - ((lambda (_metaclass278103_) - (let* ((_$obj278105_ - (let ((__tmp283543 (gensym '__obj))) + (gxc#xform-wrap-source __tmp152552 _stx151616_)))) + _$e151628_) + (let ((_$e151638_ + (##structure-ref _klass151619_ '9 gxc#!class::t '#f))) + (if _$e151638_ + ((lambda (_metaclass151641_) + (let* ((_$obj151643_ + (let ((__tmp152513 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp283543))) - (_metakons278107_ - (let ((__tmp283544 + (make-symbol__0 __tmp152513))) + (_metakons151645_ + (let ((__tmp152514 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _stx278078_ - _metaclass278103_)))) + _stx151616_ + _metaclass151641_)))) (declare (not safe)) (gxc#!class-lookup-method - __tmp283544 + __tmp152514 'instance-init!)))) - (let ((__tmp283545 - (let ((__tmp283546 - (let ((__tmp283577 - (let ((__tmp283578 - (let ((__tmp283580 + (let ((__tmp152515 + (let ((__tmp152516 + (let ((__tmp152547 + (let ((__tmp152548 + (let ((__tmp152550 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj278105_ '()))) - (__tmp283579 + (cons _$obj151643_ '()))) + (__tmp152549 (let () (declare (not safe)) - (cons _inline-make-object278087_ '())))) + (cons _inline-make-object151625_ '())))) (declare (not safe)) - (cons __tmp283580 __tmp283579)))) + (cons __tmp152550 __tmp152549)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283578 '()))) - (__tmp283547 - (let ((__tmp283548 - (let ((__tmp283549 - (let ((__tmp283553 + (cons __tmp152548 '()))) + (__tmp152517 + (let ((__tmp152518 + (let ((__tmp152519 + (let ((__tmp152523 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if _metakons278107_ - (let ((__tmp283567 - (let ((__tmp283575 - (let ((__tmp283576 + (if _metakons151645_ + (let ((__tmp152537 + (let ((__tmp152545 + (let ((__tmp152546 (let () (declare (not safe)) - (cons _metakons278107_ + (cons _metakons151645_ '())))) (declare (not safe)) - (cons '%#ref __tmp283576))) - (__tmp283568 - (let ((__tmp283572 - (let ((__tmp283573 - (let ((__tmp283574 + (cons '%#ref __tmp152546))) + (__tmp152538 + (let ((__tmp152542 + (let ((__tmp152543 + (let ((__tmp152544 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self278077_ + _self151615_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp283574 '())))) + (cons __tmp152544 '())))) (declare (not safe)) - (cons '%#ref __tmp283573))) + (cons '%#ref __tmp152543))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp283569 - (let ((__tmp283570 - (let ((__tmp283571 + (__tmp152539 + (let ((__tmp152540 + (let ((__tmp152541 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj278105_ '())))) + (cons _$obj151643_ '())))) (declare (not safe)) - (cons '%#ref __tmp283571)))) + (cons '%#ref __tmp152541)))) (declare (not safe)) - (cons __tmp283570 _args278085_)))) + (cons __tmp152540 _args151623_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283572 - __tmp283569)))) + (cons __tmp152542 + __tmp152539)))) (declare (not safe)) - (cons __tmp283575 __tmp283568)))) + (cons __tmp152545 __tmp152538)))) (declare (not safe)) - (cons '%#call __tmp283567)) - (let ((__tmp283554 - (let ((__tmp283565 - (let ((__tmp283566 + (cons '%#call __tmp152537)) + (let ((__tmp152524 + (let ((__tmp152535 + (let ((__tmp152536 (let () (declare (not safe)) (cons 'call-method '())))) (declare (not safe)) - (cons '%#ref __tmp283566))) - (__tmp283555 - (let ((__tmp283562 - (let ((__tmp283563 - (let ((__tmp283564 + (cons '%#ref __tmp152536))) + (__tmp152525 + (let ((__tmp152532 + (let ((__tmp152533 + (let ((__tmp152534 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self278077_ + _self151615_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp283564 '())))) + (cons __tmp152534 '())))) (declare (not safe)) - (cons '%#ref __tmp283563))) + (cons '%#ref __tmp152533))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp283556 - (let ((__tmp283560 - (let ((__tmp283561 + (__tmp152526 + (let ((__tmp152530 + (let ((__tmp152531 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'instance-init! '())))) (declare (not safe)) - (cons '%#quote __tmp283561))) - (__tmp283557 - (let ((__tmp283558 - (let ((__tmp283559 + (cons '%#quote __tmp152531))) + (__tmp152527 + (let ((__tmp152528 + (let ((__tmp152529 (let () (declare (not safe)) - (cons _$obj278105_ '())))) + (cons _$obj151643_ '())))) (declare (not safe)) - (cons '%#ref __tmp283559)))) + (cons '%#ref __tmp152529)))) (declare (not safe)) - (cons __tmp283558 _args278085_)))) + (cons __tmp152528 _args151623_)))) (declare (not safe)) - (cons __tmp283560 __tmp283557)))) + (cons __tmp152530 __tmp152527)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283562 - __tmp283556)))) + (cons __tmp152532 + __tmp152526)))) (declare (not safe)) - (cons __tmp283565 __tmp283555)))) + (cons __tmp152535 __tmp152525)))) (declare (not safe)) - (cons '%#call __tmp283554)))) - (__tmp283550 - (let ((__tmp283551 - (let ((__tmp283552 + (cons '%#call __tmp152524)))) + (__tmp152520 + (let ((__tmp152521 + (let ((__tmp152522 (let () (declare (not safe)) - (cons _$obj278105_ '())))) + (cons _$obj151643_ '())))) (declare (not safe)) - (cons '%#ref __tmp283552)))) + (cons '%#ref __tmp152522)))) (declare (not safe)) - (cons __tmp283551 '())))) + (cons __tmp152521 '())))) (declare (not safe)) - (cons __tmp283553 __tmp283550)))) + (cons __tmp152523 __tmp152520)))) (declare (not safe)) - (cons '%#begin __tmp283549)))) + (cons '%#begin __tmp152519)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283548 '())))) + (cons __tmp152518 '())))) (declare (not safe)) - (cons __tmp283577 __tmp283547)))) + (cons __tmp152547 __tmp152517)))) (declare (not safe)) - (cons '%#let-values __tmp283546)))) + (cons '%#let-values __tmp152516)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp283545 _stx278078_)))) - _$e278100_) - (if (##structure-ref _klass278081_ '7 gxc#!class::t '#f) - (if (fx= (length _args278085_) _fields278083_) - (let ((__tmp283535 - (let ((__tmp283536 - (let ((__tmp283541 - (let ((__tmp283542 + (gxc#xform-wrap-source __tmp152515 _stx151616_)))) + _$e151638_) + (if (##structure-ref _klass151619_ '7 gxc#!class::t '#f) + (if (fx= (length _args151623_) _fields151621_) + (let ((__tmp152505 + (let ((__tmp152506 + (let ((__tmp152511 + (let ((__tmp152512 (let () (declare (not safe)) @@ -1119,891 +1129,897 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp283542))) - (__tmp283537 - (let ((__tmp283538 - (let ((__tmp283539 + __tmp152512))) + (__tmp152507 + (let ((__tmp152508 + (let ((__tmp152509 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283540 + (let ((__tmp152510 (##structure-ref - _self278077_ + _self151615_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp283540 '())))) + (cons __tmp152510 '())))) (declare (not safe)) - (cons '%#ref __tmp283539)))) + (cons '%#ref __tmp152509)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283538 - _args278085_)))) + (cons __tmp152508 + _args151623_)))) (declare (not safe)) - (cons __tmp283541 __tmp283537)))) + (cons __tmp152511 __tmp152507)))) (declare (not safe)) - (cons '%#call __tmp283536)))) + (cons '%#call __tmp152506)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp283535 - _stx278078_)) - (let ((__tmp283534 + __tmp152505 + _stx151616_)) + (let ((__tmp152504 (##structure-ref - _self278077_ + _self151615_ '1 gxc#!type::t '#f)) - (__tmp283533 + (__tmp152503 (length (##structure-ref - _klass278081_ + _klass151619_ '5 gxc#!class::t '#f)))) (declare (not safe)) (gxc#raise-compile-error '"illegal struct constructor application; arity mismatch" - _stx278078_ - __tmp283534 - __tmp283533))) - (let ((_$obj278110_ - (let ((__tmp283482 (gensym '__obj))) + _stx151616_ + __tmp152504 + __tmp152503))) + (let ((_$obj151648_ + (let ((__tmp152452 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp283482)))) - (let _lp278112_ ((_rest278114_ _args278085_) - (_initializers278115_ '())) - (let* ((___stx283212283213_ _rest278114_) - (_g278119278140_ + (make-symbol__0 __tmp152452)))) + (let _lp151650_ ((_rest151652_ _args151623_) + (_initializers151653_ '())) + (let* ((___stx152182152183_ _rest151652_) + (_g151657151678_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx283212283213_))))) - (let ((___kont283214283215_ - (lambda (_L278194_ _L278195_ _L278196_) - (let* ((_slot278227_ + ___stx152182152183_))))) + (let ((___kont152184152185_ + (lambda (_L151732_ _L151733_ _L151734_) + (let* ((_slot151765_ (keyword->symbol (let () (declare (not safe)) - (gx#stx-e _L278196_)))) - (_off278229_ + (gx#stx-e _L151734_)))) + (_off151767_ (let () (declare (not safe)) (gxc#!class-slot->field-offset - _klass278081_ - _slot278227_)))) - (if _off278229_ - (let ((__tmp283484 - (let ((__tmp283485 + _klass151619_ + _slot151765_)))) + (if _off151767_ + (let ((__tmp152454 + (let ((__tmp152455 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _off278229_ _L278195_)))) + (cons _off151767_ _L151733_)))) (declare (not safe)) - (cons __tmp283485 _initializers278115_)))) + (cons __tmp152455 _initializers151653_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp278112_ - _L278194_ - __tmp283484)) - (let ((__tmp283483 + (_lp151650_ + _L151732_ + __tmp152454)) + (let ((__tmp152453 (##structure-ref - _self278077_ + _self151615_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown slot" - _stx278078_ - __tmp283483 - _slot278227_)))))) - (___kont283216283217_ + _stx151616_ + __tmp152453 + _slot151765_)))))) + (___kont152186152187_ (lambda () - (let ((__tmp283486 - (let ((__tmp283487 - (let ((__tmp283510 - (let ((__tmp283511 + (let ((__tmp152456 + (let ((__tmp152457 + (let ((__tmp152480 + (let ((__tmp152481 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283513 + (let ((__tmp152483 (let () (declare (not safe)) - (cons _$obj278110_ '()))) - (__tmp283512 + (cons _$obj151648_ '()))) + (__tmp152482 (let () (declare (not safe)) - (cons _inline-make-object278087_ '())))) + (cons _inline-make-object151625_ '())))) (declare (not safe)) - (cons __tmp283513 __tmp283512)))) + (cons __tmp152483 __tmp152482)))) (declare (not safe)) - (cons __tmp283511 '()))) - (__tmp283488 - (let ((__tmp283489 - (let ((__tmp283490 - (let ((__tmp283507 - (let ((__tmp283508 - (let ((__tmp283509 + (cons __tmp152481 '()))) + (__tmp152458 + (let ((__tmp152459 + (let ((__tmp152460 + (let ((__tmp152477 + (let ((__tmp152478 + (let ((__tmp152479 (let () (declare (not safe)) - (cons _$obj278110_ + (cons _$obj151648_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp283509)))) + __tmp152479)))) (declare (not safe)) - (cons __tmp283508 '()))) - (__tmp283491 - (let ((__tmp283492 - (lambda (_i278154_ _r278155_) - (let ((__tmp283493 - (let ((__tmp283494 + (cons __tmp152478 '()))) + (__tmp152461 + (let ((__tmp152462 + (lambda (_i151692_ _r151693_) + (let ((__tmp152463 + (let ((__tmp152464 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283504 - (let ((__tmp283505 - (let ((__tmp283506 + (let ((__tmp152474 + (let ((__tmp152475 + (let ((__tmp152476 (##structure-ref - _self278077_ + _self151615_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp283506 '())))) + (cons __tmp152476 '())))) (declare (not safe)) - (cons '%#ref __tmp283505))) - (__tmp283495 - (let ((__tmp283501 - (let ((__tmp283502 - (let ((__tmp283503 - (car _i278154_))) + (cons '%#ref __tmp152475))) + (__tmp152465 + (let ((__tmp152471 + (let ((__tmp152472 + (let ((__tmp152473 + (car _i151692_))) (declare (not safe)) - (cons __tmp283503 '())))) + (cons __tmp152473 '())))) (declare (not safe)) - (cons '%#quote __tmp283502))) - (__tmp283496 - (let ((__tmp283499 - (let ((__tmp283500 + (cons '%#quote __tmp152472))) + (__tmp152466 + (let ((__tmp152469 + (let ((__tmp152470 (let () (declare (not safe)) - (cons _$obj278110_ + (cons _$obj151648_ '())))) (declare (not safe)) - (cons '%#ref __tmp283500))) - (__tmp283497 - (let ((__tmp283498 - (cdr _i278154_))) + (cons '%#ref __tmp152470))) + (__tmp152467 + (let ((__tmp152468 + (cdr _i151692_))) (declare (not safe)) - (cons __tmp283498 '())))) + (cons __tmp152468 '())))) (declare (not safe)) - (cons __tmp283499 __tmp283497)))) + (cons __tmp152469 __tmp152467)))) (declare (not safe)) - (cons __tmp283501 __tmp283496)))) + (cons __tmp152471 __tmp152466)))) (declare (not safe)) - (cons __tmp283504 __tmp283495)))) + (cons __tmp152474 __tmp152465)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp283494)))) + (cons '%#struct-unchecked-set! __tmp152464)))) (declare (not safe)) - (cons __tmp283493 _r278155_))))) + (cons __tmp152463 _r151693_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldl1 __tmp283492 + (foldl1 __tmp152462 '() - _initializers278115_)))) + _initializers151653_)))) (declare (not safe)) - (foldr1 cons __tmp283507 __tmp283491)))) + (foldr1 cons __tmp152477 __tmp152461)))) (declare (not safe)) - (cons '%#begin __tmp283490)))) + (cons '%#begin __tmp152460)))) (declare (not safe)) - (cons __tmp283489 '())))) + (cons __tmp152459 '())))) (declare (not safe)) - (cons __tmp283510 __tmp283488)))) + (cons __tmp152480 __tmp152458)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp283487)))) + __tmp152457)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp283486 - _stx278078_)))) - (___kont283218283219_ + __tmp152456 + _stx151616_)))) + (___kont152188152189_ (lambda () - (let ((__tmp283514 - (let ((__tmp283515 - (let ((__tmp283529 - (let ((__tmp283530 + (let ((__tmp152484 + (let ((__tmp152485 + (let ((__tmp152499 + (let ((__tmp152500 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283532 + (let ((__tmp152502 (let () (declare (not safe)) - (cons _$obj278110_ '()))) - (__tmp283531 + (cons _$obj151648_ '()))) + (__tmp152501 (let () (declare (not safe)) - (cons _inline-make-object278087_ '())))) + (cons _inline-make-object151625_ '())))) (declare (not safe)) - (cons __tmp283532 __tmp283531)))) + (cons __tmp152502 __tmp152501)))) (declare (not safe)) - (cons __tmp283530 '()))) - (__tmp283516 - (let ((__tmp283517 - (let ((__tmp283518 - (let ((__tmp283522 - (let ((__tmp283523 - (let ((__tmp283527 - (let ((__tmp283528 + (cons __tmp152500 '()))) + (__tmp152486 + (let ((__tmp152487 + (let ((__tmp152488 + (let ((__tmp152492 + (let ((__tmp152493 + (let ((__tmp152497 + (let ((__tmp152498 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons 'class-instance-init! '())))) (declare (not safe)) - (cons '%#ref __tmp283528))) - (__tmp283524 - (let ((__tmp283525 - (let ((__tmp283526 + (cons '%#ref __tmp152498))) + (__tmp152494 + (let ((__tmp152495 + (let ((__tmp152496 (let () (declare (not safe)) - (cons _$obj278110_ '())))) + (cons _$obj151648_ '())))) (declare (not safe)) - (cons '%#ref __tmp283526)))) + (cons '%#ref __tmp152496)))) (declare (not safe)) - (cons __tmp283525 _args278085_)))) + (cons __tmp152495 _args151623_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283527 - __tmp283524)))) + (cons __tmp152497 + __tmp152494)))) (declare (not safe)) - (cons '%#call __tmp283523))) - (__tmp283519 - (let ((__tmp283520 - (let ((__tmp283521 + (cons '%#call __tmp152493))) + (__tmp152489 + (let ((__tmp152490 + (let ((__tmp152491 (let () (declare (not safe)) - (cons _$obj278110_ + (cons _$obj151648_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp283521)))) + __tmp152491)))) (declare (not safe)) - (cons __tmp283520 '())))) + (cons __tmp152490 '())))) (declare (not safe)) - (cons __tmp283522 __tmp283519)))) + (cons __tmp152492 __tmp152489)))) (declare (not safe)) - (cons '%#begin __tmp283518)))) + (cons '%#begin __tmp152488)))) (declare (not safe)) - (cons __tmp283517 '())))) + (cons __tmp152487 '())))) (declare (not safe)) - (cons __tmp283529 __tmp283516)))) + (cons __tmp152499 __tmp152486)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp283515)))) + __tmp152485)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp283514 - _stx278078_))))) - (let* ((_g278117278157_ + __tmp152484 + _stx151616_))))) + (let* ((_g151655151695_ (lambda () (if (let () (declare (not safe)) (gx#stx-null? - ___stx283212283213_)) - (___kont283216283217_) - (___kont283218283219_)))) - (___match283249283250_ - (lambda (_e278126278162_ - _hd278125278165_ - _tl278124278167_ - _e278129278170_ - _hd278128278173_ - _tl278127278175_ - _e278132278178_ - _hd278131278181_ - _tl278130278183_ - _e278135278186_ - _hd278134278189_ - _tl278133278191_) - (let ((_L278194_ _tl278133278191_) - (_L278195_ _hd278134278189_) - (_L278196_ _hd278131278181_)) + ___stx152182152183_)) + (___kont152186152187_) + (___kont152188152189_)))) + (___match152219152220_ + (lambda (_e151664151700_ + _hd151663151703_ + _tl151662151705_ + _e151667151708_ + _hd151666151711_ + _tl151665151713_ + _e151670151716_ + _hd151669151719_ + _tl151668151721_ + _e151673151724_ + _hd151672151727_ + _tl151671151729_) + (let ((_L151732_ _tl151671151729_) + (_L151733_ _hd151672151727_) + (_L151734_ _hd151669151719_)) (if (let () (declare (not safe)) (gx#stx-keyword? - _L278196_)) - (___kont283214283215_ - _L278194_ - _L278195_ - _L278196_) - (___kont283218283219_)))))) + _L151734_)) + (___kont152184152185_ + _L151732_ + _L151733_ + _L151734_) + (___kont152188152189_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx283212283213_)) - (let ((_e278126278162_ + (gx#stx-pair? ___stx152182152183_)) + (let ((_e151664151700_ (let () (declare (not safe)) (gx#stx-e - ___stx283212283213_)))) - (let ((_tl278124278167_ + ___stx152182152183_)))) + (let ((_tl151662151705_ (let () (declare (not safe)) - (##cdr _e278126278162_))) - (_hd278125278165_ + (##cdr _e151664151700_))) + (_hd151663151703_ (let () (declare (not safe)) - (##car _e278126278162_)))) + (##car _e151664151700_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd278125278165_)) - (let ((_e278129278170_ + _hd151663151703_)) + (let ((_e151667151708_ (let () (declare (not safe)) (gx#stx-e - _hd278125278165_)))) - (let ((_tl278127278175_ + _hd151663151703_)))) + (let ((_tl151665151713_ (let () (declare (not safe)) - (##cdr _e278129278170_))) - (_hd278128278173_ + (##cdr _e151667151708_))) + (_hd151666151711_ (let () (declare (not safe)) - (##car _e278129278170_)))) + (##car _e151667151708_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd278128278173_)) + _hd151666151711_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd278128278173_)) + _hd151666151711_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl278127278175_)) - (let ((_e278132278178_ + (gx#stx-pair? _tl151665151713_)) + (let ((_e151670151716_ (let () (declare (not safe)) - (gx#stx-e _tl278127278175_)))) - (let ((_tl278130278183_ + (gx#stx-e _tl151665151713_)))) + (let ((_tl151668151721_ (let () (declare (not safe)) - (##cdr _e278132278178_))) - (_hd278131278181_ + (##cdr _e151670151716_))) + (_hd151669151719_ (let () (declare (not safe)) - (##car _e278132278178_)))) + (##car _e151670151716_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl278130278183_)) + (gx#stx-null? _tl151668151721_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl278124278167_)) - (let ((_e278135278186_ + (gx#stx-pair? _tl151662151705_)) + (let ((_e151673151724_ (let () (declare (not safe)) - (gx#stx-e _tl278124278167_)))) - (let ((_tl278133278191_ + (gx#stx-e _tl151662151705_)))) + (let ((_tl151671151729_ (let () (declare (not safe)) - (##cdr _e278135278186_))) - (_hd278134278189_ + (##cdr _e151673151724_))) + (_hd151672151727_ (let () (declare (not safe)) - (##car _e278135278186_)))) - (___match283249283250_ - _e278126278162_ - _hd278125278165_ - _tl278124278167_ - _e278129278170_ - _hd278128278173_ - _tl278127278175_ - _e278132278178_ - _hd278131278181_ - _tl278130278183_ - _e278135278186_ - _hd278134278189_ - _tl278133278191_))) - (___kont283218283219_)) - (___kont283218283219_)))) - (___kont283218283219_)) - (___kont283218283219_)) - (___kont283218283219_)))) + (##car _e151673151724_)))) + (___match152219152220_ + _e151664151700_ + _hd151663151703_ + _tl151662151705_ + _e151667151708_ + _hd151666151711_ + _tl151665151713_ + _e151670151716_ + _hd151669151719_ + _tl151668151721_ + _e151673151724_ + _hd151672151727_ + _tl151671151729_))) + (___kont152188152189_)) + (___kont152188152189_)))) + (___kont152188152189_)) + (___kont152188152189_)) + (___kont152188152189_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont283218283219_)))) + (___kont152188152189_)))) (let () (declare (not safe)) - (_g278117278157_)))))))))))))))) + (_g151655151695_)))))))))))))))) (define gxc#!constructor::optimize-call::specialize - (lambda (__t283138) - (let ((__id283139 - (let ((__tmp283140 + (lambda (__t152108) + (let ((__id152109 + (let ((__tmp152110 (let () (declare (not safe)) - (class-slot-offset __t283138 'id)))) - (if __tmp283140 __tmp283140 (error '"Unknown slot" 'id))))) - (lambda (_self278077_ _stx278078_ _args278079_) - (let* ((_klass278081_ - (let ((__tmp283655 + (class-slot-offset __t152108 'id)))) + (if __tmp152110 + __tmp152110 + (let () + (declare (not safe)) + (error '"Unknown slot" 'id)))))) + (lambda (_self151615_ _stx151616_ _args151617_) + (let* ((_klass151619_ + (let ((__tmp152625 (let () (declare (not safe)) (##unchecked-structure-ref - _self278077_ - __id283139 - __t283138 + _self151615_ + __id152109 + __t152108 '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _stx278078_ __tmp283655))) - (_fields278083_ + (gxc#optimizer-resolve-class _stx151616_ __tmp152625))) + (_fields151621_ (length (##structure-ref - _klass278081_ + _klass151619_ '5 gxc#!class::t '#f))) - (_args278085_ (map gxc#compile-e _args278079_)) - (_inline-make-object278087_ - (let ((__tmp283656 - (let ((__tmp283662 - (let ((__tmp283663 + (_args151623_ (map gxc#compile-e _args151617_)) + (_inline-make-object151625_ + (let ((__tmp152626 + (let ((__tmp152632 + (let ((__tmp152633 (let () (declare (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp283663))) - (__tmp283657 - (let ((__tmp283659 - (let ((__tmp283660 - (let ((__tmp283661 + (cons '%#ref __tmp152633))) + (__tmp152627 + (let ((__tmp152629 + (let ((__tmp152630 + (let ((__tmp152631 (let () (declare (not safe)) (##unchecked-structure-ref - _self278077_ - __id283139 - __t283138 + _self151615_ + __id152109 + __t152108 '#f)))) (declare (not safe)) - (cons __tmp283661 '())))) + (cons __tmp152631 '())))) + (declare (not safe)) + (cons '%#ref __tmp152630))) + (__tmp152628 + (let () (declare (not safe)) - (cons '%#ref __tmp283660))) - (__tmp283658 - (make-list - _fields278083_ - '(%#quote #f)))) + (make-list__% + _fields151621_ + '(%#quote #f))))) (declare (not safe)) - (cons __tmp283659 __tmp283658)))) + (cons __tmp152629 __tmp152628)))) (declare (not safe)) - (cons __tmp283662 __tmp283657)))) + (cons __tmp152632 __tmp152627)))) (declare (not safe)) - (cons '%#call __tmp283656)))) - (let ((_$e278090_ - (##structure-ref _klass278081_ '6 gxc#!class::t '#f))) - (if _$e278090_ - ((lambda (_ctor278093_) - (let ((_$obj278095_ - (let ((__tmp283763 (gensym '__obj))) + (cons '%#call __tmp152626)))) + (let ((_$e151628_ + (##structure-ref _klass151619_ '6 gxc#!class::t '#f))) + (if _$e151628_ + ((lambda (_ctor151631_) + (let ((_$obj151633_ + (let ((__tmp152733 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp283763))) - (_ctor-impl278096_ + (make-symbol__0 __tmp152733))) + (_ctor-impl151634_ (let () (declare (not safe)) (gxc#!class-lookup-method - _klass278081_ - _ctor278093_)))) - (let ((__tmp283764 - (let ((__tmp283765 - (let ((__tmp283833 - (let ((__tmp283834 - (let ((__tmp283836 + _klass151619_ + _ctor151631_)))) + (let ((__tmp152734 + (let ((__tmp152735 + (let ((__tmp152803 + (let ((__tmp152804 + (let ((__tmp152806 (let () (declare (not safe)) - (cons _$obj278095_ + (cons _$obj151633_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp283835 + (__tmp152805 (let () (declare (not safe)) - (cons _inline-make-object278087_ '())))) + (cons _inline-make-object151625_ '())))) (declare (not safe)) - (cons __tmp283836 __tmp283835)))) + (cons __tmp152806 __tmp152805)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283834 '()))) - (__tmp283766 - (let ((__tmp283767 - (let ((__tmp283768 - (let ((__tmp283772 + (cons __tmp152804 '()))) + (__tmp152736 + (let ((__tmp152737 + (let ((__tmp152738 + (let ((__tmp152742 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if _ctor-impl278096_ - (let ((__tmp283827 - (let ((__tmp283831 - (let ((__tmp283832 + (if _ctor-impl151634_ + (let ((__tmp152797 + (let ((__tmp152801 + (let ((__tmp152802 (let () (declare (not safe)) - (cons _ctor-impl278096_ + (cons _ctor-impl151634_ '())))) (declare (not safe)) - (cons '%#ref __tmp283832))) - (__tmp283828 - (let ((__tmp283829 - (let ((__tmp283830 + (cons '%#ref __tmp152802))) + (__tmp152798 + (let ((__tmp152799 + (let ((__tmp152800 (let () (declare (not safe)) - (cons _$obj278095_ + (cons _$obj151633_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp283830)))) + (cons '%#ref __tmp152800)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283829 - _args278085_)))) + (cons __tmp152799 + _args151623_)))) (declare (not safe)) - (cons __tmp283831 __tmp283828)))) + (cons __tmp152801 __tmp152798)))) (declare (not safe)) - (cons '%#call __tmp283827)) - (let* ((_$ctor278098_ - (let ((__tmp283773 + (cons '%#call __tmp152797)) + (let* ((_$ctor151636_ + (let ((__tmp152743 (gensym '__constructor))) (declare (not safe)) - (make-symbol__0 __tmp283773))) - (__tmp283774 - (let ((__tmp283809 - (let ((__tmp283810 - (let ((__tmp283826 + (make-symbol__0 __tmp152743))) + (__tmp152744 + (let ((__tmp152779 + (let ((__tmp152780 + (let ((__tmp152796 (let () (declare (not safe)) - (cons _$ctor278098_ + (cons _$ctor151636_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp283811 - (let ((__tmp283812 - (let ((__tmp283813 - (let ((__tmp283824 - (let ((__tmp283825 + (__tmp152781 + (let ((__tmp152782 + (let ((__tmp152783 + (let ((__tmp152794 + (let ((__tmp152795 (let () (declare (not safe)) (cons 'direct-method-ref '())))) (declare (not safe)) - (cons '%#ref __tmp283825))) - (__tmp283814 - (let ((__tmp283821 - (let ((__tmp283822 - (let ((__tmp283823 + (cons '%#ref __tmp152795))) + (__tmp152784 + (let ((__tmp152791 + (let ((__tmp152792 + (let ((__tmp152793 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self278077_ - __id283139 - __t283138 + _self151615_ + __id152109 + __t152108 '#f)))) (declare (not safe)) - (cons __tmp283823 '())))) + (cons __tmp152793 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp283822))) - (__tmp283815 - (let ((__tmp283819 - (let ((__tmp283820 + (cons '%#ref __tmp152792))) + (__tmp152785 + (let ((__tmp152789 + (let ((__tmp152790 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj278095_ '())))) + (cons _$obj151633_ '())))) (declare (not safe)) - (cons '%#ref __tmp283820))) - (__tmp283816 - (let ((__tmp283817 - (let ((__tmp283818 + (cons '%#ref __tmp152790))) + (__tmp152786 + (let ((__tmp152787 + (let ((__tmp152788 (let () (declare (not safe)) - (cons _ctor278093_ '())))) + (cons _ctor151631_ '())))) (declare (not safe)) - (cons '%#quote __tmp283818)))) + (cons '%#quote __tmp152788)))) (declare (not safe)) - (cons __tmp283817 '())))) + (cons __tmp152787 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283819 - __tmp283816)))) + (cons __tmp152789 + __tmp152786)))) (declare (not safe)) - (cons __tmp283821 __tmp283815)))) + (cons __tmp152791 __tmp152785)))) (declare (not safe)) - (cons __tmp283824 __tmp283814)))) + (cons __tmp152794 __tmp152784)))) (declare (not safe)) - (cons '%#call __tmp283813)))) + (cons '%#call __tmp152783)))) (declare (not safe)) - (cons __tmp283812 '())))) + (cons __tmp152782 '())))) (declare (not safe)) - (cons __tmp283826 __tmp283811)))) + (cons __tmp152796 __tmp152781)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283810 '()))) - (__tmp283775 - (let ((__tmp283776 - (let ((__tmp283777 - (let ((__tmp283807 + (cons __tmp152780 '()))) + (__tmp152745 + (let ((__tmp152746 + (let ((__tmp152747 + (let ((__tmp152777 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283808 + (let ((__tmp152778 (let () (declare (not safe)) - (cons _$ctor278098_ '())))) + (cons _$ctor151636_ '())))) (declare (not safe)) - (cons '%#ref __tmp283808))) - (__tmp283778 - (let ((__tmp283800 - (let ((__tmp283801 - (let ((__tmp283805 - (let ((__tmp283806 + (cons '%#ref __tmp152778))) + (__tmp152748 + (let ((__tmp152770 + (let ((__tmp152771 + (let ((__tmp152775 + (let ((__tmp152776 (let () (declare (not safe)) - (cons _$ctor278098_ + (cons _$ctor151636_ '())))) (declare (not safe)) - (cons '%#ref __tmp283806))) - (__tmp283802 - (let ((__tmp283803 - (let ((__tmp283804 + (cons '%#ref __tmp152776))) + (__tmp152772 + (let ((__tmp152773 + (let ((__tmp152774 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj278095_ '())))) + (cons _$obj151633_ '())))) (declare (not safe)) - (cons '%#ref __tmp283804)))) + (cons '%#ref __tmp152774)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283803 - _args278085_)))) + (cons __tmp152773 + _args151623_)))) (declare (not safe)) - (cons __tmp283805 __tmp283802)))) + (cons __tmp152775 __tmp152772)))) (declare (not safe)) - (cons '%#call __tmp283801))) - (__tmp283779 - (let ((__tmp283780 - (let ((__tmp283781 - (let ((__tmp283798 - (let ((__tmp283799 + (cons '%#call __tmp152771))) + (__tmp152749 + (let ((__tmp152750 + (let ((__tmp152751 + (let ((__tmp152768 + (let ((__tmp152769 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp283799))) - (__tmp283782 - (let ((__tmp283796 - (let ((__tmp283797 + (cons '%#ref __tmp152769))) + (__tmp152752 + (let ((__tmp152766 + (let ((__tmp152767 (let () (declare (not safe)) (cons '"missing constructor method implementation" '())))) (declare (not safe)) - (cons '%#quote __tmp283797))) - (__tmp283783 - (let ((__tmp283794 - (let ((__tmp283795 + (cons '%#quote __tmp152767))) + (__tmp152753 + (let ((__tmp152764 + (let ((__tmp152765 (let () (declare (not safe)) (cons 'class: '())))) (declare (not safe)) - (cons '%#quote __tmp283795))) - (__tmp283784 - (let ((__tmp283791 - (let ((__tmp283792 - (let ((__tmp283793 + (cons '%#quote __tmp152765))) + (__tmp152754 + (let ((__tmp152761 + (let ((__tmp152762 + (let ((__tmp152763 (let () (declare (not safe)) (##unchecked-structure-ref - _self278077_ - __id283139 - __t283138 + _self151615_ + __id152109 + __t152108 '#f)))) (declare (not safe)) - (cons __tmp283793 '())))) + (cons __tmp152763 '())))) (declare (not safe)) - (cons '%#ref __tmp283792))) - (__tmp283785 - (let ((__tmp283789 - (let ((__tmp283790 + (cons '%#ref __tmp152762))) + (__tmp152755 + (let ((__tmp152759 + (let ((__tmp152760 (let () (declare (not safe)) (cons 'method: '())))) (declare (not safe)) - (cons '%#quote __tmp283790))) - (__tmp283786 - (let ((__tmp283787 - (let ((__tmp283788 + (cons '%#quote __tmp152760))) + (__tmp152756 + (let ((__tmp152757 + (let ((__tmp152758 (let () (declare (not safe)) - (cons _ctor278093_ + (cons _ctor151631_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#quote - __tmp283788)))) + __tmp152758)))) (declare (not safe)) - (cons __tmp283787 '())))) + (cons __tmp152757 '())))) (declare (not safe)) - (cons __tmp283789 __tmp283786)))) + (cons __tmp152759 __tmp152756)))) (declare (not safe)) - (cons __tmp283791 __tmp283785)))) + (cons __tmp152761 __tmp152755)))) (declare (not safe)) - (cons __tmp283794 __tmp283784)))) + (cons __tmp152764 __tmp152754)))) (declare (not safe)) - (cons __tmp283796 __tmp283783)))) + (cons __tmp152766 __tmp152753)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283798 - __tmp283782)))) + (cons __tmp152768 + __tmp152752)))) (declare (not safe)) - (cons '%#call __tmp283781)))) + (cons '%#call __tmp152751)))) (declare (not safe)) - (cons __tmp283780 '())))) + (cons __tmp152750 '())))) (declare (not safe)) - (cons __tmp283800 __tmp283779)))) + (cons __tmp152770 __tmp152749)))) (declare (not safe)) - (cons __tmp283807 __tmp283778)))) + (cons __tmp152777 __tmp152748)))) (declare (not safe)) - (cons '%#if __tmp283777)))) + (cons '%#if __tmp152747)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283776 '())))) + (cons __tmp152746 '())))) (declare (not safe)) - (cons __tmp283809 __tmp283775)))) + (cons __tmp152779 __tmp152745)))) (declare (not safe)) - (cons '%#let-values __tmp283774)))) - (__tmp283769 - (let ((__tmp283770 - (let ((__tmp283771 + (cons '%#let-values __tmp152744)))) + (__tmp152739 + (let ((__tmp152740 + (let ((__tmp152741 (let () (declare (not safe)) - (cons _$obj278095_ '())))) + (cons _$obj151633_ '())))) (declare (not safe)) - (cons '%#ref __tmp283771)))) + (cons '%#ref __tmp152741)))) (declare (not safe)) - (cons __tmp283770 '())))) + (cons __tmp152740 '())))) (declare (not safe)) - (cons __tmp283772 __tmp283769)))) + (cons __tmp152742 __tmp152739)))) (declare (not safe)) - (cons '%#begin __tmp283768)))) + (cons '%#begin __tmp152738)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283767 '())))) + (cons __tmp152737 '())))) (declare (not safe)) - (cons __tmp283833 __tmp283766)))) + (cons __tmp152803 __tmp152736)))) (declare (not safe)) - (cons '%#let-values __tmp283765)))) + (cons '%#let-values __tmp152735)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp283764 _stx278078_)))) - _$e278090_) - (let ((_$e278100_ + (gxc#xform-wrap-source __tmp152734 _stx151616_)))) + _$e151628_) + (let ((_$e151638_ (##structure-ref - _klass278081_ + _klass151619_ '9 gxc#!class::t '#f))) - (if _$e278100_ - ((lambda (_metaclass278103_) - (let* ((_$obj278105_ - (let ((__tmp283725 (gensym '__obj))) + (if _$e151638_ + ((lambda (_metaclass151641_) + (let* ((_$obj151643_ + (let ((__tmp152695 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp283725))) - (_metakons278107_ - (let ((__tmp283726 + (make-symbol__0 __tmp152695))) + (_metakons151645_ + (let ((__tmp152696 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _stx278078_ - _metaclass278103_)))) + _stx151616_ + _metaclass151641_)))) (declare (not safe)) (gxc#!class-lookup-method - __tmp283726 + __tmp152696 'instance-init!)))) - (let ((__tmp283727 - (let ((__tmp283728 - (let ((__tmp283759 - (let ((__tmp283760 - (let ((__tmp283762 + (let ((__tmp152697 + (let ((__tmp152698 + (let ((__tmp152729 + (let ((__tmp152730 + (let ((__tmp152732 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj278105_ '()))) - (__tmp283761 + (cons _$obj151643_ '()))) + (__tmp152731 (let () (declare (not safe)) - (cons _inline-make-object278087_ '())))) + (cons _inline-make-object151625_ '())))) (declare (not safe)) - (cons __tmp283762 __tmp283761)))) + (cons __tmp152732 __tmp152731)))) (declare (not safe)) - (cons __tmp283760 '()))) + (cons __tmp152730 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp283729 - (let ((__tmp283730 - (let ((__tmp283731 + (__tmp152699 + (let ((__tmp152700 + (let ((__tmp152701 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283735 - (if _metakons278107_ - (let ((__tmp283749 - (let ((__tmp283757 - (let ((__tmp283758 + (let ((__tmp152705 + (if _metakons151645_ + (let ((__tmp152719 + (let ((__tmp152727 + (let ((__tmp152728 (let () (declare (not safe)) - (cons _metakons278107_ + (cons _metakons151645_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp283758))) - (__tmp283750 - (let ((__tmp283754 - (let ((__tmp283755 + __tmp152728))) + (__tmp152720 + (let ((__tmp152724 + (let ((__tmp152725 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283756 + (let ((__tmp152726 (let () (declare (not safe)) (##unchecked-structure-ref - _self278077_ - __id283139 - __t283138 + _self151615_ + __id152109 + __t152108 '#f)))) (declare (not safe)) - (cons __tmp283756 '())))) + (cons __tmp152726 '())))) (declare (not safe)) - (cons '%#ref __tmp283755))) - (__tmp283751 - (let ((__tmp283752 - (let ((__tmp283753 + (cons '%#ref __tmp152725))) + (__tmp152721 + (let ((__tmp152722 + (let ((__tmp152723 (let () (declare (not safe)) - (cons _$obj278105_ '())))) + (cons _$obj151643_ '())))) (declare (not safe)) - (cons '%#ref __tmp283753)))) + (cons '%#ref __tmp152723)))) (declare (not safe)) - (cons __tmp283752 _args278085_)))) + (cons __tmp152722 _args151623_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283754 - __tmp283751)))) + (cons __tmp152724 + __tmp152721)))) (declare (not safe)) - (cons __tmp283757 __tmp283750)))) + (cons __tmp152727 __tmp152720)))) (declare (not safe)) - (cons '%#call __tmp283749)) - (let ((__tmp283736 - (let ((__tmp283747 - (let ((__tmp283748 + (cons '%#call __tmp152719)) + (let ((__tmp152706 + (let ((__tmp152717 + (let ((__tmp152718 (let () (declare (not safe)) @@ -2013,526 +2029,526 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp283748))) - (__tmp283737 - (let ((__tmp283744 - (let ((__tmp283745 + __tmp152718))) + (__tmp152707 + (let ((__tmp152714 + (let ((__tmp152715 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283746 + (let ((__tmp152716 (let () (declare (not safe)) (##unchecked-structure-ref - _self278077_ - __id283139 - __t283138 + _self151615_ + __id152109 + __t152108 '#f)))) (declare (not safe)) - (cons __tmp283746 '())))) + (cons __tmp152716 '())))) (declare (not safe)) - (cons '%#ref __tmp283745))) - (__tmp283738 - (let ((__tmp283742 - (let ((__tmp283743 + (cons '%#ref __tmp152715))) + (__tmp152708 + (let ((__tmp152712 + (let ((__tmp152713 (let () (declare (not safe)) (cons 'instance-init! '())))) (declare (not safe)) - (cons '%#quote __tmp283743))) - (__tmp283739 - (let ((__tmp283740 - (let ((__tmp283741 + (cons '%#quote __tmp152713))) + (__tmp152709 + (let ((__tmp152710 + (let ((__tmp152711 (let () (declare (not safe)) - (cons _$obj278105_ '())))) + (cons _$obj151643_ '())))) (declare (not safe)) - (cons '%#ref __tmp283741)))) + (cons '%#ref __tmp152711)))) (declare (not safe)) - (cons __tmp283740 _args278085_)))) + (cons __tmp152710 _args151623_)))) (declare (not safe)) - (cons __tmp283742 __tmp283739)))) + (cons __tmp152712 __tmp152709)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283744 - __tmp283738)))) + (cons __tmp152714 + __tmp152708)))) (declare (not safe)) - (cons __tmp283747 __tmp283737)))) + (cons __tmp152717 __tmp152707)))) (declare (not safe)) - (cons '%#call __tmp283736)))) - (__tmp283732 - (let ((__tmp283733 - (let ((__tmp283734 + (cons '%#call __tmp152706)))) + (__tmp152702 + (let ((__tmp152703 + (let ((__tmp152704 (let () (declare (not safe)) - (cons _$obj278105_ '())))) + (cons _$obj151643_ '())))) (declare (not safe)) - (cons '%#ref __tmp283734)))) + (cons '%#ref __tmp152704)))) (declare (not safe)) - (cons __tmp283733 '())))) + (cons __tmp152703 '())))) (declare (not safe)) - (cons __tmp283735 __tmp283732)))) + (cons __tmp152705 __tmp152702)))) (declare (not safe)) - (cons '%#begin __tmp283731)))) + (cons '%#begin __tmp152701)))) (declare (not safe)) - (cons __tmp283730 '())))) + (cons __tmp152700 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283759 - __tmp283729)))) + (cons __tmp152729 + __tmp152699)))) (declare (not safe)) - (cons '%#let-values __tmp283728)))) + (cons '%#let-values __tmp152698)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp283727 - _stx278078_)))) - _$e278100_) + __tmp152697 + _stx151616_)))) + _$e151638_) (if (##structure-ref - _klass278081_ + _klass151619_ '7 gxc#!class::t '#f) - (if (fx= (length _args278085_) _fields278083_) - (let ((__tmp283717 - (let ((__tmp283718 - (let ((__tmp283723 - (let ((__tmp283724 + (if (fx= (length _args151623_) _fields151621_) + (let ((__tmp152687 + (let ((__tmp152688 + (let ((__tmp152693 + (let ((__tmp152694 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp283724))) - (__tmp283719 - (let ((__tmp283720 - (let ((__tmp283721 - (let ((__tmp283722 + (cons '%#ref __tmp152694))) + (__tmp152689 + (let ((__tmp152690 + (let ((__tmp152691 + (let ((__tmp152692 (let () (declare (not safe)) (##unchecked-structure-ref - _self278077_ - __id283139 - __t283138 + _self151615_ + __id152109 + __t152108 '#f)))) (declare (not safe)) - (cons __tmp283722 '())))) + (cons __tmp152692 '())))) (declare (not safe)) - (cons '%#ref __tmp283721)))) + (cons '%#ref __tmp152691)))) (declare (not safe)) - (cons __tmp283720 _args278085_)))) + (cons __tmp152690 _args151623_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283723 - __tmp283719)))) + (cons __tmp152693 + __tmp152689)))) (declare (not safe)) - (cons '%#call __tmp283718)))) + (cons '%#call __tmp152688)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp283717 - _stx278078_)) - (let ((__tmp283716 + __tmp152687 + _stx151616_)) + (let ((__tmp152686 (let () (declare (not safe)) (##unchecked-structure-ref - _self278077_ - __id283139 - __t283138 + _self151615_ + __id152109 + __t152108 '#f))) - (__tmp283715 + (__tmp152685 (length (##structure-ref - _klass278081_ + _klass151619_ '5 gxc#!class::t '#f)))) (declare (not safe)) (gxc#raise-compile-error '"illegal struct constructor application; arity mismatch" - _stx278078_ - __tmp283716 - __tmp283715))) - (let ((_$obj278110_ - (let ((__tmp283664 (gensym '__obj))) + _stx151616_ + __tmp152686 + __tmp152685))) + (let ((_$obj151648_ + (let ((__tmp152634 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp283664)))) - (let _lp278112_ ((_rest278114_ _args278085_) - (_initializers278115_ '())) - (let* ((___stx283254283255_ _rest278114_) - (_g278119278140_ + (make-symbol__0 __tmp152634)))) + (let _lp151650_ ((_rest151652_ _args151623_) + (_initializers151653_ '())) + (let* ((___stx152224152225_ _rest151652_) + (_g151657151678_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx283254283255_))))) - (let ((___kont283256283257_ - (lambda (_L278194_ - _L278195_ - _L278196_) - (let* ((_slot278227_ + ___stx152224152225_))))) + (let ((___kont152226152227_ + (lambda (_L151732_ + _L151733_ + _L151734_) + (let* ((_slot151765_ (keyword->symbol (let () (declare (not safe)) - (gx#stx-e _L278196_)))) - (_off278229_ + (gx#stx-e _L151734_)))) + (_off151767_ (let () (declare (not safe)) (gxc#!class-slot->field-offset - _klass278081_ - _slot278227_)))) - (if _off278229_ - (let ((__tmp283666 - (let ((__tmp283667 + _klass151619_ + _slot151765_)))) + (if _off151767_ + (let ((__tmp152636 + (let ((__tmp152637 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _off278229_ _L278195_)))) + (cons _off151767_ _L151733_)))) (declare (not safe)) - (cons __tmp283667 _initializers278115_)))) + (cons __tmp152637 _initializers151653_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp278112_ - _L278194_ - __tmp283666)) - (let ((__tmp283665 + (_lp151650_ + _L151732_ + __tmp152636)) + (let ((__tmp152635 (let () (declare (not safe)) (##unchecked-structure-ref - _self278077_ - __id283139 - __t283138 + _self151615_ + __id152109 + __t152108 '#f)))) (declare (not safe)) (gxc#raise-compile-error '"unknown slot" - _stx278078_ - __tmp283665 - _slot278227_)))))) - (___kont283258283259_ + _stx151616_ + __tmp152635 + _slot151765_)))))) + (___kont152228152229_ (lambda () - (let ((__tmp283668 - (let ((__tmp283669 - (let ((__tmp283692 + (let ((__tmp152638 + (let ((__tmp152639 + (let ((__tmp152662 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283693 - (let ((__tmp283695 + (let ((__tmp152663 + (let ((__tmp152665 (let () (declare (not safe)) - (cons _$obj278110_ '()))) - (__tmp283694 + (cons _$obj151648_ '()))) + (__tmp152664 (let () (declare (not safe)) - (cons _inline-make-object278087_ + (cons _inline-make-object151625_ '())))) (declare (not safe)) - (cons __tmp283695 __tmp283694)))) + (cons __tmp152665 __tmp152664)))) (declare (not safe)) - (cons __tmp283693 '()))) - (__tmp283670 - (let ((__tmp283671 - (let ((__tmp283672 - (let ((__tmp283689 - (let ((__tmp283690 - (let ((__tmp283691 + (cons __tmp152663 '()))) + (__tmp152640 + (let ((__tmp152641 + (let ((__tmp152642 + (let ((__tmp152659 + (let ((__tmp152660 + (let ((__tmp152661 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj278110_ '())))) + (cons _$obj151648_ '())))) (declare (not safe)) - (cons '%#ref __tmp283691)))) + (cons '%#ref __tmp152661)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283690 '()))) - (__tmp283673 - (let ((__tmp283674 - (lambda (_i278154_ - _r278155_) - (let ((__tmp283675 - (let ((__tmp283676 + (cons __tmp152660 '()))) + (__tmp152643 + (let ((__tmp152644 + (lambda (_i151692_ + _r151693_) + (let ((__tmp152645 + (let ((__tmp152646 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283686 - (let ((__tmp283687 - (let ((__tmp283688 + (let ((__tmp152656 + (let ((__tmp152657 + (let ((__tmp152658 (let () (declare (not safe)) (##unchecked-structure-ref - _self278077_ - __id283139 - __t283138 + _self151615_ + __id152109 + __t152108 '#f)))) (declare (not safe)) - (cons __tmp283688 '())))) + (cons __tmp152658 '())))) (declare (not safe)) - (cons '%#ref __tmp283687))) - (__tmp283677 - (let ((__tmp283683 - (let ((__tmp283684 - (let ((__tmp283685 - (car _i278154_))) + (cons '%#ref __tmp152657))) + (__tmp152647 + (let ((__tmp152653 + (let ((__tmp152654 + (let ((__tmp152655 + (car _i151692_))) (declare (not safe)) - (cons __tmp283685 '())))) + (cons __tmp152655 '())))) (declare (not safe)) - (cons '%#quote __tmp283684))) - (__tmp283678 - (let ((__tmp283681 - (let ((__tmp283682 + (cons '%#quote __tmp152654))) + (__tmp152648 + (let ((__tmp152651 + (let ((__tmp152652 (let () (declare (not safe)) - (cons _$obj278110_ + (cons _$obj151648_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp283682))) - (__tmp283679 - (let ((__tmp283680 - (cdr _i278154_))) + __tmp152652))) + (__tmp152649 + (let ((__tmp152650 + (cdr _i151692_))) (declare (not safe)) - (cons __tmp283680 '())))) + (cons __tmp152650 '())))) (declare (not safe)) - (cons __tmp283681 __tmp283679)))) + (cons __tmp152651 __tmp152649)))) (declare (not safe)) - (cons __tmp283683 __tmp283678)))) + (cons __tmp152653 __tmp152648)))) (declare (not safe)) - (cons __tmp283686 __tmp283677)))) + (cons __tmp152656 __tmp152647)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp283676)))) + (cons '%#struct-unchecked-set! __tmp152646)))) (declare (not safe)) - (cons __tmp283675 _r278155_))))) + (cons __tmp152645 _r151693_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldl1 __tmp283674 + (foldl1 __tmp152644 '() - _initializers278115_)))) + _initializers151653_)))) (declare (not safe)) (foldr1 cons - __tmp283689 - __tmp283673)))) + __tmp152659 + __tmp152643)))) (declare (not safe)) - (cons '%#begin __tmp283672)))) + (cons '%#begin __tmp152642)))) (declare (not safe)) - (cons __tmp283671 '())))) + (cons __tmp152641 '())))) (declare (not safe)) - (cons __tmp283692 __tmp283670)))) + (cons __tmp152662 __tmp152640)))) (declare (not safe)) - (cons '%#let-values __tmp283669)))) + (cons '%#let-values __tmp152639)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp283668 - _stx278078_)))) - (___kont283260283261_ + __tmp152638 + _stx151616_)))) + (___kont152230152231_ (lambda () - (let ((__tmp283696 - (let ((__tmp283697 - (let ((__tmp283711 + (let ((__tmp152666 + (let ((__tmp152667 + (let ((__tmp152681 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283712 - (let ((__tmp283714 + (let ((__tmp152682 + (let ((__tmp152684 (let () (declare (not safe)) - (cons _$obj278110_ '()))) - (__tmp283713 + (cons _$obj151648_ '()))) + (__tmp152683 (let () (declare (not safe)) - (cons _inline-make-object278087_ + (cons _inline-make-object151625_ '())))) (declare (not safe)) - (cons __tmp283714 __tmp283713)))) + (cons __tmp152684 __tmp152683)))) (declare (not safe)) - (cons __tmp283712 '()))) - (__tmp283698 - (let ((__tmp283699 - (let ((__tmp283700 - (let ((__tmp283704 - (let ((__tmp283705 - (let ((__tmp283709 - (let ((__tmp283710 + (cons __tmp152682 '()))) + (__tmp152668 + (let ((__tmp152669 + (let ((__tmp152670 + (let ((__tmp152674 + (let ((__tmp152675 + (let ((__tmp152679 + (let ((__tmp152680 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'class-instance-init! '())))) (declare (not safe)) - (cons '%#ref __tmp283710))) - (__tmp283706 - (let ((__tmp283707 - (let ((__tmp283708 + (cons '%#ref __tmp152680))) + (__tmp152676 + (let ((__tmp152677 + (let ((__tmp152678 (let () (declare (not safe)) - (cons _$obj278110_ '())))) + (cons _$obj151648_ '())))) (declare (not safe)) - (cons '%#ref __tmp283708)))) + (cons '%#ref __tmp152678)))) (declare (not safe)) - (cons __tmp283707 _args278085_)))) + (cons __tmp152677 _args151623_)))) (declare (not safe)) - (cons __tmp283709 __tmp283706)))) + (cons __tmp152679 __tmp152676)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp283705))) - (__tmp283701 - (let ((__tmp283702 - (let ((__tmp283703 + (cons '%#call __tmp152675))) + (__tmp152671 + (let ((__tmp152672 + (let ((__tmp152673 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj278110_ '())))) + (cons _$obj151648_ '())))) (declare (not safe)) - (cons '%#ref __tmp283703)))) + (cons '%#ref __tmp152673)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283702 '())))) + (cons __tmp152672 '())))) (declare (not safe)) - (cons __tmp283704 __tmp283701)))) + (cons __tmp152674 __tmp152671)))) (declare (not safe)) - (cons '%#begin __tmp283700)))) + (cons '%#begin __tmp152670)))) (declare (not safe)) - (cons __tmp283699 '())))) + (cons __tmp152669 '())))) (declare (not safe)) - (cons __tmp283711 __tmp283698)))) + (cons __tmp152681 __tmp152668)))) (declare (not safe)) - (cons '%#let-values __tmp283697)))) + (cons '%#let-values __tmp152667)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp283696 - _stx278078_))))) - (let* ((_g278117278157_ + __tmp152666 + _stx151616_))))) + (let* ((_g151655151695_ (lambda () (if (let () (declare (not safe)) (gx#stx-null? - ___stx283254283255_)) - (___kont283258283259_) - (___kont283260283261_)))) - (___match283291283292_ - (lambda (_e278126278162_ - _hd278125278165_ - _tl278124278167_ - _e278129278170_ - _hd278128278173_ - _tl278127278175_ - _e278132278178_ - _hd278131278181_ - _tl278130278183_ - _e278135278186_ - _hd278134278189_ - _tl278133278191_) - (let ((_L278194_ - _tl278133278191_) - (_L278195_ - _hd278134278189_) - (_L278196_ - _hd278131278181_)) + ___stx152224152225_)) + (___kont152228152229_) + (___kont152230152231_)))) + (___match152261152262_ + (lambda (_e151664151700_ + _hd151663151703_ + _tl151662151705_ + _e151667151708_ + _hd151666151711_ + _tl151665151713_ + _e151670151716_ + _hd151669151719_ + _tl151668151721_ + _e151673151724_ + _hd151672151727_ + _tl151671151729_) + (let ((_L151732_ + _tl151671151729_) + (_L151733_ + _hd151672151727_) + (_L151734_ + _hd151669151719_)) (if (let () (declare (not safe)) (gx#stx-keyword? - _L278196_)) - (___kont283256283257_ - _L278194_ - _L278195_ - _L278196_) - (___kont283260283261_)))))) + _L151734_)) + (___kont152226152227_ + _L151732_ + _L151733_ + _L151734_) + (___kont152230152231_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx283254283255_)) - (let ((_e278126278162_ + ___stx152224152225_)) + (let ((_e151664151700_ (let () (declare (not safe)) (gx#stx-e - ___stx283254283255_)))) - (let ((_tl278124278167_ + ___stx152224152225_)))) + (let ((_tl151662151705_ (let () (declare (not safe)) - (##cdr _e278126278162_))) - (_hd278125278165_ + (##cdr _e151664151700_))) + (_hd151663151703_ (let () (declare (not safe)) - (##car _e278126278162_)))) + (##car _e151664151700_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd278125278165_)) - (let ((_e278129278170_ + _hd151663151703_)) + (let ((_e151667151708_ (let () (declare (not safe)) (gx#stx-e - _hd278125278165_)))) - (let ((_tl278127278175_ + _hd151663151703_)))) + (let ((_tl151665151713_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e278129278170_))) - (_hd278128278173_ - (let () (declare (not safe)) (##car _e278129278170_)))) + (##cdr _e151667151708_))) + (_hd151666151711_ + (let () (declare (not safe)) (##car _e151667151708_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd278128278173_)) + (gx#identifier? _hd151666151711_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd278128278173_)) + (gx#stx-eq? '%#quote _hd151666151711_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl278127278175_)) - (let ((_e278132278178_ + (gx#stx-pair? _tl151665151713_)) + (let ((_e151670151716_ (let () (declare (not safe)) - (gx#stx-e _tl278127278175_)))) - (let ((_tl278130278183_ + (gx#stx-e _tl151665151713_)))) + (let ((_tl151668151721_ (let () (declare (not safe)) - (##cdr _e278132278178_))) - (_hd278131278181_ + (##cdr _e151670151716_))) + (_hd151669151719_ (let () (declare (not safe)) - (##car _e278132278178_)))) + (##car _e151670151716_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl278130278183_)) + (gx#stx-null? _tl151668151721_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl278124278167_)) - (let ((_e278135278186_ + (gx#stx-pair? _tl151662151705_)) + (let ((_e151673151724_ (let () (declare (not safe)) - (gx#stx-e _tl278124278167_)))) - (let ((_tl278133278191_ + (gx#stx-e _tl151662151705_)))) + (let ((_tl151671151729_ (let () (declare (not safe)) - (##cdr _e278135278186_))) - (_hd278134278189_ + (##cdr _e151673151724_))) + (_hd151672151727_ (let () (declare (not safe)) - (##car _e278135278186_)))) - (___match283291283292_ - _e278126278162_ - _hd278125278165_ - _tl278124278167_ - _e278129278170_ - _hd278128278173_ - _tl278127278175_ - _e278132278178_ - _hd278131278181_ - _tl278130278183_ - _e278135278186_ - _hd278134278189_ - _tl278133278191_))) - (___kont283260283261_)) - (___kont283260283261_)))) - (___kont283260283261_)) - (___kont283260283261_)) - (___kont283260283261_)))) + (##car _e151673151724_)))) + (___match152261152262_ + _e151664151700_ + _hd151663151703_ + _tl151662151705_ + _e151667151708_ + _hd151666151711_ + _tl151665151713_ + _e151670151716_ + _hd151669151719_ + _tl151668151721_ + _e151673151724_ + _hd151672151727_ + _tl151671151729_))) + (___kont152230152231_)) + (___kont152230152231_)))) + (___kont152230152231_)) + (___kont152230152231_)) + (___kont152230152231_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont283260283261_)))) + (___kont152230152231_)))) (let () (declare (not safe)) - (_g278117278157_)))))))))))))))))) + (_g151655151695_)))))))))))))))))) (let () (declare (not safe)) (bind-specializer! @@ -2540,950 +2556,960 @@ gxc#!constructor::optimize-call::specialize)) (let () (declare (not safe)) - (bind-method! + (bind-method!__% gxc#!constructor::t 'optimize-call gxc#!constructor::optimize-call '#f)) (define gxc#!accessor::optimize-call - (lambda (_self277900_ _stx277901_ _args277902_) - (let* ((_g277904277914_ - (lambda (_g277905277911_) + (lambda (_self151438_ _stx151439_ _args151440_) + (let* ((_g151442151452_ + (lambda (_g151443151449_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g277905277911_)))) - (_g277903277952_ - (lambda (_g277905277917_) + _g151443151449_)))) + (_g151441151490_ + (lambda (_g151443151455_) (if (let () (declare (not safe)) - (gx#stx-pair? _g277905277917_)) - (let ((_e277909277919_ + (gx#stx-pair? _g151443151455_)) + (let ((_e151447151457_ (let () (declare (not safe)) - (gx#stx-e _g277905277917_)))) - (let ((_hd277908277922_ + (gx#stx-e _g151443151455_)))) + (let ((_hd151446151460_ (let () (declare (not safe)) - (##car _e277909277919_))) - (_tl277907277924_ + (##car _e151447151457_))) + (_tl151445151462_ (let () (declare (not safe)) - (##cdr _e277909277919_)))) + (##cdr _e151447151457_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl277907277924_)) - ((lambda (_L277927_) - (let* ((_klass277938_ - (let ((__tmp283837 + (gx#stx-null? _tl151445151462_)) + ((lambda (_L151465_) + (let* ((_klass151476_ + (let ((__tmp152807 (##structure-ref - _self277900_ + _self151438_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx277901_ - __tmp283837))) - (_field277940_ - (let ((__tmp283838 + _stx151439_ + __tmp152807))) + (_field151478_ + (let ((__tmp152808 (##structure-ref - _self277900_ + _self151438_ '2 gxc#!accessor::t '#f))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass277938_ - __tmp283838))) - (_object277942_ + _klass151476_ + __tmp152808))) + (_object151480_ (let () (declare (not safe)) - (gxc#compile-e__0 _L277927_)))) + (gxc#compile-e__0 _L151465_)))) (if (##structure-ref - _klass277938_ + _klass151476_ '8 gxc#!class::t '#f) - (let ((__tmp283915 - (let ((__tmp283924 + (let ((__tmp152885 + (let ((__tmp152894 (if (##structure-ref - _self277900_ + _self151438_ '3 gxc#!accessor::t '#f) '%#struct-direct-ref '%#struct-unchecked-ref)) - (__tmp283916 - (let ((__tmp283921 - (let ((__tmp283922 + (__tmp152886 + (let ((__tmp152891 + (let ((__tmp152892 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283923 + (let ((__tmp152893 (##structure-ref - _self277900_ + _self151438_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp283923 '())))) + (cons __tmp152893 '())))) (declare (not safe)) - (cons '%#ref __tmp283922))) - (__tmp283917 - (let ((__tmp283919 - (let ((__tmp283920 + (cons '%#ref __tmp152892))) + (__tmp152887 + (let ((__tmp152889 + (let ((__tmp152890 (let () (declare (not safe)) - (cons _field277940_ '())))) + (cons _field151478_ '())))) (declare (not safe)) - (cons '%#quote __tmp283920))) - (__tmp283918 + (cons '%#quote __tmp152890))) + (__tmp152888 (let () (declare (not safe)) - (cons _object277942_ '())))) + (cons _object151480_ '())))) (declare (not safe)) - (cons __tmp283919 __tmp283918)))) + (cons __tmp152889 __tmp152888)))) (declare (not safe)) - (cons __tmp283921 __tmp283917)))) + (cons __tmp152891 __tmp152887)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283924 - __tmp283916)))) + (cons __tmp152894 + __tmp152886)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp283915 - _stx277901_)) + __tmp152885 + _stx151439_)) (if (##structure-ref - _klass277938_ + _klass151476_ '7 gxc#!class::t '#f) - (let ((__tmp283905 - (let ((__tmp283914 + (let ((__tmp152875 + (let ((__tmp152884 (if (##structure-ref - _self277900_ + _self151438_ '3 gxc#!accessor::t '#f) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp283906 - (let ((__tmp283911 - (let ((__tmp283912 + (__tmp152876 + (let ((__tmp152881 + (let ((__tmp152882 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283913 + (let ((__tmp152883 (##structure-ref - _self277900_ + _self151438_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp283913 '())))) + (cons __tmp152883 '())))) (declare (not safe)) - (cons '%#ref __tmp283912))) - (__tmp283907 - (let ((__tmp283909 - (let ((__tmp283910 + (cons '%#ref __tmp152882))) + (__tmp152877 + (let ((__tmp152879 + (let ((__tmp152880 (let () (declare (not safe)) - (cons _field277940_ '())))) + (cons _field151478_ '())))) (declare (not safe)) - (cons '%#quote __tmp283910))) - (__tmp283908 + (cons '%#quote __tmp152880))) + (__tmp152878 (let () (declare (not safe)) - (cons _object277942_ '())))) + (cons _object151480_ '())))) (declare (not safe)) - (cons __tmp283909 __tmp283908)))) + (cons __tmp152879 __tmp152878)))) (declare (not safe)) - (cons __tmp283911 __tmp283907)))) + (cons __tmp152881 __tmp152877)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283914 - __tmp283906)))) + (cons __tmp152884 + __tmp152876)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp283905 - _stx277901_)) - (let ((_$e277945_ - (let ((__tmp283839 + __tmp152875 + _stx151439_)) + (let ((_$e151483_ + (let ((__tmp152809 (##structure-ref - _self277900_ + _self151438_ '2 gxc#!accessor::t '#f))) (declare (not safe)) (gxc#!class-slot-find-struct - _klass277938_ - __tmp283839)))) - (if _$e277945_ - ((lambda (_klass277948_) - (let ((__tmp283895 - (let ((__tmp283904 + _klass151476_ + __tmp152809)))) + (if _$e151483_ + ((lambda (_klass151486_) + (let ((__tmp152865 + (let ((__tmp152874 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (##structure-ref - _self277900_ + _self151438_ '3 gxc#!accessor::t '#f) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp283896 - (let ((__tmp283901 - (let ((__tmp283902 - (let ((__tmp283903 + (__tmp152866 + (let ((__tmp152871 + (let ((__tmp152872 + (let ((__tmp152873 (##structure-ref - _self277900_ + _self151438_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp283903 '())))) + (cons __tmp152873 '())))) (declare (not safe)) - (cons '%#ref __tmp283902))) - (__tmp283897 - (let ((__tmp283899 - (let ((__tmp283900 + (cons '%#ref __tmp152872))) + (__tmp152867 + (let ((__tmp152869 + (let ((__tmp152870 (let () (declare (not safe)) - (cons _field277940_ '())))) + (cons _field151478_ '())))) (declare (not safe)) - (cons '%#quote __tmp283900))) - (__tmp283898 + (cons '%#quote __tmp152870))) + (__tmp152868 (let () (declare (not safe)) - (cons _object277942_ '())))) + (cons _object151480_ '())))) (declare (not safe)) - (cons __tmp283899 __tmp283898)))) + (cons __tmp152869 __tmp152868)))) (declare (not safe)) - (cons __tmp283901 __tmp283897)))) + (cons __tmp152871 __tmp152867)))) (declare (not safe)) - (cons __tmp283904 __tmp283896)))) + (cons __tmp152874 __tmp152866)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp283895 _stx277901_))) + (gxc#xform-wrap-source __tmp152865 _stx151439_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e277945_) + _$e151483_) (if (##structure-ref - _self277900_ + _self151438_ '3 gxc#!accessor::t '#f) - (let ((__tmp283849 - (let* ((_$obj277950_ + (let ((__tmp152819 + (let* ((_$obj151488_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283850 (gensym '__obj))) + (let ((__tmp152820 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp283850))) - (__tmp283851 - (let ((__tmp283891 - (let ((__tmp283892 - (let ((__tmp283894 + (make-symbol__0 __tmp152820))) + (__tmp152821 + (let ((__tmp152861 + (let ((__tmp152862 + (let ((__tmp152864 (let () (declare (not safe)) - (cons _$obj277950_ '()))) - (__tmp283893 + (cons _$obj151488_ '()))) + (__tmp152863 (let () (declare (not safe)) - (cons _object277942_ '())))) + (cons _object151480_ '())))) (declare (not safe)) - (cons __tmp283894 __tmp283893)))) + (cons __tmp152864 __tmp152863)))) (declare (not safe)) - (cons __tmp283892 '()))) - (__tmp283852 - (let ((__tmp283853 - (let ((__tmp283854 - (let ((__tmp283883 - (let ((__tmp283884 - (let ((__tmp283888 + (cons __tmp152862 '()))) + (__tmp152822 + (let ((__tmp152823 + (let ((__tmp152824 + (let ((__tmp152853 + (let ((__tmp152854 + (let ((__tmp152858 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283889 - (let ((__tmp283890 + (let ((__tmp152859 + (let ((__tmp152860 (##structure-ref - _klass277938_ + _klass151476_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp283890 '())))) + (cons __tmp152860 '())))) (declare (not safe)) - (cons '%#quote __tmp283889))) - (__tmp283885 - (let ((__tmp283886 - (let ((__tmp283887 + (cons '%#quote __tmp152859))) + (__tmp152855 + (let ((__tmp152856 + (let ((__tmp152857 (let () (declare (not safe)) - (cons _$obj277950_ '())))) + (cons _$obj151488_ '())))) (declare (not safe)) - (cons '%#ref __tmp283887)))) + (cons '%#ref __tmp152857)))) (declare (not safe)) - (cons __tmp283886 '())))) + (cons __tmp152856 '())))) (declare (not safe)) - (cons __tmp283888 __tmp283885)))) + (cons __tmp152858 __tmp152855)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp283884))) - (__tmp283855 - (let ((__tmp283872 - (let ((__tmp283873 - (let ((__tmp283880 - (let ((__tmp283881 - (let ((__tmp283882 + (cons '%#struct-direct-instance? __tmp152854))) + (__tmp152825 + (let ((__tmp152842 + (let ((__tmp152843 + (let ((__tmp152850 + (let ((__tmp152851 + (let ((__tmp152852 (##structure-ref - _self277900_ + _self151438_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp283882 '())))) + (cons __tmp152852 '())))) (declare (not safe)) - (cons '%#ref __tmp283881))) - (__tmp283874 - (let ((__tmp283878 - (let ((__tmp283879 + (cons '%#ref __tmp152851))) + (__tmp152844 + (let ((__tmp152848 + (let ((__tmp152849 (let () (declare (not safe)) - (cons _field277940_ + (cons _field151478_ '())))) (declare (not safe)) - (cons '%#quote __tmp283879))) - (__tmp283875 - (let ((__tmp283876 - (let ((__tmp283877 + (cons '%#quote __tmp152849))) + (__tmp152845 + (let ((__tmp152846 + (let ((__tmp152847 (let () (declare (not safe)) - (cons _$obj277950_ + (cons _$obj151488_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp283877)))) + __tmp152847)))) (declare (not safe)) - (cons __tmp283876 '())))) + (cons __tmp152846 '())))) (declare (not safe)) - (cons __tmp283878 __tmp283875)))) + (cons __tmp152848 __tmp152845)))) (declare (not safe)) - (cons __tmp283880 __tmp283874)))) + (cons __tmp152850 __tmp152844)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp283873))) - (__tmp283856 - (let ((__tmp283857 - (let ((__tmp283858 - (let ((__tmp283870 - (let ((__tmp283871 + (cons '%#struct-unchecked-ref __tmp152843))) + (__tmp152826 + (let ((__tmp152827 + (let ((__tmp152828 + (let ((__tmp152840 + (let ((__tmp152841 (let () (declare (not safe)) (cons 'class-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp283871))) - (__tmp283859 - (let ((__tmp283867 - (let ((__tmp283868 - (let ((__tmp283869 + (cons '%#ref __tmp152841))) + (__tmp152829 + (let ((__tmp152837 + (let ((__tmp152838 + (let ((__tmp152839 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##structure-ref _self277900_ '1 gxc#!type::t '#f))) + (##structure-ref _self151438_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp283869 '())))) + (cons __tmp152839 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp283868))) - (__tmp283860 - (let ((__tmp283865 - (let ((__tmp283866 + __tmp152838))) + (__tmp152830 + (let ((__tmp152835 + (let ((__tmp152836 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj277950_ '())))) + (cons _$obj151488_ '())))) (declare (not safe)) - (cons '%#ref __tmp283866))) - (__tmp283861 - (let ((__tmp283862 - (let ((__tmp283863 - (let ((__tmp283864 + (cons '%#ref __tmp152836))) + (__tmp152831 + (let ((__tmp152832 + (let ((__tmp152833 + (let ((__tmp152834 (##structure-ref - _self277900_ + _self151438_ '2 gxc#!accessor::t '#f))) (declare (not safe)) - (cons __tmp283864 '())))) + (cons __tmp152834 '())))) (declare (not safe)) - (cons '%#quote __tmp283863)))) + (cons '%#quote __tmp152833)))) (declare (not safe)) - (cons __tmp283862 '())))) + (cons __tmp152832 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283865 - __tmp283861)))) + (cons __tmp152835 + __tmp152831)))) (declare (not safe)) - (cons __tmp283867 __tmp283860)))) + (cons __tmp152837 __tmp152830)))) (declare (not safe)) - (cons __tmp283870 __tmp283859)))) + (cons __tmp152840 __tmp152829)))) (declare (not safe)) - (cons '%#call __tmp283858)))) + (cons '%#call __tmp152828)))) (declare (not safe)) - (cons __tmp283857 '())))) + (cons __tmp152827 '())))) (declare (not safe)) - (cons __tmp283872 __tmp283856)))) + (cons __tmp152842 __tmp152826)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283883 - __tmp283855)))) + (cons __tmp152853 + __tmp152825)))) (declare (not safe)) - (cons '%#if __tmp283854)))) + (cons '%#if __tmp152824)))) (declare (not safe)) - (cons __tmp283853 '())))) + (cons __tmp152823 '())))) (declare (not safe)) - (cons __tmp283891 __tmp283852)))) + (cons __tmp152861 __tmp152822)))) (declare (not safe)) - (cons '%#let-values __tmp283851)))) + (cons '%#let-values __tmp152821)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp283849 _stx277901_)) + (gxc#xform-wrap-source __tmp152819 _stx151439_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp283840 - (let ((__tmp283841 + (let ((__tmp152810 + (let ((__tmp152811 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283847 - (let ((__tmp283848 + (let ((__tmp152817 + (let ((__tmp152818 (let () (declare (not safe)) (cons 'unchecked-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp283848))) - (__tmp283842 - (let ((__tmp283843 - (let ((__tmp283844 - (let ((__tmp283845 - (let ((__tmp283846 + (cons '%#ref __tmp152818))) + (__tmp152812 + (let ((__tmp152813 + (let ((__tmp152814 + (let ((__tmp152815 + (let ((__tmp152816 (##structure-ref - _self277900_ + _self151438_ '2 gxc#!accessor::t '#f))) (declare (not safe)) - (cons __tmp283846 + (cons __tmp152816 '())))) (declare (not safe)) (cons '%#quote - __tmp283845)))) + __tmp152815)))) (declare (not safe)) - (cons __tmp283844 '())))) + (cons __tmp152814 '())))) (declare (not safe)) - (cons _object277942_ __tmp283843)))) + (cons _object151480_ __tmp152813)))) (declare (not safe)) - (cons __tmp283847 __tmp283842)))) + (cons __tmp152817 __tmp152812)))) (declare (not safe)) - (cons '%#call __tmp283841)))) + (cons '%#call __tmp152811)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp283840 _stx277901_))))))))) + (gxc#xform-wrap-source __tmp152810 _stx151439_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd277908277922_) + _hd151446151460_) (let () (declare (not safe)) - (_g277904277914_ _g277905277917_))))) + (_g151442151452_ _g151443151455_))))) (let () (declare (not safe)) - (_g277904277914_ _g277905277917_)))))) + (_g151442151452_ _g151443151455_)))))) (declare (not safe)) - (_g277903277952_ _args277902_)))) + (_g151441151490_ _args151440_)))) (define gxc#!accessor::optimize-call::specialize - (lambda (__t283141) - (let ((__slot283142 - (let ((__tmp283145 + (lambda (__t152111) + (let ((__id152112 + (let ((__tmp152115 (let () (declare (not safe)) - (class-slot-offset __t283141 'slot)))) - (if __tmp283145 __tmp283145 (error '"Unknown slot" 'slot)))) - (__id283143 - (let ((__tmp283146 + (class-slot-offset __t152111 'id)))) + (if __tmp152115 + __tmp152115 + (let () + (declare (not safe)) + (error '"Unknown slot" 'id))))) + (__slot152113 + (let ((__tmp152116 (let () (declare (not safe)) - (class-slot-offset __t283141 'id)))) - (if __tmp283146 __tmp283146 (error '"Unknown slot" 'id)))) - (__checked?283144 - (let ((__tmp283147 + (class-slot-offset __t152111 'slot)))) + (if __tmp152116 + __tmp152116 + (let () + (declare (not safe)) + (error '"Unknown slot" 'slot))))) + (__checked?152114 + (let ((__tmp152117 (let () (declare (not safe)) - (class-slot-offset __t283141 'checked?)))) - (if __tmp283147 - __tmp283147 - (error '"Unknown slot" 'checked?))))) - (lambda (_self277900_ _stx277901_ _args277902_) - (let* ((_g277904277914_ - (lambda (_g277905277911_) + (class-slot-offset __t152111 'checked?)))) + (if __tmp152117 + __tmp152117 + (let () + (declare (not safe)) + (error '"Unknown slot" 'checked?)))))) + (lambda (_self151438_ _stx151439_ _args151440_) + (let* ((_g151442151452_ + (lambda (_g151443151449_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g277905277911_)))) - (_g277903277952_ - (lambda (_g277905277917_) + _g151443151449_)))) + (_g151441151490_ + (lambda (_g151443151455_) (if (let () (declare (not safe)) - (gx#stx-pair? _g277905277917_)) - (let ((_e277909277919_ + (gx#stx-pair? _g151443151455_)) + (let ((_e151447151457_ (let () (declare (not safe)) - (gx#stx-e _g277905277917_)))) - (let ((_hd277908277922_ + (gx#stx-e _g151443151455_)))) + (let ((_hd151446151460_ (let () (declare (not safe)) - (##car _e277909277919_))) - (_tl277907277924_ + (##car _e151447151457_))) + (_tl151445151462_ (let () (declare (not safe)) - (##cdr _e277909277919_)))) + (##cdr _e151447151457_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl277907277924_)) - ((lambda (_L277927_) - (let* ((_klass277938_ - (let ((__tmp283925 + (gx#stx-null? _tl151445151462_)) + ((lambda (_L151465_) + (let* ((_klass151476_ + (let ((__tmp152895 (let () (declare (not safe)) (##unchecked-structure-ref - _self277900_ - __id283143 - __t283141 + _self151438_ + __id152112 + __t152111 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx277901_ - __tmp283925))) - (_field277940_ - (let ((__tmp283926 + _stx151439_ + __tmp152895))) + (_field151478_ + (let ((__tmp152896 (let () (declare (not safe)) (##unchecked-structure-ref - _self277900_ - __slot283142 - __t283141 + _self151438_ + __slot152113 + __t152111 '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass277938_ - __tmp283926))) - (_object277942_ + _klass151476_ + __tmp152896))) + (_object151480_ (let () (declare (not safe)) - (gxc#compile-e__0 _L277927_)))) + (gxc#compile-e__0 _L151465_)))) (if (##structure-ref - _klass277938_ + _klass151476_ '8 gxc#!class::t '#f) - (let ((__tmp284003 - (let ((__tmp284012 + (let ((__tmp152973 + (let ((__tmp152982 (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self277900_ - __checked?283144 - __t283141 + _self151438_ + __checked?152114 + __t152111 '#f)) '%#struct-direct-ref '%#struct-unchecked-ref)) - (__tmp284004 - (let ((__tmp284009 - (let ((__tmp284010 - (let ((__tmp284011 + (__tmp152974 + (let ((__tmp152979 + (let ((__tmp152980 + (let ((__tmp152981 (let () (declare (not safe)) (##unchecked-structure-ref - _self277900_ - __id283143 - __t283141 + _self151438_ + __id152112 + __t152111 '#f)))) (declare (not safe)) - (cons __tmp284011 '())))) + (cons __tmp152981 '())))) (declare (not safe)) - (cons '%#ref __tmp284010))) - (__tmp284005 - (let ((__tmp284007 - (let ((__tmp284008 + (cons '%#ref __tmp152980))) + (__tmp152975 + (let ((__tmp152977 + (let ((__tmp152978 (let () (declare (not safe)) - (cons _field277940_ '())))) + (cons _field151478_ '())))) (declare (not safe)) - (cons '%#quote __tmp284008))) - (__tmp284006 + (cons '%#quote __tmp152978))) + (__tmp152976 (let () (declare (not safe)) - (cons _object277942_ '())))) + (cons _object151480_ '())))) (declare (not safe)) - (cons __tmp284007 __tmp284006)))) + (cons __tmp152977 __tmp152976)))) (declare (not safe)) - (cons __tmp284009 __tmp284005)))) + (cons __tmp152979 __tmp152975)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp284012 - __tmp284004)))) + (cons __tmp152982 + __tmp152974)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp284003 - _stx277901_)) + __tmp152973 + _stx151439_)) (if (##structure-ref - _klass277938_ + _klass151476_ '7 gxc#!class::t '#f) - (let ((__tmp283993 - (let ((__tmp284002 + (let ((__tmp152963 + (let ((__tmp152972 (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _self277900_ - __checked?283144 - __t283141 + _self151438_ + __checked?152114 + __t152111 '#f)) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp283994 - (let ((__tmp283999 - (let ((__tmp284000 - (let ((__tmp284001 + (__tmp152964 + (let ((__tmp152969 + (let ((__tmp152970 + (let ((__tmp152971 (let () (declare (not safe)) (##unchecked-structure-ref - _self277900_ - __id283143 - __t283141 + _self151438_ + __id152112 + __t152111 '#f)))) (declare (not safe)) - (cons __tmp284001 '())))) + (cons __tmp152971 '())))) (declare (not safe)) - (cons '%#ref __tmp284000))) - (__tmp283995 - (let ((__tmp283997 - (let ((__tmp283998 + (cons '%#ref __tmp152970))) + (__tmp152965 + (let ((__tmp152967 + (let ((__tmp152968 (let () (declare (not safe)) - (cons _field277940_ '())))) + (cons _field151478_ '())))) (declare (not safe)) - (cons '%#quote __tmp283998))) - (__tmp283996 + (cons '%#quote __tmp152968))) + (__tmp152966 (let () (declare (not safe)) - (cons _object277942_ '())))) + (cons _object151480_ '())))) (declare (not safe)) - (cons __tmp283997 __tmp283996)))) + (cons __tmp152967 __tmp152966)))) (declare (not safe)) - (cons __tmp283999 __tmp283995)))) + (cons __tmp152969 __tmp152965)))) (declare (not safe)) - (cons __tmp284002 __tmp283994)))) + (cons __tmp152972 __tmp152964)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp283993 - _stx277901_)) - (let ((_$e277945_ - (let ((__tmp283927 + __tmp152963 + _stx151439_)) + (let ((_$e151483_ + (let ((__tmp152897 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self277900_ - __slot283142 - __t283141 + _self151438_ + __slot152113 + __t152111 '#f)))) (declare (not safe)) - (gxc#!class-slot-find-struct _klass277938_ __tmp283927)))) + (gxc#!class-slot-find-struct _klass151476_ __tmp152897)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e277945_ - ((lambda (_klass277948_) - (let ((__tmp283983 - (let ((__tmp283992 + (if _$e151483_ + ((lambda (_klass151486_) + (let ((__tmp152953 + (let ((__tmp152962 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self277900_ - __checked?283144 - __t283141 + _self151438_ + __checked?152114 + __t152111 '#f)) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp283984 - (let ((__tmp283989 - (let ((__tmp283990 - (let ((__tmp283991 + (__tmp152954 + (let ((__tmp152959 + (let ((__tmp152960 + (let ((__tmp152961 (let () (declare (not safe)) (##unchecked-structure-ref - _self277900_ - __id283143 - __t283141 + _self151438_ + __id152112 + __t152111 '#f)))) (declare (not safe)) - (cons __tmp283991 '())))) + (cons __tmp152961 '())))) (declare (not safe)) - (cons '%#ref __tmp283990))) - (__tmp283985 - (let ((__tmp283987 - (let ((__tmp283988 + (cons '%#ref __tmp152960))) + (__tmp152955 + (let ((__tmp152957 + (let ((__tmp152958 (let () (declare (not safe)) - (cons _field277940_ + (cons _field151478_ '())))) (declare (not safe)) - (cons '%#quote __tmp283988))) - (__tmp283986 + (cons '%#quote __tmp152958))) + (__tmp152956 (let () (declare (not safe)) - (cons _object277942_ '())))) + (cons _object151480_ '())))) (declare (not safe)) - (cons __tmp283987 __tmp283986)))) + (cons __tmp152957 __tmp152956)))) (declare (not safe)) - (cons __tmp283989 __tmp283985)))) + (cons __tmp152959 __tmp152955)))) (declare (not safe)) - (cons __tmp283992 __tmp283984)))) + (cons __tmp152962 __tmp152954)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp283983 _stx277901_))) - _$e277945_) + (gxc#xform-wrap-source __tmp152953 _stx151439_))) + _$e151483_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##unchecked-structure-ref - _self277900_ - __checked?283144 - __t283141 + _self151438_ + __checked?152114 + __t152111 '#f)) - (let ((__tmp283937 - (let* ((_$obj277950_ + (let ((__tmp152907 + (let* ((_$obj151488_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283938 (gensym '__obj))) + (let ((__tmp152908 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp283938))) - (__tmp283939 - (let ((__tmp283979 - (let ((__tmp283980 - (let ((__tmp283982 + (make-symbol__0 __tmp152908))) + (__tmp152909 + (let ((__tmp152949 + (let ((__tmp152950 + (let ((__tmp152952 (let () (declare (not safe)) - (cons _$obj277950_ + (cons _$obj151488_ '()))) - (__tmp283981 + (__tmp152951 (let () (declare (not safe)) - (cons _object277942_ + (cons _object151480_ '())))) (declare (not safe)) - (cons __tmp283982 - __tmp283981)))) + (cons __tmp152952 + __tmp152951)))) (declare (not safe)) - (cons __tmp283980 '()))) - (__tmp283940 - (let ((__tmp283941 - (let ((__tmp283942 - (let ((__tmp283971 - (let ((__tmp283972 + (cons __tmp152950 '()))) + (__tmp152910 + (let ((__tmp152911 + (let ((__tmp152912 + (let ((__tmp152941 + (let ((__tmp152942 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp283976 - (let ((__tmp283977 - (let ((__tmp283978 + (let ((__tmp152946 + (let ((__tmp152947 + (let ((__tmp152948 (##structure-ref - _klass277938_ + _klass151476_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp283978 '())))) + (cons __tmp152948 '())))) (declare (not safe)) - (cons '%#quote __tmp283977))) - (__tmp283973 - (let ((__tmp283974 - (let ((__tmp283975 + (cons '%#quote __tmp152947))) + (__tmp152943 + (let ((__tmp152944 + (let ((__tmp152945 (let () (declare (not safe)) - (cons _$obj277950_ '())))) + (cons _$obj151488_ '())))) (declare (not safe)) - (cons '%#ref __tmp283975)))) + (cons '%#ref __tmp152945)))) (declare (not safe)) - (cons __tmp283974 '())))) + (cons __tmp152944 '())))) (declare (not safe)) - (cons __tmp283976 __tmp283973)))) + (cons __tmp152946 __tmp152943)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp283972))) - (__tmp283943 - (let ((__tmp283960 - (let ((__tmp283961 - (let ((__tmp283968 - (let ((__tmp283969 - (let ((__tmp283970 + (cons '%#struct-direct-instance? __tmp152942))) + (__tmp152913 + (let ((__tmp152930 + (let ((__tmp152931 + (let ((__tmp152938 + (let ((__tmp152939 + (let ((__tmp152940 (let () (declare (not safe)) (##unchecked-structure-ref - _self277900_ - __id283143 - __t283141 + _self151438_ + __id152112 + __t152111 '#f)))) (declare (not safe)) - (cons __tmp283970 '())))) + (cons __tmp152940 '())))) (declare (not safe)) - (cons '%#ref __tmp283969))) - (__tmp283962 - (let ((__tmp283966 - (let ((__tmp283967 + (cons '%#ref __tmp152939))) + (__tmp152932 + (let ((__tmp152936 + (let ((__tmp152937 (let () (declare (not safe)) - (cons _field277940_ + (cons _field151478_ '())))) (declare (not safe)) - (cons '%#quote __tmp283967))) - (__tmp283963 - (let ((__tmp283964 - (let ((__tmp283965 + (cons '%#quote __tmp152937))) + (__tmp152933 + (let ((__tmp152934 + (let ((__tmp152935 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj277950_ '())))) + (cons _$obj151488_ '())))) (declare (not safe)) - (cons '%#ref __tmp283965)))) + (cons '%#ref __tmp152935)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283964 '())))) + (cons __tmp152934 '())))) (declare (not safe)) - (cons __tmp283966 __tmp283963)))) + (cons __tmp152936 __tmp152933)))) (declare (not safe)) - (cons __tmp283968 __tmp283962)))) + (cons __tmp152938 __tmp152932)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp283961))) - (__tmp283944 - (let ((__tmp283945 - (let ((__tmp283946 - (let ((__tmp283958 - (let ((__tmp283959 + (cons '%#struct-unchecked-ref __tmp152931))) + (__tmp152914 + (let ((__tmp152915 + (let ((__tmp152916 + (let ((__tmp152928 + (let ((__tmp152929 (let () (declare (not safe)) (cons 'class-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp283959))) - (__tmp283947 - (let ((__tmp283955 - (let ((__tmp283956 - (let ((__tmp283957 + (cons '%#ref __tmp152929))) + (__tmp152917 + (let ((__tmp152925 + (let ((__tmp152926 + (let ((__tmp152927 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _self277900_ - __id283143 - __t283141 + _self151438_ + __id152112 + __t152111 '#f)))) (declare (not safe)) - (cons __tmp283957 '())))) + (cons __tmp152927 '())))) (declare (not safe)) - (cons '%#ref __tmp283956))) - (__tmp283948 - (let ((__tmp283953 - (let ((__tmp283954 + (cons '%#ref __tmp152926))) + (__tmp152918 + (let ((__tmp152923 + (let ((__tmp152924 (let () (declare (not safe)) - (cons _$obj277950_ '())))) + (cons _$obj151488_ '())))) (declare (not safe)) - (cons '%#ref __tmp283954))) - (__tmp283949 - (let ((__tmp283950 - (let ((__tmp283951 - (let ((__tmp283952 + (cons '%#ref __tmp152924))) + (__tmp152919 + (let ((__tmp152920 + (let ((__tmp152921 + (let ((__tmp152922 (let () (declare (not safe)) (##unchecked-structure-ref - _self277900_ - __slot283142 - __t283141 + _self151438_ + __slot152113 + __t152111 '#f)))) (declare (not safe)) - (cons __tmp283952 '())))) + (cons __tmp152922 '())))) (declare (not safe)) - (cons '%#quote __tmp283951)))) + (cons '%#quote __tmp152921)))) (declare (not safe)) - (cons __tmp283950 '())))) + (cons __tmp152920 '())))) (declare (not safe)) - (cons __tmp283953 __tmp283949)))) + (cons __tmp152923 __tmp152919)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283955 - __tmp283948)))) + (cons __tmp152925 + __tmp152918)))) (declare (not safe)) - (cons __tmp283958 __tmp283947)))) + (cons __tmp152928 __tmp152917)))) (declare (not safe)) - (cons '%#call __tmp283946)))) + (cons '%#call __tmp152916)))) (declare (not safe)) - (cons __tmp283945 '())))) + (cons __tmp152915 '())))) (declare (not safe)) - (cons __tmp283960 __tmp283944)))) + (cons __tmp152930 __tmp152914)))) (declare (not safe)) - (cons __tmp283971 __tmp283943)))) + (cons __tmp152941 __tmp152913)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp283942)))) + (cons '%#if __tmp152912)))) (declare (not safe)) - (cons __tmp283941 '())))) + (cons __tmp152911 '())))) (declare (not safe)) - (cons __tmp283979 __tmp283940)))) + (cons __tmp152949 __tmp152910)))) (declare (not safe)) - (cons '%#let-values __tmp283939)))) + (cons '%#let-values __tmp152909)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp283937 _stx277901_)) - (let ((__tmp283928 - (let ((__tmp283929 - (let ((__tmp283935 - (let ((__tmp283936 + (gxc#xform-wrap-source __tmp152907 _stx151439_)) + (let ((__tmp152898 + (let ((__tmp152899 + (let ((__tmp152905 + (let ((__tmp152906 (let () (declare (not safe)) (cons 'unchecked-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp283936))) - (__tmp283930 - (let ((__tmp283931 - (let ((__tmp283932 - (let ((__tmp283933 - (let ((__tmp283934 + (cons '%#ref __tmp152906))) + (__tmp152900 + (let ((__tmp152901 + (let ((__tmp152902 + (let ((__tmp152903 + (let ((__tmp152904 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _self277900_ - __slot283142 - __t283141 + _self151438_ + __slot152113 + __t152111 '#f)))) (declare (not safe)) - (cons __tmp283934 '())))) + (cons __tmp152904 '())))) (declare (not safe)) - (cons '%#quote __tmp283933)))) + (cons '%#quote __tmp152903)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp283932 '())))) + (cons __tmp152902 '())))) (declare (not safe)) - (cons _object277942_ __tmp283931)))) + (cons _object151480_ __tmp152901)))) (declare (not safe)) - (cons __tmp283935 __tmp283930)))) + (cons __tmp152905 __tmp152900)))) (declare (not safe)) - (cons '%#call __tmp283929)))) + (cons '%#call __tmp152899)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp283928 _stx277901_))))))))) + (gxc#xform-wrap-source __tmp152898 _stx151439_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd277908277922_) + _hd151446151460_) (let () (declare (not safe)) - (_g277904277914_ _g277905277917_))))) + (_g151442151452_ _g151443151455_))))) (let () (declare (not safe)) - (_g277904277914_ _g277905277917_)))))) + (_g151442151452_ _g151443151455_)))))) (declare (not safe)) - (_g277903277952_ _args277902_)))))) + (_g151441151490_ _args151440_)))))) (let () (declare (not safe)) (bind-specializer! @@ -3491,369 +3517,369 @@ gxc#!accessor::optimize-call::specialize)) (let () (declare (not safe)) - (bind-method! + (bind-method!__% gxc#!accessor::t 'optimize-call gxc#!accessor::optimize-call '#f)) (define gxc#!mutator::optimize-call - (lambda (_self277705_ _stx277706_ _args277707_) - (let* ((_g277709277723_ - (lambda (_g277710277720_) + (lambda (_self151243_ _stx151244_ _args151245_) + (let* ((_g151247151261_ + (lambda (_g151248151258_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g277710277720_)))) - (_g277708277775_ - (lambda (_g277710277726_) + _g151248151258_)))) + (_g151246151313_ + (lambda (_g151248151264_) (if (let () (declare (not safe)) - (gx#stx-pair? _g277710277726_)) - (let ((_e277715277728_ + (gx#stx-pair? _g151248151264_)) + (let ((_e151253151266_ (let () (declare (not safe)) - (gx#stx-e _g277710277726_)))) - (let ((_hd277714277731_ + (gx#stx-e _g151248151264_)))) + (let ((_hd151252151269_ (let () (declare (not safe)) - (##car _e277715277728_))) - (_tl277713277733_ + (##car _e151253151266_))) + (_tl151251151271_ (let () (declare (not safe)) - (##cdr _e277715277728_)))) + (##cdr _e151253151266_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl277713277733_)) - (let ((_e277718277736_ + (gx#stx-pair? _tl151251151271_)) + (let ((_e151256151274_ (let () (declare (not safe)) - (gx#stx-e _tl277713277733_)))) - (let ((_hd277717277739_ + (gx#stx-e _tl151251151271_)))) + (let ((_hd151255151277_ (let () (declare (not safe)) - (##car _e277718277736_))) - (_tl277716277741_ + (##car _e151256151274_))) + (_tl151254151279_ (let () (declare (not safe)) - (##cdr _e277718277736_)))) + (##cdr _e151256151274_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl277716277741_)) - ((lambda (_L277744_ _L277745_) - (let* ((_klass277759_ - (let ((__tmp284013 + (gx#stx-null? _tl151254151279_)) + ((lambda (_L151282_ _L151283_) + (let* ((_klass151297_ + (let ((__tmp152983 (##structure-ref - _self277705_ + _self151243_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx277706_ - __tmp284013))) - (_field277761_ - (let ((__tmp284014 + _stx151244_ + __tmp152983))) + (_field151299_ + (let ((__tmp152984 (##structure-ref - _self277705_ + _self151243_ '2 gxc#!mutator::t '#f))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass277759_ - __tmp284014))) - (_object277763_ + _klass151297_ + __tmp152984))) + (_object151301_ (let () (declare (not safe)) (gxc#compile-e__0 - _L277745_))) - (_value277765_ + _L151283_))) + (_value151303_ (let () (declare (not safe)) (gxc#compile-e__0 - _L277744_)))) + _L151282_)))) (if (##structure-ref - _klass277759_ + _klass151297_ '8 gxc#!class::t '#f) - (let ((__tmp284096 - (let ((__tmp284106 + (let ((__tmp153066 + (let ((__tmp153076 (if (##structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _self277705_ + _self151243_ '3 gxc#!mutator::t '#f) '%#struct-direct-set! '%#struct-unchecked-set!)) - (__tmp284097 - (let ((__tmp284103 - (let ((__tmp284104 - (let ((__tmp284105 + (__tmp153067 + (let ((__tmp153073 + (let ((__tmp153074 + (let ((__tmp153075 (##structure-ref - _self277705_ + _self151243_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp284105 '())))) + (cons __tmp153075 '())))) (declare (not safe)) - (cons '%#ref __tmp284104))) - (__tmp284098 - (let ((__tmp284101 - (let ((__tmp284102 + (cons '%#ref __tmp153074))) + (__tmp153068 + (let ((__tmp153071 + (let ((__tmp153072 (let () (declare (not safe)) - (cons _field277761_ '())))) + (cons _field151299_ '())))) (declare (not safe)) - (cons '%#quote __tmp284102))) - (__tmp284099 - (let ((__tmp284100 + (cons '%#quote __tmp153072))) + (__tmp153069 + (let ((__tmp153070 (let () (declare (not safe)) - (cons _value277765_ '())))) + (cons _value151303_ '())))) (declare (not safe)) - (cons _object277763_ __tmp284100)))) + (cons _object151301_ __tmp153070)))) (declare (not safe)) - (cons __tmp284101 __tmp284099)))) + (cons __tmp153071 __tmp153069)))) (declare (not safe)) - (cons __tmp284103 __tmp284098)))) + (cons __tmp153073 __tmp153068)))) (declare (not safe)) - (cons __tmp284106 __tmp284097)))) + (cons __tmp153076 __tmp153067)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp284096 - _stx277706_)) + __tmp153066 + _stx151244_)) (if (##structure-ref - _klass277759_ + _klass151297_ '7 gxc#!class::t '#f) - (let ((__tmp284085 - (let ((__tmp284095 + (let ((__tmp153055 + (let ((__tmp153065 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (##structure-ref - _self277705_ + _self151243_ '3 gxc#!mutator::t '#f) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp284086 - (let ((__tmp284092 - (let ((__tmp284093 - (let ((__tmp284094 + (__tmp153056 + (let ((__tmp153062 + (let ((__tmp153063 + (let ((__tmp153064 (##structure-ref - _self277705_ + _self151243_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp284094 '())))) + (cons __tmp153064 '())))) (declare (not safe)) - (cons '%#ref __tmp284093))) - (__tmp284087 - (let ((__tmp284090 - (let ((__tmp284091 + (cons '%#ref __tmp153063))) + (__tmp153057 + (let ((__tmp153060 + (let ((__tmp153061 (let () (declare (not safe)) - (cons _field277761_ '())))) + (cons _field151299_ '())))) (declare (not safe)) - (cons '%#quote __tmp284091))) - (__tmp284088 - (let ((__tmp284089 + (cons '%#quote __tmp153061))) + (__tmp153058 + (let ((__tmp153059 (let () (declare (not safe)) - (cons _value277765_ '())))) + (cons _value151303_ '())))) (declare (not safe)) - (cons _object277763_ __tmp284089)))) + (cons _object151301_ __tmp153059)))) (declare (not safe)) - (cons __tmp284090 __tmp284088)))) + (cons __tmp153060 __tmp153058)))) (declare (not safe)) - (cons __tmp284092 __tmp284087)))) + (cons __tmp153062 __tmp153057)))) (declare (not safe)) - (cons __tmp284095 __tmp284086)))) + (cons __tmp153065 __tmp153056)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp284085 - _stx277706_)) - (let ((_$e277768_ - (let ((__tmp284015 + __tmp153055 + _stx151244_)) + (let ((_$e151306_ + (let ((__tmp152985 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self277705_ + _self151243_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (gxc#!class-slot-find-struct _klass277759_ __tmp284015)))) + (gxc#!class-slot-find-struct _klass151297_ __tmp152985)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e277768_ - ((lambda (_klass277771_) - (let ((__tmp284074 + (if _$e151306_ + ((lambda (_klass151309_) + (let ((__tmp153044 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp284084 + (let ((__tmp153054 (if (##structure-ref - _self277705_ + _self151243_ '3 gxc#!mutator::t '#f) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp284075 - (let ((__tmp284081 - (let ((__tmp284082 - (let ((__tmp284083 + (__tmp153045 + (let ((__tmp153051 + (let ((__tmp153052 + (let ((__tmp153053 (##structure-ref - _self277705_ + _self151243_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp284083 '())))) + (cons __tmp153053 '())))) (declare (not safe)) - (cons '%#ref __tmp284082))) - (__tmp284076 - (let ((__tmp284079 - (let ((__tmp284080 + (cons '%#ref __tmp153052))) + (__tmp153046 + (let ((__tmp153049 + (let ((__tmp153050 (let () (declare (not safe)) - (cons _field277761_ + (cons _field151299_ '())))) (declare (not safe)) - (cons '%#quote __tmp284080))) - (__tmp284077 - (let ((__tmp284078 + (cons '%#quote __tmp153050))) + (__tmp153047 + (let ((__tmp153048 (let () (declare (not safe)) - (cons _value277765_ + (cons _value151303_ '())))) (declare (not safe)) - (cons _object277763_ - __tmp284078)))) + (cons _object151301_ + __tmp153048)))) (declare (not safe)) - (cons __tmp284079 __tmp284077)))) + (cons __tmp153049 __tmp153047)))) (declare (not safe)) - (cons __tmp284081 __tmp284076)))) + (cons __tmp153051 __tmp153046)))) (declare (not safe)) - (cons __tmp284084 __tmp284075)))) + (cons __tmp153054 __tmp153045)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp284074 _stx277706_))) - _$e277768_) - (if (##structure-ref _self277705_ '3 gxc#!mutator::t '#f) - (let ((__tmp284026 - (let* ((_$obj277773_ - (let ((__tmp284027 (gensym '__obj))) + (gxc#xform-wrap-source __tmp153044 _stx151244_))) + _$e151306_) + (if (##structure-ref _self151243_ '3 gxc#!mutator::t '#f) + (let ((__tmp152996 + (let* ((_$obj151311_ + (let ((__tmp152997 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp284027))) - (__tmp284028 - (let ((__tmp284070 - (let ((__tmp284071 - (let ((__tmp284073 + (make-symbol__0 __tmp152997))) + (__tmp152998 + (let ((__tmp153040 + (let ((__tmp153041 + (let ((__tmp153043 (let () (declare (not safe)) - (cons _$obj277773_ + (cons _$obj151311_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp284072 - (let () (declare (not safe)) (cons _object277763_ '())))) + (__tmp153042 + (let () (declare (not safe)) (cons _object151301_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp284073 - __tmp284072)))) + (cons __tmp153043 + __tmp153042)))) (declare (not safe)) - (cons __tmp284071 '()))) - (__tmp284029 - (let ((__tmp284030 - (let ((__tmp284031 - (let ((__tmp284062 - (let ((__tmp284063 + (cons __tmp153041 '()))) + (__tmp152999 + (let ((__tmp153000 + (let ((__tmp153001 + (let ((__tmp153032 + (let ((__tmp153033 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp284067 - (let ((__tmp284068 - (let ((__tmp284069 + (let ((__tmp153037 + (let ((__tmp153038 + (let ((__tmp153039 (##structure-ref - _klass277759_ + _klass151297_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp284069 '())))) + (cons __tmp153039 '())))) (declare (not safe)) - (cons '%#quote __tmp284068))) - (__tmp284064 - (let ((__tmp284065 - (let ((__tmp284066 + (cons '%#quote __tmp153038))) + (__tmp153034 + (let ((__tmp153035 + (let ((__tmp153036 (let () (declare (not safe)) - (cons _$obj277773_ + (cons _$obj151311_ '())))) (declare (not safe)) - (cons '%#ref __tmp284066)))) + (cons '%#ref __tmp153036)))) (declare (not safe)) - (cons __tmp284065 '())))) + (cons __tmp153035 '())))) (declare (not safe)) - (cons __tmp284067 __tmp284064)))) + (cons __tmp153037 __tmp153034)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp284063))) - (__tmp284032 - (let ((__tmp284050 - (let ((__tmp284051 - (let ((__tmp284059 - (let ((__tmp284060 - (let ((__tmp284061 + (cons '%#struct-direct-instance? __tmp153033))) + (__tmp153002 + (let ((__tmp153020 + (let ((__tmp153021 + (let ((__tmp153029 + (let ((__tmp153030 + (let ((__tmp153031 (##structure-ref - _self277705_ + _self151243_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp284061 '())))) + (cons __tmp153031 '())))) (declare (not safe)) - (cons '%#ref __tmp284060))) - (__tmp284052 - (let ((__tmp284057 - (let ((__tmp284058 + (cons '%#ref __tmp153030))) + (__tmp153022 + (let ((__tmp153027 + (let ((__tmp153028 (let () (declare (not safe)) - (cons _field277761_ + (cons _field151299_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#quote __tmp284058))) + (cons '%#quote __tmp153028))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp284053 - (let ((__tmp284055 - (let ((__tmp284056 + (__tmp153023 + (let ((__tmp153025 + (let ((__tmp153026 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj277773_ '())))) + (cons _$obj151311_ '())))) (declare (not safe)) - (cons '%#ref __tmp284056))) - (__tmp284054 - (let () (declare (not safe)) (cons _value277765_ '())))) + (cons '%#ref __tmp153026))) + (__tmp153024 + (let () (declare (not safe)) (cons _value151303_ '())))) (declare (not safe)) - (cons __tmp284055 __tmp284054)))) + (cons __tmp153025 __tmp153024)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp284057 - __tmp284053)))) + (cons __tmp153027 + __tmp153023)))) (declare (not safe)) - (cons __tmp284059 __tmp284052)))) + (cons __tmp153029 __tmp153022)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp284051))) - (__tmp284033 - (let ((__tmp284034 - (let ((__tmp284035 - (let ((__tmp284048 - (let ((__tmp284049 + (cons '%#struct-unchecked-set! __tmp153021))) + (__tmp153003 + (let ((__tmp153004 + (let ((__tmp153005 + (let ((__tmp153018 + (let ((__tmp153019 (let () (declare (not safe)) @@ -3861,674 +3887,684 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp284049))) + (cons '%#ref __tmp153019))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp284036 - (let ((__tmp284045 - (let ((__tmp284046 + (__tmp153006 + (let ((__tmp153015 + (let ((__tmp153016 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp284047 + (let ((__tmp153017 (##structure-ref - _self277705_ + _self151243_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp284047 '())))) + (cons __tmp153017 '())))) (declare (not safe)) - (cons '%#ref __tmp284046))) - (__tmp284037 - (let ((__tmp284043 - (let ((__tmp284044 + (cons '%#ref __tmp153016))) + (__tmp153007 + (let ((__tmp153013 + (let ((__tmp153014 (let () (declare (not safe)) - (cons _$obj277773_ '())))) + (cons _$obj151311_ '())))) (declare (not safe)) - (cons '%#ref __tmp284044))) - (__tmp284038 - (let ((__tmp284040 - (let ((__tmp284041 - (let ((__tmp284042 + (cons '%#ref __tmp153014))) + (__tmp153008 + (let ((__tmp153010 + (let ((__tmp153011 + (let ((__tmp153012 (##structure-ref - _self277705_ + _self151243_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (cons __tmp284042 '())))) + (cons __tmp153012 '())))) (declare (not safe)) - (cons '%#quote __tmp284041))) - (__tmp284039 + (cons '%#quote __tmp153011))) + (__tmp153009 (let () (declare (not safe)) - (cons _value277765_ '())))) + (cons _value151303_ '())))) (declare (not safe)) - (cons __tmp284040 __tmp284039)))) + (cons __tmp153010 __tmp153009)))) (declare (not safe)) - (cons __tmp284043 __tmp284038)))) + (cons __tmp153013 __tmp153008)))) (declare (not safe)) - (cons __tmp284045 __tmp284037)))) + (cons __tmp153015 __tmp153007)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp284048 - __tmp284036)))) + (cons __tmp153018 + __tmp153006)))) (declare (not safe)) - (cons '%#call __tmp284035)))) + (cons '%#call __tmp153005)))) (declare (not safe)) - (cons __tmp284034 '())))) + (cons __tmp153004 '())))) (declare (not safe)) - (cons __tmp284050 __tmp284033)))) + (cons __tmp153020 __tmp153003)))) (declare (not safe)) - (cons __tmp284062 __tmp284032)))) + (cons __tmp153032 __tmp153002)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp284031)))) + (cons '%#if __tmp153001)))) (declare (not safe)) - (cons __tmp284030 '())))) + (cons __tmp153000 '())))) (declare (not safe)) - (cons __tmp284070 __tmp284029)))) + (cons __tmp153040 __tmp152999)))) (declare (not safe)) - (cons '%#let-values __tmp284028)))) + (cons '%#let-values __tmp152998)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp284026 _stx277706_)) - (let ((__tmp284016 - (let ((__tmp284017 - (let ((__tmp284024 - (let ((__tmp284025 + (gxc#xform-wrap-source __tmp152996 _stx151244_)) + (let ((__tmp152986 + (let ((__tmp152987 + (let ((__tmp152994 + (let ((__tmp152995 (let () (declare (not safe)) (cons 'unchecked-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp284025))) - (__tmp284018 - (let ((__tmp284019 - (let ((__tmp284021 - (let ((__tmp284022 - (let ((__tmp284023 + (cons '%#ref __tmp152995))) + (__tmp152988 + (let ((__tmp152989 + (let ((__tmp152991 + (let ((__tmp152992 + (let ((__tmp152993 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self277705_ + _self151243_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (cons __tmp284023 '())))) + (cons __tmp152993 '())))) (declare (not safe)) - (cons '%#quote __tmp284022))) - (__tmp284020 - (let () (declare (not safe)) (cons _value277765_ '())))) + (cons '%#quote __tmp152992))) + (__tmp152990 + (let () (declare (not safe)) (cons _value151303_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp284021 - __tmp284020)))) + (cons __tmp152991 + __tmp152990)))) (declare (not safe)) - (cons _object277763_ - __tmp284019)))) + (cons _object151301_ + __tmp152989)))) (declare (not safe)) - (cons __tmp284024 __tmp284018)))) + (cons __tmp152994 __tmp152988)))) (declare (not safe)) - (cons '%#call __tmp284017)))) + (cons '%#call __tmp152987)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp284016 _stx277706_))))))))) + (gxc#xform-wrap-source __tmp152986 _stx151244_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd277717277739_ - _hd277714277731_) + _hd151255151277_ + _hd151252151269_) (let () (declare (not safe)) - (_g277709277723_ _g277710277726_))))) + (_g151247151261_ _g151248151264_))))) (let () (declare (not safe)) - (_g277709277723_ _g277710277726_))))) + (_g151247151261_ _g151248151264_))))) (let () (declare (not safe)) - (_g277709277723_ _g277710277726_)))))) + (_g151247151261_ _g151248151264_)))))) (declare (not safe)) - (_g277708277775_ _args277707_)))) + (_g151246151313_ _args151245_)))) (define gxc#!mutator::optimize-call::specialize - (lambda (__t283148) - (let ((__slot283149 - (let ((__tmp283152 + (lambda (__t152118) + (let ((__slot152119 + (let ((__tmp152122 (let () (declare (not safe)) - (class-slot-offset __t283148 'slot)))) - (if __tmp283152 __tmp283152 (error '"Unknown slot" 'slot)))) - (__id283150 - (let ((__tmp283153 + (class-slot-offset __t152118 'slot)))) + (if __tmp152122 + __tmp152122 + (let () + (declare (not safe)) + (error '"Unknown slot" 'slot))))) + (__id152120 + (let ((__tmp152123 (let () (declare (not safe)) - (class-slot-offset __t283148 'id)))) - (if __tmp283153 __tmp283153 (error '"Unknown slot" 'id)))) - (__checked?283151 - (let ((__tmp283154 + (class-slot-offset __t152118 'id)))) + (if __tmp152123 + __tmp152123 + (let () + (declare (not safe)) + (error '"Unknown slot" 'id))))) + (__checked?152121 + (let ((__tmp152124 (let () (declare (not safe)) - (class-slot-offset __t283148 'checked?)))) - (if __tmp283154 - __tmp283154 - (error '"Unknown slot" 'checked?))))) - (lambda (_self277705_ _stx277706_ _args277707_) - (let* ((_g277709277723_ - (lambda (_g277710277720_) + (class-slot-offset __t152118 'checked?)))) + (if __tmp152124 + __tmp152124 + (let () + (declare (not safe)) + (error '"Unknown slot" 'checked?)))))) + (lambda (_self151243_ _stx151244_ _args151245_) + (let* ((_g151247151261_ + (lambda (_g151248151258_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g277710277720_)))) - (_g277708277775_ - (lambda (_g277710277726_) + _g151248151258_)))) + (_g151246151313_ + (lambda (_g151248151264_) (if (let () (declare (not safe)) - (gx#stx-pair? _g277710277726_)) - (let ((_e277715277728_ + (gx#stx-pair? _g151248151264_)) + (let ((_e151253151266_ (let () (declare (not safe)) - (gx#stx-e _g277710277726_)))) - (let ((_hd277714277731_ + (gx#stx-e _g151248151264_)))) + (let ((_hd151252151269_ (let () (declare (not safe)) - (##car _e277715277728_))) - (_tl277713277733_ + (##car _e151253151266_))) + (_tl151251151271_ (let () (declare (not safe)) - (##cdr _e277715277728_)))) + (##cdr _e151253151266_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl277713277733_)) - (let ((_e277718277736_ + (gx#stx-pair? _tl151251151271_)) + (let ((_e151256151274_ (let () (declare (not safe)) - (gx#stx-e _tl277713277733_)))) - (let ((_hd277717277739_ + (gx#stx-e _tl151251151271_)))) + (let ((_hd151255151277_ (let () (declare (not safe)) - (##car _e277718277736_))) - (_tl277716277741_ + (##car _e151256151274_))) + (_tl151254151279_ (let () (declare (not safe)) - (##cdr _e277718277736_)))) + (##cdr _e151256151274_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl277716277741_)) - ((lambda (_L277744_ _L277745_) - (let* ((_klass277759_ - (let ((__tmp284107 + (gx#stx-null? _tl151254151279_)) + ((lambda (_L151282_ _L151283_) + (let* ((_klass151297_ + (let ((__tmp153077 (let () (declare (not safe)) (##unchecked-structure-ref - _self277705_ - __id283150 - __t283148 + _self151243_ + __id152120 + __t152118 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx277706_ - __tmp284107))) - (_field277761_ - (let ((__tmp284108 + _stx151244_ + __tmp153077))) + (_field151299_ + (let ((__tmp153078 (let () (declare (not safe)) (##unchecked-structure-ref - _self277705_ - __slot283149 - __t283148 + _self151243_ + __slot152119 + __t152118 '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass277759_ - __tmp284108))) - (_object277763_ + _klass151297_ + __tmp153078))) + (_object151301_ (let () (declare (not safe)) (gxc#compile-e__0 - _L277745_))) - (_value277765_ + _L151283_))) + (_value151303_ (let () (declare (not safe)) (gxc#compile-e__0 - _L277744_)))) + _L151282_)))) (if (##structure-ref - _klass277759_ + _klass151297_ '8 gxc#!class::t '#f) - (let ((__tmp284190 - (let ((__tmp284200 + (let ((__tmp153160 + (let ((__tmp153170 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self277705_ - __checked?283151 - __t283148 + _self151243_ + __checked?152121 + __t152118 '#f)) '%#struct-direct-set! '%#struct-unchecked-set!)) - (__tmp284191 - (let ((__tmp284197 - (let ((__tmp284198 - (let ((__tmp284199 + (__tmp153161 + (let ((__tmp153167 + (let ((__tmp153168 + (let ((__tmp153169 (let () (declare (not safe)) (##unchecked-structure-ref - _self277705_ - __id283150 - __t283148 + _self151243_ + __id152120 + __t152118 '#f)))) (declare (not safe)) - (cons __tmp284199 '())))) + (cons __tmp153169 '())))) (declare (not safe)) - (cons '%#ref __tmp284198))) - (__tmp284192 - (let ((__tmp284195 - (let ((__tmp284196 + (cons '%#ref __tmp153168))) + (__tmp153162 + (let ((__tmp153165 + (let ((__tmp153166 (let () (declare (not safe)) - (cons _field277761_ '())))) + (cons _field151299_ '())))) (declare (not safe)) - (cons '%#quote __tmp284196))) - (__tmp284193 - (let ((__tmp284194 + (cons '%#quote __tmp153166))) + (__tmp153163 + (let ((__tmp153164 (let () (declare (not safe)) - (cons _value277765_ '())))) + (cons _value151303_ '())))) (declare (not safe)) - (cons _object277763_ __tmp284194)))) + (cons _object151301_ __tmp153164)))) (declare (not safe)) - (cons __tmp284195 __tmp284193)))) + (cons __tmp153165 __tmp153163)))) (declare (not safe)) - (cons __tmp284197 __tmp284192)))) + (cons __tmp153167 __tmp153162)))) (declare (not safe)) - (cons __tmp284200 __tmp284191)))) + (cons __tmp153170 __tmp153161)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp284190 - _stx277706_)) + __tmp153160 + _stx151244_)) (if (##structure-ref - _klass277759_ + _klass151297_ '7 gxc#!class::t '#f) - (let ((__tmp284179 - (let ((__tmp284189 + (let ((__tmp153149 + (let ((__tmp153159 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self277705_ - __checked?283151 - __t283148 + _self151243_ + __checked?152121 + __t152118 '#f)) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp284180 - (let ((__tmp284186 - (let ((__tmp284187 - (let ((__tmp284188 + (__tmp153150 + (let ((__tmp153156 + (let ((__tmp153157 + (let ((__tmp153158 (let () (declare (not safe)) (##unchecked-structure-ref - _self277705_ - __id283150 - __t283148 + _self151243_ + __id152120 + __t152118 '#f)))) (declare (not safe)) - (cons __tmp284188 '())))) + (cons __tmp153158 '())))) (declare (not safe)) - (cons '%#ref __tmp284187))) - (__tmp284181 - (let ((__tmp284184 - (let ((__tmp284185 + (cons '%#ref __tmp153157))) + (__tmp153151 + (let ((__tmp153154 + (let ((__tmp153155 (let () (declare (not safe)) - (cons _field277761_ '())))) + (cons _field151299_ '())))) (declare (not safe)) - (cons '%#quote __tmp284185))) - (__tmp284182 - (let ((__tmp284183 + (cons '%#quote __tmp153155))) + (__tmp153152 + (let ((__tmp153153 (let () (declare (not safe)) - (cons _value277765_ '())))) + (cons _value151303_ '())))) (declare (not safe)) - (cons _object277763_ - __tmp284183)))) + (cons _object151301_ + __tmp153153)))) (declare (not safe)) - (cons __tmp284184 __tmp284182)))) + (cons __tmp153154 __tmp153152)))) (declare (not safe)) - (cons __tmp284186 __tmp284181)))) + (cons __tmp153156 __tmp153151)))) (declare (not safe)) - (cons __tmp284189 __tmp284180)))) + (cons __tmp153159 __tmp153150)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp284179 _stx277706_)) - (let ((_$e277768_ - (let ((__tmp284109 + (gxc#xform-wrap-source __tmp153149 _stx151244_)) + (let ((_$e151306_ + (let ((__tmp153079 (let () (declare (not safe)) (##unchecked-structure-ref - _self277705_ - __slot283149 - __t283148 + _self151243_ + __slot152119 + __t152118 '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _klass277759_ - __tmp284109)))) - (if _$e277768_ - ((lambda (_klass277771_) - (let ((__tmp284168 - (let ((__tmp284178 + _klass151297_ + __tmp153079)))) + (if _$e151306_ + ((lambda (_klass151309_) + (let ((__tmp153138 + (let ((__tmp153148 (if (let () (declare (not safe)) (##unchecked-structure-ref - _self277705_ - __checked?283151 - __t283148 + _self151243_ + __checked?152121 + __t152118 '#f)) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp284169 - (let ((__tmp284175 - (let ((__tmp284176 - (let ((__tmp284177 + (__tmp153139 + (let ((__tmp153145 + (let ((__tmp153146 + (let ((__tmp153147 (let () (declare (not safe)) (##unchecked-structure-ref - _self277705_ - __id283150 - __t283148 + _self151243_ + __id152120 + __t152118 '#f)))) (declare (not safe)) - (cons __tmp284177 '())))) + (cons __tmp153147 '())))) (declare (not safe)) - (cons '%#ref __tmp284176))) - (__tmp284170 - (let ((__tmp284173 - (let ((__tmp284174 + (cons '%#ref __tmp153146))) + (__tmp153140 + (let ((__tmp153143 + (let ((__tmp153144 (let () (declare (not safe)) - (cons _field277761_ + (cons _field151299_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#quote __tmp284174))) + (cons '%#quote __tmp153144))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp284171 - (let ((__tmp284172 + (__tmp153141 + (let ((__tmp153142 (let () (declare (not safe)) - (cons _value277765_ + (cons _value151303_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _object277763_ __tmp284172)))) + (cons _object151301_ __tmp153142)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp284173 - __tmp284171)))) + (cons __tmp153143 + __tmp153141)))) (declare (not safe)) - (cons __tmp284175 __tmp284170)))) + (cons __tmp153145 __tmp153140)))) (declare (not safe)) - (cons __tmp284178 __tmp284169)))) + (cons __tmp153148 __tmp153139)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp284168 _stx277706_))) - _$e277768_) + (gxc#xform-wrap-source __tmp153138 _stx151244_))) + _$e151306_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _self277705_ - __checked?283151 - __t283148 + _self151243_ + __checked?152121 + __t152118 '#f)) - (let ((__tmp284120 - (let* ((_$obj277773_ - (let ((__tmp284121 (gensym '__obj))) + (let ((__tmp153090 + (let* ((_$obj151311_ + (let ((__tmp153091 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp284121))) - (__tmp284122 - (let ((__tmp284164 - (let ((__tmp284165 - (let ((__tmp284167 + (make-symbol__0 __tmp153091))) + (__tmp153092 + (let ((__tmp153134 + (let ((__tmp153135 + (let ((__tmp153137 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj277773_ '()))) - (__tmp284166 - (let () (declare (not safe)) (cons _object277763_ '())))) + (cons _$obj151311_ '()))) + (__tmp153136 + (let () (declare (not safe)) (cons _object151301_ '())))) (declare (not safe)) - (cons __tmp284167 __tmp284166)))) + (cons __tmp153137 __tmp153136)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp284165 '()))) - (__tmp284123 - (let ((__tmp284124 - (let ((__tmp284125 - (let ((__tmp284156 + (cons __tmp153135 '()))) + (__tmp153093 + (let ((__tmp153094 + (let ((__tmp153095 + (let ((__tmp153126 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp284157 - (let ((__tmp284161 - (let ((__tmp284162 - (let ((__tmp284163 + (let ((__tmp153127 + (let ((__tmp153131 + (let ((__tmp153132 + (let ((__tmp153133 (##structure-ref - _klass277759_ + _klass151297_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp284163 '())))) + (cons __tmp153133 '())))) (declare (not safe)) - (cons '%#quote __tmp284162))) - (__tmp284158 - (let ((__tmp284159 - (let ((__tmp284160 + (cons '%#quote __tmp153132))) + (__tmp153128 + (let ((__tmp153129 + (let ((__tmp153130 (let () (declare (not safe)) - (cons _$obj277773_ + (cons _$obj151311_ '())))) (declare (not safe)) - (cons '%#ref __tmp284160)))) + (cons '%#ref __tmp153130)))) (declare (not safe)) - (cons __tmp284159 '())))) + (cons __tmp153129 '())))) (declare (not safe)) - (cons __tmp284161 __tmp284158)))) + (cons __tmp153131 __tmp153128)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp284157))) - (__tmp284126 - (let ((__tmp284144 - (let ((__tmp284145 - (let ((__tmp284153 - (let ((__tmp284154 - (let ((__tmp284155 + (cons '%#struct-direct-instance? __tmp153127))) + (__tmp153096 + (let ((__tmp153114 + (let ((__tmp153115 + (let ((__tmp153123 + (let ((__tmp153124 + (let ((__tmp153125 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _self277705_ - __id283150 - __t283148 + _self151243_ + __id152120 + __t152118 '#f)))) (declare (not safe)) - (cons __tmp284155 '())))) + (cons __tmp153125 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp284154))) - (__tmp284146 - (let ((__tmp284151 - (let ((__tmp284152 + (cons '%#ref __tmp153124))) + (__tmp153116 + (let ((__tmp153121 + (let ((__tmp153122 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _field277761_ '())))) + (cons _field151299_ '())))) (declare (not safe)) - (cons '%#quote __tmp284152))) - (__tmp284147 - (let ((__tmp284149 - (let ((__tmp284150 + (cons '%#quote __tmp153122))) + (__tmp153117 + (let ((__tmp153119 + (let ((__tmp153120 (let () (declare (not safe)) - (cons _$obj277773_ '())))) + (cons _$obj151311_ '())))) (declare (not safe)) - (cons '%#ref __tmp284150))) - (__tmp284148 - (let () (declare (not safe)) (cons _value277765_ '())))) + (cons '%#ref __tmp153120))) + (__tmp153118 + (let () (declare (not safe)) (cons _value151303_ '())))) (declare (not safe)) - (cons __tmp284149 __tmp284148)))) + (cons __tmp153119 __tmp153118)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp284151 - __tmp284147)))) + (cons __tmp153121 + __tmp153117)))) (declare (not safe)) - (cons __tmp284153 __tmp284146)))) + (cons __tmp153123 __tmp153116)))) (declare (not safe)) (cons '%#struct-unchecked-set! - __tmp284145))) - (__tmp284127 - (let ((__tmp284128 - (let ((__tmp284129 - (let ((__tmp284142 - (let ((__tmp284143 + __tmp153115))) + (__tmp153097 + (let ((__tmp153098 + (let ((__tmp153099 + (let ((__tmp153112 + (let ((__tmp153113 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons 'class-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp284143))) - (__tmp284130 - (let ((__tmp284139 - (let ((__tmp284140 - (let ((__tmp284141 + (cons '%#ref __tmp153113))) + (__tmp153100 + (let ((__tmp153109 + (let ((__tmp153110 + (let ((__tmp153111 (let () (declare (not safe)) (##unchecked-structure-ref - _self277705_ - __id283150 - __t283148 + _self151243_ + __id152120 + __t152118 '#f)))) (declare (not safe)) - (cons __tmp284141 '())))) + (cons __tmp153111 '())))) (declare (not safe)) - (cons '%#ref __tmp284140))) - (__tmp284131 - (let ((__tmp284137 - (let ((__tmp284138 + (cons '%#ref __tmp153110))) + (__tmp153101 + (let ((__tmp153107 + (let ((__tmp153108 (let () (declare (not safe)) - (cons _$obj277773_ '())))) + (cons _$obj151311_ '())))) (declare (not safe)) - (cons '%#ref __tmp284138))) - (__tmp284132 - (let ((__tmp284134 - (let ((__tmp284135 - (let ((__tmp284136 + (cons '%#ref __tmp153108))) + (__tmp153102 + (let ((__tmp153104 + (let ((__tmp153105 + (let ((__tmp153106 (let () (declare (not safe)) (##unchecked-structure-ref - _self277705_ - __slot283149 - __t283148 + _self151243_ + __slot152119 + __t152118 '#f)))) (declare (not safe)) - (cons __tmp284136 '())))) + (cons __tmp153106 '())))) (declare (not safe)) - (cons '%#quote __tmp284135))) - (__tmp284133 + (cons '%#quote __tmp153105))) + (__tmp153103 (let () (declare (not safe)) - (cons _value277765_ '())))) + (cons _value151303_ '())))) (declare (not safe)) - (cons __tmp284134 __tmp284133)))) + (cons __tmp153104 __tmp153103)))) (declare (not safe)) - (cons __tmp284137 __tmp284132)))) + (cons __tmp153107 __tmp153102)))) (declare (not safe)) - (cons __tmp284139 __tmp284131)))) + (cons __tmp153109 __tmp153101)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp284142 - __tmp284130)))) + (cons __tmp153112 + __tmp153100)))) (declare (not safe)) - (cons '%#call __tmp284129)))) + (cons '%#call __tmp153099)))) (declare (not safe)) - (cons __tmp284128 '())))) + (cons __tmp153098 '())))) (declare (not safe)) - (cons __tmp284144 __tmp284127)))) + (cons __tmp153114 __tmp153097)))) (declare (not safe)) - (cons __tmp284156 __tmp284126)))) + (cons __tmp153126 __tmp153096)))) (declare (not safe)) - (cons '%#if __tmp284125)))) + (cons '%#if __tmp153095)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp284124 '())))) + (cons __tmp153094 '())))) (declare (not safe)) - (cons __tmp284164 __tmp284123)))) + (cons __tmp153134 __tmp153093)))) (declare (not safe)) - (cons '%#let-values __tmp284122)))) + (cons '%#let-values __tmp153092)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp284120 _stx277706_)) - (let ((__tmp284110 - (let ((__tmp284111 - (let ((__tmp284118 - (let ((__tmp284119 + (gxc#xform-wrap-source __tmp153090 _stx151244_)) + (let ((__tmp153080 + (let ((__tmp153081 + (let ((__tmp153088 + (let ((__tmp153089 (let () (declare (not safe)) (cons 'unchecked-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp284119))) - (__tmp284112 - (let ((__tmp284113 - (let ((__tmp284115 - (let ((__tmp284116 + (cons '%#ref __tmp153089))) + (__tmp153082 + (let ((__tmp153083 + (let ((__tmp153085 + (let ((__tmp153086 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp284117 + (let ((__tmp153087 (let () (declare (not safe)) (##unchecked-structure-ref - _self277705_ - __slot283149 - __t283148 + _self151243_ + __slot152119 + __t152118 '#f)))) (declare (not safe)) - (cons __tmp284117 '())))) + (cons __tmp153087 '())))) (declare (not safe)) - (cons '%#quote __tmp284116))) - (__tmp284114 - (let () (declare (not safe)) (cons _value277765_ '())))) + (cons '%#quote __tmp153086))) + (__tmp153084 + (let () (declare (not safe)) (cons _value151303_ '())))) (declare (not safe)) - (cons __tmp284115 __tmp284114)))) + (cons __tmp153085 __tmp153084)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _object277763_ - __tmp284113)))) + (cons _object151301_ + __tmp153083)))) (declare (not safe)) - (cons __tmp284118 __tmp284112)))) + (cons __tmp153088 __tmp153082)))) (declare (not safe)) - (cons '%#call __tmp284111)))) + (cons '%#call __tmp153081)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp284110 - _stx277706_))))))))) + __tmp153080 + _stx151244_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd277717277739_ - _hd277714277731_) + _hd151255151277_ + _hd151252151269_) (let () (declare (not safe)) - (_g277709277723_ - _g277710277726_))))) + (_g151247151261_ + _g151248151264_))))) (let () (declare (not safe)) - (_g277709277723_ _g277710277726_))))) + (_g151247151261_ _g151248151264_))))) (let () (declare (not safe)) - (_g277709277723_ _g277710277726_)))))) + (_g151247151261_ _g151248151264_)))))) (declare (not safe)) - (_g277708277775_ _args277707_)))))) + (_g151246151313_ _args151245_)))))) (let () (declare (not safe)) (bind-specializer! @@ -4536,983 +4572,1000 @@ gxc#!mutator::optimize-call::specialize)) (let () (declare (not safe)) - (bind-method! + (bind-method!__% gxc#!mutator::t 'optimize-call gxc#!mutator::optimize-call '#f)) (define gxc#!lambda::optimize-call - (lambda (_self277539_ _stx277540_ _args277541_) - (let* ((_self277542277551_ _self277539_) - (_E277544277555_ - (lambda () (error '"No clause matching" _self277542277551_))) - (_K277545277562_ - (lambda (_inline277558_ _dispatch277559_ _arity277560_) + (lambda (_self151077_ _stx151078_ _args151079_) + (let* ((_self151080151089_ _self151077_) + (_E151082151093_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" _self151080151089_)))) + (_K151083151100_ + (lambda (_inline151096_ _dispatch151097_ _arity151098_) (if (let () (declare (not safe)) - (gxc#!lambda-arity-match? _self277539_ _args277541_)) + (gxc#!lambda-arity-match? _self151077_ _args151079_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal lambda application; arity mismatch" - _stx277540_ - _arity277560_))) - (if _inline277558_ + _stx151078_ + _arity151098_))) + (if _inline151096_ (begin (let () (declare (not safe)) (gxc#verbose '"inline lambda")) - (let ((__tmp284206 - (let ((__tmp284207 - (_inline277558_ _stx277540_))) + (let ((__tmp153176 + (let ((__tmp153177 + (_inline151096_ _stx151078_))) (declare (not safe)) (gxc#xform-wrap-source - __tmp284207 - _stx277540_)))) + __tmp153177 + _stx151078_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp284206))) - (if _dispatch277559_ + (gxc#compile-e__0 __tmp153176))) + (if _dispatch151097_ (begin (let () (declare (not safe)) (gxc#verbose '"dispatch lambda => " - _dispatch277559_)) - (let ((__tmp284201 - (let ((__tmp284202 - (let ((__tmp284203 - (let ((__tmp284204 - (let ((__tmp284205 + _dispatch151097_)) + (let ((__tmp153171 + (let ((__tmp153172 + (let ((__tmp153173 + (let ((__tmp153174 + (let ((__tmp153175 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _dispatch277559_ '())))) + (cons _dispatch151097_ '())))) (declare (not safe)) - (cons '%#ref __tmp284205)))) + (cons '%#ref __tmp153175)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp284204 - _args277541_)))) + (cons __tmp153174 + _args151079_)))) (declare (not safe)) - (cons '%#call __tmp284203)))) + (cons '%#call __tmp153173)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp284202 - _stx277540_)))) + __tmp153172 + _stx151078_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp284201))) + (gxc#compile-e__0 __tmp153171))) (let () (declare (not safe)) - (gxc#xform-call% _stx277540_))))))) + (gxc#xform-call% _stx151078_))))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self277542277551_ 'gxc#!lambda::t)) - (let* ((_e277546277565_ + (##structure-instance-of? _self151080151089_ 'gxc#!lambda::t)) + (let* ((_e151084151103_ (let () (declare (not safe)) (##unchecked-structure-ref - _self277542277551_ + _self151080151089_ '1 gxc#!type::t '#f))) - (_e277547277568_ + (_e151085151106_ (let () (declare (not safe)) (##unchecked-structure-ref - _self277542277551_ + _self151080151089_ '2 gxc#!lambda::t '#f))) - (_arity277571_ _e277547277568_) - (_e277548277573_ + (_arity151109_ _e151085151106_) + (_e151086151111_ (let () (declare (not safe)) (##unchecked-structure-ref - _self277542277551_ + _self151080151089_ '3 gxc#!lambda::t '#f))) - (_dispatch277576_ _e277548277573_) - (_e277549277578_ + (_dispatch151114_ _e151086151111_) + (_e151087151116_ (let () (declare (not safe)) (##unchecked-structure-ref - _self277542277551_ + _self151080151089_ '4 gxc#!lambda::t '#f))) - (_inline277581_ _e277549277578_)) + (_inline151119_ _e151087151116_)) (declare (not safe)) - (_K277545277562_ - _inline277581_ - _dispatch277576_ - _arity277571_)) - (let () (declare (not safe)) (_E277544277555_)))))) + (_K151083151100_ + _inline151119_ + _dispatch151114_ + _arity151109_)) + (let () (declare (not safe)) (_E151082151093_)))))) (let () (declare (not safe)) - (bind-method! + (bind-method!__% gxc#!lambda::t 'optimize-call gxc#!lambda::optimize-call '#f)) (define gxc#!case-lambda::optimize-call - (lambda (_self277378_ _stx277379_ _args277380_) - (let* ((_self277381277388_ _self277378_) - (_E277383277392_ - (lambda () (error '"No clause matching" _self277381277388_))) - (_K277384277406_ - (lambda (_clauses277395_) - (let ((_$e277401_ - (let ((__tmp284208 - (lambda (_g277396277398_) + (lambda (_self150916_ _stx150917_ _args150918_) + (let* ((_self150919150926_ _self150916_) + (_E150921150930_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" _self150919150926_)))) + (_K150922150944_ + (lambda (_clauses150933_) + (let ((_$e150939_ + (let ((__tmp153178 + (lambda (_g150934150936_) (let () (declare (not safe)) (gxc#!lambda-arity-match? - _g277396277398_ - _args277380_))))) + _g150934150936_ + _args150918_))))) (declare (not safe)) - (find __tmp284208 _clauses277395_)))) - (if _$e277401_ - ((lambda (_clause277404_) - (let ((__method283423 + (find __tmp153178 _clauses150933_)))) + (if _$e150939_ + ((lambda (_clause150942_) + (let ((__method152393 (let () (declare (not safe)) (method-ref - _clause277404_ + _clause150942_ 'optimize-call)))) - (if __method283423 - (__method283423 - _clause277404_ - _stx277379_ - _args277380_) - (error '"Missing method" - _clause277404_ - 'optimize-call)))) - _$e277401_) - (let ((__tmp284209 - (map gxc#!lambda-arity _clauses277395_))) + (if __method152393 + (__method152393 + _clause150942_ + _stx150917_ + _args150918_) + (let () + (declare (not safe)) + (error '"Missing method" + _clause150942_ + 'optimize-call))))) + _$e150939_) + (let ((__tmp153179 + (map gxc#!lambda-arity _clauses150933_))) (declare (not safe)) (gxc#raise-compile-error '"Illegal case-lambda application; arity mismatch" - _stx277379_ - __tmp284209))))))) + _stx150917_ + __tmp153179))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self277381277388_ + _self150919150926_ 'gxc#!case-lambda::t)) - (let* ((_e277385277409_ + (let* ((_e150923150947_ (let () (declare (not safe)) (##unchecked-structure-ref - _self277381277388_ + _self150919150926_ '1 gxc#!type::t '#f))) - (_e277386277412_ + (_e150924150950_ (let () (declare (not safe)) (##unchecked-structure-ref - _self277381277388_ + _self150919150926_ '2 gxc#!case-lambda::t '#f))) - (_clauses277415_ _e277386277412_)) + (_clauses150953_ _e150924150950_)) (declare (not safe)) - (_K277384277406_ _clauses277415_)) - (let () (declare (not safe)) (_E277383277392_)))))) + (_K150922150944_ _clauses150953_)) + (let () (declare (not safe)) (_E150921150930_)))))) (let () (declare (not safe)) - (bind-method! + (bind-method!__% gxc#!case-lambda::t 'optimize-call gxc#!case-lambda::optimize-call '#f)) (define gxc#!lambda-arity-match? - (lambda (_self277192_ _args277193_) - (let* ((_self277194277201_ _self277192_) - (_E277196277205_ - (lambda () (error '"No clause matching" _self277194277201_))) - (_K277197277245_ - (lambda (_arity277208_) - (let* ((_arity277209277218_ _arity277208_) - (_E277212277222_ + (lambda (_self150730_ _args150731_) + (let* ((_self150732150739_ _self150730_) + (_E150734150743_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" _self150732150739_)))) + (_K150735150783_ + (lambda (_arity150746_) + (let* ((_arity150747150756_ _arity150746_) + (_E150750150760_ (lambda () - (error '"No clause matching" - _arity277209277218_)))) - (let ((_K277216277242_ + (let () + (declare (not safe)) + (error '"No clause matching" + _arity150747150756_))))) + (let ((_K150754150780_ (lambda () - (fx= (length _args277193_) _arity277208_))) - (_K277213277228_ - (lambda (_arity277226_) - (fx>= (length _args277193_) _arity277226_)))) - (let ((_try-match277211277238_ + (fx= (length _args150731_) _arity150746_))) + (_K150751150766_ + (lambda (_arity150764_) + (fx>= (length _args150731_) _arity150764_)))) + (let ((_try-match150749150776_ (lambda () (if (let () (declare (not safe)) - (##pair? _arity277209277218_)) - (let ((_tl277215277233_ + (##pair? _arity150747150756_)) + (let ((_tl150753150771_ (let () (declare (not safe)) - (##cdr _arity277209277218_))) - (_hd277214277231_ + (##cdr _arity150747150756_))) + (_hd150752150769_ (let () (declare (not safe)) - (##car _arity277209277218_)))) + (##car _arity150747150756_)))) (if (let () (declare (not safe)) - (##null? _tl277215277233_)) - (let ((_arity277236_ - _hd277214277231_)) + (##null? _tl150753150771_)) + (let ((_arity150774_ + _hd150752150769_)) (declare (not safe)) - (_K277213277228_ _arity277236_)) + (_K150751150766_ _arity150774_)) (let () (declare (not safe)) - (_E277212277222_)))) + (_E150750150760_)))) (let () (declare (not safe)) - (_E277212277222_)))))) - (if (fixnum? _arity277209277218_) - (let () (declare (not safe)) (_K277216277242_)) + (_E150750150760_)))))) + (if (let () + (declare (not safe)) + (fixnum? _arity150747150756_)) + (let () (declare (not safe)) (_K150754150780_)) (let () (declare (not safe)) - (_try-match277211277238_))))))))) + (_try-match150749150776_))))))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self277194277201_ 'gxc#!lambda::t)) - (let* ((_e277198277248_ + (##structure-instance-of? _self150732150739_ 'gxc#!lambda::t)) + (let* ((_e150736150786_ (let () (declare (not safe)) (##unchecked-structure-ref - _self277194277201_ + _self150732150739_ '1 gxc#!type::t '#f))) - (_e277199277251_ + (_e150737150789_ (let () (declare (not safe)) (##unchecked-structure-ref - _self277194277201_ + _self150732150739_ '2 gxc#!lambda::t '#f))) - (_arity277254_ _e277199277251_)) + (_arity150792_ _e150737150789_)) (declare (not safe)) - (_K277197277245_ _arity277254_)) - (let () (declare (not safe)) (_E277196277205_)))))) + (_K150735150783_ _arity150792_)) + (let () (declare (not safe)) (_E150734150743_)))))) (define gxc#!kw-lambda::optimize-call - (lambda (_self277077_ _stx277078_ _args277079_) - (let* ((_self277080277088_ _self277077_) - (_E277082277092_ - (lambda () (error '"No clause matching" _self277080277088_))) - (_K277083277176_ - (lambda (_dispatch277095_ _table277096_) - (let* ((_g277097277106_ + (lambda (_self150615_ _stx150616_ _args150617_) + (let* ((_self150618150626_ _self150615_) + (_E150620150630_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" _self150618150626_)))) + (_K150621150714_ + (lambda (_dispatch150633_ _table150634_) + (let* ((_g150635150644_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _dispatch277095_))) - (_else277099277114_ + (gxc#optimizer-lookup-type _dispatch150633_))) + (_else150637150652_ (lambda () (let () (declare (not safe)) (gxc#verbose '"unknown keyword dispatch lambda " - _dispatch277095_)) + _dispatch150633_)) (let () (declare (not safe)) - (gxc#xform-call% _stx277078_)))) - (_K277101277160_ - (lambda (_main277117_ _keys277118_) - (let ((_g284210_ + (gxc#xform-call% _stx150616_)))) + (_K150639150698_ + (lambda (_main150655_ _keys150656_) + (let ((_g153180_ (let () (declare (not safe)) (gxc#!kw-lambda-split-args - _stx277078_ - _args277079_)))) + _stx150616_ + _args150617_)))) (begin - (let ((_g284211_ + (let ((_g153181_ (let () (declare (not safe)) - (if (##values? _g284210_) - (##vector-length _g284210_) + (if (##values? _g153180_) + (##vector-length _g153180_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g284211_ 2))) + (##fx= _g153181_ 2))) (error "Context expects 2 values" - _g284211_))) - (let ((_pargs277120_ + _g153181_))) + (let ((_pargs150658_ (let () (declare (not safe)) - (##vector-ref _g284210_ 0))) - (_kwargs277121_ + (##vector-ref _g153180_ 0))) + (_kwargs150659_ (let () (declare (not safe)) - (##vector-ref _g284210_ 1)))) + (##vector-ref _g153180_ 1)))) (begin (let () (declare (not safe)) (gxc#verbose '"dispatch kw-lambda => " - _main277117_)) - (if _table277096_ - (let ((_xargs277128_ - (map (lambda (_key277123_) - (let ((_$e277125_ + _main150655_)) + (if _table150634_ + (let ((_xargs150666_ + (map (lambda (_key150661_) + (let ((_$e150663_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq _key277123_ _kwargs277121_)))) - (if _$e277125_ (values _$e277125_) '(%#ref absent-value)))) + (assgetq__0 _key150661_ _kwargs150659_)))) + (if _$e150663_ (values _$e150663_) '(%#ref absent-value)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _keys277118_))) + _keys150656_))) (for-each - (lambda (_kw277130_) - (if (memq (car _kw277130_) - _keys277118_) + (lambda (_kw150668_) + (if (memq (car _kw150668_) + _keys150656_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; unexpected keyword" - _stx277078_ - _keys277118_ - _kw277130_)))) - _kwargs277121_) - (let ((__tmp284263 - (let ((__tmp284264 - (let ((__tmp284265 - (let ((__tmp284270 + _stx150616_ + _keys150656_ + _kw150668_)))) + _kwargs150659_) + (let ((__tmp153233 + (let ((__tmp153234 + (let ((__tmp153235 + (let ((__tmp153240 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp284271 + (let ((__tmp153241 (let () (declare (not safe)) - (cons _main277117_ '())))) + (cons _main150655_ '())))) (declare (not safe)) - (cons '%#ref __tmp284271))) - (__tmp284266 - (let ((__tmp284268 - (let ((__tmp284269 + (cons '%#ref __tmp153241))) + (__tmp153236 + (let ((__tmp153238 + (let ((__tmp153239 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons '%#quote __tmp284269))) - (__tmp284267 + (cons '%#quote __tmp153239))) + (__tmp153237 (let () (declare (not safe)) (foldr1 cons - _pargs277120_ - _xargs277128_)))) + _pargs150658_ + _xargs150666_)))) (declare (not safe)) - (cons __tmp284268 __tmp284267)))) + (cons __tmp153238 __tmp153237)))) (declare (not safe)) - (cons __tmp284270 __tmp284266)))) + (cons __tmp153240 __tmp153236)))) (declare (not safe)) - (cons '%#call __tmp284265)))) + (cons '%#call __tmp153235)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp284264 - _stx277078_)))) + __tmp153234 + _stx150616_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp284263))) - (let* ((_kwt277132_ - (let ((__tmp284212 + (gxc#compile-e__0 __tmp153233))) + (let* ((_kwt150670_ + (let ((__tmp153182 (gensym '__kwt))) (declare (not safe)) (make-symbol__0 - __tmp284212))) - (_kwvars277135_ - (map (lambda (_g284213_) - (let ((__tmp284214 + __tmp153182))) + (_kwvars150673_ + (map (lambda (_g153183_) + (let ((__tmp153184 (gensym '__kw))) (declare (not safe)) (make-symbol__0 - __tmp284214))) - _kwargs277121_)) - (_kwbind277140_ - (map (lambda (_kw277137_ - _kwvar277138_) - (let ((__tmp284217 + __tmp153184))) + _kwargs150659_)) + (_kwbind150678_ + (map (lambda (_kw150675_ + _kwvar150676_) + (let ((__tmp153187 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _kwvar277138_ '()))) - (__tmp284215 - (let ((__tmp284216 (cdr _kw277137_))) + (cons _kwvar150676_ '()))) + (__tmp153185 + (let ((__tmp153186 (cdr _kw150675_))) (declare (not safe)) - (cons __tmp284216 '())))) + (cons __tmp153186 '())))) (declare (not safe)) - (cons __tmp284217 __tmp284215))) + (cons __tmp153187 __tmp153185))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs277121_ - _kwvars277135_)) - (_kwset277145_ - (map (lambda (_kw277142_ - _kwvar277143_) - (let ((__tmp284218 - (let ((__tmp284219 + _kwargs150659_ + _kwvars150673_)) + (_kwset150683_ + (map (lambda (_kw150680_ + _kwvar150681_) + (let ((__tmp153188 + (let ((__tmp153189 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp284227 - (let ((__tmp284228 + (let ((__tmp153197 + (let ((__tmp153198 (let () (declare (not safe)) - (cons _kwt277132_ '())))) + (cons _kwt150670_ '())))) (declare (not safe)) - (cons '%#ref __tmp284228))) - (__tmp284220 - (let ((__tmp284224 - (let ((__tmp284225 - (let ((__tmp284226 - (car _kw277142_))) + (cons '%#ref __tmp153198))) + (__tmp153190 + (let ((__tmp153194 + (let ((__tmp153195 + (let ((__tmp153196 + (car _kw150680_))) (declare (not safe)) - (cons __tmp284226 '())))) + (cons __tmp153196 '())))) (declare (not safe)) - (cons '%#quote __tmp284225))) - (__tmp284221 - (let ((__tmp284222 - (let ((__tmp284223 + (cons '%#quote __tmp153195))) + (__tmp153191 + (let ((__tmp153192 + (let ((__tmp153193 (let () (declare (not safe)) - (cons _kwvar277143_ + (cons _kwvar150681_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp284223)))) + __tmp153193)))) (declare (not safe)) - (cons __tmp284222 '())))) + (cons __tmp153192 '())))) (declare (not safe)) - (cons __tmp284224 __tmp284221)))) + (cons __tmp153194 __tmp153191)))) (declare (not safe)) - (cons __tmp284227 __tmp284220)))) + (cons __tmp153197 __tmp153190)))) (declare (not safe)) - (cons '(%#ref hash-put!) __tmp284219)))) + (cons '(%#ref symbolic-table-set!) __tmp153189)))) (declare (not safe)) - (cons '%#call __tmp284218))) + (cons '%#call __tmp153188))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs277121_ - _kwvars277135_)) - (_xkwargs277150_ - (map (lambda (_kw277147_ - _kwvar277148_) - (let ((__tmp284231 - (car _kw277147_)) - (__tmp284229 - (let ((__tmp284230 + _kwargs150659_ + _kwvars150673_)) + (_xkwargs150688_ + (map (lambda (_kw150685_ + _kwvar150686_) + (let ((__tmp153201 + (car _kw150685_)) + (__tmp153199 + (let ((__tmp153200 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _kwvar277148_ '())))) + (cons _kwvar150686_ '())))) (declare (not safe)) - (cons '%#ref __tmp284230)))) + (cons '%#ref __tmp153200)))) (declare (not safe)) - (cons __tmp284231 __tmp284229))) + (cons __tmp153201 __tmp153199))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs277121_ - _kwvars277135_)) - (_xargs277157_ - (map (lambda (_key277152_) - (let ((_$e277154_ + _kwargs150659_ + _kwvars150673_)) + (_xargs150695_ + (map (lambda (_key150690_) + (let ((_$e150692_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq _key277152_ _xkwargs277150_)))) - (if _$e277154_ (values _$e277154_) '(%#ref absent-value)))) + (assgetq__0 _key150690_ _xkwargs150688_)))) + (if _$e150692_ (values _$e150692_) '(%#ref absent-value)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _keys277118_))) - (let ((__tmp284232 - (let ((__tmp284233 - (let ((__tmp284234 - (let ((__tmp284235 + _keys150656_))) + (let ((__tmp153202 + (let ((__tmp153203 + (let ((__tmp153204 + (let ((__tmp153205 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp284236 - (let ((__tmp284237 - (let ((__tmp284251 - (let ((__tmp284252 - (let ((__tmp284262 + (let ((__tmp153206 + (let ((__tmp153207 + (let ((__tmp153221 + (let ((__tmp153222 + (let ((__tmp153232 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _kwt277132_ '()))) - (__tmp284253 - (let ((__tmp284254 - (let ((__tmp284255 - (let ((__tmp284256 - (let ((__tmp284257 - (let ((__tmp284258 - (let ((__tmp284259 + (let () (declare (not safe)) (cons _kwt150670_ '()))) + (__tmp153223 + (let ((__tmp153224 + (let ((__tmp153225 + (let ((__tmp153226 + (let ((__tmp153227 + (let ((__tmp153229 + (let ((__tmp153230 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp284260 - (let ((__tmp284261 (length _kwargs277121_))) - (declare (not safe)) - (cons __tmp284261 '())))) + (let ((__tmp153231 (length _kwargs150659_))) (declare (not safe)) - (cons '%#quote __tmp284260)))) + (cons __tmp153231 '())))) (declare (not safe)) - (cons __tmp284259 '())))) + (cons '%#quote __tmp153230))) + (__tmp153228 + (let () (declare (not safe)) (cons '(%#quote 0) '())))) (declare (not safe)) - (cons '(%#quote size:) __tmp284258)))) + (cons __tmp153229 __tmp153228)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '(%#ref make-hash-table-eq) - __tmp284257)))) + (cons '(%#ref make-symbolic-table) + __tmp153227)))) (declare (not safe)) - (cons '%#call __tmp284256)))) + (cons '%#call __tmp153226)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp284255 - _stx277078_)))) + __tmp153225 + _stx150616_)))) (declare (not safe)) - (cons __tmp284254 '())))) + (cons __tmp153224 '())))) (declare (not safe)) - (cons __tmp284262 __tmp284253)))) + (cons __tmp153232 __tmp153223)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp284252 '()))) - (__tmp284238 - (let ((__tmp284239 - (let ((__tmp284240 + (cons __tmp153222 '()))) + (__tmp153208 + (let ((__tmp153209 + (let ((__tmp153210 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp284241 - (let ((__tmp284242 - (let ((__tmp284243 - (let ((__tmp284244 - (let ((__tmp284249 - (let ((__tmp284250 + (let ((__tmp153211 + (let ((__tmp153212 + (let ((__tmp153213 + (let ((__tmp153214 + (let ((__tmp153219 + (let ((__tmp153220 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _main277117_ '())))) + (cons _main150655_ '())))) (declare (not safe)) - (cons '%#ref __tmp284250))) - (__tmp284245 - (let ((__tmp284247 - (let ((__tmp284248 + (cons '%#ref __tmp153220))) + (__tmp153215 + (let ((__tmp153217 + (let ((__tmp153218 (let () (declare (not safe)) - (cons _kwt277132_ '())))) + (cons _kwt150670_ '())))) (declare (not safe)) - (cons '%#ref __tmp284248))) - (__tmp284246 + (cons '%#ref __tmp153218))) + (__tmp153216 (let () (declare (not safe)) - (foldr1 cons _pargs277120_ _xargs277157_)))) + (foldr1 cons _pargs150658_ _xargs150695_)))) (declare (not safe)) - (cons __tmp284247 __tmp284246)))) + (cons __tmp153217 __tmp153216)))) (declare (not safe)) - (cons __tmp284249 __tmp284245)))) + (cons __tmp153219 __tmp153215)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp284244)))) + (cons '%#call __tmp153214)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp284243 - _stx277078_)))) + __tmp153213 + _stx150616_)))) (declare (not safe)) - (cons __tmp284242 '())))) + (cons __tmp153212 '())))) (declare (not safe)) - (foldr1 cons __tmp284241 _kwset277145_)))) + (foldr1 cons __tmp153211 _kwset150683_)))) (declare (not safe)) - (cons '%#begin __tmp284240)))) + (cons '%#begin __tmp153210)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp284239 '())))) + (cons __tmp153209 '())))) (declare (not safe)) - (cons __tmp284251 __tmp284238)))) + (cons __tmp153221 __tmp153208)))) (declare (not safe)) - (cons '%#let-values __tmp284237)))) + (cons '%#let-values __tmp153207)))) (declare (not safe)) - (cons __tmp284236 '())))) + (cons __tmp153206 '())))) (declare (not safe)) - (cons _kwbind277140_ __tmp284235)))) + (cons _kwbind150678_ __tmp153205)))) (declare (not safe)) - (cons '%#let-values __tmp284234)))) + (cons '%#let-values __tmp153204)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp284233 - _stx277078_)))) + __tmp153203 + _stx150616_)))) (declare (not safe)) (gxc#compile-e__0 - __tmp284232))))))))))) + __tmp153202))))))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _g277097277106_ + _g150635150644_ 'gxc#!kw-lambda-primary::t)) - (let* ((_e277102277163_ + (let* ((_e150640150701_ (let () (declare (not safe)) (##unchecked-structure-ref - _g277097277106_ + _g150635150644_ '1 gxc#!type::t '#f))) - (_e277103277166_ + (_e150641150704_ (let () (declare (not safe)) (##unchecked-structure-ref - _g277097277106_ + _g150635150644_ '2 gxc#!kw-lambda-primary::t '#f))) - (_keys277169_ _e277103277166_) - (_e277104277171_ + (_keys150707_ _e150641150704_) + (_e150642150709_ (let () (declare (not safe)) (##unchecked-structure-ref - _g277097277106_ + _g150635150644_ '3 gxc#!kw-lambda-primary::t '#f))) - (_main277174_ _e277104277171_)) + (_main150712_ _e150642150709_)) (declare (not safe)) - (_K277101277160_ _main277174_ _keys277169_)) - (let () (declare (not safe)) (_else277099277114_))))))) + (_K150639150698_ _main150712_ _keys150707_)) + (let () (declare (not safe)) (_else150637150652_))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self277080277088_ + _self150618150626_ 'gxc#!kw-lambda::t)) - (let* ((_e277084277179_ + (let* ((_e150622150717_ (let () (declare (not safe)) (##unchecked-structure-ref - _self277080277088_ + _self150618150626_ '1 gxc#!type::t '#f))) - (_e277085277182_ + (_e150623150720_ (let () (declare (not safe)) (##unchecked-structure-ref - _self277080277088_ + _self150618150626_ '2 gxc#!kw-lambda::t '#f))) - (_table277185_ _e277085277182_) - (_e277086277187_ + (_table150723_ _e150623150720_) + (_e150624150725_ (let () (declare (not safe)) (##unchecked-structure-ref - _self277080277088_ + _self150618150626_ '3 gxc#!kw-lambda::t '#f))) - (_dispatch277190_ _e277086277187_)) + (_dispatch150728_ _e150624150725_)) (declare (not safe)) - (_K277083277176_ _dispatch277190_ _table277185_)) - (let () (declare (not safe)) (_E277082277092_)))))) + (_K150621150714_ _dispatch150728_ _table150723_)) + (let () (declare (not safe)) (_E150620150630_)))))) (let () (declare (not safe)) - (bind-method! + (bind-method!__% gxc#!kw-lambda::t 'optimize-call gxc#!kw-lambda::optimize-call '#f)) (define gxc#!kw-lambda-split-args - (lambda (_stx276690_ _args276691_) - (let _lp276693_ ((_rest276695_ _args276691_) - (_pargs276696_ '()) - (_kwargs276697_ '())) - (let* ((___stx283305283306_ _rest276695_) - (_g276703276755_ + (lambda (_stx150228_ _args150229_) + (let _lp150231_ ((_rest150233_ _args150229_) + (_pargs150234_ '()) + (_kwargs150235_ '())) + (let* ((___stx152275152276_ _rest150233_) + (_g150241150293_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx283305283306_))))) - (let ((___kont283307283308_ - (lambda (_L276934_ _L276935_) - (let ((__tmp284272 + ___stx152275152276_))))) + (let ((___kont152277152278_ + (lambda (_L150472_ _L150473_) + (let ((__tmp153242 (let () (declare (not safe)) - (cons _L276935_ _pargs276696_)))) + (cons _L150473_ _pargs150234_)))) (declare (not safe)) - (_lp276693_ _L276934_ __tmp284272 _kwargs276697_)))) - (___kont283309283310_ - (lambda (_L276880_) + (_lp150231_ _L150472_ __tmp153242 _kwargs150235_)))) + (___kont152279152280_ + (lambda (_L150418_) (values (let () (declare (not safe)) - (foldl1 cons _L276880_ _pargs276696_)) - (reverse _kwargs276697_)))) - (___kont283311283312_ - (lambda (_L276827_ _L276828_ _L276829_) - (let ((_kw276846_ + (foldl1 cons _L150418_ _pargs150234_)) + (reverse _kwargs150235_)))) + (___kont152281152282_ + (lambda (_L150365_ _L150366_ _L150367_) + (let ((_kw150384_ (let () (declare (not safe)) - (gx#stx-e _L276829_)))) - (if (assq _kw276846_ _kwargs276697_) + (gx#stx-e _L150367_)))) + (if (assq _kw150384_ _kwargs150235_) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; duplicate keyword" - _stx276690_ - _kw276846_)) - (let ((__tmp284273 - (let ((__tmp284274 + _stx150228_ + _kw150384_)) + (let ((__tmp153243 + (let ((__tmp153244 (let () (declare (not safe)) - (cons _kw276846_ _L276828_)))) + (cons _kw150384_ _L150366_)))) (declare (not safe)) - (cons __tmp284274 _kwargs276697_)))) + (cons __tmp153244 _kwargs150235_)))) (declare (not safe)) - (_lp276693_ - _L276827_ - _pargs276696_ - __tmp284273)))))) - (___kont283313283314_ - (lambda (_L276775_ _L276776_) - (let ((__tmp284275 + (_lp150231_ + _L150365_ + _pargs150234_ + __tmp153243)))))) + (___kont152283152284_ + (lambda (_L150313_ _L150314_) + (let ((__tmp153245 (let () (declare (not safe)) - (cons _L276776_ _pargs276696_)))) + (cons _L150314_ _pargs150234_)))) (declare (not safe)) - (_lp276693_ _L276775_ __tmp284275 _kwargs276697_)))) - (___kont283315283316_ + (_lp150231_ _L150313_ __tmp153245 _kwargs150235_)))) + (___kont152285152286_ (lambda () - (values (reverse _pargs276696_) - (reverse _kwargs276697_))))) - (let* ((_g276702276762_ + (values (reverse _pargs150234_) + (reverse _kwargs150235_))))) + (let* ((_g150240150300_ (lambda () (if (let () (declare (not safe)) - (gx#stx-null? ___stx283305283306_)) - (___kont283315283316_) - (let () (declare (not safe)) (_g276703276755_))))) - (___match283412283413_ - (lambda (_e276736276795_ - _hd276735276798_ - _tl276734276800_ - _e276739276803_ - _hd276738276806_ - _tl276737276808_ - _e276742276811_ - _hd276741276814_ - _tl276740276816_ - _e276745276819_ - _hd276744276822_ - _tl276743276824_) - (let ((_L276827_ _tl276743276824_) - (_L276828_ _hd276744276822_) - (_L276829_ _hd276741276814_)) + (gx#stx-null? ___stx152275152276_)) + (___kont152285152286_) + (let () (declare (not safe)) (_g150241150293_))))) + (___match152382152383_ + (lambda (_e150274150333_ + _hd150273150336_ + _tl150272150338_ + _e150277150341_ + _hd150276150344_ + _tl150275150346_ + _e150280150349_ + _hd150279150352_ + _tl150278150354_ + _e150283150357_ + _hd150282150360_ + _tl150281150362_) + (let ((_L150365_ _tl150281150362_) + (_L150366_ _hd150282150360_) + (_L150367_ _hd150279150352_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _L276829_)) - (___kont283311283312_ - _L276827_ - _L276828_ - _L276829_) - (___kont283313283314_ - _tl276734276800_ - _hd276735276798_)))))) + (gx#stx-keyword? _L150367_)) + (___kont152281152282_ + _L150365_ + _L150366_ + _L150367_) + (___kont152283152284_ + _tl150272150338_ + _hd150273150336_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx283305283306_)) - (let ((_e276709276899_ + (gx#stx-pair? ___stx152275152276_)) + (let ((_e150247150437_ (let () (declare (not safe)) - (gx#stx-e ___stx283305283306_)))) - (let ((_tl276707276904_ + (gx#stx-e ___stx152275152276_)))) + (let ((_tl150245150442_ (let () (declare (not safe)) - (##cdr _e276709276899_))) - (_hd276708276902_ + (##cdr _e150247150437_))) + (_hd150246150440_ (let () (declare (not safe)) - (##car _e276709276899_)))) + (##car _e150247150437_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd276708276902_)) - (let ((_e276712276907_ + (gx#stx-pair? _hd150246150440_)) + (let ((_e150250150445_ (let () (declare (not safe)) - (gx#stx-e _hd276708276902_)))) - (let ((_tl276710276912_ + (gx#stx-e _hd150246150440_)))) + (let ((_tl150248150450_ (let () (declare (not safe)) - (##cdr _e276712276907_))) - (_hd276711276910_ + (##cdr _e150250150445_))) + (_hd150249150448_ (let () (declare (not safe)) - (##car _e276712276907_)))) + (##car _e150250150445_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd276711276910_)) + (gx#identifier? _hd150249150448_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd276711276910_)) + _hd150249150448_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl276710276912_)) - (let ((_e276715276915_ + (gx#stx-pair? _tl150248150450_)) + (let ((_e150253150453_ (let () (declare (not safe)) (gx#stx-e - _tl276710276912_)))) - (let ((_tl276713276920_ + _tl150248150450_)))) + (let ((_tl150251150458_ (let () (declare (not safe)) - (##cdr _e276715276915_))) - (_hd276714276918_ + (##cdr _e150253150453_))) + (_hd150252150456_ (let () (declare (not safe)) - (##car _e276715276915_)))) + (##car _e150253150453_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd276714276918_)) - (let ((_e276716276923_ + _hd150252150456_)) + (let ((_e150254150461_ (let () (declare (not safe)) (gx#stx-e - _hd276714276918_)))) + _hd150252150456_)))) (if (let () (declare (not safe)) - (equal? _e276716276923_ + (equal? _e150254150461_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!key)) (if (let () (declare (not safe)) - (gx#stx-null? _tl276713276920_)) + (gx#stx-null? _tl150251150458_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl276707276904_)) - (let ((_e276719276926_ + (gx#stx-pair? _tl150245150442_)) + (let ((_e150257150464_ (let () (declare (not safe)) - (gx#stx-e _tl276707276904_)))) - (let ((_tl276717276931_ + (gx#stx-e _tl150245150442_)))) + (let ((_tl150255150469_ (let () (declare (not safe)) - (##cdr _e276719276926_))) - (_hd276718276929_ + (##cdr _e150257150464_))) + (_hd150256150467_ (let () (declare (not safe)) - (##car _e276719276926_)))) - (___kont283307283308_ - _tl276717276931_ - _hd276718276929_))) - (___kont283313283314_ - _tl276707276904_ - _hd276708276902_)) - (___kont283313283314_ _tl276707276904_ _hd276708276902_)) + (##car _e150257150464_)))) + (___kont152277152278_ + _tl150255150469_ + _hd150256150467_))) + (___kont152283152284_ + _tl150245150442_ + _hd150246150440_)) + (___kont152283152284_ _tl150245150442_ _hd150246150440_)) (if (let () (declare (not safe)) - (equal? _e276716276923_ '#!rest)) + (equal? _e150254150461_ '#!rest)) (if (let () (declare (not safe)) - (gx#stx-null? _tl276713276920_)) - (___kont283309283310_ _tl276707276904_) - (___kont283313283314_ - _tl276707276904_ - _hd276708276902_)) + (gx#stx-null? _tl150251150458_)) + (___kont152279152280_ _tl150245150442_) + (___kont152283152284_ + _tl150245150442_ + _hd150246150440_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl276713276920_)) + (gx#stx-null? _tl150251150458_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl276707276904_)) - (let ((_e276745276819_ + (gx#stx-pair? _tl150245150442_)) + (let ((_e150283150357_ (let () (declare (not safe)) - (gx#stx-e _tl276707276904_)))) - (let ((_tl276743276824_ + (gx#stx-e _tl150245150442_)))) + (let ((_tl150281150362_ (let () (declare (not safe)) - (##cdr _e276745276819_))) - (_hd276744276822_ + (##cdr _e150283150357_))) + (_hd150282150360_ (let () (declare (not safe)) - (##car _e276745276819_)))) - (___match283412283413_ - _e276709276899_ - _hd276708276902_ - _tl276707276904_ - _e276712276907_ - _hd276711276910_ - _tl276710276912_ - _e276715276915_ - _hd276714276918_ - _tl276713276920_ - _e276745276819_ - _hd276744276822_ - _tl276743276824_))) - (___kont283313283314_ - _tl276707276904_ - _hd276708276902_)) - (___kont283313283314_ - _tl276707276904_ - _hd276708276902_))))) + (##car _e150283150357_)))) + (___match152382152383_ + _e150247150437_ + _hd150246150440_ + _tl150245150442_ + _e150250150445_ + _hd150249150448_ + _tl150248150450_ + _e150253150453_ + _hd150252150456_ + _tl150251150458_ + _e150283150357_ + _hd150282150360_ + _tl150281150362_))) + (___kont152283152284_ + _tl150245150442_ + _hd150246150440_)) + (___kont152283152284_ + _tl150245150442_ + _hd150246150440_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl276713276920_)) + _tl150251150458_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl276707276904_)) - (let ((_e276745276819_ + _tl150245150442_)) + (let ((_e150283150357_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl276707276904_)))) - (let ((_tl276743276824_ + (gx#stx-e _tl150245150442_)))) + (let ((_tl150281150362_ (let () (declare (not safe)) - (##cdr _e276745276819_))) - (_hd276744276822_ + (##cdr _e150283150357_))) + (_hd150282150360_ (let () (declare (not safe)) - (##car _e276745276819_)))) - (___match283412283413_ - _e276709276899_ - _hd276708276902_ - _tl276707276904_ - _e276712276907_ - _hd276711276910_ - _tl276710276912_ - _e276715276915_ - _hd276714276918_ - _tl276713276920_ - _e276745276819_ - _hd276744276822_ - _tl276743276824_))) - (___kont283313283314_ _tl276707276904_ _hd276708276902_)) - (___kont283313283314_ _tl276707276904_ _hd276708276902_))))) + (##car _e150283150357_)))) + (___match152382152383_ + _e150247150437_ + _hd150246150440_ + _tl150245150442_ + _e150250150445_ + _hd150249150448_ + _tl150248150450_ + _e150253150453_ + _hd150252150456_ + _tl150251150458_ + _e150283150357_ + _hd150282150360_ + _tl150281150362_))) + (___kont152283152284_ _tl150245150442_ _hd150246150440_)) + (___kont152283152284_ _tl150245150442_ _hd150246150440_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont283313283314_ - _tl276707276904_ - _hd276708276902_)) - (___kont283313283314_ - _tl276707276904_ - _hd276708276902_)) - (___kont283313283314_ - _tl276707276904_ - _hd276708276902_)))) - (___kont283313283314_ - _tl276707276904_ - _hd276708276902_)))) - (let () (declare (not safe)) (_g276702276762_))))))))) + (___kont152283152284_ + _tl150245150442_ + _hd150246150440_)) + (___kont152283152284_ + _tl150245150442_ + _hd150246150440_)) + (___kont152283152284_ + _tl150245150442_ + _hd150246150440_)))) + (___kont152283152284_ + _tl150245150442_ + _hd150246150440_)))) + (let () (declare (not safe)) (_g150240150300_))))))))) (define gxc#!kw-lambda-primary::optimize-call - (lambda (_self276686_ _stx276687_ _args276688_) - (let () (declare (not safe)) (gxc#xform-call% _stx276687_)))) + (lambda (_self150224_ _stx150225_ _args150226_) + (let () (declare (not safe)) (gxc#xform-call% _stx150225_)))) (let () (declare (not safe)) - (bind-method! + (bind-method!__% gxc#!kw-lambda-primary::t 'optimize-call gxc#!kw-lambda-primary::optimize-call diff --git a/src/bootstrap/gerbil/compiler/optimize-spec__0.scm b/src/bootstrap/gerbil/compiler/optimize-spec__0.scm index ac4ef3cb2..d513e1986 100644 --- a/src/bootstrap/gerbil/compiler/optimize-spec__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-spec__0.scm @@ -1,234 +1,231 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-spec::timestamp 1708102806) + (define gerbil/compiler/optimize-spec::timestamp 1708370116) (begin (define gxc#&generate-method-specializers (make-promise (lambda () - (let ((_tbl250942_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp256638 (force gxc#&identity))) + (let ((_tbl133616_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp134744 (force gxc#&identity))) (declare (not safe)) - (hash-copy! _tbl250942_ __tmp256638)) + (hash-merge! _tbl133616_ __tmp134744)) (let () (declare (not safe)) - (table-set! _tbl250942_ '%#begin gxc#xform-begin%)) + (hash-put! _tbl133616_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (table-set! _tbl250942_ '%#begin-syntax gxc#xform-begin-syntax%)) + (hash-put! _tbl133616_ '%#begin-syntax gxc#xform-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl250942_ '%#module gxc#xform-module%)) + (hash-put! _tbl133616_ '%#module gxc#xform-module%)) (let () (declare (not safe)) - (table-set! - _tbl250942_ + (hash-put! + _tbl133616_ '%#define-values gxc#generate-method-specializers-define-values%)) - _tbl250942_)))) + _tbl133616_)))) (define gxc#apply-generate-method-specializers - (lambda (_stx250925_ . _args250927_) - (let ((__tmp256640 + (lambda (_stx133599_ . _args133601_) + (let ((__tmp134746 (lambda () (declare (not safe)) - (if (null? _args250927_) - (gxc#compile-e__0 _stx250925_) - (let ((_arg1250932_ (car _args250927_)) - (_rest250934_ (cdr _args250927_))) - (if (null? _rest250934_) - (gxc#compile-e__1 _stx250925_ _arg1250932_) - (let ((_arg2250937_ (car _rest250934_)) - (_rest250939_ (cdr _rest250934_))) - (if (null? _rest250939_) + (if (null? _args133601_) + (gxc#compile-e__0 _stx133599_) + (let ((_arg1133606_ (car _args133601_)) + (_rest133608_ (cdr _args133601_))) + (if (null? _rest133608_) + (gxc#compile-e__1 _stx133599_ _arg1133606_) + (let ((_arg2133611_ (car _rest133608_)) + (_rest133613_ (cdr _rest133608_))) + (if (null? _rest133613_) (gxc#compile-e__2 - _stx250925_ - _arg1250932_ - _arg2250937_) + _stx133599_ + _arg1133606_ + _arg2133611_) (apply gxc#compile-e - _stx250925_ - _arg1250932_ - _arg2250937_ - _rest250939_)))))))) - (__tmp256639 (force gxc#&generate-method-specializers))) + _stx133599_ + _arg1133606_ + _arg2133611_ + _rest133613_)))))))) + (__tmp134745 (force gxc#&generate-method-specializers))) (declare (not safe)) (call-with-parameters - __tmp256640 + __tmp134746 gxc#current-compile-methods - __tmp256639)))) + __tmp134745)))) (define gxc#&collect-object-refs (make-promise (lambda () - (let ((_tbl250922_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp256641 (force gxc#&void))) + (let ((_tbl133596_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp134747 (force gxc#&void))) (declare (not safe)) - (hash-copy! _tbl250922_ __tmp256641)) + (hash-merge! _tbl133596_ __tmp134747)) (let () (declare (not safe)) - (table-set! _tbl250922_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl133596_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (table-set! - _tbl250922_ + (hash-put! + _tbl133596_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl250922_ '%#lambda gxc#collect-body-lambda%)) + (hash-put! _tbl133596_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) - (table-set! - _tbl250922_ + (hash-put! + _tbl133596_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) - (table-set! - _tbl250922_ + (hash-put! + _tbl133596_ '%#let-values gxc#collect-body-let-values%)) (let () (declare (not safe)) - (table-set! - _tbl250922_ + (hash-put! + _tbl133596_ '%#letrec-values gxc#collect-body-let-values%)) (let () (declare (not safe)) - (table-set! - _tbl250922_ + (hash-put! + _tbl133596_ '%#letrec-values* gxc#collect-body-let-values%)) (let () (declare (not safe)) - (table-set! _tbl250922_ '%#call gxc#collect-object-refs-call%)) + (hash-put! _tbl133596_ '%#call gxc#collect-object-refs-call%)) (let () (declare (not safe)) - (table-set! _tbl250922_ '%#if gxc#collect-operands)) + (hash-put! _tbl133596_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl250922_ '%#set! gxc#collect-body-setq%)) + (hash-put! _tbl133596_ '%#set! gxc#collect-body-setq%)) (let () (declare (not safe)) - (table-set! _tbl250922_ '%#struct-ref gxc#collect-operands)) + (hash-put! _tbl133596_ '%#struct-ref gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl250922_ '%#struct-set! gxc#collect-operands)) + (hash-put! _tbl133596_ '%#struct-set! gxc#collect-operands)) (let () (declare (not safe)) - (table-set! - _tbl250922_ - '%#struct-direct-ref - gxc#collect-operands)) + (hash-put! _tbl133596_ '%#struct-direct-ref gxc#collect-operands)) (let () (declare (not safe)) - (table-set! - _tbl250922_ + (hash-put! + _tbl133596_ '%#struct-direct-set! gxc#collect-operands)) (let () (declare (not safe)) - (table-set! - _tbl250922_ + (hash-put! + _tbl133596_ '%#struct-unchecked-ref gxc#collect-operands)) (let () (declare (not safe)) - (table-set! - _tbl250922_ + (hash-put! + _tbl133596_ '%#struct-unchecked-set! gxc#collect-operands)) - _tbl250922_)))) + _tbl133596_)))) (define gxc#apply-collect-object-refs - (lambda (_stx250905_ . _args250907_) - (let ((__tmp256643 + (lambda (_stx133579_ . _args133581_) + (let ((__tmp134749 (lambda () (declare (not safe)) - (if (null? _args250907_) - (gxc#compile-e__0 _stx250905_) - (let ((_arg1250912_ (car _args250907_)) - (_rest250914_ (cdr _args250907_))) - (if (null? _rest250914_) - (gxc#compile-e__1 _stx250905_ _arg1250912_) - (let ((_arg2250917_ (car _rest250914_)) - (_rest250919_ (cdr _rest250914_))) - (if (null? _rest250919_) + (if (null? _args133581_) + (gxc#compile-e__0 _stx133579_) + (let ((_arg1133586_ (car _args133581_)) + (_rest133588_ (cdr _args133581_))) + (if (null? _rest133588_) + (gxc#compile-e__1 _stx133579_ _arg1133586_) + (let ((_arg2133591_ (car _rest133588_)) + (_rest133593_ (cdr _rest133588_))) + (if (null? _rest133593_) (gxc#compile-e__2 - _stx250905_ - _arg1250912_ - _arg2250917_) + _stx133579_ + _arg1133586_ + _arg2133591_) (apply gxc#compile-e - _stx250905_ - _arg1250912_ - _arg2250917_ - _rest250919_)))))))) - (__tmp256642 (force gxc#&collect-object-refs))) + _stx133579_ + _arg1133586_ + _arg2133591_ + _rest133593_)))))))) + (__tmp134748 (force gxc#&collect-object-refs))) (declare (not safe)) (call-with-parameters - __tmp256643 + __tmp134749 gxc#current-compile-methods - __tmp256642)))) + __tmp134748)))) (define gxc#&subst-object-refs (make-promise (lambda () - (let ((_tbl250902_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp256644 (force gxc#&basic-xform-expression))) + (let ((_tbl133576_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp134750 (force gxc#&basic-xform-expression))) (declare (not safe)) - (hash-copy! _tbl250902_ __tmp256644)) + (hash-merge! _tbl133576_ __tmp134750)) (let () (declare (not safe)) - (table-set! _tbl250902_ '%#begin gxc#xform-begin%)) + (hash-put! _tbl133576_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (table-set! _tbl250902_ '%#call gxc#subst-object-refs-call%)) - _tbl250902_)))) + (hash-put! _tbl133576_ '%#call gxc#subst-object-refs-call%)) + _tbl133576_)))) (define gxc#apply-subst-object-refs - (lambda (_stx250885_ . _args250887_) - (let ((__tmp256646 + (lambda (_stx133559_ . _args133561_) + (let ((__tmp134752 (lambda () (declare (not safe)) - (if (null? _args250887_) - (gxc#compile-e__0 _stx250885_) - (let ((_arg1250892_ (car _args250887_)) - (_rest250894_ (cdr _args250887_))) - (if (null? _rest250894_) - (gxc#compile-e__1 _stx250885_ _arg1250892_) - (let ((_arg2250897_ (car _rest250894_)) - (_rest250899_ (cdr _rest250894_))) - (if (null? _rest250899_) + (if (null? _args133561_) + (gxc#compile-e__0 _stx133559_) + (let ((_arg1133566_ (car _args133561_)) + (_rest133568_ (cdr _args133561_))) + (if (null? _rest133568_) + (gxc#compile-e__1 _stx133559_ _arg1133566_) + (let ((_arg2133571_ (car _rest133568_)) + (_rest133573_ (cdr _rest133568_))) + (if (null? _rest133573_) (gxc#compile-e__2 - _stx250885_ - _arg1250892_ - _arg2250897_) + _stx133559_ + _arg1133566_ + _arg2133571_) (apply gxc#compile-e - _stx250885_ - _arg1250892_ - _arg2250897_ - _rest250899_)))))))) - (__tmp256645 (force gxc#&subst-object-refs))) + _stx133559_ + _arg1133566_ + _arg2133571_ + _rest133573_)))))))) + (__tmp134751 (force gxc#&subst-object-refs))) (declare (not safe)) (call-with-parameters - __tmp256646 + __tmp134752 gxc#current-compile-methods - __tmp256645)))) + __tmp134751)))) (define gxc#generate-method-specializers-define-values% - (lambda (_stx247555_) - (letrec ((_generate-method-bind247557_ - (lambda (_$t250879_ _id250880_ _$id250881_) - (let ((_$tmp250883_ - (let ((__tmp256647 (gensym '__tmp))) + (lambda (_stx130229_) + (letrec ((_generate-method-bind130231_ + (lambda (_$t133553_ _id133554_ _$id133555_) + (let ((_$tmp133557_ + (let ((__tmp134753 (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp256647)))) - (let ((__tmp256695 + (make-symbol__0 __tmp134753)))) + (let ((__tmp134801 (let () (declare (not safe)) - (cons _$id250881_ '()))) - (__tmp256648 - (let ((__tmp256649 - (let ((__tmp256650 - (let ((__tmp256693 - (let ((__tmp256694 + (cons _$id133555_ '()))) + (__tmp134754 + (let ((__tmp134755 + (let ((__tmp134756 + (let ((__tmp134799 + (let ((__tmp134800 (let () (declare (not safe)) (cons 'make-promise @@ -236,1276 +233,1266 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp256694))) - (__tmp256651 - (let ((__tmp256652 - (let ((__tmp256653 - (let ((__tmp256654 + (cons '%#ref __tmp134800))) + (__tmp134757 + (let ((__tmp134758 + (let ((__tmp134759 + (let ((__tmp134760 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp256655 - (let ((__tmp256656 - (let ((__tmp256676 - (let ((__tmp256677 - (let ((__tmp256692 + (let ((__tmp134761 + (let ((__tmp134762 + (let ((__tmp134782 + (let ((__tmp134783 + (let ((__tmp134798 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$tmp250883_ '()))) - (__tmp256678 - (let ((__tmp256679 - (let ((__tmp256680 - (let ((__tmp256690 - (let ((__tmp256691 + (cons _$tmp133557_ '()))) + (__tmp134784 + (let ((__tmp134785 + (let ((__tmp134786 + (let ((__tmp134796 + (let ((__tmp134797 (let () (declare (not safe)) (cons 'direct-method-ref '())))) (declare (not safe)) - (cons '%#ref __tmp256691))) - (__tmp256681 - (let ((__tmp256688 - (let ((__tmp256689 + (cons '%#ref __tmp134797))) + (__tmp134787 + (let ((__tmp134794 + (let ((__tmp134795 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$t250879_ '())))) + (cons _$t133553_ '())))) (declare (not safe)) - (cons '%#ref __tmp256689))) + (cons '%#ref __tmp134795))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp256682 - (let ((__tmp256686 - (let ((__tmp256687 + (__tmp134788 + (let ((__tmp134792 + (let ((__tmp134793 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons '%#quote __tmp256687))) - (__tmp256683 - (let ((__tmp256684 - (let ((__tmp256685 + (cons '%#quote __tmp134793))) + (__tmp134789 + (let ((__tmp134790 + (let ((__tmp134791 (let () (declare (not safe)) - (cons _id250880_ '())))) + (cons _id133554_ '())))) (declare (not safe)) - (cons '%#quote __tmp256685)))) + (cons '%#quote __tmp134791)))) (declare (not safe)) - (cons __tmp256684 '())))) + (cons __tmp134790 '())))) (declare (not safe)) - (cons __tmp256686 __tmp256683)))) + (cons __tmp134792 __tmp134789)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp256688 - __tmp256682)))) + (cons __tmp134794 + __tmp134788)))) (declare (not safe)) - (cons __tmp256690 __tmp256681)))) + (cons __tmp134796 __tmp134787)))) (declare (not safe)) - (cons '%#call __tmp256680)))) + (cons '%#call __tmp134786)))) (declare (not safe)) - (cons __tmp256679 '())))) + (cons __tmp134785 '())))) (declare (not safe)) - (cons __tmp256692 __tmp256678)))) + (cons __tmp134798 __tmp134784)))) (declare (not safe)) - (cons __tmp256677 '()))) + (cons __tmp134783 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp256657 - (let ((__tmp256658 - (let ((__tmp256659 + (__tmp134763 + (let ((__tmp134764 + (let ((__tmp134765 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp256674 - (let ((__tmp256675 + (let ((__tmp134780 + (let ((__tmp134781 (let () (declare (not safe)) - (cons _$tmp250883_ '())))) + (cons _$tmp133557_ '())))) (declare (not safe)) - (cons '%#ref __tmp256675))) - (__tmp256660 - (let ((__tmp256672 - (let ((__tmp256673 + (cons '%#ref __tmp134781))) + (__tmp134766 + (let ((__tmp134778 + (let ((__tmp134779 (let () (declare (not safe)) - (cons _$tmp250883_ '())))) + (cons _$tmp133557_ '())))) (declare (not safe)) - (cons '%#ref __tmp256673))) - (__tmp256661 - (let ((__tmp256662 - (let ((__tmp256663 - (let ((__tmp256670 - (let ((__tmp256671 + (cons '%#ref __tmp134779))) + (__tmp134767 + (let ((__tmp134768 + (let ((__tmp134769 + (let ((__tmp134776 + (let ((__tmp134777 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp256671))) - (__tmp256664 - (let ((__tmp256668 - (let ((__tmp256669 + (cons '%#ref __tmp134777))) + (__tmp134770 + (let ((__tmp134774 + (let ((__tmp134775 (let () (declare (not safe)) (cons '"Missing method" '())))) (declare (not safe)) - (cons '%#quote __tmp256669))) - (__tmp256665 - (let ((__tmp256666 - (let ((__tmp256667 + (cons '%#quote __tmp134775))) + (__tmp134771 + (let ((__tmp134772 + (let ((__tmp134773 (let () (declare (not safe)) - (cons _id250880_ '())))) + (cons _id133554_ '())))) (declare (not safe)) - (cons '%#quote __tmp256667)))) + (cons '%#quote __tmp134773)))) (declare (not safe)) - (cons __tmp256666 '())))) + (cons __tmp134772 '())))) (declare (not safe)) - (cons __tmp256668 __tmp256665)))) + (cons __tmp134774 __tmp134771)))) (declare (not safe)) - (cons __tmp256670 __tmp256664)))) + (cons __tmp134776 __tmp134770)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp256663)))) + (cons '%#call __tmp134769)))) (declare (not safe)) - (cons __tmp256662 '())))) + (cons __tmp134768 '())))) (declare (not safe)) - (cons __tmp256672 __tmp256661)))) + (cons __tmp134778 __tmp134767)))) (declare (not safe)) - (cons __tmp256674 __tmp256660)))) + (cons __tmp134780 __tmp134766)))) (declare (not safe)) - (cons '%#if __tmp256659)))) + (cons '%#if __tmp134765)))) (declare (not safe)) - (cons __tmp256658 '())))) + (cons __tmp134764 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp256676 - __tmp256657)))) + (cons __tmp134782 + __tmp134763)))) (declare (not safe)) - (cons '%#let-values __tmp256656)))) + (cons '%#let-values __tmp134762)))) (declare (not safe)) - (cons __tmp256655 '())))) + (cons __tmp134761 '())))) (declare (not safe)) - (cons '() __tmp256654)))) + (cons '() __tmp134760)))) (declare (not safe)) - (cons '%#lambda __tmp256653)))) + (cons '%#lambda __tmp134759)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp256652 '())))) + (cons __tmp134758 '())))) (declare (not safe)) - (cons __tmp256693 __tmp256651)))) + (cons __tmp134799 __tmp134757)))) (declare (not safe)) - (cons '%#call __tmp256650)))) + (cons '%#call __tmp134756)))) (declare (not safe)) - (cons __tmp256649 '())))) + (cons __tmp134755 '())))) (declare (not safe)) - (cons __tmp256695 __tmp256648))))) - (_generate-slot-bind247558_ - (lambda (_$t250873_ _id250874_ _$id250875_) - (let ((_$tmp250877_ - (let ((__tmp256696 (gensym '__tmp))) + (cons __tmp134801 __tmp134754))))) + (_generate-slot-bind130232_ + (lambda (_$t133547_ _id133548_ _$id133549_) + (let ((_$tmp133551_ + (let ((__tmp134802 (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp256696)))) - (let ((__tmp256733 + (make-symbol__0 __tmp134802)))) + (let ((__tmp134839 (let () (declare (not safe)) - (cons _$id250875_ '()))) - (__tmp256697 - (let ((__tmp256698 - (let ((__tmp256699 - (let ((__tmp256719 - (let ((__tmp256720 - (let ((__tmp256732 + (cons _$id133549_ '()))) + (__tmp134803 + (let ((__tmp134804 + (let ((__tmp134805 + (let ((__tmp134825 + (let ((__tmp134826 + (let ((__tmp134838 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$tmp250877_ '()))) - (__tmp256721 - (let ((__tmp256722 - (let ((__tmp256723 - (let ((__tmp256730 - (let ((__tmp256731 + (cons _$tmp133551_ '()))) + (__tmp134827 + (let ((__tmp134828 + (let ((__tmp134829 + (let ((__tmp134836 + (let ((__tmp134837 (let () (declare (not safe)) (cons 'class-slot-offset '())))) (declare (not safe)) - (cons '%#ref __tmp256731))) - (__tmp256724 - (let ((__tmp256728 - (let ((__tmp256729 + (cons '%#ref __tmp134837))) + (__tmp134830 + (let ((__tmp134834 + (let ((__tmp134835 (let () (declare (not safe)) - (cons _$t250873_ + (cons _$t133547_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp256729))) + (cons '%#ref __tmp134835))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp256725 - (let ((__tmp256726 - (let ((__tmp256727 + (__tmp134831 + (let ((__tmp134832 + (let ((__tmp134833 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id250874_ '())))) + (let () (declare (not safe)) (cons _id133548_ '())))) (declare (not safe)) - (cons '%#quote __tmp256727)))) + (cons '%#quote __tmp134833)))) (declare (not safe)) - (cons __tmp256726 '())))) + (cons __tmp134832 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp256728 - __tmp256725)))) + (cons __tmp134834 + __tmp134831)))) (declare (not safe)) - (cons __tmp256730 __tmp256724)))) + (cons __tmp134836 __tmp134830)))) (declare (not safe)) - (cons '%#call __tmp256723)))) + (cons '%#call __tmp134829)))) (declare (not safe)) - (cons __tmp256722 '())))) + (cons __tmp134828 '())))) (declare (not safe)) - (cons __tmp256732 __tmp256721)))) + (cons __tmp134838 __tmp134827)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp256720 '()))) - (__tmp256700 - (let ((__tmp256701 - (let ((__tmp256702 - (let ((__tmp256717 + (cons __tmp134826 '()))) + (__tmp134806 + (let ((__tmp134807 + (let ((__tmp134808 + (let ((__tmp134823 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp256718 + (let ((__tmp134824 (let () (declare (not safe)) - (cons _$tmp250877_ '())))) + (cons _$tmp133551_ '())))) (declare (not safe)) - (cons '%#ref __tmp256718))) - (__tmp256703 - (let ((__tmp256715 - (let ((__tmp256716 + (cons '%#ref __tmp134824))) + (__tmp134809 + (let ((__tmp134821 + (let ((__tmp134822 (let () (declare (not safe)) - (cons _$tmp250877_ '())))) + (cons _$tmp133551_ '())))) (declare (not safe)) - (cons '%#ref __tmp256716))) - (__tmp256704 - (let ((__tmp256705 - (let ((__tmp256706 - (let ((__tmp256713 - (let ((__tmp256714 + (cons '%#ref __tmp134822))) + (__tmp134810 + (let ((__tmp134811 + (let ((__tmp134812 + (let ((__tmp134819 + (let ((__tmp134820 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp256714))) - (__tmp256707 - (let ((__tmp256711 - (let ((__tmp256712 + (cons '%#ref __tmp134820))) + (__tmp134813 + (let ((__tmp134817 + (let ((__tmp134818 (let () (declare (not safe)) (cons '"Unknown slot" '())))) (declare (not safe)) - (cons '%#quote __tmp256712))) - (__tmp256708 - (let ((__tmp256709 - (let ((__tmp256710 + (cons '%#quote __tmp134818))) + (__tmp134814 + (let ((__tmp134815 + (let ((__tmp134816 (let () (declare (not safe)) - (cons _id250874_ '())))) + (cons _id133548_ '())))) (declare (not safe)) - (cons '%#quote __tmp256710)))) + (cons '%#quote __tmp134816)))) (declare (not safe)) - (cons __tmp256709 '())))) + (cons __tmp134815 '())))) (declare (not safe)) - (cons __tmp256711 __tmp256708)))) + (cons __tmp134817 __tmp134814)))) (declare (not safe)) - (cons __tmp256713 __tmp256707)))) + (cons __tmp134819 __tmp134813)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp256706)))) + (cons '%#call __tmp134812)))) (declare (not safe)) - (cons __tmp256705 '())))) + (cons __tmp134811 '())))) (declare (not safe)) - (cons __tmp256715 __tmp256704)))) + (cons __tmp134821 __tmp134810)))) (declare (not safe)) - (cons __tmp256717 __tmp256703)))) + (cons __tmp134823 __tmp134809)))) (declare (not safe)) - (cons '%#if __tmp256702)))) + (cons '%#if __tmp134808)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp256701 '())))) + (cons __tmp134807 '())))) (declare (not safe)) - (cons __tmp256719 __tmp256700)))) + (cons __tmp134825 __tmp134806)))) (declare (not safe)) - (cons '%#let-values __tmp256699)))) + (cons '%#let-values __tmp134805)))) (declare (not safe)) - (cons __tmp256698 '())))) + (cons __tmp134804 '())))) (declare (not safe)) - (cons __tmp256733 __tmp256697))))) - (_generate-class-check-bind247559_ - (lambda (_$t250869_ _class-type250870_ _$class-type250871_) - (let ((__tmp256745 + (cons __tmp134839 __tmp134803))))) + (_generate-class-check-bind130233_ + (lambda (_$t133543_ _class-type133544_ _$class-type133545_) + (let ((__tmp134851 (let () (declare (not safe)) - (cons _$class-type250871_ '()))) - (__tmp256734 - (let ((__tmp256735 - (let ((__tmp256736 - (let ((__tmp256743 - (let ((__tmp256744 + (cons _$class-type133545_ '()))) + (__tmp134840 + (let ((__tmp134841 + (let ((__tmp134842 + (let ((__tmp134849 + (let ((__tmp134850 (let () (declare (not safe)) (cons 'subclass? '())))) (declare (not safe)) - (cons '%#ref __tmp256744))) - (__tmp256737 - (let ((__tmp256741 - (let ((__tmp256742 + (cons '%#ref __tmp134850))) + (__tmp134843 + (let ((__tmp134847 + (let ((__tmp134848 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$t250869_ '())))) + (cons _$t133543_ '())))) (declare (not safe)) - (cons '%#ref __tmp256742))) - (__tmp256738 - (let ((__tmp256739 - (let ((__tmp256740 + (cons '%#ref __tmp134848))) + (__tmp134844 + (let ((__tmp134845 + (let ((__tmp134846 (let () (declare (not safe)) - (cons _class-type250870_ '())))) + (cons _class-type133544_ '())))) (declare (not safe)) - (cons '%#ref __tmp256740)))) + (cons '%#ref __tmp134846)))) (declare (not safe)) - (cons __tmp256739 '())))) + (cons __tmp134845 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp256741 - __tmp256738)))) + (cons __tmp134847 + __tmp134844)))) (declare (not safe)) - (cons __tmp256743 __tmp256737)))) + (cons __tmp134849 __tmp134843)))) (declare (not safe)) - (cons '%#call __tmp256736)))) + (cons '%#call __tmp134842)))) (declare (not safe)) - (cons __tmp256735 '())))) + (cons __tmp134841 '())))) (declare (not safe)) - (cons __tmp256745 __tmp256734)))) - (_generate-struct-check-bind247560_ - (lambda (_$t250865_ _class-type250866_ _$class-type250867_) - (let ((__tmp256757 + (cons __tmp134851 __tmp134840)))) + (_generate-struct-check-bind130234_ + (lambda (_$t133539_ _class-type133540_ _$class-type133541_) + (let ((__tmp134863 (let () (declare (not safe)) - (cons _$class-type250867_ '()))) - (__tmp256746 - (let ((__tmp256747 - (let ((__tmp256748 - (let ((__tmp256755 - (let ((__tmp256756 + (cons _$class-type133541_ '()))) + (__tmp134852 + (let ((__tmp134853 + (let ((__tmp134854 + (let ((__tmp134861 + (let ((__tmp134862 (let () (declare (not safe)) (cons 'substruct? '())))) (declare (not safe)) - (cons '%#ref __tmp256756))) - (__tmp256749 - (let ((__tmp256753 - (let ((__tmp256754 + (cons '%#ref __tmp134862))) + (__tmp134855 + (let ((__tmp134859 + (let ((__tmp134860 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$t250865_ '())))) + (cons _$t133539_ '())))) (declare (not safe)) - (cons '%#ref __tmp256754))) - (__tmp256750 - (let ((__tmp256751 - (let ((__tmp256752 + (cons '%#ref __tmp134860))) + (__tmp134856 + (let ((__tmp134857 + (let ((__tmp134858 (let () (declare (not safe)) - (cons _class-type250866_ '())))) + (cons _class-type133540_ '())))) (declare (not safe)) - (cons '%#ref __tmp256752)))) + (cons '%#ref __tmp134858)))) (declare (not safe)) - (cons __tmp256751 '())))) + (cons __tmp134857 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp256753 - __tmp256750)))) + (cons __tmp134859 + __tmp134856)))) (declare (not safe)) - (cons __tmp256755 __tmp256749)))) + (cons __tmp134861 __tmp134855)))) (declare (not safe)) - (cons '%#call __tmp256748)))) + (cons '%#call __tmp134854)))) (declare (not safe)) - (cons __tmp256747 '())))) + (cons __tmp134853 '())))) (declare (not safe)) - (cons __tmp256757 __tmp256746)))) - (_generate-specializer-impl247561_ - (lambda (_$t250814_ - _methods-bind250815_ - _slots-bind250816_ - _class-check-bind250817_ - _struct-check-bind250818_ - _specializer-impl250819_ - _lifted-specializer-id250820_ - _unchecked-specializer-impl250821_) - (let ((__tmp256758 - (let ((__tmp256759 - (let ((__tmp256785 + (cons __tmp134863 __tmp134852)))) + (_generate-specializer-impl130235_ + (lambda (_$t133488_ + _methods-bind133489_ + _slots-bind133490_ + _class-check-bind133491_ + _struct-check-bind133492_ + _specializer-impl133493_ + _lifted-specializer-id133494_ + _unchecked-specializer-impl133495_) + (let ((__tmp134864 + (let ((__tmp134865 + (let ((__tmp134891 (let () (declare (not safe)) - (cons _$t250814_ '()))) - (__tmp256760 - (let ((__tmp256761 - (let ((__tmp256762 - (let ((__tmp256782 - (let ((__tmp256783 + (cons _$t133488_ '()))) + (__tmp134866 + (let ((__tmp134867 + (let ((__tmp134868 + (let ((__tmp134888 + (let ((__tmp134889 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp256784 + (let ((__tmp134890 (let () (declare (not safe)) (foldr1 cons - _struct-check-bind250818_ - _class-check-bind250817_)))) + _struct-check-bind133492_ + _class-check-bind133491_)))) (declare (not safe)) - (foldr1 cons __tmp256784 _slots-bind250816_)))) + (foldr1 cons __tmp134890 _slots-bind133490_)))) (declare (not safe)) - (foldr1 cons __tmp256783 _methods-bind250815_))) - (__tmp256763 - (let ((__tmp256764 - (if (or _lifted-specializer-id250820_ - _unchecked-specializer-impl250821_) - (let* ((_$specializer250826_ - (let ((__tmp256765 + (foldr1 cons __tmp134889 _methods-bind133489_))) + (__tmp134869 + (let ((__tmp134870 + (if (or _lifted-specializer-id133494_ + _unchecked-specializer-impl133495_) + (let* ((_$specializer133500_ + (let ((__tmp134871 (gensym '__specializer))) (declare (not safe)) - (make-symbol__0 __tmp256765))) - (__tmp256766 - (let ((__tmp256778 - (let ((__tmp256779 - (let ((__tmp256781 + (make-symbol__0 __tmp134871))) + (__tmp134872 + (let ((__tmp134884 + (let ((__tmp134885 + (let ((__tmp134887 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$specializer250826_ '()))) - (__tmp256780 + (cons _$specializer133500_ '()))) + (__tmp134886 (let () (declare (not safe)) - (cons _specializer-impl250819_ '())))) + (cons _specializer-impl133493_ '())))) (declare (not safe)) - (cons __tmp256781 __tmp256780)))) + (cons __tmp134887 __tmp134886)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp256779 '()))) - (__tmp256767 - (let ((__tmp256768 - (let _recur250828_ ((_rest250830_ + (cons __tmp134885 '()))) + (__tmp134873 + (let ((__tmp134874 + (let _recur133502_ ((_rest133504_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (map caar _struct-check-bind250818_))) - (let* ((_rest250831250839_ _rest250830_) - (_else250833250847_ + (map caar _struct-check-bind133492_))) + (let* ((_rest133505133513_ _rest133504_) + (_else133507133521_ (lambda () - (if _lifted-specializer-id250820_ - (let ((__tmp256769 + (if _lifted-specializer-id133494_ + (let ((__tmp134875 (let () (declare (not safe)) - (cons _lifted-specializer-id250820_ + (cons _lifted-specializer-id133494_ '())))) (declare (not safe)) - (cons '%#ref __tmp256769)) - _unchecked-specializer-impl250821_))) - (_K250835250853_ - (lambda (_rest250850_ _checkq250851_) - (let ((__tmp256770 - (let ((__tmp256776 - (let ((__tmp256777 + (cons '%#ref __tmp134875)) + _unchecked-specializer-impl133495_))) + (_K133509133527_ + (lambda (_rest133524_ _checkq133525_) + (let ((__tmp134876 + (let ((__tmp134882 + (let ((__tmp134883 (let () (declare (not safe)) - (cons _checkq250851_ '())))) + (cons _checkq133525_ '())))) (declare (not safe)) - (cons '%#ref __tmp256777))) - (__tmp256771 - (let ((__tmp256775 + (cons '%#ref __tmp134883))) + (__tmp134877 + (let ((__tmp134881 (let () (declare (not safe)) - (_recur250828_ - _rest250850_))) - (__tmp256772 - (let ((__tmp256773 - (let ((__tmp256774 + (_recur133502_ + _rest133524_))) + (__tmp134878 + (let ((__tmp134879 + (let ((__tmp134880 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$specializer250826_ '())))) + (cons _$specializer133500_ '())))) (declare (not safe)) - (cons '%#ref __tmp256774)))) + (cons '%#ref __tmp134880)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp256773 '())))) + (cons __tmp134879 '())))) (declare (not safe)) - (cons __tmp256775 __tmp256772)))) + (cons __tmp134881 __tmp134878)))) (declare (not safe)) - (cons __tmp256776 __tmp256771)))) + (cons __tmp134882 __tmp134877)))) (declare (not safe)) - (cons '%#if __tmp256770))))) + (cons '%#if __tmp134876))))) (if (let () (declare (not safe)) - (##pair? _rest250831250839_)) - (let ((_hd250836250856_ + (##pair? _rest133505133513_)) + (let ((_hd133510133530_ (let () (declare (not safe)) - (##car _rest250831250839_))) - (_tl250837250858_ + (##car _rest133505133513_))) + (_tl133511133532_ (let () (declare (not safe)) - (##cdr _rest250831250839_)))) - (let* ((_checkq250861_ _hd250836250856_) - (_rest250863_ _tl250837250858_)) + (##cdr _rest133505133513_)))) + (let* ((_checkq133535_ _hd133510133530_) + (_rest133537_ _tl133511133532_)) (declare (not safe)) - (_K250835250853_ _rest250863_ _checkq250861_))) - (let () (declare (not safe)) (_else250833250847_))))))) + (_K133509133527_ _rest133537_ _checkq133535_))) + (let () (declare (not safe)) (_else133507133521_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp256768 '())))) + (cons __tmp134874 '())))) (declare (not safe)) - (cons __tmp256778 __tmp256767)))) + (cons __tmp134884 __tmp134873)))) (declare (not safe)) - (cons '%#let-values __tmp256766)) - _specializer-impl250819_))) + (cons '%#let-values __tmp134872)) + _specializer-impl133493_))) (declare (not safe)) - (cons __tmp256764 '())))) + (cons __tmp134870 '())))) (declare (not safe)) - (cons __tmp256782 __tmp256763)))) + (cons __tmp134888 __tmp134869)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp256762)))) + __tmp134868)))) (declare (not safe)) - (cons __tmp256761 '())))) + (cons __tmp134867 '())))) (declare (not safe)) - (cons __tmp256785 __tmp256760)))) + (cons __tmp134891 __tmp134866)))) (declare (not safe)) - (cons '%#lambda __tmp256759)))) + (cons '%#lambda __tmp134865)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp256758 _stx247555_)))) - (_generate-specializer-def247562_ - (lambda (_id250808_ - _specializer-id250809_ - _specializer-impl250810_ - _lifted-specializer-id250811_ - _unchecked-specializer-impl250812_) - (let ((__tmp256786 - (let ((__tmp256787 - (let ((__tmp256788 - (let ((__tmp256808 - (let ((__tmp256809 - (let ((__tmp256810 - (let ((__tmp256812 + (gxc#xform-wrap-source __tmp134864 _stx130229_)))) + (_generate-specializer-def130236_ + (lambda (_id133482_ + _specializer-id133483_ + _specializer-impl133484_ + _lifted-specializer-id133485_ + _unchecked-specializer-impl133486_) + (let ((__tmp134892 + (let ((__tmp134893 + (let ((__tmp134894 + (let ((__tmp134914 + (let ((__tmp134915 + (let ((__tmp134916 + (let ((__tmp134918 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _specializer-id250809_ '()))) - (__tmp256811 + (cons _specializer-id133483_ '()))) + (__tmp134917 (let () (declare (not safe)) - (cons _specializer-impl250810_ '())))) + (cons _specializer-impl133484_ '())))) (declare (not safe)) - (cons __tmp256812 __tmp256811)))) + (cons __tmp134918 __tmp134917)))) (declare (not safe)) - (cons '%#define-values __tmp256810)))) + (cons '%#define-values __tmp134916)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp256809 - _stx247555_))) - (__tmp256789 - (let ((__tmp256796 - (let ((__tmp256797 - (let ((__tmp256798 + __tmp134915 + _stx130229_))) + (__tmp134895 + (let ((__tmp134902 + (let ((__tmp134903 + (let ((__tmp134904 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp256799 - (let ((__tmp256806 - (let ((__tmp256807 + (let ((__tmp134905 + (let ((__tmp134912 + (let ((__tmp134913 (let () (declare (not safe)) (cons 'bind-specializer! '())))) (declare (not safe)) - (cons '%#ref __tmp256807))) - (__tmp256800 - (let ((__tmp256804 - (let ((__tmp256805 + (cons '%#ref __tmp134913))) + (__tmp134906 + (let ((__tmp134910 + (let ((__tmp134911 (let () (declare (not safe)) - (cons _id250808_ + (cons _id133482_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp256805))) - (__tmp256801 - (let ((__tmp256802 - (let ((__tmp256803 + (cons '%#ref __tmp134911))) + (__tmp134907 + (let ((__tmp134908 + (let ((__tmp134909 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _specializer-id250809_ '())))) + (cons _specializer-id133483_ '())))) (declare (not safe)) - (cons '%#ref __tmp256803)))) + (cons '%#ref __tmp134909)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp256802 '())))) + (cons __tmp134908 '())))) (declare (not safe)) - (cons __tmp256804 __tmp256801)))) + (cons __tmp134910 __tmp134907)))) (declare (not safe)) - (cons __tmp256806 __tmp256800)))) + (cons __tmp134912 __tmp134906)))) (declare (not safe)) - (cons '%#call __tmp256799)))) + (cons '%#call __tmp134905)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp256798 _stx247555_)))) + (gxc#xform-wrap-source __tmp134904 _stx130229_)))) (declare (not safe)) - (cons __tmp256797 '()))) - (__tmp256790 - (if _lifted-specializer-id250811_ - (let ((__tmp256791 - (let ((__tmp256792 - (let ((__tmp256793 - (let ((__tmp256795 + (cons __tmp134903 '()))) + (__tmp134896 + (if _lifted-specializer-id133485_ + (let ((__tmp134897 + (let ((__tmp134898 + (let ((__tmp134899 + (let ((__tmp134901 (let () (declare (not safe)) - (cons _lifted-specializer-id250811_ + (cons _lifted-specializer-id133485_ '()))) - (__tmp256794 + (__tmp134900 (let () (declare (not safe)) - (cons _unchecked-specializer-impl250812_ + (cons _unchecked-specializer-impl133486_ '())))) (declare (not safe)) - (cons __tmp256795 __tmp256794)))) + (cons __tmp134901 __tmp134900)))) (declare (not safe)) - (cons '%#define-values __tmp256793)))) + (cons '%#define-values __tmp134899)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp256792 _stx247555_)))) + (gxc#xform-wrap-source __tmp134898 _stx130229_)))) (declare (not safe)) - (cons __tmp256791 '())) + (cons __tmp134897 '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp256796 - __tmp256790)))) + __tmp134902 + __tmp134896)))) (declare (not safe)) - (cons __tmp256808 __tmp256789)))) + (cons __tmp134914 __tmp134895)))) (declare (not safe)) - (cons _stx247555_ __tmp256788)))) + (cons _stx130229_ __tmp134894)))) (declare (not safe)) - (cons '%#begin __tmp256787)))) + (cons '%#begin __tmp134893)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp256786 _stx247555_))))) - (let* ((___stx255599255600_ _stx247555_) - (_g247565247585_ + (gxc#xform-wrap-source __tmp134892 _stx130229_))))) + (let* ((___stx133705133706_ _stx130229_) + (_g130239130259_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx255599255600_))))) - (let ((___kont255601255602_ - (lambda (_L247629_ _L247630_) - (let ((_method-calls247649_ - (let () - (declare (not safe)) - (make-table 'test: eq?))) - (_slot-refs247650_ - (let () - (declare (not safe)) - (make-table 'test: eq?))) - (_class-type-check247651_ - (let () - (declare (not safe)) - (make-table 'test: eq?))) - (_struct-type-check247652_ - (let () - (declare (not safe)) - (make-table 'test: eq?))) - (_struct-type-assert247653_ - (let () - (declare (not safe)) - (make-table 'test: eq?))) - (_empty247654_ + ___stx133705133706_))))) + (let ((___kont133707133708_ + (lambda (_L130303_ _L130304_) + (let ((_method-calls130323_ + (let () (declare (not safe)) (make-hash-table-eq))) + (_slot-refs130324_ + (let () (declare (not safe)) (make-hash-table-eq))) + (_class-type-check130325_ + (let () (declare (not safe)) (make-hash-table-eq))) + (_struct-type-check130326_ + (let () (declare (not safe)) (make-hash-table-eq))) + (_struct-type-assert130327_ + (let () (declare (not safe)) (make-hash-table-eq))) + (_empty130328_ (let () (declare (not safe)) - (make-table 'test: eq?)))) - (letrec ((_no-specializer?247656_ + (make-hash-table-eq)))) + (letrec ((_no-specializer?130330_ (lambda () - (if (let ((__tmp256817 + (if (let ((__tmp134923 (let () (declare (not safe)) - (table-length - _method-calls247649_)))) + (hash-length + _method-calls130323_)))) (declare (not safe)) - (fxzero? __tmp256817)) - (if (let ((__tmp256816 + (fxzero? __tmp134923)) + (if (let ((__tmp134922 (let () (declare (not safe)) - (table-length - _slot-refs247650_)))) + (hash-length + _slot-refs130324_)))) (declare (not safe)) - (fxzero? __tmp256816)) - (if (let ((__tmp256815 + (fxzero? __tmp134922)) + (if (let ((__tmp134921 (let () (declare (not safe)) - (table-length - _class-type-check247651_)))) + (hash-length + _class-type-check130325_)))) (declare (not safe)) - (fxzero? __tmp256815)) - (if (let ((__tmp256814 + (fxzero? __tmp134921)) + (if (let ((__tmp134920 (let () (declare (not safe)) - (table-length - _struct-type-check247652_)))) + (hash-length + _struct-type-check130326_)))) (declare (not safe)) - (fxzero? __tmp256814)) - (let ((__tmp256813 + (fxzero? __tmp134920)) + (let ((__tmp134919 (let () (declare (not safe)) - (table-length - _struct-type-assert247653_)))) + (hash-length + _struct-type-assert130327_)))) (declare (not safe)) - (fxzero? __tmp256813)) + (fxzero? __tmp134919)) '#f) '#f) '#f) '#f))) - (_unchecked-specializer?247657_ + (_unchecked-specializer?130331_ (lambda () - (let ((_$e250801_ - (let ((__tmp256818 - (let ((__tmp256819 + (let ((_$e133475_ + (let ((__tmp134924 + (let ((__tmp134925 (let () (declare (not safe)) - (table-length - _struct-type-check247652_)))) + (hash-length + _struct-type-check130326_)))) (declare (not safe)) - (fxzero? __tmp256819)))) + (fxzero? __tmp134925)))) (declare (not safe)) - (not __tmp256818)))) - (if _$e250801_ - _$e250801_ - (let ((__tmp256820 - (let ((__tmp256821 + (not __tmp134924)))) + (if _$e133475_ + _$e133475_ + (let ((__tmp134926 + (let ((__tmp134927 (let () (declare (not safe)) - (table-length - _struct-type-assert247653_)))) + (hash-length + _struct-type-assert130327_)))) (declare (not safe)) - (fxzero? __tmp256821)))) + (fxzero? __tmp134927)))) (declare (not safe)) - (not __tmp256820)))))) - (_lift-unchecked-specializer?247658_ + (not __tmp134926)))))) + (_lift-unchecked-specializer?130332_ (lambda () - (if (let ((__tmp256824 + (if (let ((__tmp134930 (let () (declare (not safe)) - (table-length - _method-calls247649_)))) + (hash-length + _method-calls130323_)))) (declare (not safe)) - (fxzero? __tmp256824)) - (if (let ((__tmp256823 + (fxzero? __tmp134930)) + (if (let ((__tmp134929 (let () (declare (not safe)) - (table-length - _slot-refs247650_)))) + (hash-length + _slot-refs130324_)))) (declare (not safe)) - (fxzero? __tmp256823)) - (let ((__tmp256822 + (fxzero? __tmp134929)) + (let ((__tmp134928 (let () (declare (not safe)) - (table-length - _class-type-check247651_)))) + (hash-length + _class-type-check130325_)))) (declare (not safe)) - (fxzero? __tmp256822)) + (fxzero? __tmp134928)) '#f) '#f)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L247629_)) - (let* ((___stx255513255514_ _L247629_) - (_g248171248189_ + (gxc#lambda-expr? _L130303_)) + (let* ((___stx133619133620_ _L130303_) + (_g130845130863_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx255513255514_))))) - (let ((___kont255515255516_ - (lambda (_L248225_ _L248226_ _L248227_) + ___stx133619133620_))))) + (let ((___kont133621133622_ + (lambda (_L130899_ _L130900_ _L130901_) (for-each - (lambda (_g248242248244_) + (lambda (_g130916130918_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g248242248244_ - _L248227_ - _method-calls247649_ - _slot-refs247650_ - _class-type-check247651_ - _struct-type-check247652_ - _struct-type-assert247653_))) - _L248225_) + _g130916130918_ + _L130901_ + _method-calls130323_ + _slot-refs130324_ + _class-type-check130325_ + _struct-type-check130326_ + _struct-type-assert130327_))) + _L130899_) (if (let () (declare (not safe)) - (_no-specializer?247656_)) - _stx247555_ - (let* ((_specializer-id248253_ - (let* ((_id248247_ - (let ((__tmp256974 + (_no-specializer?130330_)) + _stx130229_ + (let* ((_specializer-id130927_ + (let* ((_id130921_ + (let ((__tmp135080 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (gx#stx-e _L247630_)))) + (let () (declare (not safe)) (gx#stx-e _L130304_)))) (declare (not safe)) - (make-symbol__1 __tmp256974 '"::specialize"))) - (_specializer-id248250_ - (let ((__tmp256975 + (make-symbol__1 __tmp135080 '"::specialize"))) + (_specializer-id130924_ + (let ((__tmp135081 (let () (declare (not safe)) - (gx#stx-source _stx247555_)))) + (gx#stx-source _stx130229_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id248247_ __tmp256975)))) + (gx#core-quote-syntax__1 _id130921_ __tmp135081)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id248250_)) - _specializer-id248250_)) + (gx#core-bind-runtime!__0 _specializer-id130924_)) + _specializer-id130924_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lifted-specializer-id248260_ + (_lifted-specializer-id130934_ (if (let () (declare (not safe)) - (_lift-unchecked-specializer?247658_)) - (let* ((_id248255_ - (let ((__tmp256976 + (_lift-unchecked-specializer?130332_)) + (let* ((_id130929_ + (let ((__tmp135082 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _L247630_)))) + (gx#stx-e _L130304_)))) (declare (not safe)) (make-symbol__1 - __tmp256976 + __tmp135082 '"::specialize::unchecked"))) - (_lifted-specializer-id248257_ - (let ((__tmp256977 + (_lifted-specializer-id130931_ + (let ((__tmp135083 (let () (declare (not safe)) - (gx#stx-source _stx247555_)))) + (gx#stx-source _stx130229_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id248255_ __tmp256977)))) + (gx#core-quote-syntax__1 _id130929_ __tmp135083)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lifted-specializer-id248257_)) - _lifted-specializer-id248257_) + (gx#core-bind-runtime!__0 _lifted-specializer-id130931_)) + _lifted-specializer-id130931_) '#f)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_$t248262_ - (let ((__tmp256978 + (_$t130936_ + (let ((__tmp135084 (gensym '__t))) (declare (not safe)) (make-symbol__0 - __tmp256978))) - (_methods248264_ + __tmp135084))) + (_methods130938_ (let () (declare (not safe)) (hash-keys - _method-calls247649_))) - (_$methods248268_ - (map (lambda (_id248266_) - (let ((__tmp256979 + _method-calls130323_))) + (_$methods130942_ + (map (lambda (_id130940_) + (let ((__tmp135085 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id248266_))) + (gensym _id130940_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp256979))) - _methods248264_)) + (make-symbol__1 '"__" __tmp135085))) + _methods130938_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g256980_ + (_g135086_ (for-each - (lambda (_g248269248272_ - _g248270248274_) + (lambda (_g130943130946_ + _g130944130948_) (let () (declare (not safe)) - (table-set! - _method-calls247649_ - _g248269248272_ - _g248270248274_))) - _methods248264_ - _$methods248268_)) - (_methods-bind248285_ - (map (lambda (_g248277248280_ + (hash-put! + _method-calls130323_ + _g130943130946_ + _g130944130948_))) + _methods130938_ + _$methods130942_)) + (_methods-bind130959_ + (map (lambda (_g130951130954_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g248278248282_) + _g130952130956_) (let () (declare (not safe)) - (_generate-method-bind247557_ - _$t248262_ - _g248277248280_ - _g248278248282_))) - _methods248264_ - _$methods248268_)) + (_generate-method-bind130231_ + _$t130936_ + _g130951130954_ + _g130952130956_))) + _methods130938_ + _$methods130942_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_slots248287_ + (_slots130961_ (let () (declare (not safe)) (hash-keys - _slot-refs247650_))) - (_$slots248291_ - (map (lambda (_id248289_) - (let ((__tmp256981 + _slot-refs130324_))) + (_$slots130965_ + (map (lambda (_id130963_) + (let ((__tmp135087 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id248289_))) + (gensym _id130963_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp256981))) - _slots248287_)) + (make-symbol__1 '"__" __tmp135087))) + _slots130961_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g256982_ + (_g135088_ (for-each - (lambda (_g248292248295_ - _g248293248297_) + (lambda (_g130966130969_ + _g130967130971_) (let () (declare (not safe)) - (table-set! - _slot-refs247650_ - _g248292248295_ - _g248293248297_))) - _slots248287_ - _$slots248291_)) - (_slots-bind248308_ - (map (lambda (_g248300248303_ + (hash-put! + _slot-refs130324_ + _g130966130969_ + _g130967130971_))) + _slots130961_ + _$slots130965_)) + (_slots-bind130982_ + (map (lambda (_g130974130977_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g248301248305_) + _g130975130979_) (let () (declare (not safe)) - (_generate-slot-bind247558_ - _$t248262_ - _g248300248303_ - _g248301248305_))) - _slots248287_ - _$slots248291_)) + (_generate-slot-bind130232_ + _$t130936_ + _g130974130977_ + _g130975130979_))) + _slots130961_ + _$slots130965_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_class-check248310_ + (_class-check130984_ (let () (declare (not safe)) (hash-keys - _class-type-check247651_))) - (_$class-check248313_ - (map (lambda (_g256983_) - (let ((__tmp256984 + _class-type-check130325_))) + (_$class-check130987_ + (map (lambda (_g135089_) + (let ((__tmp135090 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp256984))) - _class-check248310_)) + (make-symbol__0 __tmp135090))) + _class-check130984_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g256985_ + (_g135091_ (for-each - (lambda (_g248314248317_ - _g248315248319_) + (lambda (_g130988130991_ + _g130989130993_) (let () (declare (not safe)) - (table-set! - _class-type-check247651_ - _g248314248317_ - _g248315248319_))) - _class-check248310_ - _$class-check248313_)) - (_class-check-bind248330_ - (map (lambda (_g248322248325_ + (hash-put! + _class-type-check130325_ + _g130988130991_ + _g130989130993_))) + _class-check130984_ + _$class-check130987_)) + (_class-check-bind131004_ + (map (lambda (_g130996130999_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g248323248327_) + _g130997131001_) (let () (declare (not safe)) - (_generate-class-check-bind247559_ - _$t248262_ - _g248322248325_ - _g248323248327_))) - _class-check248310_ - _$class-check248313_)) + (_generate-class-check-bind130233_ + _$t130936_ + _g130996130999_ + _g130997131001_))) + _class-check130984_ + _$class-check130987_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_struct-check-all248332_ + (_struct-check-all131006_ (let () (declare (not safe)) (hash-merge - _struct-type-check247652_ - _struct-type-assert247653_))) - (_struct-check248334_ + _struct-type-check130326_ + _struct-type-assert130327_))) + (_struct-check131008_ (let () (declare (not safe)) (hash-keys - _struct-check-all248332_))) - (_$struct-check248337_ - (map (lambda (_g256986_) - (let ((__tmp256987 + _struct-check-all131006_))) + (_$struct-check131011_ + (map (lambda (_g135092_) + (let ((__tmp135093 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp256987))) - _struct-check248334_)) + (make-symbol__0 __tmp135093))) + _struct-check131008_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g256988_ + (_g135094_ (for-each - (lambda (_g248338248341_ - _g248339248343_) + (lambda (_g131012131015_ + _g131013131017_) (let () (declare (not safe)) - (table-set! - _struct-check-all248332_ - _g248338248341_ - _g248339248343_))) - _struct-check248334_ - _$struct-check248337_)) - (_struct-check-bind248354_ - (map (lambda (_g248346248349_ + (hash-put! + _struct-check-all131006_ + _g131012131015_ + _g131013131017_))) + _struct-check131008_ + _$struct-check131011_)) + (_struct-check-bind131028_ + (map (lambda (_g131020131023_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g248347248351_) + _g131021131025_) (let () (declare (not safe)) - (_generate-struct-check-bind247560_ - _$t248262_ - _g248346248349_ - _g248347248351_))) - _struct-check248334_ - _$struct-check248337_)) + (_generate-struct-check-bind130234_ + _$t130936_ + _g131020131023_ + _g131021131025_))) + _struct-check131008_ + _$struct-check131011_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_make-specializer-impl248365_ - (lambda (_struct-type-check1248356_ - _struct-type-check2248357_) - (let* ((_specializer-body248363_ - (map (lambda (_g248358248360_) + (_make-specializer-impl131039_ + (lambda (_struct-type-check1131030_ + _struct-type-check2131031_) + (let* ((_specializer-body131037_ + (map (lambda (_g131032131034_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g248358248360_ - _L248227_ - _$t248262_ - _method-calls247649_ - _slot-refs247650_ - _class-type-check247651_ - _struct-type-check1248356_ - _struct-type-check2248357_))) - _L248225_)) - (__tmp256989 - (let ((__tmp256990 - (let ((__tmp256991 + _g131032131034_ + _L130901_ + _$t130936_ + _method-calls130323_ + _slot-refs130324_ + _class-type-check130325_ + _struct-type-check1131030_ + _struct-type-check2131031_))) + _L130899_)) + (__tmp135095 + (let ((__tmp135096 + (let ((__tmp135097 (let () (declare (not safe)) - (cons _L248227_ _L248226_)))) + (cons _L130901_ _L130900_)))) (declare (not safe)) - (cons __tmp256991 _specializer-body248363_)))) + (cons __tmp135097 _specializer-body131037_)))) (declare (not safe)) - (cons '%#lambda __tmp256990)))) + (cons '%#lambda __tmp135096)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp256989 _stx247555_)))) + (gxc#xform-wrap-source __tmp135095 _stx130229_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-impl248367_ + (_specializer-impl131041_ (let () (declare (not safe)) - (_make-specializer-impl248365_ - _struct-check-all248332_ - _empty247654_))) - (_unchecked-specializer-impl248369_ + (_make-specializer-impl131039_ + _struct-check-all131006_ + _empty130328_))) + (_unchecked-specializer-impl131043_ (if (let () (declare (not safe)) - (_unchecked-specializer?247657_)) + (_unchecked-specializer?130331_)) (let () (declare (not safe)) - (_make-specializer-impl248365_ - _empty247654_ - _struct-check-all248332_)) + (_make-specializer-impl131039_ + _empty130328_ + _struct-check-all131006_)) '#f)) - (_specializer-impl248371_ + (_specializer-impl131045_ (let () (declare (not safe)) - (_generate-specializer-impl247561_ - _$t248262_ - _methods-bind248285_ - _slots-bind248308_ - _class-check-bind248330_ - _struct-check-bind248354_ - _specializer-impl248367_ - _lifted-specializer-id248260_ - _unchecked-specializer-impl248369_)))) - (let ((__tmp256993 + (_generate-specializer-impl130235_ + _$t130936_ + _methods-bind130959_ + _slots-bind130982_ + _class-check-bind131004_ + _struct-check-bind131028_ + _specializer-impl131041_ + _lifted-specializer-id130934_ + _unchecked-specializer-impl131043_)))) + (let ((__tmp135099 (let () (declare (not safe)) - (gx#stx-e _L247630_))) - (__tmp256992 + (gx#stx-e _L130304_))) + (__tmp135098 (let () (declare (not safe)) (gx#stx-e - _specializer-id248253_)))) + _specializer-id130927_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp256993 + __tmp135099 '" => " - __tmp256992)) + __tmp135098)) (let () (declare (not safe)) - (_generate-specializer-def247562_ - _L247630_ - _specializer-id248253_ - _specializer-impl248371_ - _lifted-specializer-id248260_ - _unchecked-specializer-impl248369_)))))) - (___kont255517255518_ - (lambda () _stx247555_))) + (_generate-specializer-def130236_ + _L130304_ + _specializer-id130927_ + _specializer-impl131045_ + _lifted-specializer-id130934_ + _unchecked-specializer-impl131043_)))))) + (___kont133623133624_ + (lambda () _stx130229_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx255513255514_)) - (let ((_e248178248201_ + (gx#stx-pair? ___stx133619133620_)) + (let ((_e130852130875_ (let () (declare (not safe)) - (gx#stx-e ___stx255513255514_)))) - (let ((_tl248176248206_ + (gx#stx-e ___stx133619133620_)))) + (let ((_tl130850130880_ (let () (declare (not safe)) - (##cdr _e248178248201_))) - (_hd248177248204_ + (##cdr _e130852130875_))) + (_hd130851130878_ (let () (declare (not safe)) - (##car _e248178248201_)))) + (##car _e130852130875_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl248176248206_)) - (let ((_e248181248209_ + (gx#stx-pair? _tl130850130880_)) + (let ((_e130855130883_ (let () (declare (not safe)) (gx#stx-e - _tl248176248206_)))) - (let ((_tl248179248214_ + _tl130850130880_)))) + (let ((_tl130853130888_ (let () (declare (not safe)) - (##cdr _e248181248209_))) - (_hd248180248212_ + (##cdr _e130855130883_))) + (_hd130854130886_ (let () (declare (not safe)) - (##car _e248181248209_)))) + (##car _e130855130883_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd248180248212_)) - (let ((_e248184248217_ + _hd130854130886_)) + (let ((_e130858130891_ (let () (declare (not safe)) (gx#stx-e - _hd248180248212_)))) - (let ((_tl248182248222_ + _hd130854130886_)))) + (let ((_tl130856130896_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e248184248217_))) - (_hd248183248220_ - (let () (declare (not safe)) (##car _e248184248217_)))) - (___kont255515255516_ - _tl248179248214_ - _tl248182248222_ - _hd248183248220_))) + (##cdr _e130858130891_))) + (_hd130857130894_ + (let () (declare (not safe)) (##car _e130858130891_)))) + (___kont133621133622_ + _tl130853130888_ + _tl130856130896_ + _hd130857130894_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont255517255518_)))) - (___kont255517255518_)))) - (___kont255517255518_)))) + (___kont133623133624_)))) + (___kont133623133624_)))) + (___kont133623133624_)))) (if (let () (declare (not safe)) - (gxc#case-lambda-expr? _L247629_)) - (let* ((_g248377248396_ - (lambda (_g248378248393_) + (gxc#case-lambda-expr? _L130303_)) + (let* ((_g131051131070_ + (lambda (_g131052131067_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g248378248393_)))) - (_g248376248747_ - (lambda (_g248378248399_) + _g131052131067_)))) + (_g131050131421_ + (lambda (_g131052131073_) (if (let () (declare (not safe)) (gx#stx-pair? - _g248378248399_)) - (let ((_e248382248401_ + _g131052131073_)) + (let ((_e131056131075_ (let () (declare (not safe)) (gx#stx-e - _g248378248399_)))) - (let ((_hd248381248404_ + _g131052131073_)))) + (let ((_hd131055131078_ (let () (declare (not safe)) - (##car _e248382248401_))) - (_tl248380248406_ + (##car _e131056131075_))) + (_tl131054131080_ (let () (declare (not safe)) - (##cdr _e248382248401_)))) + (##cdr _e131056131075_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl248380248406_)) - (let ((_g256950_ + _tl131054131080_)) + (let ((_g135056_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl248380248406_ '0)))) + (gx#syntax-split-splice _tl131054131080_ '0)))) (begin - (let ((_g256951_ + (let ((_g135057_ (let () (declare (not safe)) - (if (##values? _g256950_) - (##vector-length _g256950_) + (if (##values? _g135056_) + (##vector-length _g135056_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g256951_ 2))) - (error "Context expects 2 values" _g256951_))) - (let ((_target248383248409_ + (##fx= _g135057_ 2))) + (error "Context expects 2 values" _g135057_))) + (let ((_target131057131083_ (let () (declare (not safe)) - (##vector-ref _g256950_ 0))) - (_tl248385248411_ + (##vector-ref _g135056_ 0))) + (_tl131059131085_ (let () (declare (not safe)) - (##vector-ref _g256950_ 1)))) + (##vector-ref _g135056_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl248385248411_)) - (letrec ((_loop248386248414_ - (lambda (_hd248384248417_ - _clause248390248419_) + (gx#stx-null? _tl131059131085_)) + (letrec ((_loop131060131088_ + (lambda (_hd131058131091_ + _clause131064131093_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd248384248417_)) - (let ((_e248387248422_ + (gx#stx-pair? _hd131058131091_)) + (let ((_e131061131096_ (let () (declare (not safe)) (gx#stx-e - _hd248384248417_)))) - (let ((_lp-hd248388248425_ + _hd131058131091_)))) + (let ((_lp-hd131062131099_ (let () (declare (not safe)) - (##car _e248387248422_))) - (_lp-tl248389248427_ + (##car _e131061131096_))) + (_lp-tl131063131101_ (let () (declare (not safe)) - (##cdr _e248387248422_)))) - (let ((__tmp256973 + (##cdr _e131061131096_)))) + (let ((__tmp135079 (let () (declare (not safe)) - (cons _lp-hd248388248425_ - _clause248390248419_)))) + (cons _lp-hd131062131099_ + _clause131064131093_)))) (declare (not safe)) - (_loop248386248414_ - _lp-tl248389248427_ - __tmp256973)))) - (let ((_clause248391248430_ - (reverse _clause248390248419_))) - ((lambda (_L248433_) + (_loop131060131088_ + _lp-tl131063131101_ + __tmp135079)))) + (let ((_clause131065131104_ + (reverse _clause131064131093_))) + ((lambda (_L131107_) (for-each - (lambda (_clause248446_) - (let* ((___stx255539255540_ - _clause248446_) - (_g248449248464_ + (lambda (_clause131120_) + (let* ((___stx133645133646_ + _clause131120_) + (_g131123131138_ (lambda () (let () (declare @@ -1513,8193 +1500,8193 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx255539255540_))))) - (let ((___kont255541255542_ - (lambda (_L248492_ + ___stx133645133646_))))) + (let ((___kont133647133648_ + (lambda (_L131166_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L248493_ - _L248494_) + _L131167_ + _L131168_) (for-each - (lambda (_g248509248511_) + (lambda (_g131183131185_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g248509248511_ - _L248494_ - _method-calls247649_ - _slot-refs247650_ - _class-type-check247651_ - _struct-type-check247652_ - _struct-type-assert247653_))) - _L248492_))) - (___kont255543255544_ (lambda () '#!void))) + _g131183131185_ + _L131168_ + _method-calls130323_ + _slot-refs130324_ + _class-type-check130325_ + _struct-type-check130326_ + _struct-type-assert130327_))) + _L131166_))) + (___kont133649133650_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx255539255540_)) - (let ((_e248456248476_ + ___stx133645133646_)) + (let ((_e131130131150_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e ___stx255539255540_)))) - (let ((_tl248454248481_ + (gx#stx-e ___stx133645133646_)))) + (let ((_tl131128131155_ (let () (declare (not safe)) - (##cdr _e248456248476_))) - (_hd248455248479_ + (##cdr _e131130131150_))) + (_hd131129131153_ (let () (declare (not safe)) - (##car _e248456248476_)))) + (##car _e131130131150_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd248455248479_)) - (let ((_e248459248484_ + (gx#stx-pair? _hd131129131153_)) + (let ((_e131133131158_ (let () (declare (not safe)) - (gx#stx-e _hd248455248479_)))) - (let ((_tl248457248489_ + (gx#stx-e _hd131129131153_)))) + (let ((_tl131131131163_ (let () (declare (not safe)) - (##cdr _e248459248484_))) - (_hd248458248487_ + (##cdr _e131133131158_))) + (_hd131132131161_ (let () (declare (not safe)) - (##car _e248459248484_)))) - (___kont255541255542_ - _tl248454248481_ - _tl248457248489_ - _hd248458248487_))) - (___kont255543255544_)))) - (___kont255543255544_))))) + (##car _e131133131158_)))) + (___kont133647133648_ + _tl131128131155_ + _tl131131131163_ + _hd131132131161_))) + (___kont133649133650_)))) + (___kont133649133650_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp256952 - (lambda (_g248516248519_ - _g248517248521_) + (let ((__tmp135058 + (lambda (_g131190131193_ + _g131191131195_) (let () (declare (not safe)) - (cons _g248516248519_ - _g248517248521_))))) + (cons _g131190131193_ + _g131191131195_))))) (declare (not safe)) - (foldr1 __tmp256952 + (foldr1 __tmp135058 '() - _L248433_))) + _L131107_))) (if (let () (declare (not safe)) - (_no-specializer?247656_)) - _stx247555_ - (let* ((_specializer-id248530_ - (let* ((_id248524_ + (_no-specializer?130330_)) + _stx130229_ + (let* ((_specializer-id131204_ + (let* ((_id131198_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp256953 + (let ((__tmp135059 (let () (declare (not safe)) - (gx#stx-e _L247630_)))) + (gx#stx-e _L130304_)))) (declare (not safe)) - (make-symbol__1 __tmp256953 '"::specialize"))) - (_specializer-id248527_ - (let ((__tmp256954 + (make-symbol__1 __tmp135059 '"::specialize"))) + (_specializer-id131201_ + (let ((__tmp135060 (let () (declare (not safe)) - (gx#stx-source _stx247555_)))) + (gx#stx-source _stx130229_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id248524_ __tmp256954)))) + (gx#core-quote-syntax__1 _id131198_ __tmp135060)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id248527_)) - _specializer-id248527_)) - (_lifted-specializer-id248537_ + (gx#core-bind-runtime!__0 _specializer-id131201_)) + _specializer-id131201_)) + (_lifted-specializer-id131211_ (if (let () (declare (not safe)) - (_lift-unchecked-specializer?247658_)) - (let* ((_id248532_ - (let ((__tmp256955 + (_lift-unchecked-specializer?130332_)) + (let* ((_id131206_ + (let ((__tmp135061 (let () (declare (not safe)) - (gx#stx-e _L247630_)))) + (gx#stx-e _L130304_)))) (declare (not safe)) (make-symbol__1 - __tmp256955 + __tmp135061 '"::specialize::unchecked"))) - (_lifted-specializer-id248534_ - (let ((__tmp256956 + (_lifted-specializer-id131208_ + (let ((__tmp135062 (let () (declare (not safe)) - (gx#stx-source _stx247555_)))) + (gx#stx-source _stx130229_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id248532_ - __tmp256956)))) + _id131206_ + __tmp135062)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _lifted-specializer-id248534_)) - _lifted-specializer-id248534_) + _lifted-specializer-id131208_)) + _lifted-specializer-id131208_) '#f)) - (_$t248539_ - (let ((__tmp256957 (gensym '__t))) + (_$t131213_ + (let ((__tmp135063 (gensym '__t))) (declare (not safe)) - (make-symbol__0 __tmp256957))) - (_methods248541_ + (make-symbol__0 __tmp135063))) + (_methods131215_ (let () (declare (not safe)) - (hash-keys _method-calls247649_))) - (_$methods248545_ - (map (lambda (_id248543_) - (let ((__tmp256958 (gensym _id248543_))) + (hash-keys _method-calls130323_))) + (_$methods131219_ + (map (lambda (_id131217_) + (let ((__tmp135064 (gensym _id131217_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp256958))) - _methods248541_)) - (_g256959_ + (make-symbol__1 '"__" __tmp135064))) + _methods131215_)) + (_g135065_ (for-each - (lambda (_g248546248549_ _g248547248551_) + (lambda (_g131220131223_ _g131221131225_) (let () (declare (not safe)) - (table-set! - _method-calls247649_ - _g248546248549_ - _g248547248551_))) - _methods248541_ - _$methods248545_)) - (_methods-bind248562_ - (map (lambda (_g248554248557_ _g248555248559_) + (hash-put! + _method-calls130323_ + _g131220131223_ + _g131221131225_))) + _methods131215_ + _$methods131219_)) + (_methods-bind131236_ + (map (lambda (_g131228131231_ _g131229131233_) (let () (declare (not safe)) - (_generate-method-bind247557_ - _$t248539_ - _g248554248557_ - _g248555248559_))) - _methods248541_ - _$methods248545_)) - (_slots248564_ - (let () (declare (not safe)) (hash-keys _slot-refs247650_))) - (_$slots248568_ - (map (lambda (_id248566_) - (let ((__tmp256960 (gensym _id248566_))) + (_generate-method-bind130231_ + _$t131213_ + _g131228131231_ + _g131229131233_))) + _methods131215_ + _$methods131219_)) + (_slots131238_ + (let () (declare (not safe)) (hash-keys _slot-refs130324_))) + (_$slots131242_ + (map (lambda (_id131240_) + (let ((__tmp135066 (gensym _id131240_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp256960))) - _slots248564_)) - (_g256961_ + (make-symbol__1 '"__" __tmp135066))) + _slots131238_)) + (_g135067_ (for-each - (lambda (_g248569248572_ _g248570248574_) + (lambda (_g131243131246_ _g131244131248_) (let () (declare (not safe)) - (table-set! - _slot-refs247650_ - _g248569248572_ - _g248570248574_))) - _slots248564_ - _$slots248568_)) - (_slots-bind248585_ - (map (lambda (_g248577248580_ _g248578248582_) + (hash-put! + _slot-refs130324_ + _g131243131246_ + _g131244131248_))) + _slots131238_ + _$slots131242_)) + (_slots-bind131259_ + (map (lambda (_g131251131254_ _g131252131256_) (let () (declare (not safe)) - (_generate-slot-bind247558_ - _$t248539_ - _g248577248580_ - _g248578248582_))) - _slots248564_ - _$slots248568_)) - (_class-check248587_ + (_generate-slot-bind130232_ + _$t131213_ + _g131251131254_ + _g131252131256_))) + _slots131238_ + _$slots131242_)) + (_class-check131261_ (let () (declare (not safe)) - (hash-keys _class-type-check247651_))) - (_$class-check248590_ - (map (lambda (_g256962_) - (let ((__tmp256963 (gensym '__class))) + (hash-keys _class-type-check130325_))) + (_$class-check131264_ + (map (lambda (_g135068_) + (let ((__tmp135069 (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp256963))) - _class-check248587_)) - (_g256964_ + (make-symbol__0 __tmp135069))) + _class-check131261_)) + (_g135070_ (for-each - (lambda (_g248591248594_ _g248592248596_) + (lambda (_g131265131268_ _g131266131270_) (let () (declare (not safe)) - (table-set! - _class-type-check247651_ - _g248591248594_ - _g248592248596_))) - _class-check248587_ - _$class-check248590_)) - (_class-check-bind248607_ - (map (lambda (_g248599248602_ _g248600248604_) + (hash-put! + _class-type-check130325_ + _g131265131268_ + _g131266131270_))) + _class-check131261_ + _$class-check131264_)) + (_class-check-bind131281_ + (map (lambda (_g131273131276_ _g131274131278_) (let () (declare (not safe)) - (_generate-class-check-bind247559_ - _$t248539_ - _g248599248602_ - _g248600248604_))) - _class-check248587_ - _$class-check248590_)) - (_struct-check-all248609_ + (_generate-class-check-bind130233_ + _$t131213_ + _g131273131276_ + _g131274131278_))) + _class-check131261_ + _$class-check131264_)) + (_struct-check-all131283_ (let () (declare (not safe)) (hash-merge - _struct-type-check247652_ - _struct-type-assert247653_))) - (_struct-check248611_ + _struct-type-check130326_ + _struct-type-assert130327_))) + (_struct-check131285_ (let () (declare (not safe)) - (hash-keys _struct-check-all248609_))) - (_$struct-check248614_ - (map (lambda (_g256965_) - (let ((__tmp256966 (gensym '__class))) + (hash-keys _struct-check-all131283_))) + (_$struct-check131288_ + (map (lambda (_g135071_) + (let ((__tmp135072 (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp256966))) - _struct-check248611_)) - (_g256967_ + (make-symbol__0 __tmp135072))) + _struct-check131285_)) + (_g135073_ (for-each - (lambda (_g248615248618_ _g248616248620_) + (lambda (_g131289131292_ _g131290131294_) (let () (declare (not safe)) - (table-set! - _struct-check-all248609_ - _g248615248618_ - _g248616248620_))) - _struct-check248611_ - _$struct-check248614_)) - (_struct-check-bind248631_ - (map (lambda (_g248623248626_ _g248624248628_) + (hash-put! + _struct-check-all131283_ + _g131289131292_ + _g131290131294_))) + _struct-check131285_ + _$struct-check131288_)) + (_struct-check-bind131305_ + (map (lambda (_g131297131300_ _g131298131302_) (let () (declare (not safe)) - (_generate-struct-check-bind247560_ - _$t248539_ - _g248623248626_ - _g248624248628_))) - _struct-check248611_ - _$struct-check248614_)) - (_make-specializer-impl248738_ - (lambda (_struct-type-check1248633_ - _struct-type-check2248634_) - (let* ((_specializer-clauses248736_ - (map (lambda (_clause248636_) - (let* ((___stx255559255560_ _clause248636_) - (_g248639248654_ + (_generate-struct-check-bind130234_ + _$t131213_ + _g131297131300_ + _g131298131302_))) + _struct-check131285_ + _$struct-check131288_)) + (_make-specializer-impl131412_ + (lambda (_struct-type-check1131307_ + _struct-type-check2131308_) + (let* ((_specializer-clauses131410_ + (map (lambda (_clause131310_) + (let* ((___stx133665133666_ _clause131310_) + (_g131313131328_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx255559255560_))))) - (let ((___kont255561255562_ - (lambda (_L248682_ - _L248683_ - _L248684_) - (let* ((_body248724_ - (map (lambda (_g248719248721_) + ___stx133665133666_))))) + (let ((___kont133667133668_ + (lambda (_L131356_ + _L131357_ + _L131358_) + (let* ((_body131398_ + (map (lambda (_g131393131395_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#apply-subst-object-refs - _g248719248721_ - _L248684_ - _$t248539_ - _method-calls247649_ - _slot-refs247650_ - _class-type-check247651_ - _struct-type-check1248633_ - _struct-type-check2248634_))) - _L248682_)) + _g131393131395_ + _L131358_ + _$t131213_ + _method-calls130323_ + _slot-refs130324_ + _class-type-check130325_ + _struct-type-check1131307_ + _struct-type-check2131308_))) + _L131356_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp256968 + (__tmp135074 (let () (declare (not safe)) - (cons _L248684_ - _L248683_)))) + (cons _L131358_ + _L131357_)))) (declare (not safe)) - (cons __tmp256968 - _body248724_)))) - (___kont255563255564_ - (lambda () _clause248636_))) + (cons __tmp135074 + _body131398_)))) + (___kont133669133670_ + (lambda () _clause131310_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx255559255560_)) - (let ((_e248646248666_ + ___stx133665133666_)) + (let ((_e131320131340_ (let () (declare (not safe)) (gx#stx-e - ___stx255559255560_)))) - (let ((_tl248644248671_ + ___stx133665133666_)))) + (let ((_tl131318131345_ (let () (declare (not safe)) - (##cdr _e248646248666_))) - (_hd248645248669_ + (##cdr _e131320131340_))) + (_hd131319131343_ (let () (declare (not safe)) - (##car _e248646248666_)))) + (##car _e131320131340_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd248645248669_)) - (let ((_e248649248674_ + _hd131319131343_)) + (let ((_e131323131348_ (let () (declare (not safe)) (gx#stx-e - _hd248645248669_)))) - (let ((_tl248647248679_ + _hd131319131343_)))) + (let ((_tl131321131353_ (let () (declare (not safe)) - (##cdr _e248649248674_))) - (_hd248648248677_ + (##cdr _e131323131348_))) + (_hd131322131351_ (let () (declare (not safe)) - (##car _e248649248674_)))) - (___kont255561255562_ - _tl248644248671_ - _tl248647248679_ - _hd248648248677_))) - (___kont255563255564_)))) - (___kont255563255564_))))) - (let ((__tmp256969 - (lambda (_g248728248731_ - _g248729248733_) + (##car _e131323131348_)))) + (___kont133667133668_ + _tl131318131345_ + _tl131321131353_ + _hd131322131351_))) + (___kont133669133670_)))) + (___kont133669133670_))))) + (let ((__tmp135075 + (lambda (_g131402131405_ + _g131403131407_) (let () (declare (not safe)) - (cons _g248728248731_ - _g248729248733_))))) + (cons _g131402131405_ + _g131403131407_))))) (declare (not safe)) - (foldr1 __tmp256969 '() _L248433_)))) - (__tmp256970 + (foldr1 __tmp135075 '() _L131107_)))) + (__tmp135076 (let () (declare (not safe)) (cons '%#case-lambda - _specializer-clauses248736_)))) + _specializer-clauses131410_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp256970 _stx247555_)))) - (_specializer-impl248740_ + (gxc#xform-wrap-source __tmp135076 _stx130229_)))) + (_specializer-impl131414_ (let () (declare (not safe)) - (_make-specializer-impl248738_ - _struct-check-all248609_ - _empty247654_))) - (_unchecked-specializer-impl248742_ + (_make-specializer-impl131412_ + _struct-check-all131283_ + _empty130328_))) + (_unchecked-specializer-impl131416_ (if (let () (declare (not safe)) - (_unchecked-specializer?247657_)) + (_unchecked-specializer?130331_)) (let () (declare (not safe)) - (_make-specializer-impl248738_ - _empty247654_ - _struct-check-all248609_)) + (_make-specializer-impl131412_ + _empty130328_ + _struct-check-all131283_)) '#f)) - (_specializer-impl248744_ + (_specializer-impl131418_ (let () (declare (not safe)) - (_generate-specializer-impl247561_ - _$t248539_ - _methods-bind248562_ - _slots-bind248585_ - _class-check-bind248607_ - _struct-check-bind248631_ - _specializer-impl248740_ - _lifted-specializer-id248537_ - _unchecked-specializer-impl248742_)))) + (_generate-specializer-impl130235_ + _$t131213_ + _methods-bind131236_ + _slots-bind131259_ + _class-check-bind131281_ + _struct-check-bind131305_ + _specializer-impl131414_ + _lifted-specializer-id131211_ + _unchecked-specializer-impl131416_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp256972 + (let ((__tmp135078 (let () (declare (not safe)) (gx#stx-e - _L247630_))) - (__tmp256971 + _L130304_))) + (__tmp135077 (let () (declare (not safe)) (gx#stx-e - _specializer-id248530_)))) + _specializer-id131204_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp256972 + __tmp135078 '" => " - __tmp256971)) + __tmp135077)) (let () (declare (not safe)) - (_generate-specializer-def247562_ - _L247630_ - _specializer-id248530_ - _specializer-impl248744_ - _lifted-specializer-id248537_ - _unchecked-specializer-impl248742_))))) - _clause248391248430_)))))) + (_generate-specializer-def130236_ + _L130304_ + _specializer-id131204_ + _specializer-impl131418_ + _lifted-specializer-id131211_ + _unchecked-specializer-impl131416_))))) + _clause131065131104_)))))) (let () (declare (not safe)) - (_loop248386248414_ _target248383248409_ '()))) + (_loop131060131088_ _target131057131083_ '()))) (let () (declare (not safe)) - (_g248377248396_ _g248378248399_)))))) + (_g131051131070_ _g131052131073_)))))) (let () (declare (not safe)) - (_g248377248396_ _g248378248399_))))) + (_g131051131070_ _g131052131073_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g248377248396_ - _g248378248399_)))))) + (_g131051131070_ + _g131052131073_)))))) (declare (not safe)) - (_g248376248747_ _L247629_)) + (_g131050131421_ _L130303_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L247629_)) - (let* ((_g248750248780_ - (lambda (_g248751248777_) + (gxc#opt-lambda-expr? _L130303_)) + (let* ((_g131424131454_ + (lambda (_g131425131451_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g248751248777_)))) - (_g248749249468_ - (lambda (_g248751248783_) + _g131425131451_)))) + (_g131423132142_ + (lambda (_g131425131457_) (if (let () (declare (not safe)) (gx#stx-pair? - _g248751248783_)) - (let ((_e248757248785_ + _g131425131457_)) + (let ((_e131431131459_ (let () (declare (not safe)) (gx#stx-e - _g248751248783_)))) - (let ((_hd248756248788_ + _g131425131457_)))) + (let ((_hd131430131462_ (let () (declare (not safe)) - (##car _e248757248785_))) - (_tl248755248790_ + (##car _e131431131459_))) + (_tl131429131464_ (let () (declare (not safe)) - (##cdr _e248757248785_)))) + (##cdr _e131431131459_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl248755248790_)) - (let ((_e248760248793_ + _tl131429131464_)) + (let ((_e131434131467_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl248755248790_)))) - (let ((_hd248759248796_ + (gx#stx-e _tl131429131464_)))) + (let ((_hd131433131470_ (let () (declare (not safe)) - (##car _e248760248793_))) - (_tl248758248798_ + (##car _e131434131467_))) + (_tl131432131472_ (let () (declare (not safe)) - (##cdr _e248760248793_)))) + (##cdr _e131434131467_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd248759248796_)) - (let ((_e248763248801_ + (gx#stx-pair? _hd131433131470_)) + (let ((_e131437131475_ (let () (declare (not safe)) - (gx#stx-e _hd248759248796_)))) - (let ((_hd248762248804_ + (gx#stx-e _hd131433131470_)))) + (let ((_hd131436131478_ (let () (declare (not safe)) - (##car _e248763248801_))) - (_tl248761248806_ + (##car _e131437131475_))) + (_tl131435131480_ (let () (declare (not safe)) - (##cdr _e248763248801_)))) + (##cdr _e131437131475_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd248762248804_)) - (let ((_e248766248809_ + (gx#stx-pair? _hd131436131478_)) + (let ((_e131440131483_ (let () (declare (not safe)) - (gx#stx-e _hd248762248804_)))) - (let ((_hd248765248812_ + (gx#stx-e _hd131436131478_)))) + (let ((_hd131439131486_ (let () (declare (not safe)) - (##car _e248766248809_))) - (_tl248764248814_ + (##car _e131440131483_))) + (_tl131438131488_ (let () (declare (not safe)) - (##cdr _e248766248809_)))) + (##cdr _e131440131483_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd248765248812_)) - (let ((_e248769248817_ + (gx#stx-pair? _hd131439131486_)) + (let ((_e131443131491_ (let () (declare (not safe)) (gx#stx-e - _hd248765248812_)))) - (let ((_hd248768248820_ + _hd131439131486_)))) + (let ((_hd131442131494_ (let () (declare (not safe)) - (##car _e248769248817_))) - (_tl248767248822_ + (##car _e131443131491_))) + (_tl131441131496_ (let () (declare (not safe)) - (##cdr _e248769248817_)))) + (##cdr _e131443131491_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl248767248822_)) + _tl131441131496_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl248764248814_)) - (let ((_e248772248825_ + _tl131438131488_)) + (let ((_e131446131499_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl248764248814_)))) - (let ((_hd248771248828_ - (let () (declare (not safe)) (##car _e248772248825_))) - (_tl248770248830_ - (let () (declare (not safe)) (##cdr _e248772248825_)))) + (gx#stx-e _tl131438131488_)))) + (let ((_hd131445131502_ + (let () (declare (not safe)) (##car _e131446131499_))) + (_tl131444131504_ + (let () (declare (not safe)) (##cdr _e131446131499_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl248770248830_)) + (gx#stx-null? _tl131444131504_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl248761248806_)) + (gx#stx-null? _tl131435131480_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl248758248798_)) - (let ((_e248775248833_ + (gx#stx-pair? _tl131432131472_)) + (let ((_e131449131507_ (let () (declare (not safe)) - (gx#stx-e _tl248758248798_)))) - (let ((_hd248774248836_ + (gx#stx-e _tl131432131472_)))) + (let ((_hd131448131510_ (let () (declare (not safe)) - (##car _e248775248833_))) - (_tl248773248838_ + (##car _e131449131507_))) + (_tl131447131512_ (let () (declare (not safe)) - (##cdr _e248775248833_)))) + (##cdr _e131449131507_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl248773248838_)) - ((lambda (_L248841_ _L248842_ _L248843_) - (let* ((_g248866248884_ - (lambda (_g248867248881_) + (gx#stx-null? _tl131447131512_)) + ((lambda (_L131515_ _L131516_ _L131517_) + (let* ((_g131540131558_ + (lambda (_g131541131555_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g248867248881_)))) - (_g248865248935_ - (lambda (_g248867248887_) + _g131541131555_)))) + (_g131539131609_ + (lambda (_g131541131561_) (if (let () (declare (not safe)) (gx#stx-pair? - _g248867248887_)) - (let ((_e248873248889_ + _g131541131561_)) + (let ((_e131547131563_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _g248867248887_)))) - (let ((_hd248872248892_ - (let () (declare (not safe)) (##car _e248873248889_))) - (_tl248871248894_ + (gx#stx-e _g131541131561_)))) + (let ((_hd131546131566_ + (let () (declare (not safe)) (##car _e131547131563_))) + (_tl131545131568_ (let () (declare (not safe)) - (##cdr _e248873248889_)))) + (##cdr _e131547131563_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl248871248894_)) - (let ((_e248876248897_ + (gx#stx-pair? _tl131545131568_)) + (let ((_e131550131571_ (let () (declare (not safe)) - (gx#stx-e _tl248871248894_)))) - (let ((_hd248875248900_ + (gx#stx-e _tl131545131568_)))) + (let ((_hd131549131574_ (let () (declare (not safe)) - (##car _e248876248897_))) - (_tl248874248902_ + (##car _e131550131571_))) + (_tl131548131576_ (let () (declare (not safe)) - (##cdr _e248876248897_)))) + (##cdr _e131550131571_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd248875248900_)) - (let ((_e248879248905_ + (gx#stx-pair? _hd131549131574_)) + (let ((_e131553131579_ (let () (declare (not safe)) - (gx#stx-e _hd248875248900_)))) - (let ((_hd248878248908_ + (gx#stx-e _hd131549131574_)))) + (let ((_hd131552131582_ (let () (declare (not safe)) - (##car _e248879248905_))) - (_tl248877248910_ + (##car _e131553131579_))) + (_tl131551131584_ (let () (declare (not safe)) - (##cdr _e248879248905_)))) - ((lambda (_L248913_ _L248914_ _L248915_) + (##cdr _e131553131579_)))) + ((lambda (_L131587_ _L131588_ _L131589_) (for-each - (lambda (_g248930248932_) + (lambda (_g131604131606_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g248930248932_ - _L248915_ - _method-calls247649_ - _slot-refs247650_ - _class-type-check247651_ - _struct-type-check247652_ - _struct-type-assert247653_))) - _L248913_)) - _tl248874248902_ - _tl248877248910_ - _hd248878248908_))) + _g131604131606_ + _L131589_ + _method-calls130323_ + _slot-refs130324_ + _class-type-check130325_ + _struct-type-check130326_ + _struct-type-assert130327_))) + _L131587_)) + _tl131548131576_ + _tl131551131584_ + _hd131552131582_))) (let () (declare (not safe)) - (_g248866248884_ _g248867248887_))))) + (_g131540131558_ _g131541131561_))))) (let () (declare (not safe)) - (_g248866248884_ _g248867248887_))))) + (_g131540131558_ _g131541131561_))))) (let () (declare (not safe)) - (_g248866248884_ _g248867248887_)))))) + (_g131540131558_ _g131541131561_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g248865248935_ _L248842_)) - (let* ((_g248938248957_ - (lambda (_g248939248954_) + (_g131539131609_ _L131516_)) + (let* ((_g131612131631_ + (lambda (_g131613131628_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g248939248954_)))) - (_g248937249076_ - (lambda (_g248939248960_) + _g131613131628_)))) + (_g131611131750_ + (lambda (_g131613131634_) (if (let () (declare (not safe)) (gx#stx-pair? - _g248939248960_)) - (let ((_e248943248962_ + _g131613131634_)) + (let ((_e131617131636_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _g248939248960_)))) - (let ((_hd248942248965_ - (let () (declare (not safe)) (##car _e248943248962_))) - (_tl248941248967_ + (gx#stx-e _g131613131634_)))) + (let ((_hd131616131639_ + (let () (declare (not safe)) (##car _e131617131636_))) + (_tl131615131641_ (let () (declare (not safe)) - (##cdr _e248943248962_)))) + (##cdr _e131617131636_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl248941248967_)) - (let ((_g256913_ + (gx#stx-pair/null? _tl131615131641_)) + (let ((_g135019_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl248941248967_ + _tl131615131641_ '0)))) (begin - (let ((_g256914_ + (let ((_g135020_ (let () (declare (not safe)) - (if (##values? _g256913_) - (##vector-length _g256913_) + (if (##values? _g135019_) + (##vector-length _g135019_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g256914_ 2))) + (##fx= _g135020_ 2))) (error "Context expects 2 values" - _g256914_))) - (let ((_target248944248970_ + _g135020_))) + (let ((_target131618131644_ (let () (declare (not safe)) - (##vector-ref _g256913_ 0))) - (_tl248946248972_ + (##vector-ref _g135019_ 0))) + (_tl131620131646_ (let () (declare (not safe)) - (##vector-ref _g256913_ 1)))) + (##vector-ref _g135019_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl248946248972_)) - (letrec ((_loop248947248975_ - (lambda (_hd248945248978_ - _clause248951248980_) + (gx#stx-null? _tl131620131646_)) + (letrec ((_loop131621131649_ + (lambda (_hd131619131652_ + _clause131625131654_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd248945248978_)) - (let ((_e248948248983_ + _hd131619131652_)) + (let ((_e131622131657_ (let () (declare (not safe)) (gx#stx-e - _hd248945248978_)))) - (let ((_lp-hd248949248986_ + _hd131619131652_)))) + (let ((_lp-hd131623131660_ (let () (declare (not safe)) - (##car _e248948248983_))) - (_lp-tl248950248988_ + (##car _e131622131657_))) + (_lp-tl131624131662_ (let () (declare (not safe)) - (##cdr _e248948248983_)))) - (let ((__tmp256916 + (##cdr _e131622131657_)))) + (let ((__tmp135022 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd248949248986_ _clause248951248980_)))) + (cons _lp-hd131623131660_ _clause131625131654_)))) (declare (not safe)) - (_loop248947248975_ _lp-tl248950248988_ __tmp256916)))) + (_loop131621131649_ _lp-tl131624131662_ __tmp135022)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_clause248952248991_ - (reverse _clause248951248980_))) - ((lambda (_L248994_) + (let ((_clause131626131665_ + (reverse _clause131625131654_))) + ((lambda (_L131668_) (for-each - (lambda (_clause249007_) - (let* ((_g249009249024_ + (lambda (_clause131681_) + (let* ((_g131683131698_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g249010249021_) + (lambda (_g131684131695_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g249010249021_)))) - (_g249008249066_ - (lambda (_g249010249027_) + _g131684131695_)))) + (_g131682131740_ + (lambda (_g131684131701_) (if (let () (declare (not safe)) - (gx#stx-pair? _g249010249027_)) - (let ((_e249016249029_ + (gx#stx-pair? _g131684131701_)) + (let ((_e131690131703_ (let () (declare (not safe)) - (gx#stx-e _g249010249027_)))) - (let ((_hd249015249032_ + (gx#stx-e _g131684131701_)))) + (let ((_hd131689131706_ (let () (declare (not safe)) - (##car _e249016249029_))) - (_tl249014249034_ + (##car _e131690131703_))) + (_tl131688131708_ (let () (declare (not safe)) - (##cdr _e249016249029_)))) + (##cdr _e131690131703_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd249015249032_)) - (let ((_e249019249037_ + (gx#stx-pair? _hd131689131706_)) + (let ((_e131693131711_ (let () (declare (not safe)) - (gx#stx-e _hd249015249032_)))) - (let ((_hd249018249040_ + (gx#stx-e _hd131689131706_)))) + (let ((_hd131692131714_ (let () (declare (not safe)) - (##car _e249019249037_))) - (_tl249017249042_ + (##car _e131693131711_))) + (_tl131691131716_ (let () (declare (not safe)) - (##cdr _e249019249037_)))) - ((lambda (_L249045_ - _L249046_ - _L249047_) + (##cdr _e131693131711_)))) + ((lambda (_L131719_ + _L131720_ + _L131721_) (for-each - (lambda (_g249061249063_) + (lambda (_g131735131737_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g249061249063_ - _L249047_ - _method-calls247649_ - _slot-refs247650_ - _class-type-check247651_ - _struct-type-check247652_ - _struct-type-assert247653_))) - _L249045_)) - _tl249014249034_ - _tl249017249042_ - _hd249018249040_))) + _g131735131737_ + _L131721_ + _method-calls130323_ + _slot-refs130324_ + _class-type-check130325_ + _struct-type-check130326_ + _struct-type-assert130327_))) + _L131719_)) + _tl131688131708_ + _tl131691131716_ + _hd131692131714_))) (let () (declare (not safe)) - (_g249009249024_ _g249010249027_))))) + (_g131683131698_ _g131684131701_))))) (let () (declare (not safe)) - (_g249009249024_ _g249010249027_)))))) + (_g131683131698_ _g131684131701_)))))) (declare (not safe)) - (_g249008249066_ _clause249007_))) - (let ((__tmp256915 - (lambda (_g249068249071_ _g249069249073_) + (_g131682131740_ _clause131681_))) + (let ((__tmp135021 + (lambda (_g131742131745_ _g131743131747_) (let () (declare (not safe)) - (cons _g249068249071_ _g249069249073_))))) + (cons _g131742131745_ _g131743131747_))))) (declare (not safe)) - (foldr1 __tmp256915 '() _L248994_)))) + (foldr1 __tmp135021 '() _L131668_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _clause248952248991_)))))) + _clause131626131665_)))))) (let () (declare (not safe)) - (_loop248947248975_ - _target248944248970_ + (_loop131621131649_ + _target131618131644_ '()))) (let () (declare (not safe)) - (_g248938248957_ _g248939248960_)))))) + (_g131612131631_ _g131613131634_)))))) (let () (declare (not safe)) - (_g248938248957_ _g248939248960_))))) + (_g131612131631_ _g131613131634_))))) (let () (declare (not safe)) - (_g248938248957_ _g248939248960_)))))) + (_g131612131631_ _g131613131634_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g248937249076_ _L248841_)) + (_g131611131750_ _L131515_)) (if (let () (declare (not safe)) - (_no-specializer?247656_)) - _stx247555_ - (let* ((_specializer-id249085_ - (let* ((_id249079_ - (let ((__tmp256917 + (_no-specializer?130330_)) + _stx130229_ + (let* ((_specializer-id131759_ + (let* ((_id131753_ + (let ((__tmp135023 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _L247630_)))) + (gx#stx-e _L130304_)))) (declare (not safe)) - (make-symbol__1 __tmp256917 '"::specialize"))) - (_specializer-id249082_ - (let ((__tmp256918 + (make-symbol__1 __tmp135023 '"::specialize"))) + (_specializer-id131756_ + (let ((__tmp135024 (let () (declare (not safe)) - (gx#stx-source _stx247555_)))) + (gx#stx-source _stx130229_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id249079_ __tmp256918)))) + (gx#core-quote-syntax__1 _id131753_ __tmp135024)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id249082_)) - _specializer-id249082_)) + (gx#core-bind-runtime!__0 _specializer-id131756_)) + _specializer-id131756_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lifted-specializer-id249092_ + (_lifted-specializer-id131766_ (if (let () (declare (not safe)) - (_lift-unchecked-specializer?247658_)) - (let* ((_id249087_ + (_lift-unchecked-specializer?130332_)) + (let* ((_id131761_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp256919 + (let ((__tmp135025 (let () (declare (not safe)) - (gx#stx-e _L247630_)))) + (gx#stx-e _L130304_)))) (declare (not safe)) (make-symbol__1 - __tmp256919 + __tmp135025 '"::specialize::unchecked"))) - (_lifted-specializer-id249089_ - (let ((__tmp256920 + (_lifted-specializer-id131763_ + (let ((__tmp135026 (let () (declare (not safe)) - (gx#stx-source _stx247555_)))) + (gx#stx-source _stx130229_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id249087_ __tmp256920)))) + (gx#core-quote-syntax__1 _id131761_ __tmp135026)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lifted-specializer-id249089_)) - _lifted-specializer-id249089_) + (gx#core-bind-runtime!__0 _lifted-specializer-id131763_)) + _lifted-specializer-id131763_) '#f)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_$t249094_ - (let ((__tmp256921 + (_$t131768_ + (let ((__tmp135027 (gensym '__t))) (declare (not safe)) (make-symbol__0 - __tmp256921))) - (_methods249096_ + __tmp135027))) + (_methods131770_ (let () (declare (not safe)) (hash-keys - _method-calls247649_))) - (_$methods249100_ - (map (lambda (_id249098_) - (let ((__tmp256922 + _method-calls130323_))) + (_$methods131774_ + (map (lambda (_id131772_) + (let ((__tmp135028 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id249098_))) + (gensym _id131772_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp256922))) - _methods249096_)) + (make-symbol__1 '"__" __tmp135028))) + _methods131770_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g256923_ + (_g135029_ (for-each - (lambda (_g249101249104_ - _g249102249106_) + (lambda (_g131775131778_ + _g131776131780_) (let () (declare (not safe)) - (table-set! - _method-calls247649_ - _g249101249104_ - _g249102249106_))) - _methods249096_ - _$methods249100_)) - (_methods-bind249117_ - (map (lambda (_g249109249112_ + (hash-put! + _method-calls130323_ + _g131775131778_ + _g131776131780_))) + _methods131770_ + _$methods131774_)) + (_methods-bind131791_ + (map (lambda (_g131783131786_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g249110249114_) + _g131784131788_) (let () (declare (not safe)) - (_generate-method-bind247557_ - _$t249094_ - _g249109249112_ - _g249110249114_))) - _methods249096_ - _$methods249100_)) + (_generate-method-bind130231_ + _$t131768_ + _g131783131786_ + _g131784131788_))) + _methods131770_ + _$methods131774_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_slots249119_ + (_slots131793_ (let () (declare (not safe)) (hash-keys - _slot-refs247650_))) - (_$slots249123_ - (map (lambda (_id249121_) - (let ((__tmp256924 + _slot-refs130324_))) + (_$slots131797_ + (map (lambda (_id131795_) + (let ((__tmp135030 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id249121_))) + (gensym _id131795_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp256924))) - _slots249119_)) + (make-symbol__1 '"__" __tmp135030))) + _slots131793_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g256925_ + (_g135031_ (for-each - (lambda (_g249124249127_ - _g249125249129_) + (lambda (_g131798131801_ + _g131799131803_) (let () (declare (not safe)) - (table-set! - _slot-refs247650_ - _g249124249127_ - _g249125249129_))) - _slots249119_ - _$slots249123_)) - (_slots-bind249140_ - (map (lambda (_g249132249135_ + (hash-put! + _slot-refs130324_ + _g131798131801_ + _g131799131803_))) + _slots131793_ + _$slots131797_)) + (_slots-bind131814_ + (map (lambda (_g131806131809_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g249133249137_) + _g131807131811_) (let () (declare (not safe)) - (_generate-slot-bind247558_ - _$t249094_ - _g249132249135_ - _g249133249137_))) - _slots249119_ - _$slots249123_)) + (_generate-slot-bind130232_ + _$t131768_ + _g131806131809_ + _g131807131811_))) + _slots131793_ + _$slots131797_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_class-check249142_ + (_class-check131816_ (let () (declare (not safe)) (hash-keys - _class-type-check247651_))) - (_$class-check249145_ - (map (lambda (_g256926_) - (let ((__tmp256927 + _class-type-check130325_))) + (_$class-check131819_ + (map (lambda (_g135032_) + (let ((__tmp135033 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp256927))) - _class-check249142_)) + (make-symbol__0 __tmp135033))) + _class-check131816_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g256928_ + (_g135034_ (for-each - (lambda (_g249146249149_ - _g249147249151_) + (lambda (_g131820131823_ + _g131821131825_) (let () (declare (not safe)) - (table-set! - _class-type-check247651_ - _g249146249149_ - _g249147249151_))) - _class-check249142_ - _$class-check249145_)) - (_class-check-bind249162_ - (map (lambda (_g249154249157_ + (hash-put! + _class-type-check130325_ + _g131820131823_ + _g131821131825_))) + _class-check131816_ + _$class-check131819_)) + (_class-check-bind131836_ + (map (lambda (_g131828131831_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g249155249159_) + _g131829131833_) (let () (declare (not safe)) - (_generate-class-check-bind247559_ - _$t249094_ - _g249154249157_ - _g249155249159_))) - _class-check249142_ - _$class-check249145_)) + (_generate-class-check-bind130233_ + _$t131768_ + _g131828131831_ + _g131829131833_))) + _class-check131816_ + _$class-check131819_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_struct-check-all249164_ + (_struct-check-all131838_ (let () (declare (not safe)) (hash-merge - _struct-type-check247652_ - _struct-type-assert247653_))) - (_struct-check249166_ + _struct-type-check130326_ + _struct-type-assert130327_))) + (_struct-check131840_ (let () (declare (not safe)) (hash-keys - _struct-check-all249164_))) - (_$struct-check249169_ - (map (lambda (_g256929_) - (let ((__tmp256930 + _struct-check-all131838_))) + (_$struct-check131843_ + (map (lambda (_g135035_) + (let ((__tmp135036 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp256930))) - _struct-check249166_)) + (make-symbol__0 __tmp135036))) + _struct-check131840_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g256931_ + (_g135037_ (for-each - (lambda (_g249170249173_ - _g249171249175_) + (lambda (_g131844131847_ + _g131845131849_) (let () (declare (not safe)) - (table-set! - _struct-check-all249164_ - _g249170249173_ - _g249171249175_))) - _struct-check249166_ - _$struct-check249169_)) - (_struct-check-bind249186_ - (map (lambda (_g249178249181_ + (hash-put! + _struct-check-all131838_ + _g131844131847_ + _g131845131849_))) + _struct-check131840_ + _$struct-check131843_)) + (_struct-check-bind131860_ + (map (lambda (_g131852131855_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g249179249183_) + _g131853131857_) (let () (declare (not safe)) - (_generate-struct-check-bind247560_ - _$t249094_ - _g249178249181_ - _g249179249183_))) - _struct-check249166_ - _$struct-check249169_)) + (_generate-struct-check-bind130234_ + _$t131768_ + _g131852131855_ + _g131853131857_))) + _struct-check131840_ + _$struct-check131843_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_make-specializer-lambda-expr249285_ - (lambda (_struct-type-check1249188_ - _struct-type-check2249189_) - (let* ((_g249191249209_ - (lambda (_g249192249206_) + (_make-specializer-lambda-expr131959_ + (lambda (_struct-type-check1131862_ + _struct-type-check2131863_) + (let* ((_g131865131883_ + (lambda (_g131866131880_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g249192249206_)))) - (_g249190249282_ - (lambda (_g249192249212_) + _g131866131880_)))) + (_g131864131956_ + (lambda (_g131866131886_) (if (let () (declare (not safe)) - (gx#stx-pair? _g249192249212_)) - (let ((_e249198249214_ + (gx#stx-pair? _g131866131886_)) + (let ((_e131872131888_ (let () (declare (not safe)) - (gx#stx-e _g249192249212_)))) - (let ((_hd249197249217_ + (gx#stx-e _g131866131886_)))) + (let ((_hd131871131891_ (let () (declare (not safe)) - (##car _e249198249214_))) - (_tl249196249219_ + (##car _e131872131888_))) + (_tl131870131893_ (let () (declare (not safe)) - (##cdr _e249198249214_)))) + (##cdr _e131872131888_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249196249219_)) - (let ((_e249201249222_ + (gx#stx-pair? _tl131870131893_)) + (let ((_e131875131896_ (let () (declare (not safe)) - (gx#stx-e _tl249196249219_)))) - (let ((_hd249200249225_ + (gx#stx-e _tl131870131893_)))) + (let ((_hd131874131899_ (let () (declare (not safe)) - (##car _e249201249222_))) - (_tl249199249227_ + (##car _e131875131896_))) + (_tl131873131901_ (let () (declare (not safe)) - (##cdr _e249201249222_)))) + (##cdr _e131875131896_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd249200249225_)) - (let ((_e249204249230_ + _hd131874131899_)) + (let ((_e131878131904_ (let () (declare (not safe)) (gx#stx-e - _hd249200249225_)))) - (let ((_hd249203249233_ + _hd131874131899_)))) + (let ((_hd131877131907_ (let () (declare (not safe)) - (##car _e249204249230_))) - (_tl249202249235_ + (##car _e131878131904_))) + (_tl131876131909_ (let () (declare (not safe)) - (##cdr _e249204249230_)))) - ((lambda (_L249238_ - _L249239_ - _L249240_) - (let* ((_body249280_ - (map (lambda (_g249275249277_) + (##cdr _e131878131904_)))) + ((lambda (_L131912_ + _L131913_ + _L131914_) + (let* ((_body131954_ + (map (lambda (_g131949131951_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g249275249277_ - _L249240_ - _$t249094_ - _method-calls247649_ - _slot-refs247650_ - _class-type-check247651_ - _struct-type-check1249188_ - _struct-type-check2249189_))) - _L249238_)) - (__tmp256932 - (let ((__tmp256933 - (let ((__tmp256934 + _g131949131951_ + _L131914_ + _$t131768_ + _method-calls130323_ + _slot-refs130324_ + _class-type-check130325_ + _struct-type-check1131862_ + _struct-type-check2131863_))) + _L131912_)) + (__tmp135038 + (let ((__tmp135039 + (let ((__tmp135040 (let () (declare (not safe)) - (cons _L249240_ _L249239_)))) + (cons _L131914_ _L131913_)))) (declare (not safe)) - (cons __tmp256934 _body249280_)))) + (cons __tmp135040 _body131954_)))) (declare (not safe)) - (cons '%#lambda __tmp256933)))) + (cons '%#lambda __tmp135039)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp256932 _L248842_))) + (gxc#xform-wrap-source __tmp135038 _L131516_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _tl249199249227_ - _tl249202249235_ - _hd249203249233_))) + _tl131873131901_ + _tl131876131909_ + _hd131877131907_))) (let () (declare (not safe)) - (_g249191249209_ - _g249192249212_))))) + (_g131865131883_ + _g131866131886_))))) (let () (declare (not safe)) - (_g249191249209_ _g249192249212_))))) + (_g131865131883_ _g131866131886_))))) (let () (declare (not safe)) - (_g249191249209_ _g249192249212_)))))) + (_g131865131883_ _g131866131886_)))))) (declare (not safe)) - (_g249190249282_ _L248842_)))) + (_g131864131956_ _L131516_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_make-specializer-case-lambda-expr249446_ - (lambda (_struct-type-check1249287_ - _struct-type-check2249288_) - (let* ((_g249290249309_ - (lambda (_g249291249306_) + (_make-specializer-case-lambda-expr132120_ + (lambda (_struct-type-check1131961_ + _struct-type-check2131962_) + (let* ((_g131964131983_ + (lambda (_g131965131980_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g249291249306_)))) - (_g249289249443_ - (lambda (_g249291249312_) + _g131965131980_)))) + (_g131963132117_ + (lambda (_g131965131986_) (if (let () (declare (not safe)) - (gx#stx-pair? _g249291249312_)) - (let ((_e249295249314_ + (gx#stx-pair? _g131965131986_)) + (let ((_e131969131988_ (let () (declare (not safe)) - (gx#stx-e _g249291249312_)))) - (let ((_hd249294249317_ + (gx#stx-e _g131965131986_)))) + (let ((_hd131968131991_ (let () (declare (not safe)) - (##car _e249295249314_))) - (_tl249293249319_ + (##car _e131969131988_))) + (_tl131967131993_ (let () (declare (not safe)) - (##cdr _e249295249314_)))) + (##cdr _e131969131988_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl249293249319_)) - (let ((_g256935_ + (gx#stx-pair/null? _tl131967131993_)) + (let ((_g135041_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl249293249319_ + _tl131967131993_ '0)))) (begin - (let ((_g256936_ + (let ((_g135042_ (let () (declare (not safe)) - (if (##values? _g256935_) + (if (##values? _g135041_) (##vector-length - _g256935_) + _g135041_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g256936_ 2))) + (##fx= _g135042_ 2))) (error "Context expects 2 values" - _g256936_))) - (let ((_target249296249322_ + _g135042_))) + (let ((_target131970131996_ (let () (declare (not safe)) - (##vector-ref _g256935_ 0))) - (_tl249298249324_ + (##vector-ref _g135041_ 0))) + (_tl131972131998_ (let () (declare (not safe)) (##vector-ref - _g256935_ + _g135041_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl249298249324_)) - (letrec ((_loop249299249327_ - (lambda (_hd249297249330_ + _tl131972131998_)) + (letrec ((_loop131973132001_ + (lambda (_hd131971132004_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause249303249332_) + _clause131977132006_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd249297249330_)) - (let ((_e249300249335_ + (gx#stx-pair? _hd131971132004_)) + (let ((_e131974132009_ (let () (declare (not safe)) - (gx#stx-e _hd249297249330_)))) - (let ((_lp-hd249301249338_ + (gx#stx-e _hd131971132004_)))) + (let ((_lp-hd131975132012_ (let () (declare (not safe)) - (##car _e249300249335_))) - (_lp-tl249302249340_ + (##car _e131974132009_))) + (_lp-tl131976132014_ (let () (declare (not safe)) - (##cdr _e249300249335_)))) - (let ((__tmp256940 + (##cdr _e131974132009_)))) + (let ((__tmp135046 (let () (declare (not safe)) - (cons _lp-hd249301249338_ - _clause249303249332_)))) + (cons _lp-hd131975132012_ + _clause131977132006_)))) (declare (not safe)) - (_loop249299249327_ - _lp-tl249302249340_ - __tmp256940)))) - (let ((_clause249304249343_ - (reverse _clause249303249332_))) - ((lambda (_L249346_) - (let* ((_clauses249441_ - (map (lambda (_clause249361_) - (let* ((___stx255579255580_ - _clause249361_) - (_g249364249379_ + (_loop131973132001_ + _lp-tl131976132014_ + __tmp135046)))) + (let ((_clause131978132017_ + (reverse _clause131977132006_))) + ((lambda (_L132020_) + (let* ((_clauses132115_ + (map (lambda (_clause132035_) + (let* ((___stx133685133686_ + _clause132035_) + (_g132038132053_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx255579255580_))))) - (let ((___kont255581255582_ - (lambda (_L249407_ - _L249408_ - _L249409_) - (let* ((_body249429_ - (map (lambda (_g249424249426_) + ___stx133685133686_))))) + (let ((___kont133687133688_ + (lambda (_L132081_ + _L132082_ + _L132083_) + (let* ((_body132103_ + (map (lambda (_g132098132100_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g249424249426_ - _L249409_ - _$t249094_ - _method-calls247649_ - _slot-refs247650_ - _class-type-check247651_ - _struct-type-check1249287_ - _struct-type-check2249288_))) - _L249407_)) - (__tmp256937 + _g132098132100_ + _L132083_ + _$t131768_ + _method-calls130323_ + _slot-refs130324_ + _class-type-check130325_ + _struct-type-check1131961_ + _struct-type-check2131962_))) + _L132081_)) + (__tmp135043 (let () (declare (not safe)) - (cons _L249409_ _L249408_)))) + (cons _L132083_ _L132082_)))) (declare (not safe)) - (cons __tmp256937 _body249429_)))) + (cons __tmp135043 _body132103_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont255583255584_ + (___kont133689133690_ (lambda () - _clause249361_))) + _clause132035_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx255579255580_)) - (let ((_e249371249391_ + ___stx133685133686_)) + (let ((_e132045132065_ (let () (declare (not safe)) (gx#stx-e - ___stx255579255580_)))) - (let ((_tl249369249396_ + ___stx133685133686_)))) + (let ((_tl132043132070_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e249371249391_))) - (_hd249370249394_ - (let () (declare (not safe)) (##car _e249371249391_)))) + (##cdr _e132045132065_))) + (_hd132044132068_ + (let () (declare (not safe)) (##car _e132045132065_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd249370249394_)) - (let ((_e249374249399_ + (gx#stx-pair? _hd132044132068_)) + (let ((_e132048132073_ (let () (declare (not safe)) - (gx#stx-e _hd249370249394_)))) - (let ((_tl249372249404_ + (gx#stx-e _hd132044132068_)))) + (let ((_tl132046132078_ (let () (declare (not safe)) - (##cdr _e249374249399_))) - (_hd249373249402_ + (##cdr _e132048132073_))) + (_hd132047132076_ (let () (declare (not safe)) - (##car _e249374249399_)))) - (___kont255581255582_ - _tl249369249396_ - _tl249372249404_ - _hd249373249402_))) - (___kont255583255584_)))) + (##car _e132048132073_)))) + (___kont133687133688_ + _tl132043132070_ + _tl132046132078_ + _hd132047132076_))) + (___kont133689133690_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont255583255584_))))) - (let ((__tmp256938 - (lambda (_g249433249436_ - _g249434249438_) + (___kont133689133690_))))) + (let ((__tmp135044 + (lambda (_g132107132110_ + _g132108132112_) (let () (declare (not safe)) - (cons _g249433249436_ - _g249434249438_))))) + (cons _g132107132110_ + _g132108132112_))))) (declare (not safe)) - (foldr1 __tmp256938 + (foldr1 __tmp135044 '() - _L249346_)))) - (__tmp256939 + _L132020_)))) + (__tmp135045 (let () (declare (not safe)) - (cons '%#case-lambda _clauses249441_)))) + (cons '%#case-lambda _clauses132115_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp256939 _L248841_))) - _clause249304249343_)))))) + (gxc#xform-wrap-source __tmp135045 _L131515_))) + _clause131978132017_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop249299249327_ - _target249296249322_ + (_loop131973132001_ + _target131970131996_ '()))) (let () (declare (not safe)) - (_g249290249309_ - _g249291249312_)))))) + (_g131964131983_ + _g131965131986_)))))) (let () (declare (not safe)) - (_g249290249309_ _g249291249312_))))) + (_g131964131983_ _g131965131986_))))) (let () (declare (not safe)) - (_g249290249309_ _g249291249312_)))))) + (_g131964131983_ _g131965131986_)))))) (declare (not safe)) - (_g249289249443_ _L248841_)))) + (_g131963132117_ _L131515_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_make-specializer-impl249451_ - (lambda (_specializer-lambda-expr249448_ - _specializer-case-lambda-expr249449_) - (let ((__tmp256941 - (let ((__tmp256942 + (_make-specializer-impl132125_ + (lambda (_specializer-lambda-expr132122_ + _specializer-case-lambda-expr132123_) + (let ((__tmp135047 + (let ((__tmp135048 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp256944 - (let ((__tmp256945 - (let ((__tmp256947 + (let ((__tmp135050 + (let ((__tmp135051 + (let ((__tmp135053 (let () (declare (not safe)) - (cons _L248843_ '()))) - (__tmp256946 + (cons _L131517_ '()))) + (__tmp135052 (let () (declare (not safe)) - (cons _specializer-lambda-expr249448_ + (cons _specializer-lambda-expr132122_ '())))) (declare (not safe)) - (cons __tmp256947 __tmp256946)))) + (cons __tmp135053 __tmp135052)))) (declare (not safe)) - (cons __tmp256945 '()))) - (__tmp256943 + (cons __tmp135051 '()))) + (__tmp135049 (let () (declare (not safe)) - (cons _specializer-case-lambda-expr249449_ + (cons _specializer-case-lambda-expr132123_ '())))) (declare (not safe)) - (cons __tmp256944 __tmp256943)))) + (cons __tmp135050 __tmp135049)))) (declare (not safe)) - (cons '%#let-values __tmp256942)))) + (cons '%#let-values __tmp135048)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp256941 _stx247555_)))) + (gxc#xform-wrap-source __tmp135047 _stx130229_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-lambda-expr249453_ + (_specializer-lambda-expr132127_ (let () (declare (not safe)) - (_make-specializer-lambda-expr249285_ - _struct-check-all249164_ - _empty247654_))) - (_specializer-case-lambda-expr249455_ + (_make-specializer-lambda-expr131959_ + _struct-check-all131838_ + _empty130328_))) + (_specializer-case-lambda-expr132129_ (let () (declare (not safe)) - (_make-specializer-case-lambda-expr249446_ - _struct-check-all249164_ - _empty247654_))) - (_specializer-impl249457_ + (_make-specializer-case-lambda-expr132120_ + _struct-check-all131838_ + _empty130328_))) + (_specializer-impl132131_ (let () (declare (not safe)) - (_make-specializer-impl249451_ - _specializer-lambda-expr249453_ - _specializer-case-lambda-expr249455_))) - (_unchecked-specializer-lambda-expr249459_ + (_make-specializer-impl132125_ + _specializer-lambda-expr132127_ + _specializer-case-lambda-expr132129_))) + (_unchecked-specializer-lambda-expr132133_ (if (let () (declare (not safe)) - (_unchecked-specializer?247657_)) + (_unchecked-specializer?130331_)) (let () (declare (not safe)) - (_make-specializer-lambda-expr249285_ - _empty247654_ - _struct-check-all249164_)) + (_make-specializer-lambda-expr131959_ + _empty130328_ + _struct-check-all131838_)) '#f)) - (_unchecked-specializer-case-lambda-expr249461_ + (_unchecked-specializer-case-lambda-expr132135_ (if (let () (declare (not safe)) - (_unchecked-specializer?247657_)) + (_unchecked-specializer?130331_)) (let () (declare (not safe)) - (_make-specializer-case-lambda-expr249446_ - _empty247654_ - _struct-check-all249164_)) + (_make-specializer-case-lambda-expr132120_ + _empty130328_ + _struct-check-all131838_)) '#f)) - (_unchecked-specializer-impl249463_ + (_unchecked-specializer-impl132137_ (if (let () (declare (not safe)) - (_unchecked-specializer?247657_)) + (_unchecked-specializer?130331_)) (let () (declare (not safe)) - (_make-specializer-impl249451_ - _unchecked-specializer-lambda-expr249459_ - _unchecked-specializer-case-lambda-expr249461_)) + (_make-specializer-impl132125_ + _unchecked-specializer-lambda-expr132133_ + _unchecked-specializer-case-lambda-expr132135_)) '#f)) - (_specializer-impl249465_ + (_specializer-impl132139_ (let () (declare (not safe)) - (_generate-specializer-impl247561_ - _$t249094_ - _methods-bind249117_ - _slots-bind249140_ - _class-check-bind249162_ - _struct-check-bind249186_ - _specializer-impl249457_ - _lifted-specializer-id249092_ - _unchecked-specializer-impl249463_)))) - (let ((__tmp256949 + (_generate-specializer-impl130235_ + _$t131768_ + _methods-bind131791_ + _slots-bind131814_ + _class-check-bind131836_ + _struct-check-bind131860_ + _specializer-impl132131_ + _lifted-specializer-id131766_ + _unchecked-specializer-impl132137_)))) + (let ((__tmp135055 (let () (declare (not safe)) - (gx#stx-e _L247630_))) - (__tmp256948 + (gx#stx-e _L130304_))) + (__tmp135054 (let () (declare (not safe)) (gx#stx-e - _specializer-id249085_)))) + _specializer-id131759_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp256949 + __tmp135055 '" => " - __tmp256948)) + __tmp135054)) (let () (declare (not safe)) - (_generate-specializer-def247562_ - _L247630_ - _specializer-id249085_ - _specializer-impl249465_ - _lifted-specializer-id249092_ - _unchecked-specializer-impl249463_))))) - _hd248774248836_ - _hd248771248828_ - _hd248768248820_) + (_generate-specializer-def130236_ + _L130304_ + _specializer-id131759_ + _specializer-impl132139_ + _lifted-specializer-id131766_ + _unchecked-specializer-impl132137_))))) + _hd131448131510_ + _hd131445131502_ + _hd131442131494_) (let () (declare (not safe)) - (_g248750248780_ _g248751248783_))))) + (_g131424131454_ _g131425131457_))))) (let () (declare (not safe)) - (_g248750248780_ _g248751248783_))) + (_g131424131454_ _g131425131457_))) (let () (declare (not safe)) - (_g248750248780_ _g248751248783_))) + (_g131424131454_ _g131425131457_))) (let () (declare (not safe)) - (_g248750248780_ _g248751248783_))))) - (let () (declare (not safe)) (_g248750248780_ _g248751248783_))) + (_g131424131454_ _g131425131457_))))) + (let () (declare (not safe)) (_g131424131454_ _g131425131457_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g248750248780_ - _g248751248783_))))) + (_g131424131454_ + _g131425131457_))))) (let () (declare (not safe)) - (_g248750248780_ - _g248751248783_))))) + (_g131424131454_ + _g131425131457_))))) (let () (declare (not safe)) - (_g248750248780_ _g248751248783_))))) + (_g131424131454_ _g131425131457_))))) (let () (declare (not safe)) - (_g248750248780_ _g248751248783_))))) + (_g131424131454_ _g131425131457_))))) (let () (declare (not safe)) - (_g248750248780_ _g248751248783_))))) + (_g131424131454_ _g131425131457_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g248750248780_ - _g248751248783_)))))) + (_g131424131454_ + _g131425131457_)))))) (declare (not safe)) - (_g248749249468_ _L247629_)) + (_g131423132142_ _L130303_)) (if (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L247629_)) - (let* ((_g249471249524_ - (lambda (_g249472249521_) + (gxc#kw-lambda-expr? _L130303_)) + (let* ((_g132145132198_ + (lambda (_g132146132195_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g249472249521_)))) - (_g249470250796_ - (lambda (_g249472249527_) + _g132146132195_)))) + (_g132144133470_ + (lambda (_g132146132201_) (if (let () (declare (not safe)) (gx#stx-pair? - _g249472249527_)) - (let ((_e249480249529_ + _g132146132201_)) + (let ((_e132154132203_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _g249472249527_)))) - (let ((_hd249479249532_ - (let () (declare (not safe)) (##car _e249480249529_))) - (_tl249478249534_ - (let () (declare (not safe)) (##cdr _e249480249529_)))) + (gx#stx-e _g132146132201_)))) + (let ((_hd132153132206_ + (let () (declare (not safe)) (##car _e132154132203_))) + (_tl132152132208_ + (let () (declare (not safe)) (##cdr _e132154132203_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd249479249532_)) + (gx#identifier? _hd132153132206_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd249479249532_)) + (gx#stx-eq? '%#let-values _hd132153132206_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249478249534_)) - (let ((_e249483249537_ + (gx#stx-pair? _tl132152132208_)) + (let ((_e132157132211_ (let () (declare (not safe)) - (gx#stx-e _tl249478249534_)))) - (let ((_hd249482249540_ + (gx#stx-e _tl132152132208_)))) + (let ((_hd132156132214_ (let () (declare (not safe)) - (##car _e249483249537_))) - (_tl249481249542_ + (##car _e132157132211_))) + (_tl132155132216_ (let () (declare (not safe)) - (##cdr _e249483249537_)))) + (##cdr _e132157132211_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd249482249540_)) - (let ((_e249486249545_ + (gx#stx-pair? _hd132156132214_)) + (let ((_e132160132219_ (let () (declare (not safe)) - (gx#stx-e _hd249482249540_)))) - (let ((_hd249485249548_ + (gx#stx-e _hd132156132214_)))) + (let ((_hd132159132222_ (let () (declare (not safe)) - (##car _e249486249545_))) - (_tl249484249550_ + (##car _e132160132219_))) + (_tl132158132224_ (let () (declare (not safe)) - (##cdr _e249486249545_)))) + (##cdr _e132160132219_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd249485249548_)) - (let ((_e249489249553_ + _hd132159132222_)) + (let ((_e132163132227_ (let () (declare (not safe)) (gx#stx-e - _hd249485249548_)))) - (let ((_hd249488249556_ + _hd132159132222_)))) + (let ((_hd132162132230_ (let () (declare (not safe)) - (##car _e249489249553_))) - (_tl249487249558_ + (##car _e132163132227_))) + (_tl132161132232_ (let () (declare (not safe)) - (##cdr _e249489249553_)))) + (##cdr _e132163132227_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd249488249556_)) - (let ((_e249492249561_ + _hd132162132230_)) + (let ((_e132166132235_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd249488249556_)))) - (let ((_hd249491249564_ - (let () (declare (not safe)) (##car _e249492249561_))) - (_tl249490249566_ - (let () (declare (not safe)) (##cdr _e249492249561_)))) + (gx#stx-e _hd132162132230_)))) + (let ((_hd132165132238_ + (let () (declare (not safe)) (##car _e132166132235_))) + (_tl132164132240_ + (let () (declare (not safe)) (##cdr _e132166132235_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl249490249566_)) + (gx#stx-null? _tl132164132240_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249487249558_)) - (let ((_e249495249569_ + (gx#stx-pair? _tl132161132232_)) + (let ((_e132169132243_ (let () (declare (not safe)) - (gx#stx-e _tl249487249558_)))) - (let ((_hd249494249572_ + (gx#stx-e _tl132161132232_)))) + (let ((_hd132168132246_ (let () (declare (not safe)) - (##car _e249495249569_))) - (_tl249493249574_ + (##car _e132169132243_))) + (_tl132167132248_ (let () (declare (not safe)) - (##cdr _e249495249569_)))) + (##cdr _e132169132243_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd249494249572_)) - (let ((_e249498249577_ + (gx#stx-pair? _hd132168132246_)) + (let ((_e132172132251_ (let () (declare (not safe)) - (gx#stx-e _hd249494249572_)))) - (let ((_hd249497249580_ + (gx#stx-e _hd132168132246_)))) + (let ((_hd132171132254_ (let () (declare (not safe)) - (##car _e249498249577_))) - (_tl249496249582_ + (##car _e132172132251_))) + (_tl132170132256_ (let () (declare (not safe)) - (##cdr _e249498249577_)))) + (##cdr _e132172132251_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd249497249580_)) + (gx#identifier? _hd132171132254_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd249497249580_)) + _hd132171132254_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl249496249582_)) - (let ((_e249501249585_ + _tl132170132256_)) + (let ((_e132175132259_ (let () (declare (not safe)) (gx#stx-e - _tl249496249582_)))) - (let ((_hd249500249588_ + _tl132170132256_)))) + (let ((_hd132174132262_ (let () (declare (not safe)) - (##car _e249501249585_))) - (_tl249499249590_ + (##car _e132175132259_))) + (_tl132173132264_ (let () (declare (not safe)) - (##cdr _e249501249585_)))) + (##cdr _e132175132259_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd249500249588_)) - (let ((_e249504249593_ + _hd132174132262_)) + (let ((_e132178132267_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd249500249588_)))) - (let ((_hd249503249596_ + (gx#stx-e _hd132174132262_)))) + (let ((_hd132177132270_ (let () (declare (not safe)) - (##car _e249504249593_))) - (_tl249502249598_ + (##car _e132178132267_))) + (_tl132176132272_ (let () (declare (not safe)) - (##cdr _e249504249593_)))) + (##cdr _e132178132267_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd249503249596_)) - (let ((_e249507249601_ + (gx#stx-pair? _hd132177132270_)) + (let ((_e132181132275_ (let () (declare (not safe)) - (gx#stx-e _hd249503249596_)))) - (let ((_hd249506249604_ + (gx#stx-e _hd132177132270_)))) + (let ((_hd132180132278_ (let () (declare (not safe)) - (##car _e249507249601_))) - (_tl249505249606_ + (##car _e132181132275_))) + (_tl132179132280_ (let () (declare (not safe)) - (##cdr _e249507249601_)))) + (##cdr _e132181132275_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd249506249604_)) - (let ((_e249510249609_ + (gx#stx-pair? _hd132180132278_)) + (let ((_e132184132283_ (let () (declare (not safe)) - (gx#stx-e _hd249506249604_)))) - (let ((_hd249509249612_ + (gx#stx-e _hd132180132278_)))) + (let ((_hd132183132286_ (let () (declare (not safe)) - (##car _e249510249609_))) - (_tl249508249614_ + (##car _e132184132283_))) + (_tl132182132288_ (let () (declare (not safe)) - (##cdr _e249510249609_)))) + (##cdr _e132184132283_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl249508249614_)) + (gx#stx-null? _tl132182132288_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl249505249606_)) - (let ((_e249513249617_ + _tl132179132280_)) + (let ((_e132187132291_ (let () (declare (not safe)) (gx#stx-e - _tl249505249606_)))) - (let ((_hd249512249620_ + _tl132179132280_)))) + (let ((_hd132186132294_ (let () (declare (not safe)) - (##car _e249513249617_))) - (_tl249511249622_ + (##car _e132187132291_))) + (_tl132185132296_ (let () (declare (not safe)) - (##cdr _e249513249617_)))) + (##cdr _e132187132291_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl249511249622_)) + _tl132185132296_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl249502249598_)) + _tl132176132272_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl249499249590_)) - (let ((_e249516249625_ + (gx#stx-pair? _tl132173132264_)) + (let ((_e132190132299_ (let () (declare (not safe)) - (gx#stx-e _tl249499249590_)))) - (let ((_hd249515249628_ + (gx#stx-e _tl132173132264_)))) + (let ((_hd132189132302_ (let () (declare (not safe)) - (##car _e249516249625_))) - (_tl249514249630_ + (##car _e132190132299_))) + (_tl132188132304_ (let () (declare (not safe)) - (##cdr _e249516249625_)))) + (##cdr _e132190132299_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl249514249630_)) + (gx#stx-null? _tl132188132304_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl249493249574_)) + (gx#stx-null? _tl132167132248_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl249484249550_)) + (gx#stx-null? _tl132158132224_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249481249542_)) - (let ((_e249519249633_ + (gx#stx-pair? _tl132155132216_)) + (let ((_e132193132307_ (let () (declare (not safe)) (gx#stx-e - _tl249481249542_)))) - (let ((_hd249518249636_ + _tl132155132216_)))) + (let ((_hd132192132310_ (let () (declare (not safe)) - (##car _e249519249633_))) - (_tl249517249638_ + (##car _e132193132307_))) + (_tl132191132312_ (let () (declare (not safe)) - (##cdr _e249519249633_)))) + (##cdr _e132193132307_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl249517249638_)) - ((lambda (_L249641_ - _L249642_ - _L249643_ - _L249644_ - _L249645_) - (let* ((_g249684249746_ - (lambda (_g249685249743_) + _tl132191132312_)) + ((lambda (_L132315_ + _L132316_ + _L132317_ + _L132318_ + _L132319_) + (let* ((_g132358132420_ + (lambda (_g132359132417_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g249685249743_)))) - (_g249683250793_ - (lambda (_g249685249749_) + _g132359132417_)))) + (_g132357133467_ + (lambda (_g132359132423_) (if (let () (declare (not safe)) - (gx#stx-pair? _g249685249749_)) - (let ((_e249693249751_ + (gx#stx-pair? _g132359132423_)) + (let ((_e132367132425_ (let () (declare (not safe)) - (gx#stx-e _g249685249749_)))) - (let ((_hd249692249754_ + (gx#stx-e _g132359132423_)))) + (let ((_hd132366132428_ (let () (declare (not safe)) - (##car _e249693249751_))) - (_tl249691249756_ + (##car _e132367132425_))) + (_tl132365132430_ (let () (declare (not safe)) - (##cdr _e249693249751_)))) + (##cdr _e132367132425_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd249692249754_)) + (gx#identifier? _hd132366132428_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd249692249754_)) + _hd132366132428_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249691249756_)) - (let ((_e249696249759_ + (gx#stx-pair? _tl132365132430_)) + (let ((_e132370132433_ (let () (declare (not safe)) (gx#stx-e - _tl249691249756_)))) - (let ((_hd249695249762_ + _tl132365132430_)))) + (let ((_hd132369132436_ (let () (declare (not safe)) - (##car _e249696249759_))) - (_tl249694249764_ + (##car _e132370132433_))) + (_tl132368132438_ (let () (declare (not safe)) - (##cdr _e249696249759_)))) + (##cdr _e132370132433_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl249694249764_)) - (let ((_e249699249767_ + _tl132368132438_)) + (let ((_e132373132441_ (let () (declare (not safe)) (gx#stx-e - _tl249694249764_)))) - (let ((_hd249698249770_ + _tl132368132438_)))) + (let ((_hd132372132444_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e249699249767_))) - (_tl249697249772_ - (let () (declare (not safe)) (##cdr _e249699249767_)))) + (##car _e132373132441_))) + (_tl132371132446_ + (let () (declare (not safe)) (##cdr _e132373132441_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd249698249770_)) - (let ((_e249702249775_ + (gx#stx-pair? _hd132372132444_)) + (let ((_e132376132449_ (let () (declare (not safe)) - (gx#stx-e _hd249698249770_)))) - (let ((_hd249701249778_ + (gx#stx-e _hd132372132444_)))) + (let ((_hd132375132452_ (let () (declare (not safe)) - (##car _e249702249775_))) - (_tl249700249780_ + (##car _e132376132449_))) + (_tl132374132454_ (let () (declare (not safe)) - (##cdr _e249702249775_)))) + (##cdr _e132376132449_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd249701249778_)) + (gx#identifier? _hd132375132452_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd249701249778_)) + (gx#stx-eq? '%#call _hd132375132452_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249700249780_)) - (let ((_e249705249783_ + (gx#stx-pair? _tl132374132454_)) + (let ((_e132379132457_ (let () (declare (not safe)) - (gx#stx-e _tl249700249780_)))) - (let ((_hd249704249786_ + (gx#stx-e _tl132374132454_)))) + (let ((_hd132378132460_ (let () (declare (not safe)) - (##car _e249705249783_))) - (_tl249703249788_ + (##car _e132379132457_))) + (_tl132377132462_ (let () (declare (not safe)) - (##cdr _e249705249783_)))) + (##cdr _e132379132457_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd249704249786_)) - (let ((_e249708249791_ + (gx#stx-pair? _hd132378132460_)) + (let ((_e132382132465_ (let () (declare (not safe)) (gx#stx-e - _hd249704249786_)))) - (let ((_hd249707249794_ + _hd132378132460_)))) + (let ((_hd132381132468_ (let () (declare (not safe)) - (##car _e249708249791_))) - (_tl249706249796_ + (##car _e132382132465_))) + (_tl132380132470_ (let () (declare (not safe)) - (##cdr _e249708249791_)))) + (##cdr _e132382132465_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd249707249794_)) + _hd132381132468_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd249707249794_)) + _hd132381132468_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl249706249796_)) - (let ((_e249711249799_ + _tl132380132470_)) + (let ((_e132385132473_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl249706249796_)))) - (let ((_hd249710249802_ + (gx#stx-e _tl132380132470_)))) + (let ((_hd132384132476_ (let () (declare (not safe)) - (##car _e249711249799_))) - (_tl249709249804_ + (##car _e132385132473_))) + (_tl132383132478_ (let () (declare (not safe)) - (##cdr _e249711249799_)))) + (##cdr _e132385132473_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl249709249804_)) + (gx#stx-null? _tl132383132478_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249703249788_)) - (let ((_e249714249807_ + (gx#stx-pair? _tl132377132462_)) + (let ((_e132388132481_ (let () (declare (not safe)) - (gx#stx-e _tl249703249788_)))) - (let ((_hd249713249810_ + (gx#stx-e _tl132377132462_)))) + (let ((_hd132387132484_ (let () (declare (not safe)) - (##car _e249714249807_))) - (_tl249712249812_ + (##car _e132388132481_))) + (_tl132386132486_ (let () (declare (not safe)) - (##cdr _e249714249807_)))) + (##cdr _e132388132481_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd249713249810_)) - (let ((_e249717249815_ + (gx#stx-pair? _hd132387132484_)) + (let ((_e132391132489_ (let () (declare (not safe)) - (gx#stx-e _hd249713249810_)))) - (let ((_hd249716249818_ + (gx#stx-e _hd132387132484_)))) + (let ((_hd132390132492_ (let () (declare (not safe)) - (##car _e249717249815_))) - (_tl249715249820_ + (##car _e132391132489_))) + (_tl132389132494_ (let () (declare (not safe)) - (##cdr _e249717249815_)))) + (##cdr _e132391132489_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd249716249818_)) + _hd132390132492_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd249716249818_)) + _hd132390132492_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl249715249820_)) - (let ((_e249720249823_ + _tl132389132494_)) + (let ((_e132394132497_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl249715249820_)))) - (let ((_hd249719249826_ - (let () (declare (not safe)) (##car _e249720249823_))) - (_tl249718249828_ + (gx#stx-e _tl132389132494_)))) + (let ((_hd132393132500_ + (let () (declare (not safe)) (##car _e132394132497_))) + (_tl132392132502_ (let () (declare (not safe)) - (##cdr _e249720249823_)))) + (##cdr _e132394132497_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl249718249828_)) + (gx#stx-null? _tl132392132502_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249712249812_)) - (let ((_e249723249831_ + (gx#stx-pair? _tl132386132486_)) + (let ((_e132397132505_ (let () (declare (not safe)) - (gx#stx-e _tl249712249812_)))) - (let ((_hd249722249834_ + (gx#stx-e _tl132386132486_)))) + (let ((_hd132396132508_ (let () (declare (not safe)) - (##car _e249723249831_))) - (_tl249721249836_ + (##car _e132397132505_))) + (_tl132395132510_ (let () (declare (not safe)) - (##cdr _e249723249831_)))) + (##cdr _e132397132505_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd249722249834_)) - (let ((_e249726249839_ + (gx#stx-pair? _hd132396132508_)) + (let ((_e132400132513_ (let () (declare (not safe)) - (gx#stx-e _hd249722249834_)))) - (let ((_hd249725249842_ + (gx#stx-e _hd132396132508_)))) + (let ((_hd132399132516_ (let () (declare (not safe)) - (##car _e249726249839_))) - (_tl249724249844_ + (##car _e132400132513_))) + (_tl132398132518_ (let () (declare (not safe)) - (##cdr _e249726249839_)))) + (##cdr _e132400132513_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd249725249842_)) + _hd132399132516_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd249725249842_)) + _hd132399132516_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl249724249844_)) - (let ((_e249729249847_ + _tl132398132518_)) + (let ((_e132403132521_ (let () (declare (not safe)) (gx#stx-e - _tl249724249844_)))) - (let ((_hd249728249850_ + _tl132398132518_)))) + (let ((_hd132402132524_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e249729249847_))) - (_tl249727249852_ - (let () (declare (not safe)) (##cdr _e249729249847_)))) + (##car _e132403132521_))) + (_tl132401132526_ + (let () (declare (not safe)) (##cdr _e132403132521_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl249727249852_)) + (gx#stx-null? _tl132401132526_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl249721249836_)) + (gx#stx-pair/null? _tl132395132510_)) (if (fx>= (let () (declare (not safe)) - (gx#stx-length _tl249721249836_)) + (gx#stx-length _tl132395132510_)) '1) - (let ((_g256825_ + (let ((_g134931_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl249721249836_ + _tl132395132510_ '1)))) (begin - (let ((_g256826_ + (let ((_g134932_ (let () (declare (not safe)) - (if (##values? _g256825_) - (##vector-length _g256825_) + (if (##values? _g134931_) + (##vector-length _g134931_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g256826_ 2))) + (##fx= _g134932_ 2))) (error "Context expects 2 values" - _g256826_))) - (let ((_target249730249855_ + _g134932_))) + (let ((_target132404132529_ (let () (declare (not safe)) - (##vector-ref _g256825_ 0))) - (_tl249732249857_ + (##vector-ref _g134931_ 0))) + (_tl132406132531_ (let () (declare (not safe)) - (##vector-ref _g256825_ 1)))) + (##vector-ref _g134931_ 1)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249732249857_)) - (let ((_e249741249860_ + (gx#stx-pair? _tl132406132531_)) + (let ((_e132415132534_ (let () (declare (not safe)) - (gx#stx-e _tl249732249857_)))) - (let ((_hd249740249863_ + (gx#stx-e _tl132406132531_)))) + (let ((_hd132414132537_ (let () (declare (not safe)) - (##car _e249741249860_))) - (_tl249739249865_ + (##car _e132415132534_))) + (_tl132413132539_ (let () (declare (not safe)) - (##cdr _e249741249860_)))) + (##cdr _e132415132534_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl249739249865_)) - (letrec ((_loop249733249868_ - (lambda (_hd249731249871_ + _tl132413132539_)) + (letrec ((_loop132407132542_ + (lambda (_hd132405132545_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _kw-ref249737249873_) + _kw-ref132411132547_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd249731249871_)) - (let ((_e249734249876_ + (gx#stx-pair? _hd132405132545_)) + (let ((_e132408132550_ (let () (declare (not safe)) - (gx#stx-e _hd249731249871_)))) - (let ((_lp-hd249735249879_ + (gx#stx-e _hd132405132545_)))) + (let ((_lp-hd132409132553_ (let () (declare (not safe)) - (##car _e249734249876_))) - (_lp-tl249736249881_ + (##car _e132408132550_))) + (_lp-tl132410132555_ (let () (declare (not safe)) - (##cdr _e249734249876_)))) - (let ((__tmp256912 + (##cdr _e132408132550_)))) + (let ((__tmp135018 (let () (declare (not safe)) - (cons _lp-hd249735249879_ - _kw-ref249737249873_)))) + (cons _lp-hd132409132553_ + _kw-ref132411132547_)))) (declare (not safe)) - (_loop249733249868_ - _lp-tl249736249881_ - __tmp256912)))) - (let ((_kw-ref249738249884_ - (reverse _kw-ref249737249873_))) + (_loop132407132542_ + _lp-tl132410132555_ + __tmp135018)))) + (let ((_kw-ref132412132558_ + (reverse _kw-ref132411132547_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl249697249772_)) - ((lambda (_L249887_ - _L249888_ - _L249889_ - _L249890_ - _L249891_) - (let* ((_kw-count249942_ - (length (let ((__tmp256827 - (lambda (_g249934249937_ - _g249935249939_) + (gx#stx-null? _tl132371132446_)) + ((lambda (_L132561_ + _L132562_ + _L132563_ + _L132564_ + _L132565_) + (let* ((_kw-count132616_ + (length (let ((__tmp134933 + (lambda (_g132608132611_ + _g132609132613_) (let () (declare (not safe)) - (cons _g249934249937_ - _g249935249939_))))) + (cons _g132608132611_ + _g132609132613_))))) (declare (not safe)) - (foldr1 __tmp256827 + (foldr1 __tmp134933 '() - _L249888_)))) - (_self-index249944_ + _L132562_)))) + (_self-index132618_ (let () (declare (not safe)) - (fx+ _kw-count249942_ '1)))) + (fx+ _kw-count132616_ '1)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L249643_)) - (let* ((_g249947249961_ - (lambda (_g249948249958_) + (gxc#lambda-expr? _L132317_)) + (let* ((_g132621132635_ + (lambda (_g132622132632_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g249948249958_)))) - (_g249946250132_ - (lambda (_g249948249964_) + _g132622132632_)))) + (_g132620132806_ + (lambda (_g132622132638_) (if (let () (declare (not safe)) (gx#stx-pair? - _g249948249964_)) - (let ((_e249953249966_ + _g132622132638_)) + (let ((_e132627132640_ (let () (declare (not safe)) (gx#stx-e - _g249948249964_)))) - (let ((_hd249952249969_ + _g132622132638_)))) + (let ((_hd132626132643_ (let () (declare (not safe)) - (##car _e249953249966_))) - (_tl249951249971_ + (##car _e132627132640_))) + (_tl132625132645_ (let () (declare (not safe)) - (##cdr _e249953249966_)))) + (##cdr _e132627132640_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl249951249971_)) - (let ((_e249956249974_ + _tl132625132645_)) + (let ((_e132630132648_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl249951249971_)))) - (let ((_hd249955249977_ + (gx#stx-e _tl132625132645_)))) + (let ((_hd132629132651_ (let () (declare (not safe)) - (##car _e249956249974_))) - (_tl249954249979_ + (##car _e132630132648_))) + (_tl132628132653_ (let () (declare (not safe)) - (##cdr _e249956249974_)))) - ((lambda (_L249982_ _L249983_) - (let ((_self249999_ - (list-ref _L249983_ _self-index249944_))) + (##cdr _e132630132648_)))) + ((lambda (_L132656_ _L132657_) + (let ((_self132673_ + (list-ref _L132657_ _self-index132618_))) (for-each - (lambda (_g250000250002_) + (lambda (_g132674132676_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g250000250002_ - _self249999_ - _method-calls247649_ - _slot-refs247650_ - _class-type-check247651_ - _struct-type-check247652_ - _struct-type-assert247653_))) - _L249982_) + _g132674132676_ + _self132673_ + _method-calls130323_ + _slot-refs130324_ + _class-type-check130325_ + _struct-type-check130326_ + _struct-type-assert130327_))) + _L132656_) (if (let () (declare (not safe)) - (_no-specializer?247656_)) - _stx247555_ - (let* ((_specializer-id250011_ - (let* ((_id250005_ - (let ((__tmp256878 + (_no-specializer?130330_)) + _stx130229_ + (let* ((_specializer-id132685_ + (let* ((_id132679_ + (let ((__tmp134984 (let () (declare (not safe)) (gx#stx-e - _L247630_)))) + _L130304_)))) (declare (not safe)) (make-symbol__1 - __tmp256878 + __tmp134984 '"::specialize"))) - (_specializer-id250008_ - (let ((__tmp256879 + (_specializer-id132682_ + (let ((__tmp134985 (let () (declare (not safe)) (gx#stx-source - _stx247555_)))) + _stx130229_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id250005_ - __tmp256879)))) + _id132679_ + __tmp134985)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _specializer-id250008_)) - _specializer-id250008_)) - (_lifted-specializer-id250018_ + _specializer-id132682_)) + _specializer-id132682_)) + (_lifted-specializer-id132692_ (if (let () (declare (not safe)) - (_lift-unchecked-specializer?247658_)) - (let* ((_id250013_ - (let ((__tmp256880 + (_lift-unchecked-specializer?130332_)) + (let* ((_id132687_ + (let ((__tmp134986 (let () (declare (not safe)) (gx#stx-e - _L247630_)))) + _L130304_)))) (declare (not safe)) (make-symbol__1 - __tmp256880 + __tmp134986 '"::specialize::unchecked"))) - (_lifted-specializer-id250015_ - (let ((__tmp256881 + (_lifted-specializer-id132689_ + (let ((__tmp134987 (let () (declare (not safe)) (gx#stx-source - _stx247555_)))) + _stx130229_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id250013_ - __tmp256881)))) + _id132687_ + __tmp134987)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _lifted-specializer-id250015_)) - _lifted-specializer-id250015_) + _lifted-specializer-id132689_)) + _lifted-specializer-id132689_) '#f)) - (_$t250020_ - (let ((__tmp256882 (gensym '__t))) + (_$t132694_ + (let ((__tmp134988 (gensym '__t))) (declare (not safe)) - (make-symbol__0 __tmp256882))) - (_methods250022_ + (make-symbol__0 __tmp134988))) + (_methods132696_ (let () (declare (not safe)) - (hash-keys _method-calls247649_))) - (_$methods250026_ - (map (lambda (_id250024_) - (let ((__tmp256883 - (gensym _id250024_))) + (hash-keys _method-calls130323_))) + (_$methods132700_ + (map (lambda (_id132698_) + (let ((__tmp134989 + (gensym _id132698_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp256883))) - _methods250022_)) - (_g256884_ + __tmp134989))) + _methods132696_)) + (_g134990_ (for-each - (lambda (_g250027250030_ - _g250028250032_) + (lambda (_g132701132704_ + _g132702132706_) (let () (declare (not safe)) - (table-set! - _method-calls247649_ - _g250027250030_ - _g250028250032_))) - _methods250022_ - _$methods250026_)) - (_methods-bind250043_ - (map (lambda (_g250035250038_ - _g250036250040_) + (hash-put! + _method-calls130323_ + _g132701132704_ + _g132702132706_))) + _methods132696_ + _$methods132700_)) + (_methods-bind132717_ + (map (lambda (_g132709132712_ + _g132710132714_) (let () (declare (not safe)) - (_generate-method-bind247557_ - _$t250020_ - _g250035250038_ - _g250036250040_))) - _methods250022_ - _$methods250026_)) - (_slots250045_ + (_generate-method-bind130231_ + _$t132694_ + _g132709132712_ + _g132710132714_))) + _methods132696_ + _$methods132700_)) + (_slots132719_ (let () (declare (not safe)) - (hash-keys _slot-refs247650_))) - (_$slots250049_ - (map (lambda (_id250047_) - (let ((__tmp256885 - (gensym _id250047_))) + (hash-keys _slot-refs130324_))) + (_$slots132723_ + (map (lambda (_id132721_) + (let ((__tmp134991 + (gensym _id132721_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp256885))) - _slots250045_)) - (_g256886_ + __tmp134991))) + _slots132719_)) + (_g134992_ (for-each - (lambda (_g250050250053_ - _g250051250055_) + (lambda (_g132724132727_ + _g132725132729_) (let () (declare (not safe)) - (table-set! - _slot-refs247650_ - _g250050250053_ - _g250051250055_))) - _slots250045_ - _$slots250049_)) - (_slots-bind250066_ - (map (lambda (_g250058250061_ - _g250059250063_) + (hash-put! + _slot-refs130324_ + _g132724132727_ + _g132725132729_))) + _slots132719_ + _$slots132723_)) + (_slots-bind132740_ + (map (lambda (_g132732132735_ + _g132733132737_) (let () (declare (not safe)) - (_generate-slot-bind247558_ - _$t250020_ - _g250058250061_ - _g250059250063_))) - _slots250045_ - _$slots250049_)) - (_class-check250068_ + (_generate-slot-bind130232_ + _$t132694_ + _g132732132735_ + _g132733132737_))) + _slots132719_ + _$slots132723_)) + (_class-check132742_ (let () (declare (not safe)) (hash-keys - _class-type-check247651_))) - (_$class-check250071_ - (map (lambda (_g256887_) - (let ((__tmp256888 + _class-type-check130325_))) + (_$class-check132745_ + (map (lambda (_g134993_) + (let ((__tmp134994 (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp256888))) - _class-check250068_)) - (_g256889_ + (make-symbol__0 __tmp134994))) + _class-check132742_)) + (_g134995_ (for-each - (lambda (_g250072250075_ - _g250073250077_) + (lambda (_g132746132749_ + _g132747132751_) (let () (declare (not safe)) - (table-set! - _class-type-check247651_ - _g250072250075_ - _g250073250077_))) - _class-check250068_ - _$class-check250071_)) - (_class-check-bind250088_ - (map (lambda (_g250080250083_ - _g250081250085_) + (hash-put! + _class-type-check130325_ + _g132746132749_ + _g132747132751_))) + _class-check132742_ + _$class-check132745_)) + (_class-check-bind132762_ + (map (lambda (_g132754132757_ + _g132755132759_) (let () (declare (not safe)) - (_generate-class-check-bind247559_ - _$t250020_ - _g250080250083_ - _g250081250085_))) - _class-check250068_ - _$class-check250071_)) - (_struct-check-all250090_ + (_generate-class-check-bind130233_ + _$t132694_ + _g132754132757_ + _g132755132759_))) + _class-check132742_ + _$class-check132745_)) + (_struct-check-all132764_ (let () (declare (not safe)) (hash-merge - _struct-type-check247652_ - _struct-type-assert247653_))) - (_struct-check250092_ + _struct-type-check130326_ + _struct-type-assert130327_))) + (_struct-check132766_ (let () (declare (not safe)) (hash-keys - _struct-check-all250090_))) - (_$struct-check250095_ - (map (lambda (_g256890_) - (let ((__tmp256891 + _struct-check-all132764_))) + (_$struct-check132769_ + (map (lambda (_g134996_) + (let ((__tmp134997 (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp256891))) - _struct-check250092_)) - (_g256892_ + (make-symbol__0 __tmp134997))) + _struct-check132766_)) + (_g134998_ (for-each - (lambda (_g250096250099_ - _g250097250101_) + (lambda (_g132770132773_ + _g132771132775_) (let () (declare (not safe)) - (table-set! - _struct-check-all250090_ - _g250096250099_ - _g250097250101_))) - _struct-check250092_ - _$struct-check250095_)) - (_struct-check-bind250112_ - (map (lambda (_g250104250107_ - _g250105250109_) + (hash-put! + _struct-check-all132764_ + _g132770132773_ + _g132771132775_))) + _struct-check132766_ + _$struct-check132769_)) + (_struct-check-bind132786_ + (map (lambda (_g132778132781_ + _g132779132783_) (let () (declare (not safe)) - (_generate-struct-check-bind247560_ - _$t250020_ - _g250104250107_ - _g250105250109_))) - _struct-check250092_ - _$struct-check250095_)) - (_make-specializer-impl250123_ - (lambda (_struct-type-check1250114_ - _struct-type-check2250115_) - (let* ((_specializer-body250121_ - (map (lambda (_g250116250118_) + (_generate-struct-check-bind130234_ + _$t132694_ + _g132778132781_ + _g132779132783_))) + _struct-check132766_ + _$struct-check132769_)) + (_make-specializer-impl132797_ + (lambda (_struct-type-check1132788_ + _struct-type-check2132789_) + (let* ((_specializer-body132795_ + (map (lambda (_g132790132792_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g250116250118_ - _self249999_ - _$t250020_ - _method-calls247649_ - _slot-refs247650_ - _class-type-check247651_ - _struct-type-check1250114_ - _struct-type-check2250115_))) - _L249982_)) - (__tmp256893 - (let ((__tmp256894 - (let ((__tmp256896 - (let ((__tmp256897 + _g132790132792_ + _self132673_ + _$t132694_ + _method-calls130323_ + _slot-refs130324_ + _class-type-check130325_ + _struct-type-check1132788_ + _struct-type-check2132789_))) + _L132656_)) + (__tmp134999 + (let ((__tmp135000 + (let ((__tmp135002 + (let ((__tmp135003 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp256909 + (let ((__tmp135015 (let () (declare (not safe)) - (cons _L249645_ '()))) - (__tmp256898 - (let ((__tmp256899 - (let ((__tmp256900 - (let ((__tmp256902 - (let ((__tmp256903 + (cons _L132319_ '()))) + (__tmp135004 + (let ((__tmp135005 + (let ((__tmp135006 + (let ((__tmp135008 + (let ((__tmp135009 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp256908 + (let ((__tmp135014 (let () (declare (not safe)) - (cons _L249644_ '()))) - (__tmp256904 - (let ((__tmp256905 - (let ((__tmp256906 - (let ((__tmp256907 + (cons _L132318_ '()))) + (__tmp135010 + (let ((__tmp135011 + (let ((__tmp135012 + (let ((__tmp135013 (let () (declare (not safe)) - (cons _L249983_ - _specializer-body250121_)))) + (cons _L132657_ + _specializer-body132795_)))) (declare (not safe)) (cons '%#lambda - __tmp256907)))) + __tmp135013)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp256906 - _L249643_)))) + __tmp135012 + _L132317_)))) (declare (not safe)) - (cons __tmp256905 '())))) + (cons __tmp135011 '())))) (declare (not safe)) - (cons __tmp256908 __tmp256904)))) + (cons __tmp135014 __tmp135010)))) (declare (not safe)) - (cons __tmp256903 '()))) - (__tmp256901 - (let () (declare (not safe)) (cons _L249642_ '())))) + (cons __tmp135009 '()))) + (__tmp135007 + (let () (declare (not safe)) (cons _L132316_ '())))) (declare (not safe)) - (cons __tmp256902 __tmp256901)))) + (cons __tmp135008 __tmp135007)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp256900)))) + __tmp135006)))) (declare (not safe)) - (cons __tmp256899 '())))) + (cons __tmp135005 '())))) (declare (not safe)) - (cons __tmp256909 __tmp256898)))) + (cons __tmp135015 __tmp135004)))) (declare (not safe)) - (cons __tmp256897 '()))) - (__tmp256895 - (let () (declare (not safe)) (cons _L249641_ '())))) + (cons __tmp135003 '()))) + (__tmp135001 + (let () (declare (not safe)) (cons _L132315_ '())))) (declare (not safe)) - (cons __tmp256896 __tmp256895)))) + (cons __tmp135002 __tmp135001)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp256894)))) + __tmp135000)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp256893 - _stx247555_)))) - (_specializer-impl250125_ + __tmp134999 + _stx130229_)))) + (_specializer-impl132799_ (let () (declare (not safe)) - (_make-specializer-impl250123_ - _struct-check-all250090_ - _empty247654_))) - (_unchecked-specializer-impl250127_ + (_make-specializer-impl132797_ + _struct-check-all132764_ + _empty130328_))) + (_unchecked-specializer-impl132801_ (if (let () (declare (not safe)) - (_unchecked-specializer?247657_)) + (_unchecked-specializer?130331_)) (let () (declare (not safe)) - (_make-specializer-impl250123_ - _empty247654_ - _struct-check-all250090_)) + (_make-specializer-impl132797_ + _empty130328_ + _struct-check-all132764_)) '#f)) - (_specializer-impl250129_ + (_specializer-impl132803_ (let () (declare (not safe)) - (_generate-specializer-impl247561_ - _$t250020_ - _methods-bind250043_ - _slots-bind250066_ - _class-check-bind250088_ - _struct-check-bind250112_ - _specializer-impl250125_ - _lifted-specializer-id250018_ - _unchecked-specializer-impl250127_)))) - (let ((__tmp256911 + (_generate-specializer-impl130235_ + _$t132694_ + _methods-bind132717_ + _slots-bind132740_ + _class-check-bind132762_ + _struct-check-bind132786_ + _specializer-impl132799_ + _lifted-specializer-id132692_ + _unchecked-specializer-impl132801_)))) + (let ((__tmp135017 (let () (declare (not safe)) - (gx#stx-e _L247630_))) - (__tmp256910 + (gx#stx-e _L130304_))) + (__tmp135016 (let () (declare (not safe)) - (gx#stx-e _specializer-id250011_)))) + (gx#stx-e _specializer-id132685_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp256911 + __tmp135017 '" => " - __tmp256910)) + __tmp135016)) (let () (declare (not safe)) - (_generate-specializer-def247562_ - _L247630_ - _specializer-id250011_ - _specializer-impl250129_ - _lifted-specializer-id250018_ - _unchecked-specializer-impl250127_)))))) - _tl249954249979_ - _hd249955249977_))) + (_generate-specializer-def130236_ + _L130304_ + _specializer-id132685_ + _specializer-impl132803_ + _lifted-specializer-id132692_ + _unchecked-specializer-impl132801_)))))) + _tl132628132653_ + _hd132629132651_))) (let () (declare (not safe)) - (_g249947249961_ _g249948249964_))))) + (_g132621132635_ _g132622132638_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g249947249961_ - _g249948249964_)))))) + (_g132621132635_ + _g132622132638_)))))) (declare (not safe)) - (_g249946250132_ _L249643_)) + (_g132620132806_ _L132317_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L249643_)) - (let* ((_g250135250165_ - (lambda (_g250136250162_) + (gxc#opt-lambda-expr? _L132317_)) + (let* ((_g132809132839_ + (lambda (_g132810132836_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g250136250162_)))) - (_g250134250790_ - (lambda (_g250136250168_) + _g132810132836_)))) + (_g132808133464_ + (lambda (_g132810132842_) (if (let () (declare (not safe)) (gx#stx-pair? - _g250136250168_)) - (let ((_e250142250170_ + _g132810132842_)) + (let ((_e132816132844_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _g250136250168_)))) - (let ((_hd250141250173_ - (let () (declare (not safe)) (##car _e250142250170_))) - (_tl250140250175_ - (let () (declare (not safe)) (##cdr _e250142250170_)))) + (gx#stx-e _g132810132842_)))) + (let ((_hd132815132847_ + (let () (declare (not safe)) (##car _e132816132844_))) + (_tl132814132849_ + (let () (declare (not safe)) (##cdr _e132816132844_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl250140250175_)) - (let ((_e250145250178_ + (gx#stx-pair? _tl132814132849_)) + (let ((_e132819132852_ (let () (declare (not safe)) - (gx#stx-e _tl250140250175_)))) - (let ((_hd250144250181_ + (gx#stx-e _tl132814132849_)))) + (let ((_hd132818132855_ (let () (declare (not safe)) - (##car _e250145250178_))) - (_tl250143250183_ + (##car _e132819132852_))) + (_tl132817132857_ (let () (declare (not safe)) - (##cdr _e250145250178_)))) + (##cdr _e132819132852_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd250144250181_)) - (let ((_e250148250186_ + (gx#stx-pair? _hd132818132855_)) + (let ((_e132822132860_ (let () (declare (not safe)) - (gx#stx-e _hd250144250181_)))) - (let ((_hd250147250189_ + (gx#stx-e _hd132818132855_)))) + (let ((_hd132821132863_ (let () (declare (not safe)) - (##car _e250148250186_))) - (_tl250146250191_ + (##car _e132822132860_))) + (_tl132820132865_ (let () (declare (not safe)) - (##cdr _e250148250186_)))) + (##cdr _e132822132860_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd250147250189_)) - (let ((_e250151250194_ + (gx#stx-pair? _hd132821132863_)) + (let ((_e132825132868_ (let () (declare (not safe)) - (gx#stx-e _hd250147250189_)))) - (let ((_hd250150250197_ + (gx#stx-e _hd132821132863_)))) + (let ((_hd132824132871_ (let () (declare (not safe)) - (##car _e250151250194_))) - (_tl250149250199_ + (##car _e132825132868_))) + (_tl132823132873_ (let () (declare (not safe)) - (##cdr _e250151250194_)))) + (##cdr _e132825132868_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd250150250197_)) - (let ((_e250154250202_ + _hd132824132871_)) + (let ((_e132828132876_ (let () (declare (not safe)) (gx#stx-e - _hd250150250197_)))) - (let ((_hd250153250205_ + _hd132824132871_)))) + (let ((_hd132827132879_ (let () (declare (not safe)) - (##car _e250154250202_))) - (_tl250152250207_ + (##car _e132828132876_))) + (_tl132826132881_ (let () (declare (not safe)) - (##cdr _e250154250202_)))) + (##cdr _e132828132876_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl250152250207_)) + _tl132826132881_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl250149250199_)) - (let ((_e250157250210_ + _tl132823132873_)) + (let ((_e132831132884_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl250149250199_)))) - (let ((_hd250156250213_ + (gx#stx-e _tl132823132873_)))) + (let ((_hd132830132887_ (let () (declare (not safe)) - (##car _e250157250210_))) - (_tl250155250215_ + (##car _e132831132884_))) + (_tl132829132889_ (let () (declare (not safe)) - (##cdr _e250157250210_)))) + (##cdr _e132831132884_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl250155250215_)) + (gx#stx-null? _tl132829132889_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl250146250191_)) + (gx#stx-null? _tl132820132865_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl250143250183_)) - (let ((_e250160250218_ + (gx#stx-pair? _tl132817132857_)) + (let ((_e132834132892_ (let () (declare (not safe)) - (gx#stx-e _tl250143250183_)))) - (let ((_hd250159250221_ + (gx#stx-e _tl132817132857_)))) + (let ((_hd132833132895_ (let () (declare (not safe)) - (##car _e250160250218_))) - (_tl250158250223_ + (##car _e132834132892_))) + (_tl132832132897_ (let () (declare (not safe)) - (##cdr _e250160250218_)))) + (##cdr _e132834132892_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl250158250223_)) - ((lambda (_L250226_ - _L250227_ - _L250228_) - (let* ((_g250251250265_ - (lambda (_g250252250262_) + (gx#stx-null? _tl132832132897_)) + ((lambda (_L132900_ + _L132901_ + _L132902_) + (let* ((_g132925132939_ + (lambda (_g132926132936_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g250252250262_)))) - (_g250250250306_ - (lambda (_g250252250268_) + _g132926132936_)))) + (_g132924132980_ + (lambda (_g132926132942_) (if (let () (declare (not safe)) (gx#stx-pair? - _g250252250268_)) - (let ((_e250257250270_ + _g132926132942_)) + (let ((_e132931132944_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g250252250268_)))) - (let ((_hd250256250273_ + (gx#stx-e _g132926132942_)))) + (let ((_hd132930132947_ (let () (declare (not safe)) - (##car _e250257250270_))) - (_tl250255250275_ + (##car _e132931132944_))) + (_tl132929132949_ (let () (declare (not safe)) - (##cdr _e250257250270_)))) + (##cdr _e132931132944_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl250255250275_)) - (let ((_e250260250278_ + (gx#stx-pair? _tl132929132949_)) + (let ((_e132934132952_ (let () (declare (not safe)) - (gx#stx-e _tl250255250275_)))) - (let ((_hd250259250281_ + (gx#stx-e _tl132929132949_)))) + (let ((_hd132933132955_ (let () (declare (not safe)) - (##car _e250260250278_))) - (_tl250258250283_ + (##car _e132934132952_))) + (_tl132932132957_ (let () (declare (not safe)) - (##cdr _e250260250278_)))) - ((lambda (_L250286_ _L250287_) - (let ((_self250300_ + (##cdr _e132934132952_)))) + ((lambda (_L132960_ _L132961_) + (let ((_self132974_ (list-ref - _L250287_ - _self-index249944_))) + _L132961_ + _self-index132618_))) (for-each - (lambda (_g250301250303_) + (lambda (_g132975132977_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g250301250303_ - _self250300_ - _method-calls247649_ - _slot-refs247650_ - _class-type-check247651_ - _struct-type-check247652_ - _struct-type-assert247653_))) - _L250286_))) - _tl250258250283_ - _hd250259250281_))) + _g132975132977_ + _self132974_ + _method-calls130323_ + _slot-refs130324_ + _class-type-check130325_ + _struct-type-check130326_ + _struct-type-assert130327_))) + _L132960_))) + _tl132932132957_ + _hd132933132955_))) (let () (declare (not safe)) - (_g250251250265_ _g250252250268_))))) + (_g132925132939_ _g132926132942_))))) (let () (declare (not safe)) - (_g250251250265_ _g250252250268_)))))) + (_g132925132939_ _g132926132942_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g250250250306_ _L250227_)) - (let* ((_g250309250328_ - (lambda (_g250310250325_) + (_g132924132980_ _L132901_)) + (let* ((_g132983133002_ + (lambda (_g132984132999_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g250310250325_)))) - (_g250308250433_ - (lambda (_g250310250331_) + _g132984132999_)))) + (_g132982133107_ + (lambda (_g132984133005_) (if (let () (declare (not safe)) (gx#stx-pair? - _g250310250331_)) - (let ((_e250314250333_ + _g132984133005_)) + (let ((_e132988133007_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g250310250331_)))) - (let ((_hd250313250336_ + (gx#stx-e _g132984133005_)))) + (let ((_hd132987133010_ (let () (declare (not safe)) - (##car _e250314250333_))) - (_tl250312250338_ + (##car _e132988133007_))) + (_tl132986133012_ (let () (declare (not safe)) - (##cdr _e250314250333_)))) + (##cdr _e132988133007_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl250312250338_)) - (let ((_g256828_ + (gx#stx-pair/null? _tl132986133012_)) + (let ((_g134934_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl250312250338_ + _tl132986133012_ '0)))) (begin - (let ((_g256829_ + (let ((_g134935_ (let () (declare (not safe)) - (if (##values? _g256828_) - (##vector-length _g256828_) + (if (##values? _g134934_) + (##vector-length _g134934_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g256829_ 2))) + (##fx= _g134935_ 2))) (error "Context expects 2 values" - _g256829_))) - (let ((_target250315250341_ + _g134935_))) + (let ((_target132989133015_ (let () (declare (not safe)) - (##vector-ref _g256828_ 0))) - (_tl250317250343_ + (##vector-ref _g134934_ 0))) + (_tl132991133017_ (let () (declare (not safe)) - (##vector-ref _g256828_ 1)))) + (##vector-ref _g134934_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl250317250343_)) - (letrec ((_loop250318250346_ - (lambda (_hd250316250349_ - _clause250322250351_) + (gx#stx-null? _tl132991133017_)) + (letrec ((_loop132992133020_ + (lambda (_hd132990133023_ + _clause132996133025_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd250316250349_)) - (let ((_e250319250354_ + _hd132990133023_)) + (let ((_e132993133028_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd250316250349_)))) - (let ((_lp-hd250320250357_ - (let () (declare (not safe)) (##car _e250319250354_))) - (_lp-tl250321250359_ - (let () (declare (not safe)) (##cdr _e250319250354_)))) - (let ((__tmp256831 + (gx#stx-e _hd132990133023_)))) + (let ((_lp-hd132994133031_ + (let () (declare (not safe)) (##car _e132993133028_))) + (_lp-tl132995133033_ + (let () (declare (not safe)) (##cdr _e132993133028_)))) + (let ((__tmp134937 (let () (declare (not safe)) - (cons _lp-hd250320250357_ _clause250322250351_)))) + (cons _lp-hd132994133031_ _clause132996133025_)))) (declare (not safe)) - (_loop250318250346_ _lp-tl250321250359_ __tmp256831)))) - (let ((_clause250323250362_ (reverse _clause250322250351_))) - ((lambda (_L250365_) + (_loop132992133020_ _lp-tl132995133033_ __tmp134937)))) + (let ((_clause132997133036_ (reverse _clause132996133025_))) + ((lambda (_L133039_) (for-each - (lambda (_clause250378_) - (let* ((_g250380250391_ - (lambda (_g250381250388_) + (lambda (_clause133052_) + (let* ((_g133054133065_ + (lambda (_g133055133062_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g250381250388_)))) - (_g250379250423_ - (lambda (_g250381250394_) + _g133055133062_)))) + (_g133053133097_ + (lambda (_g133055133068_) (if (let () (declare (not safe)) - (gx#stx-pair? _g250381250394_)) - (let ((_e250386250396_ + (gx#stx-pair? _g133055133068_)) + (let ((_e133060133070_ (let () (declare (not safe)) - (gx#stx-e _g250381250394_)))) - (let ((_hd250385250399_ + (gx#stx-e _g133055133068_)))) + (let ((_hd133059133073_ (let () (declare (not safe)) - (##car _e250386250396_))) - (_tl250384250401_ + (##car _e133060133070_))) + (_tl133058133075_ (let () (declare (not safe)) - (##cdr _e250386250396_)))) - ((lambda (_L250404_ _L250405_) - (let ((_self250417_ + (##cdr _e133060133070_)))) + ((lambda (_L133078_ _L133079_) + (let ((_self133091_ (list-ref - _L250405_ - _self-index249944_))) + _L133079_ + _self-index132618_))) (for-each - (lambda (_g250418250420_) + (lambda (_g133092133094_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g250418250420_ - _self250417_ - _method-calls247649_ - _slot-refs247650_ - _class-type-check247651_ - _struct-type-check247652_ - _struct-type-assert247653_))) - _L250404_))) - _tl250384250401_ - _hd250385250399_))) + _g133092133094_ + _self133091_ + _method-calls130323_ + _slot-refs130324_ + _class-type-check130325_ + _struct-type-check130326_ + _struct-type-assert130327_))) + _L133078_))) + _tl133058133075_ + _hd133059133073_))) (let () (declare (not safe)) - (_g250380250391_ _g250381250394_)))))) + (_g133054133065_ _g133055133068_)))))) (declare (not safe)) - (_g250379250423_ _clause250378_))) - (let ((__tmp256830 - (lambda (_g250425250428_ _g250426250430_) + (_g133053133097_ _clause133052_))) + (let ((__tmp134936 + (lambda (_g133099133102_ _g133100133104_) (let () (declare (not safe)) - (cons _g250425250428_ _g250426250430_))))) + (cons _g133099133102_ _g133100133104_))))) (declare (not safe)) - (foldr1 __tmp256830 '() _L250365_)))) - _clause250323250362_)))))) + (foldr1 __tmp134936 '() _L133039_)))) + _clause132997133036_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop250318250346_ - _target250315250341_ + (_loop132992133020_ + _target132989133015_ '()))) (let () (declare (not safe)) - (_g250309250328_ _g250310250331_)))))) + (_g132983133002_ _g132984133005_)))))) (let () (declare (not safe)) - (_g250309250328_ _g250310250331_))))) + (_g132983133002_ _g132984133005_))))) (let () (declare (not safe)) - (_g250309250328_ _g250310250331_)))))) + (_g132983133002_ _g132984133005_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g250308250433_ _L250226_)) + (_g132982133107_ _L132900_)) (if (let () (declare (not safe)) - (_no-specializer?247656_)) - _stx247555_ - (let* ((_specializer-id250442_ - (let* ((_id250436_ + (_no-specializer?130330_)) + _stx130229_ + (let* ((_specializer-id133116_ + (let* ((_id133110_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp256832 + (let ((__tmp134938 (let () (declare (not safe)) - (gx#stx-e _L247630_)))) + (gx#stx-e _L130304_)))) (declare (not safe)) - (make-symbol__1 __tmp256832 '"::specialize"))) - (_specializer-id250439_ - (let ((__tmp256833 + (make-symbol__1 __tmp134938 '"::specialize"))) + (_specializer-id133113_ + (let ((__tmp134939 (let () (declare (not safe)) - (gx#stx-source _stx247555_)))) + (gx#stx-source _stx130229_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id250436_ __tmp256833)))) + (gx#core-quote-syntax__1 _id133110_ __tmp134939)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id250439_)) - _specializer-id250439_)) - (_lifted-specializer-id250449_ + (gx#core-bind-runtime!__0 _specializer-id133113_)) + _specializer-id133113_)) + (_lifted-specializer-id133123_ (if (let () (declare (not safe)) - (_lift-unchecked-specializer?247658_)) - (let* ((_id250444_ - (let ((__tmp256834 + (_lift-unchecked-specializer?130332_)) + (let* ((_id133118_ + (let ((__tmp134940 (let () (declare (not safe)) - (gx#stx-e _L247630_)))) + (gx#stx-e _L130304_)))) (declare (not safe)) (make-symbol__1 - __tmp256834 + __tmp134940 '"::specialize::unchecked"))) - (_lifted-specializer-id250446_ - (let ((__tmp256835 + (_lifted-specializer-id133120_ + (let ((__tmp134941 (let () (declare (not safe)) - (gx#stx-source _stx247555_)))) + (gx#stx-source _stx130229_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id250444_ - __tmp256835)))) + _id133118_ + __tmp134941)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _lifted-specializer-id250446_)) - _lifted-specializer-id250446_) + _lifted-specializer-id133120_)) + _lifted-specializer-id133120_) '#f)) - (_$t250451_ - (let ((__tmp256836 (gensym '__t))) + (_$t133125_ + (let ((__tmp134942 (gensym '__t))) (declare (not safe)) - (make-symbol__0 __tmp256836))) - (_methods250453_ + (make-symbol__0 __tmp134942))) + (_methods133127_ (let () (declare (not safe)) - (hash-keys _method-calls247649_))) - (_$methods250457_ - (map (lambda (_id250455_) - (let ((__tmp256837 (gensym _id250455_))) + (hash-keys _method-calls130323_))) + (_$methods133131_ + (map (lambda (_id133129_) + (let ((__tmp134943 (gensym _id133129_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp256837))) - _methods250453_)) - (_g256838_ + (make-symbol__1 '"__" __tmp134943))) + _methods133127_)) + (_g134944_ (for-each - (lambda (_g250458250461_ _g250459250463_) + (lambda (_g133132133135_ _g133133133137_) (let () (declare (not safe)) - (table-set! - _method-calls247649_ - _g250458250461_ - _g250459250463_))) - _methods250453_ - _$methods250457_)) - (_methods-bind250474_ - (map (lambda (_g250466250469_ _g250467250471_) + (hash-put! + _method-calls130323_ + _g133132133135_ + _g133133133137_))) + _methods133127_ + _$methods133131_)) + (_methods-bind133148_ + (map (lambda (_g133140133143_ _g133141133145_) (let () (declare (not safe)) - (_generate-method-bind247557_ - _$t250451_ - _g250466250469_ - _g250467250471_))) - _methods250453_ - _$methods250457_)) - (_slots250476_ - (let () (declare (not safe)) (hash-keys _slot-refs247650_))) - (_$slots250480_ - (map (lambda (_id250478_) - (let ((__tmp256839 (gensym _id250478_))) + (_generate-method-bind130231_ + _$t133125_ + _g133140133143_ + _g133141133145_))) + _methods133127_ + _$methods133131_)) + (_slots133150_ + (let () (declare (not safe)) (hash-keys _slot-refs130324_))) + (_$slots133154_ + (map (lambda (_id133152_) + (let ((__tmp134945 (gensym _id133152_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp256839))) - _slots250476_)) - (_g256840_ + (make-symbol__1 '"__" __tmp134945))) + _slots133150_)) + (_g134946_ (for-each - (lambda (_g250481250484_ _g250482250486_) + (lambda (_g133155133158_ _g133156133160_) (let () (declare (not safe)) - (table-set! - _slot-refs247650_ - _g250481250484_ - _g250482250486_))) - _slots250476_ - _$slots250480_)) - (_slots-bind250497_ - (map (lambda (_g250489250492_ _g250490250494_) + (hash-put! + _slot-refs130324_ + _g133155133158_ + _g133156133160_))) + _slots133150_ + _$slots133154_)) + (_slots-bind133171_ + (map (lambda (_g133163133166_ _g133164133168_) (let () (declare (not safe)) - (_generate-slot-bind247558_ - _$t250451_ - _g250489250492_ - _g250490250494_))) - _slots250476_ - _$slots250480_)) - (_class-check250499_ + (_generate-slot-bind130232_ + _$t133125_ + _g133163133166_ + _g133164133168_))) + _slots133150_ + _$slots133154_)) + (_class-check133173_ (let () (declare (not safe)) - (hash-keys _class-type-check247651_))) - (_$class-check250502_ - (map (lambda (_g256841_) - (let ((__tmp256842 (gensym '__class))) + (hash-keys _class-type-check130325_))) + (_$class-check133176_ + (map (lambda (_g134947_) + (let ((__tmp134948 (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp256842))) - _class-check250499_)) - (_g256843_ + (make-symbol__0 __tmp134948))) + _class-check133173_)) + (_g134949_ (for-each - (lambda (_g250503250506_ _g250504250508_) + (lambda (_g133177133180_ _g133178133182_) (let () (declare (not safe)) - (table-set! - _class-type-check247651_ - _g250503250506_ - _g250504250508_))) - _class-check250499_ - _$class-check250502_)) - (_class-check-bind250519_ - (map (lambda (_g250511250514_ _g250512250516_) + (hash-put! + _class-type-check130325_ + _g133177133180_ + _g133178133182_))) + _class-check133173_ + _$class-check133176_)) + (_class-check-bind133193_ + (map (lambda (_g133185133188_ _g133186133190_) (let () (declare (not safe)) - (_generate-class-check-bind247559_ - _$t250451_ - _g250511250514_ - _g250512250516_))) - _class-check250499_ - _$class-check250502_)) - (_struct-check-all250521_ + (_generate-class-check-bind130233_ + _$t133125_ + _g133185133188_ + _g133186133190_))) + _class-check133173_ + _$class-check133176_)) + (_struct-check-all133195_ (let () (declare (not safe)) (hash-merge - _struct-type-check247652_ - _struct-type-assert247653_))) - (_struct-check250523_ + _struct-type-check130326_ + _struct-type-assert130327_))) + (_struct-check133197_ (let () (declare (not safe)) - (hash-keys _struct-check-all250521_))) - (_$struct-check250526_ - (map (lambda (_g256844_) - (let ((__tmp256845 (gensym '__class))) + (hash-keys _struct-check-all133195_))) + (_$struct-check133200_ + (map (lambda (_g134950_) + (let ((__tmp134951 (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp256845))) - _struct-check250523_)) - (_g256846_ + (make-symbol__0 __tmp134951))) + _struct-check133197_)) + (_g134952_ (for-each - (lambda (_g250527250530_ _g250528250532_) + (lambda (_g133201133204_ _g133202133206_) (let () (declare (not safe)) - (table-set! - _struct-check-all250521_ - _g250527250530_ - _g250528250532_))) - _struct-check250523_ - _$struct-check250526_)) - (_struct-check-bind250543_ - (map (lambda (_g250535250538_ _g250536250540_) + (hash-put! + _struct-check-all133195_ + _g133201133204_ + _g133202133206_))) + _struct-check133197_ + _$struct-check133200_)) + (_struct-check-bind133217_ + (map (lambda (_g133209133212_ _g133210133214_) (let () (declare (not safe)) - (_generate-struct-check-bind247560_ - _$t250451_ - _g250535250538_ - _g250536250540_))) - _struct-check250523_ - _$struct-check250526_)) - (_make-specializer-lambda-expr250629_ - (lambda (_struct-type-check1250545_ - _struct-type-check2250546_) - (let* ((_g250548250562_ - (lambda (_g250549250559_) + (_generate-struct-check-bind130234_ + _$t133125_ + _g133209133212_ + _g133210133214_))) + _struct-check133197_ + _$struct-check133200_)) + (_make-specializer-lambda-expr133303_ + (lambda (_struct-type-check1133219_ + _struct-type-check2133220_) + (let* ((_g133222133236_ + (lambda (_g133223133233_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g250549250559_)))) - (_g250547250626_ - (lambda (_g250549250565_) + _g133223133233_)))) + (_g133221133300_ + (lambda (_g133223133239_) (if (let () (declare (not safe)) - (gx#stx-pair? _g250549250565_)) - (let ((_e250554250567_ + (gx#stx-pair? _g133223133239_)) + (let ((_e133228133241_ (let () (declare (not safe)) - (gx#stx-e _g250549250565_)))) - (let ((_hd250553250570_ + (gx#stx-e _g133223133239_)))) + (let ((_hd133227133244_ (let () (declare (not safe)) - (##car _e250554250567_))) - (_tl250552250572_ + (##car _e133228133241_))) + (_tl133226133246_ (let () (declare (not safe)) - (##cdr _e250554250567_)))) + (##cdr _e133228133241_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl250552250572_)) - (let ((_e250557250575_ + (gx#stx-pair? _tl133226133246_)) + (let ((_e133231133249_ (let () (declare (not safe)) (gx#stx-e - _tl250552250572_)))) - (let ((_hd250556250578_ + _tl133226133246_)))) + (let ((_hd133230133252_ (let () (declare (not safe)) - (##car _e250557250575_))) - (_tl250555250580_ + (##car _e133231133249_))) + (_tl133229133254_ (let () (declare (not safe)) - (##cdr _e250557250575_)))) - ((lambda (_L250583_ _L250584_) - (let* ((_self250617_ + (##cdr _e133231133249_)))) + ((lambda (_L133257_ _L133258_) + (let* ((_self133291_ (list-ref - _L250584_ - _self-index249944_)) - (_body250623_ - (map (lambda (_g250618250620_) + _L133258_ + _self-index132618_)) + (_body133297_ + (map (lambda (_g133292133294_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gxc#apply-subst-object-refs - _g250618250620_ - _self250617_ - _$t250451_ - _method-calls247649_ - _slot-refs247650_ - _class-type-check247651_ - _struct-type-check1250545_ - _struct-type-check2250546_))) - _L250583_))) + _g133292133294_ + _self133291_ + _$t133125_ + _method-calls130323_ + _slot-refs130324_ + _class-type-check130325_ + _struct-type-check1133219_ + _struct-type-check2133220_))) + _L133257_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp256847 - (let ((__tmp256848 + (let ((__tmp134953 + (let ((__tmp134954 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L250584_ _body250623_)))) + (cons _L133258_ _body133297_)))) (declare (not safe)) - (cons '%#lambda __tmp256848)))) + (cons '%#lambda __tmp134954)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp256847 - _L250227_)))) - _tl250555250580_ - _hd250556250578_))) + __tmp134953 + _L132901_)))) + _tl133229133254_ + _hd133230133252_))) (let () (declare (not safe)) - (_g250548250562_ - _g250549250565_))))) + (_g133222133236_ + _g133223133239_))))) (let () (declare (not safe)) - (_g250548250562_ _g250549250565_)))))) + (_g133222133236_ _g133223133239_)))))) (declare (not safe)) - (_g250547250626_ _L250227_)))) - (_make-specializer-case-lambda-expr250768_ - (lambda (_struct-type-check1250631_ - _struct-type-check2250632_) - (let* ((_g250634250653_ - (lambda (_g250635250650_) + (_g133221133300_ _L132901_)))) + (_make-specializer-case-lambda-expr133442_ + (lambda (_struct-type-check1133305_ + _struct-type-check2133306_) + (let* ((_g133308133327_ + (lambda (_g133309133324_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g250635250650_)))) - (_g250633250765_ - (lambda (_g250635250656_) + _g133309133324_)))) + (_g133307133439_ + (lambda (_g133309133330_) (if (let () (declare (not safe)) - (gx#stx-pair? _g250635250656_)) - (let ((_e250639250658_ + (gx#stx-pair? _g133309133330_)) + (let ((_e133313133332_ (let () (declare (not safe)) - (gx#stx-e _g250635250656_)))) - (let ((_hd250638250661_ + (gx#stx-e _g133309133330_)))) + (let ((_hd133312133335_ (let () (declare (not safe)) - (##car _e250639250658_))) - (_tl250637250663_ + (##car _e133313133332_))) + (_tl133311133337_ (let () (declare (not safe)) - (##cdr _e250639250658_)))) + (##cdr _e133313133332_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl250637250663_)) - (let ((_g256849_ + _tl133311133337_)) + (let ((_g134955_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl250637250663_ + _tl133311133337_ '0)))) (begin - (let ((_g256850_ + (let ((_g134956_ (let () (declare (not safe)) (if (##values? - _g256849_) + _g134955_) (##vector-length - _g256849_) + _g134955_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g256850_ + (##fx= _g134956_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g256850_))) - (let ((_target250640250666_ + _g134956_))) + (let ((_target133314133340_ (let () (declare (not safe)) (##vector-ref - _g256849_ + _g134955_ 0))) - (_tl250642250668_ + (_tl133316133342_ (let () (declare (not safe)) (##vector-ref - _g256849_ + _g134955_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl250642250668_)) - (letrec ((_loop250643250671_ - (lambda (_hd250641250674_ + _tl133316133342_)) + (letrec ((_loop133317133345_ + (lambda (_hd133315133348_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause250647250676_) + _clause133321133350_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd250641250674_)) - (let ((_e250644250679_ + (gx#stx-pair? _hd133315133348_)) + (let ((_e133318133353_ (let () (declare (not safe)) - (gx#stx-e _hd250641250674_)))) - (let ((_lp-hd250645250682_ + (gx#stx-e _hd133315133348_)))) + (let ((_lp-hd133319133356_ (let () (declare (not safe)) - (##car _e250644250679_))) - (_lp-tl250646250684_ + (##car _e133318133353_))) + (_lp-tl133320133358_ (let () (declare (not safe)) - (##cdr _e250644250679_)))) - (let ((__tmp256853 + (##cdr _e133318133353_)))) + (let ((__tmp134959 (let () (declare (not safe)) - (cons _lp-hd250645250682_ - _clause250647250676_)))) + (cons _lp-hd133319133356_ + _clause133321133350_)))) (declare (not safe)) - (_loop250643250671_ - _lp-tl250646250684_ - __tmp256853)))) - (let ((_clause250648250687_ - (reverse _clause250647250676_))) - ((lambda (_L250690_) - (let* ((_clauses250763_ - (map (lambda (_clause250705_) - (let* ((_g250707250718_ - (lambda (_g250708250715_) + (_loop133317133345_ + _lp-tl133320133358_ + __tmp134959)))) + (let ((_clause133322133361_ + (reverse _clause133321133350_))) + ((lambda (_L133364_) + (let* ((_clauses133437_ + (map (lambda (_clause133379_) + (let* ((_g133381133392_ + (lambda (_g133382133389_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g250708250715_)))) - (_g250706250753_ - (lambda (_g250708250721_) + _g133382133389_)))) + (_g133380133427_ + (lambda (_g133382133395_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _g250708250721_)) - (let ((_e250713250723_ + (gx#stx-pair? _g133382133395_)) + (let ((_e133387133397_ (let () (declare (not safe)) - (gx#stx-e _g250708250721_)))) - (let ((_hd250712250726_ + (gx#stx-e _g133382133395_)))) + (let ((_hd133386133400_ (let () (declare (not safe)) - (##car _e250713250723_))) - (_tl250711250728_ + (##car _e133387133397_))) + (_tl133385133402_ (let () (declare (not safe)) - (##cdr _e250713250723_)))) - ((lambda (_L250731_ _L250732_) - (let* ((_self250744_ - (list-ref _L250732_ _self-index249944_)) - (_body250750_ - (map (lambda (_g250745250747_) + (##cdr _e133387133397_)))) + ((lambda (_L133405_ _L133406_) + (let* ((_self133418_ + (list-ref _L133406_ _self-index132618_)) + (_body133424_ + (map (lambda (_g133419133421_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g250745250747_ - _self250744_ - _$t250451_ - _method-calls247649_ - _slot-refs247650_ - _class-type-check247651_ - _struct-type-check1250631_ - _struct-type-check2250632_))) - _L250731_))) + _g133419133421_ + _self133418_ + _$t133125_ + _method-calls130323_ + _slot-refs130324_ + _class-type-check130325_ + _struct-type-check1133305_ + _struct-type-check2133306_))) + _L133405_))) (let () (declare (not safe)) - (cons _L250732_ _body250750_)))) - _tl250711250728_ - _hd250712250726_))) + (cons _L133406_ _body133424_)))) + _tl133385133402_ + _hd133386133400_))) (let () (declare (not safe)) - (_g250707250718_ _g250708250721_)))))) + (_g133381133392_ _g133382133395_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g250706250753_ - _clause250705_))) - (let ((__tmp256851 - (lambda (_g250755250758_ - _g250756250760_) + (_g133380133427_ + _clause133379_))) + (let ((__tmp134957 + (lambda (_g133429133432_ + _g133430133434_) (let () (declare (not safe)) - (cons _g250755250758_ - _g250756250760_))))) + (cons _g133429133432_ + _g133430133434_))))) (declare (not safe)) - (foldr1 __tmp256851 + (foldr1 __tmp134957 '() - _L250690_)))) - (__tmp256852 + _L133364_)))) + (__tmp134958 (let () (declare (not safe)) (cons '%#case-lambda - _clauses250763_)))) + _clauses133437_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp256852 - _L250226_))) - _clause250648250687_)))))) + __tmp134958 + _L132900_))) + _clause133322133361_)))))) (let () (declare (not safe)) - (_loop250643250671_ _target250640250666_ '()))) + (_loop133317133345_ _target133314133340_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g250634250653_ - _g250635250656_)))))) + (_g133308133327_ + _g133309133330_)))))) (let () (declare (not safe)) - (_g250634250653_ - _g250635250656_))))) + (_g133308133327_ + _g133309133330_))))) (let () (declare (not safe)) - (_g250634250653_ _g250635250656_)))))) + (_g133308133327_ _g133309133330_)))))) (declare (not safe)) - (_g250633250765_ _L250226_)))) - (_make-specializer-impl250773_ - (lambda (_specializer-lambda-expr250770_ - _specializer-case-lambda-expr250771_) - (let ((__tmp256854 - (let ((__tmp256855 - (let ((__tmp256857 - (let ((__tmp256858 - (let ((__tmp256875 + (_g133307133439_ _L132900_)))) + (_make-specializer-impl133447_ + (lambda (_specializer-lambda-expr133444_ + _specializer-case-lambda-expr133445_) + (let ((__tmp134960 + (let ((__tmp134961 + (let ((__tmp134963 + (let ((__tmp134964 + (let ((__tmp134981 (let () (declare (not safe)) - (cons _L249645_ '()))) - (__tmp256859 - (let ((__tmp256860 - (let ((__tmp256861 + (cons _L132319_ '()))) + (__tmp134965 + (let ((__tmp134966 + (let ((__tmp134967 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp256863 - (let ((__tmp256864 - (let ((__tmp256874 + (let ((__tmp134969 + (let ((__tmp134970 + (let ((__tmp134980 (let () (declare (not safe)) - (cons _L249644_ '()))) - (__tmp256865 - (let ((__tmp256866 - (let ((__tmp256867 - (let ((__tmp256868 + (cons _L132318_ '()))) + (__tmp134971 + (let ((__tmp134972 + (let ((__tmp134973 + (let ((__tmp134974 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp256870 - (let ((__tmp256871 - (let ((__tmp256873 + (let ((__tmp134976 + (let ((__tmp134977 + (let ((__tmp134979 (let () (declare (not safe)) - (cons _L250228_ '()))) - (__tmp256872 + (cons _L132902_ '()))) + (__tmp134978 (let () (declare (not safe)) - (cons _specializer-lambda-expr250770_ + (cons _specializer-lambda-expr133444_ '())))) (declare (not safe)) - (cons __tmp256873 - __tmp256872)))) + (cons __tmp134979 + __tmp134978)))) (declare (not safe)) - (cons __tmp256871 '()))) - (__tmp256869 + (cons __tmp134977 '()))) + (__tmp134975 (let () (declare (not safe)) - (cons _specializer-case-lambda-expr250771_ + (cons _specializer-case-lambda-expr133445_ '())))) (declare (not safe)) - (cons __tmp256870 __tmp256869)))) + (cons __tmp134976 __tmp134975)))) (declare (not safe)) - (cons '%#let-values __tmp256868)))) + (cons '%#let-values __tmp134974)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp256867 _stx247555_)))) + (gxc#xform-wrap-source __tmp134973 _stx130229_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp256866 '())))) + (cons __tmp134972 '())))) (declare (not safe)) - (cons __tmp256874 __tmp256865)))) + (cons __tmp134980 __tmp134971)))) (declare (not safe)) - (cons __tmp256864 '()))) - (__tmp256862 + (cons __tmp134970 '()))) + (__tmp134968 (let () (declare (not safe)) - (cons _L249642_ '())))) + (cons _L132316_ '())))) (declare (not safe)) - (cons __tmp256863 __tmp256862)))) + (cons __tmp134969 __tmp134968)))) (declare (not safe)) - (cons '%#let-values __tmp256861)))) + (cons '%#let-values __tmp134967)))) (declare (not safe)) - (cons __tmp256860 '())))) + (cons __tmp134966 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp256875 - __tmp256859)))) + (cons __tmp134981 + __tmp134965)))) (declare (not safe)) - (cons __tmp256858 '()))) - (__tmp256856 + (cons __tmp134964 '()))) + (__tmp134962 (let () (declare (not safe)) - (cons _L249641_ '())))) + (cons _L132315_ '())))) (declare (not safe)) - (cons __tmp256857 __tmp256856)))) + (cons __tmp134963 __tmp134962)))) (declare (not safe)) - (cons '%#let-values __tmp256855)))) + (cons '%#let-values __tmp134961)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp256854 _stx247555_)))) - (_specializer-lambda-expr250775_ + (gxc#xform-wrap-source __tmp134960 _stx130229_)))) + (_specializer-lambda-expr133449_ (let () (declare (not safe)) - (_make-specializer-lambda-expr250629_ - _struct-check-all250521_ - _empty247654_))) - (_specializer-case-lambda-expr250777_ + (_make-specializer-lambda-expr133303_ + _struct-check-all133195_ + _empty130328_))) + (_specializer-case-lambda-expr133451_ (let () (declare (not safe)) - (_make-specializer-case-lambda-expr250768_ - _struct-check-all250521_ - _empty247654_))) - (_specializer-impl250779_ + (_make-specializer-case-lambda-expr133442_ + _struct-check-all133195_ + _empty130328_))) + (_specializer-impl133453_ (let () (declare (not safe)) - (_make-specializer-impl250773_ - _specializer-lambda-expr250775_ - _specializer-case-lambda-expr250777_))) - (_unchecked-specializer-lambda-expr250781_ + (_make-specializer-impl133447_ + _specializer-lambda-expr133449_ + _specializer-case-lambda-expr133451_))) + (_unchecked-specializer-lambda-expr133455_ (if (let () (declare (not safe)) - (_unchecked-specializer?247657_)) + (_unchecked-specializer?130331_)) (let () (declare (not safe)) - (_make-specializer-lambda-expr250629_ - _empty247654_ - _struct-check-all250521_)) + (_make-specializer-lambda-expr133303_ + _empty130328_ + _struct-check-all133195_)) '#f)) - (_unchecked-specializer-case-lambda-expr250783_ + (_unchecked-specializer-case-lambda-expr133457_ (if (let () (declare (not safe)) - (_unchecked-specializer?247657_)) + (_unchecked-specializer?130331_)) (let () (declare (not safe)) - (_make-specializer-case-lambda-expr250768_ - _empty247654_ - _struct-check-all250521_)) + (_make-specializer-case-lambda-expr133442_ + _empty130328_ + _struct-check-all133195_)) '#f)) - (_unchecked-specializer-impl250785_ + (_unchecked-specializer-impl133459_ (if (let () (declare (not safe)) - (_unchecked-specializer?247657_)) + (_unchecked-specializer?130331_)) (let () (declare (not safe)) - (_make-specializer-impl250773_ - _unchecked-specializer-lambda-expr250781_ - _unchecked-specializer-case-lambda-expr250783_)) + (_make-specializer-impl133447_ + _unchecked-specializer-lambda-expr133455_ + _unchecked-specializer-case-lambda-expr133457_)) '#f)) - (_specializer-impl250787_ + (_specializer-impl133461_ (let () (declare (not safe)) - (_generate-specializer-impl247561_ - _$t250451_ - _methods-bind250474_ - _slots-bind250497_ - _class-check-bind250519_ - _struct-check-bind250543_ - _specializer-impl250779_ - _lifted-specializer-id250449_ - _unchecked-specializer-impl250785_)))) + (_generate-specializer-impl130235_ + _$t133125_ + _methods-bind133148_ + _slots-bind133171_ + _class-check-bind133193_ + _struct-check-bind133217_ + _specializer-impl133453_ + _lifted-specializer-id133123_ + _unchecked-specializer-impl133459_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp256877 + (let ((__tmp134983 (let () (declare (not safe)) (gx#stx-e - _L247630_))) - (__tmp256876 + _L130304_))) + (__tmp134982 (let () (declare (not safe)) (gx#stx-e - _specializer-id250442_)))) + _specializer-id133116_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp256877 + __tmp134983 '" => " - __tmp256876)) + __tmp134982)) (let () (declare (not safe)) - (_generate-specializer-def247562_ - _L247630_ - _specializer-id250442_ - _specializer-impl250787_ - _lifted-specializer-id250449_ - _unchecked-specializer-impl250785_))))) - _hd250159250221_ - _hd250156250213_ - _hd250153250205_) + (_generate-specializer-def130236_ + _L130304_ + _specializer-id133116_ + _specializer-impl133461_ + _lifted-specializer-id133123_ + _unchecked-specializer-impl133459_))))) + _hd132833132895_ + _hd132830132887_ + _hd132827132879_) (let () (declare (not safe)) - (_g250135250165_ - _g250136250168_))))) + (_g132809132839_ + _g132810132842_))))) (let () (declare (not safe)) - (_g250135250165_ _g250136250168_))) + (_g132809132839_ _g132810132842_))) (let () (declare (not safe)) - (_g250135250165_ _g250136250168_))) + (_g132809132839_ _g132810132842_))) (let () (declare (not safe)) - (_g250135250165_ _g250136250168_))))) + (_g132809132839_ _g132810132842_))))) (let () (declare (not safe)) - (_g250135250165_ _g250136250168_))) + (_g132809132839_ _g132810132842_))) (let () (declare (not safe)) - (_g250135250165_ _g250136250168_))))) + (_g132809132839_ _g132810132842_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g250135250165_ - _g250136250168_))))) + (_g132809132839_ + _g132810132842_))))) (let () (declare (not safe)) - (_g250135250165_ _g250136250168_))))) + (_g132809132839_ _g132810132842_))))) (let () (declare (not safe)) - (_g250135250165_ _g250136250168_))))) + (_g132809132839_ _g132810132842_))))) (let () (declare (not safe)) - (_g250135250165_ _g250136250168_))))) + (_g132809132839_ _g132810132842_))))) (let () (declare (not safe)) - (_g250135250165_ _g250136250168_)))))) + (_g132809132839_ _g132810132842_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g250134250790_ _L249643_)) - _stx247555_)))) - _hd249740249863_ - _kw-ref249738249884_ - _hd249728249850_ - _hd249719249826_ - _hd249710249802_) + (_g132808133464_ _L132317_)) + _stx130229_)))) + _hd132414132537_ + _kw-ref132412132558_ + _hd132402132524_ + _hd132393132500_ + _hd132384132476_) (let () (declare (not safe)) - (_g249684249746_ _g249685249749_)))))))) + (_g132358132420_ _g132359132423_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop249733249868_ - _target249730249855_ + (_loop132407132542_ + _target132404132529_ '()))) (let () (declare (not safe)) - (_g249684249746_ - _g249685249749_))))) + (_g132358132420_ + _g132359132423_))))) (let () (declare (not safe)) - (_g249684249746_ _g249685249749_)))))) + (_g132358132420_ _g132359132423_)))))) (let () (declare (not safe)) - (_g249684249746_ _g249685249749_))) + (_g132358132420_ _g132359132423_))) (let () (declare (not safe)) - (_g249684249746_ _g249685249749_))) + (_g132358132420_ _g132359132423_))) (let () (declare (not safe)) - (_g249684249746_ _g249685249749_))))) + (_g132358132420_ _g132359132423_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g249684249746_ - _g249685249749_))) + (_g132358132420_ + _g132359132423_))) (let () (declare (not safe)) - (_g249684249746_ - _g249685249749_))) + (_g132358132420_ + _g132359132423_))) (let () (declare (not safe)) - (_g249684249746_ - _g249685249749_))))) + (_g132358132420_ + _g132359132423_))))) (let () (declare (not safe)) - (_g249684249746_ _g249685249749_))))) + (_g132358132420_ _g132359132423_))))) (let () (declare (not safe)) - (_g249684249746_ _g249685249749_))) + (_g132358132420_ _g132359132423_))) (let () (declare (not safe)) - (_g249684249746_ _g249685249749_))))) + (_g132358132420_ _g132359132423_))))) (let () (declare (not safe)) - (_g249684249746_ _g249685249749_))) + (_g132358132420_ _g132359132423_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g249684249746_ - _g249685249749_))) + (_g132358132420_ + _g132359132423_))) (let () (declare (not safe)) - (_g249684249746_ - _g249685249749_))))) + (_g132358132420_ + _g132359132423_))))) (let () (declare (not safe)) - (_g249684249746_ _g249685249749_))))) + (_g132358132420_ _g132359132423_))))) (let () (declare (not safe)) - (_g249684249746_ _g249685249749_))) + (_g132358132420_ _g132359132423_))) (let () (declare (not safe)) - (_g249684249746_ _g249685249749_))))) + (_g132358132420_ _g132359132423_))))) (let () (declare (not safe)) - (_g249684249746_ _g249685249749_))) + (_g132358132420_ _g132359132423_))) (let () (declare (not safe)) - (_g249684249746_ _g249685249749_))) + (_g132358132420_ _g132359132423_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g249684249746_ - _g249685249749_))))) + (_g132358132420_ + _g132359132423_))))) (let () (declare (not safe)) - (_g249684249746_ - _g249685249749_))))) + (_g132358132420_ + _g132359132423_))))) (let () (declare (not safe)) - (_g249684249746_ _g249685249749_))) + (_g132358132420_ _g132359132423_))) (let () (declare (not safe)) - (_g249684249746_ _g249685249749_))) + (_g132358132420_ _g132359132423_))) (let () (declare (not safe)) - (_g249684249746_ _g249685249749_))))) + (_g132358132420_ _g132359132423_))))) (let () (declare (not safe)) - (_g249684249746_ _g249685249749_))))) + (_g132358132420_ _g132359132423_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g249684249746_ - _g249685249749_))))) + (_g132358132420_ + _g132359132423_))))) (let () (declare (not safe)) - (_g249684249746_ - _g249685249749_))) + (_g132358132420_ + _g132359132423_))) (let () (declare (not safe)) - (_g249684249746_ _g249685249749_))) + (_g132358132420_ _g132359132423_))) (let () (declare (not safe)) - (_g249684249746_ _g249685249749_))))) + (_g132358132420_ _g132359132423_))))) (let () (declare (not safe)) - (_g249684249746_ _g249685249749_)))))) + (_g132358132420_ _g132359132423_)))))) (declare (not safe)) - (_g249683250793_ _L249642_))) + (_g132357133467_ _L132316_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd249518249636_ - _hd249515249628_ - _hd249512249620_ - _hd249509249612_ - _hd249491249564_) + _hd132192132310_ + _hd132189132302_ + _hd132186132294_ + _hd132183132286_ + _hd132165132238_) (let () (declare (not safe)) - (_g249471249524_ - _g249472249527_))))) + (_g132145132198_ + _g132146132201_))))) (let () (declare (not safe)) - (_g249471249524_ - _g249472249527_))) + (_g132145132198_ + _g132146132201_))) (let () (declare (not safe)) - (_g249471249524_ _g249472249527_))) + (_g132145132198_ _g132146132201_))) (let () (declare (not safe)) - (_g249471249524_ _g249472249527_))) + (_g132145132198_ _g132146132201_))) (let () (declare (not safe)) - (_g249471249524_ _g249472249527_))))) + (_g132145132198_ _g132146132201_))))) (let () (declare (not safe)) - (_g249471249524_ _g249472249527_))) + (_g132145132198_ _g132146132201_))) (let () (declare (not safe)) - (_g249471249524_ _g249472249527_))) + (_g132145132198_ _g132146132201_))) (let () (declare (not safe)) - (_g249471249524_ _g249472249527_))))) + (_g132145132198_ _g132146132201_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g249471249524_ - _g249472249527_))) + (_g132145132198_ + _g132146132201_))) (let () (declare (not safe)) - (_g249471249524_ - _g249472249527_))))) + (_g132145132198_ + _g132146132201_))))) (let () (declare (not safe)) - (_g249471249524_ _g249472249527_))))) + (_g132145132198_ _g132146132201_))))) (let () (declare (not safe)) - (_g249471249524_ _g249472249527_))))) + (_g132145132198_ _g132146132201_))))) (let () (declare (not safe)) - (_g249471249524_ _g249472249527_))))) + (_g132145132198_ _g132146132201_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g249471249524_ - _g249472249527_))) + (_g132145132198_ + _g132146132201_))) (let () (declare (not safe)) - (_g249471249524_ - _g249472249527_))) + (_g132145132198_ + _g132146132201_))) (let () (declare (not safe)) - (_g249471249524_ - _g249472249527_))))) + (_g132145132198_ + _g132146132201_))))) (let () (declare (not safe)) - (_g249471249524_ _g249472249527_))))) + (_g132145132198_ _g132146132201_))))) (let () (declare (not safe)) - (_g249471249524_ _g249472249527_))) + (_g132145132198_ _g132146132201_))) (let () (declare (not safe)) - (_g249471249524_ _g249472249527_))))) + (_g132145132198_ _g132146132201_))))) (let () (declare (not safe)) - (_g249471249524_ _g249472249527_))))) + (_g132145132198_ _g132146132201_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g249471249524_ - _g249472249527_))))) + (_g132145132198_ + _g132146132201_))))) (let () (declare (not safe)) - (_g249471249524_ _g249472249527_))))) + (_g132145132198_ _g132146132201_))))) (let () (declare (not safe)) - (_g249471249524_ _g249472249527_))) + (_g132145132198_ _g132146132201_))) (let () (declare (not safe)) - (_g249471249524_ _g249472249527_))) + (_g132145132198_ _g132146132201_))) (let () (declare (not safe)) - (_g249471249524_ _g249472249527_))))) + (_g132145132198_ _g132146132201_))))) (let () (declare (not safe)) - (_g249471249524_ _g249472249527_)))))) + (_g132145132198_ _g132146132201_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g249470250796_ _L247629_)) - _stx247555_)))))))) - (___kont255603255604_ (lambda () _stx247555_))) - (let ((___match255632255633_ - (lambda (_e247571247597_ - _hd247570247600_ - _tl247569247602_ - _e247574247605_ - _hd247573247608_ - _tl247572247610_ - _e247577247613_ - _hd247576247616_ - _tl247575247618_ - _e247580247621_ - _hd247579247624_ - _tl247578247626_) - (let ((_L247629_ _hd247579247624_) - (_L247630_ _hd247576247616_)) - (if (let ((__tmp256994 + (_g132144133470_ _L130303_)) + _stx130229_)))))))) + (___kont133709133710_ (lambda () _stx130229_))) + (let ((___match133738133739_ + (lambda (_e130245130271_ + _hd130244130274_ + _tl130243130276_ + _e130248130279_ + _hd130247130282_ + _tl130246130284_ + _e130251130287_ + _hd130250130290_ + _tl130249130292_ + _e130254130295_ + _hd130253130298_ + _tl130252130300_) + (let ((_L130303_ _hd130253130298_) + (_L130304_ _hd130250130290_)) + (if (let ((__tmp135100 (let () (declare (not safe)) - (gxc#identifier-symbol _L247630_)))) + (gxc#identifier-symbol _L130304_)))) (declare (not safe)) - (gxc#optimizer-top-level-method? __tmp256994)) - (___kont255601255602_ _L247629_ _L247630_) - (___kont255603255604_)))))) + (gxc#optimizer-top-level-method? __tmp135100)) + (___kont133707133708_ _L130303_ _L130304_) + (___kont133709133710_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx255599255600_)) - (let ((_e247571247597_ + (gx#stx-pair? ___stx133705133706_)) + (let ((_e130245130271_ (let () (declare (not safe)) - (gx#stx-e ___stx255599255600_)))) - (let ((_tl247569247602_ + (gx#stx-e ___stx133705133706_)))) + (let ((_tl130243130276_ (let () (declare (not safe)) - (##cdr _e247571247597_))) - (_hd247570247600_ + (##cdr _e130245130271_))) + (_hd130244130274_ (let () (declare (not safe)) - (##car _e247571247597_)))) + (##car _e130245130271_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl247569247602_)) - (let ((_e247574247605_ + (gx#stx-pair? _tl130243130276_)) + (let ((_e130248130279_ (let () (declare (not safe)) - (gx#stx-e _tl247569247602_)))) - (let ((_tl247572247610_ + (gx#stx-e _tl130243130276_)))) + (let ((_tl130246130284_ (let () (declare (not safe)) - (##cdr _e247574247605_))) - (_hd247573247608_ + (##cdr _e130248130279_))) + (_hd130247130282_ (let () (declare (not safe)) - (##car _e247574247605_)))) + (##car _e130248130279_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd247573247608_)) - (let ((_e247577247613_ + (gx#stx-pair? _hd130247130282_)) + (let ((_e130251130287_ (let () (declare (not safe)) - (gx#stx-e _hd247573247608_)))) - (let ((_tl247575247618_ + (gx#stx-e _hd130247130282_)))) + (let ((_tl130249130292_ (let () (declare (not safe)) - (##cdr _e247577247613_))) - (_hd247576247616_ + (##cdr _e130251130287_))) + (_hd130250130290_ (let () (declare (not safe)) - (##car _e247577247613_)))) + (##car _e130251130287_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl247575247618_)) + (gx#stx-null? _tl130249130292_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl247572247610_)) - (let ((_e247580247621_ + _tl130246130284_)) + (let ((_e130254130295_ (let () (declare (not safe)) (gx#stx-e - _tl247572247610_)))) - (let ((_tl247578247626_ + _tl130246130284_)))) + (let ((_tl130252130300_ (let () (declare (not safe)) - (##cdr _e247580247621_))) - (_hd247579247624_ + (##cdr _e130254130295_))) + (_hd130253130298_ (let () (declare (not safe)) - (##car _e247580247621_)))) + (##car _e130254130295_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl247578247626_)) - (___match255632255633_ - _e247571247597_ - _hd247570247600_ - _tl247569247602_ - _e247574247605_ - _hd247573247608_ - _tl247572247610_ - _e247577247613_ - _hd247576247616_ - _tl247575247618_ - _e247580247621_ - _hd247579247624_ - _tl247578247626_) - (___kont255603255604_)))) - (___kont255603255604_)) - (___kont255603255604_)))) - (___kont255603255604_)))) - (___kont255603255604_)))) - (___kont255603255604_)))))))) + _tl130252130300_)) + (___match133738133739_ + _e130245130271_ + _hd130244130274_ + _tl130243130276_ + _e130248130279_ + _hd130247130282_ + _tl130246130284_ + _e130251130287_ + _hd130250130290_ + _tl130249130292_ + _e130254130295_ + _hd130253130298_ + _tl130252130300_) + (___kont133709133710_)))) + (___kont133709133710_)) + (___kont133709133710_)))) + (___kont133709133710_)))) + (___kont133709133710_)))) + (___kont133709133710_)))))))) (define gxc#collect-object-refs-call% - (lambda (_stx246531_ - _self246532_ - _methods246533_ - _slots246534_ - _class-check246535_ - _struct-check246536_ - _struct-assert246537_) - (let* ((___stx255635255636_ _stx246531_) - (_g246545246767_ + (lambda (_stx129205_ + _self129206_ + _methods129207_ + _slots129208_ + _class-check129209_ + _struct-check129210_ + _struct-assert129211_) + (let* ((___stx133741133742_ _stx129205_) + (_g129219129441_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx255635255636_))))) - (let ((___kont255637255638_ - (lambda (_L247504_ _L247505_ _L247506_ _L247507_) - (let ((__tmp256995 - (let () (declare (not safe)) (gx#stx-e _L247505_)))) + ___stx133741133742_))))) + (let ((___kont133743133744_ + (lambda (_L130178_ _L130179_ _L130180_ _L130181_) + (let ((__tmp135101 + (let () (declare (not safe)) (gx#stx-e _L130179_)))) (declare (not safe)) - (table-set! _methods246533_ __tmp256995 '#t)) + (hash-put! _methods129207_ __tmp135101 '#t)) (for-each - (lambda (_g247540247542_) + (lambda (_g130214130216_) (let () (declare (not safe)) (gxc#compile-e__3 - _g247540247542_ - _self246532_ - _methods246533_ - _slots246534_ - _class-check246535_ - _struct-check246536_ - _struct-assert246537_))) - (let ((__tmp256996 - (lambda (_g247544247547_ _g247545247549_) + _g130214130216_ + _self129206_ + _methods129207_ + _slots129208_ + _class-check129209_ + _struct-check129210_ + _struct-assert129211_))) + (let ((__tmp135102 + (lambda (_g130218130221_ _g130219130223_) (let () (declare (not safe)) - (cons _g247544247547_ _g247545247549_))))) + (cons _g130218130221_ _g130219130223_))))) (declare (not safe)) - (foldr1 __tmp256996 '() _L247504_))))) - (___kont255641255642_ - (lambda (_L247339_ _L247340_ _L247341_ _L247342_ _L247343_) - (let ((__tmp256997 - (let () (declare (not safe)) (gx#stx-e _L247340_)))) + (foldr1 __tmp135102 '() _L130178_))))) + (___kont133747133748_ + (lambda (_L130013_ _L130014_ _L130015_ _L130016_ _L130017_) + (let ((__tmp135103 + (let () (declare (not safe)) (gx#stx-e _L130014_)))) (declare (not safe)) - (table-set! _methods246533_ __tmp256997 '#t)) + (hash-put! _methods129207_ __tmp135103 '#t)) (for-each - (lambda (_g247383247385_) + (lambda (_g130057130059_) (let () (declare (not safe)) (gxc#compile-e__3 - _g247383247385_ - _self246532_ - _methods246533_ - _slots246534_ - _class-check246535_ - _struct-check246536_ - _struct-assert246537_))) - (let ((__tmp256998 - (lambda (_g247387247390_ _g247388247392_) + _g130057130059_ + _self129206_ + _methods129207_ + _slots129208_ + _class-check129209_ + _struct-check129210_ + _struct-assert129211_))) + (let ((__tmp135104 + (lambda (_g130061130064_ _g130062130066_) (let () (declare (not safe)) - (cons _g247387247390_ _g247388247392_))))) + (cons _g130061130064_ _g130062130066_))))) (declare (not safe)) - (foldr1 __tmp256998 '() _L247339_))))) - (___kont255645255646_ - (lambda (_L247172_ _L247173_ _L247174_) - (let ((__tmp256999 - (let () (declare (not safe)) (gx#stx-e _L247172_)))) + (foldr1 __tmp135104 '() _L130013_))))) + (___kont133751133752_ + (lambda (_L129846_ _L129847_ _L129848_) + (let ((__tmp135105 + (let () (declare (not safe)) (gx#stx-e _L129846_)))) (declare (not safe)) - (table-set! _slots246534_ __tmp256999 '#t)))) - (___kont255647255648_ - (lambda (_L247049_ _L247050_ _L247051_ _L247052_) - (let ((__tmp257000 - (let () (declare (not safe)) (gx#stx-e _L247050_)))) + (hash-put! _slots129208_ __tmp135105 '#t)))) + (___kont133753133754_ + (lambda (_L129723_ _L129724_ _L129725_ _L129726_) + (let ((__tmp135106 + (let () (declare (not safe)) (gx#stx-e _L129724_)))) (declare (not safe)) - (table-set! _slots246534_ __tmp257000 '#t)) + (hash-put! _slots129208_ __tmp135106 '#t)) (let () (declare (not safe)) (gxc#compile-e__3 - _L247049_ - _self246532_ - _methods246533_ - _slots246534_ - _class-check246535_ - _struct-check246536_ - _struct-assert246537_)))) - (___kont255649255650_ - (lambda (_L246933_ _L246934_) - (let ((__tmp257001 + _L129723_ + _self129206_ + _methods129207_ + _slots129208_ + _class-check129209_ + _struct-check129210_ + _struct-assert129211_)))) + (___kont133755133756_ + (lambda (_L129607_ _L129608_) + (let ((__tmp135107 (##structure-ref - (let ((__tmp257002 + (let ((__tmp135108 (let () (declare (not safe)) - (gxc#identifier-symbol _L246934_)))) + (gxc#identifier-symbol _L129608_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp257002)) + (gxc#optimizer-resolve-type __tmp135108)) '2 gxc#!accessor::t '#f))) (declare (not safe)) - (table-set! _slots246534_ __tmp257001 '#t)))) - (___kont255651255652_ - (lambda (_L246843_ _L246844_ _L246845_) - (let ((__tmp257003 + (hash-put! _slots129208_ __tmp135107 '#t)))) + (___kont133757133758_ + (lambda (_L129517_ _L129518_ _L129519_) + (let ((__tmp135109 (##structure-ref - (let ((__tmp257004 + (let ((__tmp135110 (let () (declare (not safe)) - (gxc#identifier-symbol _L246845_)))) + (gxc#identifier-symbol _L129519_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp257004)) + (gxc#optimizer-resolve-type __tmp135110)) '2 gxc#!mutator::t '#f))) (declare (not safe)) - (table-set! _slots246534_ __tmp257003 '#t)) + (hash-put! _slots129208_ __tmp135109 '#t)) (let () (declare (not safe)) (gxc#compile-e__3 - _L246843_ - _self246532_ - _methods246533_ - _slots246534_ - _class-check246535_ - _struct-check246536_ - _struct-assert246537_)))) - (___kont255653255654_ + _L129517_ + _self129206_ + _methods129207_ + _slots129208_ + _class-check129209_ + _struct-check129210_ + _struct-assert129211_)))) + (___kont133759133760_ (lambda () (let () (declare (not safe)) (gxc#collect-operands - _stx246531_ - _self246532_ - _methods246533_ - _slots246534_ - _class-check246535_ - _struct-check246536_ - _struct-assert246537_))))) - (let* ((___match256134256135_ - (lambda (_e246741246779_ - _hd246740246782_ - _tl246739246784_ - _e246744246787_ - _hd246743246790_ - _tl246742246792_ - _e246747246795_ - _hd246746246798_ - _tl246745246800_ - _e246750246803_ - _hd246749246806_ - _tl246748246808_ - _e246753246811_ - _hd246752246814_ - _tl246751246816_ - _e246756246819_ - _hd246755246822_ - _tl246754246824_ - _e246759246827_ - _hd246758246830_ - _tl246757246832_ - _e246762246835_ - _hd246761246838_ - _tl246760246840_) - (let ((_L246843_ _hd246761246838_) - (_L246844_ _hd246758246830_) - (_L246845_ _hd246749246806_)) - (if (and (let ((__tmp257005 - (let ((__tmp257006 + _stx129205_ + _self129206_ + _methods129207_ + _slots129208_ + _class-check129209_ + _struct-check129210_ + _struct-assert129211_))))) + (let* ((___match134240134241_ + (lambda (_e129415129453_ + _hd129414129456_ + _tl129413129458_ + _e129418129461_ + _hd129417129464_ + _tl129416129466_ + _e129421129469_ + _hd129420129472_ + _tl129419129474_ + _e129424129477_ + _hd129423129480_ + _tl129422129482_ + _e129427129485_ + _hd129426129488_ + _tl129425129490_ + _e129430129493_ + _hd129429129496_ + _tl129428129498_ + _e129433129501_ + _hd129432129504_ + _tl129431129506_ + _e129436129509_ + _hd129435129512_ + _tl129434129514_) + (let ((_L129517_ _hd129435129512_) + (_L129518_ _hd129432129504_) + (_L129519_ _hd129423129480_)) + (if (and (let ((__tmp135111 + (let ((__tmp135112 (let () (declare (not safe)) (gxc#identifier-symbol - _L246845_)))) + _L129519_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp257006)))) + __tmp135112)))) (declare (not safe)) (##structure-instance-of? - __tmp257005 + __tmp135111 'gxc#!mutator::t)) (let () (declare (not safe)) (gx#free-identifier=? - _L246844_ - _self246532_))) - (___kont255651255652_ - _L246843_ - _L246844_ - _L246845_) - (___kont255653255654_))))) - (___match256132256133_ - (lambda (_e246741246779_ - _hd246740246782_ - _tl246739246784_ - _e246744246787_ - _hd246743246790_ - _tl246742246792_ - _e246747246795_ - _hd246746246798_ - _tl246745246800_ - _e246750246803_ - _hd246749246806_ - _tl246748246808_ - _e246753246811_ - _hd246752246814_ - _tl246751246816_ - _e246756246819_ - _hd246755246822_ - _tl246754246824_ - _e246759246827_ - _hd246758246830_ - _tl246757246832_ - _e246762246835_ - _hd246761246838_ - _tl246760246840_) + _L129518_ + _self129206_))) + (___kont133757133758_ + _L129517_ + _L129518_ + _L129519_) + (___kont133759133760_))))) + (___match134238134239_ + (lambda (_e129415129453_ + _hd129414129456_ + _tl129413129458_ + _e129418129461_ + _hd129417129464_ + _tl129416129466_ + _e129421129469_ + _hd129420129472_ + _tl129419129474_ + _e129424129477_ + _hd129423129480_ + _tl129422129482_ + _e129427129485_ + _hd129426129488_ + _tl129425129490_ + _e129430129493_ + _hd129429129496_ + _tl129428129498_ + _e129433129501_ + _hd129432129504_ + _tl129431129506_ + _e129436129509_ + _hd129435129512_ + _tl129434129514_) (if (let () (declare (not safe)) - (gx#stx-null? _tl246760246840_)) - (___match256134256135_ - _e246741246779_ - _hd246740246782_ - _tl246739246784_ - _e246744246787_ - _hd246743246790_ - _tl246742246792_ - _e246747246795_ - _hd246746246798_ - _tl246745246800_ - _e246750246803_ - _hd246749246806_ - _tl246748246808_ - _e246753246811_ - _hd246752246814_ - _tl246751246816_ - _e246756246819_ - _hd246755246822_ - _tl246754246824_ - _e246759246827_ - _hd246758246830_ - _tl246757246832_ - _e246762246835_ - _hd246761246838_ - _tl246760246840_) - (___kont255653255654_)))) - (___match256126256127_ - (lambda (_e246741246779_ - _hd246740246782_ - _tl246739246784_ - _e246744246787_ - _hd246743246790_ - _tl246742246792_ - _e246747246795_ - _hd246746246798_ - _tl246745246800_ - _e246750246803_ - _hd246749246806_ - _tl246748246808_ - _e246753246811_ - _hd246752246814_ - _tl246751246816_ - _e246756246819_ - _hd246755246822_ - _tl246754246824_ - _e246759246827_ - _hd246758246830_ - _tl246757246832_) + (gx#stx-null? _tl129434129514_)) + (___match134240134241_ + _e129415129453_ + _hd129414129456_ + _tl129413129458_ + _e129418129461_ + _hd129417129464_ + _tl129416129466_ + _e129421129469_ + _hd129420129472_ + _tl129419129474_ + _e129424129477_ + _hd129423129480_ + _tl129422129482_ + _e129427129485_ + _hd129426129488_ + _tl129425129490_ + _e129430129493_ + _hd129429129496_ + _tl129428129498_ + _e129433129501_ + _hd129432129504_ + _tl129431129506_ + _e129436129509_ + _hd129435129512_ + _tl129434129514_) + (___kont133759133760_)))) + (___match134232134233_ + (lambda (_e129415129453_ + _hd129414129456_ + _tl129413129458_ + _e129418129461_ + _hd129417129464_ + _tl129416129466_ + _e129421129469_ + _hd129420129472_ + _tl129419129474_ + _e129424129477_ + _hd129423129480_ + _tl129422129482_ + _e129427129485_ + _hd129426129488_ + _tl129425129490_ + _e129430129493_ + _hd129429129496_ + _tl129428129498_ + _e129433129501_ + _hd129432129504_ + _tl129431129506_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246751246816_)) - (let ((_e246762246835_ + (gx#stx-pair? _tl129425129490_)) + (let ((_e129436129509_ (let () (declare (not safe)) - (gx#stx-e _tl246751246816_)))) - (let ((_tl246760246840_ + (gx#stx-e _tl129425129490_)))) + (let ((_tl129434129514_ (let () (declare (not safe)) - (##cdr _e246762246835_))) - (_hd246761246838_ + (##cdr _e129436129509_))) + (_hd129435129512_ (let () (declare (not safe)) - (##car _e246762246835_)))) + (##car _e129436129509_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246760246840_)) - (___match256134256135_ - _e246741246779_ - _hd246740246782_ - _tl246739246784_ - _e246744246787_ - _hd246743246790_ - _tl246742246792_ - _e246747246795_ - _hd246746246798_ - _tl246745246800_ - _e246750246803_ - _hd246749246806_ - _tl246748246808_ - _e246753246811_ - _hd246752246814_ - _tl246751246816_ - _e246756246819_ - _hd246755246822_ - _tl246754246824_ - _e246759246827_ - _hd246758246830_ - _tl246757246832_ - _e246762246835_ - _hd246761246838_ - _tl246760246840_) - (___kont255653255654_)))) - (___kont255653255654_)))) - (___match256072256073_ - (lambda (_e246717246877_ - _hd246716246880_ - _tl246715246882_ - _e246720246885_ - _hd246719246888_ - _tl246718246890_ - _e246723246893_ - _hd246722246896_ - _tl246721246898_ - _e246726246901_ - _hd246725246904_ - _tl246724246906_ - _e246729246909_ - _hd246728246912_ - _tl246727246914_ - _e246732246917_ - _hd246731246920_ - _tl246730246922_ - _e246735246925_ - _hd246734246928_ - _tl246733246930_) - (let ((_L246933_ _hd246734246928_) - (_L246934_ _hd246725246904_)) - (if (and (let ((__tmp257007 - (let ((__tmp257008 + (gx#stx-null? _tl129434129514_)) + (___match134240134241_ + _e129415129453_ + _hd129414129456_ + _tl129413129458_ + _e129418129461_ + _hd129417129464_ + _tl129416129466_ + _e129421129469_ + _hd129420129472_ + _tl129419129474_ + _e129424129477_ + _hd129423129480_ + _tl129422129482_ + _e129427129485_ + _hd129426129488_ + _tl129425129490_ + _e129430129493_ + _hd129429129496_ + _tl129428129498_ + _e129433129501_ + _hd129432129504_ + _tl129431129506_ + _e129436129509_ + _hd129435129512_ + _tl129434129514_) + (___kont133759133760_)))) + (___kont133759133760_)))) + (___match134178134179_ + (lambda (_e129391129551_ + _hd129390129554_ + _tl129389129556_ + _e129394129559_ + _hd129393129562_ + _tl129392129564_ + _e129397129567_ + _hd129396129570_ + _tl129395129572_ + _e129400129575_ + _hd129399129578_ + _tl129398129580_ + _e129403129583_ + _hd129402129586_ + _tl129401129588_ + _e129406129591_ + _hd129405129594_ + _tl129404129596_ + _e129409129599_ + _hd129408129602_ + _tl129407129604_) + (let ((_L129607_ _hd129408129602_) + (_L129608_ _hd129399129578_)) + (if (and (let ((__tmp135113 + (let ((__tmp135114 (let () (declare (not safe)) (gxc#identifier-symbol - _L246934_)))) + _L129608_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp257008)))) + __tmp135114)))) (declare (not safe)) (##structure-instance-of? - __tmp257007 + __tmp135113 'gxc#!accessor::t)) (let () (declare (not safe)) (gx#free-identifier=? - _L246933_ - _self246532_))) - (___kont255649255650_ _L246933_ _L246934_) - (___kont255653255654_))))) - (___match256070256071_ - (lambda (_e246717246877_ - _hd246716246880_ - _tl246715246882_ - _e246720246885_ - _hd246719246888_ - _tl246718246890_ - _e246723246893_ - _hd246722246896_ - _tl246721246898_ - _e246726246901_ - _hd246725246904_ - _tl246724246906_ - _e246729246909_ - _hd246728246912_ - _tl246727246914_ - _e246732246917_ - _hd246731246920_ - _tl246730246922_ - _e246735246925_ - _hd246734246928_ - _tl246733246930_) + _L129607_ + _self129206_))) + (___kont133755133756_ _L129607_ _L129608_) + (___kont133759133760_))))) + (___match134176134177_ + (lambda (_e129391129551_ + _hd129390129554_ + _tl129389129556_ + _e129394129559_ + _hd129393129562_ + _tl129392129564_ + _e129397129567_ + _hd129396129570_ + _tl129395129572_ + _e129400129575_ + _hd129399129578_ + _tl129398129580_ + _e129403129583_ + _hd129402129586_ + _tl129401129588_ + _e129406129591_ + _hd129405129594_ + _tl129404129596_ + _e129409129599_ + _hd129408129602_ + _tl129407129604_) (if (let () (declare (not safe)) - (gx#stx-null? _tl246727246914_)) - (___match256072256073_ - _e246717246877_ - _hd246716246880_ - _tl246715246882_ - _e246720246885_ - _hd246719246888_ - _tl246718246890_ - _e246723246893_ - _hd246722246896_ - _tl246721246898_ - _e246726246901_ - _hd246725246904_ - _tl246724246906_ - _e246729246909_ - _hd246728246912_ - _tl246727246914_ - _e246732246917_ - _hd246731246920_ - _tl246730246922_ - _e246735246925_ - _hd246734246928_ - _tl246733246930_) - (___match256126256127_ - _e246717246877_ - _hd246716246880_ - _tl246715246882_ - _e246720246885_ - _hd246719246888_ - _tl246718246890_ - _e246723246893_ - _hd246722246896_ - _tl246721246898_ - _e246726246901_ - _hd246725246904_ - _tl246724246906_ - _e246729246909_ - _hd246728246912_ - _tl246727246914_ - _e246732246917_ - _hd246731246920_ - _tl246730246922_ - _e246735246925_ - _hd246734246928_ - _tl246733246930_)))) - (___match256016256017_ - (lambda (_e246682246961_ - _hd246681246964_ - _tl246680246966_ - _e246685246969_ - _hd246684246972_ - _tl246683246974_ - _e246688246977_ - _hd246687246980_ - _tl246686246982_ - _e246691246985_ - _hd246690246988_ - _tl246689246990_ - _e246694246993_ - _hd246693246996_ - _tl246692246998_ - _e246697247001_ - _hd246696247004_ - _tl246695247006_ - _e246700247009_ - _hd246699247012_ - _tl246698247014_ - _e246703247017_ - _hd246702247020_ - _tl246701247022_ - _e246706247025_ - _hd246705247028_ - _tl246704247030_ - _e246709247033_ - _hd246708247036_ - _tl246707247038_ - _e246712247041_ - _hd246711247044_ - _tl246710247046_) - (let ((_L247049_ _hd246711247044_) - (_L247050_ _hd246708247036_) - (_L247051_ _hd246699247012_) - (_L247052_ _hd246690246988_)) + (gx#stx-null? _tl129401129588_)) + (___match134178134179_ + _e129391129551_ + _hd129390129554_ + _tl129389129556_ + _e129394129559_ + _hd129393129562_ + _tl129392129564_ + _e129397129567_ + _hd129396129570_ + _tl129395129572_ + _e129400129575_ + _hd129399129578_ + _tl129398129580_ + _e129403129583_ + _hd129402129586_ + _tl129401129588_ + _e129406129591_ + _hd129405129594_ + _tl129404129596_ + _e129409129599_ + _hd129408129602_ + _tl129407129604_) + (___match134232134233_ + _e129391129551_ + _hd129390129554_ + _tl129389129556_ + _e129394129559_ + _hd129393129562_ + _tl129392129564_ + _e129397129567_ + _hd129396129570_ + _tl129395129572_ + _e129400129575_ + _hd129399129578_ + _tl129398129580_ + _e129403129583_ + _hd129402129586_ + _tl129401129588_ + _e129406129591_ + _hd129405129594_ + _tl129404129596_ + _e129409129599_ + _hd129408129602_ + _tl129407129604_)))) + (___match134122134123_ + (lambda (_e129356129635_ + _hd129355129638_ + _tl129354129640_ + _e129359129643_ + _hd129358129646_ + _tl129357129648_ + _e129362129651_ + _hd129361129654_ + _tl129360129656_ + _e129365129659_ + _hd129364129662_ + _tl129363129664_ + _e129368129667_ + _hd129367129670_ + _tl129366129672_ + _e129371129675_ + _hd129370129678_ + _tl129369129680_ + _e129374129683_ + _hd129373129686_ + _tl129372129688_ + _e129377129691_ + _hd129376129694_ + _tl129375129696_ + _e129380129699_ + _hd129379129702_ + _tl129378129704_ + _e129383129707_ + _hd129382129710_ + _tl129381129712_ + _e129386129715_ + _hd129385129718_ + _tl129384129720_) + (let ((_L129723_ _hd129385129718_) + (_L129724_ _hd129382129710_) + (_L129725_ _hd129373129686_) + (_L129726_ _hd129364129662_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L247052_ + _L129726_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L247052_ + _L129726_ 'unchecked-slot-set!))) (let () (declare (not safe)) (gx#free-identifier=? - _L247051_ - _self246532_))) - (___kont255647255648_ - _L247049_ - _L247050_ - _L247051_ - _L247052_) - (___kont255653255654_))))) - (___match256008256009_ - (lambda (_e246682246961_ - _hd246681246964_ - _tl246680246966_ - _e246685246969_ - _hd246684246972_ - _tl246683246974_ - _e246688246977_ - _hd246687246980_ - _tl246686246982_ - _e246691246985_ - _hd246690246988_ - _tl246689246990_ - _e246694246993_ - _hd246693246996_ - _tl246692246998_ - _e246697247001_ - _hd246696247004_ - _tl246695247006_ - _e246700247009_ - _hd246699247012_ - _tl246698247014_ - _e246703247017_ - _hd246702247020_ - _tl246701247022_ - _e246706247025_ - _hd246705247028_ - _tl246704247030_ - _e246709247033_ - _hd246708247036_ - _tl246707247038_) + _L129725_ + _self129206_))) + (___kont133753133754_ + _L129723_ + _L129724_ + _L129725_ + _L129726_) + (___kont133759133760_))))) + (___match134114134115_ + (lambda (_e129356129635_ + _hd129355129638_ + _tl129354129640_ + _e129359129643_ + _hd129358129646_ + _tl129357129648_ + _e129362129651_ + _hd129361129654_ + _tl129360129656_ + _e129365129659_ + _hd129364129662_ + _tl129363129664_ + _e129368129667_ + _hd129367129670_ + _tl129366129672_ + _e129371129675_ + _hd129370129678_ + _tl129369129680_ + _e129374129683_ + _hd129373129686_ + _tl129372129688_ + _e129377129691_ + _hd129376129694_ + _tl129375129696_ + _e129380129699_ + _hd129379129702_ + _tl129378129704_ + _e129383129707_ + _hd129382129710_ + _tl129381129712_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246701247022_)) - (let ((_e246712247041_ + (gx#stx-pair? _tl129375129696_)) + (let ((_e129386129715_ (let () (declare (not safe)) - (gx#stx-e _tl246701247022_)))) - (let ((_tl246710247046_ + (gx#stx-e _tl129375129696_)))) + (let ((_tl129384129720_ (let () (declare (not safe)) - (##cdr _e246712247041_))) - (_hd246711247044_ + (##cdr _e129386129715_))) + (_hd129385129718_ (let () (declare (not safe)) - (##car _e246712247041_)))) + (##car _e129386129715_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246710247046_)) - (___match256016256017_ - _e246682246961_ - _hd246681246964_ - _tl246680246966_ - _e246685246969_ - _hd246684246972_ - _tl246683246974_ - _e246688246977_ - _hd246687246980_ - _tl246686246982_ - _e246691246985_ - _hd246690246988_ - _tl246689246990_ - _e246694246993_ - _hd246693246996_ - _tl246692246998_ - _e246697247001_ - _hd246696247004_ - _tl246695247006_ - _e246700247009_ - _hd246699247012_ - _tl246698247014_ - _e246703247017_ - _hd246702247020_ - _tl246701247022_ - _e246706247025_ - _hd246705247028_ - _tl246704247030_ - _e246709247033_ - _hd246708247036_ - _tl246707247038_ - _e246712247041_ - _hd246711247044_ - _tl246710247046_) - (___kont255653255654_)))) - (___match256132256133_ - _e246682246961_ - _hd246681246964_ - _tl246680246966_ - _e246685246969_ - _hd246684246972_ - _tl246683246974_ - _e246688246977_ - _hd246687246980_ - _tl246686246982_ - _e246691246985_ - _hd246690246988_ - _tl246689246990_ - _e246694246993_ - _hd246693246996_ - _tl246692246998_ - _e246697247001_ - _hd246696247004_ - _tl246695247006_ - _e246700247009_ - _hd246699247012_ - _tl246698247014_ - _e246703247017_ - _hd246702247020_ - _tl246701247022_)))) - (___match255930255931_ - (lambda (_e246648247092_ - _hd246647247095_ - _tl246646247097_ - _e246651247100_ - _hd246650247103_ - _tl246649247105_ - _e246654247108_ - _hd246653247111_ - _tl246652247113_ - _e246657247116_ - _hd246656247119_ - _tl246655247121_ - _e246660247124_ - _hd246659247127_ - _tl246658247129_ - _e246663247132_ - _hd246662247135_ - _tl246661247137_ - _e246666247140_ - _hd246665247143_ - _tl246664247145_ - _e246669247148_ - _hd246668247151_ - _tl246667247153_ - _e246672247156_ - _hd246671247159_ - _tl246670247161_ - _e246675247164_ - _hd246674247167_ - _tl246673247169_) - (let ((_L247172_ _hd246674247167_) - (_L247173_ _hd246665247143_) - (_L247174_ _hd246656247119_)) + (gx#stx-null? _tl129384129720_)) + (___match134122134123_ + _e129356129635_ + _hd129355129638_ + _tl129354129640_ + _e129359129643_ + _hd129358129646_ + _tl129357129648_ + _e129362129651_ + _hd129361129654_ + _tl129360129656_ + _e129365129659_ + _hd129364129662_ + _tl129363129664_ + _e129368129667_ + _hd129367129670_ + _tl129366129672_ + _e129371129675_ + _hd129370129678_ + _tl129369129680_ + _e129374129683_ + _hd129373129686_ + _tl129372129688_ + _e129377129691_ + _hd129376129694_ + _tl129375129696_ + _e129380129699_ + _hd129379129702_ + _tl129378129704_ + _e129383129707_ + _hd129382129710_ + _tl129381129712_ + _e129386129715_ + _hd129385129718_ + _tl129384129720_) + (___kont133759133760_)))) + (___match134238134239_ + _e129356129635_ + _hd129355129638_ + _tl129354129640_ + _e129359129643_ + _hd129358129646_ + _tl129357129648_ + _e129362129651_ + _hd129361129654_ + _tl129360129656_ + _e129365129659_ + _hd129364129662_ + _tl129363129664_ + _e129368129667_ + _hd129367129670_ + _tl129366129672_ + _e129371129675_ + _hd129370129678_ + _tl129369129680_ + _e129374129683_ + _hd129373129686_ + _tl129372129688_ + _e129377129691_ + _hd129376129694_ + _tl129375129696_)))) + (___match134036134037_ + (lambda (_e129322129766_ + _hd129321129769_ + _tl129320129771_ + _e129325129774_ + _hd129324129777_ + _tl129323129779_ + _e129328129782_ + _hd129327129785_ + _tl129326129787_ + _e129331129790_ + _hd129330129793_ + _tl129329129795_ + _e129334129798_ + _hd129333129801_ + _tl129332129803_ + _e129337129806_ + _hd129336129809_ + _tl129335129811_ + _e129340129814_ + _hd129339129817_ + _tl129338129819_ + _e129343129822_ + _hd129342129825_ + _tl129341129827_ + _e129346129830_ + _hd129345129833_ + _tl129344129835_ + _e129349129838_ + _hd129348129841_ + _tl129347129843_) + (let ((_L129846_ _hd129348129841_) + (_L129847_ _hd129339129817_) + (_L129848_ _hd129330129793_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L247174_ + _L129848_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L247174_ + _L129848_ 'unchecked-slot-ref))) (let () (declare (not safe)) (gx#free-identifier=? - _L247173_ - _self246532_))) - (___kont255645255646_ - _L247172_ - _L247173_ - _L247174_) - (___match256134256135_ - _e246648247092_ - _hd246647247095_ - _tl246646247097_ - _e246651247100_ - _hd246650247103_ - _tl246649247105_ - _e246654247108_ - _hd246653247111_ - _tl246652247113_ - _e246657247116_ - _hd246656247119_ - _tl246655247121_ - _e246660247124_ - _hd246659247127_ - _tl246658247129_ - _e246663247132_ - _hd246662247135_ - _tl246661247137_ - _e246666247140_ - _hd246665247143_ - _tl246664247145_ - _e246669247148_ - _hd246668247151_ - _tl246667247153_))))) - (___match255928255929_ - (lambda (_e246648247092_ - _hd246647247095_ - _tl246646247097_ - _e246651247100_ - _hd246650247103_ - _tl246649247105_ - _e246654247108_ - _hd246653247111_ - _tl246652247113_ - _e246657247116_ - _hd246656247119_ - _tl246655247121_ - _e246660247124_ - _hd246659247127_ - _tl246658247129_ - _e246663247132_ - _hd246662247135_ - _tl246661247137_ - _e246666247140_ - _hd246665247143_ - _tl246664247145_ - _e246669247148_ - _hd246668247151_ - _tl246667247153_ - _e246672247156_ - _hd246671247159_ - _tl246670247161_ - _e246675247164_ - _hd246674247167_ - _tl246673247169_) + _L129847_ + _self129206_))) + (___kont133751133752_ + _L129846_ + _L129847_ + _L129848_) + (___match134240134241_ + _e129322129766_ + _hd129321129769_ + _tl129320129771_ + _e129325129774_ + _hd129324129777_ + _tl129323129779_ + _e129328129782_ + _hd129327129785_ + _tl129326129787_ + _e129331129790_ + _hd129330129793_ + _tl129329129795_ + _e129334129798_ + _hd129333129801_ + _tl129332129803_ + _e129337129806_ + _hd129336129809_ + _tl129335129811_ + _e129340129814_ + _hd129339129817_ + _tl129338129819_ + _e129343129822_ + _hd129342129825_ + _tl129341129827_))))) + (___match134034134035_ + (lambda (_e129322129766_ + _hd129321129769_ + _tl129320129771_ + _e129325129774_ + _hd129324129777_ + _tl129323129779_ + _e129328129782_ + _hd129327129785_ + _tl129326129787_ + _e129331129790_ + _hd129330129793_ + _tl129329129795_ + _e129334129798_ + _hd129333129801_ + _tl129332129803_ + _e129337129806_ + _hd129336129809_ + _tl129335129811_ + _e129340129814_ + _hd129339129817_ + _tl129338129819_ + _e129343129822_ + _hd129342129825_ + _tl129341129827_ + _e129346129830_ + _hd129345129833_ + _tl129344129835_ + _e129349129838_ + _hd129348129841_ + _tl129347129843_) (if (let () (declare (not safe)) - (gx#stx-null? _tl246667247153_)) - (___match255930255931_ - _e246648247092_ - _hd246647247095_ - _tl246646247097_ - _e246651247100_ - _hd246650247103_ - _tl246649247105_ - _e246654247108_ - _hd246653247111_ - _tl246652247113_ - _e246657247116_ - _hd246656247119_ - _tl246655247121_ - _e246660247124_ - _hd246659247127_ - _tl246658247129_ - _e246663247132_ - _hd246662247135_ - _tl246661247137_ - _e246666247140_ - _hd246665247143_ - _tl246664247145_ - _e246669247148_ - _hd246668247151_ - _tl246667247153_ - _e246672247156_ - _hd246671247159_ - _tl246670247161_ - _e246675247164_ - _hd246674247167_ - _tl246673247169_) - (___match256008256009_ - _e246648247092_ - _hd246647247095_ - _tl246646247097_ - _e246651247100_ - _hd246650247103_ - _tl246649247105_ - _e246654247108_ - _hd246653247111_ - _tl246652247113_ - _e246657247116_ - _hd246656247119_ - _tl246655247121_ - _e246660247124_ - _hd246659247127_ - _tl246658247129_ - _e246663247132_ - _hd246662247135_ - _tl246661247137_ - _e246666247140_ - _hd246665247143_ - _tl246664247145_ - _e246669247148_ - _hd246668247151_ - _tl246667247153_ - _e246672247156_ - _hd246671247159_ - _tl246670247161_ - _e246675247164_ - _hd246674247167_ - _tl246673247169_)))) - (___match255918255919_ - (lambda (_e246648247092_ - _hd246647247095_ - _tl246646247097_ - _e246651247100_ - _hd246650247103_ - _tl246649247105_ - _e246654247108_ - _hd246653247111_ - _tl246652247113_ - _e246657247116_ - _hd246656247119_ - _tl246655247121_ - _e246660247124_ - _hd246659247127_ - _tl246658247129_ - _e246663247132_ - _hd246662247135_ - _tl246661247137_ - _e246666247140_ - _hd246665247143_ - _tl246664247145_ - _e246669247148_ - _hd246668247151_ - _tl246667247153_ - _e246672247156_ - _hd246671247159_ - _tl246670247161_) + (gx#stx-null? _tl129341129827_)) + (___match134036134037_ + _e129322129766_ + _hd129321129769_ + _tl129320129771_ + _e129325129774_ + _hd129324129777_ + _tl129323129779_ + _e129328129782_ + _hd129327129785_ + _tl129326129787_ + _e129331129790_ + _hd129330129793_ + _tl129329129795_ + _e129334129798_ + _hd129333129801_ + _tl129332129803_ + _e129337129806_ + _hd129336129809_ + _tl129335129811_ + _e129340129814_ + _hd129339129817_ + _tl129338129819_ + _e129343129822_ + _hd129342129825_ + _tl129341129827_ + _e129346129830_ + _hd129345129833_ + _tl129344129835_ + _e129349129838_ + _hd129348129841_ + _tl129347129843_) + (___match134114134115_ + _e129322129766_ + _hd129321129769_ + _tl129320129771_ + _e129325129774_ + _hd129324129777_ + _tl129323129779_ + _e129328129782_ + _hd129327129785_ + _tl129326129787_ + _e129331129790_ + _hd129330129793_ + _tl129329129795_ + _e129334129798_ + _hd129333129801_ + _tl129332129803_ + _e129337129806_ + _hd129336129809_ + _tl129335129811_ + _e129340129814_ + _hd129339129817_ + _tl129338129819_ + _e129343129822_ + _hd129342129825_ + _tl129341129827_ + _e129346129830_ + _hd129345129833_ + _tl129344129835_ + _e129349129838_ + _hd129348129841_ + _tl129347129843_)))) + (___match134024134025_ + (lambda (_e129322129766_ + _hd129321129769_ + _tl129320129771_ + _e129325129774_ + _hd129324129777_ + _tl129323129779_ + _e129328129782_ + _hd129327129785_ + _tl129326129787_ + _e129331129790_ + _hd129330129793_ + _tl129329129795_ + _e129334129798_ + _hd129333129801_ + _tl129332129803_ + _e129337129806_ + _hd129336129809_ + _tl129335129811_ + _e129340129814_ + _hd129339129817_ + _tl129338129819_ + _e129343129822_ + _hd129342129825_ + _tl129341129827_ + _e129346129830_ + _hd129345129833_ + _tl129344129835_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd246671247159_)) + (gx#stx-eq? '%#quote _hd129345129833_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246670247161_)) - (let ((_e246675247164_ + (gx#stx-pair? _tl129344129835_)) + (let ((_e129349129838_ (let () (declare (not safe)) - (gx#stx-e _tl246670247161_)))) - (let ((_tl246673247169_ + (gx#stx-e _tl129344129835_)))) + (let ((_tl129347129843_ (let () (declare (not safe)) - (##cdr _e246675247164_))) - (_hd246674247167_ + (##cdr _e129349129838_))) + (_hd129348129841_ (let () (declare (not safe)) - (##car _e246675247164_)))) + (##car _e129349129838_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246673247169_)) + (gx#stx-null? _tl129347129843_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl246667247153_)) - (___match255930255931_ - _e246648247092_ - _hd246647247095_ - _tl246646247097_ - _e246651247100_ - _hd246650247103_ - _tl246649247105_ - _e246654247108_ - _hd246653247111_ - _tl246652247113_ - _e246657247116_ - _hd246656247119_ - _tl246655247121_ - _e246660247124_ - _hd246659247127_ - _tl246658247129_ - _e246663247132_ - _hd246662247135_ - _tl246661247137_ - _e246666247140_ - _hd246665247143_ - _tl246664247145_ - _e246669247148_ - _hd246668247151_ - _tl246667247153_ - _e246672247156_ - _hd246671247159_ - _tl246670247161_ - _e246675247164_ - _hd246674247167_ - _tl246673247169_) - (___match256008256009_ - _e246648247092_ - _hd246647247095_ - _tl246646247097_ - _e246651247100_ - _hd246650247103_ - _tl246649247105_ - _e246654247108_ - _hd246653247111_ - _tl246652247113_ - _e246657247116_ - _hd246656247119_ - _tl246655247121_ - _e246660247124_ - _hd246659247127_ - _tl246658247129_ - _e246663247132_ - _hd246662247135_ - _tl246661247137_ - _e246666247140_ - _hd246665247143_ - _tl246664247145_ - _e246669247148_ - _hd246668247151_ - _tl246667247153_ - _e246672247156_ - _hd246671247159_ - _tl246670247161_ - _e246675247164_ - _hd246674247167_ - _tl246673247169_)) - (___match256132256133_ - _e246648247092_ - _hd246647247095_ - _tl246646247097_ - _e246651247100_ - _hd246650247103_ - _tl246649247105_ - _e246654247108_ - _hd246653247111_ - _tl246652247113_ - _e246657247116_ - _hd246656247119_ - _tl246655247121_ - _e246660247124_ - _hd246659247127_ - _tl246658247129_ - _e246663247132_ - _hd246662247135_ - _tl246661247137_ - _e246666247140_ - _hd246665247143_ - _tl246664247145_ - _e246669247148_ - _hd246668247151_ - _tl246667247153_)))) - (___match256132256133_ - _e246648247092_ - _hd246647247095_ - _tl246646247097_ - _e246651247100_ - _hd246650247103_ - _tl246649247105_ - _e246654247108_ - _hd246653247111_ - _tl246652247113_ - _e246657247116_ - _hd246656247119_ - _tl246655247121_ - _e246660247124_ - _hd246659247127_ - _tl246658247129_ - _e246663247132_ - _hd246662247135_ - _tl246661247137_ - _e246666247140_ - _hd246665247143_ - _tl246664247145_ - _e246669247148_ - _hd246668247151_ - _tl246667247153_)) - (___match256132256133_ - _e246648247092_ - _hd246647247095_ - _tl246646247097_ - _e246651247100_ - _hd246650247103_ - _tl246649247105_ - _e246654247108_ - _hd246653247111_ - _tl246652247113_ - _e246657247116_ - _hd246656247119_ - _tl246655247121_ - _e246660247124_ - _hd246659247127_ - _tl246658247129_ - _e246663247132_ - _hd246662247135_ - _tl246661247137_ - _e246666247140_ - _hd246665247143_ - _tl246664247145_ - _e246669247148_ - _hd246668247151_ - _tl246667247153_)))) - (___match255850255851_ - (lambda (_e246597247211_ - _hd246596247214_ - _tl246595247216_ - _e246600247219_ - _hd246599247222_ - _tl246598247224_ - _e246603247227_ - _hd246602247230_ - _tl246601247232_ - _e246606247235_ - _hd246605247238_ - _tl246604247240_ - _e246609247243_ - _hd246608247246_ - _tl246607247248_ - _e246612247251_ - _hd246611247254_ - _tl246610247256_ - _e246615247259_ - _hd246614247262_ - _tl246613247264_ - _e246618247267_ - _hd246617247270_ - _tl246616247272_ - _e246621247275_ - _hd246620247278_ - _tl246619247280_ - _e246624247283_ - _hd246623247286_ - _tl246622247288_ - _e246627247291_ - _hd246626247294_ - _tl246625247296_ - _e246630247299_ - _hd246629247302_ - _tl246628247304_ - _e246633247307_ - _hd246632247310_ - _tl246631247312_ - ___splice255643255644_ - _target246634247315_ - _tl246636247317_) - (letrec ((_loop246637247320_ - (lambda (_hd246635247323_ _args246641247325_) + (gx#stx-null? _tl129341129827_)) + (___match134036134037_ + _e129322129766_ + _hd129321129769_ + _tl129320129771_ + _e129325129774_ + _hd129324129777_ + _tl129323129779_ + _e129328129782_ + _hd129327129785_ + _tl129326129787_ + _e129331129790_ + _hd129330129793_ + _tl129329129795_ + _e129334129798_ + _hd129333129801_ + _tl129332129803_ + _e129337129806_ + _hd129336129809_ + _tl129335129811_ + _e129340129814_ + _hd129339129817_ + _tl129338129819_ + _e129343129822_ + _hd129342129825_ + _tl129341129827_ + _e129346129830_ + _hd129345129833_ + _tl129344129835_ + _e129349129838_ + _hd129348129841_ + _tl129347129843_) + (___match134114134115_ + _e129322129766_ + _hd129321129769_ + _tl129320129771_ + _e129325129774_ + _hd129324129777_ + _tl129323129779_ + _e129328129782_ + _hd129327129785_ + _tl129326129787_ + _e129331129790_ + _hd129330129793_ + _tl129329129795_ + _e129334129798_ + _hd129333129801_ + _tl129332129803_ + _e129337129806_ + _hd129336129809_ + _tl129335129811_ + _e129340129814_ + _hd129339129817_ + _tl129338129819_ + _e129343129822_ + _hd129342129825_ + _tl129341129827_ + _e129346129830_ + _hd129345129833_ + _tl129344129835_ + _e129349129838_ + _hd129348129841_ + _tl129347129843_)) + (___match134238134239_ + _e129322129766_ + _hd129321129769_ + _tl129320129771_ + _e129325129774_ + _hd129324129777_ + _tl129323129779_ + _e129328129782_ + _hd129327129785_ + _tl129326129787_ + _e129331129790_ + _hd129330129793_ + _tl129329129795_ + _e129334129798_ + _hd129333129801_ + _tl129332129803_ + _e129337129806_ + _hd129336129809_ + _tl129335129811_ + _e129340129814_ + _hd129339129817_ + _tl129338129819_ + _e129343129822_ + _hd129342129825_ + _tl129341129827_)))) + (___match134238134239_ + _e129322129766_ + _hd129321129769_ + _tl129320129771_ + _e129325129774_ + _hd129324129777_ + _tl129323129779_ + _e129328129782_ + _hd129327129785_ + _tl129326129787_ + _e129331129790_ + _hd129330129793_ + _tl129329129795_ + _e129334129798_ + _hd129333129801_ + _tl129332129803_ + _e129337129806_ + _hd129336129809_ + _tl129335129811_ + _e129340129814_ + _hd129339129817_ + _tl129338129819_ + _e129343129822_ + _hd129342129825_ + _tl129341129827_)) + (___match134238134239_ + _e129322129766_ + _hd129321129769_ + _tl129320129771_ + _e129325129774_ + _hd129324129777_ + _tl129323129779_ + _e129328129782_ + _hd129327129785_ + _tl129326129787_ + _e129331129790_ + _hd129330129793_ + _tl129329129795_ + _e129334129798_ + _hd129333129801_ + _tl129332129803_ + _e129337129806_ + _hd129336129809_ + _tl129335129811_ + _e129340129814_ + _hd129339129817_ + _tl129338129819_ + _e129343129822_ + _hd129342129825_ + _tl129341129827_)))) + (___match133956133957_ + (lambda (_e129271129885_ + _hd129270129888_ + _tl129269129890_ + _e129274129893_ + _hd129273129896_ + _tl129272129898_ + _e129277129901_ + _hd129276129904_ + _tl129275129906_ + _e129280129909_ + _hd129279129912_ + _tl129278129914_ + _e129283129917_ + _hd129282129920_ + _tl129281129922_ + _e129286129925_ + _hd129285129928_ + _tl129284129930_ + _e129289129933_ + _hd129288129936_ + _tl129287129938_ + _e129292129941_ + _hd129291129944_ + _tl129290129946_ + _e129295129949_ + _hd129294129952_ + _tl129293129954_ + _e129298129957_ + _hd129297129960_ + _tl129296129962_ + _e129301129965_ + _hd129300129968_ + _tl129299129970_ + _e129304129973_ + _hd129303129976_ + _tl129302129978_ + _e129307129981_ + _hd129306129984_ + _tl129305129986_ + ___splice133749133750_ + _target129308129989_ + _tl129310129991_) + (letrec ((_loop129311129994_ + (lambda (_hd129309129997_ _args129315129999_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd246635247323_)) - (let ((_e246638247328_ + (gx#stx-pair? _hd129309129997_)) + (let ((_e129312130002_ (let () (declare (not safe)) - (gx#stx-e _hd246635247323_)))) - (let ((_lp-tl246640247333_ + (gx#stx-e _hd129309129997_)))) + (let ((_lp-tl129314130007_ (let () (declare (not safe)) - (##cdr _e246638247328_))) - (_lp-hd246639247331_ + (##cdr _e129312130002_))) + (_lp-hd129313130005_ (let () (declare (not safe)) - (##car _e246638247328_)))) - (let ((__tmp257009 + (##car _e129312130002_)))) + (let ((__tmp135115 (let () (declare (not safe)) - (cons _lp-hd246639247331_ - _args246641247325_)))) + (cons _lp-hd129313130005_ + _args129315129999_)))) (declare (not safe)) - (_loop246637247320_ - _lp-tl246640247333_ - __tmp257009)))) - (let ((_args246642247336_ - (reverse _args246641247325_))) - (let ((_L247339_ _args246642247336_) - (_L247340_ _hd246632247310_) - (_L247341_ _hd246623247286_) - (_L247342_ _hd246614247262_) - (_L247343_ _hd246605247238_)) + (_loop129311129994_ + _lp-tl129314130007_ + __tmp135115)))) + (let ((_args129316130010_ + (reverse _args129315129999_))) + (let ((_L130013_ _args129316130010_) + (_L130014_ _hd129306129984_) + (_L130015_ _hd129297129960_) + (_L130016_ _hd129288129936_) + (_L130017_ _hd129279129912_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L247343_ + _L130017_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L247342_ + _L130016_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L247341_ - _self246532_))) - (___kont255641255642_ - _L247339_ - _L247340_ - _L247341_ - _L247342_ - _L247343_) - (___kont255653255654_)))))))) + _L130015_ + _self129206_))) + (___kont133747133748_ + _L130013_ + _L130014_ + _L130015_ + _L130016_ + _L130017_) + (___kont133759133760_)))))))) (let () (declare (not safe)) - (_loop246637247320_ _target246634247315_ '()))))) - (___match255808255809_ - (lambda (_e246597247211_ - _hd246596247214_ - _tl246595247216_ - _e246600247219_ - _hd246599247222_ - _tl246598247224_ - _e246603247227_ - _hd246602247230_ - _tl246601247232_ - _e246606247235_ - _hd246605247238_ - _tl246604247240_ - _e246609247243_ - _hd246608247246_ - _tl246607247248_ - _e246612247251_ - _hd246611247254_ - _tl246610247256_ - _e246615247259_ - _hd246614247262_ - _tl246613247264_ - _e246618247267_ - _hd246617247270_ - _tl246616247272_ - _e246621247275_ - _hd246620247278_ - _tl246619247280_) + (_loop129311129994_ _target129308129989_ '()))))) + (___match133914133915_ + (lambda (_e129271129885_ + _hd129270129888_ + _tl129269129890_ + _e129274129893_ + _hd129273129896_ + _tl129272129898_ + _e129277129901_ + _hd129276129904_ + _tl129275129906_ + _e129280129909_ + _hd129279129912_ + _tl129278129914_ + _e129283129917_ + _hd129282129920_ + _tl129281129922_ + _e129286129925_ + _hd129285129928_ + _tl129284129930_ + _e129289129933_ + _hd129288129936_ + _tl129287129938_ + _e129292129941_ + _hd129291129944_ + _tl129290129946_ + _e129295129949_ + _hd129294129952_ + _tl129293129954_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd246620247278_)) + (gx#stx-eq? '%#ref _hd129294129952_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246619247280_)) - (let ((_e246624247283_ + (gx#stx-pair? _tl129293129954_)) + (let ((_e129298129957_ (let () (declare (not safe)) - (gx#stx-e _tl246619247280_)))) - (let ((_tl246622247288_ + (gx#stx-e _tl129293129954_)))) + (let ((_tl129296129962_ (let () (declare (not safe)) - (##cdr _e246624247283_))) - (_hd246623247286_ + (##cdr _e129298129957_))) + (_hd129297129960_ (let () (declare (not safe)) - (##car _e246624247283_)))) + (##car _e129298129957_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246622247288_)) + (gx#stx-null? _tl129296129962_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246616247272_)) - (let ((_e246627247291_ + (gx#stx-pair? _tl129290129946_)) + (let ((_e129301129965_ (let () (declare (not safe)) (gx#stx-e - _tl246616247272_)))) - (let ((_tl246625247296_ + _tl129290129946_)))) + (let ((_tl129299129970_ (let () (declare (not safe)) - (##cdr _e246627247291_))) - (_hd246626247294_ + (##cdr _e129301129965_))) + (_hd129300129968_ (let () (declare (not safe)) - (##car _e246627247291_)))) + (##car _e129301129965_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd246626247294_)) - (let ((_e246630247299_ + _hd129300129968_)) + (let ((_e129304129973_ (let () (declare (not safe)) (gx#stx-e - _hd246626247294_)))) - (let ((_tl246628247304_ + _hd129300129968_)))) + (let ((_tl129302129978_ (let () (declare (not safe)) - (##cdr _e246630247299_))) - (_hd246629247302_ + (##cdr _e129304129973_))) + (_hd129303129976_ (let () (declare (not safe)) - (##car _e246630247299_)))) + (##car _e129304129973_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd246629247302_)) + _hd129303129976_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _hd246629247302_)) + (gx#stx-eq? '%#quote _hd129303129976_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246628247304_)) - (let ((_e246633247307_ + (gx#stx-pair? _tl129302129978_)) + (let ((_e129307129981_ (let () (declare (not safe)) - (gx#stx-e _tl246628247304_)))) - (let ((_tl246631247312_ + (gx#stx-e _tl129302129978_)))) + (let ((_tl129305129986_ (let () (declare (not safe)) - (##cdr _e246633247307_))) - (_hd246632247310_ + (##cdr _e129307129981_))) + (_hd129306129984_ (let () (declare (not safe)) - (##car _e246633247307_)))) + (##car _e129307129981_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246631247312_)) + (gx#stx-null? _tl129305129986_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl246625247296_)) - (let ((___splice255643255644_ + (gx#stx-pair/null? _tl129299129970_)) + (let ((___splice133749133750_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl246625247296_ + _tl129299129970_ '0)))) - (let ((_tl246636247317_ + (let ((_tl129310129991_ (let () (declare (not safe)) (##vector-ref - ___splice255643255644_ + ___splice133749133750_ '1))) - (_target246634247315_ + (_target129308129989_ (let () (declare (not safe)) (##vector-ref - ___splice255643255644_ + ___splice133749133750_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl246636247317_)) - (___match255850255851_ - _e246597247211_ - _hd246596247214_ - _tl246595247216_ - _e246600247219_ - _hd246599247222_ - _tl246598247224_ - _e246603247227_ - _hd246602247230_ - _tl246601247232_ - _e246606247235_ - _hd246605247238_ - _tl246604247240_ - _e246609247243_ - _hd246608247246_ - _tl246607247248_ - _e246612247251_ - _hd246611247254_ - _tl246610247256_ - _e246615247259_ - _hd246614247262_ - _tl246613247264_ - _e246618247267_ - _hd246617247270_ - _tl246616247272_ - _e246621247275_ - _hd246620247278_ - _tl246619247280_ - _e246624247283_ - _hd246623247286_ - _tl246622247288_ - _e246627247291_ - _hd246626247294_ - _tl246625247296_ - _e246630247299_ - _hd246629247302_ - _tl246628247304_ - _e246633247307_ - _hd246632247310_ - _tl246631247312_ - ___splice255643255644_ - _target246634247315_ - _tl246636247317_) - (___kont255653255654_)))) - (___kont255653255654_)) - (___kont255653255654_)))) - (___kont255653255654_)) - (___kont255653255654_)) - (___kont255653255654_)))) + _tl129310129991_)) + (___match133956133957_ + _e129271129885_ + _hd129270129888_ + _tl129269129890_ + _e129274129893_ + _hd129273129896_ + _tl129272129898_ + _e129277129901_ + _hd129276129904_ + _tl129275129906_ + _e129280129909_ + _hd129279129912_ + _tl129278129914_ + _e129283129917_ + _hd129282129920_ + _tl129281129922_ + _e129286129925_ + _hd129285129928_ + _tl129284129930_ + _e129289129933_ + _hd129288129936_ + _tl129287129938_ + _e129292129941_ + _hd129291129944_ + _tl129290129946_ + _e129295129949_ + _hd129294129952_ + _tl129293129954_ + _e129298129957_ + _hd129297129960_ + _tl129296129962_ + _e129301129965_ + _hd129300129968_ + _tl129299129970_ + _e129304129973_ + _hd129303129976_ + _tl129302129978_ + _e129307129981_ + _hd129306129984_ + _tl129305129986_ + ___splice133749133750_ + _target129308129989_ + _tl129310129991_) + (___kont133759133760_)))) + (___kont133759133760_)) + (___kont133759133760_)))) + (___kont133759133760_)) + (___kont133759133760_)) + (___kont133759133760_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont255653255654_)))) - (___match256132256133_ - _e246597247211_ - _hd246596247214_ - _tl246595247216_ - _e246600247219_ - _hd246599247222_ - _tl246598247224_ - _e246603247227_ - _hd246602247230_ - _tl246601247232_ - _e246606247235_ - _hd246605247238_ - _tl246604247240_ - _e246609247243_ - _hd246608247246_ - _tl246607247248_ - _e246612247251_ - _hd246611247254_ - _tl246610247256_ - _e246615247259_ - _hd246614247262_ - _tl246613247264_ - _e246618247267_ - _hd246617247270_ - _tl246616247272_)) - (___match256132256133_ - _e246597247211_ - _hd246596247214_ - _tl246595247216_ - _e246600247219_ - _hd246599247222_ - _tl246598247224_ - _e246603247227_ - _hd246602247230_ - _tl246601247232_ - _e246606247235_ - _hd246605247238_ - _tl246604247240_ - _e246609247243_ - _hd246608247246_ - _tl246607247248_ - _e246612247251_ - _hd246611247254_ - _tl246610247256_ - _e246615247259_ - _hd246614247262_ - _tl246613247264_ - _e246618247267_ - _hd246617247270_ - _tl246616247272_)))) - (___match256132256133_ - _e246597247211_ - _hd246596247214_ - _tl246595247216_ - _e246600247219_ - _hd246599247222_ - _tl246598247224_ - _e246603247227_ - _hd246602247230_ - _tl246601247232_ - _e246606247235_ - _hd246605247238_ - _tl246604247240_ - _e246609247243_ - _hd246608247246_ - _tl246607247248_ - _e246612247251_ - _hd246611247254_ - _tl246610247256_ - _e246615247259_ - _hd246614247262_ - _tl246613247264_ - _e246618247267_ - _hd246617247270_ - _tl246616247272_)) - (___match255918255919_ - _e246597247211_ - _hd246596247214_ - _tl246595247216_ - _e246600247219_ - _hd246599247222_ - _tl246598247224_ - _e246603247227_ - _hd246602247230_ - _tl246601247232_ - _e246606247235_ - _hd246605247238_ - _tl246604247240_ - _e246609247243_ - _hd246608247246_ - _tl246607247248_ - _e246612247251_ - _hd246611247254_ - _tl246610247256_ - _e246615247259_ - _hd246614247262_ - _tl246613247264_ - _e246618247267_ - _hd246617247270_ - _tl246616247272_ - _e246621247275_ - _hd246620247278_ - _tl246619247280_)))) - (___match255740255741_ - (lambda (_e246553247400_ - _hd246552247403_ - _tl246551247405_ - _e246556247408_ - _hd246555247411_ - _tl246554247413_ - _e246559247416_ - _hd246558247419_ - _tl246557247421_ - _e246562247424_ - _hd246561247427_ - _tl246560247429_ - _e246565247432_ - _hd246564247435_ - _tl246563247437_ - _e246568247440_ - _hd246567247443_ - _tl246566247445_ - _e246571247448_ - _hd246570247451_ - _tl246569247453_ - _e246574247456_ - _hd246573247459_ - _tl246572247461_ - _e246577247464_ - _hd246576247467_ - _tl246575247469_ - _e246580247472_ - _hd246579247475_ - _tl246578247477_ - ___splice255639255640_ - _target246581247480_ - _tl246583247482_) - (letrec ((_loop246584247485_ - (lambda (_hd246582247488_ _args246588247490_) + (___kont133759133760_)))) + (___match134238134239_ + _e129271129885_ + _hd129270129888_ + _tl129269129890_ + _e129274129893_ + _hd129273129896_ + _tl129272129898_ + _e129277129901_ + _hd129276129904_ + _tl129275129906_ + _e129280129909_ + _hd129279129912_ + _tl129278129914_ + _e129283129917_ + _hd129282129920_ + _tl129281129922_ + _e129286129925_ + _hd129285129928_ + _tl129284129930_ + _e129289129933_ + _hd129288129936_ + _tl129287129938_ + _e129292129941_ + _hd129291129944_ + _tl129290129946_)) + (___match134238134239_ + _e129271129885_ + _hd129270129888_ + _tl129269129890_ + _e129274129893_ + _hd129273129896_ + _tl129272129898_ + _e129277129901_ + _hd129276129904_ + _tl129275129906_ + _e129280129909_ + _hd129279129912_ + _tl129278129914_ + _e129283129917_ + _hd129282129920_ + _tl129281129922_ + _e129286129925_ + _hd129285129928_ + _tl129284129930_ + _e129289129933_ + _hd129288129936_ + _tl129287129938_ + _e129292129941_ + _hd129291129944_ + _tl129290129946_)))) + (___match134238134239_ + _e129271129885_ + _hd129270129888_ + _tl129269129890_ + _e129274129893_ + _hd129273129896_ + _tl129272129898_ + _e129277129901_ + _hd129276129904_ + _tl129275129906_ + _e129280129909_ + _hd129279129912_ + _tl129278129914_ + _e129283129917_ + _hd129282129920_ + _tl129281129922_ + _e129286129925_ + _hd129285129928_ + _tl129284129930_ + _e129289129933_ + _hd129288129936_ + _tl129287129938_ + _e129292129941_ + _hd129291129944_ + _tl129290129946_)) + (___match134024134025_ + _e129271129885_ + _hd129270129888_ + _tl129269129890_ + _e129274129893_ + _hd129273129896_ + _tl129272129898_ + _e129277129901_ + _hd129276129904_ + _tl129275129906_ + _e129280129909_ + _hd129279129912_ + _tl129278129914_ + _e129283129917_ + _hd129282129920_ + _tl129281129922_ + _e129286129925_ + _hd129285129928_ + _tl129284129930_ + _e129289129933_ + _hd129288129936_ + _tl129287129938_ + _e129292129941_ + _hd129291129944_ + _tl129290129946_ + _e129295129949_ + _hd129294129952_ + _tl129293129954_)))) + (___match133846133847_ + (lambda (_e129227130074_ + _hd129226130077_ + _tl129225130079_ + _e129230130082_ + _hd129229130085_ + _tl129228130087_ + _e129233130090_ + _hd129232130093_ + _tl129231130095_ + _e129236130098_ + _hd129235130101_ + _tl129234130103_ + _e129239130106_ + _hd129238130109_ + _tl129237130111_ + _e129242130114_ + _hd129241130117_ + _tl129240130119_ + _e129245130122_ + _hd129244130125_ + _tl129243130127_ + _e129248130130_ + _hd129247130133_ + _tl129246130135_ + _e129251130138_ + _hd129250130141_ + _tl129249130143_ + _e129254130146_ + _hd129253130149_ + _tl129252130151_ + ___splice133745133746_ + _target129255130154_ + _tl129257130156_) + (letrec ((_loop129258130159_ + (lambda (_hd129256130162_ _args129262130164_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd246582247488_)) - (let ((_e246585247493_ + (gx#stx-pair? _hd129256130162_)) + (let ((_e129259130167_ (let () (declare (not safe)) - (gx#stx-e _hd246582247488_)))) - (let ((_lp-tl246587247498_ + (gx#stx-e _hd129256130162_)))) + (let ((_lp-tl129261130172_ (let () (declare (not safe)) - (##cdr _e246585247493_))) - (_lp-hd246586247496_ + (##cdr _e129259130167_))) + (_lp-hd129260130170_ (let () (declare (not safe)) - (##car _e246585247493_)))) - (let ((__tmp257010 + (##car _e129259130167_)))) + (let ((__tmp135116 (let () (declare (not safe)) - (cons _lp-hd246586247496_ - _args246588247490_)))) + (cons _lp-hd129260130170_ + _args129262130164_)))) (declare (not safe)) - (_loop246584247485_ - _lp-tl246587247498_ - __tmp257010)))) - (let ((_args246589247501_ - (reverse _args246588247490_))) - (let ((_L247504_ _args246589247501_) - (_L247505_ _hd246579247475_) - (_L247506_ _hd246570247451_) - (_L247507_ _hd246561247427_)) + (_loop129258130159_ + _lp-tl129261130172_ + __tmp135116)))) + (let ((_args129263130175_ + (reverse _args129262130164_))) + (let ((_L130178_ _args129263130175_) + (_L130179_ _hd129253130149_) + (_L130180_ _hd129244130125_) + (_L130181_ _hd129235130101_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L247507_ + _L130181_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L247506_ - _self246532_))) - (___kont255637255638_ - _L247504_ - _L247505_ - _L247506_ - _L247507_) - (___match255928255929_ - _e246553247400_ - _hd246552247403_ - _tl246551247405_ - _e246556247408_ - _hd246555247411_ - _tl246554247413_ - _e246559247416_ - _hd246558247419_ - _tl246557247421_ - _e246562247424_ - _hd246561247427_ - _tl246560247429_ - _e246565247432_ - _hd246564247435_ - _tl246563247437_ - _e246568247440_ - _hd246567247443_ - _tl246566247445_ - _e246571247448_ - _hd246570247451_ - _tl246569247453_ - _e246574247456_ - _hd246573247459_ - _tl246572247461_ - _e246577247464_ - _hd246576247467_ - _tl246575247469_ - _e246580247472_ - _hd246579247475_ - _tl246578247477_)))))))) + _L130180_ + _self129206_))) + (___kont133743133744_ + _L130178_ + _L130179_ + _L130180_ + _L130181_) + (___match134034134035_ + _e129227130074_ + _hd129226130077_ + _tl129225130079_ + _e129230130082_ + _hd129229130085_ + _tl129228130087_ + _e129233130090_ + _hd129232130093_ + _tl129231130095_ + _e129236130098_ + _hd129235130101_ + _tl129234130103_ + _e129239130106_ + _hd129238130109_ + _tl129237130111_ + _e129242130114_ + _hd129241130117_ + _tl129240130119_ + _e129245130122_ + _hd129244130125_ + _tl129243130127_ + _e129248130130_ + _hd129247130133_ + _tl129246130135_ + _e129251130138_ + _hd129250130141_ + _tl129249130143_ + _e129254130146_ + _hd129253130149_ + _tl129252130151_)))))))) (let () (declare (not safe)) - (_loop246584247485_ _target246581247480_ '())))))) + (_loop129258130159_ _target129255130154_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx255635255636_)) - (let ((_e246553247400_ + (gx#stx-pair? ___stx133741133742_)) + (let ((_e129227130074_ (let () (declare (not safe)) - (gx#stx-e ___stx255635255636_)))) - (let ((_tl246551247405_ + (gx#stx-e ___stx133741133742_)))) + (let ((_tl129225130079_ (let () (declare (not safe)) - (##cdr _e246553247400_))) - (_hd246552247403_ + (##cdr _e129227130074_))) + (_hd129226130077_ (let () (declare (not safe)) - (##car _e246553247400_)))) + (##car _e129227130074_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246551247405_)) - (let ((_e246556247408_ + (gx#stx-pair? _tl129225130079_)) + (let ((_e129230130082_ (let () (declare (not safe)) - (gx#stx-e _tl246551247405_)))) - (let ((_tl246554247413_ + (gx#stx-e _tl129225130079_)))) + (let ((_tl129228130087_ (let () (declare (not safe)) - (##cdr _e246556247408_))) - (_hd246555247411_ + (##cdr _e129230130082_))) + (_hd129229130085_ (let () (declare (not safe)) - (##car _e246556247408_)))) + (##car _e129230130082_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd246555247411_)) - (let ((_e246559247416_ + (gx#stx-pair? _hd129229130085_)) + (let ((_e129233130090_ (let () (declare (not safe)) - (gx#stx-e _hd246555247411_)))) - (let ((_tl246557247421_ + (gx#stx-e _hd129229130085_)))) + (let ((_tl129231130095_ (let () (declare (not safe)) - (##cdr _e246559247416_))) - (_hd246558247419_ + (##cdr _e129233130090_))) + (_hd129232130093_ (let () (declare (not safe)) - (##car _e246559247416_)))) + (##car _e129233130090_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd246558247419_)) + (gx#identifier? _hd129232130093_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd246558247419_)) + _hd129232130093_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl246557247421_)) - (let ((_e246562247424_ + _tl129231130095_)) + (let ((_e129236130098_ (let () (declare (not safe)) (gx#stx-e - _tl246557247421_)))) - (let ((_tl246560247429_ + _tl129231130095_)))) + (let ((_tl129234130103_ (let () (declare (not safe)) - (##cdr _e246562247424_))) - (_hd246561247427_ + (##cdr _e129236130098_))) + (_hd129235130101_ (let () (declare (not safe)) - (##car _e246562247424_)))) + (##car _e129236130098_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl246560247429_)) + _tl129234130103_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl246554247413_)) - (let ((_e246565247432_ + (gx#stx-pair? _tl129228130087_)) + (let ((_e129239130106_ (let () (declare (not safe)) - (gx#stx-e _tl246554247413_)))) - (let ((_tl246563247437_ + (gx#stx-e _tl129228130087_)))) + (let ((_tl129237130111_ (let () (declare (not safe)) - (##cdr _e246565247432_))) - (_hd246564247435_ + (##cdr _e129239130106_))) + (_hd129238130109_ (let () (declare (not safe)) - (##car _e246565247432_)))) + (##car _e129239130106_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd246564247435_)) - (let ((_e246568247440_ + (gx#stx-pair? _hd129238130109_)) + (let ((_e129242130114_ (let () (declare (not safe)) - (gx#stx-e _hd246564247435_)))) - (let ((_tl246566247445_ + (gx#stx-e _hd129238130109_)))) + (let ((_tl129240130119_ (let () (declare (not safe)) - (##cdr _e246568247440_))) - (_hd246567247443_ + (##cdr _e129242130114_))) + (_hd129241130117_ (let () (declare (not safe)) - (##car _e246568247440_)))) + (##car _e129242130114_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd246567247443_)) + (gx#identifier? _hd129241130117_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd246567247443_)) + _hd129241130117_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl246566247445_)) - (let ((_e246571247448_ + _tl129240130119_)) + (let ((_e129245130122_ (let () (declare (not safe)) (gx#stx-e - _tl246566247445_)))) - (let ((_tl246569247453_ + _tl129240130119_)))) + (let ((_tl129243130127_ (let () (declare (not safe)) - (##cdr _e246571247448_))) - (_hd246570247451_ + (##cdr _e129245130122_))) + (_hd129244130125_ (let () (declare (not safe)) - (##car _e246571247448_)))) + (##car _e129245130122_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl246569247453_)) + _tl129243130127_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl246563247437_)) - (let ((_e246574247456_ + _tl129237130111_)) + (let ((_e129248130130_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl246563247437_)))) - (let ((_tl246572247461_ + (gx#stx-e _tl129237130111_)))) + (let ((_tl129246130135_ (let () (declare (not safe)) - (##cdr _e246574247456_))) - (_hd246573247459_ + (##cdr _e129248130130_))) + (_hd129247130133_ (let () (declare (not safe)) - (##car _e246574247456_)))) + (##car _e129248130130_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd246573247459_)) - (let ((_e246577247464_ + (gx#stx-pair? _hd129247130133_)) + (let ((_e129251130138_ (let () (declare (not safe)) - (gx#stx-e _hd246573247459_)))) - (let ((_tl246575247469_ + (gx#stx-e _hd129247130133_)))) + (let ((_tl129249130143_ (let () (declare (not safe)) - (##cdr _e246577247464_))) - (_hd246576247467_ + (##cdr _e129251130138_))) + (_hd129250130141_ (let () (declare (not safe)) - (##car _e246577247464_)))) + (##car _e129251130138_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd246576247467_)) + (gx#identifier? _hd129250130141_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd246576247467_)) + (gx#stx-eq? '%#quote _hd129250130141_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246575247469_)) - (let ((_e246580247472_ + (gx#stx-pair? _tl129249130143_)) + (let ((_e129254130146_ (let () (declare (not safe)) (gx#stx-e - _tl246575247469_)))) - (let ((_tl246578247477_ + _tl129249130143_)))) + (let ((_tl129252130151_ (let () (declare (not safe)) - (##cdr _e246580247472_))) - (_hd246579247475_ + (##cdr _e129254130146_))) + (_hd129253130149_ (let () (declare (not safe)) - (##car _e246580247472_)))) + (##car _e129254130146_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl246578247477_)) + _tl129252130151_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl246572247461_)) - (let ((___splice255639255640_ + _tl129246130135_)) + (let ((___splice133745133746_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl246572247461_ '0)))) - (let ((_tl246583247482_ + (gx#syntax-split-splice _tl129246130135_ '0)))) + (let ((_tl129257130156_ (let () (declare (not safe)) - (##vector-ref ___splice255639255640_ '1))) - (_target246581247480_ + (##vector-ref ___splice133745133746_ '1))) + (_target129255130154_ (let () (declare (not safe)) - (##vector-ref ___splice255639255640_ '0)))) + (##vector-ref ___splice133745133746_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246583247482_)) - (___match255740255741_ - _e246553247400_ - _hd246552247403_ - _tl246551247405_ - _e246556247408_ - _hd246555247411_ - _tl246554247413_ - _e246559247416_ - _hd246558247419_ - _tl246557247421_ - _e246562247424_ - _hd246561247427_ - _tl246560247429_ - _e246565247432_ - _hd246564247435_ - _tl246563247437_ - _e246568247440_ - _hd246567247443_ - _tl246566247445_ - _e246571247448_ - _hd246570247451_ - _tl246569247453_ - _e246574247456_ - _hd246573247459_ - _tl246572247461_ - _e246577247464_ - _hd246576247467_ - _tl246575247469_ - _e246580247472_ - _hd246579247475_ - _tl246578247477_ - ___splice255639255640_ - _target246581247480_ - _tl246583247482_) - (___match255928255929_ - _e246553247400_ - _hd246552247403_ - _tl246551247405_ - _e246556247408_ - _hd246555247411_ - _tl246554247413_ - _e246559247416_ - _hd246558247419_ - _tl246557247421_ - _e246562247424_ - _hd246561247427_ - _tl246560247429_ - _e246565247432_ - _hd246564247435_ - _tl246563247437_ - _e246568247440_ - _hd246567247443_ - _tl246566247445_ - _e246571247448_ - _hd246570247451_ - _tl246569247453_ - _e246574247456_ - _hd246573247459_ - _tl246572247461_ - _e246577247464_ - _hd246576247467_ - _tl246575247469_ - _e246580247472_ - _hd246579247475_ - _tl246578247477_)))) - (___match255928255929_ - _e246553247400_ - _hd246552247403_ - _tl246551247405_ - _e246556247408_ - _hd246555247411_ - _tl246554247413_ - _e246559247416_ - _hd246558247419_ - _tl246557247421_ - _e246562247424_ - _hd246561247427_ - _tl246560247429_ - _e246565247432_ - _hd246564247435_ - _tl246563247437_ - _e246568247440_ - _hd246567247443_ - _tl246566247445_ - _e246571247448_ - _hd246570247451_ - _tl246569247453_ - _e246574247456_ - _hd246573247459_ - _tl246572247461_ - _e246577247464_ - _hd246576247467_ - _tl246575247469_ - _e246580247472_ - _hd246579247475_ - _tl246578247477_)) + (gx#stx-null? _tl129257130156_)) + (___match133846133847_ + _e129227130074_ + _hd129226130077_ + _tl129225130079_ + _e129230130082_ + _hd129229130085_ + _tl129228130087_ + _e129233130090_ + _hd129232130093_ + _tl129231130095_ + _e129236130098_ + _hd129235130101_ + _tl129234130103_ + _e129239130106_ + _hd129238130109_ + _tl129237130111_ + _e129242130114_ + _hd129241130117_ + _tl129240130119_ + _e129245130122_ + _hd129244130125_ + _tl129243130127_ + _e129248130130_ + _hd129247130133_ + _tl129246130135_ + _e129251130138_ + _hd129250130141_ + _tl129249130143_ + _e129254130146_ + _hd129253130149_ + _tl129252130151_ + ___splice133745133746_ + _target129255130154_ + _tl129257130156_) + (___match134034134035_ + _e129227130074_ + _hd129226130077_ + _tl129225130079_ + _e129230130082_ + _hd129229130085_ + _tl129228130087_ + _e129233130090_ + _hd129232130093_ + _tl129231130095_ + _e129236130098_ + _hd129235130101_ + _tl129234130103_ + _e129239130106_ + _hd129238130109_ + _tl129237130111_ + _e129242130114_ + _hd129241130117_ + _tl129240130119_ + _e129245130122_ + _hd129244130125_ + _tl129243130127_ + _e129248130130_ + _hd129247130133_ + _tl129246130135_ + _e129251130138_ + _hd129250130141_ + _tl129249130143_ + _e129254130146_ + _hd129253130149_ + _tl129252130151_)))) + (___match134034134035_ + _e129227130074_ + _hd129226130077_ + _tl129225130079_ + _e129230130082_ + _hd129229130085_ + _tl129228130087_ + _e129233130090_ + _hd129232130093_ + _tl129231130095_ + _e129236130098_ + _hd129235130101_ + _tl129234130103_ + _e129239130106_ + _hd129238130109_ + _tl129237130111_ + _e129242130114_ + _hd129241130117_ + _tl129240130119_ + _e129245130122_ + _hd129244130125_ + _tl129243130127_ + _e129248130130_ + _hd129247130133_ + _tl129246130135_ + _e129251130138_ + _hd129250130141_ + _tl129249130143_ + _e129254130146_ + _hd129253130149_ + _tl129252130151_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match256132256133_ - _e246553247400_ - _hd246552247403_ - _tl246551247405_ - _e246556247408_ - _hd246555247411_ - _tl246554247413_ - _e246559247416_ - _hd246558247419_ - _tl246557247421_ - _e246562247424_ - _hd246561247427_ - _tl246560247429_ - _e246565247432_ - _hd246564247435_ - _tl246563247437_ - _e246568247440_ - _hd246567247443_ - _tl246566247445_ - _e246571247448_ - _hd246570247451_ - _tl246569247453_ - _e246574247456_ - _hd246573247459_ - _tl246572247461_)))) - (___match256132256133_ - _e246553247400_ - _hd246552247403_ - _tl246551247405_ - _e246556247408_ - _hd246555247411_ - _tl246554247413_ - _e246559247416_ - _hd246558247419_ - _tl246557247421_ - _e246562247424_ - _hd246561247427_ - _tl246560247429_ - _e246565247432_ - _hd246564247435_ - _tl246563247437_ - _e246568247440_ - _hd246567247443_ - _tl246566247445_ - _e246571247448_ - _hd246570247451_ - _tl246569247453_ - _e246574247456_ - _hd246573247459_ - _tl246572247461_)) - (___match255808255809_ - _e246553247400_ - _hd246552247403_ - _tl246551247405_ - _e246556247408_ - _hd246555247411_ - _tl246554247413_ - _e246559247416_ - _hd246558247419_ - _tl246557247421_ - _e246562247424_ - _hd246561247427_ - _tl246560247429_ - _e246565247432_ - _hd246564247435_ - _tl246563247437_ - _e246568247440_ - _hd246567247443_ - _tl246566247445_ - _e246571247448_ - _hd246570247451_ - _tl246569247453_ - _e246574247456_ - _hd246573247459_ - _tl246572247461_ - _e246577247464_ - _hd246576247467_ - _tl246575247469_)) - (___match256132256133_ - _e246553247400_ - _hd246552247403_ - _tl246551247405_ - _e246556247408_ - _hd246555247411_ - _tl246554247413_ - _e246559247416_ - _hd246558247419_ - _tl246557247421_ - _e246562247424_ - _hd246561247427_ - _tl246560247429_ - _e246565247432_ - _hd246564247435_ - _tl246563247437_ - _e246568247440_ - _hd246567247443_ - _tl246566247445_ - _e246571247448_ - _hd246570247451_ - _tl246569247453_ - _e246574247456_ - _hd246573247459_ - _tl246572247461_)))) - (___match256132256133_ - _e246553247400_ - _hd246552247403_ - _tl246551247405_ - _e246556247408_ - _hd246555247411_ - _tl246554247413_ - _e246559247416_ - _hd246558247419_ - _tl246557247421_ - _e246562247424_ - _hd246561247427_ - _tl246560247429_ - _e246565247432_ - _hd246564247435_ - _tl246563247437_ - _e246568247440_ - _hd246567247443_ - _tl246566247445_ - _e246571247448_ - _hd246570247451_ - _tl246569247453_ - _e246574247456_ - _hd246573247459_ - _tl246572247461_)))) - (___match256070256071_ - _e246553247400_ - _hd246552247403_ - _tl246551247405_ - _e246556247408_ - _hd246555247411_ - _tl246554247413_ - _e246559247416_ - _hd246558247419_ - _tl246557247421_ - _e246562247424_ - _hd246561247427_ - _tl246560247429_ - _e246565247432_ - _hd246564247435_ - _tl246563247437_ - _e246568247440_ - _hd246567247443_ - _tl246566247445_ - _e246571247448_ - _hd246570247451_ - _tl246569247453_)) - (___kont255653255654_)))) + (___match134238134239_ + _e129227130074_ + _hd129226130077_ + _tl129225130079_ + _e129230130082_ + _hd129229130085_ + _tl129228130087_ + _e129233130090_ + _hd129232130093_ + _tl129231130095_ + _e129236130098_ + _hd129235130101_ + _tl129234130103_ + _e129239130106_ + _hd129238130109_ + _tl129237130111_ + _e129242130114_ + _hd129241130117_ + _tl129240130119_ + _e129245130122_ + _hd129244130125_ + _tl129243130127_ + _e129248130130_ + _hd129247130133_ + _tl129246130135_)))) + (___match134238134239_ + _e129227130074_ + _hd129226130077_ + _tl129225130079_ + _e129230130082_ + _hd129229130085_ + _tl129228130087_ + _e129233130090_ + _hd129232130093_ + _tl129231130095_ + _e129236130098_ + _hd129235130101_ + _tl129234130103_ + _e129239130106_ + _hd129238130109_ + _tl129237130111_ + _e129242130114_ + _hd129241130117_ + _tl129240130119_ + _e129245130122_ + _hd129244130125_ + _tl129243130127_ + _e129248130130_ + _hd129247130133_ + _tl129246130135_)) + (___match133914133915_ + _e129227130074_ + _hd129226130077_ + _tl129225130079_ + _e129230130082_ + _hd129229130085_ + _tl129228130087_ + _e129233130090_ + _hd129232130093_ + _tl129231130095_ + _e129236130098_ + _hd129235130101_ + _tl129234130103_ + _e129239130106_ + _hd129238130109_ + _tl129237130111_ + _e129242130114_ + _hd129241130117_ + _tl129240130119_ + _e129245130122_ + _hd129244130125_ + _tl129243130127_ + _e129248130130_ + _hd129247130133_ + _tl129246130135_ + _e129251130138_ + _hd129250130141_ + _tl129249130143_)) + (___match134238134239_ + _e129227130074_ + _hd129226130077_ + _tl129225130079_ + _e129230130082_ + _hd129229130085_ + _tl129228130087_ + _e129233130090_ + _hd129232130093_ + _tl129231130095_ + _e129236130098_ + _hd129235130101_ + _tl129234130103_ + _e129239130106_ + _hd129238130109_ + _tl129237130111_ + _e129242130114_ + _hd129241130117_ + _tl129240130119_ + _e129245130122_ + _hd129244130125_ + _tl129243130127_ + _e129248130130_ + _hd129247130133_ + _tl129246130135_)))) + (___match134238134239_ + _e129227130074_ + _hd129226130077_ + _tl129225130079_ + _e129230130082_ + _hd129229130085_ + _tl129228130087_ + _e129233130090_ + _hd129232130093_ + _tl129231130095_ + _e129236130098_ + _hd129235130101_ + _tl129234130103_ + _e129239130106_ + _hd129238130109_ + _tl129237130111_ + _e129242130114_ + _hd129241130117_ + _tl129240130119_ + _e129245130122_ + _hd129244130125_ + _tl129243130127_ + _e129248130130_ + _hd129247130133_ + _tl129246130135_)))) + (___match134176134177_ + _e129227130074_ + _hd129226130077_ + _tl129225130079_ + _e129230130082_ + _hd129229130085_ + _tl129228130087_ + _e129233130090_ + _hd129232130093_ + _tl129231130095_ + _e129236130098_ + _hd129235130101_ + _tl129234130103_ + _e129239130106_ + _hd129238130109_ + _tl129237130111_ + _e129242130114_ + _hd129241130117_ + _tl129240130119_ + _e129245130122_ + _hd129244130125_ + _tl129243130127_)) + (___kont133759133760_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont255653255654_)) - (___kont255653255654_)) - (___kont255653255654_)))) - (___kont255653255654_)))) - (___kont255653255654_)) - (___kont255653255654_)))) + (___kont133759133760_)) + (___kont133759133760_)) + (___kont133759133760_)))) + (___kont133759133760_)))) + (___kont133759133760_)) + (___kont133759133760_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont255653255654_)) - (___kont255653255654_)) - (___kont255653255654_)))) - (___kont255653255654_)))) - (___kont255653255654_)))) - (___kont255653255654_))))))) + (___kont133759133760_)) + (___kont133759133760_)) + (___kont133759133760_)))) + (___kont133759133760_)))) + (___kont133759133760_)))) + (___kont133759133760_))))))) (define gxc#subst-object-refs-call% - (lambda (_stx245477_ - _self245478_ - _$t245479_ - _methods245480_ - _slots245481_ - _class-check245482_ - _struct-check245483_ - _struct-assert245484_) - (letrec ((_force-e245486_ - (lambda (_what246529_) - (let ((__tmp257011 - (let ((__tmp257015 - (let ((__tmp257016 + (lambda (_stx128151_ + _self128152_ + _$t128153_ + _methods128154_ + _slots128155_ + _class-check128156_ + _struct-check128157_ + _struct-assert128158_) + (letrec ((_force-e128160_ + (lambda (_what129203_) + (let ((__tmp135117 + (let ((__tmp135121 + (let ((__tmp135122 (let () (declare (not safe)) (cons 'force '())))) (declare (not safe)) - (cons '%#ref __tmp257016))) - (__tmp257012 - (let ((__tmp257013 - (let ((__tmp257014 + (cons '%#ref __tmp135122))) + (__tmp135118 + (let ((__tmp135119 + (let ((__tmp135120 (let () (declare (not safe)) - (cons _what246529_ '())))) + (cons _what129203_ '())))) (declare (not safe)) - (cons '%#ref __tmp257014)))) + (cons '%#ref __tmp135120)))) (declare (not safe)) - (cons __tmp257013 '())))) + (cons __tmp135119 '())))) (declare (not safe)) - (cons __tmp257015 __tmp257012)))) + (cons __tmp135121 __tmp135118)))) (declare (not safe)) - (cons '%#call __tmp257011))))) - (let* ((___stx256137256138_ _stx245477_) - (_g245494245716_ + (cons '%#call __tmp135117))))) + (let* ((___stx134243134244_ _stx128151_) + (_g128168128390_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx256137256138_))))) - (let ((___kont256139256140_ - (lambda (_L246475_ _L246476_ _L246477_ _L246478_) - (let ((_$method246523_ - (let ((__tmp257017 + ___stx134243134244_))))) + (let ((___kont134245134246_ + (lambda (_L129149_ _L129150_ _L129151_ _L129152_) + (let ((_$method129197_ + (let ((__tmp135123 (let () (declare (not safe)) - (gx#stx-e _L246476_)))) + (gx#stx-e _L129150_)))) (declare (not safe)) - (table-ref _methods245480_ __tmp257017))) - (_args246524_ - (map (lambda (_g246511246513_) + (hash-ref__0 _methods128154_ __tmp135123))) + (_args129198_ + (map (lambda (_g129185129187_) (let () (declare (not safe)) (gxc#compile-e__3 - _g246511246513_ - _self245478_ - _$t245479_ - _methods245480_ - _slots245481_ - _class-check245482_ - _struct-check245483_ - _struct-assert245484_))) - (let ((__tmp257018 - (lambda (_g246515246518_ - _g246516246520_) + _g129185129187_ + _self128152_ + _$t128153_ + _methods128154_ + _slots128155_ + _class-check128156_ + _struct-check128157_ + _struct-assert128158_))) + (let ((__tmp135124 + (lambda (_g129189129192_ + _g129190129194_) (let () (declare (not safe)) - (cons _g246515246518_ - _g246516246520_))))) + (cons _g129189129192_ + _g129190129194_))))) (declare (not safe)) - (foldr1 __tmp257018 '() _L246475_))))) - (let ((__tmp257019 - (let ((__tmp257020 - (let ((__tmp257024 + (foldr1 __tmp135124 '() _L129149_))))) + (let ((__tmp135125 + (let ((__tmp135126 + (let ((__tmp135130 (let () (declare (not safe)) - (_force-e245486_ - _$method246523_))) - (__tmp257021 - (let ((__tmp257022 - (let ((__tmp257023 + (_force-e128160_ + _$method129197_))) + (__tmp135127 + (let ((__tmp135128 + (let ((__tmp135129 (let () (declare (not safe)) - (cons _self245478_ + (cons _self128152_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp257023)))) + __tmp135129)))) (declare (not safe)) - (cons __tmp257022 - _args246524_)))) + (cons __tmp135128 + _args129198_)))) (declare (not safe)) - (cons __tmp257024 __tmp257021)))) + (cons __tmp135130 __tmp135127)))) (declare (not safe)) - (cons '%#call __tmp257020)))) + (cons '%#call __tmp135126)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp257019 _stx245477_))))) - (___kont256143256144_ - (lambda (_L246307_ _L246308_ _L246309_ _L246310_ _L246311_) - (let ((_$method246363_ - (let ((__tmp257025 + (gxc#xform-wrap-source __tmp135125 _stx128151_))))) + (___kont134249134250_ + (lambda (_L128981_ _L128982_ _L128983_ _L128984_ _L128985_) + (let ((_$method129037_ + (let ((__tmp135131 (let () (declare (not safe)) - (gx#stx-e _L246308_)))) + (gx#stx-e _L128982_)))) (declare (not safe)) - (table-ref _methods245480_ __tmp257025))) - (_args246364_ - (map (lambda (_g246351246353_) + (hash-ref__0 _methods128154_ __tmp135131))) + (_args129038_ + (map (lambda (_g129025129027_) (let () (declare (not safe)) (gxc#compile-e__3 - _g246351246353_ - _self245478_ - _$t245479_ - _methods245480_ - _slots245481_ - _class-check245482_ - _struct-check245483_ - _struct-assert245484_))) - (let ((__tmp257026 - (lambda (_g246355246358_ - _g246356246360_) + _g129025129027_ + _self128152_ + _$t128153_ + _methods128154_ + _slots128155_ + _class-check128156_ + _struct-check128157_ + _struct-assert128158_))) + (let ((__tmp135132 + (lambda (_g129029129032_ + _g129030129034_) (let () (declare (not safe)) - (cons _g246355246358_ - _g246356246360_))))) + (cons _g129029129032_ + _g129030129034_))))) (declare (not safe)) - (foldr1 __tmp257026 '() _L246307_))))) - (let ((__tmp257027 - (let ((__tmp257028 - (let ((__tmp257034 - (let ((__tmp257035 + (foldr1 __tmp135132 '() _L128981_))))) + (let ((__tmp135133 + (let ((__tmp135134 + (let ((__tmp135140 + (let ((__tmp135141 (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp257035))) - (__tmp257029 - (let ((__tmp257033 + (cons '%#ref __tmp135141))) + (__tmp135135 + (let ((__tmp135139 (let () (declare (not safe)) - (_force-e245486_ - _$method246363_))) - (__tmp257030 - (let ((__tmp257031 - (let ((__tmp257032 + (_force-e128160_ + _$method129037_))) + (__tmp135136 + (let ((__tmp135137 + (let ((__tmp135138 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _self245478_ '())))) + (cons _self128152_ '())))) (declare (not safe)) - (cons '%#ref __tmp257032)))) + (cons '%#ref __tmp135138)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp257031 - _args246364_)))) + (cons __tmp135137 + _args129038_)))) (declare (not safe)) - (cons __tmp257033 __tmp257030)))) + (cons __tmp135139 __tmp135136)))) (declare (not safe)) - (cons __tmp257034 __tmp257029)))) + (cons __tmp135140 __tmp135135)))) (declare (not safe)) - (cons '%#call __tmp257028)))) + (cons '%#call __tmp135134)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp257027 _stx245477_))))) - (___kont256147256148_ - (lambda (_L246138_ _L246139_ _L246140_) - (let* ((_$field246172_ - (let ((__tmp257036 + (gxc#xform-wrap-source __tmp135133 _stx128151_))))) + (___kont134253134254_ + (lambda (_L128812_ _L128813_ _L128814_) + (let* ((_$field128846_ + (let ((__tmp135142 (let () (declare (not safe)) - (gx#stx-e _L246138_)))) + (gx#stx-e _L128812_)))) (declare (not safe)) - (table-ref _slots245481_ __tmp257036))) - (__tmp257037 - (let ((__tmp257038 - (let ((__tmp257045 - (let ((__tmp257046 + (hash-ref__0 _slots128155_ __tmp135142))) + (__tmp135143 + (let ((__tmp135144 + (let ((__tmp135151 + (let ((__tmp135152 (let () (declare (not safe)) - (cons _$t245479_ '())))) + (cons _$t128153_ '())))) (declare (not safe)) - (cons '%#ref __tmp257046))) - (__tmp257039 - (let ((__tmp257043 - (let ((__tmp257044 + (cons '%#ref __tmp135152))) + (__tmp135145 + (let ((__tmp135149 + (let ((__tmp135150 (let () (declare (not safe)) - (cons _$field246172_ + (cons _$field128846_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp257044))) - (__tmp257040 - (let ((__tmp257041 - (let ((__tmp257042 + (cons '%#ref __tmp135150))) + (__tmp135146 + (let ((__tmp135147 + (let ((__tmp135148 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _self245478_ '())))) + (cons _self128152_ '())))) (declare (not safe)) - (cons '%#ref __tmp257042)))) + (cons '%#ref __tmp135148)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp257041 '())))) + (cons __tmp135147 '())))) (declare (not safe)) - (cons __tmp257043 __tmp257040)))) + (cons __tmp135149 __tmp135146)))) (declare (not safe)) - (cons __tmp257045 __tmp257039)))) + (cons __tmp135151 __tmp135145)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp257038)))) + (cons '%#struct-unchecked-ref __tmp135144)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp257037 _stx245477_)))) - (___kont256149256150_ - (lambda (_L246012_ _L246013_ _L246014_ _L246015_) - (let ((_$field246050_ - (let ((__tmp257047 + (gxc#xform-wrap-source __tmp135143 _stx128151_)))) + (___kont134255134256_ + (lambda (_L128686_ _L128687_ _L128688_ _L128689_) + (let ((_$field128724_ + (let ((__tmp135153 (let () (declare (not safe)) - (gx#stx-e _L246013_)))) + (gx#stx-e _L128687_)))) (declare (not safe)) - (table-ref _slots245481_ __tmp257047))) - (_expr246051_ + (hash-ref__0 _slots128155_ __tmp135153))) + (_expr128725_ (let () (declare (not safe)) (gxc#compile-e__3 - _L246012_ - _self245478_ - _$t245479_ - _methods245480_ - _slots245481_ - _class-check245482_ - _struct-check245483_ - _struct-assert245484_)))) - (let ((__tmp257048 - (let ((__tmp257049 - (let ((__tmp257057 - (let ((__tmp257058 + _L128686_ + _self128152_ + _$t128153_ + _methods128154_ + _slots128155_ + _class-check128156_ + _struct-check128157_ + _struct-assert128158_)))) + (let ((__tmp135154 + (let ((__tmp135155 + (let ((__tmp135163 + (let ((__tmp135164 (let () (declare (not safe)) - (cons _$t245479_ '())))) + (cons _$t128153_ '())))) (declare (not safe)) - (cons '%#ref __tmp257058))) - (__tmp257050 - (let ((__tmp257055 - (let ((__tmp257056 + (cons '%#ref __tmp135164))) + (__tmp135156 + (let ((__tmp135161 + (let ((__tmp135162 (let () (declare (not safe)) - (cons _$field246050_ + (cons _$field128724_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp257056))) - (__tmp257051 - (let ((__tmp257053 - (let ((__tmp257054 + __tmp135162))) + (__tmp135157 + (let ((__tmp135159 + (let ((__tmp135160 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _self245478_ '())))) + (cons _self128152_ '())))) (declare (not safe)) - (cons '%#ref __tmp257054))) - (__tmp257052 - (let () (declare (not safe)) (cons _expr246051_ '())))) + (cons '%#ref __tmp135160))) + (__tmp135158 + (let () (declare (not safe)) (cons _expr128725_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp257053 - __tmp257052)))) + (cons __tmp135159 + __tmp135158)))) (declare (not safe)) - (cons __tmp257055 __tmp257051)))) + (cons __tmp135161 __tmp135157)))) (declare (not safe)) - (cons __tmp257057 __tmp257050)))) + (cons __tmp135163 __tmp135156)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp257049)))) + (cons '%#struct-unchecked-set! __tmp135155)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp257048 _stx245477_))))) - (___kont256151256152_ - (lambda (_L245891_ _L245892_) - (let* ((_slot245914_ + (gxc#xform-wrap-source __tmp135154 _stx128151_))))) + (___kont134257134258_ + (lambda (_L128565_ _L128566_) + (let* ((_slot128588_ (##structure-ref - (let ((__tmp257059 + (let ((__tmp135165 (let () (declare (not safe)) - (gxc#identifier-symbol _L245892_)))) + (gxc#identifier-symbol _L128566_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp257059)) + (gxc#optimizer-resolve-type __tmp135165)) '2 gxc#!accessor::t '#f)) - (_$field245916_ + (_$field128590_ (let () (declare (not safe)) - (table-ref _slots245481_ _slot245914_)))) - (let ((__tmp257060 - (let ((__tmp257061 - (let ((__tmp257068 - (let ((__tmp257069 + (hash-ref__0 _slots128155_ _slot128588_)))) + (let ((__tmp135166 + (let ((__tmp135167 + (let ((__tmp135174 + (let ((__tmp135175 (let () (declare (not safe)) - (cons _$t245479_ '())))) + (cons _$t128153_ '())))) (declare (not safe)) - (cons '%#ref __tmp257069))) - (__tmp257062 - (let ((__tmp257066 - (let ((__tmp257067 + (cons '%#ref __tmp135175))) + (__tmp135168 + (let ((__tmp135172 + (let ((__tmp135173 (let () (declare (not safe)) - (cons _$field245916_ + (cons _$field128590_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp257067))) - (__tmp257063 - (let ((__tmp257064 - (let ((__tmp257065 + __tmp135173))) + (__tmp135169 + (let ((__tmp135170 + (let ((__tmp135171 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _self245478_ '())))) + (cons _self128152_ '())))) (declare (not safe)) - (cons '%#ref __tmp257065)))) + (cons '%#ref __tmp135171)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp257064 '())))) + (cons __tmp135170 '())))) (declare (not safe)) - (cons __tmp257066 __tmp257063)))) + (cons __tmp135172 __tmp135169)))) (declare (not safe)) - (cons __tmp257068 __tmp257062)))) + (cons __tmp135174 __tmp135168)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp257061)))) + (cons '%#struct-unchecked-ref __tmp135167)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp257060 _stx245477_))))) - (___kont256153256154_ - (lambda (_L245792_ _L245793_ _L245794_) - (let* ((_slot245823_ + (gxc#xform-wrap-source __tmp135166 _stx128151_))))) + (___kont134259134260_ + (lambda (_L128466_ _L128467_ _L128468_) + (let* ((_slot128497_ (##structure-ref - (let ((__tmp257070 + (let ((__tmp135176 (let () (declare (not safe)) - (gxc#identifier-symbol _L245794_)))) + (gxc#identifier-symbol _L128468_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp257070)) + (gxc#optimizer-resolve-type __tmp135176)) '2 gxc#!mutator::t '#f)) - (_$field245825_ + (_$field128499_ (let () (declare (not safe)) - (table-ref _slots245481_ _slot245823_))) - (_expr245827_ + (hash-ref__0 _slots128155_ _slot128497_))) + (_expr128501_ (let () (declare (not safe)) (gxc#compile-e__3 - _L245792_ - _self245478_ - _$t245479_ - _methods245480_ - _slots245481_ - _class-check245482_ - _struct-check245483_ - _struct-assert245484_)))) - (let ((__tmp257071 - (let ((__tmp257072 - (let ((__tmp257080 - (let ((__tmp257081 + _L128466_ + _self128152_ + _$t128153_ + _methods128154_ + _slots128155_ + _class-check128156_ + _struct-check128157_ + _struct-assert128158_)))) + (let ((__tmp135177 + (let ((__tmp135178 + (let ((__tmp135186 + (let ((__tmp135187 (let () (declare (not safe)) - (cons _$t245479_ '())))) + (cons _$t128153_ '())))) (declare (not safe)) - (cons '%#ref __tmp257081))) - (__tmp257073 - (let ((__tmp257078 - (let ((__tmp257079 + (cons '%#ref __tmp135187))) + (__tmp135179 + (let ((__tmp135184 + (let ((__tmp135185 (let () (declare (not safe)) - (cons _$field245825_ + (cons _$field128499_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp257079))) - (__tmp257074 - (let ((__tmp257076 - (let ((__tmp257077 + __tmp135185))) + (__tmp135180 + (let ((__tmp135182 + (let ((__tmp135183 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _self245478_ '())))) + (cons _self128152_ '())))) (declare (not safe)) - (cons '%#ref __tmp257077))) - (__tmp257075 - (let () (declare (not safe)) (cons _expr245827_ '())))) + (cons '%#ref __tmp135183))) + (__tmp135181 + (let () (declare (not safe)) (cons _expr128501_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp257076 - __tmp257075)))) + (cons __tmp135182 + __tmp135181)))) (declare (not safe)) - (cons __tmp257078 __tmp257074)))) + (cons __tmp135184 __tmp135180)))) (declare (not safe)) - (cons __tmp257080 __tmp257073)))) + (cons __tmp135186 __tmp135179)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp257072)))) + (cons '%#struct-unchecked-set! __tmp135178)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp257071 _stx245477_))))) - (___kont256155256156_ + (gxc#xform-wrap-source __tmp135177 _stx128151_))))) + (___kont134261134262_ (lambda () (let () (declare (not safe)) (gxc#xform-operands - _stx245477_ - _self245478_ - _$t245479_ - _methods245480_ - _slots245481_ - _class-check245482_ - _struct-check245483_ - _struct-assert245484_))))) - (let* ((___match256636256637_ - (lambda (_e245690245728_ - _hd245689245731_ - _tl245688245733_ - _e245693245736_ - _hd245692245739_ - _tl245691245741_ - _e245696245744_ - _hd245695245747_ - _tl245694245749_ - _e245699245752_ - _hd245698245755_ - _tl245697245757_ - _e245702245760_ - _hd245701245763_ - _tl245700245765_ - _e245705245768_ - _hd245704245771_ - _tl245703245773_ - _e245708245776_ - _hd245707245779_ - _tl245706245781_ - _e245711245784_ - _hd245710245787_ - _tl245709245789_) - (let ((_L245792_ _hd245710245787_) - (_L245793_ _hd245707245779_) - (_L245794_ _hd245698245755_)) + _stx128151_ + _self128152_ + _$t128153_ + _methods128154_ + _slots128155_ + _class-check128156_ + _struct-check128157_ + _struct-assert128158_))))) + (let* ((___match134742134743_ + (lambda (_e128364128402_ + _hd128363128405_ + _tl128362128407_ + _e128367128410_ + _hd128366128413_ + _tl128365128415_ + _e128370128418_ + _hd128369128421_ + _tl128368128423_ + _e128373128426_ + _hd128372128429_ + _tl128371128431_ + _e128376128434_ + _hd128375128437_ + _tl128374128439_ + _e128379128442_ + _hd128378128445_ + _tl128377128447_ + _e128382128450_ + _hd128381128453_ + _tl128380128455_ + _e128385128458_ + _hd128384128461_ + _tl128383128463_) + (let ((_L128466_ _hd128384128461_) + (_L128467_ _hd128381128453_) + (_L128468_ _hd128372128429_)) (if (and (let () (declare (not safe)) (gx#free-identifier=? - _L245793_ - _self245478_)) - (let ((__tmp257082 - (let ((__tmp257083 + _L128467_ + _self128152_)) + (let ((__tmp135188 + (let ((__tmp135189 (let () (declare (not safe)) (gxc#identifier-symbol - _L245794_)))) + _L128468_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp257083)))) + __tmp135189)))) (declare (not safe)) (##structure-instance-of? - __tmp257082 + __tmp135188 'gxc#!mutator::t))) - (___kont256153256154_ - _L245792_ - _L245793_ - _L245794_) - (___kont256155256156_))))) - (___match256634256635_ - (lambda (_e245690245728_ - _hd245689245731_ - _tl245688245733_ - _e245693245736_ - _hd245692245739_ - _tl245691245741_ - _e245696245744_ - _hd245695245747_ - _tl245694245749_ - _e245699245752_ - _hd245698245755_ - _tl245697245757_ - _e245702245760_ - _hd245701245763_ - _tl245700245765_ - _e245705245768_ - _hd245704245771_ - _tl245703245773_ - _e245708245776_ - _hd245707245779_ - _tl245706245781_ - _e245711245784_ - _hd245710245787_ - _tl245709245789_) + (___kont134259134260_ + _L128466_ + _L128467_ + _L128468_) + (___kont134261134262_))))) + (___match134740134741_ + (lambda (_e128364128402_ + _hd128363128405_ + _tl128362128407_ + _e128367128410_ + _hd128366128413_ + _tl128365128415_ + _e128370128418_ + _hd128369128421_ + _tl128368128423_ + _e128373128426_ + _hd128372128429_ + _tl128371128431_ + _e128376128434_ + _hd128375128437_ + _tl128374128439_ + _e128379128442_ + _hd128378128445_ + _tl128377128447_ + _e128382128450_ + _hd128381128453_ + _tl128380128455_ + _e128385128458_ + _hd128384128461_ + _tl128383128463_) (if (let () (declare (not safe)) - (gx#stx-null? _tl245709245789_)) - (___match256636256637_ - _e245690245728_ - _hd245689245731_ - _tl245688245733_ - _e245693245736_ - _hd245692245739_ - _tl245691245741_ - _e245696245744_ - _hd245695245747_ - _tl245694245749_ - _e245699245752_ - _hd245698245755_ - _tl245697245757_ - _e245702245760_ - _hd245701245763_ - _tl245700245765_ - _e245705245768_ - _hd245704245771_ - _tl245703245773_ - _e245708245776_ - _hd245707245779_ - _tl245706245781_ - _e245711245784_ - _hd245710245787_ - _tl245709245789_) - (___kont256155256156_)))) - (___match256628256629_ - (lambda (_e245690245728_ - _hd245689245731_ - _tl245688245733_ - _e245693245736_ - _hd245692245739_ - _tl245691245741_ - _e245696245744_ - _hd245695245747_ - _tl245694245749_ - _e245699245752_ - _hd245698245755_ - _tl245697245757_ - _e245702245760_ - _hd245701245763_ - _tl245700245765_ - _e245705245768_ - _hd245704245771_ - _tl245703245773_ - _e245708245776_ - _hd245707245779_ - _tl245706245781_) + (gx#stx-null? _tl128383128463_)) + (___match134742134743_ + _e128364128402_ + _hd128363128405_ + _tl128362128407_ + _e128367128410_ + _hd128366128413_ + _tl128365128415_ + _e128370128418_ + _hd128369128421_ + _tl128368128423_ + _e128373128426_ + _hd128372128429_ + _tl128371128431_ + _e128376128434_ + _hd128375128437_ + _tl128374128439_ + _e128379128442_ + _hd128378128445_ + _tl128377128447_ + _e128382128450_ + _hd128381128453_ + _tl128380128455_ + _e128385128458_ + _hd128384128461_ + _tl128383128463_) + (___kont134261134262_)))) + (___match134734134735_ + (lambda (_e128364128402_ + _hd128363128405_ + _tl128362128407_ + _e128367128410_ + _hd128366128413_ + _tl128365128415_ + _e128370128418_ + _hd128369128421_ + _tl128368128423_ + _e128373128426_ + _hd128372128429_ + _tl128371128431_ + _e128376128434_ + _hd128375128437_ + _tl128374128439_ + _e128379128442_ + _hd128378128445_ + _tl128377128447_ + _e128382128450_ + _hd128381128453_ + _tl128380128455_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245700245765_)) - (let ((_e245711245784_ + (gx#stx-pair? _tl128374128439_)) + (let ((_e128385128458_ (let () (declare (not safe)) - (gx#stx-e _tl245700245765_)))) - (let ((_tl245709245789_ + (gx#stx-e _tl128374128439_)))) + (let ((_tl128383128463_ (let () (declare (not safe)) - (##cdr _e245711245784_))) - (_hd245710245787_ + (##cdr _e128385128458_))) + (_hd128384128461_ (let () (declare (not safe)) - (##car _e245711245784_)))) + (##car _e128385128458_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245709245789_)) - (___match256636256637_ - _e245690245728_ - _hd245689245731_ - _tl245688245733_ - _e245693245736_ - _hd245692245739_ - _tl245691245741_ - _e245696245744_ - _hd245695245747_ - _tl245694245749_ - _e245699245752_ - _hd245698245755_ - _tl245697245757_ - _e245702245760_ - _hd245701245763_ - _tl245700245765_ - _e245705245768_ - _hd245704245771_ - _tl245703245773_ - _e245708245776_ - _hd245707245779_ - _tl245706245781_ - _e245711245784_ - _hd245710245787_ - _tl245709245789_) - (___kont256155256156_)))) - (___kont256155256156_)))) - (___match256574256575_ - (lambda (_e245666245835_ - _hd245665245838_ - _tl245664245840_ - _e245669245843_ - _hd245668245846_ - _tl245667245848_ - _e245672245851_ - _hd245671245854_ - _tl245670245856_ - _e245675245859_ - _hd245674245862_ - _tl245673245864_ - _e245678245867_ - _hd245677245870_ - _tl245676245872_ - _e245681245875_ - _hd245680245878_ - _tl245679245880_ - _e245684245883_ - _hd245683245886_ - _tl245682245888_) - (let ((_L245891_ _hd245683245886_) - (_L245892_ _hd245674245862_)) + (gx#stx-null? _tl128383128463_)) + (___match134742134743_ + _e128364128402_ + _hd128363128405_ + _tl128362128407_ + _e128367128410_ + _hd128366128413_ + _tl128365128415_ + _e128370128418_ + _hd128369128421_ + _tl128368128423_ + _e128373128426_ + _hd128372128429_ + _tl128371128431_ + _e128376128434_ + _hd128375128437_ + _tl128374128439_ + _e128379128442_ + _hd128378128445_ + _tl128377128447_ + _e128382128450_ + _hd128381128453_ + _tl128380128455_ + _e128385128458_ + _hd128384128461_ + _tl128383128463_) + (___kont134261134262_)))) + (___kont134261134262_)))) + (___match134680134681_ + (lambda (_e128340128509_ + _hd128339128512_ + _tl128338128514_ + _e128343128517_ + _hd128342128520_ + _tl128341128522_ + _e128346128525_ + _hd128345128528_ + _tl128344128530_ + _e128349128533_ + _hd128348128536_ + _tl128347128538_ + _e128352128541_ + _hd128351128544_ + _tl128350128546_ + _e128355128549_ + _hd128354128552_ + _tl128353128554_ + _e128358128557_ + _hd128357128560_ + _tl128356128562_) + (let ((_L128565_ _hd128357128560_) + (_L128566_ _hd128348128536_)) (if (and (let () (declare (not safe)) (gx#free-identifier=? - _L245891_ - _self245478_)) - (let ((__tmp257084 - (let ((__tmp257085 + _L128565_ + _self128152_)) + (let ((__tmp135190 + (let ((__tmp135191 (let () (declare (not safe)) (gxc#identifier-symbol - _L245892_)))) + _L128566_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp257085)))) + __tmp135191)))) (declare (not safe)) (##structure-instance-of? - __tmp257084 + __tmp135190 'gxc#!accessor::t))) - (___kont256151256152_ _L245891_ _L245892_) - (___kont256155256156_))))) - (___match256572256573_ - (lambda (_e245666245835_ - _hd245665245838_ - _tl245664245840_ - _e245669245843_ - _hd245668245846_ - _tl245667245848_ - _e245672245851_ - _hd245671245854_ - _tl245670245856_ - _e245675245859_ - _hd245674245862_ - _tl245673245864_ - _e245678245867_ - _hd245677245870_ - _tl245676245872_ - _e245681245875_ - _hd245680245878_ - _tl245679245880_ - _e245684245883_ - _hd245683245886_ - _tl245682245888_) + (___kont134257134258_ _L128565_ _L128566_) + (___kont134261134262_))))) + (___match134678134679_ + (lambda (_e128340128509_ + _hd128339128512_ + _tl128338128514_ + _e128343128517_ + _hd128342128520_ + _tl128341128522_ + _e128346128525_ + _hd128345128528_ + _tl128344128530_ + _e128349128533_ + _hd128348128536_ + _tl128347128538_ + _e128352128541_ + _hd128351128544_ + _tl128350128546_ + _e128355128549_ + _hd128354128552_ + _tl128353128554_ + _e128358128557_ + _hd128357128560_ + _tl128356128562_) (if (let () (declare (not safe)) - (gx#stx-null? _tl245676245872_)) - (___match256574256575_ - _e245666245835_ - _hd245665245838_ - _tl245664245840_ - _e245669245843_ - _hd245668245846_ - _tl245667245848_ - _e245672245851_ - _hd245671245854_ - _tl245670245856_ - _e245675245859_ - _hd245674245862_ - _tl245673245864_ - _e245678245867_ - _hd245677245870_ - _tl245676245872_ - _e245681245875_ - _hd245680245878_ - _tl245679245880_ - _e245684245883_ - _hd245683245886_ - _tl245682245888_) - (___match256628256629_ - _e245666245835_ - _hd245665245838_ - _tl245664245840_ - _e245669245843_ - _hd245668245846_ - _tl245667245848_ - _e245672245851_ - _hd245671245854_ - _tl245670245856_ - _e245675245859_ - _hd245674245862_ - _tl245673245864_ - _e245678245867_ - _hd245677245870_ - _tl245676245872_ - _e245681245875_ - _hd245680245878_ - _tl245679245880_ - _e245684245883_ - _hd245683245886_ - _tl245682245888_)))) - (___match256518256519_ - (lambda (_e245631245924_ - _hd245630245927_ - _tl245629245929_ - _e245634245932_ - _hd245633245935_ - _tl245632245937_ - _e245637245940_ - _hd245636245943_ - _tl245635245945_ - _e245640245948_ - _hd245639245951_ - _tl245638245953_ - _e245643245956_ - _hd245642245959_ - _tl245641245961_ - _e245646245964_ - _hd245645245967_ - _tl245644245969_ - _e245649245972_ - _hd245648245975_ - _tl245647245977_ - _e245652245980_ - _hd245651245983_ - _tl245650245985_ - _e245655245988_ - _hd245654245991_ - _tl245653245993_ - _e245658245996_ - _hd245657245999_ - _tl245656246001_ - _e245661246004_ - _hd245660246007_ - _tl245659246009_) - (let ((_L246012_ _hd245660246007_) - (_L246013_ _hd245657245999_) - (_L246014_ _hd245648245975_) - (_L246015_ _hd245639245951_)) + (gx#stx-null? _tl128350128546_)) + (___match134680134681_ + _e128340128509_ + _hd128339128512_ + _tl128338128514_ + _e128343128517_ + _hd128342128520_ + _tl128341128522_ + _e128346128525_ + _hd128345128528_ + _tl128344128530_ + _e128349128533_ + _hd128348128536_ + _tl128347128538_ + _e128352128541_ + _hd128351128544_ + _tl128350128546_ + _e128355128549_ + _hd128354128552_ + _tl128353128554_ + _e128358128557_ + _hd128357128560_ + _tl128356128562_) + (___match134734134735_ + _e128340128509_ + _hd128339128512_ + _tl128338128514_ + _e128343128517_ + _hd128342128520_ + _tl128341128522_ + _e128346128525_ + _hd128345128528_ + _tl128344128530_ + _e128349128533_ + _hd128348128536_ + _tl128347128538_ + _e128352128541_ + _hd128351128544_ + _tl128350128546_ + _e128355128549_ + _hd128354128552_ + _tl128353128554_ + _e128358128557_ + _hd128357128560_ + _tl128356128562_)))) + (___match134624134625_ + (lambda (_e128305128598_ + _hd128304128601_ + _tl128303128603_ + _e128308128606_ + _hd128307128609_ + _tl128306128611_ + _e128311128614_ + _hd128310128617_ + _tl128309128619_ + _e128314128622_ + _hd128313128625_ + _tl128312128627_ + _e128317128630_ + _hd128316128633_ + _tl128315128635_ + _e128320128638_ + _hd128319128641_ + _tl128318128643_ + _e128323128646_ + _hd128322128649_ + _tl128321128651_ + _e128326128654_ + _hd128325128657_ + _tl128324128659_ + _e128329128662_ + _hd128328128665_ + _tl128327128667_ + _e128332128670_ + _hd128331128673_ + _tl128330128675_ + _e128335128678_ + _hd128334128681_ + _tl128333128683_) + (let ((_L128686_ _hd128334128681_) + (_L128687_ _hd128331128673_) + (_L128688_ _hd128322128649_) + (_L128689_ _hd128313128625_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L246015_ + _L128689_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L246015_ + _L128689_ 'unchecked-slot-set!))) (let () (declare (not safe)) (gx#free-identifier=? - _L246014_ - _self245478_))) - (___kont256149256150_ - _L246012_ - _L246013_ - _L246014_ - _L246015_) - (___kont256155256156_))))) - (___match256510256511_ - (lambda (_e245631245924_ - _hd245630245927_ - _tl245629245929_ - _e245634245932_ - _hd245633245935_ - _tl245632245937_ - _e245637245940_ - _hd245636245943_ - _tl245635245945_ - _e245640245948_ - _hd245639245951_ - _tl245638245953_ - _e245643245956_ - _hd245642245959_ - _tl245641245961_ - _e245646245964_ - _hd245645245967_ - _tl245644245969_ - _e245649245972_ - _hd245648245975_ - _tl245647245977_ - _e245652245980_ - _hd245651245983_ - _tl245650245985_ - _e245655245988_ - _hd245654245991_ - _tl245653245993_ - _e245658245996_ - _hd245657245999_ - _tl245656246001_) + _L128688_ + _self128152_))) + (___kont134255134256_ + _L128686_ + _L128687_ + _L128688_ + _L128689_) + (___kont134261134262_))))) + (___match134616134617_ + (lambda (_e128305128598_ + _hd128304128601_ + _tl128303128603_ + _e128308128606_ + _hd128307128609_ + _tl128306128611_ + _e128311128614_ + _hd128310128617_ + _tl128309128619_ + _e128314128622_ + _hd128313128625_ + _tl128312128627_ + _e128317128630_ + _hd128316128633_ + _tl128315128635_ + _e128320128638_ + _hd128319128641_ + _tl128318128643_ + _e128323128646_ + _hd128322128649_ + _tl128321128651_ + _e128326128654_ + _hd128325128657_ + _tl128324128659_ + _e128329128662_ + _hd128328128665_ + _tl128327128667_ + _e128332128670_ + _hd128331128673_ + _tl128330128675_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245650245985_)) - (let ((_e245661246004_ + (gx#stx-pair? _tl128324128659_)) + (let ((_e128335128678_ (let () (declare (not safe)) - (gx#stx-e _tl245650245985_)))) - (let ((_tl245659246009_ + (gx#stx-e _tl128324128659_)))) + (let ((_tl128333128683_ (let () (declare (not safe)) - (##cdr _e245661246004_))) - (_hd245660246007_ + (##cdr _e128335128678_))) + (_hd128334128681_ (let () (declare (not safe)) - (##car _e245661246004_)))) + (##car _e128335128678_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245659246009_)) - (___match256518256519_ - _e245631245924_ - _hd245630245927_ - _tl245629245929_ - _e245634245932_ - _hd245633245935_ - _tl245632245937_ - _e245637245940_ - _hd245636245943_ - _tl245635245945_ - _e245640245948_ - _hd245639245951_ - _tl245638245953_ - _e245643245956_ - _hd245642245959_ - _tl245641245961_ - _e245646245964_ - _hd245645245967_ - _tl245644245969_ - _e245649245972_ - _hd245648245975_ - _tl245647245977_ - _e245652245980_ - _hd245651245983_ - _tl245650245985_ - _e245655245988_ - _hd245654245991_ - _tl245653245993_ - _e245658245996_ - _hd245657245999_ - _tl245656246001_ - _e245661246004_ - _hd245660246007_ - _tl245659246009_) - (___kont256155256156_)))) - (___match256634256635_ - _e245631245924_ - _hd245630245927_ - _tl245629245929_ - _e245634245932_ - _hd245633245935_ - _tl245632245937_ - _e245637245940_ - _hd245636245943_ - _tl245635245945_ - _e245640245948_ - _hd245639245951_ - _tl245638245953_ - _e245643245956_ - _hd245642245959_ - _tl245641245961_ - _e245646245964_ - _hd245645245967_ - _tl245644245969_ - _e245649245972_ - _hd245648245975_ - _tl245647245977_ - _e245652245980_ - _hd245651245983_ - _tl245650245985_)))) - (___match256432256433_ - (lambda (_e245597246058_ - _hd245596246061_ - _tl245595246063_ - _e245600246066_ - _hd245599246069_ - _tl245598246071_ - _e245603246074_ - _hd245602246077_ - _tl245601246079_ - _e245606246082_ - _hd245605246085_ - _tl245604246087_ - _e245609246090_ - _hd245608246093_ - _tl245607246095_ - _e245612246098_ - _hd245611246101_ - _tl245610246103_ - _e245615246106_ - _hd245614246109_ - _tl245613246111_ - _e245618246114_ - _hd245617246117_ - _tl245616246119_ - _e245621246122_ - _hd245620246125_ - _tl245619246127_ - _e245624246130_ - _hd245623246133_ - _tl245622246135_) - (let ((_L246138_ _hd245623246133_) - (_L246139_ _hd245614246109_) - (_L246140_ _hd245605246085_)) + (gx#stx-null? _tl128333128683_)) + (___match134624134625_ + _e128305128598_ + _hd128304128601_ + _tl128303128603_ + _e128308128606_ + _hd128307128609_ + _tl128306128611_ + _e128311128614_ + _hd128310128617_ + _tl128309128619_ + _e128314128622_ + _hd128313128625_ + _tl128312128627_ + _e128317128630_ + _hd128316128633_ + _tl128315128635_ + _e128320128638_ + _hd128319128641_ + _tl128318128643_ + _e128323128646_ + _hd128322128649_ + _tl128321128651_ + _e128326128654_ + _hd128325128657_ + _tl128324128659_ + _e128329128662_ + _hd128328128665_ + _tl128327128667_ + _e128332128670_ + _hd128331128673_ + _tl128330128675_ + _e128335128678_ + _hd128334128681_ + _tl128333128683_) + (___kont134261134262_)))) + (___match134740134741_ + _e128305128598_ + _hd128304128601_ + _tl128303128603_ + _e128308128606_ + _hd128307128609_ + _tl128306128611_ + _e128311128614_ + _hd128310128617_ + _tl128309128619_ + _e128314128622_ + _hd128313128625_ + _tl128312128627_ + _e128317128630_ + _hd128316128633_ + _tl128315128635_ + _e128320128638_ + _hd128319128641_ + _tl128318128643_ + _e128323128646_ + _hd128322128649_ + _tl128321128651_ + _e128326128654_ + _hd128325128657_ + _tl128324128659_)))) + (___match134538134539_ + (lambda (_e128271128732_ + _hd128270128735_ + _tl128269128737_ + _e128274128740_ + _hd128273128743_ + _tl128272128745_ + _e128277128748_ + _hd128276128751_ + _tl128275128753_ + _e128280128756_ + _hd128279128759_ + _tl128278128761_ + _e128283128764_ + _hd128282128767_ + _tl128281128769_ + _e128286128772_ + _hd128285128775_ + _tl128284128777_ + _e128289128780_ + _hd128288128783_ + _tl128287128785_ + _e128292128788_ + _hd128291128791_ + _tl128290128793_ + _e128295128796_ + _hd128294128799_ + _tl128293128801_ + _e128298128804_ + _hd128297128807_ + _tl128296128809_) + (let ((_L128812_ _hd128297128807_) + (_L128813_ _hd128288128783_) + (_L128814_ _hd128279128759_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L246140_ + _L128814_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L246140_ + _L128814_ 'unchecked-slot-ref))) (let () (declare (not safe)) (gx#free-identifier=? - _L246139_ - _self245478_))) - (___kont256147256148_ - _L246138_ - _L246139_ - _L246140_) - (___match256636256637_ - _e245597246058_ - _hd245596246061_ - _tl245595246063_ - _e245600246066_ - _hd245599246069_ - _tl245598246071_ - _e245603246074_ - _hd245602246077_ - _tl245601246079_ - _e245606246082_ - _hd245605246085_ - _tl245604246087_ - _e245609246090_ - _hd245608246093_ - _tl245607246095_ - _e245612246098_ - _hd245611246101_ - _tl245610246103_ - _e245615246106_ - _hd245614246109_ - _tl245613246111_ - _e245618246114_ - _hd245617246117_ - _tl245616246119_))))) - (___match256430256431_ - (lambda (_e245597246058_ - _hd245596246061_ - _tl245595246063_ - _e245600246066_ - _hd245599246069_ - _tl245598246071_ - _e245603246074_ - _hd245602246077_ - _tl245601246079_ - _e245606246082_ - _hd245605246085_ - _tl245604246087_ - _e245609246090_ - _hd245608246093_ - _tl245607246095_ - _e245612246098_ - _hd245611246101_ - _tl245610246103_ - _e245615246106_ - _hd245614246109_ - _tl245613246111_ - _e245618246114_ - _hd245617246117_ - _tl245616246119_ - _e245621246122_ - _hd245620246125_ - _tl245619246127_ - _e245624246130_ - _hd245623246133_ - _tl245622246135_) + _L128813_ + _self128152_))) + (___kont134253134254_ + _L128812_ + _L128813_ + _L128814_) + (___match134742134743_ + _e128271128732_ + _hd128270128735_ + _tl128269128737_ + _e128274128740_ + _hd128273128743_ + _tl128272128745_ + _e128277128748_ + _hd128276128751_ + _tl128275128753_ + _e128280128756_ + _hd128279128759_ + _tl128278128761_ + _e128283128764_ + _hd128282128767_ + _tl128281128769_ + _e128286128772_ + _hd128285128775_ + _tl128284128777_ + _e128289128780_ + _hd128288128783_ + _tl128287128785_ + _e128292128788_ + _hd128291128791_ + _tl128290128793_))))) + (___match134536134537_ + (lambda (_e128271128732_ + _hd128270128735_ + _tl128269128737_ + _e128274128740_ + _hd128273128743_ + _tl128272128745_ + _e128277128748_ + _hd128276128751_ + _tl128275128753_ + _e128280128756_ + _hd128279128759_ + _tl128278128761_ + _e128283128764_ + _hd128282128767_ + _tl128281128769_ + _e128286128772_ + _hd128285128775_ + _tl128284128777_ + _e128289128780_ + _hd128288128783_ + _tl128287128785_ + _e128292128788_ + _hd128291128791_ + _tl128290128793_ + _e128295128796_ + _hd128294128799_ + _tl128293128801_ + _e128298128804_ + _hd128297128807_ + _tl128296128809_) (if (let () (declare (not safe)) - (gx#stx-null? _tl245616246119_)) - (___match256432256433_ - _e245597246058_ - _hd245596246061_ - _tl245595246063_ - _e245600246066_ - _hd245599246069_ - _tl245598246071_ - _e245603246074_ - _hd245602246077_ - _tl245601246079_ - _e245606246082_ - _hd245605246085_ - _tl245604246087_ - _e245609246090_ - _hd245608246093_ - _tl245607246095_ - _e245612246098_ - _hd245611246101_ - _tl245610246103_ - _e245615246106_ - _hd245614246109_ - _tl245613246111_ - _e245618246114_ - _hd245617246117_ - _tl245616246119_ - _e245621246122_ - _hd245620246125_ - _tl245619246127_ - _e245624246130_ - _hd245623246133_ - _tl245622246135_) - (___match256510256511_ - _e245597246058_ - _hd245596246061_ - _tl245595246063_ - _e245600246066_ - _hd245599246069_ - _tl245598246071_ - _e245603246074_ - _hd245602246077_ - _tl245601246079_ - _e245606246082_ - _hd245605246085_ - _tl245604246087_ - _e245609246090_ - _hd245608246093_ - _tl245607246095_ - _e245612246098_ - _hd245611246101_ - _tl245610246103_ - _e245615246106_ - _hd245614246109_ - _tl245613246111_ - _e245618246114_ - _hd245617246117_ - _tl245616246119_ - _e245621246122_ - _hd245620246125_ - _tl245619246127_ - _e245624246130_ - _hd245623246133_ - _tl245622246135_)))) - (___match256420256421_ - (lambda (_e245597246058_ - _hd245596246061_ - _tl245595246063_ - _e245600246066_ - _hd245599246069_ - _tl245598246071_ - _e245603246074_ - _hd245602246077_ - _tl245601246079_ - _e245606246082_ - _hd245605246085_ - _tl245604246087_ - _e245609246090_ - _hd245608246093_ - _tl245607246095_ - _e245612246098_ - _hd245611246101_ - _tl245610246103_ - _e245615246106_ - _hd245614246109_ - _tl245613246111_ - _e245618246114_ - _hd245617246117_ - _tl245616246119_ - _e245621246122_ - _hd245620246125_ - _tl245619246127_) + (gx#stx-null? _tl128290128793_)) + (___match134538134539_ + _e128271128732_ + _hd128270128735_ + _tl128269128737_ + _e128274128740_ + _hd128273128743_ + _tl128272128745_ + _e128277128748_ + _hd128276128751_ + _tl128275128753_ + _e128280128756_ + _hd128279128759_ + _tl128278128761_ + _e128283128764_ + _hd128282128767_ + _tl128281128769_ + _e128286128772_ + _hd128285128775_ + _tl128284128777_ + _e128289128780_ + _hd128288128783_ + _tl128287128785_ + _e128292128788_ + _hd128291128791_ + _tl128290128793_ + _e128295128796_ + _hd128294128799_ + _tl128293128801_ + _e128298128804_ + _hd128297128807_ + _tl128296128809_) + (___match134616134617_ + _e128271128732_ + _hd128270128735_ + _tl128269128737_ + _e128274128740_ + _hd128273128743_ + _tl128272128745_ + _e128277128748_ + _hd128276128751_ + _tl128275128753_ + _e128280128756_ + _hd128279128759_ + _tl128278128761_ + _e128283128764_ + _hd128282128767_ + _tl128281128769_ + _e128286128772_ + _hd128285128775_ + _tl128284128777_ + _e128289128780_ + _hd128288128783_ + _tl128287128785_ + _e128292128788_ + _hd128291128791_ + _tl128290128793_ + _e128295128796_ + _hd128294128799_ + _tl128293128801_ + _e128298128804_ + _hd128297128807_ + _tl128296128809_)))) + (___match134526134527_ + (lambda (_e128271128732_ + _hd128270128735_ + _tl128269128737_ + _e128274128740_ + _hd128273128743_ + _tl128272128745_ + _e128277128748_ + _hd128276128751_ + _tl128275128753_ + _e128280128756_ + _hd128279128759_ + _tl128278128761_ + _e128283128764_ + _hd128282128767_ + _tl128281128769_ + _e128286128772_ + _hd128285128775_ + _tl128284128777_ + _e128289128780_ + _hd128288128783_ + _tl128287128785_ + _e128292128788_ + _hd128291128791_ + _tl128290128793_ + _e128295128796_ + _hd128294128799_ + _tl128293128801_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd245620246125_)) + (gx#stx-eq? '%#quote _hd128294128799_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245619246127_)) - (let ((_e245624246130_ + (gx#stx-pair? _tl128293128801_)) + (let ((_e128298128804_ (let () (declare (not safe)) - (gx#stx-e _tl245619246127_)))) - (let ((_tl245622246135_ + (gx#stx-e _tl128293128801_)))) + (let ((_tl128296128809_ (let () (declare (not safe)) - (##cdr _e245624246130_))) - (_hd245623246133_ + (##cdr _e128298128804_))) + (_hd128297128807_ (let () (declare (not safe)) - (##car _e245624246130_)))) + (##car _e128298128804_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245622246135_)) + (gx#stx-null? _tl128296128809_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl245616246119_)) - (___match256432256433_ - _e245597246058_ - _hd245596246061_ - _tl245595246063_ - _e245600246066_ - _hd245599246069_ - _tl245598246071_ - _e245603246074_ - _hd245602246077_ - _tl245601246079_ - _e245606246082_ - _hd245605246085_ - _tl245604246087_ - _e245609246090_ - _hd245608246093_ - _tl245607246095_ - _e245612246098_ - _hd245611246101_ - _tl245610246103_ - _e245615246106_ - _hd245614246109_ - _tl245613246111_ - _e245618246114_ - _hd245617246117_ - _tl245616246119_ - _e245621246122_ - _hd245620246125_ - _tl245619246127_ - _e245624246130_ - _hd245623246133_ - _tl245622246135_) - (___match256510256511_ - _e245597246058_ - _hd245596246061_ - _tl245595246063_ - _e245600246066_ - _hd245599246069_ - _tl245598246071_ - _e245603246074_ - _hd245602246077_ - _tl245601246079_ - _e245606246082_ - _hd245605246085_ - _tl245604246087_ - _e245609246090_ - _hd245608246093_ - _tl245607246095_ - _e245612246098_ - _hd245611246101_ - _tl245610246103_ - _e245615246106_ - _hd245614246109_ - _tl245613246111_ - _e245618246114_ - _hd245617246117_ - _tl245616246119_ - _e245621246122_ - _hd245620246125_ - _tl245619246127_ - _e245624246130_ - _hd245623246133_ - _tl245622246135_)) - (___match256634256635_ - _e245597246058_ - _hd245596246061_ - _tl245595246063_ - _e245600246066_ - _hd245599246069_ - _tl245598246071_ - _e245603246074_ - _hd245602246077_ - _tl245601246079_ - _e245606246082_ - _hd245605246085_ - _tl245604246087_ - _e245609246090_ - _hd245608246093_ - _tl245607246095_ - _e245612246098_ - _hd245611246101_ - _tl245610246103_ - _e245615246106_ - _hd245614246109_ - _tl245613246111_ - _e245618246114_ - _hd245617246117_ - _tl245616246119_)))) - (___match256634256635_ - _e245597246058_ - _hd245596246061_ - _tl245595246063_ - _e245600246066_ - _hd245599246069_ - _tl245598246071_ - _e245603246074_ - _hd245602246077_ - _tl245601246079_ - _e245606246082_ - _hd245605246085_ - _tl245604246087_ - _e245609246090_ - _hd245608246093_ - _tl245607246095_ - _e245612246098_ - _hd245611246101_ - _tl245610246103_ - _e245615246106_ - _hd245614246109_ - _tl245613246111_ - _e245618246114_ - _hd245617246117_ - _tl245616246119_)) - (___match256634256635_ - _e245597246058_ - _hd245596246061_ - _tl245595246063_ - _e245600246066_ - _hd245599246069_ - _tl245598246071_ - _e245603246074_ - _hd245602246077_ - _tl245601246079_ - _e245606246082_ - _hd245605246085_ - _tl245604246087_ - _e245609246090_ - _hd245608246093_ - _tl245607246095_ - _e245612246098_ - _hd245611246101_ - _tl245610246103_ - _e245615246106_ - _hd245614246109_ - _tl245613246111_ - _e245618246114_ - _hd245617246117_ - _tl245616246119_)))) - (___match256352256353_ - (lambda (_e245546246179_ - _hd245545246182_ - _tl245544246184_ - _e245549246187_ - _hd245548246190_ - _tl245547246192_ - _e245552246195_ - _hd245551246198_ - _tl245550246200_ - _e245555246203_ - _hd245554246206_ - _tl245553246208_ - _e245558246211_ - _hd245557246214_ - _tl245556246216_ - _e245561246219_ - _hd245560246222_ - _tl245559246224_ - _e245564246227_ - _hd245563246230_ - _tl245562246232_ - _e245567246235_ - _hd245566246238_ - _tl245565246240_ - _e245570246243_ - _hd245569246246_ - _tl245568246248_ - _e245573246251_ - _hd245572246254_ - _tl245571246256_ - _e245576246259_ - _hd245575246262_ - _tl245574246264_ - _e245579246267_ - _hd245578246270_ - _tl245577246272_ - _e245582246275_ - _hd245581246278_ - _tl245580246280_ - ___splice256145256146_ - _target245583246283_ - _tl245585246285_) - (letrec ((_loop245586246288_ - (lambda (_hd245584246291_ _args245590246293_) + (gx#stx-null? _tl128290128793_)) + (___match134538134539_ + _e128271128732_ + _hd128270128735_ + _tl128269128737_ + _e128274128740_ + _hd128273128743_ + _tl128272128745_ + _e128277128748_ + _hd128276128751_ + _tl128275128753_ + _e128280128756_ + _hd128279128759_ + _tl128278128761_ + _e128283128764_ + _hd128282128767_ + _tl128281128769_ + _e128286128772_ + _hd128285128775_ + _tl128284128777_ + _e128289128780_ + _hd128288128783_ + _tl128287128785_ + _e128292128788_ + _hd128291128791_ + _tl128290128793_ + _e128295128796_ + _hd128294128799_ + _tl128293128801_ + _e128298128804_ + _hd128297128807_ + _tl128296128809_) + (___match134616134617_ + _e128271128732_ + _hd128270128735_ + _tl128269128737_ + _e128274128740_ + _hd128273128743_ + _tl128272128745_ + _e128277128748_ + _hd128276128751_ + _tl128275128753_ + _e128280128756_ + _hd128279128759_ + _tl128278128761_ + _e128283128764_ + _hd128282128767_ + _tl128281128769_ + _e128286128772_ + _hd128285128775_ + _tl128284128777_ + _e128289128780_ + _hd128288128783_ + _tl128287128785_ + _e128292128788_ + _hd128291128791_ + _tl128290128793_ + _e128295128796_ + _hd128294128799_ + _tl128293128801_ + _e128298128804_ + _hd128297128807_ + _tl128296128809_)) + (___match134740134741_ + _e128271128732_ + _hd128270128735_ + _tl128269128737_ + _e128274128740_ + _hd128273128743_ + _tl128272128745_ + _e128277128748_ + _hd128276128751_ + _tl128275128753_ + _e128280128756_ + _hd128279128759_ + _tl128278128761_ + _e128283128764_ + _hd128282128767_ + _tl128281128769_ + _e128286128772_ + _hd128285128775_ + _tl128284128777_ + _e128289128780_ + _hd128288128783_ + _tl128287128785_ + _e128292128788_ + _hd128291128791_ + _tl128290128793_)))) + (___match134740134741_ + _e128271128732_ + _hd128270128735_ + _tl128269128737_ + _e128274128740_ + _hd128273128743_ + _tl128272128745_ + _e128277128748_ + _hd128276128751_ + _tl128275128753_ + _e128280128756_ + _hd128279128759_ + _tl128278128761_ + _e128283128764_ + _hd128282128767_ + _tl128281128769_ + _e128286128772_ + _hd128285128775_ + _tl128284128777_ + _e128289128780_ + _hd128288128783_ + _tl128287128785_ + _e128292128788_ + _hd128291128791_ + _tl128290128793_)) + (___match134740134741_ + _e128271128732_ + _hd128270128735_ + _tl128269128737_ + _e128274128740_ + _hd128273128743_ + _tl128272128745_ + _e128277128748_ + _hd128276128751_ + _tl128275128753_ + _e128280128756_ + _hd128279128759_ + _tl128278128761_ + _e128283128764_ + _hd128282128767_ + _tl128281128769_ + _e128286128772_ + _hd128285128775_ + _tl128284128777_ + _e128289128780_ + _hd128288128783_ + _tl128287128785_ + _e128292128788_ + _hd128291128791_ + _tl128290128793_)))) + (___match134458134459_ + (lambda (_e128220128853_ + _hd128219128856_ + _tl128218128858_ + _e128223128861_ + _hd128222128864_ + _tl128221128866_ + _e128226128869_ + _hd128225128872_ + _tl128224128874_ + _e128229128877_ + _hd128228128880_ + _tl128227128882_ + _e128232128885_ + _hd128231128888_ + _tl128230128890_ + _e128235128893_ + _hd128234128896_ + _tl128233128898_ + _e128238128901_ + _hd128237128904_ + _tl128236128906_ + _e128241128909_ + _hd128240128912_ + _tl128239128914_ + _e128244128917_ + _hd128243128920_ + _tl128242128922_ + _e128247128925_ + _hd128246128928_ + _tl128245128930_ + _e128250128933_ + _hd128249128936_ + _tl128248128938_ + _e128253128941_ + _hd128252128944_ + _tl128251128946_ + _e128256128949_ + _hd128255128952_ + _tl128254128954_ + ___splice134251134252_ + _target128257128957_ + _tl128259128959_) + (letrec ((_loop128260128962_ + (lambda (_hd128258128965_ _args128264128967_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245584246291_)) - (let ((_e245587246296_ + (gx#stx-pair? _hd128258128965_)) + (let ((_e128261128970_ (let () (declare (not safe)) - (gx#stx-e _hd245584246291_)))) - (let ((_lp-tl245589246301_ + (gx#stx-e _hd128258128965_)))) + (let ((_lp-tl128263128975_ (let () (declare (not safe)) - (##cdr _e245587246296_))) - (_lp-hd245588246299_ + (##cdr _e128261128970_))) + (_lp-hd128262128973_ (let () (declare (not safe)) - (##car _e245587246296_)))) - (let ((__tmp257086 + (##car _e128261128970_)))) + (let ((__tmp135192 (let () (declare (not safe)) - (cons _lp-hd245588246299_ - _args245590246293_)))) + (cons _lp-hd128262128973_ + _args128264128967_)))) (declare (not safe)) - (_loop245586246288_ - _lp-tl245589246301_ - __tmp257086)))) - (let ((_args245591246304_ - (reverse _args245590246293_))) - (let ((_L246307_ _args245591246304_) - (_L246308_ _hd245581246278_) - (_L246309_ _hd245572246254_) - (_L246310_ _hd245563246230_) - (_L246311_ _hd245554246206_)) + (_loop128260128962_ + _lp-tl128263128975_ + __tmp135192)))) + (let ((_args128265128978_ + (reverse _args128264128967_))) + (let ((_L128981_ _args128265128978_) + (_L128982_ _hd128255128952_) + (_L128983_ _hd128246128928_) + (_L128984_ _hd128237128904_) + (_L128985_ _hd128228128880_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L246311_ + _L128985_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L246310_ + _L128984_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L246309_ - _self245478_))) - (___kont256143256144_ - _L246307_ - _L246308_ - _L246309_ - _L246310_ - _L246311_) - (___kont256155256156_)))))))) + _L128983_ + _self128152_))) + (___kont134249134250_ + _L128981_ + _L128982_ + _L128983_ + _L128984_ + _L128985_) + (___kont134261134262_)))))))) (let () (declare (not safe)) - (_loop245586246288_ _target245583246283_ '()))))) - (___match256310256311_ - (lambda (_e245546246179_ - _hd245545246182_ - _tl245544246184_ - _e245549246187_ - _hd245548246190_ - _tl245547246192_ - _e245552246195_ - _hd245551246198_ - _tl245550246200_ - _e245555246203_ - _hd245554246206_ - _tl245553246208_ - _e245558246211_ - _hd245557246214_ - _tl245556246216_ - _e245561246219_ - _hd245560246222_ - _tl245559246224_ - _e245564246227_ - _hd245563246230_ - _tl245562246232_ - _e245567246235_ - _hd245566246238_ - _tl245565246240_ - _e245570246243_ - _hd245569246246_ - _tl245568246248_) + (_loop128260128962_ _target128257128957_ '()))))) + (___match134416134417_ + (lambda (_e128220128853_ + _hd128219128856_ + _tl128218128858_ + _e128223128861_ + _hd128222128864_ + _tl128221128866_ + _e128226128869_ + _hd128225128872_ + _tl128224128874_ + _e128229128877_ + _hd128228128880_ + _tl128227128882_ + _e128232128885_ + _hd128231128888_ + _tl128230128890_ + _e128235128893_ + _hd128234128896_ + _tl128233128898_ + _e128238128901_ + _hd128237128904_ + _tl128236128906_ + _e128241128909_ + _hd128240128912_ + _tl128239128914_ + _e128244128917_ + _hd128243128920_ + _tl128242128922_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd245569246246_)) + (gx#stx-eq? '%#ref _hd128243128920_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245568246248_)) - (let ((_e245573246251_ + (gx#stx-pair? _tl128242128922_)) + (let ((_e128247128925_ (let () (declare (not safe)) - (gx#stx-e _tl245568246248_)))) - (let ((_tl245571246256_ + (gx#stx-e _tl128242128922_)))) + (let ((_tl128245128930_ (let () (declare (not safe)) - (##cdr _e245573246251_))) - (_hd245572246254_ + (##cdr _e128247128925_))) + (_hd128246128928_ (let () (declare (not safe)) - (##car _e245573246251_)))) + (##car _e128247128925_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245571246256_)) + (gx#stx-null? _tl128245128930_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245565246240_)) - (let ((_e245576246259_ + (gx#stx-pair? _tl128239128914_)) + (let ((_e128250128933_ (let () (declare (not safe)) (gx#stx-e - _tl245565246240_)))) - (let ((_tl245574246264_ + _tl128239128914_)))) + (let ((_tl128248128938_ (let () (declare (not safe)) - (##cdr _e245576246259_))) - (_hd245575246262_ + (##cdr _e128250128933_))) + (_hd128249128936_ (let () (declare (not safe)) - (##car _e245576246259_)))) + (##car _e128250128933_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd245575246262_)) - (let ((_e245579246267_ + _hd128249128936_)) + (let ((_e128253128941_ (let () (declare (not safe)) (gx#stx-e - _hd245575246262_)))) - (let ((_tl245577246272_ + _hd128249128936_)))) + (let ((_tl128251128946_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e245579246267_))) - (_hd245578246270_ - (let () (declare (not safe)) (##car _e245579246267_)))) + (##cdr _e128253128941_))) + (_hd128252128944_ + (let () (declare (not safe)) (##car _e128253128941_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd245578246270_)) + (gx#identifier? _hd128252128944_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd245578246270_)) + (gx#stx-eq? '%#quote _hd128252128944_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245577246272_)) - (let ((_e245582246275_ + (gx#stx-pair? _tl128251128946_)) + (let ((_e128256128949_ (let () (declare (not safe)) - (gx#stx-e _tl245577246272_)))) - (let ((_tl245580246280_ + (gx#stx-e _tl128251128946_)))) + (let ((_tl128254128954_ (let () (declare (not safe)) - (##cdr _e245582246275_))) - (_hd245581246278_ + (##cdr _e128256128949_))) + (_hd128255128952_ (let () (declare (not safe)) - (##car _e245582246275_)))) + (##car _e128256128949_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245580246280_)) + (gx#stx-null? _tl128254128954_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl245574246264_)) - (let ((___splice256145256146_ + (gx#stx-pair/null? _tl128248128938_)) + (let ((___splice134251134252_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl245574246264_ + _tl128248128938_ '0)))) - (let ((_tl245585246285_ + (let ((_tl128259128959_ (let () (declare (not safe)) (##vector-ref - ___splice256145256146_ + ___splice134251134252_ '1))) - (_target245583246283_ + (_target128257128957_ (let () (declare (not safe)) (##vector-ref - ___splice256145256146_ + ___splice134251134252_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl245585246285_)) - (___match256352256353_ - _e245546246179_ - _hd245545246182_ - _tl245544246184_ - _e245549246187_ - _hd245548246190_ - _tl245547246192_ - _e245552246195_ - _hd245551246198_ - _tl245550246200_ - _e245555246203_ - _hd245554246206_ - _tl245553246208_ - _e245558246211_ - _hd245557246214_ - _tl245556246216_ - _e245561246219_ - _hd245560246222_ - _tl245559246224_ - _e245564246227_ - _hd245563246230_ - _tl245562246232_ - _e245567246235_ - _hd245566246238_ - _tl245565246240_ - _e245570246243_ - _hd245569246246_ - _tl245568246248_ - _e245573246251_ - _hd245572246254_ - _tl245571246256_ - _e245576246259_ - _hd245575246262_ - _tl245574246264_ - _e245579246267_ - _hd245578246270_ - _tl245577246272_ - _e245582246275_ - _hd245581246278_ - _tl245580246280_ - ___splice256145256146_ - _target245583246283_ - _tl245585246285_) - (___kont256155256156_)))) - (___kont256155256156_)) - (___kont256155256156_)))) - (___kont256155256156_)) - (___kont256155256156_)) - (___kont256155256156_)))) + _tl128259128959_)) + (___match134458134459_ + _e128220128853_ + _hd128219128856_ + _tl128218128858_ + _e128223128861_ + _hd128222128864_ + _tl128221128866_ + _e128226128869_ + _hd128225128872_ + _tl128224128874_ + _e128229128877_ + _hd128228128880_ + _tl128227128882_ + _e128232128885_ + _hd128231128888_ + _tl128230128890_ + _e128235128893_ + _hd128234128896_ + _tl128233128898_ + _e128238128901_ + _hd128237128904_ + _tl128236128906_ + _e128241128909_ + _hd128240128912_ + _tl128239128914_ + _e128244128917_ + _hd128243128920_ + _tl128242128922_ + _e128247128925_ + _hd128246128928_ + _tl128245128930_ + _e128250128933_ + _hd128249128936_ + _tl128248128938_ + _e128253128941_ + _hd128252128944_ + _tl128251128946_ + _e128256128949_ + _hd128255128952_ + _tl128254128954_ + ___splice134251134252_ + _target128257128957_ + _tl128259128959_) + (___kont134261134262_)))) + (___kont134261134262_)) + (___kont134261134262_)))) + (___kont134261134262_)) + (___kont134261134262_)) + (___kont134261134262_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont256155256156_)))) - (___match256634256635_ - _e245546246179_ - _hd245545246182_ - _tl245544246184_ - _e245549246187_ - _hd245548246190_ - _tl245547246192_ - _e245552246195_ - _hd245551246198_ - _tl245550246200_ - _e245555246203_ - _hd245554246206_ - _tl245553246208_ - _e245558246211_ - _hd245557246214_ - _tl245556246216_ - _e245561246219_ - _hd245560246222_ - _tl245559246224_ - _e245564246227_ - _hd245563246230_ - _tl245562246232_ - _e245567246235_ - _hd245566246238_ - _tl245565246240_)) - (___match256634256635_ - _e245546246179_ - _hd245545246182_ - _tl245544246184_ - _e245549246187_ - _hd245548246190_ - _tl245547246192_ - _e245552246195_ - _hd245551246198_ - _tl245550246200_ - _e245555246203_ - _hd245554246206_ - _tl245553246208_ - _e245558246211_ - _hd245557246214_ - _tl245556246216_ - _e245561246219_ - _hd245560246222_ - _tl245559246224_ - _e245564246227_ - _hd245563246230_ - _tl245562246232_ - _e245567246235_ - _hd245566246238_ - _tl245565246240_)))) - (___match256634256635_ - _e245546246179_ - _hd245545246182_ - _tl245544246184_ - _e245549246187_ - _hd245548246190_ - _tl245547246192_ - _e245552246195_ - _hd245551246198_ - _tl245550246200_ - _e245555246203_ - _hd245554246206_ - _tl245553246208_ - _e245558246211_ - _hd245557246214_ - _tl245556246216_ - _e245561246219_ - _hd245560246222_ - _tl245559246224_ - _e245564246227_ - _hd245563246230_ - _tl245562246232_ - _e245567246235_ - _hd245566246238_ - _tl245565246240_)) - (___match256420256421_ - _e245546246179_ - _hd245545246182_ - _tl245544246184_ - _e245549246187_ - _hd245548246190_ - _tl245547246192_ - _e245552246195_ - _hd245551246198_ - _tl245550246200_ - _e245555246203_ - _hd245554246206_ - _tl245553246208_ - _e245558246211_ - _hd245557246214_ - _tl245556246216_ - _e245561246219_ - _hd245560246222_ - _tl245559246224_ - _e245564246227_ - _hd245563246230_ - _tl245562246232_ - _e245567246235_ - _hd245566246238_ - _tl245565246240_ - _e245570246243_ - _hd245569246246_ - _tl245568246248_)))) - (___match256242256243_ - (lambda (_e245502246371_ - _hd245501246374_ - _tl245500246376_ - _e245505246379_ - _hd245504246382_ - _tl245503246384_ - _e245508246387_ - _hd245507246390_ - _tl245506246392_ - _e245511246395_ - _hd245510246398_ - _tl245509246400_ - _e245514246403_ - _hd245513246406_ - _tl245512246408_ - _e245517246411_ - _hd245516246414_ - _tl245515246416_ - _e245520246419_ - _hd245519246422_ - _tl245518246424_ - _e245523246427_ - _hd245522246430_ - _tl245521246432_ - _e245526246435_ - _hd245525246438_ - _tl245524246440_ - _e245529246443_ - _hd245528246446_ - _tl245527246448_ - ___splice256141256142_ - _target245530246451_ - _tl245532246453_) - (letrec ((_loop245533246456_ - (lambda (_hd245531246459_ _args245537246461_) + (___kont134261134262_)))) + (___match134740134741_ + _e128220128853_ + _hd128219128856_ + _tl128218128858_ + _e128223128861_ + _hd128222128864_ + _tl128221128866_ + _e128226128869_ + _hd128225128872_ + _tl128224128874_ + _e128229128877_ + _hd128228128880_ + _tl128227128882_ + _e128232128885_ + _hd128231128888_ + _tl128230128890_ + _e128235128893_ + _hd128234128896_ + _tl128233128898_ + _e128238128901_ + _hd128237128904_ + _tl128236128906_ + _e128241128909_ + _hd128240128912_ + _tl128239128914_)) + (___match134740134741_ + _e128220128853_ + _hd128219128856_ + _tl128218128858_ + _e128223128861_ + _hd128222128864_ + _tl128221128866_ + _e128226128869_ + _hd128225128872_ + _tl128224128874_ + _e128229128877_ + _hd128228128880_ + _tl128227128882_ + _e128232128885_ + _hd128231128888_ + _tl128230128890_ + _e128235128893_ + _hd128234128896_ + _tl128233128898_ + _e128238128901_ + _hd128237128904_ + _tl128236128906_ + _e128241128909_ + _hd128240128912_ + _tl128239128914_)))) + (___match134740134741_ + _e128220128853_ + _hd128219128856_ + _tl128218128858_ + _e128223128861_ + _hd128222128864_ + _tl128221128866_ + _e128226128869_ + _hd128225128872_ + _tl128224128874_ + _e128229128877_ + _hd128228128880_ + _tl128227128882_ + _e128232128885_ + _hd128231128888_ + _tl128230128890_ + _e128235128893_ + _hd128234128896_ + _tl128233128898_ + _e128238128901_ + _hd128237128904_ + _tl128236128906_ + _e128241128909_ + _hd128240128912_ + _tl128239128914_)) + (___match134526134527_ + _e128220128853_ + _hd128219128856_ + _tl128218128858_ + _e128223128861_ + _hd128222128864_ + _tl128221128866_ + _e128226128869_ + _hd128225128872_ + _tl128224128874_ + _e128229128877_ + _hd128228128880_ + _tl128227128882_ + _e128232128885_ + _hd128231128888_ + _tl128230128890_ + _e128235128893_ + _hd128234128896_ + _tl128233128898_ + _e128238128901_ + _hd128237128904_ + _tl128236128906_ + _e128241128909_ + _hd128240128912_ + _tl128239128914_ + _e128244128917_ + _hd128243128920_ + _tl128242128922_)))) + (___match134348134349_ + (lambda (_e128176129045_ + _hd128175129048_ + _tl128174129050_ + _e128179129053_ + _hd128178129056_ + _tl128177129058_ + _e128182129061_ + _hd128181129064_ + _tl128180129066_ + _e128185129069_ + _hd128184129072_ + _tl128183129074_ + _e128188129077_ + _hd128187129080_ + _tl128186129082_ + _e128191129085_ + _hd128190129088_ + _tl128189129090_ + _e128194129093_ + _hd128193129096_ + _tl128192129098_ + _e128197129101_ + _hd128196129104_ + _tl128195129106_ + _e128200129109_ + _hd128199129112_ + _tl128198129114_ + _e128203129117_ + _hd128202129120_ + _tl128201129122_ + ___splice134247134248_ + _target128204129125_ + _tl128206129127_) + (letrec ((_loop128207129130_ + (lambda (_hd128205129133_ _args128211129135_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245531246459_)) - (let ((_e245534246464_ + (gx#stx-pair? _hd128205129133_)) + (let ((_e128208129138_ (let () (declare (not safe)) - (gx#stx-e _hd245531246459_)))) - (let ((_lp-tl245536246469_ + (gx#stx-e _hd128205129133_)))) + (let ((_lp-tl128210129143_ (let () (declare (not safe)) - (##cdr _e245534246464_))) - (_lp-hd245535246467_ + (##cdr _e128208129138_))) + (_lp-hd128209129141_ (let () (declare (not safe)) - (##car _e245534246464_)))) - (let ((__tmp257087 + (##car _e128208129138_)))) + (let ((__tmp135193 (let () (declare (not safe)) - (cons _lp-hd245535246467_ - _args245537246461_)))) + (cons _lp-hd128209129141_ + _args128211129135_)))) (declare (not safe)) - (_loop245533246456_ - _lp-tl245536246469_ - __tmp257087)))) - (let ((_args245538246472_ - (reverse _args245537246461_))) - (let ((_L246475_ _args245538246472_) - (_L246476_ _hd245528246446_) - (_L246477_ _hd245519246422_) - (_L246478_ _hd245510246398_)) + (_loop128207129130_ + _lp-tl128210129143_ + __tmp135193)))) + (let ((_args128212129146_ + (reverse _args128211129135_))) + (let ((_L129149_ _args128212129146_) + (_L129150_ _hd128202129120_) + (_L129151_ _hd128193129096_) + (_L129152_ _hd128184129072_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L246478_ + _L129152_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L246477_ - _self245478_))) - (___kont256139256140_ - _L246475_ - _L246476_ - _L246477_ - _L246478_) - (___match256430256431_ - _e245502246371_ - _hd245501246374_ - _tl245500246376_ - _e245505246379_ - _hd245504246382_ - _tl245503246384_ - _e245508246387_ - _hd245507246390_ - _tl245506246392_ - _e245511246395_ - _hd245510246398_ - _tl245509246400_ - _e245514246403_ - _hd245513246406_ - _tl245512246408_ - _e245517246411_ - _hd245516246414_ - _tl245515246416_ - _e245520246419_ - _hd245519246422_ - _tl245518246424_ - _e245523246427_ - _hd245522246430_ - _tl245521246432_ - _e245526246435_ - _hd245525246438_ - _tl245524246440_ - _e245529246443_ - _hd245528246446_ - _tl245527246448_)))))))) + _L129151_ + _self128152_))) + (___kont134245134246_ + _L129149_ + _L129150_ + _L129151_ + _L129152_) + (___match134536134537_ + _e128176129045_ + _hd128175129048_ + _tl128174129050_ + _e128179129053_ + _hd128178129056_ + _tl128177129058_ + _e128182129061_ + _hd128181129064_ + _tl128180129066_ + _e128185129069_ + _hd128184129072_ + _tl128183129074_ + _e128188129077_ + _hd128187129080_ + _tl128186129082_ + _e128191129085_ + _hd128190129088_ + _tl128189129090_ + _e128194129093_ + _hd128193129096_ + _tl128192129098_ + _e128197129101_ + _hd128196129104_ + _tl128195129106_ + _e128200129109_ + _hd128199129112_ + _tl128198129114_ + _e128203129117_ + _hd128202129120_ + _tl128201129122_)))))))) (let () (declare (not safe)) - (_loop245533246456_ _target245530246451_ '())))))) + (_loop128207129130_ _target128204129125_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx256137256138_)) - (let ((_e245502246371_ + (gx#stx-pair? ___stx134243134244_)) + (let ((_e128176129045_ (let () (declare (not safe)) - (gx#stx-e ___stx256137256138_)))) - (let ((_tl245500246376_ + (gx#stx-e ___stx134243134244_)))) + (let ((_tl128174129050_ (let () (declare (not safe)) - (##cdr _e245502246371_))) - (_hd245501246374_ + (##cdr _e128176129045_))) + (_hd128175129048_ (let () (declare (not safe)) - (##car _e245502246371_)))) + (##car _e128176129045_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245500246376_)) - (let ((_e245505246379_ + (gx#stx-pair? _tl128174129050_)) + (let ((_e128179129053_ (let () (declare (not safe)) - (gx#stx-e _tl245500246376_)))) - (let ((_tl245503246384_ + (gx#stx-e _tl128174129050_)))) + (let ((_tl128177129058_ (let () (declare (not safe)) - (##cdr _e245505246379_))) - (_hd245504246382_ + (##cdr _e128179129053_))) + (_hd128178129056_ (let () (declare (not safe)) - (##car _e245505246379_)))) + (##car _e128179129053_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245504246382_)) - (let ((_e245508246387_ + (gx#stx-pair? _hd128178129056_)) + (let ((_e128182129061_ (let () (declare (not safe)) - (gx#stx-e _hd245504246382_)))) - (let ((_tl245506246392_ + (gx#stx-e _hd128178129056_)))) + (let ((_tl128180129066_ (let () (declare (not safe)) - (##cdr _e245508246387_))) - (_hd245507246390_ + (##cdr _e128182129061_))) + (_hd128181129064_ (let () (declare (not safe)) - (##car _e245508246387_)))) + (##car _e128182129061_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd245507246390_)) + _hd128181129064_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd245507246390_)) + _hd128181129064_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245506246392_)) - (let ((_e245511246395_ + _tl128180129066_)) + (let ((_e128185129069_ (let () (declare (not safe)) (gx#stx-e - _tl245506246392_)))) - (let ((_tl245509246400_ + _tl128180129066_)))) + (let ((_tl128183129074_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e245511246395_))) - (_hd245510246398_ - (let () (declare (not safe)) (##car _e245511246395_)))) + (##cdr _e128185129069_))) + (_hd128184129072_ + (let () (declare (not safe)) (##car _e128185129069_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245509246400_)) + (gx#stx-null? _tl128183129074_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245503246384_)) - (let ((_e245514246403_ + (gx#stx-pair? _tl128177129058_)) + (let ((_e128188129077_ (let () (declare (not safe)) - (gx#stx-e _tl245503246384_)))) - (let ((_tl245512246408_ + (gx#stx-e _tl128177129058_)))) + (let ((_tl128186129082_ (let () (declare (not safe)) - (##cdr _e245514246403_))) - (_hd245513246406_ + (##cdr _e128188129077_))) + (_hd128187129080_ (let () (declare (not safe)) - (##car _e245514246403_)))) + (##car _e128188129077_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245513246406_)) - (let ((_e245517246411_ + (gx#stx-pair? _hd128187129080_)) + (let ((_e128191129085_ (let () (declare (not safe)) - (gx#stx-e _hd245513246406_)))) - (let ((_tl245515246416_ + (gx#stx-e _hd128187129080_)))) + (let ((_tl128189129090_ (let () (declare (not safe)) - (##cdr _e245517246411_))) - (_hd245516246414_ + (##cdr _e128191129085_))) + (_hd128190129088_ (let () (declare (not safe)) - (##car _e245517246411_)))) + (##car _e128191129085_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd245516246414_)) + (gx#identifier? _hd128190129088_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd245516246414_)) + _hd128190129088_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245515246416_)) - (let ((_e245520246419_ + _tl128189129090_)) + (let ((_e128194129093_ (let () (declare (not safe)) (gx#stx-e - _tl245515246416_)))) - (let ((_tl245518246424_ + _tl128189129090_)))) + (let ((_tl128192129098_ (let () (declare (not safe)) - (##cdr _e245520246419_))) - (_hd245519246422_ + (##cdr _e128194129093_))) + (_hd128193129096_ (let () (declare (not safe)) - (##car _e245520246419_)))) + (##car _e128194129093_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl245518246424_)) + _tl128192129098_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245512246408_)) - (let ((_e245523246427_ + _tl128186129082_)) + (let ((_e128197129101_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl245512246408_)))) - (let ((_tl245521246432_ + (gx#stx-e _tl128186129082_)))) + (let ((_tl128195129106_ (let () (declare (not safe)) - (##cdr _e245523246427_))) - (_hd245522246430_ + (##cdr _e128197129101_))) + (_hd128196129104_ (let () (declare (not safe)) - (##car _e245523246427_)))) + (##car _e128197129101_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245522246430_)) - (let ((_e245526246435_ + (gx#stx-pair? _hd128196129104_)) + (let ((_e128200129109_ (let () (declare (not safe)) - (gx#stx-e _hd245522246430_)))) - (let ((_tl245524246440_ + (gx#stx-e _hd128196129104_)))) + (let ((_tl128198129114_ (let () (declare (not safe)) - (##cdr _e245526246435_))) - (_hd245525246438_ + (##cdr _e128200129109_))) + (_hd128199129112_ (let () (declare (not safe)) - (##car _e245526246435_)))) + (##car _e128200129109_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd245525246438_)) + (gx#identifier? _hd128199129112_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd245525246438_)) + _hd128199129112_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245524246440_)) - (let ((_e245529246443_ + (gx#stx-pair? _tl128198129114_)) + (let ((_e128203129117_ (let () (declare (not safe)) (gx#stx-e - _tl245524246440_)))) - (let ((_tl245527246448_ + _tl128198129114_)))) + (let ((_tl128201129122_ (let () (declare (not safe)) - (##cdr _e245529246443_))) - (_hd245528246446_ + (##cdr _e128203129117_))) + (_hd128202129120_ (let () (declare (not safe)) - (##car _e245529246443_)))) + (##car _e128203129117_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl245527246448_)) + _tl128201129122_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl245521246432_)) - (let ((___splice256141256142_ + _tl128195129106_)) + (let ((___splice134247134248_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _tl245521246432_ '0)))) - (let ((_tl245532246453_ + (gx#syntax-split-splice _tl128195129106_ '0)))) + (let ((_tl128206129127_ (let () (declare (not safe)) - (##vector-ref ___splice256141256142_ '1))) - (_target245530246451_ + (##vector-ref ___splice134247134248_ '1))) + (_target128204129125_ (let () (declare (not safe)) - (##vector-ref ___splice256141256142_ '0)))) + (##vector-ref ___splice134247134248_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245532246453_)) - (___match256242256243_ - _e245502246371_ - _hd245501246374_ - _tl245500246376_ - _e245505246379_ - _hd245504246382_ - _tl245503246384_ - _e245508246387_ - _hd245507246390_ - _tl245506246392_ - _e245511246395_ - _hd245510246398_ - _tl245509246400_ - _e245514246403_ - _hd245513246406_ - _tl245512246408_ - _e245517246411_ - _hd245516246414_ - _tl245515246416_ - _e245520246419_ - _hd245519246422_ - _tl245518246424_ - _e245523246427_ - _hd245522246430_ - _tl245521246432_ - _e245526246435_ - _hd245525246438_ - _tl245524246440_ - _e245529246443_ - _hd245528246446_ - _tl245527246448_ - ___splice256141256142_ - _target245530246451_ - _tl245532246453_) - (___match256430256431_ - _e245502246371_ - _hd245501246374_ - _tl245500246376_ - _e245505246379_ - _hd245504246382_ - _tl245503246384_ - _e245508246387_ - _hd245507246390_ - _tl245506246392_ - _e245511246395_ - _hd245510246398_ - _tl245509246400_ - _e245514246403_ - _hd245513246406_ - _tl245512246408_ - _e245517246411_ - _hd245516246414_ - _tl245515246416_ - _e245520246419_ - _hd245519246422_ - _tl245518246424_ - _e245523246427_ - _hd245522246430_ - _tl245521246432_ - _e245526246435_ - _hd245525246438_ - _tl245524246440_ - _e245529246443_ - _hd245528246446_ - _tl245527246448_)))) - (___match256430256431_ - _e245502246371_ - _hd245501246374_ - _tl245500246376_ - _e245505246379_ - _hd245504246382_ - _tl245503246384_ - _e245508246387_ - _hd245507246390_ - _tl245506246392_ - _e245511246395_ - _hd245510246398_ - _tl245509246400_ - _e245514246403_ - _hd245513246406_ - _tl245512246408_ - _e245517246411_ - _hd245516246414_ - _tl245515246416_ - _e245520246419_ - _hd245519246422_ - _tl245518246424_ - _e245523246427_ - _hd245522246430_ - _tl245521246432_ - _e245526246435_ - _hd245525246438_ - _tl245524246440_ - _e245529246443_ - _hd245528246446_ - _tl245527246448_)) + (gx#stx-null? _tl128206129127_)) + (___match134348134349_ + _e128176129045_ + _hd128175129048_ + _tl128174129050_ + _e128179129053_ + _hd128178129056_ + _tl128177129058_ + _e128182129061_ + _hd128181129064_ + _tl128180129066_ + _e128185129069_ + _hd128184129072_ + _tl128183129074_ + _e128188129077_ + _hd128187129080_ + _tl128186129082_ + _e128191129085_ + _hd128190129088_ + _tl128189129090_ + _e128194129093_ + _hd128193129096_ + _tl128192129098_ + _e128197129101_ + _hd128196129104_ + _tl128195129106_ + _e128200129109_ + _hd128199129112_ + _tl128198129114_ + _e128203129117_ + _hd128202129120_ + _tl128201129122_ + ___splice134247134248_ + _target128204129125_ + _tl128206129127_) + (___match134536134537_ + _e128176129045_ + _hd128175129048_ + _tl128174129050_ + _e128179129053_ + _hd128178129056_ + _tl128177129058_ + _e128182129061_ + _hd128181129064_ + _tl128180129066_ + _e128185129069_ + _hd128184129072_ + _tl128183129074_ + _e128188129077_ + _hd128187129080_ + _tl128186129082_ + _e128191129085_ + _hd128190129088_ + _tl128189129090_ + _e128194129093_ + _hd128193129096_ + _tl128192129098_ + _e128197129101_ + _hd128196129104_ + _tl128195129106_ + _e128200129109_ + _hd128199129112_ + _tl128198129114_ + _e128203129117_ + _hd128202129120_ + _tl128201129122_)))) + (___match134536134537_ + _e128176129045_ + _hd128175129048_ + _tl128174129050_ + _e128179129053_ + _hd128178129056_ + _tl128177129058_ + _e128182129061_ + _hd128181129064_ + _tl128180129066_ + _e128185129069_ + _hd128184129072_ + _tl128183129074_ + _e128188129077_ + _hd128187129080_ + _tl128186129082_ + _e128191129085_ + _hd128190129088_ + _tl128189129090_ + _e128194129093_ + _hd128193129096_ + _tl128192129098_ + _e128197129101_ + _hd128196129104_ + _tl128195129106_ + _e128200129109_ + _hd128199129112_ + _tl128198129114_ + _e128203129117_ + _hd128202129120_ + _tl128201129122_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match256634256635_ - _e245502246371_ - _hd245501246374_ - _tl245500246376_ - _e245505246379_ - _hd245504246382_ - _tl245503246384_ - _e245508246387_ - _hd245507246390_ - _tl245506246392_ - _e245511246395_ - _hd245510246398_ - _tl245509246400_ - _e245514246403_ - _hd245513246406_ - _tl245512246408_ - _e245517246411_ - _hd245516246414_ - _tl245515246416_ - _e245520246419_ - _hd245519246422_ - _tl245518246424_ - _e245523246427_ - _hd245522246430_ - _tl245521246432_)))) - (___match256634256635_ - _e245502246371_ - _hd245501246374_ - _tl245500246376_ - _e245505246379_ - _hd245504246382_ - _tl245503246384_ - _e245508246387_ - _hd245507246390_ - _tl245506246392_ - _e245511246395_ - _hd245510246398_ - _tl245509246400_ - _e245514246403_ - _hd245513246406_ - _tl245512246408_ - _e245517246411_ - _hd245516246414_ - _tl245515246416_ - _e245520246419_ - _hd245519246422_ - _tl245518246424_ - _e245523246427_ - _hd245522246430_ - _tl245521246432_)) - (___match256310256311_ - _e245502246371_ - _hd245501246374_ - _tl245500246376_ - _e245505246379_ - _hd245504246382_ - _tl245503246384_ - _e245508246387_ - _hd245507246390_ - _tl245506246392_ - _e245511246395_ - _hd245510246398_ - _tl245509246400_ - _e245514246403_ - _hd245513246406_ - _tl245512246408_ - _e245517246411_ - _hd245516246414_ - _tl245515246416_ - _e245520246419_ - _hd245519246422_ - _tl245518246424_ - _e245523246427_ - _hd245522246430_ - _tl245521246432_ - _e245526246435_ - _hd245525246438_ - _tl245524246440_)) - (___match256634256635_ - _e245502246371_ - _hd245501246374_ - _tl245500246376_ - _e245505246379_ - _hd245504246382_ - _tl245503246384_ - _e245508246387_ - _hd245507246390_ - _tl245506246392_ - _e245511246395_ - _hd245510246398_ - _tl245509246400_ - _e245514246403_ - _hd245513246406_ - _tl245512246408_ - _e245517246411_ - _hd245516246414_ - _tl245515246416_ - _e245520246419_ - _hd245519246422_ - _tl245518246424_ - _e245523246427_ - _hd245522246430_ - _tl245521246432_)))) - (___match256634256635_ - _e245502246371_ - _hd245501246374_ - _tl245500246376_ - _e245505246379_ - _hd245504246382_ - _tl245503246384_ - _e245508246387_ - _hd245507246390_ - _tl245506246392_ - _e245511246395_ - _hd245510246398_ - _tl245509246400_ - _e245514246403_ - _hd245513246406_ - _tl245512246408_ - _e245517246411_ - _hd245516246414_ - _tl245515246416_ - _e245520246419_ - _hd245519246422_ - _tl245518246424_ - _e245523246427_ - _hd245522246430_ - _tl245521246432_)))) - (___match256572256573_ - _e245502246371_ - _hd245501246374_ - _tl245500246376_ - _e245505246379_ - _hd245504246382_ - _tl245503246384_ - _e245508246387_ - _hd245507246390_ - _tl245506246392_ - _e245511246395_ - _hd245510246398_ - _tl245509246400_ - _e245514246403_ - _hd245513246406_ - _tl245512246408_ - _e245517246411_ - _hd245516246414_ - _tl245515246416_ - _e245520246419_ - _hd245519246422_ - _tl245518246424_)) - (___kont256155256156_)))) + (___match134740134741_ + _e128176129045_ + _hd128175129048_ + _tl128174129050_ + _e128179129053_ + _hd128178129056_ + _tl128177129058_ + _e128182129061_ + _hd128181129064_ + _tl128180129066_ + _e128185129069_ + _hd128184129072_ + _tl128183129074_ + _e128188129077_ + _hd128187129080_ + _tl128186129082_ + _e128191129085_ + _hd128190129088_ + _tl128189129090_ + _e128194129093_ + _hd128193129096_ + _tl128192129098_ + _e128197129101_ + _hd128196129104_ + _tl128195129106_)))) + (___match134740134741_ + _e128176129045_ + _hd128175129048_ + _tl128174129050_ + _e128179129053_ + _hd128178129056_ + _tl128177129058_ + _e128182129061_ + _hd128181129064_ + _tl128180129066_ + _e128185129069_ + _hd128184129072_ + _tl128183129074_ + _e128188129077_ + _hd128187129080_ + _tl128186129082_ + _e128191129085_ + _hd128190129088_ + _tl128189129090_ + _e128194129093_ + _hd128193129096_ + _tl128192129098_ + _e128197129101_ + _hd128196129104_ + _tl128195129106_)) + (___match134416134417_ + _e128176129045_ + _hd128175129048_ + _tl128174129050_ + _e128179129053_ + _hd128178129056_ + _tl128177129058_ + _e128182129061_ + _hd128181129064_ + _tl128180129066_ + _e128185129069_ + _hd128184129072_ + _tl128183129074_ + _e128188129077_ + _hd128187129080_ + _tl128186129082_ + _e128191129085_ + _hd128190129088_ + _tl128189129090_ + _e128194129093_ + _hd128193129096_ + _tl128192129098_ + _e128197129101_ + _hd128196129104_ + _tl128195129106_ + _e128200129109_ + _hd128199129112_ + _tl128198129114_)) + (___match134740134741_ + _e128176129045_ + _hd128175129048_ + _tl128174129050_ + _e128179129053_ + _hd128178129056_ + _tl128177129058_ + _e128182129061_ + _hd128181129064_ + _tl128180129066_ + _e128185129069_ + _hd128184129072_ + _tl128183129074_ + _e128188129077_ + _hd128187129080_ + _tl128186129082_ + _e128191129085_ + _hd128190129088_ + _tl128189129090_ + _e128194129093_ + _hd128193129096_ + _tl128192129098_ + _e128197129101_ + _hd128196129104_ + _tl128195129106_)))) + (___match134740134741_ + _e128176129045_ + _hd128175129048_ + _tl128174129050_ + _e128179129053_ + _hd128178129056_ + _tl128177129058_ + _e128182129061_ + _hd128181129064_ + _tl128180129066_ + _e128185129069_ + _hd128184129072_ + _tl128183129074_ + _e128188129077_ + _hd128187129080_ + _tl128186129082_ + _e128191129085_ + _hd128190129088_ + _tl128189129090_ + _e128194129093_ + _hd128193129096_ + _tl128192129098_ + _e128197129101_ + _hd128196129104_ + _tl128195129106_)))) + (___match134678134679_ + _e128176129045_ + _hd128175129048_ + _tl128174129050_ + _e128179129053_ + _hd128178129056_ + _tl128177129058_ + _e128182129061_ + _hd128181129064_ + _tl128180129066_ + _e128185129069_ + _hd128184129072_ + _tl128183129074_ + _e128188129077_ + _hd128187129080_ + _tl128186129082_ + _e128191129085_ + _hd128190129088_ + _tl128189129090_ + _e128194129093_ + _hd128193129096_ + _tl128192129098_)) + (___kont134261134262_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont256155256156_)) - (___kont256155256156_)) - (___kont256155256156_)))) - (___kont256155256156_)))) - (___kont256155256156_)) - (___kont256155256156_)))) + (___kont134261134262_)) + (___kont134261134262_)) + (___kont134261134262_)))) + (___kont134261134262_)))) + (___kont134261134262_)) + (___kont134261134262_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont256155256156_)) - (___kont256155256156_)) - (___kont256155256156_)))) - (___kont256155256156_)))) - (___kont256155256156_)))) - (___kont256155256156_)))))))))) + (___kont134261134262_)) + (___kont134261134262_)) + (___kont134261134262_)))) + (___kont134261134262_)))) + (___kont134261134262_)))) + (___kont134261134262_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top__0.scm b/src/bootstrap/gerbil/compiler/optimize-top__0.scm index 3310f0122..f618e435b 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-top__0.scm @@ -1,2912 +1,2903 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-top::timestamp 1708102805) + (define gerbil/compiler/optimize-top::timestamp 1708370115) (begin (define gxc#&collect-top-level-type-info (make-promise (lambda () - (let ((_tbl238403_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp245064 (force gxc#&void))) + (let ((_tbl125645_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp127738 (force gxc#&void))) (declare (not safe)) - (hash-copy! _tbl238403_ __tmp245064)) + (hash-merge! _tbl125645_ __tmp127738)) (let () (declare (not safe)) - (table-set! _tbl238403_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl125645_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (table-set! - _tbl238403_ - '%#begin-syntax - gxc#collect-begin-syntax%)) + (hash-put! _tbl125645_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl238403_ '%#module gxc#collect-module%)) + (hash-put! _tbl125645_ '%#module gxc#collect-module%)) (let () (declare (not safe)) - (table-set! - _tbl238403_ + (hash-put! + _tbl125645_ '%#define-values gxc#collect-top-level-type-define-values%)) - _tbl238403_)))) + _tbl125645_)))) (define gxc#apply-collect-top-level-type-info - (lambda (_stx238386_ . _args238388_) - (let ((__tmp245066 + (lambda (_stx125628_ . _args125630_) + (let ((__tmp127740 (lambda () (declare (not safe)) - (if (null? _args238388_) - (gxc#compile-e__0 _stx238386_) - (let ((_arg1238393_ (car _args238388_)) - (_rest238395_ (cdr _args238388_))) - (if (null? _rest238395_) - (gxc#compile-e__1 _stx238386_ _arg1238393_) - (let ((_arg2238398_ (car _rest238395_)) - (_rest238400_ (cdr _rest238395_))) - (if (null? _rest238400_) + (if (null? _args125630_) + (gxc#compile-e__0 _stx125628_) + (let ((_arg1125635_ (car _args125630_)) + (_rest125637_ (cdr _args125630_))) + (if (null? _rest125637_) + (gxc#compile-e__1 _stx125628_ _arg1125635_) + (let ((_arg2125640_ (car _rest125637_)) + (_rest125642_ (cdr _rest125637_))) + (if (null? _rest125642_) (gxc#compile-e__2 - _stx238386_ - _arg1238393_ - _arg2238398_) + _stx125628_ + _arg1125635_ + _arg2125640_) (apply gxc#compile-e - _stx238386_ - _arg1238393_ - _arg2238398_ - _rest238400_)))))))) - (__tmp245065 (force gxc#&collect-top-level-type-info))) + _stx125628_ + _arg1125635_ + _arg2125640_ + _rest125642_)))))))) + (__tmp127739 (force gxc#&collect-top-level-type-info))) (declare (not safe)) (call-with-parameters - __tmp245066 + __tmp127740 gxc#current-compile-methods - __tmp245065)))) + __tmp127739)))) (define gxc#&basic-expression-top-level-type (make-promise (lambda () - (let ((_tbl238383_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp245067 (force gxc#&false))) + (let ((_tbl125625_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp127741 (force gxc#&false))) (declare (not safe)) - (hash-copy! _tbl238383_ __tmp245067)) + (hash-merge! _tbl125625_ __tmp127741)) (let () (declare (not safe)) - (table-set! - _tbl238383_ + (hash-put! + _tbl125625_ '%#begin-annotation gxc#basic-expression-type-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl238383_ '%#call gxc#basic-expression-type-call%)) - _tbl238383_)))) + (hash-put! _tbl125625_ '%#call gxc#basic-expression-type-call%)) + _tbl125625_)))) (define gxc#apply-basic-expression-top-level-type - (lambda (_stx238366_ . _args238368_) - (let ((__tmp245069 + (lambda (_stx125608_ . _args125610_) + (let ((__tmp127743 (lambda () (declare (not safe)) - (if (null? _args238368_) - (gxc#compile-e__0 _stx238366_) - (let ((_arg1238373_ (car _args238368_)) - (_rest238375_ (cdr _args238368_))) - (if (null? _rest238375_) - (gxc#compile-e__1 _stx238366_ _arg1238373_) - (let ((_arg2238378_ (car _rest238375_)) - (_rest238380_ (cdr _rest238375_))) - (if (null? _rest238380_) + (if (null? _args125610_) + (gxc#compile-e__0 _stx125608_) + (let ((_arg1125615_ (car _args125610_)) + (_rest125617_ (cdr _args125610_))) + (if (null? _rest125617_) + (gxc#compile-e__1 _stx125608_ _arg1125615_) + (let ((_arg2125620_ (car _rest125617_)) + (_rest125622_ (cdr _rest125617_))) + (if (null? _rest125622_) (gxc#compile-e__2 - _stx238366_ - _arg1238373_ - _arg2238378_) + _stx125608_ + _arg1125615_ + _arg2125620_) (apply gxc#compile-e - _stx238366_ - _arg1238373_ - _arg2238378_ - _rest238380_)))))))) - (__tmp245068 (force gxc#&basic-expression-top-level-type))) + _stx125608_ + _arg1125615_ + _arg2125620_ + _rest125622_)))))))) + (__tmp127742 (force gxc#&basic-expression-top-level-type))) (declare (not safe)) (call-with-parameters - __tmp245069 + __tmp127743 gxc#current-compile-methods - __tmp245068)))) + __tmp127742)))) (define gxc#&collect-type-info (make-promise (lambda () - (let ((_tbl238363_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp245070 (force gxc#&void))) + (let ((_tbl125605_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp127744 (force gxc#&void))) (declare (not safe)) - (hash-copy! _tbl238363_ __tmp245070)) + (hash-merge! _tbl125605_ __tmp127744)) (let () (declare (not safe)) - (table-set! _tbl238363_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl125605_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (table-set! - _tbl238363_ - '%#begin-syntax - gxc#collect-begin-syntax%)) + (hash-put! _tbl125605_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl238363_ '%#module gxc#collect-module%)) + (hash-put! _tbl125605_ '%#module gxc#collect-module%)) (let () (declare (not safe)) - (table-set! - _tbl238363_ + (hash-put! + _tbl125605_ '%#define-values gxc#collect-type-define-values%)) (let () (declare (not safe)) - (table-set! - _tbl238363_ + (hash-put! + _tbl125605_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl238363_ '%#lambda gxc#collect-body-lambda%)) + (hash-put! _tbl125605_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) - (table-set! - _tbl238363_ + (hash-put! + _tbl125605_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) - (table-set! - _tbl238363_ + (hash-put! + _tbl125605_ '%#let-values gxc#collect-type-let-values%)) (let () (declare (not safe)) - (table-set! - _tbl238363_ + (hash-put! + _tbl125605_ '%#letrec-values gxc#collect-type-let-values%)) (let () (declare (not safe)) - (table-set! - _tbl238363_ + (hash-put! + _tbl125605_ '%#letrec*-values gxc#collect-type-let-values%)) (let () (declare (not safe)) - (table-set! _tbl238363_ '%#call gxc#collect-type-call%)) + (hash-put! _tbl125605_ '%#call gxc#collect-type-call%)) (let () (declare (not safe)) - (table-set! _tbl238363_ '%#if gxc#collect-operands)) + (hash-put! _tbl125605_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl238363_ '%#set! gxc#collect-body-setq%)) - _tbl238363_)))) + (hash-put! _tbl125605_ '%#set! gxc#collect-body-setq%)) + _tbl125605_)))) (define gxc#apply-collect-type-info - (lambda (_stx238346_ . _args238348_) - (let ((__tmp245072 + (lambda (_stx125588_ . _args125590_) + (let ((__tmp127746 (lambda () (declare (not safe)) - (if (null? _args238348_) - (gxc#compile-e__0 _stx238346_) - (let ((_arg1238353_ (car _args238348_)) - (_rest238355_ (cdr _args238348_))) - (if (null? _rest238355_) - (gxc#compile-e__1 _stx238346_ _arg1238353_) - (let ((_arg2238358_ (car _rest238355_)) - (_rest238360_ (cdr _rest238355_))) - (if (null? _rest238360_) + (if (null? _args125590_) + (gxc#compile-e__0 _stx125588_) + (let ((_arg1125595_ (car _args125590_)) + (_rest125597_ (cdr _args125590_))) + (if (null? _rest125597_) + (gxc#compile-e__1 _stx125588_ _arg1125595_) + (let ((_arg2125600_ (car _rest125597_)) + (_rest125602_ (cdr _rest125597_))) + (if (null? _rest125602_) (gxc#compile-e__2 - _stx238346_ - _arg1238353_ - _arg2238358_) + _stx125588_ + _arg1125595_ + _arg2125600_) (apply gxc#compile-e - _stx238346_ - _arg1238353_ - _arg2238358_ - _rest238360_)))))))) - (__tmp245071 (force gxc#&collect-type-info))) + _stx125588_ + _arg1125595_ + _arg2125600_ + _rest125602_)))))))) + (__tmp127745 (force gxc#&collect-type-info))) (declare (not safe)) (call-with-parameters - __tmp245072 + __tmp127746 gxc#current-compile-methods - __tmp245071)))) + __tmp127745)))) (define gxc#&basic-expression-type (make-promise (lambda () - (let ((_tbl238343_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp245073 (force gxc#&false))) + (let ((_tbl125585_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp127747 (force gxc#&false))) (declare (not safe)) - (hash-copy! _tbl238343_ __tmp245073)) + (hash-merge! _tbl125585_ __tmp127747)) (let () (declare (not safe)) - (table-set! - _tbl238343_ - '%#begin - gxc#basic-expression-type-begin%)) + (hash-put! _tbl125585_ '%#begin gxc#basic-expression-type-begin%)) (let () (declare (not safe)) - (table-set! - _tbl238343_ + (hash-put! + _tbl125585_ '%#begin-annotation gxc#basic-expression-type-begin-annotation%)) (let () (declare (not safe)) - (table-set! - _tbl238343_ + (hash-put! + _tbl125585_ '%#lambda gxc#basic-expression-type-lambda%)) (let () (declare (not safe)) - (table-set! - _tbl238343_ + (hash-put! + _tbl125585_ '%#case-lambda gxc#basic-expression-type-case-lambda%)) (let () (declare (not safe)) - (table-set! - _tbl238343_ + (hash-put! + _tbl125585_ '%#let-values gxc#basic-expression-type-let-values%)) (let () (declare (not safe)) - (table-set! - _tbl238343_ + (hash-put! + _tbl125585_ '%#letrec-values gxc#basic-expression-type-let-values%)) (let () (declare (not safe)) - (table-set! - _tbl238343_ + (hash-put! + _tbl125585_ '%#letrec*-values gxc#basic-expression-type-let-values%)) (let () (declare (not safe)) - (table-set! _tbl238343_ '%#call gxc#basic-expression-type-call%)) + (hash-put! _tbl125585_ '%#call gxc#basic-expression-type-call%)) (let () (declare (not safe)) - (table-set! _tbl238343_ '%#ref gxc#basic-expression-type-ref%)) - _tbl238343_)))) + (hash-put! _tbl125585_ '%#ref gxc#basic-expression-type-ref%)) + _tbl125585_)))) (define gxc#apply-basic-expression-type - (lambda (_stx238326_ . _args238328_) - (let ((__tmp245075 + (lambda (_stx125568_ . _args125570_) + (let ((__tmp127749 (lambda () (declare (not safe)) - (if (null? _args238328_) - (gxc#compile-e__0 _stx238326_) - (let ((_arg1238333_ (car _args238328_)) - (_rest238335_ (cdr _args238328_))) - (if (null? _rest238335_) - (gxc#compile-e__1 _stx238326_ _arg1238333_) - (let ((_arg2238338_ (car _rest238335_)) - (_rest238340_ (cdr _rest238335_))) - (if (null? _rest238340_) + (if (null? _args125570_) + (gxc#compile-e__0 _stx125568_) + (let ((_arg1125575_ (car _args125570_)) + (_rest125577_ (cdr _args125570_))) + (if (null? _rest125577_) + (gxc#compile-e__1 _stx125568_ _arg1125575_) + (let ((_arg2125580_ (car _rest125577_)) + (_rest125582_ (cdr _rest125577_))) + (if (null? _rest125582_) (gxc#compile-e__2 - _stx238326_ - _arg1238333_ - _arg2238338_) + _stx125568_ + _arg1125575_ + _arg2125580_) (apply gxc#compile-e - _stx238326_ - _arg1238333_ - _arg2238338_ - _rest238340_)))))))) - (__tmp245074 (force gxc#&basic-expression-type))) + _stx125568_ + _arg1125575_ + _arg2125580_ + _rest125582_)))))))) + (__tmp127748 (force gxc#&basic-expression-type))) (declare (not safe)) (call-with-parameters - __tmp245075 + __tmp127749 gxc#current-compile-methods - __tmp245074)))) + __tmp127748)))) (define gxc#&lift-top-lambdas (make-promise (lambda () - (let ((_tbl238323_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp245076 (force gxc#&basic-xform))) + (let ((_tbl125565_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp127750 (force gxc#&basic-xform))) (declare (not safe)) - (hash-copy! _tbl238323_ __tmp245076)) + (hash-merge! _tbl125565_ __tmp127750)) (let () (declare (not safe)) - (table-set! - _tbl238323_ + (hash-put! + _tbl125565_ '%#define-values gxc#lift-top-lambda-define-values%)) (let () (declare (not safe)) - (table-set! - _tbl238323_ + (hash-put! + _tbl125565_ '%#let-values gxc#lift-top-lambda-let-values%)) (let () (declare (not safe)) - (table-set! - _tbl238323_ + (hash-put! + _tbl125565_ '%#letrec-values gxc#lift-top-lambda-letrec-values%)) (let () (declare (not safe)) - (table-set! - _tbl238323_ + (hash-put! + _tbl125565_ '%#letrec*-values gxc#lift-top-lambda-letrec-values%)) - _tbl238323_)))) + _tbl125565_)))) (define gxc#apply-lift-top-lambdas - (lambda (_stx238306_ . _args238308_) - (let ((__tmp245078 + (lambda (_stx125548_ . _args125550_) + (let ((__tmp127752 (lambda () (declare (not safe)) - (if (null? _args238308_) - (gxc#compile-e__0 _stx238306_) - (let ((_arg1238313_ (car _args238308_)) - (_rest238315_ (cdr _args238308_))) - (if (null? _rest238315_) - (gxc#compile-e__1 _stx238306_ _arg1238313_) - (let ((_arg2238318_ (car _rest238315_)) - (_rest238320_ (cdr _rest238315_))) - (if (null? _rest238320_) + (if (null? _args125550_) + (gxc#compile-e__0 _stx125548_) + (let ((_arg1125555_ (car _args125550_)) + (_rest125557_ (cdr _args125550_))) + (if (null? _rest125557_) + (gxc#compile-e__1 _stx125548_ _arg1125555_) + (let ((_arg2125560_ (car _rest125557_)) + (_rest125562_ (cdr _rest125557_))) + (if (null? _rest125562_) (gxc#compile-e__2 - _stx238306_ - _arg1238313_ - _arg2238318_) + _stx125548_ + _arg1125555_ + _arg2125560_) (apply gxc#compile-e - _stx238306_ - _arg1238313_ - _arg2238318_ - _rest238320_)))))))) - (__tmp245077 (force gxc#&lift-top-lambdas))) + _stx125548_ + _arg1125555_ + _arg2125560_ + _rest125562_)))))))) + (__tmp127751 (force gxc#&lift-top-lambdas))) (declare (not safe)) (call-with-parameters - __tmp245078 + __tmp127752 gxc#current-compile-methods - __tmp245077)))) + __tmp127751)))) (define gxc#collect-top-level-type-define-values% - (lambda (_stx238209_) - (let* ((___stx242984242985_ _stx238209_) - (_g238212238232_ + (lambda (_stx125451_) + (let* ((___stx125658125659_ _stx125451_) + (_g125454125474_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx242984242985_))))) - (let ((___kont242986242987_ - (lambda (_L238276_ _L238277_) - (let ((_sym238295_ + ___stx125658125659_))))) + (let ((___kont125660125661_ + (lambda (_L125518_ _L125519_) + (let ((_sym125537_ (let () (declare (not safe)) - (gxc#identifier-symbol _L238277_)))) - (if (let ((__tmp245079 (gxc#current-compile-mutators))) + (gxc#identifier-symbol _L125519_)))) + (if (let ((__tmp127753 (gxc#current-compile-mutators))) (declare (not safe)) - (table-ref __tmp245079 _sym238295_ '#f)) + (hash-get __tmp127753 _sym125537_)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for mutable binding " - _sym238295_)) - (let ((_type238296238298_ + _sym125537_)) + (let ((_type125538125540_ (let () (declare (not safe)) (gxc#apply-basic-expression-top-level-type - _L238276_)))) - (if _type238296238298_ - (let ((_type238301_ _type238296238298_)) + _L125518_)))) + (if _type125538125540_ + (let ((_type125543_ _type125538125540_)) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym238295_ - _type238301_)) + _sym125537_ + _type125543_)) '#f)))))) - (___kont242988242989_ (lambda () '#!void))) - (let ((___match243017243018_ - (lambda (_e238218238244_ - _hd238217238247_ - _tl238216238249_ - _e238221238252_ - _hd238220238255_ - _tl238219238257_ - _e238224238260_ - _hd238223238263_ - _tl238222238265_ - _e238227238268_ - _hd238226238271_ - _tl238225238273_) - (let ((_L238276_ _hd238226238271_) - (_L238277_ _hd238223238263_)) + (___kont125662125663_ (lambda () '#!void))) + (let ((___match125691125692_ + (lambda (_e125460125486_ + _hd125459125489_ + _tl125458125491_ + _e125463125494_ + _hd125462125497_ + _tl125461125499_ + _e125466125502_ + _hd125465125505_ + _tl125464125507_ + _e125469125510_ + _hd125468125513_ + _tl125467125515_) + (let ((_L125518_ _hd125468125513_) + (_L125519_ _hd125465125505_)) (if (let () (declare (not safe)) - (gx#identifier? _L238277_)) - (___kont242986242987_ _L238276_ _L238277_) - (___kont242988242989_)))))) + (gx#identifier? _L125519_)) + (___kont125660125661_ _L125518_ _L125519_) + (___kont125662125663_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx242984242985_)) - (let ((_e238218238244_ + (gx#stx-pair? ___stx125658125659_)) + (let ((_e125460125486_ (let () (declare (not safe)) - (gx#stx-e ___stx242984242985_)))) - (let ((_tl238216238249_ + (gx#stx-e ___stx125658125659_)))) + (let ((_tl125458125491_ (let () (declare (not safe)) - (##cdr _e238218238244_))) - (_hd238217238247_ + (##cdr _e125460125486_))) + (_hd125459125489_ (let () (declare (not safe)) - (##car _e238218238244_)))) + (##car _e125460125486_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl238216238249_)) - (let ((_e238221238252_ + (gx#stx-pair? _tl125458125491_)) + (let ((_e125463125494_ (let () (declare (not safe)) - (gx#stx-e _tl238216238249_)))) - (let ((_tl238219238257_ + (gx#stx-e _tl125458125491_)))) + (let ((_tl125461125499_ (let () (declare (not safe)) - (##cdr _e238221238252_))) - (_hd238220238255_ + (##cdr _e125463125494_))) + (_hd125462125497_ (let () (declare (not safe)) - (##car _e238221238252_)))) + (##car _e125463125494_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd238220238255_)) - (let ((_e238224238260_ + (gx#stx-pair? _hd125462125497_)) + (let ((_e125466125502_ (let () (declare (not safe)) - (gx#stx-e _hd238220238255_)))) - (let ((_tl238222238265_ + (gx#stx-e _hd125462125497_)))) + (let ((_tl125464125507_ (let () (declare (not safe)) - (##cdr _e238224238260_))) - (_hd238223238263_ + (##cdr _e125466125502_))) + (_hd125465125505_ (let () (declare (not safe)) - (##car _e238224238260_)))) + (##car _e125466125502_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl238222238265_)) + (gx#stx-null? _tl125464125507_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl238219238257_)) - (let ((_e238227238268_ + _tl125461125499_)) + (let ((_e125469125510_ (let () (declare (not safe)) (gx#stx-e - _tl238219238257_)))) - (let ((_tl238225238273_ + _tl125461125499_)))) + (let ((_tl125467125515_ (let () (declare (not safe)) - (##cdr _e238227238268_))) - (_hd238226238271_ + (##cdr _e125469125510_))) + (_hd125468125513_ (let () (declare (not safe)) - (##car _e238227238268_)))) + (##car _e125469125510_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl238225238273_)) - (___match243017243018_ - _e238218238244_ - _hd238217238247_ - _tl238216238249_ - _e238221238252_ - _hd238220238255_ - _tl238219238257_ - _e238224238260_ - _hd238223238263_ - _tl238222238265_ - _e238227238268_ - _hd238226238271_ - _tl238225238273_) - (___kont242988242989_)))) - (___kont242988242989_)) - (___kont242988242989_)))) - (___kont242988242989_)))) - (___kont242988242989_)))) - (___kont242988242989_))))))) + _tl125467125515_)) + (___match125691125692_ + _e125460125486_ + _hd125459125489_ + _tl125458125491_ + _e125463125494_ + _hd125462125497_ + _tl125461125499_ + _e125466125502_ + _hd125465125505_ + _tl125464125507_ + _e125469125510_ + _hd125468125513_ + _tl125467125515_) + (___kont125662125663_)))) + (___kont125662125663_)) + (___kont125662125663_)))) + (___kont125662125663_)))) + (___kont125662125663_)))) + (___kont125662125663_))))))) (define gxc#collect-type-define-values% - (lambda (_stx238065_) - (let* ((___stx243020243021_ _stx238065_) - (_g238068238099_ + (lambda (_stx125307_) + (let* ((___stx125694125695_ _stx125307_) + (_g125310125341_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243020243021_))))) - (let ((___kont243022243023_ - (lambda (_L238181_ _L238182_) - (let ((_sym238198_ + ___stx125694125695_))))) + (let ((___kont125696125697_ + (lambda (_L125423_ _L125424_) + (let ((_sym125440_ (let () (declare (not safe)) - (gxc#identifier-symbol _L238182_)))) - (if (let ((__tmp245080 (gxc#current-compile-mutators))) + (gxc#identifier-symbol _L125424_)))) + (if (let ((__tmp127754 (gxc#current-compile-mutators))) (declare (not safe)) - (table-ref __tmp245080 _sym238198_ '#f)) + (hash-get __tmp127754 _sym125440_)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for mutable binding " - _sym238198_)) + _sym125440_)) (if (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym238198_)) + (gxc#optimizer-lookup-type _sym125440_)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for already declared type " - _sym238198_)) - (let ((_type238199238201_ + _sym125440_)) + (let ((_type125441125443_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _L238181_)))) - (if _type238199238201_ - (let ((_type238204_ _type238199238201_)) + _L125423_)))) + (if _type125441125443_ + (let ((_type125446_ _type125441125443_)) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym238198_ - _type238204_)) + _sym125440_ + _type125446_)) '#f)))) (let () (declare (not safe)) - (gxc#compile-e__0 _L238181_))))) - (___kont243024243025_ - (lambda (_L238128_ _L238129_) + (gxc#compile-e__0 _L125423_))))) + (___kont125698125699_ + (lambda (_L125370_ _L125371_) (let () (declare (not safe)) - (gxc#compile-e__0 _L238128_))))) - (let ((___match243053243054_ - (lambda (_e238074238149_ - _hd238073238152_ - _tl238072238154_ - _e238077238157_ - _hd238076238160_ - _tl238075238162_ - _e238080238165_ - _hd238079238168_ - _tl238078238170_ - _e238083238173_ - _hd238082238176_ - _tl238081238178_) - (let ((_L238181_ _hd238082238176_) - (_L238182_ _hd238079238168_)) + (gxc#compile-e__0 _L125370_))))) + (let ((___match125727125728_ + (lambda (_e125316125391_ + _hd125315125394_ + _tl125314125396_ + _e125319125399_ + _hd125318125402_ + _tl125317125404_ + _e125322125407_ + _hd125321125410_ + _tl125320125412_ + _e125325125415_ + _hd125324125418_ + _tl125323125420_) + (let ((_L125423_ _hd125324125418_) + (_L125424_ _hd125321125410_)) (if (let () (declare (not safe)) - (gx#identifier? _L238182_)) - (___kont243022243023_ _L238181_ _L238182_) - (___kont243024243025_ - _hd238082238176_ - _hd238076238160_)))))) + (gx#identifier? _L125424_)) + (___kont125696125697_ _L125423_ _L125424_) + (___kont125698125699_ + _hd125324125418_ + _hd125318125402_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx243020243021_)) - (let ((_e238074238149_ + (gx#stx-pair? ___stx125694125695_)) + (let ((_e125316125391_ (let () (declare (not safe)) - (gx#stx-e ___stx243020243021_)))) - (let ((_tl238072238154_ + (gx#stx-e ___stx125694125695_)))) + (let ((_tl125314125396_ (let () (declare (not safe)) - (##cdr _e238074238149_))) - (_hd238073238152_ + (##cdr _e125316125391_))) + (_hd125315125394_ (let () (declare (not safe)) - (##car _e238074238149_)))) + (##car _e125316125391_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl238072238154_)) - (let ((_e238077238157_ + (gx#stx-pair? _tl125314125396_)) + (let ((_e125319125399_ (let () (declare (not safe)) - (gx#stx-e _tl238072238154_)))) - (let ((_tl238075238162_ + (gx#stx-e _tl125314125396_)))) + (let ((_tl125317125404_ (let () (declare (not safe)) - (##cdr _e238077238157_))) - (_hd238076238160_ + (##cdr _e125319125399_))) + (_hd125318125402_ (let () (declare (not safe)) - (##car _e238077238157_)))) + (##car _e125319125399_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd238076238160_)) - (let ((_e238080238165_ + (gx#stx-pair? _hd125318125402_)) + (let ((_e125322125407_ (let () (declare (not safe)) - (gx#stx-e _hd238076238160_)))) - (let ((_tl238078238170_ + (gx#stx-e _hd125318125402_)))) + (let ((_tl125320125412_ (let () (declare (not safe)) - (##cdr _e238080238165_))) - (_hd238079238168_ + (##cdr _e125322125407_))) + (_hd125321125410_ (let () (declare (not safe)) - (##car _e238080238165_)))) + (##car _e125322125407_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl238078238170_)) + (gx#stx-null? _tl125320125412_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl238075238162_)) - (let ((_e238083238173_ + _tl125317125404_)) + (let ((_e125325125415_ (let () (declare (not safe)) (gx#stx-e - _tl238075238162_)))) - (let ((_tl238081238178_ + _tl125317125404_)))) + (let ((_tl125323125420_ (let () (declare (not safe)) - (##cdr _e238083238173_))) - (_hd238082238176_ + (##cdr _e125325125415_))) + (_hd125324125418_ (let () (declare (not safe)) - (##car _e238083238173_)))) + (##car _e125325125415_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl238081238178_)) - (___match243053243054_ - _e238074238149_ - _hd238073238152_ - _tl238072238154_ - _e238077238157_ - _hd238076238160_ - _tl238075238162_ - _e238080238165_ - _hd238079238168_ - _tl238078238170_ - _e238083238173_ - _hd238082238176_ - _tl238081238178_) + _tl125323125420_)) + (___match125727125728_ + _e125316125391_ + _hd125315125394_ + _tl125314125396_ + _e125319125399_ + _hd125318125402_ + _tl125317125404_ + _e125322125407_ + _hd125321125410_ + _tl125320125412_ + _e125325125415_ + _hd125324125418_ + _tl125323125420_) (let () (declare (not safe)) - (_g238068238099_))))) + (_g125310125341_))))) (let () (declare (not safe)) - (_g238068238099_))) + (_g125310125341_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl238075238162_)) - (let ((_e238094238120_ + _tl125317125404_)) + (let ((_e125336125362_ (let () (declare (not safe)) (gx#stx-e - _tl238075238162_)))) - (let ((_tl238092238125_ + _tl125317125404_)))) + (let ((_tl125334125367_ (let () (declare (not safe)) - (##cdr _e238094238120_))) - (_hd238093238123_ + (##cdr _e125336125362_))) + (_hd125335125365_ (let () (declare (not safe)) - (##car _e238094238120_)))) + (##car _e125336125362_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl238092238125_)) - (___kont243024243025_ - _hd238093238123_ - _hd238076238160_) + _tl125334125367_)) + (___kont125698125699_ + _hd125335125365_ + _hd125318125402_) (let () (declare (not safe)) - (_g238068238099_))))) + (_g125310125341_))))) (let () (declare (not safe)) - (_g238068238099_)))))) + (_g125310125341_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl238075238162_)) - (let ((_e238094238120_ + (gx#stx-pair? _tl125317125404_)) + (let ((_e125336125362_ (let () (declare (not safe)) - (gx#stx-e _tl238075238162_)))) - (let ((_tl238092238125_ + (gx#stx-e _tl125317125404_)))) + (let ((_tl125334125367_ (let () (declare (not safe)) - (##cdr _e238094238120_))) - (_hd238093238123_ + (##cdr _e125336125362_))) + (_hd125335125365_ (let () (declare (not safe)) - (##car _e238094238120_)))) + (##car _e125336125362_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl238092238125_)) - (___kont243024243025_ - _hd238093238123_ - _hd238076238160_) + _tl125334125367_)) + (___kont125698125699_ + _hd125335125365_ + _hd125318125402_) (let () (declare (not safe)) - (_g238068238099_))))) + (_g125310125341_))))) (let () (declare (not safe)) - (_g238068238099_)))))) - (let () (declare (not safe)) (_g238068238099_))))) - (let () (declare (not safe)) (_g238068238099_)))))))) + (_g125310125341_)))))) + (let () (declare (not safe)) (_g125310125341_))))) + (let () (declare (not safe)) (_g125310125341_)))))))) (define gxc#collect-type-let-values% - (lambda (_stx237850_) - (letrec ((_collect-e237852_ - (lambda (_hd238009_ _expr238010_) - (let* ((___stx243076243077_ _hd238009_) - (_g238013238023_ + (lambda (_stx125092_) + (letrec ((_collect-e125094_ + (lambda (_hd125251_ _expr125252_) + (let* ((___stx125750125751_ _hd125251_) + (_g125255125265_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243076243077_))))) - (let ((___kont243078243079_ - (lambda (_L238043_) - (let ((_sym238054_ + ___stx125750125751_))))) + (let ((___kont125752125753_ + (lambda (_L125285_) + (let ((_sym125296_ (let () (declare (not safe)) - (gxc#identifier-symbol _L238043_)))) - (if (let ((__tmp245081 + (gxc#identifier-symbol _L125285_)))) + (if (let ((__tmp127755 (gxc#current-compile-mutators))) (declare (not safe)) - (table-ref __tmp245081 _sym238054_ '#f)) + (hash-get __tmp127755 _sym125296_)) (let () (declare (not safe)) (gxc#verbose '"skipping type declaration for mutable binding " - _sym238054_)) - (let ((_type238055238057_ + _sym125296_)) + (let ((_type125297125299_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _expr238010_)))) - (if _type238055238057_ - (let ((_type238060_ - _type238055238057_)) + _expr125252_)))) + (if _type125297125299_ + (let ((_type125302_ + _type125297125299_)) (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym238054_ - _type238060_ + _sym125296_ + _type125302_ '#t)) '#f)))))) - (___kont243080243081_ (lambda () '#!void))) - (let ((___match243089243090_ - (lambda (_e238018238035_ - _hd238017238038_ - _tl238016238040_) - (let ((_L238043_ _hd238017238038_)) + (___kont125754125755_ (lambda () '#!void))) + (let ((___match125763125764_ + (lambda (_e125260125277_ + _hd125259125280_ + _tl125258125282_) + (let ((_L125285_ _hd125259125280_)) (if (let () (declare (not safe)) - (gx#identifier? _L238043_)) - (___kont243078243079_ _L238043_) - (___kont243080243081_)))))) + (gx#identifier? _L125285_)) + (___kont125752125753_ _L125285_) + (___kont125754125755_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx243076243077_)) - (let ((_e238018238035_ + (gx#stx-pair? ___stx125750125751_)) + (let ((_e125260125277_ (let () (declare (not safe)) - (gx#stx-e ___stx243076243077_)))) - (let ((_tl238016238040_ + (gx#stx-e ___stx125750125751_)))) + (let ((_tl125258125282_ (let () (declare (not safe)) - (##cdr _e238018238035_))) - (_hd238017238038_ + (##cdr _e125260125277_))) + (_hd125259125280_ (let () (declare (not safe)) - (##car _e238018238035_)))) + (##car _e125260125277_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl238016238040_)) - (___match243089243090_ - _e238018238035_ - _hd238017238038_ - _tl238016238040_) - (___kont243080243081_)))) - (___kont243080243081_)))))))) - (let* ((_g237854237889_ - (lambda (_g237855237886_) + (gx#stx-null? _tl125258125282_)) + (___match125763125764_ + _e125260125277_ + _hd125259125280_ + _tl125258125282_) + (___kont125754125755_)))) + (___kont125754125755_)))))))) + (let* ((_g125096125131_ + (lambda (_g125097125128_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g237855237886_)))) - (_g237853238006_ - (lambda (_g237855237892_) + _g125097125128_)))) + (_g125095125248_ + (lambda (_g125097125134_) (if (let () (declare (not safe)) - (gx#stx-pair? _g237855237892_)) - (let ((_e237861237894_ + (gx#stx-pair? _g125097125134_)) + (let ((_e125103125136_ (let () (declare (not safe)) - (gx#stx-e _g237855237892_)))) - (let ((_hd237860237897_ + (gx#stx-e _g125097125134_)))) + (let ((_hd125102125139_ (let () (declare (not safe)) - (##car _e237861237894_))) - (_tl237859237899_ + (##car _e125103125136_))) + (_tl125101125141_ (let () (declare (not safe)) - (##cdr _e237861237894_)))) + (##cdr _e125103125136_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237859237899_)) - (let ((_e237864237902_ + (gx#stx-pair? _tl125101125141_)) + (let ((_e125106125144_ (let () (declare (not safe)) - (gx#stx-e _tl237859237899_)))) - (let ((_hd237863237905_ + (gx#stx-e _tl125101125141_)))) + (let ((_hd125105125147_ (let () (declare (not safe)) - (##car _e237864237902_))) - (_tl237862237907_ + (##car _e125106125144_))) + (_tl125104125149_ (let () (declare (not safe)) - (##cdr _e237864237902_)))) + (##cdr _e125106125144_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd237863237905_)) - (let ((_g245082_ + (gx#stx-pair/null? _hd125105125147_)) + (let ((_g127756_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd237863237905_ + _hd125105125147_ '0)))) (begin - (let ((_g245083_ + (let ((_g127757_ (let () (declare (not safe)) - (if (##values? _g245082_) + (if (##values? _g127756_) (##vector-length - _g245082_) + _g127756_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g245083_ 2))) + (##fx= _g127757_ 2))) (error "Context expects 2 values" - _g245083_))) - (let ((_target237865237910_ + _g127757_))) + (let ((_target125107125152_ (let () (declare (not safe)) (##vector-ref - _g245082_ + _g127756_ 0))) - (_tl237867237912_ + (_tl125109125154_ (let () (declare (not safe)) (##vector-ref - _g245082_ + _g127756_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237867237912_)) - (letrec ((_loop237868237915_ - (lambda (_hd237866237918_ + _tl125109125154_)) + (letrec ((_loop125110125157_ + (lambda (_hd125108125160_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr237872237920_ - _hd237873237922_) + _expr125114125162_ + _hd125115125164_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd237866237918_)) - (let ((_e237869237925_ + (gx#stx-pair? _hd125108125160_)) + (let ((_e125111125167_ (let () (declare (not safe)) - (gx#stx-e _hd237866237918_)))) - (let ((_lp-hd237870237928_ + (gx#stx-e _hd125108125160_)))) + (let ((_lp-hd125112125170_ (let () (declare (not safe)) - (##car _e237869237925_))) - (_lp-tl237871237930_ + (##car _e125111125167_))) + (_lp-tl125113125172_ (let () (declare (not safe)) - (##cdr _e237869237925_)))) + (##cdr _e125111125167_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd237870237928_)) - (let ((_e237878237933_ + (gx#stx-pair? _lp-hd125112125170_)) + (let ((_e125120125175_ (let () (declare (not safe)) - (gx#stx-e _lp-hd237870237928_)))) - (let ((_hd237877237936_ + (gx#stx-e _lp-hd125112125170_)))) + (let ((_hd125119125178_ (let () (declare (not safe)) - (##car _e237878237933_))) - (_tl237876237938_ + (##car _e125120125175_))) + (_tl125118125180_ (let () (declare (not safe)) - (##cdr _e237878237933_)))) + (##cdr _e125120125175_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237876237938_)) - (let ((_e237881237941_ + (gx#stx-pair? _tl125118125180_)) + (let ((_e125123125183_ (let () (declare (not safe)) (gx#stx-e - _tl237876237938_)))) - (let ((_hd237880237944_ + _tl125118125180_)))) + (let ((_hd125122125186_ (let () (declare (not safe)) - (##car _e237881237941_))) - (_tl237879237946_ + (##car _e125123125183_))) + (_tl125121125188_ (let () (declare (not safe)) - (##cdr _e237881237941_)))) + (##cdr _e125123125183_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237879237946_)) - (let ((__tmp245088 + _tl125121125188_)) + (let ((__tmp127762 (let () (declare (not safe)) - (cons _hd237880237944_ + (cons _hd125122125186_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr237872237920_))) - (__tmp245087 + _expr125114125162_))) + (__tmp127761 (let () (declare (not safe)) - (cons _hd237877237936_ _hd237873237922_)))) + (cons _hd125119125178_ _hd125115125164_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop237868237915_ - _lp-tl237871237930_ - __tmp245088 - __tmp245087)) + (_loop125110125157_ + _lp-tl125113125172_ + __tmp127762 + __tmp127761)) (let () (declare (not safe)) - (_g237854237889_ - _g237855237892_))))) + (_g125096125131_ + _g125097125134_))))) (let () (declare (not safe)) - (_g237854237889_ - _g237855237892_))))) + (_g125096125131_ + _g125097125134_))))) (let () (declare (not safe)) - (_g237854237889_ _g237855237892_))))) - (let ((_expr237874237949_ - (reverse _expr237872237920_)) - (_hd237875237951_ (reverse _hd237873237922_))) + (_g125096125131_ _g125097125134_))))) + (let ((_expr125116125191_ + (reverse _expr125114125162_)) + (_hd125117125193_ (reverse _hd125115125164_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237862237907_)) - (let ((_e237884237954_ + (gx#stx-pair? _tl125104125149_)) + (let ((_e125126125196_ (let () (declare (not safe)) - (gx#stx-e _tl237862237907_)))) - (let ((_hd237883237957_ + (gx#stx-e _tl125104125149_)))) + (let ((_hd125125125199_ (let () (declare (not safe)) - (##car _e237884237954_))) - (_tl237882237959_ + (##car _e125126125196_))) + (_tl125124125201_ (let () (declare (not safe)) - (##cdr _e237884237954_)))) + (##cdr _e125126125196_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237882237959_)) - ((lambda (_L237962_ - _L237963_ - _L237964_) + (gx#stx-null? _tl125124125201_)) + ((lambda (_L125204_ + _L125205_ + _L125206_) (for-each - _collect-e237852_ - (let ((__tmp245084 - (lambda (_g237984237987_ - _g237985237989_) + _collect-e125094_ + (let ((__tmp127758 + (lambda (_g125226125229_ + _g125227125231_) (let () (declare (not safe)) - (cons _g237984237987_ - _g237985237989_))))) + (cons _g125226125229_ + _g125227125231_))))) (declare (not safe)) - (foldr1 __tmp245084 + (foldr1 __tmp127758 '() - _L237964_)) - (let ((__tmp245085 - (lambda (_g237991237994_ - _g237992237996_) + _L125206_)) + (let ((__tmp127759 + (lambda (_g125233125236_ + _g125234125238_) (let () (declare (not safe)) - (cons _g237991237994_ - _g237992237996_))))) + (cons _g125233125236_ + _g125234125238_))))) (declare (not safe)) - (foldr1 __tmp245085 + (foldr1 __tmp127759 '() - _L237963_))) + _L125205_))) (for-each gxc#compile-e - (let ((__tmp245086 - (lambda (_g237998238001_ - _g237999238003_) + (let ((__tmp127760 + (lambda (_g125240125243_ + _g125241125245_) (let () (declare (not safe)) - (cons _g237998238001_ - _g237999238003_))))) + (cons _g125240125243_ + _g125241125245_))))) (declare (not safe)) - (foldr1 __tmp245086 + (foldr1 __tmp127760 '() - _L237963_))) + _L125205_))) (let () (declare (not safe)) - (gxc#compile-e__0 _L237962_))) - _hd237883237957_ - _expr237874237949_ - _hd237875237951_) + (gxc#compile-e__0 _L125204_))) + _hd125125125199_ + _expr125116125191_ + _hd125117125193_) (let () (declare (not safe)) - (_g237854237889_ _g237855237892_))))) + (_g125096125131_ _g125097125134_))))) (let () (declare (not safe)) - (_g237854237889_ _g237855237892_)))))))) + (_g125096125131_ _g125097125134_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop237868237915_ - _target237865237910_ + (_loop125110125157_ + _target125107125152_ '() '()))) (let () (declare (not safe)) - (_g237854237889_ - _g237855237892_)))))) + (_g125096125131_ + _g125097125134_)))))) (let () (declare (not safe)) - (_g237854237889_ _g237855237892_))))) + (_g125096125131_ _g125097125134_))))) (let () (declare (not safe)) - (_g237854237889_ _g237855237892_))))) + (_g125096125131_ _g125097125134_))))) (let () (declare (not safe)) - (_g237854237889_ _g237855237892_)))))) + (_g125096125131_ _g125097125134_)))))) (declare (not safe)) - (_g237853238006_ _stx237850_))))) + (_g125095125248_ _stx125092_))))) (define gxc#collect-type-call% - (lambda (_stx237342_) - (let* ((___stx243092243093_ _stx237342_) - (_g237346237461_ + (lambda (_stx124584_) + (let* ((___stx125766125767_ _stx124584_) + (_g124588124703_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243092243093_))))) - (let ((___kont243094243095_ - (lambda (_L237800_ _L237801_ _L237802_ _L237803_ _L237804_) - (let ((__tmp245092 + ___stx125766125767_))))) + (let ((___kont125768125769_ + (lambda (_L125042_ _L125043_ _L125044_ _L125045_ _L125046_) + (let ((__tmp127766 (let () (declare (not safe)) - (gxc#identifier-symbol _L237803_))) - (__tmp245091 - (let () (declare (not safe)) (gx#stx-e _L237802_))) - (__tmp245090 + (gxc#identifier-symbol _L125045_))) + (__tmp127765 + (let () (declare (not safe)) (gx#stx-e _L125044_))) + (__tmp127764 (let () (declare (not safe)) - (gxc#identifier-symbol _L237801_))) - (__tmp245089 - (let () (declare (not safe)) (gx#stx-e _L237800_)))) + (gxc#identifier-symbol _L125043_))) + (__tmp127763 + (let () (declare (not safe)) (gx#stx-e _L125042_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp245092 - __tmp245091 - __tmp245090 - __tmp245089)))) - (___kont243096243097_ - (lambda (_L237628_ _L237629_ _L237630_ _L237631_) - (let ((__tmp245095 + __tmp127766 + __tmp127765 + __tmp127764 + __tmp127763)))) + (___kont125770125771_ + (lambda (_L124870_ _L124871_ _L124872_ _L124873_) + (let ((__tmp127769 (let () (declare (not safe)) - (gxc#identifier-symbol _L237630_))) - (__tmp245094 - (let () (declare (not safe)) (gx#stx-e _L237629_))) - (__tmp245093 + (gxc#identifier-symbol _L124872_))) + (__tmp127768 + (let () (declare (not safe)) (gx#stx-e _L124871_))) + (__tmp127767 (let () (declare (not safe)) - (gxc#identifier-symbol _L237628_)))) + (gxc#identifier-symbol _L124870_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp245095 - __tmp245094 - __tmp245093 + __tmp127769 + __tmp127768 + __tmp127767 '#f)))) - (___kont243098243099_ - (lambda (_L237498_) + (___kont125772125773_ + (lambda (_L124740_) (for-each gxc#compile-e - (let ((__tmp245096 - (lambda (_g237511237514_ _g237512237516_) + (let ((__tmp127770 + (lambda (_g124753124756_ _g124754124758_) (let () (declare (not safe)) - (cons _g237511237514_ _g237512237516_))))) + (cons _g124753124756_ _g124754124758_))))) (declare (not safe)) - (foldr1 __tmp245096 '() _L237498_)))))) - (let* ((___match243349243350_ - (lambda (_e237447237466_ - _hd237446237469_ - _tl237445237471_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) - (letrec ((_loop237451237479_ - (lambda (_hd237449237482_ _expr237455237484_) + (foldr1 __tmp127770 '() _L124740_)))))) + (let* ((___match126023126024_ + (lambda (_e124689124708_ + _hd124688124711_ + _tl124687124713_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) + (letrec ((_loop124693124721_ + (lambda (_hd124691124724_ _expr124697124726_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd237449237482_)) - (let ((_e237452237487_ + (gx#stx-pair? _hd124691124724_)) + (let ((_e124694124729_ (let () (declare (not safe)) - (gx#stx-e _hd237449237482_)))) - (let ((_lp-tl237454237492_ + (gx#stx-e _hd124691124724_)))) + (let ((_lp-tl124696124734_ (let () (declare (not safe)) - (##cdr _e237452237487_))) - (_lp-hd237453237490_ + (##cdr _e124694124729_))) + (_lp-hd124695124732_ (let () (declare (not safe)) - (##car _e237452237487_)))) - (let ((__tmp245097 + (##car _e124694124729_)))) + (let ((__tmp127771 (let () (declare (not safe)) - (cons _lp-hd237453237490_ - _expr237455237484_)))) + (cons _lp-hd124695124732_ + _expr124697124726_)))) (declare (not safe)) - (_loop237451237479_ - _lp-tl237454237492_ - __tmp245097)))) - (let ((_expr237456237495_ - (reverse _expr237455237484_))) - (___kont243098243099_ - _expr237456237495_)))))) + (_loop124693124721_ + _lp-tl124696124734_ + __tmp127771)))) + (let ((_expr124698124737_ + (reverse _expr124697124726_))) + (___kont125772125773_ + _expr124698124737_)))))) (let () (declare (not safe)) - (_loop237451237479_ _target237448237474_ '()))))) - (___match243229243230_ - (lambda (_e237355237672_ - _hd237354237675_ - _tl237353237677_ - _e237358237680_ - _hd237357237683_ - _tl237356237685_ - _e237361237688_ - _hd237360237691_ - _tl237359237693_ - _e237364237696_ - _hd237363237699_ - _tl237362237701_ - _e237367237704_ - _hd237366237707_ - _tl237365237709_ - _e237370237712_ - _hd237369237715_ - _tl237368237717_ - _e237373237720_ - _hd237372237723_ - _tl237371237725_ - _e237376237728_ - _hd237375237731_ - _tl237374237733_ - _e237379237736_ - _hd237378237739_ - _tl237377237741_ - _e237382237744_ - _hd237381237747_ - _tl237380237749_ - _e237385237752_ - _hd237384237755_ - _tl237383237757_ - _e237388237760_ - _hd237387237763_ - _tl237386237765_ - _e237391237768_ - _hd237390237771_ - _tl237389237773_ - _e237394237776_ - _hd237393237779_ - _tl237392237781_ - _e237397237784_ - _hd237396237787_ - _tl237395237789_ - _e237400237792_ - _hd237399237795_ - _tl237398237797_) - (let ((_L237800_ _hd237399237795_) - (_L237801_ _hd237390237771_) - (_L237802_ _hd237381237747_) - (_L237803_ _hd237372237723_) - (_L237804_ _hd237363237699_)) + (_loop124693124721_ _target124690124716_ '()))))) + (___match125903125904_ + (lambda (_e124597124914_ + _hd124596124917_ + _tl124595124919_ + _e124600124922_ + _hd124599124925_ + _tl124598124927_ + _e124603124930_ + _hd124602124933_ + _tl124601124935_ + _e124606124938_ + _hd124605124941_ + _tl124604124943_ + _e124609124946_ + _hd124608124949_ + _tl124607124951_ + _e124612124954_ + _hd124611124957_ + _tl124610124959_ + _e124615124962_ + _hd124614124965_ + _tl124613124967_ + _e124618124970_ + _hd124617124973_ + _tl124616124975_ + _e124621124978_ + _hd124620124981_ + _tl124619124983_ + _e124624124986_ + _hd124623124989_ + _tl124622124991_ + _e124627124994_ + _hd124626124997_ + _tl124625124999_ + _e124630125002_ + _hd124629125005_ + _tl124628125007_ + _e124633125010_ + _hd124632125013_ + _tl124631125015_ + _e124636125018_ + _hd124635125021_ + _tl124634125023_ + _e124639125026_ + _hd124638125029_ + _tl124637125031_ + _e124642125034_ + _hd124641125037_ + _tl124640125039_) + (let ((_L125042_ _hd124641125037_) + (_L125043_ _hd124632125013_) + (_L125044_ _hd124623124989_) + (_L125045_ _hd124614124965_) + (_L125046_ _hd124605124941_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L237804_ + _L125046_ 'bind-method!)) - (___kont243094243095_ - _L237800_ - _L237801_ - _L237802_ - _L237803_ - _L237804_) + (___kont125768125769_ + _L125042_ + _L125043_ + _L125044_ + _L125045_ + _L125046_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl237353237677_)) - (let ((___splice243100243101_ + (gx#stx-pair/null? _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237353237677_ + _tl124595124919_ '0)))) - (let ((_tl237450237476_ + (let ((_tl124692124718_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '1))) - (_target237448237474_ + (_target124690124716_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + (gx#stx-null? _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) + (_g124588124703_))))) (let () (declare (not safe)) - (_g237346237461_)))))))) + (_g124588124703_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx243092243093_)) - (let ((_e237355237672_ + (gx#stx-pair? ___stx125766125767_)) + (let ((_e124597124914_ (let () (declare (not safe)) - (gx#stx-e ___stx243092243093_)))) - (let ((_tl237353237677_ + (gx#stx-e ___stx125766125767_)))) + (let ((_tl124595124919_ (let () (declare (not safe)) - (##cdr _e237355237672_))) - (_hd237354237675_ + (##cdr _e124597124914_))) + (_hd124596124917_ (let () (declare (not safe)) - (##car _e237355237672_)))) + (##car _e124597124914_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237353237677_)) - (let ((_e237358237680_ + (gx#stx-pair? _tl124595124919_)) + (let ((_e124600124922_ (let () (declare (not safe)) - (gx#stx-e _tl237353237677_)))) - (let ((_tl237356237685_ + (gx#stx-e _tl124595124919_)))) + (let ((_tl124598124927_ (let () (declare (not safe)) - (##cdr _e237358237680_))) - (_hd237357237683_ + (##cdr _e124600124922_))) + (_hd124599124925_ (let () (declare (not safe)) - (##car _e237358237680_)))) + (##car _e124600124922_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd237357237683_)) - (let ((_e237361237688_ + (gx#stx-pair? _hd124599124925_)) + (let ((_e124603124930_ (let () (declare (not safe)) - (gx#stx-e _hd237357237683_)))) - (let ((_tl237359237693_ + (gx#stx-e _hd124599124925_)))) + (let ((_tl124601124935_ (let () (declare (not safe)) - (##cdr _e237361237688_))) - (_hd237360237691_ + (##cdr _e124603124930_))) + (_hd124602124933_ (let () (declare (not safe)) - (##car _e237361237688_)))) + (##car _e124603124930_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd237360237691_)) + (gx#identifier? _hd124602124933_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd237360237691_)) + _hd124602124933_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl237359237693_)) - (let ((_e237364237696_ + _tl124601124935_)) + (let ((_e124606124938_ (let () (declare (not safe)) (gx#stx-e - _tl237359237693_)))) - (let ((_tl237362237701_ + _tl124601124935_)))) + (let ((_tl124604124943_ (let () (declare (not safe)) - (##cdr _e237364237696_))) - (_hd237363237699_ + (##cdr _e124606124938_))) + (_hd124605124941_ (let () (declare (not safe)) - (##car _e237364237696_)))) + (##car _e124606124938_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237362237701_)) + _tl124604124943_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl237356237685_)) - (let ((_e237367237704_ + (gx#stx-pair? _tl124598124927_)) + (let ((_e124609124946_ (let () (declare (not safe)) - (gx#stx-e _tl237356237685_)))) - (let ((_tl237365237709_ + (gx#stx-e _tl124598124927_)))) + (let ((_tl124607124951_ (let () (declare (not safe)) - (##cdr _e237367237704_))) - (_hd237366237707_ + (##cdr _e124609124946_))) + (_hd124608124949_ (let () (declare (not safe)) - (##car _e237367237704_)))) + (##car _e124609124946_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd237366237707_)) - (let ((_e237370237712_ + (gx#stx-pair? _hd124608124949_)) + (let ((_e124612124954_ (let () (declare (not safe)) - (gx#stx-e _hd237366237707_)))) - (let ((_tl237368237717_ + (gx#stx-e _hd124608124949_)))) + (let ((_tl124610124959_ (let () (declare (not safe)) - (##cdr _e237370237712_))) - (_hd237369237715_ + (##cdr _e124612124954_))) + (_hd124611124957_ (let () (declare (not safe)) - (##car _e237370237712_)))) + (##car _e124612124954_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd237369237715_)) + (gx#identifier? _hd124611124957_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd237369237715_)) + _hd124611124957_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl237368237717_)) - (let ((_e237373237720_ + _tl124610124959_)) + (let ((_e124615124962_ (let () (declare (not safe)) (gx#stx-e - _tl237368237717_)))) - (let ((_tl237371237725_ + _tl124610124959_)))) + (let ((_tl124613124967_ (let () (declare (not safe)) - (##cdr _e237373237720_))) - (_hd237372237723_ + (##cdr _e124615124962_))) + (_hd124614124965_ (let () (declare (not safe)) - (##car _e237373237720_)))) + (##car _e124615124962_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237371237725_)) + _tl124613124967_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl237365237709_)) - (let ((_e237376237728_ + _tl124607124951_)) + (let ((_e124618124970_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl237365237709_)))) - (let ((_tl237374237733_ + (gx#stx-e _tl124607124951_)))) + (let ((_tl124616124975_ (let () (declare (not safe)) - (##cdr _e237376237728_))) - (_hd237375237731_ + (##cdr _e124618124970_))) + (_hd124617124973_ (let () (declare (not safe)) - (##car _e237376237728_)))) + (##car _e124618124970_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd237375237731_)) - (let ((_e237379237736_ + (gx#stx-pair? _hd124617124973_)) + (let ((_e124621124978_ (let () (declare (not safe)) - (gx#stx-e _hd237375237731_)))) - (let ((_tl237377237741_ + (gx#stx-e _hd124617124973_)))) + (let ((_tl124619124983_ (let () (declare (not safe)) - (##cdr _e237379237736_))) - (_hd237378237739_ + (##cdr _e124621124978_))) + (_hd124620124981_ (let () (declare (not safe)) - (##car _e237379237736_)))) + (##car _e124621124978_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd237378237739_)) + (gx#identifier? _hd124620124981_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd237378237739_)) + (gx#stx-eq? '%#quote _hd124620124981_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237377237741_)) - (let ((_e237382237744_ + (gx#stx-pair? _tl124619124983_)) + (let ((_e124624124986_ (let () (declare (not safe)) (gx#stx-e - _tl237377237741_)))) - (let ((_tl237380237749_ + _tl124619124983_)))) + (let ((_tl124622124991_ (let () (declare (not safe)) - (##cdr _e237382237744_))) - (_hd237381237747_ + (##cdr _e124624124986_))) + (_hd124623124989_ (let () (declare (not safe)) - (##car _e237382237744_)))) + (##car _e124624124986_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237380237749_)) + _tl124622124991_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl237374237733_)) - (let ((_e237385237752_ + _tl124616124975_)) + (let ((_e124627124994_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl237374237733_)))) - (let ((_tl237383237757_ - (let () (declare (not safe)) (##cdr _e237385237752_))) - (_hd237384237755_ - (let () (declare (not safe)) (##car _e237385237752_)))) + (gx#stx-e _tl124616124975_)))) + (let ((_tl124625124999_ + (let () (declare (not safe)) (##cdr _e124627124994_))) + (_hd124626124997_ + (let () (declare (not safe)) (##car _e124627124994_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd237384237755_)) - (let ((_e237388237760_ + (gx#stx-pair? _hd124626124997_)) + (let ((_e124630125002_ (let () (declare (not safe)) - (gx#stx-e _hd237384237755_)))) - (let ((_tl237386237765_ + (gx#stx-e _hd124626124997_)))) + (let ((_tl124628125007_ (let () (declare (not safe)) - (##cdr _e237388237760_))) - (_hd237387237763_ + (##cdr _e124630125002_))) + (_hd124629125005_ (let () (declare (not safe)) - (##car _e237388237760_)))) + (##car _e124630125002_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd237387237763_)) + (gx#identifier? _hd124629125005_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd237387237763_)) + (gx#stx-eq? '%#ref _hd124629125005_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237386237765_)) - (let ((_e237391237768_ + (gx#stx-pair? _tl124628125007_)) + (let ((_e124633125010_ (let () (declare (not safe)) - (gx#stx-e _tl237386237765_)))) - (let ((_tl237389237773_ + (gx#stx-e _tl124628125007_)))) + (let ((_tl124631125015_ (let () (declare (not safe)) - (##cdr _e237391237768_))) - (_hd237390237771_ + (##cdr _e124633125010_))) + (_hd124632125013_ (let () (declare (not safe)) - (##car _e237391237768_)))) + (##car _e124633125010_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237389237773_)) + _tl124631125015_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl237383237757_)) - (let ((_e237394237776_ + _tl124625124999_)) + (let ((_e124636125018_ (let () (declare (not safe)) (gx#stx-e - _tl237383237757_)))) - (let ((_tl237392237781_ + _tl124625124999_)))) + (let ((_tl124634125023_ (let () (declare (not safe)) - (##cdr _e237394237776_))) - (_hd237393237779_ + (##cdr _e124636125018_))) + (_hd124635125021_ (let () (declare (not safe)) - (##car _e237394237776_)))) + (##car _e124636125018_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd237393237779_)) - (let ((_e237397237784_ + _hd124635125021_)) + (let ((_e124639125026_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd237393237779_)))) - (let ((_tl237395237789_ + (gx#stx-e _hd124635125021_)))) + (let ((_tl124637125031_ (let () (declare (not safe)) - (##cdr _e237397237784_))) - (_hd237396237787_ + (##cdr _e124639125026_))) + (_hd124638125029_ (let () (declare (not safe)) - (##car _e237397237784_)))) + (##car _e124639125026_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd237396237787_)) + (gx#identifier? _hd124638125029_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd237396237787_)) + (gx#stx-eq? '%#quote _hd124638125029_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237395237789_)) - (let ((_e237400237792_ + (gx#stx-pair? _tl124637125031_)) + (let ((_e124642125034_ (let () (declare (not safe)) - (gx#stx-e _tl237395237789_)))) - (let ((_tl237398237797_ + (gx#stx-e _tl124637125031_)))) + (let ((_tl124640125039_ (let () (declare (not safe)) - (##cdr _e237400237792_))) - (_hd237399237795_ + (##cdr _e124642125034_))) + (_hd124641125037_ (let () (declare (not safe)) - (##car _e237400237792_)))) + (##car _e124642125034_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237398237797_)) + (gx#stx-null? _tl124640125039_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl237392237781_)) - (___match243229243230_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - _e237358237680_ - _hd237357237683_ - _tl237356237685_ - _e237361237688_ - _hd237360237691_ - _tl237359237693_ - _e237364237696_ - _hd237363237699_ - _tl237362237701_ - _e237367237704_ - _hd237366237707_ - _tl237365237709_ - _e237370237712_ - _hd237369237715_ - _tl237368237717_ - _e237373237720_ - _hd237372237723_ - _tl237371237725_ - _e237376237728_ - _hd237375237731_ - _tl237374237733_ - _e237379237736_ - _hd237378237739_ - _tl237377237741_ - _e237382237744_ - _hd237381237747_ - _tl237380237749_ - _e237385237752_ - _hd237384237755_ - _tl237383237757_ - _e237388237760_ - _hd237387237763_ - _tl237386237765_ - _e237391237768_ - _hd237390237771_ - _tl237389237773_ - _e237394237776_ - _hd237393237779_ - _tl237392237781_ - _e237397237784_ - _hd237396237787_ - _tl237395237789_ - _e237400237792_ - _hd237399237795_ - _tl237398237797_) + _tl124634125023_)) + (___match125903125904_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + _e124600124922_ + _hd124599124925_ + _tl124598124927_ + _e124603124930_ + _hd124602124933_ + _tl124601124935_ + _e124606124938_ + _hd124605124941_ + _tl124604124943_ + _e124609124946_ + _hd124608124949_ + _tl124607124951_ + _e124612124954_ + _hd124611124957_ + _tl124610124959_ + _e124615124962_ + _hd124614124965_ + _tl124613124967_ + _e124618124970_ + _hd124617124973_ + _tl124616124975_ + _e124621124978_ + _hd124620124981_ + _tl124619124983_ + _e124624124986_ + _hd124623124989_ + _tl124622124991_ + _e124627124994_ + _hd124626124997_ + _tl124625124999_ + _e124630125002_ + _hd124629125005_ + _tl124628125007_ + _e124633125010_ + _hd124632125013_ + _tl124631125015_ + _e124636125018_ + _hd124635125021_ + _tl124634125023_ + _e124639125026_ + _hd124638125029_ + _tl124637125031_ + _e124642125034_ + _hd124641125037_ + _tl124640125039_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl237353237677_)) - (let ((___splice243100243101_ + _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237353237677_ + _tl124595124919_ '0)))) - (let ((_tl237450237476_ + (let ((_tl124692124718_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '1))) - (_target237448237474_ + (_target124690124716_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) + (_g124588124703_))))) (let () (declare (not safe)) - (_g237346237461_)))) + (_g124588124703_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl237353237677_)) - (let ((___splice243100243101_ + _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237353237677_ + _tl124595124919_ '0)))) - (let ((_tl237450237476_ + (let ((_tl124692124718_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '1))) - (_target237448237474_ + (_target124690124716_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) + (_g124588124703_))))) (let () (declare (not safe)) - (_g237346237461_)))))) + (_g124588124703_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl237353237677_)) - (let ((___splice243100243101_ + (gx#stx-pair/null? _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237353237677_ + _tl124595124919_ '0)))) - (let ((_tl237450237476_ + (let ((_tl124692124718_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '1))) - (_target237448237474_ + (_target124690124716_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) + (_g124588124703_))))) (let () (declare (not safe)) - (_g237346237461_)))) + (_g124588124703_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl237353237677_)) - (let ((___splice243100243101_ + (gx#stx-pair/null? _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237353237677_ + _tl124595124919_ '0)))) - (let ((_tl237450237476_ + (let ((_tl124692124718_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '1))) - (_target237448237474_ + (_target124690124716_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + (gx#stx-null? _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) + (_g124588124703_))))) (let () (declare (not safe)) - (_g237346237461_)))) + (_g124588124703_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl237353237677_)) - (let ((___splice243100243101_ + (gx#stx-pair/null? _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237353237677_ + _tl124595124919_ '0)))) - (let ((_tl237450237476_ + (let ((_tl124692124718_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '1))) - (_target237448237474_ + (_target124690124716_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + (gx#stx-null? _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) + (_g124588124703_))))) (let () (declare (not safe)) - (_g237346237461_)))))) + (_g124588124703_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl237353237677_)) - (let ((___splice243100243101_ + (gx#stx-pair/null? _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl237353237677_ '0)))) - (let ((_tl237450237476_ + (gx#syntax-split-splice _tl124595124919_ '0)))) + (let ((_tl124692124718_ (let () (declare (not safe)) - (##vector-ref ___splice243100243101_ '1))) - (_target237448237474_ + (##vector-ref ___splice125774125775_ '1))) + (_target124690124716_ (let () (declare (not safe)) - (##vector-ref ___splice243100243101_ '0)))) + (##vector-ref ___splice125774125775_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + (gx#stx-null? _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) - (let () (declare (not safe)) (_g237346237461_)))))) + (_g124588124703_))))) + (let () (declare (not safe)) (_g124588124703_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl237383237757_)) - (if (let ((__tmp245098 + _tl124625124999_)) + (if (let ((__tmp127772 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp245098 'bind-method!)) - (let ((_L237628_ _hd237390237771_) - (_L237629_ _hd237381237747_) - (_L237630_ _hd237372237723_) - (_L237631_ _hd237363237699_)) - (___kont243096243097_ - _L237628_ - _L237629_ - _L237630_ - _L237631_)) + (gxc#runtime-identifier=? __tmp127772 'bind-method!)) + (let ((_L124870_ _hd124632125013_) + (_L124871_ _hd124623124989_) + (_L124872_ _hd124614124965_) + (_L124873_ _hd124605124941_)) + (___kont125770125771_ + _L124870_ + _L124871_ + _L124872_ + _L124873_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl237353237677_)) - (let ((___splice243100243101_ + (gx#stx-pair/null? _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl237353237677_ '0)))) - (let ((_tl237450237476_ + (gx#syntax-split-splice _tl124595124919_ '0)))) + (let ((_tl124692124718_ (let () (declare (not safe)) - (##vector-ref ___splice243100243101_ '1))) - (_target237448237474_ + (##vector-ref ___splice125774125775_ '1))) + (_target124690124716_ (let () (declare (not safe)) - (##vector-ref ___splice243100243101_ '0)))) + (##vector-ref ___splice125774125775_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + (gx#stx-null? _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) - (let () (declare (not safe)) (_g237346237461_)))) + (_g124588124703_))))) + (let () (declare (not safe)) (_g124588124703_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl237353237677_)) - (let ((___splice243100243101_ + (gx#stx-pair/null? _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl237353237677_ '0)))) - (let ((_tl237450237476_ + (gx#syntax-split-splice _tl124595124919_ '0)))) + (let ((_tl124692124718_ (let () (declare (not safe)) - (##vector-ref ___splice243100243101_ '1))) - (_target237448237474_ + (##vector-ref ___splice125774125775_ '1))) + (_target124690124716_ (let () (declare (not safe)) - (##vector-ref ___splice243100243101_ '0)))) + (##vector-ref ___splice125774125775_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) - (let () (declare (not safe)) (_g237346237461_))))) - (let () (declare (not safe)) (_g237346237461_))))) + (gx#stx-null? _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) + (let () (declare (not safe)) (_g124588124703_))))) + (let () (declare (not safe)) (_g124588124703_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl237353237677_)) - (let ((___splice243100243101_ + _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237353237677_ + _tl124595124919_ '0)))) - (let ((_tl237450237476_ + (let ((_tl124692124718_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '1))) - (_target237448237474_ + (_target124690124716_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) + (_g124588124703_))))) (let () (declare (not safe)) - (_g237346237461_)))))) + (_g124588124703_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl237353237677_)) - (let ((___splice243100243101_ + _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237353237677_ + _tl124595124919_ '0)))) - (let ((_tl237450237476_ + (let ((_tl124692124718_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '1))) - (_target237448237474_ + (_target124690124716_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) + (_g124588124703_))))) (let () (declare (not safe)) - (_g237346237461_)))) + (_g124588124703_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl237353237677_)) - (let ((___splice243100243101_ + (gx#stx-pair/null? _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237353237677_ + _tl124595124919_ '0)))) - (let ((_tl237450237476_ + (let ((_tl124692124718_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '1))) - (_target237448237474_ + (_target124690124716_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) + (_g124588124703_))))) (let () (declare (not safe)) - (_g237346237461_)))) + (_g124588124703_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl237353237677_)) - (let ((___splice243100243101_ + (gx#stx-pair/null? _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237353237677_ + _tl124595124919_ '0)))) - (let ((_tl237450237476_ + (let ((_tl124692124718_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '1))) - (_target237448237474_ + (_target124690124716_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + (gx#stx-null? _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) + (_g124588124703_))))) (let () (declare (not safe)) - (_g237346237461_)))))) + (_g124588124703_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl237353237677_)) - (let ((___splice243100243101_ + (gx#stx-pair/null? _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237353237677_ + _tl124595124919_ '0)))) - (let ((_tl237450237476_ + (let ((_tl124692124718_ (let () (declare (not safe)) - (##vector-ref ___splice243100243101_ '1))) - (_target237448237474_ + (##vector-ref ___splice125774125775_ '1))) + (_target124690124716_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + (gx#stx-null? _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) - (let () (declare (not safe)) (_g237346237461_)))))) + (_g124588124703_))))) + (let () (declare (not safe)) (_g124588124703_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl237353237677_)) - (let ((___splice243100243101_ + (gx#stx-pair/null? _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl237353237677_ '0)))) - (let ((_tl237450237476_ + (gx#syntax-split-splice _tl124595124919_ '0)))) + (let ((_tl124692124718_ (let () (declare (not safe)) - (##vector-ref ___splice243100243101_ '1))) - (_target237448237474_ + (##vector-ref ___splice125774125775_ '1))) + (_target124690124716_ (let () (declare (not safe)) - (##vector-ref ___splice243100243101_ '0)))) + (##vector-ref ___splice125774125775_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) - (let () (declare (not safe)) (_g237346237461_))))) - (let () (declare (not safe)) (_g237346237461_)))) + (gx#stx-null? _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) + (let () (declare (not safe)) (_g124588124703_))))) + (let () (declare (not safe)) (_g124588124703_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl237353237677_)) - (let ((___splice243100243101_ + _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl237353237677_ '0)))) - (let ((_tl237450237476_ + (gx#syntax-split-splice _tl124595124919_ '0)))) + (let ((_tl124692124718_ (let () (declare (not safe)) - (##vector-ref ___splice243100243101_ '1))) - (_target237448237474_ + (##vector-ref ___splice125774125775_ '1))) + (_target124690124716_ (let () (declare (not safe)) - (##vector-ref ___splice243100243101_ '0)))) + (##vector-ref ___splice125774125775_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) - (let () (declare (not safe)) (_g237346237461_))))) - (let () (declare (not safe)) (_g237346237461_)))))) + (gx#stx-null? _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) + (let () (declare (not safe)) (_g124588124703_))))) + (let () (declare (not safe)) (_g124588124703_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl237353237677_)) - (let ((___splice243100243101_ + _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237353237677_ + _tl124595124919_ '0)))) - (let ((_tl237450237476_ + (let ((_tl124692124718_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '1))) - (_target237448237474_ + (_target124690124716_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) + (_g124588124703_))))) (let () (declare (not safe)) - (_g237346237461_)))) + (_g124588124703_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl237353237677_)) - (let ((___splice243100243101_ + _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237353237677_ + _tl124595124919_ '0)))) - (let ((_tl237450237476_ + (let ((_tl124692124718_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '1))) - (_target237448237474_ + (_target124690124716_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) + (_g124588124703_))))) (let () (declare (not safe)) - (_g237346237461_)))) + (_g124588124703_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl237353237677_)) - (let ((___splice243100243101_ + (gx#stx-pair/null? _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237353237677_ + _tl124595124919_ '0)))) - (let ((_tl237450237476_ + (let ((_tl124692124718_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '1))) - (_target237448237474_ + (_target124690124716_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) + (_g124588124703_))))) (let () (declare (not safe)) - (_g237346237461_)))))) + (_g124588124703_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl237353237677_)) - (let ((___splice243100243101_ + (gx#stx-pair/null? _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237353237677_ + _tl124595124919_ '0)))) - (let ((_tl237450237476_ + (let ((_tl124692124718_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '1))) - (_target237448237474_ + (_target124690124716_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + (gx#stx-null? _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) + (_g124588124703_))))) (let () (declare (not safe)) - (_g237346237461_)))))) + (_g124588124703_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl237353237677_)) - (let ((___splice243100243101_ + (gx#stx-pair/null? _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl237353237677_ '0)))) - (let ((_tl237450237476_ + (gx#syntax-split-splice _tl124595124919_ '0)))) + (let ((_tl124692124718_ (let () (declare (not safe)) - (##vector-ref ___splice243100243101_ '1))) - (_target237448237474_ + (##vector-ref ___splice125774125775_ '1))) + (_target124690124716_ (let () (declare (not safe)) - (##vector-ref ___splice243100243101_ '0)))) + (##vector-ref ___splice125774125775_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + (gx#stx-null? _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) - (let () (declare (not safe)) (_g237346237461_)))) + (_g124588124703_))))) + (let () (declare (not safe)) (_g124588124703_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl237353237677_)) - (let ((___splice243100243101_ + (gx#stx-pair/null? _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl237353237677_ '0)))) - (let ((_tl237450237476_ + (gx#syntax-split-splice _tl124595124919_ '0)))) + (let ((_tl124692124718_ (let () (declare (not safe)) - (##vector-ref ___splice243100243101_ '1))) - (_target237448237474_ + (##vector-ref ___splice125774125775_ '1))) + (_target124690124716_ (let () (declare (not safe)) - (##vector-ref ___splice243100243101_ '0)))) + (##vector-ref ___splice125774125775_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) - (let () (declare (not safe)) (_g237346237461_))))) - (let () (declare (not safe)) (_g237346237461_)))))) + (gx#stx-null? _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) + (let () (declare (not safe)) (_g124588124703_))))) + (let () (declare (not safe)) (_g124588124703_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl237353237677_)) - (let ((___splice243100243101_ + _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237353237677_ + _tl124595124919_ '0)))) - (let ((_tl237450237476_ + (let ((_tl124692124718_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '1))) - (_target237448237474_ + (_target124690124716_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) + (_g124588124703_))))) (let () (declare (not safe)) - (_g237346237461_)))) + (_g124588124703_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl237353237677_)) - (let ((___splice243100243101_ + _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237353237677_ + _tl124595124919_ '0)))) - (let ((_tl237450237476_ + (let ((_tl124692124718_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '1))) - (_target237448237474_ + (_target124690124716_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) + (_g124588124703_))))) (let () (declare (not safe)) - (_g237346237461_)))) + (_g124588124703_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl237353237677_)) - (let ((___splice243100243101_ + _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237353237677_ + _tl124595124919_ '0)))) - (let ((_tl237450237476_ + (let ((_tl124692124718_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '1))) - (_target237448237474_ + (_target124690124716_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) + (_g124588124703_))))) (let () (declare (not safe)) - (_g237346237461_)))))) + (_g124588124703_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl237353237677_)) - (let ((___splice243100243101_ + (gx#stx-pair/null? _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237353237677_ + _tl124595124919_ '0)))) - (let ((_tl237450237476_ + (let ((_tl124692124718_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '1))) - (_target237448237474_ + (_target124690124716_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + (gx#stx-null? _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) + (_g124588124703_))))) (let () (declare (not safe)) - (_g237346237461_)))))) + (_g124588124703_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl237353237677_)) - (let ((___splice243100243101_ + (gx#stx-pair/null? _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237353237677_ + _tl124595124919_ '0)))) - (let ((_tl237450237476_ + (let ((_tl124692124718_ (let () (declare (not safe)) - (##vector-ref ___splice243100243101_ '1))) - (_target237448237474_ + (##vector-ref ___splice125774125775_ '1))) + (_target124690124716_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + (gx#stx-null? _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) - (let () (declare (not safe)) (_g237346237461_)))) + (_g124588124703_))))) + (let () (declare (not safe)) (_g124588124703_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl237353237677_)) - (let ((___splice243100243101_ + (gx#stx-pair/null? _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl237353237677_ '0)))) - (let ((_tl237450237476_ + (gx#syntax-split-splice _tl124595124919_ '0)))) + (let ((_tl124692124718_ (let () (declare (not safe)) - (##vector-ref ___splice243100243101_ '1))) - (_target237448237474_ + (##vector-ref ___splice125774125775_ '1))) + (_target124690124716_ (let () (declare (not safe)) - (##vector-ref ___splice243100243101_ '0)))) + (##vector-ref ___splice125774125775_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + (gx#stx-null? _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) - (let () (declare (not safe)) (_g237346237461_)))))) + (_g124588124703_))))) + (let () (declare (not safe)) (_g124588124703_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl237353237677_)) - (let ((___splice243100243101_ + _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl237353237677_ '0)))) - (let ((_tl237450237476_ + (gx#syntax-split-splice _tl124595124919_ '0)))) + (let ((_tl124692124718_ (let () (declare (not safe)) - (##vector-ref ___splice243100243101_ '1))) - (_target237448237474_ + (##vector-ref ___splice125774125775_ '1))) + (_target124690124716_ (let () (declare (not safe)) - (##vector-ref ___splice243100243101_ '0)))) + (##vector-ref ___splice125774125775_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) - (let () (declare (not safe)) (_g237346237461_))))) - (let () (declare (not safe)) (_g237346237461_)))) + (gx#stx-null? _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) + (let () (declare (not safe)) (_g124588124703_))))) + (let () (declare (not safe)) (_g124588124703_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl237353237677_)) - (let ((___splice243100243101_ + _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237353237677_ + _tl124595124919_ '0)))) - (let ((_tl237450237476_ + (let ((_tl124692124718_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '1))) - (_target237448237474_ + (_target124690124716_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) + (_g124588124703_))))) (let () (declare (not safe)) - (_g237346237461_)))) + (_g124588124703_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl237353237677_)) - (let ((___splice243100243101_ + _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237353237677_ + _tl124595124919_ '0)))) - (let ((_tl237450237476_ + (let ((_tl124692124718_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '1))) - (_target237448237474_ + (_target124690124716_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) + (_g124588124703_))))) (let () (declare (not safe)) - (_g237346237461_)))))) + (_g124588124703_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl237353237677_)) - (let ((___splice243100243101_ + (gx#stx-pair/null? _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237353237677_ + _tl124595124919_ '0)))) - (let ((_tl237450237476_ + (let ((_tl124692124718_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '1))) - (_target237448237474_ + (_target124690124716_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) + (_g124588124703_))))) (let () (declare (not safe)) - (_g237346237461_)))))) + (_g124588124703_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl237353237677_)) - (let ((___splice243100243101_ + (gx#stx-pair/null? _tl124595124919_)) + (let ((___splice125774125775_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl237353237677_ + _tl124595124919_ '0)))) - (let ((_tl237450237476_ + (let ((_tl124692124718_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '1))) - (_target237448237474_ + (_target124690124716_ (let () (declare (not safe)) (##vector-ref - ___splice243100243101_ + ___splice125774125775_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237450237476_)) - (___match243349243350_ - _e237355237672_ - _hd237354237675_ - _tl237353237677_ - ___splice243100243101_ - _target237448237474_ - _tl237450237476_) + (gx#stx-null? _tl124692124718_)) + (___match126023126024_ + _e124597124914_ + _hd124596124917_ + _tl124595124919_ + ___splice125774125775_ + _target124690124716_ + _tl124692124718_) (let () (declare (not safe)) - (_g237346237461_))))) + (_g124588124703_))))) (let () (declare (not safe)) - (_g237346237461_)))))) - (let () (declare (not safe)) (_g237346237461_)))))))) + (_g124588124703_)))))) + (let () (declare (not safe)) (_g124588124703_)))))))) (define gxc#current-compile-type-closure (make-parameter '#f)) (define gxc#basic-expression-type-begin% - (lambda (_stx237282_) - (let* ((___stx243352243353_ _stx237282_) - (_g237285237298_ + (lambda (_stx124524_) + (let* ((___stx126026126027_ _stx124524_) + (_g124527124540_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243352243353_))))) - (let ((___kont243354243355_ - (lambda (_L237326_) - (let () (declare (not safe)) (gxc#compile-e__0 _L237326_)))) - (___kont243356243357_ (lambda () '#f))) + ___stx126026126027_))))) + (let ((___kont126028126029_ + (lambda (_L124568_) + (let () (declare (not safe)) (gxc#compile-e__0 _L124568_)))) + (___kont126030126031_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx243352243353_)) - (let ((_e237290237310_ + (gx#stx-pair? ___stx126026126027_)) + (let ((_e124532124552_ (let () (declare (not safe)) - (gx#stx-e ___stx243352243353_)))) - (let ((_tl237288237315_ - (let () (declare (not safe)) (##cdr _e237290237310_))) - (_hd237289237313_ + (gx#stx-e ___stx126026126027_)))) + (let ((_tl124530124557_ + (let () (declare (not safe)) (##cdr _e124532124552_))) + (_hd124531124555_ (let () (declare (not safe)) - (##car _e237290237310_)))) + (##car _e124532124552_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237288237315_)) - (let ((_e237293237318_ + (gx#stx-pair? _tl124530124557_)) + (let ((_e124535124560_ (let () (declare (not safe)) - (gx#stx-e _tl237288237315_)))) - (let ((_tl237291237323_ + (gx#stx-e _tl124530124557_)))) + (let ((_tl124533124565_ (let () (declare (not safe)) - (##cdr _e237293237318_))) - (_hd237292237321_ + (##cdr _e124535124560_))) + (_hd124534124563_ (let () (declare (not safe)) - (##car _e237293237318_)))) + (##car _e124535124560_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237291237323_)) - (___kont243354243355_ _hd237292237321_) - (___kont243356243357_)))) - (___kont243356243357_)))) - (___kont243356243357_)))))) + (gx#stx-null? _tl124533124565_)) + (___kont126028126029_ _hd124534124563_) + (___kont126030126031_)))) + (___kont126030126031_)))) + (___kont126030126031_)))))) (define gxc#basic-expression-type-annotations - (let () (declare (not safe)) (make-table 'test: eq?))) + (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-begin-annotation% - (lambda (_stx237162_) - (let* ((_g237164237181_ - (lambda (_g237165237178_) + (lambda (_stx124404_) + (let* ((_g124406124423_ + (lambda (_g124407124420_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g237165237178_)))) - (_g237163237279_ - (lambda (_g237165237184_) + _g124407124420_)))) + (_g124405124521_ + (lambda (_g124407124426_) (if (let () (declare (not safe)) - (gx#stx-pair? _g237165237184_)) - (let ((_e237170237186_ + (gx#stx-pair? _g124407124426_)) + (let ((_e124412124428_ (let () (declare (not safe)) - (gx#stx-e _g237165237184_)))) - (let ((_hd237169237189_ + (gx#stx-e _g124407124426_)))) + (let ((_hd124411124431_ (let () (declare (not safe)) - (##car _e237170237186_))) - (_tl237168237191_ + (##car _e124412124428_))) + (_tl124410124433_ (let () (declare (not safe)) - (##cdr _e237170237186_)))) + (##cdr _e124412124428_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237168237191_)) - (let ((_e237173237194_ + (gx#stx-pair? _tl124410124433_)) + (let ((_e124415124436_ (let () (declare (not safe)) - (gx#stx-e _tl237168237191_)))) - (let ((_hd237172237197_ + (gx#stx-e _tl124410124433_)))) + (let ((_hd124414124439_ (let () (declare (not safe)) - (##car _e237173237194_))) - (_tl237171237199_ + (##car _e124415124436_))) + (_tl124413124441_ (let () (declare (not safe)) - (##cdr _e237173237194_)))) + (##cdr _e124415124436_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237171237199_)) - (let ((_e237176237202_ + (gx#stx-pair? _tl124413124441_)) + (let ((_e124418124444_ (let () (declare (not safe)) - (gx#stx-e _tl237171237199_)))) - (let ((_hd237175237205_ + (gx#stx-e _tl124413124441_)))) + (let ((_hd124417124447_ (let () (declare (not safe)) - (##car _e237176237202_))) - (_tl237174237207_ + (##car _e124418124444_))) + (_tl124416124449_ (let () (declare (not safe)) - (##cdr _e237176237202_)))) + (##cdr _e124418124444_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237174237207_)) - ((lambda (_L237210_ _L237211_) - (let* ((___stx243374243375_ - _L237211_) - (_g237227237238_ + _tl124416124449_)) + ((lambda (_L124452_ _L124453_) + (let* ((___stx126048126049_ + _L124453_) + (_g124469124480_ (lambda () (let () (declare @@ -2914,273 +2905,272 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243374243375_))))) - (let ((___kont243376243377_ - (lambda (_L237258_ + ___stx126048126049_))))) + (let ((___kont126050126051_ + (lambda (_L124500_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L237259_) - (let ((_$e237271_ - (let ((__tmp245099 + _L124501_) + (let ((_$e124513_ + (let ((__tmp127773 (let () (declare (not safe)) - (gx#stx-e _L237259_)))) + (gx#stx-e _L124501_)))) (declare (not safe)) - (table-ref + (hash-get gxc#basic-expression-type-annotations - __tmp245099 - '#f)))) - (if _$e237271_ - ((lambda (_type-e237274_) - (_type-e237274_ _stx237162_ _L237211_)) - _$e237271_) + __tmp127773)))) + (if _$e124513_ + ((lambda (_type-e124516_) + (_type-e124516_ _stx124404_ _L124453_)) + _$e124513_) (let () (declare (not safe)) - (gxc#compile-e__0 _L237210_)))))) - (___kont243378243379_ + (gxc#compile-e__0 _L124452_)))))) + (___kont126052126053_ (lambda () (let () (declare (not safe)) - (gxc#compile-e__0 _L237210_))))) + (gxc#compile-e__0 _L124452_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match243385243386_ - (lambda (_e237233237250_ + (let ((___match126059126060_ + (lambda (_e124475124492_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd237232237253_ - _tl237231237255_) - (let ((_L237258_ _tl237231237255_) - (_L237259_ _hd237232237253_)) + _hd124474124495_ + _tl124473124497_) + (let ((_L124500_ _tl124473124497_) + (_L124501_ _hd124474124495_)) (if (let () (declare (not safe)) - (gx#identifier? _L237259_)) - (___kont243376243377_ _L237258_ _L237259_) - (___kont243378243379_)))))) + (gx#identifier? _L124501_)) + (___kont126050126051_ _L124500_ _L124501_) + (___kont126052126053_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx243374243375_)) - (let ((_e237233237250_ + (gx#stx-pair? ___stx126048126049_)) + (let ((_e124475124492_ (let () (declare (not safe)) - (gx#stx-e ___stx243374243375_)))) - (let ((_tl237231237255_ + (gx#stx-e ___stx126048126049_)))) + (let ((_tl124473124497_ (let () (declare (not safe)) - (##cdr _e237233237250_))) - (_hd237232237253_ + (##cdr _e124475124492_))) + (_hd124474124495_ (let () (declare (not safe)) - (##car _e237233237250_)))) - (___match243385243386_ - _e237233237250_ - _hd237232237253_ - _tl237231237255_))) - (___kont243378243379_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd237175237205_ - _hd237172237197_) + (##car _e124475124492_)))) + (___match126059126060_ + _e124475124492_ + _hd124474124495_ + _tl124473124497_))) + (___kont126052126053_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd124417124447_ + _hd124414124439_) (let () (declare (not safe)) - (_g237164237181_ - _g237165237184_))))) + (_g124406124423_ + _g124407124426_))))) (let () (declare (not safe)) - (_g237164237181_ _g237165237184_))))) + (_g124406124423_ _g124407124426_))))) (let () (declare (not safe)) - (_g237164237181_ _g237165237184_))))) + (_g124406124423_ _g124407124426_))))) (let () (declare (not safe)) - (_g237164237181_ _g237165237184_)))))) + (_g124406124423_ _g124407124426_)))))) (declare (not safe)) - (_g237163237279_ _stx237162_)))) + (_g124405124521_ _stx124404_)))) (define gxc#basic-expression-type-annotation-mop.class - (lambda (_stx237006_ _ann237007_) - (let* ((_g237009237046_ - (lambda (_g237010237043_) + (lambda (_stx124248_ _ann124249_) + (let* ((_g124251124288_ + (lambda (_g124252124285_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g237010237043_)))) - (_g237008237159_ - (lambda (_g237010237049_) + _g124252124285_)))) + (_g124250124401_ + (lambda (_g124252124291_) (if (let () (declare (not safe)) - (gx#stx-pair? _g237010237049_)) - (let ((_e237020237051_ + (gx#stx-pair? _g124252124291_)) + (let ((_e124262124293_ (let () (declare (not safe)) - (gx#stx-e _g237010237049_)))) - (let ((_hd237019237054_ + (gx#stx-e _g124252124291_)))) + (let ((_hd124261124296_ (let () (declare (not safe)) - (##car _e237020237051_))) - (_tl237018237056_ + (##car _e124262124293_))) + (_tl124260124298_ (let () (declare (not safe)) - (##cdr _e237020237051_)))) + (##cdr _e124262124293_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237018237056_)) - (let ((_e237023237059_ + (gx#stx-pair? _tl124260124298_)) + (let ((_e124265124301_ (let () (declare (not safe)) - (gx#stx-e _tl237018237056_)))) - (let ((_hd237022237062_ + (gx#stx-e _tl124260124298_)))) + (let ((_hd124264124304_ (let () (declare (not safe)) - (##car _e237023237059_))) - (_tl237021237064_ + (##car _e124265124301_))) + (_tl124263124306_ (let () (declare (not safe)) - (##cdr _e237023237059_)))) + (##cdr _e124265124301_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237021237064_)) - (let ((_e237026237067_ + (gx#stx-pair? _tl124263124306_)) + (let ((_e124268124309_ (let () (declare (not safe)) - (gx#stx-e _tl237021237064_)))) - (let ((_hd237025237070_ + (gx#stx-e _tl124263124306_)))) + (let ((_hd124267124312_ (let () (declare (not safe)) - (##car _e237026237067_))) - (_tl237024237072_ + (##car _e124268124309_))) + (_tl124266124314_ (let () (declare (not safe)) - (##cdr _e237026237067_)))) + (##cdr _e124268124309_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl237024237072_)) - (let ((_e237029237075_ + _tl124266124314_)) + (let ((_e124271124317_ (let () (declare (not safe)) (gx#stx-e - _tl237024237072_)))) - (let ((_hd237028237078_ + _tl124266124314_)))) + (let ((_hd124270124320_ (let () (declare (not safe)) - (##car _e237029237075_))) - (_tl237027237080_ + (##car _e124271124317_))) + (_tl124269124322_ (let () (declare (not safe)) - (##cdr _e237029237075_)))) + (##cdr _e124271124317_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl237027237080_)) - (let ((_e237032237083_ + _tl124269124322_)) + (let ((_e124274124325_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl237027237080_)))) - (let ((_hd237031237086_ - (let () (declare (not safe)) (##car _e237032237083_))) - (_tl237030237088_ - (let () (declare (not safe)) (##cdr _e237032237083_)))) + (gx#stx-e _tl124269124322_)))) + (let ((_hd124273124328_ + (let () (declare (not safe)) (##car _e124274124325_))) + (_tl124272124330_ + (let () (declare (not safe)) (##cdr _e124274124325_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237030237088_)) - (let ((_e237035237091_ + (gx#stx-pair? _tl124272124330_)) + (let ((_e124277124333_ (let () (declare (not safe)) - (gx#stx-e _tl237030237088_)))) - (let ((_hd237034237094_ + (gx#stx-e _tl124272124330_)))) + (let ((_hd124276124336_ (let () (declare (not safe)) - (##car _e237035237091_))) - (_tl237033237096_ + (##car _e124277124333_))) + (_tl124275124338_ (let () (declare (not safe)) - (##cdr _e237035237091_)))) + (##cdr _e124277124333_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237033237096_)) - (let ((_e237038237099_ + (gx#stx-pair? _tl124275124338_)) + (let ((_e124280124341_ (let () (declare (not safe)) - (gx#stx-e _tl237033237096_)))) - (let ((_hd237037237102_ + (gx#stx-e _tl124275124338_)))) + (let ((_hd124279124344_ (let () (declare (not safe)) - (##car _e237038237099_))) - (_tl237036237104_ + (##car _e124280124341_))) + (_tl124278124346_ (let () (declare (not safe)) - (##cdr _e237038237099_)))) + (##cdr _e124280124341_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237036237104_)) - (let ((_e237041237107_ + (gx#stx-pair? _tl124278124346_)) + (let ((_e124283124349_ (let () (declare (not safe)) - (gx#stx-e _tl237036237104_)))) - (let ((_hd237040237110_ + (gx#stx-e _tl124278124346_)))) + (let ((_hd124282124352_ (let () (declare (not safe)) - (##car _e237041237107_))) - (_tl237039237112_ + (##car _e124283124349_))) + (_tl124281124354_ (let () (declare (not safe)) - (##cdr _e237041237107_)))) + (##cdr _e124283124349_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237039237112_)) - ((lambda (_L237115_ - _L237116_ - _L237117_ - _L237118_ - _L237119_ - _L237120_ - _L237121_) - (let ((_type-id237151_ + _tl124281124354_)) + ((lambda (_L124357_ + _L124358_ + _L124359_ + _L124360_ + _L124361_ + _L124362_ + _L124363_) + (let ((_type-id124393_ (let () (declare (not safe)) (gx#stx-e - _L237121_))) - (_super237152_ + _L124363_))) + (_super124394_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _L237120_))) - (_slots237153_ + _L124362_))) + (_slots124395_ (let () (declare (not safe)) (gx#stx-map1 gx#stx-e - _L237119_))) - (_ctor-method237154_ + _L124361_))) + (_ctor-method124396_ (let () (declare (not safe)) (gx#stx-e - _L237118_))) - (_struct?237155_ + _L124360_))) + (_struct?124397_ (let () (declare (not safe)) (gx#stx-e - _L237117_))) - (_final?237156_ + _L124359_))) + (_final?124398_ (let () (declare (not safe)) (gx#stx-e - _L237116_))) - (_metaclass237157_ + _L124358_))) + (_metaclass124399_ (if (let () (declare (not safe)) (gx#stx-e - _L237115_)) + _L124357_)) (let () (declare (not safe)) (gxc#identifier-symbol - _L237115_)) + _L124357_)) '#f))) - (let ((__obj245057 + (let ((__obj127731 (let () (declare (not safe)) @@ -3197,2497 +3187,2497 @@ '#f '#f)))) (gxc#!class:::init! - __obj245057 - _type-id237151_ - _super237152_ - _slots237153_ - _ctor-method237154_ - _struct?237155_ - _final?237156_ - _metaclass237157_) - __obj245057))) - _hd237040237110_ - _hd237037237102_ - _hd237034237094_ - _hd237031237086_ - _hd237028237078_ - _hd237025237070_ - _hd237022237062_) + __obj127731 + _type-id124393_ + _super124394_ + _slots124395_ + _ctor-method124396_ + _struct?124397_ + _final?124398_ + _metaclass124399_) + __obj127731))) + _hd124282124352_ + _hd124279124344_ + _hd124276124336_ + _hd124273124328_ + _hd124270124320_ + _hd124267124312_ + _hd124264124304_) (let () (declare (not safe)) - (_g237009237046_ - _g237010237049_))))) + (_g124251124288_ + _g124252124291_))))) (let () (declare (not safe)) - (_g237009237046_ _g237010237049_))))) + (_g124251124288_ _g124252124291_))))) (let () (declare (not safe)) - (_g237009237046_ _g237010237049_))))) + (_g124251124288_ _g124252124291_))))) (let () (declare (not safe)) - (_g237009237046_ _g237010237049_))))) + (_g124251124288_ _g124252124291_))))) (let () (declare (not safe)) - (_g237009237046_ _g237010237049_))))) + (_g124251124288_ _g124252124291_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g237009237046_ - _g237010237049_))))) + (_g124251124288_ + _g124252124291_))))) (let () (declare (not safe)) - (_g237009237046_ _g237010237049_))))) + (_g124251124288_ _g124252124291_))))) (let () (declare (not safe)) - (_g237009237046_ _g237010237049_))))) + (_g124251124288_ _g124252124291_))))) (let () (declare (not safe)) - (_g237009237046_ _g237010237049_)))))) + (_g124251124288_ _g124252124291_)))))) (declare (not safe)) - (_g237008237159_ _ann237007_)))) + (_g124250124401_ _ann124249_)))) (define gxc#basic-expression-type-annotation-mop.constructor - (lambda (_stx236954_ _ann236955_) - (let* ((_g236957236970_ - (lambda (_g236958236967_) + (lambda (_stx124196_ _ann124197_) + (let* ((_g124199124212_ + (lambda (_g124200124209_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g236958236967_)))) - (_g236956237003_ - (lambda (_g236958236973_) + _g124200124209_)))) + (_g124198124245_ + (lambda (_g124200124215_) (if (let () (declare (not safe)) - (gx#stx-pair? _g236958236973_)) - (let ((_e236962236975_ + (gx#stx-pair? _g124200124215_)) + (let ((_e124204124217_ (let () (declare (not safe)) - (gx#stx-e _g236958236973_)))) - (let ((_hd236961236978_ + (gx#stx-e _g124200124215_)))) + (let ((_hd124203124220_ (let () (declare (not safe)) - (##car _e236962236975_))) - (_tl236960236980_ + (##car _e124204124217_))) + (_tl124202124222_ (let () (declare (not safe)) - (##cdr _e236962236975_)))) + (##cdr _e124204124217_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl236960236980_)) - (let ((_e236965236983_ + (gx#stx-pair? _tl124202124222_)) + (let ((_e124207124225_ (let () (declare (not safe)) - (gx#stx-e _tl236960236980_)))) - (let ((_hd236964236986_ + (gx#stx-e _tl124202124222_)))) + (let ((_hd124206124228_ (let () (declare (not safe)) - (##car _e236965236983_))) - (_tl236963236988_ + (##car _e124207124225_))) + (_tl124205124230_ (let () (declare (not safe)) - (##cdr _e236965236983_)))) + (##cdr _e124207124225_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236963236988_)) - ((lambda (_L236991_) - (let ((__tmp245100 + (gx#stx-null? _tl124205124230_)) + ((lambda (_L124233_) + (let ((__tmp127774 (let () (declare (not safe)) (gxc#identifier-symbol - _L236991_)))) + _L124233_)))) (declare (not safe)) (##structure gxc#!constructor::t - __tmp245100))) - _hd236964236986_) + __tmp127774))) + _hd124206124228_) (let () (declare (not safe)) - (_g236957236970_ _g236958236973_))))) + (_g124199124212_ _g124200124215_))))) (let () (declare (not safe)) - (_g236957236970_ _g236958236973_))))) + (_g124199124212_ _g124200124215_))))) (let () (declare (not safe)) - (_g236957236970_ _g236958236973_)))))) + (_g124199124212_ _g124200124215_)))))) (declare (not safe)) - (_g236956237003_ _ann236955_)))) + (_g124198124245_ _ann124197_)))) (define gxc#basic-expression-type-annotation-mop.predicate - (lambda (_stx236902_ _ann236903_) - (let* ((_g236905236918_ - (lambda (_g236906236915_) + (lambda (_stx124144_ _ann124145_) + (let* ((_g124147124160_ + (lambda (_g124148124157_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g236906236915_)))) - (_g236904236951_ - (lambda (_g236906236921_) + _g124148124157_)))) + (_g124146124193_ + (lambda (_g124148124163_) (if (let () (declare (not safe)) - (gx#stx-pair? _g236906236921_)) - (let ((_e236910236923_ + (gx#stx-pair? _g124148124163_)) + (let ((_e124152124165_ (let () (declare (not safe)) - (gx#stx-e _g236906236921_)))) - (let ((_hd236909236926_ + (gx#stx-e _g124148124163_)))) + (let ((_hd124151124168_ (let () (declare (not safe)) - (##car _e236910236923_))) - (_tl236908236928_ + (##car _e124152124165_))) + (_tl124150124170_ (let () (declare (not safe)) - (##cdr _e236910236923_)))) + (##cdr _e124152124165_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl236908236928_)) - (let ((_e236913236931_ + (gx#stx-pair? _tl124150124170_)) + (let ((_e124155124173_ (let () (declare (not safe)) - (gx#stx-e _tl236908236928_)))) - (let ((_hd236912236934_ + (gx#stx-e _tl124150124170_)))) + (let ((_hd124154124176_ (let () (declare (not safe)) - (##car _e236913236931_))) - (_tl236911236936_ + (##car _e124155124173_))) + (_tl124153124178_ (let () (declare (not safe)) - (##cdr _e236913236931_)))) + (##cdr _e124155124173_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236911236936_)) - ((lambda (_L236939_) - (let ((__tmp245101 + (gx#stx-null? _tl124153124178_)) + ((lambda (_L124181_) + (let ((__tmp127775 (let () (declare (not safe)) (gxc#identifier-symbol - _L236939_)))) + _L124181_)))) (declare (not safe)) (##structure gxc#!predicate::t - __tmp245101))) - _hd236912236934_) + __tmp127775))) + _hd124154124176_) (let () (declare (not safe)) - (_g236905236918_ _g236906236921_))))) + (_g124147124160_ _g124148124163_))))) (let () (declare (not safe)) - (_g236905236918_ _g236906236921_))))) + (_g124147124160_ _g124148124163_))))) (let () (declare (not safe)) - (_g236905236918_ _g236906236921_)))))) + (_g124147124160_ _g124148124163_)))))) (declare (not safe)) - (_g236904236951_ _ann236903_)))) + (_g124146124193_ _ann124145_)))) (define gxc#basic-expression-type-annotation-mop.accessor - (lambda (_stx236818_ _ann236819_) - (let* ((_g236821236842_ - (lambda (_g236822236839_) + (lambda (_stx124060_ _ann124061_) + (let* ((_g124063124084_ + (lambda (_g124064124081_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g236822236839_)))) - (_g236820236899_ - (lambda (_g236822236845_) + _g124064124081_)))) + (_g124062124141_ + (lambda (_g124064124087_) (if (let () (declare (not safe)) - (gx#stx-pair? _g236822236845_)) - (let ((_e236828236847_ + (gx#stx-pair? _g124064124087_)) + (let ((_e124070124089_ (let () (declare (not safe)) - (gx#stx-e _g236822236845_)))) - (let ((_hd236827236850_ + (gx#stx-e _g124064124087_)))) + (let ((_hd124069124092_ (let () (declare (not safe)) - (##car _e236828236847_))) - (_tl236826236852_ + (##car _e124070124089_))) + (_tl124068124094_ (let () (declare (not safe)) - (##cdr _e236828236847_)))) + (##cdr _e124070124089_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl236826236852_)) - (let ((_e236831236855_ + (gx#stx-pair? _tl124068124094_)) + (let ((_e124073124097_ (let () (declare (not safe)) - (gx#stx-e _tl236826236852_)))) - (let ((_hd236830236858_ + (gx#stx-e _tl124068124094_)))) + (let ((_hd124072124100_ (let () (declare (not safe)) - (##car _e236831236855_))) - (_tl236829236860_ + (##car _e124073124097_))) + (_tl124071124102_ (let () (declare (not safe)) - (##cdr _e236831236855_)))) + (##cdr _e124073124097_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl236829236860_)) - (let ((_e236834236863_ + (gx#stx-pair? _tl124071124102_)) + (let ((_e124076124105_ (let () (declare (not safe)) - (gx#stx-e _tl236829236860_)))) - (let ((_hd236833236866_ + (gx#stx-e _tl124071124102_)))) + (let ((_hd124075124108_ (let () (declare (not safe)) - (##car _e236834236863_))) - (_tl236832236868_ + (##car _e124076124105_))) + (_tl124074124110_ (let () (declare (not safe)) - (##cdr _e236834236863_)))) + (##cdr _e124076124105_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl236832236868_)) - (let ((_e236837236871_ + _tl124074124110_)) + (let ((_e124079124113_ (let () (declare (not safe)) (gx#stx-e - _tl236832236868_)))) - (let ((_hd236836236874_ + _tl124074124110_)))) + (let ((_hd124078124116_ (let () (declare (not safe)) - (##car _e236837236871_))) - (_tl236835236876_ + (##car _e124079124113_))) + (_tl124077124118_ (let () (declare (not safe)) - (##cdr _e236837236871_)))) + (##cdr _e124079124113_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236835236876_)) - ((lambda (_L236879_ - _L236880_ - _L236881_) - (let ((__tmp245104 + _tl124077124118_)) + ((lambda (_L124121_ + _L124122_ + _L124123_) + (let ((__tmp127778 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _L236881_))) - (__tmp245103 - (let () (declare (not safe)) (gx#stx-e _L236880_))) - (__tmp245102 - (let () (declare (not safe)) (gx#stx-e _L236879_)))) + (gxc#identifier-symbol _L124123_))) + (__tmp127777 + (let () (declare (not safe)) (gx#stx-e _L124122_))) + (__tmp127776 + (let () (declare (not safe)) (gx#stx-e _L124121_)))) (declare (not safe)) (##structure gxc#!accessor::t - __tmp245104 - __tmp245103 - __tmp245102))) - _hd236836236874_ - _hd236833236866_ - _hd236830236858_) + __tmp127778 + __tmp127777 + __tmp127776))) + _hd124078124116_ + _hd124075124108_ + _hd124072124100_) (let () (declare (not safe)) - (_g236821236842_ _g236822236845_))))) + (_g124063124084_ _g124064124087_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g236821236842_ - _g236822236845_))))) + (_g124063124084_ + _g124064124087_))))) (let () (declare (not safe)) - (_g236821236842_ _g236822236845_))))) + (_g124063124084_ _g124064124087_))))) (let () (declare (not safe)) - (_g236821236842_ _g236822236845_))))) + (_g124063124084_ _g124064124087_))))) (let () (declare (not safe)) - (_g236821236842_ _g236822236845_)))))) + (_g124063124084_ _g124064124087_)))))) (declare (not safe)) - (_g236820236899_ _ann236819_)))) + (_g124062124141_ _ann124061_)))) (define gxc#basic-expression-type-annotation-mop.mutator - (lambda (_stx236734_ _ann236735_) - (let* ((_g236737236758_ - (lambda (_g236738236755_) + (lambda (_stx123976_ _ann123977_) + (let* ((_g123979124000_ + (lambda (_g123980123997_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g236738236755_)))) - (_g236736236815_ - (lambda (_g236738236761_) + _g123980123997_)))) + (_g123978124057_ + (lambda (_g123980124003_) (if (let () (declare (not safe)) - (gx#stx-pair? _g236738236761_)) - (let ((_e236744236763_ + (gx#stx-pair? _g123980124003_)) + (let ((_e123986124005_ (let () (declare (not safe)) - (gx#stx-e _g236738236761_)))) - (let ((_hd236743236766_ + (gx#stx-e _g123980124003_)))) + (let ((_hd123985124008_ (let () (declare (not safe)) - (##car _e236744236763_))) - (_tl236742236768_ + (##car _e123986124005_))) + (_tl123984124010_ (let () (declare (not safe)) - (##cdr _e236744236763_)))) + (##cdr _e123986124005_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl236742236768_)) - (let ((_e236747236771_ + (gx#stx-pair? _tl123984124010_)) + (let ((_e123989124013_ (let () (declare (not safe)) - (gx#stx-e _tl236742236768_)))) - (let ((_hd236746236774_ + (gx#stx-e _tl123984124010_)))) + (let ((_hd123988124016_ (let () (declare (not safe)) - (##car _e236747236771_))) - (_tl236745236776_ + (##car _e123989124013_))) + (_tl123987124018_ (let () (declare (not safe)) - (##cdr _e236747236771_)))) + (##cdr _e123989124013_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl236745236776_)) - (let ((_e236750236779_ + (gx#stx-pair? _tl123987124018_)) + (let ((_e123992124021_ (let () (declare (not safe)) - (gx#stx-e _tl236745236776_)))) - (let ((_hd236749236782_ + (gx#stx-e _tl123987124018_)))) + (let ((_hd123991124024_ (let () (declare (not safe)) - (##car _e236750236779_))) - (_tl236748236784_ + (##car _e123992124021_))) + (_tl123990124026_ (let () (declare (not safe)) - (##cdr _e236750236779_)))) + (##cdr _e123992124021_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl236748236784_)) - (let ((_e236753236787_ + _tl123990124026_)) + (let ((_e123995124029_ (let () (declare (not safe)) (gx#stx-e - _tl236748236784_)))) - (let ((_hd236752236790_ + _tl123990124026_)))) + (let ((_hd123994124032_ (let () (declare (not safe)) - (##car _e236753236787_))) - (_tl236751236792_ + (##car _e123995124029_))) + (_tl123993124034_ (let () (declare (not safe)) - (##cdr _e236753236787_)))) + (##cdr _e123995124029_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236751236792_)) - ((lambda (_L236795_ - _L236796_ - _L236797_) - (let ((__tmp245107 + _tl123993124034_)) + ((lambda (_L124037_ + _L124038_ + _L124039_) + (let ((__tmp127781 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _L236797_))) - (__tmp245106 - (let () (declare (not safe)) (gx#stx-e _L236796_))) - (__tmp245105 - (let () (declare (not safe)) (gx#stx-e _L236795_)))) + (gxc#identifier-symbol _L124039_))) + (__tmp127780 + (let () (declare (not safe)) (gx#stx-e _L124038_))) + (__tmp127779 + (let () (declare (not safe)) (gx#stx-e _L124037_)))) (declare (not safe)) (##structure gxc#!mutator::t - __tmp245107 - __tmp245106 - __tmp245105))) - _hd236752236790_ - _hd236749236782_ - _hd236746236774_) + __tmp127781 + __tmp127780 + __tmp127779))) + _hd123994124032_ + _hd123991124024_ + _hd123988124016_) (let () (declare (not safe)) - (_g236737236758_ _g236738236761_))))) + (_g123979124000_ _g123980124003_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g236737236758_ - _g236738236761_))))) + (_g123979124000_ + _g123980124003_))))) (let () (declare (not safe)) - (_g236737236758_ _g236738236761_))))) + (_g123979124000_ _g123980124003_))))) (let () (declare (not safe)) - (_g236737236758_ _g236738236761_))))) + (_g123979124000_ _g123980124003_))))) (let () (declare (not safe)) - (_g236737236758_ _g236738236761_)))))) + (_g123979124000_ _g123980124003_)))))) (declare (not safe)) - (_g236736236815_ _ann236735_)))) + (_g123978124057_ _ann123977_)))) (let () (declare (not safe)) - (table-set! + (hash-put! gxc#basic-expression-type-annotations '@mop.class gxc#basic-expression-type-annotation-mop.class)) (let () (declare (not safe)) - (table-set! + (hash-put! gxc#basic-expression-type-annotations '@mop.constructor gxc#basic-expression-type-annotation-mop.constructor)) (let () (declare (not safe)) - (table-set! + (hash-put! gxc#basic-expression-type-annotations '@mop.predicate gxc#basic-expression-type-annotation-mop.predicate)) (let () (declare (not safe)) - (table-set! + (hash-put! gxc#basic-expression-type-annotations '@mop.accessor gxc#basic-expression-type-annotation-mop.accessor)) (let () (declare (not safe)) - (table-set! + (hash-put! gxc#basic-expression-type-annotations '@mop.mutator gxc#basic-expression-type-annotation-mop.mutator)) (define gxc#basic-expression-type-lambda% - (lambda (_stx235854_) - (let* ((___stx243388243389_ _stx235854_) - (_g235860236056_ + (lambda (_stx123096_) + (let* ((___stx126062126063_ _stx123096_) + (_g123102123298_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243388243389_))))) - (let ((___kont243390243391_ - (lambda (_L236722_) - (let ((__obj245058 + ___stx126062126063_))))) + (let ((___kont126064126065_ + (lambda (_L123964_) + (let ((__obj127732 (let () (declare (not safe)) (##structure gxc#!lambda::t '#f '#f '#f '#f '#f)))) (gxc#!lambda:::init! - __obj245058 + __obj127732 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L236722_)) + (gxc#lambda-form-arity _L123964_)) '#f) - __obj245058))) - (___kont243392243393_ - (lambda (_L236649_ - _L236650_ - _L236651_ - _L236652_ - _L236653_ - _L236654_) - (let* ((_tab236704_ - (let () (declare (not safe)) (gx#stx-e _L236651_))) - (_keys236706_ - (if _tab236704_ - (let ((__tmp245108 (vector->list _tab236704_))) + __obj127732))) + (___kont126066126067_ + (lambda (_L123891_ + _L123892_ + _L123893_ + _L123894_ + _L123895_ + _L123896_) + (let* ((_tab123946_ + (let () (declare (not safe)) (gx#stx-e _L123893_))) + (_keys123948_ + (if _tab123946_ + (let ((__tmp127782 (vector->list _tab123946_))) (declare (not safe)) - (filter values __tmp245108)) + (filter values __tmp127782)) '#f))) - (let ((__tmp245109 + (let ((__tmp127783 (let () (declare (not safe)) - (gxc#identifier-symbol _L236650_)))) + (gxc#identifier-symbol _L123892_)))) (declare (not safe)) (##structure gxc#!kw-lambda::t 'kw-lambda - _keys236706_ - __tmp245109))))) - (___kont243394243395_ - (lambda (_L236382_ - _L236383_ - _L236384_ - _L236385_ - _L236386_ - _L236387_ - _L236388_ - _L236389_ - _L236390_ - _L236391_) - (let ((__tmp245111 + _keys123948_ + __tmp127783))))) + (___kont126068126069_ + (lambda (_L123624_ + _L123625_ + _L123626_ + _L123627_ + _L123628_ + _L123629_ + _L123630_ + _L123631_ + _L123632_ + _L123633_) + (let ((__tmp127785 (map gx#stx-e - (let ((__tmp245112 - (lambda (_g236484236487_ _g236485236489_) + (let ((__tmp127786 + (lambda (_g123726123729_ _g123727123731_) (let () (declare (not safe)) - (cons _g236484236487_ - _g236485236489_))))) + (cons _g123726123729_ + _g123727123731_))))) (declare (not safe)) - (foldr1 __tmp245112 '() _L236384_)))) - (__tmp245110 + (foldr1 __tmp127786 '() _L123626_)))) + (__tmp127784 (let () (declare (not safe)) - (gxc#identifier-symbol _L236388_)))) + (gxc#identifier-symbol _L123630_)))) (declare (not safe)) (##structure gxc#!kw-lambda-primary::t 'kw-lambda-dispatch - __tmp245111 - __tmp245110)))) - (___kont243398243399_ - (lambda (_L236092_) - (let ((__obj245059 + __tmp127785 + __tmp127784)))) + (___kont126072126073_ + (lambda (_L123334_) + (let ((__obj127733 (let () (declare (not safe)) (##structure gxc#!lambda::t '#f '#f '#f '#f '#f)))) (gxc#!lambda:::init! - __obj245059 + __obj127733 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L236092_)) + (gxc#lambda-form-arity _L123334_)) (let () (declare (not safe)) - (gxc#dispatch-lambda-form-delegate _L236092_))) - __obj245059))) - (___kont243400243401_ - (lambda (_L236069_) - (let ((__obj245060 + (gxc#dispatch-lambda-form-delegate _L123334_))) + __obj127733))) + (___kont126074126075_ + (lambda (_L123311_) + (let ((__obj127734 (let () (declare (not safe)) (##structure gxc#!lambda::t '#f '#f '#f '#f '#f)))) (gxc#!lambda:::init! - __obj245060 + __obj127734 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L236069_)) + (gxc#lambda-form-arity _L123311_)) '#f) - __obj245060)))) - (let* ((___match243707243708_ - (lambda (_e236047236084_ _hd236046236087_ _tl236045236089_) - (let ((_L236092_ _tl236045236089_)) + __obj127734)))) + (let* ((___match126381126382_ + (lambda (_e123289123326_ _hd123288123329_ _tl123287123331_) + (let ((_L123334_ _tl123287123331_)) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _L236092_)) - (___kont243398243399_ _L236092_) - (___kont243400243401_ _tl236045236089_))))) - (___match243701243702_ - (lambda (_e235941236106_ - _hd235940236109_ - _tl235939236111_ - _e235944236114_ - _hd235943236117_ - _tl235942236119_ - _e235947236122_ - _hd235946236125_ - _tl235945236127_ - _e235950236130_ - _hd235949236133_ - _tl235948236135_ - _e235953236138_ - _hd235952236141_ - _tl235951236143_ - _e235956236146_ - _hd235955236149_ - _tl235954236151_ - _e235959236154_ - _hd235958236157_ - _tl235957236159_ - _e235962236162_ - _hd235961236165_ - _tl235960236167_ - _e235965236170_ - _hd235964236173_ - _tl235963236175_ - _e235968236178_ - _hd235967236181_ - _tl235966236183_ - _e235971236186_ - _hd235970236189_ - _tl235969236191_ - _e235974236194_ - _hd235973236197_ - _tl235972236199_ - _e235977236202_ - _hd235976236205_ - _tl235975236207_ - _e235980236210_ - _hd235979236213_ - _tl235978236215_ - ___splice243396243397_ - _target235981236218_ - _tl235983236220_ - _e235998236223_ - _hd235997236226_ - _tl235996236228_ - _e236001236231_ - _hd236000236234_ - _tl235999236236_ - _e236004236239_ - _hd236003236242_ - _tl236002236244_) - (letrec ((_loop235984236247_ - (lambda (_hd235982236250_ - _-absent-value235988236252_ - _key235989236254_ - _-xkwvar235990236256_ - _-hash-ref235991236258_) + (gxc#dispatch-lambda-form? _L123334_)) + (___kont126072126073_ _L123334_) + (___kont126074126075_ _tl123287123331_))))) + (___match126375126376_ + (lambda (_e123183123348_ + _hd123182123351_ + _tl123181123353_ + _e123186123356_ + _hd123185123359_ + _tl123184123361_ + _e123189123364_ + _hd123188123367_ + _tl123187123369_ + _e123192123372_ + _hd123191123375_ + _tl123190123377_ + _e123195123380_ + _hd123194123383_ + _tl123193123385_ + _e123198123388_ + _hd123197123391_ + _tl123196123393_ + _e123201123396_ + _hd123200123399_ + _tl123199123401_ + _e123204123404_ + _hd123203123407_ + _tl123202123409_ + _e123207123412_ + _hd123206123415_ + _tl123205123417_ + _e123210123420_ + _hd123209123423_ + _tl123208123425_ + _e123213123428_ + _hd123212123431_ + _tl123211123433_ + _e123216123436_ + _hd123215123439_ + _tl123214123441_ + _e123219123444_ + _hd123218123447_ + _tl123217123449_ + _e123222123452_ + _hd123221123455_ + _tl123220123457_ + ___splice126070126071_ + _target123223123460_ + _tl123225123462_ + _e123240123465_ + _hd123239123468_ + _tl123238123470_ + _e123243123473_ + _hd123242123476_ + _tl123241123478_ + _e123246123481_ + _hd123245123484_ + _tl123244123486_) + (letrec ((_loop123226123489_ + (lambda (_hd123224123492_ + _-absent-value123230123494_ + _key123231123496_ + _-xkwvar123232123498_ + _-hash-ref123233123500_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd235982236250_)) - (let ((_e235985236261_ + (gx#stx-pair? _hd123224123492_)) + (let ((_e123227123503_ (let () (declare (not safe)) - (gx#stx-e _hd235982236250_)))) - (let ((_lp-tl235987236266_ + (gx#stx-e _hd123224123492_)))) + (let ((_lp-tl123229123508_ (let () (declare (not safe)) - (##cdr _e235985236261_))) - (_lp-hd235986236264_ + (##cdr _e123227123503_))) + (_lp-hd123228123506_ (let () (declare (not safe)) - (##car _e235985236261_)))) + (##car _e123227123503_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd235986236264_)) - (let ((_e236007236269_ + _lp-hd123228123506_)) + (let ((_e123249123511_ (let () (declare (not safe)) (gx#stx-e - _lp-hd235986236264_)))) - (let ((_tl236005236274_ + _lp-hd123228123506_)))) + (let ((_tl123247123516_ (let () (declare (not safe)) - (##cdr _e236007236269_))) - (_hd236006236272_ + (##cdr _e123249123511_))) + (_hd123248123514_ (let () (declare (not safe)) - (##car _e236007236269_)))) + (##car _e123249123511_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd236006236272_)) + _hd123248123514_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd236006236272_)) + _hd123248123514_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl236005236274_)) - (let ((_e236010236277_ + (gx#stx-pair? _tl123247123516_)) + (let ((_e123252123519_ (let () (declare (not safe)) - (gx#stx-e _tl236005236274_)))) - (let ((_tl236008236282_ + (gx#stx-e _tl123247123516_)))) + (let ((_tl123250123524_ (let () (declare (not safe)) - (##cdr _e236010236277_))) - (_hd236009236280_ + (##cdr _e123252123519_))) + (_hd123251123522_ (let () (declare (not safe)) - (##car _e236010236277_)))) + (##car _e123252123519_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd236009236280_)) - (let ((_e236013236285_ + (gx#stx-pair? _hd123251123522_)) + (let ((_e123255123527_ (let () (declare (not safe)) - (gx#stx-e _hd236009236280_)))) - (let ((_tl236011236290_ + (gx#stx-e _hd123251123522_)))) + (let ((_tl123253123532_ (let () (declare (not safe)) - (##cdr _e236013236285_))) - (_hd236012236288_ + (##cdr _e123255123527_))) + (_hd123254123530_ (let () (declare (not safe)) - (##car _e236013236285_)))) + (##car _e123255123527_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd236012236288_)) + (gx#identifier? _hd123254123530_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd236012236288_)) + _hd123254123530_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl236011236290_)) - (let ((_e236016236293_ + _tl123253123532_)) + (let ((_e123258123535_ (let () (declare (not safe)) (gx#stx-e - _tl236011236290_)))) - (let ((_tl236014236298_ + _tl123253123532_)))) + (let ((_tl123256123540_ (let () (declare (not safe)) - (##cdr _e236016236293_))) - (_hd236015236296_ + (##cdr _e123258123535_))) + (_hd123257123538_ (let () (declare (not safe)) - (##car _e236016236293_)))) + (##car _e123258123535_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236014236298_)) + _tl123256123540_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl236008236282_)) - (let ((_e236019236301_ + _tl123250123524_)) + (let ((_e123261123543_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl236008236282_)))) - (let ((_tl236017236306_ + (gx#stx-e _tl123250123524_)))) + (let ((_tl123259123548_ (let () (declare (not safe)) - (##cdr _e236019236301_))) - (_hd236018236304_ + (##cdr _e123261123543_))) + (_hd123260123546_ (let () (declare (not safe)) - (##car _e236019236301_)))) + (##car _e123261123543_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd236018236304_)) - (let ((_e236022236309_ + (gx#stx-pair? _hd123260123546_)) + (let ((_e123264123551_ (let () (declare (not safe)) - (gx#stx-e _hd236018236304_)))) - (let ((_tl236020236314_ + (gx#stx-e _hd123260123546_)))) + (let ((_tl123262123556_ (let () (declare (not safe)) - (##cdr _e236022236309_))) - (_hd236021236312_ + (##cdr _e123264123551_))) + (_hd123263123554_ (let () (declare (not safe)) - (##car _e236022236309_)))) + (##car _e123264123551_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd236021236312_)) + (gx#identifier? _hd123263123554_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd236021236312_)) + (gx#stx-eq? '%#ref _hd123263123554_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl236020236314_)) - (let ((_e236025236317_ + (gx#stx-pair? _tl123262123556_)) + (let ((_e123267123559_ (let () (declare (not safe)) (gx#stx-e - _tl236020236314_)))) - (let ((_tl236023236322_ + _tl123262123556_)))) + (let ((_tl123265123564_ (let () (declare (not safe)) - (##cdr _e236025236317_))) - (_hd236024236320_ + (##cdr _e123267123559_))) + (_hd123266123562_ (let () (declare (not safe)) - (##car _e236025236317_)))) + (##car _e123267123559_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236023236322_)) + _tl123265123564_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl236017236306_)) - (let ((_e236028236325_ + _tl123259123548_)) + (let ((_e123270123567_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl236017236306_)))) - (let ((_tl236026236330_ - (let () (declare (not safe)) (##cdr _e236028236325_))) - (_hd236027236328_ - (let () (declare (not safe)) (##car _e236028236325_)))) + (gx#stx-e _tl123259123548_)))) + (let ((_tl123268123572_ + (let () (declare (not safe)) (##cdr _e123270123567_))) + (_hd123269123570_ + (let () (declare (not safe)) (##car _e123270123567_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd236027236328_)) - (let ((_e236031236333_ + (gx#stx-pair? _hd123269123570_)) + (let ((_e123273123575_ (let () (declare (not safe)) - (gx#stx-e _hd236027236328_)))) - (let ((_tl236029236338_ + (gx#stx-e _hd123269123570_)))) + (let ((_tl123271123580_ (let () (declare (not safe)) - (##cdr _e236031236333_))) - (_hd236030236336_ + (##cdr _e123273123575_))) + (_hd123272123578_ (let () (declare (not safe)) - (##car _e236031236333_)))) + (##car _e123273123575_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd236030236336_)) + (gx#identifier? _hd123272123578_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd236030236336_)) + (gx#stx-eq? '%#quote _hd123272123578_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl236029236338_)) - (let ((_e236034236341_ + (gx#stx-pair? _tl123271123580_)) + (let ((_e123276123583_ (let () (declare (not safe)) - (gx#stx-e _tl236029236338_)))) - (let ((_tl236032236346_ + (gx#stx-e _tl123271123580_)))) + (let ((_tl123274123588_ (let () (declare (not safe)) - (##cdr _e236034236341_))) - (_hd236033236344_ + (##cdr _e123276123583_))) + (_hd123275123586_ (let () (declare (not safe)) - (##car _e236034236341_)))) + (##car _e123276123583_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236032236346_)) + _tl123274123588_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl236026236330_)) - (let ((_e236037236349_ + _tl123268123572_)) + (let ((_e123279123591_ (let () (declare (not safe)) (gx#stx-e - _tl236026236330_)))) - (let ((_tl236035236354_ + _tl123268123572_)))) + (let ((_tl123277123596_ (let () (declare (not safe)) - (##cdr _e236037236349_))) - (_hd236036236352_ + (##cdr _e123279123591_))) + (_hd123278123594_ (let () (declare (not safe)) - (##car _e236037236349_)))) + (##car _e123279123591_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd236036236352_)) - (let ((_e236040236357_ + _hd123278123594_)) + (let ((_e123282123599_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd236036236352_)))) - (let ((_tl236038236362_ + (gx#stx-e _hd123278123594_)))) + (let ((_tl123280123604_ (let () (declare (not safe)) - (##cdr _e236040236357_))) - (_hd236039236360_ + (##cdr _e123282123599_))) + (_hd123281123602_ (let () (declare (not safe)) - (##car _e236040236357_)))) + (##car _e123282123599_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd236039236360_)) + (gx#identifier? _hd123281123602_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd236039236360_)) + (gx#stx-eq? '%#ref _hd123281123602_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl236038236362_)) - (let ((_e236043236365_ + (gx#stx-pair? _tl123280123604_)) + (let ((_e123285123607_ (let () (declare (not safe)) - (gx#stx-e _tl236038236362_)))) - (let ((_tl236041236370_ + (gx#stx-e _tl123280123604_)))) + (let ((_tl123283123612_ (let () (declare (not safe)) - (##cdr _e236043236365_))) - (_hd236042236368_ + (##cdr _e123285123607_))) + (_hd123284123610_ (let () (declare (not safe)) - (##car _e236043236365_)))) + (##car _e123285123607_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236041236370_)) + (gx#stx-null? _tl123283123612_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl236035236354_)) - (let ((__tmp245127 + _tl123277123596_)) + (let ((__tmp127801 (let () (declare (not safe)) - (cons _hd236042236368_ - _-absent-value235988236252_))) - (__tmp245126 + (cons _hd123284123610_ + _-absent-value123230123494_))) + (__tmp127800 (let () (declare (not safe)) - (cons _hd236033236344_ - _key235989236254_))) - (__tmp245125 + (cons _hd123275123586_ + _key123231123496_))) + (__tmp127799 (let () (declare (not safe)) - (cons _hd236024236320_ - _-xkwvar235990236256_))) - (__tmp245124 + (cons _hd123266123562_ + _-xkwvar123232123498_))) + (__tmp127798 (let () (declare (not safe)) - (cons _hd236015236296_ - _-hash-ref235991236258_)))) + (cons _hd123257123538_ + _-hash-ref123233123500_)))) (declare (not safe)) - (_loop235984236247_ - _lp-tl235987236266_ - __tmp245127 - __tmp245126 - __tmp245125 - __tmp245124)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (let ((_-hash-ref235995236379_ - (reverse _-hash-ref235991236258_)) - (_-xkwvar235994236377_ - (reverse _-xkwvar235990236256_)) - (_key235993236375_ - (reverse _key235989236254_)) - (_-absent-value235992236373_ - (reverse _-absent-value235988236252_))) + (_loop123226123489_ + _lp-tl123229123508_ + __tmp127801 + __tmp127800 + __tmp127799 + __tmp127798)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (let ((_-hash-ref123237123621_ + (reverse _-hash-ref123233123500_)) + (_-xkwvar123236123619_ + (reverse _-xkwvar123232123498_)) + (_key123235123617_ + (reverse _key123231123496_)) + (_-absent-value123234123615_ + (reverse _-absent-value123230123494_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl235948236135_)) - (let ((_L236382_ _hd236003236242_) - (_L236383_ - _-absent-value235992236373_) - (_L236384_ _key235993236375_) - (_L236385_ - _-xkwvar235994236377_) - (_L236386_ - _-hash-ref235995236379_) - (_L236387_ _hd235979236213_) - (_L236388_ _hd235970236189_) - (_L236389_ _hd235961236165_) - (_L236390_ _tl235945236127_) - (_L236391_ _hd235946236125_)) + (gx#stx-null? _tl123190123377_)) + (let ((_L123624_ _hd123245123484_) + (_L123625_ + _-absent-value123234123615_) + (_L123626_ _key123235123617_) + (_L123627_ + _-xkwvar123236123619_) + (_L123628_ + _-hash-ref123237123621_) + (_L123629_ _hd123221123455_) + (_L123630_ _hd123212123431_) + (_L123631_ _hd123203123407_) + (_L123632_ _tl123187123369_) + (_L123633_ _hd123188123367_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L236391_)) + _L123633_)) (let () (declare (not safe)) (gx#identifier? - _L236390_)) + _L123632_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L236389_ + _L123631_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _L236391_ - _L236387_)) - (let ((__tmp245122 - (let ((__tmp245123 + _L123633_ + _L123629_)) + (let ((__tmp127796 + (let ((__tmp127797 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g236444236447_ _g236445236449_) + (lambda (_g123686123689_ _g123687123691_) (let () (declare (not safe)) - (cons _g236444236447_ _g236445236449_))))) + (cons _g123686123689_ _g123687123691_))))) (declare (not safe)) - (foldr1 __tmp245123 '() _L236384_)))) + (foldr1 __tmp127797 '() _L123626_)))) (declare (not safe)) - (andmap1 gx#stx-keyword? __tmp245122)) - (let ((__tmp245121 - (lambda (_g236451236453_) + (andmap1 gx#stx-keyword? __tmp127796)) + (let ((__tmp127795 + (lambda (_g123693123695_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _g236451236453_ + _g123693123695_ 'hash-ref)))) - (__tmp245119 - (let ((__tmp245120 - (lambda (_g236455236458_ _g236456236460_) + (__tmp127793 + (let ((__tmp127794 + (lambda (_g123697123700_ _g123698123702_) (let () (declare (not safe)) - (cons _g236455236458_ _g236456236460_))))) + (cons _g123697123700_ _g123698123702_))))) (declare (not safe)) - (foldr1 __tmp245120 '() _L236386_)))) + (foldr1 __tmp127794 '() _L123628_)))) (declare (not safe)) - (andmap1 __tmp245121 __tmp245119)) - (let ((__tmp245118 - (lambda (_g236462236464_) + (andmap1 __tmp127795 __tmp127793)) + (let ((__tmp127792 + (lambda (_g123704123706_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _g236462236464_ + _g123704123706_ 'absent-value)))) - (__tmp245116 - (let ((__tmp245117 - (lambda (_g236466236469_ _g236467236471_) + (__tmp127790 + (let ((__tmp127791 + (lambda (_g123708123711_ _g123709123713_) (let () (declare (not safe)) - (cons _g236466236469_ _g236467236471_))))) + (cons _g123708123711_ _g123709123713_))))) (declare (not safe)) - (foldr1 __tmp245117 '() _L236383_)))) + (foldr1 __tmp127791 '() _L123625_)))) (declare (not safe)) - (andmap1 __tmp245118 __tmp245116)) - (let ((__tmp245115 - (lambda (_g236473236475_) + (andmap1 __tmp127792 __tmp127790)) + (let ((__tmp127789 + (lambda (_g123715123717_) (let () (declare (not safe)) - (gx#free-identifier=? _g236473236475_ _L236391_)))) - (__tmp245113 - (let ((__tmp245114 - (lambda (_g236477236480_ _g236478236482_) + (gx#free-identifier=? _g123715123717_ _L123633_)))) + (__tmp127787 + (let ((__tmp127788 + (lambda (_g123719123722_ _g123720123724_) (let () (declare (not safe)) - (cons _g236477236480_ _g236478236482_))))) + (cons _g123719123722_ _g123720123724_))))) (declare (not safe)) - (foldr1 __tmp245114 '() _L236385_)))) + (foldr1 __tmp127788 '() _L123627_)))) (declare (not safe)) - (andmap1 __tmp245115 __tmp245113))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont243394243395_ - _L236382_ - _L236383_ - _L236384_ - _L236385_ - _L236386_ - _L236387_ - _L236388_ - _L236389_ - _L236390_ - _L236391_) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_))))))) + (andmap1 __tmp127789 __tmp127787))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont126068126069_ + _L123624_ + _L123625_ + _L123626_ + _L123627_ + _L123628_ + _L123629_ + _L123630_ + _L123631_ + _L123632_ + _L123633_) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_))))))) (let () (declare (not safe)) - (_loop235984236247_ - _target235981236218_ + (_loop123226123489_ + _target123223123460_ '() '() '() '()))))) - (___match243573243574_ - (lambda (_e235941236106_ - _hd235940236109_ - _tl235939236111_ - _e235944236114_ - _hd235943236117_ - _tl235942236119_) + (___match126247126248_ + (lambda (_e123183123348_ + _hd123182123351_ + _tl123181123353_ + _e123186123356_ + _hd123185123359_ + _tl123184123361_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd235943236117_)) - (let ((_e235947236122_ + (gx#stx-pair? _hd123185123359_)) + (let ((_e123189123364_ (let () (declare (not safe)) - (gx#stx-e _hd235943236117_)))) - (let ((_tl235945236127_ + (gx#stx-e _hd123185123359_)))) + (let ((_tl123187123369_ (let () (declare (not safe)) - (##cdr _e235947236122_))) - (_hd235946236125_ + (##cdr _e123189123364_))) + (_hd123188123367_ (let () (declare (not safe)) - (##car _e235947236122_)))) + (##car _e123189123364_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235942236119_)) - (let ((_e235950236130_ + (gx#stx-pair? _tl123184123361_)) + (let ((_e123192123372_ (let () (declare (not safe)) - (gx#stx-e _tl235942236119_)))) - (let ((_tl235948236135_ + (gx#stx-e _tl123184123361_)))) + (let ((_tl123190123377_ (let () (declare (not safe)) - (##cdr _e235950236130_))) - (_hd235949236133_ + (##cdr _e123192123372_))) + (_hd123191123375_ (let () (declare (not safe)) - (##car _e235950236130_)))) + (##car _e123192123372_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd235949236133_)) - (let ((_e235953236138_ + (gx#stx-pair? _hd123191123375_)) + (let ((_e123195123380_ (let () (declare (not safe)) (gx#stx-e - _hd235949236133_)))) - (let ((_tl235951236143_ + _hd123191123375_)))) + (let ((_tl123193123385_ (let () (declare (not safe)) - (##cdr _e235953236138_))) - (_hd235952236141_ + (##cdr _e123195123380_))) + (_hd123194123383_ (let () (declare (not safe)) - (##car _e235953236138_)))) + (##car _e123195123380_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd235952236141_)) + _hd123194123383_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd235952236141_)) + _hd123194123383_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl235951236143_)) - (let ((_e235956236146_ + _tl123193123385_)) + (let ((_e123198123388_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl235951236143_)))) - (let ((_tl235954236151_ + (gx#stx-e _tl123193123385_)))) + (let ((_tl123196123393_ (let () (declare (not safe)) - (##cdr _e235956236146_))) - (_hd235955236149_ + (##cdr _e123198123388_))) + (_hd123197123391_ (let () (declare (not safe)) - (##car _e235956236146_)))) + (##car _e123198123388_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd235955236149_)) - (let ((_e235959236154_ + (gx#stx-pair? _hd123197123391_)) + (let ((_e123201123396_ (let () (declare (not safe)) - (gx#stx-e _hd235955236149_)))) - (let ((_tl235957236159_ + (gx#stx-e _hd123197123391_)))) + (let ((_tl123199123401_ (let () (declare (not safe)) - (##cdr _e235959236154_))) - (_hd235958236157_ + (##cdr _e123201123396_))) + (_hd123200123399_ (let () (declare (not safe)) - (##car _e235959236154_)))) + (##car _e123201123396_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd235958236157_)) + (gx#identifier? _hd123200123399_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd235958236157_)) + (gx#stx-eq? '%#ref _hd123200123399_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235957236159_)) - (let ((_e235962236162_ + (gx#stx-pair? _tl123199123401_)) + (let ((_e123204123404_ (let () (declare (not safe)) (gx#stx-e - _tl235957236159_)))) - (let ((_tl235960236167_ + _tl123199123401_)))) + (let ((_tl123202123409_ (let () (declare (not safe)) - (##cdr _e235962236162_))) - (_hd235961236165_ + (##cdr _e123204123404_))) + (_hd123203123407_ (let () (declare (not safe)) - (##car _e235962236162_)))) + (##car _e123204123404_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl235960236167_)) + _tl123202123409_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl235954236151_)) - (let ((_e235965236170_ + _tl123196123393_)) + (let ((_e123207123412_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl235954236151_)))) - (let ((_tl235963236175_ - (let () (declare (not safe)) (##cdr _e235965236170_))) - (_hd235964236173_ - (let () (declare (not safe)) (##car _e235965236170_)))) + (gx#stx-e _tl123196123393_)))) + (let ((_tl123205123417_ + (let () (declare (not safe)) (##cdr _e123207123412_))) + (_hd123206123415_ + (let () (declare (not safe)) (##car _e123207123412_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd235964236173_)) - (let ((_e235968236178_ + (gx#stx-pair? _hd123206123415_)) + (let ((_e123210123420_ (let () (declare (not safe)) - (gx#stx-e _hd235964236173_)))) - (let ((_tl235966236183_ + (gx#stx-e _hd123206123415_)))) + (let ((_tl123208123425_ (let () (declare (not safe)) - (##cdr _e235968236178_))) - (_hd235967236181_ + (##cdr _e123210123420_))) + (_hd123209123423_ (let () (declare (not safe)) - (##car _e235968236178_)))) + (##car _e123210123420_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd235967236181_)) + (gx#identifier? _hd123209123423_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd235967236181_)) + (gx#stx-eq? '%#ref _hd123209123423_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235966236183_)) - (let ((_e235971236186_ + (gx#stx-pair? _tl123208123425_)) + (let ((_e123213123428_ (let () (declare (not safe)) - (gx#stx-e _tl235966236183_)))) - (let ((_tl235969236191_ + (gx#stx-e _tl123208123425_)))) + (let ((_tl123211123433_ (let () (declare (not safe)) - (##cdr _e235971236186_))) - (_hd235970236189_ + (##cdr _e123213123428_))) + (_hd123212123431_ (let () (declare (not safe)) - (##car _e235971236186_)))) + (##car _e123213123428_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl235969236191_)) + _tl123211123433_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl235963236175_)) - (let ((_e235974236194_ + _tl123205123417_)) + (let ((_e123216123436_ (let () (declare (not safe)) (gx#stx-e - _tl235963236175_)))) - (let ((_tl235972236199_ + _tl123205123417_)))) + (let ((_tl123214123441_ (let () (declare (not safe)) - (##cdr _e235974236194_))) - (_hd235973236197_ + (##cdr _e123216123436_))) + (_hd123215123439_ (let () (declare (not safe)) - (##car _e235974236194_)))) + (##car _e123216123436_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd235973236197_)) - (let ((_e235977236202_ + _hd123215123439_)) + (let ((_e123219123444_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd235973236197_)))) - (let ((_tl235975236207_ + (gx#stx-e _hd123215123439_)))) + (let ((_tl123217123449_ (let () (declare (not safe)) - (##cdr _e235977236202_))) - (_hd235976236205_ + (##cdr _e123219123444_))) + (_hd123218123447_ (let () (declare (not safe)) - (##car _e235977236202_)))) + (##car _e123219123444_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd235976236205_)) + (gx#identifier? _hd123218123447_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd235976236205_)) + (gx#stx-eq? '%#ref _hd123218123447_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235975236207_)) - (let ((_e235980236210_ + (gx#stx-pair? _tl123217123449_)) + (let ((_e123222123452_ (let () (declare (not safe)) - (gx#stx-e _tl235975236207_)))) - (let ((_tl235978236215_ + (gx#stx-e _tl123217123449_)))) + (let ((_tl123220123457_ (let () (declare (not safe)) - (##cdr _e235980236210_))) - (_hd235979236213_ + (##cdr _e123222123452_))) + (_hd123221123455_ (let () (declare (not safe)) - (##car _e235980236210_)))) + (##car _e123222123452_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl235978236215_)) + (gx#stx-null? _tl123220123457_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl235972236199_)) + _tl123214123441_)) (if (fx>= (let () (declare (not safe)) (gx#stx-length - _tl235972236199_)) + _tl123214123441_)) '1) - (let ((___splice243396243397_ + (let ((___splice126070126071_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl235972236199_ + _tl123214123441_ '1)))) - (let ((_tl235983236220_ + (let ((_tl123225123462_ (let () (declare (not safe)) (##vector-ref - ___splice243396243397_ + ___splice126070126071_ '1))) - (_target235981236218_ + (_target123223123460_ (let () (declare (not safe)) (##vector-ref - ___splice243396243397_ + ___splice126070126071_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl235983236220_)) - (let ((_e235998236223_ + _tl123225123462_)) + (let ((_e123240123465_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl235983236220_)))) - (let ((_tl235996236228_ + (gx#stx-e _tl123225123462_)))) + (let ((_tl123238123470_ (let () (declare (not safe)) - (##cdr _e235998236223_))) - (_hd235997236226_ + (##cdr _e123240123465_))) + (_hd123239123468_ (let () (declare (not safe)) - (##car _e235998236223_)))) + (##car _e123240123465_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd235997236226_)) - (let ((_e236001236231_ + (gx#stx-pair? _hd123239123468_)) + (let ((_e123243123473_ (let () (declare (not safe)) - (gx#stx-e _hd235997236226_)))) - (let ((_tl235999236236_ + (gx#stx-e _hd123239123468_)))) + (let ((_tl123241123478_ (let () (declare (not safe)) - (##cdr _e236001236231_))) - (_hd236000236234_ + (##cdr _e123243123473_))) + (_hd123242123476_ (let () (declare (not safe)) - (##car _e236001236231_)))) + (##car _e123243123473_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd236000236234_)) + (gx#identifier? _hd123242123476_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd236000236234_)) + (gx#stx-eq? '%#ref _hd123242123476_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235999236236_)) - (let ((_e236004236239_ + (gx#stx-pair? _tl123241123478_)) + (let ((_e123246123481_ (let () (declare (not safe)) (gx#stx-e - _tl235999236236_)))) - (let ((_tl236002236244_ + _tl123241123478_)))) + (let ((_tl123244123486_ (let () (declare (not safe)) - (##cdr _e236004236239_))) - (_hd236003236242_ + (##cdr _e123246123481_))) + (_hd123245123484_ (let () (declare (not safe)) - (##car _e236004236239_)))) + (##car _e123246123481_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236002236244_)) + _tl123244123486_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl235996236228_)) - (___match243701243702_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_ - _e235944236114_ - _hd235943236117_ - _tl235942236119_ - _e235947236122_ - _hd235946236125_ - _tl235945236127_ - _e235950236130_ - _hd235949236133_ - _tl235948236135_ - _e235953236138_ - _hd235952236141_ - _tl235951236143_ - _e235956236146_ - _hd235955236149_ - _tl235954236151_ - _e235959236154_ - _hd235958236157_ - _tl235957236159_ - _e235962236162_ - _hd235961236165_ - _tl235960236167_ - _e235965236170_ - _hd235964236173_ - _tl235963236175_ - _e235968236178_ - _hd235967236181_ - _tl235966236183_ - _e235971236186_ - _hd235970236189_ - _tl235969236191_ - _e235974236194_ - _hd235973236197_ - _tl235972236199_ - _e235977236202_ - _hd235976236205_ - _tl235975236207_ - _e235980236210_ - _hd235979236213_ - _tl235978236215_ - ___splice243396243397_ - _target235981236218_ - _tl235983236220_ - _e235998236223_ - _hd235997236226_ - _tl235996236228_ - _e236001236231_ - _hd236000236234_ - _tl235999236236_ - _e236004236239_ - _hd236003236242_ - _tl236002236244_) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243707243708_ - _e235941236106_ - _hd235940236109_ - _tl235939236111_)))) - (___match243561243562_ - (lambda (_e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_ - _e235880236513_ - _hd235879236516_ - _tl235878236518_ - _e235883236521_ - _hd235882236524_ - _tl235881236526_ - _e235886236529_ - _hd235885236532_ - _tl235884236534_ - _e235889236537_ - _hd235888236540_ - _tl235887236542_ - _e235892236545_ - _hd235891236548_ - _tl235890236550_ - _e235895236553_ - _hd235894236556_ - _tl235893236558_ - _e235898236561_ - _hd235897236564_ - _tl235896236566_ - _e235901236569_ - _hd235900236572_ - _tl235899236574_ - _e235904236577_ - _hd235903236580_ - _tl235902236582_ - _e235907236585_ - _hd235906236588_ - _tl235905236590_ - _e235910236593_ - _hd235909236596_ - _tl235908236598_ - _e235913236601_ - _hd235912236604_ - _tl235911236606_ - _e235916236609_ - _hd235915236612_ - _tl235914236614_ - _e235919236617_ - _hd235918236620_ - _tl235917236622_ - _e235922236625_ - _hd235921236628_ - _tl235920236630_ - _e235925236633_ - _hd235924236636_ - _tl235923236638_ - _e235928236641_ - _hd235927236644_ - _tl235926236646_) - (let ((_L236649_ _hd235927236644_) - (_L236650_ _hd235918236620_) - (_L236651_ _hd235909236596_) - (_L236652_ _hd235900236572_) - (_L236653_ _hd235891236548_) - (_L236654_ _hd235876236508_)) + _tl123238123470_)) + (___match126375126376_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_ + _e123186123356_ + _hd123185123359_ + _tl123184123361_ + _e123189123364_ + _hd123188123367_ + _tl123187123369_ + _e123192123372_ + _hd123191123375_ + _tl123190123377_ + _e123195123380_ + _hd123194123383_ + _tl123193123385_ + _e123198123388_ + _hd123197123391_ + _tl123196123393_ + _e123201123396_ + _hd123200123399_ + _tl123199123401_ + _e123204123404_ + _hd123203123407_ + _tl123202123409_ + _e123207123412_ + _hd123206123415_ + _tl123205123417_ + _e123210123420_ + _hd123209123423_ + _tl123208123425_ + _e123213123428_ + _hd123212123431_ + _tl123211123433_ + _e123216123436_ + _hd123215123439_ + _tl123214123441_ + _e123219123444_ + _hd123218123447_ + _tl123217123449_ + _e123222123452_ + _hd123221123455_ + _tl123220123457_ + ___splice126070126071_ + _target123223123460_ + _tl123225123462_ + _e123240123465_ + _hd123239123468_ + _tl123238123470_ + _e123243123473_ + _hd123242123476_ + _tl123241123478_ + _e123246123481_ + _hd123245123484_ + _tl123244123486_) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126381126382_ + _e123183123348_ + _hd123182123351_ + _tl123181123353_)))) + (___match126235126236_ + (lambda (_e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_ + _e123122123755_ + _hd123121123758_ + _tl123120123760_ + _e123125123763_ + _hd123124123766_ + _tl123123123768_ + _e123128123771_ + _hd123127123774_ + _tl123126123776_ + _e123131123779_ + _hd123130123782_ + _tl123129123784_ + _e123134123787_ + _hd123133123790_ + _tl123132123792_ + _e123137123795_ + _hd123136123798_ + _tl123135123800_ + _e123140123803_ + _hd123139123806_ + _tl123138123808_ + _e123143123811_ + _hd123142123814_ + _tl123141123816_ + _e123146123819_ + _hd123145123822_ + _tl123144123824_ + _e123149123827_ + _hd123148123830_ + _tl123147123832_ + _e123152123835_ + _hd123151123838_ + _tl123150123840_ + _e123155123843_ + _hd123154123846_ + _tl123153123848_ + _e123158123851_ + _hd123157123854_ + _tl123156123856_ + _e123161123859_ + _hd123160123862_ + _tl123159123864_ + _e123164123867_ + _hd123163123870_ + _tl123162123872_ + _e123167123875_ + _hd123166123878_ + _tl123165123880_ + _e123170123883_ + _hd123169123886_ + _tl123168123888_) + (let ((_L123891_ _hd123169123886_) + (_L123892_ _hd123160123862_) + (_L123893_ _hd123151123838_) + (_L123894_ _hd123142123814_) + (_L123895_ _hd123133123790_) + (_L123896_ _hd123118123750_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L236654_)) + (gx#identifier? _L123896_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L236653_ 'apply)) + (gxc#runtime-identifier=? _L123895_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L236652_ + _L123894_ 'keyword-dispatch)) (let () (declare (not safe)) - (gx#free-identifier=? _L236654_ _L236649_))) - (___kont243392243393_ - _L236649_ - _L236650_ - _L236651_ - _L236652_ - _L236653_ - _L236654_) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_))))) - (___match243415243416_ - (lambda (_e235874236497_ _hd235873236500_ _tl235872236502_) + (gx#free-identifier=? _L123896_ _L123891_))) + (___kont126066126067_ + _L123891_ + _L123892_ + _L123893_ + _L123894_ + _L123895_ + _L123896_) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_))))) + (___match126089126090_ + (lambda (_e123116123739_ _hd123115123742_ _tl123114123744_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235872236502_)) - (let ((_e235877236505_ + (gx#stx-pair? _tl123114123744_)) + (let ((_e123119123747_ (let () (declare (not safe)) - (gx#stx-e _tl235872236502_)))) - (let ((_tl235875236510_ + (gx#stx-e _tl123114123744_)))) + (let ((_tl123117123752_ (let () (declare (not safe)) - (##cdr _e235877236505_))) - (_hd235876236508_ + (##cdr _e123119123747_))) + (_hd123118123750_ (let () (declare (not safe)) - (##car _e235877236505_)))) + (##car _e123119123747_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235875236510_)) - (let ((_e235880236513_ + (gx#stx-pair? _tl123117123752_)) + (let ((_e123122123755_ (let () (declare (not safe)) - (gx#stx-e _tl235875236510_)))) - (let ((_tl235878236518_ + (gx#stx-e _tl123117123752_)))) + (let ((_tl123120123760_ (let () (declare (not safe)) - (##cdr _e235880236513_))) - (_hd235879236516_ + (##cdr _e123122123755_))) + (_hd123121123758_ (let () (declare (not safe)) - (##car _e235880236513_)))) + (##car _e123122123755_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd235879236516_)) - (let ((_e235883236521_ + (gx#stx-pair? _hd123121123758_)) + (let ((_e123125123763_ (let () (declare (not safe)) (gx#stx-e - _hd235879236516_)))) - (let ((_tl235881236526_ + _hd123121123758_)))) + (let ((_tl123123123768_ (let () (declare (not safe)) - (##cdr _e235883236521_))) - (_hd235882236524_ + (##cdr _e123125123763_))) + (_hd123124123766_ (let () (declare (not safe)) - (##car _e235883236521_)))) + (##car _e123125123763_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd235882236524_)) + _hd123124123766_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd235882236524_)) + _hd123124123766_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl235881236526_)) - (let ((_e235886236529_ + _tl123123123768_)) + (let ((_e123128123771_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl235881236526_)))) - (let ((_tl235884236534_ + (gx#stx-e _tl123123123768_)))) + (let ((_tl123126123776_ (let () (declare (not safe)) - (##cdr _e235886236529_))) - (_hd235885236532_ + (##cdr _e123128123771_))) + (_hd123127123774_ (let () (declare (not safe)) - (##car _e235886236529_)))) + (##car _e123128123771_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd235885236532_)) - (let ((_e235889236537_ + (gx#stx-pair? _hd123127123774_)) + (let ((_e123131123779_ (let () (declare (not safe)) - (gx#stx-e _hd235885236532_)))) - (let ((_tl235887236542_ + (gx#stx-e _hd123127123774_)))) + (let ((_tl123129123784_ (let () (declare (not safe)) - (##cdr _e235889236537_))) - (_hd235888236540_ + (##cdr _e123131123779_))) + (_hd123130123782_ (let () (declare (not safe)) - (##car _e235889236537_)))) + (##car _e123131123779_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd235888236540_)) + (gx#identifier? _hd123130123782_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd235888236540_)) + (gx#stx-eq? '%#ref _hd123130123782_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235887236542_)) - (let ((_e235892236545_ + (gx#stx-pair? _tl123129123784_)) + (let ((_e123134123787_ (let () (declare (not safe)) (gx#stx-e - _tl235887236542_)))) - (let ((_tl235890236550_ + _tl123129123784_)))) + (let ((_tl123132123792_ (let () (declare (not safe)) - (##cdr _e235892236545_))) - (_hd235891236548_ + (##cdr _e123134123787_))) + (_hd123133123790_ (let () (declare (not safe)) - (##car _e235892236545_)))) + (##car _e123134123787_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl235890236550_)) + _tl123132123792_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl235884236534_)) - (let ((_e235895236553_ + _tl123126123776_)) + (let ((_e123137123795_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl235884236534_)))) - (let ((_tl235893236558_ - (let () (declare (not safe)) (##cdr _e235895236553_))) - (_hd235894236556_ - (let () (declare (not safe)) (##car _e235895236553_)))) + (gx#stx-e _tl123126123776_)))) + (let ((_tl123135123800_ + (let () (declare (not safe)) (##cdr _e123137123795_))) + (_hd123136123798_ + (let () (declare (not safe)) (##car _e123137123795_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd235894236556_)) - (let ((_e235898236561_ + (gx#stx-pair? _hd123136123798_)) + (let ((_e123140123803_ (let () (declare (not safe)) - (gx#stx-e _hd235894236556_)))) - (let ((_tl235896236566_ + (gx#stx-e _hd123136123798_)))) + (let ((_tl123138123808_ (let () (declare (not safe)) - (##cdr _e235898236561_))) - (_hd235897236564_ + (##cdr _e123140123803_))) + (_hd123139123806_ (let () (declare (not safe)) - (##car _e235898236561_)))) + (##car _e123140123803_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd235897236564_)) + (gx#identifier? _hd123139123806_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd235897236564_)) + (gx#stx-eq? '%#ref _hd123139123806_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235896236566_)) - (let ((_e235901236569_ + (gx#stx-pair? _tl123138123808_)) + (let ((_e123143123811_ (let () (declare (not safe)) - (gx#stx-e _tl235896236566_)))) - (let ((_tl235899236574_ + (gx#stx-e _tl123138123808_)))) + (let ((_tl123141123816_ (let () (declare (not safe)) - (##cdr _e235901236569_))) - (_hd235900236572_ + (##cdr _e123143123811_))) + (_hd123142123814_ (let () (declare (not safe)) - (##car _e235901236569_)))) + (##car _e123143123811_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl235899236574_)) + _tl123141123816_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl235893236558_)) - (let ((_e235904236577_ + _tl123135123800_)) + (let ((_e123146123819_ (let () (declare (not safe)) (gx#stx-e - _tl235893236558_)))) - (let ((_tl235902236582_ + _tl123135123800_)))) + (let ((_tl123144123824_ (let () (declare (not safe)) - (##cdr _e235904236577_))) - (_hd235903236580_ + (##cdr _e123146123819_))) + (_hd123145123822_ (let () (declare (not safe)) - (##car _e235904236577_)))) + (##car _e123146123819_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd235903236580_)) - (let ((_e235907236585_ + _hd123145123822_)) + (let ((_e123149123827_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd235903236580_)))) - (let ((_tl235905236590_ + (gx#stx-e _hd123145123822_)))) + (let ((_tl123147123832_ (let () (declare (not safe)) - (##cdr _e235907236585_))) - (_hd235906236588_ + (##cdr _e123149123827_))) + (_hd123148123830_ (let () (declare (not safe)) - (##car _e235907236585_)))) + (##car _e123149123827_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd235906236588_)) + (gx#identifier? _hd123148123830_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd235906236588_)) + (gx#stx-eq? '%#quote _hd123148123830_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235905236590_)) - (let ((_e235910236593_ + (gx#stx-pair? _tl123147123832_)) + (let ((_e123152123835_ (let () (declare (not safe)) - (gx#stx-e _tl235905236590_)))) - (let ((_tl235908236598_ + (gx#stx-e _tl123147123832_)))) + (let ((_tl123150123840_ (let () (declare (not safe)) - (##cdr _e235910236593_))) - (_hd235909236596_ + (##cdr _e123152123835_))) + (_hd123151123838_ (let () (declare (not safe)) - (##car _e235910236593_)))) + (##car _e123152123835_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl235908236598_)) + (gx#stx-null? _tl123150123840_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl235902236582_)) - (let ((_e235913236601_ + _tl123144123824_)) + (let ((_e123155123843_ (let () (declare (not safe)) (gx#stx-e - _tl235902236582_)))) - (let ((_tl235911236606_ + _tl123144123824_)))) + (let ((_tl123153123848_ (let () (declare (not safe)) - (##cdr _e235913236601_))) - (_hd235912236604_ + (##cdr _e123155123843_))) + (_hd123154123846_ (let () (declare (not safe)) - (##car _e235913236601_)))) + (##car _e123155123843_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd235912236604_)) - (let ((_e235916236609_ + _hd123154123846_)) + (let ((_e123158123851_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd235912236604_)))) - (let ((_tl235914236614_ - (let () (declare (not safe)) (##cdr _e235916236609_))) - (_hd235915236612_ - (let () (declare (not safe)) (##car _e235916236609_)))) + (gx#stx-e _hd123154123846_)))) + (let ((_tl123156123856_ + (let () (declare (not safe)) (##cdr _e123158123851_))) + (_hd123157123854_ + (let () (declare (not safe)) (##car _e123158123851_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd235915236612_)) + (gx#identifier? _hd123157123854_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd235915236612_)) + (gx#stx-eq? '%#ref _hd123157123854_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235914236614_)) - (let ((_e235919236617_ + (gx#stx-pair? _tl123156123856_)) + (let ((_e123161123859_ (let () (declare (not safe)) - (gx#stx-e _tl235914236614_)))) - (let ((_tl235917236622_ + (gx#stx-e _tl123156123856_)))) + (let ((_tl123159123864_ (let () (declare (not safe)) - (##cdr _e235919236617_))) - (_hd235918236620_ + (##cdr _e123161123859_))) + (_hd123160123862_ (let () (declare (not safe)) - (##car _e235919236617_)))) + (##car _e123161123859_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl235917236622_)) + (gx#stx-null? _tl123159123864_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235911236606_)) - (let ((_e235922236625_ + (gx#stx-pair? _tl123153123848_)) + (let ((_e123164123867_ (let () (declare (not safe)) (gx#stx-e - _tl235911236606_)))) - (let ((_tl235920236630_ + _tl123153123848_)))) + (let ((_tl123162123872_ (let () (declare (not safe)) - (##cdr _e235922236625_))) - (_hd235921236628_ + (##cdr _e123164123867_))) + (_hd123163123870_ (let () (declare (not safe)) - (##car _e235922236625_)))) + (##car _e123164123867_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd235921236628_)) - (let ((_e235925236633_ + _hd123163123870_)) + (let ((_e123167123875_ (let () (declare (not safe)) (gx#stx-e - _hd235921236628_)))) - (let ((_tl235923236638_ + _hd123163123870_)))) + (let ((_tl123165123880_ (let () (declare (not safe)) - (##cdr _e235925236633_))) - (_hd235924236636_ + (##cdr _e123167123875_))) + (_hd123166123878_ (let () (declare (not safe)) - (##car _e235925236633_)))) + (##car _e123167123875_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd235924236636_)) + _hd123166123878_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd235924236636_)) + (gx#stx-eq? '%#ref _hd123166123878_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235923236638_)) - (let ((_e235928236641_ + (gx#stx-pair? _tl123165123880_)) + (let ((_e123170123883_ (let () (declare (not safe)) - (gx#stx-e _tl235923236638_)))) - (let ((_tl235926236646_ + (gx#stx-e _tl123165123880_)))) + (let ((_tl123168123888_ (let () (declare (not safe)) - (##cdr _e235928236641_))) - (_hd235927236644_ + (##cdr _e123170123883_))) + (_hd123169123886_ (let () (declare (not safe)) - (##car _e235928236641_)))) + (##car _e123170123883_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl235926236646_)) + (gx#stx-null? _tl123168123888_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl235920236630_)) + (gx#stx-null? _tl123162123872_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl235878236518_)) - (___match243561243562_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_ - _e235880236513_ - _hd235879236516_ - _tl235878236518_ - _e235883236521_ - _hd235882236524_ - _tl235881236526_ - _e235886236529_ - _hd235885236532_ - _tl235884236534_ - _e235889236537_ - _hd235888236540_ - _tl235887236542_ - _e235892236545_ - _hd235891236548_ - _tl235890236550_ - _e235895236553_ - _hd235894236556_ - _tl235893236558_ - _e235898236561_ - _hd235897236564_ - _tl235896236566_ - _e235901236569_ - _hd235900236572_ - _tl235899236574_ - _e235904236577_ - _hd235903236580_ - _tl235902236582_ - _e235907236585_ - _hd235906236588_ - _tl235905236590_ - _e235910236593_ - _hd235909236596_ - _tl235908236598_ - _e235913236601_ - _hd235912236604_ - _tl235911236606_ - _e235916236609_ - _hd235915236612_ - _tl235914236614_ - _e235919236617_ - _hd235918236620_ - _tl235917236622_ - _e235922236625_ - _hd235921236628_ - _tl235920236630_ - _e235925236633_ - _hd235924236636_ - _tl235923236638_ - _e235928236641_ - _hd235927236644_ - _tl235926236646_) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)))) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)))) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)))) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)))) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)))) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)))) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)))) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)))) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)))) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)))) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)))) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)))) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)))) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)))) - (___match243573243574_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_ - _e235877236505_ - _hd235876236508_ - _tl235875236510_)))) - (___match243707243708_ - _e235874236497_ - _hd235873236500_ - _tl235872236502_))))) + (gx#stx-null? _tl123120123760_)) + (___match126235126236_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_ + _e123122123755_ + _hd123121123758_ + _tl123120123760_ + _e123125123763_ + _hd123124123766_ + _tl123123123768_ + _e123128123771_ + _hd123127123774_ + _tl123126123776_ + _e123131123779_ + _hd123130123782_ + _tl123129123784_ + _e123134123787_ + _hd123133123790_ + _tl123132123792_ + _e123137123795_ + _hd123136123798_ + _tl123135123800_ + _e123140123803_ + _hd123139123806_ + _tl123138123808_ + _e123143123811_ + _hd123142123814_ + _tl123141123816_ + _e123146123819_ + _hd123145123822_ + _tl123144123824_ + _e123149123827_ + _hd123148123830_ + _tl123147123832_ + _e123152123835_ + _hd123151123838_ + _tl123150123840_ + _e123155123843_ + _hd123154123846_ + _tl123153123848_ + _e123158123851_ + _hd123157123854_ + _tl123156123856_ + _e123161123859_ + _hd123160123862_ + _tl123159123864_ + _e123164123867_ + _hd123163123870_ + _tl123162123872_ + _e123167123875_ + _hd123166123878_ + _tl123165123880_ + _e123170123883_ + _hd123169123886_ + _tl123168123888_) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)))) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)))) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)))) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)))) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)))) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)))) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)))) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)))) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)))) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)))) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)))) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)))) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)))) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)))) + (___match126247126248_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_ + _e123119123747_ + _hd123118123750_ + _tl123117123752_)))) + (___match126381126382_ + _e123116123739_ + _hd123115123742_ + _tl123114123744_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx243388243389_)) - (let ((_e235865236714_ + (gx#stx-pair? ___stx126062126063_)) + (let ((_e123107123956_ (let () (declare (not safe)) - (gx#stx-e ___stx243388243389_)))) - (let ((_tl235863236719_ + (gx#stx-e ___stx126062126063_)))) + (let ((_tl123105123961_ (let () (declare (not safe)) - (##cdr _e235865236714_))) - (_hd235864236717_ + (##cdr _e123107123956_))) + (_hd123106123959_ (let () (declare (not safe)) - (##car _e235865236714_)))) + (##car _e123107123956_)))) (if (gxc#current-compile-type-closure) - (let ((_L236722_ _tl235863236719_)) - (___kont243390243391_ _L236722_)) - (___match243415243416_ - _e235865236714_ - _hd235864236717_ - _tl235863236719_)))) - (let () (declare (not safe)) (_g235860236056_)))))))) + (let ((_L123964_ _tl123105123961_)) + (___kont126064126065_ _L123964_)) + (___match126089126090_ + _e123107123956_ + _hd123106123959_ + _tl123105123961_)))) + (let () (declare (not safe)) (_g123102123298_)))))))) (define gxc#basic-expression-type-case-lambda% - (lambda (_stx235809_) - (letrec ((_clause-e235811_ - (lambda (_form235852_) - (let ((__obj245061 + (lambda (_stx123051_) + (letrec ((_clause-e123053_ + (lambda (_form123094_) + (let ((__obj127735 (let () (declare (not safe)) (##structure @@ -5698,4954 +5688,4953 @@ '#f '#f)))) (gxc#!lambda:::init! - __obj245061 + __obj127735 'case-lambda-clause (let () (declare (not safe)) - (gxc#lambda-form-arity _form235852_)) - (if (let ((__tmp245128 + (gxc#lambda-form-arity _form123094_)) + (if (let ((__tmp127802 (gxc#current-compile-type-closure))) (declare (not safe)) - (not __tmp245128)) + (not __tmp127802)) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _form235852_)) + (gxc#dispatch-lambda-form? _form123094_)) (let () (declare (not safe)) (gxc#dispatch-lambda-form-delegate - _form235852_)) + _form123094_)) '#f) '#f)) - __obj245061)))) - (let* ((_g235813235823_ - (lambda (_g235814235820_) + __obj127735)))) + (let* ((_g123055123065_ + (lambda (_g123056123062_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g235814235820_)))) - (_g235812235849_ - (lambda (_g235814235826_) + _g123056123062_)))) + (_g123054123091_ + (lambda (_g123056123068_) (if (let () (declare (not safe)) - (gx#stx-pair? _g235814235826_)) - (let ((_e235818235828_ + (gx#stx-pair? _g123056123068_)) + (let ((_e123060123070_ (let () (declare (not safe)) - (gx#stx-e _g235814235826_)))) - (let ((_hd235817235831_ + (gx#stx-e _g123056123068_)))) + (let ((_hd123059123073_ (let () (declare (not safe)) - (##car _e235818235828_))) - (_tl235816235833_ + (##car _e123060123070_))) + (_tl123058123075_ (let () (declare (not safe)) - (##cdr _e235818235828_)))) - ((lambda (_L235836_) - (let ((_clauses235847_ - (map _clause-e235811_ _L235836_))) + (##cdr _e123060123070_)))) + ((lambda (_L123078_) + (let ((_clauses123089_ + (map _clause-e123053_ _L123078_))) (declare (not safe)) (##structure gxc#!case-lambda::t 'case-lambda - _clauses235847_))) - _tl235816235833_))) + _clauses123089_))) + _tl123058123075_))) (let () (declare (not safe)) - (_g235813235823_ _g235814235826_)))))) + (_g123055123065_ _g123056123068_)))))) (declare (not safe)) - (_g235812235849_ _stx235809_))))) + (_g123054123091_ _stx123051_))))) (define gxc#basic-expression-type-let-values% - (lambda (_stx235741_) - (let* ((_g235743235760_ - (lambda (_g235744235757_) + (lambda (_stx122983_) + (let* ((_g122985123002_ + (lambda (_g122986122999_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g235744235757_)))) - (_g235742235806_ - (lambda (_g235744235763_) + _g122986122999_)))) + (_g122984123048_ + (lambda (_g122986123005_) (if (let () (declare (not safe)) - (gx#stx-pair? _g235744235763_)) - (let ((_e235749235765_ + (gx#stx-pair? _g122986123005_)) + (let ((_e122991123007_ (let () (declare (not safe)) - (gx#stx-e _g235744235763_)))) - (let ((_hd235748235768_ + (gx#stx-e _g122986123005_)))) + (let ((_hd122990123010_ (let () (declare (not safe)) - (##car _e235749235765_))) - (_tl235747235770_ + (##car _e122991123007_))) + (_tl122989123012_ (let () (declare (not safe)) - (##cdr _e235749235765_)))) + (##cdr _e122991123007_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235747235770_)) - (let ((_e235752235773_ + (gx#stx-pair? _tl122989123012_)) + (let ((_e122994123015_ (let () (declare (not safe)) - (gx#stx-e _tl235747235770_)))) - (let ((_hd235751235776_ + (gx#stx-e _tl122989123012_)))) + (let ((_hd122993123018_ (let () (declare (not safe)) - (##car _e235752235773_))) - (_tl235750235778_ + (##car _e122994123015_))) + (_tl122992123020_ (let () (declare (not safe)) - (##cdr _e235752235773_)))) + (##cdr _e122994123015_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235750235778_)) - (let ((_e235755235781_ + (gx#stx-pair? _tl122992123020_)) + (let ((_e122997123023_ (let () (declare (not safe)) - (gx#stx-e _tl235750235778_)))) - (let ((_hd235754235784_ + (gx#stx-e _tl122992123020_)))) + (let ((_hd122996123026_ (let () (declare (not safe)) - (##car _e235755235781_))) - (_tl235753235786_ + (##car _e122997123023_))) + (_tl122995123028_ (let () (declare (not safe)) - (##cdr _e235755235781_)))) + (##cdr _e122997123023_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl235753235786_)) - ((lambda (_L235789_ _L235790_) - (let ((__tmp245129 + _tl122995123028_)) + ((lambda (_L123031_ _L123032_) + (let ((__tmp127803 (lambda () (let () (declare (not safe)) (gxc#compile-e__0 - _L235789_))))) + _L123031_))))) (declare (not safe)) (call-with-parameters - __tmp245129 + __tmp127803 gxc#current-compile-type-closure '#t))) - _hd235754235784_ - _hd235751235776_) + _hd122996123026_ + _hd122993123018_) (let () (declare (not safe)) - (_g235743235760_ - _g235744235763_))))) + (_g122985123002_ + _g122986123005_))))) (let () (declare (not safe)) - (_g235743235760_ _g235744235763_))))) + (_g122985123002_ _g122986123005_))))) (let () (declare (not safe)) - (_g235743235760_ _g235744235763_))))) + (_g122985123002_ _g122986123005_))))) (let () (declare (not safe)) - (_g235743235760_ _g235744235763_)))))) + (_g122985123002_ _g122986123005_)))))) (declare (not safe)) - (_g235742235806_ _stx235741_)))) + (_g122984123048_ _stx122983_)))) (define gxc#basic-expression-type-builtin - (let () (declare (not safe)) (make-table 'test: eq?))) + (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-call% - (lambda (_stx235646_) - (let* ((___stx243716243717_ _stx235646_) - (_g235649235669_ + (lambda (_stx122888_) + (let* ((___stx126390126391_ _stx122888_) + (_g122891122911_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243716243717_))))) - (let ((___kont243718243719_ - (lambda (_L235713_ _L235714_) - (let ((_type-e235731235733_ - (let ((__tmp245130 + ___stx126390126391_))))) + (let ((___kont126392126393_ + (lambda (_L122955_ _L122956_) + (let ((_type-e122973122975_ + (let ((__tmp127804 (let () (declare (not safe)) - (gxc#identifier-symbol _L235714_)))) + (gxc#identifier-symbol _L122956_)))) (declare (not safe)) - (table-ref + (hash-get gxc#basic-expression-type-builtin - __tmp245130 - '#f)))) - (if _type-e235731235733_ - (let ((_type-e235736_ _type-e235731235733_)) - (_type-e235736_ _stx235646_ _L235713_)) + __tmp127804)))) + (if _type-e122973122975_ + (let ((_type-e122978_ _type-e122973122975_)) + (_type-e122978_ _stx122888_ _L122955_)) '#f)))) - (___kont243720243721_ (lambda () '#f))) + (___kont126394126395_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx243716243717_)) - (let ((_e235655235681_ + (gx#stx-pair? ___stx126390126391_)) + (let ((_e122897122923_ (let () (declare (not safe)) - (gx#stx-e ___stx243716243717_)))) - (let ((_tl235653235686_ - (let () (declare (not safe)) (##cdr _e235655235681_))) - (_hd235654235684_ + (gx#stx-e ___stx126390126391_)))) + (let ((_tl122895122928_ + (let () (declare (not safe)) (##cdr _e122897122923_))) + (_hd122896122926_ (let () (declare (not safe)) - (##car _e235655235681_)))) + (##car _e122897122923_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235653235686_)) - (let ((_e235658235689_ + (gx#stx-pair? _tl122895122928_)) + (let ((_e122900122931_ (let () (declare (not safe)) - (gx#stx-e _tl235653235686_)))) - (let ((_tl235656235694_ + (gx#stx-e _tl122895122928_)))) + (let ((_tl122898122936_ (let () (declare (not safe)) - (##cdr _e235658235689_))) - (_hd235657235692_ + (##cdr _e122900122931_))) + (_hd122899122934_ (let () (declare (not safe)) - (##car _e235658235689_)))) + (##car _e122900122931_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd235657235692_)) - (let ((_e235661235697_ + (gx#stx-pair? _hd122899122934_)) + (let ((_e122903122939_ (let () (declare (not safe)) - (gx#stx-e _hd235657235692_)))) - (let ((_tl235659235702_ + (gx#stx-e _hd122899122934_)))) + (let ((_tl122901122944_ (let () (declare (not safe)) - (##cdr _e235661235697_))) - (_hd235660235700_ + (##cdr _e122903122939_))) + (_hd122902122942_ (let () (declare (not safe)) - (##car _e235661235697_)))) + (##car _e122903122939_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd235660235700_)) + (gx#identifier? _hd122902122942_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd235660235700_)) + _hd122902122942_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl235659235702_)) - (let ((_e235664235705_ + _tl122901122944_)) + (let ((_e122906122947_ (let () (declare (not safe)) (gx#stx-e - _tl235659235702_)))) - (let ((_tl235662235710_ + _tl122901122944_)))) + (let ((_tl122904122952_ (let () (declare (not safe)) - (##cdr _e235664235705_))) - (_hd235663235708_ + (##cdr _e122906122947_))) + (_hd122905122950_ (let () (declare (not safe)) - (##car _e235664235705_)))) + (##car _e122906122947_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl235662235710_)) - (___kont243718243719_ - _tl235656235694_ - _hd235663235708_) - (___kont243720243721_)))) - (___kont243720243721_)) - (___kont243720243721_)) - (___kont243720243721_)))) - (___kont243720243721_)))) - (___kont243720243721_)))) - (___kont243720243721_)))))) + _tl122904122952_)) + (___kont126392126393_ + _tl122898122936_ + _hd122905122950_) + (___kont126394126395_)))) + (___kont126394126395_)) + (___kont126394126395_)) + (___kont126394126395_)))) + (___kont126394126395_)))) + (___kont126394126395_)))) + (___kont126394126395_)))))) (define gxc#basic-expression-type-ref% - (lambda (_stx235595_) - (let* ((_g235597235610_ - (lambda (_g235598235607_) + (lambda (_stx122837_) + (let* ((_g122839122852_ + (lambda (_g122840122849_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g235598235607_)))) - (_g235596235643_ - (lambda (_g235598235613_) + _g122840122849_)))) + (_g122838122885_ + (lambda (_g122840122855_) (if (let () (declare (not safe)) - (gx#stx-pair? _g235598235613_)) - (let ((_e235602235615_ + (gx#stx-pair? _g122840122855_)) + (let ((_e122844122857_ (let () (declare (not safe)) - (gx#stx-e _g235598235613_)))) - (let ((_hd235601235618_ + (gx#stx-e _g122840122855_)))) + (let ((_hd122843122860_ (let () (declare (not safe)) - (##car _e235602235615_))) - (_tl235600235620_ + (##car _e122844122857_))) + (_tl122842122862_ (let () (declare (not safe)) - (##cdr _e235602235615_)))) + (##cdr _e122844122857_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235600235620_)) - (let ((_e235605235623_ + (gx#stx-pair? _tl122842122862_)) + (let ((_e122847122865_ (let () (declare (not safe)) - (gx#stx-e _tl235600235620_)))) - (let ((_hd235604235626_ + (gx#stx-e _tl122842122862_)))) + (let ((_hd122846122868_ (let () (declare (not safe)) - (##car _e235605235623_))) - (_tl235603235628_ + (##car _e122847122865_))) + (_tl122845122870_ (let () (declare (not safe)) - (##cdr _e235605235623_)))) + (##cdr _e122847122865_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl235603235628_)) - ((lambda (_L235631_) - (let ((__tmp245131 + (gx#stx-null? _tl122845122870_)) + ((lambda (_L122873_) + (let ((__tmp127805 (let () (declare (not safe)) (gxc#identifier-symbol - _L235631_)))) + _L122873_)))) (declare (not safe)) (gxc#optimizer-lookup-type - __tmp245131))) - _hd235604235626_) + __tmp127805))) + _hd122846122868_) (let () (declare (not safe)) - (_g235597235610_ _g235598235613_))))) + (_g122839122852_ _g122840122855_))))) (let () (declare (not safe)) - (_g235597235610_ _g235598235613_))))) + (_g122839122852_ _g122840122855_))))) (let () (declare (not safe)) - (_g235597235610_ _g235598235613_)))))) + (_g122839122852_ _g122840122855_)))))) (declare (not safe)) - (_g235596235643_ _stx235595_)))) + (_g122838122885_ _stx122837_)))) (define gxc#dispatch-lambda-form? - (lambda (_form234829_) - (let* ((___stx243754243755_ _form234829_) - (_g234834234991_ + (lambda (_form122071_) + (let* ((___stx126428126429_ _form122071_) + (_g122076122233_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243754243755_))))) - (let ((___kont243756243757_ - (lambda (_L235515_ _L235516_ _L235517_) '#t)) - (___kont243762243763_ - (lambda (_L235303_ - _L235304_ - _L235305_ - _L235306_ - _L235307_ - _L235308_) + ___stx126428126429_))))) + (let ((___kont126430126431_ + (lambda (_L122757_ _L122758_ _L122759_) '#t)) + (___kont126436126437_ + (lambda (_L122545_ + _L122546_ + _L122547_ + _L122548_ + _L122549_ + _L122550_) '#t)) - (___kont243768243769_ - (lambda (_L235099_ _L235100_ _L235101_ _L235102_) '#t)) - (___kont243770243771_ (lambda () '#f))) - (let* ((___match243895243896_ - (lambda (_e234953235003_ - _hd234952235006_ - _tl234951235008_ - _e234956235011_ - _hd234955235014_ - _tl234954235016_ - _e234959235019_ - _hd234958235022_ - _tl234957235024_ - _e234962235027_ - _hd234961235030_ - _tl234960235032_ - _e234965235035_ - _hd234964235038_ - _tl234963235040_ - _e234968235043_ - _hd234967235046_ - _tl234966235048_ - _e234971235051_ - _hd234970235054_ - _tl234969235056_ - _e234974235059_ - _hd234973235062_ - _tl234972235064_ - _e234977235067_ - _hd234976235070_ - _tl234975235072_ - _e234980235075_ - _hd234979235078_ - _tl234978235080_ - _e234983235083_ - _hd234982235086_ - _tl234981235088_ - _e234986235091_ - _hd234985235094_ - _tl234984235096_) - (let ((_L235099_ _hd234985235094_) - (_L235100_ _hd234976235070_) - (_L235101_ _hd234967235046_) - (_L235102_ _hd234952235006_)) + (___kont126442126443_ + (lambda (_L122341_ _L122342_ _L122343_ _L122344_) '#t)) + (___kont126444126445_ (lambda () '#f))) + (let* ((___match126569126570_ + (lambda (_e122195122245_ + _hd122194122248_ + _tl122193122250_ + _e122198122253_ + _hd122197122256_ + _tl122196122258_ + _e122201122261_ + _hd122200122264_ + _tl122199122266_ + _e122204122269_ + _hd122203122272_ + _tl122202122274_ + _e122207122277_ + _hd122206122280_ + _tl122205122282_ + _e122210122285_ + _hd122209122288_ + _tl122208122290_ + _e122213122293_ + _hd122212122296_ + _tl122211122298_ + _e122216122301_ + _hd122215122304_ + _tl122214122306_ + _e122219122309_ + _hd122218122312_ + _tl122217122314_ + _e122222122317_ + _hd122221122320_ + _tl122220122322_ + _e122225122325_ + _hd122224122328_ + _tl122223122330_ + _e122228122333_ + _hd122227122336_ + _tl122226122338_) + (let ((_L122341_ _hd122227122336_) + (_L122342_ _hd122218122312_) + (_L122343_ _hd122209122288_) + (_L122344_ _hd122194122248_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L235102_)) + (gx#identifier? _L122344_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L235101_ 'apply)) + (gxc#runtime-identifier=? _L122343_ 'apply)) (let () (declare (not safe)) - (gx#free-identifier=? _L235102_ _L235099_)) - (let ((__tmp245132 + (gx#free-identifier=? _L122344_ _L122341_)) + (let ((__tmp127806 (let () (declare (not safe)) (gx#free-identifier=? - _L235100_ - _L235102_)))) + _L122342_ + _L122344_)))) (declare (not safe)) - (not __tmp245132))) - (___kont243768243769_ - _L235099_ - _L235100_ - _L235101_ - _L235102_) - (___kont243770243771_))))) - (___match243867243868_ - (lambda (_e234953235003_ - _hd234952235006_ - _tl234951235008_ - _e234956235011_ - _hd234955235014_ - _tl234954235016_ - _e234959235019_ - _hd234958235022_ - _tl234957235024_ - _e234962235027_ - _hd234961235030_ - _tl234960235032_ - _e234965235035_ - _hd234964235038_ - _tl234963235040_ - _e234968235043_ - _hd234967235046_ - _tl234966235048_ - _e234971235051_ - _hd234970235054_ - _tl234969235056_ - _e234974235059_ - _hd234973235062_ - _tl234972235064_ - _e234977235067_ - _hd234976235070_ - _tl234975235072_) + (not __tmp127806))) + (___kont126442126443_ + _L122341_ + _L122342_ + _L122343_ + _L122344_) + (___kont126444126445_))))) + (___match126541126542_ + (lambda (_e122195122245_ + _hd122194122248_ + _tl122193122250_ + _e122198122253_ + _hd122197122256_ + _tl122196122258_ + _e122201122261_ + _hd122200122264_ + _tl122199122266_ + _e122204122269_ + _hd122203122272_ + _tl122202122274_ + _e122207122277_ + _hd122206122280_ + _tl122205122282_ + _e122210122285_ + _hd122209122288_ + _tl122208122290_ + _e122213122293_ + _hd122212122296_ + _tl122211122298_ + _e122216122301_ + _hd122215122304_ + _tl122214122306_ + _e122219122309_ + _hd122218122312_ + _tl122217122314_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234969235056_)) - (let ((_e234980235075_ + (gx#stx-pair? _tl122211122298_)) + (let ((_e122222122317_ (let () (declare (not safe)) - (gx#stx-e _tl234969235056_)))) - (let ((_tl234978235080_ + (gx#stx-e _tl122211122298_)))) + (let ((_tl122220122322_ (let () (declare (not safe)) - (##cdr _e234980235075_))) - (_hd234979235078_ + (##cdr _e122222122317_))) + (_hd122221122320_ (let () (declare (not safe)) - (##car _e234980235075_)))) + (##car _e122222122317_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234979235078_)) - (let ((_e234983235083_ + (gx#stx-pair? _hd122221122320_)) + (let ((_e122225122325_ (let () (declare (not safe)) - (gx#stx-e _hd234979235078_)))) - (let ((_tl234981235088_ + (gx#stx-e _hd122221122320_)))) + (let ((_tl122223122330_ (let () (declare (not safe)) - (##cdr _e234983235083_))) - (_hd234982235086_ + (##cdr _e122225122325_))) + (_hd122224122328_ (let () (declare (not safe)) - (##car _e234983235083_)))) + (##car _e122225122325_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234982235086_)) + (gx#identifier? _hd122224122328_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd234982235086_)) + _hd122224122328_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234981235088_)) - (let ((_e234986235091_ + _tl122223122330_)) + (let ((_e122228122333_ (let () (declare (not safe)) (gx#stx-e - _tl234981235088_)))) - (let ((_tl234984235096_ + _tl122223122330_)))) + (let ((_tl122226122338_ (let () (declare (not safe)) - (##cdr _e234986235091_))) - (_hd234985235094_ + (##cdr _e122228122333_))) + (_hd122227122336_ (let () (declare (not safe)) - (##car _e234986235091_)))) + (##car _e122228122333_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234984235096_)) + _tl122226122338_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl234978235080_)) + (gx#stx-null? _tl122220122322_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl234954235016_)) - (___match243895243896_ - _e234953235003_ - _hd234952235006_ - _tl234951235008_ - _e234956235011_ - _hd234955235014_ - _tl234954235016_ - _e234959235019_ - _hd234958235022_ - _tl234957235024_ - _e234962235027_ - _hd234961235030_ - _tl234960235032_ - _e234965235035_ - _hd234964235038_ - _tl234963235040_ - _e234968235043_ - _hd234967235046_ - _tl234966235048_ - _e234971235051_ - _hd234970235054_ - _tl234969235056_ - _e234974235059_ - _hd234973235062_ - _tl234972235064_ - _e234977235067_ - _hd234976235070_ - _tl234975235072_ - _e234980235075_ - _hd234979235078_ - _tl234978235080_ - _e234983235083_ - _hd234982235086_ - _tl234981235088_ - _e234986235091_ - _hd234985235094_ - _tl234984235096_) - (___kont243770243771_)) - (___kont243770243771_)) - (___kont243770243771_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont243770243771_)) - (___kont243770243771_)) - (___kont243770243771_)))) - (___kont243770243771_)))) - (___kont243770243771_)))) - (___match243797243798_ - (lambda (_e234889235143_ - _hd234888235146_ - _tl234887235148_ - ___splice243764243765_ - _target234890235151_ - _tl234892235153_) - (letrec ((_loop234893235156_ - (lambda (_hd234891235159_ _arg234897235161_) + (gx#stx-null? _tl122196122258_)) + (___match126569126570_ + _e122195122245_ + _hd122194122248_ + _tl122193122250_ + _e122198122253_ + _hd122197122256_ + _tl122196122258_ + _e122201122261_ + _hd122200122264_ + _tl122199122266_ + _e122204122269_ + _hd122203122272_ + _tl122202122274_ + _e122207122277_ + _hd122206122280_ + _tl122205122282_ + _e122210122285_ + _hd122209122288_ + _tl122208122290_ + _e122213122293_ + _hd122212122296_ + _tl122211122298_ + _e122216122301_ + _hd122215122304_ + _tl122214122306_ + _e122219122309_ + _hd122218122312_ + _tl122217122314_ + _e122222122317_ + _hd122221122320_ + _tl122220122322_ + _e122225122325_ + _hd122224122328_ + _tl122223122330_ + _e122228122333_ + _hd122227122336_ + _tl122226122338_) + (___kont126444126445_)) + (___kont126444126445_)) + (___kont126444126445_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont126444126445_)) + (___kont126444126445_)) + (___kont126444126445_)))) + (___kont126444126445_)))) + (___kont126444126445_)))) + (___match126471126472_ + (lambda (_e122131122385_ + _hd122130122388_ + _tl122129122390_ + ___splice126438126439_ + _target122132122393_ + _tl122134122395_) + (letrec ((_loop122135122398_ + (lambda (_hd122133122401_ _arg122139122403_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234891235159_)) - (let ((_e234894235164_ + (gx#stx-pair? _hd122133122401_)) + (let ((_e122136122406_ (let () (declare (not safe)) - (gx#stx-e _hd234891235159_)))) - (let ((_lp-tl234896235169_ + (gx#stx-e _hd122133122401_)))) + (let ((_lp-tl122138122411_ (let () (declare (not safe)) - (##cdr _e234894235164_))) - (_lp-hd234895235167_ + (##cdr _e122136122406_))) + (_lp-hd122137122409_ (let () (declare (not safe)) - (##car _e234894235164_)))) - (let ((__tmp245147 + (##car _e122136122406_)))) + (let ((__tmp127821 (let () (declare (not safe)) - (cons _lp-hd234895235167_ - _arg234897235161_)))) + (cons _lp-hd122137122409_ + _arg122139122403_)))) (declare (not safe)) - (_loop234893235156_ - _lp-tl234896235169_ - __tmp245147)))) - (let ((_arg234898235172_ - (reverse _arg234897235161_))) + (_loop122135122398_ + _lp-tl122138122411_ + __tmp127821)))) + (let ((_arg122140122414_ + (reverse _arg122139122403_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234887235148_)) - (let ((_e234901235175_ + (gx#stx-pair? _tl122129122390_)) + (let ((_e122143122417_ (let () (declare (not safe)) (gx#stx-e - _tl234887235148_)))) - (let ((_tl234899235180_ + _tl122129122390_)))) + (let ((_tl122141122422_ (let () (declare (not safe)) - (##cdr _e234901235175_))) - (_hd234900235178_ + (##cdr _e122143122417_))) + (_hd122142122420_ (let () (declare (not safe)) - (##car _e234901235175_)))) + (##car _e122143122417_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd234900235178_)) - (let ((_e234904235183_ + _hd122142122420_)) + (let ((_e122146122425_ (let () (declare (not safe)) (gx#stx-e - _hd234900235178_)))) - (let ((_tl234902235188_ + _hd122142122420_)))) + (let ((_tl122144122430_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e234904235183_))) - (_hd234903235186_ - (let () (declare (not safe)) (##car _e234904235183_)))) + (##cdr _e122146122425_))) + (_hd122145122428_ + (let () (declare (not safe)) (##car _e122146122425_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234903235186_)) + (gx#identifier? _hd122145122428_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd234903235186_)) + (gx#stx-eq? '%#call _hd122145122428_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234902235188_)) - (let ((_e234907235191_ + (gx#stx-pair? _tl122144122430_)) + (let ((_e122149122433_ (let () (declare (not safe)) - (gx#stx-e _tl234902235188_)))) - (let ((_tl234905235196_ + (gx#stx-e _tl122144122430_)))) + (let ((_tl122147122438_ (let () (declare (not safe)) - (##cdr _e234907235191_))) - (_hd234906235194_ + (##cdr _e122149122433_))) + (_hd122148122436_ (let () (declare (not safe)) - (##car _e234907235191_)))) + (##car _e122149122433_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234906235194_)) - (let ((_e234910235199_ + (gx#stx-pair? _hd122148122436_)) + (let ((_e122152122441_ (let () (declare (not safe)) - (gx#stx-e _hd234906235194_)))) - (let ((_tl234908235204_ + (gx#stx-e _hd122148122436_)))) + (let ((_tl122150122446_ (let () (declare (not safe)) - (##cdr _e234910235199_))) - (_hd234909235202_ + (##cdr _e122152122441_))) + (_hd122151122444_ (let () (declare (not safe)) - (##car _e234910235199_)))) + (##car _e122152122441_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd234909235202_)) + _hd122151122444_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd234909235202_)) + _hd122151122444_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234908235204_)) - (let ((_e234913235207_ + _tl122150122446_)) + (let ((_e122155122449_ (let () (declare (not safe)) (gx#stx-e - _tl234908235204_)))) - (let ((_tl234911235212_ + _tl122150122446_)))) + (let ((_tl122153122454_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e234913235207_))) - (_hd234912235210_ - (let () (declare (not safe)) (##car _e234913235207_)))) + (##cdr _e122155122449_))) + (_hd122154122452_ + (let () (declare (not safe)) (##car _e122155122449_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234911235212_)) + (gx#stx-null? _tl122153122454_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234905235196_)) - (let ((_e234916235215_ + (gx#stx-pair? _tl122147122438_)) + (let ((_e122158122457_ (let () (declare (not safe)) - (gx#stx-e _tl234905235196_)))) - (let ((_tl234914235220_ + (gx#stx-e _tl122147122438_)))) + (let ((_tl122156122462_ (let () (declare (not safe)) - (##cdr _e234916235215_))) - (_hd234915235218_ + (##cdr _e122158122457_))) + (_hd122157122460_ (let () (declare (not safe)) - (##car _e234916235215_)))) + (##car _e122158122457_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234915235218_)) - (let ((_e234919235223_ + (gx#stx-pair? _hd122157122460_)) + (let ((_e122161122465_ (let () (declare (not safe)) - (gx#stx-e _hd234915235218_)))) - (let ((_tl234917235228_ + (gx#stx-e _hd122157122460_)))) + (let ((_tl122159122470_ (let () (declare (not safe)) - (##cdr _e234919235223_))) - (_hd234918235226_ + (##cdr _e122161122465_))) + (_hd122160122468_ (let () (declare (not safe)) - (##car _e234919235223_)))) + (##car _e122161122465_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234918235226_)) + (gx#identifier? _hd122160122468_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd234918235226_)) + _hd122160122468_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234917235228_)) - (let ((_e234922235231_ + _tl122159122470_)) + (let ((_e122164122473_ (let () (declare (not safe)) (gx#stx-e - _tl234917235228_)))) - (let ((_tl234920235236_ + _tl122159122470_)))) + (let ((_tl122162122478_ (let () (declare (not safe)) - (##cdr _e234922235231_))) - (_hd234921235234_ + (##cdr _e122164122473_))) + (_hd122163122476_ (let () (declare (not safe)) - (##car _e234922235231_)))) + (##car _e122164122473_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234920235236_)) + _tl122162122478_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl234914235220_)) + _tl122156122462_)) (if (fx>= (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-length _tl234914235220_)) + (gx#stx-length _tl122156122462_)) '1) - (let ((___splice243766243767_ + (let ((___splice126440126441_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl234914235220_ + _tl122156122462_ '1)))) - (let ((_tl234925235241_ + (let ((_tl122167122483_ (let () (declare (not safe)) - (##vector-ref ___splice243766243767_ '1))) - (_target234923235239_ + (##vector-ref ___splice126440126441_ '1))) + (_target122165122481_ (let () (declare (not safe)) - (##vector-ref ___splice243766243767_ '0)))) + (##vector-ref ___splice126440126441_ '0)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234925235241_)) - (let ((_e234934235244_ + (gx#stx-pair? _tl122167122483_)) + (let ((_e122176122486_ (let () (declare (not safe)) - (gx#stx-e _tl234925235241_)))) - (let ((_tl234932235249_ + (gx#stx-e _tl122167122483_)))) + (let ((_tl122174122491_ (let () (declare (not safe)) - (##cdr _e234934235244_))) - (_hd234933235247_ + (##cdr _e122176122486_))) + (_hd122175122489_ (let () (declare (not safe)) - (##car _e234934235244_)))) + (##car _e122176122486_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234933235247_)) - (let ((_e234937235252_ + (gx#stx-pair? _hd122175122489_)) + (let ((_e122179122494_ (let () (declare (not safe)) - (gx#stx-e _hd234933235247_)))) - (let ((_tl234935235257_ + (gx#stx-e _hd122175122489_)))) + (let ((_tl122177122499_ (let () (declare (not safe)) - (##cdr _e234937235252_))) - (_hd234936235255_ + (##cdr _e122179122494_))) + (_hd122178122497_ (let () (declare (not safe)) - (##car _e234937235252_)))) + (##car _e122179122494_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd234936235255_)) + _hd122178122497_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd234936235255_)) + _hd122178122497_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234935235257_)) - (let ((_e234940235260_ + _tl122177122499_)) + (let ((_e122182122502_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl234935235257_)))) - (let ((_tl234938235265_ - (let () (declare (not safe)) (##cdr _e234940235260_))) - (_hd234939235263_ + (gx#stx-e _tl122177122499_)))) + (let ((_tl122180122507_ + (let () (declare (not safe)) (##cdr _e122182122502_))) + (_hd122181122505_ (let () (declare (not safe)) - (##car _e234940235260_)))) + (##car _e122182122502_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234938235265_)) + (gx#stx-null? _tl122180122507_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl234932235249_)) - (letrec ((_loop234926235268_ - (lambda (_hd234924235271_ - _xarg234930235273_) + (gx#stx-null? _tl122174122491_)) + (letrec ((_loop122168122510_ + (lambda (_hd122166122513_ + _xarg122172122515_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234924235271_)) - (let ((_e234927235276_ + (gx#stx-pair? _hd122166122513_)) + (let ((_e122169122518_ (let () (declare (not safe)) (gx#stx-e - _hd234924235271_)))) - (let ((_lp-tl234929235281_ + _hd122166122513_)))) + (let ((_lp-tl122171122523_ (let () (declare (not safe)) - (##cdr _e234927235276_))) - (_lp-hd234928235279_ + (##cdr _e122169122518_))) + (_lp-hd122170122521_ (let () (declare (not safe)) - (##car _e234927235276_)))) + (##car _e122169122518_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd234928235279_)) - (let ((_e234943235284_ + _lp-hd122170122521_)) + (let ((_e122185122526_ (let () (declare (not safe)) (gx#stx-e - _lp-hd234928235279_)))) - (let ((_tl234941235289_ + _lp-hd122170122521_)))) + (let ((_tl122183122531_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e234943235284_))) - (_hd234942235287_ - (let () (declare (not safe)) (##car _e234943235284_)))) + (##cdr _e122185122526_))) + (_hd122184122529_ + (let () (declare (not safe)) (##car _e122185122526_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234942235287_)) + (gx#identifier? _hd122184122529_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd234942235287_)) + (gx#stx-eq? '%#ref _hd122184122529_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234941235289_)) - (let ((_e234946235292_ + (gx#stx-pair? _tl122183122531_)) + (let ((_e122188122534_ (let () (declare (not safe)) - (gx#stx-e _tl234941235289_)))) - (let ((_tl234944235297_ + (gx#stx-e _tl122183122531_)))) + (let ((_tl122186122539_ (let () (declare (not safe)) - (##cdr _e234946235292_))) - (_hd234945235295_ + (##cdr _e122188122534_))) + (_hd122187122537_ (let () (declare (not safe)) - (##car _e234946235292_)))) + (##car _e122188122534_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234944235297_)) - (let ((__tmp245146 + (gx#stx-null? _tl122186122539_)) + (let ((__tmp127820 (let () (declare (not safe)) - (cons _hd234945235295_ - _xarg234930235273_)))) + (cons _hd122187122537_ + _xarg122172122515_)))) (declare (not safe)) - (_loop234926235268_ - _lp-tl234929235281_ - __tmp245146)) - (___match243867243868_ - _e234889235143_ - _hd234888235146_ - _tl234887235148_ - _e234901235175_ - _hd234900235178_ - _tl234899235180_ - _e234904235183_ - _hd234903235186_ - _tl234902235188_ - _e234907235191_ - _hd234906235194_ - _tl234905235196_ - _e234910235199_ - _hd234909235202_ - _tl234908235204_ - _e234913235207_ - _hd234912235210_ - _tl234911235212_ - _e234916235215_ - _hd234915235218_ - _tl234914235220_ - _e234919235223_ - _hd234918235226_ - _tl234917235228_ - _e234922235231_ - _hd234921235234_ - _tl234920235236_)))) - (___match243867243868_ - _e234889235143_ - _hd234888235146_ - _tl234887235148_ - _e234901235175_ - _hd234900235178_ - _tl234899235180_ - _e234904235183_ - _hd234903235186_ - _tl234902235188_ - _e234907235191_ - _hd234906235194_ - _tl234905235196_ - _e234910235199_ - _hd234909235202_ - _tl234908235204_ - _e234913235207_ - _hd234912235210_ - _tl234911235212_ - _e234916235215_ - _hd234915235218_ - _tl234914235220_ - _e234919235223_ - _hd234918235226_ - _tl234917235228_ - _e234922235231_ - _hd234921235234_ - _tl234920235236_)) - (___match243867243868_ - _e234889235143_ - _hd234888235146_ - _tl234887235148_ - _e234901235175_ - _hd234900235178_ - _tl234899235180_ - _e234904235183_ - _hd234903235186_ - _tl234902235188_ - _e234907235191_ - _hd234906235194_ - _tl234905235196_ - _e234910235199_ - _hd234909235202_ - _tl234908235204_ - _e234913235207_ - _hd234912235210_ - _tl234911235212_ - _e234916235215_ - _hd234915235218_ - _tl234914235220_ - _e234919235223_ - _hd234918235226_ - _tl234917235228_ - _e234922235231_ - _hd234921235234_ - _tl234920235236_)) - (___match243867243868_ - _e234889235143_ - _hd234888235146_ - _tl234887235148_ - _e234901235175_ - _hd234900235178_ - _tl234899235180_ - _e234904235183_ - _hd234903235186_ - _tl234902235188_ - _e234907235191_ - _hd234906235194_ - _tl234905235196_ - _e234910235199_ - _hd234909235202_ - _tl234908235204_ - _e234913235207_ - _hd234912235210_ - _tl234911235212_ - _e234916235215_ - _hd234915235218_ - _tl234914235220_ - _e234919235223_ - _hd234918235226_ - _tl234917235228_ - _e234922235231_ - _hd234921235234_ - _tl234920235236_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match243867243868_ - _e234889235143_ - _hd234888235146_ - _tl234887235148_ - _e234901235175_ - _hd234900235178_ - _tl234899235180_ - _e234904235183_ - _hd234903235186_ - _tl234902235188_ - _e234907235191_ - _hd234906235194_ - _tl234905235196_ - _e234910235199_ - _hd234909235202_ - _tl234908235204_ - _e234913235207_ - _hd234912235210_ - _tl234911235212_ - _e234916235215_ - _hd234915235218_ - _tl234914235220_ - _e234919235223_ - _hd234918235226_ - _tl234917235228_ - _e234922235231_ - _hd234921235234_ - _tl234920235236_)))) - (let ((_xarg234931235300_ - (reverse _xarg234930235273_))) + (_loop122168122510_ + _lp-tl122171122523_ + __tmp127820)) + (___match126541126542_ + _e122131122385_ + _hd122130122388_ + _tl122129122390_ + _e122143122417_ + _hd122142122420_ + _tl122141122422_ + _e122146122425_ + _hd122145122428_ + _tl122144122430_ + _e122149122433_ + _hd122148122436_ + _tl122147122438_ + _e122152122441_ + _hd122151122444_ + _tl122150122446_ + _e122155122449_ + _hd122154122452_ + _tl122153122454_ + _e122158122457_ + _hd122157122460_ + _tl122156122462_ + _e122161122465_ + _hd122160122468_ + _tl122159122470_ + _e122164122473_ + _hd122163122476_ + _tl122162122478_)))) + (___match126541126542_ + _e122131122385_ + _hd122130122388_ + _tl122129122390_ + _e122143122417_ + _hd122142122420_ + _tl122141122422_ + _e122146122425_ + _hd122145122428_ + _tl122144122430_ + _e122149122433_ + _hd122148122436_ + _tl122147122438_ + _e122152122441_ + _hd122151122444_ + _tl122150122446_ + _e122155122449_ + _hd122154122452_ + _tl122153122454_ + _e122158122457_ + _hd122157122460_ + _tl122156122462_ + _e122161122465_ + _hd122160122468_ + _tl122159122470_ + _e122164122473_ + _hd122163122476_ + _tl122162122478_)) + (___match126541126542_ + _e122131122385_ + _hd122130122388_ + _tl122129122390_ + _e122143122417_ + _hd122142122420_ + _tl122141122422_ + _e122146122425_ + _hd122145122428_ + _tl122144122430_ + _e122149122433_ + _hd122148122436_ + _tl122147122438_ + _e122152122441_ + _hd122151122444_ + _tl122150122446_ + _e122155122449_ + _hd122154122452_ + _tl122153122454_ + _e122158122457_ + _hd122157122460_ + _tl122156122462_ + _e122161122465_ + _hd122160122468_ + _tl122159122470_ + _e122164122473_ + _hd122163122476_ + _tl122162122478_)) + (___match126541126542_ + _e122131122385_ + _hd122130122388_ + _tl122129122390_ + _e122143122417_ + _hd122142122420_ + _tl122141122422_ + _e122146122425_ + _hd122145122428_ + _tl122144122430_ + _e122149122433_ + _hd122148122436_ + _tl122147122438_ + _e122152122441_ + _hd122151122444_ + _tl122150122446_ + _e122155122449_ + _hd122154122452_ + _tl122153122454_ + _e122158122457_ + _hd122157122460_ + _tl122156122462_ + _e122161122465_ + _hd122160122468_ + _tl122159122470_ + _e122164122473_ + _hd122163122476_ + _tl122162122478_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match126541126542_ + _e122131122385_ + _hd122130122388_ + _tl122129122390_ + _e122143122417_ + _hd122142122420_ + _tl122141122422_ + _e122146122425_ + _hd122145122428_ + _tl122144122430_ + _e122149122433_ + _hd122148122436_ + _tl122147122438_ + _e122152122441_ + _hd122151122444_ + _tl122150122446_ + _e122155122449_ + _hd122154122452_ + _tl122153122454_ + _e122158122457_ + _hd122157122460_ + _tl122156122462_ + _e122161122465_ + _hd122160122468_ + _tl122159122470_ + _e122164122473_ + _hd122163122476_ + _tl122162122478_)))) + (let ((_xarg122173122542_ + (reverse _xarg122172122515_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234899235180_)) - (let ((_L235303_ - _hd234939235263_) - (_L235304_ - _xarg234931235300_) - (_L235305_ - _hd234921235234_) - (_L235306_ - _hd234912235210_) - (_L235307_ - _tl234892235153_) - (_L235308_ - _arg234898235172_)) - (if (and (let ((__tmp245144 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp245145 - (lambda (_g235351235354_ _g235352235356_) + _tl122141122422_)) + (let ((_L122545_ + _hd122181122505_) + (_L122546_ + _xarg122173122542_) + (_L122547_ + _hd122163122476_) + (_L122548_ + _hd122154122452_) + (_L122549_ + _tl122134122395_) + (_L122550_ + _arg122140122414_)) + (if (and (let ((__tmp127818 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp127819 + (lambda (_g122593122596_ _g122594122598_) (let () (declare (not safe)) - (cons _g235351235354_ - _g235352235356_))))) + (cons _g122593122596_ + _g122594122598_))))) (declare (not safe)) - (foldr1 __tmp245145 '() _L235308_)))) + (foldr1 __tmp127819 '() _L122550_)))) (declare (not safe)) - (gx#identifier-list? __tmp245144)) - (let () (declare (not safe)) (gx#identifier? _L235307_)) + (gx#identifier-list? __tmp127818)) + (let () (declare (not safe)) (gx#identifier? _L122549_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L235306_ 'apply)) - (fx= (length (let ((__tmp245142 - (lambda (_g235358235361_ - _g235359235363_) + (gxc#runtime-identifier=? _L122548_ 'apply)) + (fx= (length (let ((__tmp127816 + (lambda (_g122600122603_ + _g122601122605_) (let () (declare (not safe)) - (cons _g235358235361_ - _g235359235363_))))) + (cons _g122600122603_ + _g122601122605_))))) (declare (not safe)) - (foldr1 __tmp245142 '() _L235308_))) - (length (let ((__tmp245143 - (lambda (_g235365235368_ - _g235366235370_) + (foldr1 __tmp127816 '() _L122550_))) + (length (let ((__tmp127817 + (lambda (_g122607122610_ + _g122608122612_) (let () (declare (not safe)) - (cons _g235365235368_ - _g235366235370_))))) + (cons _g122607122610_ + _g122608122612_))))) (declare (not safe)) - (foldr1 __tmp245143 '() _L235304_)))) - (let ((__tmp245140 - (let ((__tmp245141 - (lambda (_g235372235375_ _g235373235377_) + (foldr1 __tmp127817 '() _L122546_)))) + (let ((__tmp127814 + (let ((__tmp127815 + (lambda (_g122614122617_ _g122615122619_) (let () (declare (not safe)) - (cons _g235372235375_ - _g235373235377_))))) + (cons _g122614122617_ + _g122615122619_))))) (declare (not safe)) - (foldr1 __tmp245141 '() _L235308_))) - (__tmp245138 - (let ((__tmp245139 - (lambda (_g235379235382_ _g235380235384_) + (foldr1 __tmp127815 '() _L122550_))) + (__tmp127812 + (let ((__tmp127813 + (lambda (_g122621122624_ _g122622122626_) (let () (declare (not safe)) - (cons _g235379235382_ - _g235380235384_))))) + (cons _g122621122624_ + _g122622122626_))))) (declare (not safe)) - (foldr1 __tmp245139 '() _L235304_)))) + (foldr1 __tmp127813 '() _L122546_)))) (declare (not safe)) - (andmap2 gx#free-identifier=? __tmp245140 __tmp245138)) + (andmap2 gx#free-identifier=? __tmp127814 __tmp127812)) (let () (declare (not safe)) - (gx#free-identifier=? _L235307_ _L235303_)) - (let ((__tmp245133 - (let ((__tmp245137 - (lambda (_g235386235388_) + (gx#free-identifier=? _L122549_ _L122545_)) + (let ((__tmp127807 + (let ((__tmp127811 + (lambda (_g122628122630_) (let () (declare (not safe)) (gx#free-identifier=? - _g235386235388_ - _L235305_)))) - (__tmp245134 - (let ((__tmp245136 - (lambda (_g235390235393_ - _g235391235395_) + _g122628122630_ + _L122547_)))) + (__tmp127808 + (let ((__tmp127810 + (lambda (_g122632122635_ + _g122633122637_) (let () (declare (not safe)) - (cons _g235390235393_ - _g235391235395_)))) - (__tmp245135 + (cons _g122632122635_ + _g122633122637_)))) + (__tmp127809 (let () (declare (not safe)) - (cons _L235307_ '())))) + (cons _L122549_ '())))) (declare (not safe)) - (foldr1 __tmp245136 - __tmp245135 - _L235308_)))) + (foldr1 __tmp127810 + __tmp127809 + _L122550_)))) (declare (not safe)) - (find __tmp245137 __tmp245134)))) + (find __tmp127811 __tmp127808)))) (declare (not safe)) - (not __tmp245133))) - (___kont243762243763_ - _L235303_ - _L235304_ - _L235305_ - _L235306_ - _L235307_ - _L235308_) - (___match243867243868_ - _e234889235143_ - _hd234888235146_ - _tl234887235148_ - _e234901235175_ - _hd234900235178_ - _tl234899235180_ - _e234904235183_ - _hd234903235186_ - _tl234902235188_ - _e234907235191_ - _hd234906235194_ - _tl234905235196_ - _e234910235199_ - _hd234909235202_ - _tl234908235204_ - _e234913235207_ - _hd234912235210_ - _tl234911235212_ - _e234916235215_ - _hd234915235218_ - _tl234914235220_ - _e234919235223_ - _hd234918235226_ - _tl234917235228_ - _e234922235231_ - _hd234921235234_ - _tl234920235236_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match243867243868_ - _e234889235143_ - _hd234888235146_ - _tl234887235148_ - _e234901235175_ - _hd234900235178_ - _tl234899235180_ - _e234904235183_ - _hd234903235186_ - _tl234902235188_ - _e234907235191_ - _hd234906235194_ - _tl234905235196_ - _e234910235199_ - _hd234909235202_ - _tl234908235204_ - _e234913235207_ - _hd234912235210_ - _tl234911235212_ - _e234916235215_ - _hd234915235218_ - _tl234914235220_ - _e234919235223_ - _hd234918235226_ - _tl234917235228_ - _e234922235231_ - _hd234921235234_ - _tl234920235236_))))))) + (not __tmp127807))) + (___kont126436126437_ + _L122545_ + _L122546_ + _L122547_ + _L122548_ + _L122549_ + _L122550_) + (___match126541126542_ + _e122131122385_ + _hd122130122388_ + _tl122129122390_ + _e122143122417_ + _hd122142122420_ + _tl122141122422_ + _e122146122425_ + _hd122145122428_ + _tl122144122430_ + _e122149122433_ + _hd122148122436_ + _tl122147122438_ + _e122152122441_ + _hd122151122444_ + _tl122150122446_ + _e122155122449_ + _hd122154122452_ + _tl122153122454_ + _e122158122457_ + _hd122157122460_ + _tl122156122462_ + _e122161122465_ + _hd122160122468_ + _tl122159122470_ + _e122164122473_ + _hd122163122476_ + _tl122162122478_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match126541126542_ + _e122131122385_ + _hd122130122388_ + _tl122129122390_ + _e122143122417_ + _hd122142122420_ + _tl122141122422_ + _e122146122425_ + _hd122145122428_ + _tl122144122430_ + _e122149122433_ + _hd122148122436_ + _tl122147122438_ + _e122152122441_ + _hd122151122444_ + _tl122150122446_ + _e122155122449_ + _hd122154122452_ + _tl122153122454_ + _e122158122457_ + _hd122157122460_ + _tl122156122462_ + _e122161122465_ + _hd122160122468_ + _tl122159122470_ + _e122164122473_ + _hd122163122476_ + _tl122162122478_))))))) (let () (declare (not safe)) - (_loop234926235268_ _target234923235239_ '()))) - (___match243867243868_ - _e234889235143_ - _hd234888235146_ - _tl234887235148_ - _e234901235175_ - _hd234900235178_ - _tl234899235180_ - _e234904235183_ - _hd234903235186_ - _tl234902235188_ - _e234907235191_ - _hd234906235194_ - _tl234905235196_ - _e234910235199_ - _hd234909235202_ - _tl234908235204_ - _e234913235207_ - _hd234912235210_ - _tl234911235212_ - _e234916235215_ - _hd234915235218_ - _tl234914235220_ - _e234919235223_ - _hd234918235226_ - _tl234917235228_ - _e234922235231_ - _hd234921235234_ - _tl234920235236_)) - (___match243867243868_ - _e234889235143_ - _hd234888235146_ - _tl234887235148_ - _e234901235175_ - _hd234900235178_ - _tl234899235180_ - _e234904235183_ - _hd234903235186_ - _tl234902235188_ - _e234907235191_ - _hd234906235194_ - _tl234905235196_ - _e234910235199_ - _hd234909235202_ - _tl234908235204_ - _e234913235207_ - _hd234912235210_ - _tl234911235212_ - _e234916235215_ - _hd234915235218_ - _tl234914235220_ - _e234919235223_ - _hd234918235226_ - _tl234917235228_ - _e234922235231_ - _hd234921235234_ - _tl234920235236_)))) - (___match243867243868_ - _e234889235143_ - _hd234888235146_ - _tl234887235148_ - _e234901235175_ - _hd234900235178_ - _tl234899235180_ - _e234904235183_ - _hd234903235186_ - _tl234902235188_ - _e234907235191_ - _hd234906235194_ - _tl234905235196_ - _e234910235199_ - _hd234909235202_ - _tl234908235204_ - _e234913235207_ - _hd234912235210_ - _tl234911235212_ - _e234916235215_ - _hd234915235218_ - _tl234914235220_ - _e234919235223_ - _hd234918235226_ - _tl234917235228_ - _e234922235231_ - _hd234921235234_ - _tl234920235236_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match243867243868_ - _e234889235143_ - _hd234888235146_ - _tl234887235148_ - _e234901235175_ - _hd234900235178_ - _tl234899235180_ - _e234904235183_ - _hd234903235186_ - _tl234902235188_ - _e234907235191_ - _hd234906235194_ - _tl234905235196_ - _e234910235199_ - _hd234909235202_ - _tl234908235204_ - _e234913235207_ - _hd234912235210_ - _tl234911235212_ - _e234916235215_ - _hd234915235218_ - _tl234914235220_ - _e234919235223_ - _hd234918235226_ - _tl234917235228_ - _e234922235231_ - _hd234921235234_ - _tl234920235236_)) - (___match243867243868_ - _e234889235143_ - _hd234888235146_ - _tl234887235148_ - _e234901235175_ - _hd234900235178_ - _tl234899235180_ - _e234904235183_ - _hd234903235186_ - _tl234902235188_ - _e234907235191_ - _hd234906235194_ - _tl234905235196_ - _e234910235199_ - _hd234909235202_ - _tl234908235204_ - _e234913235207_ - _hd234912235210_ - _tl234911235212_ - _e234916235215_ - _hd234915235218_ - _tl234914235220_ - _e234919235223_ - _hd234918235226_ - _tl234917235228_ - _e234922235231_ - _hd234921235234_ - _tl234920235236_)))) - (___match243867243868_ - _e234889235143_ - _hd234888235146_ - _tl234887235148_ - _e234901235175_ - _hd234900235178_ - _tl234899235180_ - _e234904235183_ - _hd234903235186_ - _tl234902235188_ - _e234907235191_ - _hd234906235194_ - _tl234905235196_ - _e234910235199_ - _hd234909235202_ - _tl234908235204_ - _e234913235207_ - _hd234912235210_ - _tl234911235212_ - _e234916235215_ - _hd234915235218_ - _tl234914235220_ - _e234919235223_ - _hd234918235226_ - _tl234917235228_ - _e234922235231_ - _hd234921235234_ - _tl234920235236_)))) - (___match243867243868_ - _e234889235143_ - _hd234888235146_ - _tl234887235148_ - _e234901235175_ - _hd234900235178_ - _tl234899235180_ - _e234904235183_ - _hd234903235186_ - _tl234902235188_ - _e234907235191_ - _hd234906235194_ - _tl234905235196_ - _e234910235199_ - _hd234909235202_ - _tl234908235204_ - _e234913235207_ - _hd234912235210_ - _tl234911235212_ - _e234916235215_ - _hd234915235218_ - _tl234914235220_ - _e234919235223_ - _hd234918235226_ - _tl234917235228_ - _e234922235231_ - _hd234921235234_ - _tl234920235236_)))) - (___match243867243868_ - _e234889235143_ - _hd234888235146_ - _tl234887235148_ - _e234901235175_ - _hd234900235178_ - _tl234899235180_ - _e234904235183_ - _hd234903235186_ - _tl234902235188_ - _e234907235191_ - _hd234906235194_ - _tl234905235196_ - _e234910235199_ - _hd234909235202_ - _tl234908235204_ - _e234913235207_ - _hd234912235210_ - _tl234911235212_ - _e234916235215_ - _hd234915235218_ - _tl234914235220_ - _e234919235223_ - _hd234918235226_ - _tl234917235228_ - _e234922235231_ - _hd234921235234_ - _tl234920235236_)) - (___match243867243868_ - _e234889235143_ - _hd234888235146_ - _tl234887235148_ - _e234901235175_ - _hd234900235178_ - _tl234899235180_ - _e234904235183_ - _hd234903235186_ - _tl234902235188_ - _e234907235191_ - _hd234906235194_ - _tl234905235196_ - _e234910235199_ - _hd234909235202_ - _tl234908235204_ - _e234913235207_ - _hd234912235210_ - _tl234911235212_ - _e234916235215_ - _hd234915235218_ - _tl234914235220_ - _e234919235223_ - _hd234918235226_ - _tl234917235228_ - _e234922235231_ - _hd234921235234_ - _tl234920235236_)) - (___kont243770243771_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont243770243771_)) - (___kont243770243771_)) - (___kont243770243771_)))) - (___kont243770243771_)))) - (___kont243770243771_)) - (___kont243770243771_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont243770243771_)) - (___kont243770243771_)) - (___kont243770243771_)))) - (___kont243770243771_)))) - (___kont243770243771_)) - (___kont243770243771_)) - (___kont243770243771_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont243770243771_)))) - (___kont243770243771_))))))) + (_loop122168122510_ _target122165122481_ '()))) + (___match126541126542_ + _e122131122385_ + _hd122130122388_ + _tl122129122390_ + _e122143122417_ + _hd122142122420_ + _tl122141122422_ + _e122146122425_ + _hd122145122428_ + _tl122144122430_ + _e122149122433_ + _hd122148122436_ + _tl122147122438_ + _e122152122441_ + _hd122151122444_ + _tl122150122446_ + _e122155122449_ + _hd122154122452_ + _tl122153122454_ + _e122158122457_ + _hd122157122460_ + _tl122156122462_ + _e122161122465_ + _hd122160122468_ + _tl122159122470_ + _e122164122473_ + _hd122163122476_ + _tl122162122478_)) + (___match126541126542_ + _e122131122385_ + _hd122130122388_ + _tl122129122390_ + _e122143122417_ + _hd122142122420_ + _tl122141122422_ + _e122146122425_ + _hd122145122428_ + _tl122144122430_ + _e122149122433_ + _hd122148122436_ + _tl122147122438_ + _e122152122441_ + _hd122151122444_ + _tl122150122446_ + _e122155122449_ + _hd122154122452_ + _tl122153122454_ + _e122158122457_ + _hd122157122460_ + _tl122156122462_ + _e122161122465_ + _hd122160122468_ + _tl122159122470_ + _e122164122473_ + _hd122163122476_ + _tl122162122478_)))) + (___match126541126542_ + _e122131122385_ + _hd122130122388_ + _tl122129122390_ + _e122143122417_ + _hd122142122420_ + _tl122141122422_ + _e122146122425_ + _hd122145122428_ + _tl122144122430_ + _e122149122433_ + _hd122148122436_ + _tl122147122438_ + _e122152122441_ + _hd122151122444_ + _tl122150122446_ + _e122155122449_ + _hd122154122452_ + _tl122153122454_ + _e122158122457_ + _hd122157122460_ + _tl122156122462_ + _e122161122465_ + _hd122160122468_ + _tl122159122470_ + _e122164122473_ + _hd122163122476_ + _tl122162122478_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match126541126542_ + _e122131122385_ + _hd122130122388_ + _tl122129122390_ + _e122143122417_ + _hd122142122420_ + _tl122141122422_ + _e122146122425_ + _hd122145122428_ + _tl122144122430_ + _e122149122433_ + _hd122148122436_ + _tl122147122438_ + _e122152122441_ + _hd122151122444_ + _tl122150122446_ + _e122155122449_ + _hd122154122452_ + _tl122153122454_ + _e122158122457_ + _hd122157122460_ + _tl122156122462_ + _e122161122465_ + _hd122160122468_ + _tl122159122470_ + _e122164122473_ + _hd122163122476_ + _tl122162122478_)) + (___match126541126542_ + _e122131122385_ + _hd122130122388_ + _tl122129122390_ + _e122143122417_ + _hd122142122420_ + _tl122141122422_ + _e122146122425_ + _hd122145122428_ + _tl122144122430_ + _e122149122433_ + _hd122148122436_ + _tl122147122438_ + _e122152122441_ + _hd122151122444_ + _tl122150122446_ + _e122155122449_ + _hd122154122452_ + _tl122153122454_ + _e122158122457_ + _hd122157122460_ + _tl122156122462_ + _e122161122465_ + _hd122160122468_ + _tl122159122470_ + _e122164122473_ + _hd122163122476_ + _tl122162122478_)))) + (___match126541126542_ + _e122131122385_ + _hd122130122388_ + _tl122129122390_ + _e122143122417_ + _hd122142122420_ + _tl122141122422_ + _e122146122425_ + _hd122145122428_ + _tl122144122430_ + _e122149122433_ + _hd122148122436_ + _tl122147122438_ + _e122152122441_ + _hd122151122444_ + _tl122150122446_ + _e122155122449_ + _hd122154122452_ + _tl122153122454_ + _e122158122457_ + _hd122157122460_ + _tl122156122462_ + _e122161122465_ + _hd122160122468_ + _tl122159122470_ + _e122164122473_ + _hd122163122476_ + _tl122162122478_)))) + (___match126541126542_ + _e122131122385_ + _hd122130122388_ + _tl122129122390_ + _e122143122417_ + _hd122142122420_ + _tl122141122422_ + _e122146122425_ + _hd122145122428_ + _tl122144122430_ + _e122149122433_ + _hd122148122436_ + _tl122147122438_ + _e122152122441_ + _hd122151122444_ + _tl122150122446_ + _e122155122449_ + _hd122154122452_ + _tl122153122454_ + _e122158122457_ + _hd122157122460_ + _tl122156122462_ + _e122161122465_ + _hd122160122468_ + _tl122159122470_ + _e122164122473_ + _hd122163122476_ + _tl122162122478_)))) + (___match126541126542_ + _e122131122385_ + _hd122130122388_ + _tl122129122390_ + _e122143122417_ + _hd122142122420_ + _tl122141122422_ + _e122146122425_ + _hd122145122428_ + _tl122144122430_ + _e122149122433_ + _hd122148122436_ + _tl122147122438_ + _e122152122441_ + _hd122151122444_ + _tl122150122446_ + _e122155122449_ + _hd122154122452_ + _tl122153122454_ + _e122158122457_ + _hd122157122460_ + _tl122156122462_ + _e122161122465_ + _hd122160122468_ + _tl122159122470_ + _e122164122473_ + _hd122163122476_ + _tl122162122478_)) + (___match126541126542_ + _e122131122385_ + _hd122130122388_ + _tl122129122390_ + _e122143122417_ + _hd122142122420_ + _tl122141122422_ + _e122146122425_ + _hd122145122428_ + _tl122144122430_ + _e122149122433_ + _hd122148122436_ + _tl122147122438_ + _e122152122441_ + _hd122151122444_ + _tl122150122446_ + _e122155122449_ + _hd122154122452_ + _tl122153122454_ + _e122158122457_ + _hd122157122460_ + _tl122156122462_ + _e122161122465_ + _hd122160122468_ + _tl122159122470_ + _e122164122473_ + _hd122163122476_ + _tl122162122478_)) + (___kont126444126445_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont126444126445_)) + (___kont126444126445_)) + (___kont126444126445_)))) + (___kont126444126445_)))) + (___kont126444126445_)) + (___kont126444126445_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont126444126445_)) + (___kont126444126445_)) + (___kont126444126445_)))) + (___kont126444126445_)))) + (___kont126444126445_)) + (___kont126444126445_)) + (___kont126444126445_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont126444126445_)))) + (___kont126444126445_))))))) (let () (declare (not safe)) - (_loop234893235156_ _target234890235151_ '()))))) - (___match243785243786_ - (lambda (_e234841235403_ - _hd234840235406_ - _tl234839235408_ - ___splice243758243759_ - _target234842235411_ - _tl234844235413_) - (letrec ((_loop234845235416_ - (lambda (_hd234843235419_ _arg234849235421_) + (_loop122135122398_ _target122132122393_ '()))))) + (___match126459126460_ + (lambda (_e122083122645_ + _hd122082122648_ + _tl122081122650_ + ___splice126432126433_ + _target122084122653_ + _tl122086122655_) + (letrec ((_loop122087122658_ + (lambda (_hd122085122661_ _arg122091122663_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234843235419_)) - (let ((_e234846235424_ + (gx#stx-pair? _hd122085122661_)) + (let ((_e122088122666_ (let () (declare (not safe)) - (gx#stx-e _hd234843235419_)))) - (let ((_lp-tl234848235429_ + (gx#stx-e _hd122085122661_)))) + (let ((_lp-tl122090122671_ (let () (declare (not safe)) - (##cdr _e234846235424_))) - (_lp-hd234847235427_ + (##cdr _e122088122666_))) + (_lp-hd122089122669_ (let () (declare (not safe)) - (##car _e234846235424_)))) - (let ((__tmp245161 + (##car _e122088122666_)))) + (let ((__tmp127835 (let () (declare (not safe)) - (cons _lp-hd234847235427_ - _arg234849235421_)))) + (cons _lp-hd122089122669_ + _arg122091122663_)))) (declare (not safe)) - (_loop234845235416_ - _lp-tl234848235429_ - __tmp245161)))) - (let ((_arg234850235432_ - (reverse _arg234849235421_))) + (_loop122087122658_ + _lp-tl122090122671_ + __tmp127835)))) + (let ((_arg122092122674_ + (reverse _arg122091122663_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234839235408_)) - (let ((_e234853235435_ + (gx#stx-pair? _tl122081122650_)) + (let ((_e122095122677_ (let () (declare (not safe)) (gx#stx-e - _tl234839235408_)))) - (let ((_tl234851235440_ + _tl122081122650_)))) + (let ((_tl122093122682_ (let () (declare (not safe)) - (##cdr _e234853235435_))) - (_hd234852235438_ + (##cdr _e122095122677_))) + (_hd122094122680_ (let () (declare (not safe)) - (##car _e234853235435_)))) + (##car _e122095122677_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd234852235438_)) - (let ((_e234856235443_ + _hd122094122680_)) + (let ((_e122098122685_ (let () (declare (not safe)) (gx#stx-e - _hd234852235438_)))) - (let ((_tl234854235448_ + _hd122094122680_)))) + (let ((_tl122096122690_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e234856235443_))) - (_hd234855235446_ - (let () (declare (not safe)) (##car _e234856235443_)))) + (##cdr _e122098122685_))) + (_hd122097122688_ + (let () (declare (not safe)) (##car _e122098122685_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234855235446_)) + (gx#identifier? _hd122097122688_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd234855235446_)) + (gx#stx-eq? '%#call _hd122097122688_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234854235448_)) - (let ((_e234859235451_ + (gx#stx-pair? _tl122096122690_)) + (let ((_e122101122693_ (let () (declare (not safe)) - (gx#stx-e _tl234854235448_)))) - (let ((_tl234857235456_ + (gx#stx-e _tl122096122690_)))) + (let ((_tl122099122698_ (let () (declare (not safe)) - (##cdr _e234859235451_))) - (_hd234858235454_ + (##cdr _e122101122693_))) + (_hd122100122696_ (let () (declare (not safe)) - (##car _e234859235451_)))) + (##car _e122101122693_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234858235454_)) - (let ((_e234862235459_ + (gx#stx-pair? _hd122100122696_)) + (let ((_e122104122701_ (let () (declare (not safe)) - (gx#stx-e _hd234858235454_)))) - (let ((_tl234860235464_ + (gx#stx-e _hd122100122696_)))) + (let ((_tl122102122706_ (let () (declare (not safe)) - (##cdr _e234862235459_))) - (_hd234861235462_ + (##cdr _e122104122701_))) + (_hd122103122704_ (let () (declare (not safe)) - (##car _e234862235459_)))) + (##car _e122104122701_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd234861235462_)) + _hd122103122704_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd234861235462_)) + _hd122103122704_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234860235464_)) - (let ((_e234865235467_ + _tl122102122706_)) + (let ((_e122107122709_ (let () (declare (not safe)) (gx#stx-e - _tl234860235464_)))) - (let ((_tl234863235472_ + _tl122102122706_)))) + (let ((_tl122105122714_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e234865235467_))) - (_hd234864235470_ - (let () (declare (not safe)) (##car _e234865235467_)))) + (##cdr _e122107122709_))) + (_hd122106122712_ + (let () (declare (not safe)) (##car _e122107122709_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234863235472_)) + (gx#stx-null? _tl122105122714_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl234857235456_)) - (let ((___splice243760243761_ + (gx#stx-pair/null? _tl122099122698_)) + (let ((___splice126434126435_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl234857235456_ + _tl122099122698_ '0)))) - (let ((_tl234868235477_ + (let ((_tl122110122719_ (let () (declare (not safe)) - (##vector-ref ___splice243760243761_ '1))) - (_target234866235475_ + (##vector-ref ___splice126434126435_ '1))) + (_target122108122717_ (let () (declare (not safe)) - (##vector-ref ___splice243760243761_ '0)))) + (##vector-ref ___splice126434126435_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234868235477_)) - (letrec ((_loop234869235480_ - (lambda (_hd234867235483_ - _xarg234873235485_) + (gx#stx-null? _tl122110122719_)) + (letrec ((_loop122111122722_ + (lambda (_hd122109122725_ + _xarg122115122727_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd234867235483_)) - (let ((_e234870235488_ + _hd122109122725_)) + (let ((_e122112122730_ (let () (declare (not safe)) (gx#stx-e - _hd234867235483_)))) - (let ((_lp-tl234872235493_ + _hd122109122725_)))) + (let ((_lp-tl122114122735_ (let () (declare (not safe)) - (##cdr _e234870235488_))) - (_lp-hd234871235491_ + (##cdr _e122112122730_))) + (_lp-hd122113122733_ (let () (declare (not safe)) - (##car _e234870235488_)))) + (##car _e122112122730_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd234871235491_)) - (let ((_e234877235496_ + _lp-hd122113122733_)) + (let ((_e122119122738_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _lp-hd234871235491_)))) - (let ((_tl234875235501_ - (let () (declare (not safe)) (##cdr _e234877235496_))) - (_hd234876235499_ + (gx#stx-e _lp-hd122113122733_)))) + (let ((_tl122117122743_ + (let () (declare (not safe)) (##cdr _e122119122738_))) + (_hd122118122741_ (let () (declare (not safe)) - (##car _e234877235496_)))) + (##car _e122119122738_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234876235499_)) + (gx#identifier? _hd122118122741_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd234876235499_)) + (gx#stx-eq? '%#ref _hd122118122741_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234875235501_)) - (let ((_e234880235504_ + (gx#stx-pair? _tl122117122743_)) + (let ((_e122122122746_ (let () (declare (not safe)) - (gx#stx-e _tl234875235501_)))) - (let ((_tl234878235509_ + (gx#stx-e _tl122117122743_)))) + (let ((_tl122120122751_ (let () (declare (not safe)) - (##cdr _e234880235504_))) - (_hd234879235507_ + (##cdr _e122122122746_))) + (_hd122121122749_ (let () (declare (not safe)) - (##car _e234880235504_)))) + (##car _e122122122746_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234878235509_)) - (let ((__tmp245160 + (gx#stx-null? _tl122120122751_)) + (let ((__tmp127834 (let () (declare (not safe)) - (cons _hd234879235507_ - _xarg234873235485_)))) + (cons _hd122121122749_ + _xarg122115122727_)))) (declare (not safe)) - (_loop234869235480_ - _lp-tl234872235493_ - __tmp245160)) - (___match243797243798_ - _e234841235403_ - _hd234840235406_ - _tl234839235408_ - ___splice243758243759_ - _target234842235411_ - _tl234844235413_)))) - (___match243797243798_ - _e234841235403_ - _hd234840235406_ - _tl234839235408_ - ___splice243758243759_ - _target234842235411_ - _tl234844235413_)) - (___match243797243798_ - _e234841235403_ - _hd234840235406_ - _tl234839235408_ - ___splice243758243759_ - _target234842235411_ - _tl234844235413_)) - (___match243797243798_ - _e234841235403_ - _hd234840235406_ - _tl234839235408_ - ___splice243758243759_ - _target234842235411_ - _tl234844235413_)))) - (___match243797243798_ - _e234841235403_ - _hd234840235406_ - _tl234839235408_ - ___splice243758243759_ - _target234842235411_ - _tl234844235413_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_xarg234874235512_ - (reverse _xarg234873235485_))) + (_loop122111122722_ + _lp-tl122114122735_ + __tmp127834)) + (___match126471126472_ + _e122083122645_ + _hd122082122648_ + _tl122081122650_ + ___splice126432126433_ + _target122084122653_ + _tl122086122655_)))) + (___match126471126472_ + _e122083122645_ + _hd122082122648_ + _tl122081122650_ + ___splice126432126433_ + _target122084122653_ + _tl122086122655_)) + (___match126471126472_ + _e122083122645_ + _hd122082122648_ + _tl122081122650_ + ___splice126432126433_ + _target122084122653_ + _tl122086122655_)) + (___match126471126472_ + _e122083122645_ + _hd122082122648_ + _tl122081122650_ + ___splice126432126433_ + _target122084122653_ + _tl122086122655_)))) + (___match126471126472_ + _e122083122645_ + _hd122082122648_ + _tl122081122650_ + ___splice126432126433_ + _target122084122653_ + _tl122086122655_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_xarg122116122754_ + (reverse _xarg122115122727_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234851235440_)) - (let ((_L235515_ - _xarg234874235512_) - (_L235516_ - _hd234864235470_) - (_L235517_ - _arg234850235432_)) - (if (and (let ((__tmp245158 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp245159 - (lambda (_g235545235548_ - _g235546235550_) + _tl122093122682_)) + (let ((_L122757_ + _xarg122116122754_) + (_L122758_ + _hd122106122712_) + (_L122759_ + _arg122092122674_)) + (if (and (let ((__tmp127832 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp127833 + (lambda (_g122787122790_ + _g122788122792_) (let () (declare (not safe)) - (cons _g235545235548_ - _g235546235550_))))) + (cons _g122787122790_ + _g122788122792_))))) (declare (not safe)) - (foldr1 __tmp245159 '() _L235517_)))) + (foldr1 __tmp127833 '() _L122759_)))) (declare (not safe)) - (gx#identifier-list? __tmp245158)) - (fx= (length (let ((__tmp245156 - (lambda (_g235552235555_ - _g235553235557_) + (gx#identifier-list? __tmp127832)) + (fx= (length (let ((__tmp127830 + (lambda (_g122794122797_ + _g122795122799_) (let () (declare (not safe)) - (cons _g235552235555_ - _g235553235557_))))) + (cons _g122794122797_ + _g122795122799_))))) (declare (not safe)) - (foldr1 __tmp245156 '() _L235517_))) - (length (let ((__tmp245157 - (lambda (_g235559235562_ - _g235560235564_) + (foldr1 __tmp127830 '() _L122759_))) + (length (let ((__tmp127831 + (lambda (_g122801122804_ + _g122802122806_) (let () (declare (not safe)) - (cons _g235559235562_ - _g235560235564_))))) + (cons _g122801122804_ + _g122802122806_))))) (declare (not safe)) - (foldr1 __tmp245157 '() _L235515_)))) - (let ((__tmp245154 - (let ((__tmp245155 - (lambda (_g235566235569_ - _g235567235571_) + (foldr1 __tmp127831 '() _L122757_)))) + (let ((__tmp127828 + (let ((__tmp127829 + (lambda (_g122808122811_ + _g122809122813_) (let () (declare (not safe)) - (cons _g235566235569_ - _g235567235571_))))) + (cons _g122808122811_ + _g122809122813_))))) (declare (not safe)) - (foldr1 __tmp245155 '() _L235517_))) - (__tmp245152 - (let ((__tmp245153 - (lambda (_g235573235576_ - _g235574235578_) + (foldr1 __tmp127829 '() _L122759_))) + (__tmp127826 + (let ((__tmp127827 + (lambda (_g122815122818_ + _g122816122820_) (let () (declare (not safe)) - (cons _g235573235576_ - _g235574235578_))))) + (cons _g122815122818_ + _g122816122820_))))) (declare (not safe)) - (foldr1 __tmp245153 '() _L235515_)))) + (foldr1 __tmp127827 '() _L122757_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp245154 - __tmp245152)) - (let ((__tmp245148 - (let ((__tmp245151 - (lambda (_g235580235582_) + __tmp127828 + __tmp127826)) + (let ((__tmp127822 + (let ((__tmp127825 + (lambda (_g122822122824_) (let () (declare (not safe)) (gx#free-identifier=? - _g235580235582_ - _L235516_)))) - (__tmp245149 - (let ((__tmp245150 - (lambda (_g235584235587_ - _g235585235589_) + _g122822122824_ + _L122758_)))) + (__tmp127823 + (let ((__tmp127824 + (lambda (_g122826122829_ + _g122827122831_) (let () (declare (not safe)) - (cons _g235584235587_ - _g235585235589_))))) + (cons _g122826122829_ + _g122827122831_))))) (declare (not safe)) - (foldr1 __tmp245150 '() _L235517_)))) + (foldr1 __tmp127824 '() _L122759_)))) (declare (not safe)) - (find __tmp245151 __tmp245149)))) + (find __tmp127825 __tmp127823)))) (declare (not safe)) - (not __tmp245148))) - (___kont243756243757_ _L235515_ _L235516_ _L235517_) - (___match243797243798_ - _e234841235403_ - _hd234840235406_ - _tl234839235408_ - ___splice243758243759_ - _target234842235411_ - _tl234844235413_))) - (___match243797243798_ - _e234841235403_ - _hd234840235406_ - _tl234839235408_ - ___splice243758243759_ - _target234842235411_ - _tl234844235413_))))))) + (not __tmp127822))) + (___kont126430126431_ _L122757_ _L122758_ _L122759_) + (___match126471126472_ + _e122083122645_ + _hd122082122648_ + _tl122081122650_ + ___splice126432126433_ + _target122084122653_ + _tl122086122655_))) + (___match126471126472_ + _e122083122645_ + _hd122082122648_ + _tl122081122650_ + ___splice126432126433_ + _target122084122653_ + _tl122086122655_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop234869235480_ - _target234866235475_ + (_loop122111122722_ + _target122108122717_ '()))) - (___match243797243798_ - _e234841235403_ - _hd234840235406_ - _tl234839235408_ - ___splice243758243759_ - _target234842235411_ - _tl234844235413_)))) - (___match243797243798_ - _e234841235403_ - _hd234840235406_ - _tl234839235408_ - ___splice243758243759_ - _target234842235411_ - _tl234844235413_)) - (___match243797243798_ - _e234841235403_ - _hd234840235406_ - _tl234839235408_ - ___splice243758243759_ - _target234842235411_ - _tl234844235413_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match243797243798_ - _e234841235403_ - _hd234840235406_ - _tl234839235408_ - ___splice243758243759_ - _target234842235411_ - _tl234844235413_)) - (___match243797243798_ - _e234841235403_ - _hd234840235406_ - _tl234839235408_ - ___splice243758243759_ - _target234842235411_ - _tl234844235413_)) - (___match243797243798_ - _e234841235403_ - _hd234840235406_ - _tl234839235408_ - ___splice243758243759_ - _target234842235411_ - _tl234844235413_)))) - (___match243797243798_ - _e234841235403_ - _hd234840235406_ - _tl234839235408_ - ___splice243758243759_ - _target234842235411_ - _tl234844235413_)))) - (___match243797243798_ - _e234841235403_ - _hd234840235406_ - _tl234839235408_ - ___splice243758243759_ - _target234842235411_ - _tl234844235413_)) - (___match243797243798_ - _e234841235403_ - _hd234840235406_ - _tl234839235408_ - ___splice243758243759_ - _target234842235411_ - _tl234844235413_)) - (___match243797243798_ - _e234841235403_ - _hd234840235406_ - _tl234839235408_ - ___splice243758243759_ - _target234842235411_ - _tl234844235413_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match243797243798_ - _e234841235403_ - _hd234840235406_ - _tl234839235408_ - ___splice243758243759_ - _target234842235411_ - _tl234844235413_)))) - (___match243797243798_ - _e234841235403_ - _hd234840235406_ - _tl234839235408_ - ___splice243758243759_ - _target234842235411_ - _tl234844235413_))))))) + (___match126471126472_ + _e122083122645_ + _hd122082122648_ + _tl122081122650_ + ___splice126432126433_ + _target122084122653_ + _tl122086122655_)))) + (___match126471126472_ + _e122083122645_ + _hd122082122648_ + _tl122081122650_ + ___splice126432126433_ + _target122084122653_ + _tl122086122655_)) + (___match126471126472_ + _e122083122645_ + _hd122082122648_ + _tl122081122650_ + ___splice126432126433_ + _target122084122653_ + _tl122086122655_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match126471126472_ + _e122083122645_ + _hd122082122648_ + _tl122081122650_ + ___splice126432126433_ + _target122084122653_ + _tl122086122655_)) + (___match126471126472_ + _e122083122645_ + _hd122082122648_ + _tl122081122650_ + ___splice126432126433_ + _target122084122653_ + _tl122086122655_)) + (___match126471126472_ + _e122083122645_ + _hd122082122648_ + _tl122081122650_ + ___splice126432126433_ + _target122084122653_ + _tl122086122655_)))) + (___match126471126472_ + _e122083122645_ + _hd122082122648_ + _tl122081122650_ + ___splice126432126433_ + _target122084122653_ + _tl122086122655_)))) + (___match126471126472_ + _e122083122645_ + _hd122082122648_ + _tl122081122650_ + ___splice126432126433_ + _target122084122653_ + _tl122086122655_)) + (___match126471126472_ + _e122083122645_ + _hd122082122648_ + _tl122081122650_ + ___splice126432126433_ + _target122084122653_ + _tl122086122655_)) + (___match126471126472_ + _e122083122645_ + _hd122082122648_ + _tl122081122650_ + ___splice126432126433_ + _target122084122653_ + _tl122086122655_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match126471126472_ + _e122083122645_ + _hd122082122648_ + _tl122081122650_ + ___splice126432126433_ + _target122084122653_ + _tl122086122655_)))) + (___match126471126472_ + _e122083122645_ + _hd122082122648_ + _tl122081122650_ + ___splice126432126433_ + _target122084122653_ + _tl122086122655_))))))) (let () (declare (not safe)) - (_loop234845235416_ _target234842235411_ '())))))) + (_loop122087122658_ _target122084122653_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx243754243755_)) - (let ((_e234841235403_ + (gx#stx-pair? ___stx126428126429_)) + (let ((_e122083122645_ (let () (declare (not safe)) - (gx#stx-e ___stx243754243755_)))) - (let ((_tl234839235408_ + (gx#stx-e ___stx126428126429_)))) + (let ((_tl122081122650_ (let () (declare (not safe)) - (##cdr _e234841235403_))) - (_hd234840235406_ + (##cdr _e122083122645_))) + (_hd122082122648_ (let () (declare (not safe)) - (##car _e234841235403_)))) + (##car _e122083122645_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd234840235406_)) - (let ((___splice243758243759_ + (gx#stx-pair/null? _hd122082122648_)) + (let ((___splice126432126433_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd234840235406_ + _hd122082122648_ '0)))) - (let ((_tl234844235413_ + (let ((_tl122086122655_ (let () (declare (not safe)) - (##vector-ref ___splice243758243759_ '1))) - (_target234842235411_ + (##vector-ref ___splice126432126433_ '1))) + (_target122084122653_ (let () (declare (not safe)) (##vector-ref - ___splice243758243759_ + ___splice126432126433_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234844235413_)) - (___match243785243786_ - _e234841235403_ - _hd234840235406_ - _tl234839235408_ - ___splice243758243759_ - _target234842235411_ - _tl234844235413_) - (___match243797243798_ - _e234841235403_ - _hd234840235406_ - _tl234839235408_ - ___splice243758243759_ - _target234842235411_ - _tl234844235413_)))) + (gx#stx-null? _tl122086122655_)) + (___match126459126460_ + _e122083122645_ + _hd122082122648_ + _tl122081122650_ + ___splice126432126433_ + _target122084122653_ + _tl122086122655_) + (___match126471126472_ + _e122083122645_ + _hd122082122648_ + _tl122081122650_ + ___splice126432126433_ + _target122084122653_ + _tl122086122655_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234839235408_)) - (let ((_e234956235011_ + (gx#stx-pair? _tl122081122650_)) + (let ((_e122198122253_ (let () (declare (not safe)) - (gx#stx-e _tl234839235408_)))) - (let ((_tl234954235016_ + (gx#stx-e _tl122081122650_)))) + (let ((_tl122196122258_ (let () (declare (not safe)) - (##cdr _e234956235011_))) - (_hd234955235014_ + (##cdr _e122198122253_))) + (_hd122197122256_ (let () (declare (not safe)) - (##car _e234956235011_)))) + (##car _e122198122253_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234955235014_)) - (let ((_e234959235019_ + (gx#stx-pair? _hd122197122256_)) + (let ((_e122201122261_ (let () (declare (not safe)) - (gx#stx-e _hd234955235014_)))) - (let ((_tl234957235024_ + (gx#stx-e _hd122197122256_)))) + (let ((_tl122199122266_ (let () (declare (not safe)) - (##cdr _e234959235019_))) - (_hd234958235022_ + (##cdr _e122201122261_))) + (_hd122200122264_ (let () (declare (not safe)) - (##car _e234959235019_)))) + (##car _e122201122261_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd234958235022_)) + _hd122200122264_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd234958235022_)) + _hd122200122264_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234957235024_)) - (let ((_e234962235027_ + _tl122199122266_)) + (let ((_e122204122269_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl234957235024_)))) - (let ((_tl234960235032_ - (let () (declare (not safe)) (##cdr _e234962235027_))) - (_hd234961235030_ - (let () (declare (not safe)) (##car _e234962235027_)))) + (gx#stx-e _tl122199122266_)))) + (let ((_tl122202122274_ + (let () (declare (not safe)) (##cdr _e122204122269_))) + (_hd122203122272_ + (let () (declare (not safe)) (##car _e122204122269_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234961235030_)) - (let ((_e234965235035_ + (gx#stx-pair? _hd122203122272_)) + (let ((_e122207122277_ (let () (declare (not safe)) - (gx#stx-e _hd234961235030_)))) - (let ((_tl234963235040_ + (gx#stx-e _hd122203122272_)))) + (let ((_tl122205122282_ (let () (declare (not safe)) - (##cdr _e234965235035_))) - (_hd234964235038_ + (##cdr _e122207122277_))) + (_hd122206122280_ (let () (declare (not safe)) - (##car _e234965235035_)))) + (##car _e122207122277_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234964235038_)) + (gx#identifier? _hd122206122280_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd234964235038_)) + (gx#stx-eq? '%#ref _hd122206122280_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234963235040_)) - (let ((_e234968235043_ + (gx#stx-pair? _tl122205122282_)) + (let ((_e122210122285_ (let () (declare (not safe)) - (gx#stx-e _tl234963235040_)))) - (let ((_tl234966235048_ + (gx#stx-e _tl122205122282_)))) + (let ((_tl122208122290_ (let () (declare (not safe)) - (##cdr _e234968235043_))) - (_hd234967235046_ + (##cdr _e122210122285_))) + (_hd122209122288_ (let () (declare (not safe)) - (##car _e234968235043_)))) + (##car _e122210122285_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234966235048_)) + _tl122208122290_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234960235032_)) - (let ((_e234971235051_ + _tl122202122274_)) + (let ((_e122213122293_ (let () (declare (not safe)) (gx#stx-e - _tl234960235032_)))) - (let ((_tl234969235056_ + _tl122202122274_)))) + (let ((_tl122211122298_ (let () (declare (not safe)) - (##cdr _e234971235051_))) - (_hd234970235054_ + (##cdr _e122213122293_))) + (_hd122212122296_ (let () (declare (not safe)) - (##car _e234971235051_)))) + (##car _e122213122293_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd234970235054_)) - (let ((_e234974235059_ + _hd122212122296_)) + (let ((_e122216122301_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd234970235054_)))) - (let ((_tl234972235064_ + (gx#stx-e _hd122212122296_)))) + (let ((_tl122214122306_ (let () (declare (not safe)) - (##cdr _e234974235059_))) - (_hd234973235062_ + (##cdr _e122216122301_))) + (_hd122215122304_ (let () (declare (not safe)) - (##car _e234974235059_)))) + (##car _e122216122301_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234973235062_)) + (gx#identifier? _hd122215122304_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd234973235062_)) + (gx#stx-eq? '%#ref _hd122215122304_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234972235064_)) - (let ((_e234977235067_ + (gx#stx-pair? _tl122214122306_)) + (let ((_e122219122309_ (let () (declare (not safe)) - (gx#stx-e _tl234972235064_)))) - (let ((_tl234975235072_ + (gx#stx-e _tl122214122306_)))) + (let ((_tl122217122314_ (let () (declare (not safe)) - (##cdr _e234977235067_))) - (_hd234976235070_ + (##cdr _e122219122309_))) + (_hd122218122312_ (let () (declare (not safe)) - (##car _e234977235067_)))) + (##car _e122219122309_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234975235072_)) + (gx#stx-null? _tl122217122314_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234969235056_)) - (let ((_e234980235075_ + _tl122211122298_)) + (let ((_e122222122317_ (let () (declare (not safe)) (gx#stx-e - _tl234969235056_)))) - (let ((_tl234978235080_ + _tl122211122298_)))) + (let ((_tl122220122322_ (let () (declare (not safe)) - (##cdr _e234980235075_))) - (_hd234979235078_ + (##cdr _e122222122317_))) + (_hd122221122320_ (let () (declare (not safe)) - (##car _e234980235075_)))) + (##car _e122222122317_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd234979235078_)) - (let ((_e234983235083_ + _hd122221122320_)) + (let ((_e122225122325_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd234979235078_)))) - (let ((_tl234981235088_ - (let () (declare (not safe)) (##cdr _e234983235083_))) - (_hd234982235086_ - (let () (declare (not safe)) (##car _e234983235083_)))) + (gx#stx-e _hd122221122320_)))) + (let ((_tl122223122330_ + (let () (declare (not safe)) (##cdr _e122225122325_))) + (_hd122224122328_ + (let () (declare (not safe)) (##car _e122225122325_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234982235086_)) + (gx#identifier? _hd122224122328_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd234982235086_)) + (gx#stx-eq? '%#ref _hd122224122328_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234981235088_)) - (let ((_e234986235091_ + (gx#stx-pair? _tl122223122330_)) + (let ((_e122228122333_ (let () (declare (not safe)) - (gx#stx-e _tl234981235088_)))) - (let ((_tl234984235096_ + (gx#stx-e _tl122223122330_)))) + (let ((_tl122226122338_ (let () (declare (not safe)) - (##cdr _e234986235091_))) - (_hd234985235094_ + (##cdr _e122228122333_))) + (_hd122227122336_ (let () (declare (not safe)) - (##car _e234986235091_)))) + (##car _e122228122333_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234984235096_)) + (gx#stx-null? _tl122226122338_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl234978235080_)) + (gx#stx-null? _tl122220122322_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl234954235016_)) - (___match243895243896_ - _e234841235403_ - _hd234840235406_ - _tl234839235408_ - _e234956235011_ - _hd234955235014_ - _tl234954235016_ - _e234959235019_ - _hd234958235022_ - _tl234957235024_ - _e234962235027_ - _hd234961235030_ - _tl234960235032_ - _e234965235035_ - _hd234964235038_ - _tl234963235040_ - _e234968235043_ - _hd234967235046_ - _tl234966235048_ - _e234971235051_ - _hd234970235054_ - _tl234969235056_ - _e234974235059_ - _hd234973235062_ - _tl234972235064_ - _e234977235067_ - _hd234976235070_ - _tl234975235072_ - _e234980235075_ - _hd234979235078_ - _tl234978235080_ - _e234983235083_ - _hd234982235086_ - _tl234981235088_ - _e234986235091_ - _hd234985235094_ - _tl234984235096_) - (___kont243770243771_)) - (___kont243770243771_)) - (___kont243770243771_)))) - (___kont243770243771_)) - (___kont243770243771_)) - (___kont243770243771_)))) - (___kont243770243771_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont243770243771_)) - (___kont243770243771_)))) - (___kont243770243771_)) - (___kont243770243771_)) - (___kont243770243771_)))) - (___kont243770243771_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont243770243771_)) - (___kont243770243771_)))) - (___kont243770243771_)) - (___kont243770243771_)) - (___kont243770243771_)))) - (___kont243770243771_)))) - (___kont243770243771_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont243770243771_)) - (___kont243770243771_)))) - (___kont243770243771_)))) - (___kont243770243771_))))) - (___kont243770243771_))))))) + _tl122196122258_)) + (___match126569126570_ + _e122083122645_ + _hd122082122648_ + _tl122081122650_ + _e122198122253_ + _hd122197122256_ + _tl122196122258_ + _e122201122261_ + _hd122200122264_ + _tl122199122266_ + _e122204122269_ + _hd122203122272_ + _tl122202122274_ + _e122207122277_ + _hd122206122280_ + _tl122205122282_ + _e122210122285_ + _hd122209122288_ + _tl122208122290_ + _e122213122293_ + _hd122212122296_ + _tl122211122298_ + _e122216122301_ + _hd122215122304_ + _tl122214122306_ + _e122219122309_ + _hd122218122312_ + _tl122217122314_ + _e122222122317_ + _hd122221122320_ + _tl122220122322_ + _e122225122325_ + _hd122224122328_ + _tl122223122330_ + _e122228122333_ + _hd122227122336_ + _tl122226122338_) + (___kont126444126445_)) + (___kont126444126445_)) + (___kont126444126445_)))) + (___kont126444126445_)) + (___kont126444126445_)) + (___kont126444126445_)))) + (___kont126444126445_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont126444126445_)) + (___kont126444126445_)))) + (___kont126444126445_)) + (___kont126444126445_)) + (___kont126444126445_)))) + (___kont126444126445_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont126444126445_)) + (___kont126444126445_)))) + (___kont126444126445_)) + (___kont126444126445_)) + (___kont126444126445_)))) + (___kont126444126445_)))) + (___kont126444126445_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont126444126445_)) + (___kont126444126445_)))) + (___kont126444126445_)))) + (___kont126444126445_))))) + (___kont126444126445_))))))) (define gxc#dispatch-lambda-form-delegate - (lambda (_form234297_) - (let* ((___stx243898243899_ _form234297_) - (_g234301234425_ + (lambda (_form121539_) + (let* ((___stx126572126573_ _form121539_) + (_g121543121667_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243898243899_))))) - (let ((___kont243900243901_ - (lambda (_L234795_ _L234796_ _L234797_) + ___stx126572126573_))))) + (let ((___kont126574126575_ + (lambda (_L122037_ _L122038_ _L122039_) (let () (declare (not safe)) - (gxc#identifier-symbol _L234796_)))) - (___kont243906243907_ - (lambda (_L234643_ _L234644_ _L234645_ _L234646_) + (gxc#identifier-symbol _L122038_)))) + (___kont126580126581_ + (lambda (_L121885_ _L121886_ _L121887_ _L121888_) (let () (declare (not safe)) - (gxc#identifier-symbol _L234643_)))) - (___kont243910243911_ - (lambda (_L234510_ _L234511_ _L234512_) + (gxc#identifier-symbol _L121885_)))) + (___kont126584126585_ + (lambda (_L121752_ _L121753_ _L121754_) (let () (declare (not safe)) - (gxc#identifier-symbol _L234510_))))) - (let* ((___match244007244008_ - (lambda (_e234393234430_ - _hd234392234433_ - _tl234391234435_ - _e234396234438_ - _hd234395234441_ - _tl234394234443_ - _e234399234446_ - _hd234398234449_ - _tl234397234451_ - _e234402234454_ - _hd234401234457_ - _tl234400234459_ - _e234405234462_ - _hd234404234465_ - _tl234403234467_ - _e234408234470_ - _hd234407234473_ - _tl234406234475_ - _e234411234478_ - _hd234410234481_ - _tl234409234483_ - _e234414234486_ - _hd234413234489_ - _tl234412234491_ - _e234417234494_ - _hd234416234497_ - _tl234415234499_) + (gxc#identifier-symbol _L121752_))))) + (let* ((___match126681126682_ + (lambda (_e121635121672_ + _hd121634121675_ + _tl121633121677_ + _e121638121680_ + _hd121637121683_ + _tl121636121685_ + _e121641121688_ + _hd121640121691_ + _tl121639121693_ + _e121644121696_ + _hd121643121699_ + _tl121642121701_ + _e121647121704_ + _hd121646121707_ + _tl121645121709_ + _e121650121712_ + _hd121649121715_ + _tl121648121717_ + _e121653121720_ + _hd121652121723_ + _tl121651121725_ + _e121656121728_ + _hd121655121731_ + _tl121654121733_ + _e121659121736_ + _hd121658121739_ + _tl121657121741_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234409234483_)) - (let ((_e234420234502_ + (gx#stx-pair? _tl121651121725_)) + (let ((_e121662121744_ (let () (declare (not safe)) - (gx#stx-e _tl234409234483_)))) - (let ((_tl234418234507_ + (gx#stx-e _tl121651121725_)))) + (let ((_tl121660121749_ (let () (declare (not safe)) - (##cdr _e234420234502_))) - (_hd234419234505_ + (##cdr _e121662121744_))) + (_hd121661121747_ (let () (declare (not safe)) - (##car _e234420234502_)))) + (##car _e121662121744_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234418234507_)) + (gx#stx-null? _tl121660121749_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl234394234443_)) - (___kont243910243911_ - _hd234416234497_ - _hd234407234473_ - _hd234392234433_) + (gx#stx-null? _tl121636121685_)) + (___kont126584126585_ + _hd121658121739_ + _hd121649121715_ + _hd121634121675_) (let () (declare (not safe)) - (_g234301234425_))) + (_g121543121667_))) (let () (declare (not safe)) - (_g234301234425_))))) - (let () (declare (not safe)) (_g234301234425_))))) - (___match243937243938_ - (lambda (_e234354234547_ - _hd234353234550_ - _tl234352234552_ - ___splice243908243909_ - _target234355234555_ - _tl234357234557_) - (letrec ((_loop234358234560_ - (lambda (_hd234356234563_ _arg234362234565_) + (_g121543121667_))))) + (let () (declare (not safe)) (_g121543121667_))))) + (___match126611126612_ + (lambda (_e121596121789_ + _hd121595121792_ + _tl121594121794_ + ___splice126582126583_ + _target121597121797_ + _tl121599121799_) + (letrec ((_loop121600121802_ + (lambda (_hd121598121805_ _arg121604121807_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234356234563_)) - (let ((_e234359234568_ + (gx#stx-pair? _hd121598121805_)) + (let ((_e121601121810_ (let () (declare (not safe)) - (gx#stx-e _hd234356234563_)))) - (let ((_lp-tl234361234573_ + (gx#stx-e _hd121598121805_)))) + (let ((_lp-tl121603121815_ (let () (declare (not safe)) - (##cdr _e234359234568_))) - (_lp-hd234360234571_ + (##cdr _e121601121810_))) + (_lp-hd121602121813_ (let () (declare (not safe)) - (##car _e234359234568_)))) - (let ((__tmp245162 + (##car _e121601121810_)))) + (let ((__tmp127836 (let () (declare (not safe)) - (cons _lp-hd234360234571_ - _arg234362234565_)))) + (cons _lp-hd121602121813_ + _arg121604121807_)))) (declare (not safe)) - (_loop234358234560_ - _lp-tl234361234573_ - __tmp245162)))) - (let ((_arg234363234576_ - (reverse _arg234362234565_))) + (_loop121600121802_ + _lp-tl121603121815_ + __tmp127836)))) + (let ((_arg121605121818_ + (reverse _arg121604121807_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234352234552_)) - (let ((_e234366234579_ + (gx#stx-pair? _tl121594121794_)) + (let ((_e121608121821_ (let () (declare (not safe)) (gx#stx-e - _tl234352234552_)))) - (let ((_tl234364234584_ + _tl121594121794_)))) + (let ((_tl121606121826_ (let () (declare (not safe)) - (##cdr _e234366234579_))) - (_hd234365234582_ + (##cdr _e121608121821_))) + (_hd121607121824_ (let () (declare (not safe)) - (##car _e234366234579_)))) + (##car _e121608121821_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd234365234582_)) - (let ((_e234369234587_ + _hd121607121824_)) + (let ((_e121611121829_ (let () (declare (not safe)) (gx#stx-e - _hd234365234582_)))) - (let ((_tl234367234592_ + _hd121607121824_)))) + (let ((_tl121609121834_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e234369234587_))) - (_hd234368234590_ - (let () (declare (not safe)) (##car _e234369234587_)))) + (##cdr _e121611121829_))) + (_hd121610121832_ + (let () (declare (not safe)) (##car _e121611121829_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234368234590_)) + (gx#identifier? _hd121610121832_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd234368234590_)) + (gx#stx-eq? '%#call _hd121610121832_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234367234592_)) - (let ((_e234372234595_ + (gx#stx-pair? _tl121609121834_)) + (let ((_e121614121837_ (let () (declare (not safe)) - (gx#stx-e _tl234367234592_)))) - (let ((_tl234370234600_ + (gx#stx-e _tl121609121834_)))) + (let ((_tl121612121842_ (let () (declare (not safe)) - (##cdr _e234372234595_))) - (_hd234371234598_ + (##cdr _e121614121837_))) + (_hd121613121840_ (let () (declare (not safe)) - (##car _e234372234595_)))) + (##car _e121614121837_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234371234598_)) - (let ((_e234375234603_ + (gx#stx-pair? _hd121613121840_)) + (let ((_e121617121845_ (let () (declare (not safe)) - (gx#stx-e _hd234371234598_)))) - (let ((_tl234373234608_ + (gx#stx-e _hd121613121840_)))) + (let ((_tl121615121850_ (let () (declare (not safe)) - (##cdr _e234375234603_))) - (_hd234374234606_ + (##cdr _e121617121845_))) + (_hd121616121848_ (let () (declare (not safe)) - (##car _e234375234603_)))) + (##car _e121617121845_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd234374234606_)) + _hd121616121848_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd234374234606_)) + _hd121616121848_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234373234608_)) - (let ((_e234378234611_ + _tl121615121850_)) + (let ((_e121620121853_ (let () (declare (not safe)) (gx#stx-e - _tl234373234608_)))) - (let ((_tl234376234616_ + _tl121615121850_)))) + (let ((_tl121618121858_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e234378234611_))) - (_hd234377234614_ - (let () (declare (not safe)) (##car _e234378234611_)))) + (##cdr _e121620121853_))) + (_hd121619121856_ + (let () (declare (not safe)) (##car _e121620121853_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234376234616_)) + (gx#stx-null? _tl121618121858_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234370234600_)) - (let ((_e234381234619_ + (gx#stx-pair? _tl121612121842_)) + (let ((_e121623121861_ (let () (declare (not safe)) - (gx#stx-e _tl234370234600_)))) - (let ((_tl234379234624_ + (gx#stx-e _tl121612121842_)))) + (let ((_tl121621121866_ (let () (declare (not safe)) - (##cdr _e234381234619_))) - (_hd234380234622_ + (##cdr _e121623121861_))) + (_hd121622121864_ (let () (declare (not safe)) - (##car _e234381234619_)))) + (##car _e121623121861_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234380234622_)) - (let ((_e234384234627_ + (gx#stx-pair? _hd121622121864_)) + (let ((_e121626121869_ (let () (declare (not safe)) - (gx#stx-e _hd234380234622_)))) - (let ((_tl234382234632_ + (gx#stx-e _hd121622121864_)))) + (let ((_tl121624121874_ (let () (declare (not safe)) - (##cdr _e234384234627_))) - (_hd234383234630_ + (##cdr _e121626121869_))) + (_hd121625121872_ (let () (declare (not safe)) - (##car _e234384234627_)))) + (##car _e121626121869_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234383234630_)) + (gx#identifier? _hd121625121872_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd234383234630_)) + _hd121625121872_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234382234632_)) - (let ((_e234387234635_ + _tl121624121874_)) + (let ((_e121629121877_ (let () (declare (not safe)) (gx#stx-e - _tl234382234632_)))) - (let ((_tl234385234640_ + _tl121624121874_)))) + (let ((_tl121627121882_ (let () (declare (not safe)) - (##cdr _e234387234635_))) - (_hd234386234638_ + (##cdr _e121629121877_))) + (_hd121628121880_ (let () (declare (not safe)) - (##car _e234387234635_)))) + (##car _e121629121877_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234385234640_)) + _tl121627121882_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl234364234584_)) - (___kont243906243907_ - _hd234386234638_ - _hd234377234614_ - _tl234357234557_ - _arg234363234576_) - (___match244007244008_ - _e234354234547_ - _hd234353234550_ - _tl234352234552_ - _e234366234579_ - _hd234365234582_ - _tl234364234584_ - _e234369234587_ - _hd234368234590_ - _tl234367234592_ - _e234372234595_ - _hd234371234598_ - _tl234370234600_ - _e234375234603_ - _hd234374234606_ - _tl234373234608_ - _e234378234611_ - _hd234377234614_ - _tl234376234616_ - _e234381234619_ - _hd234380234622_ - _tl234379234624_ - _e234384234627_ - _hd234383234630_ - _tl234382234632_ - _e234387234635_ - _hd234386234638_ - _tl234385234640_)) + _tl121606121826_)) + (___kont126580126581_ + _hd121628121880_ + _hd121619121856_ + _tl121599121799_ + _arg121605121818_) + (___match126681126682_ + _e121596121789_ + _hd121595121792_ + _tl121594121794_ + _e121608121821_ + _hd121607121824_ + _tl121606121826_ + _e121611121829_ + _hd121610121832_ + _tl121609121834_ + _e121614121837_ + _hd121613121840_ + _tl121612121842_ + _e121617121845_ + _hd121616121848_ + _tl121615121850_ + _e121620121853_ + _hd121619121856_ + _tl121618121858_ + _e121623121861_ + _hd121622121864_ + _tl121621121866_ + _e121626121869_ + _hd121625121872_ + _tl121624121874_ + _e121629121877_ + _hd121628121880_ + _tl121627121882_)) (let () (declare (not safe)) - (_g234301234425_))))) + (_g121543121667_))))) (let () (declare (not safe)) - (_g234301234425_))) + (_g121543121667_))) (let () (declare (not safe)) - (_g234301234425_))) + (_g121543121667_))) (let () (declare (not safe)) - (_g234301234425_))))) + (_g121543121667_))))) (let () (declare (not safe)) - (_g234301234425_))))) - (let () (declare (not safe)) (_g234301234425_))) - (let () (declare (not safe)) (_g234301234425_))))) + (_g121543121667_))))) + (let () (declare (not safe)) (_g121543121667_))) + (let () (declare (not safe)) (_g121543121667_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g234301234425_))) + (_g121543121667_))) (let () (declare (not safe)) - (_g234301234425_))) + (_g121543121667_))) (let () (declare (not safe)) - (_g234301234425_))))) + (_g121543121667_))))) (let () (declare (not safe)) - (_g234301234425_))))) - (let () (declare (not safe)) (_g234301234425_))) - (let () (declare (not safe)) (_g234301234425_))) - (let () (declare (not safe)) (_g234301234425_))))) + (_g121543121667_))))) + (let () (declare (not safe)) (_g121543121667_))) + (let () (declare (not safe)) (_g121543121667_))) + (let () (declare (not safe)) (_g121543121667_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g234301234425_))))) + (_g121543121667_))))) (let () (declare (not safe)) - (_g234301234425_)))))))) + (_g121543121667_)))))))) (let () (declare (not safe)) - (_loop234358234560_ _target234355234555_ '()))))) - (___match243925243926_ - (lambda (_e234308234683_ - _hd234307234686_ - _tl234306234688_ - ___splice243902243903_ - _target234309234691_ - _tl234311234693_) - (letrec ((_loop234312234696_ - (lambda (_hd234310234699_ _arg234316234701_) + (_loop121600121802_ _target121597121797_ '()))))) + (___match126599126600_ + (lambda (_e121550121925_ + _hd121549121928_ + _tl121548121930_ + ___splice126576126577_ + _target121551121933_ + _tl121553121935_) + (letrec ((_loop121554121938_ + (lambda (_hd121552121941_ _arg121558121943_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234310234699_)) - (let ((_e234313234704_ + (gx#stx-pair? _hd121552121941_)) + (let ((_e121555121946_ (let () (declare (not safe)) - (gx#stx-e _hd234310234699_)))) - (let ((_lp-tl234315234709_ + (gx#stx-e _hd121552121941_)))) + (let ((_lp-tl121557121951_ (let () (declare (not safe)) - (##cdr _e234313234704_))) - (_lp-hd234314234707_ + (##cdr _e121555121946_))) + (_lp-hd121556121949_ (let () (declare (not safe)) - (##car _e234313234704_)))) - (let ((__tmp245164 + (##car _e121555121946_)))) + (let ((__tmp127838 (let () (declare (not safe)) - (cons _lp-hd234314234707_ - _arg234316234701_)))) + (cons _lp-hd121556121949_ + _arg121558121943_)))) (declare (not safe)) - (_loop234312234696_ - _lp-tl234315234709_ - __tmp245164)))) - (let ((_arg234317234712_ - (reverse _arg234316234701_))) + (_loop121554121938_ + _lp-tl121557121951_ + __tmp127838)))) + (let ((_arg121559121954_ + (reverse _arg121558121943_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234306234688_)) - (let ((_e234320234715_ + (gx#stx-pair? _tl121548121930_)) + (let ((_e121562121957_ (let () (declare (not safe)) (gx#stx-e - _tl234306234688_)))) - (let ((_tl234318234720_ + _tl121548121930_)))) + (let ((_tl121560121962_ (let () (declare (not safe)) - (##cdr _e234320234715_))) - (_hd234319234718_ + (##cdr _e121562121957_))) + (_hd121561121960_ (let () (declare (not safe)) - (##car _e234320234715_)))) + (##car _e121562121957_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd234319234718_)) - (let ((_e234323234723_ + _hd121561121960_)) + (let ((_e121565121965_ (let () (declare (not safe)) (gx#stx-e - _hd234319234718_)))) - (let ((_tl234321234728_ + _hd121561121960_)))) + (let ((_tl121563121970_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e234323234723_))) - (_hd234322234726_ - (let () (declare (not safe)) (##car _e234323234723_)))) + (##cdr _e121565121965_))) + (_hd121564121968_ + (let () (declare (not safe)) (##car _e121565121965_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234322234726_)) + (gx#identifier? _hd121564121968_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd234322234726_)) + (gx#stx-eq? '%#call _hd121564121968_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234321234728_)) - (let ((_e234326234731_ + (gx#stx-pair? _tl121563121970_)) + (let ((_e121568121973_ (let () (declare (not safe)) - (gx#stx-e _tl234321234728_)))) - (let ((_tl234324234736_ + (gx#stx-e _tl121563121970_)))) + (let ((_tl121566121978_ (let () (declare (not safe)) - (##cdr _e234326234731_))) - (_hd234325234734_ + (##cdr _e121568121973_))) + (_hd121567121976_ (let () (declare (not safe)) - (##car _e234326234731_)))) + (##car _e121568121973_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234325234734_)) - (let ((_e234329234739_ + (gx#stx-pair? _hd121567121976_)) + (let ((_e121571121981_ (let () (declare (not safe)) - (gx#stx-e _hd234325234734_)))) - (let ((_tl234327234744_ + (gx#stx-e _hd121567121976_)))) + (let ((_tl121569121986_ (let () (declare (not safe)) - (##cdr _e234329234739_))) - (_hd234328234742_ + (##cdr _e121571121981_))) + (_hd121570121984_ (let () (declare (not safe)) - (##car _e234329234739_)))) + (##car _e121571121981_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd234328234742_)) + _hd121570121984_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd234328234742_)) + _hd121570121984_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234327234744_)) - (let ((_e234332234747_ + _tl121569121986_)) + (let ((_e121574121989_ (let () (declare (not safe)) (gx#stx-e - _tl234327234744_)))) - (let ((_tl234330234752_ + _tl121569121986_)))) + (let ((_tl121572121994_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e234332234747_))) - (_hd234331234750_ - (let () (declare (not safe)) (##car _e234332234747_)))) + (##cdr _e121574121989_))) + (_hd121573121992_ + (let () (declare (not safe)) (##car _e121574121989_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234330234752_)) + (gx#stx-null? _tl121572121994_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl234324234736_)) - (let ((___splice243904243905_ + (gx#stx-pair/null? _tl121566121978_)) + (let ((___splice126578126579_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl234324234736_ + _tl121566121978_ '0)))) - (let ((_tl234335234757_ + (let ((_tl121577121999_ (let () (declare (not safe)) - (##vector-ref ___splice243904243905_ '1))) - (_target234333234755_ + (##vector-ref ___splice126578126579_ '1))) + (_target121575121997_ (let () (declare (not safe)) - (##vector-ref ___splice243904243905_ '0)))) + (##vector-ref ___splice126578126579_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234335234757_)) - (letrec ((_loop234336234760_ - (lambda (_hd234334234763_ - _xarg234340234765_) + (gx#stx-null? _tl121577121999_)) + (letrec ((_loop121578122002_ + (lambda (_hd121576122005_ + _xarg121582122007_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd234334234763_)) - (let ((_e234337234768_ + _hd121576122005_)) + (let ((_e121579122010_ (let () (declare (not safe)) (gx#stx-e - _hd234334234763_)))) - (let ((_lp-tl234339234773_ + _hd121576122005_)))) + (let ((_lp-tl121581122015_ (let () (declare (not safe)) - (##cdr _e234337234768_))) - (_lp-hd234338234771_ + (##cdr _e121579122010_))) + (_lp-hd121580122013_ (let () (declare (not safe)) - (##car _e234337234768_)))) + (##car _e121579122010_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd234338234771_)) - (let ((_e234344234776_ + _lp-hd121580122013_)) + (let ((_e121586122018_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _lp-hd234338234771_)))) - (let ((_tl234342234781_ - (let () (declare (not safe)) (##cdr _e234344234776_))) - (_hd234343234779_ + (gx#stx-e _lp-hd121580122013_)))) + (let ((_tl121584122023_ + (let () (declare (not safe)) (##cdr _e121586122018_))) + (_hd121585122021_ (let () (declare (not safe)) - (##car _e234344234776_)))) + (##car _e121586122018_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234343234779_)) + (gx#identifier? _hd121585122021_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd234343234779_)) + (gx#stx-eq? '%#ref _hd121585122021_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234342234781_)) - (let ((_e234347234784_ + (gx#stx-pair? _tl121584122023_)) + (let ((_e121589122026_ (let () (declare (not safe)) - (gx#stx-e _tl234342234781_)))) - (let ((_tl234345234789_ + (gx#stx-e _tl121584122023_)))) + (let ((_tl121587122031_ (let () (declare (not safe)) - (##cdr _e234347234784_))) - (_hd234346234787_ + (##cdr _e121589122026_))) + (_hd121588122029_ (let () (declare (not safe)) - (##car _e234347234784_)))) + (##car _e121589122026_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234345234789_)) - (let ((__tmp245163 + (gx#stx-null? _tl121587122031_)) + (let ((__tmp127837 (let () (declare (not safe)) - (cons _hd234346234787_ - _xarg234340234765_)))) + (cons _hd121588122029_ + _xarg121582122007_)))) (declare (not safe)) - (_loop234336234760_ - _lp-tl234339234773_ - __tmp245163)) - (___match243937243938_ - _e234308234683_ - _hd234307234686_ - _tl234306234688_ - ___splice243902243903_ - _target234309234691_ - _tl234311234693_)))) - (___match243937243938_ - _e234308234683_ - _hd234307234686_ - _tl234306234688_ - ___splice243902243903_ - _target234309234691_ - _tl234311234693_)) - (___match243937243938_ - _e234308234683_ - _hd234307234686_ - _tl234306234688_ - ___splice243902243903_ - _target234309234691_ - _tl234311234693_)) - (___match243937243938_ - _e234308234683_ - _hd234307234686_ - _tl234306234688_ - ___splice243902243903_ - _target234309234691_ - _tl234311234693_)))) - (___match243937243938_ - _e234308234683_ - _hd234307234686_ - _tl234306234688_ - ___splice243902243903_ - _target234309234691_ - _tl234311234693_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_xarg234341234792_ - (reverse _xarg234340234765_))) + (_loop121578122002_ + _lp-tl121581122015_ + __tmp127837)) + (___match126611126612_ + _e121550121925_ + _hd121549121928_ + _tl121548121930_ + ___splice126576126577_ + _target121551121933_ + _tl121553121935_)))) + (___match126611126612_ + _e121550121925_ + _hd121549121928_ + _tl121548121930_ + ___splice126576126577_ + _target121551121933_ + _tl121553121935_)) + (___match126611126612_ + _e121550121925_ + _hd121549121928_ + _tl121548121930_ + ___splice126576126577_ + _target121551121933_ + _tl121553121935_)) + (___match126611126612_ + _e121550121925_ + _hd121549121928_ + _tl121548121930_ + ___splice126576126577_ + _target121551121933_ + _tl121553121935_)))) + (___match126611126612_ + _e121550121925_ + _hd121549121928_ + _tl121548121930_ + ___splice126576126577_ + _target121551121933_ + _tl121553121935_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_xarg121583122034_ + (reverse _xarg121582122007_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234318234720_)) - (___kont243900243901_ - _xarg234341234792_ - _hd234331234750_ - _arg234317234712_) - (___match243937243938_ - _e234308234683_ - _hd234307234686_ - _tl234306234688_ - ___splice243902243903_ - _target234309234691_ - _tl234311234693_))))))) + _tl121560121962_)) + (___kont126574126575_ + _xarg121583122034_ + _hd121573121992_ + _arg121559121954_) + (___match126611126612_ + _e121550121925_ + _hd121549121928_ + _tl121548121930_ + ___splice126576126577_ + _target121551121933_ + _tl121553121935_))))))) (let () (declare (not safe)) - (_loop234336234760_ - _target234333234755_ + (_loop121578122002_ + _target121575121997_ '()))) - (___match243937243938_ - _e234308234683_ - _hd234307234686_ - _tl234306234688_ - ___splice243902243903_ - _target234309234691_ - _tl234311234693_)))) - (___match243937243938_ - _e234308234683_ - _hd234307234686_ - _tl234306234688_ - ___splice243902243903_ - _target234309234691_ - _tl234311234693_)) - (___match243937243938_ - _e234308234683_ - _hd234307234686_ - _tl234306234688_ - ___splice243902243903_ - _target234309234691_ - _tl234311234693_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match243937243938_ - _e234308234683_ - _hd234307234686_ - _tl234306234688_ - ___splice243902243903_ - _target234309234691_ - _tl234311234693_)) - (___match243937243938_ - _e234308234683_ - _hd234307234686_ - _tl234306234688_ - ___splice243902243903_ - _target234309234691_ - _tl234311234693_)) - (___match243937243938_ - _e234308234683_ - _hd234307234686_ - _tl234306234688_ - ___splice243902243903_ - _target234309234691_ - _tl234311234693_)))) - (___match243937243938_ - _e234308234683_ - _hd234307234686_ - _tl234306234688_ - ___splice243902243903_ - _target234309234691_ - _tl234311234693_)))) - (___match243937243938_ - _e234308234683_ - _hd234307234686_ - _tl234306234688_ - ___splice243902243903_ - _target234309234691_ - _tl234311234693_)) - (___match243937243938_ - _e234308234683_ - _hd234307234686_ - _tl234306234688_ - ___splice243902243903_ - _target234309234691_ - _tl234311234693_)) - (___match243937243938_ - _e234308234683_ - _hd234307234686_ - _tl234306234688_ - ___splice243902243903_ - _target234309234691_ - _tl234311234693_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match243937243938_ - _e234308234683_ - _hd234307234686_ - _tl234306234688_ - ___splice243902243903_ - _target234309234691_ - _tl234311234693_)))) - (___match243937243938_ - _e234308234683_ - _hd234307234686_ - _tl234306234688_ - ___splice243902243903_ - _target234309234691_ - _tl234311234693_))))))) + (___match126611126612_ + _e121550121925_ + _hd121549121928_ + _tl121548121930_ + ___splice126576126577_ + _target121551121933_ + _tl121553121935_)))) + (___match126611126612_ + _e121550121925_ + _hd121549121928_ + _tl121548121930_ + ___splice126576126577_ + _target121551121933_ + _tl121553121935_)) + (___match126611126612_ + _e121550121925_ + _hd121549121928_ + _tl121548121930_ + ___splice126576126577_ + _target121551121933_ + _tl121553121935_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match126611126612_ + _e121550121925_ + _hd121549121928_ + _tl121548121930_ + ___splice126576126577_ + _target121551121933_ + _tl121553121935_)) + (___match126611126612_ + _e121550121925_ + _hd121549121928_ + _tl121548121930_ + ___splice126576126577_ + _target121551121933_ + _tl121553121935_)) + (___match126611126612_ + _e121550121925_ + _hd121549121928_ + _tl121548121930_ + ___splice126576126577_ + _target121551121933_ + _tl121553121935_)))) + (___match126611126612_ + _e121550121925_ + _hd121549121928_ + _tl121548121930_ + ___splice126576126577_ + _target121551121933_ + _tl121553121935_)))) + (___match126611126612_ + _e121550121925_ + _hd121549121928_ + _tl121548121930_ + ___splice126576126577_ + _target121551121933_ + _tl121553121935_)) + (___match126611126612_ + _e121550121925_ + _hd121549121928_ + _tl121548121930_ + ___splice126576126577_ + _target121551121933_ + _tl121553121935_)) + (___match126611126612_ + _e121550121925_ + _hd121549121928_ + _tl121548121930_ + ___splice126576126577_ + _target121551121933_ + _tl121553121935_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match126611126612_ + _e121550121925_ + _hd121549121928_ + _tl121548121930_ + ___splice126576126577_ + _target121551121933_ + _tl121553121935_)))) + (___match126611126612_ + _e121550121925_ + _hd121549121928_ + _tl121548121930_ + ___splice126576126577_ + _target121551121933_ + _tl121553121935_))))))) (let () (declare (not safe)) - (_loop234312234696_ _target234309234691_ '())))))) + (_loop121554121938_ _target121551121933_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx243898243899_)) - (let ((_e234308234683_ + (gx#stx-pair? ___stx126572126573_)) + (let ((_e121550121925_ (let () (declare (not safe)) - (gx#stx-e ___stx243898243899_)))) - (let ((_tl234306234688_ + (gx#stx-e ___stx126572126573_)))) + (let ((_tl121548121930_ (let () (declare (not safe)) - (##cdr _e234308234683_))) - (_hd234307234686_ + (##cdr _e121550121925_))) + (_hd121549121928_ (let () (declare (not safe)) - (##car _e234308234683_)))) + (##car _e121550121925_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd234307234686_)) - (let ((___splice243902243903_ + (gx#stx-pair/null? _hd121549121928_)) + (let ((___splice126576126577_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd234307234686_ + _hd121549121928_ '0)))) - (let ((_tl234311234693_ + (let ((_tl121553121935_ (let () (declare (not safe)) - (##vector-ref ___splice243902243903_ '1))) - (_target234309234691_ + (##vector-ref ___splice126576126577_ '1))) + (_target121551121933_ (let () (declare (not safe)) (##vector-ref - ___splice243902243903_ + ___splice126576126577_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234311234693_)) - (___match243925243926_ - _e234308234683_ - _hd234307234686_ - _tl234306234688_ - ___splice243902243903_ - _target234309234691_ - _tl234311234693_) - (___match243937243938_ - _e234308234683_ - _hd234307234686_ - _tl234306234688_ - ___splice243902243903_ - _target234309234691_ - _tl234311234693_)))) + (gx#stx-null? _tl121553121935_)) + (___match126599126600_ + _e121550121925_ + _hd121549121928_ + _tl121548121930_ + ___splice126576126577_ + _target121551121933_ + _tl121553121935_) + (___match126611126612_ + _e121550121925_ + _hd121549121928_ + _tl121548121930_ + ___splice126576126577_ + _target121551121933_ + _tl121553121935_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234306234688_)) - (let ((_e234396234438_ + (gx#stx-pair? _tl121548121930_)) + (let ((_e121638121680_ (let () (declare (not safe)) - (gx#stx-e _tl234306234688_)))) - (let ((_tl234394234443_ + (gx#stx-e _tl121548121930_)))) + (let ((_tl121636121685_ (let () (declare (not safe)) - (##cdr _e234396234438_))) - (_hd234395234441_ + (##cdr _e121638121680_))) + (_hd121637121683_ (let () (declare (not safe)) - (##car _e234396234438_)))) + (##car _e121638121680_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234395234441_)) - (let ((_e234399234446_ + (gx#stx-pair? _hd121637121683_)) + (let ((_e121641121688_ (let () (declare (not safe)) - (gx#stx-e _hd234395234441_)))) - (let ((_tl234397234451_ + (gx#stx-e _hd121637121683_)))) + (let ((_tl121639121693_ (let () (declare (not safe)) - (##cdr _e234399234446_))) - (_hd234398234449_ + (##cdr _e121641121688_))) + (_hd121640121691_ (let () (declare (not safe)) - (##car _e234399234446_)))) + (##car _e121641121688_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd234398234449_)) + _hd121640121691_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd234398234449_)) + _hd121640121691_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234397234451_)) - (let ((_e234402234454_ + _tl121639121693_)) + (let ((_e121644121696_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl234397234451_)))) - (let ((_tl234400234459_ - (let () (declare (not safe)) (##cdr _e234402234454_))) - (_hd234401234457_ - (let () (declare (not safe)) (##car _e234402234454_)))) + (gx#stx-e _tl121639121693_)))) + (let ((_tl121642121701_ + (let () (declare (not safe)) (##cdr _e121644121696_))) + (_hd121643121699_ + (let () (declare (not safe)) (##car _e121644121696_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234401234457_)) - (let ((_e234405234462_ + (gx#stx-pair? _hd121643121699_)) + (let ((_e121647121704_ (let () (declare (not safe)) - (gx#stx-e _hd234401234457_)))) - (let ((_tl234403234467_ + (gx#stx-e _hd121643121699_)))) + (let ((_tl121645121709_ (let () (declare (not safe)) - (##cdr _e234405234462_))) - (_hd234404234465_ + (##cdr _e121647121704_))) + (_hd121646121707_ (let () (declare (not safe)) - (##car _e234405234462_)))) + (##car _e121647121704_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234404234465_)) + (gx#identifier? _hd121646121707_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd234404234465_)) + (gx#stx-eq? '%#ref _hd121646121707_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234403234467_)) - (let ((_e234408234470_ + (gx#stx-pair? _tl121645121709_)) + (let ((_e121650121712_ (let () (declare (not safe)) - (gx#stx-e _tl234403234467_)))) - (let ((_tl234406234475_ + (gx#stx-e _tl121645121709_)))) + (let ((_tl121648121717_ (let () (declare (not safe)) - (##cdr _e234408234470_))) - (_hd234407234473_ + (##cdr _e121650121712_))) + (_hd121649121715_ (let () (declare (not safe)) - (##car _e234408234470_)))) + (##car _e121650121712_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234406234475_)) + _tl121648121717_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234400234459_)) - (let ((_e234411234478_ + _tl121642121701_)) + (let ((_e121653121720_ (let () (declare (not safe)) (gx#stx-e - _tl234400234459_)))) - (let ((_tl234409234483_ + _tl121642121701_)))) + (let ((_tl121651121725_ (let () (declare (not safe)) - (##cdr _e234411234478_))) - (_hd234410234481_ + (##cdr _e121653121720_))) + (_hd121652121723_ (let () (declare (not safe)) - (##car _e234411234478_)))) + (##car _e121653121720_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd234410234481_)) - (let ((_e234414234486_ + _hd121652121723_)) + (let ((_e121656121728_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd234410234481_)))) - (let ((_tl234412234491_ + (gx#stx-e _hd121652121723_)))) + (let ((_tl121654121733_ (let () (declare (not safe)) - (##cdr _e234414234486_))) - (_hd234413234489_ + (##cdr _e121656121728_))) + (_hd121655121731_ (let () (declare (not safe)) - (##car _e234414234486_)))) + (##car _e121656121728_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234413234489_)) + (gx#identifier? _hd121655121731_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd234413234489_)) + (gx#stx-eq? '%#ref _hd121655121731_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234412234491_)) - (let ((_e234417234494_ + (gx#stx-pair? _tl121654121733_)) + (let ((_e121659121736_ (let () (declare (not safe)) - (gx#stx-e _tl234412234491_)))) - (let ((_tl234415234499_ + (gx#stx-e _tl121654121733_)))) + (let ((_tl121657121741_ (let () (declare (not safe)) - (##cdr _e234417234494_))) - (_hd234416234497_ + (##cdr _e121659121736_))) + (_hd121658121739_ (let () (declare (not safe)) - (##car _e234417234494_)))) + (##car _e121659121736_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234415234499_)) + (gx#stx-null? _tl121657121741_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234409234483_)) - (let ((_e234420234502_ + _tl121651121725_)) + (let ((_e121662121744_ (let () (declare (not safe)) (gx#stx-e - _tl234409234483_)))) - (let ((_tl234418234507_ + _tl121651121725_)))) + (let ((_tl121660121749_ (let () (declare (not safe)) - (##cdr _e234420234502_))) - (_hd234419234505_ + (##cdr _e121662121744_))) + (_hd121661121747_ (let () (declare (not safe)) - (##car _e234420234502_)))) + (##car _e121662121744_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234418234507_)) + _tl121660121749_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl234394234443_)) - (___kont243910243911_ - _hd234416234497_ - _hd234407234473_ - _hd234307234686_) + _tl121636121685_)) + (___kont126584126585_ + _hd121658121739_ + _hd121649121715_ + _hd121549121928_) (let () (declare (not safe)) - (_g234301234425_))) + (_g121543121667_))) (let () (declare (not safe)) - (_g234301234425_))))) + (_g121543121667_))))) (let () (declare (not safe)) - (_g234301234425_))) + (_g121543121667_))) (let () (declare (not safe)) - (_g234301234425_))))) + (_g121543121667_))))) (let () (declare (not safe)) - (_g234301234425_))) - (let () (declare (not safe)) (_g234301234425_))) - (let () (declare (not safe)) (_g234301234425_))))) - (let () (declare (not safe)) (_g234301234425_))))) + (_g121543121667_))) + (let () (declare (not safe)) (_g121543121667_))) + (let () (declare (not safe)) (_g121543121667_))))) + (let () (declare (not safe)) (_g121543121667_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g234301234425_))) + (_g121543121667_))) (let () (declare (not safe)) - (_g234301234425_))))) + (_g121543121667_))))) (let () (declare (not safe)) - (_g234301234425_))) + (_g121543121667_))) (let () (declare (not safe)) - (_g234301234425_))) + (_g121543121667_))) (let () (declare (not safe)) - (_g234301234425_))))) - (let () (declare (not safe)) (_g234301234425_))))) - (let () (declare (not safe)) (_g234301234425_))) + (_g121543121667_))))) + (let () (declare (not safe)) (_g121543121667_))))) + (let () (declare (not safe)) (_g121543121667_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g234301234425_))) + (_g121543121667_))) (let () (declare (not safe)) - (_g234301234425_))))) + (_g121543121667_))))) (let () (declare (not safe)) - (_g234301234425_))))) + (_g121543121667_))))) (let () (declare (not safe)) - (_g234301234425_)))))) - (let () (declare (not safe)) (_g234301234425_)))))))) + (_g121543121667_)))))) + (let () (declare (not safe)) (_g121543121667_)))))))) (define gxc#lambda-form-arity - (lambda (_form234101_) - (let* ((_g234103234117_ - (lambda (_g234104234114_) + (lambda (_form121343_) + (let* ((_g121345121359_ + (lambda (_g121346121356_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g234104234114_)))) - (_g234102234294_ - (lambda (_g234104234120_) + _g121346121356_)))) + (_g121344121536_ + (lambda (_g121346121362_) (if (let () (declare (not safe)) - (gx#stx-pair? _g234104234120_)) - (let ((_e234109234122_ + (gx#stx-pair? _g121346121362_)) + (let ((_e121351121364_ (let () (declare (not safe)) - (gx#stx-e _g234104234120_)))) - (let ((_hd234108234125_ + (gx#stx-e _g121346121362_)))) + (let ((_hd121350121367_ (let () (declare (not safe)) - (##car _e234109234122_))) - (_tl234107234127_ + (##car _e121351121364_))) + (_tl121349121369_ (let () (declare (not safe)) - (##cdr _e234109234122_)))) + (##cdr _e121351121364_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234107234127_)) - (let ((_e234112234130_ + (gx#stx-pair? _tl121349121369_)) + (let ((_e121354121372_ (let () (declare (not safe)) - (gx#stx-e _tl234107234127_)))) - (let ((_hd234111234133_ + (gx#stx-e _tl121349121369_)))) + (let ((_hd121353121375_ (let () (declare (not safe)) - (##car _e234112234130_))) - (_tl234110234135_ + (##car _e121354121372_))) + (_tl121352121377_ (let () (declare (not safe)) - (##cdr _e234112234130_)))) + (##cdr _e121354121372_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234110234135_)) - ((lambda (_L234138_ _L234139_) - (let* ((___stx244020244021_ _L234139_) - (_g234154234182_ + (gx#stx-null? _tl121352121377_)) + ((lambda (_L121380_ _L121381_) + (let* ((___stx126694126695_ _L121381_) + (_g121396121424_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx244020244021_))))) - (let ((___kont244022244023_ - (lambda (_L234273_) - (length (let ((__tmp245165 + ___stx126694126695_))))) + (let ((___kont126696126697_ + (lambda (_L121515_) + (length (let ((__tmp127839 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g234283234286_ _g234284234288_) + (lambda (_g121525121528_ _g121526121530_) (let () (declare (not safe)) - (cons _g234283234286_ _g234284234288_))))) + (cons _g121525121528_ _g121526121530_))))) (declare (not safe)) - (foldr1 __tmp245165 '() _L234273_))))) + (foldr1 __tmp127839 '() _L121515_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont244026244027_ - (lambda (_L234224_ _L234225_) - (let ((__tmp245166 - (length (let ((__tmp245167 + (___kont126700126701_ + (lambda (_L121466_ _L121467_) + (let ((__tmp127840 + (length (let ((__tmp127841 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g234236234239_ _g234237234241_) + (lambda (_g121478121481_ _g121479121483_) (let () (declare (not safe)) - (cons _g234236234239_ - _g234237234241_))))) + (cons _g121478121481_ + _g121479121483_))))) (declare (not safe)) - (foldr1 __tmp245167 '() _L234225_))))) + (foldr1 __tmp127841 '() _L121467_))))) (declare (not safe)) - (cons __tmp245166 '())))) + (cons __tmp127840 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont244030244031_ - (lambda (_L234187_) + (___kont126704126705_ + (lambda (_L121429_) (let () (declare (not safe)) (cons '0 '()))))) - (let* ((___match244045244046_ - (lambda (___splice244028244029_ - _target234168234200_ - _tl234170234202_) - (letrec ((_loop234171234205_ + (let* ((___match126719126720_ + (lambda (___splice126702126703_ + _target121410121442_ + _tl121412121444_) + (letrec ((_loop121413121447_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd234169234208_ _arg234175234210_) + (lambda (_hd121411121450_ _arg121417121452_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234169234208_)) - (let ((_e234172234213_ + (gx#stx-pair? _hd121411121450_)) + (let ((_e121414121455_ (let () (declare (not safe)) - (gx#stx-e _hd234169234208_)))) - (let ((_lp-tl234174234218_ + (gx#stx-e _hd121411121450_)))) + (let ((_lp-tl121416121460_ (let () (declare (not safe)) - (##cdr _e234172234213_))) - (_lp-hd234173234216_ + (##cdr _e121414121455_))) + (_lp-hd121415121458_ (let () (declare (not safe)) - (##car _e234172234213_)))) - (let ((__tmp245168 + (##car _e121414121455_)))) + (let ((__tmp127842 (let () (declare (not safe)) - (cons _lp-hd234173234216_ - _arg234175234210_)))) + (cons _lp-hd121415121458_ + _arg121417121452_)))) (declare (not safe)) - (_loop234171234205_ - _lp-tl234174234218_ - __tmp245168)))) - (let ((_arg234176234221_ - (reverse _arg234175234210_))) - (___kont244026244027_ - _tl234170234202_ - _arg234176234221_)))))) + (_loop121413121447_ + _lp-tl121416121460_ + __tmp127842)))) + (let ((_arg121418121463_ + (reverse _arg121417121452_))) + (___kont126700126701_ + _tl121412121444_ + _arg121418121463_)))))) (let () (declare (not safe)) - (_loop234171234205_ _target234168234200_ '()))))) + (_loop121413121447_ _target121410121442_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match244039244040_ - (lambda (___splice244024244025_ - _target234157234249_ - _tl234159234251_) - (letrec ((_loop234160234254_ + (___match126713126714_ + (lambda (___splice126698126699_ + _target121399121491_ + _tl121401121493_) + (letrec ((_loop121402121496_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd234158234257_ _arg234164234259_) + (lambda (_hd121400121499_ _arg121406121501_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234158234257_)) - (let ((_e234161234262_ + (gx#stx-pair? _hd121400121499_)) + (let ((_e121403121504_ (let () (declare (not safe)) - (gx#stx-e _hd234158234257_)))) - (let ((_lp-tl234163234267_ + (gx#stx-e _hd121400121499_)))) + (let ((_lp-tl121405121509_ (let () (declare (not safe)) - (##cdr _e234161234262_))) - (_lp-hd234162234265_ + (##cdr _e121403121504_))) + (_lp-hd121404121507_ (let () (declare (not safe)) - (##car _e234161234262_)))) - (let ((__tmp245169 + (##car _e121403121504_)))) + (let ((__tmp127843 (let () (declare (not safe)) - (cons _lp-hd234162234265_ - _arg234164234259_)))) + (cons _lp-hd121404121507_ + _arg121406121501_)))) (declare (not safe)) - (_loop234160234254_ - _lp-tl234163234267_ - __tmp245169)))) - (let ((_arg234165234270_ - (reverse _arg234164234259_))) - (___kont244022244023_ _arg234165234270_)))))) + (_loop121402121496_ + _lp-tl121405121509_ + __tmp127843)))) + (let ((_arg121407121512_ + (reverse _arg121406121501_))) + (___kont126696126697_ _arg121407121512_)))))) (let () (declare (not safe)) - (_loop234160234254_ _target234157234249_ '())))))) + (_loop121402121496_ _target121399121491_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - ___stx244020244021_)) - (let ((___splice244024244025_ + ___stx126694126695_)) + (let ((___splice126698126699_ (let () (declare (not safe)) (gx#syntax-split-splice - ___stx244020244021_ + ___stx126694126695_ '0)))) - (let ((_tl234159234251_ + (let ((_tl121401121493_ (let () (declare (not safe)) (##vector-ref - ___splice244024244025_ + ___splice126698126699_ '1))) - (_target234157234249_ + (_target121399121491_ (let () (declare (not safe)) (##vector-ref - ___splice244024244025_ + ___splice126698126699_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234159234251_)) - (___match244039244040_ - ___splice244024244025_ - _target234157234249_ - _tl234159234251_) - (___match244045244046_ - ___splice244024244025_ - _target234157234249_ - _tl234159234251_)))) - (___kont244030244031_ - ___stx244020244021_)))))) - _hd234111234133_ - _hd234108234125_) + _tl121401121493_)) + (___match126713126714_ + ___splice126698126699_ + _target121399121491_ + _tl121401121493_) + (___match126719126720_ + ___splice126698126699_ + _target121399121491_ + _tl121401121493_)))) + (___kont126704126705_ + ___stx126694126695_)))))) + _hd121353121375_ + _hd121350121367_) (let () (declare (not safe)) - (_g234103234117_ _g234104234120_))))) + (_g121345121359_ _g121346121362_))))) (let () (declare (not safe)) - (_g234103234117_ _g234104234120_))))) + (_g121345121359_ _g121346121362_))))) (let () (declare (not safe)) - (_g234103234117_ _g234104234120_)))))) + (_g121345121359_ _g121346121362_)))))) (declare (not safe)) - (_g234102234294_ _form234101_)))) + (_g121344121536_ _form121343_)))) (define gxc#lambda-expr? - (lambda (_expr234054_) - (let* ((___stx244048244049_ _expr234054_) - (_g234057234067_ + (lambda (_expr121296_) + (let* ((___stx126722126723_ _expr121296_) + (_g121299121309_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx244048244049_))))) - (let ((___kont244050244051_ (lambda (_L234087_) '#t)) - (___kont244052244053_ (lambda () '#f))) + ___stx126722126723_))))) + (let ((___kont126724126725_ (lambda (_L121329_) '#t)) + (___kont126726126727_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx244048244049_)) - (let ((_e234062234079_ + (gx#stx-pair? ___stx126722126723_)) + (let ((_e121304121321_ (let () (declare (not safe)) - (gx#stx-e ___stx244048244049_)))) - (let ((_tl234060234084_ - (let () (declare (not safe)) (##cdr _e234062234079_))) - (_hd234061234082_ + (gx#stx-e ___stx126722126723_)))) + (let ((_tl121302121326_ + (let () (declare (not safe)) (##cdr _e121304121321_))) + (_hd121303121324_ (let () (declare (not safe)) - (##car _e234062234079_)))) + (##car _e121304121321_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234061234082_)) + (gx#identifier? _hd121303121324_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd234061234082_)) - (___kont244050244051_ _tl234060234084_) - (___kont244052244053_)) - (___kont244052244053_)))) - (___kont244052244053_)))))) + (gx#stx-eq? '%#lambda _hd121303121324_)) + (___kont126724126725_ _tl121302121326_) + (___kont126726126727_)) + (___kont126726126727_)))) + (___kont126726126727_)))))) (define gxc#case-lambda-expr? - (lambda (_expr234007_) - (let* ((___stx244066244067_ _expr234007_) - (_g234010234020_ + (lambda (_expr121249_) + (let* ((___stx126740126741_ _expr121249_) + (_g121252121262_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx244066244067_))))) - (let ((___kont244068244069_ (lambda (_L234040_) '#t)) - (___kont244070244071_ (lambda () '#f))) + ___stx126740126741_))))) + (let ((___kont126742126743_ (lambda (_L121282_) '#t)) + (___kont126744126745_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx244066244067_)) - (let ((_e234015234032_ + (gx#stx-pair? ___stx126740126741_)) + (let ((_e121257121274_ (let () (declare (not safe)) - (gx#stx-e ___stx244066244067_)))) - (let ((_tl234013234037_ - (let () (declare (not safe)) (##cdr _e234015234032_))) - (_hd234014234035_ + (gx#stx-e ___stx126740126741_)))) + (let ((_tl121255121279_ + (let () (declare (not safe)) (##cdr _e121257121274_))) + (_hd121256121277_ (let () (declare (not safe)) - (##car _e234015234032_)))) + (##car _e121257121274_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234014234035_)) + (gx#identifier? _hd121256121277_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#case-lambda _hd234014234035_)) - (___kont244068244069_ _tl234013234037_) - (___kont244070244071_)) - (___kont244070244071_)))) - (___kont244070244071_)))))) + (gx#stx-eq? '%#case-lambda _hd121256121277_)) + (___kont126742126743_ _tl121255121279_) + (___kont126744126745_)) + (___kont126744126745_)))) + (___kont126744126745_)))))) (define gxc#opt-lambda-expr? - (lambda (_expr233876_) - (let* ((___stx244084244085_ _expr233876_) - (_g233879233909_ + (lambda (_expr121118_) + (let* ((___stx126758126759_ _expr121118_) + (_g121121121151_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx244084244085_))))) - (let ((___kont244086244087_ - (lambda (_L233977_ _L233978_ _L233979_) - (if (let () (declare (not safe)) (gx#identifier? _L233979_)) + ___stx126758126759_))))) + (let ((___kont126760126761_ + (lambda (_L121219_ _L121220_ _L121221_) + (if (let () (declare (not safe)) (gx#identifier? _L121221_)) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L233978_)) + (gxc#lambda-expr? _L121220_)) (let () (declare (not safe)) - (gxc#case-lambda-expr? _L233977_)) + (gxc#case-lambda-expr? _L121219_)) '#f) '#f))) - (___kont244088244089_ (lambda () '#f))) + (___kont126762126763_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx244084244085_)) - (let ((_e233886233921_ + (gx#stx-pair? ___stx126758126759_)) + (let ((_e121128121163_ (let () (declare (not safe)) - (gx#stx-e ___stx244084244085_)))) - (let ((_tl233884233926_ - (let () (declare (not safe)) (##cdr _e233886233921_))) - (_hd233885233924_ + (gx#stx-e ___stx126758126759_)))) + (let ((_tl121126121168_ + (let () (declare (not safe)) (##cdr _e121128121163_))) + (_hd121127121166_ (let () (declare (not safe)) - (##car _e233886233921_)))) + (##car _e121128121163_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233885233924_)) + (gx#identifier? _hd121127121166_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd233885233924_)) + (gx#stx-eq? '%#let-values _hd121127121166_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233884233926_)) - (let ((_e233889233929_ + (gx#stx-pair? _tl121126121168_)) + (let ((_e121131121171_ (let () (declare (not safe)) - (gx#stx-e _tl233884233926_)))) - (let ((_tl233887233934_ + (gx#stx-e _tl121126121168_)))) + (let ((_tl121129121176_ (let () (declare (not safe)) - (##cdr _e233889233929_))) - (_hd233888233932_ + (##cdr _e121131121171_))) + (_hd121130121174_ (let () (declare (not safe)) - (##car _e233889233929_)))) + (##car _e121131121171_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233888233932_)) - (let ((_e233892233937_ + (gx#stx-pair? _hd121130121174_)) + (let ((_e121134121179_ (let () (declare (not safe)) - (gx#stx-e _hd233888233932_)))) - (let ((_tl233890233942_ + (gx#stx-e _hd121130121174_)))) + (let ((_tl121132121184_ (let () (declare (not safe)) - (##cdr _e233892233937_))) - (_hd233891233940_ + (##cdr _e121134121179_))) + (_hd121133121182_ (let () (declare (not safe)) - (##car _e233892233937_)))) + (##car _e121134121179_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd233891233940_)) - (let ((_e233895233945_ + _hd121133121182_)) + (let ((_e121137121187_ (let () (declare (not safe)) (gx#stx-e - _hd233891233940_)))) - (let ((_tl233893233950_ + _hd121133121182_)))) + (let ((_tl121135121192_ (let () (declare (not safe)) - (##cdr _e233895233945_))) - (_hd233894233948_ + (##cdr _e121137121187_))) + (_hd121136121190_ (let () (declare (not safe)) - (##car _e233895233945_)))) + (##car _e121137121187_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd233894233948_)) - (let ((_e233898233953_ + _hd121136121190_)) + (let ((_e121140121195_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd233894233948_)))) - (let ((_tl233896233958_ - (let () (declare (not safe)) (##cdr _e233898233953_))) - (_hd233897233956_ + (gx#stx-e _hd121136121190_)))) + (let ((_tl121138121200_ + (let () (declare (not safe)) (##cdr _e121140121195_))) + (_hd121139121198_ (let () (declare (not safe)) - (##car _e233898233953_)))) + (##car _e121140121195_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233896233958_)) + (gx#stx-null? _tl121138121200_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233893233950_)) - (let ((_e233901233961_ + (gx#stx-pair? _tl121135121192_)) + (let ((_e121143121203_ (let () (declare (not safe)) - (gx#stx-e _tl233893233950_)))) - (let ((_tl233899233966_ + (gx#stx-e _tl121135121192_)))) + (let ((_tl121141121208_ (let () (declare (not safe)) - (##cdr _e233901233961_))) - (_hd233900233964_ + (##cdr _e121143121203_))) + (_hd121142121206_ (let () (declare (not safe)) - (##car _e233901233961_)))) + (##car _e121143121203_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233899233966_)) + (gx#stx-null? _tl121141121208_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl233890233942_)) + (gx#stx-null? _tl121132121184_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233887233934_)) - (let ((_e233904233969_ + (gx#stx-pair? _tl121129121176_)) + (let ((_e121146121211_ (let () (declare (not safe)) (gx#stx-e - _tl233887233934_)))) - (let ((_tl233902233974_ + _tl121129121176_)))) + (let ((_tl121144121216_ (let () (declare (not safe)) - (##cdr _e233904233969_))) - (_hd233903233972_ + (##cdr _e121146121211_))) + (_hd121145121214_ (let () (declare (not safe)) - (##car _e233904233969_)))) + (##car _e121146121211_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233902233974_)) - (___kont244086244087_ - _hd233903233972_ - _hd233900233964_ - _hd233897233956_) - (___kont244088244089_)))) - (___kont244088244089_)) - (___kont244088244089_)) - (___kont244088244089_)))) - (___kont244088244089_)) - (___kont244088244089_)))) - (___kont244088244089_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont244088244089_)))) - (___kont244088244089_)))) - (___kont244088244089_)) - (___kont244088244089_)) - (___kont244088244089_)))) - (___kont244088244089_)))))) + _tl121144121216_)) + (___kont126760126761_ + _hd121145121214_ + _hd121142121206_ + _hd121139121198_) + (___kont126762126763_)))) + (___kont126762126763_)) + (___kont126762126763_)) + (___kont126762126763_)))) + (___kont126762126763_)) + (___kont126762126763_)))) + (___kont126762126763_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont126762126763_)))) + (___kont126762126763_)))) + (___kont126762126763_)) + (___kont126762126763_)) + (___kont126762126763_)))) + (___kont126762126763_)))))) (define gxc#kw-lambda-expr? - (lambda (_expr233201_) - (let* ((___stx244146244147_ _expr233201_) - (_g233204233362_ + (lambda (_expr120443_) + (let* ((___stx126820126821_ _expr120443_) + (_g120446120604_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx244146244147_))))) - (let ((___kont244148244149_ - (lambda (_L233750_ - _L233751_ - _L233752_ - _L233753_ - _L233754_ - _L233755_ - _L233756_ - _L233757_ - _L233758_ - _L233759_ - _L233760_) + ___stx126820126821_))))) + (let ((___kont126822126823_ + (lambda (_L120992_ + _L120993_ + _L120994_ + _L120995_ + _L120996_ + _L120997_ + _L120998_ + _L120999_ + _L121000_ + _L121001_ + _L121002_) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _L233757_ 'apply)) + (gxc#runtime-identifier=? _L120999_ 'apply)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _L233753_ 'apply)) + (gxc#runtime-identifier=? _L120995_ 'apply)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L233752_ + _L120994_ 'keyword-dispatch)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L233760_ - _L233751_)) + _L121002_ + _L120993_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L233759_ - _L233756_)) + _L121001_ + _L120998_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L233754_ - _L233750_)) + _L120996_ + _L120992_)) (let () (declare (not safe)) (gx#free-identifier=? - _L233758_ - _L233755_)) + _L121000_ + _L120997_)) '#f) '#f) '#f) '#f) '#f) '#f))) - (___kont244150244151_ (lambda () '#f))) + (___kont126824126825_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx244146244147_)) - (let ((_e233219233374_ + (gx#stx-pair? ___stx126820126821_)) + (let ((_e120461120616_ (let () (declare (not safe)) - (gx#stx-e ___stx244146244147_)))) - (let ((_tl233217233379_ - (let () (declare (not safe)) (##cdr _e233219233374_))) - (_hd233218233377_ + (gx#stx-e ___stx126820126821_)))) + (let ((_tl120459120621_ + (let () (declare (not safe)) (##cdr _e120461120616_))) + (_hd120460120619_ (let () (declare (not safe)) - (##car _e233219233374_)))) + (##car _e120461120616_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233218233377_)) + (gx#identifier? _hd120460120619_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd233218233377_)) + (gx#stx-eq? '%#let-values _hd120460120619_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233217233379_)) - (let ((_e233222233382_ + (gx#stx-pair? _tl120459120621_)) + (let ((_e120464120624_ (let () (declare (not safe)) - (gx#stx-e _tl233217233379_)))) - (let ((_tl233220233387_ + (gx#stx-e _tl120459120621_)))) + (let ((_tl120462120629_ (let () (declare (not safe)) - (##cdr _e233222233382_))) - (_hd233221233385_ + (##cdr _e120464120624_))) + (_hd120463120627_ (let () (declare (not safe)) - (##car _e233222233382_)))) + (##car _e120464120624_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233221233385_)) - (let ((_e233225233390_ + (gx#stx-pair? _hd120463120627_)) + (let ((_e120467120632_ (let () (declare (not safe)) - (gx#stx-e _hd233221233385_)))) - (let ((_tl233223233395_ + (gx#stx-e _hd120463120627_)))) + (let ((_tl120465120637_ (let () (declare (not safe)) - (##cdr _e233225233390_))) - (_hd233224233393_ + (##cdr _e120467120632_))) + (_hd120466120635_ (let () (declare (not safe)) - (##car _e233225233390_)))) + (##car _e120467120632_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd233224233393_)) - (let ((_e233228233398_ + _hd120466120635_)) + (let ((_e120470120640_ (let () (declare (not safe)) (gx#stx-e - _hd233224233393_)))) - (let ((_tl233226233403_ + _hd120466120635_)))) + (let ((_tl120468120645_ (let () (declare (not safe)) - (##cdr _e233228233398_))) - (_hd233227233401_ + (##cdr _e120470120640_))) + (_hd120469120643_ (let () (declare (not safe)) - (##car _e233228233398_)))) + (##car _e120470120640_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd233227233401_)) - (let ((_e233231233406_ + _hd120469120643_)) + (let ((_e120473120648_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd233227233401_)))) - (let ((_tl233229233411_ - (let () (declare (not safe)) (##cdr _e233231233406_))) - (_hd233230233409_ + (gx#stx-e _hd120469120643_)))) + (let ((_tl120471120653_ + (let () (declare (not safe)) (##cdr _e120473120648_))) + (_hd120472120651_ (let () (declare (not safe)) - (##car _e233231233406_)))) + (##car _e120473120648_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233229233411_)) + (gx#stx-null? _tl120471120653_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233226233403_)) - (let ((_e233234233414_ + (gx#stx-pair? _tl120468120645_)) + (let ((_e120476120656_ (let () (declare (not safe)) - (gx#stx-e _tl233226233403_)))) - (let ((_tl233232233419_ + (gx#stx-e _tl120468120645_)))) + (let ((_tl120474120661_ (let () (declare (not safe)) - (##cdr _e233234233414_))) - (_hd233233233417_ + (##cdr _e120476120656_))) + (_hd120475120659_ (let () (declare (not safe)) - (##car _e233234233414_)))) + (##car _e120476120656_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233233233417_)) - (let ((_e233237233422_ + (gx#stx-pair? _hd120475120659_)) + (let ((_e120479120664_ (let () (declare (not safe)) - (gx#stx-e _hd233233233417_)))) - (let ((_tl233235233427_ + (gx#stx-e _hd120475120659_)))) + (let ((_tl120477120669_ (let () (declare (not safe)) - (##cdr _e233237233422_))) - (_hd233236233425_ + (##cdr _e120479120664_))) + (_hd120478120667_ (let () (declare (not safe)) - (##car _e233237233422_)))) + (##car _e120479120664_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd233236233425_)) + _hd120478120667_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd233236233425_)) + _hd120478120667_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233235233427_)) - (let ((_e233240233430_ + _tl120477120669_)) + (let ((_e120482120672_ (let () (declare (not safe)) (gx#stx-e - _tl233235233427_)))) - (let ((_tl233238233435_ + _tl120477120669_)))) + (let ((_tl120480120677_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e233240233430_))) - (_hd233239233433_ - (let () (declare (not safe)) (##car _e233240233430_)))) + (##cdr _e120482120672_))) + (_hd120481120675_ + (let () (declare (not safe)) (##car _e120482120672_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233239233433_)) - (let ((_e233243233438_ + (gx#stx-pair? _hd120481120675_)) + (let ((_e120485120680_ (let () (declare (not safe)) - (gx#stx-e _hd233239233433_)))) - (let ((_tl233241233443_ + (gx#stx-e _hd120481120675_)))) + (let ((_tl120483120685_ (let () (declare (not safe)) - (##cdr _e233243233438_))) - (_hd233242233441_ + (##cdr _e120485120680_))) + (_hd120484120683_ (let () (declare (not safe)) - (##car _e233243233438_)))) + (##car _e120485120680_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233242233441_)) - (let ((_e233246233446_ + (gx#stx-pair? _hd120484120683_)) + (let ((_e120488120688_ (let () (declare (not safe)) - (gx#stx-e _hd233242233441_)))) - (let ((_tl233244233451_ + (gx#stx-e _hd120484120683_)))) + (let ((_tl120486120693_ (let () (declare (not safe)) - (##cdr _e233246233446_))) - (_hd233245233449_ + (##cdr _e120488120688_))) + (_hd120487120691_ (let () (declare (not safe)) - (##car _e233246233446_)))) + (##car _e120488120688_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233245233449_)) - (let ((_e233249233454_ + (gx#stx-pair? _hd120487120691_)) + (let ((_e120491120696_ (let () (declare (not safe)) - (gx#stx-e _hd233245233449_)))) - (let ((_tl233247233459_ + (gx#stx-e _hd120487120691_)))) + (let ((_tl120489120701_ (let () (declare (not safe)) - (##cdr _e233249233454_))) - (_hd233248233457_ + (##cdr _e120491120696_))) + (_hd120490120699_ (let () (declare (not safe)) - (##car _e233249233454_)))) + (##car _e120491120696_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233247233459_)) + (gx#stx-null? _tl120489120701_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233244233451_)) - (let ((_e233252233462_ + _tl120486120693_)) + (let ((_e120494120704_ (let () (declare (not safe)) (gx#stx-e - _tl233244233451_)))) - (let ((_tl233250233467_ + _tl120486120693_)))) + (let ((_tl120492120709_ (let () (declare (not safe)) - (##cdr _e233252233462_))) - (_hd233251233465_ + (##cdr _e120494120704_))) + (_hd120493120707_ (let () (declare (not safe)) - (##car _e233252233462_)))) + (##car _e120494120704_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233250233467_)) + _tl120492120709_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl233241233443_)) + _tl120483120685_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl233238233435_)) - (let ((_e233255233470_ + (gx#stx-pair? _tl120480120677_)) + (let ((_e120497120712_ (let () (declare (not safe)) - (gx#stx-e _tl233238233435_)))) - (let ((_tl233253233475_ + (gx#stx-e _tl120480120677_)))) + (let ((_tl120495120717_ (let () (declare (not safe)) - (##cdr _e233255233470_))) - (_hd233254233473_ + (##cdr _e120497120712_))) + (_hd120496120715_ (let () (declare (not safe)) - (##car _e233255233470_)))) + (##car _e120497120712_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233254233473_)) - (let ((_e233258233478_ + (gx#stx-pair? _hd120496120715_)) + (let ((_e120500120720_ (let () (declare (not safe)) - (gx#stx-e _hd233254233473_)))) - (let ((_tl233256233483_ + (gx#stx-e _hd120496120715_)))) + (let ((_tl120498120725_ (let () (declare (not safe)) - (##cdr _e233258233478_))) - (_hd233257233481_ + (##cdr _e120500120720_))) + (_hd120499120723_ (let () (declare (not safe)) - (##car _e233258233478_)))) + (##car _e120500120720_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233257233481_)) + (gx#identifier? _hd120499120723_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd233257233481_)) + _hd120499120723_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233256233483_)) - (let ((_e233261233486_ + _tl120498120725_)) + (let ((_e120503120728_ (let () (declare (not safe)) (gx#stx-e - _tl233256233483_)))) - (let ((_tl233259233491_ + _tl120498120725_)))) + (let ((_tl120501120733_ (let () (declare (not safe)) - (##cdr _e233261233486_))) - (_hd233260233489_ + (##cdr _e120503120728_))) + (_hd120502120731_ (let () (declare (not safe)) - (##car _e233261233486_)))) + (##car _e120503120728_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd233260233489_)) - (let ((_e233264233494_ + _hd120502120731_)) + (let ((_e120506120736_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd233260233489_)))) - (let ((_tl233262233499_ - (let () (declare (not safe)) (##cdr _e233264233494_))) - (_hd233263233497_ + (gx#stx-e _hd120502120731_)))) + (let ((_tl120504120741_ + (let () (declare (not safe)) (##cdr _e120506120736_))) + (_hd120505120739_ (let () (declare (not safe)) - (##car _e233264233494_)))) + (##car _e120506120736_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233259233491_)) - (let ((_e233267233502_ + (gx#stx-pair? _tl120501120733_)) + (let ((_e120509120744_ (let () (declare (not safe)) - (gx#stx-e _tl233259233491_)))) - (let ((_tl233265233507_ + (gx#stx-e _tl120501120733_)))) + (let ((_tl120507120749_ (let () (declare (not safe)) - (##cdr _e233267233502_))) - (_hd233266233505_ + (##cdr _e120509120744_))) + (_hd120508120747_ (let () (declare (not safe)) - (##car _e233267233502_)))) + (##car _e120509120744_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233266233505_)) - (let ((_e233270233510_ + (gx#stx-pair? _hd120508120747_)) + (let ((_e120512120752_ (let () (declare (not safe)) - (gx#stx-e _hd233266233505_)))) - (let ((_tl233268233515_ + (gx#stx-e _hd120508120747_)))) + (let ((_tl120510120757_ (let () (declare (not safe)) - (##cdr _e233270233510_))) - (_hd233269233513_ + (##cdr _e120512120752_))) + (_hd120511120755_ (let () (declare (not safe)) - (##car _e233270233510_)))) + (##car _e120512120752_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233269233513_)) + (gx#identifier? _hd120511120755_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd233269233513_)) + _hd120511120755_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233268233515_)) - (let ((_e233273233518_ + _tl120510120757_)) + (let ((_e120515120760_ (let () (declare (not safe)) (gx#stx-e - _tl233268233515_)))) - (let ((_tl233271233523_ + _tl120510120757_)))) + (let ((_tl120513120765_ (let () (declare (not safe)) - (##cdr _e233273233518_))) - (_hd233272233521_ + (##cdr _e120515120760_))) + (_hd120514120763_ (let () (declare (not safe)) - (##car _e233273233518_)))) + (##car _e120515120760_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd233272233521_)) - (let ((_e233276233526_ + _hd120514120763_)) + (let ((_e120518120768_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd233272233521_)))) - (let ((_tl233274233531_ - (let () (declare (not safe)) (##cdr _e233276233526_))) - (_hd233275233529_ + (gx#stx-e _hd120514120763_)))) + (let ((_tl120516120773_ + (let () (declare (not safe)) (##cdr _e120518120768_))) + (_hd120517120771_ (let () (declare (not safe)) - (##car _e233276233526_)))) + (##car _e120518120768_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233275233529_)) + (gx#identifier? _hd120517120771_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd233275233529_)) + (gx#stx-eq? '%#ref _hd120517120771_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233274233531_)) - (let ((_e233279233534_ + (gx#stx-pair? _tl120516120773_)) + (let ((_e120521120776_ (let () (declare (not safe)) - (gx#stx-e _tl233274233531_)))) - (let ((_tl233277233539_ + (gx#stx-e _tl120516120773_)))) + (let ((_tl120519120781_ (let () (declare (not safe)) - (##cdr _e233279233534_))) - (_hd233278233537_ + (##cdr _e120521120776_))) + (_hd120520120779_ (let () (declare (not safe)) - (##car _e233279233534_)))) + (##car _e120521120776_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233277233539_)) + (gx#stx-null? _tl120519120781_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233271233523_)) - (let ((_e233282233542_ + (gx#stx-pair? _tl120513120765_)) + (let ((_e120524120784_ (let () (declare (not safe)) (gx#stx-e - _tl233271233523_)))) - (let ((_tl233280233547_ + _tl120513120765_)))) + (let ((_tl120522120789_ (let () (declare (not safe)) - (##cdr _e233282233542_))) - (_hd233281233545_ + (##cdr _e120524120784_))) + (_hd120523120787_ (let () (declare (not safe)) - (##car _e233282233542_)))) + (##car _e120524120784_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd233281233545_)) - (let ((_e233285233550_ + _hd120523120787_)) + (let ((_e120527120792_ (let () (declare (not safe)) (gx#stx-e - _hd233281233545_)))) - (let ((_tl233283233555_ + _hd120523120787_)))) + (let ((_tl120525120797_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e233285233550_))) - (_hd233284233553_ - (let () (declare (not safe)) (##car _e233285233550_)))) + (##cdr _e120527120792_))) + (_hd120526120795_ + (let () (declare (not safe)) (##car _e120527120792_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233284233553_)) + (gx#identifier? _hd120526120795_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd233284233553_)) + (gx#stx-eq? '%#ref _hd120526120795_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233283233555_)) - (let ((_e233288233558_ + (gx#stx-pair? _tl120525120797_)) + (let ((_e120530120800_ (let () (declare (not safe)) - (gx#stx-e _tl233283233555_)))) - (let ((_tl233286233563_ + (gx#stx-e _tl120525120797_)))) + (let ((_tl120528120805_ (let () (declare (not safe)) - (##cdr _e233288233558_))) - (_hd233287233561_ + (##cdr _e120530120800_))) + (_hd120529120803_ (let () (declare (not safe)) - (##car _e233288233558_)))) + (##car _e120530120800_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233286233563_)) + (gx#stx-null? _tl120528120805_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233280233547_)) - (let ((_e233291233566_ + (gx#stx-pair? _tl120522120789_)) + (let ((_e120533120808_ (let () (declare (not safe)) - (gx#stx-e _tl233280233547_)))) - (let ((_tl233289233571_ + (gx#stx-e _tl120522120789_)))) + (let ((_tl120531120813_ (let () (declare (not safe)) - (##cdr _e233291233566_))) - (_hd233290233569_ + (##cdr _e120533120808_))) + (_hd120532120811_ (let () (declare (not safe)) - (##car _e233291233566_)))) + (##car _e120533120808_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd233290233569_)) - (let ((_e233294233574_ + _hd120532120811_)) + (let ((_e120536120816_ (let () (declare (not safe)) (gx#stx-e - _hd233290233569_)))) - (let ((_tl233292233579_ + _hd120532120811_)))) + (let ((_tl120534120821_ (let () (declare (not safe)) - (##cdr _e233294233574_))) - (_hd233293233577_ + (##cdr _e120536120816_))) + (_hd120535120819_ (let () (declare (not safe)) - (##car _e233294233574_)))) + (##car _e120536120816_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd233293233577_)) + _hd120535120819_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd233293233577_)) + _hd120535120819_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl233292233579_)) - (let ((_e233297233582_ + (gx#stx-pair? _tl120534120821_)) + (let ((_e120539120824_ (let () (declare (not safe)) - (gx#stx-e _tl233292233579_)))) - (let ((_tl233295233587_ + (gx#stx-e _tl120534120821_)))) + (let ((_tl120537120829_ (let () (declare (not safe)) - (##cdr _e233297233582_))) - (_hd233296233585_ + (##cdr _e120539120824_))) + (_hd120538120827_ (let () (declare (not safe)) - (##car _e233297233582_)))) + (##car _e120539120824_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233295233587_)) + (gx#stx-null? _tl120537120829_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl233265233507_)) + (gx#stx-null? _tl120507120749_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl233253233475_)) + (gx#stx-null? _tl120495120717_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl233232233419_)) + (gx#stx-null? _tl120474120661_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl233223233395_)) + _tl120465120637_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233220233387_)) - (let ((_e233300233590_ + _tl120462120629_)) + (let ((_e120542120832_ (let () (declare (not safe)) (gx#stx-e - _tl233220233387_)))) - (let ((_tl233298233595_ + _tl120462120629_)))) + (let ((_tl120540120837_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e233300233590_))) - (_hd233299233593_ - (let () (declare (not safe)) (##car _e233300233590_)))) + (##cdr _e120542120832_))) + (_hd120541120835_ + (let () (declare (not safe)) (##car _e120542120832_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233299233593_)) - (let ((_e233303233598_ + (gx#stx-pair? _hd120541120835_)) + (let ((_e120545120840_ (let () (declare (not safe)) - (gx#stx-e _hd233299233593_)))) - (let ((_tl233301233603_ + (gx#stx-e _hd120541120835_)))) + (let ((_tl120543120845_ (let () (declare (not safe)) - (##cdr _e233303233598_))) - (_hd233302233601_ + (##cdr _e120545120840_))) + (_hd120544120843_ (let () (declare (not safe)) - (##car _e233303233598_)))) + (##car _e120545120840_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233302233601_)) + (gx#identifier? _hd120544120843_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd233302233601_)) + (gx#stx-eq? '%#lambda _hd120544120843_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233301233603_)) - (let ((_e233306233606_ + (gx#stx-pair? _tl120543120845_)) + (let ((_e120548120848_ (let () (declare (not safe)) - (gx#stx-e _tl233301233603_)))) - (let ((_tl233304233611_ + (gx#stx-e _tl120543120845_)))) + (let ((_tl120546120853_ (let () (declare (not safe)) - (##cdr _e233306233606_))) - (_hd233305233609_ + (##cdr _e120548120848_))) + (_hd120547120851_ (let () (declare (not safe)) - (##car _e233306233606_)))) + (##car _e120548120848_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233304233611_)) - (let ((_e233309233614_ + (gx#stx-pair? _tl120546120853_)) + (let ((_e120551120856_ (let () (declare (not safe)) (gx#stx-e - _tl233304233611_)))) - (let ((_tl233307233619_ + _tl120546120853_)))) + (let ((_tl120549120861_ (let () (declare (not safe)) - (##cdr _e233309233614_))) - (_hd233308233617_ + (##cdr _e120551120856_))) + (_hd120550120859_ (let () (declare (not safe)) - (##car _e233309233614_)))) + (##car _e120551120856_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd233308233617_)) - (let ((_e233312233622_ + _hd120550120859_)) + (let ((_e120554120864_ (let () (declare (not safe)) (gx#stx-e - _hd233308233617_)))) - (let ((_tl233310233627_ + _hd120550120859_)))) + (let ((_tl120552120869_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e233312233622_))) - (_hd233311233625_ - (let () (declare (not safe)) (##car _e233312233622_)))) + (##cdr _e120554120864_))) + (_hd120553120867_ + (let () (declare (not safe)) (##car _e120554120864_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233311233625_)) + (gx#identifier? _hd120553120867_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd233311233625_)) + (gx#stx-eq? '%#call _hd120553120867_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233310233627_)) - (let ((_e233315233630_ + (gx#stx-pair? _tl120552120869_)) + (let ((_e120557120872_ (let () (declare (not safe)) - (gx#stx-e _tl233310233627_)))) - (let ((_tl233313233635_ + (gx#stx-e _tl120552120869_)))) + (let ((_tl120555120877_ (let () (declare (not safe)) - (##cdr _e233315233630_))) - (_hd233314233633_ + (##cdr _e120557120872_))) + (_hd120556120875_ (let () (declare (not safe)) - (##car _e233315233630_)))) + (##car _e120557120872_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233314233633_)) - (let ((_e233318233638_ + (gx#stx-pair? _hd120556120875_)) + (let ((_e120560120880_ (let () (declare (not safe)) - (gx#stx-e _hd233314233633_)))) - (let ((_tl233316233643_ + (gx#stx-e _hd120556120875_)))) + (let ((_tl120558120885_ (let () (declare (not safe)) - (##cdr _e233318233638_))) - (_hd233317233641_ + (##cdr _e120560120880_))) + (_hd120559120883_ (let () (declare (not safe)) - (##car _e233318233638_)))) + (##car _e120560120880_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd233317233641_)) + _hd120559120883_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd233317233641_)) + _hd120559120883_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233316233643_)) - (let ((_e233321233646_ + _tl120558120885_)) + (let ((_e120563120888_ (let () (declare (not safe)) (gx#stx-e - _tl233316233643_)))) - (let ((_tl233319233651_ + _tl120558120885_)))) + (let ((_tl120561120893_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e233321233646_))) - (_hd233320233649_ - (let () (declare (not safe)) (##car _e233321233646_)))) + (##cdr _e120563120888_))) + (_hd120562120891_ + (let () (declare (not safe)) (##car _e120563120888_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233319233651_)) + (gx#stx-null? _tl120561120893_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233313233635_)) - (let ((_e233324233654_ + (gx#stx-pair? _tl120555120877_)) + (let ((_e120566120896_ (let () (declare (not safe)) - (gx#stx-e _tl233313233635_)))) - (let ((_tl233322233659_ + (gx#stx-e _tl120555120877_)))) + (let ((_tl120564120901_ (let () (declare (not safe)) - (##cdr _e233324233654_))) - (_hd233323233657_ + (##cdr _e120566120896_))) + (_hd120565120899_ (let () (declare (not safe)) - (##car _e233324233654_)))) + (##car _e120566120896_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233323233657_)) - (let ((_e233327233662_ + (gx#stx-pair? _hd120565120899_)) + (let ((_e120569120904_ (let () (declare (not safe)) - (gx#stx-e _hd233323233657_)))) - (let ((_tl233325233667_ + (gx#stx-e _hd120565120899_)))) + (let ((_tl120567120909_ (let () (declare (not safe)) - (##cdr _e233327233662_))) - (_hd233326233665_ + (##cdr _e120569120904_))) + (_hd120568120907_ (let () (declare (not safe)) - (##car _e233327233662_)))) + (##car _e120569120904_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233326233665_)) + (gx#identifier? _hd120568120907_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd233326233665_)) + _hd120568120907_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233325233667_)) - (let ((_e233330233670_ + _tl120567120909_)) + (let ((_e120572120912_ (let () (declare (not safe)) (gx#stx-e - _tl233325233667_)))) - (let ((_tl233328233675_ + _tl120567120909_)))) + (let ((_tl120570120917_ (let () (declare (not safe)) - (##cdr _e233330233670_))) - (_hd233329233673_ + (##cdr _e120572120912_))) + (_hd120571120915_ (let () (declare (not safe)) - (##car _e233330233670_)))) + (##car _e120572120912_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233328233675_)) + _tl120570120917_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233322233659_)) - (let ((_e233333233678_ + _tl120564120901_)) + (let ((_e120575120920_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl233322233659_)))) - (let ((_tl233331233683_ + (gx#stx-e _tl120564120901_)))) + (let ((_tl120573120925_ (let () (declare (not safe)) - (##cdr _e233333233678_))) - (_hd233332233681_ + (##cdr _e120575120920_))) + (_hd120574120923_ (let () (declare (not safe)) - (##car _e233333233678_)))) + (##car _e120575120920_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233332233681_)) - (let ((_e233336233686_ + (gx#stx-pair? _hd120574120923_)) + (let ((_e120578120928_ (let () (declare (not safe)) - (gx#stx-e _hd233332233681_)))) - (let ((_tl233334233691_ + (gx#stx-e _hd120574120923_)))) + (let ((_tl120576120933_ (let () (declare (not safe)) - (##cdr _e233336233686_))) - (_hd233335233689_ + (##cdr _e120578120928_))) + (_hd120577120931_ (let () (declare (not safe)) - (##car _e233336233686_)))) + (##car _e120578120928_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233335233689_)) + (gx#identifier? _hd120577120931_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd233335233689_)) + _hd120577120931_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233334233691_)) - (let ((_e233339233694_ + (gx#stx-pair? _tl120576120933_)) + (let ((_e120581120936_ (let () (declare (not safe)) (gx#stx-e - _tl233334233691_)))) - (let ((_tl233337233699_ + _tl120576120933_)))) + (let ((_tl120579120941_ (let () (declare (not safe)) - (##cdr _e233339233694_))) - (_hd233338233697_ + (##cdr _e120581120936_))) + (_hd120580120939_ (let () (declare (not safe)) - (##car _e233339233694_)))) + (##car _e120581120936_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233337233699_)) + _tl120579120941_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233331233683_)) - (let ((_e233342233702_ + _tl120573120925_)) + (let ((_e120584120944_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl233331233683_)))) - (let ((_tl233340233707_ - (let () (declare (not safe)) (##cdr _e233342233702_))) - (_hd233341233705_ + (gx#stx-e _tl120573120925_)))) + (let ((_tl120582120949_ + (let () (declare (not safe)) (##cdr _e120584120944_))) + (_hd120583120947_ (let () (declare (not safe)) - (##car _e233342233702_)))) + (##car _e120584120944_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233341233705_)) - (let ((_e233345233710_ + (gx#stx-pair? _hd120583120947_)) + (let ((_e120587120952_ (let () (declare (not safe)) - (gx#stx-e _hd233341233705_)))) - (let ((_tl233343233715_ + (gx#stx-e _hd120583120947_)))) + (let ((_tl120585120957_ (let () (declare (not safe)) - (##cdr _e233345233710_))) - (_hd233344233713_ + (##cdr _e120587120952_))) + (_hd120586120955_ (let () (declare (not safe)) - (##car _e233345233710_)))) + (##car _e120587120952_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233344233713_)) + (gx#identifier? _hd120586120955_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd233344233713_)) + (gx#stx-eq? '%#ref _hd120586120955_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233343233715_)) - (let ((_e233348233718_ + (gx#stx-pair? _tl120585120957_)) + (let ((_e120590120960_ (let () (declare (not safe)) - (gx#stx-e _tl233343233715_)))) - (let ((_tl233346233723_ + (gx#stx-e _tl120585120957_)))) + (let ((_tl120588120965_ (let () (declare (not safe)) - (##cdr _e233348233718_))) - (_hd233347233721_ + (##cdr _e120590120960_))) + (_hd120589120963_ (let () (declare (not safe)) - (##car _e233348233718_)))) + (##car _e120590120960_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233346233723_)) + _tl120588120965_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233340233707_)) - (let ((_e233351233726_ + _tl120582120949_)) + (let ((_e120593120968_ (let () (declare (not safe)) (gx#stx-e - _tl233340233707_)))) - (let ((_tl233349233731_ + _tl120582120949_)))) + (let ((_tl120591120973_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e233351233726_))) - (_hd233350233729_ - (let () (declare (not safe)) (##car _e233351233726_)))) + (##cdr _e120593120968_))) + (_hd120592120971_ + (let () (declare (not safe)) (##car _e120593120968_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233350233729_)) - (let ((_e233354233734_ + (gx#stx-pair? _hd120592120971_)) + (let ((_e120596120976_ (let () (declare (not safe)) - (gx#stx-e _hd233350233729_)))) - (let ((_tl233352233739_ + (gx#stx-e _hd120592120971_)))) + (let ((_tl120594120981_ (let () (declare (not safe)) - (##cdr _e233354233734_))) - (_hd233353233737_ + (##cdr _e120596120976_))) + (_hd120595120979_ (let () (declare (not safe)) - (##car _e233354233734_)))) + (##car _e120596120976_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233353233737_)) + (gx#identifier? _hd120595120979_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd233353233737_)) + (gx#stx-eq? '%#ref _hd120595120979_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233352233739_)) - (let ((_e233357233742_ + (gx#stx-pair? _tl120594120981_)) + (let ((_e120599120984_ (let () (declare (not safe)) - (gx#stx-e _tl233352233739_)))) - (let ((_tl233355233747_ + (gx#stx-e _tl120594120981_)))) + (let ((_tl120597120989_ (let () (declare (not safe)) - (##cdr _e233357233742_))) - (_hd233356233745_ + (##cdr _e120599120984_))) + (_hd120598120987_ (let () (declare (not safe)) - (##car _e233357233742_)))) + (##car _e120599120984_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233355233747_)) + (gx#stx-null? _tl120597120989_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl233349233731_)) + _tl120591120973_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl233307233619_)) + _tl120549120861_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl233298233595_)) - (___kont244148244149_ - _hd233356233745_ - _hd233347233721_ - _hd233329233673_ - _hd233320233649_ - _hd233305233609_ - _hd233296233585_ - _hd233287233561_ - _hd233278233537_ - _hd233263233497_ - _hd233248233457_ - _hd233230233409_) - (___kont244150244151_)) - (___kont244150244151_)) - (___kont244150244151_)) - (___kont244150244151_)))) - (___kont244150244151_)) - (___kont244150244151_)) - (___kont244150244151_)))) - (___kont244150244151_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont244150244151_)) - (___kont244150244151_)))) - (___kont244150244151_)) - (___kont244150244151_)) - (___kont244150244151_)))) - (___kont244150244151_)))) - (___kont244150244151_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont244150244151_)))) - (___kont244150244151_)) - (___kont244150244151_)) - (___kont244150244151_)))) - (___kont244150244151_)))) - (___kont244150244151_)) - (___kont244150244151_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont244150244151_)) - (___kont244150244151_)) - (___kont244150244151_)))) - (___kont244150244151_)))) - (___kont244150244151_)) - (___kont244150244151_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont244150244151_)) - (___kont244150244151_)) - (___kont244150244151_)))) - (___kont244150244151_)))) - (___kont244150244151_)) - (___kont244150244151_)) - (___kont244150244151_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont244150244151_)))) - (___kont244150244151_)))) - (___kont244150244151_)) - (___kont244150244151_)) - (___kont244150244151_)))) - (___kont244150244151_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont244150244151_)) - (___kont244150244151_)) - (___kont244150244151_)) - (___kont244150244151_)) - (___kont244150244151_)) - (___kont244150244151_)))) - (___kont244150244151_)) - (___kont244150244151_)) - (___kont244150244151_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont244150244151_)))) - (___kont244150244151_)) - (___kont244150244151_)))) - (___kont244150244151_)) - (___kont244150244151_)) - (___kont244150244151_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont244150244151_)))) - (___kont244150244151_)) - (___kont244150244151_)))) - (___kont244150244151_)) - (___kont244150244151_)) - (___kont244150244151_)))) - (___kont244150244151_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont244150244151_)) - (___kont244150244151_)) - (___kont244150244151_)))) - (___kont244150244151_)))) - (___kont244150244151_)))) - (___kont244150244151_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont244150244151_)) - (___kont244150244151_)) - (___kont244150244151_)))) - (___kont244150244151_)))) - (___kont244150244151_)) - (___kont244150244151_)) - (___kont244150244151_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont244150244151_)) - (___kont244150244151_)))) - (___kont244150244151_)))) - (___kont244150244151_)))) - (___kont244150244151_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont244150244151_)) - (___kont244150244151_)) - (___kont244150244151_)))) - (___kont244150244151_)))) - (___kont244150244151_)) - (___kont244150244151_)))) - (___kont244150244151_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont244150244151_)))) - (___kont244150244151_)))) - (___kont244150244151_)) - (___kont244150244151_)) - (___kont244150244151_)))) - (___kont244150244151_)))))) + _tl120540120837_)) + (___kont126822126823_ + _hd120598120987_ + _hd120589120963_ + _hd120571120915_ + _hd120562120891_ + _hd120547120851_ + _hd120538120827_ + _hd120529120803_ + _hd120520120779_ + _hd120505120739_ + _hd120490120699_ + _hd120472120651_) + (___kont126824126825_)) + (___kont126824126825_)) + (___kont126824126825_)) + (___kont126824126825_)))) + (___kont126824126825_)) + (___kont126824126825_)) + (___kont126824126825_)))) + (___kont126824126825_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont126824126825_)) + (___kont126824126825_)))) + (___kont126824126825_)) + (___kont126824126825_)) + (___kont126824126825_)))) + (___kont126824126825_)))) + (___kont126824126825_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont126824126825_)))) + (___kont126824126825_)) + (___kont126824126825_)) + (___kont126824126825_)))) + (___kont126824126825_)))) + (___kont126824126825_)) + (___kont126824126825_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont126824126825_)) + (___kont126824126825_)) + (___kont126824126825_)))) + (___kont126824126825_)))) + (___kont126824126825_)) + (___kont126824126825_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont126824126825_)) + (___kont126824126825_)) + (___kont126824126825_)))) + (___kont126824126825_)))) + (___kont126824126825_)) + (___kont126824126825_)) + (___kont126824126825_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont126824126825_)))) + (___kont126824126825_)))) + (___kont126824126825_)) + (___kont126824126825_)) + (___kont126824126825_)))) + (___kont126824126825_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont126824126825_)) + (___kont126824126825_)) + (___kont126824126825_)) + (___kont126824126825_)) + (___kont126824126825_)) + (___kont126824126825_)))) + (___kont126824126825_)) + (___kont126824126825_)) + (___kont126824126825_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont126824126825_)))) + (___kont126824126825_)) + (___kont126824126825_)))) + (___kont126824126825_)) + (___kont126824126825_)) + (___kont126824126825_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont126824126825_)))) + (___kont126824126825_)) + (___kont126824126825_)))) + (___kont126824126825_)) + (___kont126824126825_)) + (___kont126824126825_)))) + (___kont126824126825_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont126824126825_)) + (___kont126824126825_)) + (___kont126824126825_)))) + (___kont126824126825_)))) + (___kont126824126825_)))) + (___kont126824126825_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont126824126825_)) + (___kont126824126825_)) + (___kont126824126825_)))) + (___kont126824126825_)))) + (___kont126824126825_)) + (___kont126824126825_)) + (___kont126824126825_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont126824126825_)) + (___kont126824126825_)))) + (___kont126824126825_)))) + (___kont126824126825_)))) + (___kont126824126825_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont126824126825_)) + (___kont126824126825_)) + (___kont126824126825_)))) + (___kont126824126825_)))) + (___kont126824126825_)) + (___kont126824126825_)))) + (___kont126824126825_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont126824126825_)))) + (___kont126824126825_)))) + (___kont126824126825_)) + (___kont126824126825_)) + (___kont126824126825_)))) + (___kont126824126825_)))))) (define gxc#lift-case-lambda-clauses__% - (lambda (_stx232943_ _id232944_ _clauses232945_ _gensym?232946_) - (let _lp232948_ ((_rest232950_ _clauses232945_) - (_ids232951_ '()) - (_impls232952_ '()) - (_clauses232953_ '())) - (let* ((_rest232954232962_ _rest232950_) - (_else232956232970_ + (lambda (_stx120185_ _id120186_ _clauses120187_ _gensym?120188_) + (let _lp120190_ ((_rest120192_ _clauses120187_) + (_ids120193_ '()) + (_impls120194_ '()) + (_clauses120195_ '())) + (let* ((_rest120196120204_ _rest120192_) + (_else120198120212_ (lambda () - (values (reverse _ids232951_) - (reverse _impls232952_) - (reverse _clauses232953_)))) - (_K232958233175_ - (lambda (_rest232973_ _clause232974_) + (values (reverse _ids120193_) + (reverse _impls120194_) + (reverse _clauses120195_)))) + (_K120200120417_ + (lambda (_rest120215_ _clause120216_) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _clause232974_)) - (let ((__tmp245225 + (gxc#dispatch-lambda-form? _clause120216_)) + (let ((__tmp127899 (let () (declare (not safe)) - (cons _clause232974_ _clauses232953_)))) + (cons _clause120216_ _clauses120195_)))) (declare (not safe)) - (_lp232948_ - _rest232973_ - _ids232951_ - _impls232952_ - __tmp245225)) - (let* ((_g232976232987_ - (lambda (_g232977232984_) + (_lp120190_ + _rest120215_ + _ids120193_ + _impls120194_ + __tmp127899)) + (let* ((_g120218120229_ + (lambda (_g120219120226_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g232977232984_)))) - (_g232975233172_ - (lambda (_g232977232990_) + _g120219120226_)))) + (_g120217120414_ + (lambda (_g120219120232_) (if (let () (declare (not safe)) - (gx#stx-pair? _g232977232990_)) - (let ((_e232982232992_ + (gx#stx-pair? _g120219120232_)) + (let ((_e120224120234_ (let () (declare (not safe)) - (gx#stx-e _g232977232990_)))) - (let ((_hd232981232995_ + (gx#stx-e _g120219120232_)))) + (let ((_hd120223120237_ (let () (declare (not safe)) - (##car _e232982232992_))) - (_tl232980232997_ + (##car _e120224120234_))) + (_tl120222120239_ (let () (declare (not safe)) - (##cdr _e232982232992_)))) - ((lambda (_L233000_ _L233001_) - (let* ((_id233018_ - (let ((__tmp245172 + (##cdr _e120224120234_)))) + ((lambda (_L120242_ _L120243_) + (let* ((_id120260_ + (let ((__tmp127846 (let () (declare (not safe)) (gx#stx-e - _id232944_))) - (__tmp245171 - (length _clauses232953_)) - (__tmp245170 - (if _gensym?232946_ + _id120186_))) + (__tmp127845 + (length _clauses120195_)) + (__tmp127844 + (if _gensym?120188_ (gensym '__) '""))) (declare (not safe)) (make-symbol__1 - __tmp245172 + __tmp127846 '"__" - __tmp245171 - __tmp245170))) - (_id233020_ - (let ((__tmp245173 + __tmp127845 + __tmp127844))) + (_id120262_ + (let ((__tmp127847 (let () (declare (not safe)) (gx#stx-source - _stx232943_)))) + _stx120185_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id233018_ - __tmp245173))) - (_impl233022_ - (let ((__tmp245174 - (let ((__tmp245176 + _id120260_ + __tmp127847))) + (_impl120264_ + (let ((__tmp127848 + (let ((__tmp127850 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp245175 + (__tmp127849 (let () (declare (not safe)) - (cons _L233001_ _L233000_)))) + (cons _L120243_ _L120242_)))) (declare (not safe)) - (cons __tmp245176 __tmp245175)))) + (cons __tmp127850 __tmp127849)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp245174 _stx232943_))) + (gxc#xform-wrap-source __tmp127848 _stx120185_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_clause233169_ - (let* ((___stx244530244531_ - _L233001_) - (_g233026233054_ + (_clause120411_ + (let* ((___stx127204127205_ + _L120243_) + (_g120268120296_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -10653,1813 +10642,1813 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx244530244531_))))) - (let ((___kont244532244533_ - (lambda (_L233148_) - (let ((__tmp245177 - (let ((__tmp245178 - (let ((__tmp245179 - (let ((__tmp245180 - (let ((__tmp245186 - (let ((__tmp245187 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id233020_ '())))) + ___stx127204127205_))))) + (let ((___kont127206127207_ + (lambda (_L120390_) + (let ((__tmp127851 + (let ((__tmp127852 + (let ((__tmp127853 + (let ((__tmp127854 + (let ((__tmp127860 + (let ((__tmp127861 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _id120262_ '())))) (declare (not safe)) - (cons '%#ref __tmp245187))) - (__tmp245181 - (let ((__tmp245182 - (lambda (_g233158233161_ _g233159233163_) - (let ((__tmp245183 - (let ((__tmp245185 + (cons '%#ref __tmp127861))) + (__tmp127855 + (let ((__tmp127856 + (lambda (_g120400120403_ _g120401120405_) + (let ((__tmp127857 + (let ((__tmp127859 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp245184 + (__tmp127858 (let () (declare (not safe)) - (cons _g233158233161_ '())))) + (cons _g120400120403_ '())))) (declare (not safe)) - (cons __tmp245185 __tmp245184)))) + (cons __tmp127859 __tmp127858)))) (declare (not safe)) - (cons __tmp245183 _g233159233163_))))) + (cons __tmp127857 _g120401120405_))))) (declare (not safe)) - (foldr1 __tmp245182 '() _L233148_)))) + (foldr1 __tmp127856 '() _L120390_)))) (declare (not safe)) - (cons __tmp245186 __tmp245181)))) + (cons __tmp127860 __tmp127855)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp245180)))) + (cons '%#call __tmp127854)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp245179 - _stx232943_)))) + __tmp127853 + _stx120185_)))) (declare (not safe)) - (cons __tmp245178 '())))) + (cons __tmp127852 '())))) (declare (not safe)) - (cons _L233001_ __tmp245177)))) - (___kont244536244537_ - (lambda (_L233099_ _L233100_) - (let ((__tmp245188 - (let ((__tmp245189 - (let ((__tmp245190 - (let ((__tmp245191 - (let ((__tmp245205 - (let ((__tmp245206 + (cons _L120243_ __tmp127851)))) + (___kont127210127211_ + (lambda (_L120341_ _L120342_) + (let ((__tmp127862 + (let ((__tmp127863 + (let ((__tmp127864 + (let ((__tmp127865 + (let ((__tmp127879 + (let ((__tmp127880 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp245206))) - (__tmp245192 - (let ((__tmp245203 - (let ((__tmp245204 + (cons '%#ref __tmp127880))) + (__tmp127866 + (let ((__tmp127877 + (let ((__tmp127878 (let () (declare (not safe)) - (cons _id233020_ '())))) + (cons _id120262_ '())))) (declare (not safe)) - (cons '%#ref __tmp245204))) - (__tmp245193 - (let ((__tmp245199 - (let ((__tmp245200 - (let ((__tmp245202 + (cons '%#ref __tmp127878))) + (__tmp127867 + (let ((__tmp127873 + (let ((__tmp127874 + (let ((__tmp127876 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp245201 + (__tmp127875 (let () (declare (not safe)) - (cons _L233099_ '())))) + (cons _L120341_ '())))) (declare (not safe)) - (cons __tmp245202 __tmp245201)))) + (cons __tmp127876 __tmp127875)))) (declare (not safe)) - (cons __tmp245200 '()))) - (__tmp245194 - (let ((__tmp245195 - (lambda (_g233111233114_ - _g233112233116_) - (let ((__tmp245196 - (let ((__tmp245198 + (cons __tmp127874 '()))) + (__tmp127868 + (let ((__tmp127869 + (lambda (_g120353120356_ + _g120354120358_) + (let ((__tmp127870 + (let ((__tmp127872 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp245197 + (__tmp127871 (let () (declare (not safe)) - (cons _g233111233114_ + (cons _g120353120356_ '())))) (declare (not safe)) - (cons __tmp245198 - __tmp245197)))) + (cons __tmp127872 + __tmp127871)))) (declare (not safe)) - (cons __tmp245196 - _g233112233116_))))) + (cons __tmp127870 + _g120354120358_))))) (declare (not safe)) - (foldr1 __tmp245195 '() _L233100_)))) + (foldr1 __tmp127869 '() _L120342_)))) (declare (not safe)) - (foldr1 cons __tmp245199 __tmp245194)))) + (foldr1 cons __tmp127873 __tmp127868)))) (declare (not safe)) - (cons __tmp245203 __tmp245193)))) + (cons __tmp127877 __tmp127867)))) (declare (not safe)) - (cons __tmp245205 __tmp245192)))) + (cons __tmp127879 __tmp127866)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp245191)))) + (cons '%#call __tmp127865)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp245190 - _stx232943_)))) + __tmp127864 + _stx120185_)))) (declare (not safe)) - (cons __tmp245189 '())))) + (cons __tmp127863 '())))) (declare (not safe)) - (cons _L233001_ __tmp245188)))) - (___kont244540244541_ - (lambda (_L233059_) - (let ((__tmp245207 - (let ((__tmp245208 - (let ((__tmp245209 - (let ((__tmp245210 - (let ((__tmp245218 - (let ((__tmp245219 + (cons _L120243_ __tmp127862)))) + (___kont127214127215_ + (lambda (_L120301_) + (let ((__tmp127881 + (let ((__tmp127882 + (let ((__tmp127883 + (let ((__tmp127884 + (let ((__tmp127892 + (let ((__tmp127893 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp245219))) - (__tmp245211 - (let ((__tmp245216 - (let ((__tmp245217 + (cons '%#ref __tmp127893))) + (__tmp127885 + (let ((__tmp127890 + (let ((__tmp127891 (let () (declare (not safe)) - (cons _id233020_ '())))) + (cons _id120262_ '())))) (declare (not safe)) - (cons '%#ref __tmp245217))) - (__tmp245212 - (let ((__tmp245213 - (let ((__tmp245215 + (cons '%#ref __tmp127891))) + (__tmp127886 + (let ((__tmp127887 + (let ((__tmp127889 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp245214 + (__tmp127888 (let () (declare (not safe)) - (cons _L233059_ '())))) + (cons _L120301_ '())))) (declare (not safe)) - (cons __tmp245215 __tmp245214)))) + (cons __tmp127889 __tmp127888)))) (declare (not safe)) - (cons __tmp245213 '())))) + (cons __tmp127887 '())))) (declare (not safe)) - (cons __tmp245216 __tmp245212)))) + (cons __tmp127890 __tmp127886)))) (declare (not safe)) - (cons __tmp245218 __tmp245211)))) + (cons __tmp127892 __tmp127885)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp245210)))) + (cons '%#call __tmp127884)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp245209 - _stx232943_)))) + __tmp127883 + _stx120185_)))) (declare (not safe)) - (cons __tmp245208 '())))) + (cons __tmp127882 '())))) (declare (not safe)) - (cons _L233001_ __tmp245207))))) - (let* ((___match244555244556_ - (lambda (___splice244538244539_ - _target233040233075_ - _tl233042233077_) - (letrec ((_loop233043233080_ - (lambda (_hd233041233083_ - _arg233047233085_) + (cons _L120243_ __tmp127881))))) + (let* ((___match127229127230_ + (lambda (___splice127212127213_ + _target120282120317_ + _tl120284120319_) + (letrec ((_loop120285120322_ + (lambda (_hd120283120325_ + _arg120289120327_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233041233083_)) - (let ((_e233044233088_ + (gx#stx-pair? _hd120283120325_)) + (let ((_e120286120330_ (let () (declare (not safe)) (gx#stx-e - _hd233041233083_)))) - (let ((_lp-tl233046233093_ + _hd120283120325_)))) + (let ((_lp-tl120288120335_ (let () (declare (not safe)) - (##cdr _e233044233088_))) - (_lp-hd233045233091_ + (##cdr _e120286120330_))) + (_lp-hd120287120333_ (let () (declare (not safe)) - (##car _e233044233088_)))) - (let ((__tmp245220 + (##car _e120286120330_)))) + (let ((__tmp127894 (let () (declare (not safe)) - (cons _lp-hd233045233091_ - _arg233047233085_)))) + (cons _lp-hd120287120333_ + _arg120289120327_)))) (declare (not safe)) - (_loop233043233080_ - _lp-tl233046233093_ - __tmp245220)))) - (let ((_arg233048233096_ - (reverse _arg233047233085_))) - (___kont244536244537_ - _tl233042233077_ - _arg233048233096_)))))) + (_loop120285120322_ + _lp-tl120288120335_ + __tmp127894)))) + (let ((_arg120290120338_ + (reverse _arg120289120327_))) + (___kont127210127211_ + _tl120284120319_ + _arg120290120338_)))))) (let () (declare (not safe)) - (_loop233043233080_ - _target233040233075_ + (_loop120285120322_ + _target120282120317_ '()))))) - (___match244549244550_ - (lambda (___splice244534244535_ - _target233029233124_ - _tl233031233126_) - (letrec ((_loop233032233129_ - (lambda (_hd233030233132_ - _arg233036233134_) + (___match127223127224_ + (lambda (___splice127208127209_ + _target120271120366_ + _tl120273120368_) + (letrec ((_loop120274120371_ + (lambda (_hd120272120374_ + _arg120278120376_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233030233132_)) - (let ((_e233033233137_ + (gx#stx-pair? _hd120272120374_)) + (let ((_e120275120379_ (let () (declare (not safe)) (gx#stx-e - _hd233030233132_)))) - (let ((_lp-tl233035233142_ + _hd120272120374_)))) + (let ((_lp-tl120277120384_ (let () (declare (not safe)) - (##cdr _e233033233137_))) - (_lp-hd233034233140_ + (##cdr _e120275120379_))) + (_lp-hd120276120382_ (let () (declare (not safe)) - (##car _e233033233137_)))) - (let ((__tmp245221 + (##car _e120275120379_)))) + (let ((__tmp127895 (let () (declare (not safe)) - (cons _lp-hd233034233140_ - _arg233036233134_)))) + (cons _lp-hd120276120382_ + _arg120278120376_)))) (declare (not safe)) - (_loop233032233129_ - _lp-tl233035233142_ - __tmp245221)))) - (let ((_arg233037233145_ - (reverse _arg233036233134_))) - (___kont244532244533_ - _arg233037233145_)))))) + (_loop120274120371_ + _lp-tl120277120384_ + __tmp127895)))) + (let ((_arg120279120387_ + (reverse _arg120278120376_))) + (___kont127206127207_ + _arg120279120387_)))))) (let () (declare (not safe)) - (_loop233032233129_ - _target233029233124_ + (_loop120274120371_ + _target120271120366_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? ___stx244530244531_)) - (let ((___splice244534244535_ + (gx#stx-pair/null? ___stx127204127205_)) + (let ((___splice127208127209_ (let () (declare (not safe)) (gx#syntax-split-splice - ___stx244530244531_ + ___stx127204127205_ '0)))) - (let ((_tl233031233126_ + (let ((_tl120273120368_ (let () (declare (not safe)) - (##vector-ref ___splice244534244535_ '1))) - (_target233029233124_ + (##vector-ref ___splice127208127209_ '1))) + (_target120271120366_ (let () (declare (not safe)) - (##vector-ref ___splice244534244535_ '0)))) + (##vector-ref ___splice127208127209_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233031233126_)) - (___match244549244550_ - ___splice244534244535_ - _target233029233124_ - _tl233031233126_) - (___match244555244556_ - ___splice244534244535_ - _target233029233124_ - _tl233031233126_)))) - (___kont244540244541_ ___stx244530244531_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp245224 + (gx#stx-null? _tl120273120368_)) + (___match127223127224_ + ___splice127208127209_ + _target120271120366_ + _tl120273120368_) + (___match127229127230_ + ___splice127208127209_ + _target120271120366_ + _tl120273120368_)))) + (___kont127214127215_ ___stx127204127205_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((__tmp127898 (let () (declare (not safe)) - (cons _id233020_ - _ids232951_))) - (__tmp245223 + (cons _id120262_ + _ids120193_))) + (__tmp127897 (let () (declare (not safe)) - (cons _impl233022_ - _impls232952_))) - (__tmp245222 + (cons _impl120264_ + _impls120194_))) + (__tmp127896 (let () (declare (not safe)) - (cons _clause233169_ - _clauses232953_)))) + (cons _clause120411_ + _clauses120195_)))) (declare (not safe)) - (_lp232948_ - _rest232973_ - __tmp245224 - __tmp245223 - __tmp245222)))) - _tl232980232997_ - _hd232981232995_))) + (_lp120190_ + _rest120215_ + __tmp127898 + __tmp127897 + __tmp127896)))) + _tl120222120239_ + _hd120223120237_))) (let () (declare (not safe)) - (_g232976232987_ _g232977232990_)))))) + (_g120218120229_ _g120219120232_)))))) (declare (not safe)) - (_g232975233172_ _clause232974_)))))) - (if (let () (declare (not safe)) (##pair? _rest232954232962_)) - (let ((_hd232959233178_ + (_g120217120414_ _clause120216_)))))) + (if (let () (declare (not safe)) (##pair? _rest120196120204_)) + (let ((_hd120201120420_ (let () (declare (not safe)) - (##car _rest232954232962_))) - (_tl232960233180_ + (##car _rest120196120204_))) + (_tl120202120422_ (let () (declare (not safe)) - (##cdr _rest232954232962_)))) - (let* ((_clause233183_ _hd232959233178_) - (_rest233185_ _tl232960233180_)) + (##cdr _rest120196120204_)))) + (let* ((_clause120425_ _hd120201120420_) + (_rest120427_ _tl120202120422_)) (declare (not safe)) - (_K232958233175_ _rest233185_ _clause233183_))) - (let () (declare (not safe)) (_else232956232970_))))))) + (_K120200120417_ _rest120427_ _clause120425_))) + (let () (declare (not safe)) (_else120198120212_))))))) (define gxc#lift-case-lambda-clauses__0 - (lambda (_stx233190_ _id233191_ _clauses233192_) - (let ((_gensym?233194_ '#f)) + (lambda (_stx120432_ _id120433_ _clauses120434_) + (let ((_gensym?120436_ '#f)) (declare (not safe)) (gxc#lift-case-lambda-clauses__% - _stx233190_ - _id233191_ - _clauses233192_ - _gensym?233194_)))) + _stx120432_ + _id120433_ + _clauses120434_ + _gensym?120436_)))) (define gxc#lift-case-lambda-clauses - (lambda _g245227_ - (let ((_g245226_ (let () (declare (not safe)) (##length _g245227_)))) - (cond ((let () (declare (not safe)) (##fx= _g245226_ 3)) - (apply (lambda (_stx233190_ _id233191_ _clauses233192_) + (lambda _g127901_ + (let ((_g127900_ (let () (declare (not safe)) (##length _g127901_)))) + (cond ((let () (declare (not safe)) (##fx= _g127900_ 3)) + (apply (lambda (_stx120432_ _id120433_ _clauses120434_) (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__0 - _stx233190_ - _id233191_ - _clauses233192_))) - _g245227_)) - ((let () (declare (not safe)) (##fx= _g245226_ 4)) - (apply (lambda (_stx233196_ - _id233197_ - _clauses233198_ - _gensym?233199_) + _stx120432_ + _id120433_ + _clauses120434_))) + _g127901_)) + ((let () (declare (not safe)) (##fx= _g127900_ 4)) + (apply (lambda (_stx120438_ + _id120439_ + _clauses120440_ + _gensym?120441_) (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__% - _stx233196_ - _id233197_ - _clauses233198_ - _gensym?233199_))) - _g245227_)) + _stx120438_ + _id120439_ + _clauses120440_ + _gensym?120441_))) + _g127901_)) (else (##raise-wrong-number-of-arguments-exception gxc#lift-case-lambda-clauses - _g245227_)))))) + _g127901_)))))) (define gxc#lift-top-lambda-define-values% - (lambda (_stx232220_) - (letrec ((_case-lambda-clause-def232222_ - (lambda (_id232939_ _impl232940_) - (let ((__tmp245228 - (let ((__tmp245229 - (let ((__tmp245232 + (lambda (_stx119462_) + (letrec ((_case-lambda-clause-def119464_ + (lambda (_id120181_ _impl120182_) + (let ((__tmp127902 + (let ((__tmp127903 + (let ((__tmp127906 (let () (declare (not safe)) - (cons _id232939_ '()))) - (__tmp245230 - (let ((__tmp245231 + (cons _id120181_ '()))) + (__tmp127904 + (let ((__tmp127905 (let () (declare (not safe)) (gxc#compile-e__0 - _impl232940_)))) + _impl120182_)))) (declare (not safe)) - (cons __tmp245231 '())))) + (cons __tmp127905 '())))) (declare (not safe)) - (cons __tmp245232 __tmp245230)))) + (cons __tmp127906 __tmp127904)))) (declare (not safe)) - (cons '%#define-values __tmp245229)))) + (cons '%#define-values __tmp127903)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp245228 _stx232220_)))) - (_opt-lambda-dispatch-name232223_ - (lambda (_id232935_) - (if (uninterned-symbol? _id232935_) - (let ((_str232937_ (symbol->string _id232935_))) + (gxc#xform-wrap-source __tmp127902 _stx119462_)))) + (_opt-lambda-dispatch-name119465_ + (lambda (_id120177_) + (if (uninterned-symbol? _id120177_) + (let ((_str120179_ (symbol->string _id120177_))) (if (let () (declare (not safe)) - (string-prefix? '"opt-lambda" _str232937_)) + (string-prefix? '"opt-lambda" _str120179_)) '"%" - _id232935_)) - _id232935_))) - (_kw-lambda-dispatch-name232224_ - (lambda (_id232930_ _name232931_) - (if (uninterned-symbol? _id232930_) - (let ((_str232933_ (symbol->string _id232930_))) + _id120177_)) + _id120177_))) + (_kw-lambda-dispatch-name119466_ + (lambda (_id120172_ _name120173_) + (if (uninterned-symbol? _id120172_) + (let ((_str120175_ (symbol->string _id120172_))) (if (let () (declare (not safe)) - (string-prefix? '"kw-lambda" _str232933_)) - _name232931_ - _id232930_)) - _id232930_)))) - (let* ((___stx244578244579_ _stx232220_) - (_g232229232288_ + (string-prefix? '"kw-lambda" _str120175_)) + _name120173_ + _id120172_)) + _id120172_)))) + (let* ((___stx127252127253_ _stx119462_) + (_g119471119530_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx244578244579_))))) - (let ((___kont244580244581_ - (lambda (_L232839_ _L232840_) - (let* ((___stx244558244559_ _L232839_) - (_g232857232871_ + ___stx127252127253_))))) + (let ((___kont127254127255_ + (lambda (_L120081_ _L120082_) + (let* ((___stx127232127233_ _L120081_) + (_g120099120113_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx244558244559_))))) - (let ((___kont244560244561_ - (lambda (_L232915_) _stx232220_)) - (___kont244562244563_ - (lambda (_L232884_) - (let ((_g245233_ + ___stx127232127233_))))) + (let ((___kont127234127235_ + (lambda (_L120157_) _stx119462_)) + (___kont127236127237_ + (lambda (_L120126_) + (let ((_g127907_ (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__0 - _stx232220_ - _L232840_ - _L232884_)))) + _stx119462_ + _L120082_ + _L120126_)))) (begin - (let ((_g245234_ + (let ((_g127908_ (let () (declare (not safe)) - (if (##values? _g245233_) - (##vector-length _g245233_) + (if (##values? _g127907_) + (##vector-length _g127907_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g245234_ 3))) + (##fx= _g127908_ 3))) (error "Context expects 3 values" - _g245234_))) - (let ((_ids232894_ + _g127908_))) + (let ((_ids120136_ (let () (declare (not safe)) - (##vector-ref _g245233_ 0))) - (_impls232895_ + (##vector-ref _g127907_ 0))) + (_impls120137_ (let () (declare (not safe)) - (##vector-ref _g245233_ 1))) - (_clauses232896_ + (##vector-ref _g127907_ 1))) + (_clauses120138_ (let () (declare (not safe)) - (##vector-ref _g245233_ 2)))) - (let* ((_g245235_ + (##vector-ref _g127907_ 2)))) + (let* ((_g127909_ (for-each gx#core-bind-runtime! - _ids232894_)) - (_defs232899_ - (map _case-lambda-clause-def232222_ - _ids232894_ - _impls232895_))) - (let ((__tmp245237 + _ids120136_)) + (_defs120141_ + (map _case-lambda-clause-def119464_ + _ids120136_ + _impls120137_))) + (let ((__tmp127911 (let () (declare (not safe)) (gxc#identifier-symbol - _L232840_))) - (__tmp245236 + _L120082_))) + (__tmp127910 (map gxc#identifier-symbol - _ids232894_))) + _ids120136_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp245237 + __tmp127911 '" => " - __tmp245236)) - (let ((__tmp245238 - (let ((__tmp245239 - (let ((__tmp245240 - (let ((__tmp245241 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp245242 - (let ((__tmp245243 - (let ((__tmp245248 + __tmp127910)) + (let ((__tmp127912 + (let ((__tmp127913 + (let ((__tmp127914 + (let ((__tmp127915 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp127916 + (let ((__tmp127917 + (let ((__tmp127922 (let () (declare (not safe)) - (cons _L232840_ '()))) - (__tmp245244 - (let ((__tmp245245 - (let ((__tmp245247 + (cons _L120082_ '()))) + (__tmp127918 + (let ((__tmp127919 + (let ((__tmp127921 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons '%#case-lambda _clauses232896_))) - (__tmp245246 + (cons '%#case-lambda _clauses120138_))) + (__tmp127920 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda-expr)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp245247 __tmp245246)))) + (gxc#xform-wrap-source __tmp127921 __tmp127920)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp245245 '())))) + (cons __tmp127919 '())))) (declare (not safe)) - (cons __tmp245248 __tmp245244)))) + (cons __tmp127922 __tmp127918)))) (declare (not safe)) - (cons '%#define-values __tmp245243)))) + (cons '%#define-values __tmp127917)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp245242 - _stx232220_)))) + __tmp127916 + _stx119462_)))) (declare (not safe)) - (cons __tmp245241 '())))) + (cons __tmp127915 '())))) (declare (not safe)) - (foldr1 cons __tmp245240 _defs232899_)))) + (foldr1 cons __tmp127914 _defs120141_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#begin __tmp245239)))) + (cons '%#begin __tmp127913)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp245238 - _stx232220_))))))))) - (let ((___match244569244570_ - (lambda (_e232862232907_ - _hd232861232910_ - _tl232860232912_) - (let ((_L232915_ _tl232860232912_)) + __tmp127912 + _stx119462_))))))))) + (let ((___match127243127244_ + (lambda (_e120104120149_ + _hd120103120152_ + _tl120102120154_) + (let ((_L120157_ _tl120102120154_)) (if (let () (declare (not safe)) (andmap1 gxc#dispatch-lambda-form? - _L232915_)) - (___kont244560244561_ _L232915_) - (___kont244562244563_ - _tl232860232912_)))))) + _L120157_)) + (___kont127234127235_ _L120157_) + (___kont127236127237_ + _tl120102120154_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx244558244559_)) - (let ((_e232862232907_ + (gx#stx-pair? ___stx127232127233_)) + (let ((_e120104120149_ (let () (declare (not safe)) - (gx#stx-e ___stx244558244559_)))) - (let ((_tl232860232912_ + (gx#stx-e ___stx127232127233_)))) + (let ((_tl120102120154_ (let () (declare (not safe)) - (##cdr _e232862232907_))) - (_hd232861232910_ + (##cdr _e120104120149_))) + (_hd120103120152_ (let () (declare (not safe)) - (##car _e232862232907_)))) - (___match244569244570_ - _e232862232907_ - _hd232861232910_ - _tl232860232912_))) + (##car _e120104120149_)))) + (___match127243127244_ + _e120104120149_ + _hd120103120152_ + _tl120102120154_))) (let () (declare (not safe)) - (_g232857232871_)))))))) - (___kont244582244583_ - (lambda (_L232657_ _L232658_) - (let* ((_g232674232704_ - (lambda (_g232675232701_) + (_g120099120113_)))))))) + (___kont127256127257_ + (lambda (_L119899_ _L119900_) + (let* ((_g119916119946_ + (lambda (_g119917119943_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g232675232701_)))) - (_g232673232799_ - (lambda (_g232675232707_) + _g119917119943_)))) + (_g119915120041_ + (lambda (_g119917119949_) (if (let () (declare (not safe)) - (gx#stx-pair? _g232675232707_)) - (let ((_e232681232709_ + (gx#stx-pair? _g119917119949_)) + (let ((_e119923119951_ (let () (declare (not safe)) - (gx#stx-e _g232675232707_)))) - (let ((_hd232680232712_ + (gx#stx-e _g119917119949_)))) + (let ((_hd119922119954_ (let () (declare (not safe)) - (##car _e232681232709_))) - (_tl232679232714_ + (##car _e119923119951_))) + (_tl119921119956_ (let () (declare (not safe)) - (##cdr _e232681232709_)))) + (##cdr _e119923119951_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232679232714_)) - (let ((_e232684232717_ + (gx#stx-pair? _tl119921119956_)) + (let ((_e119926119959_ (let () (declare (not safe)) (gx#stx-e - _tl232679232714_)))) - (let ((_hd232683232720_ + _tl119921119956_)))) + (let ((_hd119925119962_ (let () (declare (not safe)) - (##car _e232684232717_))) - (_tl232682232722_ + (##car _e119926119959_))) + (_tl119924119964_ (let () (declare (not safe)) - (##cdr _e232684232717_)))) + (##cdr _e119926119959_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd232683232720_)) - (let ((_e232687232725_ + _hd119925119962_)) + (let ((_e119929119967_ (let () (declare (not safe)) (gx#stx-e - _hd232683232720_)))) - (let ((_hd232686232728_ + _hd119925119962_)))) + (let ((_hd119928119970_ (let () (declare (not safe)) - (##car _e232687232725_))) - (_tl232685232730_ + (##car _e119929119967_))) + (_tl119927119972_ (let () (declare (not safe)) - (##cdr _e232687232725_)))) + (##cdr _e119929119967_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd232686232728_)) - (let ((_e232690232733_ + _hd119928119970_)) + (let ((_e119932119975_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd232686232728_)))) - (let ((_hd232689232736_ + (gx#stx-e _hd119928119970_)))) + (let ((_hd119931119978_ (let () (declare (not safe)) - (##car _e232690232733_))) - (_tl232688232738_ + (##car _e119932119975_))) + (_tl119930119980_ (let () (declare (not safe)) - (##cdr _e232690232733_)))) + (##cdr _e119932119975_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232689232736_)) - (let ((_e232693232741_ + (gx#stx-pair? _hd119931119978_)) + (let ((_e119935119983_ (let () (declare (not safe)) - (gx#stx-e _hd232689232736_)))) - (let ((_hd232692232744_ + (gx#stx-e _hd119931119978_)))) + (let ((_hd119934119986_ (let () (declare (not safe)) - (##car _e232693232741_))) - (_tl232691232746_ + (##car _e119935119983_))) + (_tl119933119988_ (let () (declare (not safe)) - (##cdr _e232693232741_)))) + (##cdr _e119935119983_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl232691232746_)) + (gx#stx-null? _tl119933119988_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232688232738_)) - (let ((_e232696232749_ + (gx#stx-pair? _tl119930119980_)) + (let ((_e119938119991_ (let () (declare (not safe)) - (gx#stx-e _tl232688232738_)))) - (let ((_hd232695232752_ + (gx#stx-e _tl119930119980_)))) + (let ((_hd119937119994_ (let () (declare (not safe)) - (##car _e232696232749_))) - (_tl232694232754_ + (##car _e119938119991_))) + (_tl119936119996_ (let () (declare (not safe)) - (##cdr _e232696232749_)))) + (##cdr _e119938119991_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl232694232754_)) + _tl119936119996_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl232685232730_)) + _tl119927119972_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232682232722_)) - (let ((_e232699232757_ + _tl119924119964_)) + (let ((_e119941119999_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl232682232722_)))) - (let ((_hd232698232760_ - (let () (declare (not safe)) (##car _e232699232757_))) - (_tl232697232762_ - (let () (declare (not safe)) (##cdr _e232699232757_)))) + (gx#stx-e _tl119924119964_)))) + (let ((_hd119940120002_ + (let () (declare (not safe)) (##car _e119941119999_))) + (_tl119939120004_ + (let () (declare (not safe)) (##cdr _e119941119999_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl232697232762_)) - ((lambda (_L232765_ _L232766_ _L232767_) - (let* ((_lambda-id232791_ - (let ((__tmp245251 + (gx#stx-null? _tl119939120004_)) + ((lambda (_L120007_ _L120008_ _L120009_) + (let* ((_lambda-id120033_ + (let ((__tmp127925 (let () (declare (not safe)) - (gx#stx-e _L232658_))) - (__tmp245249 - (let ((__tmp245250 + (gx#stx-e _L119900_))) + (__tmp127923 + (let ((__tmp127924 (let () (declare (not safe)) - (gx#stx-e _L232767_)))) + (gx#stx-e _L120009_)))) (declare (not safe)) - (_opt-lambda-dispatch-name232223_ - __tmp245250)))) + (_opt-lambda-dispatch-name119465_ + __tmp127924)))) (declare (not safe)) (make-symbol__1 - __tmp245251 + __tmp127925 '"__" - __tmp245249))) - (_lambda-id232793_ - (let ((__tmp245252 + __tmp127923))) + (_lambda-id120035_ + (let ((__tmp127926 (let () (declare (not safe)) - (gx#stx-source _stx232220_)))) + (gx#stx-source _stx119462_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _lambda-id232791_ - __tmp245252))) - (_g245253_ + _lambda-id120033_ + __tmp127926))) + (_g127927_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _lambda-id232793_))) - (_new-case-lambda-expr232796_ + _lambda-id120035_))) + (_new-case-lambda-expr120038_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L232765_ - _L232767_ - _lambda-id232793_)))) - (let ((__tmp245255 + _L120007_ + _L120009_ + _lambda-id120035_)))) + (let ((__tmp127929 (let () (declare (not safe)) - (gxc#identifier-symbol _L232658_))) - (__tmp245254 + (gxc#identifier-symbol _L119900_))) + (__tmp127928 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id232793_)))) + _lambda-id120035_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp245255 + __tmp127929 '" => " - __tmp245254)) - (let ((__tmp245256 - (let ((__tmp245257 - (let ((__tmp245265 - (let ((__tmp245266 - (let ((__tmp245267 - (let ((__tmp245270 + __tmp127928)) + (let ((__tmp127930 + (let ((__tmp127931 + (let ((__tmp127939 + (let ((__tmp127940 + (let ((__tmp127941 + (let ((__tmp127944 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _lambda-id232793_ '()))) - (__tmp245268 - (let ((__tmp245269 + (cons _lambda-id120035_ '()))) + (__tmp127942 + (let ((__tmp127943 (let () (declare (not safe)) - (gxc#compile-e__0 _L232766_)))) + (gxc#compile-e__0 _L120008_)))) (declare (not safe)) - (cons __tmp245269 '())))) + (cons __tmp127943 '())))) (declare (not safe)) - (cons __tmp245270 __tmp245268)))) + (cons __tmp127944 __tmp127942)))) (declare (not safe)) - (cons '%#define-values __tmp245267)))) + (cons '%#define-values __tmp127941)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp245266 - _stx232220_))) - (__tmp245258 - (let ((__tmp245259 - (let ((__tmp245260 - (let ((__tmp245261 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp245262 - (let ((__tmp245264 + __tmp127940 + _stx119462_))) + (__tmp127932 + (let ((__tmp127933 + (let ((__tmp127934 + (let ((__tmp127935 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp127936 + (let ((__tmp127938 (let () (declare (not safe)) - (cons _L232658_ '()))) - (__tmp245263 + (cons _L119900_ '()))) + (__tmp127937 (let () (declare (not safe)) - (cons _new-case-lambda-expr232796_ + (cons _new-case-lambda-expr120038_ '())))) (declare (not safe)) - (cons __tmp245264 __tmp245263)))) + (cons __tmp127938 __tmp127937)))) (declare (not safe)) - (cons '%#define-values __tmp245262)))) + (cons '%#define-values __tmp127936)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp245261 _stx232220_)))) + (gxc#xform-wrap-source __tmp127935 _stx119462_)))) (declare (not safe)) - (gxc#lift-top-lambda-define-values% __tmp245260)))) + (gxc#lift-top-lambda-define-values% __tmp127934)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp245259 '())))) + (cons __tmp127933 '())))) (declare (not safe)) - (cons __tmp245265 __tmp245258)))) + (cons __tmp127939 __tmp127932)))) (declare (not safe)) - (cons '%#begin __tmp245257)))) + (cons '%#begin __tmp127931)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp245256 - _stx232220_)))) - _hd232698232760_ - _hd232695232752_ - _hd232692232744_) + __tmp127930 + _stx119462_)))) + _hd119940120002_ + _hd119937119994_ + _hd119934119986_) (let () (declare (not safe)) - (_g232674232704_ _g232675232707_))))) - (let () (declare (not safe)) (_g232674232704_ _g232675232707_))) + (_g119916119946_ _g119917119949_))))) + (let () (declare (not safe)) (_g119916119946_ _g119917119949_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g232674232704_ - _g232675232707_))) + (_g119916119946_ + _g119917119949_))) (let () (declare (not safe)) - (_g232674232704_ - _g232675232707_))))) + (_g119916119946_ + _g119917119949_))))) (let () (declare (not safe)) - (_g232674232704_ _g232675232707_))) + (_g119916119946_ _g119917119949_))) (let () (declare (not safe)) - (_g232674232704_ _g232675232707_))))) + (_g119916119946_ _g119917119949_))))) (let () (declare (not safe)) - (_g232674232704_ _g232675232707_))))) + (_g119916119946_ _g119917119949_))))) (let () (declare (not safe)) - (_g232674232704_ _g232675232707_))))) + (_g119916119946_ _g119917119949_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g232674232704_ - _g232675232707_))))) + (_g119916119946_ + _g119917119949_))))) (let () (declare (not safe)) - (_g232674232704_ - _g232675232707_))))) + (_g119916119946_ + _g119917119949_))))) (let () (declare (not safe)) - (_g232674232704_ _g232675232707_)))))) + (_g119916119946_ _g119917119949_)))))) (declare (not safe)) - (_g232673232799_ _L232657_)))) - (___kont244584244585_ - (lambda (_L232371_ _L232372_) - (let* ((_g232388232441_ - (lambda (_g232389232438_) + (_g119915120041_ _L119899_)))) + (___kont127258127259_ + (lambda (_L119613_ _L119614_) + (let* ((_g119630119683_ + (lambda (_g119631119680_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g232389232438_)))) - (_g232387232617_ - (lambda (_g232389232444_) + _g119631119680_)))) + (_g119629119859_ + (lambda (_g119631119686_) (if (let () (declare (not safe)) - (gx#stx-pair? _g232389232444_)) - (let ((_e232397232446_ + (gx#stx-pair? _g119631119686_)) + (let ((_e119639119688_ (let () (declare (not safe)) - (gx#stx-e _g232389232444_)))) - (let ((_hd232396232449_ + (gx#stx-e _g119631119686_)))) + (let ((_hd119638119691_ (let () (declare (not safe)) - (##car _e232397232446_))) - (_tl232395232451_ + (##car _e119639119688_))) + (_tl119637119693_ (let () (declare (not safe)) - (##cdr _e232397232446_)))) + (##cdr _e119639119688_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232395232451_)) - (let ((_e232400232454_ + (gx#stx-pair? _tl119637119693_)) + (let ((_e119642119696_ (let () (declare (not safe)) (gx#stx-e - _tl232395232451_)))) - (let ((_hd232399232457_ + _tl119637119693_)))) + (let ((_hd119641119699_ (let () (declare (not safe)) - (##car _e232400232454_))) - (_tl232398232459_ + (##car _e119642119696_))) + (_tl119640119701_ (let () (declare (not safe)) - (##cdr _e232400232454_)))) + (##cdr _e119642119696_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd232399232457_)) - (let ((_e232403232462_ + _hd119641119699_)) + (let ((_e119645119704_ (let () (declare (not safe)) (gx#stx-e - _hd232399232457_)))) - (let ((_hd232402232465_ + _hd119641119699_)))) + (let ((_hd119644119707_ (let () (declare (not safe)) - (##car _e232403232462_))) - (_tl232401232467_ + (##car _e119645119704_))) + (_tl119643119709_ (let () (declare (not safe)) - (##cdr _e232403232462_)))) + (##cdr _e119645119704_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd232402232465_)) - (let ((_e232406232470_ + _hd119644119707_)) + (let ((_e119648119712_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd232402232465_)))) - (let ((_hd232405232473_ + (gx#stx-e _hd119644119707_)))) + (let ((_hd119647119715_ (let () (declare (not safe)) - (##car _e232406232470_))) - (_tl232404232475_ + (##car _e119648119712_))) + (_tl119646119717_ (let () (declare (not safe)) - (##cdr _e232406232470_)))) + (##cdr _e119648119712_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232405232473_)) - (let ((_e232409232478_ + (gx#stx-pair? _hd119647119715_)) + (let ((_e119651119720_ (let () (declare (not safe)) - (gx#stx-e _hd232405232473_)))) - (let ((_hd232408232481_ + (gx#stx-e _hd119647119715_)))) + (let ((_hd119650119723_ (let () (declare (not safe)) - (##car _e232409232478_))) - (_tl232407232483_ + (##car _e119651119720_))) + (_tl119649119725_ (let () (declare (not safe)) - (##cdr _e232409232478_)))) + (##cdr _e119651119720_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl232407232483_)) + (gx#stx-null? _tl119649119725_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232404232475_)) - (let ((_e232412232486_ + (gx#stx-pair? _tl119646119717_)) + (let ((_e119654119728_ (let () (declare (not safe)) - (gx#stx-e _tl232404232475_)))) - (let ((_hd232411232489_ + (gx#stx-e _tl119646119717_)))) + (let ((_hd119653119731_ (let () (declare (not safe)) - (##car _e232412232486_))) - (_tl232410232491_ + (##car _e119654119728_))) + (_tl119652119733_ (let () (declare (not safe)) - (##cdr _e232412232486_)))) + (##cdr _e119654119728_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd232411232489_)) - (let ((_e232415232494_ + _hd119653119731_)) + (let ((_e119657119736_ (let () (declare (not safe)) (gx#stx-e - _hd232411232489_)))) - (let ((_hd232414232497_ + _hd119653119731_)))) + (let ((_hd119656119739_ (let () (declare (not safe)) - (##car _e232415232494_))) - (_tl232413232499_ + (##car _e119657119736_))) + (_tl119655119741_ (let () (declare (not safe)) - (##cdr _e232415232494_)))) + (##cdr _e119657119736_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232413232499_)) - (let ((_e232418232502_ + _tl119655119741_)) + (let ((_e119660119744_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl232413232499_)))) - (let ((_hd232417232505_ - (let () (declare (not safe)) (##car _e232418232502_))) - (_tl232416232507_ - (let () (declare (not safe)) (##cdr _e232418232502_)))) + (gx#stx-e _tl119655119741_)))) + (let ((_hd119659119747_ + (let () (declare (not safe)) (##car _e119660119744_))) + (_tl119658119749_ + (let () (declare (not safe)) (##cdr _e119660119744_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232417232505_)) - (let ((_e232421232510_ + (gx#stx-pair? _hd119659119747_)) + (let ((_e119663119752_ (let () (declare (not safe)) - (gx#stx-e _hd232417232505_)))) - (let ((_hd232420232513_ + (gx#stx-e _hd119659119747_)))) + (let ((_hd119662119755_ (let () (declare (not safe)) - (##car _e232421232510_))) - (_tl232419232515_ + (##car _e119663119752_))) + (_tl119661119757_ (let () (declare (not safe)) - (##cdr _e232421232510_)))) + (##cdr _e119663119752_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232420232513_)) - (let ((_e232424232518_ + (gx#stx-pair? _hd119662119755_)) + (let ((_e119666119760_ (let () (declare (not safe)) - (gx#stx-e _hd232420232513_)))) - (let ((_hd232423232521_ + (gx#stx-e _hd119662119755_)))) + (let ((_hd119665119763_ (let () (declare (not safe)) - (##car _e232424232518_))) - (_tl232422232523_ + (##car _e119666119760_))) + (_tl119664119765_ (let () (declare (not safe)) - (##cdr _e232424232518_)))) + (##cdr _e119666119760_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232423232521_)) - (let ((_e232427232526_ + (gx#stx-pair? _hd119665119763_)) + (let ((_e119669119768_ (let () (declare (not safe)) - (gx#stx-e _hd232423232521_)))) - (let ((_hd232426232529_ + (gx#stx-e _hd119665119763_)))) + (let ((_hd119668119771_ (let () (declare (not safe)) - (##car _e232427232526_))) - (_tl232425232531_ + (##car _e119669119768_))) + (_tl119667119773_ (let () (declare (not safe)) - (##cdr _e232427232526_)))) + (##cdr _e119669119768_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl232425232531_)) + _tl119667119773_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232422232523_)) - (let ((_e232430232534_ + _tl119664119765_)) + (let ((_e119672119776_ (let () (declare (not safe)) (gx#stx-e - _tl232422232523_)))) - (let ((_hd232429232537_ + _tl119664119765_)))) + (let ((_hd119671119779_ (let () (declare (not safe)) - (##car _e232430232534_))) - (_tl232428232539_ + (##car _e119672119776_))) + (_tl119670119781_ (let () (declare (not safe)) - (##cdr _e232430232534_)))) + (##cdr _e119672119776_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl232428232539_)) + _tl119670119781_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-null? _tl232419232515_)) + (gx#stx-null? _tl119661119757_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232416232507_)) - (let ((_e232433232542_ + (gx#stx-pair? _tl119658119749_)) + (let ((_e119675119784_ (let () (declare (not safe)) - (gx#stx-e _tl232416232507_)))) - (let ((_hd232432232545_ + (gx#stx-e _tl119658119749_)))) + (let ((_hd119674119787_ (let () (declare (not safe)) - (##car _e232433232542_))) - (_tl232431232547_ + (##car _e119675119784_))) + (_tl119673119789_ (let () (declare (not safe)) - (##cdr _e232433232542_)))) + (##cdr _e119675119784_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl232431232547_)) + (gx#stx-null? _tl119673119789_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl232410232491_)) + (gx#stx-null? _tl119652119733_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl232401232467_)) + (gx#stx-null? _tl119643119709_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232398232459_)) - (let ((_e232436232550_ + _tl119640119701_)) + (let ((_e119678119792_ (let () (declare (not safe)) (gx#stx-e - _tl232398232459_)))) - (let ((_hd232435232553_ + _tl119640119701_)))) + (let ((_hd119677119795_ (let () (declare (not safe)) - (##car _e232436232550_))) - (_tl232434232555_ + (##car _e119678119792_))) + (_tl119676119797_ (let () (declare (not safe)) - (##cdr _e232436232550_)))) + (##cdr _e119678119792_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl232434232555_)) - ((lambda (_L232558_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L232559_ - _L232560_ - _L232561_ - _L232562_) - (let* ((_get-kws-id232602_ - (let ((__tmp245273 + _tl119676119797_)) + ((lambda (_L119800_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _L119801_ + _L119802_ + _L119803_ + _L119804_) + (let* ((_get-kws-id119844_ + (let ((__tmp127947 (let () (declare (not safe)) - (gx#stx-e _L232372_))) - (__tmp245271 - (let ((__tmp245272 + (gx#stx-e _L119614_))) + (__tmp127945 + (let ((__tmp127946 (let () (declare (not safe)) - (gx#stx-e _L232562_)))) + (gx#stx-e _L119804_)))) (declare (not safe)) - (_kw-lambda-dispatch-name232224_ - __tmp245272 + (_kw-lambda-dispatch-name119466_ + __tmp127946 '"@")))) (declare (not safe)) - (make-symbol__1 __tmp245273 '"__" __tmp245271))) - (_get-kws-id232604_ - (let ((__tmp245274 + (make-symbol__1 __tmp127947 '"__" __tmp127945))) + (_get-kws-id119846_ + (let ((__tmp127948 (let () (declare (not safe)) - (gx#stx-source _stx232220_)))) + (gx#stx-source _stx119462_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id232602_ - __tmp245274))) - (_main-id232606_ - (let ((__tmp245277 + _get-kws-id119844_ + __tmp127948))) + (_main-id119848_ + (let ((__tmp127951 (let () (declare (not safe)) - (gx#stx-e _L232372_))) - (__tmp245275 - (let ((__tmp245276 + (gx#stx-e _L119614_))) + (__tmp127949 + (let ((__tmp127950 (let () (declare (not safe)) - (gx#stx-e _L232561_)))) + (gx#stx-e _L119803_)))) (declare (not safe)) - (_kw-lambda-dispatch-name232224_ - __tmp245276 + (_kw-lambda-dispatch-name119466_ + __tmp127950 '"%")))) (declare (not safe)) - (make-symbol__1 __tmp245277 '"__" __tmp245275))) - (_main-id232608_ - (let ((__tmp245278 + (make-symbol__1 __tmp127951 '"__" __tmp127949))) + (_main-id119850_ + (let ((__tmp127952 (let () (declare (not safe)) - (gx#stx-source _stx232220_)))) + (gx#stx-source _stx119462_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id232606_ - __tmp245278))) - (_g245279_ + _main-id119848_ + __tmp127952))) + (_g127953_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _get-kws-id232604_))) - (_g245280_ + (gx#core-bind-runtime!__0 _get-kws-id119846_))) + (_g127954_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _main-id232608_))) - (_new-kw-dispatch232612_ + (gx#core-bind-runtime!__0 _main-id119850_))) + (_new-kw-dispatch119854_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L232558_ - _L232562_ - _get-kws-id232604_))) - (_new-get-kws232614_ + _L119800_ + _L119804_ + _get-kws-id119846_))) + (_new-get-kws119856_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L232559_ - _L232561_ - _main-id232608_)))) - (let ((__tmp245283 + _L119801_ + _L119803_ + _main-id119850_)))) + (let ((__tmp127957 (let () (declare (not safe)) - (gxc#identifier-symbol _L232372_))) - (__tmp245282 + (gxc#identifier-symbol _L119614_))) + (__tmp127956 (let () (declare (not safe)) - (gxc#identifier-symbol _get-kws-id232604_))) - (__tmp245281 + (gxc#identifier-symbol _get-kws-id119846_))) + (__tmp127955 (let () (declare (not safe)) - (gxc#identifier-symbol _main-id232608_)))) + (gxc#identifier-symbol _main-id119850_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp245283 + __tmp127957 '" => " - __tmp245282 + __tmp127956 '" => " - __tmp245281)) - (let ((__tmp245284 - (let ((__tmp245285 - (let ((__tmp245298 - (let ((__tmp245299 - (let ((__tmp245300 - (let ((__tmp245301 - (let ((__tmp245303 + __tmp127955)) + (let ((__tmp127958 + (let ((__tmp127959 + (let ((__tmp127972 + (let ((__tmp127973 + (let ((__tmp127974 + (let ((__tmp127975 + (let ((__tmp127977 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _main-id232608_ '()))) - (__tmp245302 + (cons _main-id119850_ '()))) + (__tmp127976 (let () (declare (not safe)) - (cons _L232560_ '())))) + (cons _L119802_ '())))) (declare (not safe)) - (cons __tmp245303 __tmp245302)))) + (cons __tmp127977 __tmp127976)))) (declare (not safe)) - (cons '%#define-values __tmp245301)))) + (cons '%#define-values __tmp127975)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp245300 - _stx232220_)))) + __tmp127974 + _stx119462_)))) (declare (not safe)) (gxc#lift-top-lambda-define-values% - __tmp245299))) - (__tmp245286 - (let ((__tmp245293 - (let ((__tmp245294 - (let ((__tmp245295 - (let ((__tmp245297 + __tmp127973))) + (__tmp127960 + (let ((__tmp127967 + (let ((__tmp127968 + (let ((__tmp127969 + (let ((__tmp127971 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _get-kws-id232604_ '()))) - (__tmp245296 + (cons _get-kws-id119846_ '()))) + (__tmp127970 (let () (declare (not safe)) - (cons _new-get-kws232614_ '())))) + (cons _new-get-kws119856_ '())))) (declare (not safe)) - (cons __tmp245297 __tmp245296)))) + (cons __tmp127971 __tmp127970)))) (declare (not safe)) - (cons '%#define-values __tmp245295)))) + (cons '%#define-values __tmp127969)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp245294 - _stx232220_))) - (__tmp245287 - (let ((__tmp245288 - (let ((__tmp245289 - (let ((__tmp245290 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp245292 + __tmp127968 + _stx119462_))) + (__tmp127961 + (let ((__tmp127962 + (let ((__tmp127963 + (let ((__tmp127964 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp127966 (let () (declare (not safe)) - (cons _L232372_ '()))) - (__tmp245291 + (cons _L119614_ '()))) + (__tmp127965 (let () (declare (not safe)) - (cons _new-kw-dispatch232612_ '())))) + (cons _new-kw-dispatch119854_ '())))) (declare (not safe)) - (cons __tmp245292 __tmp245291)))) + (cons __tmp127966 __tmp127965)))) (declare (not safe)) - (cons '%#define-values __tmp245290)))) + (cons '%#define-values __tmp127964)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp245289 _stx232220_)))) + (gxc#xform-wrap-source __tmp127963 _stx119462_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp245288 '())))) + (cons __tmp127962 '())))) (declare (not safe)) - (cons __tmp245293 __tmp245287)))) + (cons __tmp127967 __tmp127961)))) (declare (not safe)) - (cons __tmp245298 __tmp245286)))) + (cons __tmp127972 __tmp127960)))) (declare (not safe)) - (cons '%#begin __tmp245285)))) + (cons '%#begin __tmp127959)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp245284 _stx232220_)))) - _hd232435232553_ - _hd232432232545_ - _hd232429232537_ - _hd232426232529_ - _hd232408232481_) + (gxc#xform-wrap-source __tmp127958 _stx119462_)))) + _hd119677119795_ + _hd119674119787_ + _hd119671119779_ + _hd119668119771_ + _hd119650119723_) (let () (declare (not safe)) - (_g232388232441_ _g232389232444_))))) + (_g119630119683_ _g119631119686_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g232388232441_ - _g232389232444_))) + (_g119630119683_ + _g119631119686_))) (let () (declare (not safe)) - (_g232388232441_ - _g232389232444_))) + (_g119630119683_ + _g119631119686_))) (let () (declare (not safe)) - (_g232388232441_ _g232389232444_))) + (_g119630119683_ _g119631119686_))) (let () (declare (not safe)) - (_g232388232441_ _g232389232444_))))) + (_g119630119683_ _g119631119686_))))) (let () (declare (not safe)) - (_g232388232441_ _g232389232444_))) + (_g119630119683_ _g119631119686_))) (let () (declare (not safe)) - (_g232388232441_ _g232389232444_))) + (_g119630119683_ _g119631119686_))) (let () (declare (not safe)) - (_g232388232441_ _g232389232444_))))) + (_g119630119683_ _g119631119686_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g232388232441_ - _g232389232444_))) + (_g119630119683_ + _g119631119686_))) (let () (declare (not safe)) - (_g232388232441_ - _g232389232444_))))) + (_g119630119683_ + _g119631119686_))))) (let () (declare (not safe)) - (_g232388232441_ _g232389232444_))))) + (_g119630119683_ _g119631119686_))))) (let () (declare (not safe)) - (_g232388232441_ _g232389232444_))))) + (_g119630119683_ _g119631119686_))))) (let () (declare (not safe)) - (_g232388232441_ _g232389232444_))))) + (_g119630119683_ _g119631119686_))))) (let () (declare (not safe)) - (_g232388232441_ _g232389232444_))))) + (_g119630119683_ _g119631119686_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g232388232441_ - _g232389232444_))))) + (_g119630119683_ + _g119631119686_))))) (let () (declare (not safe)) - (_g232388232441_ _g232389232444_))) + (_g119630119683_ _g119631119686_))) (let () (declare (not safe)) - (_g232388232441_ _g232389232444_))))) + (_g119630119683_ _g119631119686_))))) (let () (declare (not safe)) - (_g232388232441_ _g232389232444_))))) + (_g119630119683_ _g119631119686_))))) (let () (declare (not safe)) - (_g232388232441_ _g232389232444_))))) + (_g119630119683_ _g119631119686_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g232388232441_ - _g232389232444_))))) + (_g119630119683_ + _g119631119686_))))) (let () (declare (not safe)) - (_g232388232441_ - _g232389232444_))))) + (_g119630119683_ + _g119631119686_))))) (let () (declare (not safe)) - (_g232388232441_ _g232389232444_)))))) + (_g119630119683_ _g119631119686_)))))) (declare (not safe)) - (_g232387232617_ _L232371_)))) - (___kont244586244587_ - (lambda (_L232317_ _L232318_) - (let ((__tmp245304 - (let ((__tmp245305 - (let ((__tmp245306 - (let ((__tmp245307 + (_g119629119859_ _L119613_)))) + (___kont127260127261_ + (lambda (_L119559_ _L119560_) + (let ((__tmp127978 + (let ((__tmp127979 + (let ((__tmp127980 + (let ((__tmp127981 (let () (declare (not safe)) (gxc#compile-e__0 - _L232317_)))) + _L119559_)))) (declare (not safe)) - (cons __tmp245307 '())))) + (cons __tmp127981 '())))) (declare (not safe)) - (cons _L232318_ __tmp245306)))) + (cons _L119560_ __tmp127980)))) (declare (not safe)) - (cons '%#define-values __tmp245305)))) + (cons '%#define-values __tmp127979)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp245304 _stx232220_))))) - (let* ((___match244671244672_ - (lambda (_e232263232339_ - _hd232262232342_ - _tl232261232344_ - _e232266232347_ - _hd232265232350_ - _tl232264232352_ - _e232269232355_ - _hd232268232358_ - _tl232267232360_ - _e232272232363_ - _hd232271232366_ - _tl232270232368_) - (let ((_L232371_ _hd232271232366_) - (_L232372_ _hd232268232358_)) + (gxc#xform-wrap-source __tmp127978 _stx119462_))))) + (let* ((___match127345127346_ + (lambda (_e119505119581_ + _hd119504119584_ + _tl119503119586_ + _e119508119589_ + _hd119507119592_ + _tl119506119594_ + _e119511119597_ + _hd119510119600_ + _tl119509119602_ + _e119514119605_ + _hd119513119608_ + _tl119512119610_) + (let ((_L119613_ _hd119513119608_) + (_L119614_ _hd119510119600_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L232372_)) + (gx#identifier? _L119614_)) (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L232371_))) - (___kont244584244585_ _L232371_ _L232372_) - (___kont244586244587_ - _hd232271232366_ - _hd232265232350_))))) - (___match244643244644_ - (lambda (_e232249232625_ - _hd232248232628_ - _tl232247232630_ - _e232252232633_ - _hd232251232636_ - _tl232250232638_ - _e232255232641_ - _hd232254232644_ - _tl232253232646_ - _e232258232649_ - _hd232257232652_ - _tl232256232654_) - (let ((_L232657_ _hd232257232652_) - (_L232658_ _hd232254232644_)) + (gxc#kw-lambda-expr? _L119613_))) + (___kont127258127259_ _L119613_ _L119614_) + (___kont127260127261_ + _hd119513119608_ + _hd119507119592_))))) + (___match127317127318_ + (lambda (_e119491119867_ + _hd119490119870_ + _tl119489119872_ + _e119494119875_ + _hd119493119878_ + _tl119492119880_ + _e119497119883_ + _hd119496119886_ + _tl119495119888_ + _e119500119891_ + _hd119499119894_ + _tl119498119896_) + (let ((_L119899_ _hd119499119894_) + (_L119900_ _hd119496119886_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L232658_)) + (gx#identifier? _L119900_)) (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L232657_))) - (___kont244582244583_ _L232657_ _L232658_) - (___match244671244672_ - _e232249232625_ - _hd232248232628_ - _tl232247232630_ - _e232252232633_ - _hd232251232636_ - _tl232250232638_ - _e232255232641_ - _hd232254232644_ - _tl232253232646_ - _e232258232649_ - _hd232257232652_ - _tl232256232654_))))) - (___match244615244616_ - (lambda (_e232235232807_ - _hd232234232810_ - _tl232233232812_ - _e232238232815_ - _hd232237232818_ - _tl232236232820_ - _e232241232823_ - _hd232240232826_ - _tl232239232828_ - _e232244232831_ - _hd232243232834_ - _tl232242232836_) - (let ((_L232839_ _hd232243232834_) - (_L232840_ _hd232240232826_)) + (gxc#opt-lambda-expr? _L119899_))) + (___kont127256127257_ _L119899_ _L119900_) + (___match127345127346_ + _e119491119867_ + _hd119490119870_ + _tl119489119872_ + _e119494119875_ + _hd119493119878_ + _tl119492119880_ + _e119497119883_ + _hd119496119886_ + _tl119495119888_ + _e119500119891_ + _hd119499119894_ + _tl119498119896_))))) + (___match127289127290_ + (lambda (_e119477120049_ + _hd119476120052_ + _tl119475120054_ + _e119480120057_ + _hd119479120060_ + _tl119478120062_ + _e119483120065_ + _hd119482120068_ + _tl119481120070_ + _e119486120073_ + _hd119485120076_ + _tl119484120078_) + (let ((_L120081_ _hd119485120076_) + (_L120082_ _hd119482120068_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L232840_)) + (gx#identifier? _L120082_)) (let () (declare (not safe)) - (gxc#case-lambda-expr? _L232839_))) - (___kont244580244581_ _L232839_ _L232840_) - (___match244643244644_ - _e232235232807_ - _hd232234232810_ - _tl232233232812_ - _e232238232815_ - _hd232237232818_ - _tl232236232820_ - _e232241232823_ - _hd232240232826_ - _tl232239232828_ - _e232244232831_ - _hd232243232834_ - _tl232242232836_)))))) + (gxc#case-lambda-expr? _L120081_))) + (___kont127254127255_ _L120081_ _L120082_) + (___match127317127318_ + _e119477120049_ + _hd119476120052_ + _tl119475120054_ + _e119480120057_ + _hd119479120060_ + _tl119478120062_ + _e119483120065_ + _hd119482120068_ + _tl119481120070_ + _e119486120073_ + _hd119485120076_ + _tl119484120078_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx244578244579_)) - (let ((_e232235232807_ + (gx#stx-pair? ___stx127252127253_)) + (let ((_e119477120049_ (let () (declare (not safe)) - (gx#stx-e ___stx244578244579_)))) - (let ((_tl232233232812_ + (gx#stx-e ___stx127252127253_)))) + (let ((_tl119475120054_ (let () (declare (not safe)) - (##cdr _e232235232807_))) - (_hd232234232810_ + (##cdr _e119477120049_))) + (_hd119476120052_ (let () (declare (not safe)) - (##car _e232235232807_)))) + (##car _e119477120049_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232233232812_)) - (let ((_e232238232815_ + (gx#stx-pair? _tl119475120054_)) + (let ((_e119480120057_ (let () (declare (not safe)) - (gx#stx-e _tl232233232812_)))) - (let ((_tl232236232820_ + (gx#stx-e _tl119475120054_)))) + (let ((_tl119478120062_ (let () (declare (not safe)) - (##cdr _e232238232815_))) - (_hd232237232818_ + (##cdr _e119480120057_))) + (_hd119479120060_ (let () (declare (not safe)) - (##car _e232238232815_)))) + (##car _e119480120057_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232237232818_)) - (let ((_e232241232823_ + (gx#stx-pair? _hd119479120060_)) + (let ((_e119483120065_ (let () (declare (not safe)) - (gx#stx-e _hd232237232818_)))) - (let ((_tl232239232828_ + (gx#stx-e _hd119479120060_)))) + (let ((_tl119481120070_ (let () (declare (not safe)) - (##cdr _e232241232823_))) - (_hd232240232826_ + (##cdr _e119483120065_))) + (_hd119482120068_ (let () (declare (not safe)) - (##car _e232241232823_)))) + (##car _e119483120065_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl232239232828_)) + (gx#stx-null? _tl119481120070_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232236232820_)) - (let ((_e232244232831_ + _tl119478120062_)) + (let ((_e119486120073_ (let () (declare (not safe)) (gx#stx-e - _tl232236232820_)))) - (let ((_tl232242232836_ + _tl119478120062_)))) + (let ((_tl119484120078_ (let () (declare (not safe)) - (##cdr _e232244232831_))) - (_hd232243232834_ + (##cdr _e119486120073_))) + (_hd119485120076_ (let () (declare (not safe)) - (##car _e232244232831_)))) + (##car _e119486120073_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl232242232836_)) - (___match244615244616_ - _e232235232807_ - _hd232234232810_ - _tl232233232812_ - _e232238232815_ - _hd232237232818_ - _tl232236232820_ - _e232241232823_ - _hd232240232826_ - _tl232239232828_ - _e232244232831_ - _hd232243232834_ - _tl232242232836_) + _tl119484120078_)) + (___match127289127290_ + _e119477120049_ + _hd119476120052_ + _tl119475120054_ + _e119480120057_ + _hd119479120060_ + _tl119478120062_ + _e119483120065_ + _hd119482120068_ + _tl119481120070_ + _e119486120073_ + _hd119485120076_ + _tl119484120078_) (let () (declare (not safe)) - (_g232229232288_))))) + (_g119471119530_))))) (let () (declare (not safe)) - (_g232229232288_))) + (_g119471119530_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232236232820_)) - (let ((_e232283232309_ + _tl119478120062_)) + (let ((_e119525119551_ (let () (declare (not safe)) (gx#stx-e - _tl232236232820_)))) - (let ((_tl232281232314_ + _tl119478120062_)))) + (let ((_tl119523119556_ (let () (declare (not safe)) - (##cdr _e232283232309_))) - (_hd232282232312_ + (##cdr _e119525119551_))) + (_hd119524119554_ (let () (declare (not safe)) - (##car _e232283232309_)))) + (##car _e119525119551_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl232281232314_)) - (___kont244586244587_ - _hd232282232312_ - _hd232237232818_) + _tl119523119556_)) + (___kont127260127261_ + _hd119524119554_ + _hd119479120060_) (let () (declare (not safe)) - (_g232229232288_))))) + (_g119471119530_))))) (let () (declare (not safe)) - (_g232229232288_)))))) + (_g119471119530_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232236232820_)) - (let ((_e232283232309_ + (gx#stx-pair? _tl119478120062_)) + (let ((_e119525119551_ (let () (declare (not safe)) - (gx#stx-e _tl232236232820_)))) - (let ((_tl232281232314_ + (gx#stx-e _tl119478120062_)))) + (let ((_tl119523119556_ (let () (declare (not safe)) - (##cdr _e232283232309_))) - (_hd232282232312_ + (##cdr _e119525119551_))) + (_hd119524119554_ (let () (declare (not safe)) - (##car _e232283232309_)))) + (##car _e119525119551_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl232281232314_)) - (___kont244586244587_ - _hd232282232312_ - _hd232237232818_) + _tl119523119556_)) + (___kont127260127261_ + _hd119524119554_ + _hd119479120060_) (let () (declare (not safe)) - (_g232229232288_))))) + (_g119471119530_))))) (let () (declare (not safe)) - (_g232229232288_)))))) - (let () (declare (not safe)) (_g232229232288_))))) - (let () (declare (not safe)) (_g232229232288_))))))))) + (_g119471119530_)))))) + (let () (declare (not safe)) (_g119471119530_))))) + (let () (declare (not safe)) (_g119471119530_))))))))) (define gxc#lift-top-lambda-let-values% - (lambda (_stx231152_) - (letrec* ((_bind-e__242974242975_ - (lambda (_id232204_ _expr232205_ _compile?232206_) - (let ((__tmp245310 + (lambda (_stx118394_) + (letrec* ((_bind-e__125648125649_ + (lambda (_id119446_ _expr119447_ _compile?119448_) + (let ((__tmp127984 (let () (declare (not safe)) - (cons _id232204_ '()))) - (__tmp245308 - (let ((__tmp245309 - (if _compile?232206_ + (cons _id119446_ '()))) + (__tmp127982 + (let ((__tmp127983 + (if _compile?119448_ (let () (declare (not safe)) - (gxc#compile-e__0 _expr232205_)) - _expr232205_))) + (gxc#compile-e__0 _expr119447_)) + _expr119447_))) (declare (not safe)) - (cons __tmp245309 '())))) + (cons __tmp127983 '())))) (declare (not safe)) - (cons __tmp245310 __tmp245308)))) - (_bind-e__0__242976242977_ - (lambda (_id232211_ _expr232212_) - (let ((_compile?232214_ '#t)) + (cons __tmp127984 __tmp127982)))) + (_bind-e__0__125650125651_ + (lambda (_id119453_ _expr119454_) + (let ((_compile?119456_ '#t)) (declare (not safe)) - (_bind-e__242974242975_ - _id232211_ - _expr232212_ - _compile?232214_)))) - (_bind-e231154_ - (lambda _g245312_ - (let ((_g245311_ + (_bind-e__125648125649_ + _id119453_ + _expr119454_ + _compile?119456_)))) + (_bind-e118396_ + (lambda _g127986_ + (let ((_g127985_ (let () (declare (not safe)) - (##length _g245312_)))) - (cond ((let () (declare (not safe)) (##fx= _g245311_ 2)) - (apply (lambda (_id232211_ _expr232212_) + (##length _g127986_)))) + (cond ((let () (declare (not safe)) (##fx= _g127985_ 2)) + (apply (lambda (_id119453_ _expr119454_) (let () (declare (not safe)) - (_bind-e__0__242976242977_ - _id232211_ - _expr232212_))) - _g245312_)) - ((let () (declare (not safe)) (##fx= _g245311_ 3)) - (apply (lambda (_id232216_ - _expr232217_ - _compile?232218_) + (_bind-e__0__125650125651_ + _id119453_ + _expr119454_))) + _g127986_)) + ((let () (declare (not safe)) (##fx= _g127985_ 3)) + (apply (lambda (_id119458_ + _expr119459_ + _compile?119460_) (let () (declare (not safe)) - (_bind-e__242974242975_ - _id232216_ - _expr232217_ - _compile?232218_))) - _g245312_)) + (_bind-e__125648125649_ + _id119458_ + _expr119459_ + _compile?119460_))) + _g127986_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g245312_)))))) - (_compile-bindings231155_ - (lambda (_bindings231788_) - (let _lp231790_ ((_rest231792_ _bindings231788_) - (_lift1231793_ '()) - (_lift2231794_ '()) - (_bind231795_ '())) - (let* ((_rest231796231804_ _rest231792_) - (_else231798231812_ + _g127986_)))))) + (_compile-bindings118397_ + (lambda (_bindings119030_) + (let _lp119032_ ((_rest119034_ _bindings119030_) + (_lift1119035_ '()) + (_lift2119036_ '()) + (_bind119037_ '())) + (let* ((_rest119038119046_ _rest119034_) + (_else119040119054_ (lambda () - (values (reverse _lift1231793_) - (reverse _lift2231794_) - (reverse _bind231795_)))) - (_K231800232191_ - (lambda (_rest231815_ _hd231816_) - (let* ((___stx244714244715_ _hd231816_) - (_g231820231856_ + (values (reverse _lift1119035_) + (reverse _lift2119036_) + (reverse _bind119037_)))) + (_K119042119433_ + (lambda (_rest119057_ _hd119058_) + (let* ((___stx127388127389_ _hd119058_) + (_g119062119098_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx244714244715_))))) - (let ((___kont244716244717_ - (lambda (_L232098_ _L232099_) - (let* ((___stx244694244695_ - _L232098_) - (_g232114232128_ + ___stx127388127389_))))) + (let ((___kont127390127391_ + (lambda (_L119340_ _L119341_) + (let* ((___stx127368127369_ + _L119340_) + (_g119356119370_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx244694244695_))))) - (let ((___kont244696244697_ - (lambda (_L232176_) - (let ((__tmp245313 - (let ((__tmp245314 + ___stx127368127369_))))) + (let ((___kont127370127371_ + (lambda (_L119418_) + (let ((__tmp127987 + (let ((__tmp127988 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__242974242975_ - _L232099_ - _L232098_ + (_bind-e__125648125649_ + _L119341_ + _L119340_ '#f)))) (declare (not safe)) - (cons __tmp245314 _bind231795_)))) + (cons __tmp127988 _bind119037_)))) (declare (not safe)) - (_lp231790_ - _rest231815_ - _lift1231793_ - _lift2231794_ - __tmp245313)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont244698244699_ - (lambda (_L232141_) - (let ((_g245315_ + (_lp119032_ + _rest119057_ + _lift1119035_ + _lift2119036_ + __tmp127987)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127372127373_ + (lambda (_L119383_) + (let ((_g127989_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#lift-case-lambda-clauses__% - _stx231152_ - _L232099_ - _L232141_ + _stx118394_ + _L119341_ + _L119383_ '#t)))) (begin - (let ((_g245316_ + (let ((_g127990_ (let () (declare (not safe)) - (if (##values? _g245315_) - (##vector-length _g245315_) + (if (##values? _g127989_) + (##vector-length _g127989_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g245316_ 3))) - (error "Context expects 3 values" _g245316_))) - (let ((_ids232151_ + (##fx= _g127990_ 3))) + (error "Context expects 3 values" _g127990_))) + (let ((_ids119393_ (let () (declare (not safe)) - (##vector-ref _g245315_ 0))) - (_impls232152_ + (##vector-ref _g127989_ 0))) + (_impls119394_ (let () (declare (not safe)) - (##vector-ref _g245315_ 1))) - (_clauses232153_ + (##vector-ref _g127989_ 1))) + (_clauses119395_ (let () (declare (not safe)) - (##vector-ref _g245315_ 2)))) - (let* ((_g245317_ - (for-each gx#core-bind-runtime! _ids232151_)) - (_xbind232156_ - (map _bind-e231154_ _ids232151_ _impls232152_)) - (_expr*232158_ - (let ((__tmp245319 + (##vector-ref _g127989_ 2)))) + (let* ((_g127991_ + (for-each gx#core-bind-runtime! _ids119393_)) + (_xbind119398_ + (map _bind-e118396_ _ids119393_ _impls119394_)) + (_expr*119400_ + (let ((__tmp127993 (let () (declare (not safe)) - (cons '%#case-lambda _clauses232153_))) - (__tmp245318 + (cons '%#case-lambda _clauses119395_))) + (__tmp127992 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -12467,1584 +12456,1584 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp245319 - __tmp245318))) - (_bind*232160_ + __tmp127993 + __tmp127992))) + (_bind*119402_ (let () (declare (not safe)) - (_bind-e__242974242975_ - _L232099_ - _expr*232158_ + (_bind-e__125648125649_ + _L119341_ + _expr*119400_ '#f)))) - (let ((__tmp245321 + (let ((__tmp127995 (let () (declare (not safe)) - (gxc#identifier-symbol _L232099_))) - (__tmp245320 - (map gxc#identifier-symbol _ids232151_))) + (gxc#identifier-symbol _L119341_))) + (__tmp127994 + (map gxc#identifier-symbol _ids119393_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp245321 + __tmp127995 '" => " - __tmp245320)) - (let ((__tmp245323 + __tmp127994)) + (let ((__tmp127997 (let () (declare (not safe)) - (foldl1 cons _lift2231794_ _xbind232156_))) - (__tmp245322 + (foldl1 cons _lift2119036_ _xbind119398_))) + (__tmp127996 (let () (declare (not safe)) - (cons _bind*232160_ _bind231795_)))) + (cons _bind*119402_ _bind119037_)))) (declare (not safe)) - (_lp231790_ - _rest231815_ - _lift1231793_ - __tmp245323 - __tmp245322))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match244705244706_ - (lambda (_e232119232168_ - _hd232118232171_ - _tl232117232173_) - (let ((_L232176_ - _tl232117232173_)) + (_lp119032_ + _rest119057_ + _lift1119035_ + __tmp127997 + __tmp127996))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((___match127379127380_ + (lambda (_e119361119410_ + _hd119360119413_ + _tl119359119415_) + (let ((_L119418_ + _tl119359119415_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (andmap1 gxc#dispatch-lambda-form? _L232176_)) - (___kont244696244697_ _L232176_) - (___kont244698244699_ _tl232117232173_)))))) + (andmap1 gxc#dispatch-lambda-form? _L119418_)) + (___kont127370127371_ _L119418_) + (___kont127372127373_ _tl119359119415_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx244694244695_)) - (let ((_e232119232168_ + ___stx127368127369_)) + (let ((_e119361119410_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx244694244695_)))) - (let ((_tl232117232173_ - (let () (declare (not safe)) (##cdr _e232119232168_))) - (_hd232118232171_ - (let () (declare (not safe)) (##car _e232119232168_)))) - (___match244705244706_ - _e232119232168_ - _hd232118232171_ - _tl232117232173_))) - (let () (declare (not safe)) (_g232114232128_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont244718244719_ - (lambda (_L231926_ _L231927_) - (let* ((_g231941231971_ - (lambda (_g231942231968_) + (gx#stx-e ___stx127368127369_)))) + (let ((_tl119359119415_ + (let () (declare (not safe)) (##cdr _e119361119410_))) + (_hd119360119413_ + (let () (declare (not safe)) (##car _e119361119410_)))) + (___match127379127380_ + _e119361119410_ + _hd119360119413_ + _tl119359119415_))) + (let () (declare (not safe)) (_g119356119370_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127392127393_ + (lambda (_L119168_ _L119169_) + (let* ((_g119183119213_ + (lambda (_g119184119210_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g231942231968_)))) - (_g231940232066_ - (lambda (_g231942231974_) + _g119184119210_)))) + (_g119182119308_ + (lambda (_g119184119216_) (if (let () (declare (not safe)) (gx#stx-pair? - _g231942231974_)) - (let ((_e231948231976_ + _g119184119216_)) + (let ((_e119190119218_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g231942231974_)))) - (let ((_hd231947231979_ + (gx#stx-e _g119184119216_)))) + (let ((_hd119189119221_ (let () (declare (not safe)) - (##car _e231948231976_))) - (_tl231946231981_ + (##car _e119190119218_))) + (_tl119188119223_ (let () (declare (not safe)) - (##cdr _e231948231976_)))) + (##cdr _e119190119218_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231946231981_)) - (let ((_e231951231984_ + (gx#stx-pair? _tl119188119223_)) + (let ((_e119193119226_ (let () (declare (not safe)) - (gx#stx-e _tl231946231981_)))) - (let ((_hd231950231987_ + (gx#stx-e _tl119188119223_)))) + (let ((_hd119192119229_ (let () (declare (not safe)) - (##car _e231951231984_))) - (_tl231949231989_ + (##car _e119193119226_))) + (_tl119191119231_ (let () (declare (not safe)) - (##cdr _e231951231984_)))) + (##cdr _e119193119226_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231950231987_)) - (let ((_e231954231992_ + (gx#stx-pair? _hd119192119229_)) + (let ((_e119196119234_ (let () (declare (not safe)) - (gx#stx-e _hd231950231987_)))) - (let ((_hd231953231995_ + (gx#stx-e _hd119192119229_)))) + (let ((_hd119195119237_ (let () (declare (not safe)) - (##car _e231954231992_))) - (_tl231952231997_ + (##car _e119196119234_))) + (_tl119194119239_ (let () (declare (not safe)) - (##cdr _e231954231992_)))) + (##cdr _e119196119234_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231953231995_)) - (let ((_e231957232000_ + (gx#stx-pair? _hd119195119237_)) + (let ((_e119199119242_ (let () (declare (not safe)) (gx#stx-e - _hd231953231995_)))) - (let ((_hd231956232003_ + _hd119195119237_)))) + (let ((_hd119198119245_ (let () (declare (not safe)) - (##car _e231957232000_))) - (_tl231955232005_ + (##car _e119199119242_))) + (_tl119197119247_ (let () (declare (not safe)) - (##cdr _e231957232000_)))) + (##cdr _e119199119242_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd231956232003_)) - (let ((_e231960232008_ + _hd119198119245_)) + (let ((_e119202119250_ (let () (declare (not safe)) (gx#stx-e - _hd231956232003_)))) - (let ((_hd231959232011_ + _hd119198119245_)))) + (let ((_hd119201119253_ (let () (declare (not safe)) - (##car _e231960232008_))) - (_tl231958232013_ + (##car _e119202119250_))) + (_tl119200119255_ (let () (declare (not safe)) - (##cdr _e231960232008_)))) + (##cdr _e119202119250_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl231958232013_)) + _tl119200119255_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl231955232005_)) - (let ((_e231963232016_ + (gx#stx-pair? _tl119197119247_)) + (let ((_e119205119258_ (let () (declare (not safe)) - (gx#stx-e _tl231955232005_)))) - (let ((_hd231962232019_ + (gx#stx-e _tl119197119247_)))) + (let ((_hd119204119261_ (let () (declare (not safe)) - (##car _e231963232016_))) - (_tl231961232021_ + (##car _e119205119258_))) + (_tl119203119263_ (let () (declare (not safe)) - (##cdr _e231963232016_)))) + (##cdr _e119205119258_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231961232021_)) + (gx#stx-null? _tl119203119263_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl231952231997_)) + (gx#stx-null? _tl119194119239_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231949231989_)) - (let ((_e231966232024_ + (gx#stx-pair? _tl119191119231_)) + (let ((_e119208119266_ (let () (declare (not safe)) - (gx#stx-e _tl231949231989_)))) - (let ((_hd231965232027_ + (gx#stx-e _tl119191119231_)))) + (let ((_hd119207119269_ (let () (declare (not safe)) - (##car _e231966232024_))) - (_tl231964232029_ + (##car _e119208119266_))) + (_tl119206119271_ (let () (declare (not safe)) - (##cdr _e231966232024_)))) + (##cdr _e119208119266_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl231964232029_)) - ((lambda (_L232032_ - _L232033_ - _L232034_) - (let* ((_lambda-id232058_ - (let ((__tmp245325 + _tl119206119271_)) + ((lambda (_L119274_ + _L119275_ + _L119276_) + (let* ((_lambda-id119300_ + (let ((__tmp127999 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L231927_))) - (__tmp245324 (gensym '__))) + (gx#stx-e _L119169_))) + (__tmp127998 (gensym '__))) (declare (not safe)) - (make-symbol__1 __tmp245325 __tmp245324))) - (_lambda-id232060_ - (let ((__tmp245326 + (make-symbol__1 __tmp127999 __tmp127998))) + (_lambda-id119302_ + (let ((__tmp128000 (let () (declare (not safe)) - (gx#stx-source _stx231152_)))) + (gx#stx-source _stx118394_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _lambda-id232058_ __tmp245326))) - (_g245327_ + (gx#core-quote-syntax__1 _lambda-id119300_ __tmp128000))) + (_g128001_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lambda-id232060_))) - (_new-case-lambda-expr232063_ + (gx#core-bind-runtime!__0 _lambda-id119302_))) + (_new-case-lambda-expr119305_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L232032_ - _L232034_ - _lambda-id232060_)))) + _L119274_ + _L119276_ + _lambda-id119302_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp245329 + (let ((__tmp128003 (let () (declare (not safe)) (gxc#identifier-symbol - _L231927_))) - (__tmp245328 + _L119169_))) + (__tmp128002 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id232060_)))) + _lambda-id119302_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp245329 + __tmp128003 '" => " - __tmp245328)) - (let ((__tmp245332 - (let ((__tmp245333 + __tmp128002)) + (let ((__tmp128006 + (let ((__tmp128007 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__242974242975_ - _L231927_ - _new-case-lambda-expr232063_ + (_bind-e__125648125649_ + _L119169_ + _new-case-lambda-expr119305_ '#f)))) (declare (not safe)) - (cons __tmp245333 _rest231815_))) - (__tmp245330 - (let ((__tmp245331 + (cons __tmp128007 _rest119057_))) + (__tmp128004 + (let ((__tmp128005 (let () (declare (not safe)) - (_bind-e__0__242976242977_ - _lambda-id232060_ - _L232033_)))) + (_bind-e__0__125650125651_ + _lambda-id119302_ + _L119275_)))) (declare (not safe)) - (cons __tmp245331 _lift1231793_)))) + (cons __tmp128005 _lift1119035_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp231790_ - __tmp245332 - __tmp245330 - _lift2231794_ - _bind231795_)))) - _hd231965232027_ - _hd231962232019_ - _hd231959232011_) + (_lp119032_ + __tmp128006 + __tmp128004 + _lift2119036_ + _bind119037_)))) + _hd119207119269_ + _hd119204119261_ + _hd119201119253_) (let () (declare (not safe)) - (_g231941231971_ - _g231942231974_))))) + (_g119183119213_ + _g119184119216_))))) (let () (declare (not safe)) - (_g231941231971_ _g231942231974_))) + (_g119183119213_ _g119184119216_))) (let () (declare (not safe)) - (_g231941231971_ _g231942231974_))) + (_g119183119213_ _g119184119216_))) (let () (declare (not safe)) - (_g231941231971_ _g231942231974_))))) + (_g119183119213_ _g119184119216_))))) (let () (declare (not safe)) - (_g231941231971_ _g231942231974_))) + (_g119183119213_ _g119184119216_))) (let () (declare (not safe)) - (_g231941231971_ _g231942231974_))))) + (_g119183119213_ _g119184119216_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g231941231971_ - _g231942231974_))))) + (_g119183119213_ + _g119184119216_))))) (let () (declare (not safe)) - (_g231941231971_ - _g231942231974_))))) + (_g119183119213_ + _g119184119216_))))) (let () (declare (not safe)) - (_g231941231971_ _g231942231974_))))) + (_g119183119213_ _g119184119216_))))) (let () (declare (not safe)) - (_g231941231971_ _g231942231974_))))) + (_g119183119213_ _g119184119216_))))) (let () (declare (not safe)) - (_g231941231971_ _g231942231974_)))))) + (_g119183119213_ _g119184119216_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g231940232066_ _L231926_)))) - (___kont244720244721_ - (lambda (_L231877_ _L231878_) - (let ((__tmp245334 - (let ((__tmp245335 - (let ((__tmp245336 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp245337 + (_g119182119308_ _L119168_)))) + (___kont127394127395_ + (lambda (_L119119_ _L119120_) + (let ((__tmp128008 + (let ((__tmp128009 + (let ((__tmp128010 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp128011 (let () (declare (not safe)) - (gxc#compile-e__0 _L231877_)))) + (gxc#compile-e__0 _L119119_)))) (declare (not safe)) - (cons __tmp245337 '())))) + (cons __tmp128011 '())))) (declare (not safe)) - (cons _L231878_ __tmp245336)))) + (cons _L119120_ __tmp128010)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp245335 - _bind231795_)))) + (cons __tmp128009 + _bind119037_)))) (declare (not safe)) - (_lp231790_ - _rest231815_ - _lift1231793_ - _lift2231794_ - __tmp245334))))) - (let* ((___match244765244766_ - (lambda (_e231837231902_ - _hd231836231905_ - _tl231835231907_ - _e231840231910_ - _hd231839231913_ - _tl231838231915_ - _e231843231918_ - _hd231842231921_ - _tl231841231923_) - (let ((_L231926_ - _hd231842231921_) - (_L231927_ - _hd231839231913_)) + (_lp119032_ + _rest119057_ + _lift1119035_ + _lift2119036_ + __tmp128008))))) + (let* ((___match127439127440_ + (lambda (_e119079119144_ + _hd119078119147_ + _tl119077119149_ + _e119082119152_ + _hd119081119155_ + _tl119080119157_ + _e119085119160_ + _hd119084119163_ + _tl119083119165_) + (let ((_L119168_ + _hd119084119163_) + (_L119169_ + _hd119081119155_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L231927_)) + _L119169_)) (let () (declare (not safe)) (gxc#opt-lambda-expr? - _L231926_))) - (___kont244718244719_ - _L231926_ - _L231927_) - (___kont244720244721_ - _hd231842231921_ - _hd231836231905_))))) - (___match244743244744_ - (lambda (_e231826232074_ - _hd231825232077_ - _tl231824232079_ - _e231829232082_ - _hd231828232085_ - _tl231827232087_ - _e231832232090_ - _hd231831232093_ - _tl231830232095_) - (let ((_L232098_ - _hd231831232093_) - (_L232099_ - _hd231828232085_)) + _L119168_))) + (___kont127392127393_ + _L119168_ + _L119169_) + (___kont127394127395_ + _hd119084119163_ + _hd119078119147_))))) + (___match127417127418_ + (lambda (_e119068119316_ + _hd119067119319_ + _tl119066119321_ + _e119071119324_ + _hd119070119327_ + _tl119069119329_ + _e119074119332_ + _hd119073119335_ + _tl119072119337_) + (let ((_L119340_ + _hd119073119335_) + (_L119341_ + _hd119070119327_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L232099_)) + _L119341_)) (let () (declare (not safe)) (gxc#case-lambda-expr? - _L232098_))) - (___kont244716244717_ - _L232098_ - _L232099_) - (___match244765244766_ - _e231826232074_ - _hd231825232077_ - _tl231824232079_ - _e231829232082_ - _hd231828232085_ - _tl231827232087_ - _e231832232090_ - _hd231831232093_ - _tl231830232095_)))))) + _L119340_))) + (___kont127390127391_ + _L119340_ + _L119341_) + (___match127439127440_ + _e119068119316_ + _hd119067119319_ + _tl119066119321_ + _e119071119324_ + _hd119070119327_ + _tl119069119329_ + _e119074119332_ + _hd119073119335_ + _tl119072119337_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx244714244715_)) - (let ((_e231826232074_ + ___stx127388127389_)) + (let ((_e119068119316_ (let () (declare (not safe)) (gx#stx-e - ___stx244714244715_)))) - (let ((_tl231824232079_ + ___stx127388127389_)))) + (let ((_tl119066119321_ (let () (declare (not safe)) - (##cdr _e231826232074_))) - (_hd231825232077_ + (##cdr _e119068119316_))) + (_hd119067119319_ (let () (declare (not safe)) - (##car _e231826232074_)))) + (##car _e119068119316_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd231825232077_)) - (let ((_e231829232082_ + _hd119067119319_)) + (let ((_e119071119324_ (let () (declare (not safe)) (gx#stx-e - _hd231825232077_)))) - (let ((_tl231827232087_ + _hd119067119319_)))) + (let ((_tl119069119329_ (let () (declare (not safe)) - (##cdr _e231829232082_))) - (_hd231828232085_ + (##cdr _e119071119324_))) + (_hd119070119327_ (let () (declare (not safe)) - (##car _e231829232082_)))) + (##car _e119071119324_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl231827232087_)) + _tl119069119329_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl231824232079_)) - (let ((_e231832232090_ + (gx#stx-pair? _tl119066119321_)) + (let ((_e119074119332_ (let () (declare (not safe)) - (gx#stx-e _tl231824232079_)))) - (let ((_tl231830232095_ + (gx#stx-e _tl119066119321_)))) + (let ((_tl119072119337_ (let () (declare (not safe)) - (##cdr _e231832232090_))) - (_hd231831232093_ + (##cdr _e119074119332_))) + (_hd119073119335_ (let () (declare (not safe)) - (##car _e231832232090_)))) + (##car _e119074119332_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231830232095_)) - (___match244743244744_ - _e231826232074_ - _hd231825232077_ - _tl231824232079_ - _e231829232082_ - _hd231828232085_ - _tl231827232087_ - _e231832232090_ - _hd231831232093_ - _tl231830232095_) + (gx#stx-null? _tl119072119337_)) + (___match127417127418_ + _e119068119316_ + _hd119067119319_ + _tl119066119321_ + _e119071119324_ + _hd119070119327_ + _tl119069119329_ + _e119074119332_ + _hd119073119335_ + _tl119072119337_) (let () (declare (not safe)) - (_g231820231856_))))) - (let () (declare (not safe)) (_g231820231856_))) + (_g119062119098_))))) + (let () (declare (not safe)) (_g119062119098_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231824232079_)) - (let ((_e231851231869_ + (gx#stx-pair? _tl119066119321_)) + (let ((_e119093119111_ (let () (declare (not safe)) - (gx#stx-e _tl231824232079_)))) - (let ((_tl231849231874_ + (gx#stx-e _tl119066119321_)))) + (let ((_tl119091119116_ (let () (declare (not safe)) - (##cdr _e231851231869_))) - (_hd231850231872_ + (##cdr _e119093119111_))) + (_hd119092119114_ (let () (declare (not safe)) - (##car _e231851231869_)))) + (##car _e119093119111_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231849231874_)) - (___kont244720244721_ - _hd231850231872_ - _hd231825232077_) + (gx#stx-null? _tl119091119116_)) + (___kont127394127395_ + _hd119092119114_ + _hd119067119319_) (let () (declare (not safe)) - (_g231820231856_))))) - (let () (declare (not safe)) (_g231820231856_)))))) + (_g119062119098_))))) + (let () (declare (not safe)) (_g119062119098_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl231824232079_)) - (let ((_e231851231869_ + _tl119066119321_)) + (let ((_e119093119111_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl231824232079_)))) - (let ((_tl231849231874_ - (let () (declare (not safe)) (##cdr _e231851231869_))) - (_hd231850231872_ - (let () (declare (not safe)) (##car _e231851231869_)))) + (gx#stx-e _tl119066119321_)))) + (let ((_tl119091119116_ + (let () (declare (not safe)) (##cdr _e119093119111_))) + (_hd119092119114_ + (let () (declare (not safe)) (##car _e119093119111_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231849231874_)) - (___kont244720244721_ _hd231850231872_ _hd231825232077_) - (let () (declare (not safe)) (_g231820231856_))))) - (let () (declare (not safe)) (_g231820231856_)))))) + (gx#stx-null? _tl119091119116_)) + (___kont127394127395_ _hd119092119114_ _hd119067119319_) + (let () (declare (not safe)) (_g119062119098_))))) + (let () (declare (not safe)) (_g119062119098_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g231820231856_))))))))) + (_g119062119098_))))))))) (if (let () (declare (not safe)) - (##pair? _rest231796231804_)) - (let ((_hd231801232194_ + (##pair? _rest119038119046_)) + (let ((_hd119043119436_ (let () (declare (not safe)) - (##car _rest231796231804_))) - (_tl231802232196_ + (##car _rest119038119046_))) + (_tl119044119438_ (let () (declare (not safe)) - (##cdr _rest231796231804_)))) - (let* ((_hd232199_ _hd231801232194_) - (_rest232201_ _tl231802232196_)) + (##cdr _rest119038119046_)))) + (let* ((_hd119441_ _hd119043119436_) + (_rest119443_ _tl119044119438_)) (declare (not safe)) - (_K231800232191_ _rest232201_ _hd232199_))) + (_K119042119433_ _rest119443_ _hd119441_))) (let () (declare (not safe)) - (_else231798231812_))))))) - (_lift-kw-lambda?231156_ - (lambda (_bind231712_) - (let* ((___stx244782244783_ _bind231712_) - (_g231715231732_ + (_else119040119054_))))))) + (_lift-kw-lambda?118398_ + (lambda (_bind118954_) + (let* ((___stx127456127457_ _bind118954_) + (_g118957118974_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx244782244783_))))) - (let ((___kont244784244785_ - (lambda (_L231768_ _L231769_) + ___stx127456127457_))))) + (let ((___kont127458127459_ + (lambda (_L119010_ _L119011_) (if (let () (declare (not safe)) - (gx#identifier? _L231769_)) + (gx#identifier? _L119011_)) (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L231768_)) + (gxc#kw-lambda-expr? _L119010_)) '#f))) - (___kont244786244787_ (lambda () '#f))) + (___kont127460127461_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx244782244783_)) - (let ((_e231721231744_ + (gx#stx-pair? ___stx127456127457_)) + (let ((_e118963118986_ (let () (declare (not safe)) - (gx#stx-e ___stx244782244783_)))) - (let ((_tl231719231749_ + (gx#stx-e ___stx127456127457_)))) + (let ((_tl118961118991_ (let () (declare (not safe)) - (##cdr _e231721231744_))) - (_hd231720231747_ + (##cdr _e118963118986_))) + (_hd118962118989_ (let () (declare (not safe)) - (##car _e231721231744_)))) + (##car _e118963118986_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231720231747_)) - (let ((_e231724231752_ + (gx#stx-pair? _hd118962118989_)) + (let ((_e118966118994_ (let () (declare (not safe)) - (gx#stx-e _hd231720231747_)))) - (let ((_tl231722231757_ + (gx#stx-e _hd118962118989_)))) + (let ((_tl118964118999_ (let () (declare (not safe)) - (##cdr _e231724231752_))) - (_hd231723231755_ + (##cdr _e118966118994_))) + (_hd118965118997_ (let () (declare (not safe)) - (##car _e231724231752_)))) + (##car _e118966118994_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231722231757_)) + (gx#stx-null? _tl118964118999_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl231719231749_)) - (let ((_e231727231760_ + _tl118961118991_)) + (let ((_e118969119002_ (let () (declare (not safe)) (gx#stx-e - _tl231719231749_)))) - (let ((_tl231725231765_ + _tl118961118991_)))) + (let ((_tl118967119007_ (let () (declare (not safe)) - (##cdr _e231727231760_))) - (_hd231726231763_ + (##cdr _e118969119002_))) + (_hd118968119005_ (let () (declare (not safe)) - (##car _e231727231760_)))) + (##car _e118969119002_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl231725231765_)) - (___kont244784244785_ - _hd231726231763_ - _hd231723231755_) - (___kont244786244787_)))) - (___kont244786244787_)) - (___kont244786244787_)))) - (___kont244786244787_)))) - (___kont244786244787_)))))) - (_lift-kw-lambda-bindings231157_ - (lambda (_bindings231324_) - (let _lp231326_ ((_rest231328_ _bindings231324_) - (_lift1231329_ '()) - (_lift2231330_ '()) - (_bind231331_ '())) - (let* ((_rest231332231340_ _rest231328_) - (_else231334231348_ + _tl118967119007_)) + (___kont127458127459_ + _hd118968119005_ + _hd118965118997_) + (___kont127460127461_)))) + (___kont127460127461_)) + (___kont127460127461_)))) + (___kont127460127461_)))) + (___kont127460127461_)))))) + (_lift-kw-lambda-bindings118399_ + (lambda (_bindings118566_) + (let _lp118568_ ((_rest118570_ _bindings118566_) + (_lift1118571_ '()) + (_lift2118572_ '()) + (_bind118573_ '())) + (let* ((_rest118574118582_ _rest118570_) + (_else118576118590_ (lambda () - (values (reverse _lift1231329_) - (reverse _lift2231330_) - (reverse _bind231331_)))) - (_K231336231700_ - (lambda (_rest231351_ _hd231352_) - (let* ((___stx244812244813_ _hd231352_) - (_g231355231380_ + (values (reverse _lift1118571_) + (reverse _lift2118572_) + (reverse _bind118573_)))) + (_K118578118942_ + (lambda (_rest118593_ _hd118594_) + (let* ((___stx127486127487_ _hd118594_) + (_g118597118622_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx244812244813_))))) - (let ((___kont244814244815_ - (lambda (_L231450_ _L231451_) - (let* ((_g231465231518_ - (lambda (_g231466231515_) + ___stx127486127487_))))) + (let ((___kont127488127489_ + (lambda (_L118692_ _L118693_) + (let* ((_g118707118760_ + (lambda (_g118708118757_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g231466231515_)))) - (_g231464231694_ - (lambda (_g231466231521_) + _g118708118757_)))) + (_g118706118936_ + (lambda (_g118708118763_) (if (let () (declare (not safe)) (gx#stx-pair? - _g231466231521_)) - (let ((_e231474231523_ + _g118708118763_)) + (let ((_e118716118765_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g231466231521_)))) - (let ((_hd231473231526_ + (gx#stx-e _g118708118763_)))) + (let ((_hd118715118768_ (let () (declare (not safe)) - (##car _e231474231523_))) - (_tl231472231528_ + (##car _e118716118765_))) + (_tl118714118770_ (let () (declare (not safe)) - (##cdr _e231474231523_)))) + (##cdr _e118716118765_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231472231528_)) - (let ((_e231477231531_ + (gx#stx-pair? _tl118714118770_)) + (let ((_e118719118773_ (let () (declare (not safe)) - (gx#stx-e _tl231472231528_)))) - (let ((_hd231476231534_ + (gx#stx-e _tl118714118770_)))) + (let ((_hd118718118776_ (let () (declare (not safe)) - (##car _e231477231531_))) - (_tl231475231536_ + (##car _e118719118773_))) + (_tl118717118778_ (let () (declare (not safe)) - (##cdr _e231477231531_)))) + (##cdr _e118719118773_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231476231534_)) - (let ((_e231480231539_ + (gx#stx-pair? _hd118718118776_)) + (let ((_e118722118781_ (let () (declare (not safe)) - (gx#stx-e _hd231476231534_)))) - (let ((_hd231479231542_ + (gx#stx-e _hd118718118776_)))) + (let ((_hd118721118784_ (let () (declare (not safe)) - (##car _e231480231539_))) - (_tl231478231544_ + (##car _e118722118781_))) + (_tl118720118786_ (let () (declare (not safe)) - (##cdr _e231480231539_)))) + (##cdr _e118722118781_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231479231542_)) - (let ((_e231483231547_ + (gx#stx-pair? _hd118721118784_)) + (let ((_e118725118789_ (let () (declare (not safe)) (gx#stx-e - _hd231479231542_)))) - (let ((_hd231482231550_ + _hd118721118784_)))) + (let ((_hd118724118792_ (let () (declare (not safe)) - (##car _e231483231547_))) - (_tl231481231552_ + (##car _e118725118789_))) + (_tl118723118794_ (let () (declare (not safe)) - (##cdr _e231483231547_)))) + (##cdr _e118725118789_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd231482231550_)) - (let ((_e231486231555_ + _hd118724118792_)) + (let ((_e118728118797_ (let () (declare (not safe)) (gx#stx-e - _hd231482231550_)))) - (let ((_hd231485231558_ + _hd118724118792_)))) + (let ((_hd118727118800_ (let () (declare (not safe)) - (##car _e231486231555_))) - (_tl231484231560_ + (##car _e118728118797_))) + (_tl118726118802_ (let () (declare (not safe)) - (##cdr _e231486231555_)))) + (##cdr _e118728118797_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl231484231560_)) + _tl118726118802_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl231481231552_)) - (let ((_e231489231563_ + (gx#stx-pair? _tl118723118794_)) + (let ((_e118731118805_ (let () (declare (not safe)) - (gx#stx-e _tl231481231552_)))) - (let ((_hd231488231566_ + (gx#stx-e _tl118723118794_)))) + (let ((_hd118730118808_ (let () (declare (not safe)) - (##car _e231489231563_))) - (_tl231487231568_ + (##car _e118731118805_))) + (_tl118729118810_ (let () (declare (not safe)) - (##cdr _e231489231563_)))) + (##cdr _e118731118805_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231488231566_)) - (let ((_e231492231571_ + (gx#stx-pair? _hd118730118808_)) + (let ((_e118734118813_ (let () (declare (not safe)) - (gx#stx-e _hd231488231566_)))) - (let ((_hd231491231574_ + (gx#stx-e _hd118730118808_)))) + (let ((_hd118733118816_ (let () (declare (not safe)) - (##car _e231492231571_))) - (_tl231490231576_ + (##car _e118734118813_))) + (_tl118732118818_ (let () (declare (not safe)) - (##cdr _e231492231571_)))) + (##cdr _e118734118813_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231490231576_)) - (let ((_e231495231579_ + (gx#stx-pair? _tl118732118818_)) + (let ((_e118737118821_ (let () (declare (not safe)) - (gx#stx-e _tl231490231576_)))) - (let ((_hd231494231582_ + (gx#stx-e _tl118732118818_)))) + (let ((_hd118736118824_ (let () (declare (not safe)) - (##car _e231495231579_))) - (_tl231493231584_ + (##car _e118737118821_))) + (_tl118735118826_ (let () (declare (not safe)) - (##cdr _e231495231579_)))) + (##cdr _e118737118821_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd231494231582_)) - (let ((_e231498231587_ + _hd118736118824_)) + (let ((_e118740118829_ (let () (declare (not safe)) (gx#stx-e - _hd231494231582_)))) - (let ((_hd231497231590_ + _hd118736118824_)))) + (let ((_hd118739118832_ (let () (declare (not safe)) - (##car _e231498231587_))) - (_tl231496231592_ + (##car _e118740118829_))) + (_tl118738118834_ (let () (declare (not safe)) - (##cdr _e231498231587_)))) + (##cdr _e118740118829_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd231497231590_)) - (let ((_e231501231595_ + _hd118739118832_)) + (let ((_e118743118837_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd231497231590_)))) - (let ((_hd231500231598_ - (let () (declare (not safe)) (##car _e231501231595_))) - (_tl231499231600_ - (let () (declare (not safe)) (##cdr _e231501231595_)))) + (gx#stx-e _hd118739118832_)))) + (let ((_hd118742118840_ + (let () (declare (not safe)) (##car _e118743118837_))) + (_tl118741118842_ + (let () (declare (not safe)) (##cdr _e118743118837_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231500231598_)) - (let ((_e231504231603_ + (gx#stx-pair? _hd118742118840_)) + (let ((_e118746118845_ (let () (declare (not safe)) - (gx#stx-e _hd231500231598_)))) - (let ((_hd231503231606_ + (gx#stx-e _hd118742118840_)))) + (let ((_hd118745118848_ (let () (declare (not safe)) - (##car _e231504231603_))) - (_tl231502231608_ + (##car _e118746118845_))) + (_tl118744118850_ (let () (declare (not safe)) - (##cdr _e231504231603_)))) + (##cdr _e118746118845_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231502231608_)) + (gx#stx-null? _tl118744118850_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231499231600_)) - (let ((_e231507231611_ + (gx#stx-pair? _tl118741118842_)) + (let ((_e118749118853_ (let () (declare (not safe)) - (gx#stx-e _tl231499231600_)))) - (let ((_hd231506231614_ + (gx#stx-e _tl118741118842_)))) + (let ((_hd118748118856_ (let () (declare (not safe)) - (##car _e231507231611_))) - (_tl231505231616_ + (##car _e118749118853_))) + (_tl118747118858_ (let () (declare (not safe)) - (##cdr _e231507231611_)))) + (##cdr _e118749118853_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231505231616_)) + (gx#stx-null? _tl118747118858_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl231496231592_)) + _tl118738118834_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl231493231584_)) - (let ((_e231510231619_ + _tl118735118826_)) + (let ((_e118752118861_ (let () (declare (not safe)) (gx#stx-e - _tl231493231584_)))) - (let ((_hd231509231622_ + _tl118735118826_)))) + (let ((_hd118751118864_ (let () (declare (not safe)) - (##car _e231510231619_))) - (_tl231508231624_ + (##car _e118752118861_))) + (_tl118750118866_ (let () (declare (not safe)) - (##cdr _e231510231619_)))) + (##cdr _e118752118861_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl231508231624_)) + _tl118750118866_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl231487231568_)) + (gx#stx-null? _tl118729118810_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl231478231544_)) + (gx#stx-null? _tl118720118786_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231475231536_)) - (let ((_e231513231627_ + (gx#stx-pair? _tl118717118778_)) + (let ((_e118755118869_ (let () (declare (not safe)) - (gx#stx-e _tl231475231536_)))) - (let ((_hd231512231630_ + (gx#stx-e _tl118717118778_)))) + (let ((_hd118754118872_ (let () (declare (not safe)) - (##car _e231513231627_))) - (_tl231511231632_ + (##car _e118755118869_))) + (_tl118753118874_ (let () (declare (not safe)) - (##cdr _e231513231627_)))) + (##cdr _e118755118869_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231511231632_)) - ((lambda (_L231635_ - _L231636_ - _L231637_ - _L231638_ - _L231639_) - (let* ((_get-kws-id231679_ - (let ((__tmp245339 + (gx#stx-null? _tl118753118874_)) + ((lambda (_L118877_ + _L118878_ + _L118879_ + _L118880_ + _L118881_) + (let* ((_get-kws-id118921_ + (let ((__tmp128013 (let () (declare (not safe)) (gx#stx-e - _L231451_))) - (__tmp245338 + _L118693_))) + (__tmp128012 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp245339 - __tmp245338))) - (_get-kws-id231681_ - (let ((__tmp245340 + __tmp128013 + __tmp128012))) + (_get-kws-id118923_ + (let ((__tmp128014 (let () (declare (not safe)) (gx#stx-source - _stx231152_)))) + _stx118394_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id231679_ - __tmp245340))) - (_main-id231683_ - (let ((__tmp245342 + _get-kws-id118921_ + __tmp128014))) + (_main-id118925_ + (let ((__tmp128016 (let () (declare (not safe)) (gx#stx-e - _L231451_))) - (__tmp245341 + _L118693_))) + (__tmp128015 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp245342 - __tmp245341))) - (_main-id231685_ - (let ((__tmp245343 + __tmp128016 + __tmp128015))) + (_main-id118927_ + (let ((__tmp128017 (let () (declare (not safe)) (gx#stx-source - _stx231152_)))) + _stx118394_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id231683_ - __tmp245343))) - (_g245344_ + _main-id118925_ + __tmp128017))) + (_g128018_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _get-kws-id231681_))) - (_g245345_ + _get-kws-id118923_))) + (_g128019_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _main-id231685_))) - (_new-kw-dispatch231689_ + _main-id118927_))) + (_new-kw-dispatch118931_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L231635_ - _L231639_ - _get-kws-id231681_))) - (_new-get-kws231691_ + _L118877_ + _L118881_ + _get-kws-id118923_))) + (_new-get-kws118933_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L231636_ - _L231638_ - _main-id231685_)))) - (let ((__tmp245348 + _L118878_ + _L118880_ + _main-id118927_)))) + (let ((__tmp128022 (let () (declare (not safe)) (gxc#identifier-symbol - _L231451_))) - (__tmp245347 + _L118693_))) + (__tmp128021 (let () (declare (not safe)) (gxc#identifier-symbol - _get-kws-id231681_))) - (__tmp245346 + _get-kws-id118923_))) + (__tmp128020 (let () (declare (not safe)) (gxc#identifier-symbol - _main-id231685_)))) + _main-id118927_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp245348 + __tmp128022 '" => " - __tmp245347 + __tmp128021 '" => " - __tmp245346)) - (let ((__tmp245353 - (let ((__tmp245354 + __tmp128020)) + (let ((__tmp128027 + (let ((__tmp128028 (let () (declare (not safe)) - (_bind-e__242974242975_ - _main-id231685_ - _L231637_ + (_bind-e__125648125649_ + _main-id118927_ + _L118879_ '#f)))) (declare (not safe)) - (cons __tmp245354 - _lift1231329_))) - (__tmp245351 - (let ((__tmp245352 + (cons __tmp128028 + _lift1118571_))) + (__tmp128025 + (let ((__tmp128026 (let () (declare (not safe)) - (_bind-e__242974242975_ - _get-kws-id231681_ - _new-get-kws231691_ + (_bind-e__125648125649_ + _get-kws-id118923_ + _new-get-kws118933_ '#f)))) (declare (not safe)) - (cons __tmp245352 - _lift2231330_))) - (__tmp245349 - (let ((__tmp245350 + (cons __tmp128026 + _lift2118572_))) + (__tmp128023 + (let ((__tmp128024 (let () (declare (not safe)) - (_bind-e__242974242975_ - _L231451_ - _new-kw-dispatch231689_ + (_bind-e__125648125649_ + _L118693_ + _new-kw-dispatch118931_ '#f)))) (declare (not safe)) - (cons __tmp245350 - _bind231331_)))) + (cons __tmp128024 + _bind118573_)))) (declare (not safe)) - (_lp231326_ - _rest231351_ - __tmp245353 - __tmp245351 - __tmp245349)))) - _hd231512231630_ - _hd231509231622_ - _hd231506231614_ - _hd231503231606_ - _hd231485231558_) + (_lp118568_ + _rest118593_ + __tmp128027 + __tmp128025 + __tmp128023)))) + _hd118754118872_ + _hd118751118864_ + _hd118748118856_ + _hd118745118848_ + _hd118727118800_) (let () (declare (not safe)) - (_g231465231518_ _g231466231521_))))) + (_g118707118760_ _g118708118763_))))) (let () (declare (not safe)) - (_g231465231518_ _g231466231521_))) + (_g118707118760_ _g118708118763_))) (let () (declare (not safe)) - (_g231465231518_ _g231466231521_))) + (_g118707118760_ _g118708118763_))) (let () (declare (not safe)) - (_g231465231518_ _g231466231521_))) + (_g118707118760_ _g118708118763_))) (let () (declare (not safe)) - (_g231465231518_ _g231466231521_))))) + (_g118707118760_ _g118708118763_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g231465231518_ - _g231466231521_))) + (_g118707118760_ + _g118708118763_))) (let () (declare (not safe)) - (_g231465231518_ - _g231466231521_))) + (_g118707118760_ + _g118708118763_))) (let () (declare (not safe)) - (_g231465231518_ - _g231466231521_))))) + (_g118707118760_ + _g118708118763_))))) (let () (declare (not safe)) - (_g231465231518_ _g231466231521_))) + (_g118707118760_ _g118708118763_))) (let () (declare (not safe)) - (_g231465231518_ _g231466231521_))))) + (_g118707118760_ _g118708118763_))))) (let () (declare (not safe)) - (_g231465231518_ _g231466231521_))))) + (_g118707118760_ _g118708118763_))))) (let () (declare (not safe)) - (_g231465231518_ _g231466231521_))))) + (_g118707118760_ _g118708118763_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g231465231518_ - _g231466231521_))))) + (_g118707118760_ + _g118708118763_))))) (let () (declare (not safe)) - (_g231465231518_ _g231466231521_))))) + (_g118707118760_ _g118708118763_))))) (let () (declare (not safe)) - (_g231465231518_ _g231466231521_))))) + (_g118707118760_ _g118708118763_))))) (let () (declare (not safe)) - (_g231465231518_ _g231466231521_))) + (_g118707118760_ _g118708118763_))) (let () (declare (not safe)) - (_g231465231518_ _g231466231521_))))) + (_g118707118760_ _g118708118763_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g231465231518_ - _g231466231521_))))) + (_g118707118760_ + _g118708118763_))))) (let () (declare (not safe)) - (_g231465231518_ - _g231466231521_))))) + (_g118707118760_ + _g118708118763_))))) (let () (declare (not safe)) - (_g231465231518_ _g231466231521_))))) + (_g118707118760_ _g118708118763_))))) (let () (declare (not safe)) - (_g231465231518_ _g231466231521_))))) + (_g118707118760_ _g118708118763_))))) (let () (declare (not safe)) - (_g231465231518_ _g231466231521_)))))) + (_g118707118760_ _g118708118763_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g231464231694_ _L231450_)))) - (___kont244816244817_ - (lambda (_L231401_ _L231402_) - (let ((__tmp245355 - (let ((__tmp245356 - (let ((__tmp245357 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L231401_ '())))) + (_g118706118936_ _L118692_)))) + (___kont127490127491_ + (lambda (_L118643_ _L118644_) + (let ((__tmp128029 + (let ((__tmp128030 + (let ((__tmp128031 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _L118643_ '())))) (declare (not safe)) - (cons _L231402_ __tmp245357)))) + (cons _L118644_ __tmp128031)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp245356 - _bind231331_)))) + (cons __tmp128030 + _bind118573_)))) (declare (not safe)) - (_lp231326_ - _rest231351_ - _lift1231329_ - _lift2231330_ - __tmp245355))))) - (let ((___match244839244840_ - (lambda (_e231361231426_ - _hd231360231429_ - _tl231359231431_ - _e231364231434_ - _hd231363231437_ - _tl231362231439_ - _e231367231442_ - _hd231366231445_ - _tl231365231447_) - (let ((_L231450_ - _hd231366231445_) - (_L231451_ - _hd231363231437_)) + (_lp118568_ + _rest118593_ + _lift1118571_ + _lift2118572_ + __tmp128029))))) + (let ((___match127513127514_ + (lambda (_e118603118668_ + _hd118602118671_ + _tl118601118673_ + _e118606118676_ + _hd118605118679_ + _tl118604118681_ + _e118609118684_ + _hd118608118687_ + _tl118607118689_) + (let ((_L118692_ + _hd118608118687_) + (_L118693_ + _hd118605118679_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L231451_)) + _L118693_)) (let () (declare (not safe)) (gxc#kw-lambda-expr? - _L231450_))) - (___kont244814244815_ - _L231450_ - _L231451_) - (___kont244816244817_ - _hd231366231445_ - _hd231360231429_)))))) + _L118692_))) + (___kont127488127489_ + _L118692_ + _L118693_) + (___kont127490127491_ + _hd118608118687_ + _hd118602118671_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx244812244813_)) - (let ((_e231361231426_ + ___stx127486127487_)) + (let ((_e118603118668_ (let () (declare (not safe)) (gx#stx-e - ___stx244812244813_)))) - (let ((_tl231359231431_ + ___stx127486127487_)))) + (let ((_tl118601118673_ (let () (declare (not safe)) - (##cdr _e231361231426_))) - (_hd231360231429_ + (##cdr _e118603118668_))) + (_hd118602118671_ (let () (declare (not safe)) - (##car _e231361231426_)))) + (##car _e118603118668_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd231360231429_)) - (let ((_e231364231434_ + _hd118602118671_)) + (let ((_e118606118676_ (let () (declare (not safe)) (gx#stx-e - _hd231360231429_)))) - (let ((_tl231362231439_ + _hd118602118671_)))) + (let ((_tl118604118681_ (let () (declare (not safe)) - (##cdr _e231364231434_))) - (_hd231363231437_ + (##cdr _e118606118676_))) + (_hd118605118679_ (let () (declare (not safe)) - (##car _e231364231434_)))) + (##car _e118606118676_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl231362231439_)) + _tl118604118681_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl231359231431_)) - (let ((_e231367231442_ + (gx#stx-pair? _tl118601118673_)) + (let ((_e118609118684_ (let () (declare (not safe)) - (gx#stx-e _tl231359231431_)))) - (let ((_tl231365231447_ + (gx#stx-e _tl118601118673_)))) + (let ((_tl118607118689_ (let () (declare (not safe)) - (##cdr _e231367231442_))) - (_hd231366231445_ + (##cdr _e118609118684_))) + (_hd118608118687_ (let () (declare (not safe)) - (##car _e231367231442_)))) + (##car _e118609118684_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231365231447_)) - (___match244839244840_ - _e231361231426_ - _hd231360231429_ - _tl231359231431_ - _e231364231434_ - _hd231363231437_ - _tl231362231439_ - _e231367231442_ - _hd231366231445_ - _tl231365231447_) + (gx#stx-null? _tl118607118689_)) + (___match127513127514_ + _e118603118668_ + _hd118602118671_ + _tl118601118673_ + _e118606118676_ + _hd118605118679_ + _tl118604118681_ + _e118609118684_ + _hd118608118687_ + _tl118607118689_) (let () (declare (not safe)) - (_g231355231380_))))) - (let () (declare (not safe)) (_g231355231380_))) + (_g118597118622_))))) + (let () (declare (not safe)) (_g118597118622_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231359231431_)) - (let ((_e231375231393_ + (gx#stx-pair? _tl118601118673_)) + (let ((_e118617118635_ (let () (declare (not safe)) - (gx#stx-e _tl231359231431_)))) - (let ((_tl231373231398_ + (gx#stx-e _tl118601118673_)))) + (let ((_tl118615118640_ (let () (declare (not safe)) - (##cdr _e231375231393_))) - (_hd231374231396_ + (##cdr _e118617118635_))) + (_hd118616118638_ (let () (declare (not safe)) - (##car _e231375231393_)))) + (##car _e118617118635_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231373231398_)) - (___kont244816244817_ - _hd231374231396_ - _hd231360231429_) + (gx#stx-null? _tl118615118640_)) + (___kont127490127491_ + _hd118616118638_ + _hd118602118671_) (let () (declare (not safe)) - (_g231355231380_))))) - (let () (declare (not safe)) (_g231355231380_)))))) + (_g118597118622_))))) + (let () (declare (not safe)) (_g118597118622_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl231359231431_)) - (let ((_e231375231393_ + _tl118601118673_)) + (let ((_e118617118635_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl231359231431_)))) - (let ((_tl231373231398_ - (let () (declare (not safe)) (##cdr _e231375231393_))) - (_hd231374231396_ - (let () (declare (not safe)) (##car _e231375231393_)))) + (gx#stx-e _tl118601118673_)))) + (let ((_tl118615118640_ + (let () (declare (not safe)) (##cdr _e118617118635_))) + (_hd118616118638_ + (let () (declare (not safe)) (##car _e118617118635_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231373231398_)) - (___kont244816244817_ _hd231374231396_ _hd231360231429_) - (let () (declare (not safe)) (_g231355231380_))))) - (let () (declare (not safe)) (_g231355231380_)))))) + (gx#stx-null? _tl118615118640_)) + (___kont127490127491_ _hd118616118638_ _hd118602118671_) + (let () (declare (not safe)) (_g118597118622_))))) + (let () (declare (not safe)) (_g118597118622_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g231355231380_))))))))) + (_g118597118622_))))))))) (if (let () (declare (not safe)) - (##pair? _rest231332231340_)) - (let ((_hd231337231703_ + (##pair? _rest118574118582_)) + (let ((_hd118579118945_ (let () (declare (not safe)) - (##car _rest231332231340_))) - (_tl231338231705_ + (##car _rest118574118582_))) + (_tl118580118947_ (let () (declare (not safe)) - (##cdr _rest231332231340_)))) - (let* ((_hd231708_ _hd231337231703_) - (_rest231710_ _tl231338231705_)) + (##cdr _rest118574118582_)))) + (let* ((_hd118950_ _hd118579118945_) + (_rest118952_ _tl118580118947_)) (declare (not safe)) - (_K231336231700_ _rest231710_ _hd231708_))) + (_K118578118942_ _rest118952_ _hd118950_))) (let () (declare (not safe)) - (_else231334231348_)))))))) - (let* ((___stx244856244857_ _stx231152_) - (_g231160231186_ + (_else118576118590_)))))))) + (let* ((___stx127530127531_ _stx118394_) + (_g118402118428_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx244856244857_))))) - (let ((___kont244858244859_ - (lambda (_L231246_ _L231247_) - (let ((__tmp245359 + ___stx127530127531_))))) + (let ((___kont127532127533_ + (lambda (_L118488_ _L118489_) + (let ((__tmp128033 (lambda () - (if (let ((__tmp245386 - (let ((__tmp245387 - (lambda (_g231275231278_ - _g231276231280_) + (if (let ((__tmp128060 + (let ((__tmp128061 + (lambda (_g118517118520_ + _g118518118522_) (let () (declare (not safe)) - (cons _g231275231278_ - _g231276231280_))))) + (cons _g118517118520_ + _g118518118522_))))) (declare (not safe)) - (foldr1 __tmp245387 + (foldr1 __tmp128061 '() - _L231247_)))) + _L118489_)))) (declare (not safe)) - (ormap1 _lift-kw-lambda?231156_ - __tmp245386)) - (let ((_g245373_ - (let ((__tmp245375 - (let ((__tmp245376 - (lambda (_g231282231285_ - _g231283231287_) + (ormap1 _lift-kw-lambda?118398_ + __tmp128060)) + (let ((_g128047_ + (let ((__tmp128049 + (let ((__tmp128050 + (lambda (_g118524118527_ + _g118525118529_) (let () (declare (not safe)) - (cons _g231282231285_ + (cons _g118524118527_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g231283231287_))))) + _g118525118529_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp245376 + (foldr1 __tmp128050 '() - _L231247_)))) + _L118489_)))) (declare (not safe)) - (_lift-kw-lambda-bindings231157_ - __tmp245375)))) + (_lift-kw-lambda-bindings118399_ + __tmp128049)))) (begin - (let ((_g245374_ + (let ((_g128048_ (let () (declare (not safe)) - (if (##values? _g245373_) - (##vector-length _g245373_) + (if (##values? _g128047_) + (##vector-length _g128047_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g245374_ 3))) + (##fx= _g128048_ 3))) (error "Context expects 3 values" - _g245374_))) - (let ((_lift1231290_ + _g128048_))) + (let ((_lift1118532_ (let () (declare (not safe)) - (##vector-ref _g245373_ 0))) - (_lift2231291_ + (##vector-ref _g128047_ 0))) + (_lift2118533_ (let () (declare (not safe)) - (##vector-ref _g245373_ 1))) - (_hd231292_ + (##vector-ref _g128047_ 1))) + (_hd118534_ (let () (declare (not safe)) - (##vector-ref _g245373_ 2)))) - (let* ((_expr231294_ - (let ((__tmp245377 - (let ((__tmp245378 - (let ((__tmp245379 + (##vector-ref _g128047_ 2)))) + (let* ((_expr118536_ + (let ((__tmp128051 + (let ((__tmp128052 + (let ((__tmp128053 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L231246_ '())))) + (cons _L118488_ '())))) (declare (not safe)) - (cons _hd231292_ __tmp245379)))) + (cons _hd118534_ __tmp128053)))) (declare (not safe)) - (cons '%#let-values __tmp245378)))) + (cons '%#let-values __tmp128052)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp245377 - _stx231152_))) - (_expr231296_ - (let ((__tmp245380 - (let ((__tmp245381 - (let ((__tmp245382 + __tmp128051 + _stx118394_))) + (_expr118538_ + (let ((__tmp128054 + (let ((__tmp128055 + (let ((__tmp128056 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr231294_ '())))) + (cons _expr118536_ '())))) (declare (not safe)) - (cons _lift2231291_ __tmp245382)))) + (cons _lift2118533_ __tmp128056)))) (declare (not safe)) - (cons '%#let-values __tmp245381)))) + (cons '%#let-values __tmp128055)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp245380 - _stx231152_))) - (_expr231298_ - (let ((__tmp245383 - (let ((__tmp245384 - (let ((__tmp245385 + __tmp128054 + _stx118394_))) + (_expr118540_ + (let ((__tmp128057 + (let ((__tmp128058 + (let ((__tmp128059 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr231296_ '())))) + (cons _expr118538_ '())))) (declare (not safe)) - (cons _lift1231290_ __tmp245385)))) + (cons _lift1118532_ __tmp128059)))) (declare (not safe)) - (cons '%#let-values __tmp245384)))) + (cons '%#let-values __tmp128058)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp245383 - _stx231152_)))) + __tmp128057 + _stx118394_)))) (let () (declare (not safe)) (gxc#lift-top-lambda-let-values% - _expr231298_)))))) - (let ((_g245360_ - (let ((__tmp245362 - (let ((__tmp245363 - (lambda (_g231300231303_ - _g231301231305_) + _expr118540_)))))) + (let ((_g128034_ + (let ((__tmp128036 + (let ((__tmp128037 + (lambda (_g118542118545_ + _g118543118547_) (let () (declare (not safe)) - (cons _g231300231303_ + (cons _g118542118545_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g231301231305_))))) + _g118543118547_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp245363 + (foldr1 __tmp128037 '() - _L231247_)))) + _L118489_)))) (declare (not safe)) - (_compile-bindings231155_ - __tmp245362)))) + (_compile-bindings118397_ + __tmp128036)))) (begin - (let ((_g245361_ + (let ((_g128035_ (let () (declare (not safe)) - (if (##values? _g245360_) - (##vector-length _g245360_) + (if (##values? _g128034_) + (##vector-length _g128034_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g245361_ 3))) + (##fx= _g128035_ 3))) (error "Context expects 3 values" - _g245361_))) - (let ((_lift1231308_ + _g128035_))) + (let ((_lift1118550_ (let () (declare (not safe)) - (##vector-ref _g245360_ 0))) - (_lift2231309_ + (##vector-ref _g128034_ 0))) + (_lift2118551_ (let () (declare (not safe)) - (##vector-ref _g245360_ 1))) - (_hd231310_ + (##vector-ref _g128034_ 1))) + (_hd118552_ (let () (declare (not safe)) - (##vector-ref _g245360_ 2)))) - (let* ((_body231312_ + (##vector-ref _g128034_ 2)))) + (let* ((_body118554_ (let () (declare (not safe)) (gxc#compile-e__0 - _L231246_))) - (_expr231314_ - (let ((__tmp245364 - (let ((__tmp245365 - (let ((__tmp245366 + _L118488_))) + (_expr118556_ + (let ((__tmp128038 + (let ((__tmp128039 + (let ((__tmp128040 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _body231312_ '())))) + (cons _body118554_ '())))) (declare (not safe)) - (cons _hd231310_ __tmp245366)))) + (cons _hd118552_ __tmp128040)))) (declare (not safe)) - (cons '%#let-values __tmp245365)))) + (cons '%#let-values __tmp128039)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp245364 - _stx231152_))) - (_expr231316_ + __tmp128038 + _stx118394_))) + (_expr118558_ (if (let () (declare (not safe)) - (null? _lift2231309_)) - _expr231314_ - (let ((__tmp245367 - (let ((__tmp245368 + (null? _lift2118551_)) + _expr118556_ + (let ((__tmp128041 + (let ((__tmp128042 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp245369 + (let ((__tmp128043 (let () (declare (not safe)) - (cons _expr231314_ '())))) + (cons _expr118556_ '())))) (declare (not safe)) - (cons _lift2231309_ __tmp245369)))) + (cons _lift2118551_ __tmp128043)))) (declare (not safe)) - (cons '%#let-values __tmp245368)))) + (cons '%#let-values __tmp128042)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp245367 _stx231152_)))) + (gxc#xform-wrap-source __tmp128041 _stx118394_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_expr231318_ + (_expr118560_ (if (let () (declare (not safe)) - (null? _lift1231308_)) - _expr231316_ - (let ((__tmp245370 - (let ((__tmp245371 + (null? _lift1118550_)) + _expr118558_ + (let ((__tmp128044 + (let ((__tmp128045 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp245372 + (let ((__tmp128046 (let () (declare (not safe)) - (cons _expr231316_ '())))) + (cons _expr118558_ '())))) (declare (not safe)) - (cons _lift1231308_ __tmp245372)))) + (cons _lift1118550_ __tmp128046)))) (declare (not safe)) - (cons '%#let-values __tmp245371)))) + (cons '%#let-values __tmp128045)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp245370 _stx231152_))))) + (gxc#xform-wrap-source __tmp128044 _stx118394_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _expr231318_))))))) - (__tmp245358 - (let ((__obj245062 + _expr118560_))))))) + (__tmp128032 + (let ((__obj127736 (let () (declare (not safe)) (##structure @@ -14054,314 +14043,314 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj245062) - __obj245062))) + (gx#local-context:::init! __obj127736) + __obj127736))) (declare (not safe)) (call-with-parameters - __tmp245359 + __tmp128033 gx#current-expander-context - __tmp245358)))) - (___kont244862244863_ + __tmp128032)))) + (___kont127536127537_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _stx231152_))))) - (let ((___match244883244884_ - (lambda (_e231166231198_ - _hd231165231201_ - _tl231164231203_ - _e231169231206_ - _hd231168231209_ - _tl231167231211_ - ___splice244860244861_ - _target231170231214_ - _tl231172231216_) - (letrec ((_loop231173231219_ - (lambda (_hd231171231222_ _bind231177231224_) + (gxc#xform-let-values% _stx118394_))))) + (let ((___match127557127558_ + (lambda (_e118408118440_ + _hd118407118443_ + _tl118406118445_ + _e118411118448_ + _hd118410118451_ + _tl118409118453_ + ___splice127534127535_ + _target118412118456_ + _tl118414118458_) + (letrec ((_loop118415118461_ + (lambda (_hd118413118464_ _bind118419118466_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231171231222_)) - (let ((_e231174231227_ + (gx#stx-pair? _hd118413118464_)) + (let ((_e118416118469_ (let () (declare (not safe)) - (gx#stx-e _hd231171231222_)))) - (let ((_lp-tl231176231232_ + (gx#stx-e _hd118413118464_)))) + (let ((_lp-tl118418118474_ (let () (declare (not safe)) - (##cdr _e231174231227_))) - (_lp-hd231175231230_ + (##cdr _e118416118469_))) + (_lp-hd118417118472_ (let () (declare (not safe)) - (##car _e231174231227_)))) - (let ((__tmp245390 + (##car _e118416118469_)))) + (let ((__tmp128064 (let () (declare (not safe)) - (cons _lp-hd231175231230_ - _bind231177231224_)))) + (cons _lp-hd118417118472_ + _bind118419118466_)))) (declare (not safe)) - (_loop231173231219_ - _lp-tl231176231232_ - __tmp245390)))) - (let ((_bind231178231235_ - (reverse _bind231177231224_))) + (_loop118415118461_ + _lp-tl118418118474_ + __tmp128064)))) + (let ((_bind118420118477_ + (reverse _bind118419118466_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231167231211_)) - (let ((_e231181231238_ + (gx#stx-pair? _tl118409118453_)) + (let ((_e118423118480_ (let () (declare (not safe)) (gx#stx-e - _tl231167231211_)))) - (let ((_tl231179231243_ + _tl118409118453_)))) + (let ((_tl118421118485_ (let () (declare (not safe)) - (##cdr _e231181231238_))) - (_hd231180231241_ + (##cdr _e118423118480_))) + (_hd118422118483_ (let () (declare (not safe)) - (##car _e231181231238_)))) + (##car _e118423118480_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl231179231243_)) - (let ((_L231246_ - _hd231180231241_) - (_L231247_ - _bind231178231235_)) - (if (let ((__tmp245388 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp245389 - (lambda (_g231267231270_ _g231268231272_) + _tl118421118485_)) + (let ((_L118488_ + _hd118422118483_) + (_L118489_ + _bind118420118477_)) + (if (let ((__tmp128062 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp128063 + (lambda (_g118509118512_ _g118510118514_) (let () (declare (not safe)) - (cons _g231267231270_ _g231268231272_))))) + (cons _g118509118512_ _g118510118514_))))) (declare (not safe)) - (foldr1 __tmp245389 '() _L231247_)))) + (foldr1 __tmp128063 '() _L118489_)))) (declare (not safe)) - (ormap1 gxc#lift-top-lambda-binding? __tmp245388)) - (___kont244858244859_ _L231246_ _L231247_) - (___kont244862244863_))) + (ormap1 gxc#lift-top-lambda-binding? __tmp128062)) + (___kont127532127533_ _L118488_ _L118489_) + (___kont127536127537_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont244862244863_)))) - (___kont244862244863_))))))) + (___kont127536127537_)))) + (___kont127536127537_))))))) (let () (declare (not safe)) - (_loop231173231219_ _target231170231214_ '())))))) + (_loop118415118461_ _target118412118456_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx244856244857_)) - (let ((_e231166231198_ + (gx#stx-pair? ___stx127530127531_)) + (let ((_e118408118440_ (let () (declare (not safe)) - (gx#stx-e ___stx244856244857_)))) - (let ((_tl231164231203_ + (gx#stx-e ___stx127530127531_)))) + (let ((_tl118406118445_ (let () (declare (not safe)) - (##cdr _e231166231198_))) - (_hd231165231201_ + (##cdr _e118408118440_))) + (_hd118407118443_ (let () (declare (not safe)) - (##car _e231166231198_)))) + (##car _e118408118440_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231164231203_)) - (let ((_e231169231206_ + (gx#stx-pair? _tl118406118445_)) + (let ((_e118411118448_ (let () (declare (not safe)) - (gx#stx-e _tl231164231203_)))) - (let ((_tl231167231211_ + (gx#stx-e _tl118406118445_)))) + (let ((_tl118409118453_ (let () (declare (not safe)) - (##cdr _e231169231206_))) - (_hd231168231209_ + (##cdr _e118411118448_))) + (_hd118410118451_ (let () (declare (not safe)) - (##car _e231169231206_)))) + (##car _e118411118448_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd231168231209_)) - (let ((___splice244860244861_ + (gx#stx-pair/null? _hd118410118451_)) + (let ((___splice127534127535_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd231168231209_ + _hd118410118451_ '0)))) - (let ((_tl231172231216_ + (let ((_tl118414118458_ (let () (declare (not safe)) (##vector-ref - ___splice244860244861_ + ___splice127534127535_ '1))) - (_target231170231214_ + (_target118412118456_ (let () (declare (not safe)) (##vector-ref - ___splice244860244861_ + ___splice127534127535_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231172231216_)) - (___match244883244884_ - _e231166231198_ - _hd231165231201_ - _tl231164231203_ - _e231169231206_ - _hd231168231209_ - _tl231167231211_ - ___splice244860244861_ - _target231170231214_ - _tl231172231216_) - (___kont244862244863_)))) - (___kont244862244863_)))) - (___kont244862244863_)))) - (___kont244862244863_)))))))) + (gx#stx-null? _tl118414118458_)) + (___match127557127558_ + _e118408118440_ + _hd118407118443_ + _tl118406118445_ + _e118411118448_ + _hd118410118451_ + _tl118409118453_ + ___splice127534127535_ + _target118412118456_ + _tl118414118458_) + (___kont127536127537_)))) + (___kont127536127537_)))) + (___kont127536127537_)))) + (___kont127536127537_)))))))) (define gxc#lift-top-lambda-letrec-values% - (lambda (_stx230296_) - (letrec* ((_bind-e__242979242980_ - (lambda (_id231136_ _expr231137_ _compile?231138_) - (let ((__tmp245393 + (lambda (_stx117538_) + (letrec* ((_bind-e__125653125654_ + (lambda (_id118378_ _expr118379_ _compile?118380_) + (let ((__tmp128067 (let () (declare (not safe)) - (cons _id231136_ '()))) - (__tmp245391 - (let ((__tmp245392 - (if _compile?231138_ + (cons _id118378_ '()))) + (__tmp128065 + (let ((__tmp128066 + (if _compile?118380_ (let () (declare (not safe)) - (gxc#compile-e__0 _expr231137_)) - _expr231137_))) + (gxc#compile-e__0 _expr118379_)) + _expr118379_))) (declare (not safe)) - (cons __tmp245392 '())))) + (cons __tmp128066 '())))) (declare (not safe)) - (cons __tmp245393 __tmp245391)))) - (_bind-e__0__242981242982_ - (lambda (_id231143_ _expr231144_) - (let ((_compile?231146_ '#t)) + (cons __tmp128067 __tmp128065)))) + (_bind-e__0__125655125656_ + (lambda (_id118385_ _expr118386_) + (let ((_compile?118388_ '#t)) (declare (not safe)) - (_bind-e__242979242980_ - _id231143_ - _expr231144_ - _compile?231146_)))) - (_bind-e230298_ - (lambda _g245395_ - (let ((_g245394_ + (_bind-e__125653125654_ + _id118385_ + _expr118386_ + _compile?118388_)))) + (_bind-e117540_ + (lambda _g128069_ + (let ((_g128068_ (let () (declare (not safe)) - (##length _g245395_)))) - (cond ((let () (declare (not safe)) (##fx= _g245394_ 2)) - (apply (lambda (_id231143_ _expr231144_) + (##length _g128069_)))) + (cond ((let () (declare (not safe)) (##fx= _g128068_ 2)) + (apply (lambda (_id118385_ _expr118386_) (let () (declare (not safe)) - (_bind-e__0__242981242982_ - _id231143_ - _expr231144_))) - _g245395_)) - ((let () (declare (not safe)) (##fx= _g245394_ 3)) - (apply (lambda (_id231148_ - _expr231149_ - _compile?231150_) + (_bind-e__0__125655125656_ + _id118385_ + _expr118386_))) + _g128069_)) + ((let () (declare (not safe)) (##fx= _g128068_ 3)) + (apply (lambda (_id118390_ + _expr118391_ + _compile?118392_) (let () (declare (not safe)) - (_bind-e__242979242980_ - _id231148_ - _expr231149_ - _compile?231150_))) - _g245395_)) + (_bind-e__125653125654_ + _id118390_ + _expr118391_ + _compile?118392_))) + _g128069_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g245395_)))))) - (_compile-bindings230299_ - (lambda (_rest230434_) - (let _lp230436_ ((_rest230438_ _rest230434_) - (_bind230439_ '())) - (let* ((_rest230440230448_ _rest230438_) - (_else230442230456_ - (lambda () (reverse _bind230439_))) - (_K230444231123_ - (lambda (_rest230459_ _hd230460_) - (let* ((___stx244906244907_ _hd230460_) - (_g230465230512_ + _g128069_)))))) + (_compile-bindings117541_ + (lambda (_rest117676_) + (let _lp117678_ ((_rest117680_ _rest117676_) + (_bind117681_ '())) + (let* ((_rest117682117690_ _rest117680_) + (_else117684117698_ + (lambda () (reverse _bind117681_))) + (_K117686118365_ + (lambda (_rest117701_ _hd117702_) + (let* ((___stx127580127581_ _hd117702_) + (_g117707117754_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx244906244907_))))) - (let ((___kont244908244909_ - (lambda (_L231030_ _L231031_) - (let* ((___stx244886244887_ - _L231030_) - (_g231046231060_ + ___stx127580127581_))))) + (let ((___kont127582127583_ + (lambda (_L118272_ _L118273_) + (let* ((___stx127560127561_ + _L118272_) + (_g118288118302_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx244886244887_))))) - (let ((___kont244888244889_ - (lambda (_L231108_) - (let ((__tmp245396 - (let ((__tmp245397 + ___stx127560127561_))))) + (let ((___kont127562127563_ + (lambda (_L118350_) + (let ((__tmp128070 + (let ((__tmp128071 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__242979242980_ - _L231031_ - _L231030_ + (_bind-e__125653125654_ + _L118273_ + _L118272_ '#f)))) (declare (not safe)) - (cons __tmp245397 _bind230439_)))) + (cons __tmp128071 _bind117681_)))) (declare (not safe)) - (_lp230436_ _rest230459_ __tmp245396)))) + (_lp117678_ _rest117701_ __tmp128070)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont244890244891_ - (lambda (_L231073_) - (let ((_g245398_ + (___kont127564127565_ + (lambda (_L118315_) + (let ((_g128072_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#lift-case-lambda-clauses__% - _stx230296_ - _L231031_ - _L231073_ + _stx117538_ + _L118273_ + _L118315_ '#t)))) (begin - (let ((_g245399_ + (let ((_g128073_ (let () (declare (not safe)) - (if (##values? _g245398_) - (##vector-length _g245398_) + (if (##values? _g128072_) + (##vector-length _g128072_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g245399_ 3))) - (error "Context expects 3 values" _g245399_))) - (let ((_ids231083_ + (##fx= _g128073_ 3))) + (error "Context expects 3 values" _g128073_))) + (let ((_ids118325_ (let () (declare (not safe)) - (##vector-ref _g245398_ 0))) - (_impls231084_ + (##vector-ref _g128072_ 0))) + (_impls118326_ (let () (declare (not safe)) - (##vector-ref _g245398_ 1))) - (_clauses231085_ + (##vector-ref _g128072_ 1))) + (_clauses118327_ (let () (declare (not safe)) - (##vector-ref _g245398_ 2)))) - (let* ((_g245400_ - (for-each gx#core-bind-runtime! _ids231083_)) - (_xbind231088_ - (map _bind-e230298_ _ids231083_ _impls231084_)) - (_expr*231090_ - (let ((__tmp245402 + (##vector-ref _g128072_ 2)))) + (let* ((_g128074_ + (for-each gx#core-bind-runtime! _ids118325_)) + (_xbind118330_ + (map _bind-e117540_ _ids118325_ _impls118326_)) + (_expr*118332_ + (let ((__tmp128076 (let () (declare (not safe)) - (cons '%#case-lambda _clauses231085_))) - (__tmp245401 + (cons '%#case-lambda _clauses118327_))) + (__tmp128075 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -14369,1134 +14358,1134 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp245402 - __tmp245401))) - (_bind*231092_ + __tmp128076 + __tmp128075))) + (_bind*118334_ (let () (declare (not safe)) - (_bind-e__242979242980_ - _L231031_ - _expr*231090_ + (_bind-e__125653125654_ + _L118273_ + _expr*118332_ '#f)))) - (let ((__tmp245404 + (let ((__tmp128078 (let () (declare (not safe)) - (gxc#identifier-symbol _L231031_))) - (__tmp245403 - (map gxc#identifier-symbol _ids231083_))) + (gxc#identifier-symbol _L118273_))) + (__tmp128077 + (map gxc#identifier-symbol _ids118325_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp245404 + __tmp128078 '" => " - __tmp245403)) - (let ((__tmp245405 - (let ((__tmp245406 + __tmp128077)) + (let ((__tmp128079 + (let ((__tmp128080 (let () (declare (not safe)) (foldl1 cons - _bind230439_ - _xbind231088_)))) + _bind117681_ + _xbind118330_)))) (declare (not safe)) - (cons _bind*231092_ __tmp245406)))) + (cons _bind*118334_ __tmp128080)))) (declare (not safe)) - (_lp230436_ _rest230459_ __tmp245405))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match244897244898_ - (lambda (_e231051231100_ - _hd231050231103_ - _tl231049231105_) - (let ((_L231108_ - _tl231049231105_)) + (_lp117678_ _rest117701_ __tmp128079))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((___match127571127572_ + (lambda (_e118293118342_ + _hd118292118345_ + _tl118291118347_) + (let ((_L118350_ + _tl118291118347_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (andmap1 gxc#dispatch-lambda-form? _L231108_)) - (___kont244888244889_ _L231108_) - (___kont244890244891_ _tl231049231105_)))))) + (andmap1 gxc#dispatch-lambda-form? _L118350_)) + (___kont127562127563_ _L118350_) + (___kont127564127565_ _tl118291118347_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx244886244887_)) - (let ((_e231051231100_ + ___stx127560127561_)) + (let ((_e118293118342_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx244886244887_)))) - (let ((_tl231049231105_ - (let () (declare (not safe)) (##cdr _e231051231100_))) - (_hd231050231103_ - (let () (declare (not safe)) (##car _e231051231100_)))) - (___match244897244898_ - _e231051231100_ - _hd231050231103_ - _tl231049231105_))) - (let () (declare (not safe)) (_g231046231060_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont244910244911_ - (lambda (_L230858_ _L230859_) - (let* ((_g230873230903_ - (lambda (_g230874230900_) + (gx#stx-e ___stx127560127561_)))) + (let ((_tl118291118347_ + (let () (declare (not safe)) (##cdr _e118293118342_))) + (_hd118292118345_ + (let () (declare (not safe)) (##car _e118293118342_)))) + (___match127571127572_ + _e118293118342_ + _hd118292118345_ + _tl118291118347_))) + (let () (declare (not safe)) (_g118288118302_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont127584127585_ + (lambda (_L118100_ _L118101_) + (let* ((_g118115118145_ + (lambda (_g118116118142_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g230874230900_)))) - (_g230872230998_ - (lambda (_g230874230906_) + _g118116118142_)))) + (_g118114118240_ + (lambda (_g118116118148_) (if (let () (declare (not safe)) (gx#stx-pair? - _g230874230906_)) - (let ((_e230880230908_ + _g118116118148_)) + (let ((_e118122118150_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g230874230906_)))) - (let ((_hd230879230911_ + (gx#stx-e _g118116118148_)))) + (let ((_hd118121118153_ (let () (declare (not safe)) - (##car _e230880230908_))) - (_tl230878230913_ + (##car _e118122118150_))) + (_tl118120118155_ (let () (declare (not safe)) - (##cdr _e230880230908_)))) + (##cdr _e118122118150_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230878230913_)) - (let ((_e230883230916_ + (gx#stx-pair? _tl118120118155_)) + (let ((_e118125118158_ (let () (declare (not safe)) - (gx#stx-e _tl230878230913_)))) - (let ((_hd230882230919_ + (gx#stx-e _tl118120118155_)))) + (let ((_hd118124118161_ (let () (declare (not safe)) - (##car _e230883230916_))) - (_tl230881230921_ + (##car _e118125118158_))) + (_tl118123118163_ (let () (declare (not safe)) - (##cdr _e230883230916_)))) + (##cdr _e118125118158_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230882230919_)) - (let ((_e230886230924_ + (gx#stx-pair? _hd118124118161_)) + (let ((_e118128118166_ (let () (declare (not safe)) - (gx#stx-e _hd230882230919_)))) - (let ((_hd230885230927_ + (gx#stx-e _hd118124118161_)))) + (let ((_hd118127118169_ (let () (declare (not safe)) - (##car _e230886230924_))) - (_tl230884230929_ + (##car _e118128118166_))) + (_tl118126118171_ (let () (declare (not safe)) - (##cdr _e230886230924_)))) + (##cdr _e118128118166_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230885230927_)) - (let ((_e230889230932_ + (gx#stx-pair? _hd118127118169_)) + (let ((_e118131118174_ (let () (declare (not safe)) (gx#stx-e - _hd230885230927_)))) - (let ((_hd230888230935_ + _hd118127118169_)))) + (let ((_hd118130118177_ (let () (declare (not safe)) - (##car _e230889230932_))) - (_tl230887230937_ + (##car _e118131118174_))) + (_tl118129118179_ (let () (declare (not safe)) - (##cdr _e230889230932_)))) + (##cdr _e118131118174_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd230888230935_)) - (let ((_e230892230940_ + _hd118130118177_)) + (let ((_e118134118182_ (let () (declare (not safe)) (gx#stx-e - _hd230888230935_)))) - (let ((_hd230891230943_ + _hd118130118177_)))) + (let ((_hd118133118185_ (let () (declare (not safe)) - (##car _e230892230940_))) - (_tl230890230945_ + (##car _e118134118182_))) + (_tl118132118187_ (let () (declare (not safe)) - (##cdr _e230892230940_)))) + (##cdr _e118134118182_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl230890230945_)) + _tl118132118187_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl230887230937_)) - (let ((_e230895230948_ + (gx#stx-pair? _tl118129118179_)) + (let ((_e118137118190_ (let () (declare (not safe)) - (gx#stx-e _tl230887230937_)))) - (let ((_hd230894230951_ + (gx#stx-e _tl118129118179_)))) + (let ((_hd118136118193_ (let () (declare (not safe)) - (##car _e230895230948_))) - (_tl230893230953_ + (##car _e118137118190_))) + (_tl118135118195_ (let () (declare (not safe)) - (##cdr _e230895230948_)))) + (##cdr _e118137118190_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230893230953_)) + (gx#stx-null? _tl118135118195_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl230884230929_)) + (gx#stx-null? _tl118126118171_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230881230921_)) - (let ((_e230898230956_ + (gx#stx-pair? _tl118123118163_)) + (let ((_e118140118198_ (let () (declare (not safe)) - (gx#stx-e _tl230881230921_)))) - (let ((_hd230897230959_ + (gx#stx-e _tl118123118163_)))) + (let ((_hd118139118201_ (let () (declare (not safe)) - (##car _e230898230956_))) - (_tl230896230961_ + (##car _e118140118198_))) + (_tl118138118203_ (let () (declare (not safe)) - (##cdr _e230898230956_)))) + (##cdr _e118140118198_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl230896230961_)) - ((lambda (_L230964_ - _L230965_ - _L230966_) - (let* ((_lambda-id230990_ - (let ((__tmp245408 + _tl118138118203_)) + ((lambda (_L118206_ + _L118207_ + _L118208_) + (let* ((_lambda-id118232_ + (let ((__tmp128082 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L230859_))) - (__tmp245407 (gensym '__))) + (gx#stx-e _L118101_))) + (__tmp128081 (gensym '__))) (declare (not safe)) - (make-symbol__1 __tmp245408 __tmp245407))) - (_lambda-id230992_ - (let ((__tmp245409 + (make-symbol__1 __tmp128082 __tmp128081))) + (_lambda-id118234_ + (let ((__tmp128083 (let () (declare (not safe)) - (gx#stx-source _stx230296_)))) + (gx#stx-source _stx117538_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _lambda-id230990_ __tmp245409))) - (_g245410_ + (gx#core-quote-syntax__1 _lambda-id118232_ __tmp128083))) + (_g128084_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lambda-id230992_))) - (_new-case-lambda-expr230995_ + (gx#core-bind-runtime!__0 _lambda-id118234_))) + (_new-case-lambda-expr118237_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L230964_ - _L230966_ - _lambda-id230992_)))) + _L118206_ + _L118208_ + _lambda-id118234_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp245412 + (let ((__tmp128086 (let () (declare (not safe)) (gxc#identifier-symbol - _L230859_))) - (__tmp245411 + _L118101_))) + (__tmp128085 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id230992_)))) + _lambda-id118234_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp245412 + __tmp128086 '" => " - __tmp245411)) - (let ((__tmp245415 - (let ((__tmp245416 + __tmp128085)) + (let ((__tmp128089 + (let ((__tmp128090 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__242979242980_ - _L230859_ - _new-case-lambda-expr230995_ + (_bind-e__125653125654_ + _L118101_ + _new-case-lambda-expr118237_ '#f)))) (declare (not safe)) - (cons __tmp245416 _rest230459_))) - (__tmp245413 - (let ((__tmp245414 + (cons __tmp128090 _rest117701_))) + (__tmp128087 + (let ((__tmp128088 (let () (declare (not safe)) - (_bind-e__0__242981242982_ - _lambda-id230992_ - _L230965_)))) + (_bind-e__0__125655125656_ + _lambda-id118234_ + _L118207_)))) (declare (not safe)) - (cons __tmp245414 _bind230439_)))) + (cons __tmp128088 _bind117681_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp230436_ - __tmp245415 - __tmp245413)))) - _hd230897230959_ - _hd230894230951_ - _hd230891230943_) + (_lp117678_ + __tmp128089 + __tmp128087)))) + _hd118139118201_ + _hd118136118193_ + _hd118133118185_) (let () (declare (not safe)) - (_g230873230903_ - _g230874230906_))))) + (_g118115118145_ + _g118116118148_))))) (let () (declare (not safe)) - (_g230873230903_ _g230874230906_))) + (_g118115118145_ _g118116118148_))) (let () (declare (not safe)) - (_g230873230903_ _g230874230906_))) + (_g118115118145_ _g118116118148_))) (let () (declare (not safe)) - (_g230873230903_ _g230874230906_))))) + (_g118115118145_ _g118116118148_))))) (let () (declare (not safe)) - (_g230873230903_ _g230874230906_))) + (_g118115118145_ _g118116118148_))) (let () (declare (not safe)) - (_g230873230903_ _g230874230906_))))) + (_g118115118145_ _g118116118148_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g230873230903_ - _g230874230906_))))) + (_g118115118145_ + _g118116118148_))))) (let () (declare (not safe)) - (_g230873230903_ - _g230874230906_))))) + (_g118115118145_ + _g118116118148_))))) (let () (declare (not safe)) - (_g230873230903_ _g230874230906_))))) + (_g118115118145_ _g118116118148_))))) (let () (declare (not safe)) - (_g230873230903_ _g230874230906_))))) + (_g118115118145_ _g118116118148_))))) (let () (declare (not safe)) - (_g230873230903_ _g230874230906_)))))) + (_g118115118145_ _g118116118148_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g230872230998_ _L230858_)))) - (___kont244912244913_ - (lambda (_L230582_ _L230583_) - (let* ((_g230597230650_ - (lambda (_g230598230647_) + (_g118114118240_ _L118100_)))) + (___kont127586127587_ + (lambda (_L117824_ _L117825_) + (let* ((_g117839117892_ + (lambda (_g117840117889_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g230598230647_)))) - (_g230596230826_ - (lambda (_g230598230653_) + _g117840117889_)))) + (_g117838118068_ + (lambda (_g117840117895_) (if (let () (declare (not safe)) (gx#stx-pair? - _g230598230653_)) - (let ((_e230606230655_ + _g117840117895_)) + (let ((_e117848117897_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g230598230653_)))) - (let ((_hd230605230658_ + (gx#stx-e _g117840117895_)))) + (let ((_hd117847117900_ (let () (declare (not safe)) - (##car _e230606230655_))) - (_tl230604230660_ + (##car _e117848117897_))) + (_tl117846117902_ (let () (declare (not safe)) - (##cdr _e230606230655_)))) + (##cdr _e117848117897_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230604230660_)) - (let ((_e230609230663_ + (gx#stx-pair? _tl117846117902_)) + (let ((_e117851117905_ (let () (declare (not safe)) - (gx#stx-e _tl230604230660_)))) - (let ((_hd230608230666_ + (gx#stx-e _tl117846117902_)))) + (let ((_hd117850117908_ (let () (declare (not safe)) - (##car _e230609230663_))) - (_tl230607230668_ + (##car _e117851117905_))) + (_tl117849117910_ (let () (declare (not safe)) - (##cdr _e230609230663_)))) + (##cdr _e117851117905_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230608230666_)) - (let ((_e230612230671_ + (gx#stx-pair? _hd117850117908_)) + (let ((_e117854117913_ (let () (declare (not safe)) - (gx#stx-e _hd230608230666_)))) - (let ((_hd230611230674_ + (gx#stx-e _hd117850117908_)))) + (let ((_hd117853117916_ (let () (declare (not safe)) - (##car _e230612230671_))) - (_tl230610230676_ + (##car _e117854117913_))) + (_tl117852117918_ (let () (declare (not safe)) - (##cdr _e230612230671_)))) + (##cdr _e117854117913_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230611230674_)) - (let ((_e230615230679_ + (gx#stx-pair? _hd117853117916_)) + (let ((_e117857117921_ (let () (declare (not safe)) (gx#stx-e - _hd230611230674_)))) - (let ((_hd230614230682_ + _hd117853117916_)))) + (let ((_hd117856117924_ (let () (declare (not safe)) - (##car _e230615230679_))) - (_tl230613230684_ + (##car _e117857117921_))) + (_tl117855117926_ (let () (declare (not safe)) - (##cdr _e230615230679_)))) + (##cdr _e117857117921_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd230614230682_)) - (let ((_e230618230687_ + _hd117856117924_)) + (let ((_e117860117929_ (let () (declare (not safe)) (gx#stx-e - _hd230614230682_)))) - (let ((_hd230617230690_ + _hd117856117924_)))) + (let ((_hd117859117932_ (let () (declare (not safe)) - (##car _e230618230687_))) - (_tl230616230692_ + (##car _e117860117929_))) + (_tl117858117934_ (let () (declare (not safe)) - (##cdr _e230618230687_)))) + (##cdr _e117860117929_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl230616230692_)) + _tl117858117934_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl230613230684_)) - (let ((_e230621230695_ + (gx#stx-pair? _tl117855117926_)) + (let ((_e117863117937_ (let () (declare (not safe)) - (gx#stx-e _tl230613230684_)))) - (let ((_hd230620230698_ + (gx#stx-e _tl117855117926_)))) + (let ((_hd117862117940_ (let () (declare (not safe)) - (##car _e230621230695_))) - (_tl230619230700_ + (##car _e117863117937_))) + (_tl117861117942_ (let () (declare (not safe)) - (##cdr _e230621230695_)))) + (##cdr _e117863117937_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230620230698_)) - (let ((_e230624230703_ + (gx#stx-pair? _hd117862117940_)) + (let ((_e117866117945_ (let () (declare (not safe)) - (gx#stx-e _hd230620230698_)))) - (let ((_hd230623230706_ + (gx#stx-e _hd117862117940_)))) + (let ((_hd117865117948_ (let () (declare (not safe)) - (##car _e230624230703_))) - (_tl230622230708_ + (##car _e117866117945_))) + (_tl117864117950_ (let () (declare (not safe)) - (##cdr _e230624230703_)))) + (##cdr _e117866117945_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230622230708_)) - (let ((_e230627230711_ + (gx#stx-pair? _tl117864117950_)) + (let ((_e117869117953_ (let () (declare (not safe)) - (gx#stx-e _tl230622230708_)))) - (let ((_hd230626230714_ + (gx#stx-e _tl117864117950_)))) + (let ((_hd117868117956_ (let () (declare (not safe)) - (##car _e230627230711_))) - (_tl230625230716_ + (##car _e117869117953_))) + (_tl117867117958_ (let () (declare (not safe)) - (##cdr _e230627230711_)))) + (##cdr _e117869117953_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd230626230714_)) - (let ((_e230630230719_ + _hd117868117956_)) + (let ((_e117872117961_ (let () (declare (not safe)) (gx#stx-e - _hd230626230714_)))) - (let ((_hd230629230722_ + _hd117868117956_)))) + (let ((_hd117871117964_ (let () (declare (not safe)) - (##car _e230630230719_))) - (_tl230628230724_ + (##car _e117872117961_))) + (_tl117870117966_ (let () (declare (not safe)) - (##cdr _e230630230719_)))) + (##cdr _e117872117961_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd230629230722_)) - (let ((_e230633230727_ + _hd117871117964_)) + (let ((_e117875117969_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd230629230722_)))) - (let ((_hd230632230730_ - (let () (declare (not safe)) (##car _e230633230727_))) - (_tl230631230732_ - (let () (declare (not safe)) (##cdr _e230633230727_)))) + (gx#stx-e _hd117871117964_)))) + (let ((_hd117874117972_ + (let () (declare (not safe)) (##car _e117875117969_))) + (_tl117873117974_ + (let () (declare (not safe)) (##cdr _e117875117969_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230632230730_)) - (let ((_e230636230735_ + (gx#stx-pair? _hd117874117972_)) + (let ((_e117878117977_ (let () (declare (not safe)) - (gx#stx-e _hd230632230730_)))) - (let ((_hd230635230738_ + (gx#stx-e _hd117874117972_)))) + (let ((_hd117877117980_ (let () (declare (not safe)) - (##car _e230636230735_))) - (_tl230634230740_ + (##car _e117878117977_))) + (_tl117876117982_ (let () (declare (not safe)) - (##cdr _e230636230735_)))) + (##cdr _e117878117977_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230634230740_)) + (gx#stx-null? _tl117876117982_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230631230732_)) - (let ((_e230639230743_ + (gx#stx-pair? _tl117873117974_)) + (let ((_e117881117985_ (let () (declare (not safe)) - (gx#stx-e _tl230631230732_)))) - (let ((_hd230638230746_ + (gx#stx-e _tl117873117974_)))) + (let ((_hd117880117988_ (let () (declare (not safe)) - (##car _e230639230743_))) - (_tl230637230748_ + (##car _e117881117985_))) + (_tl117879117990_ (let () (declare (not safe)) - (##cdr _e230639230743_)))) + (##cdr _e117881117985_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230637230748_)) + (gx#stx-null? _tl117879117990_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl230628230724_)) + _tl117870117966_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl230625230716_)) - (let ((_e230642230751_ + _tl117867117958_)) + (let ((_e117884117993_ (let () (declare (not safe)) (gx#stx-e - _tl230625230716_)))) - (let ((_hd230641230754_ + _tl117867117958_)))) + (let ((_hd117883117996_ (let () (declare (not safe)) - (##car _e230642230751_))) - (_tl230640230756_ + (##car _e117884117993_))) + (_tl117882117998_ (let () (declare (not safe)) - (##cdr _e230642230751_)))) + (##cdr _e117884117993_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl230640230756_)) + _tl117882117998_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl230619230700_)) + (gx#stx-null? _tl117861117942_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl230610230676_)) + (gx#stx-null? _tl117852117918_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230607230668_)) - (let ((_e230645230759_ + (gx#stx-pair? _tl117849117910_)) + (let ((_e117887118001_ (let () (declare (not safe)) - (gx#stx-e _tl230607230668_)))) - (let ((_hd230644230762_ + (gx#stx-e _tl117849117910_)))) + (let ((_hd117886118004_ (let () (declare (not safe)) - (##car _e230645230759_))) - (_tl230643230764_ + (##car _e117887118001_))) + (_tl117885118006_ (let () (declare (not safe)) - (##cdr _e230645230759_)))) + (##cdr _e117887118001_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230643230764_)) - ((lambda (_L230767_ - _L230768_ - _L230769_ - _L230770_ - _L230771_) - (let* ((_get-kws-id230811_ - (let ((__tmp245418 + (gx#stx-null? _tl117885118006_)) + ((lambda (_L118009_ + _L118010_ + _L118011_ + _L118012_ + _L118013_) + (let* ((_get-kws-id118053_ + (let ((__tmp128092 (let () (declare (not safe)) (gx#stx-e - _L230583_))) - (__tmp245417 + _L117825_))) + (__tmp128091 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp245418 - __tmp245417))) - (_get-kws-id230813_ - (let ((__tmp245419 + __tmp128092 + __tmp128091))) + (_get-kws-id118055_ + (let ((__tmp128093 (let () (declare (not safe)) (gx#stx-source - _stx230296_)))) + _stx117538_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id230811_ - __tmp245419))) - (_main-id230815_ - (let ((__tmp245421 + _get-kws-id118053_ + __tmp128093))) + (_main-id118057_ + (let ((__tmp128095 (let () (declare (not safe)) (gx#stx-e - _L230583_))) - (__tmp245420 + _L117825_))) + (__tmp128094 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp245421 - __tmp245420))) - (_main-id230817_ - (let ((__tmp245422 + __tmp128095 + __tmp128094))) + (_main-id118059_ + (let ((__tmp128096 (let () (declare (not safe)) (gx#stx-source - _stx230296_)))) + _stx117538_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id230815_ - __tmp245422))) - (_g245423_ + _main-id118057_ + __tmp128096))) + (_g128097_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _get-kws-id230813_))) - (_g245424_ + _get-kws-id118055_))) + (_g128098_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _main-id230817_))) - (_new-kw-dispatch230821_ + _main-id118059_))) + (_new-kw-dispatch118063_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L230767_ - _L230771_ - _get-kws-id230813_))) - (_new-get-kws230823_ + _L118009_ + _L118013_ + _get-kws-id118055_))) + (_new-get-kws118065_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L230768_ - _L230770_ - _main-id230817_)))) - (let ((__tmp245427 + _L118010_ + _L118012_ + _main-id118059_)))) + (let ((__tmp128101 (let () (declare (not safe)) (gxc#identifier-symbol - _L230583_))) - (__tmp245426 + _L117825_))) + (__tmp128100 (let () (declare (not safe)) (gxc#identifier-symbol - _get-kws-id230813_))) - (__tmp245425 + _get-kws-id118055_))) + (__tmp128099 (let () (declare (not safe)) (gxc#identifier-symbol - _main-id230817_)))) + _main-id118059_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp245427 + __tmp128101 '" => " - __tmp245426 + __tmp128100 '" => " - __tmp245425)) - (let ((__tmp245428 - (let ((__tmp245433 + __tmp128099)) + (let ((__tmp128102 + (let ((__tmp128107 (let () (declare (not safe)) - (_bind-e__242979242980_ - _main-id230817_ - _L230769_ + (_bind-e__125653125654_ + _main-id118059_ + _L118011_ '#f))) - (__tmp245429 - (let ((__tmp245432 + (__tmp128103 + (let ((__tmp128106 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_bind-e__242979242980_ - _get-kws-id230813_ - _new-get-kws230823_ + (_bind-e__125653125654_ + _get-kws-id118055_ + _new-get-kws118065_ '#f))) - (__tmp245430 - (let ((__tmp245431 + (__tmp128104 + (let ((__tmp128105 (let () (declare (not safe)) - (_bind-e__242979242980_ - _L230583_ - _new-kw-dispatch230821_ + (_bind-e__125653125654_ + _L117825_ + _new-kw-dispatch118063_ '#f)))) (declare (not safe)) - (cons __tmp245431 _rest230459_)))) + (cons __tmp128105 _rest117701_)))) (declare (not safe)) - (cons __tmp245432 __tmp245430)))) + (cons __tmp128106 __tmp128104)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp245433 - __tmp245429)))) + (cons __tmp128107 + __tmp128103)))) (declare (not safe)) - (_lp230436_ - __tmp245428 - _bind230439_)))) - _hd230644230762_ - _hd230641230754_ - _hd230638230746_ - _hd230635230738_ - _hd230617230690_) + (_lp117678_ + __tmp128102 + _bind117681_)))) + _hd117886118004_ + _hd117883117996_ + _hd117880117988_ + _hd117877117980_ + _hd117859117932_) (let () (declare (not safe)) - (_g230597230650_ _g230598230653_))))) + (_g117839117892_ _g117840117895_))))) (let () (declare (not safe)) - (_g230597230650_ _g230598230653_))) + (_g117839117892_ _g117840117895_))) (let () (declare (not safe)) - (_g230597230650_ _g230598230653_))) + (_g117839117892_ _g117840117895_))) (let () (declare (not safe)) - (_g230597230650_ _g230598230653_))) + (_g117839117892_ _g117840117895_))) (let () (declare (not safe)) - (_g230597230650_ _g230598230653_))))) + (_g117839117892_ _g117840117895_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g230597230650_ - _g230598230653_))) + (_g117839117892_ + _g117840117895_))) (let () (declare (not safe)) - (_g230597230650_ - _g230598230653_))) + (_g117839117892_ + _g117840117895_))) (let () (declare (not safe)) - (_g230597230650_ - _g230598230653_))))) + (_g117839117892_ + _g117840117895_))))) (let () (declare (not safe)) - (_g230597230650_ _g230598230653_))) + (_g117839117892_ _g117840117895_))) (let () (declare (not safe)) - (_g230597230650_ _g230598230653_))))) + (_g117839117892_ _g117840117895_))))) (let () (declare (not safe)) - (_g230597230650_ _g230598230653_))))) + (_g117839117892_ _g117840117895_))))) (let () (declare (not safe)) - (_g230597230650_ _g230598230653_))))) + (_g117839117892_ _g117840117895_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g230597230650_ - _g230598230653_))))) + (_g117839117892_ + _g117840117895_))))) (let () (declare (not safe)) - (_g230597230650_ _g230598230653_))))) + (_g117839117892_ _g117840117895_))))) (let () (declare (not safe)) - (_g230597230650_ _g230598230653_))))) + (_g117839117892_ _g117840117895_))))) (let () (declare (not safe)) - (_g230597230650_ _g230598230653_))) + (_g117839117892_ _g117840117895_))) (let () (declare (not safe)) - (_g230597230650_ _g230598230653_))))) + (_g117839117892_ _g117840117895_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g230597230650_ - _g230598230653_))))) + (_g117839117892_ + _g117840117895_))))) (let () (declare (not safe)) - (_g230597230650_ - _g230598230653_))))) + (_g117839117892_ + _g117840117895_))))) (let () (declare (not safe)) - (_g230597230650_ _g230598230653_))))) + (_g117839117892_ _g117840117895_))))) (let () (declare (not safe)) - (_g230597230650_ _g230598230653_))))) + (_g117839117892_ _g117840117895_))))) (let () (declare (not safe)) - (_g230597230650_ _g230598230653_)))))) + (_g117839117892_ _g117840117895_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g230596230826_ _L230582_)))) - (___kont244914244915_ - (lambda (_L230533_ _L230534_) - (let ((__tmp245434 - (let ((__tmp245435 - (let ((__tmp245436 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp245437 + (_g117838118068_ _L117824_)))) + (___kont127588127589_ + (lambda (_L117775_ _L117776_) + (let ((__tmp128108 + (let ((__tmp128109 + (let ((__tmp128110 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp128111 (let () (declare (not safe)) - (gxc#compile-e__0 _L230533_)))) + (gxc#compile-e__0 _L117775_)))) (declare (not safe)) - (cons __tmp245437 '())))) + (cons __tmp128111 '())))) (declare (not safe)) - (cons _L230534_ __tmp245436)))) + (cons _L117776_ __tmp128110)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp245435 - _bind230439_)))) + (cons __tmp128109 + _bind117681_)))) (declare (not safe)) - (_lp230436_ - _rest230459_ - __tmp245434))))) - (let* ((___match244981244982_ - (lambda (_e230493230558_ - _hd230492230561_ - _tl230491230563_ - _e230496230566_ - _hd230495230569_ - _tl230494230571_ - _e230499230574_ - _hd230498230577_ - _tl230497230579_) - (let ((_L230582_ - _hd230498230577_) - (_L230583_ - _hd230495230569_)) + (_lp117678_ + _rest117701_ + __tmp128108))))) + (let* ((___match127655127656_ + (lambda (_e117735117800_ + _hd117734117803_ + _tl117733117805_ + _e117738117808_ + _hd117737117811_ + _tl117736117813_ + _e117741117816_ + _hd117740117819_ + _tl117739117821_) + (let ((_L117824_ + _hd117740117819_) + (_L117825_ + _hd117737117811_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L230583_)) + _L117825_)) (let () (declare (not safe)) (gxc#kw-lambda-expr? - _L230582_))) - (___kont244912244913_ - _L230582_ - _L230583_) - (___kont244914244915_ - _hd230498230577_ - _hd230492230561_))))) - (___match244959244960_ - (lambda (_e230482230834_ - _hd230481230837_ - _tl230480230839_ - _e230485230842_ - _hd230484230845_ - _tl230483230847_ - _e230488230850_ - _hd230487230853_ - _tl230486230855_) - (let ((_L230858_ - _hd230487230853_) - (_L230859_ - _hd230484230845_)) + _L117824_))) + (___kont127586127587_ + _L117824_ + _L117825_) + (___kont127588127589_ + _hd117740117819_ + _hd117734117803_))))) + (___match127633127634_ + (lambda (_e117724118076_ + _hd117723118079_ + _tl117722118081_ + _e117727118084_ + _hd117726118087_ + _tl117725118089_ + _e117730118092_ + _hd117729118095_ + _tl117728118097_) + (let ((_L118100_ + _hd117729118095_) + (_L118101_ + _hd117726118087_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L230859_)) + _L118101_)) (let () (declare (not safe)) (gxc#opt-lambda-expr? - _L230858_))) - (___kont244910244911_ - _L230858_ - _L230859_) - (___match244981244982_ - _e230482230834_ - _hd230481230837_ - _tl230480230839_ - _e230485230842_ - _hd230484230845_ - _tl230483230847_ - _e230488230850_ - _hd230487230853_ - _tl230486230855_))))) - (___match244937244938_ - (lambda (_e230471231006_ - _hd230470231009_ - _tl230469231011_ - _e230474231014_ - _hd230473231017_ - _tl230472231019_ - _e230477231022_ - _hd230476231025_ - _tl230475231027_) - (let ((_L231030_ - _hd230476231025_) - (_L231031_ - _hd230473231017_)) + _L118100_))) + (___kont127584127585_ + _L118100_ + _L118101_) + (___match127655127656_ + _e117724118076_ + _hd117723118079_ + _tl117722118081_ + _e117727118084_ + _hd117726118087_ + _tl117725118089_ + _e117730118092_ + _hd117729118095_ + _tl117728118097_))))) + (___match127611127612_ + (lambda (_e117713118248_ + _hd117712118251_ + _tl117711118253_ + _e117716118256_ + _hd117715118259_ + _tl117714118261_ + _e117719118264_ + _hd117718118267_ + _tl117717118269_) + (let ((_L118272_ + _hd117718118267_) + (_L118273_ + _hd117715118259_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L231031_)) + _L118273_)) (let () (declare (not safe)) (gxc#case-lambda-expr? - _L231030_))) - (___kont244908244909_ - _L231030_ - _L231031_) - (___match244959244960_ - _e230471231006_ - _hd230470231009_ - _tl230469231011_ - _e230474231014_ - _hd230473231017_ - _tl230472231019_ - _e230477231022_ - _hd230476231025_ - _tl230475231027_)))))) + _L118272_))) + (___kont127582127583_ + _L118272_ + _L118273_) + (___match127633127634_ + _e117713118248_ + _hd117712118251_ + _tl117711118253_ + _e117716118256_ + _hd117715118259_ + _tl117714118261_ + _e117719118264_ + _hd117718118267_ + _tl117717118269_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx244906244907_)) - (let ((_e230471231006_ + ___stx127580127581_)) + (let ((_e117713118248_ (let () (declare (not safe)) (gx#stx-e - ___stx244906244907_)))) - (let ((_tl230469231011_ + ___stx127580127581_)))) + (let ((_tl117711118253_ (let () (declare (not safe)) - (##cdr _e230471231006_))) - (_hd230470231009_ + (##cdr _e117713118248_))) + (_hd117712118251_ (let () (declare (not safe)) - (##car _e230471231006_)))) + (##car _e117713118248_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd230470231009_)) - (let ((_e230474231014_ + _hd117712118251_)) + (let ((_e117716118256_ (let () (declare (not safe)) (gx#stx-e - _hd230470231009_)))) - (let ((_tl230472231019_ + _hd117712118251_)))) + (let ((_tl117714118261_ (let () (declare (not safe)) - (##cdr _e230474231014_))) - (_hd230473231017_ + (##cdr _e117716118256_))) + (_hd117715118259_ (let () (declare (not safe)) - (##car _e230474231014_)))) + (##car _e117716118256_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl230472231019_)) + _tl117714118261_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl230469231011_)) - (let ((_e230477231022_ + (gx#stx-pair? _tl117711118253_)) + (let ((_e117719118264_ (let () (declare (not safe)) - (gx#stx-e _tl230469231011_)))) - (let ((_tl230475231027_ + (gx#stx-e _tl117711118253_)))) + (let ((_tl117717118269_ (let () (declare (not safe)) - (##cdr _e230477231022_))) - (_hd230476231025_ + (##cdr _e117719118264_))) + (_hd117718118267_ (let () (declare (not safe)) - (##car _e230477231022_)))) + (##car _e117719118264_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230475231027_)) - (___match244937244938_ - _e230471231006_ - _hd230470231009_ - _tl230469231011_ - _e230474231014_ - _hd230473231017_ - _tl230472231019_ - _e230477231022_ - _hd230476231025_ - _tl230475231027_) + (gx#stx-null? _tl117717118269_)) + (___match127611127612_ + _e117713118248_ + _hd117712118251_ + _tl117711118253_ + _e117716118256_ + _hd117715118259_ + _tl117714118261_ + _e117719118264_ + _hd117718118267_ + _tl117717118269_) (let () (declare (not safe)) - (_g230465230512_))))) - (let () (declare (not safe)) (_g230465230512_))) + (_g117707117754_))))) + (let () (declare (not safe)) (_g117707117754_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230469231011_)) - (let ((_e230507230525_ + (gx#stx-pair? _tl117711118253_)) + (let ((_e117749117767_ (let () (declare (not safe)) - (gx#stx-e _tl230469231011_)))) - (let ((_tl230505230530_ + (gx#stx-e _tl117711118253_)))) + (let ((_tl117747117772_ (let () (declare (not safe)) - (##cdr _e230507230525_))) - (_hd230506230528_ + (##cdr _e117749117767_))) + (_hd117748117770_ (let () (declare (not safe)) - (##car _e230507230525_)))) + (##car _e117749117767_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230505230530_)) - (___kont244914244915_ - _hd230506230528_ - _hd230470231009_) + (gx#stx-null? _tl117747117772_)) + (___kont127588127589_ + _hd117748117770_ + _hd117712118251_) (let () (declare (not safe)) - (_g230465230512_))))) - (let () (declare (not safe)) (_g230465230512_)))))) + (_g117707117754_))))) + (let () (declare (not safe)) (_g117707117754_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl230469231011_)) - (let ((_e230507230525_ + _tl117711118253_)) + (let ((_e117749117767_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl230469231011_)))) - (let ((_tl230505230530_ - (let () (declare (not safe)) (##cdr _e230507230525_))) - (_hd230506230528_ - (let () (declare (not safe)) (##car _e230507230525_)))) + (gx#stx-e _tl117711118253_)))) + (let ((_tl117747117772_ + (let () (declare (not safe)) (##cdr _e117749117767_))) + (_hd117748117770_ + (let () (declare (not safe)) (##car _e117749117767_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230505230530_)) - (___kont244914244915_ _hd230506230528_ _hd230470231009_) - (let () (declare (not safe)) (_g230465230512_))))) - (let () (declare (not safe)) (_g230465230512_)))))) + (gx#stx-null? _tl117747117772_)) + (___kont127588127589_ _hd117748117770_ _hd117712118251_) + (let () (declare (not safe)) (_g117707117754_))))) + (let () (declare (not safe)) (_g117707117754_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g230465230512_))))))))) + (_g117707117754_))))))))) (if (let () (declare (not safe)) - (##pair? _rest230440230448_)) - (let ((_hd230445231126_ + (##pair? _rest117682117690_)) + (let ((_hd117687118368_ (let () (declare (not safe)) - (##car _rest230440230448_))) - (_tl230446231128_ + (##car _rest117682117690_))) + (_tl117688118370_ (let () (declare (not safe)) - (##cdr _rest230440230448_)))) - (let* ((_hd231131_ _hd230445231126_) - (_rest231133_ _tl230446231128_)) + (##cdr _rest117682117690_)))) + (let* ((_hd118373_ _hd117687118368_) + (_rest118375_ _tl117688118370_)) (declare (not safe)) - (_K230444231123_ _rest231133_ _hd231131_))) + (_K117686118365_ _rest118375_ _hd118373_))) (let () (declare (not safe)) - (_else230442230456_)))))))) - (let* ((___stx244998244999_ _stx230296_) - (_g230302230329_ + (_else117684117698_)))))))) + (let* ((___stx127672127673_ _stx117538_) + (_g117544117571_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx244998244999_))))) - (let ((___kont245000245001_ - (lambda (_L230389_ _L230390_ _L230391_) - (let ((__tmp245439 + ___stx127672127673_))))) + (let ((___kont127674127675_ + (lambda (_L117631_ _L117632_ _L117633_) + (let ((__tmp128113 (lambda () - (let ((_hd230428_ - (let ((__tmp245440 - (let ((__tmp245441 - (lambda (_g230420230423_ - _g230421230425_) + (let ((_hd117670_ + (let ((__tmp128114 + (let ((__tmp128115 + (lambda (_g117662117665_ + _g117663117667_) (let () (declare (not safe)) - (cons _g230420230423_ - _g230421230425_))))) + (cons _g117662117665_ + _g117663117667_))))) (declare (not safe)) - (foldr1 __tmp245441 + (foldr1 __tmp128115 '() - _L230390_)))) + _L117632_)))) (declare (not safe)) - (_compile-bindings230299_ __tmp245440))) - (_body230429_ + (_compile-bindings117541_ __tmp128114))) + (_body117671_ (let () (declare (not safe)) - (gxc#compile-e__0 _L230389_)))) - (let ((__tmp245442 - (let ((__tmp245443 - (let ((__tmp245444 + (gxc#compile-e__0 _L117631_)))) + (let ((__tmp128116 + (let ((__tmp128117 + (let ((__tmp128118 (let () (declare (not safe)) - (cons _body230429_ + (cons _body117671_ '())))) (declare (not safe)) - (cons _hd230428_ - __tmp245444)))) + (cons _hd117670_ + __tmp128118)))) (declare (not safe)) - (cons _L230391_ __tmp245443)))) + (cons _L117633_ __tmp128117)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp245442 - _stx230296_))))) - (__tmp245438 - (let ((__obj245063 + __tmp128116 + _stx117538_))))) + (__tmp128112 + (let ((__obj127737 (let () (declare (not safe)) (##structure @@ -15506,254 +15495,254 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj245063) - __obj245063))) + (gx#local-context:::init! __obj127737) + __obj127737))) (declare (not safe)) (call-with-parameters - __tmp245439 + __tmp128113 gx#current-expander-context - __tmp245438)))) - (___kont245004245005_ + __tmp128112)))) + (___kont127678127679_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _stx230296_))))) - (let ((___match245025245026_ - (lambda (_e230309230341_ - _hd230308230344_ - _tl230307230346_ - _e230312230349_ - _hd230311230352_ - _tl230310230354_ - ___splice245002245003_ - _target230313230357_ - _tl230315230359_) - (letrec ((_loop230316230362_ - (lambda (_hd230314230365_ _bind230320230367_) + (gxc#xform-let-values% _stx117538_))))) + (let ((___match127699127700_ + (lambda (_e117551117583_ + _hd117550117586_ + _tl117549117588_ + _e117554117591_ + _hd117553117594_ + _tl117552117596_ + ___splice127676127677_ + _target117555117599_ + _tl117557117601_) + (letrec ((_loop117558117604_ + (lambda (_hd117556117607_ _bind117562117609_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230314230365_)) - (let ((_e230317230370_ + (gx#stx-pair? _hd117556117607_)) + (let ((_e117559117612_ (let () (declare (not safe)) - (gx#stx-e _hd230314230365_)))) - (let ((_lp-tl230319230375_ + (gx#stx-e _hd117556117607_)))) + (let ((_lp-tl117561117617_ (let () (declare (not safe)) - (##cdr _e230317230370_))) - (_lp-hd230318230373_ + (##cdr _e117559117612_))) + (_lp-hd117560117615_ (let () (declare (not safe)) - (##car _e230317230370_)))) - (let ((__tmp245447 + (##car _e117559117612_)))) + (let ((__tmp128121 (let () (declare (not safe)) - (cons _lp-hd230318230373_ - _bind230320230367_)))) + (cons _lp-hd117560117615_ + _bind117562117609_)))) (declare (not safe)) - (_loop230316230362_ - _lp-tl230319230375_ - __tmp245447)))) - (let ((_bind230321230378_ - (reverse _bind230320230367_))) + (_loop117558117604_ + _lp-tl117561117617_ + __tmp128121)))) + (let ((_bind117563117620_ + (reverse _bind117562117609_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230310230354_)) - (let ((_e230324230381_ + (gx#stx-pair? _tl117552117596_)) + (let ((_e117566117623_ (let () (declare (not safe)) (gx#stx-e - _tl230310230354_)))) - (let ((_tl230322230386_ + _tl117552117596_)))) + (let ((_tl117564117628_ (let () (declare (not safe)) - (##cdr _e230324230381_))) - (_hd230323230384_ + (##cdr _e117566117623_))) + (_hd117565117626_ (let () (declare (not safe)) - (##car _e230324230381_)))) + (##car _e117566117623_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl230322230386_)) - (let ((_L230389_ - _hd230323230384_) - (_L230390_ - _bind230321230378_) - (_L230391_ - _hd230308230344_)) - (if (let ((__tmp245445 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp245446 - (lambda (_g230412230415_ _g230413230417_) + _tl117564117628_)) + (let ((_L117631_ + _hd117565117626_) + (_L117632_ + _bind117563117620_) + (_L117633_ + _hd117550117586_)) + (if (let ((__tmp128119 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp128120 + (lambda (_g117654117657_ _g117655117659_) (let () (declare (not safe)) - (cons _g230412230415_ _g230413230417_))))) + (cons _g117654117657_ _g117655117659_))))) (declare (not safe)) - (foldr1 __tmp245446 '() _L230390_)))) + (foldr1 __tmp128120 '() _L117632_)))) (declare (not safe)) - (ormap1 gxc#lift-top-lambda-binding? __tmp245445)) - (___kont245000245001_ _L230389_ _L230390_ _L230391_) - (___kont245004245005_))) + (ormap1 gxc#lift-top-lambda-binding? __tmp128119)) + (___kont127674127675_ _L117631_ _L117632_ _L117633_) + (___kont127678127679_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont245004245005_)))) - (___kont245004245005_))))))) + (___kont127678127679_)))) + (___kont127678127679_))))))) (let () (declare (not safe)) - (_loop230316230362_ _target230313230357_ '())))))) + (_loop117558117604_ _target117555117599_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx244998244999_)) - (let ((_e230309230341_ + (gx#stx-pair? ___stx127672127673_)) + (let ((_e117551117583_ (let () (declare (not safe)) - (gx#stx-e ___stx244998244999_)))) - (let ((_tl230307230346_ + (gx#stx-e ___stx127672127673_)))) + (let ((_tl117549117588_ (let () (declare (not safe)) - (##cdr _e230309230341_))) - (_hd230308230344_ + (##cdr _e117551117583_))) + (_hd117550117586_ (let () (declare (not safe)) - (##car _e230309230341_)))) + (##car _e117551117583_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230307230346_)) - (let ((_e230312230349_ + (gx#stx-pair? _tl117549117588_)) + (let ((_e117554117591_ (let () (declare (not safe)) - (gx#stx-e _tl230307230346_)))) - (let ((_tl230310230354_ + (gx#stx-e _tl117549117588_)))) + (let ((_tl117552117596_ (let () (declare (not safe)) - (##cdr _e230312230349_))) - (_hd230311230352_ + (##cdr _e117554117591_))) + (_hd117553117594_ (let () (declare (not safe)) - (##car _e230312230349_)))) + (##car _e117554117591_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd230311230352_)) - (let ((___splice245002245003_ + (gx#stx-pair/null? _hd117553117594_)) + (let ((___splice127676127677_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd230311230352_ + _hd117553117594_ '0)))) - (let ((_tl230315230359_ + (let ((_tl117557117601_ (let () (declare (not safe)) (##vector-ref - ___splice245002245003_ + ___splice127676127677_ '1))) - (_target230313230357_ + (_target117555117599_ (let () (declare (not safe)) (##vector-ref - ___splice245002245003_ + ___splice127676127677_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230315230359_)) - (___match245025245026_ - _e230309230341_ - _hd230308230344_ - _tl230307230346_ - _e230312230349_ - _hd230311230352_ - _tl230310230354_ - ___splice245002245003_ - _target230313230357_ - _tl230315230359_) - (___kont245004245005_)))) - (___kont245004245005_)))) - (___kont245004245005_)))) - (___kont245004245005_)))))))) + (gx#stx-null? _tl117557117601_)) + (___match127699127700_ + _e117551117583_ + _hd117550117586_ + _tl117549117588_ + _e117554117591_ + _hd117553117594_ + _tl117552117596_ + ___splice127676127677_ + _target117555117599_ + _tl117557117601_) + (___kont127678127679_)))) + (___kont127678127679_)))) + (___kont127678127679_)))) + (___kont127678127679_)))))))) (define gxc#lift-top-lambda-binding? - (lambda (_bind230214_) - (let* ((___stx245028245029_ _bind230214_) - (_g230217230234_ + (lambda (_bind117456_) + (let* ((___stx127702127703_ _bind117456_) + (_g117459117476_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx245028245029_))))) - (let ((___kont245030245031_ - (lambda (_L230270_ _L230271_) - (if (let () (declare (not safe)) (gx#identifier? _L230271_)) - (let ((_$e230287_ + ___stx127702127703_))))) + (let ((___kont127704127705_ + (lambda (_L117512_ _L117513_) + (if (let () (declare (not safe)) (gx#identifier? _L117513_)) + (let ((_$e117529_ (let () (declare (not safe)) - (gxc#case-lambda-expr? _L230270_)))) - (if _$e230287_ - _$e230287_ - (let ((_$e230290_ + (gxc#case-lambda-expr? _L117512_)))) + (if _$e117529_ + _$e117529_ + (let ((_$e117532_ (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L230270_)))) - (if _$e230290_ - _$e230290_ + (gxc#opt-lambda-expr? _L117512_)))) + (if _$e117532_ + _$e117532_ (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L230270_)))))) + (gxc#kw-lambda-expr? _L117512_)))))) '#f))) - (___kont245032245033_ (lambda () '#f))) + (___kont127706127707_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx245028245029_)) - (let ((_e230223230246_ + (gx#stx-pair? ___stx127702127703_)) + (let ((_e117465117488_ (let () (declare (not safe)) - (gx#stx-e ___stx245028245029_)))) - (let ((_tl230221230251_ - (let () (declare (not safe)) (##cdr _e230223230246_))) - (_hd230222230249_ + (gx#stx-e ___stx127702127703_)))) + (let ((_tl117463117493_ + (let () (declare (not safe)) (##cdr _e117465117488_))) + (_hd117464117491_ (let () (declare (not safe)) - (##car _e230223230246_)))) + (##car _e117465117488_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230222230249_)) - (let ((_e230226230254_ + (gx#stx-pair? _hd117464117491_)) + (let ((_e117468117496_ (let () (declare (not safe)) - (gx#stx-e _hd230222230249_)))) - (let ((_tl230224230259_ + (gx#stx-e _hd117464117491_)))) + (let ((_tl117466117501_ (let () (declare (not safe)) - (##cdr _e230226230254_))) - (_hd230225230257_ + (##cdr _e117468117496_))) + (_hd117467117499_ (let () (declare (not safe)) - (##car _e230226230254_)))) + (##car _e117468117496_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230224230259_)) + (gx#stx-null? _tl117466117501_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230221230251_)) - (let ((_e230229230262_ + (gx#stx-pair? _tl117463117493_)) + (let ((_e117471117504_ (let () (declare (not safe)) - (gx#stx-e _tl230221230251_)))) - (let ((_tl230227230267_ + (gx#stx-e _tl117463117493_)))) + (let ((_tl117469117509_ (let () (declare (not safe)) - (##cdr _e230229230262_))) - (_hd230228230265_ + (##cdr _e117471117504_))) + (_hd117470117507_ (let () (declare (not safe)) - (##car _e230229230262_)))) + (##car _e117471117504_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230227230267_)) - (___kont245030245031_ - _hd230228230265_ - _hd230225230257_) - (___kont245032245033_)))) - (___kont245032245033_)) - (___kont245032245033_)))) - (___kont245032245033_)))) - (___kont245032245033_)))))))) + (gx#stx-null? _tl117469117509_)) + (___kont127704127705_ + _hd117470117507_ + _hd117467117499_) + (___kont127706127707_)))) + (___kont127706127707_)) + (___kont127706127707_)))) + (___kont127706127707_)))) + (___kont127706127707_)))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top__1.scm b/src/bootstrap/gerbil/compiler/optimize-top__1.scm index 2babdd6c7..6e196de4b 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top__1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-top__1.scm @@ -1,398 +1,398 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gxc[:0:]#defbasic-expression-type-annotations| - (lambda (_$stx229937_) - (let* ((_g229941229970_ - (lambda (_g229942229966_) + (lambda (_$stx117179_) + (let* ((_g117183117212_ + (lambda (_g117184117208_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g229942229966_)))) - (_g229940230071_ - (lambda (_g229942229974_) + _g117184117208_)))) + (_g117182117313_ + (lambda (_g117184117216_) (if (let () (declare (not safe)) - (gx#stx-pair? _g229942229974_)) - (let ((_e229947229977_ + (gx#stx-pair? _g117184117216_)) + (let ((_e117189117219_ (let () (declare (not safe)) - (gx#syntax-e _g229942229974_)))) - (let ((_hd229946229981_ + (gx#syntax-e _g117184117216_)))) + (let ((_hd117188117223_ (let () (declare (not safe)) - (##car _e229947229977_))) - (_tl229945229984_ + (##car _e117189117219_))) + (_tl117187117226_ (let () (declare (not safe)) - (##cdr _e229947229977_)))) + (##cdr _e117189117219_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl229945229984_)) - (let ((_g245448_ + (gx#stx-pair/null? _tl117187117226_)) + (let ((_g128122_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl229945229984_ + _tl117187117226_ '0)))) (begin - (let ((_g245449_ + (let ((_g128123_ (let () (declare (not safe)) - (if (##values? _g245448_) - (##vector-length _g245448_) + (if (##values? _g128122_) + (##vector-length _g128122_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g245449_ 2))) + (##fx= _g128123_ 2))) (error "Context expects 2 values" - _g245449_))) - (let ((_target229948229987_ + _g128123_))) + (let ((_target117190117229_ (let () (declare (not safe)) - (##vector-ref _g245448_ 0))) - (_tl229950229990_ + (##vector-ref _g128122_ 0))) + (_tl117192117232_ (let () (declare (not safe)) - (##vector-ref _g245448_ 1)))) + (##vector-ref _g128122_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl229950229990_)) - (letrec ((_loop229951229993_ - (lambda (_hd229949229997_ - _type-e229955230000_ - _id229956230002_) + (gx#stx-null? _tl117192117232_)) + (letrec ((_loop117193117235_ + (lambda (_hd117191117239_ + _type-e117197117242_ + _id117198117244_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd229949229997_)) - (let ((_e229952230005_ + _hd117191117239_)) + (let ((_e117194117247_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd229949229997_)))) - (let ((_lp-hd229953230009_ - (let () (declare (not safe)) (##car _e229952230005_))) - (_lp-tl229954230012_ - (let () (declare (not safe)) (##cdr _e229952230005_)))) + (gx#syntax-e _hd117191117239_)))) + (let ((_lp-hd117195117251_ + (let () (declare (not safe)) (##car _e117194117247_))) + (_lp-tl117196117254_ + (let () (declare (not safe)) (##cdr _e117194117247_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd229953230009_)) - (let ((_e229961230015_ + (gx#stx-pair? _lp-hd117195117251_)) + (let ((_e117203117257_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd229953230009_)))) - (let ((_hd229960230019_ + (gx#syntax-e _lp-hd117195117251_)))) + (let ((_hd117202117261_ (let () (declare (not safe)) - (##car _e229961230015_))) - (_tl229959230022_ + (##car _e117203117257_))) + (_tl117201117264_ (let () (declare (not safe)) - (##cdr _e229961230015_)))) + (##cdr _e117203117257_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229959230022_)) - (let ((_e229964230025_ + (gx#stx-pair? _tl117201117264_)) + (let ((_e117206117267_ (let () (declare (not safe)) - (gx#syntax-e _tl229959230022_)))) - (let ((_hd229963230029_ + (gx#syntax-e _tl117201117264_)))) + (let ((_hd117205117271_ (let () (declare (not safe)) - (##car _e229964230025_))) - (_tl229962230032_ + (##car _e117206117267_))) + (_tl117204117274_ (let () (declare (not safe)) - (##cdr _e229964230025_)))) + (##cdr _e117206117267_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl229962230032_)) - (_loop229951229993_ - _lp-tl229954230012_ + (gx#stx-null? _tl117204117274_)) + (_loop117193117235_ + _lp-tl117196117254_ (let () (declare (not safe)) - (cons _hd229963230029_ - _type-e229955230000_)) + (cons _hd117205117271_ + _type-e117197117242_)) (let () (declare (not safe)) - (cons _hd229960230019_ - _id229956230002_))) - (_g229941229970_ _g229942229974_)))) - (_g229941229970_ _g229942229974_)))) - (_g229941229970_ _g229942229974_)))) - (let ((_type-e229957230035_ (reverse _type-e229955230000_)) - (_id229958230038_ (reverse _id229956230002_))) - ((lambda (_L230041_ _L230043_) - (let ((__tmp245461 + (cons _hd117202117261_ + _id117198117244_))) + (_g117183117212_ _g117184117216_)))) + (_g117183117212_ _g117184117216_)))) + (_g117183117212_ _g117184117216_)))) + (let ((_type-e117199117277_ (reverse _type-e117197117242_)) + (_id117200117280_ (reverse _id117198117244_))) + ((lambda (_L117283_ _L117285_) + (let ((__tmp128135 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp245450 + (__tmp128124 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L230041_ - _L230043_)) - (let ((__tmp245451 - (lambda (_g230059230063_ - _g230060230066_ - _g230061230068_) - (let ((__tmp245452 - (let ((__tmp245460 + _L117283_ + _L117285_)) + (let ((__tmp128125 + (lambda (_g117301117305_ + _g117302117308_ + _g117303117310_) + (let ((__tmp128126 + (let ((__tmp128134 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-put!))) - (__tmp245453 - (let ((__tmp245459 + (__tmp128127 + (let ((__tmp128133 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'basic-expression-type-annotations))) - (__tmp245454 - (let ((__tmp245456 + (__tmp128128 + (let ((__tmp128130 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp245458 + (let ((__tmp128132 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp245457 + (__tmp128131 (let () (declare (not safe)) - (cons _g230060230066_ '())))) + (cons _g117302117308_ '())))) (declare (not safe)) - (cons __tmp245458 __tmp245457))) - (__tmp245455 + (cons __tmp128132 __tmp128131))) + (__tmp128129 (let () (declare (not safe)) - (cons _g230059230063_ '())))) + (cons _g117301117305_ '())))) (declare (not safe)) - (cons __tmp245456 __tmp245455)))) + (cons __tmp128130 __tmp128129)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp245459 - __tmp245454)))) + (cons __tmp128133 + __tmp128128)))) (declare (not safe)) - (cons __tmp245460 __tmp245453)))) + (cons __tmp128134 __tmp128127)))) (declare (not safe)) - (cons __tmp245452 _g230061230068_))))) + (cons __tmp128126 _g117303117310_))))) (declare (not safe)) - (foldr2 __tmp245451 '() _L230041_ _L230043_))))) + (foldr2 __tmp128125 '() _L117283_ _L117285_))))) (declare (not safe)) - (cons __tmp245461 __tmp245450))) - _type-e229957230035_ - _id229958230038_)))))) + (cons __tmp128135 __tmp128124))) + _type-e117199117277_ + _id117200117280_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop229951229993_ - _target229948229987_ + (_loop117193117235_ + _target117190117229_ '() '())) - (_g229941229970_ _g229942229974_))))) - (_g229941229970_ _g229942229974_)))) - (_g229941229970_ _g229942229974_))))) - (_g229940230071_ _$stx229937_)))) + (_g117183117212_ _g117184117216_))))) + (_g117183117212_ _g117184117216_)))) + (_g117183117212_ _g117184117216_))))) + (_g117182117313_ _$stx117179_)))) (define |gxc[:0:]#defbasic-expression-type-builtin| - (lambda (_$stx230076_) - (let* ((_g230080230109_ - (lambda (_g230081230105_) + (lambda (_$stx117318_) + (let* ((_g117322117351_ + (lambda (_g117323117347_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g230081230105_)))) - (_g230079230209_ - (lambda (_g230081230113_) + _g117323117347_)))) + (_g117321117451_ + (lambda (_g117323117355_) (if (let () (declare (not safe)) - (gx#stx-pair? _g230081230113_)) - (let ((_e230086230116_ + (gx#stx-pair? _g117323117355_)) + (let ((_e117328117358_ (let () (declare (not safe)) - (gx#syntax-e _g230081230113_)))) - (let ((_hd230085230120_ + (gx#syntax-e _g117323117355_)))) + (let ((_hd117327117362_ (let () (declare (not safe)) - (##car _e230086230116_))) - (_tl230084230123_ + (##car _e117328117358_))) + (_tl117326117365_ (let () (declare (not safe)) - (##cdr _e230086230116_)))) + (##cdr _e117328117358_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl230084230123_)) - (let ((_g245462_ + (gx#stx-pair/null? _tl117326117365_)) + (let ((_g128136_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl230084230123_ + _tl117326117365_ '0)))) (begin - (let ((_g245463_ + (let ((_g128137_ (let () (declare (not safe)) - (if (##values? _g245462_) - (##vector-length _g245462_) + (if (##values? _g128136_) + (##vector-length _g128136_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g245463_ 2))) + (##fx= _g128137_ 2))) (error "Context expects 2 values" - _g245463_))) - (let ((_target230087230126_ + _g128137_))) + (let ((_target117329117368_ (let () (declare (not safe)) - (##vector-ref _g245462_ 0))) - (_tl230089230129_ + (##vector-ref _g128136_ 0))) + (_tl117331117371_ (let () (declare (not safe)) - (##vector-ref _g245462_ 1)))) + (##vector-ref _g128136_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230089230129_)) - (letrec ((_loop230090230132_ - (lambda (_hd230088230136_ - _type-e230094230139_ - _id230095230141_) + (gx#stx-null? _tl117331117371_)) + (letrec ((_loop117332117374_ + (lambda (_hd117330117378_ + _type-e117336117381_ + _id117337117383_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd230088230136_)) - (let ((_e230091230144_ + _hd117330117378_)) + (let ((_e117333117386_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd230088230136_)))) - (let ((_lp-hd230092230148_ - (let () (declare (not safe)) (##car _e230091230144_))) - (_lp-tl230093230151_ - (let () (declare (not safe)) (##cdr _e230091230144_)))) + (gx#syntax-e _hd117330117378_)))) + (let ((_lp-hd117334117390_ + (let () (declare (not safe)) (##car _e117333117386_))) + (_lp-tl117335117393_ + (let () (declare (not safe)) (##cdr _e117333117386_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd230092230148_)) - (let ((_e230100230154_ + (gx#stx-pair? _lp-hd117334117390_)) + (let ((_e117342117396_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd230092230148_)))) - (let ((_hd230099230158_ + (gx#syntax-e _lp-hd117334117390_)))) + (let ((_hd117341117400_ (let () (declare (not safe)) - (##car _e230100230154_))) - (_tl230098230161_ + (##car _e117342117396_))) + (_tl117340117403_ (let () (declare (not safe)) - (##cdr _e230100230154_)))) + (##cdr _e117342117396_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230098230161_)) - (let ((_e230103230164_ + (gx#stx-pair? _tl117340117403_)) + (let ((_e117345117406_ (let () (declare (not safe)) - (gx#syntax-e _tl230098230161_)))) - (let ((_hd230102230168_ + (gx#syntax-e _tl117340117403_)))) + (let ((_hd117344117410_ (let () (declare (not safe)) - (##car _e230103230164_))) - (_tl230101230171_ + (##car _e117345117406_))) + (_tl117343117413_ (let () (declare (not safe)) - (##cdr _e230103230164_)))) + (##cdr _e117345117406_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230101230171_)) - (_loop230090230132_ - _lp-tl230093230151_ + (gx#stx-null? _tl117343117413_)) + (_loop117332117374_ + _lp-tl117335117393_ (let () (declare (not safe)) - (cons _hd230102230168_ - _type-e230094230139_)) + (cons _hd117344117410_ + _type-e117336117381_)) (let () (declare (not safe)) - (cons _hd230099230158_ - _id230095230141_))) - (_g230080230109_ _g230081230113_)))) - (_g230080230109_ _g230081230113_)))) - (_g230080230109_ _g230081230113_)))) - (let ((_type-e230096230174_ (reverse _type-e230094230139_)) - (_id230097230177_ (reverse _id230095230141_))) - ((lambda (_L230180_ _L230182_) - (let ((__tmp245475 + (cons _hd117341117400_ + _id117337117383_))) + (_g117322117351_ _g117323117355_)))) + (_g117322117351_ _g117323117355_)))) + (_g117322117351_ _g117323117355_)))) + (let ((_type-e117338117416_ (reverse _type-e117336117381_)) + (_id117339117419_ (reverse _id117337117383_))) + ((lambda (_L117422_ _L117424_) + (let ((__tmp128149 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp245464 + (__tmp128138 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L230180_ - _L230182_)) - (let ((__tmp245465 - (lambda (_g230197230201_ - _g230198230204_ - _g230199230206_) - (let ((__tmp245466 - (let ((__tmp245474 + _L117422_ + _L117424_)) + (let ((__tmp128139 + (lambda (_g117439117443_ + _g117440117446_ + _g117441117448_) + (let ((__tmp128140 + (let ((__tmp128148 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-put!))) - (__tmp245467 - (let ((__tmp245473 + (__tmp128141 + (let ((__tmp128147 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'basic-expression-type-builtin))) - (__tmp245468 - (let ((__tmp245470 + (__tmp128142 + (let ((__tmp128144 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp245472 + (let ((__tmp128146 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp245471 + (__tmp128145 (let () (declare (not safe)) - (cons _g230198230204_ '())))) + (cons _g117440117446_ '())))) (declare (not safe)) - (cons __tmp245472 __tmp245471))) - (__tmp245469 + (cons __tmp128146 __tmp128145))) + (__tmp128143 (let () (declare (not safe)) - (cons _g230197230201_ '())))) + (cons _g117439117443_ '())))) (declare (not safe)) - (cons __tmp245470 __tmp245469)))) + (cons __tmp128144 __tmp128143)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp245473 - __tmp245468)))) + (cons __tmp128147 + __tmp128142)))) (declare (not safe)) - (cons __tmp245474 __tmp245467)))) + (cons __tmp128148 __tmp128141)))) (declare (not safe)) - (cons __tmp245466 _g230199230206_))))) + (cons __tmp128140 _g117441117448_))))) (declare (not safe)) - (foldr2 __tmp245465 '() _L230180_ _L230182_))))) + (foldr2 __tmp128139 '() _L117422_ _L117424_))))) (declare (not safe)) - (cons __tmp245475 __tmp245464))) - _type-e230096230174_ - _id230097230177_)))))) + (cons __tmp128149 __tmp128138))) + _type-e117338117416_ + _id117339117419_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop230090230132_ - _target230087230126_ + (_loop117332117374_ + _target117329117368_ '() '())) - (_g230080230109_ _g230081230113_))))) - (_g230080230109_ _g230081230113_)))) - (_g230080230109_ _g230081230113_))))) - (_g230079230209_ _$stx230076_))))) + (_g117322117351_ _g117323117355_))))) + (_g117322117351_ _g117323117355_)))) + (_g117322117351_ _g117323117355_))))) + (_g117321117451_ _$stx117318_))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform__0.scm b/src/bootstrap/gerbil/compiler/optimize-xform__0.scm index 5302ffcd3..1fd805742 100644 --- a/src/bootstrap/gerbil/compiler/optimize-xform__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-xform__0.scm @@ -1,4166 +1,4148 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-xform::timestamp 1708102805) + (define gerbil/compiler/optimize-xform::timestamp 1708370115) (begin (define gxc#&identity-expression (make-promise (lambda () - (let ((_tbl225013_ - (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((_tbl116823_ + (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (table-set! _tbl225013_ '%#begin-annotation gxc#xform-identity)) + (hash-put! _tbl116823_ '%#begin-annotation gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225013_ '%#lambda gxc#xform-identity)) + (hash-put! _tbl116823_ '%#lambda gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225013_ '%#case-lambda gxc#xform-identity)) + (hash-put! _tbl116823_ '%#case-lambda gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225013_ '%#let-values gxc#xform-identity)) + (hash-put! _tbl116823_ '%#let-values gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225013_ '%#letrec-values gxc#xform-identity)) + (hash-put! _tbl116823_ '%#letrec-values gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225013_ '%#letrec*-values gxc#xform-identity)) + (hash-put! _tbl116823_ '%#letrec*-values gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225013_ '%#quote gxc#xform-identity)) + (hash-put! _tbl116823_ '%#quote gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225013_ '%#quote-syntax gxc#xform-identity)) + (hash-put! _tbl116823_ '%#quote-syntax gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225013_ '%#call gxc#xform-identity)) + (hash-put! _tbl116823_ '%#call gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225013_ '%#call-unchecked gxc#xform-identity)) + (hash-put! _tbl116823_ '%#call-unchecked gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225013_ '%#if gxc#xform-identity)) + (hash-put! _tbl116823_ '%#if gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225013_ '%#ref gxc#xform-identity)) + (hash-put! _tbl116823_ '%#ref gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225013_ '%#set! gxc#xform-identity)) + (hash-put! _tbl116823_ '%#set! gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225013_ '%#struct-instance? gxc#xform-identity)) + (hash-put! _tbl116823_ '%#struct-instance? gxc#xform-identity)) (let () (declare (not safe)) - (table-set! - _tbl225013_ + (hash-put! + _tbl116823_ '%#struct-direct-instance? gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225013_ '%#struct-ref gxc#xform-identity)) + (hash-put! _tbl116823_ '%#struct-ref gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225013_ '%#struct-set! gxc#xform-identity)) + (hash-put! _tbl116823_ '%#struct-set! gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225013_ '%#struct-direct-ref gxc#xform-identity)) + (hash-put! _tbl116823_ '%#struct-direct-ref gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225013_ '%#struct-direct-set! gxc#xform-identity)) + (hash-put! _tbl116823_ '%#struct-direct-set! gxc#xform-identity)) (let () (declare (not safe)) - (table-set! - _tbl225013_ + (hash-put! + _tbl116823_ '%#struct-unchecked-ref gxc#xform-identity)) (let () (declare (not safe)) - (table-set! - _tbl225013_ + (hash-put! + _tbl116823_ '%#struct-unchecked-set! gxc#xform-identity)) - _tbl225013_)))) + _tbl116823_)))) (define gxc#&identity-special-form (make-promise (lambda () - (let ((_tbl225009_ - (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((_tbl116819_ + (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (table-set! _tbl225009_ '%#begin gxc#xform-identity)) + (hash-put! _tbl116819_ '%#begin gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225009_ '%#begin-syntax gxc#xform-identity)) + (hash-put! _tbl116819_ '%#begin-syntax gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225009_ '%#begin-foreign gxc#xform-identity)) + (hash-put! _tbl116819_ '%#begin-foreign gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225009_ '%#module gxc#xform-identity)) + (hash-put! _tbl116819_ '%#module gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225009_ '%#import gxc#xform-identity)) + (hash-put! _tbl116819_ '%#import gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225009_ '%#export gxc#xform-identity)) + (hash-put! _tbl116819_ '%#export gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225009_ '%#provide gxc#xform-identity)) + (hash-put! _tbl116819_ '%#provide gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225009_ '%#extern gxc#xform-identity)) + (hash-put! _tbl116819_ '%#extern gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225009_ '%#define-values gxc#xform-identity)) + (hash-put! _tbl116819_ '%#define-values gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225009_ '%#define-syntax gxc#xform-identity)) + (hash-put! _tbl116819_ '%#define-syntax gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225009_ '%#define-alias gxc#xform-identity)) + (hash-put! _tbl116819_ '%#define-alias gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225009_ '%#declare gxc#xform-identity)) - _tbl225009_)))) + (hash-put! _tbl116819_ '%#declare gxc#xform-identity)) + _tbl116819_)))) (define gxc#&identity (make-promise (lambda () - (let ((_tbl225005_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp229827 (force gxc#&identity-special-form))) + (let ((_tbl116815_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp117069 (force gxc#&identity-special-form))) (declare (not safe)) - (hash-copy! _tbl225005_ __tmp229827)) - (let ((__tmp229828 (force gxc#&identity-expression))) + (hash-merge! _tbl116815_ __tmp117069)) + (let ((__tmp117070 (force gxc#&identity-expression))) (declare (not safe)) - (hash-copy! _tbl225005_ __tmp229828)) - _tbl225005_)))) + (hash-merge! _tbl116815_ __tmp117070)) + _tbl116815_)))) (define gxc#&basic-xform-expression (make-promise (lambda () - (let ((_tbl225001_ - (let () (declare (not safe)) (make-table 'test: eq?)))) + (let ((_tbl116811_ + (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (table-set! - _tbl225001_ + (hash-put! + _tbl116811_ '%#begin-annotation gxc#xform-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl225001_ '%#lambda gxc#xform-lambda%)) + (hash-put! _tbl116811_ '%#lambda gxc#xform-lambda%)) (let () (declare (not safe)) - (table-set! _tbl225001_ '%#case-lambda gxc#xform-case-lambda%)) + (hash-put! _tbl116811_ '%#case-lambda gxc#xform-case-lambda%)) (let () (declare (not safe)) - (table-set! _tbl225001_ '%#let-values gxc#xform-let-values%)) + (hash-put! _tbl116811_ '%#let-values gxc#xform-let-values%)) (let () (declare (not safe)) - (table-set! _tbl225001_ '%#letrec-values gxc#xform-let-values%)) + (hash-put! _tbl116811_ '%#letrec-values gxc#xform-let-values%)) (let () (declare (not safe)) - (table-set! _tbl225001_ '%#letrec*-values gxc#xform-let-values%)) + (hash-put! _tbl116811_ '%#letrec*-values gxc#xform-let-values%)) (let () (declare (not safe)) - (table-set! _tbl225001_ '%#quote gxc#xform-identity)) + (hash-put! _tbl116811_ '%#quote gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225001_ '%#quote-syntax gxc#xform-identity)) + (hash-put! _tbl116811_ '%#quote-syntax gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225001_ '%#call gxc#xform-operands)) + (hash-put! _tbl116811_ '%#call gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl225001_ '%#call-unchecked gxc#xform-operands)) + (hash-put! _tbl116811_ '%#call-unchecked gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl225001_ '%#if gxc#xform-operands)) + (hash-put! _tbl116811_ '%#if gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl225001_ '%#ref gxc#xform-identity)) + (hash-put! _tbl116811_ '%#ref gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl225001_ '%#set! gxc#xform-setq%)) + (hash-put! _tbl116811_ '%#set! gxc#xform-setq%)) (let () (declare (not safe)) - (table-set! _tbl225001_ '%#struct-instance? gxc#xform-operands)) + (hash-put! _tbl116811_ '%#struct-instance? gxc#xform-operands)) (let () (declare (not safe)) - (table-set! - _tbl225001_ + (hash-put! + _tbl116811_ '%#struct-direct-instance? gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl225001_ '%#struct-ref gxc#xform-operands)) + (hash-put! _tbl116811_ '%#struct-ref gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl225001_ '%#struct-set! gxc#xform-operands)) + (hash-put! _tbl116811_ '%#struct-set! gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl225001_ '%#struct-direct-ref gxc#xform-operands)) + (hash-put! _tbl116811_ '%#struct-direct-ref gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl225001_ '%#struct-direct-set! gxc#xform-operands)) + (hash-put! _tbl116811_ '%#struct-direct-set! gxc#xform-operands)) (let () (declare (not safe)) - (table-set! - _tbl225001_ + (hash-put! + _tbl116811_ '%#struct-unchecked-ref gxc#xform-operands)) (let () (declare (not safe)) - (table-set! - _tbl225001_ + (hash-put! + _tbl116811_ '%#struct-unchecked-set! gxc#xform-operands)) - _tbl225001_)))) + _tbl116811_)))) (define gxc#&basic-xform (make-promise (lambda () - (let ((_tbl224997_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp229829 (force gxc#&basic-xform-expression))) + (let ((_tbl116807_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp117071 (force gxc#&basic-xform-expression))) (declare (not safe)) - (hash-copy! _tbl224997_ __tmp229829)) - (let ((__tmp229830 (force gxc#&identity))) + (hash-merge! _tbl116807_ __tmp117071)) + (let ((__tmp117072 (force gxc#&identity))) (declare (not safe)) - (hash-copy! _tbl224997_ __tmp229830)) + (hash-merge! _tbl116807_ __tmp117072)) (let () (declare (not safe)) - (table-set! _tbl224997_ '%#begin gxc#xform-begin%)) + (hash-put! _tbl116807_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (table-set! _tbl224997_ '%#begin-syntax gxc#xform-begin-syntax%)) + (hash-put! _tbl116807_ '%#begin-syntax gxc#xform-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl224997_ '%#module gxc#xform-module%)) + (hash-put! _tbl116807_ '%#module gxc#xform-module%)) (let () (declare (not safe)) - (table-set! - _tbl224997_ - '%#define-values - gxc#xform-define-values%)) + (hash-put! _tbl116807_ '%#define-values gxc#xform-define-values%)) (let () (declare (not safe)) - (table-set! - _tbl224997_ - '%#define-syntax - gxc#xform-define-syntax%)) - _tbl224997_)))) + (hash-put! _tbl116807_ '%#define-syntax gxc#xform-define-syntax%)) + _tbl116807_)))) (define gxc#&collect-mutators (make-promise (lambda () - (let ((_tbl224993_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp229831 (force gxc#&void))) + (let ((_tbl116803_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp117073 (force gxc#&void))) (declare (not safe)) - (hash-copy! _tbl224993_ __tmp229831)) + (hash-merge! _tbl116803_ __tmp117073)) (let () (declare (not safe)) - (table-set! _tbl224993_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl116803_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (table-set! - _tbl224993_ - '%#begin-syntax - gxc#collect-begin-syntax%)) + (hash-put! _tbl116803_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (table-set! - _tbl224993_ + (hash-put! + _tbl116803_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl224993_ '%#module gxc#collect-module%)) + (hash-put! _tbl116803_ '%#module gxc#collect-module%)) (let () (declare (not safe)) - (table-set! - _tbl224993_ + (hash-put! + _tbl116803_ '%#define-values gxc#collect-define-values%)) (let () (declare (not safe)) - (table-set! - _tbl224993_ + (hash-put! + _tbl116803_ '%#define-syntax gxc#collect-define-syntax%)) (let () (declare (not safe)) - (table-set! _tbl224993_ '%#lambda gxc#collect-body-lambda%)) + (hash-put! _tbl116803_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) - (table-set! - _tbl224993_ + (hash-put! + _tbl116803_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) - (table-set! - _tbl224993_ + (hash-put! + _tbl116803_ '%#let-values gxc#collect-body-let-values%)) (let () (declare (not safe)) - (table-set! - _tbl224993_ + (hash-put! + _tbl116803_ '%#letrec-values gxc#collect-body-let-values%)) (let () (declare (not safe)) - (table-set! - _tbl224993_ + (hash-put! + _tbl116803_ '%#letrec*-values gxc#collect-body-let-values%)) (let () (declare (not safe)) - (table-set! _tbl224993_ '%#call gxc#collect-operands)) + (hash-put! _tbl116803_ '%#call gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl224993_ '%#call-unchecked gxc#collect-operands)) + (hash-put! _tbl116803_ '%#call-unchecked gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl224993_ '%#if gxc#collect-operands)) + (hash-put! _tbl116803_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl224993_ '%#set! gxc#collect-mutators-setq%)) + (hash-put! _tbl116803_ '%#set! gxc#collect-mutators-setq%)) (let () (declare (not safe)) - (table-set! _tbl224993_ '%#struct-instance? gxc#collect-operands)) + (hash-put! _tbl116803_ '%#struct-instance? gxc#collect-operands)) (let () (declare (not safe)) - (table-set! - _tbl224993_ + (hash-put! + _tbl116803_ '%#struct-direct-instance? gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl224993_ '%#struct-ref gxc#collect-operands)) + (hash-put! _tbl116803_ '%#struct-ref gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl224993_ '%#struct-set! gxc#collect-operands)) + (hash-put! _tbl116803_ '%#struct-set! gxc#collect-operands)) (let () (declare (not safe)) - (table-set! - _tbl224993_ - '%#struct-direct-ref - gxc#collect-operands)) + (hash-put! _tbl116803_ '%#struct-direct-ref gxc#collect-operands)) (let () (declare (not safe)) - (table-set! - _tbl224993_ + (hash-put! + _tbl116803_ '%#struct-direct-set! gxc#collect-operands)) (let () (declare (not safe)) - (table-set! - _tbl224993_ + (hash-put! + _tbl116803_ '%#struct-unchecked-ref gxc#collect-operands)) (let () (declare (not safe)) - (table-set! - _tbl224993_ + (hash-put! + _tbl116803_ '%#struct-unchecked-set! gxc#collect-operands)) - _tbl224993_)))) + _tbl116803_)))) (define gxc#apply-collect-mutators - (lambda (_stx224976_ . _args224978_) - (let ((__tmp229833 + (lambda (_stx116786_ . _args116788_) + (let ((__tmp117075 (lambda () (declare (not safe)) - (if (null? _args224978_) - (gxc#compile-e__0 _stx224976_) - (let ((_arg1224983_ (car _args224978_)) - (_rest224985_ (cdr _args224978_))) - (if (null? _rest224985_) - (gxc#compile-e__1 _stx224976_ _arg1224983_) - (let ((_arg2224988_ (car _rest224985_)) - (_rest224990_ (cdr _rest224985_))) - (if (null? _rest224990_) + (if (null? _args116788_) + (gxc#compile-e__0 _stx116786_) + (let ((_arg1116793_ (car _args116788_)) + (_rest116795_ (cdr _args116788_))) + (if (null? _rest116795_) + (gxc#compile-e__1 _stx116786_ _arg1116793_) + (let ((_arg2116798_ (car _rest116795_)) + (_rest116800_ (cdr _rest116795_))) + (if (null? _rest116800_) (gxc#compile-e__2 - _stx224976_ - _arg1224983_ - _arg2224988_) + _stx116786_ + _arg1116793_ + _arg2116798_) (apply gxc#compile-e - _stx224976_ - _arg1224983_ - _arg2224988_ - _rest224990_)))))))) - (__tmp229832 (force gxc#&collect-mutators))) + _stx116786_ + _arg1116793_ + _arg2116798_ + _rest116800_)))))))) + (__tmp117074 (force gxc#&collect-mutators))) (declare (not safe)) (call-with-parameters - __tmp229833 + __tmp117075 gxc#current-compile-methods - __tmp229832)))) + __tmp117074)))) (define gxc#&collect-methods (make-promise (lambda () - (let ((_tbl224973_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp229834 (force gxc#&void))) + (let ((_tbl116783_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp117076 (force gxc#&void))) (declare (not safe)) - (hash-copy! _tbl224973_ __tmp229834)) + (hash-merge! _tbl116783_ __tmp117076)) (let () (declare (not safe)) - (table-set! _tbl224973_ '%#begin gxc#collect-begin%)) + (hash-put! _tbl116783_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (table-set! - _tbl224973_ - '%#begin-syntax - gxc#collect-begin-syntax%)) + (hash-put! _tbl116783_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl224973_ '%#module gxc#collect-module%)) + (hash-put! _tbl116783_ '%#module gxc#collect-module%)) (let () (declare (not safe)) - (table-set! _tbl224973_ '%#call gxc#collect-methods-call%)) + (hash-put! _tbl116783_ '%#call gxc#collect-methods-call%)) (let () (declare (not safe)) - (table-set! - _tbl224973_ + (hash-put! + _tbl116783_ '%#call-unchecked gxc#collect-methods-call%)) - _tbl224973_)))) + _tbl116783_)))) (define gxc#apply-collect-methods - (lambda (_stx224956_ . _args224958_) - (let ((__tmp229836 + (lambda (_stx116766_ . _args116768_) + (let ((__tmp117078 (lambda () (declare (not safe)) - (if (null? _args224958_) - (gxc#compile-e__0 _stx224956_) - (let ((_arg1224963_ (car _args224958_)) - (_rest224965_ (cdr _args224958_))) - (if (null? _rest224965_) - (gxc#compile-e__1 _stx224956_ _arg1224963_) - (let ((_arg2224968_ (car _rest224965_)) - (_rest224970_ (cdr _rest224965_))) - (if (null? _rest224970_) + (if (null? _args116768_) + (gxc#compile-e__0 _stx116766_) + (let ((_arg1116773_ (car _args116768_)) + (_rest116775_ (cdr _args116768_))) + (if (null? _rest116775_) + (gxc#compile-e__1 _stx116766_ _arg1116773_) + (let ((_arg2116778_ (car _rest116775_)) + (_rest116780_ (cdr _rest116775_))) + (if (null? _rest116780_) (gxc#compile-e__2 - _stx224956_ - _arg1224963_ - _arg2224968_) + _stx116766_ + _arg1116773_ + _arg2116778_) (apply gxc#compile-e - _stx224956_ - _arg1224963_ - _arg2224968_ - _rest224970_)))))))) - (__tmp229835 (force gxc#&collect-methods))) + _stx116766_ + _arg1116773_ + _arg2116778_ + _rest116780_)))))))) + (__tmp117077 (force gxc#&collect-methods))) (declare (not safe)) (call-with-parameters - __tmp229836 + __tmp117078 gxc#current-compile-methods - __tmp229835)))) + __tmp117077)))) (define gxc#&expression-subst (make-promise (lambda () - (let ((_tbl224953_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp229837 (force gxc#&basic-xform-expression))) + (let ((_tbl116763_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp117079 (force gxc#&basic-xform-expression))) (declare (not safe)) - (hash-copy! _tbl224953_ __tmp229837)) + (hash-merge! _tbl116763_ __tmp117079)) (let () (declare (not safe)) - (table-set! _tbl224953_ '%#begin gxc#xform-begin%)) + (hash-put! _tbl116763_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (table-set! _tbl224953_ '%#ref gxc#expression-subst-ref%)) + (hash-put! _tbl116763_ '%#ref gxc#expression-subst-ref%)) (let () (declare (not safe)) - (table-set! _tbl224953_ '%#set! gxc#expression-subst-setq%)) - _tbl224953_)))) + (hash-put! _tbl116763_ '%#set! gxc#expression-subst-setq%)) + _tbl116763_)))) (define gxc#apply-expression-subst - (lambda (_stx224936_ . _args224938_) - (let ((__tmp229839 + (lambda (_stx116746_ . _args116748_) + (let ((__tmp117081 (lambda () (declare (not safe)) - (if (null? _args224938_) - (gxc#compile-e__0 _stx224936_) - (let ((_arg1224943_ (car _args224938_)) - (_rest224945_ (cdr _args224938_))) - (if (null? _rest224945_) - (gxc#compile-e__1 _stx224936_ _arg1224943_) - (let ((_arg2224948_ (car _rest224945_)) - (_rest224950_ (cdr _rest224945_))) - (if (null? _rest224950_) + (if (null? _args116748_) + (gxc#compile-e__0 _stx116746_) + (let ((_arg1116753_ (car _args116748_)) + (_rest116755_ (cdr _args116748_))) + (if (null? _rest116755_) + (gxc#compile-e__1 _stx116746_ _arg1116753_) + (let ((_arg2116758_ (car _rest116755_)) + (_rest116760_ (cdr _rest116755_))) + (if (null? _rest116760_) (gxc#compile-e__2 - _stx224936_ - _arg1224943_ - _arg2224948_) + _stx116746_ + _arg1116753_ + _arg2116758_) (apply gxc#compile-e - _stx224936_ - _arg1224943_ - _arg2224948_ - _rest224950_)))))))) - (__tmp229838 (force gxc#&expression-subst))) + _stx116746_ + _arg1116753_ + _arg2116758_ + _rest116760_)))))))) + (__tmp117080 (force gxc#&expression-subst))) (declare (not safe)) (call-with-parameters - __tmp229839 + __tmp117081 gxc#current-compile-methods - __tmp229838)))) + __tmp117080)))) (define gxc#&expression-subst* (make-promise (lambda () - (let ((_tbl224933_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp229840 (force gxc#&expression-subst))) + (let ((_tbl116743_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp117082 (force gxc#&expression-subst))) (declare (not safe)) - (hash-copy! _tbl224933_ __tmp229840)) + (hash-merge! _tbl116743_ __tmp117082)) (let () (declare (not safe)) - (table-set! _tbl224933_ '%#ref gxc#expression-subst*-ref%)) + (hash-put! _tbl116743_ '%#ref gxc#expression-subst*-ref%)) (let () (declare (not safe)) - (table-set! _tbl224933_ '%#set! gxc#expression-subst*-setq%)) - _tbl224933_)))) + (hash-put! _tbl116743_ '%#set! gxc#expression-subst*-setq%)) + _tbl116743_)))) (define gxc#apply-expression-subst* - (lambda (_stx224916_ . _args224918_) - (let ((__tmp229842 + (lambda (_stx116726_ . _args116728_) + (let ((__tmp117084 (lambda () (declare (not safe)) - (if (null? _args224918_) - (gxc#compile-e__0 _stx224916_) - (let ((_arg1224923_ (car _args224918_)) - (_rest224925_ (cdr _args224918_))) - (if (null? _rest224925_) - (gxc#compile-e__1 _stx224916_ _arg1224923_) - (let ((_arg2224928_ (car _rest224925_)) - (_rest224930_ (cdr _rest224925_))) - (if (null? _rest224930_) + (if (null? _args116728_) + (gxc#compile-e__0 _stx116726_) + (let ((_arg1116733_ (car _args116728_)) + (_rest116735_ (cdr _args116728_))) + (if (null? _rest116735_) + (gxc#compile-e__1 _stx116726_ _arg1116733_) + (let ((_arg2116738_ (car _rest116735_)) + (_rest116740_ (cdr _rest116735_))) + (if (null? _rest116740_) (gxc#compile-e__2 - _stx224916_ - _arg1224923_ - _arg2224928_) + _stx116726_ + _arg1116733_ + _arg2116738_) (apply gxc#compile-e - _stx224916_ - _arg1224923_ - _arg2224928_ - _rest224930_)))))))) - (__tmp229841 (force gxc#&expression-subst*))) + _stx116726_ + _arg1116733_ + _arg2116738_ + _rest116740_)))))))) + (__tmp117083 (force gxc#&expression-subst*))) (declare (not safe)) (call-with-parameters - __tmp229842 + __tmp117084 gxc#current-compile-methods - __tmp229841)))) + __tmp117083)))) (define gxc#&find-expression (make-promise (lambda () - (let ((_tbl224913_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp229843 (force gxc#&false-expression))) + (let ((_tbl116723_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp117085 (force gxc#&false-expression))) (declare (not safe)) - (hash-copy! _tbl224913_ __tmp229843)) + (hash-merge! _tbl116723_ __tmp117085)) (let () (declare (not safe)) - (table-set! _tbl224913_ '%#begin gxc#find-body%)) + (hash-put! _tbl116723_ '%#begin gxc#find-body%)) (let () (declare (not safe)) - (table-set! - _tbl224913_ + (hash-put! + _tbl116723_ '%#begin-annotation gxc#find-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl224913_ '%#lambda gxc#find-lambda%)) + (hash-put! _tbl116723_ '%#lambda gxc#find-lambda%)) (let () (declare (not safe)) - (table-set! _tbl224913_ '%#case-lambda gxc#find-case-lambda%)) + (hash-put! _tbl116723_ '%#case-lambda gxc#find-case-lambda%)) (let () (declare (not safe)) - (table-set! _tbl224913_ '%#let-values gxc#find-let-values%)) + (hash-put! _tbl116723_ '%#let-values gxc#find-let-values%)) (let () (declare (not safe)) - (table-set! _tbl224913_ '%#letrec-values gxc#find-let-values%)) + (hash-put! _tbl116723_ '%#letrec-values gxc#find-let-values%)) (let () (declare (not safe)) - (table-set! _tbl224913_ '%#letrec*-values gxc#find-let-values%)) + (hash-put! _tbl116723_ '%#letrec*-values gxc#find-let-values%)) (let () (declare (not safe)) - (table-set! _tbl224913_ '%#call gxc#find-body%)) + (hash-put! _tbl116723_ '%#call gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl224913_ '%#call-unchecked gxc#find-body%)) + (hash-put! _tbl116723_ '%#call-unchecked gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl224913_ '%#if gxc#find-body%)) + (hash-put! _tbl116723_ '%#if gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl224913_ '%#set! gxc#find-setq%)) + (hash-put! _tbl116723_ '%#set! gxc#find-setq%)) (let () (declare (not safe)) - (table-set! _tbl224913_ '%#struct-instance? gxc#find-body%)) + (hash-put! _tbl116723_ '%#struct-instance? gxc#find-body%)) (let () (declare (not safe)) - (table-set! - _tbl224913_ - '%#struct-direct-instance? - gxc#find-body%)) + (hash-put! _tbl116723_ '%#struct-direct-instance? gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl224913_ '%#struct-ref gxc#find-body%)) + (hash-put! _tbl116723_ '%#struct-ref gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl224913_ '%#struct-set! gxc#find-body%)) + (hash-put! _tbl116723_ '%#struct-set! gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl224913_ '%#struct-direct-ref gxc#find-body%)) + (hash-put! _tbl116723_ '%#struct-direct-ref gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl224913_ '%#struct-direct-set! gxc#find-body%)) + (hash-put! _tbl116723_ '%#struct-direct-set! gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl224913_ '%#struct-unchecked-ref gxc#find-body%)) + (hash-put! _tbl116723_ '%#struct-unchecked-ref gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl224913_ '%#struct-unchecked-set! gxc#find-body%)) - _tbl224913_)))) + (hash-put! _tbl116723_ '%#struct-unchecked-set! gxc#find-body%)) + _tbl116723_)))) (define gxc#&find-var-refs (make-promise (lambda () - (let ((_tbl224909_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp229844 (force gxc#&find-expression))) + (let ((_tbl116719_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp117086 (force gxc#&find-expression))) (declare (not safe)) - (hash-copy! _tbl224909_ __tmp229844)) + (hash-merge! _tbl116719_ __tmp117086)) (let () (declare (not safe)) - (table-set! _tbl224909_ '%#ref gxc#find-var-refs-ref%)) + (hash-put! _tbl116719_ '%#ref gxc#find-var-refs-ref%)) (let () (declare (not safe)) - (table-set! _tbl224909_ '%#set! gxc#find-var-refs-setq%)) - _tbl224909_)))) + (hash-put! _tbl116719_ '%#set! gxc#find-var-refs-setq%)) + _tbl116719_)))) (define gxc#apply-find-var-refs - (lambda (_stx224892_ . _args224894_) - (let ((__tmp229846 + (lambda (_stx116702_ . _args116704_) + (let ((__tmp117088 (lambda () (declare (not safe)) - (if (null? _args224894_) - (gxc#compile-e__0 _stx224892_) - (let ((_arg1224899_ (car _args224894_)) - (_rest224901_ (cdr _args224894_))) - (if (null? _rest224901_) - (gxc#compile-e__1 _stx224892_ _arg1224899_) - (let ((_arg2224904_ (car _rest224901_)) - (_rest224906_ (cdr _rest224901_))) - (if (null? _rest224906_) + (if (null? _args116704_) + (gxc#compile-e__0 _stx116702_) + (let ((_arg1116709_ (car _args116704_)) + (_rest116711_ (cdr _args116704_))) + (if (null? _rest116711_) + (gxc#compile-e__1 _stx116702_ _arg1116709_) + (let ((_arg2116714_ (car _rest116711_)) + (_rest116716_ (cdr _rest116711_))) + (if (null? _rest116716_) (gxc#compile-e__2 - _stx224892_ - _arg1224899_ - _arg2224904_) + _stx116702_ + _arg1116709_ + _arg2116714_) (apply gxc#compile-e - _stx224892_ - _arg1224899_ - _arg2224904_ - _rest224906_)))))))) - (__tmp229845 (force gxc#&find-var-refs))) + _stx116702_ + _arg1116709_ + _arg2116714_ + _rest116716_)))))))) + (__tmp117087 (force gxc#&find-var-refs))) (declare (not safe)) (call-with-parameters - __tmp229846 + __tmp117088 gxc#current-compile-methods - __tmp229845)))) + __tmp117087)))) (define gxc#&collect-runtime-refs (make-promise (lambda () - (let ((_tbl224889_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp229847 (force gxc#&collect-expression-refs))) + (let ((_tbl116699_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp117089 (force gxc#&collect-expression-refs))) (declare (not safe)) - (hash-copy! _tbl224889_ __tmp229847)) + (hash-merge! _tbl116699_ __tmp117089)) (let () (declare (not safe)) - (table-set! _tbl224889_ '%#ref gxc#collect-runtime-refs-ref%)) + (hash-put! _tbl116699_ '%#ref gxc#collect-runtime-refs-ref%)) (let () (declare (not safe)) - (table-set! _tbl224889_ '%#set! gxc#collect-runtime-refs-setq%)) - _tbl224889_)))) + (hash-put! _tbl116699_ '%#set! gxc#collect-runtime-refs-setq%)) + _tbl116699_)))) (define gxc#apply-collect-runtime-refs - (lambda (_stx224872_ . _args224874_) - (let ((__tmp229849 + (lambda (_stx116682_ . _args116684_) + (let ((__tmp117091 (lambda () (declare (not safe)) - (if (null? _args224874_) - (gxc#compile-e__0 _stx224872_) - (let ((_arg1224879_ (car _args224874_)) - (_rest224881_ (cdr _args224874_))) - (if (null? _rest224881_) - (gxc#compile-e__1 _stx224872_ _arg1224879_) - (let ((_arg2224884_ (car _rest224881_)) - (_rest224886_ (cdr _rest224881_))) - (if (null? _rest224886_) + (if (null? _args116684_) + (gxc#compile-e__0 _stx116682_) + (let ((_arg1116689_ (car _args116684_)) + (_rest116691_ (cdr _args116684_))) + (if (null? _rest116691_) + (gxc#compile-e__1 _stx116682_ _arg1116689_) + (let ((_arg2116694_ (car _rest116691_)) + (_rest116696_ (cdr _rest116691_))) + (if (null? _rest116696_) (gxc#compile-e__2 - _stx224872_ - _arg1224879_ - _arg2224884_) + _stx116682_ + _arg1116689_ + _arg2116694_) (apply gxc#compile-e - _stx224872_ - _arg1224879_ - _arg2224884_ - _rest224886_)))))))) - (__tmp229848 (force gxc#&collect-runtime-refs))) + _stx116682_ + _arg1116689_ + _arg2116694_ + _rest116696_)))))))) + (__tmp117090 (force gxc#&collect-runtime-refs))) (declare (not safe)) (call-with-parameters - __tmp229849 + __tmp117091 gxc#current-compile-methods - __tmp229848)))) + __tmp117090)))) (define gxc#xform-identity - (lambda (_stx224869_ . _args224870_) _stx224869_)) + (lambda (_stx116679_ . _args116680_) _stx116679_)) (define gxc#xform-wrap-source - (lambda (_stx224866_ _src-stx224867_) - (let ((__tmp229850 - (let () (declare (not safe)) (gx#stx-source _src-stx224867_)))) + (lambda (_stx116676_ _src-stx116677_) + (let ((__tmp117092 + (let () (declare (not safe)) (gx#stx-source _src-stx116677_)))) (declare (not safe)) - (gx#stx-wrap-source _stx224866_ __tmp229850)))) + (gx#stx-wrap-source _stx116676_ __tmp117092)))) (define gxc#xform-apply-compile-e - (lambda (_args224853_) - (lambda (_stx224855_) - (if (let () (declare (not safe)) (null? _args224853_)) - (let () (declare (not safe)) (gxc#compile-e__0 _stx224855_)) - (let ((_arg1224857_ (car _args224853_)) - (_rest224859_ (cdr _args224853_))) - (if (let () (declare (not safe)) (null? _rest224859_)) + (lambda (_args116663_) + (lambda (_stx116665_) + (if (let () (declare (not safe)) (null? _args116663_)) + (let () (declare (not safe)) (gxc#compile-e__0 _stx116665_)) + (let ((_arg1116667_ (car _args116663_)) + (_rest116669_ (cdr _args116663_))) + (if (let () (declare (not safe)) (null? _rest116669_)) (let () (declare (not safe)) - (gxc#compile-e__1 _stx224855_ _arg1224857_)) - (let ((_arg2224862_ (car _rest224859_)) - (_rest224864_ (cdr _rest224859_))) - (if (let () (declare (not safe)) (null? _rest224864_)) + (gxc#compile-e__1 _stx116665_ _arg1116667_)) + (let ((_arg2116672_ (car _rest116669_)) + (_rest116674_ (cdr _rest116669_))) + (if (let () (declare (not safe)) (null? _rest116674_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx224855_ - _arg1224857_ - _arg2224862_)) + _stx116665_ + _arg1116667_ + _arg2116672_)) (apply gxc#compile-e - _stx224855_ - _arg1224857_ - _arg2224862_ - _rest224864_))))))))) + _stx116665_ + _arg1116667_ + _arg2116672_ + _rest116674_))))))))) (define gxc#xform-begin% - (lambda (_stx224812_ . _args224813_) - (let* ((_g224815224825_ - (lambda (_g224816224822_) + (lambda (_stx116622_ . _args116623_) + (let* ((_g116625116635_ + (lambda (_g116626116632_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g224816224822_)))) - (_g224814224850_ - (lambda (_g224816224828_) + _g116626116632_)))) + (_g116624116660_ + (lambda (_g116626116638_) (if (let () (declare (not safe)) - (gx#stx-pair? _g224816224828_)) - (let ((_e224820224830_ + (gx#stx-pair? _g116626116638_)) + (let ((_e116630116640_ (let () (declare (not safe)) - (gx#stx-e _g224816224828_)))) - (let ((_hd224819224833_ + (gx#stx-e _g116626116638_)))) + (let ((_hd116629116643_ (let () (declare (not safe)) - (##car _e224820224830_))) - (_tl224818224835_ + (##car _e116630116640_))) + (_tl116628116645_ (let () (declare (not safe)) - (##cdr _e224820224830_)))) - ((lambda (_L224838_) - (let* ((_forms224848_ + (##cdr _e116630116640_)))) + ((lambda (_L116648_) + (let* ((_forms116658_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args224813_)) - _L224838_)) - (__tmp229851 + _args116623_)) + _L116648_)) + (__tmp117093 (let () (declare (not safe)) - (cons '%#begin _forms224848_)))) + (cons '%#begin _forms116658_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp229851 - _stx224812_))) - _tl224818224835_))) + __tmp117093 + _stx116622_))) + _tl116628116645_))) (let () (declare (not safe)) - (_g224815224825_ _g224816224828_)))))) + (_g116625116635_ _g116626116638_)))))) (declare (not safe)) - (_g224814224850_ _stx224812_)))) + (_g116624116660_ _stx116622_)))) (define gxc#xform-begin-syntax% - (lambda (_stx224770_ . _args224771_) - (let* ((_g224773224783_ - (lambda (_g224774224780_) + (lambda (_stx116580_ . _args116581_) + (let* ((_g116583116593_ + (lambda (_g116584116590_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g224774224780_)))) - (_g224772224809_ - (lambda (_g224774224786_) + _g116584116590_)))) + (_g116582116619_ + (lambda (_g116584116596_) (if (let () (declare (not safe)) - (gx#stx-pair? _g224774224786_)) - (let ((_e224778224788_ + (gx#stx-pair? _g116584116596_)) + (let ((_e116588116598_ (let () (declare (not safe)) - (gx#stx-e _g224774224786_)))) - (let ((_hd224777224791_ + (gx#stx-e _g116584116596_)))) + (let ((_hd116587116601_ (let () (declare (not safe)) - (##car _e224778224788_))) - (_tl224776224793_ + (##car _e116588116598_))) + (_tl116586116603_ (let () (declare (not safe)) - (##cdr _e224778224788_)))) - ((lambda (_L224796_) - (let ((__tmp229854 + (##cdr _e116588116598_)))) + ((lambda (_L116606_) + (let ((__tmp117096 (lambda () - (let* ((_forms224807_ + (let* ((_forms116617_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args224771_)) - _L224796_)) - (__tmp229855 + _args116581_)) + _L116606_)) + (__tmp117097 (let () (declare (not safe)) (cons '%#begin-syntax - _forms224807_)))) + _forms116617_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp229855 - _stx224770_)))) - (__tmp229852 - (let ((__tmp229853 + __tmp117097 + _stx116580_)))) + (__tmp117094 + (let ((__tmp117095 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp229853 '1)))) + (fx+ __tmp117095 '1)))) (declare (not safe)) (call-with-parameters - __tmp229854 + __tmp117096 gx#current-expander-phi - __tmp229852))) - _tl224776224793_))) + __tmp117094))) + _tl116586116603_))) (let () (declare (not safe)) - (_g224773224783_ _g224774224786_)))))) + (_g116583116593_ _g116584116596_)))))) (declare (not safe)) - (_g224772224809_ _stx224770_)))) + (_g116582116619_ _stx116580_)))) (define gxc#xform-module% - (lambda (_stx224698_ . _args224699_) - (let* ((_g224701224715_ - (lambda (_g224702224712_) + (lambda (_stx116508_ . _args116509_) + (let* ((_g116511116525_ + (lambda (_g116512116522_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g224702224712_)))) - (_g224700224767_ - (lambda (_g224702224718_) + _g116512116522_)))) + (_g116510116577_ + (lambda (_g116512116528_) (if (let () (declare (not safe)) - (gx#stx-pair? _g224702224718_)) - (let ((_e224707224720_ + (gx#stx-pair? _g116512116528_)) + (let ((_e116517116530_ (let () (declare (not safe)) - (gx#stx-e _g224702224718_)))) - (let ((_hd224706224723_ + (gx#stx-e _g116512116528_)))) + (let ((_hd116516116533_ (let () (declare (not safe)) - (##car _e224707224720_))) - (_tl224705224725_ + (##car _e116517116530_))) + (_tl116515116535_ (let () (declare (not safe)) - (##cdr _e224707224720_)))) + (##cdr _e116517116530_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224705224725_)) - (let ((_e224710224728_ + (gx#stx-pair? _tl116515116535_)) + (let ((_e116520116538_ (let () (declare (not safe)) - (gx#stx-e _tl224705224725_)))) - (let ((_hd224709224731_ + (gx#stx-e _tl116515116535_)))) + (let ((_hd116519116541_ (let () (declare (not safe)) - (##car _e224710224728_))) - (_tl224708224733_ + (##car _e116520116538_))) + (_tl116518116543_ (let () (declare (not safe)) - (##cdr _e224710224728_)))) - ((lambda (_L224736_ _L224737_) - (let* ((_ctx224750_ + (##cdr _e116520116538_)))) + ((lambda (_L116546_ _L116547_) + (let* ((_ctx116560_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L224737_))) - (_code224752_ + _L116547_))) + (_code116562_ (##structure-ref - _ctx224750_ + _ctx116560_ '11 gx#module-context::t '#f)) - (_code224764_ - (let ((__tmp229856 + (_code116574_ + (let ((__tmp117098 (lambda () (if (let () (declare (not safe)) - (null? _args224699_)) + (null? _args116509_)) (let () (declare (not safe)) (gxc#compile-e__0 - _code224752_)) - (let ((_arg1224755_ + _code116562_)) + (let ((_arg1116565_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _args224699_)) - (_rest224757_ (cdr _args224699_))) - (if (let () (declare (not safe)) (null? _rest224757_)) + (car _args116509_)) + (_rest116567_ (cdr _args116509_))) + (if (let () (declare (not safe)) (null? _rest116567_)) (let () (declare (not safe)) - (gxc#compile-e__1 _code224752_ _arg1224755_)) - (let ((_arg2224760_ (car _rest224757_)) - (_rest224762_ (cdr _rest224757_))) + (gxc#compile-e__1 _code116562_ _arg1116565_)) + (let ((_arg2116570_ (car _rest116567_)) + (_rest116572_ (cdr _rest116567_))) (if (let () (declare (not safe)) - (null? _rest224762_)) + (null? _rest116572_)) (let () (declare (not safe)) (gxc#compile-e__2 - _code224752_ - _arg1224755_ - _arg2224760_)) + _code116562_ + _arg1116565_ + _arg2116570_)) (apply gxc#compile-e - _code224752_ - _arg1224755_ - _arg2224760_ - _rest224762_))))))))) + _code116562_ + _arg1116565_ + _arg2116570_ + _rest116572_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp229856 + __tmp117098 gx#current-expander-context - _ctx224750_)))) + _ctx116560_)))) (##structure-set! - _ctx224750_ - _code224764_ + _ctx116560_ + _code116574_ '11 gx#module-context::t '#f) - (let ((__tmp229857 - (let ((__tmp229858 - (let ((__tmp229859 + (let ((__tmp117099 + (let ((__tmp117100 + (let ((__tmp117101 (let () (declare (not safe)) - (cons _code224764_ + (cons _code116574_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _L224737_ __tmp229859)))) + (cons _L116547_ __tmp117101)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#module __tmp229858)))) + (cons '%#module __tmp117100)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp229857 - _stx224698_)))) - _tl224708224733_ - _hd224709224731_))) + __tmp117099 + _stx116508_)))) + _tl116518116543_ + _hd116519116541_))) (let () (declare (not safe)) - (_g224701224715_ _g224702224718_))))) + (_g116511116525_ _g116512116528_))))) (let () (declare (not safe)) - (_g224701224715_ _g224702224718_)))))) + (_g116511116525_ _g116512116528_)))))) (declare (not safe)) - (_g224700224767_ _stx224698_)))) + (_g116510116577_ _stx116508_)))) (define gxc#xform-define-values% - (lambda (_stx224619_ . _args224620_) - (let* ((_g224622224639_ - (lambda (_g224623224636_) + (lambda (_stx116429_ . _args116430_) + (let* ((_g116432116449_ + (lambda (_g116433116446_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g224623224636_)))) - (_g224621224695_ - (lambda (_g224623224642_) + _g116433116446_)))) + (_g116431116505_ + (lambda (_g116433116452_) (if (let () (declare (not safe)) - (gx#stx-pair? _g224623224642_)) - (let ((_e224628224644_ + (gx#stx-pair? _g116433116452_)) + (let ((_e116438116454_ (let () (declare (not safe)) - (gx#stx-e _g224623224642_)))) - (let ((_hd224627224647_ + (gx#stx-e _g116433116452_)))) + (let ((_hd116437116457_ (let () (declare (not safe)) - (##car _e224628224644_))) - (_tl224626224649_ + (##car _e116438116454_))) + (_tl116436116459_ (let () (declare (not safe)) - (##cdr _e224628224644_)))) + (##cdr _e116438116454_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224626224649_)) - (let ((_e224631224652_ + (gx#stx-pair? _tl116436116459_)) + (let ((_e116441116462_ (let () (declare (not safe)) - (gx#stx-e _tl224626224649_)))) - (let ((_hd224630224655_ + (gx#stx-e _tl116436116459_)))) + (let ((_hd116440116465_ (let () (declare (not safe)) - (##car _e224631224652_))) - (_tl224629224657_ + (##car _e116441116462_))) + (_tl116439116467_ (let () (declare (not safe)) - (##cdr _e224631224652_)))) + (##cdr _e116441116462_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224629224657_)) - (let ((_e224634224660_ + (gx#stx-pair? _tl116439116467_)) + (let ((_e116444116470_ (let () (declare (not safe)) - (gx#stx-e _tl224629224657_)))) - (let ((_hd224633224663_ + (gx#stx-e _tl116439116467_)))) + (let ((_hd116443116473_ (let () (declare (not safe)) - (##car _e224634224660_))) - (_tl224632224665_ + (##car _e116444116470_))) + (_tl116442116475_ (let () (declare (not safe)) - (##cdr _e224634224660_)))) + (##cdr _e116444116470_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl224632224665_)) - ((lambda (_L224668_ _L224669_) - (let* ((_expr224693_ + _tl116442116475_)) + ((lambda (_L116478_ _L116479_) + (let* ((_expr116503_ (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _args224620_)) - (let () (declare (not safe)) (gxc#compile-e__0 _L224668_)) - (let ((_arg1224684_ (car _args224620_)) - (_rest224686_ (cdr _args224620_))) - (if (let () (declare (not safe)) (null? _rest224686_)) + (null? _args116430_)) + (let () (declare (not safe)) (gxc#compile-e__0 _L116478_)) + (let ((_arg1116494_ (car _args116430_)) + (_rest116496_ (cdr _args116430_))) + (if (let () (declare (not safe)) (null? _rest116496_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L224668_ _arg1224684_)) - (let ((_arg2224689_ (car _rest224686_)) - (_rest224691_ (cdr _rest224686_))) + (gxc#compile-e__1 _L116478_ _arg1116494_)) + (let ((_arg2116499_ (car _rest116496_)) + (_rest116501_ (cdr _rest116496_))) (if (let () (declare (not safe)) - (null? _rest224691_)) + (null? _rest116501_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L224668_ - _arg1224684_ - _arg2224689_)) + _L116478_ + _arg1116494_ + _arg2116499_)) (apply gxc#compile-e - _L224668_ - _arg1224684_ - _arg2224689_ - _rest224691_))))))) - (__tmp229860 - (let ((__tmp229861 - (let ((__tmp229862 + _L116478_ + _arg1116494_ + _arg2116499_ + _rest116501_))))))) + (__tmp117102 + (let ((__tmp117103 + (let ((__tmp117104 (let () (declare (not safe)) - (cons _expr224693_ '())))) + (cons _expr116503_ '())))) (declare (not safe)) - (cons _L224669_ __tmp229862)))) + (cons _L116479_ __tmp117104)))) (declare (not safe)) - (cons '%#define-values __tmp229861)))) + (cons '%#define-values __tmp117103)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp229860 - _stx224619_))) - _hd224633224663_ - _hd224630224655_) + __tmp117102 + _stx116429_))) + _hd116443116473_ + _hd116440116465_) (let () (declare (not safe)) - (_g224622224639_ - _g224623224642_))))) + (_g116432116449_ + _g116433116452_))))) (let () (declare (not safe)) - (_g224622224639_ _g224623224642_))))) + (_g116432116449_ _g116433116452_))))) (let () (declare (not safe)) - (_g224622224639_ _g224623224642_))))) + (_g116432116449_ _g116433116452_))))) (let () (declare (not safe)) - (_g224622224639_ _g224623224642_)))))) + (_g116432116449_ _g116433116452_)))))) (declare (not safe)) - (_g224621224695_ _stx224619_)))) + (_g116431116505_ _stx116429_)))) (define gxc#xform-define-syntax% - (lambda (_stx224539_ . _args224540_) - (let* ((_g224542224559_ - (lambda (_g224543224556_) + (lambda (_stx116349_ . _args116350_) + (let* ((_g116352116369_ + (lambda (_g116353116366_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g224543224556_)))) - (_g224541224616_ - (lambda (_g224543224562_) + _g116353116366_)))) + (_g116351116426_ + (lambda (_g116353116372_) (if (let () (declare (not safe)) - (gx#stx-pair? _g224543224562_)) - (let ((_e224548224564_ + (gx#stx-pair? _g116353116372_)) + (let ((_e116358116374_ (let () (declare (not safe)) - (gx#stx-e _g224543224562_)))) - (let ((_hd224547224567_ + (gx#stx-e _g116353116372_)))) + (let ((_hd116357116377_ (let () (declare (not safe)) - (##car _e224548224564_))) - (_tl224546224569_ + (##car _e116358116374_))) + (_tl116356116379_ (let () (declare (not safe)) - (##cdr _e224548224564_)))) + (##cdr _e116358116374_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224546224569_)) - (let ((_e224551224572_ + (gx#stx-pair? _tl116356116379_)) + (let ((_e116361116382_ (let () (declare (not safe)) - (gx#stx-e _tl224546224569_)))) - (let ((_hd224550224575_ + (gx#stx-e _tl116356116379_)))) + (let ((_hd116360116385_ (let () (declare (not safe)) - (##car _e224551224572_))) - (_tl224549224577_ + (##car _e116361116382_))) + (_tl116359116387_ (let () (declare (not safe)) - (##cdr _e224551224572_)))) + (##cdr _e116361116382_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224549224577_)) - (let ((_e224554224580_ + (gx#stx-pair? _tl116359116387_)) + (let ((_e116364116390_ (let () (declare (not safe)) - (gx#stx-e _tl224549224577_)))) - (let ((_hd224553224583_ + (gx#stx-e _tl116359116387_)))) + (let ((_hd116363116393_ (let () (declare (not safe)) - (##car _e224554224580_))) - (_tl224552224585_ + (##car _e116364116390_))) + (_tl116362116395_ (let () (declare (not safe)) - (##cdr _e224554224580_)))) + (##cdr _e116364116390_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl224552224585_)) - ((lambda (_L224588_ _L224589_) - (let ((__tmp229865 + _tl116362116395_)) + ((lambda (_L116398_ _L116399_) + (let ((__tmp117107 (lambda () - (let* ((_expr224614_ + (let* ((_expr116424_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) - (null? _args224540_)) + (null? _args116350_)) (let () (declare (not safe)) - (gxc#compile-e__0 _L224588_)) - (let ((_arg1224605_ (car _args224540_)) - (_rest224607_ (cdr _args224540_))) + (gxc#compile-e__0 _L116398_)) + (let ((_arg1116415_ (car _args116350_)) + (_rest116417_ (cdr _args116350_))) (if (let () (declare (not safe)) - (null? _rest224607_)) + (null? _rest116417_)) (let () (declare (not safe)) (gxc#compile-e__1 - _L224588_ - _arg1224605_)) - (let ((_arg2224610_ (car _rest224607_)) - (_rest224612_ (cdr _rest224607_))) + _L116398_ + _arg1116415_)) + (let ((_arg2116420_ (car _rest116417_)) + (_rest116422_ (cdr _rest116417_))) (if (let () (declare (not safe)) - (null? _rest224612_)) + (null? _rest116422_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L224588_ - _arg1224605_ - _arg2224610_)) + _L116398_ + _arg1116415_ + _arg2116420_)) (apply gxc#compile-e - _L224588_ - _arg1224605_ - _arg2224610_ - _rest224612_))))))) - (__tmp229866 - (let ((__tmp229867 - (let ((__tmp229868 + _L116398_ + _arg1116415_ + _arg2116420_ + _rest116422_))))))) + (__tmp117108 + (let ((__tmp117109 + (let ((__tmp117110 (let () (declare (not safe)) - (cons _expr224614_ '())))) + (cons _expr116424_ '())))) (declare (not safe)) - (cons _L224589_ __tmp229868)))) + (cons _L116399_ __tmp117110)))) (declare (not safe)) - (cons '%#define-syntax __tmp229867)))) + (cons '%#define-syntax __tmp117109)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp229866 _stx224539_)))) - (__tmp229863 - (let ((__tmp229864 (gx#current-expander-phi))) + (gxc#xform-wrap-source __tmp117108 _stx116349_)))) + (__tmp117105 + (let ((__tmp117106 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp229864 '1)))) + (fx+ __tmp117106 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp229865 + __tmp117107 gx#current-expander-phi - __tmp229863))) - _hd224553224583_ - _hd224550224575_) + __tmp117105))) + _hd116363116393_ + _hd116360116385_) (let () (declare (not safe)) - (_g224542224559_ - _g224543224562_))))) + (_g116352116369_ + _g116353116372_))))) (let () (declare (not safe)) - (_g224542224559_ _g224543224562_))))) + (_g116352116369_ _g116353116372_))))) (let () (declare (not safe)) - (_g224542224559_ _g224543224562_))))) + (_g116352116369_ _g116353116372_))))) (let () (declare (not safe)) - (_g224542224559_ _g224543224562_)))))) + (_g116352116369_ _g116353116372_)))))) (declare (not safe)) - (_g224541224616_ _stx224539_)))) + (_g116351116426_ _stx116349_)))) (define gxc#xform-begin-annotation% - (lambda (_stx224460_ . _args224461_) - (let* ((_g224463224480_ - (lambda (_g224464224477_) + (lambda (_stx116270_ . _args116271_) + (let* ((_g116273116290_ + (lambda (_g116274116287_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g224464224477_)))) - (_g224462224536_ - (lambda (_g224464224483_) + _g116274116287_)))) + (_g116272116346_ + (lambda (_g116274116293_) (if (let () (declare (not safe)) - (gx#stx-pair? _g224464224483_)) - (let ((_e224469224485_ + (gx#stx-pair? _g116274116293_)) + (let ((_e116279116295_ (let () (declare (not safe)) - (gx#stx-e _g224464224483_)))) - (let ((_hd224468224488_ + (gx#stx-e _g116274116293_)))) + (let ((_hd116278116298_ (let () (declare (not safe)) - (##car _e224469224485_))) - (_tl224467224490_ + (##car _e116279116295_))) + (_tl116277116300_ (let () (declare (not safe)) - (##cdr _e224469224485_)))) + (##cdr _e116279116295_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224467224490_)) - (let ((_e224472224493_ + (gx#stx-pair? _tl116277116300_)) + (let ((_e116282116303_ (let () (declare (not safe)) - (gx#stx-e _tl224467224490_)))) - (let ((_hd224471224496_ + (gx#stx-e _tl116277116300_)))) + (let ((_hd116281116306_ (let () (declare (not safe)) - (##car _e224472224493_))) - (_tl224470224498_ + (##car _e116282116303_))) + (_tl116280116308_ (let () (declare (not safe)) - (##cdr _e224472224493_)))) + (##cdr _e116282116303_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224470224498_)) - (let ((_e224475224501_ + (gx#stx-pair? _tl116280116308_)) + (let ((_e116285116311_ (let () (declare (not safe)) - (gx#stx-e _tl224470224498_)))) - (let ((_hd224474224504_ + (gx#stx-e _tl116280116308_)))) + (let ((_hd116284116314_ (let () (declare (not safe)) - (##car _e224475224501_))) - (_tl224473224506_ + (##car _e116285116311_))) + (_tl116283116316_ (let () (declare (not safe)) - (##cdr _e224475224501_)))) + (##cdr _e116285116311_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl224473224506_)) - ((lambda (_L224509_ _L224510_) - (let* ((_expr224534_ + _tl116283116316_)) + ((lambda (_L116319_ _L116320_) + (let* ((_expr116344_ (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _args224461_)) - (let () (declare (not safe)) (gxc#compile-e__0 _L224509_)) - (let ((_arg1224525_ (car _args224461_)) - (_rest224527_ (cdr _args224461_))) - (if (let () (declare (not safe)) (null? _rest224527_)) + (null? _args116271_)) + (let () (declare (not safe)) (gxc#compile-e__0 _L116319_)) + (let ((_arg1116335_ (car _args116271_)) + (_rest116337_ (cdr _args116271_))) + (if (let () (declare (not safe)) (null? _rest116337_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L224509_ _arg1224525_)) - (let ((_arg2224530_ (car _rest224527_)) - (_rest224532_ (cdr _rest224527_))) + (gxc#compile-e__1 _L116319_ _arg1116335_)) + (let ((_arg2116340_ (car _rest116337_)) + (_rest116342_ (cdr _rest116337_))) (if (let () (declare (not safe)) - (null? _rest224532_)) + (null? _rest116342_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L224509_ - _arg1224525_ - _arg2224530_)) + _L116319_ + _arg1116335_ + _arg2116340_)) (apply gxc#compile-e - _L224509_ - _arg1224525_ - _arg2224530_ - _rest224532_))))))) - (__tmp229869 - (let ((__tmp229870 - (let ((__tmp229871 + _L116319_ + _arg1116335_ + _arg2116340_ + _rest116342_))))))) + (__tmp117111 + (let ((__tmp117112 + (let ((__tmp117113 (let () (declare (not safe)) - (cons _expr224534_ '())))) + (cons _expr116344_ '())))) (declare (not safe)) - (cons _L224510_ __tmp229871)))) + (cons _L116320_ __tmp117113)))) (declare (not safe)) - (cons '%#begin-annotation __tmp229870)))) + (cons '%#begin-annotation __tmp117112)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp229869 - _stx224460_))) - _hd224474224504_ - _hd224471224496_) + __tmp117111 + _stx116270_))) + _hd116284116314_ + _hd116281116306_) (let () (declare (not safe)) - (_g224463224480_ - _g224464224483_))))) + (_g116273116290_ + _g116274116293_))))) (let () (declare (not safe)) - (_g224463224480_ _g224464224483_))))) + (_g116273116290_ _g116274116293_))))) (let () (declare (not safe)) - (_g224463224480_ _g224464224483_))))) + (_g116273116290_ _g116274116293_))))) (let () (declare (not safe)) - (_g224463224480_ _g224464224483_)))))) + (_g116273116290_ _g116274116293_)))))) (declare (not safe)) - (_g224462224536_ _stx224460_)))) + (_g116272116346_ _stx116270_)))) (define gxc#xform-lambda% - (lambda (_stx224403_ . _args224404_) - (let* ((_g224406224420_ - (lambda (_g224407224417_) + (lambda (_stx116213_ . _args116214_) + (let* ((_g116216116230_ + (lambda (_g116217116227_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g224407224417_)))) - (_g224405224457_ - (lambda (_g224407224423_) + _g116217116227_)))) + (_g116215116267_ + (lambda (_g116217116233_) (if (let () (declare (not safe)) - (gx#stx-pair? _g224407224423_)) - (let ((_e224412224425_ + (gx#stx-pair? _g116217116233_)) + (let ((_e116222116235_ (let () (declare (not safe)) - (gx#stx-e _g224407224423_)))) - (let ((_hd224411224428_ + (gx#stx-e _g116217116233_)))) + (let ((_hd116221116238_ (let () (declare (not safe)) - (##car _e224412224425_))) - (_tl224410224430_ + (##car _e116222116235_))) + (_tl116220116240_ (let () (declare (not safe)) - (##cdr _e224412224425_)))) + (##cdr _e116222116235_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224410224430_)) - (let ((_e224415224433_ + (gx#stx-pair? _tl116220116240_)) + (let ((_e116225116243_ (let () (declare (not safe)) - (gx#stx-e _tl224410224430_)))) - (let ((_hd224414224436_ + (gx#stx-e _tl116220116240_)))) + (let ((_hd116224116246_ (let () (declare (not safe)) - (##car _e224415224433_))) - (_tl224413224438_ + (##car _e116225116243_))) + (_tl116223116248_ (let () (declare (not safe)) - (##cdr _e224415224433_)))) - ((lambda (_L224441_ _L224442_) - (let* ((_body224455_ + (##cdr _e116225116243_)))) + ((lambda (_L116251_ _L116252_) + (let* ((_body116265_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args224404_)) - _L224441_)) - (__tmp229872 - (let ((__tmp229873 + _args116214_)) + _L116251_)) + (__tmp117114 + (let ((__tmp117115 (let () (declare (not safe)) - (cons _L224442_ - _body224455_)))) + (cons _L116252_ + _body116265_)))) (declare (not safe)) - (cons '%#lambda __tmp229873)))) + (cons '%#lambda __tmp117115)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp229872 - _stx224403_))) - _tl224413224438_ - _hd224414224436_))) + __tmp117114 + _stx116213_))) + _tl116223116248_ + _hd116224116246_))) (let () (declare (not safe)) - (_g224406224420_ _g224407224423_))))) + (_g116216116230_ _g116217116233_))))) (let () (declare (not safe)) - (_g224406224420_ _g224407224423_)))))) + (_g116216116230_ _g116217116233_)))))) (declare (not safe)) - (_g224405224457_ _stx224403_)))) + (_g116215116267_ _stx116213_)))) (define gxc#xform-case-lambda% - (lambda (_stx224316_ . _args224317_) - (letrec ((_clause-e224319_ - (lambda (_clause224360_) - (let* ((_g224362224373_ - (lambda (_g224363224370_) + (lambda (_stx116126_ . _args116127_) + (letrec ((_clause-e116129_ + (lambda (_clause116170_) + (let* ((_g116172116183_ + (lambda (_g116173116180_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g224363224370_)))) - (_g224361224400_ - (lambda (_g224363224376_) + _g116173116180_)))) + (_g116171116210_ + (lambda (_g116173116186_) (if (let () (declare (not safe)) - (gx#stx-pair? _g224363224376_)) - (let ((_e224368224378_ + (gx#stx-pair? _g116173116186_)) + (let ((_e116178116188_ (let () (declare (not safe)) - (gx#stx-e _g224363224376_)))) - (let ((_hd224367224381_ + (gx#stx-e _g116173116186_)))) + (let ((_hd116177116191_ (let () (declare (not safe)) - (##car _e224368224378_))) - (_tl224366224383_ + (##car _e116178116188_))) + (_tl116176116193_ (let () (declare (not safe)) - (##cdr _e224368224378_)))) - ((lambda (_L224386_ _L224387_) - (let ((_body224398_ + (##cdr _e116178116188_)))) + ((lambda (_L116196_ _L116197_) + (let ((_body116208_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args224317_)) - _L224386_))) + _args116127_)) + _L116196_))) (declare (not safe)) - (cons _L224387_ _body224398_))) - _tl224366224383_ - _hd224367224381_))) + (cons _L116197_ _body116208_))) + _tl116176116193_ + _hd116177116191_))) (let () (declare (not safe)) - (_g224362224373_ _g224363224376_)))))) + (_g116172116183_ _g116173116186_)))))) (declare (not safe)) - (_g224361224400_ _clause224360_))))) - (let* ((_g224321224331_ - (lambda (_g224322224328_) + (_g116171116210_ _clause116170_))))) + (let* ((_g116131116141_ + (lambda (_g116132116138_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g224322224328_)))) - (_g224320224357_ - (lambda (_g224322224334_) + _g116132116138_)))) + (_g116130116167_ + (lambda (_g116132116144_) (if (let () (declare (not safe)) - (gx#stx-pair? _g224322224334_)) - (let ((_e224326224336_ + (gx#stx-pair? _g116132116144_)) + (let ((_e116136116146_ (let () (declare (not safe)) - (gx#stx-e _g224322224334_)))) - (let ((_hd224325224339_ + (gx#stx-e _g116132116144_)))) + (let ((_hd116135116149_ (let () (declare (not safe)) - (##car _e224326224336_))) - (_tl224324224341_ + (##car _e116136116146_))) + (_tl116134116151_ (let () (declare (not safe)) - (##cdr _e224326224336_)))) - ((lambda (_L224344_) - (let* ((_clauses224355_ - (map _clause-e224319_ _L224344_)) - (__tmp229874 + (##cdr _e116136116146_)))) + ((lambda (_L116154_) + (let* ((_clauses116165_ + (map _clause-e116129_ _L116154_)) + (__tmp117116 (let () (declare (not safe)) (cons '%#case-lambda - _clauses224355_)))) + _clauses116165_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp229874 - _stx224316_))) - _tl224324224341_))) + __tmp117116 + _stx116126_))) + _tl116134116151_))) (let () (declare (not safe)) - (_g224321224331_ _g224322224334_)))))) + (_g116131116141_ _g116132116144_)))))) (declare (not safe)) - (_g224320224357_ _stx224316_))))) + (_g116130116167_ _stx116126_))))) (define gxc#xform-let-values% - (lambda (_stx224110_ . _args224111_) - (let* ((_g224113224146_ - (lambda (_g224114224143_) + (lambda (_stx115920_ . _args115921_) + (let* ((_g115923115956_ + (lambda (_g115924115953_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g224114224143_)))) - (_g224112224313_ - (lambda (_g224114224149_) + _g115924115953_)))) + (_g115922116123_ + (lambda (_g115924115959_) (if (let () (declare (not safe)) - (gx#stx-pair? _g224114224149_)) - (let ((_e224121224151_ + (gx#stx-pair? _g115924115959_)) + (let ((_e115931115961_ (let () (declare (not safe)) - (gx#stx-e _g224114224149_)))) - (let ((_hd224120224154_ + (gx#stx-e _g115924115959_)))) + (let ((_hd115930115964_ (let () (declare (not safe)) - (##car _e224121224151_))) - (_tl224119224156_ + (##car _e115931115961_))) + (_tl115929115966_ (let () (declare (not safe)) - (##cdr _e224121224151_)))) + (##cdr _e115931115961_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224119224156_)) - (let ((_e224124224159_ + (gx#stx-pair? _tl115929115966_)) + (let ((_e115934115969_ (let () (declare (not safe)) - (gx#stx-e _tl224119224156_)))) - (let ((_hd224123224162_ + (gx#stx-e _tl115929115966_)))) + (let ((_hd115933115972_ (let () (declare (not safe)) - (##car _e224124224159_))) - (_tl224122224164_ + (##car _e115934115969_))) + (_tl115932115974_ (let () (declare (not safe)) - (##cdr _e224124224159_)))) + (##cdr _e115934115969_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd224123224162_)) - (let ((_g229875_ + (gx#stx-pair/null? _hd115933115972_)) + (let ((_g117117_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd224123224162_ + _hd115933115972_ '0)))) (begin - (let ((_g229876_ + (let ((_g117118_ (let () (declare (not safe)) - (if (##values? _g229875_) + (if (##values? _g117117_) (##vector-length - _g229875_) + _g117117_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g229876_ 2))) + (##fx= _g117118_ 2))) (error "Context expects 2 values" - _g229876_))) - (let ((_target224125224167_ + _g117118_))) + (let ((_target115935115977_ (let () (declare (not safe)) - (##vector-ref _g229875_ 0))) - (_tl224127224169_ + (##vector-ref _g117117_ 0))) + (_tl115937115979_ (let () (declare (not safe)) (##vector-ref - _g229875_ + _g117117_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl224127224169_)) - (letrec ((_loop224128224172_ - (lambda (_hd224126224175_ + _tl115937115979_)) + (letrec ((_loop115938115982_ + (lambda (_hd115936115985_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr224132224177_ - _hd224133224179_) + _expr115942115987_ + _hd115943115989_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd224126224175_)) - (let ((_e224129224182_ + (gx#stx-pair? _hd115936115985_)) + (let ((_e115939115992_ (let () (declare (not safe)) - (gx#stx-e _hd224126224175_)))) - (let ((_lp-hd224130224185_ + (gx#stx-e _hd115936115985_)))) + (let ((_lp-hd115940115995_ (let () (declare (not safe)) - (##car _e224129224182_))) - (_lp-tl224131224187_ + (##car _e115939115992_))) + (_lp-tl115941115997_ (let () (declare (not safe)) - (##cdr _e224129224182_)))) + (##cdr _e115939115992_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd224130224185_)) - (let ((_e224138224190_ + (gx#stx-pair? _lp-hd115940115995_)) + (let ((_e115948116000_ (let () (declare (not safe)) - (gx#stx-e _lp-hd224130224185_)))) - (let ((_hd224137224193_ + (gx#stx-e _lp-hd115940115995_)))) + (let ((_hd115947116003_ (let () (declare (not safe)) - (##car _e224138224190_))) - (_tl224136224195_ + (##car _e115948116000_))) + (_tl115946116005_ (let () (declare (not safe)) - (##cdr _e224138224190_)))) + (##cdr _e115948116000_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl224136224195_)) - (let ((_e224141224198_ + (gx#stx-pair? _tl115946116005_)) + (let ((_e115951116008_ (let () (declare (not safe)) - (gx#stx-e _tl224136224195_)))) - (let ((_hd224140224201_ + (gx#stx-e _tl115946116005_)))) + (let ((_hd115950116011_ (let () (declare (not safe)) - (##car _e224141224198_))) - (_tl224139224203_ + (##car _e115951116008_))) + (_tl115949116013_ (let () (declare (not safe)) - (##cdr _e224141224198_)))) + (##cdr _e115951116008_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl224139224203_)) - (let ((__tmp229889 + _tl115949116013_)) + (let ((__tmp117131 (let () (declare (not safe)) - (cons _hd224140224201_ - _expr224132224177_))) - (__tmp229888 + (cons _hd115950116011_ + _expr115942115987_))) + (__tmp117130 (let () (declare (not safe)) - (cons _hd224137224193_ - _hd224133224179_)))) + (cons _hd115947116003_ + _hd115943115989_)))) (declare (not safe)) - (_loop224128224172_ - _lp-tl224131224187_ - __tmp229889 - __tmp229888)) + (_loop115938115982_ + _lp-tl115941115997_ + __tmp117131 + __tmp117130)) (let () (declare (not safe)) - (_g224113224146_ - _g224114224149_))))) + (_g115923115956_ + _g115924115959_))))) (let () (declare (not safe)) - (_g224113224146_ _g224114224149_))))) + (_g115923115956_ _g115924115959_))))) (let () (declare (not safe)) - (_g224113224146_ _g224114224149_))))) - (let ((_expr224134224206_ (reverse _expr224132224177_)) - (_hd224135224208_ (reverse _hd224133224179_))) - ((lambda (_L224211_ _L224212_ _L224213_ _L224214_) - (let* ((_g224233224249_ - (lambda (_g224234224246_) + (_g115923115956_ _g115924115959_))))) + (let ((_expr115944116016_ (reverse _expr115942115987_)) + (_hd115945116018_ (reverse _hd115943115989_))) + ((lambda (_L116021_ _L116022_ _L116023_ _L116024_) + (let* ((_g116043116059_ + (lambda (_g116044116056_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g224234224246_)))) - (_g224232224303_ - (lambda (_g224234224252_) + _g116044116056_)))) + (_g116042116113_ + (lambda (_g116044116062_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _g224234224252_)) - (let ((_g229877_ + _g116044116062_)) + (let ((_g117119_ (let () (declare (not safe)) (gx#syntax-split-splice - _g224234224252_ + _g116044116062_ '0)))) (begin - (let ((_g229878_ + (let ((_g117120_ (let () (declare (not safe)) (if (##values? - _g229877_) + _g117119_) (##vector-length - _g229877_) + _g117119_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g229878_ + (##fx= _g117120_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g229878_))) - (let ((_target224236224254_ + _g117120_))) + (let ((_target116046116064_ (let () (declare (not safe)) (##vector-ref - _g229877_ + _g117119_ 0))) - (_tl224238224256_ + (_tl116048116066_ (let () (declare (not safe)) (##vector-ref - _g229877_ + _g117119_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl224238224256_)) - (letrec ((_loop224239224259_ - (lambda (_hd224237224262_ + _tl116048116066_)) + (letrec ((_loop116049116069_ + (lambda (_hd116047116072_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr224243224264_) + _expr116053116074_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd224237224262_)) - (let ((_e224240224267_ + (gx#stx-pair? _hd116047116072_)) + (let ((_e116050116077_ (let () (declare (not safe)) - (gx#syntax-e _hd224237224262_)))) - (let ((_lp-hd224241224270_ + (gx#syntax-e _hd116047116072_)))) + (let ((_lp-hd116051116080_ (let () (declare (not safe)) - (##car _e224240224267_))) - (_lp-tl224242224272_ + (##car _e116050116077_))) + (_lp-tl116052116082_ (let () (declare (not safe)) - (##cdr _e224240224267_)))) - (let ((__tmp229885 + (##cdr _e116050116077_)))) + (let ((__tmp117127 (let () (declare (not safe)) - (cons _lp-hd224241224270_ - _expr224243224264_)))) + (cons _lp-hd116051116080_ + _expr116053116074_)))) (declare (not safe)) - (_loop224239224259_ - _lp-tl224242224272_ - __tmp229885)))) - (let ((_expr224244224275_ - (reverse _expr224243224264_))) - ((lambda (_L224278_) + (_loop116049116069_ + _lp-tl116052116082_ + __tmp117127)))) + (let ((_expr116054116085_ + (reverse _expr116053116074_))) + ((lambda (_L116088_) (let () - (let* ((_body224291_ + (let* ((_body116101_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args224111_)) - _L224211_)) - (__tmp229879 - (let ((__tmp229880 - (let ((__tmp229881 + _args115921_)) + _L116021_)) + (__tmp117121 + (let ((__tmp117122 + (let ((__tmp117123 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L224278_ - _L224213_)) - (let ((__tmp229882 + _L116088_ + _L116023_)) + (let ((__tmp117124 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g224292224296_ - _g224293224298_ - _g224294224300_) - (let ((__tmp229883 - (let ((__tmp229884 + (lambda (_g116102116106_ + _g116103116108_ + _g116104116110_) + (let ((__tmp117125 + (let ((__tmp117126 (let () (declare (not safe)) - (cons _g224292224296_ '())))) + (cons _g116102116106_ '())))) (declare (not safe)) - (cons _g224293224298_ __tmp229884)))) + (cons _g116103116108_ __tmp117126)))) (declare (not safe)) - (cons __tmp229883 _g224294224300_))))) + (cons __tmp117125 _g116104116110_))))) (declare (not safe)) - (foldr2 __tmp229882 '() _L224278_ _L224213_))))) + (foldr2 __tmp117124 '() _L116088_ _L116023_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp229881 - _body224291_)))) + (cons __tmp117123 + _body116101_)))) (declare (not safe)) - (cons _L224214_ __tmp229880)))) + (cons _L116024_ __tmp117122)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp229879 - _stx224110_)))) - _expr224244224275_)))))) + __tmp117121 + _stx115920_)))) + _expr116054116085_)))))) (let () (declare (not safe)) - (_loop224239224259_ _target224236224254_ '()))) + (_loop116049116069_ _target116046116064_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g224233224249_ - _g224234224252_)))))) + (_g116043116059_ + _g116044116062_)))))) (let () (declare (not safe)) - (_g224233224249_ - _g224234224252_))))) - (__tmp229886 + (_g116043116059_ + _g116044116062_))))) + (__tmp117128 (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args224111_)) - (let ((__tmp229887 - (lambda (_g224305224308_ - _g224306224310_) + _args115921_)) + (let ((__tmp117129 + (lambda (_g116115116118_ + _g116116116120_) (let () (declare (not safe)) - (cons _g224305224308_ - _g224306224310_))))) + (cons _g116115116118_ + _g116116116120_))))) (declare (not safe)) - (foldr1 __tmp229887 + (foldr1 __tmp117129 '() - _L224212_))))) + _L116022_))))) (declare (not safe)) - (_g224232224303_ __tmp229886))) - _tl224122224164_ - _expr224134224206_ - _hd224135224208_ - _hd224120224154_)))))) + (_g116042116113_ __tmp117128))) + _tl115932115974_ + _expr115944116016_ + _hd115945116018_ + _hd115930115964_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop224128224172_ - _target224125224167_ + (_loop115938115982_ + _target115935115977_ '() '()))) (let () (declare (not safe)) - (_g224113224146_ - _g224114224149_)))))) + (_g115923115956_ + _g115924115959_)))))) (let () (declare (not safe)) - (_g224113224146_ _g224114224149_))))) + (_g115923115956_ _g115924115959_))))) (let () (declare (not safe)) - (_g224113224146_ _g224114224149_))))) + (_g115923115956_ _g115924115959_))))) (let () (declare (not safe)) - (_g224113224146_ _g224114224149_)))))) + (_g115923115956_ _g115924115959_)))))) (declare (not safe)) - (_g224112224313_ _stx224110_)))) + (_g115922116123_ _stx115920_)))) (define gxc#xform-operands - (lambda (_stx224066_ . _args224067_) - (let* ((_g224069224080_ - (lambda (_g224070224077_) + (lambda (_stx115876_ . _args115877_) + (let* ((_g115879115890_ + (lambda (_g115880115887_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g224070224077_)))) - (_g224068224107_ - (lambda (_g224070224083_) + _g115880115887_)))) + (_g115878115917_ + (lambda (_g115880115893_) (if (let () (declare (not safe)) - (gx#stx-pair? _g224070224083_)) - (let ((_e224075224085_ + (gx#stx-pair? _g115880115893_)) + (let ((_e115885115895_ (let () (declare (not safe)) - (gx#stx-e _g224070224083_)))) - (let ((_hd224074224088_ + (gx#stx-e _g115880115893_)))) + (let ((_hd115884115898_ (let () (declare (not safe)) - (##car _e224075224085_))) - (_tl224073224090_ + (##car _e115885115895_))) + (_tl115883115900_ (let () (declare (not safe)) - (##cdr _e224075224085_)))) - ((lambda (_L224093_ _L224094_) - (let* ((_rands224105_ + (##cdr _e115885115895_)))) + ((lambda (_L115903_ _L115904_) + (let* ((_rands115915_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args224067_)) - _L224093_)) - (__tmp229890 + _args115877_)) + _L115903_)) + (__tmp117132 (let () (declare (not safe)) - (cons _L224094_ _rands224105_)))) + (cons _L115904_ _rands115915_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp229890 - _stx224066_))) - _tl224073224090_ - _hd224074224088_))) + __tmp117132 + _stx115876_))) + _tl115883115900_ + _hd115884115898_))) (let () (declare (not safe)) - (_g224069224080_ _g224070224083_)))))) + (_g115879115890_ _g115880115893_)))))) (declare (not safe)) - (_g224068224107_ _stx224066_)))) + (_g115878115917_ _stx115876_)))) (define gxc#xform-call% gxc#xform-operands) (define gxc#xform-setq% - (lambda (_stx223987_ . _args223988_) - (let* ((_g223990224007_ - (lambda (_g223991224004_) + (lambda (_stx115797_ . _args115798_) + (let* ((_g115800115817_ + (lambda (_g115801115814_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g223991224004_)))) - (_g223989224063_ - (lambda (_g223991224010_) + _g115801115814_)))) + (_g115799115873_ + (lambda (_g115801115820_) (if (let () (declare (not safe)) - (gx#stx-pair? _g223991224010_)) - (let ((_e223996224012_ + (gx#stx-pair? _g115801115820_)) + (let ((_e115806115822_ (let () (declare (not safe)) - (gx#stx-e _g223991224010_)))) - (let ((_hd223995224015_ + (gx#stx-e _g115801115820_)))) + (let ((_hd115805115825_ (let () (declare (not safe)) - (##car _e223996224012_))) - (_tl223994224017_ + (##car _e115806115822_))) + (_tl115804115827_ (let () (declare (not safe)) - (##cdr _e223996224012_)))) + (##cdr _e115806115822_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223994224017_)) - (let ((_e223999224020_ + (gx#stx-pair? _tl115804115827_)) + (let ((_e115809115830_ (let () (declare (not safe)) - (gx#stx-e _tl223994224017_)))) - (let ((_hd223998224023_ + (gx#stx-e _tl115804115827_)))) + (let ((_hd115808115833_ (let () (declare (not safe)) - (##car _e223999224020_))) - (_tl223997224025_ + (##car _e115809115830_))) + (_tl115807115835_ (let () (declare (not safe)) - (##cdr _e223999224020_)))) + (##cdr _e115809115830_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223997224025_)) - (let ((_e224002224028_ + (gx#stx-pair? _tl115807115835_)) + (let ((_e115812115838_ (let () (declare (not safe)) - (gx#stx-e _tl223997224025_)))) - (let ((_hd224001224031_ + (gx#stx-e _tl115807115835_)))) + (let ((_hd115811115841_ (let () (declare (not safe)) - (##car _e224002224028_))) - (_tl224000224033_ + (##car _e115812115838_))) + (_tl115810115843_ (let () (declare (not safe)) - (##cdr _e224002224028_)))) + (##cdr _e115812115838_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl224000224033_)) - ((lambda (_L224036_ _L224037_) - (let* ((_expr224061_ + _tl115810115843_)) + ((lambda (_L115846_ _L115847_) + (let* ((_expr115871_ (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _args223988_)) - (let () (declare (not safe)) (gxc#compile-e__0 _L224036_)) - (let ((_arg1224052_ (car _args223988_)) - (_rest224054_ (cdr _args223988_))) - (if (let () (declare (not safe)) (null? _rest224054_)) + (null? _args115798_)) + (let () (declare (not safe)) (gxc#compile-e__0 _L115846_)) + (let ((_arg1115862_ (car _args115798_)) + (_rest115864_ (cdr _args115798_))) + (if (let () (declare (not safe)) (null? _rest115864_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L224036_ _arg1224052_)) - (let ((_arg2224057_ (car _rest224054_)) - (_rest224059_ (cdr _rest224054_))) + (gxc#compile-e__1 _L115846_ _arg1115862_)) + (let ((_arg2115867_ (car _rest115864_)) + (_rest115869_ (cdr _rest115864_))) (if (let () (declare (not safe)) - (null? _rest224059_)) + (null? _rest115869_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L224036_ - _arg1224052_ - _arg2224057_)) + _L115846_ + _arg1115862_ + _arg2115867_)) (apply gxc#compile-e - _L224036_ - _arg1224052_ - _arg2224057_ - _rest224059_))))))) - (__tmp229891 - (let ((__tmp229892 - (let ((__tmp229893 + _L115846_ + _arg1115862_ + _arg2115867_ + _rest115869_))))))) + (__tmp117133 + (let ((__tmp117134 + (let ((__tmp117135 (let () (declare (not safe)) - (cons _expr224061_ '())))) + (cons _expr115871_ '())))) (declare (not safe)) - (cons _L224037_ __tmp229893)))) + (cons _L115847_ __tmp117135)))) (declare (not safe)) - (cons '%#set! __tmp229892)))) + (cons '%#set! __tmp117134)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp229891 - _stx223987_))) - _hd224001224031_ - _hd223998224023_) + __tmp117133 + _stx115797_))) + _hd115811115841_ + _hd115808115833_) (let () (declare (not safe)) - (_g223990224007_ - _g223991224010_))))) + (_g115800115817_ + _g115801115820_))))) (let () (declare (not safe)) - (_g223990224007_ _g223991224010_))))) + (_g115800115817_ _g115801115820_))))) (let () (declare (not safe)) - (_g223990224007_ _g223991224010_))))) + (_g115800115817_ _g115801115820_))))) (let () (declare (not safe)) - (_g223990224007_ _g223991224010_)))))) + (_g115800115817_ _g115801115820_)))))) (declare (not safe)) - (_g223989224063_ _stx223987_)))) + (_g115799115873_ _stx115797_)))) (define gxc#collect-mutators-setq% - (lambda (_stx223918_) - (let* ((_g223920223937_ - (lambda (_g223921223934_) + (lambda (_stx115728_) + (let* ((_g115730115747_ + (lambda (_g115731115744_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g223921223934_)))) - (_g223919223984_ - (lambda (_g223921223940_) + _g115731115744_)))) + (_g115729115794_ + (lambda (_g115731115750_) (if (let () (declare (not safe)) - (gx#stx-pair? _g223921223940_)) - (let ((_e223926223942_ + (gx#stx-pair? _g115731115750_)) + (let ((_e115736115752_ (let () (declare (not safe)) - (gx#stx-e _g223921223940_)))) - (let ((_hd223925223945_ + (gx#stx-e _g115731115750_)))) + (let ((_hd115735115755_ (let () (declare (not safe)) - (##car _e223926223942_))) - (_tl223924223947_ + (##car _e115736115752_))) + (_tl115734115757_ (let () (declare (not safe)) - (##cdr _e223926223942_)))) + (##cdr _e115736115752_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223924223947_)) - (let ((_e223929223950_ + (gx#stx-pair? _tl115734115757_)) + (let ((_e115739115760_ (let () (declare (not safe)) - (gx#stx-e _tl223924223947_)))) - (let ((_hd223928223953_ + (gx#stx-e _tl115734115757_)))) + (let ((_hd115738115763_ (let () (declare (not safe)) - (##car _e223929223950_))) - (_tl223927223955_ + (##car _e115739115760_))) + (_tl115737115765_ (let () (declare (not safe)) - (##cdr _e223929223950_)))) + (##cdr _e115739115760_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223927223955_)) - (let ((_e223932223958_ + (gx#stx-pair? _tl115737115765_)) + (let ((_e115742115768_ (let () (declare (not safe)) - (gx#stx-e _tl223927223955_)))) - (let ((_hd223931223961_ + (gx#stx-e _tl115737115765_)))) + (let ((_hd115741115771_ (let () (declare (not safe)) - (##car _e223932223958_))) - (_tl223930223963_ + (##car _e115742115768_))) + (_tl115740115773_ (let () (declare (not safe)) - (##cdr _e223932223958_)))) + (##cdr _e115742115768_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl223930223963_)) - ((lambda (_L223966_ _L223967_) - (let ((_sym223982_ + _tl115740115773_)) + ((lambda (_L115776_ _L115777_) + (let ((_sym115792_ (let () (declare (not safe)) (gxc#identifier-symbol - _L223967_)))) + _L115777_)))) (let () (declare (not safe)) (gxc#verbose '"collect mutator " - _sym223982_)) - (let ((__tmp229894 + _sym115792_)) + (let ((__tmp117136 (gxc#current-compile-mutators))) (declare (not safe)) - (table-set! - __tmp229894 - _sym223982_ + (hash-put! + __tmp117136 + _sym115792_ '#t)) (let () (declare (not safe)) (gxc#compile-e__0 - _L223966_)))) - _hd223931223961_ - _hd223928223953_) + _L115776_)))) + _hd115741115771_ + _hd115738115763_) (let () (declare (not safe)) - (_g223920223937_ - _g223921223940_))))) + (_g115730115747_ + _g115731115750_))))) (let () (declare (not safe)) - (_g223920223937_ _g223921223940_))))) + (_g115730115747_ _g115731115750_))))) (let () (declare (not safe)) - (_g223920223937_ _g223921223940_))))) + (_g115730115747_ _g115731115750_))))) (let () (declare (not safe)) - (_g223920223937_ _g223921223940_)))))) + (_g115730115747_ _g115731115750_)))))) (declare (not safe)) - (_g223919223984_ _stx223918_)))) + (_g115729115794_ _stx115728_)))) (define gxc#collect-methods-call% - (lambda (_stx223472_) - (let* ((___stx229584229585_ _stx223472_) - (_g223476223578_ + (lambda (_stx115282_) + (let* ((___stx116826116827_ _stx115282_) + (_g115286115388_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx229584229585_))))) - (let ((___kont229586229587_ - (lambda (_L223868_ _L223869_ _L223870_ _L223871_ _L223872_) - (let ((__tmp229895 + ___stx116826116827_))))) + (let ((___kont116828116829_ + (lambda (_L115678_ _L115679_ _L115680_ _L115681_ _L115682_) + (let ((__tmp117137 (let () (declare (not safe)) - (gxc#identifier-symbol _L223869_)))) + (gxc#identifier-symbol _L115679_)))) (declare (not safe)) - (gxc#optimizer-top-level-method! __tmp229895)))) - (___kont229588229589_ - (lambda (_L223694_ _L223695_ _L223696_ _L223697_) - (let ((__tmp229896 + (gxc#optimizer-top-level-method! __tmp117137)))) + (___kont116830116831_ + (lambda (_L115504_ _L115505_ _L115506_ _L115507_) + (let ((__tmp117138 (let () (declare (not safe)) - (gxc#identifier-symbol _L223694_)))) + (gxc#identifier-symbol _L115504_)))) (declare (not safe)) - (gxc#optimizer-top-level-method! __tmp229896)))) - (___kont229590229591_ (lambda () '#!void))) - (let ((___match229719229720_ - (lambda (_e223485223740_ - _hd223484223743_ - _tl223483223745_ - _e223488223748_ - _hd223487223751_ - _tl223486223753_ - _e223491223756_ - _hd223490223759_ - _tl223489223761_ - _e223494223764_ - _hd223493223767_ - _tl223492223769_ - _e223497223772_ - _hd223496223775_ - _tl223495223777_ - _e223500223780_ - _hd223499223783_ - _tl223498223785_ - _e223503223788_ - _hd223502223791_ - _tl223501223793_ - _e223506223796_ - _hd223505223799_ - _tl223504223801_ - _e223509223804_ - _hd223508223807_ - _tl223507223809_ - _e223512223812_ - _hd223511223815_ - _tl223510223817_ - _e223515223820_ - _hd223514223823_ - _tl223513223825_ - _e223518223828_ - _hd223517223831_ - _tl223516223833_ - _e223521223836_ - _hd223520223839_ - _tl223519223841_ - _e223524223844_ - _hd223523223847_ - _tl223522223849_ - _e223527223852_ - _hd223526223855_ - _tl223525223857_ - _e223530223860_ - _hd223529223863_ - _tl223528223865_) - (let ((_L223868_ _hd223529223863_) - (_L223869_ _hd223520223839_) - (_L223870_ _hd223511223815_) - (_L223871_ _hd223502223791_) - (_L223872_ _hd223493223767_)) + (gxc#optimizer-top-level-method! __tmp117138)))) + (___kont116832116833_ (lambda () '#!void))) + (let ((___match116961116962_ + (lambda (_e115295115550_ + _hd115294115553_ + _tl115293115555_ + _e115298115558_ + _hd115297115561_ + _tl115296115563_ + _e115301115566_ + _hd115300115569_ + _tl115299115571_ + _e115304115574_ + _hd115303115577_ + _tl115302115579_ + _e115307115582_ + _hd115306115585_ + _tl115305115587_ + _e115310115590_ + _hd115309115593_ + _tl115308115595_ + _e115313115598_ + _hd115312115601_ + _tl115311115603_ + _e115316115606_ + _hd115315115609_ + _tl115314115611_ + _e115319115614_ + _hd115318115617_ + _tl115317115619_ + _e115322115622_ + _hd115321115625_ + _tl115320115627_ + _e115325115630_ + _hd115324115633_ + _tl115323115635_ + _e115328115638_ + _hd115327115641_ + _tl115326115643_ + _e115331115646_ + _hd115330115649_ + _tl115329115651_ + _e115334115654_ + _hd115333115657_ + _tl115332115659_ + _e115337115662_ + _hd115336115665_ + _tl115335115667_ + _e115340115670_ + _hd115339115673_ + _tl115338115675_) + (let ((_L115678_ _hd115339115673_) + (_L115679_ _hd115330115649_) + (_L115680_ _hd115321115625_) + (_L115681_ _hd115312115601_) + (_L115682_ _hd115303115577_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L223872_ + _L115682_ 'bind-method!)) - (___kont229586229587_ - _L223868_ - _L223869_ - _L223870_ - _L223871_ - _L223872_) - (___kont229590229591_)))))) + (___kont116828116829_ + _L115678_ + _L115679_ + _L115680_ + _L115681_ + _L115682_) + (___kont116832116833_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx229584229585_)) - (let ((_e223485223740_ + (gx#stx-pair? ___stx116826116827_)) + (let ((_e115295115550_ (let () (declare (not safe)) - (gx#stx-e ___stx229584229585_)))) - (let ((_tl223483223745_ + (gx#stx-e ___stx116826116827_)))) + (let ((_tl115293115555_ (let () (declare (not safe)) - (##cdr _e223485223740_))) - (_hd223484223743_ + (##cdr _e115295115550_))) + (_hd115294115553_ (let () (declare (not safe)) - (##car _e223485223740_)))) + (##car _e115295115550_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223483223745_)) - (let ((_e223488223748_ + (gx#stx-pair? _tl115293115555_)) + (let ((_e115298115558_ (let () (declare (not safe)) - (gx#stx-e _tl223483223745_)))) - (let ((_tl223486223753_ + (gx#stx-e _tl115293115555_)))) + (let ((_tl115296115563_ (let () (declare (not safe)) - (##cdr _e223488223748_))) - (_hd223487223751_ + (##cdr _e115298115558_))) + (_hd115297115561_ (let () (declare (not safe)) - (##car _e223488223748_)))) + (##car _e115298115558_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd223487223751_)) - (let ((_e223491223756_ + (gx#stx-pair? _hd115297115561_)) + (let ((_e115301115566_ (let () (declare (not safe)) - (gx#stx-e _hd223487223751_)))) - (let ((_tl223489223761_ + (gx#stx-e _hd115297115561_)))) + (let ((_tl115299115571_ (let () (declare (not safe)) - (##cdr _e223491223756_))) - (_hd223490223759_ + (##cdr _e115301115566_))) + (_hd115300115569_ (let () (declare (not safe)) - (##car _e223491223756_)))) + (##car _e115301115566_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd223490223759_)) + (gx#identifier? _hd115300115569_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd223490223759_)) + _hd115300115569_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl223489223761_)) - (let ((_e223494223764_ + _tl115299115571_)) + (let ((_e115304115574_ (let () (declare (not safe)) (gx#stx-e - _tl223489223761_)))) - (let ((_tl223492223769_ + _tl115299115571_)))) + (let ((_tl115302115579_ (let () (declare (not safe)) - (##cdr _e223494223764_))) - (_hd223493223767_ + (##cdr _e115304115574_))) + (_hd115303115577_ (let () (declare (not safe)) - (##car _e223494223764_)))) + (##car _e115304115574_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl223492223769_)) + _tl115302115579_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl223486223753_)) - (let ((_e223497223772_ + (gx#stx-pair? _tl115296115563_)) + (let ((_e115307115582_ (let () (declare (not safe)) - (gx#stx-e _tl223486223753_)))) - (let ((_tl223495223777_ + (gx#stx-e _tl115296115563_)))) + (let ((_tl115305115587_ (let () (declare (not safe)) - (##cdr _e223497223772_))) - (_hd223496223775_ + (##cdr _e115307115582_))) + (_hd115306115585_ (let () (declare (not safe)) - (##car _e223497223772_)))) + (##car _e115307115582_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd223496223775_)) - (let ((_e223500223780_ + (gx#stx-pair? _hd115306115585_)) + (let ((_e115310115590_ (let () (declare (not safe)) - (gx#stx-e _hd223496223775_)))) - (let ((_tl223498223785_ + (gx#stx-e _hd115306115585_)))) + (let ((_tl115308115595_ (let () (declare (not safe)) - (##cdr _e223500223780_))) - (_hd223499223783_ + (##cdr _e115310115590_))) + (_hd115309115593_ (let () (declare (not safe)) - (##car _e223500223780_)))) + (##car _e115310115590_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd223499223783_)) + (gx#identifier? _hd115309115593_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd223499223783_)) + _hd115309115593_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl223498223785_)) - (let ((_e223503223788_ + _tl115308115595_)) + (let ((_e115313115598_ (let () (declare (not safe)) (gx#stx-e - _tl223498223785_)))) - (let ((_tl223501223793_ + _tl115308115595_)))) + (let ((_tl115311115603_ (let () (declare (not safe)) - (##cdr _e223503223788_))) - (_hd223502223791_ + (##cdr _e115313115598_))) + (_hd115312115601_ (let () (declare (not safe)) - (##car _e223503223788_)))) + (##car _e115313115598_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl223501223793_)) + _tl115311115603_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl223495223777_)) - (let ((_e223506223796_ + _tl115305115587_)) + (let ((_e115316115606_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl223495223777_)))) - (let ((_tl223504223801_ + (gx#stx-e _tl115305115587_)))) + (let ((_tl115314115611_ (let () (declare (not safe)) - (##cdr _e223506223796_))) - (_hd223505223799_ + (##cdr _e115316115606_))) + (_hd115315115609_ (let () (declare (not safe)) - (##car _e223506223796_)))) + (##car _e115316115606_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd223505223799_)) - (let ((_e223509223804_ + (gx#stx-pair? _hd115315115609_)) + (let ((_e115319115614_ (let () (declare (not safe)) - (gx#stx-e _hd223505223799_)))) - (let ((_tl223507223809_ + (gx#stx-e _hd115315115609_)))) + (let ((_tl115317115619_ (let () (declare (not safe)) - (##cdr _e223509223804_))) - (_hd223508223807_ + (##cdr _e115319115614_))) + (_hd115318115617_ (let () (declare (not safe)) - (##car _e223509223804_)))) + (##car _e115319115614_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd223508223807_)) + (gx#identifier? _hd115318115617_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd223508223807_)) + (gx#stx-eq? '%#quote _hd115318115617_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223507223809_)) - (let ((_e223512223812_ + (gx#stx-pair? _tl115317115619_)) + (let ((_e115322115622_ (let () (declare (not safe)) (gx#stx-e - _tl223507223809_)))) - (let ((_tl223510223817_ + _tl115317115619_)))) + (let ((_tl115320115627_ (let () (declare (not safe)) - (##cdr _e223512223812_))) - (_hd223511223815_ + (##cdr _e115322115622_))) + (_hd115321115625_ (let () (declare (not safe)) - (##car _e223512223812_)))) + (##car _e115322115622_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl223510223817_)) + _tl115320115627_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl223504223801_)) - (let ((_e223515223820_ + _tl115314115611_)) + (let ((_e115325115630_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl223504223801_)))) - (let ((_tl223513223825_ - (let () (declare (not safe)) (##cdr _e223515223820_))) - (_hd223514223823_ - (let () (declare (not safe)) (##car _e223515223820_)))) + (gx#stx-e _tl115314115611_)))) + (let ((_tl115323115635_ + (let () (declare (not safe)) (##cdr _e115325115630_))) + (_hd115324115633_ + (let () (declare (not safe)) (##car _e115325115630_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd223514223823_)) - (let ((_e223518223828_ + (gx#stx-pair? _hd115324115633_)) + (let ((_e115328115638_ (let () (declare (not safe)) - (gx#stx-e _hd223514223823_)))) - (let ((_tl223516223833_ + (gx#stx-e _hd115324115633_)))) + (let ((_tl115326115643_ (let () (declare (not safe)) - (##cdr _e223518223828_))) - (_hd223517223831_ + (##cdr _e115328115638_))) + (_hd115327115641_ (let () (declare (not safe)) - (##car _e223518223828_)))) + (##car _e115328115638_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd223517223831_)) + (gx#identifier? _hd115327115641_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd223517223831_)) + (gx#stx-eq? '%#ref _hd115327115641_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223516223833_)) - (let ((_e223521223836_ + (gx#stx-pair? _tl115326115643_)) + (let ((_e115331115646_ (let () (declare (not safe)) - (gx#stx-e _tl223516223833_)))) - (let ((_tl223519223841_ + (gx#stx-e _tl115326115643_)))) + (let ((_tl115329115651_ (let () (declare (not safe)) - (##cdr _e223521223836_))) - (_hd223520223839_ + (##cdr _e115331115646_))) + (_hd115330115649_ (let () (declare (not safe)) - (##car _e223521223836_)))) + (##car _e115331115646_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl223519223841_)) + _tl115329115651_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl223513223825_)) - (let ((_e223524223844_ + _tl115323115635_)) + (let ((_e115334115654_ (let () (declare (not safe)) (gx#stx-e - _tl223513223825_)))) - (let ((_tl223522223849_ + _tl115323115635_)))) + (let ((_tl115332115659_ (let () (declare (not safe)) - (##cdr _e223524223844_))) - (_hd223523223847_ + (##cdr _e115334115654_))) + (_hd115333115657_ (let () (declare (not safe)) - (##car _e223524223844_)))) + (##car _e115334115654_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd223523223847_)) - (let ((_e223527223852_ + _hd115333115657_)) + (let ((_e115337115662_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd223523223847_)))) - (let ((_tl223525223857_ + (gx#stx-e _hd115333115657_)))) + (let ((_tl115335115667_ (let () (declare (not safe)) - (##cdr _e223527223852_))) - (_hd223526223855_ + (##cdr _e115337115662_))) + (_hd115336115665_ (let () (declare (not safe)) - (##car _e223527223852_)))) + (##car _e115337115662_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd223526223855_)) + (gx#identifier? _hd115336115665_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd223526223855_)) + (gx#stx-eq? '%#quote _hd115336115665_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223525223857_)) - (let ((_e223530223860_ + (gx#stx-pair? _tl115335115667_)) + (let ((_e115340115670_ (let () (declare (not safe)) - (gx#stx-e _tl223525223857_)))) - (let ((_tl223528223865_ + (gx#stx-e _tl115335115667_)))) + (let ((_tl115338115675_ (let () (declare (not safe)) - (##cdr _e223530223860_))) - (_hd223529223863_ + (##cdr _e115340115670_))) + (_hd115339115673_ (let () (declare (not safe)) - (##car _e223530223860_)))) + (##car _e115340115670_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl223528223865_)) + (gx#stx-null? _tl115338115675_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl223522223849_)) - (___match229719229720_ - _e223485223740_ - _hd223484223743_ - _tl223483223745_ - _e223488223748_ - _hd223487223751_ - _tl223486223753_ - _e223491223756_ - _hd223490223759_ - _tl223489223761_ - _e223494223764_ - _hd223493223767_ - _tl223492223769_ - _e223497223772_ - _hd223496223775_ - _tl223495223777_ - _e223500223780_ - _hd223499223783_ - _tl223498223785_ - _e223503223788_ - _hd223502223791_ - _tl223501223793_ - _e223506223796_ - _hd223505223799_ - _tl223504223801_ - _e223509223804_ - _hd223508223807_ - _tl223507223809_ - _e223512223812_ - _hd223511223815_ - _tl223510223817_ - _e223515223820_ - _hd223514223823_ - _tl223513223825_ - _e223518223828_ - _hd223517223831_ - _tl223516223833_ - _e223521223836_ - _hd223520223839_ - _tl223519223841_ - _e223524223844_ - _hd223523223847_ - _tl223522223849_ - _e223527223852_ - _hd223526223855_ - _tl223525223857_ - _e223530223860_ - _hd223529223863_ - _tl223528223865_) - (___kont229590229591_)) - (___kont229590229591_)))) - (___kont229590229591_)) - (___kont229590229591_)) - (___kont229590229591_)))) - (___kont229590229591_)))) + _tl115332115659_)) + (___match116961116962_ + _e115295115550_ + _hd115294115553_ + _tl115293115555_ + _e115298115558_ + _hd115297115561_ + _tl115296115563_ + _e115301115566_ + _hd115300115569_ + _tl115299115571_ + _e115304115574_ + _hd115303115577_ + _tl115302115579_ + _e115307115582_ + _hd115306115585_ + _tl115305115587_ + _e115310115590_ + _hd115309115593_ + _tl115308115595_ + _e115313115598_ + _hd115312115601_ + _tl115311115603_ + _e115316115606_ + _hd115315115609_ + _tl115314115611_ + _e115319115614_ + _hd115318115617_ + _tl115317115619_ + _e115322115622_ + _hd115321115625_ + _tl115320115627_ + _e115325115630_ + _hd115324115633_ + _tl115323115635_ + _e115328115638_ + _hd115327115641_ + _tl115326115643_ + _e115331115646_ + _hd115330115649_ + _tl115329115651_ + _e115334115654_ + _hd115333115657_ + _tl115332115659_ + _e115337115662_ + _hd115336115665_ + _tl115335115667_ + _e115340115670_ + _hd115339115673_ + _tl115338115675_) + (___kont116832116833_)) + (___kont116832116833_)))) + (___kont116832116833_)) + (___kont116832116833_)) + (___kont116832116833_)))) + (___kont116832116833_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl223513223825_)) - (if (let ((__tmp229897 + _tl115323115635_)) + (if (let ((__tmp117139 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp229897 'bind-method!)) - (let ((_L223694_ _hd223520223839_) - (_L223695_ _hd223511223815_) - (_L223696_ _hd223502223791_) - (_L223697_ _hd223493223767_)) - (___kont229588229589_ - _L223694_ - _L223695_ - _L223696_ - _L223697_)) - (___kont229590229591_)) - (___kont229590229591_))) + (gxc#runtime-identifier=? __tmp117139 'bind-method!)) + (let ((_L115504_ _hd115330115649_) + (_L115505_ _hd115321115625_) + (_L115506_ _hd115312115601_) + (_L115507_ _hd115303115577_)) + (___kont116830116831_ + _L115504_ + _L115505_ + _L115506_ + _L115507_)) + (___kont116832116833_)) + (___kont116832116833_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont229590229591_)))) - (___kont229590229591_)) - (___kont229590229591_)) - (___kont229590229591_)))) - (___kont229590229591_)))) - (___kont229590229591_)) + (___kont116832116833_)))) + (___kont116832116833_)) + (___kont116832116833_)) + (___kont116832116833_)))) + (___kont116832116833_)))) + (___kont116832116833_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont229590229591_)))) - (___kont229590229591_)) - (___kont229590229591_)) - (___kont229590229591_)))) - (___kont229590229591_)))) - (___kont229590229591_)) - (___kont229590229591_)))) + (___kont116832116833_)))) + (___kont116832116833_)) + (___kont116832116833_)) + (___kont116832116833_)))) + (___kont116832116833_)))) + (___kont116832116833_)) + (___kont116832116833_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont229590229591_)) - (___kont229590229591_)) - (___kont229590229591_)))) - (___kont229590229591_)))) - (___kont229590229591_)) - (___kont229590229591_)))) + (___kont116832116833_)) + (___kont116832116833_)) + (___kont116832116833_)))) + (___kont116832116833_)))) + (___kont116832116833_)) + (___kont116832116833_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont229590229591_)) - (___kont229590229591_)) - (___kont229590229591_)))) - (___kont229590229591_)))) - (___kont229590229591_)))) - (___kont229590229591_))))))) + (___kont116832116833_)) + (___kont116832116833_)) + (___kont116832116833_)))) + (___kont116832116833_)))) + (___kont116832116833_)))) + (___kont116832116833_))))))) (define gxc#expression-subst-ref% - (lambda (_stx223419_ _id223420_ _new-id223421_) - (let* ((_g223423223436_ - (lambda (_g223424223433_) + (lambda (_stx115229_ _id115230_ _new-id115231_) + (let* ((_g115233115246_ + (lambda (_g115234115243_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g223424223433_)))) - (_g223422223469_ - (lambda (_g223424223439_) + _g115234115243_)))) + (_g115232115279_ + (lambda (_g115234115249_) (if (let () (declare (not safe)) - (gx#stx-pair? _g223424223439_)) - (let ((_e223428223441_ + (gx#stx-pair? _g115234115249_)) + (let ((_e115238115251_ (let () (declare (not safe)) - (gx#stx-e _g223424223439_)))) - (let ((_hd223427223444_ + (gx#stx-e _g115234115249_)))) + (let ((_hd115237115254_ (let () (declare (not safe)) - (##car _e223428223441_))) - (_tl223426223446_ + (##car _e115238115251_))) + (_tl115236115256_ (let () (declare (not safe)) - (##cdr _e223428223441_)))) + (##cdr _e115238115251_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223426223446_)) - (let ((_e223431223449_ + (gx#stx-pair? _tl115236115256_)) + (let ((_e115241115259_ (let () (declare (not safe)) - (gx#stx-e _tl223426223446_)))) - (let ((_hd223430223452_ + (gx#stx-e _tl115236115256_)))) + (let ((_hd115240115262_ (let () (declare (not safe)) - (##car _e223431223449_))) - (_tl223429223454_ + (##car _e115241115259_))) + (_tl115239115264_ (let () (declare (not safe)) - (##cdr _e223431223449_)))) + (##cdr _e115241115259_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl223429223454_)) - ((lambda (_L223457_) + (gx#stx-null? _tl115239115264_)) + ((lambda (_L115267_) (if (let () (declare (not safe)) (gx#free-identifier=? - _L223457_ - _id223420_)) - (let ((__tmp229898 - (let ((__tmp229899 + _L115267_ + _id115230_)) + (let ((__tmp117140 + (let ((__tmp117141 (let () (declare (not safe)) - (cons _new-id223421_ + (cons _new-id115231_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp229899)))) + (cons '%#ref __tmp117141)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp229898 - _stx223419_)) - _stx223419_)) - _hd223430223452_) + __tmp117140 + _stx115229_)) + _stx115229_)) + _hd115240115262_) (let () (declare (not safe)) - (_g223423223436_ _g223424223439_))))) + (_g115233115246_ _g115234115249_))))) (let () (declare (not safe)) - (_g223423223436_ _g223424223439_))))) + (_g115233115246_ _g115234115249_))))) (let () (declare (not safe)) - (_g223423223436_ _g223424223439_)))))) + (_g115233115246_ _g115234115249_)))))) (declare (not safe)) - (_g223422223469_ _stx223419_)))) + (_g115232115279_ _stx115229_)))) (define gxc#expression-subst*-ref% - (lambda (_stx223360_ _subst223361_) - (let* ((_g223363223376_ - (lambda (_g223364223373_) + (lambda (_stx115170_ _subst115171_) + (let* ((_g115173115186_ + (lambda (_g115174115183_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g223364223373_)))) - (_g223362223416_ - (lambda (_g223364223379_) + _g115174115183_)))) + (_g115172115226_ + (lambda (_g115174115189_) (if (let () (declare (not safe)) - (gx#stx-pair? _g223364223379_)) - (let ((_e223368223381_ + (gx#stx-pair? _g115174115189_)) + (let ((_e115178115191_ (let () (declare (not safe)) - (gx#stx-e _g223364223379_)))) - (let ((_hd223367223384_ + (gx#stx-e _g115174115189_)))) + (let ((_hd115177115194_ (let () (declare (not safe)) - (##car _e223368223381_))) - (_tl223366223386_ + (##car _e115178115191_))) + (_tl115176115196_ (let () (declare (not safe)) - (##cdr _e223368223381_)))) + (##cdr _e115178115191_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223366223386_)) - (let ((_e223371223389_ + (gx#stx-pair? _tl115176115196_)) + (let ((_e115181115199_ (let () (declare (not safe)) - (gx#stx-e _tl223366223386_)))) - (let ((_hd223370223392_ + (gx#stx-e _tl115176115196_)))) + (let ((_hd115180115202_ (let () (declare (not safe)) - (##car _e223371223389_))) - (_tl223369223394_ + (##car _e115181115199_))) + (_tl115179115204_ (let () (declare (not safe)) - (##cdr _e223371223389_)))) + (##cdr _e115181115199_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl223369223394_)) - ((lambda (_L223397_) - (let ((_$e223411_ - (let ((__tmp229900 - (lambda (_sub223409_) - (let ((__tmp229901 - (car _sub223409_))) + (gx#stx-null? _tl115179115204_)) + ((lambda (_L115207_) + (let ((_$e115221_ + (let ((__tmp117142 + (lambda (_sub115219_) + (let ((__tmp117143 + (car _sub115219_))) (declare (not safe)) (gx#free-identifier=? - _L223397_ - __tmp229901))))) + _L115207_ + __tmp117143))))) (declare (not safe)) - (find __tmp229900 - _subst223361_)))) - (if _$e223411_ - ((lambda (_sub223414_) - (let ((__tmp229902 - (let ((__tmp229903 - (let ((__tmp229904 + (find __tmp117142 + _subst115171_)))) + (if _$e115221_ + ((lambda (_sub115224_) + (let ((__tmp117144 + (let ((__tmp117145 + (let ((__tmp117146 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _sub223414_))) + (cdr _sub115224_))) (declare (not safe)) - (cons __tmp229904 '())))) + (cons __tmp117146 '())))) (declare (not safe)) - (cons '%#ref __tmp229903)))) + (cons '%#ref __tmp117145)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp229902 - _stx223360_))) - _$e223411_) - _stx223360_))) - _hd223370223392_) + __tmp117144 + _stx115170_))) + _$e115221_) + _stx115170_))) + _hd115180115202_) (let () (declare (not safe)) - (_g223363223376_ _g223364223379_))))) + (_g115173115186_ _g115174115189_))))) (let () (declare (not safe)) - (_g223363223376_ _g223364223379_))))) + (_g115173115186_ _g115174115189_))))) (let () (declare (not safe)) - (_g223363223376_ _g223364223379_)))))) + (_g115173115186_ _g115174115189_)))))) (declare (not safe)) - (_g223362223416_ _stx223360_)))) + (_g115172115226_ _stx115170_)))) (define gxc#expression-subst-setq% - (lambda (_stx223288_ _id223289_ _new-id223290_) - (let* ((_g223292223309_ - (lambda (_g223293223306_) + (lambda (_stx115098_ _id115099_ _new-id115100_) + (let* ((_g115102115119_ + (lambda (_g115103115116_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g223293223306_)))) - (_g223291223357_ - (lambda (_g223293223312_) + _g115103115116_)))) + (_g115101115167_ + (lambda (_g115103115122_) (if (let () (declare (not safe)) - (gx#stx-pair? _g223293223312_)) - (let ((_e223298223314_ + (gx#stx-pair? _g115103115122_)) + (let ((_e115108115124_ (let () (declare (not safe)) - (gx#stx-e _g223293223312_)))) - (let ((_hd223297223317_ + (gx#stx-e _g115103115122_)))) + (let ((_hd115107115127_ (let () (declare (not safe)) - (##car _e223298223314_))) - (_tl223296223319_ + (##car _e115108115124_))) + (_tl115106115129_ (let () (declare (not safe)) - (##cdr _e223298223314_)))) + (##cdr _e115108115124_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223296223319_)) - (let ((_e223301223322_ + (gx#stx-pair? _tl115106115129_)) + (let ((_e115111115132_ (let () (declare (not safe)) - (gx#stx-e _tl223296223319_)))) - (let ((_hd223300223325_ + (gx#stx-e _tl115106115129_)))) + (let ((_hd115110115135_ (let () (declare (not safe)) - (##car _e223301223322_))) - (_tl223299223327_ + (##car _e115111115132_))) + (_tl115109115137_ (let () (declare (not safe)) - (##cdr _e223301223322_)))) + (##cdr _e115111115132_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223299223327_)) - (let ((_e223304223330_ + (gx#stx-pair? _tl115109115137_)) + (let ((_e115114115140_ (let () (declare (not safe)) - (gx#stx-e _tl223299223327_)))) - (let ((_hd223303223333_ + (gx#stx-e _tl115109115137_)))) + (let ((_hd115113115143_ (let () (declare (not safe)) - (##car _e223304223330_))) - (_tl223302223335_ + (##car _e115114115140_))) + (_tl115112115145_ (let () (declare (not safe)) - (##cdr _e223304223330_)))) + (##cdr _e115114115140_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl223302223335_)) - ((lambda (_L223338_ _L223339_) - (let ((_new-expr223354_ + _tl115112115145_)) + ((lambda (_L115148_ _L115149_) + (let ((_new-expr115164_ (let () (declare (not safe)) (gxc#compile-e__2 - _L223338_ - _id223289_ - _new-id223290_))) - (_new-xid223355_ + _L115148_ + _id115099_ + _new-id115100_))) + (_new-xid115165_ (if (let () (declare (not safe)) (gx#free-identifier=? - _L223339_ - _id223289_)) - _new-id223290_ - _L223339_))) - (let ((__tmp229905 - (let ((__tmp229906 + _L115149_ + _id115099_)) + _new-id115100_ + _L115149_))) + (let ((__tmp117147 + (let ((__tmp117148 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp229907 + (let ((__tmp117149 (let () (declare (not safe)) - (cons _new-expr223354_ '())))) + (cons _new-expr115164_ '())))) (declare (not safe)) - (cons _new-xid223355_ __tmp229907)))) + (cons _new-xid115165_ __tmp117149)))) (declare (not safe)) - (cons '%#set! __tmp229906)))) + (cons '%#set! __tmp117148)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp229905 - _stx223288_)))) - _hd223303223333_ - _hd223300223325_) + __tmp117147 + _stx115098_)))) + _hd115113115143_ + _hd115110115135_) (let () (declare (not safe)) - (_g223292223309_ - _g223293223312_))))) + (_g115102115119_ + _g115103115122_))))) (let () (declare (not safe)) - (_g223292223309_ _g223293223312_))))) + (_g115102115119_ _g115103115122_))))) (let () (declare (not safe)) - (_g223292223309_ _g223293223312_))))) + (_g115102115119_ _g115103115122_))))) (let () (declare (not safe)) - (_g223292223309_ _g223293223312_)))))) + (_g115102115119_ _g115103115122_)))))) (declare (not safe)) - (_g223291223357_ _stx223288_)))) + (_g115101115167_ _stx115098_)))) (define gxc#expression-subst*-setq% - (lambda (_stx223212_ _subst223213_) - (let* ((_g223215223232_ - (lambda (_g223216223229_) + (lambda (_stx115022_ _subst115023_) + (let* ((_g115025115042_ + (lambda (_g115026115039_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g223216223229_)))) - (_g223214223285_ - (lambda (_g223216223235_) + _g115026115039_)))) + (_g115024115095_ + (lambda (_g115026115045_) (if (let () (declare (not safe)) - (gx#stx-pair? _g223216223235_)) - (let ((_e223221223237_ + (gx#stx-pair? _g115026115045_)) + (let ((_e115031115047_ (let () (declare (not safe)) - (gx#stx-e _g223216223235_)))) - (let ((_hd223220223240_ + (gx#stx-e _g115026115045_)))) + (let ((_hd115030115050_ (let () (declare (not safe)) - (##car _e223221223237_))) - (_tl223219223242_ + (##car _e115031115047_))) + (_tl115029115052_ (let () (declare (not safe)) - (##cdr _e223221223237_)))) + (##cdr _e115031115047_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223219223242_)) - (let ((_e223224223245_ + (gx#stx-pair? _tl115029115052_)) + (let ((_e115034115055_ (let () (declare (not safe)) - (gx#stx-e _tl223219223242_)))) - (let ((_hd223223223248_ + (gx#stx-e _tl115029115052_)))) + (let ((_hd115033115058_ (let () (declare (not safe)) - (##car _e223224223245_))) - (_tl223222223250_ + (##car _e115034115055_))) + (_tl115032115060_ (let () (declare (not safe)) - (##cdr _e223224223245_)))) + (##cdr _e115034115055_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223222223250_)) - (let ((_e223227223253_ + (gx#stx-pair? _tl115032115060_)) + (let ((_e115037115063_ (let () (declare (not safe)) - (gx#stx-e _tl223222223250_)))) - (let ((_hd223226223256_ + (gx#stx-e _tl115032115060_)))) + (let ((_hd115036115066_ (let () (declare (not safe)) - (##car _e223227223253_))) - (_tl223225223258_ + (##car _e115037115063_))) + (_tl115035115068_ (let () (declare (not safe)) - (##cdr _e223227223253_)))) + (##cdr _e115037115063_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl223225223258_)) - ((lambda (_L223261_ _L223262_) - (let ((_new-expr223282_ + _tl115035115068_)) + ((lambda (_L115071_ _L115072_) + (let ((_new-expr115092_ (let () (declare (not safe)) (gxc#compile-e__1 - _L223261_ - _subst223213_))) - (_new-xid223283_ - (let ((_$e223279_ - (let ((__tmp229908 + _L115071_ + _subst115023_))) + (_new-xid115093_ + (let ((_$e115089_ + (let ((__tmp117150 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_sub223277_) - (let ((__tmp229909 (car _sub223277_))) + (lambda (_sub115087_) + (let ((__tmp117151 (car _sub115087_))) (declare (not safe)) (gx#free-identifier=? - _L223262_ - __tmp229909))))) + _L115072_ + __tmp117151))))) (declare (not safe)) - (find __tmp229908 _subst223213_)))) - (if _$e223279_ (cdr _$e223279_) _L223262_)))) + (find __tmp117150 _subst115023_)))) + (if _$e115089_ (cdr _$e115089_) _L115072_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp229910 - (let ((__tmp229911 + (let ((__tmp117152 + (let ((__tmp117153 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp229912 + (let ((__tmp117154 (let () (declare (not safe)) - (cons _new-expr223282_ '())))) + (cons _new-expr115092_ '())))) (declare (not safe)) - (cons _new-xid223283_ __tmp229912)))) + (cons _new-xid115093_ __tmp117154)))) (declare (not safe)) - (cons '%#set! __tmp229911)))) + (cons '%#set! __tmp117153)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp229910 - _stx223212_)))) - _hd223226223256_ - _hd223223223248_) + __tmp117152 + _stx115022_)))) + _hd115036115066_ + _hd115033115058_) (let () (declare (not safe)) - (_g223215223232_ - _g223216223235_))))) + (_g115025115042_ + _g115026115045_))))) (let () (declare (not safe)) - (_g223215223232_ _g223216223235_))))) + (_g115025115042_ _g115026115045_))))) (let () (declare (not safe)) - (_g223215223232_ _g223216223235_))))) + (_g115025115042_ _g115026115045_))))) (let () (declare (not safe)) - (_g223215223232_ _g223216223235_)))))) + (_g115025115042_ _g115026115045_)))))) (declare (not safe)) - (_g223214223285_ _stx223212_)))) + (_g115024115095_ _stx115022_)))) (define gxc#collect-runtime-refs-ref% - (lambda (_stx223158_ _ht223159_) - (let* ((_g223161223174_ - (lambda (_g223162223171_) + (lambda (_stx114968_ _ht114969_) + (let* ((_g114971114984_ + (lambda (_g114972114981_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g223162223171_)))) - (_g223160223209_ - (lambda (_g223162223177_) + _g114972114981_)))) + (_g114970115019_ + (lambda (_g114972114987_) (if (let () (declare (not safe)) - (gx#stx-pair? _g223162223177_)) - (let ((_e223166223179_ + (gx#stx-pair? _g114972114987_)) + (let ((_e114976114989_ (let () (declare (not safe)) - (gx#stx-e _g223162223177_)))) - (let ((_hd223165223182_ + (gx#stx-e _g114972114987_)))) + (let ((_hd114975114992_ (let () (declare (not safe)) - (##car _e223166223179_))) - (_tl223164223184_ + (##car _e114976114989_))) + (_tl114974114994_ (let () (declare (not safe)) - (##cdr _e223166223179_)))) + (##cdr _e114976114989_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223164223184_)) - (let ((_e223169223187_ + (gx#stx-pair? _tl114974114994_)) + (let ((_e114979114997_ (let () (declare (not safe)) - (gx#stx-e _tl223164223184_)))) - (let ((_hd223168223190_ + (gx#stx-e _tl114974114994_)))) + (let ((_hd114978115000_ (let () (declare (not safe)) - (##car _e223169223187_))) - (_tl223167223192_ + (##car _e114979114997_))) + (_tl114977115002_ (let () (declare (not safe)) - (##cdr _e223169223187_)))) + (##cdr _e114979114997_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl223167223192_)) - ((lambda (_L223195_) - (let ((_eid223207_ + (gx#stx-null? _tl114977115002_)) + ((lambda (_L115005_) + (let ((_eid115017_ (let () (declare (not safe)) (gxc#identifier-symbol - _L223195_)))) + _L115005_)))) (declare (not safe)) - (hash-update! - _ht223159_ - _eid223207_ + (hash-update!__% + _ht114969_ + _eid115017_ 1+ '0))) - _hd223168223190_) + _hd114978115000_) (let () (declare (not safe)) - (_g223161223174_ _g223162223177_))))) + (_g114971114984_ _g114972114987_))))) (let () (declare (not safe)) - (_g223161223174_ _g223162223177_))))) + (_g114971114984_ _g114972114987_))))) (let () (declare (not safe)) - (_g223161223174_ _g223162223177_)))))) + (_g114971114984_ _g114972114987_)))))) (declare (not safe)) - (_g223160223209_ _stx223158_)))) + (_g114970115019_ _stx114968_)))) (define gxc#collect-runtime-refs-setq% - (lambda (_stx223088_ _ht223089_) - (let* ((_g223091223108_ - (lambda (_g223092223105_) + (lambda (_stx114898_ _ht114899_) + (let* ((_g114901114918_ + (lambda (_g114902114915_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g223092223105_)))) - (_g223090223155_ - (lambda (_g223092223111_) + _g114902114915_)))) + (_g114900114965_ + (lambda (_g114902114921_) (if (let () (declare (not safe)) - (gx#stx-pair? _g223092223111_)) - (let ((_e223097223113_ + (gx#stx-pair? _g114902114921_)) + (let ((_e114907114923_ (let () (declare (not safe)) - (gx#stx-e _g223092223111_)))) - (let ((_hd223096223116_ + (gx#stx-e _g114902114921_)))) + (let ((_hd114906114926_ (let () (declare (not safe)) - (##car _e223097223113_))) - (_tl223095223118_ + (##car _e114907114923_))) + (_tl114905114928_ (let () (declare (not safe)) - (##cdr _e223097223113_)))) + (##cdr _e114907114923_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223095223118_)) - (let ((_e223100223121_ + (gx#stx-pair? _tl114905114928_)) + (let ((_e114910114931_ (let () (declare (not safe)) - (gx#stx-e _tl223095223118_)))) - (let ((_hd223099223124_ + (gx#stx-e _tl114905114928_)))) + (let ((_hd114909114934_ (let () (declare (not safe)) - (##car _e223100223121_))) - (_tl223098223126_ + (##car _e114910114931_))) + (_tl114908114936_ (let () (declare (not safe)) - (##cdr _e223100223121_)))) + (##cdr _e114910114931_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223098223126_)) - (let ((_e223103223129_ + (gx#stx-pair? _tl114908114936_)) + (let ((_e114913114939_ (let () (declare (not safe)) - (gx#stx-e _tl223098223126_)))) - (let ((_hd223102223132_ + (gx#stx-e _tl114908114936_)))) + (let ((_hd114912114942_ (let () (declare (not safe)) - (##car _e223103223129_))) - (_tl223101223134_ + (##car _e114913114939_))) + (_tl114911114944_ (let () (declare (not safe)) - (##cdr _e223103223129_)))) + (##cdr _e114913114939_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl223101223134_)) - ((lambda (_L223137_ _L223138_) - (let ((_eid223153_ + _tl114911114944_)) + ((lambda (_L114947_ _L114948_) + (let ((_eid114963_ (let () (declare (not safe)) (gxc#identifier-symbol - _L223138_)))) + _L114948_)))) (let () (declare (not safe)) - (hash-update! - _ht223089_ - _eid223153_ + (hash-update!__% + _ht114899_ + _eid114963_ 1+ '0)) (let () (declare (not safe)) (gxc#compile-e__1 - _L223137_ - _ht223089_)))) - _hd223102223132_ - _hd223099223124_) + _L114947_ + _ht114899_)))) + _hd114912114942_ + _hd114909114934_) (let () (declare (not safe)) - (_g223091223108_ - _g223092223111_))))) + (_g114901114918_ + _g114902114921_))))) (let () (declare (not safe)) - (_g223091223108_ _g223092223111_))))) + (_g114901114918_ _g114902114921_))))) (let () (declare (not safe)) - (_g223091223108_ _g223092223111_))))) + (_g114901114918_ _g114902114921_))))) (let () (declare (not safe)) - (_g223091223108_ _g223092223111_)))))) + (_g114901114918_ _g114902114921_)))))) (declare (not safe)) - (_g223090223155_ _stx223088_)))) + (_g114900114965_ _stx114898_)))) (define gxc#find-body% - (lambda (_stx223001_ _arg223002_) - (let* ((_g223004223023_ - (lambda (_g223005223020_) + (lambda (_stx114811_ _arg114812_) + (let* ((_g114814114833_ + (lambda (_g114815114830_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g223005223020_)))) - (_g223003223085_ - (lambda (_g223005223026_) + _g114815114830_)))) + (_g114813114895_ + (lambda (_g114815114836_) (if (let () (declare (not safe)) - (gx#stx-pair? _g223005223026_)) - (let ((_e223009223028_ + (gx#stx-pair? _g114815114836_)) + (let ((_e114819114838_ (let () (declare (not safe)) - (gx#stx-e _g223005223026_)))) - (let ((_hd223008223031_ + (gx#stx-e _g114815114836_)))) + (let ((_hd114818114841_ (let () (declare (not safe)) - (##car _e223009223028_))) - (_tl223007223033_ + (##car _e114819114838_))) + (_tl114817114843_ (let () (declare (not safe)) - (##cdr _e223009223028_)))) + (##cdr _e114819114838_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl223007223033_)) - (let ((_g229913_ + (gx#stx-pair/null? _tl114817114843_)) + (let ((_g117155_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl223007223033_ + _tl114817114843_ '0)))) (begin - (let ((_g229914_ + (let ((_g117156_ (let () (declare (not safe)) - (if (##values? _g229913_) - (##vector-length _g229913_) + (if (##values? _g117155_) + (##vector-length _g117155_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g229914_ 2))) + (##fx= _g117156_ 2))) (error "Context expects 2 values" - _g229914_))) - (let ((_target223010223036_ + _g117156_))) + (let ((_target114820114846_ (let () (declare (not safe)) - (##vector-ref _g229913_ 0))) - (_tl223012223038_ + (##vector-ref _g117155_ 0))) + (_tl114822114848_ (let () (declare (not safe)) - (##vector-ref _g229913_ 1)))) + (##vector-ref _g117155_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl223012223038_)) - (letrec ((_loop223013223041_ - (lambda (_hd223011223044_ - _expr223017223046_) + (gx#stx-null? _tl114822114848_)) + (letrec ((_loop114823114851_ + (lambda (_hd114821114854_ + _expr114827114856_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd223011223044_)) - (let ((_e223014223049_ + _hd114821114854_)) + (let ((_e114824114859_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd223011223044_)))) - (let ((_lp-hd223015223052_ - (let () (declare (not safe)) (##car _e223014223049_))) - (_lp-tl223016223054_ + (gx#stx-e _hd114821114854_)))) + (let ((_lp-hd114825114862_ + (let () (declare (not safe)) (##car _e114824114859_))) + (_lp-tl114826114864_ (let () (declare (not safe)) - (##cdr _e223014223049_)))) - (let ((__tmp229918 + (##cdr _e114824114859_)))) + (let ((__tmp117160 (let () (declare (not safe)) - (cons _lp-hd223015223052_ _expr223017223046_)))) + (cons _lp-hd114825114862_ _expr114827114856_)))) (declare (not safe)) - (_loop223013223041_ _lp-tl223016223054_ __tmp229918)))) - (let ((_expr223018223057_ (reverse _expr223017223046_))) - ((lambda (_L223060_) - (let ((__tmp229917 - (lambda (_g223073223075_) + (_loop114823114851_ _lp-tl114826114864_ __tmp117160)))) + (let ((_expr114828114867_ (reverse _expr114827114856_))) + ((lambda (_L114870_) + (let ((__tmp117159 + (lambda (_g114883114885_) (let () (declare (not safe)) (gxc#compile-e__1 - _g223073223075_ - _arg223002_)))) - (__tmp229915 - (let ((__tmp229916 - (lambda (_g223077223080_ _g223078223082_) + _g114883114885_ + _arg114812_)))) + (__tmp117157 + (let ((__tmp117158 + (lambda (_g114887114890_ _g114888114892_) (let () (declare (not safe)) - (cons _g223077223080_ - _g223078223082_))))) + (cons _g114887114890_ + _g114888114892_))))) (declare (not safe)) - (foldr1 __tmp229916 '() _L223060_)))) + (foldr1 __tmp117158 '() _L114870_)))) (declare (not safe)) - (ormap1 __tmp229917 __tmp229915))) - _expr223018223057_)))))) + (ormap1 __tmp117159 __tmp117157))) + _expr114828114867_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop223013223041_ - _target223010223036_ + (_loop114823114851_ + _target114820114846_ '()))) (let () (declare (not safe)) - (_g223004223023_ - _g223005223026_)))))) + (_g114814114833_ + _g114815114836_)))))) (let () (declare (not safe)) - (_g223004223023_ _g223005223026_))))) + (_g114814114833_ _g114815114836_))))) (let () (declare (not safe)) - (_g223004223023_ _g223005223026_)))))) + (_g114814114833_ _g114815114836_)))))) (declare (not safe)) - (_g223003223085_ _stx223001_)))) + (_g114813114895_ _stx114811_)))) (define gxc#find-begin-annotation% - (lambda (_stx222933_ _arg222934_) - (let* ((_g222936222953_ - (lambda (_g222937222950_) + (lambda (_stx114743_ _arg114744_) + (let* ((_g114746114763_ + (lambda (_g114747114760_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g222937222950_)))) - (_g222935222998_ - (lambda (_g222937222956_) + _g114747114760_)))) + (_g114745114808_ + (lambda (_g114747114766_) (if (let () (declare (not safe)) - (gx#stx-pair? _g222937222956_)) - (let ((_e222942222958_ + (gx#stx-pair? _g114747114766_)) + (let ((_e114752114768_ (let () (declare (not safe)) - (gx#stx-e _g222937222956_)))) - (let ((_hd222941222961_ + (gx#stx-e _g114747114766_)))) + (let ((_hd114751114771_ (let () (declare (not safe)) - (##car _e222942222958_))) - (_tl222940222963_ + (##car _e114752114768_))) + (_tl114750114773_ (let () (declare (not safe)) - (##cdr _e222942222958_)))) + (##cdr _e114752114768_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222940222963_)) - (let ((_e222945222966_ + (gx#stx-pair? _tl114750114773_)) + (let ((_e114755114776_ (let () (declare (not safe)) - (gx#stx-e _tl222940222963_)))) - (let ((_hd222944222969_ + (gx#stx-e _tl114750114773_)))) + (let ((_hd114754114779_ (let () (declare (not safe)) - (##car _e222945222966_))) - (_tl222943222971_ + (##car _e114755114776_))) + (_tl114753114781_ (let () (declare (not safe)) - (##cdr _e222945222966_)))) + (##cdr _e114755114776_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222943222971_)) - (let ((_e222948222974_ + (gx#stx-pair? _tl114753114781_)) + (let ((_e114758114784_ (let () (declare (not safe)) - (gx#stx-e _tl222943222971_)))) - (let ((_hd222947222977_ + (gx#stx-e _tl114753114781_)))) + (let ((_hd114757114787_ (let () (declare (not safe)) - (##car _e222948222974_))) - (_tl222946222979_ + (##car _e114758114784_))) + (_tl114756114789_ (let () (declare (not safe)) - (##cdr _e222948222974_)))) + (##cdr _e114758114784_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl222946222979_)) - ((lambda (_L222982_ _L222983_) + _tl114756114789_)) + ((lambda (_L114792_ _L114793_) (let () (declare (not safe)) (gxc#compile-e__1 - _L222982_ - _arg222934_))) - _hd222947222977_ - _hd222944222969_) + _L114792_ + _arg114744_))) + _hd114757114787_ + _hd114754114779_) (let () (declare (not safe)) - (_g222936222953_ - _g222937222956_))))) + (_g114746114763_ + _g114747114766_))))) (let () (declare (not safe)) - (_g222936222953_ _g222937222956_))))) + (_g114746114763_ _g114747114766_))))) (let () (declare (not safe)) - (_g222936222953_ _g222937222956_))))) + (_g114746114763_ _g114747114766_))))) (let () (declare (not safe)) - (_g222936222953_ _g222937222956_)))))) + (_g114746114763_ _g114747114766_)))))) (declare (not safe)) - (_g222935222998_ _stx222933_)))) + (_g114745114808_ _stx114743_)))) (define gxc#find-lambda% - (lambda (_stx222865_ _arg222866_) - (let* ((_g222868222885_ - (lambda (_g222869222882_) + (lambda (_stx114675_ _arg114676_) + (let* ((_g114678114695_ + (lambda (_g114679114692_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g222869222882_)))) - (_g222867222930_ - (lambda (_g222869222888_) + _g114679114692_)))) + (_g114677114740_ + (lambda (_g114679114698_) (if (let () (declare (not safe)) - (gx#stx-pair? _g222869222888_)) - (let ((_e222874222890_ + (gx#stx-pair? _g114679114698_)) + (let ((_e114684114700_ (let () (declare (not safe)) - (gx#stx-e _g222869222888_)))) - (let ((_hd222873222893_ + (gx#stx-e _g114679114698_)))) + (let ((_hd114683114703_ (let () (declare (not safe)) - (##car _e222874222890_))) - (_tl222872222895_ + (##car _e114684114700_))) + (_tl114682114705_ (let () (declare (not safe)) - (##cdr _e222874222890_)))) + (##cdr _e114684114700_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222872222895_)) - (let ((_e222877222898_ + (gx#stx-pair? _tl114682114705_)) + (let ((_e114687114708_ (let () (declare (not safe)) - (gx#stx-e _tl222872222895_)))) - (let ((_hd222876222901_ + (gx#stx-e _tl114682114705_)))) + (let ((_hd114686114711_ (let () (declare (not safe)) - (##car _e222877222898_))) - (_tl222875222903_ + (##car _e114687114708_))) + (_tl114685114713_ (let () (declare (not safe)) - (##cdr _e222877222898_)))) + (##cdr _e114687114708_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222875222903_)) - (let ((_e222880222906_ + (gx#stx-pair? _tl114685114713_)) + (let ((_e114690114716_ (let () (declare (not safe)) - (gx#stx-e _tl222875222903_)))) - (let ((_hd222879222909_ + (gx#stx-e _tl114685114713_)))) + (let ((_hd114689114719_ (let () (declare (not safe)) - (##car _e222880222906_))) - (_tl222878222911_ + (##car _e114690114716_))) + (_tl114688114721_ (let () (declare (not safe)) - (##cdr _e222880222906_)))) + (##cdr _e114690114716_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl222878222911_)) - ((lambda (_L222914_ _L222915_) + _tl114688114721_)) + ((lambda (_L114724_ _L114725_) (let () (declare (not safe)) (gxc#compile-e__1 - _L222914_ - _arg222866_))) - _hd222879222909_ - _hd222876222901_) + _L114724_ + _arg114676_))) + _hd114689114719_ + _hd114686114711_) (let () (declare (not safe)) - (_g222868222885_ - _g222869222888_))))) + (_g114678114695_ + _g114679114698_))))) (let () (declare (not safe)) - (_g222868222885_ _g222869222888_))))) + (_g114678114695_ _g114679114698_))))) (let () (declare (not safe)) - (_g222868222885_ _g222869222888_))))) + (_g114678114695_ _g114679114698_))))) (let () (declare (not safe)) - (_g222868222885_ _g222869222888_)))))) + (_g114678114695_ _g114679114698_)))))) (declare (not safe)) - (_g222867222930_ _stx222865_)))) + (_g114677114740_ _stx114675_)))) (define gxc#find-case-lambda% - (lambda (_stx222747_ _arg222748_) - (let* ((_g222750222778_ - (lambda (_g222751222775_) + (lambda (_stx114557_ _arg114558_) + (let* ((_g114560114588_ + (lambda (_g114561114585_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g222751222775_)))) - (_g222749222862_ - (lambda (_g222751222781_) + _g114561114585_)))) + (_g114559114672_ + (lambda (_g114561114591_) (if (let () (declare (not safe)) - (gx#stx-pair? _g222751222781_)) - (let ((_e222756222783_ + (gx#stx-pair? _g114561114591_)) + (let ((_e114566114593_ (let () (declare (not safe)) - (gx#stx-e _g222751222781_)))) - (let ((_hd222755222786_ + (gx#stx-e _g114561114591_)))) + (let ((_hd114565114596_ (let () (declare (not safe)) - (##car _e222756222783_))) - (_tl222754222788_ + (##car _e114566114593_))) + (_tl114564114598_ (let () (declare (not safe)) - (##cdr _e222756222783_)))) + (##cdr _e114566114593_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl222754222788_)) - (let ((_g229919_ + (gx#stx-pair/null? _tl114564114598_)) + (let ((_g117161_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl222754222788_ + _tl114564114598_ '0)))) (begin - (let ((_g229920_ + (let ((_g117162_ (let () (declare (not safe)) - (if (##values? _g229919_) - (##vector-length _g229919_) + (if (##values? _g117161_) + (##vector-length _g117161_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g229920_ 2))) + (##fx= _g117162_ 2))) (error "Context expects 2 values" - _g229920_))) - (let ((_target222757222791_ + _g117162_))) + (let ((_target114567114601_ (let () (declare (not safe)) - (##vector-ref _g229919_ 0))) - (_tl222759222793_ + (##vector-ref _g117161_ 0))) + (_tl114569114603_ (let () (declare (not safe)) - (##vector-ref _g229919_ 1)))) + (##vector-ref _g117161_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl222759222793_)) - (letrec ((_loop222760222796_ - (lambda (_hd222758222799_ - _body222764222801_ - _hd222765222803_) + (gx#stx-null? _tl114569114603_)) + (letrec ((_loop114570114606_ + (lambda (_hd114568114609_ + _body114574114611_ + _hd114575114613_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd222758222799_)) - (let ((_e222761222806_ + _hd114568114609_)) + (let ((_e114571114616_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd222758222799_)))) - (let ((_lp-hd222762222809_ - (let () (declare (not safe)) (##car _e222761222806_))) - (_lp-tl222763222811_ + (gx#stx-e _hd114568114609_)))) + (let ((_lp-hd114572114619_ + (let () (declare (not safe)) (##car _e114571114616_))) + (_lp-tl114573114621_ (let () (declare (not safe)) - (##cdr _e222761222806_)))) + (##cdr _e114571114616_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd222762222809_)) - (let ((_e222770222814_ + (gx#stx-pair? _lp-hd114572114619_)) + (let ((_e114580114624_ (let () (declare (not safe)) - (gx#stx-e _lp-hd222762222809_)))) - (let ((_hd222769222817_ + (gx#stx-e _lp-hd114572114619_)))) + (let ((_hd114579114627_ (let () (declare (not safe)) - (##car _e222770222814_))) - (_tl222768222819_ + (##car _e114580114624_))) + (_tl114578114629_ (let () (declare (not safe)) - (##cdr _e222770222814_)))) + (##cdr _e114580114624_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222768222819_)) - (let ((_e222773222822_ + (gx#stx-pair? _tl114578114629_)) + (let ((_e114583114632_ (let () (declare (not safe)) - (gx#stx-e _tl222768222819_)))) - (let ((_hd222772222825_ + (gx#stx-e _tl114578114629_)))) + (let ((_hd114582114635_ (let () (declare (not safe)) - (##car _e222773222822_))) - (_tl222771222827_ + (##car _e114583114632_))) + (_tl114581114637_ (let () (declare (not safe)) - (##cdr _e222773222822_)))) + (##cdr _e114583114632_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl222771222827_)) - (let ((__tmp229925 + (gx#stx-null? _tl114581114637_)) + (let ((__tmp117167 (let () (declare (not safe)) - (cons _hd222772222825_ - _body222764222801_))) - (__tmp229924 + (cons _hd114582114635_ + _body114574114611_))) + (__tmp117166 (let () (declare (not safe)) - (cons _hd222769222817_ - _hd222765222803_)))) + (cons _hd114579114627_ + _hd114575114613_)))) (declare (not safe)) - (_loop222760222796_ - _lp-tl222763222811_ - __tmp229925 - __tmp229924)) + (_loop114570114606_ + _lp-tl114573114621_ + __tmp117167 + __tmp117166)) (let () (declare (not safe)) - (_g222750222778_ _g222751222781_))))) + (_g114560114588_ _g114561114591_))))) (let () (declare (not safe)) - (_g222750222778_ _g222751222781_))))) + (_g114560114588_ _g114561114591_))))) (let () (declare (not safe)) - (_g222750222778_ _g222751222781_))))) - (let ((_body222766222830_ (reverse _body222764222801_)) - (_hd222767222832_ (reverse _hd222765222803_))) - ((lambda (_L222835_ _L222836_) - (let ((__tmp229923 - (lambda (_g222850222852_) + (_g114560114588_ _g114561114591_))))) + (let ((_body114576114640_ (reverse _body114574114611_)) + (_hd114577114642_ (reverse _hd114575114613_))) + ((lambda (_L114645_ _L114646_) + (let ((__tmp117165 + (lambda (_g114660114662_) (let () (declare (not safe)) (gxc#compile-e__1 - _g222850222852_ - _arg222748_)))) - (__tmp229921 - (let ((__tmp229922 - (lambda (_g222854222857_ _g222855222859_) + _g114660114662_ + _arg114558_)))) + (__tmp117163 + (let ((__tmp117164 + (lambda (_g114664114667_ _g114665114669_) (let () (declare (not safe)) - (cons _g222854222857_ - _g222855222859_))))) + (cons _g114664114667_ + _g114665114669_))))) (declare (not safe)) - (foldr1 __tmp229922 '() _L222835_)))) + (foldr1 __tmp117164 '() _L114645_)))) (declare (not safe)) - (ormap1 __tmp229923 __tmp229921))) - _body222766222830_ - _hd222767222832_)))))) + (ormap1 __tmp117165 __tmp117163))) + _body114576114640_ + _hd114577114642_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop222760222796_ - _target222757222791_ + (_loop114570114606_ + _target114567114601_ '() '()))) (let () (declare (not safe)) - (_g222750222778_ - _g222751222781_)))))) + (_g114560114588_ + _g114561114591_)))))) (let () (declare (not safe)) - (_g222750222778_ _g222751222781_))))) + (_g114560114588_ _g114561114591_))))) (let () (declare (not safe)) - (_g222750222778_ _g222751222781_)))))) + (_g114560114588_ _g114561114591_)))))) (declare (not safe)) - (_g222749222862_ _stx222747_)))) + (_g114559114672_ _stx114557_)))) (define gxc#find-let-values% - (lambda (_stx222597_ _arg222598_) - (let* ((_g222600222635_ - (lambda (_g222601222632_) + (lambda (_stx114407_ _arg114408_) + (let* ((_g114410114445_ + (lambda (_g114411114442_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g222601222632_)))) - (_g222599222744_ - (lambda (_g222601222638_) + _g114411114442_)))) + (_g114409114554_ + (lambda (_g114411114448_) (if (let () (declare (not safe)) - (gx#stx-pair? _g222601222638_)) - (let ((_e222607222640_ + (gx#stx-pair? _g114411114448_)) + (let ((_e114417114450_ (let () (declare (not safe)) - (gx#stx-e _g222601222638_)))) - (let ((_hd222606222643_ + (gx#stx-e _g114411114448_)))) + (let ((_hd114416114453_ (let () (declare (not safe)) - (##car _e222607222640_))) - (_tl222605222645_ + (##car _e114417114450_))) + (_tl114415114455_ (let () (declare (not safe)) - (##cdr _e222607222640_)))) + (##cdr _e114417114450_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222605222645_)) - (let ((_e222610222648_ + (gx#stx-pair? _tl114415114455_)) + (let ((_e114420114458_ (let () (declare (not safe)) - (gx#stx-e _tl222605222645_)))) - (let ((_hd222609222651_ + (gx#stx-e _tl114415114455_)))) + (let ((_hd114419114461_ (let () (declare (not safe)) - (##car _e222610222648_))) - (_tl222608222653_ + (##car _e114420114458_))) + (_tl114418114463_ (let () (declare (not safe)) - (##cdr _e222610222648_)))) + (##cdr _e114420114458_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd222609222651_)) - (let ((_g229926_ + (gx#stx-pair/null? _hd114419114461_)) + (let ((_g117168_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd222609222651_ + _hd114419114461_ '0)))) (begin - (let ((_g229927_ + (let ((_g117169_ (let () (declare (not safe)) - (if (##values? _g229926_) + (if (##values? _g117168_) (##vector-length - _g229926_) + _g117168_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g229927_ 2))) + (##fx= _g117169_ 2))) (error "Context expects 2 values" - _g229927_))) - (let ((_target222611222656_ + _g117169_))) + (let ((_target114421114466_ (let () (declare (not safe)) - (##vector-ref _g229926_ 0))) - (_tl222613222658_ + (##vector-ref _g117168_ 0))) + (_tl114423114468_ (let () (declare (not safe)) (##vector-ref - _g229926_ + _g117168_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl222613222658_)) - (letrec ((_loop222614222661_ - (lambda (_hd222612222664_ + _tl114423114468_)) + (letrec ((_loop114424114471_ + (lambda (_hd114422114474_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr222618222666_ - _bind222619222668_) + _expr114428114476_ + _bind114429114478_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd222612222664_)) - (let ((_e222615222671_ + (gx#stx-pair? _hd114422114474_)) + (let ((_e114425114481_ (let () (declare (not safe)) - (gx#stx-e _hd222612222664_)))) - (let ((_lp-hd222616222674_ + (gx#stx-e _hd114422114474_)))) + (let ((_lp-hd114426114484_ (let () (declare (not safe)) - (##car _e222615222671_))) - (_lp-tl222617222676_ + (##car _e114425114481_))) + (_lp-tl114427114486_ (let () (declare (not safe)) - (##cdr _e222615222671_)))) + (##cdr _e114425114481_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd222616222674_)) - (let ((_e222624222679_ + (gx#stx-pair? _lp-hd114426114484_)) + (let ((_e114434114489_ (let () (declare (not safe)) - (gx#stx-e _lp-hd222616222674_)))) - (let ((_hd222623222682_ + (gx#stx-e _lp-hd114426114484_)))) + (let ((_hd114433114492_ (let () (declare (not safe)) - (##car _e222624222679_))) - (_tl222622222684_ + (##car _e114434114489_))) + (_tl114432114494_ (let () (declare (not safe)) - (##cdr _e222624222679_)))) + (##cdr _e114434114489_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222622222684_)) - (let ((_e222627222687_ + (gx#stx-pair? _tl114432114494_)) + (let ((_e114437114497_ (let () (declare (not safe)) - (gx#stx-e _tl222622222684_)))) - (let ((_hd222626222690_ + (gx#stx-e _tl114432114494_)))) + (let ((_hd114436114500_ (let () (declare (not safe)) - (##car _e222627222687_))) - (_tl222625222692_ + (##car _e114437114497_))) + (_tl114435114502_ (let () (declare (not safe)) - (##cdr _e222627222687_)))) + (##cdr _e114437114497_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl222625222692_)) - (let ((__tmp229932 + _tl114435114502_)) + (let ((__tmp117174 (let () (declare (not safe)) - (cons _hd222626222690_ - _expr222618222666_))) - (__tmp229931 + (cons _hd114436114500_ + _expr114428114476_))) + (__tmp117173 (let () (declare (not safe)) - (cons _hd222623222682_ - _bind222619222668_)))) + (cons _hd114433114492_ + _bind114429114478_)))) (declare (not safe)) - (_loop222614222661_ - _lp-tl222617222676_ - __tmp229932 - __tmp229931)) + (_loop114424114471_ + _lp-tl114427114486_ + __tmp117174 + __tmp117173)) (let () (declare (not safe)) - (_g222600222635_ - _g222601222638_))))) + (_g114410114445_ + _g114411114448_))))) (let () (declare (not safe)) - (_g222600222635_ _g222601222638_))))) + (_g114410114445_ _g114411114448_))))) (let () (declare (not safe)) - (_g222600222635_ _g222601222638_))))) - (let ((_expr222620222695_ (reverse _expr222618222666_)) - (_bind222621222697_ - (reverse _bind222619222668_))) + (_g114410114445_ _g114411114448_))))) + (let ((_expr114430114505_ (reverse _expr114428114476_)) + (_bind114431114507_ + (reverse _bind114429114478_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222608222653_)) - (let ((_e222630222700_ + (gx#stx-pair? _tl114418114463_)) + (let ((_e114440114510_ (let () (declare (not safe)) - (gx#stx-e _tl222608222653_)))) - (let ((_hd222629222703_ + (gx#stx-e _tl114418114463_)))) + (let ((_hd114439114513_ (let () (declare (not safe)) - (##car _e222630222700_))) - (_tl222628222705_ + (##car _e114440114510_))) + (_tl114438114515_ (let () (declare (not safe)) - (##cdr _e222630222700_)))) + (##cdr _e114440114510_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl222628222705_)) - ((lambda (_L222708_ _L222709_ _L222710_) - (let ((_$e222741_ - (let ((__tmp229930 - (lambda (_g222729222731_) + (gx#stx-null? _tl114438114515_)) + ((lambda (_L114518_ _L114519_ _L114520_) + (let ((_$e114551_ + (let ((__tmp117172 + (lambda (_g114539114541_) (let () (declare (not safe)) (gxc#compile-e__1 - _g222729222731_ - _arg222598_)))) - (__tmp229928 - (let ((__tmp229929 - (lambda (_g222733222736_ + _g114539114541_ + _arg114408_)))) + (__tmp117170 + (let ((__tmp117171 + (lambda (_g114543114546_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g222734222738_) + _g114544114548_) (let () (declare (not safe)) - (cons _g222733222736_ _g222734222738_))))) + (cons _g114543114546_ _g114544114548_))))) (declare (not safe)) - (foldr1 __tmp229929 '() _L222709_)))) + (foldr1 __tmp117171 '() _L114519_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (ormap1 __tmp229930 - __tmp229928)))) - (if _$e222741_ - _$e222741_ + (ormap1 __tmp117172 + __tmp117170)))) + (if _$e114551_ + _$e114551_ (let () (declare (not safe)) (gxc#compile-e__1 - _L222708_ - _arg222598_))))) - _hd222629222703_ - _expr222620222695_ - _bind222621222697_) + _L114518_ + _arg114408_))))) + _hd114439114513_ + _expr114430114505_ + _bind114431114507_) (let () (declare (not safe)) - (_g222600222635_ _g222601222638_))))) + (_g114410114445_ _g114411114448_))))) (let () (declare (not safe)) - (_g222600222635_ _g222601222638_)))))))) + (_g114410114445_ _g114411114448_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop222614222661_ - _target222611222656_ + (_loop114424114471_ + _target114421114466_ '() '()))) (let () (declare (not safe)) - (_g222600222635_ - _g222601222638_)))))) + (_g114410114445_ + _g114411114448_)))))) (let () (declare (not safe)) - (_g222600222635_ _g222601222638_))))) + (_g114410114445_ _g114411114448_))))) (let () (declare (not safe)) - (_g222600222635_ _g222601222638_))))) + (_g114410114445_ _g114411114448_))))) (let () (declare (not safe)) - (_g222600222635_ _g222601222638_)))))) + (_g114410114445_ _g114411114448_)))))) (declare (not safe)) - (_g222599222744_ _stx222597_)))) + (_g114409114554_ _stx114407_)))) (define gxc#find-setq% - (lambda (_stx222529_ _arg222530_) - (let* ((_g222532222549_ - (lambda (_g222533222546_) + (lambda (_stx114339_ _arg114340_) + (let* ((_g114342114359_ + (lambda (_g114343114356_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g222533222546_)))) - (_g222531222594_ - (lambda (_g222533222552_) + _g114343114356_)))) + (_g114341114404_ + (lambda (_g114343114362_) (if (let () (declare (not safe)) - (gx#stx-pair? _g222533222552_)) - (let ((_e222538222554_ + (gx#stx-pair? _g114343114362_)) + (let ((_e114348114364_ (let () (declare (not safe)) - (gx#stx-e _g222533222552_)))) - (let ((_hd222537222557_ + (gx#stx-e _g114343114362_)))) + (let ((_hd114347114367_ (let () (declare (not safe)) - (##car _e222538222554_))) - (_tl222536222559_ + (##car _e114348114364_))) + (_tl114346114369_ (let () (declare (not safe)) - (##cdr _e222538222554_)))) + (##cdr _e114348114364_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222536222559_)) - (let ((_e222541222562_ + (gx#stx-pair? _tl114346114369_)) + (let ((_e114351114372_ (let () (declare (not safe)) - (gx#stx-e _tl222536222559_)))) - (let ((_hd222540222565_ + (gx#stx-e _tl114346114369_)))) + (let ((_hd114350114375_ (let () (declare (not safe)) - (##car _e222541222562_))) - (_tl222539222567_ + (##car _e114351114372_))) + (_tl114349114377_ (let () (declare (not safe)) - (##cdr _e222541222562_)))) + (##cdr _e114351114372_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222539222567_)) - (let ((_e222544222570_ + (gx#stx-pair? _tl114349114377_)) + (let ((_e114354114380_ (let () (declare (not safe)) - (gx#stx-e _tl222539222567_)))) - (let ((_hd222543222573_ + (gx#stx-e _tl114349114377_)))) + (let ((_hd114353114383_ (let () (declare (not safe)) - (##car _e222544222570_))) - (_tl222542222575_ + (##car _e114354114380_))) + (_tl114352114385_ (let () (declare (not safe)) - (##cdr _e222544222570_)))) + (##cdr _e114354114380_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl222542222575_)) - ((lambda (_L222578_ _L222579_) + _tl114352114385_)) + ((lambda (_L114388_ _L114389_) (let () (declare (not safe)) (gxc#compile-e__1 - _L222578_ - _arg222530_))) - _hd222543222573_ - _hd222540222565_) + _L114388_ + _arg114340_))) + _hd114353114383_ + _hd114350114375_) (let () (declare (not safe)) - (_g222532222549_ - _g222533222552_))))) + (_g114342114359_ + _g114343114362_))))) (let () (declare (not safe)) - (_g222532222549_ _g222533222552_))))) + (_g114342114359_ _g114343114362_))))) (let () (declare (not safe)) - (_g222532222549_ _g222533222552_))))) + (_g114342114359_ _g114343114362_))))) (let () (declare (not safe)) - (_g222532222549_ _g222533222552_)))))) + (_g114342114359_ _g114343114362_)))))) (declare (not safe)) - (_g222531222594_ _stx222529_)))) + (_g114341114404_ _stx114339_)))) (define gxc#find-var-refs-ref% - (lambda (_stx222473_ _ids222474_) - (let* ((_g222476222489_ - (lambda (_g222477222486_) + (lambda (_stx114283_ _ids114284_) + (let* ((_g114286114299_ + (lambda (_g114287114296_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g222477222486_)))) - (_g222475222526_ - (lambda (_g222477222492_) + _g114287114296_)))) + (_g114285114336_ + (lambda (_g114287114302_) (if (let () (declare (not safe)) - (gx#stx-pair? _g222477222492_)) - (let ((_e222481222494_ + (gx#stx-pair? _g114287114302_)) + (let ((_e114291114304_ (let () (declare (not safe)) - (gx#stx-e _g222477222492_)))) - (let ((_hd222480222497_ + (gx#stx-e _g114287114302_)))) + (let ((_hd114290114307_ (let () (declare (not safe)) - (##car _e222481222494_))) - (_tl222479222499_ + (##car _e114291114304_))) + (_tl114289114309_ (let () (declare (not safe)) - (##cdr _e222481222494_)))) + (##cdr _e114291114304_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222479222499_)) - (let ((_e222484222502_ + (gx#stx-pair? _tl114289114309_)) + (let ((_e114294114312_ (let () (declare (not safe)) - (gx#stx-e _tl222479222499_)))) - (let ((_hd222483222505_ + (gx#stx-e _tl114289114309_)))) + (let ((_hd114293114315_ (let () (declare (not safe)) - (##car _e222484222502_))) - (_tl222482222507_ + (##car _e114294114312_))) + (_tl114292114317_ (let () (declare (not safe)) - (##cdr _e222484222502_)))) + (##cdr _e114294114312_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl222482222507_)) - ((lambda (_L222510_) - (let ((__tmp229933 - (lambda (_g222521222523_) + (gx#stx-null? _tl114292114317_)) + ((lambda (_L114320_) + (let ((__tmp117175 + (lambda (_g114331114333_) (let () (declare (not safe)) (gx#free-identifier=? - _L222510_ - _g222521222523_))))) + _L114320_ + _g114331114333_))))) (declare (not safe)) - (find __tmp229933 _ids222474_))) - _hd222483222505_) + (find __tmp117175 _ids114284_))) + _hd114293114315_) (let () (declare (not safe)) - (_g222476222489_ _g222477222492_))))) + (_g114286114299_ _g114287114302_))))) (let () (declare (not safe)) - (_g222476222489_ _g222477222492_))))) + (_g114286114299_ _g114287114302_))))) (let () (declare (not safe)) - (_g222476222489_ _g222477222492_)))))) + (_g114286114299_ _g114287114302_)))))) (declare (not safe)) - (_g222475222526_ _stx222473_)))) + (_g114285114336_ _stx114283_)))) (define gxc#find-var-refs-setq% - (lambda (_stx222397_ _ids222398_) - (let* ((_g222400222417_ - (lambda (_g222401222414_) + (lambda (_stx114207_ _ids114208_) + (let* ((_g114210114227_ + (lambda (_g114211114224_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g222401222414_)))) - (_g222399222470_ - (lambda (_g222401222420_) + _g114211114224_)))) + (_g114209114280_ + (lambda (_g114211114230_) (if (let () (declare (not safe)) - (gx#stx-pair? _g222401222420_)) - (let ((_e222406222422_ + (gx#stx-pair? _g114211114230_)) + (let ((_e114216114232_ (let () (declare (not safe)) - (gx#stx-e _g222401222420_)))) - (let ((_hd222405222425_ + (gx#stx-e _g114211114230_)))) + (let ((_hd114215114235_ (let () (declare (not safe)) - (##car _e222406222422_))) - (_tl222404222427_ + (##car _e114216114232_))) + (_tl114214114237_ (let () (declare (not safe)) - (##cdr _e222406222422_)))) + (##cdr _e114216114232_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222404222427_)) - (let ((_e222409222430_ + (gx#stx-pair? _tl114214114237_)) + (let ((_e114219114240_ (let () (declare (not safe)) - (gx#stx-e _tl222404222427_)))) - (let ((_hd222408222433_ + (gx#stx-e _tl114214114237_)))) + (let ((_hd114218114243_ (let () (declare (not safe)) - (##car _e222409222430_))) - (_tl222407222435_ + (##car _e114219114240_))) + (_tl114217114245_ (let () (declare (not safe)) - (##cdr _e222409222430_)))) + (##cdr _e114219114240_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222407222435_)) - (let ((_e222412222438_ + (gx#stx-pair? _tl114217114245_)) + (let ((_e114222114248_ (let () (declare (not safe)) - (gx#stx-e _tl222407222435_)))) - (let ((_hd222411222441_ + (gx#stx-e _tl114217114245_)))) + (let ((_hd114221114251_ (let () (declare (not safe)) - (##car _e222412222438_))) - (_tl222410222443_ + (##car _e114222114248_))) + (_tl114220114253_ (let () (declare (not safe)) - (##cdr _e222412222438_)))) + (##cdr _e114222114248_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl222410222443_)) - ((lambda (_L222446_ _L222447_) - (let ((_$e222467_ - (let ((__tmp229934 - (lambda (_g222462222464_) + _tl114220114253_)) + ((lambda (_L114256_ _L114257_) + (let ((_$e114277_ + (let ((__tmp117176 + (lambda (_g114272114274_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#free-identifier=? _L222447_ _g222462222464_))))) + (gx#free-identifier=? _L114257_ _g114272114274_))))) (declare (not safe)) - (find __tmp229934 _ids222398_)))) + (find __tmp117176 _ids114208_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e222467_ - _$e222467_ + (if _$e114277_ + _$e114277_ (let () (declare (not safe)) (gxc#compile-e__1 - _L222446_ - _ids222398_))))) - _hd222411222441_ - _hd222408222433_) + _L114256_ + _ids114208_))))) + _hd114221114251_ + _hd114218114243_) (let () (declare (not safe)) - (_g222400222417_ - _g222401222420_))))) + (_g114210114227_ + _g114211114230_))))) (let () (declare (not safe)) - (_g222400222417_ _g222401222420_))))) + (_g114210114227_ _g114211114230_))))) (let () (declare (not safe)) - (_g222400222417_ _g222401222420_))))) + (_g114210114227_ _g114211114230_))))) (let () (declare (not safe)) - (_g222400222417_ _g222401222420_)))))) + (_g114210114227_ _g114211114230_)))))) (declare (not safe)) - (_g222399222470_ _stx222397_)))))) + (_g114209114280_ _stx114207_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize__0.scm b/src/bootstrap/gerbil/compiler/optimize__0.scm index d61d5db58..a51d7e22c 100644 --- a/src/bootstrap/gerbil/compiler/optimize__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize__0.scm @@ -1,2188 +1,2264 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize::timestamp 1708102809) + (define gerbil/compiler/optimize::timestamp 1708370118) (begin (define gxc#optimizer-info-init! (lambda () (if (gxc#current-compile-optimizer-info) '#!void (gxc#current-compile-optimizer-info - (let ((__obj291663 + (let ((__obj156069 (let () (declare (not safe)) (##structure gxc#optimizer-info::t '#f '#f '#f)))) - (gxc#optimizer-info:::init! __obj291663) - __obj291663))))) + (gxc#optimizer-info:::init! __obj156069) + __obj156069))))) (define gxc#optimize! - (lambda (_ctx286788_) - (let ((__tmp291667 + (lambda (_ctx155762_) + (let ((__tmp156073 (lambda () (let () (declare (not safe)) - (gxc#optimizer-load-ssxi-deps _ctx286788_)) + (gxc#optimizer-load-ssxi-deps _ctx155762_)) (let () (declare (not safe)) (gxc#optimizer-load-builtin-ssxi)) - (let ((__tmp291669 + (let ((__tmp156075 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp291668 + (__tmp156074 (##structure-ref - _ctx286788_ + _ctx155762_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (table-set! __tmp291669 __tmp291668 '#t)) - (let ((_code286791_ - (let ((__tmp291670 + (hash-put! __tmp156075 __tmp156074 '#t)) + (let ((_code155765_ + (let ((__tmp156076 (##structure-ref - _ctx286788_ + _ctx155762_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#optimize-source __tmp291670)))) + (gxc#optimize-source __tmp156076)))) (##structure-set! - _ctx286788_ - _code286791_ + _ctx155762_ + _code155765_ '11 gx#module-context::t '#f)))) - (__tmp291666 - (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp291665 - (let () (declare (not safe)) (make-table 'test: eq?)))) + (__tmp156072 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp156071 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (call-with-parameters - __tmp291667 + __tmp156073 gxc#current-compile-mutators - __tmp291666 + __tmp156072 gxc#current-compile-local-type - __tmp291665)))) + __tmp156071)))) (define gxc#optimizer-load-builtin-ssxi (lambda () - (let () - (declare (not safe)) - (gxc#optimizer-import-ssxi-by-id 'gerbil/builtin)) - (let ((__tmp291671 - (##structure-ref - (gxc#current-compile-optimizer-info) - '2 - gxc#optimizer-info::t - '#f))) - (declare (not safe)) - (table-set! __tmp291671 'gerbil/builtin '#t)))) + (letrec ((_load-it!155758_ + (lambda (_id155760_) + (if (let ((__tmp156078 + (##structure-ref + (gxc#current-compile-optimizer-info) + '2 + gxc#optimizer-info::t + '#f))) + (declare (not safe)) + (hash-get __tmp156078 _id155760_)) + '#!void + (begin + (let () + (declare (not safe)) + (gxc#optimizer-import-ssxi-by-id _id155760_)) + (let ((__tmp156077 + (##structure-ref + (gxc#current-compile-optimizer-info) + '2 + gxc#optimizer-info::t + '#f))) + (declare (not safe)) + (hash-put! __tmp156077 _id155760_ '#t))))))) + (for-each + _load-it!155758_ + '(gerbil/runtime/gambit + gerbil/runtime/util + gerbil/runtime/table + gerbil/runtime/control + gerbil/runtime/system + gerbil/runtime/c3 + gerbil/runtime/mop + gerbil/runtime/error + gerbil/runtime/interface + gerbil/runtime/hash + gerbil/runtime/thread + gerbil/runtime/syntax + gerbil/runtime/eval + gerbil/runtime/repl + gerbil/runtime/loader + gerbil/runtime/init + gerbil/runtime + gerbil/builtin))))) (define gxc#optimizer-load-ssxi-deps - (lambda (_ctx286732_) - (letrec* ((_deps286734_ - (let* ((_imports286778_ + (lambda (_ctx155702_) + (letrec* ((_deps155704_ + (let* ((_imports155748_ (##structure-ref - _ctx286732_ + _ctx155702_ '8 gx#module-context::t '#f)) - (_$e286780_ + (_$e155750_ (let () (declare (not safe)) - (gx#core-context-prelude__% _ctx286732_)))) - (if _$e286780_ - ((lambda (_g286782286784_) + (gx#core-context-prelude__% _ctx155702_)))) + (if _$e155750_ + ((lambda (_g155752155754_) (let () (declare (not safe)) - (cons _g286782286784_ _imports286778_))) - _$e286780_) - _imports286778_)))) - (let _lp286736_ ((_rest286738_ _deps286734_)) - (let* ((_rest286739286747_ _rest286738_) - (_else286741286755_ (lambda () '#!void)) - (_K286743286766_ - (lambda (_rest286758_ _hd286759_) + (cons _g155752155754_ _imports155748_))) + _$e155750_) + _imports155748_)))) + (let _lp155706_ ((_rest155708_ _deps155704_)) + (let* ((_rest155709155717_ _rest155708_) + (_else155711155725_ (lambda () '#!void)) + (_K155713155736_ + (lambda (_rest155728_ _hd155729_) (if (let () (declare (not safe)) (##structure-instance-of? - _hd286759_ + _hd155729_ 'gx#module-context::t)) (begin - (if (let ((__tmp291685 + (if (let ((__tmp156092 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp291684 + (__tmp156091 (##structure-ref - _hd286759_ + _hd155729_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (table-ref __tmp291685 __tmp291684 '#f)) + (hash-get __tmp156092 __tmp156091)) '#!void (begin - (let ((_$e286761_ + (let ((_$e155731_ (let () (declare (not safe)) (gx#core-context-prelude__% - _hd286759_)))) - (if _$e286761_ - ((lambda (_pre286764_) - (let ((__tmp291682 - (let ((__tmp291683 + _hd155729_)))) + (if _$e155731_ + ((lambda (_pre155734_) + (let ((__tmp156089 + (let ((__tmp156090 (##structure-ref - _hd286759_ + _hd155729_ '8 gx#module-context::t '#f))) (declare (not safe)) - (cons _pre286764_ - __tmp291683)))) + (cons _pre155734_ + __tmp156090)))) (declare (not safe)) - (_lp286736_ __tmp291682))) - _$e286761_) - (let ((__tmp291681 + (_lp155706_ __tmp156089))) + _$e155731_) + (let ((__tmp156088 (##structure-ref - _hd286759_ + _hd155729_ '8 gx#module-context::t '#f))) (declare (not safe)) - (_lp286736_ __tmp291681)))) + (_lp155706_ __tmp156088)))) (let () (declare (not safe)) - (gxc#optimizer-load-ssxi _hd286759_)))) + (gxc#optimizer-load-ssxi _hd155729_)))) (let () (declare (not safe)) - (_lp286736_ _rest286758_))) + (_lp155706_ _rest155728_))) (if (let () (declare (not safe)) (##structure-instance-of? - _hd286759_ + _hd155729_ 'gx#prelude-context::t)) (begin - (if (let ((__tmp291680 + (if (let ((__tmp156087 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp291679 + (__tmp156086 (##structure-ref - _hd286759_ + _hd155729_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (table-ref __tmp291680 __tmp291679 '#f)) + (hash-get __tmp156087 __tmp156086)) '#!void (begin - (let ((__tmp291678 + (let ((__tmp156085 (##structure-ref - _hd286759_ + _hd155729_ '7 gx#prelude-context::t '#f))) (declare (not safe)) - (_lp286736_ __tmp291678)) + (_lp155706_ __tmp156085)) (let () (declare (not safe)) - (gxc#optimizer-load-ssxi _hd286759_)))) + (gxc#optimizer-load-ssxi _hd155729_)))) (let () (declare (not safe)) - (_lp286736_ _rest286758_))) + (_lp155706_ _rest155728_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd286759_ + _hd155729_ 'gx#module-import::t)) - (let ((__tmp291676 - (let ((__tmp291677 + (let ((__tmp156083 + (let ((__tmp156084 (##direct-structure-ref - _hd286759_ + _hd155729_ '1 gx#module-import::t '#f))) (declare (not safe)) - (cons __tmp291677 _rest286758_)))) + (cons __tmp156084 _rest155728_)))) (declare (not safe)) - (_lp286736_ __tmp291676)) + (_lp155706_ __tmp156083)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd286759_ + _hd155729_ 'gx#module-export::t)) - (let ((__tmp291674 - (let ((__tmp291675 + (let ((__tmp156081 + (let ((__tmp156082 (##direct-structure-ref - _hd286759_ + _hd155729_ '1 gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp291675 - _rest286758_)))) + (cons __tmp156082 + _rest155728_)))) (declare (not safe)) - (_lp286736_ __tmp291674)) + (_lp155706_ __tmp156081)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd286759_ + _hd155729_ 'gx#import-set::t)) - (let ((__tmp291672 - (let ((__tmp291673 + (let ((__tmp156079 + (let ((__tmp156080 (##direct-structure-ref - _hd286759_ + _hd155729_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp291673 - _rest286758_)))) + (cons __tmp156080 + _rest155728_)))) (declare (not safe)) - (_lp286736_ __tmp291672)) - (error '"Unexpected module import" - _hd286759_))))))))) - (if (let () (declare (not safe)) (##pair? _rest286739286747_)) - (let ((_hd286744286769_ + (_lp155706_ __tmp156079)) + (let () + (declare (not safe)) + (error '"Unexpected module import" + _hd155729_)))))))))) + (if (let () (declare (not safe)) (##pair? _rest155709155717_)) + (let ((_hd155714155739_ (let () (declare (not safe)) - (##car _rest286739286747_))) - (_tl286745286771_ + (##car _rest155709155717_))) + (_tl155715155741_ (let () (declare (not safe)) - (##cdr _rest286739286747_)))) - (let* ((_hd286774_ _hd286744286769_) - (_rest286776_ _tl286745286771_)) + (##cdr _rest155709155717_)))) + (let* ((_hd155744_ _hd155714155739_) + (_rest155746_ _tl155715155741_)) (declare (not safe)) - (_K286743286766_ _rest286776_ _hd286774_))) + (_K155713155736_ _rest155746_ _hd155744_))) '#!void)))))) (define gxc#optimizer-load-ssxi - (lambda (_ctx286712_) + (lambda (_ctx155682_) (if (and (let () (declare (not safe)) (##structure-instance-of? - _ctx286712_ + _ctx155682_ 'gx#module-context::t)) - (let ((__tmp291686 + (let ((__tmp156093 (##structure-ref - _ctx286712_ + _ctx155682_ '7 gx#module-context::t '#f))) (declare (not safe)) - (list? __tmp291686))) + (list? __tmp156093))) '#!void - (let* ((_ht286714_ + (let* ((_ht155684_ (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (_id286716_ + (_id155686_ (##structure-ref - _ctx286712_ + _ctx155682_ '1 gx#expander-context::t '#f)) - (_mod286718_ + (_mod155688_ (let () (declare (not safe)) - (table-ref _ht286714_ _id286716_ '#f)))) - (let ((_$e286721_ _mod286718_)) - (if _$e286721_ - _$e286721_ - (let* ((_mod286724_ + (hash-get _ht155684_ _id155686_)))) + (let ((_$e155691_ _mod155688_)) + (if _$e155691_ + _$e155691_ + (let* ((_mod155694_ (let () (declare (not safe)) - (gxc#optimizer-import-ssxi _ctx286712_))) - (_val286729_ - (let ((_$e286726_ _mod286724_)) - (if _$e286726_ _$e286726_ '#!void)))) + (gxc#optimizer-import-ssxi _ctx155682_))) + (_val155699_ + (let ((_$e155696_ _mod155694_)) + (if _$e155696_ _$e155696_ '#!void)))) (let () (declare (not safe)) - (table-set! _ht286714_ _id286716_ _val286729_)) - _val286729_))))))) + (hash-put! _ht155684_ _id155686_ _val155699_)) + _val155699_))))))) (define gxc#optimizer-import-ssxi - (lambda (_ctx286710_) - (if (##structure-ref _ctx286710_ '1 gx#expander-context::t '#f) - (let ((__tmp291687 + (lambda (_ctx155680_) + (if (##structure-ref _ctx155680_ '1 gx#expander-context::t '#f) + (let ((__tmp156094 (##structure-ref - _ctx286710_ + _ctx155680_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#optimizer-import-ssxi-by-id __tmp291687)) + (gxc#optimizer-import-ssxi-by-id __tmp156094)) '#f))) (define gxc#optimizer-import-ssxi-by-id - (lambda (_id286687_) - (letrec ((_catch-e286689_ - (lambda (_exn286708_) + (lambda (_id155657_) + (letrec ((_catch-e155659_ + (lambda (_exn155678_) (if (gxc#current-compile-verbose) (begin (let () (declare (not safe)) (displayln '"Failed to load ssxi module for " - _id286687_)) - (display-exception _exn286708_)) + _id155657_)) + (display-exception _exn155678_)) '#!void) '#f)) - (_import-e286690_ + (_import-e155660_ (lambda () - (let* ((_str-id286693_ + (let* ((_str-id155663_ (string-append (let () (declare (not safe)) - (gxc#module-id->path-string _id286687_)) + (gxc#module-id->path-string _id155657_)) '".ssxi")) - (_artefact-path286701_ - (let ((_odir286694286696_ + (_artefact-path155671_ + (let ((_odir155664155666_ (gxc#current-compile-output-dir))) - (if _odir286694286696_ - (let ((_odir286699_ _odir286694286696_)) + (if _odir155664155666_ + (let ((_odir155669_ _odir155664155666_)) (path-expand - (string-append _str-id286693_ '".ss") - _odir286699_)) + (string-append _str-id155663_ '".ss") + _odir155669_)) '#f))) - (_library-path286703_ + (_library-path155673_ (string->symbol - (string-append '":" _str-id286693_ '".ss"))) - (_ssxi-path286705_ - (if (and _artefact-path286701_ - (file-exists? _artefact-path286701_)) - _artefact-path286701_ - _library-path286703_))) + (string-append '":" _str-id155663_ '".ss"))) + (_ssxi-path155675_ + (if (and _artefact-path155671_ + (file-exists? _artefact-path155671_)) + _artefact-path155671_ + _library-path155673_))) (let () (declare (not safe)) (gxc#verbose '"Loading ssxi module " - _ssxi-path286705_)) + _ssxi-path155675_)) (let () (declare (not safe)) - (gx#import-module__% _ssxi-path286705_ '#t '#t)))))) + (gx#import-module__% _ssxi-path155675_ '#t '#t)))))) (let () (declare (not safe)) - (with-catch _catch-e286689_ _import-e286690_))))) + (with-catch _catch-e155659_ _import-e155660_))))) (define gxc#optimize-source - (lambda (_stx286678_) - (let () (declare (not safe)) (gxc#apply-collect-mutators _stx286678_)) - (let () (declare (not safe)) (gxc#apply-collect-methods _stx286678_)) + (lambda (_stx155648_) + (let () (declare (not safe)) (gxc#apply-collect-mutators _stx155648_)) + (let () (declare (not safe)) (gxc#apply-collect-methods _stx155648_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-type-info _stx286678_)) - (let* ((_stx286680_ + (gxc#apply-collect-top-level-type-info _stx155648_)) + (let* ((_stx155650_ (let () (declare (not safe)) - (gxc#apply-generate-method-specializers _stx286678_))) - (_stx286682_ + (gxc#apply-generate-method-specializers _stx155648_))) + (_stx155652_ (let () (declare (not safe)) - (gxc#apply-lift-top-lambdas _stx286680_)))) + (gxc#apply-lift-top-lambdas _stx155650_)))) (let () (declare (not safe)) - (gxc#apply-collect-type-info _stx286682_)) - (let ((_stx286685_ + (gxc#apply-collect-type-info _stx155652_)) + (let ((_stx155655_ (let () (declare (not safe)) - (gxc#apply-optimize-annotated _stx286682_)))) + (gxc#apply-optimize-annotated _stx155652_)))) (declare (not safe)) - (gxc#apply-optimize-call _stx286685_))))) + (gxc#apply-optimize-call _stx155655_))))) (define gxc#&generate-ssxi (make-promise (lambda () - (let ((_tbl286675_ - (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp291688 (force gxc#&generate-runtime-empty))) + (let ((_tbl155645_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (let ((__tmp156095 (force gxc#&generate-runtime-empty))) (declare (not safe)) - (hash-copy! _tbl286675_ __tmp291688)) + (hash-merge! _tbl155645_ __tmp156095)) (let () (declare (not safe)) - (table-set! _tbl286675_ '%#begin gxc#generate-runtime-begin%)) + (hash-put! _tbl155645_ '%#begin gxc#generate-runtime-begin%)) (let () (declare (not safe)) - (table-set! - _tbl286675_ + (hash-put! + _tbl155645_ '%#begin-syntax gxc#generate-ssxi-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl286675_ '%#module gxc#generate-ssxi-module%)) + (hash-put! _tbl155645_ '%#module gxc#generate-ssxi-module%)) (let () (declare (not safe)) - (table-set! - _tbl286675_ + (hash-put! + _tbl155645_ '%#define-values gxc#generate-ssxi-define-values%)) (let () (declare (not safe)) - (table-set! _tbl286675_ '%#call gxc#generate-ssxi-call%)) - _tbl286675_)))) + (hash-put! _tbl155645_ '%#call gxc#generate-ssxi-call%)) + _tbl155645_)))) (define gxc#apply-generate-ssxi - (lambda (_stx286658_ . _args286660_) - (let ((__tmp291690 + (lambda (_stx155628_ . _args155630_) + (let ((__tmp156097 (lambda () (declare (not safe)) - (if (null? _args286660_) - (gxc#compile-e__0 _stx286658_) - (let ((_arg1286665_ (car _args286660_)) - (_rest286667_ (cdr _args286660_))) - (if (null? _rest286667_) - (gxc#compile-e__1 _stx286658_ _arg1286665_) - (let ((_arg2286670_ (car _rest286667_)) - (_rest286672_ (cdr _rest286667_))) - (if (null? _rest286672_) + (if (null? _args155630_) + (gxc#compile-e__0 _stx155628_) + (let ((_arg1155635_ (car _args155630_)) + (_rest155637_ (cdr _args155630_))) + (if (null? _rest155637_) + (gxc#compile-e__1 _stx155628_ _arg1155635_) + (let ((_arg2155640_ (car _rest155637_)) + (_rest155642_ (cdr _rest155637_))) + (if (null? _rest155642_) (gxc#compile-e__2 - _stx286658_ - _arg1286665_ - _arg2286670_) + _stx155628_ + _arg1155635_ + _arg2155640_) (apply gxc#compile-e - _stx286658_ - _arg1286665_ - _arg2286670_ - _rest286672_)))))))) - (__tmp291689 (force gxc#&generate-ssxi))) + _stx155628_ + _arg1155635_ + _arg2155640_ + _rest155642_)))))))) + (__tmp156096 (force gxc#&generate-ssxi))) (declare (not safe)) (call-with-parameters - __tmp291690 + __tmp156097 gxc#current-compile-methods - __tmp291689)))) + __tmp156096)))) (define gxc#generate-ssxi-begin-syntax% - (lambda (_stx286619_) - (let* ((_g286621286631_ - (lambda (_g286622286628_) + (lambda (_stx155589_) + (let* ((_g155591155601_ + (lambda (_g155592155598_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g286622286628_)))) - (_g286620286655_ - (lambda (_g286622286634_) + _g155592155598_)))) + (_g155590155625_ + (lambda (_g155592155604_) (if (let () (declare (not safe)) - (gx#stx-pair? _g286622286634_)) - (let ((_e286626286636_ + (gx#stx-pair? _g155592155604_)) + (let ((_e155596155606_ (let () (declare (not safe)) - (gx#stx-e _g286622286634_)))) - (let ((_hd286625286639_ + (gx#stx-e _g155592155604_)))) + (let ((_hd155595155609_ (let () (declare (not safe)) - (##car _e286626286636_))) - (_tl286624286641_ + (##car _e155596155606_))) + (_tl155594155611_ (let () (declare (not safe)) - (##cdr _e286626286636_)))) - ((lambda (_L286644_) - (let ((__tmp291693 + (##cdr _e155596155606_)))) + ((lambda (_L155614_) + (let ((__tmp156100 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-begin% - _stx286619_)))) - (__tmp291691 - (let ((__tmp291692 + _stx155589_)))) + (__tmp156098 + (let ((__tmp156099 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp291692 '1)))) + (fx+ __tmp156099 '1)))) (declare (not safe)) (call-with-parameters - __tmp291693 + __tmp156100 gx#current-expander-phi - __tmp291691))) - _tl286624286641_))) + __tmp156098))) + _tl155594155611_))) (let () (declare (not safe)) - (_g286621286631_ _g286622286634_)))))) + (_g155591155601_ _g155592155604_)))))) (declare (not safe)) - (_g286620286655_ _stx286619_)))) + (_g155590155625_ _stx155589_)))) (define gxc#generate-ssxi-module% - (lambda (_stx286559_) - (let* ((_g286561286575_ - (lambda (_g286562286572_) + (lambda (_stx155529_) + (let* ((_g155531155545_ + (lambda (_g155532155542_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g286562286572_)))) - (_g286560286616_ - (lambda (_g286562286578_) + _g155532155542_)))) + (_g155530155586_ + (lambda (_g155532155548_) (if (let () (declare (not safe)) - (gx#stx-pair? _g286562286578_)) - (let ((_e286567286580_ + (gx#stx-pair? _g155532155548_)) + (let ((_e155537155550_ (let () (declare (not safe)) - (gx#stx-e _g286562286578_)))) - (let ((_hd286566286583_ + (gx#stx-e _g155532155548_)))) + (let ((_hd155536155553_ (let () (declare (not safe)) - (##car _e286567286580_))) - (_tl286565286585_ + (##car _e155537155550_))) + (_tl155535155555_ (let () (declare (not safe)) - (##cdr _e286567286580_)))) + (##cdr _e155537155550_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl286565286585_)) - (let ((_e286570286588_ + (gx#stx-pair? _tl155535155555_)) + (let ((_e155540155558_ (let () (declare (not safe)) - (gx#stx-e _tl286565286585_)))) - (let ((_hd286569286591_ + (gx#stx-e _tl155535155555_)))) + (let ((_hd155539155561_ (let () (declare (not safe)) - (##car _e286570286588_))) - (_tl286568286593_ + (##car _e155540155558_))) + (_tl155538155563_ (let () (declare (not safe)) - (##cdr _e286570286588_)))) - ((lambda (_L286596_ _L286597_) - (let* ((_ctx286610_ + (##cdr _e155540155558_)))) + ((lambda (_L155566_ _L155567_) + (let* ((_ctx155580_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L286597_))) - (_code286612_ + _L155567_))) + (_code155582_ (##structure-ref - _ctx286610_ + _ctx155580_ '11 gx#module-context::t '#f))) - (let ((__tmp291694 + (let ((__tmp156101 (lambda () (let () (declare (not safe)) (gxc#compile-e__0 - _code286612_))))) + _code155582_))))) (declare (not safe)) (call-with-parameters - __tmp291694 + __tmp156101 gx#current-expander-context - _ctx286610_)))) - _tl286568286593_ - _hd286569286591_))) + _ctx155580_)))) + _tl155538155563_ + _hd155539155561_))) (let () (declare (not safe)) - (_g286561286575_ _g286562286578_))))) + (_g155531155545_ _g155532155548_))))) (let () (declare (not safe)) - (_g286561286575_ _g286562286578_)))))) + (_g155531155545_ _g155532155548_)))))) (declare (not safe)) - (_g286560286616_ _stx286559_)))) + (_g155530155586_ _stx155529_)))) (define gxc#generate-ssxi-define-values% - (lambda (_stx286369_) - (letrec ((_generate-e286371_ - (lambda (_id286548_) - (let* ((_sym286550_ - (if (let ((__tmp291695 + (lambda (_stx155339_) + (letrec ((_generate-e155341_ + (lambda (_id155518_) + (let* ((_sym155520_ + (if (let ((__tmp156102 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'id)))) (declare (not safe)) - (gx#identifier? __tmp291695)) + (gx#identifier? __tmp156102)) (let () (declare (not safe)) - (gxc#identifier-symbol _id286548_)) + (gxc#identifier-symbol _id155518_)) '#f)) - (_$e286552_ - (if _sym286550_ + (_$e155522_ + (if _sym155520_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym286550_)) + (gxc#optimizer-lookup-type _sym155520_)) '#f))) - (if _$e286552_ - ((lambda (_type286555_) + (if _$e155522_ + ((lambda (_type155525_) (let () (declare (not safe)) - (gxc#verbose '"generate typedecl " _sym286550_)) - (let* ((_typedecl286557_ - (let ((__method291664 + (gxc#verbose '"generate typedecl " _sym155520_)) + (let* ((_typedecl155527_ + (let ((__method156070 (let () (declare (not safe)) (method-ref - _type286555_ + _type155525_ 'typedecl)))) - (if __method291664 - (__method291664 _type286555_) - (error '"Missing method" - _type286555_ - 'typedecl)))) - (__tmp291696 - (let ((__tmp291697 + (if __method156070 + (__method156070 _type155525_) + (let () + (declare (not safe)) + (error '"Missing method" + _type155525_ + 'typedecl))))) + (__tmp156103 + (let ((__tmp156104 (let () (declare (not safe)) - (cons _typedecl286557_ '())))) + (cons _typedecl155527_ '())))) (declare (not safe)) - (cons _sym286550_ __tmp291697)))) + (cons _sym155520_ __tmp156104)))) (declare (not safe)) - (cons 'declare-type __tmp291696))) - _$e286552_) + (cons 'declare-type __tmp156103))) + _$e155522_) '(begin)))))) - (let* ((___stx291362291363_ _stx286369_) - (_g286374286412_ + (let* ((___stx155768155769_ _stx155339_) + (_g155344155382_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx291362291363_))))) - (let ((___kont291364291365_ - (lambda (_L286530_) + ___stx155768155769_))))) + (let ((___kont155770155771_ + (lambda (_L155500_) (let () (declare (not safe)) - (_generate-e286371_ _L286530_)))) - (___kont291366291367_ - (lambda (_L286465_) - (let ((_types286491_ - (map _generate-e286371_ - (let ((__tmp291698 - (lambda (_g286483286486_ - _g286484286488_) + (_generate-e155341_ _L155500_)))) + (___kont155772155773_ + (lambda (_L155435_) + (let ((_types155461_ + (map _generate-e155341_ + (let ((__tmp156105 + (lambda (_g155453155456_ + _g155454155458_) (let () (declare (not safe)) - (cons _g286483286486_ - _g286484286488_))))) + (cons _g155453155456_ + _g155454155458_))))) (declare (not safe)) - (foldr1 __tmp291698 '() _L286465_))))) + (foldr1 __tmp156105 '() _L155435_))))) (declare (not safe)) - (cons 'begin _types286491_))))) - (let ((___match291417291418_ - (lambda (_e286392286417_ - _hd286391286420_ - _tl286390286422_ - _e286395286425_ - _hd286394286428_ - _tl286393286430_ - ___splice291368291369_ - _target286396286433_ - _tl286398286435_) - (letrec ((_loop286399286438_ - (lambda (_hd286397286441_ _id286403286443_) + (cons 'begin _types155461_))))) + (let ((___match155823155824_ + (lambda (_e155362155387_ + _hd155361155390_ + _tl155360155392_ + _e155365155395_ + _hd155364155398_ + _tl155363155400_ + ___splice155774155775_ + _target155366155403_ + _tl155368155405_) + (letrec ((_loop155369155408_ + (lambda (_hd155367155411_ _id155373155413_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd286397286441_)) - (let ((_e286400286446_ + (gx#stx-pair? _hd155367155411_)) + (let ((_e155370155416_ (let () (declare (not safe)) - (gx#stx-e _hd286397286441_)))) - (let ((_lp-tl286402286451_ + (gx#stx-e _hd155367155411_)))) + (let ((_lp-tl155372155421_ (let () (declare (not safe)) - (##cdr _e286400286446_))) - (_lp-hd286401286449_ + (##cdr _e155370155416_))) + (_lp-hd155371155419_ (let () (declare (not safe)) - (##car _e286400286446_)))) - (let ((__tmp291699 + (##car _e155370155416_)))) + (let ((__tmp156106 (let () (declare (not safe)) - (cons _lp-hd286401286449_ - _id286403286443_)))) + (cons _lp-hd155371155419_ + _id155373155413_)))) (declare (not safe)) - (_loop286399286438_ - _lp-tl286402286451_ - __tmp291699)))) - (let ((_id286404286454_ - (reverse _id286403286443_))) + (_loop155369155408_ + _lp-tl155372155421_ + __tmp156106)))) + (let ((_id155374155424_ + (reverse _id155373155413_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl286393286430_)) - (let ((_e286407286457_ + (gx#stx-pair? _tl155363155400_)) + (let ((_e155377155427_ (let () (declare (not safe)) (gx#stx-e - _tl286393286430_)))) - (let ((_tl286405286462_ + _tl155363155400_)))) + (let ((_tl155375155432_ (let () (declare (not safe)) - (##cdr _e286407286457_))) - (_hd286406286460_ + (##cdr _e155377155427_))) + (_hd155376155430_ (let () (declare (not safe)) - (##car _e286407286457_)))) + (##car _e155377155427_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl286405286462_)) - (___kont291366291367_ - _id286404286454_) + _tl155375155432_)) + (___kont155772155773_ + _id155374155424_) (let () (declare (not safe)) - (_g286374286412_))))) + (_g155344155382_))))) (let () (declare (not safe)) - (_g286374286412_)))))))) + (_g155344155382_)))))))) (let () (declare (not safe)) - (_loop286399286438_ _target286396286433_ '())))))) + (_loop155369155408_ _target155366155403_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx291362291363_)) - (let ((_e286379286498_ + (gx#stx-pair? ___stx155768155769_)) + (let ((_e155349155468_ (let () (declare (not safe)) - (gx#stx-e ___stx291362291363_)))) - (let ((_tl286377286503_ + (gx#stx-e ___stx155768155769_)))) + (let ((_tl155347155473_ (let () (declare (not safe)) - (##cdr _e286379286498_))) - (_hd286378286501_ + (##cdr _e155349155468_))) + (_hd155348155471_ (let () (declare (not safe)) - (##car _e286379286498_)))) + (##car _e155349155468_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl286377286503_)) - (let ((_e286382286506_ + (gx#stx-pair? _tl155347155473_)) + (let ((_e155352155476_ (let () (declare (not safe)) - (gx#stx-e _tl286377286503_)))) - (let ((_tl286380286511_ + (gx#stx-e _tl155347155473_)))) + (let ((_tl155350155481_ (let () (declare (not safe)) - (##cdr _e286382286506_))) - (_hd286381286509_ + (##cdr _e155352155476_))) + (_hd155351155479_ (let () (declare (not safe)) - (##car _e286382286506_)))) + (##car _e155352155476_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd286381286509_)) - (let ((_e286385286514_ + (gx#stx-pair? _hd155351155479_)) + (let ((_e155355155484_ (let () (declare (not safe)) - (gx#stx-e _hd286381286509_)))) - (let ((_tl286383286519_ + (gx#stx-e _hd155351155479_)))) + (let ((_tl155353155489_ (let () (declare (not safe)) - (##cdr _e286385286514_))) - (_hd286384286517_ + (##cdr _e155355155484_))) + (_hd155354155487_ (let () (declare (not safe)) - (##car _e286385286514_)))) + (##car _e155355155484_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl286383286519_)) + (gx#stx-null? _tl155353155489_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl286380286511_)) - (let ((_e286388286522_ + _tl155350155481_)) + (let ((_e155358155492_ (let () (declare (not safe)) (gx#stx-e - _tl286380286511_)))) - (let ((_tl286386286527_ + _tl155350155481_)))) + (let ((_tl155356155497_ (let () (declare (not safe)) - (##cdr _e286388286522_))) - (_hd286387286525_ + (##cdr _e155358155492_))) + (_hd155357155495_ (let () (declare (not safe)) - (##car _e286388286522_)))) + (##car _e155358155492_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl286386286527_)) - (___kont291364291365_ - _hd286384286517_) + _tl155356155497_)) + (___kont155770155771_ + _hd155354155487_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd286381286509_)) - (let ((___splice291368291369_ + _hd155351155479_)) + (let ((___splice155774155775_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd286381286509_ '0)))) - (let ((_tl286398286435_ + (gx#syntax-split-splice _hd155351155479_ '0)))) + (let ((_tl155368155405_ (let () (declare (not safe)) - (##vector-ref ___splice291368291369_ '1))) - (_target286396286433_ + (##vector-ref ___splice155774155775_ '1))) + (_target155366155403_ (let () (declare (not safe)) - (##vector-ref ___splice291368291369_ '0)))) + (##vector-ref ___splice155774155775_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl286398286435_)) - (___match291417291418_ - _e286379286498_ - _hd286378286501_ - _tl286377286503_ - _e286382286506_ - _hd286381286509_ - _tl286380286511_ - ___splice291368291369_ - _target286396286433_ - _tl286398286435_) - (let () (declare (not safe)) (_g286374286412_))))) - (let () (declare (not safe)) (_g286374286412_)))))) + (gx#stx-null? _tl155368155405_)) + (___match155823155824_ + _e155349155468_ + _hd155348155471_ + _tl155347155473_ + _e155352155476_ + _hd155351155479_ + _tl155350155481_ + ___splice155774155775_ + _target155366155403_ + _tl155368155405_) + (let () (declare (not safe)) (_g155344155382_))))) + (let () (declare (not safe)) (_g155344155382_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd286381286509_)) - (let ((___splice291368291369_ + _hd155351155479_)) + (let ((___splice155774155775_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd286381286509_ + _hd155351155479_ '0)))) - (let ((_tl286398286435_ + (let ((_tl155368155405_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice291368291369_ '1))) - (_target286396286433_ + (##vector-ref ___splice155774155775_ '1))) + (_target155366155403_ (let () (declare (not safe)) - (##vector-ref ___splice291368291369_ '0)))) + (##vector-ref ___splice155774155775_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl286398286435_)) - (___match291417291418_ - _e286379286498_ - _hd286378286501_ - _tl286377286503_ - _e286382286506_ - _hd286381286509_ - _tl286380286511_ - ___splice291368291369_ - _target286396286433_ - _tl286398286435_) - (let () (declare (not safe)) (_g286374286412_))))) + (gx#stx-null? _tl155368155405_)) + (___match155823155824_ + _e155349155468_ + _hd155348155471_ + _tl155347155473_ + _e155352155476_ + _hd155351155479_ + _tl155350155481_ + ___splice155774155775_ + _target155366155403_ + _tl155368155405_) + (let () (declare (not safe)) (_g155344155382_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g286374286412_)))) + (_g155344155382_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd286381286509_)) - (let ((___splice291368291369_ + _hd155351155479_)) + (let ((___splice155774155775_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd286381286509_ + _hd155351155479_ '0)))) - (let ((_tl286398286435_ + (let ((_tl155368155405_ (let () (declare (not safe)) (##vector-ref - ___splice291368291369_ + ___splice155774155775_ '1))) - (_target286396286433_ + (_target155366155403_ (let () (declare (not safe)) (##vector-ref - ___splice291368291369_ + ___splice155774155775_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl286398286435_)) - (___match291417291418_ - _e286379286498_ - _hd286378286501_ - _tl286377286503_ - _e286382286506_ - _hd286381286509_ - _tl286380286511_ - ___splice291368291369_ - _target286396286433_ - _tl286398286435_) + _tl155368155405_)) + (___match155823155824_ + _e155349155468_ + _hd155348155471_ + _tl155347155473_ + _e155352155476_ + _hd155351155479_ + _tl155350155481_ + ___splice155774155775_ + _target155366155403_ + _tl155368155405_) (let () (declare (not safe)) - (_g286374286412_))))) + (_g155344155382_))))) (let () (declare (not safe)) - (_g286374286412_)))))) + (_g155344155382_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd286381286509_)) - (let ((___splice291368291369_ + (gx#stx-pair/null? _hd155351155479_)) + (let ((___splice155774155775_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd286381286509_ + _hd155351155479_ '0)))) - (let ((_tl286398286435_ + (let ((_tl155368155405_ (let () (declare (not safe)) (##vector-ref - ___splice291368291369_ + ___splice155774155775_ '1))) - (_target286396286433_ + (_target155366155403_ (let () (declare (not safe)) (##vector-ref - ___splice291368291369_ + ___splice155774155775_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl286398286435_)) - (___match291417291418_ - _e286379286498_ - _hd286378286501_ - _tl286377286503_ - _e286382286506_ - _hd286381286509_ - _tl286380286511_ - ___splice291368291369_ - _target286396286433_ - _tl286398286435_) + _tl155368155405_)) + (___match155823155824_ + _e155349155468_ + _hd155348155471_ + _tl155347155473_ + _e155352155476_ + _hd155351155479_ + _tl155350155481_ + ___splice155774155775_ + _target155366155403_ + _tl155368155405_) (let () (declare (not safe)) - (_g286374286412_))))) + (_g155344155382_))))) (let () (declare (not safe)) - (_g286374286412_)))))) - (let () (declare (not safe)) (_g286374286412_))))) - (let () (declare (not safe)) (_g286374286412_))))))))) + (_g155344155382_)))))) + (let () (declare (not safe)) (_g155344155382_))))) + (let () (declare (not safe)) (_g155344155382_))))))))) (define gxc#generate-ssxi-call% - (lambda (_stx285923_) - (let* ((___stx291420291421_ _stx285923_) - (_g285927286029_ + (lambda (_stx154893_) + (let* ((___stx155826155827_ _stx154893_) + (_g154897154999_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx291420291421_))))) - (let ((___kont291422291423_ - (lambda (_L286319_ _L286320_ _L286321_ _L286322_ _L286323_) - (let ((__tmp291700 - (let ((__tmp291707 + ___stx155826155827_))))) + (let ((___kont155828155829_ + (lambda (_L155289_ _L155290_ _L155291_ _L155292_ _L155293_) + (let ((__tmp156107 + (let ((__tmp156114 (let () (declare (not safe)) - (gxc#identifier-symbol _L286322_))) - (__tmp291701 - (let ((__tmp291706 + (gxc#identifier-symbol _L155292_))) + (__tmp156108 + (let ((__tmp156113 (let () (declare (not safe)) - (gx#stx-e _L286321_))) - (__tmp291702 - (let ((__tmp291705 + (gx#stx-e _L155291_))) + (__tmp156109 + (let ((__tmp156112 (let () (declare (not safe)) (gxc#identifier-symbol - _L286320_))) - (__tmp291703 - (let ((__tmp291704 + _L155290_))) + (__tmp156110 + (let ((__tmp156111 (let () (declare (not safe)) - (gx#stx-e _L286319_)))) + (gx#stx-e _L155289_)))) (declare (not safe)) - (cons __tmp291704 '())))) + (cons __tmp156111 '())))) (declare (not safe)) - (cons __tmp291705 __tmp291703)))) + (cons __tmp156112 __tmp156110)))) (declare (not safe)) - (cons __tmp291706 __tmp291702)))) + (cons __tmp156113 __tmp156109)))) (declare (not safe)) - (cons __tmp291707 __tmp291701)))) + (cons __tmp156114 __tmp156108)))) (declare (not safe)) - (cons 'declare-method __tmp291700)))) - (___kont291424291425_ - (lambda (_L286145_ _L286146_ _L286147_ _L286148_) - (let ((__tmp291708 - (let ((__tmp291714 + (cons 'declare-method __tmp156107)))) + (___kont155830155831_ + (lambda (_L155115_ _L155116_ _L155117_ _L155118_) + (let ((__tmp156115 + (let ((__tmp156121 (let () (declare (not safe)) - (gxc#identifier-symbol _L286147_))) - (__tmp291709 - (let ((__tmp291713 + (gxc#identifier-symbol _L155117_))) + (__tmp156116 + (let ((__tmp156120 (let () (declare (not safe)) - (gx#stx-e _L286146_))) - (__tmp291710 - (let ((__tmp291712 + (gx#stx-e _L155116_))) + (__tmp156117 + (let ((__tmp156119 (let () (declare (not safe)) (gxc#identifier-symbol - _L286145_))) - (__tmp291711 + _L155115_))) + (__tmp156118 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp291712 __tmp291711)))) + (cons __tmp156119 __tmp156118)))) (declare (not safe)) - (cons __tmp291713 __tmp291710)))) + (cons __tmp156120 __tmp156117)))) (declare (not safe)) - (cons __tmp291714 __tmp291709)))) + (cons __tmp156121 __tmp156116)))) (declare (not safe)) - (cons 'declare-method __tmp291708)))) - (___kont291426291427_ (lambda () '(begin)))) - (let ((___match291555291556_ - (lambda (_e285936286191_ - _hd285935286194_ - _tl285934286196_ - _e285939286199_ - _hd285938286202_ - _tl285937286204_ - _e285942286207_ - _hd285941286210_ - _tl285940286212_ - _e285945286215_ - _hd285944286218_ - _tl285943286220_ - _e285948286223_ - _hd285947286226_ - _tl285946286228_ - _e285951286231_ - _hd285950286234_ - _tl285949286236_ - _e285954286239_ - _hd285953286242_ - _tl285952286244_ - _e285957286247_ - _hd285956286250_ - _tl285955286252_ - _e285960286255_ - _hd285959286258_ - _tl285958286260_ - _e285963286263_ - _hd285962286266_ - _tl285961286268_ - _e285966286271_ - _hd285965286274_ - _tl285964286276_ - _e285969286279_ - _hd285968286282_ - _tl285967286284_ - _e285972286287_ - _hd285971286290_ - _tl285970286292_ - _e285975286295_ - _hd285974286298_ - _tl285973286300_ - _e285978286303_ - _hd285977286306_ - _tl285976286308_ - _e285981286311_ - _hd285980286314_ - _tl285979286316_) - (let ((_L286319_ _hd285980286314_) - (_L286320_ _hd285971286290_) - (_L286321_ _hd285962286266_) - (_L286322_ _hd285953286242_) - (_L286323_ _hd285944286218_)) + (cons 'declare-method __tmp156115)))) + (___kont155832155833_ (lambda () '(begin)))) + (let ((___match155961155962_ + (lambda (_e154906155161_ + _hd154905155164_ + _tl154904155166_ + _e154909155169_ + _hd154908155172_ + _tl154907155174_ + _e154912155177_ + _hd154911155180_ + _tl154910155182_ + _e154915155185_ + _hd154914155188_ + _tl154913155190_ + _e154918155193_ + _hd154917155196_ + _tl154916155198_ + _e154921155201_ + _hd154920155204_ + _tl154919155206_ + _e154924155209_ + _hd154923155212_ + _tl154922155214_ + _e154927155217_ + _hd154926155220_ + _tl154925155222_ + _e154930155225_ + _hd154929155228_ + _tl154928155230_ + _e154933155233_ + _hd154932155236_ + _tl154931155238_ + _e154936155241_ + _hd154935155244_ + _tl154934155246_ + _e154939155249_ + _hd154938155252_ + _tl154937155254_ + _e154942155257_ + _hd154941155260_ + _tl154940155262_ + _e154945155265_ + _hd154944155268_ + _tl154943155270_ + _e154948155273_ + _hd154947155276_ + _tl154946155278_ + _e154951155281_ + _hd154950155284_ + _tl154949155286_) + (let ((_L155289_ _hd154950155284_) + (_L155290_ _hd154941155260_) + (_L155291_ _hd154932155236_) + (_L155292_ _hd154923155212_) + (_L155293_ _hd154914155188_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L286323_ + _L155293_ 'bind-method!)) - (___kont291422291423_ - _L286319_ - _L286320_ - _L286321_ - _L286322_ - _L286323_) - (___kont291426291427_)))))) + (___kont155828155829_ + _L155289_ + _L155290_ + _L155291_ + _L155292_ + _L155293_) + (___kont155832155833_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx291420291421_)) - (let ((_e285936286191_ + (gx#stx-pair? ___stx155826155827_)) + (let ((_e154906155161_ (let () (declare (not safe)) - (gx#stx-e ___stx291420291421_)))) - (let ((_tl285934286196_ + (gx#stx-e ___stx155826155827_)))) + (let ((_tl154904155166_ (let () (declare (not safe)) - (##cdr _e285936286191_))) - (_hd285935286194_ + (##cdr _e154906155161_))) + (_hd154905155164_ (let () (declare (not safe)) - (##car _e285936286191_)))) + (##car _e154906155161_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285934286196_)) - (let ((_e285939286199_ + (gx#stx-pair? _tl154904155166_)) + (let ((_e154909155169_ (let () (declare (not safe)) - (gx#stx-e _tl285934286196_)))) - (let ((_tl285937286204_ + (gx#stx-e _tl154904155166_)))) + (let ((_tl154907155174_ (let () (declare (not safe)) - (##cdr _e285939286199_))) - (_hd285938286202_ + (##cdr _e154909155169_))) + (_hd154908155172_ (let () (declare (not safe)) - (##car _e285939286199_)))) + (##car _e154909155169_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd285938286202_)) - (let ((_e285942286207_ + (gx#stx-pair? _hd154908155172_)) + (let ((_e154912155177_ (let () (declare (not safe)) - (gx#stx-e _hd285938286202_)))) - (let ((_tl285940286212_ + (gx#stx-e _hd154908155172_)))) + (let ((_tl154910155182_ (let () (declare (not safe)) - (##cdr _e285942286207_))) - (_hd285941286210_ + (##cdr _e154912155177_))) + (_hd154911155180_ (let () (declare (not safe)) - (##car _e285942286207_)))) + (##car _e154912155177_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd285941286210_)) + (gx#identifier? _hd154911155180_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd285941286210_)) + _hd154911155180_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl285940286212_)) - (let ((_e285945286215_ + _tl154910155182_)) + (let ((_e154915155185_ (let () (declare (not safe)) (gx#stx-e - _tl285940286212_)))) - (let ((_tl285943286220_ + _tl154910155182_)))) + (let ((_tl154913155190_ (let () (declare (not safe)) - (##cdr _e285945286215_))) - (_hd285944286218_ + (##cdr _e154915155185_))) + (_hd154914155188_ (let () (declare (not safe)) - (##car _e285945286215_)))) + (##car _e154915155185_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl285943286220_)) + _tl154913155190_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl285937286204_)) - (let ((_e285948286223_ + (gx#stx-pair? _tl154907155174_)) + (let ((_e154918155193_ (let () (declare (not safe)) - (gx#stx-e _tl285937286204_)))) - (let ((_tl285946286228_ + (gx#stx-e _tl154907155174_)))) + (let ((_tl154916155198_ (let () (declare (not safe)) - (##cdr _e285948286223_))) - (_hd285947286226_ + (##cdr _e154918155193_))) + (_hd154917155196_ (let () (declare (not safe)) - (##car _e285948286223_)))) + (##car _e154918155193_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd285947286226_)) - (let ((_e285951286231_ + (gx#stx-pair? _hd154917155196_)) + (let ((_e154921155201_ (let () (declare (not safe)) - (gx#stx-e _hd285947286226_)))) - (let ((_tl285949286236_ + (gx#stx-e _hd154917155196_)))) + (let ((_tl154919155206_ (let () (declare (not safe)) - (##cdr _e285951286231_))) - (_hd285950286234_ + (##cdr _e154921155201_))) + (_hd154920155204_ (let () (declare (not safe)) - (##car _e285951286231_)))) + (##car _e154921155201_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd285950286234_)) + (gx#identifier? _hd154920155204_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd285950286234_)) + _hd154920155204_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl285949286236_)) - (let ((_e285954286239_ + _tl154919155206_)) + (let ((_e154924155209_ (let () (declare (not safe)) (gx#stx-e - _tl285949286236_)))) - (let ((_tl285952286244_ + _tl154919155206_)))) + (let ((_tl154922155214_ (let () (declare (not safe)) - (##cdr _e285954286239_))) - (_hd285953286242_ + (##cdr _e154924155209_))) + (_hd154923155212_ (let () (declare (not safe)) - (##car _e285954286239_)))) + (##car _e154924155209_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl285952286244_)) + _tl154922155214_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl285946286228_)) - (let ((_e285957286247_ + _tl154916155198_)) + (let ((_e154927155217_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl285946286228_)))) - (let ((_tl285955286252_ + (gx#stx-e _tl154916155198_)))) + (let ((_tl154925155222_ (let () (declare (not safe)) - (##cdr _e285957286247_))) - (_hd285956286250_ + (##cdr _e154927155217_))) + (_hd154926155220_ (let () (declare (not safe)) - (##car _e285957286247_)))) + (##car _e154927155217_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd285956286250_)) - (let ((_e285960286255_ + (gx#stx-pair? _hd154926155220_)) + (let ((_e154930155225_ (let () (declare (not safe)) - (gx#stx-e _hd285956286250_)))) - (let ((_tl285958286260_ + (gx#stx-e _hd154926155220_)))) + (let ((_tl154928155230_ (let () (declare (not safe)) - (##cdr _e285960286255_))) - (_hd285959286258_ + (##cdr _e154930155225_))) + (_hd154929155228_ (let () (declare (not safe)) - (##car _e285960286255_)))) + (##car _e154930155225_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd285959286258_)) + (gx#identifier? _hd154929155228_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd285959286258_)) + (gx#stx-eq? '%#quote _hd154929155228_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285958286260_)) - (let ((_e285963286263_ + (gx#stx-pair? _tl154928155230_)) + (let ((_e154933155233_ (let () (declare (not safe)) (gx#stx-e - _tl285958286260_)))) - (let ((_tl285961286268_ + _tl154928155230_)))) + (let ((_tl154931155238_ (let () (declare (not safe)) - (##cdr _e285963286263_))) - (_hd285962286266_ + (##cdr _e154933155233_))) + (_hd154932155236_ (let () (declare (not safe)) - (##car _e285963286263_)))) + (##car _e154933155233_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl285961286268_)) + _tl154931155238_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl285955286252_)) - (let ((_e285966286271_ + _tl154925155222_)) + (let ((_e154936155241_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl285955286252_)))) - (let ((_tl285964286276_ - (let () (declare (not safe)) (##cdr _e285966286271_))) - (_hd285965286274_ - (let () (declare (not safe)) (##car _e285966286271_)))) + (gx#stx-e _tl154925155222_)))) + (let ((_tl154934155246_ + (let () (declare (not safe)) (##cdr _e154936155241_))) + (_hd154935155244_ + (let () (declare (not safe)) (##car _e154936155241_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd285965286274_)) - (let ((_e285969286279_ + (gx#stx-pair? _hd154935155244_)) + (let ((_e154939155249_ (let () (declare (not safe)) - (gx#stx-e _hd285965286274_)))) - (let ((_tl285967286284_ + (gx#stx-e _hd154935155244_)))) + (let ((_tl154937155254_ (let () (declare (not safe)) - (##cdr _e285969286279_))) - (_hd285968286282_ + (##cdr _e154939155249_))) + (_hd154938155252_ (let () (declare (not safe)) - (##car _e285969286279_)))) + (##car _e154939155249_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd285968286282_)) + (gx#identifier? _hd154938155252_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd285968286282_)) + (gx#stx-eq? '%#ref _hd154938155252_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285967286284_)) - (let ((_e285972286287_ + (gx#stx-pair? _tl154937155254_)) + (let ((_e154942155257_ (let () (declare (not safe)) - (gx#stx-e _tl285967286284_)))) - (let ((_tl285970286292_ + (gx#stx-e _tl154937155254_)))) + (let ((_tl154940155262_ (let () (declare (not safe)) - (##cdr _e285972286287_))) - (_hd285971286290_ + (##cdr _e154942155257_))) + (_hd154941155260_ (let () (declare (not safe)) - (##car _e285972286287_)))) + (##car _e154942155257_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl285970286292_)) + _tl154940155262_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl285964286276_)) - (let ((_e285975286295_ + _tl154934155246_)) + (let ((_e154945155265_ (let () (declare (not safe)) (gx#stx-e - _tl285964286276_)))) - (let ((_tl285973286300_ + _tl154934155246_)))) + (let ((_tl154943155270_ (let () (declare (not safe)) - (##cdr _e285975286295_))) - (_hd285974286298_ + (##cdr _e154945155265_))) + (_hd154944155268_ (let () (declare (not safe)) - (##car _e285975286295_)))) + (##car _e154945155265_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd285974286298_)) - (let ((_e285978286303_ + _hd154944155268_)) + (let ((_e154948155273_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd285974286298_)))) - (let ((_tl285976286308_ + (gx#stx-e _hd154944155268_)))) + (let ((_tl154946155278_ (let () (declare (not safe)) - (##cdr _e285978286303_))) - (_hd285977286306_ + (##cdr _e154948155273_))) + (_hd154947155276_ (let () (declare (not safe)) - (##car _e285978286303_)))) + (##car _e154948155273_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd285977286306_)) + (gx#identifier? _hd154947155276_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd285977286306_)) + (gx#stx-eq? '%#quote _hd154947155276_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285976286308_)) - (let ((_e285981286311_ + (gx#stx-pair? _tl154946155278_)) + (let ((_e154951155281_ (let () (declare (not safe)) - (gx#stx-e _tl285976286308_)))) - (let ((_tl285979286316_ + (gx#stx-e _tl154946155278_)))) + (let ((_tl154949155286_ (let () (declare (not safe)) - (##cdr _e285981286311_))) - (_hd285980286314_ + (##cdr _e154951155281_))) + (_hd154950155284_ (let () (declare (not safe)) - (##car _e285981286311_)))) + (##car _e154951155281_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl285979286316_)) + (gx#stx-null? _tl154949155286_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl285973286300_)) - (___match291555291556_ - _e285936286191_ - _hd285935286194_ - _tl285934286196_ - _e285939286199_ - _hd285938286202_ - _tl285937286204_ - _e285942286207_ - _hd285941286210_ - _tl285940286212_ - _e285945286215_ - _hd285944286218_ - _tl285943286220_ - _e285948286223_ - _hd285947286226_ - _tl285946286228_ - _e285951286231_ - _hd285950286234_ - _tl285949286236_ - _e285954286239_ - _hd285953286242_ - _tl285952286244_ - _e285957286247_ - _hd285956286250_ - _tl285955286252_ - _e285960286255_ - _hd285959286258_ - _tl285958286260_ - _e285963286263_ - _hd285962286266_ - _tl285961286268_ - _e285966286271_ - _hd285965286274_ - _tl285964286276_ - _e285969286279_ - _hd285968286282_ - _tl285967286284_ - _e285972286287_ - _hd285971286290_ - _tl285970286292_ - _e285975286295_ - _hd285974286298_ - _tl285973286300_ - _e285978286303_ - _hd285977286306_ - _tl285976286308_ - _e285981286311_ - _hd285980286314_ - _tl285979286316_) - (___kont291426291427_)) - (___kont291426291427_)))) - (___kont291426291427_)) - (___kont291426291427_)) - (___kont291426291427_)))) - (___kont291426291427_)))) + _tl154943155270_)) + (___match155961155962_ + _e154906155161_ + _hd154905155164_ + _tl154904155166_ + _e154909155169_ + _hd154908155172_ + _tl154907155174_ + _e154912155177_ + _hd154911155180_ + _tl154910155182_ + _e154915155185_ + _hd154914155188_ + _tl154913155190_ + _e154918155193_ + _hd154917155196_ + _tl154916155198_ + _e154921155201_ + _hd154920155204_ + _tl154919155206_ + _e154924155209_ + _hd154923155212_ + _tl154922155214_ + _e154927155217_ + _hd154926155220_ + _tl154925155222_ + _e154930155225_ + _hd154929155228_ + _tl154928155230_ + _e154933155233_ + _hd154932155236_ + _tl154931155238_ + _e154936155241_ + _hd154935155244_ + _tl154934155246_ + _e154939155249_ + _hd154938155252_ + _tl154937155254_ + _e154942155257_ + _hd154941155260_ + _tl154940155262_ + _e154945155265_ + _hd154944155268_ + _tl154943155270_ + _e154948155273_ + _hd154947155276_ + _tl154946155278_ + _e154951155281_ + _hd154950155284_ + _tl154949155286_) + (___kont155832155833_)) + (___kont155832155833_)))) + (___kont155832155833_)) + (___kont155832155833_)) + (___kont155832155833_)))) + (___kont155832155833_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl285964286276_)) - (if (let ((__tmp291715 + _tl154934155246_)) + (if (let ((__tmp156122 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp291715 'bind-method!)) - (let ((_L286145_ _hd285971286290_) - (_L286146_ _hd285962286266_) - (_L286147_ _hd285953286242_) - (_L286148_ _hd285944286218_)) - (___kont291424291425_ - _L286145_ - _L286146_ - _L286147_ - _L286148_)) - (___kont291426291427_)) - (___kont291426291427_))) + (gxc#runtime-identifier=? __tmp156122 'bind-method!)) + (let ((_L155115_ _hd154941155260_) + (_L155116_ _hd154932155236_) + (_L155117_ _hd154923155212_) + (_L155118_ _hd154914155188_)) + (___kont155830155831_ + _L155115_ + _L155116_ + _L155117_ + _L155118_)) + (___kont155832155833_)) + (___kont155832155833_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont291426291427_)))) - (___kont291426291427_)) - (___kont291426291427_)) - (___kont291426291427_)))) - (___kont291426291427_)))) - (___kont291426291427_)) + (___kont155832155833_)))) + (___kont155832155833_)) + (___kont155832155833_)) + (___kont155832155833_)))) + (___kont155832155833_)))) + (___kont155832155833_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont291426291427_)))) - (___kont291426291427_)) - (___kont291426291427_)) - (___kont291426291427_)))) - (___kont291426291427_)))) - (___kont291426291427_)) - (___kont291426291427_)))) + (___kont155832155833_)))) + (___kont155832155833_)) + (___kont155832155833_)) + (___kont155832155833_)))) + (___kont155832155833_)))) + (___kont155832155833_)) + (___kont155832155833_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont291426291427_)) - (___kont291426291427_)) - (___kont291426291427_)))) - (___kont291426291427_)))) - (___kont291426291427_)) - (___kont291426291427_)))) + (___kont155832155833_)) + (___kont155832155833_)) + (___kont155832155833_)))) + (___kont155832155833_)))) + (___kont155832155833_)) + (___kont155832155833_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont291426291427_)) - (___kont291426291427_)) - (___kont291426291427_)))) - (___kont291426291427_)))) - (___kont291426291427_)))) - (___kont291426291427_))))))) + (___kont155832155833_)) + (___kont155832155833_)) + (___kont155832155833_)))) + (___kont155832155833_)))) + (___kont155832155833_)))) + (___kont155832155833_))))))) (define gxc#!alias::typedecl - (lambda (_self285899_) - (let* ((_self285900285906_ _self285899_) - (_E285902285910_ - (lambda () (error '"No clause matching" _self285900285906_))) - (_K285903285915_ - (lambda (_alias-id285913_) - (let ((__tmp291716 + (lambda (_self154869_) + (let* ((_self154870154876_ _self154869_) + (_E154872154880_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" _self154870154876_)))) + (_K154873154885_ + (lambda (_alias-id154883_) + (let ((__tmp156123 (let () (declare (not safe)) - (cons _alias-id285913_ '())))) + (cons _alias-id154883_ '())))) (declare (not safe)) - (cons '@alias __tmp291716))))) + (cons '@alias __tmp156123))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self285900285906_ 'gxc#!alias::t)) - (let* ((_e285904285918_ + (##structure-instance-of? _self154870154876_ 'gxc#!alias::t)) + (let* ((_e154874154888_ (let () (declare (not safe)) (##unchecked-structure-ref - _self285900285906_ + _self154870154876_ '1 gxc#!type::t '#f))) - (_alias-id285921_ _e285904285918_)) + (_alias-id154891_ _e154874154888_)) (declare (not safe)) - (_K285903285915_ _alias-id285921_)) - (let () (declare (not safe)) (_E285902285910_)))))) + (_K154873154885_ _alias-id154891_)) + (let () (declare (not safe)) (_E154872154880_)))))) (let () (declare (not safe)) - (bind-method! gxc#!alias::t 'typedecl gxc#!alias::typedecl '#f)) + (bind-method!__% gxc#!alias::t 'typedecl gxc#!alias::typedecl '#f)) (define gxc#!class::typedecl - (lambda (_self285690_) - (let* ((_self285691285706_ _self285690_) - (_E285693285710_ - (lambda () (error '"No clause matching" _self285691285706_))) - (_K285694285724_ - (lambda (_methods285713_ - _metaclass285714_ - _final?285715_ - _struct?285716_ - _constructor285717_ - _fields285718_ - _slots285719_ - _precendence-list285720_ - _super285721_ - _id285722_) - (let ((__tmp291717 - (let ((__tmp291718 - (let ((__tmp291719 - (let ((__tmp291720 - (let ((__tmp291721 - (let ((__tmp291722 - (let ((__tmp291723 + (lambda (_self154660_) + (let* ((_self154661154676_ _self154660_) + (_E154663154680_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" _self154661154676_)))) + (_K154664154694_ + (lambda (_methods154683_ + _metaclass154684_ + _final?154685_ + _struct?154686_ + _constructor154687_ + _fields154688_ + _slots154689_ + _precendence-list154690_ + _super154691_ + _id154692_) + (let ((__tmp156124 + (let ((__tmp156125 + (let ((__tmp156126 + (let ((__tmp156127 + (let ((__tmp156128 + (let ((__tmp156129 + (let ((__tmp156130 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp291724 - (let ((__tmp291725 - (let ((__tmp291726 - (let ((__tmp291727 - (if _methods285713_ + (let ((__tmp156131 + (let ((__tmp156132 + (let ((__tmp156133 + (let ((__tmp156134 + (if _methods154683_ (let () (declare (not safe)) - (table->list - _methods285713_)) + (hash->list + _methods154683_)) '#f))) (declare (not safe)) - (cons __tmp291727 '())))) + (cons __tmp156134 '())))) (declare (not safe)) - (cons _metaclass285714_ - __tmp291726)))) + (cons _metaclass154684_ + __tmp156133)))) (declare (not safe)) - (cons _final?285715_ __tmp291725)))) + (cons _final?154685_ __tmp156132)))) (declare (not safe)) - (cons _struct?285716_ __tmp291724)))) + (cons _struct?154686_ __tmp156131)))) (declare (not safe)) - (cons _constructor285717_ __tmp291723)))) + (cons _constructor154687_ __tmp156130)))) (declare (not safe)) - (cons _fields285718_ __tmp291722)))) + (cons _fields154688_ __tmp156129)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _slots285719_ - __tmp291721)))) + (cons _slots154689_ + __tmp156128)))) (declare (not safe)) - (cons _precendence-list285720_ - __tmp291720)))) + (cons _precendence-list154690_ + __tmp156127)))) (declare (not safe)) - (cons _super285721_ __tmp291719)))) + (cons _super154691_ __tmp156126)))) (declare (not safe)) - (cons _id285722_ __tmp291718)))) + (cons _id154692_ __tmp156125)))) (declare (not safe)) - (cons '@class __tmp291717))))) + (cons '@class __tmp156124))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self285691285706_ 'gxc#!class::t)) - (let* ((_e285695285727_ + (##structure-instance-of? _self154661154676_ 'gxc#!class::t)) + (let* ((_e154665154697_ (let () (declare (not safe)) (##unchecked-structure-ref - _self285691285706_ + _self154661154676_ '1 gxc#!type::t '#f))) - (_id285730_ _e285695285727_) - (_e285696285732_ + (_id154700_ _e154665154697_) + (_e154666154702_ (let () (declare (not safe)) (##unchecked-structure-ref - _self285691285706_ + _self154661154676_ '2 gxc#!class::t '#f))) - (_super285735_ _e285696285732_) - (_e285697285737_ + (_super154705_ _e154666154702_) + (_e154667154707_ (let () (declare (not safe)) (##unchecked-structure-ref - _self285691285706_ + _self154661154676_ '3 gxc#!class::t '#f))) - (_precendence-list285740_ _e285697285737_) - (_e285698285742_ + (_precendence-list154710_ _e154667154707_) + (_e154668154712_ (let () (declare (not safe)) (##unchecked-structure-ref - _self285691285706_ + _self154661154676_ '4 gxc#!class::t '#f))) - (_slots285745_ _e285698285742_) - (_e285699285747_ + (_slots154715_ _e154668154712_) + (_e154669154717_ (let () (declare (not safe)) (##unchecked-structure-ref - _self285691285706_ + _self154661154676_ '5 gxc#!class::t '#f))) - (_fields285750_ _e285699285747_) - (_e285700285752_ + (_fields154720_ _e154669154717_) + (_e154670154722_ (let () (declare (not safe)) (##unchecked-structure-ref - _self285691285706_ + _self154661154676_ '6 gxc#!class::t '#f))) - (_constructor285755_ _e285700285752_) - (_e285701285757_ + (_constructor154725_ _e154670154722_) + (_e154671154727_ (let () (declare (not safe)) (##unchecked-structure-ref - _self285691285706_ + _self154661154676_ '7 gxc#!class::t '#f))) - (_struct?285760_ _e285701285757_) - (_e285702285762_ + (_struct?154730_ _e154671154727_) + (_e154672154732_ (let () (declare (not safe)) (##unchecked-structure-ref - _self285691285706_ + _self154661154676_ '8 gxc#!class::t '#f))) - (_final?285765_ _e285702285762_) - (_e285703285767_ + (_final?154735_ _e154672154732_) + (_e154673154737_ (let () (declare (not safe)) (##unchecked-structure-ref - _self285691285706_ + _self154661154676_ '9 gxc#!class::t '#f))) - (_metaclass285770_ _e285703285767_) - (_e285704285772_ + (_metaclass154740_ _e154673154737_) + (_e154674154742_ (let () (declare (not safe)) (##unchecked-structure-ref - _self285691285706_ + _self154661154676_ '10 gxc#!class::t '#f))) - (_methods285775_ _e285704285772_)) + (_methods154745_ _e154674154742_)) (declare (not safe)) - (_K285694285724_ - _methods285775_ - _metaclass285770_ - _final?285765_ - _struct?285760_ - _constructor285755_ - _fields285750_ - _slots285745_ - _precendence-list285740_ - _super285735_ - _id285730_)) - (let () (declare (not safe)) (_E285693285710_)))))) + (_K154664154694_ + _methods154745_ + _metaclass154740_ + _final?154735_ + _struct?154730_ + _constructor154725_ + _fields154720_ + _slots154715_ + _precendence-list154710_ + _super154705_ + _id154700_)) + (let () (declare (not safe)) (_E154663154680_)))))) (let () (declare (not safe)) - (bind-method! gxc#!class::t 'typedecl gxc#!class::typedecl '#f)) + (bind-method!__% gxc#!class::t 'typedecl gxc#!class::typedecl '#f)) (define gxc#!predicate::typedecl - (lambda (_self285544_) - (let* ((_self285545285551_ _self285544_) - (_E285547285555_ - (lambda () (error '"No clause matching" _self285545285551_))) - (_K285548285560_ - (lambda (_klass-id285558_) - (let ((__tmp291728 + (lambda (_self154514_) + (let* ((_self154515154521_ _self154514_) + (_E154517154525_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" _self154515154521_)))) + (_K154518154530_ + (lambda (_klass-id154528_) + (let ((__tmp156135 (let () (declare (not safe)) - (cons _klass-id285558_ '())))) + (cons _klass-id154528_ '())))) (declare (not safe)) - (cons '@predicate __tmp291728))))) + (cons '@predicate __tmp156135))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self285545285551_ + _self154515154521_ 'gxc#!predicate::t)) - (let* ((_e285549285563_ + (let* ((_e154519154533_ (let () (declare (not safe)) (##unchecked-structure-ref - _self285545285551_ + _self154515154521_ '1 gxc#!type::t '#f))) - (_klass-id285566_ _e285549285563_)) + (_klass-id154536_ _e154519154533_)) (declare (not safe)) - (_K285548285560_ _klass-id285566_)) - (let () (declare (not safe)) (_E285547285555_)))))) + (_K154518154530_ _klass-id154536_)) + (let () (declare (not safe)) (_E154517154525_)))))) (let () (declare (not safe)) - (bind-method! gxc#!predicate::t 'typedecl gxc#!predicate::typedecl '#f)) + (bind-method!__% + gxc#!predicate::t + 'typedecl + gxc#!predicate::typedecl + '#f)) (define gxc#!constructor::typedecl - (lambda (_self285398_) - (let* ((_self285399285405_ _self285398_) - (_E285401285409_ - (lambda () (error '"No clause matching" _self285399285405_))) - (_K285402285414_ - (lambda (_klass-id285412_) - (let ((__tmp291729 + (lambda (_self154368_) + (let* ((_self154369154375_ _self154368_) + (_E154371154379_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" _self154369154375_)))) + (_K154372154384_ + (lambda (_klass-id154382_) + (let ((__tmp156136 (let () (declare (not safe)) - (cons _klass-id285412_ '())))) + (cons _klass-id154382_ '())))) (declare (not safe)) - (cons '@constructor __tmp291729))))) + (cons '@constructor __tmp156136))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self285399285405_ + _self154369154375_ 'gxc#!constructor::t)) - (let* ((_e285403285417_ + (let* ((_e154373154387_ (let () (declare (not safe)) (##unchecked-structure-ref - _self285399285405_ + _self154369154375_ '1 gxc#!type::t '#f))) - (_klass-id285420_ _e285403285417_)) + (_klass-id154390_ _e154373154387_)) (declare (not safe)) - (_K285402285414_ _klass-id285420_)) - (let () (declare (not safe)) (_E285401285409_)))))) + (_K154372154384_ _klass-id154390_)) + (let () (declare (not safe)) (_E154371154379_)))))) (let () (declare (not safe)) - (bind-method! + (bind-method!__% gxc#!constructor::t 'typedecl gxc#!constructor::typedecl '#f)) (define gxc#!accessor::typedecl - (lambda (_self285238_) - (let* ((_self285239285247_ _self285238_) - (_E285241285251_ - (lambda () (error '"No clause matching" _self285239285247_))) - (_K285242285258_ - (lambda (_checked?285254_ _slot285255_ _klass-id285256_) - (let ((__tmp291730 - (let ((__tmp291731 - (let ((__tmp291732 + (lambda (_self154208_) + (let* ((_self154209154217_ _self154208_) + (_E154211154221_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" _self154209154217_)))) + (_K154212154228_ + (lambda (_checked?154224_ _slot154225_ _klass-id154226_) + (let ((__tmp156137 + (let ((__tmp156138 + (let ((__tmp156139 (let () (declare (not safe)) - (cons _checked?285254_ '())))) + (cons _checked?154224_ '())))) (declare (not safe)) - (cons _slot285255_ __tmp291732)))) + (cons _slot154225_ __tmp156139)))) (declare (not safe)) - (cons _klass-id285256_ __tmp291731)))) + (cons _klass-id154226_ __tmp156138)))) (declare (not safe)) - (cons '@accessor __tmp291730))))) + (cons '@accessor __tmp156137))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self285239285247_ + _self154209154217_ 'gxc#!accessor::t)) - (let* ((_e285243285261_ + (let* ((_e154213154231_ (let () (declare (not safe)) (##unchecked-structure-ref - _self285239285247_ + _self154209154217_ '1 gxc#!type::t '#f))) - (_klass-id285264_ _e285243285261_) - (_e285244285266_ + (_klass-id154234_ _e154213154231_) + (_e154214154236_ (let () (declare (not safe)) (##unchecked-structure-ref - _self285239285247_ + _self154209154217_ '2 gxc#!accessor::t '#f))) - (_slot285269_ _e285244285266_) - (_e285245285271_ + (_slot154239_ _e154214154236_) + (_e154215154241_ (let () (declare (not safe)) (##unchecked-structure-ref - _self285239285247_ + _self154209154217_ '3 gxc#!accessor::t '#f))) - (_checked?285274_ _e285245285271_)) + (_checked?154244_ _e154215154241_)) (declare (not safe)) - (_K285242285258_ - _checked?285274_ - _slot285269_ - _klass-id285264_)) - (let () (declare (not safe)) (_E285241285251_)))))) + (_K154212154228_ + _checked?154244_ + _slot154239_ + _klass-id154234_)) + (let () (declare (not safe)) (_E154211154221_)))))) (let () (declare (not safe)) - (bind-method! gxc#!accessor::t 'typedecl gxc#!accessor::typedecl '#f)) + (bind-method!__% gxc#!accessor::t 'typedecl gxc#!accessor::typedecl '#f)) (define gxc#!mutator::typedecl - (lambda (_self285078_) - (let* ((_self285079285087_ _self285078_) - (_E285081285091_ - (lambda () (error '"No clause matching" _self285079285087_))) - (_K285082285098_ - (lambda (_checked?285094_ _slot285095_ _klass-id285096_) - (let ((__tmp291733 - (let ((__tmp291734 - (let ((__tmp291735 + (lambda (_self154048_) + (let* ((_self154049154057_ _self154048_) + (_E154051154061_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" _self154049154057_)))) + (_K154052154068_ + (lambda (_checked?154064_ _slot154065_ _klass-id154066_) + (let ((__tmp156140 + (let ((__tmp156141 + (let ((__tmp156142 (let () (declare (not safe)) - (cons _checked?285094_ '())))) + (cons _checked?154064_ '())))) (declare (not safe)) - (cons _slot285095_ __tmp291735)))) + (cons _slot154065_ __tmp156142)))) (declare (not safe)) - (cons _klass-id285096_ __tmp291734)))) + (cons _klass-id154066_ __tmp156141)))) (declare (not safe)) - (cons '@mutator __tmp291733))))) + (cons '@mutator __tmp156140))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self285079285087_ 'gxc#!mutator::t)) - (let* ((_e285083285101_ + (##structure-instance-of? _self154049154057_ 'gxc#!mutator::t)) + (let* ((_e154053154071_ (let () (declare (not safe)) (##unchecked-structure-ref - _self285079285087_ + _self154049154057_ '1 gxc#!type::t '#f))) - (_klass-id285104_ _e285083285101_) - (_e285084285106_ + (_klass-id154074_ _e154053154071_) + (_e154054154076_ (let () (declare (not safe)) (##unchecked-structure-ref - _self285079285087_ + _self154049154057_ '2 gxc#!mutator::t '#f))) - (_slot285109_ _e285084285106_) - (_e285085285111_ + (_slot154079_ _e154054154076_) + (_e154055154081_ (let () (declare (not safe)) (##unchecked-structure-ref - _self285079285087_ + _self154049154057_ '3 gxc#!mutator::t '#f))) - (_checked?285114_ _e285085285111_)) + (_checked?154084_ _e154055154081_)) (declare (not safe)) - (_K285082285098_ - _checked?285114_ - _slot285109_ - _klass-id285104_)) - (let () (declare (not safe)) (_E285081285091_)))))) + (_K154052154068_ + _checked?154084_ + _slot154079_ + _klass-id154074_)) + (let () (declare (not safe)) (_E154051154061_)))))) (let () (declare (not safe)) - (bind-method! gxc#!mutator::t 'typedecl gxc#!mutator::typedecl '#f)) + (bind-method!__% gxc#!mutator::t 'typedecl gxc#!mutator::typedecl '#f)) (define gxc#!lambda::typedecl - (lambda (_self284904_) - (let* ((_self284905284915_ _self284904_) - (_E284907284919_ - (lambda () (error '"No clause matching" _self284905284915_))) - (_K284908284930_ - (lambda (_typedecl284922_ - _inline284923_ - _dispatch284924_ - _arity284925_) - (if _inline284923_ - (let ((_$e284927_ _typedecl284922_)) - (if _$e284927_ - _$e284927_ - (error '"Cannot generate typedecl for inline rules"))) - (let ((__tmp291736 - (let ((__tmp291737 + (lambda (_self153874_) + (let* ((_self153875153885_ _self153874_) + (_E153877153889_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" _self153875153885_)))) + (_K153878153900_ + (lambda (_typedecl153892_ + _inline153893_ + _dispatch153894_ + _arity153895_) + (if _inline153893_ + (let ((_$e153897_ _typedecl153892_)) + (if _$e153897_ + _$e153897_ + (let () + (declare (not safe)) + (error '"Cannot generate typedecl for inline rules")))) + (let ((__tmp156143 + (let ((__tmp156144 (let () (declare (not safe)) - (cons _dispatch284924_ '())))) + (cons _dispatch153894_ '())))) (declare (not safe)) - (cons _arity284925_ __tmp291737)))) + (cons _arity153895_ __tmp156144)))) (declare (not safe)) - (cons '@lambda __tmp291736)))))) + (cons '@lambda __tmp156143)))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self284905284915_ 'gxc#!lambda::t)) - (let* ((_e284909284933_ + (##structure-instance-of? _self153875153885_ 'gxc#!lambda::t)) + (let* ((_e153879153903_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284905284915_ + _self153875153885_ '1 gxc#!type::t '#f))) - (_e284910284936_ + (_e153880153906_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284905284915_ + _self153875153885_ '2 gxc#!lambda::t '#f))) - (_arity284939_ _e284910284936_) - (_e284911284941_ + (_arity153909_ _e153880153906_) + (_e153881153911_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284905284915_ + _self153875153885_ '3 gxc#!lambda::t '#f))) - (_dispatch284944_ _e284911284941_) - (_e284912284946_ + (_dispatch153914_ _e153881153911_) + (_e153882153916_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284905284915_ + _self153875153885_ '4 gxc#!lambda::t '#f))) - (_inline284949_ _e284912284946_) - (_e284913284951_ + (_inline153919_ _e153882153916_) + (_e153883153921_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284905284915_ + _self153875153885_ '5 gxc#!lambda::t '#f))) - (_typedecl284954_ _e284913284951_)) + (_typedecl153924_ _e153883153921_)) (declare (not safe)) - (_K284908284930_ - _typedecl284954_ - _inline284949_ - _dispatch284944_ - _arity284939_)) - (let () (declare (not safe)) (_E284907284919_)))))) + (_K153878153900_ + _typedecl153924_ + _inline153919_ + _dispatch153914_ + _arity153909_)) + (let () (declare (not safe)) (_E153877153889_)))))) (let () (declare (not safe)) - (bind-method! gxc#!lambda::t 'typedecl gxc#!lambda::typedecl '#f)) + (bind-method!__% gxc#!lambda::t 'typedecl gxc#!lambda::typedecl '#f)) (define gxc#!case-lambda::typedecl - (lambda (_self284715_) - (letrec ((_clause-e284717_ - (lambda (_clause284747_) - (let* ((_clause284748284756_ _clause284747_) - (_E284750284760_ + (lambda (_self153685_) + (letrec ((_clause-e153687_ + (lambda (_clause153717_) + (let* ((_clause153718153726_ _clause153717_) + (_E153720153730_ (lambda () - (error '"No clause matching" - _clause284748284756_))) - (_K284751284766_ - (lambda (_dispatch284763_ _arity284764_) - (let ((__tmp291738 + (let () + (declare (not safe)) + (error '"No clause matching" + _clause153718153726_)))) + (_K153721153736_ + (lambda (_dispatch153733_ _arity153734_) + (let ((__tmp156145 (let () (declare (not safe)) - (cons _dispatch284763_ '())))) + (cons _dispatch153733_ '())))) (declare (not safe)) - (cons _arity284764_ __tmp291738))))) + (cons _arity153734_ __tmp156145))))) (if (let () (declare (not safe)) (##structure-instance-of? - _clause284748284756_ + _clause153718153726_ 'gxc#!lambda::t)) - (let* ((_e284752284769_ + (let* ((_e153722153739_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause284748284756_ + _clause153718153726_ '1 gxc#!type::t '#f))) - (_e284753284772_ + (_e153723153742_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause284748284756_ + _clause153718153726_ '2 gxc#!lambda::t '#f))) - (_arity284775_ _e284753284772_) - (_e284754284777_ + (_arity153745_ _e153723153742_) + (_e153724153747_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause284748284756_ + _clause153718153726_ '3 gxc#!lambda::t '#f))) - (_dispatch284780_ _e284754284777_)) + (_dispatch153750_ _e153724153747_)) (declare (not safe)) - (_K284751284766_ _dispatch284780_ _arity284775_)) - (let () (declare (not safe)) (_E284750284760_))))))) - (let* ((_self284718284725_ _self284715_) - (_E284720284729_ - (lambda () (error '"No clause matching" _self284718284725_))) - (_K284721284736_ - (lambda (_clauses284732_) - (let ((_clauses284734_ - (map _clause-e284717_ _clauses284732_))) + (_K153721153736_ _dispatch153750_ _arity153745_)) + (let () (declare (not safe)) (_E153720153730_))))))) + (let* ((_self153688153695_ _self153685_) + (_E153690153699_ + (lambda () + (let () (declare (not safe)) - (cons '@case-lambda _clauses284734_))))) + (error '"No clause matching" _self153688153695_)))) + (_K153691153706_ + (lambda (_clauses153702_) + (let ((_clauses153704_ + (map _clause-e153687_ _clauses153702_))) + (declare (not safe)) + (cons '@case-lambda _clauses153704_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self284718284725_ + _self153688153695_ 'gxc#!case-lambda::t)) - (let* ((_e284722284739_ + (let* ((_e153692153709_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284718284725_ + _self153688153695_ '1 gxc#!type::t '#f))) - (_e284723284742_ + (_e153693153712_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284718284725_ + _self153688153695_ '2 gxc#!case-lambda::t '#f))) - (_clauses284745_ _e284723284742_)) + (_clauses153715_ _e153693153712_)) (declare (not safe)) - (_K284721284736_ _clauses284745_)) - (let () (declare (not safe)) (_E284720284729_))))))) + (_K153691153706_ _clauses153715_)) + (let () (declare (not safe)) (_E153690153699_))))))) (let () (declare (not safe)) - (bind-method! + (bind-method!__% gxc#!case-lambda::t 'typedecl gxc#!case-lambda::typedecl '#f)) (define gxc#!kw-lambda::typedecl - (lambda (_self284558_) - (let* ((_self284559284567_ _self284558_) - (_E284561284571_ - (lambda () (error '"No clause matching" _self284559284567_))) - (_K284562284577_ - (lambda (_dispatch284574_ _table284575_) - (let ((__tmp291739 - (let ((__tmp291740 + (lambda (_self153528_) + (let* ((_self153529153537_ _self153528_) + (_E153531153541_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" _self153529153537_)))) + (_K153532153547_ + (lambda (_dispatch153544_ _table153545_) + (let ((__tmp156146 + (let ((__tmp156147 (let () (declare (not safe)) - (cons _dispatch284574_ '())))) + (cons _dispatch153544_ '())))) (declare (not safe)) - (cons _table284575_ __tmp291740)))) + (cons _table153545_ __tmp156147)))) (declare (not safe)) - (cons '@kw-lambda __tmp291739))))) + (cons '@kw-lambda __tmp156146))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self284559284567_ + _self153529153537_ 'gxc#!kw-lambda::t)) - (let* ((_e284563284580_ + (let* ((_e153533153550_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284559284567_ + _self153529153537_ '1 gxc#!type::t '#f))) - (_e284564284583_ + (_e153534153553_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284559284567_ + _self153529153537_ '2 gxc#!kw-lambda::t '#f))) - (_table284586_ _e284564284583_) - (_e284565284588_ + (_table153556_ _e153534153553_) + (_e153535153558_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284559284567_ + _self153529153537_ '3 gxc#!kw-lambda::t '#f))) - (_dispatch284591_ _e284565284588_)) + (_dispatch153561_ _e153535153558_)) (declare (not safe)) - (_K284562284577_ _dispatch284591_ _table284586_)) - (let () (declare (not safe)) (_E284561284571_)))))) + (_K153532153547_ _dispatch153561_ _table153556_)) + (let () (declare (not safe)) (_E153531153541_)))))) (let () (declare (not safe)) - (bind-method! gxc#!kw-lambda::t 'typedecl gxc#!kw-lambda::typedecl '#f)) + (bind-method!__% + gxc#!kw-lambda::t + 'typedecl + gxc#!kw-lambda::typedecl + '#f)) (define gxc#!kw-lambda-primary::typedecl - (lambda (_self284401_) - (let* ((_self284402284410_ _self284401_) - (_E284404284414_ - (lambda () (error '"No clause matching" _self284402284410_))) - (_K284405284420_ - (lambda (_main284417_ _keys284418_) - (let ((__tmp291741 - (let ((__tmp291742 + (lambda (_self153371_) + (let* ((_self153372153380_ _self153371_) + (_E153374153384_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" _self153372153380_)))) + (_K153375153390_ + (lambda (_main153387_ _keys153388_) + (let ((__tmp156148 + (let ((__tmp156149 (let () (declare (not safe)) - (cons _main284417_ '())))) + (cons _main153387_ '())))) (declare (not safe)) - (cons _keys284418_ __tmp291742)))) + (cons _keys153388_ __tmp156149)))) (declare (not safe)) - (cons '@kw-lambda-dispatch __tmp291741))))) + (cons '@kw-lambda-dispatch __tmp156148))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self284402284410_ + _self153372153380_ 'gxc#!kw-lambda-primary::t)) - (let* ((_e284406284423_ + (let* ((_e153376153393_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284402284410_ + _self153372153380_ '1 gxc#!type::t '#f))) - (_e284407284426_ + (_e153377153396_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284402284410_ + _self153372153380_ '2 gxc#!kw-lambda-primary::t '#f))) - (_keys284429_ _e284407284426_) - (_e284408284431_ + (_keys153399_ _e153377153396_) + (_e153378153401_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284402284410_ + _self153372153380_ '3 gxc#!kw-lambda-primary::t '#f))) - (_main284434_ _e284408284431_)) + (_main153404_ _e153378153401_)) (declare (not safe)) - (_K284405284420_ _main284434_ _keys284429_)) - (let () (declare (not safe)) (_E284404284414_)))))) + (_K153375153390_ _main153404_ _keys153399_)) + (let () (declare (not safe)) (_E153374153384_)))))) (let () (declare (not safe)) - (bind-method! + (bind-method!__% gxc#!kw-lambda-primary::t 'typedecl gxc#!kw-lambda-primary::typedecl diff --git a/src/bootstrap/gerbil/compiler/ssxi__1.scm b/src/bootstrap/gerbil/compiler/ssxi__1.scm index 16f57af1c..cd5f88d8d 100644 --- a/src/bootstrap/gerbil/compiler/ssxi__1.scm +++ b/src/bootstrap/gerbil/compiler/ssxi__1.scm @@ -1,4576 +1,4576 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gxc[:0:]#declare-type| - (lambda (_$stx298125_) - (let* ((_g298129298147_ - (lambda (_g298130298143_) + (lambda (_$stx157964_) + (let* ((_g157968157986_ + (lambda (_g157969157982_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g298130298143_)))) - (_g298128298202_ - (lambda (_g298130298151_) + _g157969157982_)))) + (_g157967158041_ + (lambda (_g157969157990_) (if (let () (declare (not safe)) - (gx#stx-pair? _g298130298151_)) - (let ((_e298135298154_ + (gx#stx-pair? _g157969157990_)) + (let ((_e157974157993_ (let () (declare (not safe)) - (gx#syntax-e _g298130298151_)))) - (let ((_hd298134298158_ + (gx#syntax-e _g157969157990_)))) + (let ((_hd157973157997_ (let () (declare (not safe)) - (##car _e298135298154_))) - (_tl298133298161_ + (##car _e157974157993_))) + (_tl157972158000_ (let () (declare (not safe)) - (##cdr _e298135298154_)))) + (##cdr _e157974157993_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298133298161_)) - (let ((_e298138298164_ + (gx#stx-pair? _tl157972158000_)) + (let ((_e157977158003_ (let () (declare (not safe)) - (gx#syntax-e _tl298133298161_)))) - (let ((_hd298137298168_ + (gx#syntax-e _tl157972158000_)))) + (let ((_hd157976158007_ (let () (declare (not safe)) - (##car _e298138298164_))) - (_tl298136298171_ + (##car _e157977158003_))) + (_tl157975158010_ (let () (declare (not safe)) - (##cdr _e298138298164_)))) + (##cdr _e157977158003_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298136298171_)) - (let ((_e298141298174_ + (gx#stx-pair? _tl157975158010_)) + (let ((_e157980158013_ (let () (declare (not safe)) - (gx#syntax-e _tl298136298171_)))) - (let ((_hd298140298178_ + (gx#syntax-e _tl157975158010_)))) + (let ((_hd157979158017_ (let () (declare (not safe)) - (##car _e298141298174_))) - (_tl298139298181_ + (##car _e157980158013_))) + (_tl157978158020_ (let () (declare (not safe)) - (##cdr _e298141298174_)))) + (##cdr _e157980158013_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl298139298181_)) - ((lambda (_L298184_ _L298186_) + (gx#stx-null? _tl157978158020_)) + ((lambda (_L158023_ _L158025_) (if (let () (declare (not safe)) (gx#identifier? - _L298186_)) - (let ((__tmp306234 + _L158025_)) + (let ((__tmp161505 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'optimizer-declare-type!))) - (__tmp306229 - (let ((__tmp306231 + (__tmp161500 + (let ((__tmp161502 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp306233 + (let ((__tmp161504 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306232 + (__tmp161503 (let () (declare (not safe)) - (cons _L298186_ '())))) + (cons _L158025_ '())))) (declare (not safe)) - (cons __tmp306233 __tmp306232))) - (__tmp306230 - (let () (declare (not safe)) (cons _L298184_ '())))) + (cons __tmp161504 __tmp161503))) + (__tmp161501 + (let () (declare (not safe)) (cons _L158023_ '())))) (declare (not safe)) - (cons __tmp306231 __tmp306230)))) + (cons __tmp161502 __tmp161501)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp306234 - __tmp306229)) - (_g298129298147_ - _g298130298151_))) - _hd298140298178_ - _hd298137298168_) - (_g298129298147_ - _g298130298151_)))) - (_g298129298147_ _g298130298151_)))) - (_g298129298147_ _g298130298151_)))) - (_g298129298147_ _g298130298151_))))) - (_g298128298202_ _$stx298125_)))) + (cons __tmp161505 + __tmp161500)) + (_g157968157986_ + _g157969157990_))) + _hd157979158017_ + _hd157976158007_) + (_g157968157986_ + _g157969157990_)))) + (_g157968157986_ _g157969157990_)))) + (_g157968157986_ _g157969157990_)))) + (_g157968157986_ _g157969157990_))))) + (_g157967158041_ _$stx157964_)))) (define |gxc[:0:]#declare-type*| - (lambda (_$stx298206_) - (let* ((_g298210298239_ - (lambda (_g298211298235_) + (lambda (_$stx158045_) + (let* ((_g158049158078_ + (lambda (_g158050158074_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g298211298235_)))) - (_g298209298339_ - (lambda (_g298211298243_) + _g158050158074_)))) + (_g158048158178_ + (lambda (_g158050158082_) (if (let () (declare (not safe)) - (gx#stx-pair? _g298211298243_)) - (let ((_e298216298246_ + (gx#stx-pair? _g158050158082_)) + (let ((_e158055158085_ (let () (declare (not safe)) - (gx#syntax-e _g298211298243_)))) - (let ((_hd298215298250_ + (gx#syntax-e _g158050158082_)))) + (let ((_hd158054158089_ (let () (declare (not safe)) - (##car _e298216298246_))) - (_tl298214298253_ + (##car _e158055158085_))) + (_tl158053158092_ (let () (declare (not safe)) - (##cdr _e298216298246_)))) + (##cdr _e158055158085_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl298214298253_)) - (let ((_g306235_ + (gx#stx-pair/null? _tl158053158092_)) + (let ((_g161506_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl298214298253_ + _tl158053158092_ '0)))) (begin - (let ((_g306236_ + (let ((_g161507_ (let () (declare (not safe)) - (if (##values? _g306235_) - (##vector-length _g306235_) + (if (##values? _g161506_) + (##vector-length _g161506_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g306236_ 2))) + (##fx= _g161507_ 2))) (error "Context expects 2 values" - _g306236_))) - (let ((_target298217298256_ + _g161507_))) + (let ((_target158056158095_ (let () (declare (not safe)) - (##vector-ref _g306235_ 0))) - (_tl298219298259_ + (##vector-ref _g161506_ 0))) + (_tl158058158098_ (let () (declare (not safe)) - (##vector-ref _g306235_ 1)))) + (##vector-ref _g161506_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl298219298259_)) - (letrec ((_loop298220298262_ - (lambda (_hd298218298266_ - _type298224298269_ - _symbol298225298271_) + (gx#stx-null? _tl158058158098_)) + (letrec ((_loop158059158101_ + (lambda (_hd158057158105_ + _type158063158108_ + _symbol158064158110_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd298218298266_)) - (let ((_e298221298274_ + _hd158057158105_)) + (let ((_e158060158113_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd298218298266_)))) - (let ((_lp-hd298222298278_ - (let () (declare (not safe)) (##car _e298221298274_))) - (_lp-tl298223298281_ - (let () (declare (not safe)) (##cdr _e298221298274_)))) + (gx#syntax-e _hd158057158105_)))) + (let ((_lp-hd158061158117_ + (let () (declare (not safe)) (##car _e158060158113_))) + (_lp-tl158062158120_ + (let () (declare (not safe)) (##cdr _e158060158113_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd298222298278_)) - (let ((_e298230298284_ + (gx#stx-pair? _lp-hd158061158117_)) + (let ((_e158069158123_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd298222298278_)))) - (let ((_hd298229298288_ + (gx#syntax-e _lp-hd158061158117_)))) + (let ((_hd158068158127_ (let () (declare (not safe)) - (##car _e298230298284_))) - (_tl298228298291_ + (##car _e158069158123_))) + (_tl158067158130_ (let () (declare (not safe)) - (##cdr _e298230298284_)))) + (##cdr _e158069158123_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298228298291_)) - (let ((_e298233298294_ + (gx#stx-pair? _tl158067158130_)) + (let ((_e158072158133_ (let () (declare (not safe)) - (gx#syntax-e _tl298228298291_)))) - (let ((_hd298232298298_ + (gx#syntax-e _tl158067158130_)))) + (let ((_hd158071158137_ (let () (declare (not safe)) - (##car _e298233298294_))) - (_tl298231298301_ + (##car _e158072158133_))) + (_tl158070158140_ (let () (declare (not safe)) - (##cdr _e298233298294_)))) + (##cdr _e158072158133_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl298231298301_)) - (_loop298220298262_ - _lp-tl298223298281_ + (gx#stx-null? _tl158070158140_)) + (_loop158059158101_ + _lp-tl158062158120_ (let () (declare (not safe)) - (cons _hd298232298298_ - _type298224298269_)) + (cons _hd158071158137_ + _type158063158108_)) (let () (declare (not safe)) - (cons _hd298229298288_ - _symbol298225298271_))) - (_g298210298239_ _g298211298243_)))) - (_g298210298239_ _g298211298243_)))) - (_g298210298239_ _g298211298243_)))) - (let ((_type298226298304_ (reverse _type298224298269_)) - (_symbol298227298307_ (reverse _symbol298225298271_))) - ((lambda (_L298310_ _L298312_) - (let ((__tmp306243 + (cons _hd158068158127_ + _symbol158064158110_))) + (_g158049158078_ _g158050158082_)))) + (_g158049158078_ _g158050158082_)))) + (_g158049158078_ _g158050158082_)))) + (let ((_type158065158143_ (reverse _type158063158108_)) + (_symbol158066158146_ (reverse _symbol158064158110_))) + ((lambda (_L158149_ _L158151_) + (let ((__tmp161514 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp306237 + (__tmp161508 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L298310_ - _L298312_)) - (let ((__tmp306238 - (lambda (_g298327298331_ - _g298328298334_ - _g298329298336_) - (let ((__tmp306239 - (let ((__tmp306242 + _L158149_ + _L158151_)) + (let ((__tmp161509 + (lambda (_g158166158170_ + _g158167158173_ + _g158168158175_) + (let ((__tmp161510 + (let ((__tmp161513 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp306240 - (let ((__tmp306241 + (__tmp161511 + (let ((__tmp161512 (let () (declare (not safe)) - (cons _g298327298331_ + (cons _g158166158170_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g298328298334_ - __tmp306241)))) + (cons _g158167158173_ + __tmp161512)))) (declare (not safe)) - (cons __tmp306242 __tmp306240)))) + (cons __tmp161513 __tmp161511)))) (declare (not safe)) - (cons __tmp306239 _g298329298336_))))) + (cons __tmp161510 _g158168158175_))))) (declare (not safe)) - (foldr2 __tmp306238 '() _L298310_ _L298312_))))) + (foldr2 __tmp161509 '() _L158149_ _L158151_))))) (declare (not safe)) - (cons __tmp306243 __tmp306237))) - _type298226298304_ - _symbol298227298307_)))))) + (cons __tmp161514 __tmp161508))) + _type158065158143_ + _symbol158066158146_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop298220298262_ - _target298217298256_ + (_loop158059158101_ + _target158056158095_ '() '())) - (_g298210298239_ _g298211298243_))))) - (_g298210298239_ _g298211298243_)))) - (_g298210298239_ _g298211298243_))))) - (_g298209298339_ _$stx298206_)))) + (_g158049158078_ _g158050158082_))))) + (_g158049158078_ _g158050158082_)))) + (_g158049158078_ _g158050158082_))))) + (_g158048158178_ _$stx158045_)))) (define |gxc[:0:]#declare-method| - (lambda (_$stx298344_) - (let* ((___stx305794305795_ _$stx298344_) - (_g298349298391_ + (lambda (_$stx158183_) + (let* ((___stx161065161066_ _$stx158183_) + (_g158188158230_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx305794305795_))))) - (let ((___kont305797305798_ - (lambda (_L298519_ _L298521_ _L298522_ _L298523_) - (let ((__tmp306257 + ___stx161065161066_))))) + (let ((___kont161068161069_ + (lambda (_L158358_ _L158360_ _L158361_ _L158362_) + (let ((__tmp161528 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'optimizer-declare-method!))) - (__tmp306244 - (let ((__tmp306254 - (let ((__tmp306256 + (__tmp161515 + (let ((__tmp161525 + (let ((__tmp161527 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306255 + (__tmp161526 (let () (declare (not safe)) - (cons _L298523_ '())))) + (cons _L158362_ '())))) (declare (not safe)) - (cons __tmp306256 __tmp306255))) - (__tmp306245 - (let ((__tmp306251 - (let ((__tmp306253 + (cons __tmp161527 __tmp161526))) + (__tmp161516 + (let ((__tmp161522 + (let ((__tmp161524 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306252 + (__tmp161523 (let () (declare (not safe)) - (cons _L298522_ '())))) + (cons _L158361_ '())))) (declare (not safe)) - (cons __tmp306253 __tmp306252))) - (__tmp306246 - (let ((__tmp306248 - (let ((__tmp306250 + (cons __tmp161524 __tmp161523))) + (__tmp161517 + (let ((__tmp161519 + (let ((__tmp161521 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306249 + (__tmp161520 (let () (declare (not safe)) - (cons _L298521_ '())))) + (cons _L158360_ '())))) (declare (not safe)) - (cons __tmp306250 __tmp306249))) - (__tmp306247 + (cons __tmp161521 __tmp161520))) + (__tmp161518 (let () (declare (not safe)) - (cons _L298519_ '())))) + (cons _L158358_ '())))) (declare (not safe)) - (cons __tmp306248 __tmp306247)))) + (cons __tmp161519 __tmp161518)))) (declare (not safe)) - (cons __tmp306251 __tmp306246)))) + (cons __tmp161522 __tmp161517)))) (declare (not safe)) - (cons __tmp306254 __tmp306245)))) + (cons __tmp161525 __tmp161516)))) (declare (not safe)) - (cons __tmp306257 __tmp306244)))) - (___kont305799305800_ - (lambda (_L298438_ _L298440_ _L298441_ _L298442_) - (let ((__tmp306258 - (let ((__tmp306259 - (let ((__tmp306260 - (let ((__tmp306261 - (let ((__tmp306262 + (cons __tmp161528 __tmp161515)))) + (___kont161070161071_ + (lambda (_L158277_ _L158279_ _L158280_ _L158281_) + (let ((__tmp161529 + (let ((__tmp161530 + (let ((__tmp161531 + (let ((__tmp161532 + (let ((__tmp161533 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rebind?)))) (declare (not safe)) - (cons __tmp306262 '())))) + (cons __tmp161533 '())))) (declare (not safe)) - (cons _L298438_ __tmp306261)))) + (cons _L158277_ __tmp161532)))) (declare (not safe)) - (cons _L298440_ __tmp306260)))) + (cons _L158279_ __tmp161531)))) (declare (not safe)) - (cons _L298441_ __tmp306259)))) + (cons _L158280_ __tmp161530)))) (declare (not safe)) - (cons _L298442_ __tmp306258))))) - (let ((___match305833305834_ - (lambda (_e298357298469_ - _hd298356298473_ - _tl298355298476_ - _e298360298479_ - _hd298359298483_ - _tl298358298486_ - _e298363298489_ - _hd298362298493_ - _tl298361298496_ - _e298366298499_ - _hd298365298503_ - _tl298364298506_ - _e298369298509_ - _hd298368298513_ - _tl298367298516_) - (let ((_L298519_ _hd298368298513_) - (_L298521_ _hd298365298503_) - (_L298522_ _hd298362298493_) - (_L298523_ _hd298359298483_)) + (cons _L158281_ __tmp161529))))) + (let ((___match161104161105_ + (lambda (_e158196158308_ + _hd158195158312_ + _tl158194158315_ + _e158199158318_ + _hd158198158322_ + _tl158197158325_ + _e158202158328_ + _hd158201158332_ + _tl158200158335_ + _e158205158338_ + _hd158204158342_ + _tl158203158345_ + _e158208158348_ + _hd158207158352_ + _tl158206158355_) + (let ((_L158358_ _hd158207158352_) + (_L158360_ _hd158204158342_) + (_L158361_ _hd158201158332_) + (_L158362_ _hd158198158322_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L298523_)) + (gx#identifier? _L158362_)) (let () (declare (not safe)) - (gx#identifier? _L298522_)) + (gx#identifier? _L158361_)) (let () (declare (not safe)) - (gx#identifier? _L298521_))) - (___kont305797305798_ - _L298519_ - _L298521_ - _L298522_ - _L298523_) - (let () (declare (not safe)) (_g298349298391_))))))) + (gx#identifier? _L158360_))) + (___kont161068161069_ + _L158358_ + _L158360_ + _L158361_ + _L158362_) + (let () (declare (not safe)) (_g158188158230_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx305794305795_)) - (let ((_e298357298469_ + (gx#stx-pair? ___stx161065161066_)) + (let ((_e158196158308_ (let () (declare (not safe)) - (gx#syntax-e ___stx305794305795_)))) - (let ((_tl298355298476_ - (let () (declare (not safe)) (##cdr _e298357298469_))) - (_hd298356298473_ + (gx#syntax-e ___stx161065161066_)))) + (let ((_tl158194158315_ + (let () (declare (not safe)) (##cdr _e158196158308_))) + (_hd158195158312_ (let () (declare (not safe)) - (##car _e298357298469_)))) + (##car _e158196158308_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298355298476_)) - (let ((_e298360298479_ + (gx#stx-pair? _tl158194158315_)) + (let ((_e158199158318_ (let () (declare (not safe)) - (gx#syntax-e _tl298355298476_)))) - (let ((_tl298358298486_ + (gx#syntax-e _tl158194158315_)))) + (let ((_tl158197158325_ (let () (declare (not safe)) - (##cdr _e298360298479_))) - (_hd298359298483_ + (##cdr _e158199158318_))) + (_hd158198158322_ (let () (declare (not safe)) - (##car _e298360298479_)))) + (##car _e158199158318_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298358298486_)) - (let ((_e298363298489_ + (gx#stx-pair? _tl158197158325_)) + (let ((_e158202158328_ (let () (declare (not safe)) - (gx#syntax-e _tl298358298486_)))) - (let ((_tl298361298496_ + (gx#syntax-e _tl158197158325_)))) + (let ((_tl158200158335_ (let () (declare (not safe)) - (##cdr _e298363298489_))) - (_hd298362298493_ + (##cdr _e158202158328_))) + (_hd158201158332_ (let () (declare (not safe)) - (##car _e298363298489_)))) + (##car _e158202158328_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298361298496_)) - (let ((_e298366298499_ + (gx#stx-pair? _tl158200158335_)) + (let ((_e158205158338_ (let () (declare (not safe)) (gx#syntax-e - _tl298361298496_)))) - (let ((_tl298364298506_ + _tl158200158335_)))) + (let ((_tl158203158345_ (let () (declare (not safe)) - (##cdr _e298366298499_))) - (_hd298365298503_ + (##cdr _e158205158338_))) + (_hd158204158342_ (let () (declare (not safe)) - (##car _e298366298499_)))) + (##car _e158205158338_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl298364298506_)) - (let ((_e298369298509_ + _tl158203158345_)) + (let ((_e158208158348_ (let () (declare (not safe)) (gx#syntax-e - _tl298364298506_)))) - (let ((_tl298367298516_ + _tl158203158345_)))) + (let ((_tl158206158355_ (let () (declare (not safe)) - (##cdr _e298369298509_))) - (_hd298368298513_ + (##cdr _e158208158348_))) + (_hd158207158352_ (let () (declare (not safe)) - (##car _e298369298509_)))) + (##car _e158208158348_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl298367298516_)) - (___match305833305834_ - _e298357298469_ - _hd298356298473_ - _tl298355298476_ - _e298360298479_ - _hd298359298483_ - _tl298358298486_ - _e298363298489_ - _hd298362298493_ - _tl298361298496_ - _e298366298499_ - _hd298365298503_ - _tl298364298506_ - _e298369298509_ - _hd298368298513_ - _tl298367298516_) + _tl158206158355_)) + (___match161104161105_ + _e158196158308_ + _hd158195158312_ + _tl158194158315_ + _e158199158318_ + _hd158198158322_ + _tl158197158325_ + _e158202158328_ + _hd158201158332_ + _tl158200158335_ + _e158205158338_ + _hd158204158342_ + _tl158203158345_ + _e158208158348_ + _hd158207158352_ + _tl158206158355_) (let () (declare (not safe)) - (_g298349298391_))))) + (_g158188158230_))))) (if (let () (declare (not safe)) (gx#stx-null? - _tl298364298506_)) - (___kont305799305800_ - _hd298365298503_ - _hd298362298493_ - _hd298359298483_ - _hd298356298473_) + _tl158203158345_)) + (___kont161070161071_ + _hd158204158342_ + _hd158201158332_ + _hd158198158322_ + _hd158195158312_) (let () (declare (not safe)) - (_g298349298391_)))))) + (_g158188158230_)))))) (let () (declare (not safe)) - (_g298349298391_))))) + (_g158188158230_))))) (let () (declare (not safe)) - (_g298349298391_))))) - (let () (declare (not safe)) (_g298349298391_))))) - (let () (declare (not safe)) (_g298349298391_)))))))) + (_g158188158230_))))) + (let () (declare (not safe)) (_g158188158230_))))) + (let () (declare (not safe)) (_g158188158230_)))))))) (define |gxc[:0:]#declare-method*| - (lambda (_$stx298548_) - (let* ((_g298552298587_ - (lambda (_g298553298583_) + (lambda (_$stx158387_) + (let* ((_g158391158426_ + (lambda (_g158392158422_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g298553298583_)))) - (_g298551298706_ - (lambda (_g298553298591_) + _g158392158422_)))) + (_g158390158545_ + (lambda (_g158392158430_) (if (let () (declare (not safe)) - (gx#stx-pair? _g298553298591_)) - (let ((_e298559298594_ + (gx#stx-pair? _g158392158430_)) + (let ((_e158398158433_ (let () (declare (not safe)) - (gx#syntax-e _g298553298591_)))) - (let ((_hd298558298598_ + (gx#syntax-e _g158392158430_)))) + (let ((_hd158397158437_ (let () (declare (not safe)) - (##car _e298559298594_))) - (_tl298557298601_ + (##car _e158398158433_))) + (_tl158396158440_ (let () (declare (not safe)) - (##cdr _e298559298594_)))) + (##cdr _e158398158433_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl298557298601_)) - (let ((_g306263_ + (gx#stx-pair/null? _tl158396158440_)) + (let ((_g161534_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl298557298601_ + _tl158396158440_ '0)))) (begin - (let ((_g306264_ + (let ((_g161535_ (let () (declare (not safe)) - (if (##values? _g306263_) - (##vector-length _g306263_) + (if (##values? _g161534_) + (##vector-length _g161534_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g306264_ 2))) + (##fx= _g161535_ 2))) (error "Context expects 2 values" - _g306264_))) - (let ((_target298560298604_ + _g161535_))) + (let ((_target158399158443_ (let () (declare (not safe)) - (##vector-ref _g306263_ 0))) - (_tl298562298607_ + (##vector-ref _g161534_ 0))) + (_tl158401158446_ (let () (declare (not safe)) - (##vector-ref _g306263_ 1)))) + (##vector-ref _g161534_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl298562298607_)) - (letrec ((_loop298563298610_ - (lambda (_hd298561298614_ - _symbol298567298617_ - _method298568298619_ - _type-t298569298621_) + (gx#stx-null? _tl158401158446_)) + (letrec ((_loop158402158449_ + (lambda (_hd158400158453_ + _symbol158406158456_ + _method158407158458_ + _type-t158408158460_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd298561298614_)) - (let ((_e298564298624_ + _hd158400158453_)) + (let ((_e158403158463_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd298561298614_)))) - (let ((_lp-hd298565298628_ - (let () (declare (not safe)) (##car _e298564298624_))) - (_lp-tl298566298631_ - (let () (declare (not safe)) (##cdr _e298564298624_)))) + (gx#syntax-e _hd158400158453_)))) + (let ((_lp-hd158404158467_ + (let () (declare (not safe)) (##car _e158403158463_))) + (_lp-tl158405158470_ + (let () (declare (not safe)) (##cdr _e158403158463_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd298565298628_)) - (let ((_e298575298634_ + (gx#stx-pair? _lp-hd158404158467_)) + (let ((_e158414158473_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd298565298628_)))) - (let ((_hd298574298638_ + (gx#syntax-e _lp-hd158404158467_)))) + (let ((_hd158413158477_ (let () (declare (not safe)) - (##car _e298575298634_))) - (_tl298573298641_ + (##car _e158414158473_))) + (_tl158412158480_ (let () (declare (not safe)) - (##cdr _e298575298634_)))) + (##cdr _e158414158473_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298573298641_)) - (let ((_e298578298644_ + (gx#stx-pair? _tl158412158480_)) + (let ((_e158417158483_ (let () (declare (not safe)) - (gx#syntax-e _tl298573298641_)))) - (let ((_hd298577298648_ + (gx#syntax-e _tl158412158480_)))) + (let ((_hd158416158487_ (let () (declare (not safe)) - (##car _e298578298644_))) - (_tl298576298651_ + (##car _e158417158483_))) + (_tl158415158490_ (let () (declare (not safe)) - (##cdr _e298578298644_)))) + (##cdr _e158417158483_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298576298651_)) - (let ((_e298581298654_ + (gx#stx-pair? _tl158415158490_)) + (let ((_e158420158493_ (let () (declare (not safe)) (gx#syntax-e - _tl298576298651_)))) - (let ((_hd298580298658_ + _tl158415158490_)))) + (let ((_hd158419158497_ (let () (declare (not safe)) - (##car _e298581298654_))) - (_tl298579298661_ + (##car _e158420158493_))) + (_tl158418158500_ (let () (declare (not safe)) - (##cdr _e298581298654_)))) + (##cdr _e158420158493_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl298579298661_)) - (_loop298563298610_ - _lp-tl298566298631_ + _tl158418158500_)) + (_loop158402158449_ + _lp-tl158405158470_ (let () (declare (not safe)) - (cons _hd298580298658_ - _symbol298567298617_)) + (cons _hd158419158497_ + _symbol158406158456_)) (let () (declare (not safe)) - (cons _hd298577298648_ - _method298568298619_)) + (cons _hd158416158487_ + _method158407158458_)) (let () (declare (not safe)) - (cons _hd298574298638_ - _type-t298569298621_))) - (_g298552298587_ - _g298553298591_)))) - (_g298552298587_ _g298553298591_)))) - (_g298552298587_ _g298553298591_)))) - (_g298552298587_ _g298553298591_)))) - (let ((_symbol298570298664_ (reverse _symbol298567298617_)) - (_method298571298667_ (reverse _method298568298619_)) - (_type-t298572298669_ (reverse _type-t298569298621_))) - ((lambda (_L298672_ _L298674_ _L298675_) - (let ((__tmp306272 + (cons _hd158413158477_ + _type-t158408158460_))) + (_g158391158426_ + _g158392158430_)))) + (_g158391158426_ _g158392158430_)))) + (_g158391158426_ _g158392158430_)))) + (_g158391158426_ _g158392158430_)))) + (let ((_symbol158409158503_ (reverse _symbol158406158456_)) + (_method158410158506_ (reverse _method158407158458_)) + (_type-t158411158508_ (reverse _type-t158408158460_))) + ((lambda (_L158511_ _L158513_ _L158514_) + (let ((__tmp161543 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp306265 + (__tmp161536 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L298672_ - _L298674_ - _L298675_)) - (let ((__tmp306266 - (lambda (_g298691298696_ - _g298692298699_ - _g298693298701_ - _g298694298703_) - (let ((__tmp306267 - (let ((__tmp306271 + _L158511_ + _L158513_ + _L158514_)) + (let ((__tmp161537 + (lambda (_g158530158535_ + _g158531158538_ + _g158532158540_ + _g158533158542_) + (let ((__tmp161538 + (let ((__tmp161542 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method))) - (__tmp306268 - (let ((__tmp306269 - (let ((__tmp306270 + (__tmp161539 + (let ((__tmp161540 + (let ((__tmp161541 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _g298691298696_ '())))) + (cons _g158530158535_ '())))) (declare (not safe)) - (cons _g298692298699_ __tmp306270)))) + (cons _g158531158538_ __tmp161541)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g298693298701_ - __tmp306269)))) + (cons _g158532158540_ + __tmp161540)))) (declare (not safe)) - (cons __tmp306271 __tmp306268)))) + (cons __tmp161542 __tmp161539)))) (declare (not safe)) - (cons __tmp306267 _g298694298703_))))) + (cons __tmp161538 _g158533158542_))))) (declare (not safe)) - (foldr* __tmp306266 + (foldr* __tmp161537 '() - _L298672_ - _L298674_ - _L298675_))))) + _L158511_ + _L158513_ + _L158514_))))) (declare (not safe)) - (cons __tmp306272 __tmp306265))) - _symbol298570298664_ - _method298571298667_ - _type-t298572298669_)))))) + (cons __tmp161543 __tmp161536))) + _symbol158409158503_ + _method158410158506_ + _type-t158411158508_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop298563298610_ - _target298560298604_ + (_loop158402158449_ + _target158399158443_ '() '() '())) - (_g298552298587_ _g298553298591_))))) - (_g298552298587_ _g298553298591_)))) - (_g298552298587_ _g298553298591_))))) - (_g298551298706_ _$stx298548_)))) + (_g158391158426_ _g158392158430_))))) + (_g158391158426_ _g158392158430_)))) + (_g158391158426_ _g158392158430_))))) + (_g158390158545_ _$stx158387_)))) (define |gxc[:0:]#declare-methods| - (lambda (_$stx298711_) - (let* ((_g298715298748_ - (lambda (_g298716298744_) + (lambda (_$stx158550_) + (let* ((_g158554158587_ + (lambda (_g158555158583_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g298716298744_)))) - (_g298714298862_ - (lambda (_g298716298752_) + _g158555158583_)))) + (_g158553158701_ + (lambda (_g158555158591_) (if (let () (declare (not safe)) - (gx#stx-pair? _g298716298752_)) - (let ((_e298722298755_ + (gx#stx-pair? _g158555158591_)) + (let ((_e158561158594_ (let () (declare (not safe)) - (gx#syntax-e _g298716298752_)))) - (let ((_hd298721298759_ + (gx#syntax-e _g158555158591_)))) + (let ((_hd158560158598_ (let () (declare (not safe)) - (##car _e298722298755_))) - (_tl298720298762_ + (##car _e158561158594_))) + (_tl158559158601_ (let () (declare (not safe)) - (##cdr _e298722298755_)))) + (##cdr _e158561158594_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298720298762_)) - (let ((_e298725298765_ + (gx#stx-pair? _tl158559158601_)) + (let ((_e158564158604_ (let () (declare (not safe)) - (gx#syntax-e _tl298720298762_)))) - (let ((_hd298724298769_ + (gx#syntax-e _tl158559158601_)))) + (let ((_hd158563158608_ (let () (declare (not safe)) - (##car _e298725298765_))) - (_tl298723298772_ + (##car _e158564158604_))) + (_tl158562158611_ (let () (declare (not safe)) - (##cdr _e298725298765_)))) + (##cdr _e158564158604_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl298723298772_)) - (let ((_g306273_ + (gx#stx-pair/null? _tl158562158611_)) + (let ((_g161544_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl298723298772_ + _tl158562158611_ '0)))) (begin - (let ((_g306274_ + (let ((_g161545_ (let () (declare (not safe)) - (if (##values? _g306273_) + (if (##values? _g161544_) (##vector-length - _g306273_) + _g161544_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g306274_ 2))) + (##fx= _g161545_ 2))) (error "Context expects 2 values" - _g306274_))) - (let ((_target298726298775_ + _g161545_))) + (let ((_target158565158614_ (let () (declare (not safe)) - (##vector-ref _g306273_ 0))) - (_tl298728298778_ + (##vector-ref _g161544_ 0))) + (_tl158567158617_ (let () (declare (not safe)) - (##vector-ref _g306273_ 1)))) + (##vector-ref _g161544_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl298728298778_)) - (letrec ((_loop298729298781_ - (lambda (_hd298727298785_ + _tl158567158617_)) + (letrec ((_loop158568158620_ + (lambda (_hd158566158624_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _symbol298733298788_ - _method298734298790_) + _symbol158572158627_ + _method158573158629_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd298727298785_)) - (let ((_e298730298793_ + (gx#stx-pair? _hd158566158624_)) + (let ((_e158569158632_ (let () (declare (not safe)) - (gx#syntax-e _hd298727298785_)))) - (let ((_lp-hd298731298797_ + (gx#syntax-e _hd158566158624_)))) + (let ((_lp-hd158570158636_ (let () (declare (not safe)) - (##car _e298730298793_))) - (_lp-tl298732298800_ + (##car _e158569158632_))) + (_lp-tl158571158639_ (let () (declare (not safe)) - (##cdr _e298730298793_)))) + (##cdr _e158569158632_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd298731298797_)) - (let ((_e298739298803_ + (gx#stx-pair? _lp-hd158570158636_)) + (let ((_e158578158642_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd298731298797_)))) - (let ((_hd298738298807_ + (gx#syntax-e _lp-hd158570158636_)))) + (let ((_hd158577158646_ (let () (declare (not safe)) - (##car _e298739298803_))) - (_tl298737298810_ + (##car _e158578158642_))) + (_tl158576158649_ (let () (declare (not safe)) - (##cdr _e298739298803_)))) + (##cdr _e158578158642_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298737298810_)) - (let ((_e298742298813_ + (gx#stx-pair? _tl158576158649_)) + (let ((_e158581158652_ (let () (declare (not safe)) (gx#syntax-e - _tl298737298810_)))) - (let ((_hd298741298817_ + _tl158576158649_)))) + (let ((_hd158580158656_ (let () (declare (not safe)) - (##car _e298742298813_))) - (_tl298740298820_ + (##car _e158581158652_))) + (_tl158579158659_ (let () (declare (not safe)) - (##cdr _e298742298813_)))) + (##cdr _e158581158652_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl298740298820_)) - (_loop298729298781_ - _lp-tl298732298800_ + _tl158579158659_)) + (_loop158568158620_ + _lp-tl158571158639_ (let () (declare (not safe)) - (cons _hd298741298817_ - _symbol298733298788_)) + (cons _hd158580158656_ + _symbol158572158627_)) (let () (declare (not safe)) - (cons _hd298738298807_ - _method298734298790_))) - (_g298715298748_ - _g298716298752_)))) - (_g298715298748_ _g298716298752_)))) - (_g298715298748_ _g298716298752_)))) - (let ((_symbol298735298823_ - (reverse _symbol298733298788_)) - (_method298736298826_ - (reverse _method298734298790_))) - ((lambda (_L298829_ _L298831_ _L298832_) - (let ((__tmp306282 + (cons _hd158577158646_ + _method158573158629_))) + (_g158554158587_ + _g158555158591_)))) + (_g158554158587_ _g158555158591_)))) + (_g158554158587_ _g158555158591_)))) + (let ((_symbol158574158662_ + (reverse _symbol158572158627_)) + (_method158575158665_ + (reverse _method158573158629_))) + ((lambda (_L158668_ _L158670_ _L158671_) + (let ((__tmp161553 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp306275 + (__tmp161546 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L298829_ - _L298831_)) - (let ((__tmp306276 - (lambda (_g298850298854_ - _g298851298857_ - _g298852298859_) - (let ((__tmp306277 - (let ((__tmp306281 + _L158668_ + _L158670_)) + (let ((__tmp161547 + (lambda (_g158689158693_ + _g158690158696_ + _g158691158698_) + (let ((__tmp161548 + (let ((__tmp161552 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method))) - (__tmp306278 - (let ((__tmp306279 + (__tmp161549 + (let ((__tmp161550 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp306280 + (let ((__tmp161551 (let () (declare (not safe)) - (cons _g298850298854_ '())))) + (cons _g158689158693_ '())))) (declare (not safe)) - (cons _g298851298857_ __tmp306280)))) + (cons _g158690158696_ __tmp161551)))) (declare (not safe)) - (cons _L298832_ __tmp306279)))) + (cons _L158671_ __tmp161550)))) (declare (not safe)) - (cons __tmp306281 __tmp306278)))) + (cons __tmp161552 __tmp161549)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp306277 - _g298852298859_))))) + (cons __tmp161548 + _g158691158698_))))) (declare (not safe)) - (foldr2 __tmp306276 + (foldr2 __tmp161547 '() - _L298829_ - _L298831_))))) + _L158668_ + _L158670_))))) (declare (not safe)) - (cons __tmp306282 __tmp306275))) - _symbol298735298823_ - _method298736298826_ - _hd298724298769_)))))) + (cons __tmp161553 __tmp161546))) + _symbol158574158662_ + _method158575158665_ + _hd158563158608_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop298729298781_ - _target298726298775_ + (_loop158568158620_ + _target158565158614_ '() '())) - (_g298715298748_ - _g298716298752_))))) - (_g298715298748_ _g298716298752_)))) - (_g298715298748_ _g298716298752_)))) - (_g298715298748_ _g298716298752_))))) - (_g298714298862_ _$stx298711_)))) + (_g158554158587_ + _g158555158591_))))) + (_g158554158587_ _g158555158591_)))) + (_g158554158587_ _g158555158591_)))) + (_g158554158587_ _g158555158591_))))) + (_g158553158701_ _$stx158550_)))) (define |gxc[:0:]#@alias| - (lambda (_$stx298867_) - (let* ((_g298871298885_ - (lambda (_g298872298881_) + (lambda (_$stx158706_) + (let* ((_g158710158724_ + (lambda (_g158711158720_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g298872298881_)))) - (_g298870298926_ - (lambda (_g298872298889_) + _g158711158720_)))) + (_g158709158765_ + (lambda (_g158711158728_) (if (let () (declare (not safe)) - (gx#stx-pair? _g298872298889_)) - (let ((_e298876298892_ + (gx#stx-pair? _g158711158728_)) + (let ((_e158715158731_ (let () (declare (not safe)) - (gx#syntax-e _g298872298889_)))) - (let ((_hd298875298896_ + (gx#syntax-e _g158711158728_)))) + (let ((_hd158714158735_ (let () (declare (not safe)) - (##car _e298876298892_))) - (_tl298874298899_ + (##car _e158715158731_))) + (_tl158713158738_ (let () (declare (not safe)) - (##cdr _e298876298892_)))) + (##cdr _e158715158731_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298874298899_)) - (let ((_e298879298902_ + (gx#stx-pair? _tl158713158738_)) + (let ((_e158718158741_ (let () (declare (not safe)) - (gx#syntax-e _tl298874298899_)))) - (let ((_hd298878298906_ + (gx#syntax-e _tl158713158738_)))) + (let ((_hd158717158745_ (let () (declare (not safe)) - (##car _e298879298902_))) - (_tl298877298909_ + (##car _e158718158741_))) + (_tl158716158748_ (let () (declare (not safe)) - (##cdr _e298879298902_)))) + (##cdr _e158718158741_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl298877298909_)) - ((lambda (_L298912_) - (let ((__tmp306287 + (gx#stx-null? _tl158716158748_)) + ((lambda (_L158751_) + (let ((__tmp161558 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!alias))) - (__tmp306283 - (let ((__tmp306284 - (let ((__tmp306286 + (__tmp161554 + (let ((__tmp161555 + (let ((__tmp161557 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306285 + (__tmp161556 (let () (declare (not safe)) - (cons _L298912_ + (cons _L158751_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp306286 __tmp306285)))) + (cons __tmp161557 __tmp161556)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp306284 '())))) + (cons __tmp161555 '())))) (declare (not safe)) - (cons __tmp306287 __tmp306283))) - _hd298878298906_) - (_g298871298885_ _g298872298889_)))) - (_g298871298885_ _g298872298889_)))) - (_g298871298885_ _g298872298889_))))) - (_g298870298926_ _$stx298867_)))) + (cons __tmp161558 __tmp161554))) + _hd158717158745_) + (_g158710158724_ _g158711158728_)))) + (_g158710158724_ _g158711158728_)))) + (_g158710158724_ _g158711158728_))))) + (_g158709158765_ _$stx158706_)))) (define |gxc[:0:]#@class| - (lambda (_$stx298930_) - (let* ((_g298934298984_ - (lambda (_g298935298980_) + (lambda (_$stx158769_) + (let* ((_g158773158823_ + (lambda (_g158774158819_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g298935298980_)))) - (_g298933299151_ - (lambda (_g298935298988_) + _g158774158819_)))) + (_g158772158990_ + (lambda (_g158774158827_) (if (let () (declare (not safe)) - (gx#stx-pair? _g298935298988_)) - (let ((_e298948298991_ + (gx#stx-pair? _g158774158827_)) + (let ((_e158787158830_ (let () (declare (not safe)) - (gx#syntax-e _g298935298988_)))) - (let ((_hd298947298995_ + (gx#syntax-e _g158774158827_)))) + (let ((_hd158786158834_ (let () (declare (not safe)) - (##car _e298948298991_))) - (_tl298946298998_ + (##car _e158787158830_))) + (_tl158785158837_ (let () (declare (not safe)) - (##cdr _e298948298991_)))) + (##cdr _e158787158830_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298946298998_)) - (let ((_e298951299001_ + (gx#stx-pair? _tl158785158837_)) + (let ((_e158790158840_ (let () (declare (not safe)) - (gx#syntax-e _tl298946298998_)))) - (let ((_hd298950299005_ + (gx#syntax-e _tl158785158837_)))) + (let ((_hd158789158844_ (let () (declare (not safe)) - (##car _e298951299001_))) - (_tl298949299008_ + (##car _e158790158840_))) + (_tl158788158847_ (let () (declare (not safe)) - (##cdr _e298951299001_)))) + (##cdr _e158790158840_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298949299008_)) - (let ((_e298954299011_ + (gx#stx-pair? _tl158788158847_)) + (let ((_e158793158850_ (let () (declare (not safe)) - (gx#syntax-e _tl298949299008_)))) - (let ((_hd298953299015_ + (gx#syntax-e _tl158788158847_)))) + (let ((_hd158792158854_ (let () (declare (not safe)) - (##car _e298954299011_))) - (_tl298952299018_ + (##car _e158793158850_))) + (_tl158791158857_ (let () (declare (not safe)) - (##cdr _e298954299011_)))) + (##cdr _e158793158850_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298952299018_)) - (let ((_e298957299021_ + (gx#stx-pair? _tl158791158857_)) + (let ((_e158796158860_ (let () (declare (not safe)) (gx#syntax-e - _tl298952299018_)))) - (let ((_hd298956299025_ + _tl158791158857_)))) + (let ((_hd158795158864_ (let () (declare (not safe)) - (##car _e298957299021_))) - (_tl298955299028_ + (##car _e158796158860_))) + (_tl158794158867_ (let () (declare (not safe)) - (##cdr _e298957299021_)))) + (##cdr _e158796158860_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl298955299028_)) - (let ((_e298960299031_ + _tl158794158867_)) + (let ((_e158799158870_ (let () (declare (not safe)) (gx#syntax-e - _tl298955299028_)))) - (let ((_hd298959299035_ + _tl158794158867_)))) + (let ((_hd158798158874_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e298960299031_))) - (_tl298958299038_ - (let () (declare (not safe)) (##cdr _e298960299031_)))) + (##car _e158799158870_))) + (_tl158797158877_ + (let () (declare (not safe)) (##cdr _e158799158870_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298958299038_)) - (let ((_e298963299041_ + (gx#stx-pair? _tl158797158877_)) + (let ((_e158802158880_ (let () (declare (not safe)) - (gx#syntax-e _tl298958299038_)))) - (let ((_hd298962299045_ + (gx#syntax-e _tl158797158877_)))) + (let ((_hd158801158884_ (let () (declare (not safe)) - (##car _e298963299041_))) - (_tl298961299048_ + (##car _e158802158880_))) + (_tl158800158887_ (let () (declare (not safe)) - (##cdr _e298963299041_)))) + (##cdr _e158802158880_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298961299048_)) - (let ((_e298966299051_ + (gx#stx-pair? _tl158800158887_)) + (let ((_e158805158890_ (let () (declare (not safe)) - (gx#syntax-e _tl298961299048_)))) - (let ((_hd298965299055_ + (gx#syntax-e _tl158800158887_)))) + (let ((_hd158804158894_ (let () (declare (not safe)) - (##car _e298966299051_))) - (_tl298964299058_ + (##car _e158805158890_))) + (_tl158803158897_ (let () (declare (not safe)) - (##cdr _e298966299051_)))) + (##cdr _e158805158890_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298964299058_)) - (let ((_e298969299061_ + (gx#stx-pair? _tl158803158897_)) + (let ((_e158808158900_ (let () (declare (not safe)) - (gx#syntax-e _tl298964299058_)))) - (let ((_hd298968299065_ + (gx#syntax-e _tl158803158897_)))) + (let ((_hd158807158904_ (let () (declare (not safe)) - (##car _e298969299061_))) - (_tl298967299068_ + (##car _e158808158900_))) + (_tl158806158907_ (let () (declare (not safe)) - (##cdr _e298969299061_)))) + (##cdr _e158808158900_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298967299068_)) - (let ((_e298972299071_ + (gx#stx-pair? _tl158806158907_)) + (let ((_e158811158910_ (let () (declare (not safe)) (gx#syntax-e - _tl298967299068_)))) - (let ((_hd298971299075_ + _tl158806158907_)))) + (let ((_hd158810158914_ (let () (declare (not safe)) - (##car _e298972299071_))) - (_tl298970299078_ + (##car _e158811158910_))) + (_tl158809158917_ (let () (declare (not safe)) - (##cdr _e298972299071_)))) + (##cdr _e158811158910_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl298970299078_)) - (let ((_e298975299081_ + _tl158809158917_)) + (let ((_e158814158920_ (let () (declare (not safe)) (gx#syntax-e - _tl298970299078_)))) - (let ((_hd298974299085_ + _tl158809158917_)))) + (let ((_hd158813158924_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e298975299081_))) - (_tl298973299088_ - (let () (declare (not safe)) (##cdr _e298975299081_)))) + (##car _e158814158920_))) + (_tl158812158927_ + (let () (declare (not safe)) (##cdr _e158814158920_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298973299088_)) - (let ((_e298978299091_ + (gx#stx-pair? _tl158812158927_)) + (let ((_e158817158930_ (let () (declare (not safe)) - (gx#syntax-e _tl298973299088_)))) - (let ((_hd298977299095_ + (gx#syntax-e _tl158812158927_)))) + (let ((_hd158816158934_ (let () (declare (not safe)) - (##car _e298978299091_))) - (_tl298976299098_ + (##car _e158817158930_))) + (_tl158815158937_ (let () (declare (not safe)) - (##cdr _e298978299091_)))) + (##cdr _e158817158930_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl298976299098_)) - ((lambda (_L299101_ - _L299103_ - _L299104_ - _L299105_ - _L299106_ - _L299107_ - _L299108_ - _L299109_ - _L299110_ - _L299111_) - (let ((__tmp306322 + (gx#stx-null? _tl158815158937_)) + ((lambda (_L158940_ + _L158942_ + _L158943_ + _L158944_ + _L158945_ + _L158946_ + _L158947_ + _L158948_ + _L158949_ + _L158950_) + (let ((__tmp161593 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!class))) - (__tmp306288 - (let ((__tmp306319 - (let ((__tmp306321 + (__tmp161559 + (let ((__tmp161590 + (let ((__tmp161592 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306320 + (__tmp161591 (let () (declare (not safe)) - (cons _L299111_ '())))) + (cons _L158950_ '())))) (declare (not safe)) - (cons __tmp306321 __tmp306320))) - (__tmp306289 - (let ((__tmp306316 - (let ((__tmp306318 + (cons __tmp161592 __tmp161591))) + (__tmp161560 + (let ((__tmp161587 + (let ((__tmp161589 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306317 + (__tmp161588 (let () (declare (not safe)) - (cons _L299110_ + (cons _L158949_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp306318 __tmp306317))) + (cons __tmp161589 __tmp161588))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp306290 - (let ((__tmp306313 - (let ((__tmp306315 + (__tmp161561 + (let ((__tmp161584 + (let ((__tmp161586 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306314 - (let () (declare (not safe)) (cons _L299109_ '())))) + (__tmp161585 + (let () (declare (not safe)) (cons _L158948_ '())))) (declare (not safe)) - (cons __tmp306315 __tmp306314))) - (__tmp306291 - (let ((__tmp306310 - (let ((__tmp306312 + (cons __tmp161586 __tmp161585))) + (__tmp161562 + (let ((__tmp161581 + (let ((__tmp161583 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306311 + (__tmp161582 (let () (declare (not safe)) - (cons _L299108_ '())))) + (cons _L158947_ '())))) (declare (not safe)) - (cons __tmp306312 __tmp306311))) - (__tmp306292 - (let ((__tmp306307 - (let ((__tmp306309 + (cons __tmp161583 __tmp161582))) + (__tmp161563 + (let ((__tmp161578 + (let ((__tmp161580 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306308 + (__tmp161579 (let () (declare (not safe)) - (cons _L299107_ '())))) + (cons _L158946_ '())))) (declare (not safe)) - (cons __tmp306309 __tmp306308))) - (__tmp306293 - (let ((__tmp306304 - (let ((__tmp306306 + (cons __tmp161580 __tmp161579))) + (__tmp161564 + (let ((__tmp161575 + (let ((__tmp161577 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306305 + (__tmp161576 (let () (declare (not safe)) - (cons _L299106_ '())))) + (cons _L158945_ '())))) (declare (not safe)) - (cons __tmp306306 __tmp306305))) - (__tmp306294 - (let ((__tmp306295 - (let ((__tmp306296 - (let ((__tmp306301 - (let ((__tmp306303 + (cons __tmp161577 __tmp161576))) + (__tmp161565 + (let ((__tmp161566 + (let ((__tmp161567 + (let ((__tmp161572 + (let ((__tmp161574 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306302 + (__tmp161573 (let () (declare (not safe)) - (cons _L299103_ '())))) + (cons _L158942_ '())))) (declare (not safe)) - (cons __tmp306303 __tmp306302))) - (__tmp306297 - (let ((__tmp306298 - (let ((__tmp306300 + (cons __tmp161574 __tmp161573))) + (__tmp161568 + (let ((__tmp161569 + (let ((__tmp161571 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306299 + (__tmp161570 (let () (declare (not safe)) - (cons _L299101_ '())))) + (cons _L158940_ '())))) (declare (not safe)) - (cons __tmp306300 __tmp306299)))) + (cons __tmp161571 __tmp161570)))) (declare (not safe)) - (cons __tmp306298 '())))) + (cons __tmp161569 '())))) (declare (not safe)) - (cons __tmp306301 __tmp306297)))) + (cons __tmp161572 __tmp161568)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L299104_ - __tmp306296)))) + (cons _L158943_ + __tmp161567)))) (declare (not safe)) - (cons _L299105_ __tmp306295)))) + (cons _L158944_ __tmp161566)))) (declare (not safe)) - (cons __tmp306304 __tmp306294)))) + (cons __tmp161575 __tmp161565)))) (declare (not safe)) - (cons __tmp306307 __tmp306293)))) + (cons __tmp161578 __tmp161564)))) (declare (not safe)) - (cons __tmp306310 __tmp306292)))) + (cons __tmp161581 __tmp161563)))) (declare (not safe)) - (cons __tmp306313 __tmp306291)))) + (cons __tmp161584 __tmp161562)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp306316 - __tmp306290)))) + (cons __tmp161587 + __tmp161561)))) (declare (not safe)) - (cons __tmp306319 __tmp306289)))) + (cons __tmp161590 __tmp161560)))) (declare (not safe)) - (cons __tmp306322 __tmp306288))) - _hd298977299095_ - _hd298974299085_ - _hd298971299075_ - _hd298968299065_ - _hd298965299055_ - _hd298962299045_ - _hd298959299035_ - _hd298956299025_ - _hd298953299015_ - _hd298950299005_) - (_g298934298984_ _g298935298988_)))) - (_g298934298984_ _g298935298988_)))) + (cons __tmp161593 __tmp161559))) + _hd158816158934_ + _hd158813158924_ + _hd158810158914_ + _hd158807158904_ + _hd158804158894_ + _hd158801158884_ + _hd158798158874_ + _hd158795158864_ + _hd158792158854_ + _hd158789158844_) + (_g158773158823_ _g158774158827_)))) + (_g158773158823_ _g158774158827_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g298934298984_ - _g298935298988_)))) - (_g298934298984_ - _g298935298988_)))) - (_g298934298984_ _g298935298988_)))) - (_g298934298984_ _g298935298988_)))) - (_g298934298984_ _g298935298988_)))) + (_g158773158823_ + _g158774158827_)))) + (_g158773158823_ + _g158774158827_)))) + (_g158773158823_ _g158774158827_)))) + (_g158773158823_ _g158774158827_)))) + (_g158773158823_ _g158774158827_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g298934298984_ - _g298935298988_)))) - (_g298934298984_ - _g298935298988_)))) - (_g298934298984_ _g298935298988_)))) - (_g298934298984_ _g298935298988_)))) - (_g298934298984_ _g298935298988_))))) - (_g298933299151_ _$stx298930_)))) + (_g158773158823_ + _g158774158827_)))) + (_g158773158823_ + _g158774158827_)))) + (_g158773158823_ _g158774158827_)))) + (_g158773158823_ _g158774158827_)))) + (_g158773158823_ _g158774158827_))))) + (_g158772158990_ _$stx158769_)))) (define |gxc[:0:]#@predicate| - (lambda (_$stx299155_) - (let* ((_g299159299173_ - (lambda (_g299160299169_) + (lambda (_$stx158994_) + (let* ((_g158998159012_ + (lambda (_g158999159008_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g299160299169_)))) - (_g299158299214_ - (lambda (_g299160299177_) + _g158999159008_)))) + (_g158997159053_ + (lambda (_g158999159016_) (if (let () (declare (not safe)) - (gx#stx-pair? _g299160299177_)) - (let ((_e299164299180_ + (gx#stx-pair? _g158999159016_)) + (let ((_e159003159019_ (let () (declare (not safe)) - (gx#syntax-e _g299160299177_)))) - (let ((_hd299163299184_ + (gx#syntax-e _g158999159016_)))) + (let ((_hd159002159023_ (let () (declare (not safe)) - (##car _e299164299180_))) - (_tl299162299187_ + (##car _e159003159019_))) + (_tl159001159026_ (let () (declare (not safe)) - (##cdr _e299164299180_)))) + (##cdr _e159003159019_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl299162299187_)) - (let ((_e299167299190_ + (gx#stx-pair? _tl159001159026_)) + (let ((_e159006159029_ (let () (declare (not safe)) - (gx#syntax-e _tl299162299187_)))) - (let ((_hd299166299194_ + (gx#syntax-e _tl159001159026_)))) + (let ((_hd159005159033_ (let () (declare (not safe)) - (##car _e299167299190_))) - (_tl299165299197_ + (##car _e159006159029_))) + (_tl159004159036_ (let () (declare (not safe)) - (##cdr _e299167299190_)))) + (##cdr _e159006159029_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299165299197_)) - ((lambda (_L299200_) - (let ((__tmp306327 + (gx#stx-null? _tl159004159036_)) + ((lambda (_L159039_) + (let ((__tmp161598 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!predicate))) - (__tmp306323 - (let ((__tmp306324 - (let ((__tmp306326 + (__tmp161594 + (let ((__tmp161595 + (let ((__tmp161597 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306325 + (__tmp161596 (let () (declare (not safe)) - (cons _L299200_ + (cons _L159039_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp306326 __tmp306325)))) + (cons __tmp161597 __tmp161596)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp306324 '())))) + (cons __tmp161595 '())))) (declare (not safe)) - (cons __tmp306327 __tmp306323))) - _hd299166299194_) - (_g299159299173_ _g299160299177_)))) - (_g299159299173_ _g299160299177_)))) - (_g299159299173_ _g299160299177_))))) - (_g299158299214_ _$stx299155_)))) + (cons __tmp161598 __tmp161594))) + _hd159005159033_) + (_g158998159012_ _g158999159016_)))) + (_g158998159012_ _g158999159016_)))) + (_g158998159012_ _g158999159016_))))) + (_g158997159053_ _$stx158994_)))) (define |gxc[:0:]#@constructor| - (lambda (_$stx299218_) - (let* ((_g299222299236_ - (lambda (_g299223299232_) + (lambda (_$stx159057_) + (let* ((_g159061159075_ + (lambda (_g159062159071_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g299223299232_)))) - (_g299221299277_ - (lambda (_g299223299240_) + _g159062159071_)))) + (_g159060159116_ + (lambda (_g159062159079_) (if (let () (declare (not safe)) - (gx#stx-pair? _g299223299240_)) - (let ((_e299227299243_ + (gx#stx-pair? _g159062159079_)) + (let ((_e159066159082_ (let () (declare (not safe)) - (gx#syntax-e _g299223299240_)))) - (let ((_hd299226299247_ + (gx#syntax-e _g159062159079_)))) + (let ((_hd159065159086_ (let () (declare (not safe)) - (##car _e299227299243_))) - (_tl299225299250_ + (##car _e159066159082_))) + (_tl159064159089_ (let () (declare (not safe)) - (##cdr _e299227299243_)))) + (##cdr _e159066159082_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl299225299250_)) - (let ((_e299230299253_ + (gx#stx-pair? _tl159064159089_)) + (let ((_e159069159092_ (let () (declare (not safe)) - (gx#syntax-e _tl299225299250_)))) - (let ((_hd299229299257_ + (gx#syntax-e _tl159064159089_)))) + (let ((_hd159068159096_ (let () (declare (not safe)) - (##car _e299230299253_))) - (_tl299228299260_ + (##car _e159069159092_))) + (_tl159067159099_ (let () (declare (not safe)) - (##cdr _e299230299253_)))) + (##cdr _e159069159092_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299228299260_)) - ((lambda (_L299263_) - (let ((__tmp306332 + (gx#stx-null? _tl159067159099_)) + ((lambda (_L159102_) + (let ((__tmp161603 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!constructor))) - (__tmp306328 - (let ((__tmp306329 - (let ((__tmp306331 + (__tmp161599 + (let ((__tmp161600 + (let ((__tmp161602 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306330 + (__tmp161601 (let () (declare (not safe)) - (cons _L299263_ + (cons _L159102_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp306331 __tmp306330)))) + (cons __tmp161602 __tmp161601)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp306329 '())))) + (cons __tmp161600 '())))) (declare (not safe)) - (cons __tmp306332 __tmp306328))) - _hd299229299257_) - (_g299222299236_ _g299223299240_)))) - (_g299222299236_ _g299223299240_)))) - (_g299222299236_ _g299223299240_))))) - (_g299221299277_ _$stx299218_)))) + (cons __tmp161603 __tmp161599))) + _hd159068159096_) + (_g159061159075_ _g159062159079_)))) + (_g159061159075_ _g159062159079_)))) + (_g159061159075_ _g159062159079_))))) + (_g159060159116_ _$stx159057_)))) (define |gxc[:0:]#@accessor| - (lambda (_$stx299281_) - (let* ((_g299285299307_ - (lambda (_g299286299303_) + (lambda (_$stx159120_) + (let* ((_g159124159146_ + (lambda (_g159125159142_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g299286299303_)))) - (_g299284299376_ - (lambda (_g299286299311_) + _g159125159142_)))) + (_g159123159215_ + (lambda (_g159125159150_) (if (let () (declare (not safe)) - (gx#stx-pair? _g299286299311_)) - (let ((_e299292299314_ + (gx#stx-pair? _g159125159150_)) + (let ((_e159131159153_ (let () (declare (not safe)) - (gx#syntax-e _g299286299311_)))) - (let ((_hd299291299318_ + (gx#syntax-e _g159125159150_)))) + (let ((_hd159130159157_ (let () (declare (not safe)) - (##car _e299292299314_))) - (_tl299290299321_ + (##car _e159131159153_))) + (_tl159129159160_ (let () (declare (not safe)) - (##cdr _e299292299314_)))) + (##cdr _e159131159153_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl299290299321_)) - (let ((_e299295299324_ + (gx#stx-pair? _tl159129159160_)) + (let ((_e159134159163_ (let () (declare (not safe)) - (gx#syntax-e _tl299290299321_)))) - (let ((_hd299294299328_ + (gx#syntax-e _tl159129159160_)))) + (let ((_hd159133159167_ (let () (declare (not safe)) - (##car _e299295299324_))) - (_tl299293299331_ + (##car _e159134159163_))) + (_tl159132159170_ (let () (declare (not safe)) - (##cdr _e299295299324_)))) + (##cdr _e159134159163_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl299293299331_)) - (let ((_e299298299334_ + (gx#stx-pair? _tl159132159170_)) + (let ((_e159137159173_ (let () (declare (not safe)) - (gx#syntax-e _tl299293299331_)))) - (let ((_hd299297299338_ + (gx#syntax-e _tl159132159170_)))) + (let ((_hd159136159177_ (let () (declare (not safe)) - (##car _e299298299334_))) - (_tl299296299341_ + (##car _e159137159173_))) + (_tl159135159180_ (let () (declare (not safe)) - (##cdr _e299298299334_)))) + (##cdr _e159137159173_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl299296299341_)) - (let ((_e299301299344_ + (gx#stx-pair? _tl159135159180_)) + (let ((_e159140159183_ (let () (declare (not safe)) (gx#syntax-e - _tl299296299341_)))) - (let ((_hd299300299348_ + _tl159135159180_)))) + (let ((_hd159139159187_ (let () (declare (not safe)) - (##car _e299301299344_))) - (_tl299299299351_ + (##car _e159140159183_))) + (_tl159138159190_ (let () (declare (not safe)) - (##cdr _e299301299344_)))) + (##cdr _e159140159183_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl299299299351_)) - ((lambda (_L299354_ - _L299356_ - _L299357_) - (let ((__tmp306342 + _tl159138159190_)) + ((lambda (_L159193_ + _L159195_ + _L159196_) + (let ((__tmp161613 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'make-!accessor))) - (__tmp306333 - (let ((__tmp306339 - (let ((__tmp306341 + (__tmp161604 + (let ((__tmp161610 + (let ((__tmp161612 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306340 + (__tmp161611 (let () (declare (not safe)) - (cons _L299357_ '())))) + (cons _L159196_ '())))) (declare (not safe)) - (cons __tmp306341 __tmp306340))) - (__tmp306334 - (let ((__tmp306336 - (let ((__tmp306338 + (cons __tmp161612 __tmp161611))) + (__tmp161605 + (let ((__tmp161607 + (let ((__tmp161609 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306337 + (__tmp161608 (let () (declare (not safe)) - (cons _L299356_ '())))) + (cons _L159195_ '())))) (declare (not safe)) - (cons __tmp306338 __tmp306337))) - (__tmp306335 + (cons __tmp161609 __tmp161608))) + (__tmp161606 (let () (declare (not safe)) - (cons _L299354_ '())))) + (cons _L159193_ '())))) (declare (not safe)) - (cons __tmp306336 __tmp306335)))) + (cons __tmp161607 __tmp161606)))) (declare (not safe)) - (cons __tmp306339 __tmp306334)))) + (cons __tmp161610 __tmp161605)))) (declare (not safe)) - (cons __tmp306342 __tmp306333))) + (cons __tmp161613 __tmp161604))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd299300299348_ - _hd299297299338_ - _hd299294299328_) - (_g299285299307_ - _g299286299311_)))) - (_g299285299307_ - _g299286299311_)))) - (_g299285299307_ _g299286299311_)))) - (_g299285299307_ _g299286299311_)))) - (_g299285299307_ _g299286299311_))))) - (_g299284299376_ _$stx299281_)))) + _hd159139159187_ + _hd159136159177_ + _hd159133159167_) + (_g159124159146_ + _g159125159150_)))) + (_g159124159146_ + _g159125159150_)))) + (_g159124159146_ _g159125159150_)))) + (_g159124159146_ _g159125159150_)))) + (_g159124159146_ _g159125159150_))))) + (_g159123159215_ _$stx159120_)))) (define |gxc[:0:]#@mutator| - (lambda (_$stx299380_) - (let* ((_g299384299406_ - (lambda (_g299385299402_) + (lambda (_$stx159219_) + (let* ((_g159223159245_ + (lambda (_g159224159241_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g299385299402_)))) - (_g299383299475_ - (lambda (_g299385299410_) + _g159224159241_)))) + (_g159222159314_ + (lambda (_g159224159249_) (if (let () (declare (not safe)) - (gx#stx-pair? _g299385299410_)) - (let ((_e299391299413_ + (gx#stx-pair? _g159224159249_)) + (let ((_e159230159252_ (let () (declare (not safe)) - (gx#syntax-e _g299385299410_)))) - (let ((_hd299390299417_ + (gx#syntax-e _g159224159249_)))) + (let ((_hd159229159256_ (let () (declare (not safe)) - (##car _e299391299413_))) - (_tl299389299420_ + (##car _e159230159252_))) + (_tl159228159259_ (let () (declare (not safe)) - (##cdr _e299391299413_)))) + (##cdr _e159230159252_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl299389299420_)) - (let ((_e299394299423_ + (gx#stx-pair? _tl159228159259_)) + (let ((_e159233159262_ (let () (declare (not safe)) - (gx#syntax-e _tl299389299420_)))) - (let ((_hd299393299427_ + (gx#syntax-e _tl159228159259_)))) + (let ((_hd159232159266_ (let () (declare (not safe)) - (##car _e299394299423_))) - (_tl299392299430_ + (##car _e159233159262_))) + (_tl159231159269_ (let () (declare (not safe)) - (##cdr _e299394299423_)))) + (##cdr _e159233159262_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl299392299430_)) - (let ((_e299397299433_ + (gx#stx-pair? _tl159231159269_)) + (let ((_e159236159272_ (let () (declare (not safe)) - (gx#syntax-e _tl299392299430_)))) - (let ((_hd299396299437_ + (gx#syntax-e _tl159231159269_)))) + (let ((_hd159235159276_ (let () (declare (not safe)) - (##car _e299397299433_))) - (_tl299395299440_ + (##car _e159236159272_))) + (_tl159234159279_ (let () (declare (not safe)) - (##cdr _e299397299433_)))) + (##cdr _e159236159272_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl299395299440_)) - (let ((_e299400299443_ + (gx#stx-pair? _tl159234159279_)) + (let ((_e159239159282_ (let () (declare (not safe)) (gx#syntax-e - _tl299395299440_)))) - (let ((_hd299399299447_ + _tl159234159279_)))) + (let ((_hd159238159286_ (let () (declare (not safe)) - (##car _e299400299443_))) - (_tl299398299450_ + (##car _e159239159282_))) + (_tl159237159289_ (let () (declare (not safe)) - (##cdr _e299400299443_)))) + (##cdr _e159239159282_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl299398299450_)) - ((lambda (_L299453_ - _L299455_ - _L299456_) - (let ((__tmp306352 + _tl159237159289_)) + ((lambda (_L159292_ + _L159294_ + _L159295_) + (let ((__tmp161623 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'make-!mutator))) - (__tmp306343 - (let ((__tmp306349 - (let ((__tmp306351 + (__tmp161614 + (let ((__tmp161620 + (let ((__tmp161622 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306350 + (__tmp161621 (let () (declare (not safe)) - (cons _L299456_ '())))) + (cons _L159295_ '())))) (declare (not safe)) - (cons __tmp306351 __tmp306350))) - (__tmp306344 - (let ((__tmp306346 - (let ((__tmp306348 + (cons __tmp161622 __tmp161621))) + (__tmp161615 + (let ((__tmp161617 + (let ((__tmp161619 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306347 + (__tmp161618 (let () (declare (not safe)) - (cons _L299455_ '())))) + (cons _L159294_ '())))) (declare (not safe)) - (cons __tmp306348 __tmp306347))) - (__tmp306345 + (cons __tmp161619 __tmp161618))) + (__tmp161616 (let () (declare (not safe)) - (cons _L299453_ '())))) + (cons _L159292_ '())))) (declare (not safe)) - (cons __tmp306346 __tmp306345)))) + (cons __tmp161617 __tmp161616)))) (declare (not safe)) - (cons __tmp306349 __tmp306344)))) + (cons __tmp161620 __tmp161615)))) (declare (not safe)) - (cons __tmp306352 __tmp306343))) + (cons __tmp161623 __tmp161614))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd299399299447_ - _hd299396299437_ - _hd299393299427_) - (_g299384299406_ - _g299385299410_)))) - (_g299384299406_ - _g299385299410_)))) - (_g299384299406_ _g299385299410_)))) - (_g299384299406_ _g299385299410_)))) - (_g299384299406_ _g299385299410_))))) - (_g299383299475_ _$stx299380_)))) + _hd159238159286_ + _hd159235159276_ + _hd159232159266_) + (_g159223159245_ + _g159224159249_)))) + (_g159223159245_ + _g159224159249_)))) + (_g159223159245_ _g159224159249_)))) + (_g159223159245_ _g159224159249_)))) + (_g159223159245_ _g159224159249_))))) + (_g159222159314_ _$stx159219_)))) (define |gxc[:0:]#@lambda| - (lambda (_$stx299479_) - (let* ((___stx305862305863_ _$stx299479_) - (_g299487299555_ + (lambda (_$stx159318_) + (let* ((___stx161133161134_ _$stx159318_) + (_g159326159394_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx305862305863_))))) - (let ((___kont305865305866_ - (lambda (_L299833_ _L299835_) - (let ((__tmp306368 + ___stx161133161134_))))) + (let ((___kont161136161137_ + (lambda (_L159672_ _L159674_) + (let ((__tmp161639 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda))) - (__tmp306353 - (let ((__tmp306364 - (let ((__tmp306367 + (__tmp161624 + (let ((__tmp161635 + (let ((__tmp161638 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306365 - (let ((__tmp306366 + (__tmp161636 + (let ((__tmp161637 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp306366 '())))) + (cons __tmp161637 '())))) (declare (not safe)) - (cons __tmp306367 __tmp306365))) - (__tmp306354 - (let ((__tmp306361 - (let ((__tmp306363 + (cons __tmp161638 __tmp161636))) + (__tmp161625 + (let ((__tmp161632 + (let ((__tmp161634 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306362 + (__tmp161633 (let () (declare (not safe)) - (cons _L299835_ '())))) + (cons _L159674_ '())))) (declare (not safe)) - (cons __tmp306363 __tmp306362))) - (__tmp306355 - (let ((__tmp306356 - (let ((__tmp306357 - (let ((__tmp306358 - (let ((__tmp306360 + (cons __tmp161634 __tmp161633))) + (__tmp161626 + (let ((__tmp161627 + (let ((__tmp161628 + (let ((__tmp161629 + (let ((__tmp161631 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306359 - (let () (declare (not safe)) (cons _L299833_ '())))) + (__tmp161630 + (let () (declare (not safe)) (cons _L159672_ '())))) (declare (not safe)) - (cons __tmp306360 __tmp306359)))) + (cons __tmp161631 __tmp161630)))) (declare (not safe)) - (cons __tmp306358 '())))) + (cons __tmp161629 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L299833_ __tmp306357)))) + (cons _L159672_ __tmp161628)))) (declare (not safe)) - (cons '#f __tmp306356)))) + (cons '#f __tmp161627)))) (declare (not safe)) - (cons __tmp306361 __tmp306355)))) + (cons __tmp161632 __tmp161626)))) (declare (not safe)) - (cons __tmp306364 __tmp306354)))) + (cons __tmp161635 __tmp161625)))) (declare (not safe)) - (cons __tmp306368 __tmp306353)))) - (___kont305867305868_ - (lambda (_L299764_ _L299766_) - (let ((__tmp306369 - (let ((__tmp306370 - (let ((__tmp306371 + (cons __tmp161639 __tmp161624)))) + (___kont161138161139_ + (lambda (_L159603_ _L159605_) + (let ((__tmp161640 + (let ((__tmp161641 + (let ((__tmp161642 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L299764_ __tmp306371)))) + (cons _L159603_ __tmp161642)))) (declare (not safe)) - (cons 'primitive: __tmp306370)))) + (cons 'primitive: __tmp161641)))) (declare (not safe)) - (cons _L299766_ __tmp306369)))) - (___kont305869305870_ - (lambda (_L299703_ _L299705_) - (let ((__tmp306385 + (cons _L159605_ __tmp161640)))) + (___kont161140161141_ + (lambda (_L159542_ _L159544_) + (let ((__tmp161656 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!primitive-lambda))) - (__tmp306372 - (let ((__tmp306381 - (let ((__tmp306384 + (__tmp161643 + (let ((__tmp161652 + (let ((__tmp161655 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306382 - (let ((__tmp306383 + (__tmp161653 + (let ((__tmp161654 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp306383 '())))) + (cons __tmp161654 '())))) (declare (not safe)) - (cons __tmp306384 __tmp306382))) - (__tmp306373 - (let ((__tmp306378 - (let ((__tmp306380 + (cons __tmp161655 __tmp161653))) + (__tmp161644 + (let ((__tmp161649 + (let ((__tmp161651 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306379 + (__tmp161650 (let () (declare (not safe)) - (cons _L299705_ '())))) + (cons _L159544_ '())))) (declare (not safe)) - (cons __tmp306380 __tmp306379))) - (__tmp306374 - (let ((__tmp306375 - (let ((__tmp306377 + (cons __tmp161651 __tmp161650))) + (__tmp161645 + (let ((__tmp161646 + (let ((__tmp161648 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306376 + (__tmp161647 (let () (declare (not safe)) - (cons _L299703_ '())))) + (cons _L159542_ '())))) (declare (not safe)) - (cons __tmp306377 - __tmp306376)))) + (cons __tmp161648 + __tmp161647)))) (declare (not safe)) - (cons __tmp306375 '())))) + (cons __tmp161646 '())))) (declare (not safe)) - (cons __tmp306378 __tmp306374)))) + (cons __tmp161649 __tmp161645)))) (declare (not safe)) - (cons __tmp306381 __tmp306373)))) + (cons __tmp161652 __tmp161644)))) (declare (not safe)) - (cons __tmp306385 __tmp306372)))) - (___kont305871305872_ - (lambda (_L299635_ _L299637_) - (let ((__tmp306399 + (cons __tmp161656 __tmp161643)))) + (___kont161142161143_ + (lambda (_L159474_ _L159476_) + (let ((__tmp161670 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda))) - (__tmp306386 - (let ((__tmp306395 - (let ((__tmp306398 + (__tmp161657 + (let ((__tmp161666 + (let ((__tmp161669 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306396 - (let ((__tmp306397 + (__tmp161667 + (let ((__tmp161668 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp306397 '())))) + (cons __tmp161668 '())))) (declare (not safe)) - (cons __tmp306398 __tmp306396))) - (__tmp306387 - (let ((__tmp306392 - (let ((__tmp306394 + (cons __tmp161669 __tmp161667))) + (__tmp161658 + (let ((__tmp161663 + (let ((__tmp161665 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306393 + (__tmp161664 (let () (declare (not safe)) - (cons _L299637_ '())))) + (cons _L159476_ '())))) (declare (not safe)) - (cons __tmp306394 __tmp306393))) - (__tmp306388 - (let ((__tmp306389 - (let ((__tmp306391 + (cons __tmp161665 __tmp161664))) + (__tmp161659 + (let ((__tmp161660 + (let ((__tmp161662 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306390 + (__tmp161661 (let () (declare (not safe)) - (cons _L299635_ '())))) + (cons _L159474_ '())))) (declare (not safe)) - (cons __tmp306391 - __tmp306390)))) + (cons __tmp161662 + __tmp161661)))) (declare (not safe)) - (cons __tmp306389 '())))) + (cons __tmp161660 '())))) (declare (not safe)) - (cons __tmp306392 __tmp306388)))) + (cons __tmp161663 __tmp161659)))) (declare (not safe)) - (cons __tmp306395 __tmp306387)))) + (cons __tmp161666 __tmp161658)))) (declare (not safe)) - (cons __tmp306399 __tmp306386)))) - (___kont305873305874_ - (lambda (_L299582_ _L299584_) - (let ((__tmp306400 - (let ((__tmp306401 + (cons __tmp161670 __tmp161657)))) + (___kont161144161145_ + (lambda (_L159421_ _L159423_) + (let ((__tmp161671 + (let ((__tmp161672 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L299582_ __tmp306401)))) + (cons _L159421_ __tmp161672)))) (declare (not safe)) - (cons _L299584_ __tmp306400))))) - (if (let () (declare (not safe)) (gx#stx-pair? ___stx305862305863_)) - (let ((_e299493299789_ + (cons _L159423_ __tmp161671))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx161133161134_)) + (let ((_e159332159628_ (let () (declare (not safe)) - (gx#syntax-e ___stx305862305863_)))) - (let ((_tl299491299796_ - (let () (declare (not safe)) (##cdr _e299493299789_))) - (_hd299492299793_ - (let () (declare (not safe)) (##car _e299493299789_)))) + (gx#syntax-e ___stx161133161134_)))) + (let ((_tl159330159635_ + (let () (declare (not safe)) (##cdr _e159332159628_))) + (_hd159331159632_ + (let () (declare (not safe)) (##car _e159332159628_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl299491299796_)) - (let ((_e299496299799_ + (gx#stx-pair? _tl159330159635_)) + (let ((_e159335159638_ (let () (declare (not safe)) - (gx#syntax-e _tl299491299796_)))) - (let ((_tl299494299806_ + (gx#syntax-e _tl159330159635_)))) + (let ((_tl159333159645_ (let () (declare (not safe)) - (##cdr _e299496299799_))) - (_hd299495299803_ + (##cdr _e159335159638_))) + (_hd159334159642_ (let () (declare (not safe)) - (##car _e299496299799_)))) + (##car _e159335159638_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl299494299806_)) - (let ((_e299499299809_ + (gx#stx-pair? _tl159333159645_)) + (let ((_e159338159648_ (let () (declare (not safe)) - (gx#syntax-e _tl299494299806_)))) - (let ((_tl299497299816_ + (gx#syntax-e _tl159333159645_)))) + (let ((_tl159336159655_ (let () (declare (not safe)) - (##cdr _e299499299809_))) - (_hd299498299813_ + (##cdr _e159338159648_))) + (_hd159337159652_ (let () (declare (not safe)) - (##car _e299499299809_)))) + (##car _e159338159648_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd299498299813_)) - (let ((_e299500299819_ + (gx#stx-datum? _hd159337159652_)) + (let ((_e159339159658_ (let () (declare (not safe)) - (gx#stx-e _hd299498299813_)))) + (gx#stx-e _hd159337159652_)))) (if (let () (declare (not safe)) - (equal? _e299500299819_ + (equal? _e159339159658_ 'inline:)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl299497299816_)) - (let ((_e299503299823_ + _tl159336159655_)) + (let ((_e159342159662_ (let () (declare (not safe)) (gx#syntax-e - _tl299497299816_)))) - (let ((_tl299501299830_ + _tl159336159655_)))) + (let ((_tl159340159669_ (let () (declare (not safe)) - (##cdr _e299503299823_))) - (_hd299502299827_ + (##cdr _e159342159662_))) + (_hd159341159666_ (let () (declare (not safe)) - (##car _e299503299823_)))) + (##car _e159342159662_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl299501299830_)) - (___kont305865305866_ - _hd299502299827_ - _hd299495299803_) + _tl159340159669_)) + (___kont161136161137_ + _hd159341159666_ + _hd159334159642_) (if (let () (declare (not safe)) (gx#stx-datum? - _hd299495299803_)) - (let ((_e299512299750_ + _hd159334159642_)) + (let ((_e159351159589_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd299495299803_)))) + (gx#stx-e _hd159334159642_)))) (declare (not safe)) - (_g299487299555_)) - (let () (declare (not safe)) (_g299487299555_)))))) + (_g159326159394_)) + (let () (declare (not safe)) (_g159326159394_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _hd299495299803_)) - (let ((_e299512299750_ + _hd159334159642_)) + (let ((_e159351159589_ (let () (declare (not safe)) (gx#stx-e - _hd299495299803_)))) + _hd159334159642_)))) (if (let () (declare (not safe)) - (equal? _e299512299750_ + (equal? _e159351159589_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'primitive:)) (if (let () (declare (not safe)) - (gx#stx-null? _tl299497299816_)) - (___kont305867305868_ _hd299498299813_ _hd299492299793_) - (let () (declare (not safe)) (_g299487299555_))) + (gx#stx-null? _tl159336159655_)) + (___kont161138161139_ _hd159337159652_ _hd159331159632_) + (let () (declare (not safe)) (_g159326159394_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299497299816_)) - (___kont305871305872_ _hd299498299813_ _hd299495299803_) - (let () (declare (not safe)) (_g299487299555_))))) + (gx#stx-null? _tl159336159655_)) + (___kont161142161143_ _hd159337159652_ _hd159334159642_) + (let () (declare (not safe)) (_g159326159394_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl299497299816_)) - (___kont305871305872_ - _hd299498299813_ - _hd299495299803_) + _tl159336159655_)) + (___kont161142161143_ + _hd159337159652_ + _hd159334159642_) (let () (declare (not safe)) - (_g299487299555_))))) + (_g159326159394_))))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd299495299803_)) - (let ((_e299512299750_ + _hd159334159642_)) + (let ((_e159351159589_ (let () (declare (not safe)) (gx#stx-e - _hd299495299803_)))) + _hd159334159642_)))) (if (let () (declare (not safe)) - (equal? _e299512299750_ + (equal? _e159351159589_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-null? - _tl299497299816_)) - (___kont305867305868_ - _hd299498299813_ - _hd299492299793_) + _tl159336159655_)) + (___kont161138161139_ + _hd159337159652_ + _hd159331159632_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl299497299816_)) - (let ((_e299530299693_ + (gx#stx-pair? _tl159336159655_)) + (let ((_e159369159532_ (let () (declare (not safe)) - (gx#syntax-e _tl299497299816_)))) - (let ((_tl299528299700_ + (gx#syntax-e _tl159336159655_)))) + (let ((_tl159367159539_ (let () (declare (not safe)) - (##cdr _e299530299693_))) - (_hd299529299697_ + (##cdr _e159369159532_))) + (_hd159368159536_ (let () (declare (not safe)) - (##car _e299530299693_)))) + (##car _e159369159532_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299528299700_)) - (___kont305869305870_ - _hd299529299697_ - _hd299498299813_) + (gx#stx-null? _tl159367159539_)) + (___kont161140161141_ + _hd159368159536_ + _hd159337159652_) (let () (declare (not safe)) - (_g299487299555_))))) - (let () (declare (not safe)) (_g299487299555_)))) - (if (let () (declare (not safe)) (gx#stx-null? _tl299497299816_)) - (___kont305871305872_ _hd299498299813_ _hd299495299803_) - (let () (declare (not safe)) (_g299487299555_))))) + (_g159326159394_))))) + (let () (declare (not safe)) (_g159326159394_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl159336159655_)) + (___kont161142161143_ _hd159337159652_ _hd159334159642_) + (let () (declare (not safe)) (_g159326159394_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl299497299816_)) - (___kont305871305872_ - _hd299498299813_ - _hd299495299803_) + _tl159336159655_)) + (___kont161142161143_ + _hd159337159652_ + _hd159334159642_) (let () (declare (not safe)) - (_g299487299555_)))))) + (_g159326159394_)))))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd299495299803_)) - (let ((_e299512299750_ + (gx#stx-datum? _hd159334159642_)) + (let ((_e159351159589_ (let () (declare (not safe)) (gx#stx-e - _hd299495299803_)))) + _hd159334159642_)))) (if (let () (declare (not safe)) - (equal? _e299512299750_ + (equal? _e159351159589_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-null? - _tl299497299816_)) - (___kont305867305868_ - _hd299498299813_ - _hd299492299793_) + _tl159336159655_)) + (___kont161138161139_ + _hd159337159652_ + _hd159331159632_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl299497299816_)) - (let ((_e299530299693_ + _tl159336159655_)) + (let ((_e159369159532_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _tl299497299816_)))) - (let ((_tl299528299700_ - (let () (declare (not safe)) (##cdr _e299530299693_))) - (_hd299529299697_ + (gx#syntax-e _tl159336159655_)))) + (let ((_tl159367159539_ + (let () (declare (not safe)) (##cdr _e159369159532_))) + (_hd159368159536_ (let () (declare (not safe)) - (##car _e299530299693_)))) + (##car _e159369159532_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299528299700_)) - (___kont305869305870_ - _hd299529299697_ - _hd299498299813_) - (let () (declare (not safe)) (_g299487299555_))))) - (let () (declare (not safe)) (_g299487299555_)))) + (gx#stx-null? _tl159367159539_)) + (___kont161140161141_ + _hd159368159536_ + _hd159337159652_) + (let () (declare (not safe)) (_g159326159394_))))) + (let () (declare (not safe)) (_g159326159394_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl299497299816_)) - (___kont305871305872_ - _hd299498299813_ - _hd299495299803_) + _tl159336159655_)) + (___kont161142161143_ + _hd159337159652_ + _hd159334159642_) (let () (declare (not safe)) - (_g299487299555_))))) + (_g159326159394_))))) (if (let () (declare (not safe)) (gx#stx-null? - _tl299497299816_)) - (___kont305871305872_ - _hd299498299813_ - _hd299495299803_) + _tl159336159655_)) + (___kont161142161143_ + _hd159337159652_ + _hd159334159642_) (let () (declare (not safe)) - (_g299487299555_))))))) + (_g159326159394_))))))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd299495299803_)) - (let ((_e299512299750_ + (gx#stx-datum? _hd159334159642_)) + (let ((_e159351159589_ (let () (declare (not safe)) - (gx#stx-e _hd299495299803_)))) + (gx#stx-e _hd159334159642_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299494299806_)) - (___kont305873305874_ - _hd299495299803_ - _hd299492299793_) + (gx#stx-null? _tl159333159645_)) + (___kont161144161145_ + _hd159334159642_ + _hd159331159632_) (let () (declare (not safe)) - (_g299487299555_)))) + (_g159326159394_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299494299806_)) - (___kont305873305874_ - _hd299495299803_ - _hd299492299793_) + (gx#stx-null? _tl159333159645_)) + (___kont161144161145_ + _hd159334159642_ + _hd159331159632_) (let () (declare (not safe)) - (_g299487299555_))))))) - (let () (declare (not safe)) (_g299487299555_))))) - (let () (declare (not safe)) (_g299487299555_))))))) + (_g159326159394_))))))) + (let () (declare (not safe)) (_g159326159394_))))) + (let () (declare (not safe)) (_g159326159394_))))))) (define |gxc[:0:]#@case-lambda| - (lambda (_$stx299857_) - (let* ((___stx306002306003_ _$stx299857_) - (_g299862299917_ + (lambda (_$stx159696_) + (let* ((___stx161273161274_ _$stx159696_) + (_g159701159756_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx306002306003_))))) - (let ((___kont306005306006_ - (lambda (_L300102_ _L300104_) - (let ((__tmp306417 + ___stx161273161274_))))) + (let ((___kont161276161277_ + (lambda (_L159941_ _L159943_) + (let ((__tmp161688 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!primitive-case-lambda))) - (__tmp306402 - (let ((__tmp306413 - (let ((__tmp306416 + (__tmp161673 + (let ((__tmp161684 + (let ((__tmp161687 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306414 - (let ((__tmp306415 + (__tmp161685 + (let ((__tmp161686 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda)))) (declare (not safe)) - (cons __tmp306415 '())))) + (cons __tmp161686 '())))) (declare (not safe)) - (cons __tmp306416 __tmp306414))) - (__tmp306403 - (let ((__tmp306404 - (let ((__tmp306412 + (cons __tmp161687 __tmp161685))) + (__tmp161674 + (let ((__tmp161675 + (let ((__tmp161683 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp306405 + (__tmp161676 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L300102_ - _L300104_)) - (let ((__tmp306406 - (lambda (_g300121300125_ - _g300122300128_ - _g300123300130_) - (let ((__tmp306407 - (let ((__tmp306411 + _L159941_ + _L159943_)) + (let ((__tmp161677 + (lambda (_g159960159964_ + _g159961159967_ + _g159962159969_) + (let ((__tmp161678 + (let ((__tmp161682 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp306408 - (let ((__tmp306409 - (let ((__tmp306410 + (__tmp161679 + (let ((__tmp161680 + (let ((__tmp161681 (let () (declare (not safe)) - (cons _g300121300125_ '())))) + (cons _g159960159964_ '())))) (declare (not safe)) - (cons _g300122300128_ __tmp306410)))) + (cons _g159961159967_ __tmp161681)))) (declare (not safe)) - (cons 'primitive: __tmp306409)))) + (cons 'primitive: __tmp161680)))) (declare (not safe)) - (cons __tmp306411 __tmp306408)))) + (cons __tmp161682 __tmp161679)))) (declare (not safe)) - (cons __tmp306407 _g300123300130_))))) + (cons __tmp161678 _g159962159969_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp306406 + (foldr2 __tmp161677 '() - _L300102_ - _L300104_))))) + _L159941_ + _L159943_))))) (declare (not safe)) - (cons __tmp306412 __tmp306405)))) + (cons __tmp161683 __tmp161676)))) (declare (not safe)) - (cons __tmp306404 '())))) + (cons __tmp161675 '())))) (declare (not safe)) - (cons __tmp306413 __tmp306403)))) + (cons __tmp161684 __tmp161674)))) (declare (not safe)) - (cons __tmp306417 __tmp306402)))) - (___kont306009306010_ - (lambda (_L299988_ _L299990_) - (let ((__tmp306432 + (cons __tmp161688 __tmp161673)))) + (___kont161280161281_ + (lambda (_L159827_ _L159829_) + (let ((__tmp161703 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!case-lambda))) - (__tmp306418 - (let ((__tmp306428 - (let ((__tmp306431 + (__tmp161689 + (let ((__tmp161699 + (let ((__tmp161702 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306429 - (let ((__tmp306430 + (__tmp161700 + (let ((__tmp161701 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda)))) (declare (not safe)) - (cons __tmp306430 '())))) + (cons __tmp161701 '())))) (declare (not safe)) - (cons __tmp306431 __tmp306429))) - (__tmp306419 - (let ((__tmp306420 - (let ((__tmp306427 + (cons __tmp161702 __tmp161700))) + (__tmp161690 + (let ((__tmp161691 + (let ((__tmp161698 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp306421 + (__tmp161692 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L299988_ - _L299990_)) - (let ((__tmp306422 - (lambda (_g300005300009_ - _g300006300012_ - _g300007300014_) - (let ((__tmp306423 - (let ((__tmp306426 + _L159827_ + _L159829_)) + (let ((__tmp161693 + (lambda (_g159844159848_ + _g159845159851_ + _g159846159853_) + (let ((__tmp161694 + (let ((__tmp161697 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp306424 - (let ((__tmp306425 + (__tmp161695 + (let ((__tmp161696 (let () (declare (not safe)) - (cons _g300005300009_ '())))) + (cons _g159844159848_ '())))) (declare (not safe)) - (cons _g300006300012_ __tmp306425)))) + (cons _g159845159851_ __tmp161696)))) (declare (not safe)) - (cons __tmp306426 __tmp306424)))) + (cons __tmp161697 __tmp161695)))) (declare (not safe)) - (cons __tmp306423 _g300007300014_))))) + (cons __tmp161694 _g159846159853_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp306422 + (foldr2 __tmp161693 '() - _L299988_ - _L299990_))))) + _L159827_ + _L159829_))))) (declare (not safe)) - (cons __tmp306427 __tmp306421)))) + (cons __tmp161698 __tmp161692)))) (declare (not safe)) - (cons __tmp306420 '())))) + (cons __tmp161691 '())))) (declare (not safe)) - (cons __tmp306428 __tmp306419)))) + (cons __tmp161699 __tmp161690)))) (declare (not safe)) - (cons __tmp306432 __tmp306418))))) - (let* ((___match306053306054_ - (lambda (_e299894299924_ - _hd299893299928_ - _tl299892299931_ - ___splice306011306012_ - _target299895299934_ - _tl299897299937_) - (letrec ((_loop299898299940_ - (lambda (_hd299896299944_ - _dispatch299902299947_ - _arity299903299949_) + (cons __tmp161703 __tmp161689))))) + (let* ((___match161324161325_ + (lambda (_e159733159763_ + _hd159732159767_ + _tl159731159770_ + ___splice161282161283_ + _target159734159773_ + _tl159736159776_) + (letrec ((_loop159737159779_ + (lambda (_hd159735159783_ + _dispatch159741159786_ + _arity159742159788_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd299896299944_)) - (let ((_e299899299952_ + (gx#stx-pair? _hd159735159783_)) + (let ((_e159738159791_ (let () (declare (not safe)) - (gx#syntax-e _hd299896299944_)))) - (let ((_lp-tl299901299959_ + (gx#syntax-e _hd159735159783_)))) + (let ((_lp-tl159740159798_ (let () (declare (not safe)) - (##cdr _e299899299952_))) - (_lp-hd299900299956_ + (##cdr _e159738159791_))) + (_lp-hd159739159795_ (let () (declare (not safe)) - (##car _e299899299952_)))) + (##car _e159738159791_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd299900299956_)) - (let ((_e299908299962_ + _lp-hd159739159795_)) + (let ((_e159747159801_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd299900299956_)))) - (let ((_tl299906299969_ + _lp-hd159739159795_)))) + (let ((_tl159745159808_ (let () (declare (not safe)) - (##cdr _e299908299962_))) - (_hd299907299966_ + (##cdr _e159747159801_))) + (_hd159746159805_ (let () (declare (not safe)) - (##car _e299908299962_)))) + (##car _e159747159801_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl299906299969_)) - (let ((_e299911299972_ + _tl159745159808_)) + (let ((_e159750159811_ (let () (declare (not safe)) (gx#syntax-e - _tl299906299969_)))) - (let ((_tl299909299979_ + _tl159745159808_)))) + (let ((_tl159748159818_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e299911299972_))) - (_hd299910299976_ - (let () (declare (not safe)) (##car _e299911299972_)))) + (##cdr _e159750159811_))) + (_hd159749159815_ + (let () (declare (not safe)) (##car _e159750159811_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299909299979_)) - (_loop299898299940_ - _lp-tl299901299959_ + (gx#stx-null? _tl159748159818_)) + (_loop159737159779_ + _lp-tl159740159798_ (let () (declare (not safe)) - (cons _hd299910299976_ _dispatch299902299947_)) + (cons _hd159749159815_ _dispatch159741159786_)) (let () (declare (not safe)) - (cons _hd299907299966_ _arity299903299949_))) - (let () (declare (not safe)) (_g299862299917_))))) + (cons _hd159746159805_ _arity159742159788_))) + (let () (declare (not safe)) (_g159701159756_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g299862299917_))))) + (_g159701159756_))))) (let () (declare (not safe)) - (_g299862299917_))))) - (let ((_arity299905299985_ - (reverse _arity299903299949_)) - (_dispatch299904299982_ - (reverse _dispatch299902299947_))) - (___kont306009306010_ - _dispatch299904299982_ - _arity299905299985_)))))) - (_loop299898299940_ _target299895299934_ '() '())))) - (___match306045306046_ - (lambda (_e299894299924_ _hd299893299928_ _tl299892299931_) + (_g159701159756_))))) + (let ((_arity159744159824_ + (reverse _arity159742159788_)) + (_dispatch159743159821_ + (reverse _dispatch159741159786_))) + (___kont161280161281_ + _dispatch159743159821_ + _arity159744159824_)))))) + (_loop159737159779_ _target159734159773_ '() '())))) + (___match161316161317_ + (lambda (_e159733159763_ _hd159732159767_ _tl159731159770_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl299892299931_)) - (let ((___splice306011306012_ + (gx#stx-pair/null? _tl159731159770_)) + (let ((___splice161282161283_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl299892299931_ + _tl159731159770_ '0)))) - (let ((_tl299897299937_ + (let ((_tl159736159776_ (let () (declare (not safe)) - (##vector-ref ___splice306011306012_ '1))) - (_target299895299934_ + (##vector-ref ___splice161282161283_ '1))) + (_target159734159773_ (let () (declare (not safe)) - (##vector-ref ___splice306011306012_ '0)))) + (##vector-ref ___splice161282161283_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299897299937_)) - (___match306053306054_ - _e299894299924_ - _hd299893299928_ - _tl299892299931_ - ___splice306011306012_ - _target299895299934_ - _tl299897299937_) + (gx#stx-null? _tl159736159776_)) + (___match161324161325_ + _e159733159763_ + _hd159732159767_ + _tl159731159770_ + ___splice161282161283_ + _target159734159773_ + _tl159736159776_) (let () (declare (not safe)) - (_g299862299917_))))) - (let () (declare (not safe)) (_g299862299917_))))) - (___match306039306040_ - (lambda (_e299868300024_ - _hd299867300028_ - _tl299866300031_ - _e299871300034_ - _hd299870300038_ - _tl299869300041_ - _e299872300044_ - ___splice306007306008_ - _target299873300048_ - _tl299875300051_) - (letrec ((_loop299876300054_ - (lambda (_hd299874300058_ - _dispatch299880300061_ - _arity299881300063_) + (_g159701159756_))))) + (let () (declare (not safe)) (_g159701159756_))))) + (___match161310161311_ + (lambda (_e159707159863_ + _hd159706159867_ + _tl159705159870_ + _e159710159873_ + _hd159709159877_ + _tl159708159880_ + _e159711159883_ + ___splice161278161279_ + _target159712159887_ + _tl159714159890_) + (letrec ((_loop159715159893_ + (lambda (_hd159713159897_ + _dispatch159719159900_ + _arity159720159902_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd299874300058_)) - (let ((_e299877300066_ + (gx#stx-pair? _hd159713159897_)) + (let ((_e159716159905_ (let () (declare (not safe)) - (gx#syntax-e _hd299874300058_)))) - (let ((_lp-tl299879300073_ + (gx#syntax-e _hd159713159897_)))) + (let ((_lp-tl159718159912_ (let () (declare (not safe)) - (##cdr _e299877300066_))) - (_lp-hd299878300070_ + (##cdr _e159716159905_))) + (_lp-hd159717159909_ (let () (declare (not safe)) - (##car _e299877300066_)))) + (##car _e159716159905_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd299878300070_)) - (let ((_e299886300076_ + _lp-hd159717159909_)) + (let ((_e159725159915_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd299878300070_)))) - (let ((_tl299884300083_ + _lp-hd159717159909_)))) + (let ((_tl159723159922_ (let () (declare (not safe)) - (##cdr _e299886300076_))) - (_hd299885300080_ + (##cdr _e159725159915_))) + (_hd159724159919_ (let () (declare (not safe)) - (##car _e299886300076_)))) + (##car _e159725159915_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl299884300083_)) - (let ((_e299889300086_ + _tl159723159922_)) + (let ((_e159728159925_ (let () (declare (not safe)) (gx#syntax-e - _tl299884300083_)))) - (let ((_tl299887300093_ + _tl159723159922_)))) + (let ((_tl159726159932_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e299889300086_))) - (_hd299888300090_ - (let () (declare (not safe)) (##car _e299889300086_)))) + (##cdr _e159728159925_))) + (_hd159727159929_ + (let () (declare (not safe)) (##car _e159728159925_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299887300093_)) - (_loop299876300054_ - _lp-tl299879300073_ + (gx#stx-null? _tl159726159932_)) + (_loop159715159893_ + _lp-tl159718159912_ (let () (declare (not safe)) - (cons _hd299888300090_ _dispatch299880300061_)) + (cons _hd159727159929_ _dispatch159719159900_)) (let () (declare (not safe)) - (cons _hd299885300080_ _arity299881300063_))) - (___match306045306046_ - _e299868300024_ - _hd299867300028_ - _tl299866300031_)))) + (cons _hd159724159919_ _arity159720159902_))) + (___match161316161317_ + _e159707159863_ + _hd159706159867_ + _tl159705159870_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match306045306046_ - _e299868300024_ - _hd299867300028_ - _tl299866300031_)))) - (___match306045306046_ - _e299868300024_ - _hd299867300028_ - _tl299866300031_)))) - (let ((_arity299883300099_ - (reverse _arity299881300063_)) - (_dispatch299882300096_ - (reverse _dispatch299880300061_))) - (___kont306005306006_ - _dispatch299882300096_ - _arity299883300099_)))))) - (_loop299876300054_ _target299873300048_ '() '()))))) + (___match161316161317_ + _e159707159863_ + _hd159706159867_ + _tl159705159870_)))) + (___match161316161317_ + _e159707159863_ + _hd159706159867_ + _tl159705159870_)))) + (let ((_arity159722159938_ + (reverse _arity159720159902_)) + (_dispatch159721159935_ + (reverse _dispatch159719159900_))) + (___kont161276161277_ + _dispatch159721159935_ + _arity159722159938_)))))) + (_loop159715159893_ _target159712159887_ '() '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx306002306003_)) - (let ((_e299868300024_ + (gx#stx-pair? ___stx161273161274_)) + (let ((_e159707159863_ (let () (declare (not safe)) - (gx#syntax-e ___stx306002306003_)))) - (let ((_tl299866300031_ - (let () (declare (not safe)) (##cdr _e299868300024_))) - (_hd299867300028_ + (gx#syntax-e ___stx161273161274_)))) + (let ((_tl159705159870_ + (let () (declare (not safe)) (##cdr _e159707159863_))) + (_hd159706159867_ (let () (declare (not safe)) - (##car _e299868300024_)))) + (##car _e159707159863_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl299866300031_)) - (let ((_e299871300034_ + (gx#stx-pair? _tl159705159870_)) + (let ((_e159710159873_ (let () (declare (not safe)) - (gx#syntax-e _tl299866300031_)))) - (let ((_tl299869300041_ + (gx#syntax-e _tl159705159870_)))) + (let ((_tl159708159880_ (let () (declare (not safe)) - (##cdr _e299871300034_))) - (_hd299870300038_ + (##cdr _e159710159873_))) + (_hd159709159877_ (let () (declare (not safe)) - (##car _e299871300034_)))) + (##car _e159710159873_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd299870300038_)) - (let ((_e299872300044_ + (gx#stx-datum? _hd159709159877_)) + (let ((_e159711159883_ (let () (declare (not safe)) - (gx#stx-e _hd299870300038_)))) + (gx#stx-e _hd159709159877_)))) (if (let () (declare (not safe)) - (equal? _e299872300044_ 'primitive:)) + (equal? _e159711159883_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl299869300041_)) - (let ((___splice306007306008_ + _tl159708159880_)) + (let ((___splice161278161279_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl299869300041_ + _tl159708159880_ '0)))) - (let ((_tl299875300051_ + (let ((_tl159714159890_ (let () (declare (not safe)) (##vector-ref - ___splice306007306008_ + ___splice161278161279_ '1))) - (_target299873300048_ + (_target159712159887_ (let () (declare (not safe)) (##vector-ref - ___splice306007306008_ + ___splice161278161279_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl299875300051_)) - (___match306039306040_ - _e299868300024_ - _hd299867300028_ - _tl299866300031_ - _e299871300034_ - _hd299870300038_ - _tl299869300041_ - _e299872300044_ - ___splice306007306008_ - _target299873300048_ - _tl299875300051_) + _tl159714159890_)) + (___match161310161311_ + _e159707159863_ + _hd159706159867_ + _tl159705159870_ + _e159710159873_ + _hd159709159877_ + _tl159708159880_ + _e159711159883_ + ___splice161278161279_ + _target159712159887_ + _tl159714159890_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl299866300031_)) - (let ((___splice306011306012_ + _tl159705159870_)) + (let ((___splice161282161283_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl299866300031_ '0)))) - (let ((_tl299897299937_ + (gx#syntax-split-splice _tl159705159870_ '0)))) + (let ((_tl159736159776_ (let () (declare (not safe)) - (##vector-ref ___splice306011306012_ '1))) - (_target299895299934_ + (##vector-ref ___splice161282161283_ '1))) + (_target159734159773_ (let () (declare (not safe)) - (##vector-ref ___splice306011306012_ '0)))) + (##vector-ref ___splice161282161283_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299897299937_)) - (___match306053306054_ - _e299868300024_ - _hd299867300028_ - _tl299866300031_ - ___splice306011306012_ - _target299895299934_ - _tl299897299937_) - (let () (declare (not safe)) (_g299862299917_))))) - (let () (declare (not safe)) (_g299862299917_)))))) + (gx#stx-null? _tl159736159776_)) + (___match161324161325_ + _e159707159863_ + _hd159706159867_ + _tl159705159870_ + ___splice161282161283_ + _target159734159773_ + _tl159736159776_) + (let () (declare (not safe)) (_g159701159756_))))) + (let () (declare (not safe)) (_g159701159756_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl299866300031_)) - (let ((___splice306011306012_ + _tl159705159870_)) + (let ((___splice161282161283_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl299866300031_ + _tl159705159870_ '0)))) - (let ((_tl299897299937_ + (let ((_tl159736159776_ (let () (declare (not safe)) (##vector-ref - ___splice306011306012_ + ___splice161282161283_ '1))) - (_target299895299934_ + (_target159734159773_ (let () (declare (not safe)) (##vector-ref - ___splice306011306012_ + ___splice161282161283_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl299897299937_)) - (___match306053306054_ - _e299868300024_ - _hd299867300028_ - _tl299866300031_ - ___splice306011306012_ - _target299895299934_ - _tl299897299937_) + _tl159736159776_)) + (___match161324161325_ + _e159707159863_ + _hd159706159867_ + _tl159705159870_ + ___splice161282161283_ + _target159734159773_ + _tl159736159776_) (let () (declare (not safe)) - (_g299862299917_))))) + (_g159701159756_))))) (let () (declare (not safe)) - (_g299862299917_)))) + (_g159701159756_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl299866300031_)) - (let ((___splice306011306012_ + _tl159705159870_)) + (let ((___splice161282161283_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl299866300031_ + _tl159705159870_ '0)))) - (let ((_tl299897299937_ + (let ((_tl159736159776_ (let () (declare (not safe)) (##vector-ref - ___splice306011306012_ + ___splice161282161283_ '1))) - (_target299895299934_ + (_target159734159773_ (let () (declare (not safe)) (##vector-ref - ___splice306011306012_ + ___splice161282161283_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl299897299937_)) - (___match306053306054_ - _e299868300024_ - _hd299867300028_ - _tl299866300031_ - ___splice306011306012_ - _target299895299934_ - _tl299897299937_) + _tl159736159776_)) + (___match161324161325_ + _e159707159863_ + _hd159706159867_ + _tl159705159870_ + ___splice161282161283_ + _target159734159773_ + _tl159736159776_) (let () (declare (not safe)) - (_g299862299917_))))) + (_g159701159756_))))) (let () (declare (not safe)) - (_g299862299917_))))) + (_g159701159756_))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl299866300031_)) - (let ((___splice306011306012_ + (gx#stx-pair/null? _tl159705159870_)) + (let ((___splice161282161283_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl299866300031_ + _tl159705159870_ '0)))) - (let ((_tl299897299937_ + (let ((_tl159736159776_ (let () (declare (not safe)) (##vector-ref - ___splice306011306012_ + ___splice161282161283_ '1))) - (_target299895299934_ + (_target159734159773_ (let () (declare (not safe)) (##vector-ref - ___splice306011306012_ + ___splice161282161283_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299897299937_)) - (___match306053306054_ - _e299868300024_ - _hd299867300028_ - _tl299866300031_ - ___splice306011306012_ - _target299895299934_ - _tl299897299937_) + (gx#stx-null? _tl159736159776_)) + (___match161324161325_ + _e159707159863_ + _hd159706159867_ + _tl159705159870_ + ___splice161282161283_ + _target159734159773_ + _tl159736159776_) (let () (declare (not safe)) - (_g299862299917_))))) + (_g159701159756_))))) (let () (declare (not safe)) - (_g299862299917_)))))) + (_g159701159756_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl299866300031_)) - (let ((___splice306011306012_ + (gx#stx-pair/null? _tl159705159870_)) + (let ((___splice161282161283_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl299866300031_ + _tl159705159870_ '0)))) - (let ((_tl299897299937_ + (let ((_tl159736159776_ (let () (declare (not safe)) (##vector-ref - ___splice306011306012_ + ___splice161282161283_ '1))) - (_target299895299934_ + (_target159734159773_ (let () (declare (not safe)) (##vector-ref - ___splice306011306012_ + ___splice161282161283_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299897299937_)) - (___match306053306054_ - _e299868300024_ - _hd299867300028_ - _tl299866300031_ - ___splice306011306012_ - _target299895299934_ - _tl299897299937_) + (gx#stx-null? _tl159736159776_)) + (___match161324161325_ + _e159707159863_ + _hd159706159867_ + _tl159705159870_ + ___splice161282161283_ + _target159734159773_ + _tl159736159776_) (let () (declare (not safe)) - (_g299862299917_))))) - (let () (declare (not safe)) (_g299862299917_)))))) - (let () (declare (not safe)) (_g299862299917_)))))))) + (_g159701159756_))))) + (let () (declare (not safe)) (_g159701159756_)))))) + (let () (declare (not safe)) (_g159701159756_)))))))) (define |gxc[:0:]#@kw-lambda| - (lambda (_$stx300139_) - (let* ((_g300143300161_ - (lambda (_g300144300157_) + (lambda (_$stx159978_) + (let* ((_g159982160000_ + (lambda (_g159983159996_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g300144300157_)))) - (_g300142300216_ - (lambda (_g300144300165_) + _g159983159996_)))) + (_g159981160055_ + (lambda (_g159983160004_) (if (let () (declare (not safe)) - (gx#stx-pair? _g300144300165_)) - (let ((_e300149300168_ + (gx#stx-pair? _g159983160004_)) + (let ((_e159988160007_ (let () (declare (not safe)) - (gx#syntax-e _g300144300165_)))) - (let ((_hd300148300172_ + (gx#syntax-e _g159983160004_)))) + (let ((_hd159987160011_ (let () (declare (not safe)) - (##car _e300149300168_))) - (_tl300147300175_ + (##car _e159988160007_))) + (_tl159986160014_ (let () (declare (not safe)) - (##cdr _e300149300168_)))) + (##cdr _e159988160007_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl300147300175_)) - (let ((_e300152300178_ + (gx#stx-pair? _tl159986160014_)) + (let ((_e159991160017_ (let () (declare (not safe)) - (gx#syntax-e _tl300147300175_)))) - (let ((_hd300151300182_ + (gx#syntax-e _tl159986160014_)))) + (let ((_hd159990160021_ (let () (declare (not safe)) - (##car _e300152300178_))) - (_tl300150300185_ + (##car _e159991160017_))) + (_tl159989160024_ (let () (declare (not safe)) - (##cdr _e300152300178_)))) + (##cdr _e159991160017_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl300150300185_)) - (let ((_e300155300188_ + (gx#stx-pair? _tl159989160024_)) + (let ((_e159994160027_ (let () (declare (not safe)) - (gx#syntax-e _tl300150300185_)))) - (let ((_hd300154300192_ + (gx#syntax-e _tl159989160024_)))) + (let ((_hd159993160031_ (let () (declare (not safe)) - (##car _e300155300188_))) - (_tl300153300195_ + (##car _e159994160027_))) + (_tl159992160034_ (let () (declare (not safe)) - (##cdr _e300155300188_)))) + (##cdr _e159994160027_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl300153300195_)) - ((lambda (_L300198_ _L300200_) - (let ((__tmp306446 + (gx#stx-null? _tl159992160034_)) + ((lambda (_L160037_ _L160039_) + (let ((__tmp161717 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!kw-lambda))) - (__tmp306433 - (let ((__tmp306442 - (let ((__tmp306445 + (__tmp161704 + (let ((__tmp161713 + (let ((__tmp161716 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306443 - (let ((__tmp306444 + (__tmp161714 + (let ((__tmp161715 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'kw-lambda)))) (declare (not safe)) - (cons __tmp306444 '())))) + (cons __tmp161715 '())))) (declare (not safe)) - (cons __tmp306445 __tmp306443))) - (__tmp306434 - (let ((__tmp306439 - (let ((__tmp306441 + (cons __tmp161716 __tmp161714))) + (__tmp161705 + (let ((__tmp161710 + (let ((__tmp161712 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306440 + (__tmp161711 (let () (declare (not safe)) - (cons _L300200_ '())))) + (cons _L160039_ '())))) (declare (not safe)) - (cons __tmp306441 __tmp306440))) - (__tmp306435 - (let ((__tmp306436 - (let ((__tmp306438 + (cons __tmp161712 __tmp161711))) + (__tmp161706 + (let ((__tmp161707 + (let ((__tmp161709 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306437 + (__tmp161708 (let () (declare (not safe)) - (cons _L300198_ '())))) + (cons _L160037_ '())))) (declare (not safe)) - (cons __tmp306438 __tmp306437)))) + (cons __tmp161709 __tmp161708)))) (declare (not safe)) - (cons __tmp306436 '())))) + (cons __tmp161707 '())))) (declare (not safe)) - (cons __tmp306439 __tmp306435)))) + (cons __tmp161710 __tmp161706)))) (declare (not safe)) - (cons __tmp306442 __tmp306434)))) + (cons __tmp161713 __tmp161705)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp306446 - __tmp306433))) - _hd300154300192_ - _hd300151300182_) - (_g300143300161_ - _g300144300165_)))) - (_g300143300161_ _g300144300165_)))) - (_g300143300161_ _g300144300165_)))) - (_g300143300161_ _g300144300165_))))) - (_g300142300216_ _$stx300139_)))) + (cons __tmp161717 + __tmp161704))) + _hd159993160031_ + _hd159990160021_) + (_g159982160000_ + _g159983160004_)))) + (_g159982160000_ _g159983160004_)))) + (_g159982160000_ _g159983160004_)))) + (_g159982160000_ _g159983160004_))))) + (_g159981160055_ _$stx159978_)))) (define |gxc[:0:]#@kw-lambda-dispatch| - (lambda (_$stx300220_) - (let* ((_g300224300242_ - (lambda (_g300225300238_) + (lambda (_$stx160059_) + (let* ((_g160063160081_ + (lambda (_g160064160077_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g300225300238_)))) - (_g300223300297_ - (lambda (_g300225300246_) + _g160064160077_)))) + (_g160062160136_ + (lambda (_g160064160085_) (if (let () (declare (not safe)) - (gx#stx-pair? _g300225300246_)) - (let ((_e300230300249_ + (gx#stx-pair? _g160064160085_)) + (let ((_e160069160088_ (let () (declare (not safe)) - (gx#syntax-e _g300225300246_)))) - (let ((_hd300229300253_ + (gx#syntax-e _g160064160085_)))) + (let ((_hd160068160092_ (let () (declare (not safe)) - (##car _e300230300249_))) - (_tl300228300256_ + (##car _e160069160088_))) + (_tl160067160095_ (let () (declare (not safe)) - (##cdr _e300230300249_)))) + (##cdr _e160069160088_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl300228300256_)) - (let ((_e300233300259_ + (gx#stx-pair? _tl160067160095_)) + (let ((_e160072160098_ (let () (declare (not safe)) - (gx#syntax-e _tl300228300256_)))) - (let ((_hd300232300263_ + (gx#syntax-e _tl160067160095_)))) + (let ((_hd160071160102_ (let () (declare (not safe)) - (##car _e300233300259_))) - (_tl300231300266_ + (##car _e160072160098_))) + (_tl160070160105_ (let () (declare (not safe)) - (##cdr _e300233300259_)))) + (##cdr _e160072160098_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl300231300266_)) - (let ((_e300236300269_ + (gx#stx-pair? _tl160070160105_)) + (let ((_e160075160108_ (let () (declare (not safe)) - (gx#syntax-e _tl300231300266_)))) - (let ((_hd300235300273_ + (gx#syntax-e _tl160070160105_)))) + (let ((_hd160074160112_ (let () (declare (not safe)) - (##car _e300236300269_))) - (_tl300234300276_ + (##car _e160075160108_))) + (_tl160073160115_ (let () (declare (not safe)) - (##cdr _e300236300269_)))) + (##cdr _e160075160108_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl300234300276_)) - ((lambda (_L300279_ _L300281_) - (let ((__tmp306460 + (gx#stx-null? _tl160073160115_)) + ((lambda (_L160118_ _L160120_) + (let ((__tmp161731 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!kw-lambda-primary))) - (__tmp306447 - (let ((__tmp306456 - (let ((__tmp306459 + (__tmp161718 + (let ((__tmp161727 + (let ((__tmp161730 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306457 - (let ((__tmp306458 + (__tmp161728 + (let ((__tmp161729 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'kw-lambda-dispatch)))) (declare (not safe)) - (cons __tmp306458 '())))) + (cons __tmp161729 '())))) (declare (not safe)) - (cons __tmp306459 __tmp306457))) - (__tmp306448 - (let ((__tmp306453 - (let ((__tmp306455 + (cons __tmp161730 __tmp161728))) + (__tmp161719 + (let ((__tmp161724 + (let ((__tmp161726 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306454 + (__tmp161725 (let () (declare (not safe)) - (cons _L300281_ '())))) + (cons _L160120_ '())))) (declare (not safe)) - (cons __tmp306455 __tmp306454))) - (__tmp306449 - (let ((__tmp306450 - (let ((__tmp306452 + (cons __tmp161726 __tmp161725))) + (__tmp161720 + (let ((__tmp161721 + (let ((__tmp161723 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp306451 + (__tmp161722 (let () (declare (not safe)) - (cons _L300279_ '())))) + (cons _L160118_ '())))) (declare (not safe)) - (cons __tmp306452 __tmp306451)))) + (cons __tmp161723 __tmp161722)))) (declare (not safe)) - (cons __tmp306450 '())))) + (cons __tmp161721 '())))) (declare (not safe)) - (cons __tmp306453 __tmp306449)))) + (cons __tmp161724 __tmp161720)))) (declare (not safe)) - (cons __tmp306456 __tmp306448)))) + (cons __tmp161727 __tmp161719)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp306460 - __tmp306447))) - _hd300235300273_ - _hd300232300263_) - (_g300224300242_ - _g300225300246_)))) - (_g300224300242_ _g300225300246_)))) - (_g300224300242_ _g300225300246_)))) - (_g300224300242_ _g300225300246_))))) - (_g300223300297_ _$stx300220_)))) + (cons __tmp161731 + __tmp161718))) + _hd160074160112_ + _hd160071160102_) + (_g160063160081_ + _g160064160085_)))) + (_g160063160081_ _g160064160085_)))) + (_g160063160081_ _g160064160085_)))) + (_g160063160081_ _g160064160085_))))) + (_g160062160136_ _$stx160059_)))) (define |gxc[:0:]#declare-primitive| - (lambda (_$stx300301_) - (let* ((___stx306056306057_ _$stx300301_) - (_g300308300379_ + (lambda (_$stx160140_) + (let* ((___stx161327161328_ _$stx160140_) + (_g160147160218_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx306056306057_))))) - (let ((___kont306059306060_ - (lambda (_L300670_ _L300672_) - (let ((__tmp306466 + ___stx161327161328_))))) + (let ((___kont161330161331_ + (lambda (_L160509_ _L160511_) + (let ((__tmp161737 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp306461 - (let ((__tmp306462 - (let ((__tmp306463 - (let ((__tmp306465 + (__tmp161732 + (let ((__tmp161733 + (let ((__tmp161734 + (let ((__tmp161736 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp306464 + (__tmp161735 (let () (declare (not safe)) - (cons _L300670_ '())))) + (cons _L160509_ '())))) (declare (not safe)) - (cons __tmp306465 __tmp306464)))) + (cons __tmp161736 __tmp161735)))) (declare (not safe)) - (cons __tmp306463 '())))) + (cons __tmp161734 '())))) (declare (not safe)) - (cons _L300672_ __tmp306462)))) + (cons _L160511_ __tmp161733)))) (declare (not safe)) - (cons __tmp306466 __tmp306461)))) - (___kont306061306062_ - (lambda (_L300589_ _L300591_) - (let ((__tmp306475 + (cons __tmp161737 __tmp161732)))) + (___kont161332161333_ + (lambda (_L160428_ _L160430_) + (let ((__tmp161746 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp306467 - (let ((__tmp306468 - (let ((__tmp306469 - (let ((__tmp306474 + (__tmp161738 + (let ((__tmp161739 + (let ((__tmp161740 + (let ((__tmp161745 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp306470 - (let ((__tmp306471 - (lambda (_g300610300613_ - _g300611300616_) - (let ((__tmp306472 - (let ((__tmp306473 + (__tmp161741 + (let ((__tmp161742 + (lambda (_g160449160452_ + _g160450160455_) + (let ((__tmp161743 + (let ((__tmp161744 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g300610300613_ __tmp306473)))) + (cons _g160449160452_ __tmp161744)))) (declare (not safe)) - (cons __tmp306472 _g300611300616_))))) + (cons __tmp161743 _g160450160455_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp306471 + (foldr1 __tmp161742 '() - _L300589_)))) + _L160428_)))) (declare (not safe)) - (cons __tmp306474 __tmp306470)))) + (cons __tmp161745 __tmp161741)))) (declare (not safe)) - (cons __tmp306469 '())))) + (cons __tmp161740 '())))) (declare (not safe)) - (cons _L300591_ __tmp306468)))) + (cons _L160430_ __tmp161739)))) (declare (not safe)) - (cons __tmp306475 __tmp306467)))) - (___kont306065306066_ - (lambda (_L300501_ _L300503_) - (let ((__tmp306482 + (cons __tmp161746 __tmp161738)))) + (___kont161336161337_ + (lambda (_L160340_ _L160342_) + (let ((__tmp161753 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp306476 - (let ((__tmp306477 - (let ((__tmp306478 - (let ((__tmp306481 + (__tmp161747 + (let ((__tmp161748 + (let ((__tmp161749 + (let ((__tmp161752 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp306479 - (let ((__tmp306480 + (__tmp161750 + (let ((__tmp161751 (let () (declare (not safe)) - (cons _L300501_ '())))) + (cons _L160340_ '())))) (declare (not safe)) (cons 'primitive: - __tmp306480)))) + __tmp161751)))) (declare (not safe)) - (cons __tmp306481 __tmp306479)))) + (cons __tmp161752 __tmp161750)))) (declare (not safe)) - (cons __tmp306478 '())))) + (cons __tmp161749 '())))) (declare (not safe)) - (cons _L300503_ __tmp306477)))) + (cons _L160342_ __tmp161748)))) (declare (not safe)) - (cons __tmp306482 __tmp306476)))) - (___kont306067306068_ - (lambda (_L300436_ _L300438_) - (let ((__tmp306492 + (cons __tmp161753 __tmp161747)))) + (___kont161338161339_ + (lambda (_L160275_ _L160277_) + (let ((__tmp161763 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp306483 - (let ((__tmp306484 - (let ((__tmp306485 - (let ((__tmp306491 + (__tmp161754 + (let ((__tmp161755 + (let ((__tmp161756 + (let ((__tmp161762 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp306486 - (let ((__tmp306487 - (let ((__tmp306488 - (lambda (_g300455300458_ + (__tmp161757 + (let ((__tmp161758 + (let ((__tmp161759 + (lambda (_g160294160297_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g300456300461_) - (let ((__tmp306489 - (let ((__tmp306490 + _g160295160300_) + (let ((__tmp161760 + (let ((__tmp161761 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g300455300458_ __tmp306490)))) + (cons _g160294160297_ __tmp161761)))) (declare (not safe)) - (cons __tmp306489 _g300456300461_))))) + (cons __tmp161760 _g160295160300_))))) (declare (not safe)) - (foldr1 __tmp306488 '() _L300436_)))) + (foldr1 __tmp161759 '() _L160275_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'primitive: - __tmp306487)))) + __tmp161758)))) (declare (not safe)) - (cons __tmp306491 __tmp306486)))) + (cons __tmp161762 __tmp161757)))) (declare (not safe)) - (cons __tmp306485 '())))) + (cons __tmp161756 '())))) (declare (not safe)) - (cons _L300438_ __tmp306484)))) + (cons _L160277_ __tmp161755)))) (declare (not safe)) - (cons __tmp306492 __tmp306483))))) - (let* ((___match306175306176_ - (lambda (_e300361300386_ - _hd300360300390_ - _tl300359300393_ - _e300364300396_ - _hd300363300400_ - _tl300362300403_ - ___splice306069306070_ - _target300365300406_ - _tl300367300409_) - (letrec ((_loop300368300412_ - (lambda (_hd300366300416_ _arity300372300419_) + (cons __tmp161763 __tmp161754))))) + (let* ((___match161446161447_ + (lambda (_e160200160225_ + _hd160199160229_ + _tl160198160232_ + _e160203160235_ + _hd160202160239_ + _tl160201160242_ + ___splice161340161341_ + _target160204160245_ + _tl160206160248_) + (letrec ((_loop160207160251_ + (lambda (_hd160205160255_ _arity160211160258_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd300366300416_)) - (let ((_e300369300422_ + (gx#stx-pair? _hd160205160255_)) + (let ((_e160208160261_ (let () (declare (not safe)) - (gx#syntax-e _hd300366300416_)))) - (let ((_lp-tl300371300429_ + (gx#syntax-e _hd160205160255_)))) + (let ((_lp-tl160210160268_ (let () (declare (not safe)) - (##cdr _e300369300422_))) - (_lp-hd300370300426_ + (##cdr _e160208160261_))) + (_lp-hd160209160265_ (let () (declare (not safe)) - (##car _e300369300422_)))) - (_loop300368300412_ - _lp-tl300371300429_ + (##car _e160208160261_)))) + (_loop160207160251_ + _lp-tl160210160268_ (let () (declare (not safe)) - (cons _lp-hd300370300426_ - _arity300372300419_))))) - (let ((_arity300373300432_ - (reverse _arity300372300419_))) - (___kont306067306068_ - _arity300373300432_ - _hd300363300400_)))))) - (_loop300368300412_ _target300365300406_ '())))) - (___match306135306136_ - (lambda (_e300329300525_ - _hd300328300529_ - _tl300327300532_ - _e300332300535_ - _hd300331300539_ - _tl300330300542_ - _e300335300545_ - _hd300334300549_ - _tl300333300552_ - _e300336300555_ - ___splice306063306064_ - _target300337300559_ - _tl300339300562_) - (letrec ((_loop300340300565_ - (lambda (_hd300338300569_ _arity300344300572_) + (cons _lp-hd160209160265_ + _arity160211160258_))))) + (let ((_arity160212160271_ + (reverse _arity160211160258_))) + (___kont161338161339_ + _arity160212160271_ + _hd160202160239_)))))) + (_loop160207160251_ _target160204160245_ '())))) + (___match161406161407_ + (lambda (_e160168160364_ + _hd160167160368_ + _tl160166160371_ + _e160171160374_ + _hd160170160378_ + _tl160169160381_ + _e160174160384_ + _hd160173160388_ + _tl160172160391_ + _e160175160394_ + ___splice161334161335_ + _target160176160398_ + _tl160178160401_) + (letrec ((_loop160179160404_ + (lambda (_hd160177160408_ _arity160183160411_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd300338300569_)) - (let ((_e300341300575_ + (gx#stx-pair? _hd160177160408_)) + (let ((_e160180160414_ (let () (declare (not safe)) - (gx#syntax-e _hd300338300569_)))) - (let ((_lp-tl300343300582_ + (gx#syntax-e _hd160177160408_)))) + (let ((_lp-tl160182160421_ (let () (declare (not safe)) - (##cdr _e300341300575_))) - (_lp-hd300342300579_ + (##cdr _e160180160414_))) + (_lp-hd160181160418_ (let () (declare (not safe)) - (##car _e300341300575_)))) - (_loop300340300565_ - _lp-tl300343300582_ + (##car _e160180160414_)))) + (_loop160179160404_ + _lp-tl160182160421_ (let () (declare (not safe)) - (cons _lp-hd300342300579_ - _arity300344300572_))))) - (let ((_arity300345300585_ - (reverse _arity300344300572_))) - (___kont306061306062_ - _arity300345300585_ - _hd300331300539_)))))) - (_loop300340300565_ _target300337300559_ '()))))) + (cons _lp-hd160181160418_ + _arity160183160411_))))) + (let ((_arity160184160424_ + (reverse _arity160183160411_))) + (___kont161332161333_ + _arity160184160424_ + _hd160170160378_)))))) + (_loop160179160404_ _target160176160398_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx306056306057_)) - (let ((_e300314300626_ + (gx#stx-pair? ___stx161327161328_)) + (let ((_e160153160465_ (let () (declare (not safe)) - (gx#syntax-e ___stx306056306057_)))) - (let ((_tl300312300633_ - (let () (declare (not safe)) (##cdr _e300314300626_))) - (_hd300313300630_ + (gx#syntax-e ___stx161327161328_)))) + (let ((_tl160151160472_ + (let () (declare (not safe)) (##cdr _e160153160465_))) + (_hd160152160469_ (let () (declare (not safe)) - (##car _e300314300626_)))) + (##car _e160153160465_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl300312300633_)) - (let ((_e300317300636_ + (gx#stx-pair? _tl160151160472_)) + (let ((_e160156160475_ (let () (declare (not safe)) - (gx#syntax-e _tl300312300633_)))) - (let ((_tl300315300643_ + (gx#syntax-e _tl160151160472_)))) + (let ((_tl160154160482_ (let () (declare (not safe)) - (##cdr _e300317300636_))) - (_hd300316300640_ + (##cdr _e160156160475_))) + (_hd160155160479_ (let () (declare (not safe)) - (##car _e300317300636_)))) + (##car _e160156160475_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl300315300643_)) - (let ((_e300320300646_ + (gx#stx-pair? _tl160154160482_)) + (let ((_e160159160485_ (let () (declare (not safe)) - (gx#syntax-e _tl300315300643_)))) - (let ((_tl300318300653_ + (gx#syntax-e _tl160154160482_)))) + (let ((_tl160157160492_ (let () (declare (not safe)) - (##cdr _e300320300646_))) - (_hd300319300650_ + (##cdr _e160159160485_))) + (_hd160158160489_ (let () (declare (not safe)) - (##car _e300320300646_)))) + (##car _e160159160485_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd300319300650_)) - (let ((_e300321300656_ + (gx#stx-datum? _hd160158160489_)) + (let ((_e160160160495_ (let () (declare (not safe)) - (gx#stx-e _hd300319300650_)))) + (gx#stx-e _hd160158160489_)))) (if (let () (declare (not safe)) - (equal? _e300321300656_ + (equal? _e160160160495_ 'unchecked:)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl300318300653_)) - (let ((_e300324300660_ + _tl160157160492_)) + (let ((_e160163160499_ (let () (declare (not safe)) (gx#syntax-e - _tl300318300653_)))) - (let ((_tl300322300667_ + _tl160157160492_)))) + (let ((_tl160161160506_ (let () (declare (not safe)) - (##cdr _e300324300660_))) - (_hd300323300664_ + (##cdr _e160163160499_))) + (_hd160162160503_ (let () (declare (not safe)) - (##car _e300324300660_)))) + (##car _e160163160499_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl300322300667_)) - (___kont306059306060_ - _hd300323300664_ - _hd300316300640_) + _tl160161160506_)) + (___kont161330161331_ + _hd160162160503_ + _hd160155160479_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _tl300318300653_)) - (let ((___splice306063306064_ + (gx#stx-pair/null? _tl160157160492_)) + (let ((___splice161334161335_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl300318300653_ '0)))) - (let ((_tl300339300562_ + (gx#syntax-split-splice _tl160157160492_ '0)))) + (let ((_tl160178160401_ (let () (declare (not safe)) - (##vector-ref ___splice306063306064_ '1))) - (_target300337300559_ + (##vector-ref ___splice161334161335_ '1))) + (_target160176160398_ (let () (declare (not safe)) - (##vector-ref ___splice306063306064_ '0)))) + (##vector-ref ___splice161334161335_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl300339300562_)) - (___match306135306136_ - _e300314300626_ - _hd300313300630_ - _tl300312300633_ - _e300317300636_ - _hd300316300640_ - _tl300315300643_ - _e300320300646_ - _hd300319300650_ - _tl300318300653_ - _e300321300656_ - ___splice306063306064_ - _target300337300559_ - _tl300339300562_) + (gx#stx-null? _tl160178160401_)) + (___match161406161407_ + _e160153160465_ + _hd160152160469_ + _tl160151160472_ + _e160156160475_ + _hd160155160479_ + _tl160154160482_ + _e160159160485_ + _hd160158160489_ + _tl160157160492_ + _e160160160495_ + ___splice161334161335_ + _target160176160398_ + _tl160178160401_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl300315300643_)) - (let ((___splice306069306070_ + (gx#stx-pair/null? _tl160154160482_)) + (let ((___splice161340161341_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl300315300643_ + _tl160154160482_ '0)))) - (let ((_tl300367300409_ + (let ((_tl160206160248_ (let () (declare (not safe)) (##vector-ref - ___splice306069306070_ + ___splice161340161341_ '1))) - (_target300365300406_ + (_target160204160245_ (let () (declare (not safe)) (##vector-ref - ___splice306069306070_ + ___splice161340161341_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl300367300409_)) - (___match306175306176_ - _e300314300626_ - _hd300313300630_ - _tl300312300633_ - _e300317300636_ - _hd300316300640_ - _tl300315300643_ - ___splice306069306070_ - _target300365300406_ - _tl300367300409_) + (gx#stx-null? _tl160206160248_)) + (___match161446161447_ + _e160153160465_ + _hd160152160469_ + _tl160151160472_ + _e160156160475_ + _hd160155160479_ + _tl160154160482_ + ___splice161340161341_ + _target160204160245_ + _tl160206160248_) (let () (declare (not safe)) - (_g300308300379_))))) + (_g160147160218_))))) (let () (declare (not safe)) - (_g300308300379_)))))) + (_g160147160218_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl300315300643_)) - (let ((___splice306069306070_ + (gx#stx-pair/null? _tl160154160482_)) + (let ((___splice161340161341_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl300315300643_ + _tl160154160482_ '0)))) - (let ((_tl300367300409_ + (let ((_tl160206160248_ (let () (declare (not safe)) - (##vector-ref ___splice306069306070_ '1))) - (_target300365300406_ + (##vector-ref ___splice161340161341_ '1))) + (_target160204160245_ (let () (declare (not safe)) (##vector-ref - ___splice306069306070_ + ___splice161340161341_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl300367300409_)) - (___match306175306176_ - _e300314300626_ - _hd300313300630_ - _tl300312300633_ - _e300317300636_ - _hd300316300640_ - _tl300315300643_ - ___splice306069306070_ - _target300365300406_ - _tl300367300409_) + (gx#stx-null? _tl160206160248_)) + (___match161446161447_ + _e160153160465_ + _hd160152160469_ + _tl160151160472_ + _e160156160475_ + _hd160155160479_ + _tl160154160482_ + ___splice161340161341_ + _target160204160245_ + _tl160206160248_) (let () (declare (not safe)) - (_g300308300379_))))) - (let () (declare (not safe)) (_g300308300379_))))))) + (_g160147160218_))))) + (let () (declare (not safe)) (_g160147160218_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl300318300653_)) - (let ((___splice306063306064_ + _tl160157160492_)) + (let ((___splice161334161335_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl300318300653_ '0)))) - (let ((_tl300339300562_ + (gx#syntax-split-splice _tl160157160492_ '0)))) + (let ((_tl160178160401_ (let () (declare (not safe)) - (##vector-ref ___splice306063306064_ '1))) - (_target300337300559_ + (##vector-ref ___splice161334161335_ '1))) + (_target160176160398_ (let () (declare (not safe)) - (##vector-ref ___splice306063306064_ '0)))) + (##vector-ref ___splice161334161335_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl300339300562_)) - (___match306135306136_ - _e300314300626_ - _hd300313300630_ - _tl300312300633_ - _e300317300636_ - _hd300316300640_ - _tl300315300643_ - _e300320300646_ - _hd300319300650_ - _tl300318300653_ - _e300321300656_ - ___splice306063306064_ - _target300337300559_ - _tl300339300562_) + (gx#stx-null? _tl160178160401_)) + (___match161406161407_ + _e160153160465_ + _hd160152160469_ + _tl160151160472_ + _e160156160475_ + _hd160155160479_ + _tl160154160482_ + _e160159160485_ + _hd160158160489_ + _tl160157160492_ + _e160160160495_ + ___splice161334161335_ + _target160176160398_ + _tl160178160401_) (if (let () (declare (not safe)) - (gx#stx-null? _tl300318300653_)) - (___kont306065306066_ - _hd300319300650_ - _hd300316300640_) + (gx#stx-null? _tl160157160492_)) + (___kont161336161337_ + _hd160158160489_ + _hd160155160479_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl300315300643_)) - (let ((___splice306069306070_ + (gx#stx-pair/null? _tl160154160482_)) + (let ((___splice161340161341_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl300315300643_ + _tl160154160482_ '0)))) - (let ((_tl300367300409_ + (let ((_tl160206160248_ (let () (declare (not safe)) (##vector-ref - ___splice306069306070_ + ___splice161340161341_ '1))) - (_target300365300406_ + (_target160204160245_ (let () (declare (not safe)) (##vector-ref - ___splice306069306070_ + ___splice161340161341_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl300367300409_)) - (___match306175306176_ - _e300314300626_ - _hd300313300630_ - _tl300312300633_ - _e300317300636_ - _hd300316300640_ - _tl300315300643_ - ___splice306069306070_ - _target300365300406_ - _tl300367300409_) + (gx#stx-null? _tl160206160248_)) + (___match161446161447_ + _e160153160465_ + _hd160152160469_ + _tl160151160472_ + _e160156160475_ + _hd160155160479_ + _tl160154160482_ + ___splice161340161341_ + _target160204160245_ + _tl160206160248_) (let () (declare (not safe)) - (_g300308300379_))))) + (_g160147160218_))))) (let () (declare (not safe)) - (_g300308300379_))))))) - (if (let () (declare (not safe)) (gx#stx-null? _tl300318300653_)) - (___kont306065306066_ _hd300319300650_ _hd300316300640_) + (_g160147160218_))))))) + (if (let () (declare (not safe)) (gx#stx-null? _tl160157160492_)) + (___kont161336161337_ _hd160158160489_ _hd160155160479_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl300315300643_)) - (let ((___splice306069306070_ + (gx#stx-pair/null? _tl160154160482_)) + (let ((___splice161340161341_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl300315300643_ '0)))) - (let ((_tl300367300409_ + (gx#syntax-split-splice _tl160154160482_ '0)))) + (let ((_tl160206160248_ (let () (declare (not safe)) - (##vector-ref ___splice306069306070_ '1))) - (_target300365300406_ + (##vector-ref ___splice161340161341_ '1))) + (_target160204160245_ (let () (declare (not safe)) - (##vector-ref ___splice306069306070_ '0)))) + (##vector-ref ___splice161340161341_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl300367300409_)) - (___match306175306176_ - _e300314300626_ - _hd300313300630_ - _tl300312300633_ - _e300317300636_ - _hd300316300640_ - _tl300315300643_ - ___splice306069306070_ - _target300365300406_ - _tl300367300409_) + (gx#stx-null? _tl160206160248_)) + (___match161446161447_ + _e160153160465_ + _hd160152160469_ + _tl160151160472_ + _e160156160475_ + _hd160155160479_ + _tl160154160482_ + ___splice161340161341_ + _target160204160245_ + _tl160206160248_) (let () (declare (not safe)) - (_g300308300379_))))) - (let () (declare (not safe)) (_g300308300379_)))))) + (_g160147160218_))))) + (let () (declare (not safe)) (_g160147160218_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl300318300653_)) - (___kont306065306066_ - _hd300319300650_ - _hd300316300640_) + _tl160157160492_)) + (___kont161336161337_ + _hd160158160489_ + _hd160155160479_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl300315300643_)) - (let ((___splice306069306070_ + _tl160154160482_)) + (let ((___splice161340161341_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl300315300643_ '0)))) - (let ((_tl300367300409_ + (gx#syntax-split-splice _tl160154160482_ '0)))) + (let ((_tl160206160248_ (let () (declare (not safe)) - (##vector-ref ___splice306069306070_ '1))) - (_target300365300406_ + (##vector-ref ___splice161340161341_ '1))) + (_target160204160245_ (let () (declare (not safe)) - (##vector-ref ___splice306069306070_ '0)))) + (##vector-ref ___splice161340161341_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl300367300409_)) - (___match306175306176_ - _e300314300626_ - _hd300313300630_ - _tl300312300633_ - _e300317300636_ - _hd300316300640_ - _tl300315300643_ - ___splice306069306070_ - _target300365300406_ - _tl300367300409_) - (let () (declare (not safe)) (_g300308300379_))))) - (let () (declare (not safe)) (_g300308300379_)))))) + (gx#stx-null? _tl160206160248_)) + (___match161446161447_ + _e160153160465_ + _hd160152160469_ + _tl160151160472_ + _e160156160475_ + _hd160155160479_ + _tl160154160482_ + ___splice161340161341_ + _target160204160245_ + _tl160206160248_) + (let () (declare (not safe)) (_g160147160218_))))) + (let () (declare (not safe)) (_g160147160218_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (gx#stx-null? _tl300318300653_)) - (___kont306065306066_ - _hd300319300650_ - _hd300316300640_) + (gx#stx-null? _tl160157160492_)) + (___kont161336161337_ + _hd160158160489_ + _hd160155160479_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl300315300643_)) - (let ((___splice306069306070_ + _tl160154160482_)) + (let ((___splice161340161341_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl300315300643_ + _tl160154160482_ '0)))) - (let ((_tl300367300409_ + (let ((_tl160206160248_ (let () (declare (not safe)) (##vector-ref - ___splice306069306070_ + ___splice161340161341_ '1))) - (_target300365300406_ + (_target160204160245_ (let () (declare (not safe)) (##vector-ref - ___splice306069306070_ + ___splice161340161341_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl300367300409_)) - (___match306175306176_ - _e300314300626_ - _hd300313300630_ - _tl300312300633_ - _e300317300636_ - _hd300316300640_ - _tl300315300643_ - ___splice306069306070_ - _target300365300406_ - _tl300367300409_) + _tl160206160248_)) + (___match161446161447_ + _e160153160465_ + _hd160152160469_ + _tl160151160472_ + _e160156160475_ + _hd160155160479_ + _tl160154160482_ + ___splice161340161341_ + _target160204160245_ + _tl160206160248_) (let () (declare (not safe)) - (_g300308300379_))))) + (_g160147160218_))))) (let () (declare (not safe)) - (_g300308300379_))))))) + (_g160147160218_))))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl300315300643_)) - (let ((___splice306069306070_ + (gx#stx-pair/null? _tl160154160482_)) + (let ((___splice161340161341_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl300315300643_ + _tl160154160482_ '0)))) - (let ((_tl300367300409_ + (let ((_tl160206160248_ (let () (declare (not safe)) (##vector-ref - ___splice306069306070_ + ___splice161340161341_ '1))) - (_target300365300406_ + (_target160204160245_ (let () (declare (not safe)) (##vector-ref - ___splice306069306070_ + ___splice161340161341_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl300367300409_)) - (___match306175306176_ - _e300314300626_ - _hd300313300630_ - _tl300312300633_ - _e300317300636_ - _hd300316300640_ - _tl300315300643_ - ___splice306069306070_ - _target300365300406_ - _tl300367300409_) + (gx#stx-null? _tl160206160248_)) + (___match161446161447_ + _e160153160465_ + _hd160152160469_ + _tl160151160472_ + _e160156160475_ + _hd160155160479_ + _tl160154160482_ + ___splice161340161341_ + _target160204160245_ + _tl160206160248_) (let () (declare (not safe)) - (_g300308300379_))))) + (_g160147160218_))))) (let () (declare (not safe)) - (_g300308300379_)))))) - (let () (declare (not safe)) (_g300308300379_))))) - (let () (declare (not safe)) (_g300308300379_)))))))) + (_g160147160218_)))))) + (let () (declare (not safe)) (_g160147160218_))))) + (let () (declare (not safe)) (_g160147160218_)))))))) (define |gxc[:0:]#declare-primitive/unchecked| - (lambda (_$stx300696_) - (let* ((___stx306178306179_ _$stx300696_) - (_g300701300736_ + (lambda (_$stx160535_) + (let* ((___stx161449161450_ _$stx160535_) + (_g160540160575_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx306178306179_))))) - (let ((___kont306181306182_ - (lambda (_L300858_ _L300860_) - (let ((__tmp306498 + ___stx161449161450_))))) + (let ((___kont161452161453_ + (lambda (_L160697_ _L160699_) + (let ((__tmp161769 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp306493 - (let ((__tmp306494 - (let ((__tmp306495 - (let ((__tmp306497 + (__tmp161764 + (let ((__tmp161765 + (let ((__tmp161766 + (let ((__tmp161768 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp306496 + (__tmp161767 (let () (declare (not safe)) - (cons _L300858_ '())))) + (cons _L160697_ '())))) (declare (not safe)) - (cons __tmp306497 __tmp306496)))) + (cons __tmp161768 __tmp161767)))) (declare (not safe)) - (cons __tmp306495 '())))) + (cons __tmp161766 '())))) (declare (not safe)) - (cons _L300860_ __tmp306494)))) + (cons _L160699_ __tmp161765)))) (declare (not safe)) - (cons __tmp306498 __tmp306493)))) - (___kont306183306184_ - (lambda (_L300793_ _L300795_) - (let ((__tmp306507 + (cons __tmp161769 __tmp161764)))) + (___kont161454161455_ + (lambda (_L160632_ _L160634_) + (let ((__tmp161778 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp306499 - (let ((__tmp306500 - (let ((__tmp306501 - (let ((__tmp306506 + (__tmp161770 + (let ((__tmp161771 + (let ((__tmp161772 + (let ((__tmp161777 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp306502 - (let ((__tmp306503 - (lambda (_g300812300815_ - _g300813300818_) - (let ((__tmp306504 - (let ((__tmp306505 + (__tmp161773 + (let ((__tmp161774 + (lambda (_g160651160654_ + _g160652160657_) + (let ((__tmp161775 + (let ((__tmp161776 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g300812300815_ __tmp306505)))) + (cons _g160651160654_ __tmp161776)))) (declare (not safe)) - (cons __tmp306504 _g300813300818_))))) + (cons __tmp161775 _g160652160657_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp306503 + (foldr1 __tmp161774 '() - _L300793_)))) + _L160632_)))) (declare (not safe)) - (cons __tmp306506 __tmp306502)))) + (cons __tmp161777 __tmp161773)))) (declare (not safe)) - (cons __tmp306501 '())))) + (cons __tmp161772 '())))) (declare (not safe)) - (cons _L300795_ __tmp306500)))) + (cons _L160634_ __tmp161771)))) (declare (not safe)) - (cons __tmp306507 __tmp306499))))) - (let ((___match306227306228_ - (lambda (_e300718300743_ - _hd300717300747_ - _tl300716300750_ - _e300721300753_ - _hd300720300757_ - _tl300719300760_ - ___splice306185306186_ - _target300722300763_ - _tl300724300766_) - (letrec ((_loop300725300769_ - (lambda (_hd300723300773_ _arity300729300776_) + (cons __tmp161778 __tmp161770))))) + (let ((___match161498161499_ + (lambda (_e160557160582_ + _hd160556160586_ + _tl160555160589_ + _e160560160592_ + _hd160559160596_ + _tl160558160599_ + ___splice161456161457_ + _target160561160602_ + _tl160563160605_) + (letrec ((_loop160564160608_ + (lambda (_hd160562160612_ _arity160568160615_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd300723300773_)) - (let ((_e300726300779_ + (gx#stx-pair? _hd160562160612_)) + (let ((_e160565160618_ (let () (declare (not safe)) - (gx#syntax-e _hd300723300773_)))) - (let ((_lp-tl300728300786_ + (gx#syntax-e _hd160562160612_)))) + (let ((_lp-tl160567160625_ (let () (declare (not safe)) - (##cdr _e300726300779_))) - (_lp-hd300727300783_ + (##cdr _e160565160618_))) + (_lp-hd160566160622_ (let () (declare (not safe)) - (##car _e300726300779_)))) - (_loop300725300769_ - _lp-tl300728300786_ + (##car _e160565160618_)))) + (_loop160564160608_ + _lp-tl160567160625_ (let () (declare (not safe)) - (cons _lp-hd300727300783_ - _arity300729300776_))))) - (let ((_arity300730300789_ - (reverse _arity300729300776_))) - (___kont306183306184_ - _arity300730300789_ - _hd300720300757_)))))) - (_loop300725300769_ _target300722300763_ '()))))) + (cons _lp-hd160566160622_ + _arity160568160615_))))) + (let ((_arity160569160628_ + (reverse _arity160568160615_))) + (___kont161454161455_ + _arity160569160628_ + _hd160559160596_)))))) + (_loop160564160608_ _target160561160602_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx306178306179_)) - (let ((_e300707300828_ + (gx#stx-pair? ___stx161449161450_)) + (let ((_e160546160667_ (let () (declare (not safe)) - (gx#syntax-e ___stx306178306179_)))) - (let ((_tl300705300835_ - (let () (declare (not safe)) (##cdr _e300707300828_))) - (_hd300706300832_ + (gx#syntax-e ___stx161449161450_)))) + (let ((_tl160544160674_ + (let () (declare (not safe)) (##cdr _e160546160667_))) + (_hd160545160671_ (let () (declare (not safe)) - (##car _e300707300828_)))) + (##car _e160546160667_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl300705300835_)) - (let ((_e300710300838_ + (gx#stx-pair? _tl160544160674_)) + (let ((_e160549160677_ (let () (declare (not safe)) - (gx#syntax-e _tl300705300835_)))) - (let ((_tl300708300845_ + (gx#syntax-e _tl160544160674_)))) + (let ((_tl160547160684_ (let () (declare (not safe)) - (##cdr _e300710300838_))) - (_hd300709300842_ + (##cdr _e160549160677_))) + (_hd160548160681_ (let () (declare (not safe)) - (##car _e300710300838_)))) + (##car _e160549160677_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl300708300845_)) - (let ((_e300713300848_ + (gx#stx-pair? _tl160547160684_)) + (let ((_e160552160687_ (let () (declare (not safe)) - (gx#syntax-e _tl300708300845_)))) - (let ((_tl300711300855_ + (gx#syntax-e _tl160547160684_)))) + (let ((_tl160550160694_ (let () (declare (not safe)) - (##cdr _e300713300848_))) - (_hd300712300852_ + (##cdr _e160552160687_))) + (_hd160551160691_ (let () (declare (not safe)) - (##car _e300713300848_)))) + (##car _e160552160687_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl300711300855_)) - (___kont306181306182_ - _hd300712300852_ - _hd300709300842_) + (gx#stx-null? _tl160550160694_)) + (___kont161452161453_ + _hd160551160691_ + _hd160548160681_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl300708300845_)) - (let ((___splice306185306186_ + _tl160547160684_)) + (let ((___splice161456161457_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl300708300845_ + _tl160547160684_ '0)))) - (let ((_tl300724300766_ + (let ((_tl160563160605_ (let () (declare (not safe)) (##vector-ref - ___splice306185306186_ + ___splice161456161457_ '1))) - (_target300722300763_ + (_target160561160602_ (let () (declare (not safe)) (##vector-ref - ___splice306185306186_ + ___splice161456161457_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl300724300766_)) - (___match306227306228_ - _e300707300828_ - _hd300706300832_ - _tl300705300835_ - _e300710300838_ - _hd300709300842_ - _tl300708300845_ - ___splice306185306186_ - _target300722300763_ - _tl300724300766_) + _tl160563160605_)) + (___match161498161499_ + _e160546160667_ + _hd160545160671_ + _tl160544160674_ + _e160549160677_ + _hd160548160681_ + _tl160547160684_ + ___splice161456161457_ + _target160561160602_ + _tl160563160605_) (let () (declare (not safe)) - (_g300701300736_))))) + (_g160540160575_))))) (let () (declare (not safe)) - (_g300701300736_)))))) + (_g160540160575_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl300708300845_)) - (let ((___splice306185306186_ + (gx#stx-pair/null? _tl160547160684_)) + (let ((___splice161456161457_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl300708300845_ + _tl160547160684_ '0)))) - (let ((_tl300724300766_ + (let ((_tl160563160605_ (let () (declare (not safe)) (##vector-ref - ___splice306185306186_ + ___splice161456161457_ '1))) - (_target300722300763_ + (_target160561160602_ (let () (declare (not safe)) (##vector-ref - ___splice306185306186_ + ___splice161456161457_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl300724300766_)) - (___match306227306228_ - _e300707300828_ - _hd300706300832_ - _tl300705300835_ - _e300710300838_ - _hd300709300842_ - _tl300708300845_ - ___splice306185306186_ - _target300722300763_ - _tl300724300766_) + (gx#stx-null? _tl160563160605_)) + (___match161498161499_ + _e160546160667_ + _hd160545160671_ + _tl160544160674_ + _e160549160677_ + _hd160548160681_ + _tl160547160684_ + ___splice161456161457_ + _target160561160602_ + _tl160563160605_) (let () (declare (not safe)) - (_g300701300736_))))) + (_g160540160575_))))) (let () (declare (not safe)) - (_g300701300736_)))))) - (let () (declare (not safe)) (_g300701300736_))))) - (let () (declare (not safe)) (_g300701300736_)))))))) + (_g160540160575_)))))) + (let () (declare (not safe)) (_g160540160575_))))) + (let () (declare (not safe)) (_g160540160575_)))))))) (define |gxc[:0:]#declare-primitive*| - (lambda (_$stx300880_) - (let* ((_g300884300919_ - (lambda (_g300885300915_) + (lambda (_$stx160719_) + (let* ((_g160723160758_ + (lambda (_g160724160754_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g300885300915_)))) - (_g300883301047_ - (lambda (_g300885300923_) + _g160724160754_)))) + (_g160722160886_ + (lambda (_g160724160762_) (if (let () (declare (not safe)) - (gx#stx-pair? _g300885300923_)) - (let ((_e300890300926_ + (gx#stx-pair? _g160724160762_)) + (let ((_e160729160765_ (let () (declare (not safe)) - (gx#syntax-e _g300885300923_)))) - (let ((_hd300889300930_ + (gx#syntax-e _g160724160762_)))) + (let ((_hd160728160769_ (let () (declare (not safe)) - (##car _e300890300926_))) - (_tl300888300933_ + (##car _e160729160765_))) + (_tl160727160772_ (let () (declare (not safe)) - (##cdr _e300890300926_)))) + (##cdr _e160729160765_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl300888300933_)) - (let ((_g306508_ + (gx#stx-pair/null? _tl160727160772_)) + (let ((_g161779_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl300888300933_ + _tl160727160772_ '0)))) (begin - (let ((_g306509_ + (let ((_g161780_ (let () (declare (not safe)) - (if (##values? _g306508_) - (##vector-length _g306508_) + (if (##values? _g161779_) + (##vector-length _g161779_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g306509_ 2))) + (##fx= _g161780_ 2))) (error "Context expects 2 values" - _g306509_))) - (let ((_target300891300936_ + _g161780_))) + (let ((_target160730160775_ (let () (declare (not safe)) - (##vector-ref _g306508_ 0))) - (_tl300893300939_ + (##vector-ref _g161779_ 0))) + (_tl160732160778_ (let () (declare (not safe)) - (##vector-ref _g306508_ 1)))) + (##vector-ref _g161779_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl300893300939_)) - (letrec ((_loop300894300942_ - (lambda (_hd300892300946_ - _arity300898300949_ - _prim300899300951_) + (gx#stx-null? _tl160732160778_)) + (letrec ((_loop160733160781_ + (lambda (_hd160731160785_ + _arity160737160788_ + _prim160738160790_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd300892300946_)) - (let ((_e300895300954_ + _hd160731160785_)) + (let ((_e160734160793_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd300892300946_)))) - (let ((_lp-hd300896300958_ - (let () (declare (not safe)) (##car _e300895300954_))) - (_lp-tl300897300961_ - (let () (declare (not safe)) (##cdr _e300895300954_)))) + (gx#syntax-e _hd160731160785_)))) + (let ((_lp-hd160735160797_ + (let () (declare (not safe)) (##car _e160734160793_))) + (_lp-tl160736160800_ + (let () (declare (not safe)) (##cdr _e160734160793_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd300896300958_)) - (let ((_e300904300964_ + (gx#stx-pair? _lp-hd160735160797_)) + (let ((_e160743160803_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd300896300958_)))) - (let ((_hd300903300968_ + (gx#syntax-e _lp-hd160735160797_)))) + (let ((_hd160742160807_ (let () (declare (not safe)) - (##car _e300904300964_))) - (_tl300902300971_ + (##car _e160743160803_))) + (_tl160741160810_ (let () (declare (not safe)) - (##cdr _e300904300964_)))) + (##cdr _e160743160803_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl300902300971_)) - (let ((_g306518_ + (gx#stx-pair/null? _tl160741160810_)) + (let ((_g161789_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl300902300971_ + _tl160741160810_ '0)))) (begin - (let ((_g306519_ + (let ((_g161790_ (let () (declare (not safe)) - (if (##values? _g306518_) - (##vector-length _g306518_) + (if (##values? _g161789_) + (##vector-length _g161789_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g306519_ 2))) + (##fx= _g161790_ 2))) (error "Context expects 2 values" - _g306519_))) - (let ((_target300905300974_ + _g161790_))) + (let ((_target160744160813_ (let () (declare (not safe)) - (##vector-ref _g306518_ 0))) - (_tl300907300977_ + (##vector-ref _g161789_ 0))) + (_tl160746160816_ (let () (declare (not safe)) - (##vector-ref _g306518_ 1)))) + (##vector-ref _g161789_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl300907300977_)) - (letrec ((_loop300908300980_ - (lambda (_hd300906300984_ - _arity300912300987_) + (gx#stx-null? _tl160746160816_)) + (letrec ((_loop160747160819_ + (lambda (_hd160745160823_ + _arity160751160826_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd300906300984_)) - (let ((_e300909300990_ + _hd160745160823_)) + (let ((_e160748160829_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd300906300984_)))) - (let ((_lp-hd300910300994_ - (let () (declare (not safe)) (##car _e300909300990_))) - (_lp-tl300911300997_ + (gx#syntax-e _hd160745160823_)))) + (let ((_lp-hd160749160833_ + (let () (declare (not safe)) (##car _e160748160829_))) + (_lp-tl160750160836_ (let () (declare (not safe)) - (##cdr _e300909300990_)))) - (_loop300908300980_ - _lp-tl300911300997_ + (##cdr _e160748160829_)))) + (_loop160747160819_ + _lp-tl160750160836_ (let () (declare (not safe)) - (cons _lp-hd300910300994_ _arity300912300987_))))) - (let ((_arity300913301000_ (reverse _arity300912300987_))) - (_loop300894300942_ - _lp-tl300897300961_ + (cons _lp-hd160749160833_ _arity160751160826_))))) + (let ((_arity160752160839_ (reverse _arity160751160826_))) + (_loop160733160781_ + _lp-tl160736160800_ (let () (declare (not safe)) - (cons _arity300913301000_ _arity300898300949_)) + (cons _arity160752160839_ _arity160737160788_)) (let () (declare (not safe)) - (cons _hd300903300968_ _prim300899300951_)))))))) + (cons _hd160742160807_ _prim160738160790_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop300908300980_ - _target300905300974_ + (_loop160747160819_ + _target160744160813_ '())) - (_g300884300919_ _g300885300923_))))) - (_g300884300919_ _g300885300923_)))) - (_g300884300919_ _g300885300923_)))) - (let ((_arity300900301004_ (reverse _arity300898300949_)) - (_prim300901301007_ (reverse _prim300899300951_))) - ((lambda (_L301010_ _L301012_) - (let ((__tmp306517 + (_g160723160758_ _g160724160762_))))) + (_g160723160758_ _g160724160762_)))) + (_g160723160758_ _g160724160762_)))) + (let ((_arity160739160843_ (reverse _arity160737160788_)) + (_prim160740160846_ (reverse _prim160738160790_))) + ((lambda (_L160849_ _L160851_) + (let ((__tmp161788 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp306510 + (__tmp161781 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L301010_ - _L301012_)) - (let ((__tmp306511 - (lambda (_g301027301033_ - _g301028301036_ - _g301029301038_) - (let ((__tmp306512 - (let ((__tmp306516 + _L160849_ + _L160851_)) + (let ((__tmp161782 + (lambda (_g160866160872_ + _g160867160875_ + _g160868160877_) + (let ((__tmp161783 + (let ((__tmp161787 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive))) - (__tmp306513 - (let ((__tmp306514 - (let ((__tmp306515 + (__tmp161784 + (let ((__tmp161785 + (let ((__tmp161786 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g301030301041_ _g301031301044_) + (lambda (_g160869160880_ _g160870160883_) (let () (declare (not safe)) - (cons _g301030301041_ _g301031301044_))))) + (cons _g160869160880_ _g160870160883_))))) (declare (not safe)) - (foldr1 __tmp306515 '() _g301027301033_)))) + (foldr1 __tmp161786 '() _g160866160872_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g301028301036_ - __tmp306514)))) + (cons _g160867160875_ + __tmp161785)))) (declare (not safe)) - (cons __tmp306516 __tmp306513)))) + (cons __tmp161787 __tmp161784)))) (declare (not safe)) - (cons __tmp306512 _g301029301038_))))) + (cons __tmp161783 _g160868160877_))))) (declare (not safe)) - (foldr2 __tmp306511 '() _L301010_ _L301012_))))) + (foldr2 __tmp161782 '() _L160849_ _L160851_))))) (declare (not safe)) - (cons __tmp306517 __tmp306510))) - _arity300900301004_ - _prim300901301007_)))))) + (cons __tmp161788 __tmp161781))) + _arity160739160843_ + _prim160740160846_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop300894300942_ - _target300891300936_ + (_loop160733160781_ + _target160730160775_ '() '())) - (_g300884300919_ _g300885300923_))))) - (_g300884300919_ _g300885300923_)))) - (_g300884300919_ _g300885300923_))))) - (_g300883301047_ _$stx300880_)))) + (_g160723160758_ _g160724160762_))))) + (_g160723160758_ _g160724160762_)))) + (_g160723160758_ _g160724160762_))))) + (_g160722160886_ _$stx160719_)))) (define |gxc[:0:]#declare-primitive/unchecked*| - (lambda (_$stx301053_) - (let* ((_g301057301092_ - (lambda (_g301058301088_) + (lambda (_$stx160892_) + (let* ((_g160896160931_ + (lambda (_g160897160927_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g301058301088_)))) - (_g301056301220_ - (lambda (_g301058301096_) + _g160897160927_)))) + (_g160895161059_ + (lambda (_g160897160935_) (if (let () (declare (not safe)) - (gx#stx-pair? _g301058301096_)) - (let ((_e301063301099_ + (gx#stx-pair? _g160897160935_)) + (let ((_e160902160938_ (let () (declare (not safe)) - (gx#syntax-e _g301058301096_)))) - (let ((_hd301062301103_ + (gx#syntax-e _g160897160935_)))) + (let ((_hd160901160942_ (let () (declare (not safe)) - (##car _e301063301099_))) - (_tl301061301106_ + (##car _e160902160938_))) + (_tl160900160945_ (let () (declare (not safe)) - (##cdr _e301063301099_)))) + (##cdr _e160902160938_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl301061301106_)) - (let ((_g306520_ + (gx#stx-pair/null? _tl160900160945_)) + (let ((_g161791_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl301061301106_ + _tl160900160945_ '0)))) (begin - (let ((_g306521_ + (let ((_g161792_ (let () (declare (not safe)) - (if (##values? _g306520_) - (##vector-length _g306520_) + (if (##values? _g161791_) + (##vector-length _g161791_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g306521_ 2))) + (##fx= _g161792_ 2))) (error "Context expects 2 values" - _g306521_))) - (let ((_target301064301109_ + _g161792_))) + (let ((_target160903160948_ (let () (declare (not safe)) - (##vector-ref _g306520_ 0))) - (_tl301066301112_ + (##vector-ref _g161791_ 0))) + (_tl160905160951_ (let () (declare (not safe)) - (##vector-ref _g306520_ 1)))) + (##vector-ref _g161791_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl301066301112_)) - (letrec ((_loop301067301115_ - (lambda (_hd301065301119_ - _arity301071301122_ - _prim301072301124_) + (gx#stx-null? _tl160905160951_)) + (letrec ((_loop160906160954_ + (lambda (_hd160904160958_ + _arity160910160961_ + _prim160911160963_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd301065301119_)) - (let ((_e301068301127_ + _hd160904160958_)) + (let ((_e160907160966_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd301065301119_)))) - (let ((_lp-hd301069301131_ - (let () (declare (not safe)) (##car _e301068301127_))) - (_lp-tl301070301134_ - (let () (declare (not safe)) (##cdr _e301068301127_)))) + (gx#syntax-e _hd160904160958_)))) + (let ((_lp-hd160908160970_ + (let () (declare (not safe)) (##car _e160907160966_))) + (_lp-tl160909160973_ + (let () (declare (not safe)) (##cdr _e160907160966_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd301069301131_)) - (let ((_e301077301137_ + (gx#stx-pair? _lp-hd160908160970_)) + (let ((_e160916160976_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd301069301131_)))) - (let ((_hd301076301141_ + (gx#syntax-e _lp-hd160908160970_)))) + (let ((_hd160915160980_ (let () (declare (not safe)) - (##car _e301077301137_))) - (_tl301075301144_ + (##car _e160916160976_))) + (_tl160914160983_ (let () (declare (not safe)) - (##cdr _e301077301137_)))) + (##cdr _e160916160976_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl301075301144_)) - (let ((_g306530_ + (gx#stx-pair/null? _tl160914160983_)) + (let ((_g161801_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl301075301144_ + _tl160914160983_ '0)))) (begin - (let ((_g306531_ + (let ((_g161802_ (let () (declare (not safe)) - (if (##values? _g306530_) - (##vector-length _g306530_) + (if (##values? _g161801_) + (##vector-length _g161801_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g306531_ 2))) + (##fx= _g161802_ 2))) (error "Context expects 2 values" - _g306531_))) - (let ((_target301078301147_ + _g161802_))) + (let ((_target160917160986_ (let () (declare (not safe)) - (##vector-ref _g306530_ 0))) - (_tl301080301150_ + (##vector-ref _g161801_ 0))) + (_tl160919160989_ (let () (declare (not safe)) - (##vector-ref _g306530_ 1)))) + (##vector-ref _g161801_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl301080301150_)) - (letrec ((_loop301081301153_ - (lambda (_hd301079301157_ - _arity301085301160_) + (gx#stx-null? _tl160919160989_)) + (letrec ((_loop160920160992_ + (lambda (_hd160918160996_ + _arity160924160999_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd301079301157_)) - (let ((_e301082301163_ + _hd160918160996_)) + (let ((_e160921161002_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd301079301157_)))) - (let ((_lp-hd301083301167_ - (let () (declare (not safe)) (##car _e301082301163_))) - (_lp-tl301084301170_ + (gx#syntax-e _hd160918160996_)))) + (let ((_lp-hd160922161006_ + (let () (declare (not safe)) (##car _e160921161002_))) + (_lp-tl160923161009_ (let () (declare (not safe)) - (##cdr _e301082301163_)))) - (_loop301081301153_ - _lp-tl301084301170_ + (##cdr _e160921161002_)))) + (_loop160920160992_ + _lp-tl160923161009_ (let () (declare (not safe)) - (cons _lp-hd301083301167_ _arity301085301160_))))) - (let ((_arity301086301173_ (reverse _arity301085301160_))) - (_loop301067301115_ - _lp-tl301070301134_ + (cons _lp-hd160922161006_ _arity160924160999_))))) + (let ((_arity160925161012_ (reverse _arity160924160999_))) + (_loop160906160954_ + _lp-tl160909160973_ (let () (declare (not safe)) - (cons _arity301086301173_ _arity301071301122_)) + (cons _arity160925161012_ _arity160910160961_)) (let () (declare (not safe)) - (cons _hd301076301141_ _prim301072301124_)))))))) + (cons _hd160915160980_ _prim160911160963_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop301081301153_ - _target301078301147_ + (_loop160920160992_ + _target160917160986_ '())) - (_g301057301092_ _g301058301096_))))) - (_g301057301092_ _g301058301096_)))) - (_g301057301092_ _g301058301096_)))) - (let ((_arity301073301177_ (reverse _arity301071301122_)) - (_prim301074301180_ (reverse _prim301072301124_))) - ((lambda (_L301183_ _L301185_) - (let ((__tmp306529 + (_g160896160931_ _g160897160935_))))) + (_g160896160931_ _g160897160935_)))) + (_g160896160931_ _g160897160935_)))) + (let ((_arity160912161016_ (reverse _arity160910160961_)) + (_prim160913161019_ (reverse _prim160911160963_))) + ((lambda (_L161022_ _L161024_) + (let ((__tmp161800 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp306522 + (__tmp161793 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L301183_ - _L301185_)) - (let ((__tmp306523 - (lambda (_g301200301206_ - _g301201301209_ - _g301202301211_) - (let ((__tmp306524 - (let ((__tmp306528 + _L161022_ + _L161024_)) + (let ((__tmp161794 + (lambda (_g161039161045_ + _g161040161048_ + _g161041161050_) + (let ((__tmp161795 + (let ((__tmp161799 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive/unchecked))) - (__tmp306525 - (let ((__tmp306526 - (let ((__tmp306527 + (__tmp161796 + (let ((__tmp161797 + (let ((__tmp161798 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g301203301214_ _g301204301217_) + (lambda (_g161042161053_ _g161043161056_) (let () (declare (not safe)) - (cons _g301203301214_ _g301204301217_))))) + (cons _g161042161053_ _g161043161056_))))) (declare (not safe)) - (foldr1 __tmp306527 '() _g301200301206_)))) + (foldr1 __tmp161798 '() _g161039161045_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g301201301209_ - __tmp306526)))) + (cons _g161040161048_ + __tmp161797)))) (declare (not safe)) - (cons __tmp306528 __tmp306525)))) + (cons __tmp161799 __tmp161796)))) (declare (not safe)) - (cons __tmp306524 _g301202301211_))))) + (cons __tmp161795 _g161041161050_))))) (declare (not safe)) - (foldr2 __tmp306523 '() _L301183_ _L301185_))))) + (foldr2 __tmp161794 '() _L161022_ _L161024_))))) (declare (not safe)) - (cons __tmp306529 __tmp306522))) - _arity301073301177_ - _prim301074301180_)))))) + (cons __tmp161800 __tmp161793))) + _arity160912161016_ + _prim160913161019_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop301067301115_ - _target301064301109_ + (_loop160906160954_ + _target160903160948_ '() '())) - (_g301057301092_ _g301058301096_))))) - (_g301057301092_ _g301058301096_)))) - (_g301057301092_ _g301058301096_))))) - (_g301056301220_ _$stx301053_))))) + (_g160896160931_ _g160897160935_))))) + (_g160896160931_ _g160897160935_)))) + (_g160896160931_ _g160897160935_))))) + (_g160895161059_ _$stx160892_))))) diff --git a/src/bootstrap/gerbil/core$_MOP_$_MOP_2___0.scm b/src/bootstrap/gerbil/core$_MOP_$_MOP_2___0.scm index 827f907c8..c53708ab2 100644 --- a/src/bootstrap/gerbil/core$_MOP_$_MOP_2___0.scm +++ b/src/bootstrap/gerbil/core$_MOP_$_MOP_2___0.scm @@ -1,14 +1,14 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core$$::timestamp 1708102798) + (define gerbil/core$$::timestamp 1708370111) (begin (define gerbil/core$$#class-type-info::t - (let ((__tmp47547 (list))) + (let ((__tmp49651 (list))) (declare (not safe)) (make-class-type 'gerbil.core#class-type-info::t 'class-type-info - __tmp47547 + __tmp49651 '(id name super slots @@ -415,30 +415,30 @@ (declare (not safe)) (##cdr _e1927019289_)))) (if (gx#stx-pair/null? _tl1926819294_) - (let ((_g47548_ + (let ((_g49652_ (gx#syntax-split-splice _tl1926819294_ '0))) (begin - (let ((_g47549_ + (let ((_g49653_ (let () (declare (not safe)) - (if (##values? _g47548_) - (##vector-length _g47548_) + (if (##values? _g49652_) + (##vector-length _g49652_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47549_ 2))) + (##fx= _g49653_ 2))) (error "Context expects 2 values" - _g47549_))) + _g49653_))) (let ((_target1927119297_ (let () (declare (not safe)) - (##vector-ref _g47548_ 0))) + (##vector-ref _g49652_ 0))) (_tl1927319299_ (let () (declare (not safe)) - (##vector-ref _g47548_ 1)))) + (##vector-ref _g49652_ 1)))) (if (gx#stx-null? _tl1927319299_) (letrec ((_loop1927419302_ (lambda (_hd1927219305_ @@ -453,46 +453,45 @@ (let () (declare (not safe)) (##car _e1927519310_))) (_lp-tl1927719315_ (let () (declare (not safe)) (##cdr _e1927519310_)))) - (let ((__tmp47552 + (let ((__tmp49655 (let () (declare (not safe)) (cons _lp-hd1927619313_ _arg1927819307_)))) (declare (not safe)) - (_loop1927419302_ _lp-tl1927719315_ __tmp47552)))) + (_loop1927419302_ _lp-tl1927719315_ __tmp49655)))) (let ((_arg1927919318_ (reverse _arg1927819307_))) ((lambda (_L19321_) (let ((_$e19335_ - (let ((__obj47522 _self19262_)) + (let ((__obj49626 _self19262_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47522 + __obj49626 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47522 + __obj49626 '10 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47522 + __obj49626 'constructor))))) (if _$e19335_ ((lambda (_make19338_) - (let ((__tmp47550 - (let ((__tmp47551 - (lambda (_g1933919342_ + (let ((__tmp49654 + (foldr (lambda (_g1933919342_ _g1934019344_) (let () (declare (not safe)) (cons _g1933919342_ - _g1934019344_))))) - (declare (not safe)) - (foldr1 __tmp47551 '() _L19321_)))) + _g1934019344_))) + '() + _L19321_))) (declare (not safe)) - (cons _make19338_ __tmp47550))) + (cons _make19338_ __tmp49654))) _$e19335_) (gx#raise-syntax-error '#f @@ -517,12 +516,10 @@ (_g1926519284_ _g1926619287_)))))) (declare (not safe)) (_g1926419347_ _stx19263_)))) - (let () - (declare (not safe)) - (bind-method! - gerbil/core$$#class-type-info::t - 'apply-macro-expander - gerbil/core$$#class-type-info::apply-macro-expander)) + (bind-method! + gerbil/core$$#class-type-info::t + 'apply-macro-expander + gerbil/core$$#class-type-info::apply-macro-expander) (define gerbil/core$$#syntax-local-class-type-info?__% (lambda (_stx19243_ _is?19244_) (if (gx#identifier? _stx19243_) @@ -546,24 +543,24 @@ _stx19255_ _is?19257_)))) (define gerbil/core$$#syntax-local-class-type-info? - (lambda _g47554_ - (let ((_g47553_ (let () (declare (not safe)) (##length _g47554_)))) - (cond ((let () (declare (not safe)) (##fx= _g47553_ 1)) + (lambda _g49657_ + (let ((_g49656_ (let () (declare (not safe)) (##length _g49657_)))) + (cond ((let () (declare (not safe)) (##fx= _g49656_ 1)) (apply (lambda (_stx19255_) (let () (declare (not safe)) (gerbil/core$$#syntax-local-class-type-info?__0 _stx19255_))) - _g47554_)) - ((let () (declare (not safe)) (##fx= _g47553_ 2)) + _g49657_)) + ((let () (declare (not safe)) (##fx= _g49656_ 2)) (apply (lambda (_stx19259_ _is?19260_) (let () (declare (not safe)) (gerbil/core$$#syntax-local-class-type-info?__% _stx19259_ _is?19260_))) - _g47554_)) + _g49657_)) (else (##raise-wrong-number-of-arguments-exception gerbil/core$$#syntax-local-class-type-info? - _g47554_)))))))) + _g49657_)))))))) diff --git a/src/bootstrap/gerbil/core$_macro-object___0.scm b/src/bootstrap/gerbil/core$_macro-object___0.scm index a2f5319d4..30f2bafa5 100644 --- a/src/bootstrap/gerbil/core$_macro-object___0.scm +++ b/src/bootstrap/gerbil/core$_macro-object___0.scm @@ -1,14 +1,14 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core$::timestamp 1708102798) + (define gerbil/core$::timestamp 1708370111) (begin (define gerbil/core$#macro-object::t - (let ((__tmp47555 (list))) + (let ((__tmp49658 (list))) (declare (not safe)) (make-class-type 'gerbil.core#macro-object::t 'macro-object - __tmp47555 + __tmp49658 '(macro) '() '#f))) @@ -48,49 +48,51 @@ (define gerbil/core$#macro-object::apply-macro-expander (lambda (_self23414_ _stx23415_) (gx#core-apply-expander - (let ((__obj47528 _self23414_)) + (let ((__obj49632 _self23414_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47528 + __obj49632 'gerbil.core#macro-object::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47528 + __obj49632 '1 gerbil/core$#macro-object::t '#f)) (class-slot-ref gerbil/core$#macro-object::t - __obj47528 + __obj49632 'macro))) _stx23415_))) (define gerbil/core$#macro-object::apply-macro-expander::specialize - (lambda (__t41867) - (let ((__macro41868 - (let ((__tmp41869 + (lambda (__t43971) + (let ((__macro43972 + (let ((__tmp43973 (let () (declare (not safe)) - (class-slot-offset __t41867 'macro)))) - (if __tmp41869 __tmp41869 (error '"Unknown slot" 'macro))))) + (class-slot-offset __t43971 'macro)))) + (if __tmp43973 + __tmp43973 + (let () + (declare (not safe)) + (error '"Unknown slot" 'macro)))))) (lambda (_self23414_ _stx23415_) (gx#core-apply-expander (let () (declare (not safe)) (##unchecked-structure-ref _self23414_ - __macro41868 - __t41867 + __macro43972 + __t43971 '#f)) _stx23415_))))) (bind-specializer! gerbil/core$#macro-object::apply-macro-expander gerbil/core$#macro-object::apply-macro-expander::specialize) - (let () - (declare (not safe)) - (bind-method! - gerbil/core$#macro-object::t - 'apply-macro-expander - gerbil/core$#macro-object::apply-macro-expander - '#f)))) + (bind-method! + gerbil/core$#macro-object::t + 'apply-macro-expander + gerbil/core$#macro-object::apply-macro-expander + '#f))) diff --git a/src/bootstrap/gerbil/core.ssi b/src/bootstrap/gerbil/core.ssi index e396b6e5a..a9b21ef13 100644 --- a/src/bootstrap/gerbil/core.ssi +++ b/src/bootstrap/gerbil/core.ssi @@ -357,6 +357,7 @@ namespace: gerbil/core (make-hash-table-eq make-hash-table-eq) (make-hash-table-eqv make-hash-table-eqv) (hash-table? hash-table?) + (is-hash-table? is-hash-table?) (hash->list hash->list) (hash->plist hash->plist) (list->hash-table list->hash-table) @@ -379,10 +380,8 @@ namespace: gerbil/core (hash-keys hash-keys) (hash-values hash-values) (hash-copy hash-copy) - (hash-copy! hash-copy!) (hash-merge hash-merge) (hash-merge! hash-merge!) - (hash-clear! hash-clear!) (eq?-hash eq?-hash) (eqv?-hash eqv?-hash) (equal?-hash equal?-hash) @@ -422,6 +421,10 @@ namespace: gerbil/core (make-uninterned-keyword make-uninterned-keyword) (symbol->keyword symbol->keyword) (keyword->symbol keyword->symbol) + (make-symbolic-table make-symbolic-table) + (symbolic-table-ref symbolic-table-ref) + (symbolic-table-set! symbolic-table-set!) + (symbolic-table-delete! symbolic-table-delete!) (c4-linearize c4-linearize) (class-type? class-type?) (class-type-id class-type-id) diff --git a/src/bootstrap/gerbil/core.ssxi.ss b/src/bootstrap/gerbil/core.ssxi.ss index dae1ce85f..bd2eb21b3 100644 --- a/src/bootstrap/gerbil/core.ssxi.ss +++ b/src/bootstrap/gerbil/core.ssxi.ss @@ -323,6 +323,11 @@ package: gerbil (declare-type gerbil/core$#macro-object::apply-macro-expander::specialize (@lambda 1 #f)) + (declare-method + gerbil/core$#macro-object::t + apply-macro-expander + gerbil/core$#macro-object::apply-macro-expander + #f) (declare-type |gerbil/core$[1]#match-macro::t| (@class gerbil.core#match-macro::t diff --git a/src/bootstrap/gerbil/core__10.scm b/src/bootstrap/gerbil/core__10.scm index 0284ad0e7..82a48f9f1 100644 --- a/src/bootstrap/gerbil/core__10.scm +++ b/src/bootstrap/gerbil/core__10.scm @@ -1,116 +1,116 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$[1]#_g50098_| + (define |gerbil/core$[1]#_g52018_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50099_| + (define |gerbil/core$[1]#_g52019_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50156_| + (define |gerbil/core$[1]#_g52075_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50157_| + (define |gerbil/core$[1]#_g52076_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50158_| + (define |gerbil/core$[1]#_g52077_| (##structure gx#syntax-quote::t 'apply #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50160_| + (define |gerbil/core$[1]#_g52079_| (##structure gx#syntax-quote::t 'vector #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50161_| + (define |gerbil/core$[1]#_g52080_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50162_| + (define |gerbil/core$[1]#_g52081_| (##structure gx#syntax-quote::t 'box #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50163_| + (define |gerbil/core$[1]#_g52082_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50164_| + (define |gerbil/core$[1]#_g52083_| (##structure gx#syntax-quote::t 'cons* #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50165_| + (define |gerbil/core$[1]#_g52084_| (##structure gx#syntax-quote::t 'cons #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50166_| + (define |gerbil/core$[1]#_g52085_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50167_| + (define |gerbil/core$[1]#_g52086_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50168_| + (define |gerbil/core$[1]#_g52087_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50169_| + (define |gerbil/core$[1]#_g52088_| (##structure gx#syntax-quote::t '? #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50562_| + (define |gerbil/core$[1]#_g52468_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50646_| + (define |gerbil/core$[1]#_g52548_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50666_| + (define |gerbil/core$[1]#_g52568_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50667_| + (define |gerbil/core$[1]#_g52569_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50796_| + (define |gerbil/core$[1]#_g52686_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50797_| + (define |gerbil/core$[1]#_g52687_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50798_| + (define |gerbil/core$[1]#_g52688_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50799_| + (define |gerbil/core$[1]#_g52689_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50800_| + (define |gerbil/core$[1]#_g52690_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) (begin (define |gerbil/core$[1]#match-macro::t| - (let ((__tmp50082 (list gerbil/core$#macro-object::t))) + (let ((__tmp52002 (list gerbil/core$#macro-object::t))) (declare (not safe)) (make-class-type 'gerbil.core#match-macro::t 'match-macro - __tmp50082 + __tmp52002 '() '() '#f))) @@ -150,104 +150,104 @@ (define |gerbil/core$[1]#syntax-local-match-macro?| (lambda (_stx30638_) (if (gx#identifier? _stx30638_) - (let ((__tmp50083 (gx#syntax-local-value _stx30638_ false))) + (let ((__tmp52003 (gx#syntax-local-value _stx30638_ false))) (declare (not safe)) (class-instance? |gerbil/core$[1]#match-macro::t| - __tmp50083)) + __tmp52003)) '#f))) (define |gerbil/core$[1]#parse-match-pattern__%| (lambda (_stx28944_ _match-stx28946_) (letrec ((_parse128948_ (lambda (_hd29301_) - (let* ((___stx4487744878_ _hd29301_) + (let* ((___stx4698146982_ _hd29301_) (_g2932729469_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4487744878_)))) - (let ((___kont4488044881_ + ___stx4698146982_)))) + (let ((___kont4698446985_ (lambda (_L30401_ _L30403_) - (let* ((___stx4479744798_ _L30401_) + (let* ((___stx4690146902_ _L30401_) (_g3042030453_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4479744798_)))) - (let ((___kont4480044801_ + ___stx4690146902_)))) + (let ((___kont4690446905_ (lambda () - (let ((__tmp50084 + (let ((__tmp52004 (let () (declare (not safe)) (cons _L30403_ '())))) (declare (not safe)) - (cons '?: __tmp50084)))) - (___kont4480244803_ + (cons '?: __tmp52004)))) + (___kont4690646907_ (lambda (_L30594_) - (let ((__tmp50085 - (let ((__tmp50086 - (let ((__tmp50087 + (let ((__tmp52005 + (let ((__tmp52006 + (let ((__tmp52007 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (_parse128948_ _L30594_)))) (declare (not safe)) - (cons __tmp50087 '())))) + (cons __tmp52007 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L30403_ - __tmp50086)))) + __tmp52006)))) (declare (not safe)) - (cons '?: __tmp50085)))) - (___kont4480444805_ + (cons '?: __tmp52005)))) + (___kont4690846909_ (lambda (_L30564_) - (let ((__tmp50088 - (let ((__tmp50089 - (let ((__tmp50090 - (let ((__tmp50091 + (let ((__tmp52008 + (let ((__tmp52009 + (let ((__tmp52010 + (let ((__tmp52011 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (_parse128948_ _L30564_)))) (declare (not safe)) - (cons __tmp50091 '())))) + (cons __tmp52011 '())))) (declare (not safe)) - (cons '=>: __tmp50090)))) + (cons '=>: __tmp52010)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L30403_ - __tmp50089)))) + __tmp52009)))) (declare (not safe)) - (cons '?: __tmp50088)))) - (___kont4480644807_ + (cons '?: __tmp52008)))) + (___kont4691046911_ (lambda (_L30515_ _L30517_) - (let ((__tmp50092 - (let ((__tmp50093 - (let ((__tmp50094 - (let ((__tmp50095 + (let ((__tmp52012 + (let ((__tmp52013 + (let ((__tmp52014 + (let ((__tmp52015 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50096 - (let ((__tmp50097 + (let ((__tmp52016 + (let ((__tmp52017 (let () (declare (not safe)) (_parse128948_ _L30515_)))) (declare (not safe)) - (cons __tmp50097 '())))) + (cons __tmp52017 '())))) (declare (not safe)) - (cons '=>: __tmp50096)))) + (cons '=>: __tmp52016)))) (declare (not safe)) - (cons _L30517_ __tmp50095)))) + (cons _L30517_ __tmp52015)))) (declare (not safe)) - (cons ':: __tmp50094)))) + (cons ':: __tmp52014)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L30403_ - __tmp50093)))) + __tmp52013)))) (declare (not safe)) - (cons '?: __tmp50092)))) - (___kont4480844809_ + (cons '?: __tmp52012)))) + (___kont4691246913_ (lambda () (let () (declare (not safe)) @@ -255,10 +255,10 @@ (let ((_g3041630605_ (lambda () (if (gx#stx-pair? - ___stx4479744798_) + ___stx4690146902_) (let ((_e3042530584_ (gx#syntax-e - ___stx4479744798_))) + ___stx4690146902_))) (let ((_tl3042330591_ (let () (declare (not safe)) @@ -269,13 +269,13 @@ (##car _e3042530584_)))) (if (gx#stx-null? _tl3042330591_) - (___kont4480244803_ + (___kont4690646907_ _hd3042430588_) (if (gx#identifier? _hd3042430588_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$[1]#_g50099_| + |gerbil/core$[1]#_g52019_| _hd3042430588_) (if (gx#stx-pair? _tl3042330591_) (let ((_e3043230554_ (gx#syntax-e _tl3042330591_))) @@ -288,10 +288,10 @@ (declare (not safe)) (##car _e3043230554_)))) (if (gx#stx-null? _tl3043030561_) - (___kont4480444805_ _hd3043130558_) - (___kont4480844809_)))) - (___kont4480844809_)) - (___kont4480844809_)) + (___kont4690846909_ _hd3043130558_) + (___kont4691246913_)))) + (___kont4691246913_)) + (___kont4691246913_)) (if (gx#stx-datum? _hd3042430588_) (let ((_e3043830481_ (gx#stx-e _hd3042430588_))) (if (let () @@ -322,7 +322,7 @@ (if (gx#identifier? _hd3044330499_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50098_| + |gerbil/core$[1]#_g52018_| _hd3044330499_) (if (gx#stx-pair? _tl3044230502_) @@ -336,48 +336,48 @@ (declare (not safe)) (##car _e3044730505_)))) (if (gx#stx-null? _tl3044530512_) - (___kont4480644807_ _hd3044630509_ _hd3044030489_) - (___kont4480844809_)))) - (___kont4480844809_)) - (___kont4480844809_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4480844809_)))) - (___kont4480844809_)))) - (___kont4480844809_)) - (___kont4480844809_))) - (___kont4480844809_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4480844809_))))) - (if (gx#stx-null? ___stx4479744798_) - (___kont4480044801_) + (___kont4691046911_ _hd3044630509_ _hd3044030489_) + (___kont4691246913_)))) + (___kont4691246913_)) + (___kont4691246913_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4691246913_)))) + (___kont4691246913_)))) + (___kont4691246913_)) + (___kont4691246913_))) + (___kont4691246913_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4691246913_))))) + (if (gx#stx-null? ___stx4690146902_) + (___kont4690446905_) (let () (declare (not safe)) (_g3041630605_)))))))) - (___kont4488244883_ + (___kont4698646987_ (lambda (_L30306_) - (let* ((___stx4477944780_ _L30306_) + (let* ((___stx4688346884_ _L30306_) (_g3031830329_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4477944780_)))) - (let ((___kont4478244783_ + ___stx4688346884_)))) + (let ((___kont4688646887_ (lambda (_L30357_) (let () (declare (not safe)) (_parse128948_ _L30357_)))) - (___kont4478444785_ + (___kont4688846889_ (lambda () - (let ((__tmp50100 + (let ((__tmp52020 (gx#stx-map _parse128948_ _L30306_))) (declare (not safe)) - (cons 'and: __tmp50100))))) - (if (gx#stx-pair? ___stx4477944780_) + (cons 'and: __tmp52020))))) + (if (gx#stx-pair? ___stx4688346884_) (let ((_e3032330347_ - (gx#syntax-e ___stx4477944780_))) + (gx#syntax-e ___stx4688346884_))) (let ((_tl3032130354_ (let () (declare (not safe)) @@ -387,35 +387,35 @@ (declare (not safe)) (##car _e3032330347_)))) (if (gx#stx-null? _tl3032130354_) - (___kont4478244783_ + (___kont4688646887_ _hd3032230351_) - (___kont4478444785_)))) - (___kont4478444785_)))))) - (___kont4488444885_ + (___kont4688846889_)))) + (___kont4688846889_)))))) + (___kont4698846989_ (lambda (_L30221_) - (let* ((___stx4476144762_ _L30221_) + (let* ((___stx4686546866_ _L30221_) (_g3023330244_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4476144762_)))) - (let ((___kont4476444765_ + ___stx4686546866_)))) + (let ((___kont4686846869_ (lambda (_L30272_) (let () (declare (not safe)) (_parse128948_ _L30272_)))) - (___kont4476644767_ + (___kont4687046871_ (lambda () - (let ((__tmp50101 + (let ((__tmp52021 (gx#stx-map _parse128948_ _L30221_))) (declare (not safe)) - (cons 'or: __tmp50101))))) - (if (gx#stx-pair? ___stx4476144762_) + (cons 'or: __tmp52021))))) + (if (gx#stx-pair? ___stx4686546866_) (let ((_e3023830262_ - (gx#syntax-e ___stx4476144762_))) + (gx#syntax-e ___stx4686546866_))) (let ((_tl3023630269_ (let () (declare (not safe)) @@ -425,255 +425,254 @@ (declare (not safe)) (##car _e3023830262_)))) (if (gx#stx-null? _tl3023630269_) - (___kont4476444765_ + (___kont4686846869_ _hd3023730266_) - (___kont4476644767_)))) - (___kont4476644767_)))))) - (___kont4488644887_ + (___kont4687046871_)))) + (___kont4687046871_)))))) + (___kont4699046991_ (lambda (_L30191_) - (let ((__tmp50102 - (let ((__tmp50103 + (let ((__tmp52022 + (let ((__tmp52023 (let () (declare (not safe)) (_parse128948_ _L30191_)))) (declare (not safe)) - (cons __tmp50103 '())))) + (cons __tmp52023 '())))) (declare (not safe)) - (cons 'not: __tmp50102)))) - (___kont4488844889_ + (cons 'not: __tmp52022)))) + (___kont4699246993_ (lambda (_L30147_ _L30149_) - (let ((__tmp50104 - (let ((__tmp50107 + (let ((__tmp52024 + (let ((__tmp52027 (let () (declare (not safe)) (_parse128948_ _L30149_))) - (__tmp50105 - (let ((__tmp50106 + (__tmp52025 + (let ((__tmp52026 (let () (declare (not safe)) (_parse128948_ _L30147_)))) (declare (not safe)) - (cons __tmp50106 '())))) + (cons __tmp52026 '())))) (declare (not safe)) - (cons __tmp50107 __tmp50105)))) + (cons __tmp52027 __tmp52025)))) (declare (not safe)) - (cons 'cons: __tmp50104)))) - (___kont4489044891_ + (cons 'cons: __tmp52024)))) + (___kont4699446995_ (lambda (_L30091_ _L30093_ _L30094_) (if (gx#stx-null? _L30091_) - (let ((__tmp50115 - (let ((__tmp50118 + (let ((__tmp52035 + (let ((__tmp52038 (let () (declare (not safe)) (_parse128948_ _L30094_))) - (__tmp50116 - (let ((__tmp50117 + (__tmp52036 + (let ((__tmp52037 (let () (declare (not safe)) (_parse128948_ _L30093_)))) (declare (not safe)) - (cons __tmp50117 '())))) + (cons __tmp52037 '())))) (declare (not safe)) - (cons __tmp50118 __tmp50116)))) + (cons __tmp52038 __tmp52036)))) (declare (not safe)) - (cons 'cons: __tmp50115)) - (let ((__tmp50108 - (let ((__tmp50114 + (cons 'cons: __tmp52035)) + (let ((__tmp52028 + (let ((__tmp52034 (let () (declare (not safe)) (_parse128948_ _L30094_))) - (__tmp50109 - (let ((__tmp50110 - (let ((__tmp50111 - (let ((__tmp50113 + (__tmp52029 + (let ((__tmp52030 + (let ((__tmp52031 + (let ((__tmp52033 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'cons*)) - (__tmp50112 + (__tmp52032 (let () (declare (not safe)) (cons _L30093_ _L30091_)))) (declare (not safe)) - (cons __tmp50113 __tmp50112)))) + (cons __tmp52033 __tmp52032)))) (declare (not safe)) - (_parse128948_ __tmp50111)))) + (_parse128948_ __tmp52031)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50110 '())))) + (cons __tmp52030 '())))) (declare (not safe)) - (cons __tmp50114 __tmp50109)))) + (cons __tmp52034 __tmp52029)))) (declare (not safe)) - (cons 'cons: __tmp50108))))) - (___kont4489244893_ + (cons 'cons: __tmp52028))))) + (___kont4699646997_ (lambda (_L30043_) (let () (declare (not safe)) (_parse-list28950_ _L30043_)))) - (___kont4489444895_ + (___kont4699846999_ (lambda (_L30013_) - (let ((__tmp50119 - (let ((__tmp50120 + (let ((__tmp52039 + (let ((__tmp52040 (let () (declare (not safe)) (_parse128948_ _L30013_)))) (declare (not safe)) - (cons __tmp50120 '())))) + (cons __tmp52040 '())))) (declare (not safe)) - (cons 'box: __tmp50119)))) - (___kont4489644897_ + (cons 'box: __tmp52039)))) + (___kont4700047001_ (lambda (_L29976_) - (let ((__tmp50121 - (let ((__tmp50122 + (let ((__tmp52041 + (let ((__tmp52042 (let () (declare (not safe)) (_parse128948_ _L29976_)))) (declare (not safe)) - (cons __tmp50122 '())))) + (cons __tmp52042 '())))) (declare (not safe)) - (cons 'box: __tmp50121)))) - (___kont4489844899_ + (cons 'box: __tmp52041)))) + (___kont4700247003_ (lambda (_L29952_) (let () (declare (not safe)) (_parse128948_ _L29952_)))) - (___kont4490044901_ + (___kont4700447005_ (lambda (_L29914_) - (let ((__tmp50123 - (let ((__tmp50124 + (let ((__tmp52043 + (let ((__tmp52044 (let () (declare (not safe)) (_parse-vector28951_ _L29914_)))) (declare (not safe)) - (cons __tmp50124 '())))) + (cons __tmp52044 '())))) (declare (not safe)) - (cons 'values: __tmp50123)))) - (___kont4490244903_ + (cons 'values: __tmp52043)))) + (___kont4700647007_ (lambda (_L29886_) - (let ((__tmp50125 - (let ((__tmp50126 + (let ((__tmp52045 + (let ((__tmp52046 (let () (declare (not safe)) (_parse-vector28951_ _L29886_)))) (declare (not safe)) - (cons __tmp50126 '())))) + (cons __tmp52046 '())))) (declare (not safe)) - (cons 'vector: __tmp50125)))) - (___kont4490444905_ + (cons 'vector: __tmp52045)))) + (___kont4700847009_ (lambda (_L29847_) - (let ((__tmp50127 - (let ((__tmp50128 - (let ((__tmp50129 - (let ((__tmp50130 - (lambda (_g2986029863_ + (let ((__tmp52047 + (let ((__tmp52048 + (let ((__tmp52049 + (foldr (lambda (_g2986029863_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2986129866_) (let () (declare (not safe)) - (cons _g2986029863_ _g2986129866_))))) - (declare (not safe)) - (foldr1 __tmp50130 '() _L29847_)))) + (cons _g2986029863_ _g2986129866_))) + '() + _L29847_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (_parse-vector28951_ - __tmp50129)))) + __tmp52049)))) (declare (not safe)) - (cons __tmp50128 '())))) + (cons __tmp52048 '())))) (declare (not safe)) - (cons 'vector: __tmp50127)))) - (___kont4490844909_ + (cons 'vector: __tmp52047)))) + (___kont4701247013_ (lambda (_L29793_ _L29795_) - (let ((__tmp50131 - (let ((__tmp50134 + (let ((__tmp52050 + (let ((__tmp52053 (gx#syntax-local-value _L29795_)) - (__tmp50132 - (let ((__tmp50133 + (__tmp52051 + (let ((__tmp52052 (let () (declare (not safe)) (_parse-vector28951_ _L29793_)))) (declare (not safe)) - (cons __tmp50133 '())))) + (cons __tmp52052 '())))) (declare (not safe)) - (cons __tmp50134 __tmp50132)))) + (cons __tmp52053 __tmp52051)))) (declare (not safe)) - (cons 'struct: __tmp50131)))) - (___kont4491044911_ + (cons 'struct: __tmp52050)))) + (___kont4701447015_ (lambda (_L29763_ _L29765_) - (let ((__tmp50135 - (let ((__tmp50138 + (let ((__tmp52054 + (let ((__tmp52057 (gx#syntax-local-value _L29765_)) - (__tmp50136 - (let ((__tmp50137 + (__tmp52055 + (let ((__tmp52056 (let () (declare (not safe)) (_parse-class-body28953_ _L29763_)))) (declare (not safe)) - (cons __tmp50137 '())))) + (cons __tmp52056 '())))) (declare (not safe)) - (cons __tmp50138 __tmp50136)))) + (cons __tmp52057 __tmp52055)))) (declare (not safe)) - (cons 'class: __tmp50135)))) - (___kont4491244913_ + (cons 'class: __tmp52054)))) + (___kont4701647017_ (lambda (_L29723_ _L29725_) - (let ((__tmp50139 - (let ((__tmp50140 - (let ((__tmp50145 + (let ((__tmp52058 + (let ((__tmp52059 + (let ((__tmp52064 (gx#datum->syntax '#f 'cut)) - (__tmp50141 - (let ((__tmp50142 - (let ((__tmp50144 + (__tmp52060 + (let ((__tmp52061 + (let ((__tmp52063 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '<>)) - (__tmp50143 + (__tmp52062 (let () (declare (not safe)) (cons _L29723_ '())))) (declare (not safe)) - (cons __tmp50144 __tmp50143)))) + (cons __tmp52063 __tmp52062)))) (declare (not safe)) - (cons _L29725_ __tmp50142)))) + (cons _L29725_ __tmp52061)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50145 __tmp50141)))) + (cons __tmp52064 __tmp52060)))) (declare (not safe)) - (cons __tmp50140 '())))) + (cons __tmp52059 '())))) (declare (not safe)) - (cons '?: __tmp50139)))) - (___kont4491444915_ + (cons '?: __tmp52058)))) + (___kont4701847019_ (lambda (_L29683_) - (let ((__tmp50146 - (let ((__tmp50147 (gx#stx-e _L29683_))) + (let ((__tmp52065 + (let ((__tmp52066 (gx#stx-e _L29683_))) (declare (not safe)) - (cons __tmp50147 '())))) + (cons __tmp52066 '())))) (declare (not safe)) - (cons 'datum: __tmp50146)))) - (___kont4491644917_ + (cons 'datum: __tmp52065)))) + (___kont4702047021_ (lambda (_L29643_) (let () (declare (not safe)) (_parse-qq28954_ _L29643_)))) - (___kont4491844919_ + (___kont4702247023_ (lambda (_L29599_ _L29601_) - (let ((__tmp50148 - (let ((__tmp50149 - (let ((__tmp50150 + (let ((__tmp52067 + (let ((__tmp52068 + (let ((__tmp52069 (let () (declare (not safe)) (_parse128948_ _L29599_)))) (declare (not safe)) - (cons __tmp50150 '())))) + (cons __tmp52069 '())))) (declare (not safe)) - (cons _L29601_ __tmp50149)))) + (cons _L29601_ __tmp52068)))) (declare (not safe)) - (cons 'apply: __tmp50148)))) - (___kont4492044921_ + (cons 'apply: __tmp52067)))) + (___kont4702447025_ (lambda (_L29547_) - (let ((__tmp50151 + (let ((__tmp52070 (gx#core-apply-expander (gx#syntax-local-e _L29547_) (gx#stx-wrap-source @@ -686,58 +685,58 @@ _$e29558_ (gx#stx-source _stx28944_))))))) (declare (not safe)) - (_parse128948_ __tmp50151)))) - (___kont4492244923_ + (_parse128948_ __tmp52070)))) + (___kont4702647027_ (lambda (_L29521_) (let () (declare (not safe)) (cons 'any: '())))) - (___kont4492444925_ + (___kont4702847029_ (lambda (_L29505_) - (let ((__tmp50152 + (let ((__tmp52071 (let () (declare (not safe)) (cons _L29505_ '())))) (declare (not safe)) - (cons 'var: __tmp50152)))) - (___kont4492644927_ + (cons 'var: __tmp52071)))) + (___kont4703047031_ (lambda (_L29487_) - (let ((__tmp50153 - (let ((__tmp50154 (gx#stx-e _L29487_))) + (let ((__tmp52072 + (let ((__tmp52073 (gx#stx-e _L29487_))) (declare (not safe)) - (cons __tmp50154 '())))) + (cons __tmp52073 '())))) (declare (not safe)) - (cons 'datum: __tmp50153)))) - (___kont4492844929_ + (cons 'datum: __tmp52072)))) + (___kont4703247033_ (lambda () (let () (declare (not safe)) (_parse-error28955_ _hd29301_))))) (let* ((_g2932529498_ (lambda () - (let ((_L29487_ ___stx4487744878_)) + (let ((_L29487_ ___stx4698146982_)) (if (gx#stx-datum? _L29487_) - (___kont4492644927_ _L29487_) - (___kont4492844929_))))) + (___kont4703047031_ _L29487_) + (___kont4703247033_))))) (_g2932429514_ (lambda () - (let ((_L29505_ ___stx4487744878_)) + (let ((_L29505_ ___stx4698146982_)) (if (and (gx#identifier? _L29505_) - (let ((__tmp50155 + (let ((__tmp52074 (gx#ellipsis? _L29505_))) (declare (not safe)) - (not __tmp50155))) - (___kont4492444925_ _L29505_) + (not __tmp52074))) + (___kont4702847029_ _L29505_) (let () (declare (not safe)) (_g2932529498_)))))) (_g2932329530_ (lambda () - (let ((_L29521_ ___stx4487744878_)) + (let ((_L29521_ ___stx4698146982_)) (if (gx#underscore? _L29521_) - (___kont4492244923_ _L29521_) + (___kont4702647027_ _L29521_) (let () (declare (not safe)) (_g2932429514_)))))) - (___match4520445205_ + (___match4730847309_ (lambda (_e2946029537_ _hd2945929541_ _tl2945829544_) @@ -746,11 +745,11 @@ (declare (not safe)) (|gerbil/core$[1]#syntax-local-match-macro?| _L29547_)) - (___kont4492044921_ _L29547_) + (___kont4702447025_ _L29547_) (let () (declare (not safe)) (_g2932329530_)))))) - (___match4513845139_ + (___match4724247243_ (lambda (_e2942829703_ _hd2942729707_ _tl2942629710_ @@ -771,27 +770,27 @@ (gx#datum->syntax '#f 'equal?)))) - (___kont4491244913_ _L29723_ _L29725_) + (___kont4701647017_ _L29723_ _L29725_) (if (gx#identifier? _hd2942729707_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50157_| + |gerbil/core$[1]#_g52076_| _hd2942729707_) - (___kont4491444915_ + (___kont4701847019_ _hd2943029717_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50156_| + |gerbil/core$[1]#_g52075_| _hd2942729707_) - (___kont4491644917_ + (___kont4702047021_ _hd2943029717_) - (___match4520445205_ + (___match4730847309_ _e2942829703_ _hd2942729707_ _tl2942629710_))) - (___match4520445205_ + (___match4730847309_ _e2942829703_ _hd2942729707_ _tl2942629710_)))))) - (___match4512445125_ + (___match4722847229_ (lambda (_e2942329753_ _hd2942229757_ _tl2942129760_) @@ -801,7 +800,7 @@ (declare (not safe)) (gerbil/core$$#syntax-local-class-type-info?__0 _L29765_)) - (___kont4491044911_ _L29763_ _L29765_) + (___kont4701447015_ _L29763_ _L29765_) (if (gx#stx-pair? _tl2942129760_) (let ((_e2943129713_ (gx#syntax-e @@ -816,7 +815,7 @@ (##car _e2943129713_)))) (if (gx#stx-null? _tl2942929720_) - (___match4513845139_ + (___match4724247243_ _e2942329753_ _hd2942229757_ _tl2942129760_ @@ -826,22 +825,22 @@ (if (gx#identifier? _hd2942229757_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50157_| + |gerbil/core$[1]#_g52076_| _hd2942229757_) - (___match4520445205_ + (___match4730847309_ _e2942329753_ _hd2942229757_ _tl2942129760_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$[1]#_g50156_| + |gerbil/core$[1]#_g52075_| _hd2942229757_) - (___match4520445205_ + (___match4730847309_ _e2942329753_ _hd2942229757_ _tl2942129760_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50158_| + |gerbil/core$[1]#_g52077_| _hd2942229757_) (if (gx#stx-pair? _tl2942929720_) (let ((_e2945629589_ @@ -855,31 +854,31 @@ (declare (not safe)) (##car _e2945629589_)))) (if (gx#stx-null? _tl2945429596_) - (___kont4491844919_ + (___kont4702247023_ _hd2945529593_ _hd2943029717_) - (___match4520445205_ + (___match4730847309_ _e2942329753_ _hd2942229757_ _tl2942129760_)))) - (___match4520445205_ + (___match4730847309_ _e2942329753_ _hd2942229757_ _tl2942129760_)) - (___match4520445205_ + (___match4730847309_ _e2942329753_ _hd2942229757_ _tl2942129760_)))) - (___match4520445205_ + (___match4730847309_ _e2942329753_ _hd2942229757_ _tl2942129760_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match4520445205_ + (___match4730847309_ _e2942329753_ _hd2942229757_ _tl2942129760_)))))) - (___match4511845119_ + (___match4722247223_ (lambda (_e2941829783_ _hd2941729787_ _tl2941629790_) @@ -890,14 +889,14 @@ (gerbil/core$$#syntax-local-class-type-info?__% _L29795_ gerbil/core$$#!class-type-struct?)) - (___kont4490844909_ _L29793_ _L29795_) - (___match4512445125_ + (___kont4701247013_ _L29793_ _L29795_) + (___match4722847229_ _e2941829783_ _hd2941729787_ _tl2941629790_))))) - (___match4511245113_ + (___match4721647217_ (lambda (_e2940429813_ - ___splice4490644907_ + ___splice4701047011_ _target2940529817_ _tl2940729820_) (letrec ((_loop2940829823_ @@ -917,18 +916,18 @@ (declare (not safe)) (##car _e2940929833_)))) - (let ((__tmp50159 + (let ((__tmp52078 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _lp-hd2941029837_ _body2941229830_)))) (declare (not safe)) - (_loop2940829823_ _lp-tl2941129840_ __tmp50159)))) + (_loop2940829823_ _lp-tl2941129840_ __tmp52078)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_body2941329843_ (reverse _body2941229830_))) - (___kont4490444905_ + (___kont4700847009_ _body2941329843_)))))) (let () (declare (not safe)) @@ -937,13 +936,13 @@ '()))))) (_g2931529869_ (lambda () - (if (gx#stx-vector? ___stx4487744878_) + (if (gx#stx-vector? ___stx4698146982_) (let ((_e2940429813_ (vector->list (gx#syntax-e - ___stx4487744878_)))) + ___stx4698146982_)))) (if (gx#stx-pair/null? _e2940429813_) - (let ((___splice4490644907_ + (let ((___splice4701047011_ (gx#syntax-split-splice _e2940429813_ '0))) @@ -951,19 +950,19 @@ (let () (declare (not safe)) (##vector-ref - ___splice4490644907_ + ___splice4701047011_ '1))) (_target2940529817_ (let () (declare (not safe)) (##vector-ref - ___splice4490644907_ + ___splice4701047011_ '0)))) (if (gx#stx-null? _tl2940729820_) - (___match4511245113_ + (___match4721647217_ _e2940429813_ - ___splice4490644907_ + ___splice4701047011_ _target2940529817_ _tl2940729820_) (let () @@ -977,39 +976,39 @@ (_g2932329530_))))) (_g2931129986_ (lambda () - (if (gx#stx-box? ___stx4487744878_) + (if (gx#stx-box? ___stx4698146982_) (let ((_e2938729972_ (unbox (gx#syntax-e - ___stx4487744878_)))) - (___kont4489644897_ _e2938729972_)) + ___stx4698146982_)))) + (___kont4700047001_ _e2938729972_)) (let () (declare (not safe)) (_g2931529869_))))) - (___match4496644967_ + (___match4707047071_ (lambda (_e2934430211_ _hd2934330215_ _tl2934230218_) (let ((_L30221_ _tl2934230218_)) (if (gx#stx-list? _L30221_) - (___kont4488444885_ _L30221_) - (___match4511845119_ + (___kont4698846989_ _L30221_) + (___match4722247223_ _e2934430211_ _hd2934330215_ _tl2934230218_))))) - (___match4495644957_ + (___match4706047061_ (lambda (_e2934030296_ _hd2933930300_ _tl2933830303_) (let ((_L30306_ _tl2933830303_)) (if (gx#stx-list? _L30306_) - (___kont4488244883_ _L30306_) - (___match4511845119_ + (___kont4698646987_ _L30306_) + (___match4722247223_ _e2934030296_ _hd2933930300_ _tl2933830303_)))))) - (if (gx#stx-pair? ___stx4487744878_) + (if (gx#stx-pair? ___stx4698146982_) (let ((_e2933330381_ - (gx#syntax-e ___stx4487744878_))) + (gx#syntax-e ___stx4698146982_))) (let ((_tl2933130388_ (let () (declare (not safe)) @@ -1020,7 +1019,7 @@ (##car _e2933330381_)))) (if (gx#identifier? _hd2933230385_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50169_| + |gerbil/core$[1]#_g52088_| _hd2933230385_) (if (gx#stx-pair? _tl2933130388_) (let ((_e2933630391_ @@ -1034,29 +1033,29 @@ (let () (declare (not safe)) (##car _e2933630391_)))) - (___kont4488044881_ + (___kont4698446985_ _tl2933430398_ _hd2933530395_))) - (___match4511845119_ + (___match4722247223_ _e2933330381_ _hd2933230385_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50168_| + |gerbil/core$[1]#_g52087_| _hd2933230385_) - (___match4495644957_ + (___match4706047061_ _e2933330381_ _hd2933230385_ _tl2933130388_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50167_| + |gerbil/core$[1]#_g52086_| _hd2933230385_) - (___match4496644967_ + (___match4707047071_ _e2933330381_ _hd2933230385_ _tl2933130388_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50166_| + |gerbil/core$[1]#_g52085_| _hd2933230385_) (if (gx#stx-pair? _tl2933130388_) @@ -1070,17 +1069,17 @@ (declare (not safe)) (##car _e2935130181_)))) (if (gx#stx-null? _tl2934930188_) - (___kont4488644887_ _hd2935030185_) - (___match4511845119_ + (___kont4699046991_ _hd2935030185_) + (___match4722247223_ _e2933330381_ _hd2933230385_ _tl2933130388_)))) - (___match4511845119_ + (___match4722247223_ _e2933330381_ _hd2933230385_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50165_| + |gerbil/core$[1]#_g52084_| _hd2933230385_) (if (gx#stx-pair? _tl2933130388_) (let ((_e2935930127_ (gx#syntax-e _tl2933130388_))) @@ -1104,23 +1103,23 @@ (declare (not safe)) (##car _e2936230137_)))) (if (gx#stx-null? _tl2936030144_) - (___kont4488844889_ + (___kont4699246993_ _hd2936130141_ _hd2935830131_) - (___match4511845119_ + (___match4722247223_ _e2933330381_ _hd2933230385_ _tl2933130388_)))) - (___match4511845119_ + (___match4722247223_ _e2933330381_ _hd2933230385_ _tl2933130388_)))) - (___match4511845119_ + (___match4722247223_ _e2933330381_ _hd2933230385_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50164_| + |gerbil/core$[1]#_g52083_| _hd2933230385_) (if (gx#stx-pair? _tl2933130388_) (let ((_e2937130071_ (gx#syntax-e _tl2933130388_))) @@ -1143,24 +1142,24 @@ (let () (declare (not safe)) (##car _e2937430081_)))) - (___kont4489044891_ + (___kont4699446995_ _tl2937230088_ _hd2937330085_ _hd2937030075_))) - (___match4511845119_ + (___match4722247223_ _e2933330381_ _hd2933230385_ _tl2933130388_)))) - (___match4511845119_ + (___match4722247223_ _e2933330381_ _hd2933230385_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50163_| + |gerbil/core$[1]#_g52082_| _hd2933230385_) - (___kont4489244893_ _tl2933130388_) + (___kont4699646997_ _tl2933130388_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50162_| + |gerbil/core$[1]#_g52081_| _hd2933230385_) (if (gx#stx-pair? _tl2933130388_) (let ((_e2938530003_ @@ -1174,17 +1173,17 @@ (declare (not safe)) (##car _e2938530003_)))) (if (gx#stx-null? _tl2938330010_) - (___kont4489444895_ _hd2938430007_) - (___match4511845119_ + (___kont4699846999_ _hd2938430007_) + (___match4722247223_ _e2933330381_ _hd2933230385_ _tl2933130388_)))) - (___match4511845119_ + (___match4722247223_ _e2933330381_ _hd2933230385_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50161_| + |gerbil/core$[1]#_g52080_| _hd2933230385_) (if (gx#stx-pair? _tl2933130388_) (let ((_e2939429942_ @@ -1198,21 +1197,21 @@ (declare (not safe)) (##car _e2939429942_)))) (if (gx#stx-null? _tl2939229949_) - (___kont4489844899_ + (___kont4700247003_ _hd2939329946_) - (___kont4490044901_ + (___kont4700447005_ _tl2933130388_)))) - (___kont4490044901_ _tl2933130388_)) + (___kont4700447005_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50160_| + |gerbil/core$[1]#_g52079_| _hd2933230385_) - (___kont4490244903_ _tl2933130388_) - (___match4511845119_ + (___kont4700647007_ _tl2933130388_) + (___match4722247223_ _e2933330381_ _hd2933230385_ _tl2933130388_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match4511845119_ + (___match4722247223_ _e2933330381_ _hd2933230385_ _tl2933130388_)))) @@ -1221,85 +1220,85 @@ (_g2931129986_)))))))) (_parse-list28950_ (lambda (_body29130_) - (let* ((___stx4520745208_ _body29130_) + (let* ((___stx4731147312_ _body29130_) (_g2913629165_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4520745208_)))) - (let ((___kont4521045211_ + ___stx4731147312_)))) + (let ((___kont4731447315_ (lambda (_L29283_) (let () (declare (not safe)) (_parse128948_ _L29283_)))) - (___kont4521245213_ + (___kont4731647317_ (lambda (_L29235_ _L29237_ _L29238_) - (let ((__tmp50170 - (let ((__tmp50173 + (let ((__tmp52089 + (let ((__tmp52092 (let () (declare (not safe)) (_parse128948_ _L29238_))) - (__tmp50171 - (let ((__tmp50172 + (__tmp52090 + (let ((__tmp52091 (let () (declare (not safe)) (_parse-list28950_ _L29235_)))) (declare (not safe)) - (cons __tmp50172 '())))) + (cons __tmp52091 '())))) (declare (not safe)) - (cons __tmp50173 __tmp50171)))) + (cons __tmp52092 __tmp52090)))) (declare (not safe)) - (cons 'splice: __tmp50170)))) - (___kont4521445215_ + (cons 'splice: __tmp52089)))) + (___kont4731847319_ (lambda (_L29193_ _L29195_) - (let ((__tmp50174 - (let ((__tmp50177 + (let ((__tmp52093 + (let ((__tmp52096 (let () (declare (not safe)) (_parse128948_ _L29195_))) - (__tmp50175 - (let ((__tmp50176 + (__tmp52094 + (let ((__tmp52095 (let () (declare (not safe)) (_parse-list28950_ _L29193_)))) (declare (not safe)) - (cons __tmp50176 '())))) + (cons __tmp52095 '())))) (declare (not safe)) - (cons __tmp50177 __tmp50175)))) + (cons __tmp52096 __tmp52094)))) (declare (not safe)) - (cons 'cons: __tmp50174)))) - (___kont4521645217_ + (cons 'cons: __tmp52093)))) + (___kont4732047321_ (lambda () (if (gx#stx-null? _body29130_) (let () (declare (not safe)) (cons 'null: '())) - (if (let ((__tmp50178 + (if (let ((__tmp52097 (gx#stx-pair? _body29130_))) (declare (not safe)) - (not __tmp50178)) + (not __tmp52097)) (let () (declare (not safe)) (_parse128948_ _body29130_)) (let () (declare (not safe)) (_parse-error28955_ _body29130_))))))) - (let* ((___match4525645257_ + (let* ((___match4736047361_ (lambda (_e2915929183_ _hd2915829187_ _tl2915729190_) (let ((_L29193_ _tl2915729190_) (_L29195_ _hd2915829187_)) - (if (let ((__tmp50179 + (if (let ((__tmp52098 (gx#ellipsis? _L29195_))) (declare (not safe)) - (not __tmp50179)) - (___kont4521445215_ _L29193_ _L29195_) - (___kont4521645217_))))) - (___match4525045251_ + (not __tmp52098)) + (___kont4731847319_ _L29193_ _L29195_) + (___kont4732047321_))))) + (___match4735447355_ (lambda (_e2915129215_ _hd2915029219_ _tl2914929222_ @@ -1310,17 +1309,17 @@ (_L29237_ _hd2915329229_) (_L29238_ _hd2915029219_)) (if (gx#ellipsis? _L29237_) - (___kont4521245213_ + (___kont4731647317_ _L29235_ _L29237_ _L29238_) - (___match4525645257_ + (___match4736047361_ _e2915129215_ _hd2915029219_ _tl2914929222_)))))) - (if (gx#stx-pair? ___stx4520745208_) + (if (gx#stx-pair? ___stx4731147312_) (let ((_e2914129259_ - (gx#syntax-e ___stx4520745208_))) + (gx#syntax-e ___stx4731147312_))) (let ((_tl2913929266_ (let () (declare (not safe)) @@ -1349,16 +1348,16 @@ (##car _e2914529273_)))) (if (gx#stx-null? _tl2914329280_) - (___kont4521045211_ + (___kont4731447315_ _hd2914429277_) - (___match4525045251_ + (___match4735447355_ _e2914129259_ _hd2914029263_ _tl2913929266_ _e2914529273_ _hd2914429277_ _tl2914329280_)))) - (___match4525645257_ + (___match4736047361_ _e2914129259_ _hd2914029263_ _tl2913929266_)) @@ -1374,14 +1373,14 @@ (let () (declare (not safe)) (##car _e2915429225_)))) - (___match4525045251_ + (___match4735447355_ _e2914129259_ _hd2914029263_ _tl2913929266_ _e2915429225_ _hd2915329229_ _tl2915229232_))) - (___match4525645257_ + (___match4736047361_ _e2914129259_ _hd2914029263_ _tl2913929266_)))) @@ -1396,62 +1395,62 @@ (let () (declare (not safe)) (##car _e2915429225_)))) - (___match4525045251_ + (___match4735447355_ _e2914129259_ _hd2914029263_ _tl2913929266_ _e2915429225_ _hd2915329229_ _tl2915229232_))) - (___match4525645257_ + (___match4736047361_ _e2914129259_ _hd2914029263_ _tl2913929266_))))) - (___kont4521645217_))))))) + (___kont4732047321_))))))) (_parse-vector28951_ (lambda (_body29127_) (if (let () (declare (not safe)) (_simple-vector?28952_ _body29127_)) - (let ((__tmp50182 - (let ((__tmp50183 + (let ((__tmp52101 + (let ((__tmp52102 (gx#stx-map _parse128948_ _body29127_))) (declare (not safe)) - (cons __tmp50183 '())))) + (cons __tmp52102 '())))) (declare (not safe)) - (cons 'simple: __tmp50182)) - (let ((__tmp50180 - (let ((__tmp50181 + (cons 'simple: __tmp52101)) + (let ((__tmp52099 + (let ((__tmp52100 (let () (declare (not safe)) (_parse-list28950_ _body29127_)))) (declare (not safe)) - (cons __tmp50181 '())))) + (cons __tmp52100 '())))) (declare (not safe)) - (cons 'list: __tmp50180))))) + (cons 'list: __tmp52099))))) (_simple-vector?28952_ (lambda (_body29064_) - (let* ((___stx4525945260_ _body29064_) + (let* ((___stx4736347364_ _body29064_) (_g2906829080_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4525945260_)))) - (let ((___kont4526245263_ + ___stx4736347364_)))) + (let ((___kont4736647367_ (lambda (_L29108_ _L29110_) - (if (let ((__tmp50184 (gx#ellipsis? _L29110_))) + (if (let ((__tmp52103 (gx#ellipsis? _L29110_))) (declare (not safe)) - (not __tmp50184)) + (not __tmp52103)) (let () (declare (not safe)) (_simple-vector?28952_ _L29108_)) '#f))) - (___kont4526445265_ + (___kont4736847369_ (lambda () (gx#stx-null? _body29064_)))) - (if (gx#stx-pair? ___stx4525945260_) + (if (gx#stx-pair? ___stx4736347364_) (let ((_e2907429098_ - (gx#syntax-e ___stx4525945260_))) + (gx#syntax-e ___stx4736347364_))) (let ((_tl2907229105_ (let () (declare (not safe)) @@ -1460,43 +1459,43 @@ (let () (declare (not safe)) (##car _e2907429098_)))) - (___kont4526245263_ + (___kont4736647367_ _tl2907229105_ _hd2907329102_))) - (___kont4526445265_)))))) + (___kont4736847369_)))))) (_parse-class-body28953_ (lambda (_body28973_) (let _recur28976_ ((_rest28979_ _body28973_)) - (let* ((___stx4527545276_ _rest28979_) + (let* ((___stx4737947380_ _rest28979_) (_g2898328999_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4527545276_)))) - (let ((___kont4527845279_ + ___stx4737947380_)))) + (let ((___kont4738247383_ (lambda (_L29037_ _L29039_ _L29040_) - (let ((__tmp50185 - (let ((__tmp50187 + (let ((__tmp52104 + (let ((__tmp52106 (let () (declare (not safe)) (_parse128948_ _L29039_))) - (__tmp50186 + (__tmp52105 (let () (declare (not safe)) (_recur28976_ _L29037_)))) (declare (not safe)) - (cons __tmp50187 __tmp50186)))) + (cons __tmp52106 __tmp52105)))) (declare (not safe)) - (cons _L29040_ __tmp50185)))) - (___kont4528045281_ + (cons _L29040_ __tmp52104)))) + (___kont4738447385_ (lambda () (if (gx#stx-null? _rest28979_) '() (let () (declare (not safe)) (_parse-error28955_ _rest28979_)))))) - (let ((___match4529445295_ + (let ((___match4739847399_ (lambda (_e2899029017_ _hd2898929021_ _tl2898829024_ @@ -1507,14 +1506,14 @@ (_L29039_ _hd2899229031_) (_L29040_ _hd2898929021_)) (if (gx#stx-keyword? _L29040_) - (___kont4527845279_ + (___kont4738247383_ _L29037_ _L29039_ _L29040_) - (___kont4528045281_)))))) - (if (gx#stx-pair? ___stx4527545276_) + (___kont4738447385_)))))) + (if (gx#stx-pair? ___stx4737947380_) (let ((_e2899029017_ - (gx#syntax-e ___stx4527545276_))) + (gx#syntax-e ___stx4737947380_))) (let ((_tl2898829024_ (let () (declare (not safe)) @@ -1534,15 +1533,15 @@ (let () (declare (not safe)) (##car _e2899329027_)))) - (___match4529445295_ + (___match4739847399_ _e2899029017_ _hd2898929021_ _tl2898829024_ _e2899329027_ _hd2899229031_ _tl2899129034_))) - (___kont4528045281_)))) - (___kont4528045281_)))))))) + (___kont4738447385_)))) + (___kont4738447385_)))))))) (_parse-qq28954_ (lambda (_hd28960_) (let ((_g2896228969_ @@ -1559,21 +1558,21 @@ '#f '"bad syntax; illegal pattern" (if _match-stx28946_ - (let ((__tmp50189 - (let ((__tmp50190 + (let ((__tmp52108 + (let ((__tmp52109 (let () (declare (not safe)) (cons _hd28957_ '())))) (declare (not safe)) - (cons _stx28944_ __tmp50190)))) + (cons _stx28944_ __tmp52109)))) (declare (not safe)) - (cons _match-stx28946_ __tmp50189)) - (let ((__tmp50188 + (cons _match-stx28946_ __tmp52108)) + (let ((__tmp52107 (let () (declare (not safe)) (cons _hd28957_ '())))) (declare (not safe)) - (cons _stx28944_ __tmp50188))))))) + (cons _stx28944_ __tmp52107))))))) (let () (declare (not safe)) (_parse128948_ _stx28944_))))) (define |gerbil/core$[1]#parse-match-pattern__0| (lambda (_stx30628_) @@ -1583,27 +1582,27 @@ _stx30628_ _match-stx30631_)))) (define |gerbil/core$[1]#parse-match-pattern| - (lambda _g50192_ - (let ((_g50191_ (let () (declare (not safe)) (##length _g50192_)))) - (cond ((let () (declare (not safe)) (##fx= _g50191_ 1)) + (lambda _g52111_ + (let ((_g52110_ (let () (declare (not safe)) (##length _g52111_)))) + (cond ((let () (declare (not safe)) (##fx= _g52110_ 1)) (apply (lambda (_stx30628_) (let () (declare (not safe)) (|gerbil/core$[1]#parse-match-pattern__0| _stx30628_))) - _g50192_)) - ((let () (declare (not safe)) (##fx= _g50191_ 2)) + _g52111_)) + ((let () (declare (not safe)) (##fx= _g52110_ 2)) (apply (lambda (_stx30634_ _match-stx30636_) (let () (declare (not safe)) (|gerbil/core$[1]#parse-match-pattern__%| _stx30634_ _match-stx30636_))) - _g50192_)) + _g52111_)) (else (##raise-wrong-number-of-arguments-exception |gerbil/core$[1]#parse-match-pattern| - _g50192_)))))) + _g52111_)))))) (define |gerbil/core$[1]#match-pattern?| (lambda (_stx28928_) (call-with-current-continuation @@ -1611,7 +1610,11 @@ (with-exception-handler (let ((_E!28935_ (current-exception-handler))) (lambda (_e28938_) - (if (syntax-error? _e28938_) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + _e28938_ + 'gerbil/runtime/syntax#SyntaxError::t)) (_E28932_ '#f) (_E!28935_ _e28938_)))) (lambda () @@ -1623,23 +1626,23 @@ (lambda (_ptree27663_) (letrec ((_loop27666_ (lambda (_ptree27953_ _vars27955_ _K27956_) - (let* ((___stx4539345394_ _ptree27953_) + (let* ((___stx4749747498_ _ptree27953_) (_g2796928079_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4539345394_)))) - (let ((___kont4539645397_ + ___stx4749747498_)))) + (let ((___kont4750047501_ (lambda (_L28709_) - (let* ((___stx4531345314_ _L28709_) + (let* ((___stx4741747418_ _L28709_) (_g2872628760_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4531345314_)))) - (let ((___kont4531645317_ + ___stx4741747418_)))) + (let ((___kont4742047421_ (lambda (_L28909_) (let () (declare (not safe)) @@ -1647,7 +1650,7 @@ _L28909_ _vars27955_ _K27956_)))) - (___kont4531845319_ + (___kont4742247423_ (lambda (_L28878_) (let () (declare (not safe)) @@ -1655,7 +1658,7 @@ _L28878_ _vars27955_ _K27956_)))) - (___kont4532045321_ + (___kont4742447425_ (lambda (_L28826_) (let () (declare (not safe)) @@ -1663,11 +1666,11 @@ _L28826_ _vars27955_ _K27956_)))) - (___kont4532245323_ + (___kont4742647427_ (lambda () (_K27956_ _vars27955_)))) - (if (gx#stx-pair? ___stx4531345314_) + (if (gx#stx-pair? ___stx4741747418_) (let ((_e2873128899_ - (gx#syntax-e ___stx4531345314_))) + (gx#syntax-e ___stx4741747418_))) (let ((_tl2872928906_ (let () (declare (not safe)) @@ -1677,7 +1680,7 @@ (declare (not safe)) (##car _e2873128899_)))) (if (gx#stx-null? _tl2872928906_) - (___kont4531645317_ + (___kont4742047421_ _hd2873028903_) (if (gx#stx-datum? _hd2873028903_) @@ -1700,9 +1703,9 @@ (declare (not safe)) (##car _e2873928868_)))) (if (gx#stx-null? _tl2873728875_) - (___kont4531845319_ _hd2873828872_) - (___kont4532245323_)))) - (___kont4532245323_)) + (___kont4742247423_ _hd2873828872_) + (___kont4742647427_)))) + (___kont4742647427_)) (if (let () (declare (not safe)) (equal? _e2873628864_ '::)) (if (gx#stx-pair? _tl2872928906_) (let ((_e2874728792_ (gx#syntax-e _tl2872928906_))) @@ -1748,32 +1751,32 @@ (##car _e2875428816_)))) (if (gx#stx-null? _tl2875228823_) - (___kont4532045321_ + (___kont4742447425_ _hd2875328820_) - (___kont4532245323_)))) - (___kont4532245323_)) - (___kont4532245323_))) - (___kont4532245323_)))) - (___kont4532245323_)))) - (___kont4532245323_)) - (___kont4532245323_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4532245323_))))) - (___kont4532245323_)))))) - (___kont4539845399_ + (___kont4742647427_)))) + (___kont4742647427_)) + (___kont4742647427_))) + (___kont4742647427_)))) + (___kont4742647427_)))) + (___kont4742647427_)) + (___kont4742647427_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4742647427_))))) + (___kont4742647427_)))))) + (___kont4750247503_ (lambda (_L28596_ _L28598_) - (let* ((___stx4529745298_ _L28596_) + (let* ((___stx4740147402_ _L28596_) (_g2861428626_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4529745298_)))) - (let ((___kont4530045301_ + ___stx4740147402_)))) + (let ((___kont4740447405_ (lambda (_L28654_ _L28656_) - (let ((__tmp50193 + (let ((__tmp52112 (lambda (_g2866828670_) - (let ((__tmp50194 + (let ((__tmp52113 (let () (declare (not safe)) @@ -1783,19 +1786,19 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (_loop27666_ - __tmp50194 + __tmp52113 _g2866828670_ _K27956_))))) (declare (not safe)) (_loop27666_ _L28656_ _vars27955_ - __tmp50193)))) - (___kont4530245303_ + __tmp52112)))) + (___kont4740647407_ (lambda () (_K27956_ _vars27955_)))) - (if (gx#stx-pair? ___stx4529745298_) + (if (gx#stx-pair? ___stx4740147402_) (let ((_e2862028644_ - (gx#syntax-e ___stx4529745298_))) + (gx#syntax-e ___stx4740147402_))) (let ((_tl2861828651_ (let () (declare (not safe)) @@ -1804,18 +1807,18 @@ (let () (declare (not safe)) (##car _e2862028644_)))) - (___kont4530045301_ + (___kont4740447405_ _tl2861828651_ _hd2861928648_))) - (___kont4530245303_)))))) - (___kont4540045401_ + (___kont4740647407_)))))) + (___kont4750447505_ (lambda (_L28565_) (let () (declare (not safe)) (_loop27666_ _L28565_ _vars27955_ _K27956_)))) - (___kont4540245403_ + (___kont4750647507_ (lambda (_L28511_ _L28513_) - (let ((__tmp50195 + (let ((__tmp52114 (lambda (_g2852828530_) (let () (declare (not safe)) @@ -1827,10 +1830,10 @@ (_loop27666_ _L28513_ _vars27955_ - __tmp50195)))) - (___kont4540445405_ + __tmp52114)))) + (___kont4750847509_ (lambda (_L28447_ _L28449_) - (let ((__tmp50196 + (let ((__tmp52115 (lambda (_g2846428466_) (let () (declare (not safe)) @@ -1842,13 +1845,13 @@ (_loop27666_ _L28449_ _vars27955_ - __tmp50196)))) - (___kont4540645407_ + __tmp52115)))) + (___kont4751047511_ (lambda (_L28392_) (let () (declare (not safe)) (_loop27666_ _L28392_ _vars27955_ _K27956_)))) - (___kont4540845409_ + (___kont4751247513_ (lambda (_L28342_ _L28344_) (let () (declare (not safe)) @@ -1856,7 +1859,7 @@ _L28342_ _vars27955_ _K27956_)))) - (___kont4541045411_ + (___kont4751447515_ (lambda (_L28299_) (let () (declare (not safe)) @@ -1864,7 +1867,7 @@ _L28299_ _vars27955_ _K27956_)))) - (___kont4541245413_ + (___kont4751647517_ (lambda (_L28242_) (let () (declare (not safe)) @@ -1872,28 +1875,26 @@ _L28242_ _vars27955_ _K27956_)))) - (___kont4541445415_ + (___kont4751847519_ (lambda (_L28183_ _L28185_) (let () (declare (not safe)) (_loop27666_ _L28183_ _vars27955_ _K27956_)))) - (___kont4541645417_ + (___kont4752047521_ (lambda (_L28121_) - (if (let ((__tmp50197 - (lambda (_g2813628138_) - (gx#bound-identifier=? - _g2813628138_ - _L28121_)))) - (declare (not safe)) - (find __tmp50197 _vars27955_)) + (if (find (lambda (_g2813628138_) + (gx#bound-identifier=? + _g2813628138_ + _L28121_)) + _vars27955_) (_K27956_ _vars27955_) (_K27956_ (let () (declare (not safe)) (cons _L28121_ _vars27955_)))))) - (___kont4541845419_ + (___kont4752247523_ (lambda () (_K27956_ _vars27955_)))) - (let* ((___match4555045551_ + (let* ((___match4765447655_ (lambda (_e2802828322_ _hd2802728326_ _tl2802628329_ @@ -1904,7 +1905,7 @@ (_L28344_ _hd2802728326_)) (if (or (gx#stx-eq? 'values: _L28344_) (gx#stx-eq? 'vector: _L28344_)) - (___kont4540845409_ _L28342_ _L28344_) + (___kont4751247513_ _L28342_ _L28344_) (if (gx#stx-datum? _hd2802728326_) (let ((_e2803628275_ (gx#stx-e _hd2802728326_))) @@ -1912,27 +1913,27 @@ (declare (not safe)) (equal? _e2803628275_ 'struct:)) - (___kont4541845419_) + (___kont4752247523_) (if (let () (declare (not safe)) (equal? _e2803628275_ 'class:)) - (___kont4541845419_) + (___kont4752247523_) (if (let () (declare (not safe)) (equal? _e2803628275_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'apply:)) - (___kont4541845419_) + (___kont4752247523_) (if (let () (declare (not safe)) (equal? _e2803628275_ 'var:)) - (___kont4541645417_ _hd2803028336_) - (___kont4541845419_)))))) + (___kont4752047521_ _hd2803028336_) + (___kont4752247523_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4541845419_)))))) - (___match4544445445_ + (___kont4752247523_)))))) + (___match4754847549_ (lambda (_e2798328586_ _hd2798228590_ _tl2798128593_) @@ -1940,7 +1941,7 @@ (_L28598_ _hd2798228590_)) (if (or (gx#stx-eq? 'and: _L28598_) (gx#stx-eq? 'or: _L28598_)) - (___kont4539845399_ _L28596_ _L28598_) + (___kont4750247503_ _L28596_ _L28598_) (if (gx#stx-datum? _hd2798228590_) (let ((_e2798828551_ (gx#stx-e _hd2798228590_))) @@ -1961,9 +1962,9 @@ (_hd2799028559_ (let () (declare (not safe)) (##car _e2799128555_)))) (if (gx#stx-null? _tl2798928562_) - (___kont4540045401_ _hd2799028559_) - (___kont4541845419_)))) - (___kont4541845419_)) + (___kont4750447505_ _hd2799028559_) + (___kont4752247523_)))) + (___kont4752247523_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) @@ -1991,20 +1992,20 @@ (declare (not safe)) (##car _e2800328501_)))) (if (gx#stx-null? _tl2800128508_) - (___kont4540245403_ + (___kont4750647507_ _hd2800228505_ _hd2799928495_) - (___kont4541845419_)))) + (___kont4752247523_)))) (if (gx#stx-null? _tl2799828498_) - (___match4555045551_ + (___match4765447655_ _e2798328586_ _hd2798228590_ _tl2798128593_ _e2800028491_ _hd2799928495_ _tl2799828498_) - (___kont4541845419_))))) - (___kont4541845419_)) + (___kont4752247523_))))) + (___kont4752247523_)) (if (let () (declare (not safe)) (equal? _e2798828551_ 'splice:)) (if (gx#stx-pair? _tl2798128593_) (let ((_e2801228427_ (gx#syntax-e _tl2798128593_))) @@ -2028,20 +2029,20 @@ (declare (not safe)) (##car _e2801528437_)))) (if (gx#stx-null? _tl2801328444_) - (___kont4540445405_ + (___kont4750847509_ _hd2801428441_ _hd2801128431_) - (___kont4541845419_)))) + (___kont4752247523_)))) (if (gx#stx-null? _tl2801028434_) - (___match4555045551_ + (___match4765447655_ _e2798328586_ _hd2798228590_ _tl2798128593_ _e2801228427_ _hd2801128431_ _tl2801028434_) - (___kont4541845419_))))) - (___kont4541845419_)) + (___kont4752247523_))))) + (___kont4752247523_)) (if (let () (declare (not safe)) (equal? _e2798828551_ 'box:)) @@ -2056,9 +2057,9 @@ (declare (not safe)) (##car _e2802328382_)))) (if (gx#stx-null? _tl2802128389_) - (___kont4540645407_ _hd2802228386_) - (___kont4541845419_)))) - (___kont4541845419_)) + (___kont4751047511_ _hd2802228386_) + (___kont4752247523_)))) + (___kont4752247523_)) (if (gx#stx-pair? _tl2798128593_) (let ((_e2803128332_ (gx#syntax-e _tl2798128593_))) (let ((_tl2802928339_ @@ -2070,7 +2071,7 @@ (declare (not safe)) (##car _e2803128332_)))) (if (gx#stx-null? _tl2802928339_) - (___match4555045551_ + (___match4765447655_ _e2798328586_ _hd2798228590_ _tl2798128593_ @@ -2092,10 +2093,10 @@ (declare (not safe)) (##car _e2804228289_)))) (if (gx#stx-null? _tl2804028296_) - (___kont4541045411_ + (___kont4751447515_ _hd2804128293_) - (___kont4541845419_)))) - (___kont4541845419_)) + (___kont4752247523_)))) + (___kont4752247523_)) (if (let () (declare (not safe)) (equal? _e2798828551_ 'class:)) @@ -2113,10 +2114,10 @@ (##car _e2805328232_)))) (if (gx#stx-null? _tl2805128239_) - (___kont4541245413_ + (___kont4751647517_ _hd2805228236_) - (___kont4541845419_)))) - (___kont4541845419_)) + (___kont4752247523_)))) + (___kont4752247523_)) (if (let () (declare (not safe)) (equal? _e2798828551_ 'apply:)) @@ -2136,13 +2137,13 @@ (##car _e2806528173_)))) (if (gx#stx-null? _tl2806328180_) - (___kont4541445415_ + (___kont4751847519_ _hd2806428177_ _hd2803028336_) - (___kont4541845419_)))) - (___kont4541845419_)) - (___kont4541845419_))))))) - (___kont4541845419_))))))) + (___kont4752247523_)))) + (___kont4752247523_)) + (___kont4752247523_))))))) + (___kont4752247523_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? _tl2798128593_) (let ((_e2803128332_ @@ -2158,18 +2159,18 @@ (##car _e2803128332_)))) (if (gx#stx-null? _tl2802928339_) - (___match4555045551_ + (___match4765447655_ _e2798328586_ _hd2798228590_ _tl2798128593_ _e2803128332_ _hd2803028336_ _tl2802928339_) - (___kont4541845419_)))) - (___kont4541845419_)))))))) - (if (gx#stx-pair? ___stx4539345394_) + (___kont4752247523_)))) + (___kont4752247523_)))))))) + (if (gx#stx-pair? ___stx4749747498_) (let ((_e2797428685_ - (gx#syntax-e ___stx4539345394_))) + (gx#syntax-e ___stx4749747498_))) (let ((_tl2797228692_ (let () (declare (not safe)) @@ -2196,31 +2197,31 @@ (let () (declare (not safe)) (##car _e2797828699_)))) - (___kont4539645397_ + (___kont4750047501_ _tl2797628706_))) - (___match4544445445_ + (___match4754847549_ _e2797428685_ _hd2797328689_ _tl2797228692_)) - (___match4544445445_ + (___match4754847549_ _e2797428685_ _hd2797328689_ _tl2797228692_))) - (___match4544445445_ + (___match4754847549_ _e2797428685_ _hd2797328689_ _tl2797228692_)))) - (___kont4541845419_))))))) + (___kont4752247523_))))))) (_loop-vector27668_ (lambda (_body27829_ _vars27831_ _K27832_) - (let* ((___stx4565145652_ _body27829_) + (let* ((___stx4775547756_ _body27829_) (_g2783527858_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4565145652_)))) - (let ((___kont4565445655_ + ___stx4775547756_)))) + (let ((___kont4775847759_ (lambda (_L27935_) (let () (declare (not safe)) @@ -2228,7 +2229,7 @@ _L27935_ _vars27831_ _K27832_)))) - (___kont4565645657_ + (___kont4776047761_ (lambda (_L27889_) (let () (declare (not safe)) @@ -2236,9 +2237,9 @@ _L27889_ _vars27831_ _K27832_))))) - (if (gx#stx-pair? ___stx4565145652_) + (if (gx#stx-pair? ___stx4775547756_) (let ((_e2784027911_ - (gx#syntax-e ___stx4565145652_))) + (gx#syntax-e ___stx4775547756_))) (let ((_tl2783827918_ (let () (declare (not safe)) @@ -2267,7 +2268,7 @@ (##car _e2784427925_)))) (if (gx#stx-null? _tl2784227932_) - (___kont4565445655_ + (___kont4775847759_ _hd2784327929_) (let () (declare (not safe)) @@ -2294,7 +2295,7 @@ (##car _e2785227879_)))) (if (gx#stx-null? _tl2785027886_) - (___kont4565645657_ + (___kont4776047761_ _hd2785127883_) (let () (declare @@ -2312,16 +2313,16 @@ (let () (declare (not safe)) (_g2783527858_))))))) (_loop-list27669_ (lambda (_rest27759_ _vars27761_ _K27762_) - (let* ((___stx4570145702_ _rest27759_) + (let* ((___stx4780547806_ _rest27759_) (_g2776527777_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4570145702_)))) - (let ((___kont4570445705_ + ___stx4780547806_)))) + (let ((___kont4780847809_ (lambda (_L27805_ _L27807_) - (let ((__tmp50198 + (let ((__tmp52116 (lambda (_g2781927821_) (let () (declare (not safe)) @@ -2333,12 +2334,12 @@ (_loop27666_ _L27807_ _vars27761_ - __tmp50198)))) - (___kont4570645707_ + __tmp52116)))) + (___kont4781047811_ (lambda () (_K27762_ _vars27761_)))) - (if (gx#stx-pair? ___stx4570145702_) + (if (gx#stx-pair? ___stx4780547806_) (let ((_e2777127795_ - (gx#syntax-e ___stx4570145702_))) + (gx#syntax-e ___stx4780547806_))) (let ((_tl2776927802_ (let () (declare (not safe)) @@ -2347,22 +2348,22 @@ (let () (declare (not safe)) (##car _e2777127795_)))) - (___kont4570445705_ + (___kont4780847809_ _tl2776927802_ _hd2777027799_))) - (___kont4570645707_)))))) + (___kont4781047811_)))))) (_loop-class-list27670_ (lambda (_rest27672_ _vars27674_ _K27675_) - (let* ((___stx4571745718_ _rest27672_) + (let* ((___stx4782147822_ _rest27672_) (_g2767827693_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4571745718_)))) - (let ((___kont4572045721_ + ___stx4782147822_)))) + (let ((___kont4782447825_ (lambda (_L27731_ _L27733_) - (let ((__tmp50199 + (let ((__tmp52117 (lambda (_g2774927751_) (let () (declare (not safe)) @@ -2374,12 +2375,12 @@ (_loop27666_ _L27733_ _vars27674_ - __tmp50199)))) - (___kont4572245723_ + __tmp52117)))) + (___kont4782647827_ (lambda () (_K27675_ _vars27674_)))) - (if (gx#stx-pair? ___stx4571745718_) + (if (gx#stx-pair? ___stx4782147822_) (let ((_e2768427711_ - (gx#syntax-e ___stx4571745718_))) + (gx#syntax-e ___stx4782147822_))) (let ((_tl2768227718_ (let () (declare (not safe)) @@ -2399,11 +2400,11 @@ (let () (declare (not safe)) (##car _e2768727721_)))) - (___kont4572045721_ + (___kont4782447825_ _tl2768527728_ _hd2768627725_))) - (___kont4572245723_)))) - (___kont4572245723_))))))) + (___kont4782647827_)))) + (___kont4782647827_))))))) (let () (declare (not safe)) (_loop27666_ _ptree27663_ '() values))))) @@ -2421,65 +2422,65 @@ (lambda (_g2588325894_) ((lambda (_L25897_) (let () - (let* ((___stx4595345954_ _ptree25878_) + (let* ((___stx4805748058_ _ptree25878_) (_g2592426066_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4595345954_)))) - (let ((___kont4595645957_ + ___stx4805748058_)))) + (let ((___kont4806048061_ (lambda (_L27374_ _L27376_) - (let* ((___stx4587145872_ + (let* ((___stx4797547976_ _L27374_) (_g2739327428_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4587145872_)))) - (let ((___kont4587445875_ + ___stx4797547976_)))) + (let ((___kont4797847979_ (lambda () - (let ((__tmp50200 - (let ((__tmp50203 + (let ((__tmp52118 + (let ((__tmp52121 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50206 (gx#datum->syntax '#f '?)) - (__tmp50204 - (let ((__tmp50205 + (let ((__tmp52124 (gx#datum->syntax '#f '?)) + (__tmp52122 + (let ((__tmp52123 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons _L27376_ __tmp50205)))) + (cons _L27376_ __tmp52123)))) (declare (not safe)) - (cons __tmp50206 __tmp50204))) - (__tmp50201 - (let ((__tmp50202 + (cons __tmp52124 __tmp52122))) + (__tmp52119 + (let ((__tmp52120 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons _K25879_ __tmp50202)))) + (cons _K25879_ __tmp52120)))) (declare (not safe)) - (cons __tmp50203 __tmp50201)))) + (cons __tmp52121 __tmp52119)))) (declare (not safe)) - (cons 'if __tmp50200)))) - (___kont4587645877_ + (cons 'if __tmp52118)))) + (___kont4798047981_ (lambda (_L27629_) - (let ((__tmp50207 - (let ((__tmp50211 - (let ((__tmp50214 (gx#datum->syntax '#f '?)) - (__tmp50212 - (let ((__tmp50213 + (let ((__tmp52125 + (let ((__tmp52129 + (let ((__tmp52132 (gx#datum->syntax '#f '?)) + (__tmp52130 + (let ((__tmp52131 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons _L27376_ __tmp50213)))) + (cons _L27376_ __tmp52131)))) (declare (not safe)) - (cons __tmp50214 __tmp50212))) - (__tmp50208 - (let ((__tmp50210 + (cons __tmp52132 __tmp52130))) + (__tmp52126 + (let ((__tmp52128 (let () (declare (not safe)) (_generate124631_ @@ -2487,17 +2488,17 @@ _L27629_ _K25879_ _E25880_))) - (__tmp50209 + (__tmp52127 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp50210 __tmp50209)))) + (cons __tmp52128 __tmp52127)))) (declare (not safe)) - (cons __tmp50211 __tmp50208)))) + (cons __tmp52129 __tmp52126)))) (declare (not safe)) - (cons 'if __tmp50207)))) - (___kont4587845879_ + (cons 'if __tmp52125)))) + (___kont4798247983_ (lambda (_L27567_) (let* ((_g2758127589_ (lambda (_g2758227585_) @@ -2509,31 +2510,31 @@ (lambda (_g2758227593_) ((lambda (_L27596_) (let () - (let ((__tmp50215 - (let ((__tmp50222 - (let ((__tmp50223 - (let ((__tmp50224 - (let ((__tmp50225 + (let ((__tmp52133 + (let ((__tmp52140 + (let ((__tmp52141 + (let ((__tmp52142 + (let ((__tmp52143 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50226 + (let ((__tmp52144 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons _L27376_ __tmp50226)))) + (cons _L27376_ __tmp52144)))) (declare (not safe)) - (cons __tmp50225 '())))) + (cons __tmp52143 '())))) (declare (not safe)) - (cons _L27596_ __tmp50224)))) + (cons _L27596_ __tmp52142)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50223 '()))) - (__tmp50216 - (let ((__tmp50217 - (let ((__tmp50218 - (let ((__tmp50219 + (cons __tmp52141 '()))) + (__tmp52134 + (let ((__tmp52135 + (let ((__tmp52136 + (let ((__tmp52137 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50221 + (let ((__tmp52139 (let () (declare (not safe)) (_generate124631_ @@ -2541,28 +2542,28 @@ _L27567_ _K25879_ _E25880_))) - (__tmp50220 + (__tmp52138 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp50221 __tmp50220)))) + (cons __tmp52139 __tmp52138)))) (declare (not safe)) - (cons _L27596_ __tmp50219)))) + (cons _L27596_ __tmp52137)))) (declare (not safe)) - (cons 'if __tmp50218)))) + (cons 'if __tmp52136)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50217 '())))) + (cons __tmp52135 '())))) (declare (not safe)) - (cons __tmp50222 __tmp50216)))) + (cons __tmp52140 __tmp52134)))) (declare (not safe)) - (cons 'let __tmp50215)))) + (cons 'let __tmp52133)))) _g2758227593_))) - (__tmp50227 (gx#genident 'e))) + (__tmp52145 (gx#genident 'e))) (declare (not safe)) - (_g2758027608_ __tmp50227)))) - (___kont4588045881_ + (_g2758027608_ __tmp52145)))) + (___kont4798447985_ (lambda (_L27483_ _L27485_) (let* ((_g2750527513_ (lambda (_g2750627509_) @@ -2574,12 +2575,12 @@ (lambda (_g2750627517_) ((lambda (_L27520_) (let () - (let ((__tmp50228 - (let ((__tmp50240 - (let ((__tmp50243 + (let ((__tmp52146 + (let ((__tmp52158 + (let ((__tmp52161 (gx#datum->syntax '#f '?)) - (__tmp50241 - (let ((__tmp50242 + (__tmp52159 + (let ((__tmp52160 (let () (declare (not safe)) @@ -2587,32 +2588,32 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _L27376_ __tmp50242)))) + (cons _L27376_ __tmp52160)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50243 __tmp50241))) - (__tmp50229 - (let ((__tmp50231 - (let ((__tmp50232 - (let ((__tmp50235 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50236 - (let ((__tmp50237 - (let ((__tmp50238 - (let ((__tmp50239 + (cons __tmp52161 __tmp52159))) + (__tmp52147 + (let ((__tmp52149 + (let ((__tmp52150 + (let ((__tmp52153 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52154 + (let ((__tmp52155 + (let ((__tmp52156 + (let ((__tmp52157 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons _L27485_ __tmp50239)))) + (cons _L27485_ __tmp52157)))) (declare (not safe)) - (cons __tmp50238 '())))) + (cons __tmp52156 '())))) (declare (not safe)) - (cons _L27520_ __tmp50237)))) + (cons _L27520_ __tmp52155)))) (declare (not safe)) - (cons __tmp50236 '()))) - (__tmp50233 - (let ((__tmp50234 + (cons __tmp52154 '()))) + (__tmp52151 + (let ((__tmp52152 (let () (declare (not safe)) (_generate124631_ @@ -2621,34 +2622,34 @@ _K25879_ _E25880_)))) (declare (not safe)) - (cons __tmp50234 '())))) + (cons __tmp52152 '())))) (declare (not safe)) - (cons __tmp50235 __tmp50233)))) + (cons __tmp52153 __tmp52151)))) (declare (not safe)) - (cons 'let __tmp50232))) + (cons 'let __tmp52150))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50230 + (__tmp52148 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp50231 __tmp50230)))) + (cons __tmp52149 __tmp52148)))) (declare (not safe)) - (cons __tmp50240 __tmp50229)))) + (cons __tmp52158 __tmp52147)))) (declare (not safe)) - (cons 'if __tmp50228)))) + (cons 'if __tmp52146)))) _g2750627517_))) - (__tmp50244 (gx#genident 'e))) + (__tmp52162 (gx#genident 'e))) (declare (not safe)) - (_g2750427532_ __tmp50244))))) + (_g2750427532_ __tmp52162))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_g2739027640_ (lambda () (if (gx#stx-pair? - ___stx4587145872_) + ___stx4797547976_) (let ((_e2739827619_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e ___stx4587145872_))) + (gx#syntax-e ___stx4797547976_))) (let ((_tl2739627626_ (let () (declare (not safe)) @@ -2658,7 +2659,7 @@ (declare (not safe)) (##car _e2739827619_)))) (if (gx#stx-null? _tl2739627626_) - (___kont4587645877_ _hd2739727623_) + (___kont4798047981_ _hd2739727623_) (if (gx#stx-datum? _hd2739727623_) (let ((_e2740327553_ (gx#stx-e _hd2739727623_))) @@ -2679,7 +2680,7 @@ (##car _e2740627557_)))) (if (gx#stx-null? _tl2740427564_) - (___kont4587845879_ + (___kont4798247983_ _hd2740527561_) (let () (declare (not safe)) @@ -2731,7 +2732,7 @@ (declare (not safe)) (##car _e2742227473_)))) (if (gx#stx-null? _tl2742027480_) - (___kont4588045881_ + (___kont4798447985_ _hd2742127477_ _hd2741427453_) (let () @@ -2756,26 +2757,26 @@ (let () (declare (not safe)) (_g2739327428_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - ___stx4587145872_) - (___kont4587445875_) + ___stx4797547976_) + (___kont4797847979_) (let () (declare (not safe)) (_g2739027640_)))))))) - (___kont4595845959_ + (___kont4806248063_ (lambda (_L27271_) - (let* ((___stx4585545856_ + (let* ((___stx4795947960_ _L27271_) (_g2728427296_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4585545856_)))) - (let ((___kont4585845859_ + ___stx4795947960_)))) + (let ((___kont4796247963_ (lambda (_L27324_ _L27326_) - (let ((__tmp50245 - (let ((__tmp50246 + (let ((__tmp52163 + (let ((__tmp52164 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -2783,22 +2784,22 @@ (declare (not safe)) (_generate124631_ _tgt25876_ - __tmp50246 + __tmp52164 _K25879_ _E25880_)))) (declare (not safe)) (_generate124631_ _tgt25876_ _L27326_ - __tmp50245 + __tmp52163 _E25880_)))) - (___kont4586045861_ (lambda () _K25879_))) + (___kont4796447965_ (lambda () _K25879_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx4585545856_) + ___stx4795947960_) (let ((_e2729027314_ (gx#syntax-e - ___stx4585545856_))) + ___stx4795947960_))) (let ((_tl2728827321_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -2806,24 +2807,24 @@ (##cdr _e2729027314_))) (_hd2728927318_ (let () (declare (not safe)) (##car _e2729027314_)))) - (___kont4585845859_ _tl2728827321_ _hd2728927318_))) - (___kont4586045861_)))))) + (___kont4796247963_ _tl2728827321_ _hd2728927318_))) + (___kont4796447965_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4596045961_ + (___kont4806448065_ (lambda (_L27178_) - (let* ((___stx4583945840_ + (let* ((___stx4794347944_ _L27178_) (_g2719127203_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4583945840_)))) - (let ((___kont4584245843_ + ___stx4794347944_)))) + (let ((___kont4794647947_ (lambda (_L27231_ _L27233_) - (let ((__tmp50247 - (let ((__tmp50248 + (let ((__tmp52165 + (let ((__tmp52166 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -2831,7 +2832,7 @@ (declare (not safe)) (_generate124631_ _tgt25876_ - __tmp50248 + __tmp52166 _K25879_ _E25880_)))) (declare (not safe)) @@ -2839,14 +2840,14 @@ _tgt25876_ _L27233_ _K25879_ - __tmp50247)))) - (___kont4584445845_ (lambda () _E25880_))) + __tmp52165)))) + (___kont4794847949_ (lambda () _E25880_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx4583945840_) + ___stx4794347944_) (let ((_e2719727221_ (gx#syntax-e - ___stx4583945840_))) + ___stx4794347944_))) (let ((_tl2719527228_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -2854,10 +2855,10 @@ (##cdr _e2719727221_))) (_hd2719627225_ (let () (declare (not safe)) (##car _e2719727221_)))) - (___kont4584245843_ _tl2719527228_ _hd2719627225_))) - (___kont4584445845_)))))) + (___kont4794647947_ _tl2719527228_ _hd2719627225_))) + (___kont4794847949_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4596245963_ + (___kont4806648067_ (lambda (_L27143_) (let () (declare (not safe)) @@ -2866,7 +2867,7 @@ _L27143_ _E25880_ _K25879_)))) - (___kont4596445965_ + (___kont4806848069_ (lambda (_L27025_ _L27027_) (let* ((_g2704427059_ (lambda (_g2704527055_) @@ -2902,22 +2903,22 @@ (if (gx#stx-null? _tl2705127083_) ((lambda (_L27086_ _L27088_) (let () - (let ((__tmp50249 - (let ((__tmp50287 - (let ((__tmp50289 + (let ((__tmp52167 + (let ((__tmp52205 + (let ((__tmp52207 (gx#datum->syntax '#f '##pair?)) - (__tmp50288 + (__tmp52206 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp50289 __tmp50288))) - (__tmp50250 - (let ((__tmp50252 + (cons __tmp52207 __tmp52206))) + (__tmp52168 + (let ((__tmp52170 (let ((_hd-pat27104_ (gx#stx-e _L27027_)) (_tl-pat27106_ (gx#stx-e _L27025_))) (if (and (let () @@ -2930,28 +2931,28 @@ (if (let () (declare (not safe)) (equal? _tl-pat27106_ '(any:))) - (let ((__tmp50278 - (let ((__tmp50281 - (let ((__tmp50282 - (let ((__tmp50283 - (let ((__tmp50284 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50286 (gx#datum->syntax '#f '##car)) - (__tmp50285 + (let ((__tmp52196 + (let ((__tmp52199 + (let ((__tmp52200 + (let ((__tmp52201 + (let ((__tmp52202 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52204 (gx#datum->syntax '#f '##car)) + (__tmp52203 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp50286 __tmp50285)))) + (cons __tmp52204 __tmp52203)))) (declare (not safe)) - (cons __tmp50284 '())))) + (cons __tmp52202 '())))) (declare (not safe)) - (cons _L27088_ __tmp50283)))) + (cons _L27088_ __tmp52201)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50282 '()))) - (__tmp50279 - (let ((__tmp50280 + (cons __tmp52200 '()))) + (__tmp52197 + (let ((__tmp52198 (let () (declare (not safe)) (_generate124631_ @@ -2960,36 +2961,36 @@ _K25879_ _E25880_)))) (declare (not safe)) - (cons __tmp50280 '())))) + (cons __tmp52198 '())))) (declare (not safe)) - (cons __tmp50281 __tmp50279)))) + (cons __tmp52199 __tmp52197)))) (declare (not safe)) - (cons 'let __tmp50278)) + (cons 'let __tmp52196)) (if (let () (declare (not safe)) (equal? _hd-pat27104_ '(any:))) - (let ((__tmp50269 - (let ((__tmp50272 - (let ((__tmp50273 - (let ((__tmp50274 - (let ((__tmp50275 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50277 (gx#datum->syntax '#f '##cdr)) - (__tmp50276 + (let ((__tmp52187 + (let ((__tmp52190 + (let ((__tmp52191 + (let ((__tmp52192 + (let ((__tmp52193 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52195 (gx#datum->syntax '#f '##cdr)) + (__tmp52194 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp50277 __tmp50276)))) + (cons __tmp52195 __tmp52194)))) (declare (not safe)) - (cons __tmp50275 '())))) + (cons __tmp52193 '())))) (declare (not safe)) - (cons _L27086_ __tmp50274)))) + (cons _L27086_ __tmp52192)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50273 '()))) - (__tmp50270 - (let ((__tmp50271 + (cons __tmp52191 '()))) + (__tmp52188 + (let ((__tmp52189 (let () (declare (not safe)) (_generate124631_ @@ -2998,53 +2999,53 @@ _K25879_ _E25880_)))) (declare (not safe)) - (cons __tmp50271 '())))) + (cons __tmp52189 '())))) (declare (not safe)) - (cons __tmp50272 __tmp50270)))) + (cons __tmp52190 __tmp52188)))) (declare (not safe)) - (cons 'let __tmp50269)) - (let ((__tmp50253 - (let ((__tmp50257 - (let ((__tmp50264 - (let ((__tmp50265 - (let ((__tmp50266 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50268 (gx#datum->syntax '#f '##car)) - (__tmp50267 + (cons 'let __tmp52187)) + (let ((__tmp52171 + (let ((__tmp52175 + (let ((__tmp52182 + (let ((__tmp52183 + (let ((__tmp52184 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52186 (gx#datum->syntax '#f '##car)) + (__tmp52185 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp50268 __tmp50267)))) + (cons __tmp52186 __tmp52185)))) (declare (not safe)) - (cons __tmp50266 '())))) + (cons __tmp52184 '())))) (declare (not safe)) - (cons _L27088_ __tmp50265))) - (__tmp50258 - (let ((__tmp50259 - (let ((__tmp50260 - (let ((__tmp50261 - (let ((__tmp50263 + (cons _L27088_ __tmp52183))) + (__tmp52176 + (let ((__tmp52177 + (let ((__tmp52178 + (let ((__tmp52179 + (let ((__tmp52181 (gx#datum->syntax '#f '##cdr)) - (__tmp50262 + (__tmp52180 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp50263 __tmp50262)))) + (cons __tmp52181 __tmp52180)))) (declare (not safe)) - (cons __tmp50261 '())))) + (cons __tmp52179 '())))) (declare (not safe)) - (cons _L27086_ __tmp50260)))) + (cons _L27086_ __tmp52178)))) (declare (not safe)) - (cons __tmp50259 '())))) + (cons __tmp52177 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50264 - __tmp50258))) - (__tmp50254 - (let ((__tmp50255 - (let ((__tmp50256 + (cons __tmp52182 + __tmp52176))) + (__tmp52172 + (let ((__tmp52173 + (let ((__tmp52174 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -3054,24 +3055,24 @@ _K25879_ _E25880_)))) (declare (not safe)) - (_generate124631_ _L27088_ _L27027_ __tmp50256 _E25880_)))) + (_generate124631_ _L27088_ _L27027_ __tmp52174 _E25880_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50255 '())))) + (cons __tmp52173 '())))) (declare (not safe)) - (cons __tmp50257 __tmp50254)))) + (cons __tmp52175 __tmp52172)))) (declare (not safe)) - (cons 'let __tmp50253))))))) - (__tmp50251 + (cons 'let __tmp52171))))))) + (__tmp52169 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp50252 __tmp50251)))) + (cons __tmp52170 __tmp52169)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50287 - __tmp50250)))) + (cons __tmp52205 + __tmp52168)))) (declare (not safe)) - (cons 'if __tmp50249)))) + (cons 'if __tmp52167)))) _hd2705227080_ _hd2704927070_) (let () @@ -3084,34 +3085,34 @@ (declare (not safe)) (_g2704427059_ _g2704527063_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50290 + (__tmp52208 (list (gx#genident 'hd) (gx#genident 'tl)))) (declare (not safe)) - (_g2704327108_ __tmp50290)))) - (___kont4596645967_ + (_g2704327108_ __tmp52208)))) + (___kont4807048071_ (lambda () - (let ((__tmp50291 - (let ((__tmp50294 - (let ((__tmp50296 + (let ((__tmp52209 + (let ((__tmp52212 + (let ((__tmp52214 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##null?)) - (__tmp50295 + (__tmp52213 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp50296 __tmp50295))) - (__tmp50292 - (let ((__tmp50293 + (cons __tmp52214 __tmp52213))) + (__tmp52210 + (let ((__tmp52211 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons _K25879_ __tmp50293)))) + (cons _K25879_ __tmp52211)))) (declare (not safe)) - (cons __tmp50294 __tmp50292)))) + (cons __tmp52212 __tmp52210)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp50291)))) - (___kont4596845969_ + (cons 'if __tmp52209)))) + (___kont4807248073_ (lambda (_L26941_ _L26943_) (let () (declare (not safe)) @@ -3121,7 +3122,7 @@ _L26941_ _K25879_ _E25880_)))) - (___kont4597045971_ + (___kont4807448075_ (lambda (_L26855_) (let* ((_g2686926877_ (lambda (_g2687026873_) @@ -3133,41 +3134,41 @@ (lambda (_g2687026881_) ((lambda (_L26884_) (let () - (let ((__tmp50297 + (let ((__tmp52215 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50310 - (let ((__tmp50312 + (let ((__tmp52228 + (let ((__tmp52230 (gx#datum->syntax '#f '##box?)) - (__tmp50311 + (__tmp52229 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp50312 __tmp50311))) - (__tmp50298 - (let ((__tmp50300 - (let ((__tmp50301 - (let ((__tmp50304 - (let ((__tmp50305 - (let ((__tmp50306 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50307 - (let ((__tmp50309 + (cons __tmp52230 __tmp52229))) + (__tmp52216 + (let ((__tmp52218 + (let ((__tmp52219 + (let ((__tmp52222 + (let ((__tmp52223 + (let ((__tmp52224 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52225 + (let ((__tmp52227 (gx#datum->syntax '#f '##unbox)) - (__tmp50308 + (__tmp52226 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp50309 __tmp50308)))) + (cons __tmp52227 __tmp52226)))) (declare (not safe)) - (cons __tmp50307 '())))) + (cons __tmp52225 '())))) (declare (not safe)) - (cons _L26884_ __tmp50306)))) + (cons _L26884_ __tmp52224)))) (declare (not safe)) - (cons __tmp50305 '()))) - (__tmp50302 - (let ((__tmp50303 + (cons __tmp52223 '()))) + (__tmp52220 + (let ((__tmp52221 (let () (declare (not safe)) (_generate124631_ @@ -3176,40 +3177,40 @@ _K25879_ _E25880_)))) (declare (not safe)) - (cons __tmp50303 '())))) + (cons __tmp52221 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50304 - __tmp50302)))) + (cons __tmp52222 + __tmp52220)))) (declare (not safe)) - (cons 'let __tmp50301))) - (__tmp50299 + (cons 'let __tmp52219))) + (__tmp52217 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp50300 __tmp50299)))) + (cons __tmp52218 __tmp52217)))) (declare (not safe)) - (cons __tmp50310 __tmp50298)))) + (cons __tmp52228 __tmp52216)))) (declare (not safe)) - (cons 'if __tmp50297)))) + (cons 'if __tmp52215)))) _g2687026881_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50313 + (__tmp52231 (gx#genident 'e))) (declare (not safe)) - (_g2686826896_ __tmp50313)))) - (___kont4597245973_ + (_g2686826896_ __tmp52231)))) + (___kont4807648077_ (lambda (_L26660_) - (let* ((___stx4578945790_ + (let* ((___stx4789347894_ _L26660_) (_g2667526698_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4578945790_)))) - (let ((___kont4579245793_ + ___stx4789347894_)))) + (let ((___kont4789647897_ (lambda (_L26775_) (let* ((_g2678926797_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -3222,30 +3223,30 @@ (lambda (_g2679026801_) ((lambda (_L26804_) (let () - (let ((__tmp50314 - (let ((__tmp50318 - (let ((__tmp50324 + (let ((__tmp52232 + (let ((__tmp52236 + (let ((__tmp52242 (gx#datum->syntax '#f '##fx=)) - (__tmp50319 - (let ((__tmp50321 - (let ((__tmp50323 + (__tmp52237 + (let ((__tmp52239 + (let ((__tmp52241 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'values-count)) - (__tmp50322 + (__tmp52240 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp50323 __tmp50322))) - (__tmp50320 + (cons __tmp52241 __tmp52240))) + (__tmp52238 (let () (declare (not safe)) (cons _L26804_ '())))) (declare (not safe)) - (cons __tmp50321 __tmp50320)))) + (cons __tmp52239 __tmp52238)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50324 __tmp50319))) - (__tmp50315 - (let ((__tmp50317 + (cons __tmp52242 __tmp52237))) + (__tmp52233 + (let ((__tmp52235 (let () (declare (not safe)) (_generate-simple-vector24634_ @@ -3254,21 +3255,21 @@ '0 _K25879_ _E25880_))) - (__tmp50316 + (__tmp52234 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp50317 __tmp50316)))) + (cons __tmp52235 __tmp52234)))) (declare (not safe)) - (cons __tmp50318 __tmp50315)))) + (cons __tmp52236 __tmp52233)))) (declare (not safe)) - (cons 'if __tmp50314)))) + (cons 'if __tmp52232)))) _g2679026801_))) - (__tmp50325 (gx#stx-length _L26775_))) + (__tmp52243 (gx#stx-length _L26775_))) (declare (not safe)) - (_g2678826816_ __tmp50325)))) - (___kont4579445795_ + (_g2678826816_ __tmp52243)))) + (___kont4789847899_ (lambda (_L26729_) (let () (declare (not safe)) @@ -3280,10 +3281,10 @@ _E25880_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx4578945790_) + ___stx4789347894_) (let ((_e2668026751_ (gx#syntax-e - ___stx4578945790_))) + ___stx4789347894_))) (let ((_tl2667826758_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -3308,7 +3309,7 @@ (declare (not safe)) (##car _e2668426765_)))) (if (gx#stx-null? _tl2668226772_) - (___kont4579245793_ _hd2668326769_) + (___kont4789647897_ _hd2668326769_) (let () (declare (not safe)) (_g2667526698_))))) @@ -3328,7 +3329,7 @@ (declare (not safe)) (##car _e2669226719_)))) (if (gx#stx-null? _tl2669026726_) - (___kont4579445795_ _hd2669126723_) + (___kont4789847899_ _hd2669126723_) (let () (declare (not safe)) (_g2667526698_))))) @@ -3341,17 +3342,17 @@ (let () (declare (not safe)) (_g2667526698_))))) (let () (declare (not safe)) (_g2667526698_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4597445975_ + (___kont4807848079_ (lambda (_L26465_) - (let* ((___stx4573945740_ + (let* ((___stx4784347844_ _L26465_) (_g2648026503_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4573945740_)))) - (let ((___kont4574245743_ + ___stx4784347844_)))) + (let ((___kont4784647847_ (lambda (_L26580_) (let* ((_g2659426602_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -3364,46 +3365,46 @@ (lambda (_g2659526606_) ((lambda (_L26609_) (let () - (let ((__tmp50326 - (let ((__tmp50341 - (let ((__tmp50343 + (let ((__tmp52244 + (let ((__tmp52259 + (let ((__tmp52261 (gx#datum->syntax '#f '##vector?)) - (__tmp50342 + (__tmp52260 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp50343 __tmp50342))) - (__tmp50327 - (let ((__tmp50329 - (let ((__tmp50330 - (let ((__tmp50334 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50340 (gx#datum->syntax '#f '##fx=)) - (__tmp50335 - (let ((__tmp50337 - (let ((__tmp50339 + (cons __tmp52261 __tmp52260))) + (__tmp52245 + (let ((__tmp52247 + (let ((__tmp52248 + (let ((__tmp52252 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52258 (gx#datum->syntax '#f '##fx=)) + (__tmp52253 + (let ((__tmp52255 + (let ((__tmp52257 (gx#datum->syntax '#f '##vector-length)) - (__tmp50338 + (__tmp52256 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp50339 __tmp50338))) - (__tmp50336 + (cons __tmp52257 __tmp52256))) + (__tmp52254 (let () (declare (not safe)) (cons _L26609_ '())))) (declare (not safe)) - (cons __tmp50337 __tmp50336)))) + (cons __tmp52255 __tmp52254)))) (declare (not safe)) - (cons __tmp50340 __tmp50335))) - (__tmp50331 - (let ((__tmp50333 + (cons __tmp52258 __tmp52253))) + (__tmp52249 + (let ((__tmp52251 (let () (declare (not safe)) (_generate-simple-vector24634_ @@ -3412,45 +3413,45 @@ '0 _K25879_ _E25880_))) - (__tmp50332 + (__tmp52250 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp50333 __tmp50332)))) + (cons __tmp52251 __tmp52250)))) (declare (not safe)) - (cons __tmp50334 __tmp50331)))) + (cons __tmp52252 __tmp52249)))) (declare (not safe)) - (cons 'if __tmp50330))) + (cons 'if __tmp52248))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50328 + (__tmp52246 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp50329 __tmp50328)))) + (cons __tmp52247 __tmp52246)))) (declare (not safe)) - (cons __tmp50341 __tmp50327)))) + (cons __tmp52259 __tmp52245)))) (declare (not safe)) - (cons 'if __tmp50326)))) + (cons 'if __tmp52244)))) _g2659526606_))) - (__tmp50344 (gx#stx-length _L26580_))) + (__tmp52262 (gx#stx-length _L26580_))) (declare (not safe)) - (_g2659326621_ __tmp50344)))) - (___kont4574445745_ + (_g2659326621_ __tmp52262)))) + (___kont4784847849_ (lambda (_L26534_) - (let ((__tmp50345 - (let ((__tmp50349 - (let ((__tmp50351 + (let ((__tmp52263 + (let ((__tmp52267 + (let ((__tmp52269 (gx#datum->syntax '#f '##vector?)) - (__tmp50350 + (__tmp52268 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp50351 __tmp50350))) - (__tmp50346 - (let ((__tmp50348 + (cons __tmp52269 __tmp52268))) + (__tmp52264 + (let ((__tmp52266 (let () (declare (not safe)) (_generate-list-vector24635_ @@ -3459,22 +3460,22 @@ 'vector->list _K25879_ _E25880_))) - (__tmp50347 + (__tmp52265 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp50348 __tmp50347)))) + (cons __tmp52266 __tmp52265)))) (declare (not safe)) - (cons __tmp50349 __tmp50346)))) + (cons __tmp52267 __tmp52264)))) (declare (not safe)) - (cons 'if __tmp50345))))) + (cons 'if __tmp52263))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx4573945740_) + ___stx4784347844_) (let ((_e2648526556_ (gx#syntax-e - ___stx4573945740_))) + ___stx4784347844_))) (let ((_tl2648326563_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -3499,7 +3500,7 @@ (declare (not safe)) (##car _e2648926570_)))) (if (gx#stx-null? _tl2648726577_) - (___kont4574245743_ _hd2648826574_) + (___kont4784647847_ _hd2648826574_) (let () (declare (not safe)) (_g2648026503_))))) @@ -3519,7 +3520,7 @@ (declare (not safe)) (##car _e2649726524_)))) (if (gx#stx-null? _tl2649526531_) - (___kont4574445745_ _hd2649626528_) + (___kont4784847849_ _hd2649626528_) (let () (declare (not safe)) (_g2648026503_))))) @@ -3532,29 +3533,29 @@ (let () (declare (not safe)) (_g2648026503_))))) (let () (declare (not safe)) (_g2648026503_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4597645977_ + (___kont4808048081_ (lambda (_L26416_ _L26418_) - (let ((__tmp50352 + (let ((__tmp52270 (gx#stx-e _L26418_))) (declare (not safe)) (_generate-struct24636_ - __tmp50352 + __tmp52270 _tgt25876_ _L26416_ _K25879_ _E25880_)))) - (___kont4597845979_ + (___kont4808248083_ (lambda (_L26357_ _L26359_) - (let ((__tmp50353 + (let ((__tmp52271 (gx#stx-e _L26359_))) (declare (not safe)) (_generate-class24639_ - __tmp50353 + __tmp52271 _tgt25876_ _L26357_ _K25879_ _E25880_)))) - (___kont4598045981_ + (___kont4808448085_ (lambda (_L26260_) (let* ((_g2627426282_ (lambda (_g2627526278_) @@ -3566,44 +3567,44 @@ (lambda (_g2627526286_) ((lambda (_L26289_) (let () - (let ((__tmp50354 + (let ((__tmp52272 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50357 - (let ((__tmp50358 - (let ((__tmp50359 - (let ((__tmp50360 - (let ((__tmp50362 + (let ((__tmp52275 + (let ((__tmp52276 + (let ((__tmp52277 + (let ((__tmp52278 + (let ((__tmp52280 (gx#datum->syntax '#f 'quote)) - (__tmp50361 + (__tmp52279 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L26260_ '())))) (declare (not safe)) - (cons __tmp50362 __tmp50361)))) + (cons __tmp52280 __tmp52279)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50360 '())))) + (cons __tmp52278 '())))) (declare (not safe)) - (cons _L25897_ __tmp50359)))) + (cons _L25897_ __tmp52277)))) (declare (not safe)) - (cons _L26289_ __tmp50358))) - (__tmp50355 - (let ((__tmp50356 + (cons _L26289_ __tmp52276))) + (__tmp52273 + (let ((__tmp52274 (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons _K25879_ __tmp50356)))) + (cons _K25879_ __tmp52274)))) (declare (not safe)) - (cons __tmp50357 __tmp50355)))) + (cons __tmp52275 __tmp52273)))) (declare (not safe)) - (cons 'if __tmp50354)))) + (cons 'if __tmp52272)))) _g2627526286_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50363 + (__tmp52281 (let ((_e26305_ (gx#stx-e _L26260_))) @@ -3619,8 +3620,8 @@ 'equal?))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2627326301_ __tmp50363)))) - (___kont4598245983_ + (_g2627326301_ __tmp52281)))) + (___kont4808648087_ (lambda (_L26180_ _L26182_) (let* ((_g2619826206_ (lambda (_g2619926202_) @@ -3632,28 +3633,28 @@ (lambda (_g2619926210_) ((lambda (_L26213_) (let () - (let ((__tmp50364 + (let ((__tmp52282 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50367 - (let ((__tmp50368 - (let ((__tmp50369 - (let ((__tmp50370 - (let ((__tmp50371 + (let ((__tmp52285 + (let ((__tmp52286 + (let ((__tmp52287 + (let ((__tmp52288 + (let ((__tmp52289 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons _L26182_ __tmp50371)))) + (cons _L26182_ __tmp52289)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50370 '())))) + (cons __tmp52288 '())))) (declare (not safe)) - (cons _L26213_ __tmp50369)))) + (cons _L26213_ __tmp52287)))) (declare (not safe)) - (cons __tmp50368 '()))) - (__tmp50365 - (let ((__tmp50366 + (cons __tmp52286 '()))) + (__tmp52283 + (let ((__tmp52284 (let () (declare (not safe)) (_generate124631_ @@ -3662,44 +3663,44 @@ _K25879_ _E25880_)))) (declare (not safe)) - (cons __tmp50366 '())))) + (cons __tmp52284 '())))) (declare (not safe)) - (cons __tmp50367 __tmp50365)))) + (cons __tmp52285 __tmp52283)))) (declare (not safe)) - (cons 'let __tmp50364)))) + (cons 'let __tmp52282)))) _g2619926210_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50372 + (__tmp52290 (gx#genident 'e))) (declare (not safe)) - (_g2619726225_ __tmp50372)))) - (___kont4598445985_ + (_g2619726225_ __tmp52290)))) + (___kont4808848089_ (lambda (_L26122_) - (let ((__tmp50373 - (let ((__tmp50375 - (let ((__tmp50376 + (let ((__tmp52291 + (let ((__tmp52293 + (let ((__tmp52294 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50377 + (let ((__tmp52295 (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons _L26122_ __tmp50377)))) + (cons _L26122_ __tmp52295)))) (declare (not safe)) - (cons __tmp50376 '()))) - (__tmp50374 + (cons __tmp52294 '()))) + (__tmp52292 (let () (declare (not safe)) (cons _K25879_ '())))) (declare (not safe)) - (cons __tmp50375 __tmp50374)))) + (cons __tmp52293 __tmp52292)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'let __tmp50373)))) - (___kont4598645987_ + (cons 'let __tmp52291)))) + (___kont4809048091_ (lambda () _K25879_))) - (if (gx#stx-pair? ___stx4595345954_) + (if (gx#stx-pair? ___stx4805748058_) (let ((_e2593027350_ (gx#syntax-e - ___stx4595345954_))) + ___stx4805748058_))) (let ((_tl2592827357_ (let () (declare (not safe)) @@ -3728,14 +3729,14 @@ (let () (declare (not safe)) (##car _e2593427364_)))) - (___kont4595645957_ _tl2593227371_ _hd2593327368_))) + (___kont4806048061_ _tl2593227371_ _hd2593327368_))) (let () (declare (not safe)) (_g2592426066_))) (if (let () (declare (not safe)) (equal? _e2593127360_ 'and:)) - (___kont4595845959_ _tl2592827357_) + (___kont4806248063_ _tl2592827357_) (if (let () (declare (not safe)) (equal? _e2593127360_ 'or:)) - (___kont4596045961_ _tl2592827357_) + (___kont4806448065_ _tl2592827357_) (if (let () (declare (not safe)) (equal? _e2593127360_ 'not:)) @@ -3751,7 +3752,7 @@ (declare (not safe)) (##car _e2595227133_)))) (if (gx#stx-null? _tl2595027140_) - (___kont4596245963_ _hd2595127137_) + (___kont4806648067_ _hd2595127137_) (let () (declare (not safe)) (_g2592426066_))))) @@ -3784,7 +3785,7 @@ (##car _e2596427015_)))) (if (gx#stx-null? _tl2596227022_) - (___kont4596445965_ + (___kont4806848069_ _hd2596327019_ _hd2596027009_) (let () @@ -3800,7 +3801,7 @@ (declare (not safe)) (equal? _e2593127360_ 'null:)) (if (gx#stx-null? _tl2592827357_) - (___kont4596645967_) + (___kont4807048071_) (let () (declare (not safe)) (_g2592426066_))) @@ -3833,7 +3834,7 @@ (_hd2597926935_ (let () (declare (not safe)) (##car _e2598026931_)))) (if (gx#stx-null? _tl2597826938_) - (___kont4596845969_ _hd2597926935_ _hd2597626925_) + (___kont4807248073_ _hd2597926935_ _hd2597626925_) (let () (declare (not safe)) (_g2592426066_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -3861,7 +3862,7 @@ (##car _e2598826845_)))) (if (gx#stx-null? _tl2598626852_) - (___kont4597045971_ + (___kont4807448075_ _hd2598726849_) (let () (declare (not safe)) @@ -3887,7 +3888,7 @@ (_hd2599526654_ (let () (declare (not safe)) (##car _e2599626650_)))) (if (gx#stx-null? _tl2599426657_) - (___kont4597245973_ _hd2599526654_) + (___kont4807648077_ _hd2599526654_) (let () (declare (not safe)) (_g2592426066_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -3908,7 +3909,7 @@ (_hd2600326459_ (let () (declare (not safe)) (##car _e2600426455_)))) (if (gx#stx-null? _tl2600226462_) - (___kont4597445975_ _hd2600326459_) + (___kont4807848079_ _hd2600326459_) (let () (declare (not safe)) (_g2592426066_))))) (let () (declare (not safe)) (_g2592426066_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3939,7 +3940,7 @@ (declare (not safe)) (##car _e2601626406_)))) (if (gx#stx-null? _tl2601426413_) - (___kont4597645977_ + (___kont4808048081_ _hd2601526410_ _hd2601226400_) (let () @@ -3972,7 +3973,7 @@ (declare (not safe)) (##car _e2602826347_)))) (if (gx#stx-null? _tl2602626354_) - (___kont4597845979_ + (___kont4808248083_ _hd2602726351_ _hd2602426341_) (let () @@ -3997,7 +3998,7 @@ (declare (not safe)) (##car _e2603626250_)))) (if (gx#stx-null? _tl2603426257_) - (___kont4598045981_ _hd2603526254_) + (___kont4808448085_ _hd2603526254_) (let () (declare (not safe)) (_g2592426066_))))) @@ -4028,7 +4029,7 @@ (declare (not safe)) (##car _e2604826170_)))) (if (gx#stx-null? _tl2604626177_) - (___kont4598245983_ + (___kont4808648087_ _hd2604726174_ _hd2604426164_) (let () @@ -4053,7 +4054,7 @@ (declare (not safe)) (##car _e2605626112_)))) (if (gx#stx-null? _tl2605426119_) - (___kont4598445985_ + (___kont4808848089_ _hd2605526116_) (let () (declare (not safe)) @@ -4065,7 +4066,7 @@ (declare (not safe)) (equal? _e2593127360_ 'any:)) (if (gx#stx-null? _tl2592827357_) - (___kont4598645987_) + (___kont4809048091_) (let () (declare (not safe)) (_g2592426066_))) @@ -4094,30 +4095,30 @@ (_g2525425872_ (lambda (_g2525625276_) (if (gx#stx-pair/null? _g2525625276_) - (let ((_g50378_ + (let ((_g52296_ (gx#syntax-split-splice _g2525625276_ '0))) (begin - (let ((_g50379_ + (let ((_g52297_ (let () (declare (not safe)) - (if (##values? _g50378_) - (##vector-length _g50378_) + (if (##values? _g52296_) + (##vector-length _g52296_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50379_ 2))) + (##fx= _g52297_ 2))) (error "Context expects 2 values" - _g50379_))) + _g52297_))) (let ((_target2525825279_ (let () (declare (not safe)) - (##vector-ref _g50378_ 0))) + (##vector-ref _g52296_ 0))) (_tl2526025282_ (let () (declare (not safe)) - (##vector-ref _g50378_ 1)))) + (##vector-ref _g52296_ 1)))) (if (gx#stx-null? _tl2526025282_) (letrec ((_loop2526125285_ (lambda (_hd2525925289_ @@ -4135,12 +4136,12 @@ (let () (declare (not safe)) (##cdr _e2526225295_)))) - (let ((__tmp50470 + (let ((__tmp52379 (let () (declare (not safe)) (cons _lp-hd2526325299_ _var2526525292_)))) (declare (not safe)) - (_loop2526125285_ _lp-tl2526425302_ __tmp50470)))) + (_loop2526125285_ _lp-tl2526425302_ __tmp52379)))) (let ((_var2526625305_ (reverse _var2526525292_))) ((lambda (_L25309_) (let () @@ -4153,34 +4154,34 @@ (_g2532425860_ (lambda (_g2532625346_) (if (gx#stx-pair/null? _g2532625346_) - (let ((_g50380_ + (let ((_g52298_ (gx#syntax-split-splice _g2532625346_ '0))) (begin - (let ((_g50381_ + (let ((_g52299_ (let () (declare (not safe)) - (if (##values? _g50380_) + (if (##values? _g52298_) (##vector-length - _g50380_) + _g52298_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50381_ 2))) + (##fx= _g52299_ 2))) (error "Context expects 2 values" - _g50381_))) + _g52299_))) (let ((_target2532825349_ (let () (declare (not safe)) (##vector-ref - _g50380_ + _g52298_ 0))) (_tl2533025352_ (let () (declare (not safe)) (##vector-ref - _g50380_ + _g52298_ 1)))) (if (gx#stx-null? _tl2533025352_) @@ -4198,7 +4199,7 @@ (let () (declare (not safe)) (##cdr _e2533225365_)))) - (let ((__tmp50467 + (let ((__tmp52377 (let () (declare (not safe)) (cons _lp-hd2533325369_ @@ -4206,7 +4207,7 @@ (declare (not safe)) (_loop2533125355_ _lp-tl2533425372_ - __tmp50467)))) + __tmp52377)))) (let ((_var-r2533625375_ (reverse _var-r2533525362_))) ((lambda (_L25379_) @@ -4221,36 +4222,36 @@ (lambda (_g2539725417_) (if (gx#stx-pair/null? _g2539725417_) - (let ((_g50382_ + (let ((_g52300_ (gx#syntax-split-splice _g2539725417_ '0))) (begin - (let ((_g50383_ + (let ((_g52301_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g50382_) - (##vector-length _g50382_) + _g52300_) + (##vector-length _g52300_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g50383_ 2))) - (error "Context expects 2 values" _g50383_))) + (if (not (let () (declare (not safe)) (##fx= _g52301_ 2))) + (error "Context expects 2 values" _g52301_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target2539925420_ (let () (declare (not safe)) (##vector-ref - _g50382_ + _g52300_ 0))) (_tl2540125423_ (let () (declare (not safe)) (##vector-ref - _g50382_ + _g52300_ 1)))) (if (gx#stx-null? _tl2540125423_) @@ -4268,7 +4269,7 @@ (let () (declare (not safe)) (##cdr _e2540325436_)))) - (let ((__tmp50463 + (let ((__tmp52374 (let () (declare (not safe)) (cons _lp-hd2540425440_ @@ -4276,7 +4277,7 @@ (declare (not safe)) (_loop2540225426_ _lp-tl2540525443_ - __tmp50463)))) + __tmp52374)))) (let ((_init2540725446_ (reverse _init2540625433_))) ((lambda (_L25450_) @@ -4386,197 +4387,192 @@ ((lambda (_L25734_) (let () (let () - (let ((__tmp50437 + (let ((__tmp52350 (gx#datum->syntax '#f 'letrec)) - (__tmp50384 - (let ((__tmp50390 - (let ((__tmp50428 - (let ((__tmp50429 - (let ((__tmp50430 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50436 (gx#datum->syntax '#f 'lambda)) - (__tmp50431 - (let ((__tmp50433 - (let ((__tmp50434 - (let ((__tmp50435 - (lambda (_g2575625759_ + (__tmp52302 + (let ((__tmp52307 + (let ((__tmp52342 + (let ((__tmp52343 + (let ((__tmp52344 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52349 (gx#datum->syntax '#f 'lambda)) + (__tmp52345 + (let ((__tmp52347 + (let ((__tmp52348 + (foldr (lambda (_g2575625759_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2575725762_) (let () (declare (not safe)) - (cons _g2575625759_ _g2575725762_))))) + (cons _g2575625759_ _g2575725762_))) + '() + _L25309_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (foldr1 __tmp50435 - '() - _L25309_)))) (declare (not safe)) - (cons _L25622_ __tmp50434))) - (__tmp50432 + (cons _L25622_ __tmp52348))) + (__tmp52346 (let () (declare (not safe)) (cons _L25650_ '())))) (declare (not safe)) - (cons __tmp50433 __tmp50432)))) + (cons __tmp52347 __tmp52346)))) (declare (not safe)) - (cons __tmp50436 __tmp50431)))) + (cons __tmp52349 __tmp52345)))) (declare (not safe)) - (cons __tmp50430 '())))) + (cons __tmp52344 '())))) (declare (not safe)) - (cons _L25510_ __tmp50429))) + (cons _L25510_ __tmp52343))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50391 - (let ((__tmp50418 - (let ((__tmp50419 + (__tmp52308 + (let ((__tmp52333 + (let ((__tmp52334 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50420 - (let ((__tmp50427 + (let ((__tmp52335 + (let ((__tmp52341 (gx#datum->syntax '#f 'lambda)) - (__tmp50421 - (let ((__tmp50423 - (let ((__tmp50424 - (let ((__tmp50425 - (let ((__tmp50426 + (__tmp52336 + (let ((__tmp52338 + (let ((__tmp52339 + (let ((__tmp52340 + (foldr (lambda (_g2575425765_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2575425765_ _g2575525768_) + _g2575525768_) (let () (declare (not safe)) - (cons _g2575425765_ _g2575525768_))))) - (declare (not safe)) - (foldr1 __tmp50426 '() _L25379_)))) + (cons _g2575425765_ _g2575525768_))) + '() + _L25379_))) (declare (not safe)) - (cons _L25622_ __tmp50425)))) + (cons _L25622_ __tmp52340)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L25594_ __tmp50424))) - (__tmp50422 + (cons _L25594_ __tmp52339))) + (__tmp52337 (let () (declare (not safe)) (cons _L25734_ '())))) (declare (not safe)) - (cons __tmp50423 __tmp50422)))) + (cons __tmp52338 __tmp52337)))) (declare (not safe)) - (cons __tmp50427 __tmp50421)))) + (cons __tmp52341 __tmp52336)))) (declare (not safe)) - (cons __tmp50420 '())))) + (cons __tmp52335 '())))) (declare (not safe)) - (cons _L25566_ __tmp50419))) - (__tmp50392 - (let ((__tmp50393 - (let ((__tmp50394 - (let ((__tmp50395 - (let ((__tmp50417 + (cons _L25566_ __tmp52334))) + (__tmp52309 + (let ((__tmp52310 + (let ((__tmp52311 + (let ((__tmp52312 + (let ((__tmp52332 (gx#datum->syntax '#f 'lambda)) - (__tmp50396 - (let ((__tmp50414 - (let ((__tmp50415 - (let ((__tmp50416 + (__tmp52313 + (let ((__tmp52330 + (let ((__tmp52331 + (foldr (lambda (_g2575225771_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2575225771_ _g2575325774_) + _g2575325774_) (let () (declare (not safe)) - (cons _g2575225771_ _g2575325774_))))) - (declare (not safe)) - (foldr1 __tmp50416 '() _L25379_)))) + (cons _g2575225771_ _g2575325774_))) + '() + _L25379_))) (declare (not safe)) - (cons _L25622_ __tmp50415))) - (__tmp50397 - (let ((__tmp50398 - (let ((__tmp50413 (gx#datum->syntax '#f 'if)) - (__tmp50399 - (let ((__tmp50410 - (let ((__tmp50412 + (cons _L25622_ __tmp52331))) + (__tmp52314 + (let ((__tmp52315 + (let ((__tmp52329 (gx#datum->syntax '#f 'if)) + (__tmp52316 + (let ((__tmp52326 + (let ((__tmp52328 (gx#datum->syntax '#f 'pair?)) - (__tmp50411 + (__tmp52327 (let () (declare (not safe)) (cons _L25622_ '())))) (declare (not safe)) - (cons __tmp50412 __tmp50411))) - (__tmp50400 - (let ((__tmp50402 - (let ((__tmp50403 - (let ((__tmp50407 - (let ((__tmp50409 + (cons __tmp52328 __tmp52327))) + (__tmp52317 + (let ((__tmp52319 + (let ((__tmp52320 + (let ((__tmp52323 + (let ((__tmp52325 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##car)) - (__tmp50408 + (__tmp52324 (let () (declare (not safe)) (cons _L25622_ '())))) (declare (not safe)) - (cons __tmp50409 __tmp50408))) - (__tmp50404 - (let ((__tmp50405 - (let ((__tmp50406 - (lambda (_g2575025777_ _g2575125780_) + (cons __tmp52325 __tmp52324))) + (__tmp52321 + (let ((__tmp52322 + (foldr (lambda (_g2575025777_ _g2575125780_) (let () (declare (not safe)) - (cons _g2575025777_ _g2575125780_))))) - (declare (not safe)) - (foldr1 __tmp50406 '() _L25379_)))) + (cons _g2575025777_ _g2575125780_))) + '() + _L25379_))) (declare (not safe)) - (cons _L25622_ __tmp50405)))) + (cons _L25622_ __tmp52322)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50407 - __tmp50404)))) + (cons __tmp52323 + __tmp52321)))) (declare (not safe)) - (cons _L25566_ __tmp50403))) - (__tmp50401 + (cons _L25566_ __tmp52320))) + (__tmp52318 (let () (declare (not safe)) (cons _L25706_ '())))) (declare (not safe)) - (cons __tmp50402 __tmp50401)))) + (cons __tmp52319 __tmp52318)))) (declare (not safe)) - (cons __tmp50410 __tmp50400)))) + (cons __tmp52326 __tmp52317)))) (declare (not safe)) - (cons __tmp50413 __tmp50399)))) + (cons __tmp52329 __tmp52316)))) (declare (not safe)) - (cons __tmp50398 '())))) + (cons __tmp52315 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50414 - __tmp50397)))) + (cons __tmp52330 + __tmp52314)))) (declare (not safe)) - (cons __tmp50417 __tmp50396)))) + (cons __tmp52332 __tmp52313)))) (declare (not safe)) - (cons __tmp50395 '())))) + (cons __tmp52312 '())))) (declare (not safe)) - (cons _L25538_ __tmp50394)))) + (cons _L25538_ __tmp52311)))) (declare (not safe)) - (cons __tmp50393 '())))) + (cons __tmp52310 '())))) (declare (not safe)) - (cons __tmp50418 __tmp50392)))) + (cons __tmp52333 __tmp52309)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50428 __tmp50391))) - (__tmp50385 - (let ((__tmp50386 - (let ((__tmp50387 - (let ((__tmp50388 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50389 - (lambda (_g2574825783_ _g2574925786_) + (cons __tmp52342 __tmp52308))) + (__tmp52303 + (let ((__tmp52304 + (let ((__tmp52305 + (let ((__tmp52306 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (foldr (lambda (_g2574825783_ _g2574925786_) (let () (declare (not safe)) - (cons _g2574825783_ _g2574925786_))))) - (declare (not safe)) - (foldr1 __tmp50389 '() _L25450_)))) + (cons _g2574825783_ _g2574925786_))) + '() + _L25450_))) (declare (not safe)) - (cons _L25482_ __tmp50388)))) + (cons _L25482_ __tmp52306)))) (declare (not safe)) - (cons _L25538_ __tmp50387)))) + (cons _L25538_ __tmp52305)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50386 '())))) + (cons __tmp52304 '())))) (declare (not safe)) - (cons __tmp50390 __tmp50385)))) + (cons __tmp52307 __tmp52303)))) (declare (not safe)) - (cons __tmp50437 __tmp50384))))) + (cons __tmp52350 __tmp52302))))) _g2572025731_))) - (__tmp50438 + (__tmp52351 (let () (declare (not safe)) (_generate124631_ @@ -4585,88 +4581,85 @@ _L25678_ _L25706_)))) (declare (not safe)) - (_g2571825789_ __tmp50438)))) + (_g2571825789_ __tmp52351)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2569225703_))) - (__tmp50439 - (let ((__tmp50440 - (let ((__tmp50441 - (let ((__tmp50442 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2579625799_ _g2579725802_) - (let ((__tmp50443 - (let ((__tmp50445 + (__tmp52352 + (let ((__tmp52353 + (let ((__tmp52354 + (foldr (lambda (_g2579625799_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g2579725802_) + (let ((__tmp52355 + (let ((__tmp52357 (gx#datum->syntax '#f 'reverse)) - (__tmp50444 + (__tmp52356 (let () (declare (not safe)) (cons _g2579625799_ '())))) (declare (not safe)) - (cons __tmp50445 __tmp50444)))) + (cons __tmp52357 __tmp52356)))) (declare (not safe)) - (cons __tmp50443 _g2579725802_))))) - (declare (not safe)) - (foldr1 __tmp50442 '() _L25379_)))) + (cons __tmp52355 _g2579725802_))) + '() + _L25379_))) (declare (not safe)) - (cons _L25622_ __tmp50441)))) + (cons _L25622_ __tmp52354)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L25510_ - __tmp50440)))) + __tmp52353)))) (declare (not safe)) - (_g2569025793_ __tmp50439)))) + (_g2569025793_ __tmp52352)))) _g2566425675_))) - (__tmp50446 - (let ((__tmp50447 - (let ((__tmp50454 - (let ((__tmp50456 + (__tmp52358 + (let ((__tmp52359 + (let ((__tmp52365 + (let ((__tmp52367 (gx#datum->syntax '#f '##cdr)) - (__tmp50455 + (__tmp52366 (let () (declare (not safe)) (cons _L25622_ '())))) (declare (not safe)) - (cons __tmp50456 - __tmp50455))) - (__tmp50448 + (cons __tmp52367 + __tmp52366))) + (__tmp52360 (begin (gx#syntax-check-splice-targets _L25379_ _L25309_) - (let ((__tmp50449 - (lambda (_g2580825812_ + (foldr (lambda (_g2580825812_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2580925815_ _g2581025817_) - (let ((__tmp50450 - (let ((__tmp50453 (gx#datum->syntax '#f 'cons)) - (__tmp50451 - (let ((__tmp50452 + (let ((__tmp52361 + (let ((__tmp52364 (gx#datum->syntax '#f 'cons)) + (__tmp52362 + (let ((__tmp52363 (let () (declare (not safe)) (cons _g2580825812_ '())))) (declare (not safe)) - (cons _g2580925815_ __tmp50452)))) + (cons _g2580925815_ __tmp52363)))) (declare (not safe)) - (cons __tmp50453 __tmp50451)))) + (cons __tmp52364 __tmp52362)))) (declare (not safe)) - (cons __tmp50450 _g2581025817_))))) + (cons __tmp52361 _g2581025817_))) + '() + _L25379_ + _L25309_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (foldr2 __tmp50449 - '() - _L25379_ - _L25309_))))) (declare (not safe)) - (cons __tmp50454 __tmp50448)))) + (cons __tmp52365 __tmp52360)))) (declare (not safe)) - (cons _L25538_ __tmp50447)))) + (cons _L25538_ __tmp52359)))) (declare (not safe)) - (_g2566225805_ __tmp50446)))) + (_g2566225805_ __tmp52358)))) _g2563625647_))) - (__tmp50457 + (__tmp52368 (let () (declare (not safe)) (_generate124631_ @@ -4677,30 +4670,30 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (_g2563425820_ - __tmp50457)))) + __tmp52368)))) _g2560825619_))) - (__tmp50458 (gx#genident 'rest))) + (__tmp52369 (gx#genident 'rest))) (declare (not safe)) - (_g2560625824_ __tmp50458)))) + (_g2560625824_ __tmp52369)))) _g2558025591_))) - (__tmp50459 (gx#genident 'hd))) + (__tmp52370 (gx#genident 'hd))) (declare (not safe)) - (_g2557825828_ __tmp50459)))) + (_g2557825828_ __tmp52370)))) _g2555225563_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50460 + (__tmp52371 (gx#genident 'splice-try))) (declare (not safe)) - (_g2555025832_ __tmp50460)))) + (_g2555025832_ __tmp52371)))) _g2552425535_))) - (__tmp50461 (gx#genident 'splice-loop))) + (__tmp52372 (gx#genident 'splice-loop))) (declare (not safe)) - (_g2552225836_ __tmp50461)))) + (_g2552225836_ __tmp52372)))) _g2549625507_))) - (__tmp50462 (gx#genident 'splice-rest))) + (__tmp52373 (gx#genident 'splice-rest))) (declare (not safe)) - (_g2549425840_ __tmp50462)))) + (_g2549425840_ __tmp52373)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2546825479_)))) (declare (not safe)) @@ -4717,28 +4710,25 @@ (declare (not safe)) (_g2539625413_ _g2539725417_))))) - (__tmp50464 + (__tmp52375 (make-list (gx#stx-length - (let ((__tmp50465 - (lambda (_g2585125854_ + (foldr (lambda (_g2585125854_ _g2585225857_) (let () (declare (not safe)) (cons _g2585125854_ - _g2585225857_))))) - (declare (not safe)) - (foldr1 __tmp50465 - '() - _L25309_))) - (let ((__tmp50466 + _g2585225857_))) + '() + _L25309_)) + (let ((__tmp52376 (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp50466 '()))))) + (cons __tmp52376 '()))))) (declare (not safe)) - (_g2539525848_ __tmp50464)))) + (_g2539525848_ __tmp52375)))) _var-r2533625375_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -4753,19 +4743,18 @@ (let () (declare (not safe)) (_g2532525342_ _g2532625346_))))) - (__tmp50468 + (__tmp52378 (gx#gentemps - (let ((__tmp50469 - (lambda (_g2586325866_ + (foldr (lambda (_g2586325866_ _g2586425869_) (let () (declare (not safe)) (cons _g2586325866_ - _g2586425869_))))) - (declare (not safe)) - (foldr1 __tmp50469 '() _L25309_))))) + _g2586425869_))) + '() + _L25309_)))) (declare (not safe)) - (_g2532425860_ __tmp50468)))) + (_g2532425860_ __tmp52378)))) _var2526625305_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -4780,13 +4769,13 @@ (let () (declare (not safe)) (_g2525525272_ _g2525625276_))))) - (__tmp50471 + (__tmp52380 (let () (declare (not safe)) (|gerbil/core$[1]#match-pattern-vars| _hd25250_)))) (declare (not safe)) - (_g2525425872_ __tmp50471)))) + (_g2525425872_ __tmp52380)))) (_generate-simple-vector24634_ (lambda (_tgt25090_ _body25092_ @@ -4795,14 +4784,14 @@ _E25095_) (let _recur25097_ ((_rest25100_ _body25092_) (_off25102_ _start25093_)) - (let* ((___stx4631146312_ _rest25100_) + (let* ((___stx4841548416_ _rest25100_) (_g2510525117_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4631146312_)))) - (let ((___kont4631446315_ + ___stx4841548416_)))) + (let ((___kont4841848419_ (lambda (_L25145_ _L25147_) (let* ((_g2516225181_ (lambda (_g2516325177_) @@ -4849,49 +4838,49 @@ (if (gx#stx-null? _tl2517325215_) ((lambda (_L25218_ _L25220_ _L25221_) (let () - (let ((__tmp50472 - (let ((__tmp50477 - (let ((__tmp50478 - (let ((__tmp50479 - (let ((__tmp50480 + (let ((__tmp52381 + (let ((__tmp52386 + (let ((__tmp52387 + (let ((__tmp52388 + (let ((__tmp52389 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50483 + (let ((__tmp52392 (gx#datum->syntax '#f '##vector-ref)) - (__tmp50481 - (let ((__tmp50482 + (__tmp52390 + (let ((__tmp52391 (let () (declare (not safe)) (cons _L25218_ '())))) (declare (not safe)) - (cons _L25220_ __tmp50482)))) + (cons _L25220_ __tmp52391)))) (declare (not safe)) - (cons __tmp50483 __tmp50481)))) + (cons __tmp52392 __tmp52390)))) (declare (not safe)) - (cons __tmp50480 '())))) + (cons __tmp52389 '())))) (declare (not safe)) - (cons _L25221_ __tmp50479)))) + (cons _L25221_ __tmp52388)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50478 '()))) - (__tmp50473 - (let ((__tmp50474 - (let ((__tmp50475 - (let ((__tmp50476 + (cons __tmp52387 '()))) + (__tmp52382 + (let ((__tmp52383 + (let ((__tmp52384 + (let ((__tmp52385 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (fx+ _off25102_ '1)))) (declare (not safe)) - (_recur25097_ _L25145_ __tmp50476)))) + (_recur25097_ _L25145_ __tmp52385)))) (declare (not safe)) - (_generate124631_ _L25221_ _L25147_ __tmp50475 _E25095_)))) + (_generate124631_ _L25221_ _L25147_ __tmp52384 _E25095_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50474 '())))) + (cons __tmp52383 '())))) (declare (not safe)) - (cons __tmp50477 __tmp50473)))) + (cons __tmp52386 __tmp52382)))) (declare (not safe)) - (cons 'let __tmp50472)))) + (cons 'let __tmp52381)))) _hd2517425212_ _hd2517125202_ _hd2516825192_) @@ -4907,16 +4896,16 @@ (declare (not safe)) (_g2516225181_ _g2516325185_))))) - (__tmp50484 + (__tmp52393 (list (gx#genident 'e) _tgt25090_ _off25102_))) (declare (not safe)) - (_g2516125240_ __tmp50484)))) - (___kont4631646317_ (lambda () _K25094_))) - (if (gx#stx-pair? ___stx4631146312_) + (_g2516125240_ __tmp52393)))) + (___kont4842048421_ (lambda () _K25094_))) + (if (gx#stx-pair? ___stx4841548416_) (let ((_e2511125135_ - (gx#syntax-e ___stx4631146312_))) + (gx#syntax-e ___stx4841548416_))) (let ((_tl2510925142_ (let () (declare (not safe)) @@ -4925,10 +4914,10 @@ (let () (declare (not safe)) (##car _e2511125135_)))) - (___kont4631446315_ + (___kont4841848419_ _tl2510925142_ _hd2511025139_))) - (___kont4631646317_))))))) + (___kont4842048421_))))))) (_generate-list-vector24635_ (lambda (_tgt24982_ _body24984_ @@ -4967,19 +4956,19 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let ((__tmp50485 - (let ((__tmp50488 - (let ((__tmp50489 - (let ((__tmp50490 + (let ((__tmp52394 + (let ((__tmp52397 + (let ((__tmp52398 + (let ((__tmp52399 (let () (declare (not safe)) (cons _L25059_ '())))) (declare (not safe)) - (cons _L25004_ __tmp50490)))) + (cons _L25004_ __tmp52399)))) (declare (not safe)) - (cons __tmp50489 '()))) - (__tmp50486 - (let ((__tmp50487 + (cons __tmp52398 '()))) + (__tmp52395 + (let ((__tmp52396 (let () (declare (not safe)) (_generate124631_ @@ -4988,56 +4977,56 @@ _K24986_ _E24987_)))) (declare (not safe)) - (cons __tmp50487 '())))) + (cons __tmp52396 '())))) (declare (not safe)) - (cons __tmp50488 __tmp50486)))) + (cons __tmp52397 __tmp52395)))) (declare (not safe)) - (cons 'let __tmp50485))))) + (cons 'let __tmp52394))))) _g2504525056_))) - (__tmp50491 + (__tmp52400 (let ((_$e25078_ _->list24985_)) (if (let () (declare (not safe)) (eq? 'values->list _$e25078_)) - (let ((__tmp50500 (gx#datum->syntax '#f 'values->list)) - (__tmp50499 + (let ((__tmp52409 (gx#datum->syntax '#f 'values->list)) + (__tmp52408 (let () (declare (not safe)) (cons _L25031_ '())))) (declare (not safe)) - (cons __tmp50500 __tmp50499)) + (cons __tmp52409 __tmp52408)) (if (let () (declare (not safe)) (eq? 'vector->list _$e25078_)) - (let ((__tmp50498 + (let ((__tmp52407 (gx#datum->syntax '#f '##vector->list)) - (__tmp50497 + (__tmp52406 (let () (declare (not safe)) (cons _L25031_ '())))) (declare (not safe)) - (cons __tmp50498 __tmp50497)) + (cons __tmp52407 __tmp52406)) (if (let () (declare (not safe)) (eq? 'struct->list _$e25078_)) - (let ((__tmp50496 + (let ((__tmp52405 (gx#datum->syntax '#f '##cdr)) - (__tmp50492 - (let ((__tmp50493 - (let ((__tmp50495 + (__tmp52401 + (let ((__tmp52402 + (let ((__tmp52404 (gx#datum->syntax '#f '##structure->list)) - (__tmp50494 + (__tmp52403 (let () (declare (not safe)) (cons _L25031_ '())))) (declare (not safe)) - (cons __tmp50495 __tmp50494)))) + (cons __tmp52404 __tmp52403)))) (declare (not safe)) - (cons __tmp50493 '())))) + (cons __tmp52402 '())))) (declare (not safe)) - (cons __tmp50496 __tmp50492)) + (cons __tmp52405 __tmp52401)) (gx#raise-syntax-error '#f '"Unexpected list conversion" @@ -5046,65 +5035,65 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (_g2504325074_ - __tmp50491)))) + __tmp52400)))) _g2501725028_)))) (declare (not safe)) (_g2501525082_ _tgt24982_)))) _g2499025001_))) - (__tmp50501 (gx#genident 'e))) + (__tmp52410 (gx#genident 'e))) (declare (not safe)) - (_g2498825086_ __tmp50501)))) + (_g2498825086_ __tmp52410)))) (_generate-struct24636_ (lambda (_info24853_ _tgt24855_ _body24856_ _K24857_ _E24858_) - (let* ((___stx4632746328_ _body24856_) + (let* ((___stx4843148432_ _body24856_) (_g2486124884_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4632746328_)))) - (let ((___kont4633046331_ + ___stx4843148432_)))) + (let ((___kont4843448435_ (lambda (_L24961_) (let* ((_fields24975_ (let () (declare (not safe)) (_struct-field-accessors24638_ _info24853_))) - (__tmp50502 - (let ((__tmp50506 - (let ((__tmp50508 - (let ((__obj47530 + (__tmp52411 + (let ((__tmp52415 + (let ((__tmp52417 + (let ((__obj49634 _info24853_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47530 + __obj49634 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47530 + __obj49634 '11 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47530 + __obj49634 'predicate)))) - (__tmp50507 + (__tmp52416 (let () (declare (not safe)) (cons _tgt24855_ '())))) (declare (not safe)) - (cons __tmp50508 __tmp50507))) - (__tmp50503 - (let ((__tmp50505 + (cons __tmp52417 __tmp52416))) + (__tmp52412 + (let ((__tmp52414 (let () (declare (not safe)) (_generate-simple-struct-body24637_ @@ -5113,49 +5102,49 @@ _L24961_ _K24857_ _E24858_))) - (__tmp50504 + (__tmp52413 (let () (declare (not safe)) (cons _E24858_ '())))) (declare (not safe)) - (cons __tmp50505 __tmp50504)))) + (cons __tmp52414 __tmp52413)))) (declare (not safe)) - (cons __tmp50506 __tmp50503)))) + (cons __tmp52415 __tmp52412)))) (declare (not safe)) - (cons 'if __tmp50502)))) - (___kont4633246333_ + (cons 'if __tmp52411)))) + (___kont4843648437_ (lambda (_L24915_) - (let ((__tmp50509 - (let ((__tmp50513 - (let ((__tmp50515 - (let ((__obj47531 + (let ((__tmp52418 + (let ((__tmp52422 + (let ((__tmp52424 + (let ((__obj49635 _info24853_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47531 + __obj49635 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47531 + __obj49635 '11 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47531 + __obj49635 'predicate)))) - (__tmp50514 + (__tmp52423 (let () (declare (not safe)) (cons _tgt24855_ '())))) (declare (not safe)) - (cons __tmp50515 __tmp50514))) - (__tmp50510 - (let ((__tmp50512 + (cons __tmp52424 __tmp52423))) + (__tmp52419 + (let ((__tmp52421 (let () (declare (not safe)) (_generate-list-vector24635_ @@ -5164,19 +5153,19 @@ 'struct->list _K24857_ _E24858_))) - (__tmp50511 + (__tmp52420 (let () (declare (not safe)) (cons _E24858_ '())))) (declare (not safe)) - (cons __tmp50512 __tmp50511)))) + (cons __tmp52421 __tmp52420)))) (declare (not safe)) - (cons __tmp50513 __tmp50510)))) + (cons __tmp52422 __tmp52419)))) (declare (not safe)) - (cons 'if __tmp50509))))) - (if (gx#stx-pair? ___stx4632746328_) + (cons 'if __tmp52418))))) + (if (gx#stx-pair? ___stx4843148432_) (let ((_e2486624937_ - (gx#syntax-e ___stx4632746328_))) + (gx#syntax-e ___stx4843148432_))) (let ((_tl2486424944_ (let () (declare (not safe)) @@ -5205,7 +5194,7 @@ (##car _e2487024951_)))) (if (gx#stx-null? _tl2486824958_) - (___kont4633046331_ + (___kont4843448435_ _hd2486924955_) (let () (declare (not safe)) @@ -5232,7 +5221,7 @@ (##car _e2487824905_)))) (if (gx#stx-null? _tl2487624912_) - (___kont4633246333_ + (___kont4843648437_ _hd2487724909_) (let () (declare @@ -5260,14 +5249,14 @@ (declare (not safe)) (_struct-field-accessors24638_ _info24773_)))) - (let* ((___stx4637746378_ _rest24783_) + (let* ((___stx4848148482_ _rest24783_) (_g2478824800_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4637746378_)))) - (let ((___kont4638046381_ + ___stx4848148482_)))) + (let ((___kont4848448485_ (lambda (_L24828_ _L24830_) (if (let () (declare (not safe)) @@ -5277,68 +5266,68 @@ '"too many parts for struct" _stx24624_ _info24773_ - (let ((__obj47532 _info24773_)) + (let ((__obj49636 _info24773_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47532 + __obj49636 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47532 + __obj49636 '2 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47532 + __obj49636 'name)))) (let ((_$tgt24845_ (gx#genident 'e)) (_getf24847_ (car _fields24785_))) - (let ((__tmp50516 - (let ((__tmp50521 - (let ((__tmp50522 - (let ((__tmp50523 + (let ((__tmp52425 + (let ((__tmp52430 + (let ((__tmp52431 + (let ((__tmp52432 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50524 - (let ((__tmp50525 + (let ((__tmp52433 + (let ((__tmp52434 (let () (declare (not safe)) (cons _tgt24775_ '())))) (declare (not safe)) - (cons _getf24847_ __tmp50525)))) + (cons _getf24847_ __tmp52434)))) (declare (not safe)) - (cons __tmp50524 '())))) + (cons __tmp52433 '())))) (declare (not safe)) - (cons _$tgt24845_ __tmp50523)))) + (cons _$tgt24845_ __tmp52432)))) (declare (not safe)) - (cons __tmp50522 '()))) + (cons __tmp52431 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50517 - (let ((__tmp50518 - (let ((__tmp50519 + (__tmp52426 + (let ((__tmp52427 + (let ((__tmp52428 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50520 (cdr _fields24785_))) + (let ((__tmp52429 (cdr _fields24785_))) (declare (not safe)) - (_recur24780_ _L24828_ __tmp50520)))) + (_recur24780_ _L24828_ __tmp52429)))) (declare (not safe)) (_generate124631_ _$tgt24845_ _L24830_ - __tmp50519 + __tmp52428 _E24778_)))) (declare (not safe)) - (cons __tmp50518 '())))) + (cons __tmp52427 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50521 __tmp50517)))) + (cons __tmp52430 __tmp52426)))) (declare (not safe)) - (cons 'let __tmp50516)))))) - (___kont4638246383_ (lambda () _K24777_))) - (if (gx#stx-pair? ___stx4637746378_) + (cons 'let __tmp52425)))))) + (___kont4848648487_ (lambda () _K24777_))) + (if (gx#stx-pair? ___stx4848148482_) (let ((_e2479424818_ - (gx#syntax-e ___stx4637746378_))) + (gx#syntax-e ___stx4848148482_))) (let ((_tl2479224825_ (let () (declare (not safe)) @@ -5347,10 +5336,10 @@ (let () (declare (not safe)) (##car _e2479424818_)))) - (___kont4638046381_ + (___kont4848448485_ _tl2479224825_ _hd2479324822_))) - (___kont4638246383_))))))) + (___kont4848648487_))))))) (_struct-field-accessors24638_ (lambda (_info24754_) (let _recur24757_ ((_next24760_ @@ -5360,53 +5349,50 @@ (if (let () (declare (not safe)) (null? _next24760_)) '() (let ((_ti24763_ (car _next24760_))) - (append (let ((__tmp50526 + (append (let ((__tmp52435 (map gx#syntax-local-value - (let ((__obj47533 _ti24763_)) + (let ((__obj49637 _ti24763_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47533 + __obj49637 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47533 + __obj49637 '3 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47533 + __obj49637 'super)))))) (declare (not safe)) - (_recur24757_ __tmp50526)) + (_recur24757_ __tmp52435)) (map (lambda (_slot24766_) (let ((_$e24769_ - (let ((__tmp50527 - (let ((__obj47534 - _ti24763_)) - (if (let () + (assgetq _slot24766_ + (let ((__obj49638 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (declare (not safe)) - (##structure-direct-instance-of? - __obj47534 - 'gerbil.core#class-type-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj47534 - '14 + _ti24763_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj49638 + 'gerbil.core#class-type-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj49638 + '14 + gerbil/core$$#class-type-info::t + '#f)) + (class-slot-ref gerbil/core$$#class-type-info::t - '#f)) - (class-slot-ref - gerbil/core$$#class-type-info::t - __obj47534 - 'unchecked-accessors))))) + __obj49638 + 'unchecked-accessors)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (assgetq _slot24766_ - __tmp50527)))) (if _$e24769_ _$e24769_ (gx#raise-syntax-error @@ -5415,22 +5401,22 @@ _stx24624_ _info24754_ _slot24766_)))) - (let ((__obj47535 _ti24763_)) + (let ((__obj49639 _ti24763_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47535 + __obj49639 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47535 + __obj49639 '4 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47535 + __obj49639 'slots)))))))))) (_generate-class24639_ (lambda (_info24747_ @@ -5438,34 +5424,34 @@ _body24750_ _K24751_ _E24752_) - (let ((__tmp50528 - (let ((__tmp50532 - (let ((__tmp50534 - (let ((__obj47536 _info24747_)) + (let ((__tmp52436 + (let ((__tmp52440 + (let ((__tmp52442 + (let ((__obj49640 _info24747_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47536 + __obj49640 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47536 + __obj49640 '11 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47536 + __obj49640 'predicate)))) - (__tmp50533 + (__tmp52441 (let () (declare (not safe)) (cons _tgt24749_ '())))) (declare (not safe)) - (cons __tmp50534 __tmp50533))) - (__tmp50529 - (let ((__tmp50531 + (cons __tmp52442 __tmp52441))) + (__tmp52437 + (let ((__tmp52439 (let () (declare (not safe)) (_generate-class-body24640_ @@ -5474,16 +5460,16 @@ _body24750_ _K24751_ _E24752_))) - (__tmp50530 + (__tmp52438 (let () (declare (not safe)) (cons _E24752_ '())))) (declare (not safe)) - (cons __tmp50531 __tmp50530)))) + (cons __tmp52439 __tmp52438)))) (declare (not safe)) - (cons __tmp50532 __tmp50529)))) + (cons __tmp52440 __tmp52437)))) (declare (not safe)) - (cons 'if __tmp50528)))) + (cons 'if __tmp52436)))) (_generate-class-body24640_ (lambda (_info24642_ _tgt24644_ @@ -5491,64 +5477,61 @@ _K24646_ _E24647_) (let _recur24649_ ((_rest24652_ _body24645_)) - (let* ((___stx4639346394_ _rest24652_) + (let* ((___stx4849748498_ _rest24652_) (_g2465624672_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4639346394_)))) - (let ((___kont4639646397_ + ___stx4849748498_)))) + (let ((___kont4850048501_ (lambda (_L24710_ _L24712_ _L24713_) (let ((_$e24733_ - (let ((__tmp50536 - (string->symbol - (keyword->string - (gx#stx-e _L24713_)))) - (__tmp50535 - (let ((__obj47537 _info24642_)) - (if (let () - (declare (not safe)) - (##structure-direct-instance-of? - __obj47537 - 'gerbil.core#class-type-info::t)) - (let () - (declare (not safe)) - (##unchecked-structure-ref - __obj47537 - '14 + (assgetq (string->symbol + (keyword->string + (gx#stx-e _L24713_))) + (let ((__obj49641 + _info24642_)) + (if (let () + (declare (not safe)) + (##structure-direct-instance-of? + __obj49641 + 'gerbil.core#class-type-info::t)) + (let () + (declare (not safe)) + (##unchecked-structure-ref + __obj49641 + '14 + gerbil/core$$#class-type-info::t + '#f)) + (class-slot-ref gerbil/core$$#class-type-info::t - '#f)) - (class-slot-ref - gerbil/core$$#class-type-info::t - __obj47537 - 'unchecked-accessors))))) - (declare (not safe)) - (assgetq __tmp50536 __tmp50535)))) + __obj49641 + 'unchecked-accessors)))))) (if _$e24733_ ((lambda (_getf24737_) (let* ((_$tgt24740_ (gx#genident 'e)) - (__tmp50537 - (let ((__tmp50541 - (let ((__tmp50542 - (let ((__tmp50543 + (__tmp52443 + (let ((__tmp52447 + (let ((__tmp52448 + (let ((__tmp52449 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50544 - (let ((__tmp50545 + (let ((__tmp52450 + (let ((__tmp52451 (let () (declare (not safe)) (cons _tgt24644_ '())))) (declare (not safe)) - (cons _getf24737_ __tmp50545)))) + (cons _getf24737_ __tmp52451)))) (declare (not safe)) - (cons __tmp50544 '())))) + (cons __tmp52450 '())))) (declare (not safe)) - (cons _$tgt24740_ __tmp50543)))) + (cons _$tgt24740_ __tmp52449)))) (declare (not safe)) - (cons __tmp50542 '()))) - (__tmp50538 - (let ((__tmp50539 - (let ((__tmp50540 + (cons __tmp52448 '()))) + (__tmp52444 + (let ((__tmp52445 + (let ((__tmp52446 (let () (declare (not safe)) (_recur24649_ _L24710_)))) @@ -5556,16 +5539,16 @@ (_generate124631_ _$tgt24740_ _L24712_ - __tmp50540 + __tmp52446 _E24647_)))) (declare (not safe)) - (cons __tmp50539 '())))) + (cons __tmp52445 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50541 - __tmp50538)))) + (cons __tmp52447 + __tmp52444)))) (declare (not safe)) - (cons 'let __tmp50537))) + (cons 'let __tmp52443))) _$e24733_) (gx#raise-syntax-error '#f @@ -5573,10 +5556,10 @@ _stx24624_ _info24642_ _L24713_))))) - (___kont4639846399_ (lambda () _K24646_))) - (if (gx#stx-pair? ___stx4639346394_) + (___kont4850248503_ (lambda () _K24646_))) + (if (gx#stx-pair? ___stx4849748498_) (let ((_e2466324690_ - (gx#syntax-e ___stx4639346394_))) + (gx#syntax-e ___stx4849748498_))) (let ((_tl2466124697_ (let () (declare (not safe)) @@ -5596,12 +5579,12 @@ (let () (declare (not safe)) (##car _e2466624700_)))) - (___kont4639646397_ + (___kont4850048501_ _tl2466424707_ _hd2466524704_ _hd2466224694_))) - (___kont4639846399_)))) - (___kont4639846399_)))))))) + (___kont4850248503_)))) + (___kont4850248503_)))))))) (let () (declare (not safe)) (_generate124631_ _tgt24626_ _ptree24627_ _K24628_ _E24629_))))) @@ -5611,66 +5594,66 @@ (lambda (_hd-len24446_) (let _lp24449_ ((_rest24452_ _clauses23523_) (_r24454_ '())) - (let* ((___stx4644346444_ _rest24452_) + (let* ((___stx4854748548_ _rest24452_) (_g2445724469_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4644346444_)))) - (let ((___kont4644646447_ + ___stx4854748548_)))) + (let ((___kont4855048551_ (lambda (_L24497_ _L24499_) - (let* ((___stx4641546416_ _L24499_) + (let* ((___stx4851948520_ _L24499_) (_g2451624532_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4641546416_)))) - (let ((___kont4641846419_ + ___stx4851948520_)))) + (let ((___kont4852248523_ (lambda (_L24601_) (if (gx#stx-null? _L24497_) - (let ((__tmp50546 - (let ((__tmp50551 + (let ((__tmp52452 + (let ((__tmp52457 (gx#genident 'else)) - (__tmp50547 - (let ((__tmp50548 + (__tmp52453 + (let ((__tmp52454 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50549 + (let ((__tmp52455 (gx#stx-wrap-source - (let ((__tmp50550 + (let ((__tmp52456 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp50550 _L24601_)) + (cons __tmp52456 _L24601_)) (let ((_$e24612_ (gx#stx-source _L24499_))) (if _$e24612_ _$e24612_ (gx#stx-source _stx23520_)))))) (declare (not safe)) - (cons __tmp50549 '())))) + (cons __tmp52455 '())))) (declare (not safe)) - (cons '#f __tmp50548)))) + (cons '#f __tmp52454)))) (declare (not safe)) - (cons __tmp50551 __tmp50547)))) + (cons __tmp52457 __tmp52453)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50546 _r24454_)) + (cons __tmp52452 _r24454_)) (gx#raise-syntax-error '#f '"bad syntax; misplaced else" _stx23520_ _L24499_)))) - (___kont4642046421_ + (___kont4852448525_ (lambda (_L24560_ _L24562_) - (let ((__tmp50552 - (let ((__tmp50553 - (let ((__tmp50559 + (let ((__tmp52458 + (let ((__tmp52459 + (let ((__tmp52465 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#genident 'try-match)) - (__tmp50554 - (let ((__tmp50558 + (__tmp52460 + (let ((__tmp52464 (gx#stx-map (lambda (_g2457424576_) (let () @@ -5679,40 +5662,40 @@ _g2457424576_ _stx23520_))) _L24562_)) - (__tmp50555 - (let ((__tmp50556 + (__tmp52461 + (let ((__tmp52462 (gx#stx-wrap-source - (let ((__tmp50557 + (let ((__tmp52463 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp50557 _L24560_)) + (cons __tmp52463 _L24560_)) (let ((_$e24580_ (gx#stx-source _L24499_))) (if _$e24580_ _$e24580_ (gx#stx-source _stx23520_)))))) (declare (not safe)) - (cons __tmp50556 '())))) + (cons __tmp52462 '())))) (declare (not safe)) - (cons __tmp50558 __tmp50555)))) + (cons __tmp52464 __tmp52461)))) (declare (not safe)) - (cons __tmp50559 __tmp50554)))) + (cons __tmp52465 __tmp52460)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50553 + (cons __tmp52459 _r24454_)))) (declare (not safe)) (_lp24449_ _L24497_ - __tmp50552)))) - (___kont4642246423_ + __tmp52458)))) + (___kont4852648527_ (lambda () (gx#raise-syntax-error '#f '"bad syntax; illegal match clause" _stx23520_ _L24499_)))) - (let* ((___match4644046441_ + (let* ((___match4854448545_ (lambda (_e2452624550_ _hd2452524554_ _tl2452424557_) @@ -5725,39 +5708,39 @@ _hd-len24446_) (gx#stx-list? _L24560_) - (let ((__tmp50560 + (let ((__tmp52466 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-null? _L24560_))) (declare (not safe)) - (not __tmp50560))) + (not __tmp52466))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4642046421_ + (___kont4852448525_ _L24560_ _L24562_) - (___kont4642246423_))))) - (___match4643446435_ + (___kont4852648527_))))) + (___match4853848539_ (lambda (_e2452124591_ _hd2452024595_ _tl2451924598_) (let ((_L24601_ _tl2451924598_)) (if (and (gx#stx-list? _L24601_) - (let ((__tmp50561 + (let ((__tmp52467 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-null? _L24601_))) (declare (not safe)) - (not __tmp50561))) + (not __tmp52467))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4641846419_ + (___kont4852248523_ _L24601_) - (___match4644046441_ + (___match4854448545_ _e2452124591_ _hd2452024595_ _tl2451924598_)))))) - (if (gx#stx-pair? ___stx4641546416_) + (if (gx#stx-pair? ___stx4851948520_) (let ((_e2452124591_ (gx#syntax-e - ___stx4641546416_))) + ___stx4851948520_))) (let ((_tl2451924598_ (let () (declare (not safe)) @@ -5769,25 +5752,25 @@ (if (gx#identifier? _hd2452024595_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50562_| + |gerbil/core$[1]#_g52468_| _hd2452024595_) - (___match4643446435_ + (___match4853848539_ _e2452124591_ _hd2452024595_ _tl2451924598_) - (___match4644046441_ + (___match4854448545_ _e2452124591_ _hd2452024595_ _tl2451924598_)) - (___match4644046441_ + (___match4854448545_ _e2452124591_ _hd2452024595_ _tl2451924598_)))) - (___kont4642246423_))))))) - (___kont4644846449_ (lambda () _r24454_))) - (if (gx#stx-pair? ___stx4644346444_) + (___kont4852648527_))))))) + (___kont4855248553_ (lambda () _r24454_))) + (if (gx#stx-pair? ___stx4854748548_) (let ((_e2446324487_ - (gx#syntax-e ___stx4644346444_))) + (gx#syntax-e ___stx4854748548_))) (let ((_tl2446124494_ (let () (declare (not safe)) @@ -5796,10 +5779,10 @@ (let () (declare (not safe)) (##car _e2446324487_)))) - (___kont4644646447_ + (___kont4855048551_ _tl2446124494_ _hd2446224491_))) - (___kont4644846449_))))))) + (___kont4855248553_))))))) (_generate-body23527_ (lambda (_body24231_) (let* ((_g2423424242_ @@ -5822,36 +5805,36 @@ (lambda (_g2426224282_) (if (gx#stx-pair/null? _g2426224282_) - (let ((_g50563_ + (let ((_g52469_ (gx#syntax-split-splice _g2426224282_ '0))) (begin - (let ((_g50564_ + (let ((_g52470_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g50563_) - (##vector-length _g50563_) + _g52469_) + (##vector-length _g52469_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g50564_ 2))) - (error "Context expects 2 values" _g50564_))) + (if (not (let () (declare (not safe)) (##fx= _g52470_ 2))) + (error "Context expects 2 values" _g52470_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target2426424285_ (let () (declare (not safe)) (##vector-ref - _g50563_ + _g52469_ 0))) (_tl2426624288_ (let () (declare (not safe)) (##vector-ref - _g50563_ + _g52469_ 1)))) (if (gx#stx-null? _tl2426624288_) @@ -5869,7 +5852,7 @@ (let () (declare (not safe)) (##cdr _e2426824301_)))) - (let ((__tmp50587 + (let ((__tmp52492 (let () (declare (not safe)) (cons _lp-hd2426924305_ @@ -5877,7 +5860,7 @@ (declare (not safe)) (_loop2426724291_ _lp-tl2427024308_ - __tmp50587)))) + __tmp52492)))) (let ((_target2427224311_ (reverse _target2427124298_))) ((lambda (_L24315_) @@ -5914,107 +5897,104 @@ ((lambda (_L24403_) (let () (let () - (let ((__tmp50568 + (let ((__tmp52474 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp50565 - (let ((__tmp50567 + (__tmp52471 + (let ((__tmp52473 (gx#datum->syntax '#f '@match)) - (__tmp50566 + (__tmp52472 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L24403_ '())))) (declare (not safe)) - (cons __tmp50567 __tmp50566)))) + (cons __tmp52473 __tmp52472)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50568 - __tmp50565))))) + (cons __tmp52474 + __tmp52471))))) _g2438924400_))) - (__tmp50569 + (__tmp52475 (gx#stx-wrap-source - (let ((__tmp50575 + (let ((__tmp52481 (gx#datum->syntax '#f 'let)) - (__tmp50570 - (let ((__tmp50572 - (let ((__tmp50573 - (let ((__tmp50574 + (__tmp52476 + (let ((__tmp52478 + (let ((__tmp52479 + (let ((__tmp52480 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L24347_ '())))) (declare (not safe)) - (cons _L24249_ __tmp50574)))) + (cons _L24249_ __tmp52480)))) (declare (not safe)) - (cons __tmp50573 '()))) - (__tmp50571 (let () (declare (not safe)) (cons _L24375_ '())))) + (cons __tmp52479 '()))) + (__tmp52477 (let () (declare (not safe)) (cons _L24375_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50572 - __tmp50571)))) + (cons __tmp52478 + __tmp52477)))) (declare (not safe)) - (cons __tmp50575 __tmp50570)) + (cons __tmp52481 __tmp52476)) (gx#stx-source _stx23520_)))) (declare (not safe)) - (_g2438724418_ __tmp50569)))) + (_g2438724418_ __tmp52475)))) _g2436124372_))) - (__tmp50576 - (let ((__tmp50577 + (__tmp52482 + (let ((__tmp52483 (let () (declare (not safe)) (cons _L24249_ '())))) (declare (not safe)) - (_generate-clauses23528_ _body24231_ __tmp50577)))) + (_generate-clauses23528_ _body24231_ __tmp52483)))) (declare (not safe)) - (_g2435924422_ __tmp50576)))) + (_g2435924422_ __tmp52482)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2433324344_))) - (__tmp50578 + (__tmp52484 (gx#stx-wrap-source - (let ((__tmp50586 + (let ((__tmp52491 (gx#datum->syntax '#f 'lambda)) - (__tmp50579 - (let ((__tmp50580 + (__tmp52485 + (let ((__tmp52486 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50581 - (let ((__tmp50585 + (let ((__tmp52487 + (let ((__tmp52490 (gx#datum->syntax '#f 'error)) - (__tmp50582 - (let ((__tmp50583 - (let ((__tmp50584 - (lambda (_g2442924432_ + (__tmp52488 + (let ((__tmp52489 + (foldr (lambda (_g2442924432_ _g2443024435_) (let () (declare (not safe)) (cons _g2442924432_ - _g2443024435_))))) - (declare (not safe)) - (foldr1 __tmp50584 - '() - _L24315_)))) + _g2443024435_))) + '() + _L24315_))) (declare (not safe)) (cons '"No clause matching" - __tmp50583)))) + __tmp52489)))) (declare (not safe)) - (cons __tmp50585 __tmp50582)))) + (cons __tmp52490 __tmp52488)))) (declare (not safe)) - (cons __tmp50581 '())))) + (cons __tmp52487 '())))) (declare (not safe)) - (cons '() __tmp50580)))) + (cons '() __tmp52486)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50586 - __tmp50579)) + (cons __tmp52491 + __tmp52485)) (gx#stx-source _stx23520_)))) (declare (not safe)) - (_g2433124426_ __tmp50578)))) + (_g2433124426_ __tmp52484)))) _target2427224311_)))))) (let () (declare (not safe)) @@ -6030,19 +6010,19 @@ (declare (not safe)) (_g2426024438_ _tgt-lst23522_)))) _g2423524246_))) - (__tmp50588 (gx#genident 'E))) + (__tmp52493 (gx#genident 'E))) (declare (not safe)) - (_g2423324442_ __tmp50588)))) + (_g2423324442_ __tmp52493)))) (_generate-clauses23528_ (lambda (_rest23883_ _E23885_) - (let* ((___stx4645946460_ _rest23883_) + (let* ((___stx4856348564_ _rest23883_) (_g2388923905_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4645946460_)))) - (let ((___kont4646246463_ + ___stx4856348564_)))) + (let ((___kont4856648567_ (lambda (_L24139_) (let* ((_g2415024168_ (lambda (_g2415124164_) @@ -6089,9 +6069,9 @@ (##cdr _e2416224195_)))) (if (gx#stx-null? _tl2416024202_) ((lambda (_L24205_ _L24207_) - (let ((__tmp50589 - (let ((__tmp50590 - (let ((__tmp50591 + (let ((__tmp52494 + (let ((__tmp52495 + (let ((__tmp52496 (if (gx#stx-e _L24207_) (let () (declare (not safe)) @@ -6101,11 +6081,11 @@ _E23885_)) _L24205_))) (declare (not safe)) - (cons __tmp50591 '())))) + (cons __tmp52496 '())))) (declare (not safe)) - (cons '@match-body __tmp50590)))) + (cons '@match-body __tmp52495)))) (declare (not safe)) - (cons 'begin-annotation __tmp50589))) + (cons 'begin-annotation __tmp52494))) _hd2416124199_ _hd2415824189_) (let () @@ -6125,7 +6105,7 @@ _g2415124172_)))))) (declare (not safe)) (_g2414924223_ _L24139_)))) - (___kont4646446465_ + (___kont4856848569_ (lambda (_L23933_ _L23935_) (let* ((_g2394823967_ (lambda (_g2394923963_) @@ -6209,38 +6189,38 @@ (if (gx#stx-null? _tl2403124063_) ((lambda (_L24066_ _L24068_) (let () - (let ((__tmp50618 (gx#datum->syntax '#f 'let)) - (__tmp50609 - (let ((__tmp50611 - (let ((__tmp50612 - (let ((__tmp50613 - (let ((__tmp50614 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50617 (gx#datum->syntax '#f 'lambda)) - (__tmp50615 - (let ((__tmp50616 + (let ((__tmp52523 (gx#datum->syntax '#f 'let)) + (__tmp52514 + (let ((__tmp52516 + (let ((__tmp52517 + (let ((__tmp52518 + (let ((__tmp52519 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp52522 (gx#datum->syntax '#f 'lambda)) + (__tmp52520 + (let ((__tmp52521 (let () (declare (not safe)) (cons _L24068_ '())))) (declare (not safe)) - (cons '() __tmp50616)))) + (cons '() __tmp52521)))) (declare (not safe)) - (cons __tmp50617 __tmp50615)))) + (cons __tmp52522 __tmp52520)))) (declare (not safe)) - (cons __tmp50614 '())))) + (cons __tmp52519 '())))) (declare (not safe)) - (cons _L24007_ __tmp50613)))) + (cons _L24007_ __tmp52518)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50612 '()))) - (__tmp50610 + (cons __tmp52517 '()))) + (__tmp52515 (let () (declare (not safe)) (cons _L24066_ '())))) (declare (not safe)) - (cons __tmp50611 __tmp50610)))) + (cons __tmp52516 __tmp52515)))) (declare (not safe)) - (cons __tmp50618 __tmp50609)))) + (cons __tmp52523 __tmp52514)))) _hd2403224060_ _hd2402924050_) (let () @@ -6254,14 +6234,14 @@ (declare (not safe)) (_g2402424039_ _g2402524043_))))) - (__tmp50619 + (__tmp52524 (list (let () (declare (not safe)) (_generate123529_ _L24006_ _L24004_ _E23885_)) - (let ((__tmp50620 + (let ((__tmp52525 (let () (declare (not safe)) (cons _L24007_ @@ -6271,9 +6251,9 @@ (declare (not safe)) (_generate-clauses23528_ _L23933_ - __tmp50620))))) + __tmp52525))))) (declare (not safe)) - (_g2402324084_ __tmp50619)) + (_g2402324084_ __tmp52524)) (let* ((_g2408824096_ (lambda (_g2408924092_) (gx#raise-syntax-error @@ -6284,71 +6264,71 @@ (lambda (_g2408924100_) ((lambda (_L24103_) (let () - (let ((__tmp50606 + (let ((__tmp52511 (gx#datum->syntax '#f 'let)) - (__tmp50592 - (let ((__tmp50594 + (__tmp52497 + (let ((__tmp52499 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50595 - (let ((__tmp50596 - (let ((__tmp50597 - (let ((__tmp50605 + (let ((__tmp52500 + (let ((__tmp52501 + (let ((__tmp52502 + (let ((__tmp52510 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp50598 - (let ((__tmp50604 + (__tmp52503 + (let ((__tmp52509 (gx#datum->syntax '#f '@match-else)) - (__tmp50599 - (let ((__tmp50600 + (__tmp52504 + (let ((__tmp52505 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50603 (gx#datum->syntax '#f 'lambda)) - (__tmp50601 - (let ((__tmp50602 + (let ((__tmp52508 (gx#datum->syntax '#f 'lambda)) + (__tmp52506 + (let ((__tmp52507 (let () (declare (not safe)) (cons _L24004_ '())))) (declare (not safe)) - (cons '() __tmp50602)))) + (cons '() __tmp52507)))) (declare (not safe)) - (cons __tmp50603 __tmp50601)))) + (cons __tmp52508 __tmp52506)))) (declare (not safe)) - (cons __tmp50600 '())))) + (cons __tmp52505 '())))) (declare (not safe)) - (cons __tmp50604 __tmp50599)))) + (cons __tmp52509 __tmp52504)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50605 __tmp50598)))) + (cons __tmp52510 __tmp52503)))) (declare (not safe)) - (cons __tmp50597 '())))) + (cons __tmp52502 '())))) (declare (not safe)) - (cons _L24007_ __tmp50596)))) + (cons _L24007_ __tmp52501)))) (declare (not safe)) - (cons __tmp50595 '()))) - (__tmp50593 + (cons __tmp52500 '()))) + (__tmp52498 (let () (declare (not safe)) (cons _L24103_ '())))) (declare (not safe)) - (cons __tmp50594 __tmp50593)))) + (cons __tmp52499 __tmp52498)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50606 - __tmp50592)))) + (cons __tmp52511 + __tmp52497)))) _g2408924100_))) - (__tmp50607 - (let ((__tmp50608 + (__tmp52512 + (let ((__tmp52513 (let () (declare (not safe)) (cons _L24007_ '())))) (declare (not safe)) (_generate-clauses23528_ _L23933_ - __tmp50608)))) + __tmp52513)))) (declare (not safe)) - (_g2408724114_ __tmp50607)))) + (_g2408724114_ __tmp52512)))) _hd2396023998_ _hd2395723988_ _hd2395423978_) @@ -6369,20 +6349,20 @@ _g2394923971_)))))) (declare (not safe)) (_g2394724118_ _L23935_)))) - (___kont4646646467_ + (___kont4857048571_ (lambda () - (let ((__tmp50621 - (let ((__tmp50622 + (let ((__tmp52526 + (let ((__tmp52527 (let () (declare (not safe)) (cons _E23885_ '())))) (declare (not safe)) - (cons '@match-body __tmp50622)))) + (cons '@match-body __tmp52527)))) (declare (not safe)) - (cons 'begin-annotation __tmp50621))))) - (if (gx#stx-pair? ___stx4645946460_) + (cons 'begin-annotation __tmp52526))))) + (if (gx#stx-pair? ___stx4856348564_) (let ((_e2389424129_ - (gx#syntax-e ___stx4645946460_))) + (gx#syntax-e ___stx4856348564_))) (let ((_tl2389224136_ (let () (declare (not safe)) @@ -6392,11 +6372,11 @@ (declare (not safe)) (##car _e2389424129_)))) (if (gx#stx-null? _tl2389224136_) - (___kont4646246463_ _hd2389324133_) - (___kont4646446465_ + (___kont4856648567_ _hd2389324133_) + (___kont4856848569_ _tl2389224136_ _hd2389324133_)))) - (___kont4646646467_)))))) + (___kont4857048571_)))))) (_generate123529_ (lambda (_clause23531_ _body23533_ _E23534_) (let* ((_g2353623560_ @@ -6431,25 +6411,25 @@ (##cdr _e2354523577_)))) (if (gx#stx-pair/null? _hd2354423581_) - (let ((_g50623_ + (let ((_g52528_ (gx#syntax-split-splice _hd2354423581_ '0))) (begin - (let ((_g50624_ + (let ((_g52529_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g50623_) - (##vector-length _g50623_) + (if (##values? _g52528_) + (##vector-length _g52528_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g50624_ 2))) - (error "Context expects 2 values" _g50624_))) + (if (not (let () (declare (not safe)) (##fx= _g52529_ 2))) + (error "Context expects 2 values" _g52529_))) (let ((_target2354623587_ - (let () (declare (not safe)) (##vector-ref _g50623_ 0))) + (let () (declare (not safe)) (##vector-ref _g52528_ 0))) (_tl2354823590_ - (let () (declare (not safe)) (##vector-ref _g50623_ 1)))) + (let () (declare (not safe)) (##vector-ref _g52528_ 1)))) (if (gx#stx-null? _tl2354823590_) (letrec ((_loop2354923593_ (lambda (_hd2354723597_ _var2355323600_) @@ -6464,7 +6444,7 @@ (let () (declare (not safe)) (##cdr _e2355023603_)))) - (let ((__tmp50641 + (let ((__tmp52543 (let () (declare (not safe)) (cons _lp-hd2355123607_ @@ -6472,26 +6452,23 @@ (declare (not safe)) (_loop2354923593_ _lp-tl2355223610_ - __tmp50641)))) + __tmp52543)))) (let ((_var2355423613_ (reverse _var2355323600_))) (if (gx#stx-null? _tl2354323584_) ((lambda (_L23617_ _L23619_) (let () (gx#check-duplicate-identifiers - (let ((__tmp50625 - (lambda (_g2364023643_ + (foldr (lambda (_g2364023643_ _g2364123646_) (let () (declare (not safe)) (cons _g2364023643_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2364123646_))))) + _g2364123646_))) + '() + _L23617_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (foldr1 __tmp50625 - '() - _L23617_)) _stx23520_) (let* ((_g2364923657_ (lambda (_g2365023653_) @@ -6526,71 +6503,71 @@ (let () (let () (gx#stx-wrap-source - (let ((__tmp50630 + (let ((__tmp52534 (gx#datum->syntax '#f 'let)) - (__tmp50626 - (let ((__tmp50628 + (__tmp52530 + (let ((__tmp52532 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50629 + (let ((__tmp52533 (let () (declare (not safe)) (cons _L23720_ '())))) (declare (not safe)) - (cons _L23619_ __tmp50629))) - (__tmp50627 + (cons _L23619_ __tmp52533))) + (__tmp52531 (let () (declare (not safe)) (cons _L23664_ '())))) (declare (not safe)) - (cons __tmp50628 __tmp50627)))) + (cons __tmp52532 __tmp52531)))) (declare (not safe)) - (cons __tmp50630 __tmp50626)) + (cons __tmp52534 __tmp52530)) (gx#stx-source _stx23520_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2370623717_))) - (__tmp50631 + (__tmp52535 (gx#stx-wrap-source - (let ((__tmp50636 + (let ((__tmp52539 (gx#datum->syntax '#f 'lambda)) - (__tmp50632 - (let ((__tmp50634 - (let ((__tmp50635 + (__tmp52536 + (let ((__tmp52538 + (foldr (lambda (_g2373823741_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2373823741_ _g2373923744_) + _g2373923744_) (let () (declare (not safe)) - (cons _g2373823741_ _g2373923744_))))) - (declare (not safe)) - (foldr1 __tmp50635 '() _L23617_))) - (__tmp50633 + (cons _g2373823741_ _g2373923744_))) + '() + _L23617_)) + (__tmp52537 (let () (declare (not safe)) (cons _L23692_ '())))) (declare (not safe)) - (cons __tmp50634 __tmp50633)))) + (cons __tmp52538 __tmp52537)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50636 __tmp50632)) + (cons __tmp52539 __tmp52536)) (gx#stx-source _stx23520_)))) (declare (not safe)) - (_g2370423735_ __tmp50631)))) + (_g2370423735_ __tmp52535)))) _g2367823689_)))) (declare (not safe)) (_g2367623747_ _body23533_)))) _g2365023661_))) - (__tmp50637 + (__tmp52540 (let _recur23755_ ((_rest23758_ _clause23531_) (_rest-targets23760_ _tgt-lst23522_)) - (let* ((___stx4648546486_ _rest23758_) + (let* ((___stx4858948590_ _rest23758_) (_g2376323775_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4648546486_)))) - (let ((___kont4648846489_ + ___stx4858948590_)))) + (let ((___kont4859248593_ (lambda (_L23811_ _L23813_) (let* ((_g2382823840_ (lambda (_g2382923836_) @@ -6612,7 +6589,7 @@ (declare (not safe)) (##cdr _e2383423847_)))) ((lambda (_L23857_ _L23859_) - (let ((__tmp50638 + (let ((__tmp52541 (let () (declare (not safe)) (_recur23755_ @@ -6623,7 +6600,7 @@ _stx23520_ _L23859_ _L23813_ - __tmp50638 + __tmp52541 _E23534_))) _tl2383223854_ _hd2383323851_))) @@ -6632,21 +6609,20 @@ (_g2382823840_ _g2382923844_)))))) (declare (not safe)) (_g2382723871_ _rest-targets23760_)))) - (___kont4649046491_ + (___kont4859448595_ (lambda () - (let ((__tmp50639 - (let ((__tmp50640 - (lambda (_g2378523788_ _g2378623791_) + (let ((__tmp52542 + (foldr (lambda (_g2378523788_ _g2378623791_) (let () (declare (not safe)) (cons _g2378523788_ - _g2378623791_))))) - (declare (not safe)) - (foldr1 __tmp50640 '() _L23617_)))) + _g2378623791_))) + '() + _L23617_))) (declare (not safe)) - (cons _L23619_ __tmp50639))))) - (if (gx#stx-pair? ___stx4648546486_) - (let ((_e2376923801_ (gx#syntax-e ___stx4648546486_))) + (cons _L23619_ __tmp52542))))) + (if (gx#stx-pair? ___stx4858948590_) + (let ((_e2376923801_ (gx#syntax-e ___stx4858948590_))) (let ((_tl2376723808_ (let () (declare (not safe)) @@ -6655,13 +6631,13 @@ (let () (declare (not safe)) (##car _e2376923801_)))) - (___kont4648846489_ + (___kont4859248593_ _tl2376723808_ _hd2376823805_))) - (___kont4649046491_))))))) + (___kont4859448595_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2364823751_ __tmp50637)))) + (_g2364823751_ __tmp52540)))) _var2355423613_ _hd2354123571_) (let () @@ -6685,52 +6661,52 @@ (let () (declare (not safe)) (_g2353623560_ _g2353723564_))))) - (__tmp50642 + (__tmp52544 (list (gx#genident 'K) (apply append (map |gerbil/core$[1]#match-pattern-vars| _clause23531_))))) (declare (not safe)) - (_g2353523879_ __tmp50642))))) - (let ((__tmp50643 - (let ((__tmp50644 (gx#stx-length _tgt-lst23522_))) + (_g2353523879_ __tmp52544))))) + (let ((__tmp52545 + (let ((__tmp52546 (gx#stx-length _tgt-lst23522_))) (declare (not safe)) - (_parse-body23525_ __tmp50644)))) + (_parse-body23525_ __tmp52546)))) (declare (not safe)) - (_generate-body23527_ __tmp50643))))) + (_generate-body23527_ __tmp52545))))) (define |gerbil/core$[1]#generate-match| (lambda (_stx23422_ _tgt23424_ _clauses23425_) (letrec ((_reclause23427_ (lambda (_clause23430_) - (let* ((___stx4650146502_ _clause23430_) + (let* ((___stx4860548606_ _clause23430_) (_g2343523450_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4650146502_)))) - (let ((___kont4650446505_ (lambda () _clause23430_)) - (___kont4650646507_ + ___stx4860548606_)))) + (let ((___kont4860848609_ (lambda () _clause23430_)) + (___kont4861048611_ (lambda (_L23478_ _L23480_) (gx#stx-wrap-source - (let ((__tmp50645 + (let ((__tmp52547 (let () (declare (not safe)) (cons _L23480_ '())))) (declare (not safe)) - (cons __tmp50645 _L23478_)) + (cons __tmp52547 _L23478_)) (gx#stx-source (gx#datum->syntax '#f 'clause))))) - (___kont4650846509_ + (___kont4861248613_ (lambda () (gx#raise-syntax-error '#f '"bad syntax; illegal match clause" _stx23422_ _clause23430_)))) - (if (gx#stx-pair? ___stx4650146502_) + (if (gx#stx-pair? ___stx4860548606_) (let ((_e2343923502_ - (gx#syntax-e ___stx4650146502_))) + (gx#syntax-e ___stx4860548606_))) (let ((_tl2343723509_ (let () (declare (not safe)) @@ -6741,34 +6717,34 @@ (##car _e2343923502_)))) (if (gx#identifier? _hd2343823506_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50646_| + |gerbil/core$[1]#_g52548_| _hd2343823506_) - (___kont4650446505_) - (___kont4650646507_ + (___kont4860848609_) + (___kont4861048611_ _tl2343723509_ _hd2343823506_)) - (___kont4650646507_ + (___kont4861048611_ _tl2343723509_ _hd2343823506_)))) - (___kont4650846509_))))))) - (let ((__tmp50648 + (___kont4861248613_))))))) + (let ((__tmp52550 (let () (declare (not safe)) (cons _tgt23424_ '()))) - (__tmp50647 (gx#stx-map _reclause23427_ _clauses23425_))) + (__tmp52549 (gx#stx-map _reclause23427_ _clauses23425_))) (declare (not safe)) (|gerbil/core$[1]#generate-match*| _stx23422_ - __tmp50648 - __tmp50647))))) + __tmp52550 + __tmp52549))))) (define |gerbil/core$[:0:]#match| (lambda (_stx30653_) - (let* ((___stx4652946530_ _stx30653_) + (let* ((___stx4863348634_ _stx30653_) (_g3065830687_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4652946530_)))) - (let ((___kont4653246533_ + ___stx4863348634_)))) + (let ((___kont4863648637_ (lambda (_L30927_) (let* ((_g3094030948_ (lambda (_g3094130944_) @@ -6791,37 +6767,37 @@ ((lambda (_L30982_) (let () (let () - (let ((__tmp50652 + (let ((__tmp52554 (gx#datum->syntax '#f 'lambda)) - (__tmp50649 - (let ((__tmp50651 + (__tmp52551 + (let ((__tmp52553 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L30955_ '()))) - (__tmp50650 + (__tmp52552 (let () (declare (not safe)) (cons _L30982_ '())))) (declare (not safe)) - (cons __tmp50651 __tmp50650)))) + (cons __tmp52553 __tmp52552)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50652 - __tmp50649))))) + (cons __tmp52554 + __tmp52551))))) _g3096830979_)))) (_g3096630997_ (gx#stx-wrap-source - (let ((__tmp50654 + (let ((__tmp52556 (gx#datum->syntax '#f 'match)) - (__tmp50653 + (__tmp52555 (let () (declare (not safe)) (cons _L30955_ _L30927_)))) (declare (not safe)) - (cons __tmp50654 __tmp50653)) + (cons __tmp52556 __tmp52555)) (gx#stx-source _stx30653_)))))) _g3094130952_)))) (_g3093931001_ (gx#genident 'e))))) - (___kont4653446535_ + (___kont4863848639_ (lambda (_L30822_) (let* ((_g3083530843_ (lambda (_g3083630839_) @@ -6844,35 +6820,35 @@ ((lambda (_L30877_) (let () (let () - (let ((__tmp50657 + (let ((__tmp52559 (gx#datum->syntax '#f 'lambda)) - (__tmp50655 - (let ((__tmp50656 + (__tmp52557 + (let ((__tmp52558 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L30877_ '())))) (declare (not safe)) - (cons _L30850_ __tmp50656)))) + (cons _L30850_ __tmp52558)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50657 - __tmp50655))))) + (cons __tmp52559 + __tmp52557))))) _g3086330874_)))) (_g3086130892_ (gx#stx-wrap-source - (let ((__tmp50659 + (let ((__tmp52561 (gx#datum->syntax '#f 'match)) - (__tmp50658 + (__tmp52560 (let () (declare (not safe)) (cons _L30850_ _L30822_)))) (declare (not safe)) - (cons __tmp50659 __tmp50658)) + (cons __tmp52561 __tmp52560)) (gx#stx-source _stx30653_)))))) _g3083630847_)))) (_g3083430896_ (gx#genident 'args))))) - (___kont4653646537_ + (___kont4864048641_ (lambda (_L30714_ _L30716_) (let* ((_g3073030738_ (lambda (_g3073130734_) @@ -6895,30 +6871,30 @@ ((lambda (_L30772_) (let () (let () - (let ((__tmp50665 + (let ((__tmp52567 (gx#datum->syntax '#f 'let)) - (__tmp50660 - (let ((__tmp50662 + (__tmp52562 + (let ((__tmp52564 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50663 - (let ((__tmp50664 + (let ((__tmp52565 + (let ((__tmp52566 (let () (declare (not safe)) (cons _L30716_ '())))) (declare (not safe)) - (cons _L30745_ __tmp50664)))) + (cons _L30745_ __tmp52566)))) (declare (not safe)) - (cons __tmp50663 '()))) - (__tmp50661 + (cons __tmp52565 '()))) + (__tmp52563 (let () (declare (not safe)) (cons _L30772_ '())))) (declare (not safe)) - (cons __tmp50662 __tmp50661)))) + (cons __tmp52564 __tmp52563)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50665 - __tmp50660))))) + (cons __tmp52567 + __tmp52562))))) _g3075830769_)))) (_g3075630787_ (let () @@ -6929,7 +6905,7 @@ _L30714_)))))) _g3073130742_)))) (_g3072930791_ (gx#genident _L30716_)))))) - (let* ((___match4658246583_ + (let* ((___match4868648687_ (lambda (_e3067830694_ _hd3067730698_ _tl3067630701_ @@ -6939,9 +6915,9 @@ (let ((_L30714_ _tl3067930711_) (_L30716_ _hd3068030708_)) (if (gx#stx-list? _L30714_) - (___kont4653646537_ _L30714_ _L30716_) + (___kont4864048641_ _L30714_ _L30716_) (let () (declare (not safe)) (_g3065830687_)))))) - (___match4657046571_ + (___match4867448675_ (lambda (_e3067030802_ _hd3066930806_ _tl3066830809_ @@ -6950,15 +6926,15 @@ _tl3067130819_) (let ((_L30822_ _tl3067130819_)) (if (gx#stx-list? _L30822_) - (___kont4653446535_ _L30822_) - (___match4658246583_ + (___kont4863848639_ _L30822_) + (___match4868648687_ _e3067030802_ _hd3066930806_ _tl3066830809_ _e3067330812_ _hd3067230816_ _tl3067130819_))))) - (___match4655446555_ + (___match4865848659_ (lambda (_e3066330907_ _hd3066230911_ _tl3066130914_ @@ -6967,16 +6943,16 @@ _tl3066430924_) (let ((_L30927_ _tl3066430924_)) (if (gx#stx-list? _L30927_) - (___kont4653246533_ _L30927_) - (___match4658246583_ + (___kont4863648637_ _L30927_) + (___match4868648687_ _e3066330907_ _hd3066230911_ _tl3066130914_ _e3066630917_ _hd3066530921_ _tl3066430924_)))))) - (if (gx#stx-pair? ___stx4652946530_) - (let ((_e3066330907_ (gx#syntax-e ___stx4652946530_))) + (if (gx#stx-pair? ___stx4863348634_) + (let ((_e3066330907_ (gx#syntax-e ___stx4863348634_))) (let ((_tl3066130914_ (let () (declare (not safe)) (##cdr _e3066330907_))) (_hd3066230911_ @@ -6995,9 +6971,9 @@ (##car _e3066630917_)))) (if (gx#identifier? _hd3066530921_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50667_| + |gerbil/core$[1]#_g52569_| _hd3066530921_) - (___match4655446555_ + (___match4865848659_ _e3066330907_ _hd3066230911_ _tl3066130914_ @@ -7005,23 +6981,23 @@ _hd3066530921_ _tl3066430924_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50666_| + |gerbil/core$[1]#_g52568_| _hd3066530921_) - (___match4657046571_ + (___match4867448675_ _e3066330907_ _hd3066230911_ _tl3066130914_ _e3066630917_ _hd3066530921_ _tl3066430924_) - (___match4658246583_ + (___match4868648687_ _e3066330907_ _hd3066230911_ _tl3066130914_ _e3066630917_ _hd3066530921_ _tl3066430924_))) - (___match4658246583_ + (___match4868648687_ _e3066330907_ _hd3066230911_ _tl3066130914_ @@ -7062,31 +7038,31 @@ (declare (not safe)) (##cdr _e3102131053_)))) (if (gx#stx-pair/null? _hd3102031057_) - (let ((_g50668_ + (let ((_g52570_ (gx#syntax-split-splice _hd3102031057_ '0))) (begin - (let ((_g50669_ + (let ((_g52571_ (let () (declare (not safe)) - (if (##values? _g50668_) + (if (##values? _g52570_) (##vector-length - _g50668_) + _g52570_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50669_ 2))) + (##fx= _g52571_ 2))) (error "Context expects 2 values" - _g50669_))) + _g52571_))) (let ((_target3102231063_ (let () (declare (not safe)) - (##vector-ref _g50668_ 0))) + (##vector-ref _g52570_ 0))) (_tl3102431066_ (let () (declare (not safe)) - (##vector-ref _g50668_ 1)))) + (##vector-ref _g52570_ 1)))) (if (gx#stx-null? _tl3102431066_) (letrec ((_loop3102531069_ (lambda (_hd3102331073_ @@ -7120,41 +7096,41 @@ (lambda (_g3111431134_) (if (gx#stx-pair/null? _g3111431134_) - (let ((_g50670_ + (let ((_g52572_ (gx#syntax-split-splice _g3111431134_ '0))) (begin - (let ((_g50671_ + (let ((_g52573_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g50670_) - (##vector-length _g50670_) + _g52572_) + (##vector-length _g52572_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g50671_ 2))) - (error "Context expects 2 values" _g50671_))) + (##fx= _g52573_ 2))) + (error "Context expects 2 values" _g52573_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3111631137_ (let () (declare (not safe)) (##vector-ref - _g50670_ + _g52572_ 0))) (_tl3111831140_ (let () (declare (not safe)) (##vector-ref - _g50670_ + _g52572_ 1)))) (if (gx#stx-null? _tl3111831140_) @@ -7193,62 +7169,59 @@ ((lambda (_L31198_) (let () (let () - (let ((__tmp50678 + (let ((__tmp52579 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let)) - (__tmp50672 - (let ((__tmp50674 + (__tmp52574 + (let ((__tmp52576 (begin (gx#syntax-check-splice-targets _L31095_ _L31167_) - (let ((__tmp50675 - (lambda (_g3121231216_ + (foldr (lambda (_g3121231216_ _g3121331219_ _g3121431221_) - (let ((__tmp50676 - (let ((__tmp50677 + (let ((__tmp52577 + (let ((__tmp52578 (let () (declare (not safe)) (cons _g3121231216_ '())))) (declare (not safe)) (cons _g3121331219_ - __tmp50677)))) + __tmp52578)))) (declare (not safe)) - (cons __tmp50676 _g3121431221_))))) - (declare (not safe)) - (foldr2 __tmp50675 '() _L31095_ _L31167_)))) - (__tmp50673 + (cons __tmp52577 _g3121431221_))) + '() + _L31095_ + _L31167_))) + (__tmp52575 (let () (declare (not safe)) (cons _L31198_ '())))) (declare (not safe)) - (cons __tmp50674 __tmp50673)))) + (cons __tmp52576 __tmp52575)))) (declare (not safe)) - (cons __tmp50678 __tmp50672))))) + (cons __tmp52579 __tmp52574))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g3118431195_)))) (_g3118231224_ - (let ((__tmp50679 - (let ((__tmp50680 - (lambda (_g3122731230_ + (let ((__tmp52580 + (foldr (lambda (_g3122731230_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3122831233_) (let () (declare (not safe)) - (cons _g3122731230_ _g3122831233_))))) + (cons _g3122731230_ _g3122831233_))) + '() + _L31167_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (foldr1 __tmp50680 - '() - _L31167_)))) (declare (not safe)) (|gerbil/core$[1]#generate-match*| _stx31009_ - __tmp50679 + __tmp52580 _L31093_)))))) _$e3112431163_)))))) (_loop3111931143_ _target3111631137_ '())) @@ -7258,15 +7231,14 @@ _g3111431134_))))) (_g3111231236_ (gx#gentemps - (let ((__tmp50681 - (lambda (_g3123931242_ + (foldr (lambda (_g3123931242_ _g3124031245_) (let () (declare (not safe)) (cons _g3123931242_ - _g3124031245_))))) - (declare (not safe)) - (foldr1 __tmp50681 '() _L31095_))))) + _g3124031245_))) + '() + _L31095_)))) (_g3101231036_ _g3101331040_))) _tl3101931060_ _e3103031089_)))))) @@ -7282,111 +7254,102 @@ (_g3101131248_ _stx31009_)))) (define |gerbil/core$[:0:]#with| (lambda (_$stx31254_) - (let* ((___stx4658546586_ _$stx31254_) + (let* ((___stx4868948690_ _$stx31254_) (_g3126031343_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4658546586_)))) - (let ((___kont4658846589_ + ___stx4868948690_)))) + (let ((___kont4869248693_ (lambda (_L31673_) - (let ((__tmp50685 (gx#datum->syntax '#f 'let)) - (__tmp50682 - (let ((__tmp50683 - (let ((__tmp50684 - (lambda (_g3168931692_ _g3169031695_) + (let ((__tmp52583 (gx#datum->syntax '#f 'let)) + (__tmp52581 + (let ((__tmp52582 + (foldr (lambda (_g3168931692_ _g3169031695_) (let () (declare (not safe)) (cons _g3168931692_ - _g3169031695_))))) - (declare (not safe)) - (foldr1 __tmp50684 '() _L31673_)))) + _g3169031695_))) + '() + _L31673_))) (declare (not safe)) - (cons '() __tmp50683)))) + (cons '() __tmp52582)))) (declare (not safe)) - (cons __tmp50685 __tmp50682)))) - (___kont4659246593_ + (cons __tmp52583 __tmp52581)))) + (___kont4869648697_ (lambda (_L31581_ _L31583_ _L31584_ _L31585_) - (let ((__tmp50686 - (let ((__tmp50689 - (let ((__tmp50690 - (let ((__tmp50691 + (let ((__tmp52584 + (let ((__tmp52586 + (let ((__tmp52587 + (let ((__tmp52588 (let () (declare (not safe)) (cons _L31583_ '())))) (declare (not safe)) - (cons _L31584_ __tmp50691)))) + (cons _L31584_ __tmp52588)))) (declare (not safe)) - (cons __tmp50690 '()))) - (__tmp50687 - (let ((__tmp50688 - (lambda (_g3160731610_ _g3160831613_) + (cons __tmp52587 '()))) + (__tmp52585 + (foldr (lambda (_g3160731610_ _g3160831613_) (let () (declare (not safe)) (cons _g3160731610_ - _g3160831613_))))) - (declare (not safe)) - (foldr1 __tmp50688 '() _L31581_)))) + _g3160831613_))) + '() + _L31581_))) (declare (not safe)) - (cons __tmp50689 __tmp50687)))) + (cons __tmp52586 __tmp52585)))) (declare (not safe)) - (cons _L31585_ __tmp50686)))) - (___kont4659646597_ + (cons _L31585_ __tmp52584)))) + (___kont4870048701_ (lambda (_L31454_ _L31456_ _L31457_) - (let ((__tmp50701 (gx#datum->syntax '#f 'match*)) - (__tmp50692 - (let ((__tmp50699 - (let ((__tmp50700 - (lambda (_g3148331486_ _g3148431489_) + (let ((__tmp52595 (gx#datum->syntax '#f 'match*)) + (__tmp52589 + (let ((__tmp52594 + (foldr (lambda (_g3148331486_ _g3148431489_) (let () (declare (not safe)) (cons _g3148331486_ - _g3148431489_))))) - (declare (not safe)) - (foldr1 __tmp50700 '() _L31456_))) - (__tmp50693 - (let ((__tmp50694 - (let ((__tmp50697 - (let ((__tmp50698 - (lambda (_g3148131492_ + _g3148431489_))) + '() + _L31456_)) + (__tmp52590 + (let ((__tmp52591 + (let ((__tmp52593 + (foldr (lambda (_g3148131492_ _g3148231495_) (let () (declare (not safe)) (cons _g3148131492_ - _g3148231495_))))) - (declare (not safe)) - (foldr1 __tmp50698 - '() - _L31457_))) - (__tmp50695 - (let ((__tmp50696 - (lambda (_g3147931498_ + _g3148231495_))) + '() + _L31457_)) + (__tmp52592 + (foldr (lambda (_g3147931498_ _g3148031501_) (let () (declare (not safe)) (cons _g3147931498_ - _g3148031501_))))) - (declare (not safe)) - (foldr1 __tmp50696 - '() - _L31454_)))) + _g3148031501_))) + '() + _L31454_))) (declare (not safe)) - (cons __tmp50697 __tmp50695)))) + (cons __tmp52593 __tmp52592)))) (declare (not safe)) - (cons __tmp50694 '())))) + (cons __tmp52591 '())))) (declare (not safe)) - (cons __tmp50699 __tmp50693)))) + (cons __tmp52594 __tmp52590)))) (declare (not safe)) - (cons __tmp50701 __tmp50692))))) - (let* ((___match4667846679_ + (cons __tmp52595 __tmp52589))))) + (let* ((___match4878248783_ (lambda (_e3130831350_ _hd3130731354_ _tl3130631357_ _e3131131360_ _hd3131031364_ _tl3130931367_ - ___splice4659846599_ + ___splice4870248703_ _target3131231370_ _tl3131431373_) (letrec ((_loop3131531376_ @@ -7448,7 +7411,7 @@ (_expr3132131418_ (reverse _expr3131931383_))) (if (gx#stx-pair/null? _tl3130931367_) - (let ((___splice4660046601_ + (let ((___splice4870448705_ (gx#syntax-split-splice _tl3130931367_ '0))) @@ -7456,13 +7419,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice4660046601_ + ___splice4870448705_ '1))) (_target3132931424_ (let () (declare (not safe)) (##vector-ref - ___splice4660046601_ + ___splice4870448705_ '0)))) (if (gx#stx-null? _tl3133131427_) @@ -7488,7 +7451,7 @@ _body3133631437_))))) (let ((_body3133731450_ (reverse _body3133631437_))) - (___kont4659646597_ + (___kont4870048701_ _body3133731450_ _expr3132131418_ _hd3132231421_)))))) @@ -7501,7 +7464,7 @@ (declare (not safe)) (_g3126031343_)))))))) (_loop3131531376_ _target3131231370_ '() '())))) - (___match4667046671_ + (___match4877448775_ (lambda (_e3130831350_ _hd3130731354_ _tl3130631357_ @@ -7509,32 +7472,32 @@ _hd3131031364_ _tl3130931367_) (if (gx#stx-pair/null? _hd3131031364_) - (let ((___splice4659846599_ + (let ((___splice4870248703_ (gx#syntax-split-splice _hd3131031364_ '0))) (let ((_tl3131431373_ (let () (declare (not safe)) - (##vector-ref ___splice4659846599_ '1))) + (##vector-ref ___splice4870248703_ '1))) (_target3131231370_ (let () (declare (not safe)) - (##vector-ref ___splice4659846599_ '0)))) + (##vector-ref ___splice4870248703_ '0)))) (if (gx#stx-null? _tl3131431373_) - (___match4667846679_ + (___match4878248783_ _e3130831350_ _hd3130731354_ _tl3130631357_ _e3131131360_ _hd3131031364_ _tl3130931367_ - ___splice4659846599_ + ___splice4870248703_ _target3131231370_ _tl3131431373_) (let () (declare (not safe)) (_g3126031343_))))) (let () (declare (not safe)) (_g3126031343_))))) - (___match4665846659_ + (___match4876248763_ (lambda (_e3128431511_ _hd3128331515_ _tl3128231518_ @@ -7547,7 +7510,7 @@ _e3129331541_ _hd3129231545_ _tl3129131548_ - ___splice4659446595_ + ___splice4869848699_ _target3129431551_ _tl3129631554_) (letrec ((_loop3129731557_ @@ -7579,12 +7542,12 @@ (declare (not safe)) (|gerbil/core$[1]#match-pattern?| _L31584_)) - (___kont4659246593_ + (___kont4869648697_ _L31581_ _L31583_ _L31584_ _L31585_) - (___match4667046671_ + (___match4877448775_ _e3128431511_ _hd3128331515_ _tl3128231518_ @@ -7592,14 +7555,14 @@ _hd3128631525_ _tl3128531528_)))))))) (_loop3129731557_ _target3129431551_ '())))) - (___match4662446625_ + (___match4872848729_ (lambda (_e3126531623_ _hd3126431627_ _tl3126331630_ _e3126831633_ _hd3126731637_ _tl3126631640_ - ___splice4659046591_ + ___splice4869448695_ _target3126931643_ _tl3127131646_) (letrec ((_loop3127231649_ @@ -7623,11 +7586,11 @@ _body3127631656_))))) (let ((_body3127731669_ (reverse _body3127631656_))) - (___kont4658846589_ + (___kont4869248693_ _body3127731669_)))))) (_loop3127231649_ _target3126931643_ '()))))) - (if (gx#stx-pair? ___stx4658546586_) - (let ((_e3126531623_ (gx#syntax-e ___stx4658546586_))) + (if (gx#stx-pair? ___stx4868948690_) + (let ((_e3126531623_ (gx#syntax-e ___stx4868948690_))) (let ((_tl3126331630_ (let () (declare (not safe)) (##cdr _e3126531623_))) (_hd3126431627_ @@ -7646,7 +7609,7 @@ (##car _e3126831633_)))) (if (gx#stx-null? _hd3126731637_) (if (gx#stx-pair/null? _tl3126631640_) - (let ((___splice4659046591_ + (let ((___splice4869448695_ (gx#syntax-split-splice _tl3126631640_ '0))) @@ -7654,28 +7617,28 @@ (let () (declare (not safe)) (##vector-ref - ___splice4659046591_ + ___splice4869448695_ '1))) (_target3126931643_ (let () (declare (not safe)) (##vector-ref - ___splice4659046591_ + ___splice4869448695_ '0)))) (if (gx#stx-null? _tl3127131646_) - (___match4662446625_ + (___match4872848729_ _e3126531623_ _hd3126431627_ _tl3126331630_ _e3126831633_ _hd3126731637_ _tl3126631640_ - ___splice4659046591_ + ___splice4869448695_ _target3126931643_ _tl3127131646_) (if (gx#stx-pair/null? _hd3126731637_) - (let ((___splice4659846599_ + (let ((___splice4870248703_ (gx#syntax-split-splice _hd3126731637_ '0))) @@ -7684,25 +7647,25 @@ (declare (not safe)) (##vector-ref - ___splice4659846599_ + ___splice4870248703_ '1))) (_target3131231370_ (let () (declare (not safe)) (##vector-ref - ___splice4659846599_ + ___splice4870248703_ '0)))) (if (gx#stx-null? _tl3131431373_) - (___match4667846679_ + (___match4878248783_ _e3126531623_ _hd3126431627_ _tl3126331630_ _e3126831633_ _hd3126731637_ _tl3126631640_ - ___splice4659846599_ + ___splice4870248703_ _target3131231370_ _tl3131431373_) (let () @@ -7713,7 +7676,7 @@ (declare (not safe)) (_g3126031343_)))))) (if (gx#stx-pair/null? _hd3126731637_) - (let ((___splice4659846599_ + (let ((___splice4870248703_ (gx#syntax-split-splice _hd3126731637_ '0))) @@ -7721,23 +7684,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4659846599_ + ___splice4870248703_ '1))) (_target3131231370_ (let () (declare (not safe)) (##vector-ref - ___splice4659846599_ + ___splice4870248703_ '0)))) (if (gx#stx-null? _tl3131431373_) - (___match4667846679_ + (___match4878248783_ _e3126531623_ _hd3126431627_ _tl3126331630_ _e3126831633_ _hd3126731637_ _tl3126631640_ - ___splice4659846599_ + ___splice4870248703_ _target3131231370_ _tl3131431373_) (let () @@ -7773,19 +7736,19 @@ _tl3129131548_) (if (gx#stx-pair/null? _tl3126631640_) - (let ((___splice4659446595_ + (let ((___splice4869848699_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _tl3126631640_ '0))) (let ((_tl3129631554_ (let () (declare (not safe)) - (##vector-ref ___splice4659446595_ '1))) + (##vector-ref ___splice4869848699_ '1))) (_target3129431551_ (let () (declare (not safe)) - (##vector-ref ___splice4659446595_ '0)))) + (##vector-ref ___splice4869848699_ '0)))) (if (gx#stx-null? _tl3129631554_) - (___match4665846659_ + (___match4876248763_ _e3126531623_ _hd3126431627_ _tl3126331630_ @@ -7798,11 +7761,11 @@ _e3129331541_ _hd3129231545_ _tl3129131548_ - ___splice4659446595_ + ___splice4869848699_ _target3129431551_ _tl3129631554_) (if (gx#stx-pair/null? _hd3126731637_) - (let ((___splice4659846599_ + (let ((___splice4870248703_ (gx#syntax-split-splice _hd3126731637_ '0))) @@ -7810,23 +7773,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4659846599_ + ___splice4870248703_ '1))) (_target3131231370_ (let () (declare (not safe)) (##vector-ref - ___splice4659846599_ + ___splice4870248703_ '0)))) (if (gx#stx-null? _tl3131431373_) - (___match4667846679_ + (___match4878248783_ _e3126531623_ _hd3126431627_ _tl3126331630_ _e3126831633_ _hd3126731637_ _tl3126631640_ - ___splice4659846599_ + ___splice4870248703_ _target3131231370_ _tl3131431373_) (let () @@ -7834,49 +7797,49 @@ (_g3126031343_))))) (let () (declare (not safe)) (_g3126031343_)))))) (if (gx#stx-pair/null? _hd3126731637_) - (let ((___splice4659846599_ + (let ((___splice4870248703_ (gx#syntax-split-splice _hd3126731637_ '0))) (let ((_tl3131431373_ (let () (declare (not safe)) - (##vector-ref ___splice4659846599_ '1))) + (##vector-ref ___splice4870248703_ '1))) (_target3131231370_ (let () (declare (not safe)) - (##vector-ref ___splice4659846599_ '0)))) + (##vector-ref ___splice4870248703_ '0)))) (if (gx#stx-null? _tl3131431373_) - (___match4667846679_ + (___match4878248783_ _e3126531623_ _hd3126431627_ _tl3126331630_ _e3126831633_ _hd3126731637_ _tl3126631640_ - ___splice4659846599_ + ___splice4870248703_ _target3131231370_ _tl3131431373_) (let () (declare (not safe)) (_g3126031343_))))) (let () (declare (not safe)) (_g3126031343_)))) (if (gx#stx-pair/null? _hd3126731637_) - (let ((___splice4659846599_ + (let ((___splice4870248703_ (gx#syntax-split-splice _hd3126731637_ '0))) (let ((_tl3131431373_ (let () (declare (not safe)) - (##vector-ref ___splice4659846599_ '1))) + (##vector-ref ___splice4870248703_ '1))) (_target3131231370_ (let () (declare (not safe)) - (##vector-ref ___splice4659846599_ '0)))) + (##vector-ref ___splice4870248703_ '0)))) (if (gx#stx-null? _tl3131431373_) - (___match4667846679_ + (___match4878248783_ _e3126531623_ _hd3126431627_ _tl3126331630_ _e3126831633_ _hd3126731637_ _tl3126631640_ - ___splice4659846599_ + ___splice4870248703_ _target3131231370_ _tl3131431373_) (let () (declare (not safe)) (_g3126031343_))))) @@ -7884,7 +7847,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd3126731637_) - (let ((___splice4659846599_ + (let ((___splice4870248703_ (gx#syntax-split-splice _hd3126731637_ '0))) @@ -7893,25 +7856,25 @@ (declare (not safe)) (##vector-ref - ___splice4659846599_ + ___splice4870248703_ '1))) (_target3131231370_ (let () (declare (not safe)) (##vector-ref - ___splice4659846599_ + ___splice4870248703_ '0)))) (if (gx#stx-null? _tl3131431373_) - (___match4667846679_ + (___match4878248783_ _e3126531623_ _hd3126431627_ _tl3126331630_ _e3126831633_ _hd3126731637_ _tl3126631640_ - ___splice4659846599_ + ___splice4870248703_ _target3131231370_ _tl3131431373_) (let () @@ -7922,7 +7885,7 @@ (declare (not safe)) (_g3126031343_)))))) (if (gx#stx-pair/null? _hd3126731637_) - (let ((___splice4659846599_ + (let ((___splice4870248703_ (gx#syntax-split-splice _hd3126731637_ '0))) @@ -7930,23 +7893,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4659846599_ + ___splice4870248703_ '1))) (_target3131231370_ (let () (declare (not safe)) (##vector-ref - ___splice4659846599_ + ___splice4870248703_ '0)))) (if (gx#stx-null? _tl3131431373_) - (___match4667846679_ + (___match4878248783_ _e3126531623_ _hd3126431627_ _tl3126331630_ _e3126831633_ _hd3126731637_ _tl3126631640_ - ___splice4659846599_ + ___splice4870248703_ _target3131231370_ _tl3131431373_) (let () @@ -7959,76 +7922,74 @@ (let () (declare (not safe)) (_g3126031343_)))))))) (define |gerbil/core$[:0:]#with*| (lambda (_$stx31706_) - (let* ((___stx4668146682_ _$stx31706_) + (let* ((___stx4878548786_ _$stx31706_) (_g3171131763_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4668146682_)))) - (let ((___kont4668446685_ + ___stx4878548786_)))) + (let ((___kont4878848789_ (lambda (_L31933_ _L31935_ _L31936_ _L31937_ _L31938_) - (let ((__tmp50711 (gx#datum->syntax '#f 'with)) - (__tmp50702 - (let ((__tmp50708 - (let ((__tmp50709 - (let ((__tmp50710 + (let ((__tmp52604 (gx#datum->syntax '#f 'with)) + (__tmp52596 + (let ((__tmp52601 + (let ((__tmp52602 + (let ((__tmp52603 (let () (declare (not safe)) (cons _L31936_ '())))) (declare (not safe)) - (cons _L31937_ __tmp50710)))) + (cons _L31937_ __tmp52603)))) (declare (not safe)) - (cons __tmp50709 '()))) - (__tmp50703 - (let ((__tmp50704 - (let ((__tmp50705 - (let ((__tmp50706 - (let ((__tmp50707 - (lambda (_g3196331966_ + (cons __tmp52602 '()))) + (__tmp52597 + (let ((__tmp52598 + (let ((__tmp52599 + (let ((__tmp52600 + (foldr (lambda (_g3196331966_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3196431969_) (let () (declare (not safe)) - (cons _g3196331966_ _g3196431969_))))) - (declare (not safe)) - (foldr1 __tmp50707 '() _L31933_)))) + (cons _g3196331966_ _g3196431969_))) + '() + _L31933_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L31935_ __tmp50706)))) + (cons _L31935_ __tmp52600)))) (declare (not safe)) - (cons _L31938_ __tmp50705)))) + (cons _L31938_ __tmp52599)))) (declare (not safe)) - (cons __tmp50704 '())))) + (cons __tmp52598 '())))) (declare (not safe)) - (cons __tmp50708 __tmp50703)))) + (cons __tmp52601 __tmp52597)))) (declare (not safe)) - (cons __tmp50711 __tmp50702)))) - (___kont4668846689_ + (cons __tmp52604 __tmp52596)))) + (___kont4879248793_ (lambda (_L31820_) - (let ((__tmp50715 (gx#datum->syntax '#f 'let)) - (__tmp50712 - (let ((__tmp50713 - (let ((__tmp50714 - (lambda (_g3183731840_ _g3183831843_) + (let ((__tmp52607 (gx#datum->syntax '#f 'let)) + (__tmp52605 + (let ((__tmp52606 + (foldr (lambda (_g3183731840_ _g3183831843_) (let () (declare (not safe)) (cons _g3183731840_ - _g3183831843_))))) - (declare (not safe)) - (foldr1 __tmp50714 '() _L31820_)))) + _g3183831843_))) + '() + _L31820_))) (declare (not safe)) - (cons '() __tmp50713)))) + (cons '() __tmp52606)))) (declare (not safe)) - (cons __tmp50715 __tmp50712))))) - (let* ((___match4675446755_ + (cons __tmp52607 __tmp52605))))) + (let* ((___match4885848859_ (lambda (_e3174531770_ _hd3174431774_ _tl3174331777_ _e3174831780_ _hd3174731784_ _tl3174631787_ - ___splice4669046691_ + ___splice4879448795_ _target3174931790_ _tl3175131793_) (letrec ((_loop3175231796_ @@ -8052,10 +8013,10 @@ _body3175631803_))))) (let ((_body3175731816_ (reverse _body3175631803_))) - (___kont4668846689_ + (___kont4879248793_ _body3175731816_)))))) (_loop3175231796_ _target3174931790_ '())))) - (___match4673246733_ + (___match4883648837_ (lambda (_e3172031853_ _hd3171931857_ _tl3171831860_ @@ -8071,7 +8032,7 @@ _e3173231893_ _hd3173131897_ _tl3173031900_ - ___splice4668646687_ + ___splice4879048791_ _target3173331903_ _tl3173531906_) (letrec ((_loop3173631909_ @@ -8095,15 +8056,15 @@ _body3174031916_))))) (let ((_body3174131929_ (reverse _body3174031916_))) - (___kont4668446685_ + (___kont4878848789_ _body3174131929_ _tl3172431880_ _hd3173131897_ _hd3172831887_ _hd3171931857_)))))) (_loop3173631909_ _target3173331903_ '()))))) - (if (gx#stx-pair? ___stx4668146682_) - (let ((_e3172031853_ (gx#syntax-e ___stx4668146682_))) + (if (gx#stx-pair? ___stx4878548786_) + (let ((_e3172031853_ (gx#syntax-e ___stx4878548786_))) (let ((_tl3171831860_ (let () (declare (not safe)) (##cdr _e3172031853_))) (_hd3171931857_ @@ -8160,19 +8121,19 @@ _tl3173031900_) (if (gx#stx-pair/null? _tl3172131870_) - (let ((___splice4668646687_ + (let ((___splice4879048791_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _tl3172131870_ '0))) (let ((_tl3173531906_ (let () (declare (not safe)) - (##vector-ref ___splice4668646687_ '1))) + (##vector-ref ___splice4879048791_ '1))) (_target3173331903_ (let () (declare (not safe)) - (##vector-ref ___splice4668646687_ '0)))) + (##vector-ref ___splice4879048791_ '0)))) (if (gx#stx-null? _tl3173531906_) - (___match4673246733_ + (___match4883648837_ _e3172031853_ _hd3171931857_ _tl3171831860_ @@ -8188,7 +8149,7 @@ _e3173231893_ _hd3173131897_ _tl3173031900_ - ___splice4668646687_ + ___splice4879048791_ _target3173331903_ _tl3173531906_) (let () (declare (not safe)) (_g3171131763_))))) @@ -8203,7 +8164,7 @@ (_g3171131763_))))) (if (gx#stx-null? _hd3172231867_) (if (gx#stx-pair/null? _tl3172131870_) - (let ((___splice4669046691_ + (let ((___splice4879448795_ (gx#syntax-split-splice _tl3172131870_ '0))) @@ -8211,23 +8172,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4669046691_ + ___splice4879448795_ '1))) (_target3174931790_ (let () (declare (not safe)) (##vector-ref - ___splice4669046691_ + ___splice4879448795_ '0)))) (if (gx#stx-null? _tl3175131793_) - (___match4675446755_ + (___match4885848859_ _e3172031853_ _hd3171931857_ _tl3171831860_ _e3172331863_ _hd3172231867_ _tl3172131870_ - ___splice4669046691_ + ___splice4879448795_ _target3174931790_ _tl3175131793_) (let () @@ -8243,281 +8204,279 @@ (let () (declare (not safe)) (_g3171131763_)))))))) (define |gerbil/core$[:0:]#?| (lambda (_$stx31978_) - (let* ((___stx4675746758_ _$stx31978_) + (let* ((___stx4886148862_ _$stx31978_) (_g3198932135_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4675746758_)))) - (let ((___kont4676046761_ + ___stx4886148862_)))) + (let ((___kont4886448865_ (lambda (_L32739_ _L32741_ _L32742_) - (let ((__tmp50721 (gx#datum->syntax '#f 'and)) - (__tmp50716 - (let ((__tmp50717 - (lambda (_g3276332766_ _g3276432769_) - (let ((__tmp50718 - (let ((__tmp50719 - (let ((__tmp50720 + (let ((__tmp52612 (gx#datum->syntax '#f 'and)) + (__tmp52608 + (foldr (lambda (_g3276332766_ _g3276432769_) + (let ((__tmp52609 + (let ((__tmp52610 + (let ((__tmp52611 (let () (declare (not safe)) (cons _L32739_ '())))) (declare (not safe)) (cons _g3276332766_ - __tmp50720)))) + __tmp52611)))) (declare (not safe)) - (cons _L32742_ __tmp50719)))) + (cons _L32742_ __tmp52610)))) (declare (not safe)) - (cons __tmp50718 _g3276432769_))))) - (declare (not safe)) - (foldr1 __tmp50717 '() _L32741_)))) + (cons __tmp52609 _g3276432769_))) + '() + _L32741_))) (declare (not safe)) - (cons __tmp50721 __tmp50716)))) - (___kont4676446765_ + (cons __tmp52612 __tmp52608)))) + (___kont4886848869_ (lambda (_L32629_ _L32631_ _L32632_) - (let ((__tmp50727 (gx#datum->syntax '#f 'or)) - (__tmp50722 - (let ((__tmp50723 - (lambda (_g3265332656_ _g3265432659_) - (let ((__tmp50724 - (let ((__tmp50725 - (let ((__tmp50726 + (let ((__tmp52617 (gx#datum->syntax '#f 'or)) + (__tmp52613 + (foldr (lambda (_g3265332656_ _g3265432659_) + (let ((__tmp52614 + (let ((__tmp52615 + (let ((__tmp52616 (let () (declare (not safe)) (cons _L32629_ '())))) (declare (not safe)) (cons _g3265332656_ - __tmp50726)))) + __tmp52616)))) (declare (not safe)) - (cons _L32632_ __tmp50725)))) + (cons _L32632_ __tmp52615)))) (declare (not safe)) - (cons __tmp50724 _g3265432659_))))) - (declare (not safe)) - (foldr1 __tmp50723 '() _L32631_)))) + (cons __tmp52614 _g3265432659_))) + '() + _L32631_))) (declare (not safe)) - (cons __tmp50727 __tmp50722)))) - (___kont4676846769_ + (cons __tmp52617 __tmp52613)))) + (___kont4887248873_ (lambda (_L32529_ _L32531_ _L32532_) - (let ((__tmp50732 (gx#datum->syntax '#f 'not)) - (__tmp50728 - (let ((__tmp50729 - (let ((__tmp50730 - (let ((__tmp50731 + (let ((__tmp52622 (gx#datum->syntax '#f 'not)) + (__tmp52618 + (let ((__tmp52619 + (let ((__tmp52620 + (let ((__tmp52621 (let () (declare (not safe)) (cons _L32529_ '())))) (declare (not safe)) - (cons _L32531_ __tmp50731)))) + (cons _L32531_ __tmp52621)))) (declare (not safe)) - (cons _L32532_ __tmp50730)))) + (cons _L32532_ __tmp52620)))) (declare (not safe)) - (cons __tmp50729 '())))) + (cons __tmp52619 '())))) (declare (not safe)) - (cons __tmp50732 __tmp50728)))) - (___kont4677046771_ + (cons __tmp52622 __tmp52618)))) + (___kont4887448875_ (lambda (_L32455_ _L32457_) - (let ((__tmp50733 + (let ((__tmp52623 (let () (declare (not safe)) (cons _L32455_ '())))) (declare (not safe)) - (cons _L32457_ __tmp50733)))) - (___kont4677246773_ + (cons _L32457_ __tmp52623)))) + (___kont4887648877_ (lambda (_L32403_ _L32405_) - (let ((__tmp50742 (gx#datum->syntax '#f 'lambda)) - (__tmp50734 - (let ((__tmp50740 - (let ((__tmp50741 + (let ((__tmp52632 (gx#datum->syntax '#f 'lambda)) + (__tmp52624 + (let ((__tmp52630 + (let ((__tmp52631 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50741 '()))) - (__tmp50735 - (let ((__tmp50736 - (let ((__tmp50737 - (let ((__tmp50738 - (let ((__tmp50739 + (cons __tmp52631 '()))) + (__tmp52625 + (let ((__tmp52626 + (let ((__tmp52627 + (let ((__tmp52628 + (let ((__tmp52629 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50739 + (cons __tmp52629 '())))) (declare (not safe)) - (cons _L32403_ __tmp50738)))) + (cons _L32403_ __tmp52628)))) (declare (not safe)) - (cons _L32405_ __tmp50737)))) + (cons _L32405_ __tmp52627)))) (declare (not safe)) - (cons __tmp50736 '())))) + (cons __tmp52626 '())))) (declare (not safe)) - (cons __tmp50740 __tmp50735)))) + (cons __tmp52630 __tmp52625)))) (declare (not safe)) - (cons __tmp50742 __tmp50734)))) - (___kont4677446775_ + (cons __tmp52632 __tmp52624)))) + (___kont4887848879_ (lambda (_L32355_ _L32357_ _L32358_) - (let ((__tmp50761 (gx#datum->syntax '#f 'lambda)) - (__tmp50743 - (let ((__tmp50759 - (let ((__tmp50760 + (let ((__tmp52651 (gx#datum->syntax '#f 'lambda)) + (__tmp52633 + (let ((__tmp52649 + (let ((__tmp52650 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50760 '()))) - (__tmp50744 - (let ((__tmp50745 - (let ((__tmp50758 + (cons __tmp52650 '()))) + (__tmp52634 + (let ((__tmp52635 + (let ((__tmp52648 (gx#datum->syntax '#f 'alet)) - (__tmp50746 - (let ((__tmp50751 - (let ((__tmp50757 + (__tmp52636 + (let ((__tmp52641 + (let ((__tmp52647 (gx#datum->syntax '#f '$val)) - (__tmp50752 - (let ((__tmp50753 + (__tmp52642 + (let ((__tmp52643 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50754 - (let ((__tmp50755 - (let ((__tmp50756 + (let ((__tmp52644 + (let ((__tmp52645 + (let ((__tmp52646 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50756 '())))) + (cons __tmp52646 '())))) (declare (not safe)) - (cons _L32357_ __tmp50755)))) + (cons _L32357_ __tmp52645)))) (declare (not safe)) - (cons _L32358_ __tmp50754)))) + (cons _L32358_ __tmp52644)))) (declare (not safe)) - (cons __tmp50753 '())))) + (cons __tmp52643 '())))) (declare (not safe)) - (cons __tmp50757 __tmp50752))) + (cons __tmp52647 __tmp52642))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50747 - (let ((__tmp50748 - (let ((__tmp50749 + (__tmp52637 + (let ((__tmp52638 + (let ((__tmp52639 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50750 (gx#datum->syntax '#f '$val))) + (let ((__tmp52640 (gx#datum->syntax '#f '$val))) (declare (not safe)) - (cons __tmp50750 '())))) + (cons __tmp52640 '())))) (declare (not safe)) - (cons _L32355_ __tmp50749)))) + (cons _L32355_ __tmp52639)))) (declare (not safe)) - (cons __tmp50748 '())))) + (cons __tmp52638 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50751 - __tmp50747)))) + (cons __tmp52641 + __tmp52637)))) (declare (not safe)) - (cons __tmp50758 __tmp50746)))) + (cons __tmp52648 __tmp52636)))) (declare (not safe)) - (cons __tmp50745 '())))) + (cons __tmp52635 '())))) (declare (not safe)) - (cons __tmp50759 __tmp50744)))) + (cons __tmp52649 __tmp52634)))) (declare (not safe)) - (cons __tmp50761 __tmp50743)))) - (___kont4677646777_ + (cons __tmp52651 __tmp52633)))) + (___kont4888048881_ (lambda (_L32286_ _L32288_ _L32289_) - (let ((__tmp50777 (gx#datum->syntax '#f 'lambda)) - (__tmp50762 - (let ((__tmp50775 - (let ((__tmp50776 + (let ((__tmp52667 (gx#datum->syntax '#f 'lambda)) + (__tmp52652 + (let ((__tmp52665 + (let ((__tmp52666 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50776 '()))) - (__tmp50763 - (let ((__tmp50764 - (let ((__tmp50774 + (cons __tmp52666 '()))) + (__tmp52653 + (let ((__tmp52654 + (let ((__tmp52664 (gx#datum->syntax '#f 'and)) - (__tmp50765 - (let ((__tmp50770 - (let ((__tmp50771 - (let ((__tmp50772 + (__tmp52655 + (let ((__tmp52660 + (let ((__tmp52661 + (let ((__tmp52662 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50773 (gx#datum->syntax '#f '$obj))) + (let ((__tmp52663 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50773 '())))) + (cons __tmp52663 '())))) (declare (not safe)) - (cons _L32288_ __tmp50772)))) + (cons _L32288_ __tmp52662)))) (declare (not safe)) - (cons _L32289_ __tmp50771))) + (cons _L32289_ __tmp52661))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50766 - (let ((__tmp50767 - (let ((__tmp50768 + (__tmp52656 + (let ((__tmp52657 + (let ((__tmp52658 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50769 (gx#datum->syntax '#f '$obj))) + (let ((__tmp52659 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50769 '())))) + (cons __tmp52659 '())))) (declare (not safe)) - (cons _L32286_ __tmp50768)))) + (cons _L32286_ __tmp52658)))) (declare (not safe)) - (cons __tmp50767 '())))) + (cons __tmp52657 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50770 - __tmp50766)))) + (cons __tmp52660 + __tmp52656)))) (declare (not safe)) - (cons __tmp50774 __tmp50765)))) + (cons __tmp52664 __tmp52655)))) (declare (not safe)) - (cons __tmp50764 '())))) + (cons __tmp52654 '())))) (declare (not safe)) - (cons __tmp50775 __tmp50763)))) + (cons __tmp52665 __tmp52653)))) (declare (not safe)) - (cons __tmp50777 __tmp50762)))) - (___kont4677846779_ + (cons __tmp52667 __tmp52652)))) + (___kont4888248883_ (lambda (_L32206_ _L32208_ _L32209_ _L32210_) - (let ((__tmp50795 (gx#datum->syntax '#f 'lambda)) - (__tmp50778 - (let ((__tmp50793 - (let ((__tmp50794 + (let ((__tmp52685 (gx#datum->syntax '#f 'lambda)) + (__tmp52668 + (let ((__tmp52683 + (let ((__tmp52684 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50794 '()))) - (__tmp50779 - (let ((__tmp50780 - (let ((__tmp50792 + (cons __tmp52684 '()))) + (__tmp52669 + (let ((__tmp52670 + (let ((__tmp52682 (gx#datum->syntax '#f 'and)) - (__tmp50781 - (let ((__tmp50788 - (let ((__tmp50789 - (let ((__tmp50790 + (__tmp52671 + (let ((__tmp52678 + (let ((__tmp52679 + (let ((__tmp52680 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50791 (gx#datum->syntax '#f '$obj))) + (let ((__tmp52681 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50791 '())))) + (cons __tmp52681 '())))) (declare (not safe)) - (cons _L32209_ __tmp50790)))) + (cons _L32209_ __tmp52680)))) (declare (not safe)) - (cons _L32210_ __tmp50789))) + (cons _L32210_ __tmp52679))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50782 - (let ((__tmp50783 - (let ((__tmp50784 + (__tmp52672 + (let ((__tmp52673 + (let ((__tmp52674 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50785 - (let ((__tmp50786 - (let ((__tmp50787 + (let ((__tmp52675 + (let ((__tmp52676 + (let ((__tmp52677 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50787 '())))) + (cons __tmp52677 '())))) (declare (not safe)) - (cons _L32208_ __tmp50786)))) + (cons _L32208_ __tmp52676)))) (declare (not safe)) - (cons __tmp50785 '())))) + (cons __tmp52675 '())))) (declare (not safe)) - (cons _L32206_ __tmp50784)))) + (cons _L32206_ __tmp52674)))) (declare (not safe)) - (cons __tmp50783 '())))) + (cons __tmp52673 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50788 - __tmp50782)))) + (cons __tmp52678 + __tmp52672)))) (declare (not safe)) - (cons __tmp50792 __tmp50781)))) + (cons __tmp52682 __tmp52671)))) (declare (not safe)) - (cons __tmp50780 '())))) + (cons __tmp52670 '())))) (declare (not safe)) - (cons __tmp50793 __tmp50779)))) + (cons __tmp52683 __tmp52669)))) (declare (not safe)) - (cons __tmp50795 __tmp50778))))) - (let* ((___match4693046931_ + (cons __tmp52685 __tmp52668))))) + (let* ((___match4903449035_ (lambda (_e3208132315_ _hd3208032319_ _tl3207932322_ @@ -8529,7 +8488,7 @@ _tl3208532342_) (if (gx#identifier? _hd3208632339_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50797_| + |gerbil/core$[1]#_g52687_| _hd3208632339_) (if (gx#stx-pair? _tl3208532342_) (let ((_e3209032345_ @@ -8543,7 +8502,7 @@ (declare (not safe)) (##car _e3209032345_)))) (if (gx#stx-null? _tl3208832352_) - (___kont4677446775_ + (___kont4887848879_ _hd3208932349_ _hd3208332329_ _hd3208032319_) @@ -8571,7 +8530,7 @@ (declare (not safe)) (##car _e3210632276_)))) (if (gx#stx-null? _tl3210432283_) - (___kont4677646777_ + (___kont4888048881_ _hd3210532280_ _hd3208332329_ _hd3208032319_) @@ -8590,7 +8549,7 @@ (let () (declare (not safe)) (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50796_| + |gerbil/core$[1]#_g52686_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ (gx#syntax-e _tl3212432193_))) @@ -8603,7 +8562,7 @@ (declare (not safe)) (##car _e3212932196_)))) (if (gx#stx-null? _tl3212732203_) - (___kont4677846779_ + (___kont4888248883_ _hd3212832200_ _hd3210532280_ _hd3208332329_ @@ -8625,7 +8584,7 @@ (declare (not safe)) (_g3198932135_)))) (let () (declare (not safe)) (_g3198932135_)))))) - (___match4691046911_ + (___match4901449015_ (lambda (_e3207232383_ _hd3207132387_ _tl3207032390_ @@ -8633,7 +8592,7 @@ _hd3207432397_ _tl3207332400_) (if (gx#stx-null? _tl3207332400_) - (___kont4677246773_ _hd3207432397_ _hd3207132387_) + (___kont4887648877_ _hd3207432397_ _hd3207132387_) (if (gx#stx-pair? _tl3207332400_) (let ((_e3208732335_ (gx#syntax-e _tl3207332400_))) @@ -8647,7 +8606,7 @@ (##car _e3208732335_)))) (if (gx#identifier? _hd3208632339_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50797_| + |gerbil/core$[1]#_g52687_| _hd3208632339_) (if (gx#stx-pair? _tl3208532342_) (let ((_e3209032345_ @@ -8663,7 +8622,7 @@ (##car _e3209032345_)))) (if (gx#stx-null? _tl3208832352_) - (___kont4677446775_ + (___kont4887848879_ _hd3208932349_ _hd3207432397_ _hd3207132387_) @@ -8696,7 +8655,7 @@ (_hd3210532280_ (let () (declare (not safe)) (##car _e3210632276_)))) (if (gx#stx-null? _tl3210432283_) - (___kont4677646777_ + (___kont4888048881_ _hd3210532280_ _hd3207432397_ _hd3207132387_) @@ -8712,7 +8671,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50796_| + |gerbil/core$[1]#_g52686_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -8726,7 +8685,7 @@ (declare (not safe)) (##car _e3212932196_)))) (if (gx#stx-null? _tl3212732203_) - (___kont4677846779_ + (___kont4888248883_ _hd3212832200_ _hd3210532280_ _hd3207432397_ @@ -8755,7 +8714,7 @@ (declare (not safe)) (_g3198932135_)))))) (let () (declare (not safe)) (_g3198932135_)))))) - (___match4684046841_ + (___match4894448945_ (lambda (_e3202032559_ _hd3201932563_ _tl3201832566_ @@ -8765,7 +8724,7 @@ _e3202632579_ _hd3202532583_ _tl3202432586_ - ___splice4676646767_ + ___splice4887048871_ _target3202732589_ _tl3202932592_) (letrec ((_loop3203032595_ @@ -8803,11 +8762,11 @@ (##car _e3203832619_)))) (if (gx#stx-null? _tl3203632626_) - (___kont4676446765_ + (___kont4886848869_ _hd3203732623_ _pred3203532615_ _hd3201932563_) - (___match4693046931_ + (___match4903449035_ _e3202032559_ _hd3201932563_ _tl3201832566_ @@ -8817,7 +8776,7 @@ _e3203832619_ _hd3203732623_ _tl3203632626_)))) - (___match4691046911_ + (___match4901449015_ _e3202032559_ _hd3201932563_ _tl3201832566_ @@ -8825,7 +8784,7 @@ _hd3202232573_ _tl3202132576_))))))) (_loop3203032595_ _target3202732589_ '())))) - (___match4681046811_ + (___match4891448915_ (lambda (_e3199632669_ _hd3199532673_ _tl3199432676_ @@ -8835,7 +8794,7 @@ _e3200232689_ _hd3200132693_ _tl3200032696_ - ___splice4676246763_ + ___splice4886648867_ _target3200332699_ _tl3200532702_) (letrec ((_loop3200632705_ @@ -8873,11 +8832,11 @@ (##car _e3201432729_)))) (if (gx#stx-null? _tl3201232736_) - (___kont4676046761_ + (___kont4886448865_ _hd3201332733_ _pred3201132725_ _hd3199532673_) - (___match4693046931_ + (___match4903449035_ _e3199632669_ _hd3199532673_ _tl3199432676_ @@ -8887,7 +8846,7 @@ _e3201432729_ _hd3201332733_ _tl3201232736_)))) - (___match4691046911_ + (___match4901449015_ _e3199632669_ _hd3199532673_ _tl3199432676_ @@ -8895,8 +8854,8 @@ _hd3199832683_ _tl3199732686_))))))) (_loop3200632705_ _target3200332699_ '()))))) - (if (gx#stx-pair? ___stx4675746758_) - (let ((_e3199632669_ (gx#syntax-e ___stx4675746758_))) + (if (gx#stx-pair? ___stx4886148862_) + (let ((_e3199632669_ (gx#syntax-e ___stx4886148862_))) (let ((_tl3199432676_ (let () (declare (not safe)) (##cdr _e3199632669_))) (_hd3199532673_ @@ -8926,11 +8885,11 @@ (##car _e3200232689_)))) (if (gx#identifier? _hd3200132693_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50800_| + |gerbil/core$[1]#_g52690_| _hd3200132693_) (if (gx#stx-pair/null? _tl3200032696_) - (let ((___splice4676246763_ + (let ((___splice4886648867_ (gx#syntax-split-splice _tl3200032696_ '0))) @@ -8939,18 +8898,18 @@ (declare (not safe)) (##vector-ref - ___splice4676246763_ + ___splice4886648867_ '1))) (_target3200332699_ (let () (declare (not safe)) (##vector-ref - ___splice4676246763_ + ___splice4886648867_ '0)))) (if (gx#stx-null? _tl3200532702_) - (___match4681046811_ + (___match4891448915_ _e3199632669_ _hd3199532673_ _tl3199432676_ @@ -8960,7 +8919,7 @@ _e3200232689_ _hd3200132693_ _tl3200032696_ - ___splice4676246763_ + ___splice4886648867_ _target3200332699_ _tl3200532702_) (if (gx#stx-pair? @@ -8977,12 +8936,12 @@ (declare (not safe)) (##car _e3206732445_)))) (if (gx#stx-null? _tl3206532452_) - (___kont4677046771_ + (___kont4887448875_ _hd3206632449_ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50797_| + |gerbil/core$[1]#_g52687_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -8996,7 +8955,7 @@ (declare (not safe)) (##car _e3209032345_)))) (if (gx#stx-null? _tl3208832352_) - (___kont4677446775_ + (___kont4887848879_ _hd3208932349_ _hd3199832683_ _hd3199532673_) @@ -9029,7 +8988,7 @@ (##car _e3210632276_)))) (if (gx#stx-null? _tl3210432283_) - (___kont4677646777_ + (___kont4888048881_ _hd3210532280_ _hd3199832683_ _hd3199532673_) @@ -9048,7 +9007,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50796_| + |gerbil/core$[1]#_g52686_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9062,7 +9021,7 @@ (declare (not safe)) (##car _e3212932196_)))) (if (gx#stx-null? _tl3212732203_) - (___kont4677846779_ + (___kont4888248883_ _hd3212832200_ _hd3210532280_ _hd3199832683_ @@ -9087,7 +9046,7 @@ (declare (not safe)) (_g3198932135_))))))) (if (gx#stx-null? _tl3199732686_) - (___kont4677246773_ _hd3199832683_ _hd3199532673_) + (___kont4887648877_ _hd3199832683_ _hd3199532673_) (let () (declare (not safe)) (_g3198932135_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? @@ -9103,10 +9062,10 @@ (_hd3206632449_ (let () (declare (not safe)) (##car _e3206732445_)))) (if (gx#stx-null? _tl3206532452_) - (___kont4677046771_ _hd3206632449_ _hd3199832683_) + (___kont4887448875_ _hd3206632449_ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50797_| + |gerbil/core$[1]#_g52687_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9120,7 +9079,7 @@ (declare (not safe)) (##car _e3209032345_)))) (if (gx#stx-null? _tl3208832352_) - (___kont4677446775_ + (___kont4887848879_ _hd3208932349_ _hd3199832683_ _hd3199532673_) @@ -9148,7 +9107,7 @@ (declare (not safe)) (##car _e3210632276_)))) (if (gx#stx-null? _tl3210432283_) - (___kont4677646777_ + (___kont4888048881_ _hd3210532280_ _hd3199832683_ _hd3199532673_) @@ -9167,7 +9126,7 @@ (let () (declare (not safe)) (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50796_| + |gerbil/core$[1]#_g52686_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ (gx#syntax-e _tl3212432193_))) @@ -9180,7 +9139,7 @@ (declare (not safe)) (##car _e3212932196_)))) (if (gx#stx-null? _tl3212732203_) - (___kont4677846779_ + (___kont4888248883_ _hd3212832200_ _hd3210532280_ _hd3199832683_ @@ -9205,15 +9164,15 @@ (declare (not safe)) (_g3198932135_))))))) (if (gx#stx-null? _tl3199732686_) - (___kont4677246773_ _hd3199832683_ _hd3199532673_) + (___kont4887648877_ _hd3199832683_ _hd3199532673_) (let () (declare (not safe)) (_g3198932135_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core$[1]#_g50799_| + |gerbil/core$[1]#_g52689_| _hd3200132693_) (if (gx#stx-pair/null? _tl3200032696_) - (let ((___splice4676646767_ + (let ((___splice4887048871_ (gx#syntax-split-splice _tl3200032696_ '0))) @@ -9221,13 +9180,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice4676646767_ '1))) + (##vector-ref ___splice4887048871_ '1))) (_target3202732589_ (let () (declare (not safe)) - (##vector-ref ___splice4676646767_ '0)))) + (##vector-ref ___splice4887048871_ '0)))) (if (gx#stx-null? _tl3202932592_) - (___match4684046841_ + (___match4894448945_ _e3199632669_ _hd3199532673_ _tl3199432676_ @@ -9237,7 +9196,7 @@ _e3200232689_ _hd3200132693_ _tl3200032696_ - ___splice4676646767_ + ___splice4887048871_ _target3202732589_ _tl3202932592_) (if (gx#stx-pair? _tl3199732686_) @@ -9251,12 +9210,12 @@ (declare (not safe)) (##car _e3206732445_)))) (if (gx#stx-null? _tl3206532452_) - (___kont4677046771_ + (___kont4887448875_ _hd3206632449_ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50797_| + |gerbil/core$[1]#_g52687_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9272,7 +9231,7 @@ (##car _e3209032345_)))) (if (gx#stx-null? _tl3208832352_) - (___kont4677446775_ + (___kont4887848879_ _hd3208932349_ _hd3199832683_ _hd3199532673_) @@ -9305,7 +9264,7 @@ (_hd3210532280_ (let () (declare (not safe)) (##car _e3210632276_)))) (if (gx#stx-null? _tl3210432283_) - (___kont4677646777_ + (___kont4888048881_ _hd3210532280_ _hd3199832683_ _hd3199532673_) @@ -9321,7 +9280,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50796_| + |gerbil/core$[1]#_g52686_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9335,7 +9294,7 @@ (declare (not safe)) (##car _e3212932196_)))) (if (gx#stx-null? _tl3212732203_) - (___kont4677846779_ + (___kont4888248883_ _hd3212832200_ _hd3210532280_ _hd3199832683_ @@ -9364,7 +9323,7 @@ (declare (not safe)) (_g3198932135_))))))) (if (gx#stx-null? _tl3199732686_) - (___kont4677246773_ + (___kont4887648877_ _hd3199832683_ _hd3199532673_) (let () @@ -9379,10 +9338,10 @@ (declare (not safe)) (##car _e3206732445_)))) (if (gx#stx-null? _tl3206532452_) - (___kont4677046771_ _hd3206632449_ _hd3199832683_) + (___kont4887448875_ _hd3206632449_ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50797_| + |gerbil/core$[1]#_g52687_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9396,7 +9355,7 @@ (declare (not safe)) (##car _e3209032345_)))) (if (gx#stx-null? _tl3208832352_) - (___kont4677446775_ + (___kont4887848879_ _hd3208932349_ _hd3199832683_ _hd3199532673_) @@ -9429,7 +9388,7 @@ (##car _e3210632276_)))) (if (gx#stx-null? _tl3210432283_) - (___kont4677646777_ + (___kont4888048881_ _hd3210532280_ _hd3199832683_ _hd3199532673_) @@ -9445,7 +9404,7 @@ (let () (declare (not safe)) (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50796_| + |gerbil/core$[1]#_g52686_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9459,7 +9418,7 @@ (declare (not safe)) (##car _e3212932196_)))) (if (gx#stx-null? _tl3212732203_) - (___kont4677846779_ + (___kont4888248883_ _hd3212832200_ _hd3210532280_ _hd3199832683_ @@ -9482,11 +9441,11 @@ (declare (not safe)) (_g3198932135_))))))) (if (gx#stx-null? _tl3199732686_) - (___kont4677246773_ _hd3199832683_ _hd3199532673_) + (___kont4887648877_ _hd3199832683_ _hd3199532673_) (let () (declare (not safe)) (_g3198932135_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core$[1]#_g50798_| + |gerbil/core$[1]#_g52688_| _hd3200132693_) (if (gx#stx-pair? _tl3200032696_) @@ -9512,13 +9471,13 @@ (declare (not safe)) (##car _e3205632519_)))) (if (gx#stx-null? _tl3205432526_) - (___kont4676846769_ + (___kont4887248873_ _hd3205532523_ _hd3205232513_ _hd3199532673_) (if (gx#identifier? _hd3205532523_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50797_| + |gerbil/core$[1]#_g52687_| _hd3205532523_) (if (gx#stx-pair? _tl3205432526_) (let ((_e3209032345_ @@ -9536,7 +9495,7 @@ (##car _e3209032345_)))) (if (gx#stx-null? _tl3208832352_) - (___kont4677446775_ + (___kont4887848879_ _hd3208932349_ _hd3199832683_ _hd3199532673_) @@ -9569,7 +9528,7 @@ (_hd3210532280_ (let () (declare (not safe)) (##car _e3210632276_)))) (if (gx#stx-null? _tl3210432283_) - (___kont4677646777_ + (___kont4888048881_ _hd3210532280_ _hd3199832683_ _hd3199532673_) @@ -9585,7 +9544,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50796_| + |gerbil/core$[1]#_g52686_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9601,7 +9560,7 @@ (##car _e3212932196_)))) (if (gx#stx-null? _tl3212732203_) - (___kont4677846779_ + (___kont4888248883_ _hd3212832200_ _hd3210532280_ _hd3199832683_ @@ -9628,7 +9587,7 @@ (declare (not safe)) (_g3198932135_))))))) (if (gx#stx-null? _tl3199732686_) - (___kont4677246773_ + (___kont4887648877_ _hd3199832683_ _hd3199532673_) (let () @@ -9646,12 +9605,12 @@ (declare (not safe)) (##car _e3206732445_)))) (if (gx#stx-null? _tl3206532452_) - (___kont4677046771_ + (___kont4887448875_ _hd3206632449_ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50797_| + |gerbil/core$[1]#_g52687_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9669,7 +9628,7 @@ (##car _e3209032345_)))) (if (gx#stx-null? _tl3208832352_) - (___kont4677446775_ + (___kont4887848879_ _hd3208932349_ _hd3199832683_ _hd3199532673_) @@ -9702,7 +9661,7 @@ (_hd3210532280_ (let () (declare (not safe)) (##car _e3210632276_)))) (if (gx#stx-null? _tl3210432283_) - (___kont4677646777_ + (___kont4888048881_ _hd3210532280_ _hd3199832683_ _hd3199532673_) @@ -9718,7 +9677,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50796_| + |gerbil/core$[1]#_g52686_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9734,7 +9693,7 @@ (##car _e3212932196_)))) (if (gx#stx-null? _tl3212732203_) - (___kont4677846779_ + (___kont4888248883_ _hd3212832200_ _hd3210532280_ _hd3199832683_ @@ -9761,7 +9720,7 @@ (declare (not safe)) (_g3198932135_))))))) (if (gx#stx-null? _tl3199732686_) - (___kont4677246773_ + (___kont4887648877_ _hd3199832683_ _hd3199532673_) (let () @@ -9778,12 +9737,12 @@ (declare (not safe)) (##car _e3206732445_)))) (if (gx#stx-null? _tl3206532452_) - (___kont4677046771_ + (___kont4887448875_ _hd3206632449_ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50797_| + |gerbil/core$[1]#_g52687_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9797,7 +9756,7 @@ (declare (not safe)) (##car _e3209032345_)))) (if (gx#stx-null? _tl3208832352_) - (___kont4677446775_ + (___kont4887848879_ _hd3208932349_ _hd3199832683_ _hd3199532673_) @@ -9830,7 +9789,7 @@ (##car _e3210632276_)))) (if (gx#stx-null? _tl3210432283_) - (___kont4677646777_ + (___kont4888048881_ _hd3210532280_ _hd3199832683_ _hd3199532673_) @@ -9849,7 +9808,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50796_| + |gerbil/core$[1]#_g52686_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9863,7 +9822,7 @@ (declare (not safe)) (##car _e3212932196_)))) (if (gx#stx-null? _tl3212732203_) - (___kont4677846779_ + (___kont4888248883_ _hd3212832200_ _hd3210532280_ _hd3199832683_ @@ -9888,7 +9847,7 @@ (declare (not safe)) (_g3198932135_))))))) (if (gx#stx-null? _tl3199732686_) - (___kont4677246773_ _hd3199832683_ _hd3199532673_) + (___kont4887648877_ _hd3199832683_ _hd3199532673_) (let () (declare (not safe)) (_g3198932135_))))) (if (gx#stx-pair? _tl3199732686_) (let ((_e3206732445_ (gx#syntax-e _tl3199732686_))) @@ -9899,10 +9858,10 @@ (declare (not safe)) (##car _e3206732445_)))) (if (gx#stx-null? _tl3206532452_) - (___kont4677046771_ _hd3206632449_ _hd3199832683_) + (___kont4887448875_ _hd3206632449_ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50797_| + |gerbil/core$[1]#_g52687_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) (let ((_e3209032345_ @@ -9916,7 +9875,7 @@ (declare (not safe)) (##car _e3209032345_)))) (if (gx#stx-null? _tl3208832352_) - (___kont4677446775_ + (___kont4887848879_ _hd3208932349_ _hd3199832683_ _hd3199532673_) @@ -9949,7 +9908,7 @@ (##car _e3210632276_)))) (if (gx#stx-null? _tl3210432283_) - (___kont4677646777_ + (___kont4888048881_ _hd3210532280_ _hd3199832683_ _hd3199532673_) @@ -9965,7 +9924,7 @@ (let () (declare (not safe)) (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50796_| + |gerbil/core$[1]#_g52686_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) (let ((_e3212932196_ @@ -9979,7 +9938,7 @@ (declare (not safe)) (##car _e3212932196_)))) (if (gx#stx-null? _tl3212732203_) - (___kont4677846779_ + (___kont4888248883_ _hd3212832200_ _hd3210532280_ _hd3199832683_ @@ -10002,7 +9961,7 @@ (declare (not safe)) (_g3198932135_))))))) (if (gx#stx-null? _tl3199732686_) - (___kont4677246773_ _hd3199832683_ _hd3199532673_) + (___kont4887648877_ _hd3199832683_ _hd3199532673_) (let () (declare (not safe)) (_g3198932135_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? _tl3199732686_) @@ -10019,13 +9978,13 @@ (##car _e3206732445_)))) (if (gx#stx-null? _tl3206532452_) - (___kont4677046771_ + (___kont4887448875_ _hd3206632449_ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50797_| + |gerbil/core$[1]#_g52687_| _hd3206632449_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -10040,7 +9999,7 @@ (declare (not safe)) (##car _e3209032345_)))) (if (gx#stx-null? _tl3208832352_) - (___kont4677446775_ + (___kont4887848879_ _hd3208932349_ _hd3199832683_ _hd3199532673_) @@ -10066,7 +10025,7 @@ (declare (not safe)) (##car _e3210632276_)))) (if (gx#stx-null? _tl3210432283_) - (___kont4677646777_ + (___kont4888048881_ _hd3210532280_ _hd3199832683_ _hd3199532673_) @@ -10085,7 +10044,7 @@ (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50796_| + |gerbil/core$[1]#_g52686_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) @@ -10101,7 +10060,7 @@ (declare (not safe)) (##car _e3212932196_)))) (if (gx#stx-null? _tl3212732203_) - (___kont4677846779_ + (___kont4888248883_ _hd3212832200_ _hd3210532280_ _hd3199832683_ @@ -10121,7 +10080,7 @@ (let () (declare (not safe)) (_g3198932135_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? _tl3199732686_) - (___kont4677246773_ + (___kont4887648877_ _hd3199832683_ _hd3199532673_) (let () @@ -10139,13 +10098,13 @@ (declare (not safe)) (##car _e3206732445_)))) (if (gx#stx-null? _tl3206532452_) - (___kont4677046771_ + (___kont4887448875_ _hd3206632449_ _hd3199832683_) (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50797_| + |gerbil/core$[1]#_g52687_| _hd3206632449_) (if (gx#stx-pair? _tl3206532452_) @@ -10159,7 +10118,7 @@ (declare (not safe)) (##car _e3209032345_)))) (if (gx#stx-null? _tl3208832352_) - (___kont4677446775_ + (___kont4887848879_ _hd3208932349_ _hd3199832683_ _hd3199532673_) @@ -10189,7 +10148,7 @@ (declare (not safe)) (##car _e3210632276_)))) (if (gx#stx-null? _tl3210432283_) - (___kont4677646777_ + (___kont4888048881_ _hd3210532280_ _hd3199832683_ _hd3199532673_) @@ -10206,7 +10165,7 @@ (##car _e3212632186_)))) (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50796_| + |gerbil/core$[1]#_g52686_| _hd3212532190_) (if (gx#stx-pair? _tl3212432193_) @@ -10222,7 +10181,7 @@ (_hd3212832200_ (let () (declare (not safe)) (##car _e3212932196_)))) (if (gx#stx-null? _tl3212732203_) - (___kont4677846779_ + (___kont4888248883_ _hd3212832200_ _hd3210532280_ _hd3199832683_ @@ -10246,7 +10205,7 @@ (let () (declare (not safe)) (_g3198932135_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? _tl3199732686_) - (___kont4677246773_ + (___kont4887648877_ _hd3199832683_ _hd3199532673_) (let () @@ -10256,266 +10215,266 @@ (let () (declare (not safe)) (_g3198932135_)))))))) (define |gerbil/core$[:0:]#defsyntax-for-match| (lambda (_$stx32778_) - (let* ((___stx4702547026_ _$stx32778_) + (let* ((___stx4912949130_ _$stx32778_) (_g3278332817_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4702547026_)))) - (let ((___kont4702847029_ + ___stx4912949130_)))) + (let ((___kont4913249133_ (lambda (_L32921_ _L32923_ _L32924_) - (let ((__tmp50862 (gx#datum->syntax '#f 'defsyntax)) - (__tmp50801 - (let ((__tmp50802 - (let ((__tmp50803 - (let ((__tmp50861 + (let ((__tmp52752 (gx#datum->syntax '#f 'defsyntax)) + (__tmp52691 + (let ((__tmp52692 + (let ((__tmp52693 + (let ((__tmp52751 (gx#datum->syntax '#f 'make-match-macro)) - (__tmp50804 - (let ((__tmp50805 - (let ((__tmp50806 - (let ((__tmp50860 + (__tmp52694 + (let ((__tmp52695 + (let ((__tmp52696 + (let ((__tmp52750 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp50807 - (let ((__tmp50852 - (let ((__tmp50857 - (let ((__tmp50859 + (__tmp52697 + (let ((__tmp52742 + (let ((__tmp52747 + (let ((__tmp52749 (gx#datum->syntax '#f '$match-e)) - (__tmp50858 + (__tmp52748 (let () (declare (not safe)) (cons _L32923_ '())))) (declare (not safe)) - (cons __tmp50859 __tmp50858))) - (__tmp50853 - (let ((__tmp50854 - (let ((__tmp50856 + (cons __tmp52749 __tmp52748))) + (__tmp52743 + (let ((__tmp52744 + (let ((__tmp52746 (gx#datum->syntax '#f '$macro-e)) - (__tmp50855 + (__tmp52745 (let () (declare (not safe)) (cons _L32921_ '())))) (declare (not safe)) - (cons __tmp50856 - __tmp50855)))) + (cons __tmp52746 + __tmp52745)))) (declare (not safe)) - (cons __tmp50854 '())))) + (cons __tmp52744 '())))) (declare (not safe)) - (cons __tmp50857 __tmp50853))) - (__tmp50808 - (let ((__tmp50809 - (let ((__tmp50851 + (cons __tmp52747 __tmp52743))) + (__tmp52698 + (let ((__tmp52699 + (let ((__tmp52741 (gx#datum->syntax '#f 'lambda)) - (__tmp50810 - (let ((__tmp50849 - (let ((__tmp50850 + (__tmp52700 + (let ((__tmp52739 + (let ((__tmp52740 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp50850 + (cons __tmp52740 '()))) - (__tmp50811 - (let ((__tmp50812 - (let ((__tmp50848 + (__tmp52701 + (let ((__tmp52702 + (let ((__tmp52738 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax-case)) - (__tmp50813 - (let ((__tmp50847 (gx#datum->syntax '#f '$stx)) - (__tmp50814 - (let ((__tmp50815 - (let ((__tmp50826 - (let ((__tmp50845 - (let ((__tmp50846 + (__tmp52703 + (let ((__tmp52737 (gx#datum->syntax '#f '$stx)) + (__tmp52704 + (let ((__tmp52705 + (let ((__tmp52716 + (let ((__tmp52735 + (let ((__tmp52736 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'body))) (declare (not safe)) - (cons 'match: __tmp50846))) - (__tmp50827 - (let ((__tmp50828 - (let ((__tmp50844 + (cons 'match: __tmp52736))) + (__tmp52717 + (let ((__tmp52718 + (let ((__tmp52734 (gx#datum->syntax '#f 'core-apply-expander)) - (__tmp50829 - (let ((__tmp50843 + (__tmp52719 + (let ((__tmp52733 (gx#datum->syntax '#f '$match-e)) - (__tmp50830 - (let ((__tmp50831 - (let ((__tmp50842 + (__tmp52720 + (let ((__tmp52721 + (let ((__tmp52732 (gx#datum->syntax '#f 'stx-wrap-source)) - (__tmp50832 - (let ((__tmp50838 - (let ((__tmp50841 + (__tmp52722 + (let ((__tmp52728 + (let ((__tmp52731 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax)) - (__tmp50839 - (let ((__tmp50840 (gx#datum->syntax '#f 'body))) + (__tmp52729 + (let ((__tmp52730 (gx#datum->syntax '#f 'body))) (declare (not safe)) - (cons __tmp50840 '())))) + (cons __tmp52730 '())))) (declare (not safe)) - (cons __tmp50841 __tmp50839))) - (__tmp50833 - (let ((__tmp50834 - (let ((__tmp50837 + (cons __tmp52731 __tmp52729))) + (__tmp52723 + (let ((__tmp52724 + (let ((__tmp52727 (gx#datum->syntax '#f 'stx-source)) - (__tmp50835 - (let ((__tmp50836 + (__tmp52725 + (let ((__tmp52726 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp50836 '())))) + (cons __tmp52726 '())))) (declare (not safe)) - (cons __tmp50837 __tmp50835)))) + (cons __tmp52727 __tmp52725)))) (declare (not safe)) - (cons __tmp50834 '())))) + (cons __tmp52724 '())))) (declare (not safe)) - (cons __tmp50838 __tmp50833)))) + (cons __tmp52728 __tmp52723)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50842 __tmp50832)))) + (cons __tmp52732 __tmp52722)))) (declare (not safe)) - (cons __tmp50831 '())))) + (cons __tmp52721 '())))) (declare (not safe)) - (cons __tmp50843 __tmp50830)))) + (cons __tmp52733 __tmp52720)))) (declare (not safe)) - (cons __tmp50844 __tmp50829)))) + (cons __tmp52734 __tmp52719)))) (declare (not safe)) - (cons __tmp50828 '())))) + (cons __tmp52718 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50845 - __tmp50827))) - (__tmp50816 - (let ((__tmp50817 - (let ((__tmp50825 + (cons __tmp52735 + __tmp52717))) + (__tmp52706 + (let ((__tmp52707 + (let ((__tmp52715 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '_)) - (__tmp50818 - (let ((__tmp50819 - (let ((__tmp50824 + (__tmp52708 + (let ((__tmp52709 + (let ((__tmp52714 (gx#datum->syntax '#f 'core-apply-expander)) - (__tmp50820 - (let ((__tmp50823 + (__tmp52710 + (let ((__tmp52713 (gx#datum->syntax '#f '$macro-e)) - (__tmp50821 - (let ((__tmp50822 + (__tmp52711 + (let ((__tmp52712 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp50822 '())))) + (cons __tmp52712 '())))) (declare (not safe)) - (cons __tmp50823 __tmp50821)))) + (cons __tmp52713 __tmp52711)))) (declare (not safe)) - (cons __tmp50824 __tmp50820)))) + (cons __tmp52714 __tmp52710)))) (declare (not safe)) - (cons __tmp50819 '())))) + (cons __tmp52709 '())))) (declare (not safe)) - (cons __tmp50825 __tmp50818)))) + (cons __tmp52715 __tmp52708)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50817 '())))) + (cons __tmp52707 '())))) (declare (not safe)) - (cons __tmp50826 __tmp50816)))) + (cons __tmp52716 __tmp52706)))) (declare (not safe)) - (cons '() __tmp50815)))) + (cons '() __tmp52705)))) (declare (not safe)) - (cons __tmp50847 __tmp50814)))) + (cons __tmp52737 __tmp52704)))) (declare (not safe)) - (cons __tmp50848 __tmp50813)))) + (cons __tmp52738 __tmp52703)))) (declare (not safe)) - (cons __tmp50812 '())))) + (cons __tmp52702 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50849 - __tmp50811)))) + (cons __tmp52739 + __tmp52701)))) (declare (not safe)) - (cons __tmp50851 __tmp50810)))) + (cons __tmp52741 __tmp52700)))) (declare (not safe)) - (cons __tmp50809 '())))) + (cons __tmp52699 '())))) (declare (not safe)) - (cons __tmp50852 __tmp50808)))) + (cons __tmp52742 __tmp52698)))) (declare (not safe)) - (cons __tmp50860 __tmp50807)))) + (cons __tmp52750 __tmp52697)))) (declare (not safe)) - (cons __tmp50806 '())))) + (cons __tmp52696 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'macro: __tmp50805)))) + (cons 'macro: __tmp52695)))) (declare (not safe)) - (cons __tmp50861 __tmp50804)))) + (cons __tmp52751 __tmp52694)))) (declare (not safe)) - (cons __tmp50803 '())))) + (cons __tmp52693 '())))) (declare (not safe)) - (cons _L32924_ __tmp50802)))) + (cons _L32924_ __tmp52692)))) (declare (not safe)) - (cons __tmp50862 __tmp50801)))) - (___kont4703047031_ + (cons __tmp52752 __tmp52691)))) + (___kont4913449135_ (lambda (_L32854_ _L32856_ _L32857_) - (let ((__tmp50863 - (let ((__tmp50864 - (let ((__tmp50865 - (let ((__tmp50866 - (let ((__tmp50877 + (let ((__tmp52753 + (let ((__tmp52754 + (let ((__tmp52755 + (let ((__tmp52756 + (let ((__tmp52767 (gx#datum->syntax '#f 'lambda)) - (__tmp50867 - (let ((__tmp50875 - (let ((__tmp50876 + (__tmp52757 + (let ((__tmp52765 + (let ((__tmp52766 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp50876 '()))) - (__tmp50868 - (let ((__tmp50869 - (let ((__tmp50874 + (cons __tmp52766 '()))) + (__tmp52758 + (let ((__tmp52759 + (let ((__tmp52764 (gx#datum->syntax '#f 'raise-syntax-error)) - (__tmp50870 - (let ((__tmp50871 - (let ((__tmp50872 - (let ((__tmp50873 + (__tmp52760 + (let ((__tmp52761 + (let ((__tmp52762 + (let ((__tmp52763 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp50873 '())))) + (cons __tmp52763 '())))) (declare (not safe)) (cons '"bad syntax; no macro definition for defsyntax-for-match" - __tmp50872)))) + __tmp52762)))) (declare (not safe)) - (cons '#f __tmp50871)))) + (cons '#f __tmp52761)))) (declare (not safe)) - (cons __tmp50874 __tmp50870)))) + (cons __tmp52764 __tmp52760)))) (declare (not safe)) - (cons __tmp50869 '())))) + (cons __tmp52759 '())))) (declare (not safe)) - (cons __tmp50875 __tmp50868)))) + (cons __tmp52765 __tmp52758)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50877 - __tmp50867)))) + (cons __tmp52767 + __tmp52757)))) (declare (not safe)) - (cons __tmp50866 '())))) + (cons __tmp52756 '())))) (declare (not safe)) - (cons _L32854_ __tmp50865)))) + (cons _L32854_ __tmp52755)))) (declare (not safe)) - (cons _L32856_ __tmp50864)))) + (cons _L32856_ __tmp52754)))) (declare (not safe)) - (cons _L32857_ __tmp50863))))) - (let ((___match4705847059_ + (cons _L32857_ __tmp52753))))) + (let ((___match4916249163_ (lambda (_e3279032881_ _hd3278932885_ _tl3278832888_ @@ -10532,10 +10491,10 @@ (_L32923_ _hd3279532905_) (_L32924_ _hd3279232895_)) (if (gx#identifier? _L32924_) - (___kont4702847029_ _L32921_ _L32923_ _L32924_) + (___kont4913249133_ _L32921_ _L32923_ _L32924_) (let () (declare (not safe)) (_g3278332817_))))))) - (if (gx#stx-pair? ___stx4702547026_) - (let ((_e3279032881_ (gx#syntax-e ___stx4702547026_))) + (if (gx#stx-pair? ___stx4912949130_) + (let ((_e3279032881_ (gx#syntax-e ___stx4912949130_))) (let ((_tl3278832888_ (let () (declare (not safe)) (##cdr _e3279032881_))) (_hd3278932885_ @@ -10575,7 +10534,7 @@ (declare (not safe)) (##car _e3279932911_)))) (if (gx#stx-null? _tl3279732918_) - (___match4705847059_ + (___match4916249163_ _e3279032881_ _hd3278932885_ _tl3278832888_ @@ -10592,7 +10551,7 @@ (declare (not safe)) (_g3278332817_))))) (if (gx#stx-null? _tl3279432908_) - (___kont4703047031_ + (___kont4913449135_ _hd3279532905_ _hd3279232895_ _hd3278932885_) @@ -10636,25 +10595,25 @@ (declare (not safe)) (##cdr _e3295932982_)))) ((lambda (_L32992_ _L32994_) - (let ((__tmp50882 + (let ((__tmp52772 (gx#datum->syntax '#f 'defsyntax-for-match)) - (__tmp50878 - (let ((__tmp50879 - (let ((__tmp50880 - (let ((__tmp50881 + (__tmp52768 + (let ((__tmp52769 + (let ((__tmp52770 + (let ((__tmp52771 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax-rules))) (declare (not safe)) - (cons __tmp50881 _L32992_)))) + (cons __tmp52771 _L32992_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50880 '())))) + (cons __tmp52770 '())))) (declare (not safe)) - (cons _L32994_ __tmp50879)))) + (cons _L32994_ __tmp52769)))) (declare (not safe)) - (cons __tmp50882 __tmp50878))) + (cons __tmp52772 __tmp52768))) _tl3295732989_ _hd3295832986_))) (_g3295032965_ _g3295132969_)))) diff --git a/src/bootstrap/gerbil/core__11.scm b/src/bootstrap/gerbil/core__11.scm index 8534cd789..d250edee3 100644 --- a/src/bootstrap/gerbil/core__11.scm +++ b/src/bootstrap/gerbil/core__11.scm @@ -1,55 +1,55 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$[2]#_g50885_| + (define |gerbil/core$[2]#_g51979_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50887_| + (define |gerbil/core$[2]#_g51981_| (##structure gx#syntax-quote::t 'match-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50889_| + (define |gerbil/core$[2]#_g51983_| (##structure gx#syntax-quote::t 'make-match-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50891_| + (define |gerbil/core$[2]#_g51985_| (##structure gx#syntax-quote::t 'match-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50895_| + (define |gerbil/core$[2]#_g51989_| (##structure gx#syntax-quote::t 'match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50899_| + (define |gerbil/core$[2]#_g51993_| (##structure gx#syntax-quote::t 'match-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50903_| + (define |gerbil/core$[2]#_g51997_| (##structure gx#syntax-quote::t '&match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50907_| + (define |gerbil/core$[2]#_g52001_| (##structure gx#syntax-quote::t '&match-macro-macro-set! @@ -57,7 +57,7 @@ (gx#current-expander-context) '())) (define |gerbil/core$[:1:]#match-macro| - (let ((__obj47529 + (let ((__obj49633 (let () (declare (not safe)) (##structure @@ -80,7 +80,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47529 + __obj49633 'gerbil.core#match-macro::t '1 gerbil/core$$#class-type-info::t @@ -88,7 +88,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47529 + __obj49633 'match-macro '2 gerbil/core$$#class-type-info::t @@ -96,26 +96,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47529 + __obj49633 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50883 - (let ((__tmp50884 |gerbil/core$[2]#_g50885_|)) + (let ((__tmp51977 + (let ((__tmp51978 |gerbil/core$[2]#_g51979_|)) (declare (not safe)) - (cons __tmp50884 '())))) + (cons __tmp51978 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47529 - __tmp50883 + __obj49633 + __tmp51977 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj47529 + __obj49633 '#f '5 gerbil/core$$#class-type-info::t @@ -123,7 +123,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47529 + __obj49633 '#f '6 gerbil/core$$#class-type-info::t @@ -131,7 +131,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47529 + __obj49633 '#f '7 gerbil/core$$#class-type-info::t @@ -139,89 +139,89 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47529 + __obj49633 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50886 |gerbil/core$[2]#_g50887_|)) + (let ((__tmp51980 |gerbil/core$[2]#_g51981_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47529 - __tmp50886 + __obj49633 + __tmp51980 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50888 |gerbil/core$[2]#_g50889_|)) + (let ((__tmp51982 |gerbil/core$[2]#_g51983_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47529 - __tmp50888 + __obj49633 + __tmp51982 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50890 |gerbil/core$[2]#_g50891_|)) + (let ((__tmp51984 |gerbil/core$[2]#_g51985_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47529 - __tmp50890 + __obj49633 + __tmp51984 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50892 - (let ((__tmp50893 - (let ((__tmp50894 |gerbil/core$[2]#_g50895_|)) + (let ((__tmp51986 + (let ((__tmp51987 + (let ((__tmp51988 |gerbil/core$[2]#_g51989_|)) (declare (not safe)) - (cons 'macro __tmp50894)))) + (cons 'macro __tmp51988)))) (declare (not safe)) - (cons __tmp50893 '())))) + (cons __tmp51987 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47529 - __tmp50892 + __obj49633 + __tmp51986 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50896 - (let ((__tmp50897 - (let ((__tmp50898 |gerbil/core$[2]#_g50899_|)) + (let ((__tmp51990 + (let ((__tmp51991 + (let ((__tmp51992 |gerbil/core$[2]#_g51993_|)) (declare (not safe)) - (cons 'macro __tmp50898)))) + (cons 'macro __tmp51992)))) (declare (not safe)) - (cons __tmp50897 '())))) + (cons __tmp51991 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47529 - __tmp50896 + __obj49633 + __tmp51990 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50900 - (let ((__tmp50901 - (let ((__tmp50902 |gerbil/core$[2]#_g50903_|)) + (let ((__tmp51994 + (let ((__tmp51995 + (let ((__tmp51996 |gerbil/core$[2]#_g51997_|)) (declare (not safe)) - (cons 'macro __tmp50902)))) + (cons 'macro __tmp51996)))) (declare (not safe)) - (cons __tmp50901 '())))) + (cons __tmp51995 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47529 - __tmp50900 + __obj49633 + __tmp51994 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50904 - (let ((__tmp50905 - (let ((__tmp50906 |gerbil/core$[2]#_g50907_|)) + (let ((__tmp51998 + (let ((__tmp51999 + (let ((__tmp52000 |gerbil/core$[2]#_g52001_|)) (declare (not safe)) - (cons 'macro __tmp50906)))) + (cons 'macro __tmp52000)))) (declare (not safe)) - (cons __tmp50905 '())))) + (cons __tmp51999 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47529 - __tmp50904 + __obj49633 + __tmp51998 '15 gerbil/core$$#class-type-info::t '#f)) - __obj47529))) + __obj49633))) diff --git a/src/bootstrap/gerbil/core__12.scm b/src/bootstrap/gerbil/core__12.scm index 589803e6d..63bc3b031 100644 --- a/src/bootstrap/gerbil/core__12.scm +++ b/src/bootstrap/gerbil/core__12.scm @@ -37,12 +37,12 @@ _g3305933061_)))) (_g3305833065_ _$stx33055_)))) (define |gerbil/core$[1]#setq-macro::t| - (let ((__tmp50908 (list gerbil/core$#macro-object::t))) + (let ((__tmp52822 (list gerbil/core$#macro-object::t))) (declare (not safe)) (make-class-type 'gerbil.core#setq-macro::t 'setq-macro - __tmp50908 + __tmp52822 '() '() '#f))) @@ -80,12 +80,12 @@ |gerbil/core$[1]#setq-macro::t| 'macro))) (define |gerbil/core$[1]#setf-macro::t| - (let ((__tmp50909 (list gerbil/core$#macro-object::t))) + (let ((__tmp52823 (list gerbil/core$#macro-object::t))) (declare (not safe)) (make-class-type 'gerbil.core#setf-macro::t 'setf-macro - __tmp50909 + __tmp52823 '() '() '#f))) @@ -125,36 +125,36 @@ (define |gerbil/core$[1]#syntax-local-setf-macro?| (lambda (_stx33073_) (if (gx#identifier? _stx33073_) - (let ((__tmp50910 (gx#syntax-local-value _stx33073_ false))) + (let ((__tmp52824 (gx#syntax-local-value _stx33073_ false))) (declare (not safe)) (class-instance? |gerbil/core$[1]#setf-macro::t| - __tmp50910)) + __tmp52824)) '#f))) (define |gerbil/core$[1]#syntax-local-setq-macro?| (lambda (_stx33070_) (if (gx#identifier? _stx33070_) - (let ((__tmp50911 (gx#syntax-local-value _stx33070_ false))) + (let ((__tmp52825 (gx#syntax-local-value _stx33070_ false))) (declare (not safe)) (class-instance? |gerbil/core$[1]#setq-macro::t| - __tmp50911)) + __tmp52825)) '#f))) (define |gerbil/core$[:0:]#set!| (lambda (_stx33084_) - (let* ((___stx4708147082_ _stx33084_) + (let* ((___stx4918549186_ _stx33084_) (_g3309033149_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4708147082_)))) - (let ((___kont4708447085_ + ___stx4918549186_)))) + (let ((___kont4918849189_ (lambda (_L33422_) (gx#core-apply-expander (gx#syntax-local-e _L33422_) _stx33084_))) - (___kont4708647087_ + (___kont4919049191_ (lambda (_L33321_ _L33323_ _L33324_) (let* ((_g3334633354_ (lambda (_g3334733350_) @@ -166,45 +166,40 @@ (lambda (_g3334733358_) ((lambda (_L33361_) (let () - (let ((__tmp50912 - (let ((__tmp50914 - (lambda (_g3337233375_ + (let ((__tmp52826 + (foldr (lambda (_g3337233375_ _g3337333378_) (let () (declare (not safe)) (cons _g3337233375_ - _g3337333378_)))) - (__tmp50913 + _g3337333378_))) (let () (declare (not safe)) - (cons _L33321_ '())))) - (declare (not safe)) - (foldr1 __tmp50914 - __tmp50913 - _L33323_)))) + (cons _L33321_ '())) + _L33323_))) (declare (not safe)) - (cons _L33361_ __tmp50912)))) + (cons _L33361_ __tmp52826)))) _g3334733358_)))) (_g3334533381_ (gx#stx-identifier _L33324_ _L33324_ '"-set!"))))) - (___kont4709047091_ + (___kont4919449195_ (lambda (_L33231_) (gx#core-apply-expander (gx#syntax-local-e _L33231_) _stx33084_))) - (___kont4709247093_ + (___kont4919649197_ (lambda (_L33186_ _L33188_) - (let ((__tmp50917 (gx#datum->syntax '#f '%#set!)) - (__tmp50915 - (let ((__tmp50916 + (let ((__tmp52829 (gx#datum->syntax '#f '%#set!)) + (__tmp52827 + (let ((__tmp52828 (let () (declare (not safe)) (cons _L33186_ '())))) (declare (not safe)) - (cons _L33188_ __tmp50916)))) + (cons _L33188_ __tmp52828)))) (declare (not safe)) - (cons __tmp50917 __tmp50915))))) - (let* ((___match4717247173_ + (cons __tmp52829 __tmp52827))))) + (let* ((___match4927649277_ (lambda (_e3313733156_ _hd3313633160_ _tl3313533163_ @@ -216,9 +211,9 @@ _tl3314133183_) (let ((_L33186_ _hd3314233180_) (_L33188_ _hd3313933170_)) (if (gx#identifier? _L33188_) - (___kont4709247093_ _L33186_ _L33188_) + (___kont4919649197_ _L33186_ _L33188_) (let () (declare (not safe)) (_g3309033149_)))))) - (___match4715247153_ + (___match4925649257_ (lambda (_e3312933211_ _hd3312833215_ _tl3312733218_ @@ -230,7 +225,7 @@ (declare (not safe)) (|gerbil/core$[1]#syntax-local-setq-macro?| _L33231_)) - (___kont4709047091_ _L33231_) + (___kont4919449195_ _L33231_) (if (gx#stx-pair? _tl3313033228_) (let ((_e3314333176_ (gx#syntax-e _tl3313033228_))) @@ -243,7 +238,7 @@ (declare (not safe)) (##car _e3314333176_)))) (if (gx#stx-null? _tl3314133183_) - (___match4717247173_ + (___match4927649277_ _e3312933211_ _hd3312833215_ _tl3312733218_ @@ -259,7 +254,7 @@ (let () (declare (not safe)) (_g3309033149_))))))) - (___match4714047141_ + (___match4924449245_ (lambda (_e3310733251_ _hd3310633255_ _tl3310533258_ @@ -269,7 +264,7 @@ _e3311333271_ _hd3311233275_ _tl3311133278_ - ___splice4708847089_ + ___splice4919249193_ _target3311433281_ _tl3311633284_) (letrec ((_loop3311733287_ @@ -313,25 +308,25 @@ _hd3311233275_)) (if (gx#identifier? _L33324_) - (___kont4708647087_ + (___kont4919049191_ _L33321_ _L33323_ _L33324_) - (___match4715247153_ + (___match4925649257_ _e3310733251_ _hd3310633255_ _tl3310533258_ _e3311033261_ _hd3310933265_ _tl3310833268_))) - (___match4715247153_ + (___match4925649257_ _e3310733251_ _hd3310633255_ _tl3310533258_ _e3311033261_ _hd3310933265_ _tl3310833268_)))) - (___match4715247153_ + (___match4925649257_ _e3310733251_ _hd3310633255_ _tl3310533258_ @@ -339,8 +334,8 @@ _hd3310933265_ _tl3310833268_))))))) (_loop3311733287_ _target3311433281_ '()))))) - (if (gx#stx-pair? ___stx4708147082_) - (let ((_e3309533392_ (gx#syntax-e ___stx4708147082_))) + (if (gx#stx-pair? ___stx4918549186_) + (let ((_e3309533392_ (gx#syntax-e ___stx4918549186_))) (let ((_tl3309333399_ (let () (declare (not safe)) (##cdr _e3309533392_))) (_hd3309433396_ @@ -366,15 +361,15 @@ (let () (declare (not safe)) (##car _e3310133412_)))) - (if (let ((__tmp50918 + (if (let ((__tmp52830 (gx#datum->syntax '#f 'setfid))) (declare (not safe)) (|gerbil/core$[1]#syntax-local-setf-macro?| - __tmp50918)) + __tmp52830)) (let ((_L33422_ _hd3310033416_)) - (___kont4708447085_ _L33422_)) + (___kont4918849189_ _L33422_)) (if (gx#stx-pair/null? _tl3309933419_) - (let ((___splice4708847089_ + (let ((___splice4919249193_ (gx#syntax-split-splice _tl3309933419_ '0))) @@ -382,17 +377,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4708847089_ + ___splice4919249193_ '1))) (_target3311433281_ (let () (declare (not safe)) (##vector-ref - ___splice4708847089_ + ___splice4919249193_ '0)))) (if (gx#stx-null? _tl3311633284_) - (___match4714047141_ + (___match4924449245_ _e3309533392_ _hd3309433396_ _tl3309333399_ @@ -402,24 +397,24 @@ _e3310133412_ _hd3310033416_ _tl3309933419_ - ___splice4708847089_ + ___splice4919249193_ _target3311433281_ _tl3311633284_) - (___match4715247153_ + (___match4925649257_ _e3309533392_ _hd3309433396_ _tl3309333399_ _e3309833402_ _hd3309733406_ _tl3309633409_)))) - (___match4715247153_ + (___match4925649257_ _e3309533392_ _hd3309433396_ _tl3309333399_ _e3309833402_ _hd3309733406_ _tl3309633409_))))) - (___match4715247153_ + (___match4925649257_ _e3309533392_ _hd3309433396_ _tl3309333399_ @@ -450,30 +445,30 @@ (##cdr _e3345133476_)))) (if (gx#stx-pair/null? _tl3344933483_) (if (fx>= (gx#stx-length _tl3344933483_) '1) - (let ((_g50919_ + (let ((_g52831_ (gx#syntax-split-splice _tl3344933483_ '1))) (begin - (let ((_g50920_ + (let ((_g52832_ (let () (declare (not safe)) - (if (##values? _g50919_) - (##vector-length _g50919_) + (if (##values? _g52831_) + (##vector-length _g52831_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50920_ 2))) + (##fx= _g52832_ 2))) (error "Context expects 2 values" - _g50920_))) + _g52832_))) (let ((_target3345233486_ (let () (declare (not safe)) - (##vector-ref _g50919_ 0))) + (##vector-ref _g52831_ 0))) (_tl3345433489_ (let () (declare (not safe)) - (##vector-ref _g50919_ 1)))) + (##vector-ref _g52831_ 1)))) (if (gx#stx-pair? _tl3345433489_) (let ((_e3346333492_ (gx#syntax-e _tl3345433489_))) @@ -516,38 +511,38 @@ (_g3354533635_ (lambda (_g3354733567_) (if (gx#stx-pair/null? _g3354733567_) - (let ((_g50921_ + (let ((_g52833_ (gx#syntax-split-splice _g3354733567_ '0))) (begin - (let ((_g50922_ + (let ((_g52834_ (let () (declare (not safe)) (if (##values? - _g50921_) + _g52833_) (##vector-length - _g50921_) + _g52833_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50922_ + (##fx= _g52834_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g50922_))) + (error "Context expects 2 values" _g52834_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3354933570_ (let () (declare (not safe)) (##vector-ref - _g50921_ + _g52833_ 0))) (_tl3355133573_ (let () (declare (not safe)) (##vector-ref - _g50921_ + _g52833_ 1)))) (if (gx#stx-null? _tl3355133573_) @@ -574,59 +569,58 @@ (let ((_$e3355733596_ (reverse _$e3355633583_))) ((lambda (_L33600_) (let () - (let ((__tmp50935 + (let ((__tmp52845 (gx#datum->syntax '#f 'let-values)) - (__tmp50923 - (let ((__tmp50930 - (let ((__tmp50931 - (let ((__tmp50933 + (__tmp52835 + (let ((__tmp52841 + (let ((__tmp52842 + (let ((__tmp52844 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50934 - (lambda (_g3361833621_ _g3361933624_) + (foldr (lambda (_g3361833621_ _g3361933624_) (let () (declare (not safe)) - (cons _g3361833621_ _g3361933624_))))) - (declare (not safe)) - (foldr1 __tmp50934 '() _L33600_))) - (__tmp50932 + (cons _g3361833621_ _g3361933624_))) + '() + _L33600_)) + (__tmp52843 (let () (declare (not safe)) (cons _L33526_ '())))) (declare (not safe)) - (cons __tmp50933 __tmp50932)))) + (cons __tmp52844 __tmp52843)))) (declare (not safe)) - (cons __tmp50931 '()))) + (cons __tmp52842 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50924 + (__tmp52836 (begin (gx#syntax-check-splice-targets _L33600_ _L33528_) - (let ((__tmp50925 - (lambda (_g3361533627_ + (foldr (lambda (_g3361533627_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3361633630_ _g3361733632_) - (let ((__tmp50926 - (let ((__tmp50929 (gx#datum->syntax '#f 'set!)) - (__tmp50927 - (let ((__tmp50928 + (let ((__tmp52837 + (let ((__tmp52840 (gx#datum->syntax '#f 'set!)) + (__tmp52838 + (let ((__tmp52839 (let () (declare (not safe)) (cons _g3361533627_ '())))) (declare (not safe)) - (cons _g3361633630_ __tmp50928)))) + (cons _g3361633630_ __tmp52839)))) (declare (not safe)) - (cons __tmp50929 __tmp50927)))) + (cons __tmp52840 __tmp52838)))) (declare (not safe)) - (cons __tmp50926 _g3361733632_))))) - (declare (not safe)) - (foldr2 __tmp50925 '() _L33600_ _L33528_))))) + (cons __tmp52837 _g3361733632_))) + '() + _L33600_ + _L33528_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50930 __tmp50924)))) + (cons __tmp52841 __tmp52836)))) (declare (not safe)) - (cons __tmp50935 __tmp50923)))) + (cons __tmp52845 __tmp52835)))) _$e3355733596_)))))) (_loop3355233576_ _target3354933570_ '())) (_g3354633563_ _g3354733567_))))) @@ -634,14 +628,13 @@ (_g3354633563_ _g3354733567_))))) (_g3354533635_ (gx#gentemps - (let ((__tmp50936 - (lambda (_g3363833641_ _g3363933644_) + (foldr (lambda (_g3363833641_ _g3363933644_) (let () (declare (not safe)) (cons _g3363833641_ - _g3363933644_))))) - (declare (not safe)) - (foldr1 __tmp50936 '() _L33528_)))))) + _g3363933644_))) + '() + _L33528_))))) _hd3346233496_ _tgt3346033522_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -657,31 +650,29 @@ (_g3344433647_ _stx33442_)))) (define |gerbil/core$[:0:]#parameterize| (lambda (_stx33653_) - (let* ((___stx4717547176_ _stx33653_) + (let* ((___stx4927949280_ _stx33653_) (_g3365733715_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4717547176_)))) - (let ((___kont4717847179_ + ___stx4927949280_)))) + (let ((___kont4928249283_ (lambda (_L34049_) - (let ((__tmp50940 (gx#datum->syntax '#f 'let)) - (__tmp50937 - (let ((__tmp50938 - (let ((__tmp50939 - (lambda (_g3406534068_ _g3406634071_) + (let ((__tmp52848 (gx#datum->syntax '#f 'let)) + (__tmp52846 + (let ((__tmp52847 + (foldr (lambda (_g3406534068_ _g3406634071_) (let () (declare (not safe)) - (cons _g3406534068_ - _g3406634071_))))) - (declare (not safe)) - (foldr1 __tmp50939 '() _L34049_)))) + (cons _g3406534068_ _g3406634071_))) + '() + _L34049_))) (declare (not safe)) - (cons '() __tmp50938)))) + (cons '() __tmp52847)))) (declare (not safe)) - (cons __tmp50940 __tmp50937)))) - (___kont4718247183_ + (cons __tmp52848 __tmp52846)))) + (___kont4928649287_ (lambda (_L33826_ _L33828_ _L33829_) (let* ((_g3385233860_ (lambda (_g3385333856_) @@ -702,37 +693,37 @@ (_g3387833960_ (lambda (_g3388033900_) (if (gx#stx-pair/null? _g3388033900_) - (let ((_g50941_ + (let ((_g52849_ (gx#syntax-split-splice _g3388033900_ '0))) (begin - (let ((_g50942_ + (let ((_g52850_ (let () (declare (not safe)) (if (##values? - _g50941_) + _g52849_) (##vector-length - _g50941_) + _g52849_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g50942_ 2))) - (error "Context expects 2 values" _g50942_))) + (##fx= _g52850_ 2))) + (error "Context expects 2 values" _g52850_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3388233903_ (let () (declare (not safe)) (##vector-ref - _g50941_ + _g52849_ 0))) (_tl3388433906_ (let () (declare (not safe)) (##vector-ref - _g50941_ + _g52849_ 1)))) (if (gx#stx-null? _tl3388433906_) @@ -761,90 +752,77 @@ ((lambda (_L33933_) (let () (let () - (let ((__tmp50946 + (let ((__tmp52853 (gx#datum->syntax '#f 'call-with-parameters)) - (__tmp50943 - (let ((__tmp50944 - (let ((__tmp50945 - (lambda (_g3395133954_ + (__tmp52851 + (let ((__tmp52852 + (foldr (lambda (_g3395133954_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3395233957_) (let () (declare (not safe)) - (cons _g3395133954_ _g3395233957_))))) - (declare (not safe)) - (foldr1 __tmp50945 '() _L33933_)))) + (cons _g3395133954_ _g3395233957_))) + '() + _L33933_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L33867_ __tmp50944)))) + (cons _L33867_ __tmp52852)))) (declare (not safe)) - (cons __tmp50946 __tmp50943))))) + (cons __tmp52853 __tmp52851))))) _arg3389033929_)))))) (_loop3388533909_ _target3388233903_ '())) (_g3387933896_ _g3388033900_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g3387933896_ _g3388033900_))))) (_g3387833960_ - (let ((__tmp50949 + (foldr cons* + '() (gx#syntax->list - (let ((__tmp50950 - (lambda (_g3396333966_ + (foldr (lambda (_g3396333966_ _g3396433969_) (let () (declare (not safe)) (cons _g3396333966_ - _g3396433969_))))) - (declare (not safe)) - (foldr1 __tmp50950 - '() - _L33829_)))) - (__tmp50947 + _g3396433969_))) + '() + _L33829_)) (gx#syntax->list - (let ((__tmp50948 - (lambda (_g3397133974_ + (foldr (lambda (_g3397133974_ _g3397233977_) (let () (declare (not safe)) (cons _g3397133974_ - _g3397233977_))))) - (declare (not safe)) - (foldr1 __tmp50948 - '() - _L33828_))))) - (declare (not safe)) - (foldr2 cons* - '() - __tmp50949 - __tmp50947)))))) + _g3397233977_))) + '() + _L33828_))))))) _g3385333864_)))) (_g3385133980_ (gx#stx-wrap-source - (let ((__tmp50954 (gx#datum->syntax '#f 'lambda)) - (__tmp50951 - (let ((__tmp50952 - (let ((__tmp50953 - (lambda (_g3398333986_ _g3398433989_) + (let ((__tmp52856 (gx#datum->syntax '#f 'lambda)) + (__tmp52854 + (let ((__tmp52855 + (foldr (lambda (_g3398333986_ _g3398433989_) (let () (declare (not safe)) (cons _g3398333986_ - _g3398433989_))))) - (declare (not safe)) - (foldr1 __tmp50953 '() _L33826_)))) + _g3398433989_))) + '() + _L33826_))) (declare (not safe)) - (cons '() __tmp50952)))) + (cons '() __tmp52855)))) (declare (not safe)) - (cons __tmp50954 __tmp50951)) + (cons __tmp52856 __tmp52854)) (gx#stx-source _stx33653_))))))) - (let* ((___match4723047231_ + (let* ((___match4933449335_ (lambda (_e3368033722_ _hd3367933726_ _tl3367833729_ _e3368333732_ _hd3368233736_ _tl3368133739_ - ___splice4718447185_ + ___splice4928849289_ _target3368433742_ _tl3368633745_) (letrec ((_loop3368733748_ @@ -909,7 +887,7 @@ (_expr3369333790_ (reverse _expr3369133755_))) (if (gx#stx-pair/null? _tl3368133739_) - (let ((___splice4718647187_ + (let ((___splice4929049291_ (gx#syntax-split-splice _tl3368133739_ '0))) @@ -917,13 +895,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice4718647187_ + ___splice4929049291_ '1))) (_target3370133796_ (let () (declare (not safe)) (##vector-ref - ___splice4718647187_ + ___splice4929049291_ '0)))) (if (gx#stx-null? _tl3370333799_) (letrec ((_loop3370433802_ @@ -946,7 +924,7 @@ (declare (not safe)) (cons _lp-hd3370633816_ _body3370833809_))))) (let ((_body3370933822_ (reverse _body3370833809_))) - (___kont4718247183_ + (___kont4928649287_ _body3370933822_ _expr3369333790_ _param3369433793_)))))) @@ -961,14 +939,14 @@ (declare (not safe)) (_g3365733715_)))))))) (_loop3368733748_ _target3368433742_ '() '())))) - (___match4721047211_ + (___match4931449315_ (lambda (_e3366233999_ _hd3366134003_ _tl3366034006_ _e3366534009_ _hd3366434013_ _tl3366334016_ - ___splice4718047181_ + ___splice4928449285_ _target3366634019_ _tl3366834022_) (letrec ((_loop3366934025_ @@ -992,11 +970,11 @@ _body3367334032_))))) (let ((_body3367434045_ (reverse _body3367334032_))) - (___kont4717847179_ + (___kont4928249283_ _body3367434045_)))))) (_loop3366934025_ _target3366634019_ '()))))) - (if (gx#stx-pair? ___stx4717547176_) - (let ((_e3366233999_ (gx#syntax-e ___stx4717547176_))) + (if (gx#stx-pair? ___stx4927949280_) + (let ((_e3366233999_ (gx#syntax-e ___stx4927949280_))) (let ((_tl3366034006_ (let () (declare (not safe)) (##cdr _e3366233999_))) (_hd3366134003_ @@ -1013,7 +991,7 @@ (##car _e3366534009_)))) (if (gx#stx-null? _hd3366434013_) (if (gx#stx-pair/null? _tl3366334016_) - (let ((___splice4718047181_ + (let ((___splice4928449285_ (gx#syntax-split-splice _tl3366334016_ '0))) @@ -1021,28 +999,28 @@ (let () (declare (not safe)) (##vector-ref - ___splice4718047181_ + ___splice4928449285_ '1))) (_target3366634019_ (let () (declare (not safe)) (##vector-ref - ___splice4718047181_ + ___splice4928449285_ '0)))) (if (gx#stx-null? _tl3366834022_) - (___match4721047211_ + (___match4931449315_ _e3366233999_ _hd3366134003_ _tl3366034006_ _e3366534009_ _hd3366434013_ _tl3366334016_ - ___splice4718047181_ + ___splice4928449285_ _target3366634019_ _tl3366834022_) (if (gx#stx-pair/null? _hd3366434013_) - (let ((___splice4718447185_ + (let ((___splice4928849289_ (gx#syntax-split-splice _hd3366434013_ '0))) @@ -1050,24 +1028,24 @@ (let () (declare (not safe)) (##vector-ref - ___splice4718447185_ + ___splice4928849289_ '1))) (_target3368433742_ (let () (declare (not safe)) (##vector-ref - ___splice4718447185_ + ___splice4928849289_ '0)))) (if (gx#stx-null? _tl3368633745_) - (___match4723047231_ + (___match4933449335_ _e3366233999_ _hd3366134003_ _tl3366034006_ _e3366534009_ _hd3366434013_ _tl3366334016_ - ___splice4718447185_ + ___splice4928849289_ _target3368433742_ _tl3368633745_) (let () @@ -1077,7 +1055,7 @@ (declare (not safe)) (_g3365733715_)))))) (if (gx#stx-pair/null? _hd3366434013_) - (let ((___splice4718447185_ + (let ((___splice4928849289_ (gx#syntax-split-splice _hd3366434013_ '0))) @@ -1085,23 +1063,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4718447185_ + ___splice4928849289_ '1))) (_target3368433742_ (let () (declare (not safe)) (##vector-ref - ___splice4718447185_ + ___splice4928849289_ '0)))) (if (gx#stx-null? _tl3368633745_) - (___match4723047231_ + (___match4933449335_ _e3366233999_ _hd3366134003_ _tl3366034006_ _e3366534009_ _hd3366434013_ _tl3366334016_ - ___splice4718447185_ + ___splice4928849289_ _target3368433742_ _tl3368633745_) (let () @@ -1111,7 +1089,7 @@ (declare (not safe)) (_g3365733715_)))) (if (gx#stx-pair/null? _hd3366434013_) - (let ((___splice4718447185_ + (let ((___splice4928849289_ (gx#syntax-split-splice _hd3366434013_ '0))) @@ -1119,23 +1097,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4718447185_ + ___splice4928849289_ '1))) (_target3368433742_ (let () (declare (not safe)) (##vector-ref - ___splice4718447185_ + ___splice4928849289_ '0)))) (if (gx#stx-null? _tl3368633745_) - (___match4723047231_ + (___match4933449335_ _e3366233999_ _hd3366134003_ _tl3366034006_ _e3366534009_ _hd3366434013_ _tl3366334016_ - ___splice4718447185_ + ___splice4928849289_ _target3368433742_ _tl3368633745_) (let () @@ -1177,30 +1155,30 @@ (declare (not safe)) (##cdr _e3409534127_)))) (if (gx#stx-pair/null? _tl3409334134_) - (let ((_g50955_ + (let ((_g52857_ (gx#syntax-split-splice _tl3409334134_ '0))) (begin - (let ((_g50956_ + (let ((_g52858_ (let () (declare (not safe)) - (if (##values? _g50955_) - (##vector-length _g50955_) + (if (##values? _g52857_) + (##vector-length _g52857_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50956_ 2))) + (##fx= _g52858_ 2))) (error "Context expects 2 values" - _g50956_))) + _g52858_))) (let ((_target3409634137_ (let () (declare (not safe)) - (##vector-ref _g50955_ 0))) + (##vector-ref _g52857_ 0))) (_tl3409834140_ (let () (declare (not safe)) - (##vector-ref _g50955_ 1)))) + (##vector-ref _g52857_ 1)))) (if (gx#stx-null? _tl3409834140_) (letrec ((_loop3409934143_ (lambda (_hd3409734147_ @@ -1224,39 +1202,38 @@ (let ((_body3410434163_ (reverse _body3410334150_))) ((lambda (_L34167_ _L34169_) (if (gx#identifier? _L34169_) - (let ((__tmp50964 + (let ((__tmp52865 (gx#datum->syntax '#f 'call/cc)) - (__tmp50957 - (let ((__tmp50958 - (let ((__tmp50963 + (__tmp52859 + (let ((__tmp52860 + (let ((__tmp52864 (gx#datum->syntax '#f 'lambda)) - (__tmp50959 - (let ((__tmp50962 + (__tmp52861 + (let ((__tmp52863 (let () (declare (not safe)) (cons _L34169_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp50960 - (let ((__tmp50961 - (lambda (_g3418634189_ _g3418734192_) + (__tmp52862 + (foldr (lambda (_g3418634189_ _g3418734192_) (let () (declare (not safe)) - (cons _g3418634189_ _g3418734192_))))) - (declare (not safe)) - (foldr1 __tmp50961 '() _L34167_)))) + (cons _g3418634189_ _g3418734192_))) + '() + _L34167_))) (declare (not safe)) - (cons __tmp50962 __tmp50960)))) + (cons __tmp52863 __tmp52862)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50963 __tmp50959)))) + (cons __tmp52864 __tmp52861)))) (declare (not safe)) - (cons __tmp50958 '())))) + (cons __tmp52860 '())))) (declare (not safe)) - (cons __tmp50964 __tmp50957)) + (cons __tmp52865 __tmp52859)) (_g3408634110_ _g3408734114_))) _body3410434163_ _hd3409434131_)))))) @@ -1300,30 +1277,30 @@ (declare (not safe)) (##cdr _e3421334245_)))) (if (gx#stx-pair/null? _tl3421134252_) - (let ((_g50965_ + (let ((_g52866_ (gx#syntax-split-splice _tl3421134252_ '0))) (begin - (let ((_g50966_ + (let ((_g52867_ (let () (declare (not safe)) - (if (##values? _g50965_) - (##vector-length _g50965_) + (if (##values? _g52866_) + (##vector-length _g52866_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50966_ 2))) + (##fx= _g52867_ 2))) (error "Context expects 2 values" - _g50966_))) + _g52867_))) (let ((_target3421434255_ (let () (declare (not safe)) - (##vector-ref _g50965_ 0))) + (##vector-ref _g52866_ 0))) (_tl3421634258_ (let () (declare (not safe)) - (##vector-ref _g50965_ 1)))) + (##vector-ref _g52866_ 1)))) (if (gx#stx-null? _tl3421634258_) (letrec ((_loop3421734261_ (lambda (_hd3421534265_ @@ -1347,39 +1324,38 @@ (let ((_body3422234281_ (reverse _body3422134268_))) ((lambda (_L34285_ _L34287_) (if (gx#identifier? _L34287_) - (let ((__tmp50974 + (let ((__tmp52874 (gx#datum->syntax '#f 'call/esc)) - (__tmp50967 - (let ((__tmp50968 - (let ((__tmp50973 + (__tmp52868 + (let ((__tmp52869 + (let ((__tmp52873 (gx#datum->syntax '#f 'lambda)) - (__tmp50969 - (let ((__tmp50972 + (__tmp52870 + (let ((__tmp52872 (let () (declare (not safe)) (cons _L34287_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp50970 - (let ((__tmp50971 - (lambda (_g3430434307_ _g3430534310_) + (__tmp52871 + (foldr (lambda (_g3430434307_ _g3430534310_) (let () (declare (not safe)) - (cons _g3430434307_ _g3430534310_))))) - (declare (not safe)) - (foldr1 __tmp50971 '() _L34285_)))) + (cons _g3430434307_ _g3430534310_))) + '() + _L34285_))) (declare (not safe)) - (cons __tmp50972 __tmp50970)))) + (cons __tmp52872 __tmp52871)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50973 __tmp50969)))) + (cons __tmp52873 __tmp52870)))) (declare (not safe)) - (cons __tmp50968 '())))) + (cons __tmp52869 '())))) (declare (not safe)) - (cons __tmp50974 __tmp50967)) + (cons __tmp52874 __tmp52868)) (_g3420434228_ _g3420534232_))) _body3422234281_ _hd3421234249_)))))) @@ -1434,38 +1410,38 @@ (declare (not safe)) (##cdr _e3433534377_)))) (if (gx#stx-pair/null? _tl3433334384_) - (let ((_g50975_ + (let ((_g52875_ (gx#syntax-split-splice _tl3433334384_ '0))) (begin - (let ((_g50976_ + (let ((_g52876_ (let () (declare (not safe)) (if (##values? - _g50975_) + _g52875_) (##vector-length - _g50975_) + _g52875_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50976_ + (##fx= _g52876_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g50976_))) + (error "Context expects 2 values" _g52876_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target3433634387_ (let () (declare (not safe)) (##vector-ref - _g50975_ + _g52875_ 0))) (_tl3433834390_ (let () (declare (not safe)) (##vector-ref - _g50975_ + _g52875_ 1)))) (if (gx#stx-null? _tl3433834390_) @@ -1493,60 +1469,59 @@ (let ((_rest3434434413_ (reverse _rest3434334400_))) ((lambda (_L34417_ _L34419_ _L34420_) - (let ((__tmp50989 + (let ((__tmp52888 (gx#datum->syntax '#f 'with-unwind-protect)) - (__tmp50977 - (let ((__tmp50985 - (let ((__tmp50988 + (__tmp52877 + (let ((__tmp52884 + (let ((__tmp52887 (gx#datum->syntax '#f 'lambda)) - (__tmp50986 - (let ((__tmp50987 + (__tmp52885 + (let ((__tmp52886 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L34420_ '())))) (declare (not safe)) - (cons '() __tmp50987)))) + (cons '() __tmp52886)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50988 - __tmp50986))) - (__tmp50978 - (let ((__tmp50979 - (let ((__tmp50984 + (cons __tmp52887 + __tmp52885))) + (__tmp52878 + (let ((__tmp52879 + (let ((__tmp52883 (gx#datum->syntax '#f 'lambda)) - (__tmp50980 - (let ((__tmp50981 + (__tmp52880 + (let ((__tmp52881 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50982 - (let ((__tmp50983 - (lambda (_g3444034443_ + (let ((__tmp52882 + (foldr (lambda (_g3444034443_ _g3444134446_) (let () (declare (not safe)) (cons _g3444034443_ - _g3444134446_))))) - (declare (not safe)) - (foldr1 __tmp50983 '() _L34417_)))) + _g3444134446_))) + '() + _L34417_))) (declare (not safe)) - (cons _L34419_ __tmp50982)))) + (cons _L34419_ __tmp52882)))) (declare (not safe)) - (cons '() __tmp50981)))) + (cons '() __tmp52881)))) (declare (not safe)) - (cons __tmp50984 __tmp50980)))) + (cons __tmp52883 __tmp52880)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50979 '())))) + (cons __tmp52879 '())))) (declare (not safe)) - (cons __tmp50985 __tmp50978)))) + (cons __tmp52884 __tmp52878)))) (declare (not safe)) - (cons __tmp50989 __tmp50977))) + (cons __tmp52888 __tmp52877))) _rest3434434413_ _hd3433434381_ _hd3433134371_)))))) @@ -1601,13 +1576,13 @@ (lambda (_g3451334524_) ((lambda (_L34527_) (let () - (let ((__tmp50991 + (let ((__tmp52890 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp50990 + (__tmp52889 (let () (declare (not safe)) (cons _L34527_ '())))) (declare (not safe)) - (cons __tmp50991 __tmp50990)))) + (cons __tmp52890 __tmp52889)))) _g3451334524_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g3451134539_ diff --git a/src/bootstrap/gerbil/core__13.scm b/src/bootstrap/gerbil/core__13.scm index abe98903b..71c9da5e2 100644 --- a/src/bootstrap/gerbil/core__13.scm +++ b/src/bootstrap/gerbil/core__13.scm @@ -1,104 +1,104 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$[2]#_g50994_| + (define |gerbil/core$[2]#_g52775_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50996_| + (define |gerbil/core$[2]#_g52777_| (##structure gx#syntax-quote::t 'setq-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50998_| + (define |gerbil/core$[2]#_g52779_| (##structure gx#syntax-quote::t 'make-setq-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51000_| + (define |gerbil/core$[2]#_g52781_| (##structure gx#syntax-quote::t 'setq-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51004_| + (define |gerbil/core$[2]#_g52785_| (##structure gx#syntax-quote::t 'setq-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51008_| + (define |gerbil/core$[2]#_g52789_| (##structure gx#syntax-quote::t 'setq-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51012_| + (define |gerbil/core$[2]#_g52793_| (##structure gx#syntax-quote::t '&setq-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51016_| + (define |gerbil/core$[2]#_g52797_| (##structure gx#syntax-quote::t '&setq-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51020_| + (define |gerbil/core$[2]#_g52801_| (##structure gx#syntax-quote::t 'setf-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51022_| + (define |gerbil/core$[2]#_g52803_| (##structure gx#syntax-quote::t 'make-setf-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51024_| + (define |gerbil/core$[2]#_g52805_| (##structure gx#syntax-quote::t 'setf-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51028_| + (define |gerbil/core$[2]#_g52809_| (##structure gx#syntax-quote::t 'setf-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51032_| + (define |gerbil/core$[2]#_g52813_| (##structure gx#syntax-quote::t 'setf-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51036_| + (define |gerbil/core$[2]#_g52817_| (##structure gx#syntax-quote::t '&setf-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g51040_| + (define |gerbil/core$[2]#_g52821_| (##structure gx#syntax-quote::t '&setf-macro-macro-set! @@ -107,7 +107,7 @@ '())) (begin (define |gerbil/core$[:1:]#setq-macro| - (let ((__obj47538 + (let ((__obj49642 (let () (declare (not safe)) (##structure @@ -130,7 +130,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47538 + __obj49642 'gerbil.core#setq-macro::t '1 gerbil/core$$#class-type-info::t @@ -138,7 +138,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47538 + __obj49642 'setq-macro '2 gerbil/core$$#class-type-info::t @@ -146,26 +146,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47538 + __obj49642 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50992 - (let ((__tmp50993 |gerbil/core$[2]#_g50994_|)) + (let ((__tmp52773 + (let ((__tmp52774 |gerbil/core$[2]#_g52775_|)) (declare (not safe)) - (cons __tmp50993 '())))) + (cons __tmp52774 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47538 - __tmp50992 + __obj49642 + __tmp52773 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj47538 + __obj49642 '#f '5 gerbil/core$$#class-type-info::t @@ -173,7 +173,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47538 + __obj49642 '#f '6 gerbil/core$$#class-type-info::t @@ -181,7 +181,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47538 + __obj49642 '#f '7 gerbil/core$$#class-type-info::t @@ -189,98 +189,98 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47538 + __obj49642 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50995 |gerbil/core$[2]#_g50996_|)) + (let ((__tmp52776 |gerbil/core$[2]#_g52777_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47538 - __tmp50995 + __obj49642 + __tmp52776 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50997 |gerbil/core$[2]#_g50998_|)) + (let ((__tmp52778 |gerbil/core$[2]#_g52779_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47538 - __tmp50997 + __obj49642 + __tmp52778 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50999 |gerbil/core$[2]#_g51000_|)) + (let ((__tmp52780 |gerbil/core$[2]#_g52781_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47538 - __tmp50999 + __obj49642 + __tmp52780 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51001 - (let ((__tmp51002 - (let ((__tmp51003 - |gerbil/core$[2]#_g51004_|)) + (let ((__tmp52782 + (let ((__tmp52783 + (let ((__tmp52784 + |gerbil/core$[2]#_g52785_|)) (declare (not safe)) - (cons 'macro __tmp51003)))) + (cons 'macro __tmp52784)))) (declare (not safe)) - (cons __tmp51002 '())))) + (cons __tmp52783 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47538 - __tmp51001 + __obj49642 + __tmp52782 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51005 - (let ((__tmp51006 - (let ((__tmp51007 - |gerbil/core$[2]#_g51008_|)) + (let ((__tmp52786 + (let ((__tmp52787 + (let ((__tmp52788 + |gerbil/core$[2]#_g52789_|)) (declare (not safe)) - (cons 'macro __tmp51007)))) + (cons 'macro __tmp52788)))) (declare (not safe)) - (cons __tmp51006 '())))) + (cons __tmp52787 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47538 - __tmp51005 + __obj49642 + __tmp52786 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51009 - (let ((__tmp51010 - (let ((__tmp51011 - |gerbil/core$[2]#_g51012_|)) + (let ((__tmp52790 + (let ((__tmp52791 + (let ((__tmp52792 + |gerbil/core$[2]#_g52793_|)) (declare (not safe)) - (cons 'macro __tmp51011)))) + (cons 'macro __tmp52792)))) (declare (not safe)) - (cons __tmp51010 '())))) + (cons __tmp52791 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47538 - __tmp51009 + __obj49642 + __tmp52790 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51013 - (let ((__tmp51014 - (let ((__tmp51015 - |gerbil/core$[2]#_g51016_|)) + (let ((__tmp52794 + (let ((__tmp52795 + (let ((__tmp52796 + |gerbil/core$[2]#_g52797_|)) (declare (not safe)) - (cons 'macro __tmp51015)))) + (cons 'macro __tmp52796)))) (declare (not safe)) - (cons __tmp51014 '())))) + (cons __tmp52795 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47538 - __tmp51013 + __obj49642 + __tmp52794 '15 gerbil/core$$#class-type-info::t '#f)) - __obj47538)) + __obj49642)) (define |gerbil/core$[:1:]#setf-macro| - (let ((__obj47539 + (let ((__obj49643 (let () (declare (not safe)) (##structure @@ -303,7 +303,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47539 + __obj49643 'gerbil.core#setf-macro::t '1 gerbil/core$$#class-type-info::t @@ -311,7 +311,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47539 + __obj49643 'setf-macro '2 gerbil/core$$#class-type-info::t @@ -319,26 +319,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47539 + __obj49643 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51017 - (let ((__tmp51018 |gerbil/core$[2]#_g50994_|)) + (let ((__tmp52798 + (let ((__tmp52799 |gerbil/core$[2]#_g52775_|)) (declare (not safe)) - (cons __tmp51018 '())))) + (cons __tmp52799 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47539 - __tmp51017 + __obj49643 + __tmp52798 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj47539 + __obj49643 '#f '5 gerbil/core$$#class-type-info::t @@ -346,7 +346,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47539 + __obj49643 '#f '6 gerbil/core$$#class-type-info::t @@ -354,7 +354,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47539 + __obj49643 '#f '7 gerbil/core$$#class-type-info::t @@ -362,93 +362,93 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47539 + __obj49643 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51019 |gerbil/core$[2]#_g51020_|)) + (let ((__tmp52800 |gerbil/core$[2]#_g52801_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47539 - __tmp51019 + __obj49643 + __tmp52800 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51021 |gerbil/core$[2]#_g51022_|)) + (let ((__tmp52802 |gerbil/core$[2]#_g52803_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47539 - __tmp51021 + __obj49643 + __tmp52802 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51023 |gerbil/core$[2]#_g51024_|)) + (let ((__tmp52804 |gerbil/core$[2]#_g52805_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47539 - __tmp51023 + __obj49643 + __tmp52804 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51025 - (let ((__tmp51026 - (let ((__tmp51027 - |gerbil/core$[2]#_g51028_|)) + (let ((__tmp52806 + (let ((__tmp52807 + (let ((__tmp52808 + |gerbil/core$[2]#_g52809_|)) (declare (not safe)) - (cons 'macro __tmp51027)))) + (cons 'macro __tmp52808)))) (declare (not safe)) - (cons __tmp51026 '())))) + (cons __tmp52807 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47539 - __tmp51025 + __obj49643 + __tmp52806 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51029 - (let ((__tmp51030 - (let ((__tmp51031 - |gerbil/core$[2]#_g51032_|)) + (let ((__tmp52810 + (let ((__tmp52811 + (let ((__tmp52812 + |gerbil/core$[2]#_g52813_|)) (declare (not safe)) - (cons 'macro __tmp51031)))) + (cons 'macro __tmp52812)))) (declare (not safe)) - (cons __tmp51030 '())))) + (cons __tmp52811 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47539 - __tmp51029 + __obj49643 + __tmp52810 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51033 - (let ((__tmp51034 - (let ((__tmp51035 - |gerbil/core$[2]#_g51036_|)) + (let ((__tmp52814 + (let ((__tmp52815 + (let ((__tmp52816 + |gerbil/core$[2]#_g52817_|)) (declare (not safe)) - (cons 'macro __tmp51035)))) + (cons 'macro __tmp52816)))) (declare (not safe)) - (cons __tmp51034 '())))) + (cons __tmp52815 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47539 - __tmp51033 + __obj49643 + __tmp52814 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp51037 - (let ((__tmp51038 - (let ((__tmp51039 - |gerbil/core$[2]#_g51040_|)) + (let ((__tmp52818 + (let ((__tmp52819 + (let ((__tmp52820 + |gerbil/core$[2]#_g52821_|)) (declare (not safe)) - (cons 'macro __tmp51039)))) + (cons 'macro __tmp52820)))) (declare (not safe)) - (cons __tmp51038 '())))) + (cons __tmp52819 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47539 - __tmp51037 + __obj49643 + __tmp52818 '15 gerbil/core$$#class-type-info::t '#f)) - __obj47539)))) + __obj49643)))) diff --git a/src/bootstrap/gerbil/core__14.scm b/src/bootstrap/gerbil/core__14.scm index 3a71063f7..bb7c87e6b 100644 --- a/src/bootstrap/gerbil/core__14.scm +++ b/src/bootstrap/gerbil/core__14.scm @@ -21,23 +21,23 @@ (declare (not safe)) (##cdr _e3455934572_)))) ((lambda (_L34582_) - (let ((__tmp51045 + (let ((__tmp52895 (gx#datum->syntax '#f 'make-setq-macro)) - (__tmp51041 - (let ((__tmp51042 - (let ((__tmp51043 - (let ((__tmp51044 + (__tmp52891 + (let ((__tmp52892 + (let ((__tmp52893 + (let ((__tmp52894 (gx#datum->syntax '#f 'syntax-rules))) (declare (not safe)) - (cons __tmp51044 _L34582_)))) + (cons __tmp52894 _L34582_)))) (declare (not safe)) - (cons __tmp51043 '())))) + (cons __tmp52893 '())))) (declare (not safe)) - (cons 'macro: __tmp51042)))) + (cons 'macro: __tmp52892)))) (declare (not safe)) - (cons __tmp51045 __tmp51041))) + (cons __tmp52895 __tmp52891))) _tl3455734579_))) (_g3455434565_ _g3455534569_))))) (_g3455334595_ _$stx34550_)))) diff --git a/src/bootstrap/gerbil/core__15.scm b/src/bootstrap/gerbil/core__15.scm index 89e69903d..814db18f9 100644 --- a/src/bootstrap/gerbil/core__15.scm +++ b/src/bootstrap/gerbil/core__15.scm @@ -2,69 +2,69 @@ (begin (define |gerbil/core$[:0:]#require| (lambda (_$stx34614_) - (let* ((___stx4723347234_ _$stx34614_) + (let* ((___stx4933749338_ _$stx34614_) (_g3461934638_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4723347234_)))) - (let ((___kont4723647237_ + ___stx4933749338_)))) + (let ((___kont4934049341_ (lambda () - (let ((__tmp51046 (gx#datum->syntax '#f 'begin))) + (let ((__tmp52896 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp51046 '())))) - (___kont4723847239_ + (cons __tmp52896 '())))) + (___kont4934249343_ (lambda (_L34665_ _L34667_ _L34668_) - (let ((__tmp51059 (gx#datum->syntax '#f 'cond-expand)) - (__tmp51047 - (let ((__tmp51056 - (let ((__tmp51057 - (let ((__tmp51058 + (let ((__tmp52909 (gx#datum->syntax '#f 'cond-expand)) + (__tmp52897 + (let ((__tmp52906 + (let ((__tmp52907 + (let ((__tmp52908 (let () (declare (not safe)) (cons _L34668_ _L34665_)))) (declare (not safe)) - (cons __tmp51058 '())))) + (cons __tmp52908 '())))) (declare (not safe)) - (cons _L34667_ __tmp51057))) - (__tmp51048 - (let ((__tmp51049 - (let ((__tmp51055 + (cons _L34667_ __tmp52907))) + (__tmp52898 + (let ((__tmp52899 + (let ((__tmp52905 (gx#datum->syntax '#f 'else)) - (__tmp51050 - (let ((__tmp51051 - (let ((__tmp51054 + (__tmp52900 + (let ((__tmp52901 + (let ((__tmp52904 (gx#datum->syntax '#f 'syntax-error)) - (__tmp51052 - (let ((__tmp51053 + (__tmp52902 + (let ((__tmp52903 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L34667_ '())))) (declare (not safe)) - (cons '"Missing required feature" __tmp51053)))) + (cons '"Missing required feature" __tmp52903)))) (declare (not safe)) - (cons __tmp51054 __tmp51052)))) + (cons __tmp52904 __tmp52902)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51051 '())))) + (cons __tmp52901 '())))) (declare (not safe)) - (cons __tmp51055 __tmp51050)))) + (cons __tmp52905 __tmp52900)))) (declare (not safe)) - (cons __tmp51049 '())))) + (cons __tmp52899 '())))) (declare (not safe)) - (cons __tmp51056 __tmp51048)))) + (cons __tmp52906 __tmp52898)))) (declare (not safe)) - (cons __tmp51059 __tmp51047))))) - (if (gx#stx-pair? ___stx4723347234_) - (let ((_e3462334691_ (gx#syntax-e ___stx4723347234_))) + (cons __tmp52909 __tmp52897))))) + (if (gx#stx-pair? ___stx4933749338_) + (let ((_e3462334691_ (gx#syntax-e ___stx4933749338_))) (let ((_tl3462134698_ (let () (declare (not safe)) (##cdr _e3462334691_))) (_hd3462234695_ (let () (declare (not safe)) (##car _e3462334691_)))) (if (gx#stx-null? _tl3462134698_) - (___kont4723647237_) + (___kont4934049341_) (if (gx#stx-pair? _tl3462134698_) (let ((_e3463234655_ (gx#syntax-e _tl3462134698_))) (let ((_tl3463034662_ @@ -75,7 +75,7 @@ (let () (declare (not safe)) (##car _e3463234655_)))) - (___kont4723847239_ + (___kont4934249343_ _tl3463034662_ _hd3463134659_ _hd3462234695_))) @@ -83,65 +83,64 @@ (let () (declare (not safe)) (_g3461934638_))))))) (define |gerbil/core$[:0:]#defsyntax-for-import| (lambda (_$stx34709_) - (let* ((___stx4726347264_ _$stx34709_) + (let* ((___stx4936749368_ _$stx34709_) (_g3471434754_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4726347264_)))) - (let ((___kont4726647267_ + ___stx4936749368_)))) + (let ((___kont4937049371_ (lambda (_L34892_ _L34894_) - (let ((__tmp51065 (gx#datum->syntax '#f 'defsyntax)) - (__tmp51060 - (let ((__tmp51061 - (let ((__tmp51062 - (let ((__tmp51064 + (let ((__tmp52915 (gx#datum->syntax '#f 'defsyntax)) + (__tmp52910 + (let ((__tmp52911 + (let ((__tmp52912 + (let ((__tmp52914 (gx#datum->syntax '#f 'make-import-expander)) - (__tmp51063 + (__tmp52913 (let () (declare (not safe)) (cons _L34892_ '())))) (declare (not safe)) - (cons __tmp51064 __tmp51063)))) + (cons __tmp52914 __tmp52913)))) (declare (not safe)) - (cons __tmp51062 '())))) + (cons __tmp52912 '())))) (declare (not safe)) - (cons _L34894_ __tmp51061)))) + (cons _L34894_ __tmp52911)))) (declare (not safe)) - (cons __tmp51065 __tmp51060)))) - (___kont4726847269_ + (cons __tmp52915 __tmp52910)))) + (___kont4937249373_ (lambda (_L34821_ _L34823_ _L34824_ _L34825_) - (let ((__tmp51066 - (let ((__tmp51067 - (let ((__tmp51068 - (let ((__tmp51072 + (let ((__tmp52916 + (let ((__tmp52917 + (let ((__tmp52918 + (let ((__tmp52921 (gx#datum->syntax '#f 'lambda)) - (__tmp51069 - (let ((__tmp51070 - (let ((__tmp51071 - (lambda (_g3484634849_ + (__tmp52919 + (let ((__tmp52920 + (foldr (lambda (_g3484634849_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3484734852_) (let () (declare (not safe)) - (cons _g3484634849_ _g3484734852_))))) - (declare (not safe)) - (foldr1 __tmp51071 '() _L34821_)))) + (cons _g3484634849_ _g3484734852_))) + '() + _L34821_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L34823_ __tmp51070)))) + (cons _L34823_ __tmp52920)))) (declare (not safe)) - (cons __tmp51072 __tmp51069)))) + (cons __tmp52921 __tmp52919)))) (declare (not safe)) - (cons __tmp51068 '())))) + (cons __tmp52918 '())))) (declare (not safe)) - (cons _L34824_ __tmp51067)))) + (cons _L34824_ __tmp52917)))) (declare (not safe)) - (cons _L34825_ __tmp51066))))) - (let* ((___match4731847319_ + (cons _L34825_ __tmp52916))))) + (let* ((___match4942249423_ (lambda (_e3473334761_ _hd3473234765_ _tl3473134768_ @@ -151,7 +150,7 @@ _e3473934781_ _hd3473834785_ _tl3473734788_ - ___splice4727047271_ + ___splice4937449375_ _target3474034791_ _tl3474234794_) (letrec ((_loop3474334797_ @@ -180,7 +179,7 @@ (_L34824_ _hd3473834785_) (_L34825_ _hd3473234765_)) (if (gx#identifier? _L34824_) - (___kont4726847269_ + (___kont4937249373_ _L34821_ _L34823_ _L34824_ @@ -189,7 +188,7 @@ (declare (not safe)) (_g3471434754_))))))))) (_loop3474334797_ _target3474034791_ '())))) - (___match4729247293_ + (___match4939649397_ (lambda (_e3472034862_ _hd3471934866_ _tl3471834869_ @@ -201,7 +200,7 @@ _tl3472434889_) (let ((_L34892_ _hd3472534886_) (_L34894_ _hd3472234876_)) (if (gx#identifier? _L34894_) - (___kont4726647267_ _L34892_ _L34894_) + (___kont4937049371_ _L34892_ _L34894_) (if (gx#stx-pair? _hd3472234876_) (let ((_e3473934781_ (gx#syntax-e _hd3472234876_))) @@ -214,7 +213,7 @@ (declare (not safe)) (##car _e3473934781_)))) (if (gx#stx-pair/null? _tl3472134879_) - (let ((___splice4727047271_ + (let ((___splice4937449375_ (gx#syntax-split-splice _tl3472134879_ '0))) @@ -222,16 +221,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4727047271_ + ___splice4937449375_ '1))) (_target3474034791_ (let () (declare (not safe)) (##vector-ref - ___splice4727047271_ + ___splice4937449375_ '0)))) (if (gx#stx-null? _tl3474234794_) - (___match4731847319_ + (___match4942249423_ _e3472034862_ _hd3471934866_ _tl3471834869_ @@ -241,7 +240,7 @@ _e3473934781_ _hd3473834785_ _tl3473734788_ - ___splice4727047271_ + ___splice4937449375_ _target3474034791_ _tl3474234794_) (let () @@ -253,8 +252,8 @@ (let () (declare (not safe)) (_g3471434754_)))))))) - (if (gx#stx-pair? ___stx4726347264_) - (let ((_e3472034862_ (gx#syntax-e ___stx4726347264_))) + (if (gx#stx-pair? ___stx4936749368_) + (let ((_e3472034862_ (gx#syntax-e ___stx4936749368_))) (let ((_tl3471834869_ (let () (declare (not safe)) (##cdr _e3472034862_))) (_hd3471934866_ @@ -281,7 +280,7 @@ (declare (not safe)) (##car _e3472634882_)))) (if (gx#stx-null? _tl3472434889_) - (___match4729247293_ + (___match4939649397_ _e3472034862_ _hd3471934866_ _tl3471834869_ @@ -305,7 +304,7 @@ (##car _e3473934781_)))) (if (gx#stx-pair/null? _tl3472134879_) - (let ((___splice4727047271_ + (let ((___splice4937449375_ (gx#syntax-split-splice _tl3472134879_ '0))) @@ -314,13 +313,13 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice4727047271_ '1))) + (##vector-ref ___splice4937449375_ '1))) (_target3474034791_ (let () (declare (not safe)) - (##vector-ref ___splice4727047271_ '0)))) + (##vector-ref ___splice4937449375_ '0)))) (if (gx#stx-null? _tl3474234794_) - (___match4731847319_ + (___match4942249423_ _e3472034862_ _hd3471934866_ _tl3471834869_ @@ -330,7 +329,7 @@ _e3473934781_ _hd3473834785_ _tl3473734788_ - ___splice4727047271_ + ___splice4937449375_ _target3474034791_ _tl3474234794_) (let () (declare (not safe)) (_g3471434754_))))) @@ -353,7 +352,7 @@ (declare (not safe)) (##car _e3473934781_)))) (if (gx#stx-pair/null? _tl3472134879_) - (let ((___splice4727047271_ + (let ((___splice4937449375_ (gx#syntax-split-splice _tl3472134879_ '0))) @@ -361,17 +360,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4727047271_ + ___splice4937449375_ '1))) (_target3474034791_ (let () (declare (not safe)) (##vector-ref - ___splice4727047271_ + ___splice4937449375_ '0)))) (if (gx#stx-null? _tl3474234794_) - (___match4731847319_ + (___match4942249423_ _e3472034862_ _hd3471934866_ _tl3471834869_ @@ -381,7 +380,7 @@ _e3473934781_ _hd3473834785_ _tl3473734788_ - ___splice4727047271_ + ___splice4937449375_ _target3474034791_ _tl3474234794_) (let () @@ -397,65 +396,64 @@ (let () (declare (not safe)) (_g3471434754_)))))))) (define |gerbil/core$[:0:]#defsyntax-for-export| (lambda (_$stx34914_) - (let* ((___stx4732147322_ _$stx34914_) + (let* ((___stx4942549426_ _$stx34914_) (_g3491934959_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4732147322_)))) - (let ((___kont4732447325_ + ___stx4942549426_)))) + (let ((___kont4942849429_ (lambda (_L35097_ _L35099_) - (let ((__tmp51078 (gx#datum->syntax '#f 'defsyntax)) - (__tmp51073 - (let ((__tmp51074 - (let ((__tmp51075 - (let ((__tmp51077 + (let ((__tmp52927 (gx#datum->syntax '#f 'defsyntax)) + (__tmp52922 + (let ((__tmp52923 + (let ((__tmp52924 + (let ((__tmp52926 (gx#datum->syntax '#f 'make-export-expander)) - (__tmp51076 + (__tmp52925 (let () (declare (not safe)) (cons _L35097_ '())))) (declare (not safe)) - (cons __tmp51077 __tmp51076)))) + (cons __tmp52926 __tmp52925)))) (declare (not safe)) - (cons __tmp51075 '())))) + (cons __tmp52924 '())))) (declare (not safe)) - (cons _L35099_ __tmp51074)))) + (cons _L35099_ __tmp52923)))) (declare (not safe)) - (cons __tmp51078 __tmp51073)))) - (___kont4732647327_ + (cons __tmp52927 __tmp52922)))) + (___kont4943049431_ (lambda (_L35026_ _L35028_ _L35029_ _L35030_) - (let ((__tmp51079 - (let ((__tmp51080 - (let ((__tmp51081 - (let ((__tmp51085 + (let ((__tmp52928 + (let ((__tmp52929 + (let ((__tmp52930 + (let ((__tmp52933 (gx#datum->syntax '#f 'lambda)) - (__tmp51082 - (let ((__tmp51083 - (let ((__tmp51084 - (lambda (_g3505135054_ + (__tmp52931 + (let ((__tmp52932 + (foldr (lambda (_g3505135054_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3505235057_) (let () (declare (not safe)) - (cons _g3505135054_ _g3505235057_))))) - (declare (not safe)) - (foldr1 __tmp51084 '() _L35026_)))) + (cons _g3505135054_ _g3505235057_))) + '() + _L35026_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L35028_ __tmp51083)))) + (cons _L35028_ __tmp52932)))) (declare (not safe)) - (cons __tmp51085 __tmp51082)))) + (cons __tmp52933 __tmp52931)))) (declare (not safe)) - (cons __tmp51081 '())))) + (cons __tmp52930 '())))) (declare (not safe)) - (cons _L35029_ __tmp51080)))) + (cons _L35029_ __tmp52929)))) (declare (not safe)) - (cons _L35030_ __tmp51079))))) - (let* ((___match4737647377_ + (cons _L35030_ __tmp52928))))) + (let* ((___match4948049481_ (lambda (_e3493834966_ _hd3493734970_ _tl3493634973_ @@ -465,7 +463,7 @@ _e3494434986_ _hd3494334990_ _tl3494234993_ - ___splice4732847329_ + ___splice4943249433_ _target3494534996_ _tl3494734999_) (letrec ((_loop3494835002_ @@ -494,7 +492,7 @@ (_L35029_ _hd3494334990_) (_L35030_ _hd3493734970_)) (if (gx#identifier? _L35029_) - (___kont4732647327_ + (___kont4943049431_ _L35026_ _L35028_ _L35029_ @@ -503,7 +501,7 @@ (declare (not safe)) (_g3491934959_))))))))) (_loop3494835002_ _target3494534996_ '())))) - (___match4735047351_ + (___match4945449455_ (lambda (_e3492535067_ _hd3492435071_ _tl3492335074_ @@ -515,7 +513,7 @@ _tl3492935094_) (let ((_L35097_ _hd3493035091_) (_L35099_ _hd3492735081_)) (if (gx#identifier? _L35099_) - (___kont4732447325_ _L35097_ _L35099_) + (___kont4942849429_ _L35097_ _L35099_) (if (gx#stx-pair? _hd3492735081_) (let ((_e3494434986_ (gx#syntax-e _hd3492735081_))) @@ -528,7 +526,7 @@ (declare (not safe)) (##car _e3494434986_)))) (if (gx#stx-pair/null? _tl3492635084_) - (let ((___splice4732847329_ + (let ((___splice4943249433_ (gx#syntax-split-splice _tl3492635084_ '0))) @@ -536,16 +534,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4732847329_ + ___splice4943249433_ '1))) (_target3494534996_ (let () (declare (not safe)) (##vector-ref - ___splice4732847329_ + ___splice4943249433_ '0)))) (if (gx#stx-null? _tl3494734999_) - (___match4737647377_ + (___match4948049481_ _e3492535067_ _hd3492435071_ _tl3492335074_ @@ -555,7 +553,7 @@ _e3494434986_ _hd3494334990_ _tl3494234993_ - ___splice4732847329_ + ___splice4943249433_ _target3494534996_ _tl3494734999_) (let () @@ -567,8 +565,8 @@ (let () (declare (not safe)) (_g3491934959_)))))))) - (if (gx#stx-pair? ___stx4732147322_) - (let ((_e3492535067_ (gx#syntax-e ___stx4732147322_))) + (if (gx#stx-pair? ___stx4942549426_) + (let ((_e3492535067_ (gx#syntax-e ___stx4942549426_))) (let ((_tl3492335074_ (let () (declare (not safe)) (##cdr _e3492535067_))) (_hd3492435071_ @@ -595,7 +593,7 @@ (declare (not safe)) (##car _e3493135087_)))) (if (gx#stx-null? _tl3492935094_) - (___match4735047351_ + (___match4945449455_ _e3492535067_ _hd3492435071_ _tl3492335074_ @@ -619,7 +617,7 @@ (##car _e3494434986_)))) (if (gx#stx-pair/null? _tl3492635084_) - (let ((___splice4732847329_ + (let ((___splice4943249433_ (gx#syntax-split-splice _tl3492635084_ '0))) @@ -628,13 +626,13 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice4732847329_ '1))) + (##vector-ref ___splice4943249433_ '1))) (_target3494534996_ (let () (declare (not safe)) - (##vector-ref ___splice4732847329_ '0)))) + (##vector-ref ___splice4943249433_ '0)))) (if (gx#stx-null? _tl3494734999_) - (___match4737647377_ + (___match4948049481_ _e3492535067_ _hd3492435071_ _tl3492335074_ @@ -644,7 +642,7 @@ _e3494434986_ _hd3494334990_ _tl3494234993_ - ___splice4732847329_ + ___splice4943249433_ _target3494534996_ _tl3494734999_) (let () (declare (not safe)) (_g3491934959_))))) @@ -667,7 +665,7 @@ (declare (not safe)) (##car _e3494434986_)))) (if (gx#stx-pair/null? _tl3492635084_) - (let ((___splice4732847329_ + (let ((___splice4943249433_ (gx#syntax-split-splice _tl3492635084_ '0))) @@ -675,17 +673,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4732847329_ + ___splice4943249433_ '1))) (_target3494534996_ (let () (declare (not safe)) (##vector-ref - ___splice4732847329_ + ___splice4943249433_ '0)))) (if (gx#stx-null? _tl3494734999_) - (___match4737647377_ + (___match4948049481_ _e3492535067_ _hd3492435071_ _tl3492335074_ @@ -695,7 +693,7 @@ _e3494434986_ _hd3494334990_ _tl3494234993_ - ___splice4732847329_ + ___splice4943249433_ _target3494534996_ _tl3494734999_) (let () @@ -711,65 +709,64 @@ (let () (declare (not safe)) (_g3491934959_)))))))) (define |gerbil/core$[:0:]#defsyntax-for-import-export| (lambda (_$stx35119_) - (let* ((___stx4737947380_ _$stx35119_) + (let* ((___stx4948349484_ _$stx35119_) (_g3512435164_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4737947380_)))) - (let ((___kont4738247383_ + ___stx4948349484_)))) + (let ((___kont4948649487_ (lambda (_L35302_ _L35304_) - (let ((__tmp51091 (gx#datum->syntax '#f 'defsyntax)) - (__tmp51086 - (let ((__tmp51087 - (let ((__tmp51088 - (let ((__tmp51090 + (let ((__tmp52939 (gx#datum->syntax '#f 'defsyntax)) + (__tmp52934 + (let ((__tmp52935 + (let ((__tmp52936 + (let ((__tmp52938 (gx#datum->syntax '#f 'make-import-export-expander)) - (__tmp51089 + (__tmp52937 (let () (declare (not safe)) (cons _L35302_ '())))) (declare (not safe)) - (cons __tmp51090 __tmp51089)))) + (cons __tmp52938 __tmp52937)))) (declare (not safe)) - (cons __tmp51088 '())))) + (cons __tmp52936 '())))) (declare (not safe)) - (cons _L35304_ __tmp51087)))) + (cons _L35304_ __tmp52935)))) (declare (not safe)) - (cons __tmp51091 __tmp51086)))) - (___kont4738447385_ + (cons __tmp52939 __tmp52934)))) + (___kont4948849489_ (lambda (_L35231_ _L35233_ _L35234_ _L35235_) - (let ((__tmp51092 - (let ((__tmp51093 - (let ((__tmp51094 - (let ((__tmp51098 + (let ((__tmp52940 + (let ((__tmp52941 + (let ((__tmp52942 + (let ((__tmp52945 (gx#datum->syntax '#f 'lambda)) - (__tmp51095 - (let ((__tmp51096 - (let ((__tmp51097 - (lambda (_g3525635259_ + (__tmp52943 + (let ((__tmp52944 + (foldr (lambda (_g3525635259_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g3525735262_) (let () (declare (not safe)) - (cons _g3525635259_ _g3525735262_))))) - (declare (not safe)) - (foldr1 __tmp51097 '() _L35231_)))) + (cons _g3525635259_ _g3525735262_))) + '() + _L35231_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L35233_ __tmp51096)))) + (cons _L35233_ __tmp52944)))) (declare (not safe)) - (cons __tmp51098 __tmp51095)))) + (cons __tmp52945 __tmp52943)))) (declare (not safe)) - (cons __tmp51094 '())))) + (cons __tmp52942 '())))) (declare (not safe)) - (cons _L35234_ __tmp51093)))) + (cons _L35234_ __tmp52941)))) (declare (not safe)) - (cons _L35235_ __tmp51092))))) - (let* ((___match4743447435_ + (cons _L35235_ __tmp52940))))) + (let* ((___match4953849539_ (lambda (_e3514335171_ _hd3514235175_ _tl3514135178_ @@ -779,7 +776,7 @@ _e3514935191_ _hd3514835195_ _tl3514735198_ - ___splice4738647387_ + ___splice4949049491_ _target3515035201_ _tl3515235204_) (letrec ((_loop3515335207_ @@ -808,7 +805,7 @@ (_L35234_ _hd3514835195_) (_L35235_ _hd3514235175_)) (if (gx#identifier? _L35234_) - (___kont4738447385_ + (___kont4948849489_ _L35231_ _L35233_ _L35234_ @@ -817,7 +814,7 @@ (declare (not safe)) (_g3512435164_))))))))) (_loop3515335207_ _target3515035201_ '())))) - (___match4740847409_ + (___match4951249513_ (lambda (_e3513035272_ _hd3512935276_ _tl3512835279_ @@ -829,7 +826,7 @@ _tl3513435299_) (let ((_L35302_ _hd3513535296_) (_L35304_ _hd3513235286_)) (if (gx#identifier? _L35304_) - (___kont4738247383_ _L35302_ _L35304_) + (___kont4948649487_ _L35302_ _L35304_) (if (gx#stx-pair? _hd3513235286_) (let ((_e3514935191_ (gx#syntax-e _hd3513235286_))) @@ -842,7 +839,7 @@ (declare (not safe)) (##car _e3514935191_)))) (if (gx#stx-pair/null? _tl3513135289_) - (let ((___splice4738647387_ + (let ((___splice4949049491_ (gx#syntax-split-splice _tl3513135289_ '0))) @@ -850,16 +847,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4738647387_ + ___splice4949049491_ '1))) (_target3515035201_ (let () (declare (not safe)) (##vector-ref - ___splice4738647387_ + ___splice4949049491_ '0)))) (if (gx#stx-null? _tl3515235204_) - (___match4743447435_ + (___match4953849539_ _e3513035272_ _hd3512935276_ _tl3512835279_ @@ -869,7 +866,7 @@ _e3514935191_ _hd3514835195_ _tl3514735198_ - ___splice4738647387_ + ___splice4949049491_ _target3515035201_ _tl3515235204_) (let () @@ -881,8 +878,8 @@ (let () (declare (not safe)) (_g3512435164_)))))))) - (if (gx#stx-pair? ___stx4737947380_) - (let ((_e3513035272_ (gx#syntax-e ___stx4737947380_))) + (if (gx#stx-pair? ___stx4948349484_) + (let ((_e3513035272_ (gx#syntax-e ___stx4948349484_))) (let ((_tl3512835279_ (let () (declare (not safe)) (##cdr _e3513035272_))) (_hd3512935276_ @@ -909,7 +906,7 @@ (declare (not safe)) (##car _e3513635292_)))) (if (gx#stx-null? _tl3513435299_) - (___match4740847409_ + (___match4951249513_ _e3513035272_ _hd3512935276_ _tl3512835279_ @@ -933,7 +930,7 @@ (##car _e3514935191_)))) (if (gx#stx-pair/null? _tl3513135289_) - (let ((___splice4738647387_ + (let ((___splice4949049491_ (gx#syntax-split-splice _tl3513135289_ '0))) @@ -942,13 +939,13 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice4738647387_ '1))) + (##vector-ref ___splice4949049491_ '1))) (_target3515035201_ (let () (declare (not safe)) - (##vector-ref ___splice4738647387_ '0)))) + (##vector-ref ___splice4949049491_ '0)))) (if (gx#stx-null? _tl3515235204_) - (___match4743447435_ + (___match4953849539_ _e3513035272_ _hd3512935276_ _tl3512835279_ @@ -958,7 +955,7 @@ _e3514935191_ _hd3514835195_ _tl3514735198_ - ___splice4738647387_ + ___splice4949049491_ _target3515035201_ _tl3515235204_) (let () (declare (not safe)) (_g3512435164_))))) @@ -981,7 +978,7 @@ (declare (not safe)) (##car _e3514935191_)))) (if (gx#stx-pair/null? _tl3513135289_) - (let ((___splice4738647387_ + (let ((___splice4949049491_ (gx#syntax-split-splice _tl3513135289_ '0))) @@ -989,17 +986,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4738647387_ + ___splice4949049491_ '1))) (_target3515035201_ (let () (declare (not safe)) (##vector-ref - ___splice4738647387_ + ___splice4949049491_ '0)))) (if (gx#stx-null? _tl3515235204_) - (___match4743447435_ + (___match4953849539_ _e3513035272_ _hd3512935276_ _tl3512835279_ @@ -1009,7 +1006,7 @@ _e3514935191_ _hd3514835195_ _tl3514735198_ - ___splice4738647387_ + ___splice4949049491_ _target3515035201_ _tl3515235204_) (let () @@ -1045,30 +1042,30 @@ (declare (not safe)) (##cdr _e3533235354_)))) (if (gx#stx-pair/null? _tl3533035361_) - (let ((_g51099_ + (let ((_g52946_ (gx#syntax-split-splice _tl3533035361_ '0))) (begin - (let ((_g51100_ + (let ((_g52947_ (let () (declare (not safe)) - (if (##values? _g51099_) - (##vector-length _g51099_) + (if (##values? _g52946_) + (##vector-length _g52946_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51100_ 2))) + (##fx= _g52947_ 2))) (error "Context expects 2 values" - _g51100_))) + _g52947_))) (let ((_target3533335364_ (let () (declare (not safe)) - (##vector-ref _g51099_ 0))) + (##vector-ref _g52946_ 0))) (_tl3533535367_ (let () (declare (not safe)) - (##vector-ref _g51099_ 1)))) + (##vector-ref _g52946_ 1)))) (if (gx#stx-null? _tl3533535367_) (letrec ((_loop3533635370_ (lambda (_hd3533435374_ @@ -1092,20 +1089,19 @@ (cons _lp-hd3533835384_ _body3534035377_))))) (let ((_body3534135390_ (reverse _body3534035377_))) ((lambda (_L35394_) - (let ((__tmp51101 - (let ((__tmp51102 - (let ((__tmp51103 - (lambda (_g3540935412_ _g3541035415_) + (let ((__tmp52948 + (let ((__tmp52949 + (foldr (lambda (_g3540935412_ _g3541035415_) (let () (declare (not safe)) (cons _g3540935412_ - _g3541035415_))))) - (declare (not safe)) - (foldr1 __tmp51103 '() _L35394_)))) + _g3541035415_))) + '() + _L35394_))) (declare (not safe)) - (cons '1 __tmp51102)))) + (cons '1 __tmp52949)))) (declare (not safe)) - (cons 'phi: __tmp51101))) + (cons 'phi: __tmp52948))) _body3534135390_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop3533635370_ @@ -1137,30 +1133,30 @@ (declare (not safe)) (##cdr _e3543135453_)))) (if (gx#stx-pair/null? _tl3542935460_) - (let ((_g51104_ + (let ((_g52950_ (gx#syntax-split-splice _tl3542935460_ '0))) (begin - (let ((_g51105_ + (let ((_g52951_ (let () (declare (not safe)) - (if (##values? _g51104_) - (##vector-length _g51104_) + (if (##values? _g52950_) + (##vector-length _g52950_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51105_ 2))) + (##fx= _g52951_ 2))) (error "Context expects 2 values" - _g51105_))) + _g52951_))) (let ((_target3543235463_ (let () (declare (not safe)) - (##vector-ref _g51104_ 0))) + (##vector-ref _g52950_ 0))) (_tl3543435466_ (let () (declare (not safe)) - (##vector-ref _g51104_ 1)))) + (##vector-ref _g52950_ 1)))) (if (gx#stx-null? _tl3543435466_) (letrec ((_loop3543535469_ (lambda (_hd3543335473_ @@ -1184,20 +1180,19 @@ (cons _lp-hd3543735483_ _body3543935476_))))) (let ((_body3544035489_ (reverse _body3543935476_))) ((lambda (_L35493_) - (let ((__tmp51106 - (let ((__tmp51107 - (let ((__tmp51108 - (lambda (_g3550835511_ _g3550935514_) + (let ((__tmp52952 + (let ((__tmp52953 + (foldr (lambda (_g3550835511_ _g3550935514_) (let () (declare (not safe)) (cons _g3550835511_ - _g3550935514_))))) - (declare (not safe)) - (foldr1 __tmp51108 '() _L35493_)))) + _g3550935514_))) + '() + _L35493_))) (declare (not safe)) - (cons '-1 __tmp51107)))) + (cons '-1 __tmp52953)))) (declare (not safe)) - (cons 'phi: __tmp51106))) + (cons 'phi: __tmp52952))) _body3544035489_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop3543535469_ @@ -1240,31 +1235,31 @@ (declare (not safe)) (##cdr _e3553435566_)))) (if (gx#stx-pair/null? _tl3553235573_) - (let ((_g51109_ + (let ((_g52954_ (gx#syntax-split-splice _tl3553235573_ '0))) (begin - (let ((_g51110_ + (let ((_g52955_ (let () (declare (not safe)) - (if (##values? _g51109_) + (if (##values? _g52954_) (##vector-length - _g51109_) + _g52954_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51110_ 2))) + (##fx= _g52955_ 2))) (error "Context expects 2 values" - _g51110_))) + _g52955_))) (let ((_target3553535576_ (let () (declare (not safe)) - (##vector-ref _g51109_ 0))) + (##vector-ref _g52954_ 0))) (_tl3553735579_ (let () (declare (not safe)) - (##vector-ref _g51109_ 1)))) + (##vector-ref _g52954_ 1)))) (if (gx#stx-null? _tl3553735579_) (letrec ((_loop3553835582_ (lambda (_hd3553635586_ @@ -1288,36 +1283,34 @@ (let ((_id3554335602_ (reverse _id3554235589_))) ((lambda (_L35606_ _L35608_) (if (gx#identifier-list? - (let ((__tmp51115 - (lambda (_g3562535628_ _g3562635631_) + (foldr (lambda (_g3562535628_ _g3562635631_) (let () (declare (not safe)) (cons _g3562535628_ - _g3562635631_))))) - (declare (not safe)) - (foldr1 __tmp51115 '() _L35606_))) + _g3562635631_))) + '() + _L35606_)) (let* ((_keys35642_ (gx#stx-map gx#core-identifier-key - (let ((__tmp51111 - (lambda (_g3563335636_ + (foldr (lambda (_g3563335636_ _g3563435639_) (let () (declare (not safe)) (cons _g3563335636_ - _g3563435639_))))) - (declare (not safe)) - (foldr1 __tmp51111 '() _L35606_)))) + _g3563435639_))) + '() + _L35606_))) (_keytab35653_ (let ((_ht35645_ (let () (declare (not safe)) - (make-table)))) + (make-hash-table)))) (for-each (lambda (_g3564735649_) (let () (declare (not safe)) - (table-set! + (hash-put! _ht35645_ _g3564735649_ '#t))) @@ -1331,28 +1324,26 @@ (lambda (_in35662_ _r35664_) (if (gx#module-import? _in35662_) - (if (let ((__tmp51113 + (if (let ((__tmp52956 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#module-import-name _in35662_))) (declare (not safe)) - (table-ref _keytab35653_ __tmp51113 '#f)) + (hash-get _keytab35653_ __tmp52956)) (let () (declare (not safe)) (cons _in35662_ _r35664_)) _r35664_) (if (gx#import-set? _in35662_) - (let ((__tmp51112 (gx#import-set-imports _in35662_))) - (declare (not safe)) - (foldl1 _fold-e35659_ _r35664_ __tmp51112)) + (foldl _fold-e35659_ + _r35664_ + (gx#import-set-imports _in35662_)) _r35664_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _fold-e35659_))) - (let ((__tmp51114 - (let () - (declare (not safe)) - (foldl1 _fold-e35666_ - '() - _imports35656_)))) + (let ((__tmp52957 + (foldl _fold-e35666_ + '() + _imports35656_))) (declare (not safe)) - (cons 'begin: __tmp51114))) + (cons 'begin: __tmp52957))) (_g3552535549_ _g3552635553_))) _id3554335602_ _hd3553335570_)))))) @@ -1399,31 +1390,31 @@ (declare (not safe)) (##cdr _e3568835720_)))) (if (gx#stx-pair/null? _tl3568635727_) - (let ((_g51116_ + (let ((_g52958_ (gx#syntax-split-splice _tl3568635727_ '0))) (begin - (let ((_g51117_ + (let ((_g52959_ (let () (declare (not safe)) - (if (##values? _g51116_) + (if (##values? _g52958_) (##vector-length - _g51116_) + _g52958_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51117_ 2))) + (##fx= _g52959_ 2))) (error "Context expects 2 values" - _g51117_))) + _g52959_))) (let ((_target3568935730_ (let () (declare (not safe)) - (##vector-ref _g51116_ 0))) + (##vector-ref _g52958_ 0))) (_tl3569135733_ (let () (declare (not safe)) - (##vector-ref _g51116_ 1)))) + (##vector-ref _g52958_ 1)))) (if (gx#stx-null? _tl3569135733_) (letrec ((_loop3569235736_ (lambda (_hd3569035740_ @@ -1447,36 +1438,34 @@ (let ((_id3569735756_ (reverse _id3569635743_))) ((lambda (_L35760_ _L35762_) (if (gx#identifier-list? - (let ((__tmp51122 - (lambda (_g3577935782_ _g3578035785_) + (foldr (lambda (_g3577935782_ _g3578035785_) (let () (declare (not safe)) (cons _g3577935782_ - _g3578035785_))))) - (declare (not safe)) - (foldr1 __tmp51122 '() _L35760_))) + _g3578035785_))) + '() + _L35760_)) (let* ((_keys35796_ (gx#stx-map gx#core-identifier-key - (let ((__tmp51118 - (lambda (_g3578735790_ + (foldr (lambda (_g3578735790_ _g3578835793_) (let () (declare (not safe)) (cons _g3578735790_ - _g3578835793_))))) - (declare (not safe)) - (foldr1 __tmp51118 '() _L35760_)))) + _g3578835793_))) + '() + _L35760_))) (_keytab35807_ (let ((_ht35799_ (let () (declare (not safe)) - (make-table)))) + (make-hash-table)))) (for-each (lambda (_g3580135803_) (let () (declare (not safe)) - (table-set! + (hash-put! _ht35799_ _g3580135803_ '#t))) @@ -1490,30 +1479,28 @@ (lambda (_in35816_ _r35818_) (if (gx#module-import? _in35816_) - (if (let ((__tmp51120 + (if (let ((__tmp52960 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#module-import-name _in35816_))) (declare (not safe)) - (table-ref _keytab35807_ __tmp51120 '#f)) + (hash-get _keytab35807_ __tmp52960)) _r35818_ (let () (declare (not safe)) (cons _in35816_ _r35818_))) (if (gx#import-set? _in35816_) - (let ((__tmp51119 (gx#import-set-imports _in35816_))) - (declare (not safe)) - (foldl1 _fold-e35813_ _r35818_ __tmp51119)) + (foldl _fold-e35813_ + _r35818_ + (gx#import-set-imports _in35816_)) (let () (declare (not safe)) (cons _in35816_ _r35818_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _fold-e35813_))) - (let ((__tmp51121 - (let () - (declare (not safe)) - (foldl1 _fold-e35820_ - '() - _imports35810_)))) + (let ((__tmp52961 + (foldl _fold-e35820_ + '() + _imports35810_))) (declare (not safe)) - (cons 'begin: __tmp51121))) + (cons 'begin: __tmp52961))) (_g3567935703_ _g3568035707_))) _id3569735756_ _hd3568735724_)))))) @@ -1541,9 +1528,9 @@ (lambda () (make-symbol _pre35832_ _name35830_))) (_K3583735861_ (lambda (_mark35857_ _id35859_) - (let ((__tmp51123 (make-symbol _pre35832_ _id35859_))) + (let ((__tmp52962 (make-symbol _pre35832_ _id35859_))) (declare (not safe)) - (cons __tmp51123 _mark35857_))))) + (cons __tmp52962 _mark35857_))))) (if (let () (declare (not safe)) (##pair? _name3583335841_)) (let ((_hd3583835865_ (let () (declare (not safe)) (##car _name3583335841_))) @@ -1586,31 +1573,31 @@ (declare (not safe)) (##cdr _e3589435934_)))) (if (gx#stx-pair/null? _tl3589235941_) - (let ((_g51124_ + (let ((_g52963_ (gx#syntax-split-splice _tl3589235941_ '0))) (begin - (let ((_g51125_ + (let ((_g52964_ (let () (declare (not safe)) - (if (##values? _g51124_) + (if (##values? _g52963_) (##vector-length - _g51124_) + _g52963_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51125_ 2))) + (##fx= _g52964_ 2))) (error "Context expects 2 values" - _g51125_))) + _g52964_))) (let ((_target3589535944_ (let () (declare (not safe)) - (##vector-ref _g51124_ 0))) + (##vector-ref _g52963_ 0))) (_tl3589735947_ (let () (declare (not safe)) - (##vector-ref _g51124_ 1)))) + (##vector-ref _g52963_ 1)))) (if (gx#stx-null? _tl3589735947_) (letrec ((_loop3589835950_ (lambda (_hd3589635954_ @@ -1667,65 +1654,61 @@ (_id3590535995_ (reverse _id3590335959_))) ((lambda (_L35998_ _L36000_ _L36001_) (if (and (gx#identifier-list? - (let ((__tmp51136 - (lambda (_g3601936022_ + (foldr (lambda (_g3601936022_ _g3602036025_) (let () (declare (not safe)) (cons _g3601936022_ - _g3602036025_))))) - (declare (not safe)) - (foldr1 __tmp51136 '() _L36000_))) + _g3602036025_))) + '() + _L36000_)) (gx#identifier-list? - (let ((__tmp51135 - (lambda (_g3602736030_ + (foldr (lambda (_g3602736030_ _g3602836033_) (let () (declare (not safe)) (cons _g3602736030_ - _g3602836033_))))) - (declare (not safe)) - (foldr1 __tmp51135 '() _L35998_)))) + _g3602836033_))) + '() + _L35998_))) (let* ((_keytab36036_ (let () (declare (not safe)) - (make-table))) + (make-hash-table))) (_found36039_ (let () (declare (not safe)) - (make-table))) - (_g51130_ + (make-hash-table))) + (_g52967_ (for-each (lambda (_id36042_ _new-id36044_) - (let ((__tmp51127 + (let ((__tmp52966 (gx#core-identifier-key _id36042_)) - (__tmp51126 + (__tmp52965 (gx#core-identifier-key _new-id36044_))) (declare (not safe)) - (table-set! + (hash-put! _keytab36036_ - __tmp51127 - __tmp51126))) - (let ((__tmp51128 - (lambda (_g3604536048_ + __tmp52966 + __tmp52965))) + (foldr (lambda (_g3604536048_ _g3604636051_) (let () (declare (not safe)) (cons _g3604536048_ - _g3604636051_))))) - (declare (not safe)) - (foldr1 __tmp51128 '() _L36000_)) - (let ((__tmp51129 - (lambda (_g3605336056_ + _g3604636051_))) + '() + _L36000_) + (foldr (lambda (_g3605336056_ _g3605436059_) (let () (declare (not safe)) (cons _g3605336056_ - _g3605436059_))))) - (declare (not safe)) - (foldr1 __tmp51129 '() _L35998_)))) + _g3605436059_))) + '() + _L35998_))) (_imports36064_ (gx#core-expand-import-source _L36001_)) @@ -1741,61 +1724,55 @@ (_$e36077_ (let () (declare (not safe)) - (table-ref _keytab36036_ _name36074_ '#f)))) + (hash-get _keytab36036_ _name36074_)))) (if _$e36077_ ((lambda (_rename36081_) (let () (declare (not safe)) - (table-set! _found36039_ _name36074_ '#t)) - (let ((__tmp51132 + (hash-put! _found36039_ _name36074_ '#t)) + (let ((__tmp52968 (let () (declare (not safe)) (|gerbil/core$[1]#module-import-rename| _in36070_ _rename36081_)))) (declare (not safe)) - (cons __tmp51132 _r36072_))) + (cons __tmp52968 _r36072_))) _$e36077_) (let () (declare (not safe)) (cons _in36070_ _r36072_)))) (if (gx#import-set? _in36070_) - (let ((__tmp51131 (gx#import-set-imports _in36070_))) - (declare (not safe)) - (foldl1 _fold-e36067_ _r36072_ __tmp51131)) + (foldl _fold-e36067_ + _r36072_ + (gx#import-set-imports _in36070_)) (let () (declare (not safe)) (cons _in36070_ _r36072_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _fold-e36067_)) (_new-imports36087_ - (let () - (declare (not safe)) - (foldl1 _fold-e36084_ - '() - _imports36064_)))) + (foldl _fold-e36084_ + '() + _imports36064_))) (for-each (lambda (_id36092_) - (if (let ((__tmp51133 + (if (let ((__tmp52969 (gx#core-identifier-key _id36092_))) (declare (not safe)) - (table-ref - _found36039_ - __tmp51133 - '#f)) + (hash-get _found36039_ __tmp52969)) '#!void (gx#raise-syntax-error '#f '"bad syntax; identifier is not in the import set" _stx35881_ _id36092_))) - (let ((__tmp51134 - (lambda (_g3609436097_ _g3609536100_) + (foldr (lambda (_g3609436097_ _g3609536100_) (let () (declare (not safe)) (cons _g3609436097_ - _g3609536100_))))) - (declare (not safe)) - (foldr1 __tmp51134 '() _L36000_))) + _g3609536100_))) + '() + _L36000_)) (let () (declare (not safe)) (cons 'begin: _new-imports36087_))) @@ -1879,35 +1856,29 @@ (letrec ((_fold-e36197_ (lambda (_in36200_ _r36202_) (if (gx#module-import? _in36200_) - (let ((__tmp51138 - (let ((__tmp51139 + (let ((__tmp52970 + (let ((__tmp52971 (_rename-e36194_ (gx#module-import-name _in36200_)))) (declare (not safe)) (|gerbil/core$[1]#module-import-rename| _in36200_ - __tmp51139)))) + __tmp52971)))) (declare (not safe)) - (cons __tmp51138 _r36202_)) + (cons __tmp52970 _r36202_)) (if (gx#import-set? _in36200_) - (let ((__tmp51137 + (foldl _fold-e36197_ + _r36202_ (gx#import-set-imports - _in36200_))) - (declare (not safe)) - (foldl1 _fold-e36197_ - _r36202_ - __tmp51137)) + _in36200_)) (let () (declare (not safe)) (cons _in36200_ _r36202_))))))) _fold-e36197_))) - (let ((__tmp51140 - (let () - (declare (not safe)) - (foldl1 _fold-e36204_ '() _imports36188_)))) + (let ((__tmp52972 (foldl _fold-e36204_ '() _imports36188_))) (declare (not safe)) - (cons 'begin: __tmp51140))) + (cons 'begin: __tmp52972))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g3611236130_ _g3611336134_))) @@ -1923,8 +1894,7 @@ (lambda (_stx36213_) (letrec ((_flatten36216_ (lambda (_list-of-lists36471_) - (let ((__tmp51141 - (lambda (_v36474_ _acc36476_) + (foldr (lambda (_v36474_ _acc36476_) (if (let () (declare (not safe)) (null? _v36474_)) _acc36476_ (if (let () @@ -1934,19 +1904,19 @@ _acc36476_) (let () (declare (not safe)) - (cons _v36474_ _acc36476_))))))) - (declare (not safe)) - (foldr1 __tmp51141 '() _list-of-lists36471_)))) + (cons _v36474_ _acc36476_))))) + '() + _list-of-lists36471_))) (_expand-path36218_ (lambda (_top36339_ _mod36341_) - (let* ((___stx4743747438_ _mod36341_) + (let* ((___stx4954149542_ _mod36341_) (_g3634436366_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4743747438_)))) - (let ((___kont4744047441_ + ___stx4954149542_)))) + (let ((___kont4954449545_ (lambda (_L36434_ _L36436_) (map (lambda (_mod36451_) (gx#stx-identifier @@ -1959,18 +1929,15 @@ (_expand-path36218_ _L36436_ _g3645336455_)) - (let ((__tmp51142 - (lambda (_g3645836461_ + (foldr (lambda (_g3645836461_ _g3645936464_) (let () (declare (not safe)) (cons _g3645836461_ - _g3645936464_))))) - (declare (not safe)) - (foldr1 __tmp51142 - '() - _L36434_))))))) - (___kont4744447445_ + _g3645936464_))) + '() + _L36434_)))))) + (___kont4954849549_ (lambda (_L36373_) (gx#stx-identifier _top36339_ @@ -1979,18 +1946,18 @@ _L36373_)))) (let* ((_g3634336387_ (lambda () - (let ((_L36373_ ___stx4743747438_)) + (let ((_L36373_ ___stx4954149542_)) (if (or (gx#identifier? _L36373_) (gx#stx-fixnum? _L36373_)) - (___kont4744447445_ _L36373_) + (___kont4954849549_ _L36373_) (let () (declare (not safe)) (_g3634436366_)))))) - (___match4746047461_ + (___match4956449565_ (lambda (_e3635036394_ _hd3634936398_ _tl3634836401_ - ___splice4744247443_ + ___splice4954649547_ _target3635136404_ _tl3635336407_) (letrec ((_loop3635436410_ @@ -2018,15 +1985,15 @@ _mod3635836417_))))) (let ((_mod3635936430_ (reverse _mod3635836417_))) - (___kont4744047441_ + (___kont4954449545_ _mod3635936430_ _hd3634936398_)))))) (_loop3635436410_ _target3635136404_ '()))))) - (if (gx#stx-pair? ___stx4743747438_) + (if (gx#stx-pair? ___stx4954149542_) (let ((_e3635036394_ - (gx#syntax-e ___stx4743747438_))) + (gx#syntax-e ___stx4954149542_))) (let ((_tl3634836401_ (let () (declare (not safe)) @@ -2036,7 +2003,7 @@ (declare (not safe)) (##car _e3635036394_)))) (if (gx#stx-pair/null? _tl3634836401_) - (let ((___splice4744247443_ + (let ((___splice4954649547_ (gx#syntax-split-splice _tl3634836401_ '0))) @@ -2044,20 +2011,20 @@ (let () (declare (not safe)) (##vector-ref - ___splice4744247443_ + ___splice4954649547_ '1))) (_target3635136404_ (let () (declare (not safe)) (##vector-ref - ___splice4744247443_ + ___splice4954649547_ '0)))) (if (gx#stx-null? _tl3635336407_) - (___match4746047461_ + (___match4956449565_ _e3635036394_ _hd3634936398_ _tl3634836401_ - ___splice4744247443_ + ___splice4954649547_ _target3635136404_ _tl3635336407_) (let () @@ -2099,32 +2066,32 @@ (declare (not safe)) (##cdr _e3622936261_)))) (if (gx#stx-pair/null? _tl3622736268_) - (let ((_g51143_ + (let ((_g52973_ (gx#syntax-split-splice _tl3622736268_ '0))) (begin - (let ((_g51144_ + (let ((_g52974_ (let () (declare (not safe)) - (if (##values? _g51143_) + (if (##values? _g52973_) (##vector-length - _g51143_) + _g52973_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51144_ 2))) + (##fx= _g52974_ 2))) (error "Context expects 2 values" - _g51144_))) + _g52974_))) (let ((_target3623036271_ (let () (declare (not safe)) - (##vector-ref _g51143_ 0))) + (##vector-ref _g52973_ 0))) (_tl3623236274_ (let () (declare (not safe)) (##vector-ref - _g51143_ + _g52973_ 1)))) (if (gx#stx-null? _tl3623236274_) (letrec ((_loop3623336277_ @@ -2148,25 +2115,22 @@ (cons _lp-hd3623536291_ _mod3623736284_))))) (let ((_mod3623836297_ (reverse _mod3623736284_))) ((lambda (_L36301_ _L36303_) - (let ((__tmp51145 + (let ((__tmp52975 (_flatten36216_ (map (lambda (_g3632136323_) (_expand-path36218_ _L36303_ _g3632136323_)) - (let ((__tmp51146 - (lambda (_g3632636329_ + (foldr (lambda (_g3632636329_ _g3632736332_) (let () (declare (not safe)) (cons _g3632636329_ - _g3632736332_))))) - (declare (not safe)) - (foldr1 __tmp51146 - '() - _L36301_)))))) + _g3632736332_))) + '() + _L36301_))))) (declare (not safe)) - (cons 'begin: __tmp51145))) + (cons 'begin: __tmp52975))) _mod3623836297_ _hd3622836265_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2212,31 +2176,31 @@ (declare (not safe)) (##cdr _e3649236524_)))) (if (gx#stx-pair/null? _tl3649036531_) - (let ((_g51147_ + (let ((_g52976_ (gx#syntax-split-splice _tl3649036531_ '0))) (begin - (let ((_g51148_ + (let ((_g52977_ (let () (declare (not safe)) - (if (##values? _g51147_) + (if (##values? _g52976_) (##vector-length - _g51147_) + _g52976_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51148_ 2))) + (##fx= _g52977_ 2))) (error "Context expects 2 values" - _g51148_))) + _g52977_))) (let ((_target3649336534_ (let () (declare (not safe)) - (##vector-ref _g51147_ 0))) + (##vector-ref _g52976_ 0))) (_tl3649536537_ (let () (declare (not safe)) - (##vector-ref _g51147_ 1)))) + (##vector-ref _g52976_ 1)))) (if (gx#stx-null? _tl3649536537_) (letrec ((_loop3649636540_ (lambda (_hd3649436544_ @@ -2260,36 +2224,34 @@ (let ((_id3650136560_ (reverse _id3650036547_))) ((lambda (_L36564_ _L36566_) (if (gx#identifier-list? - (let ((__tmp51153 - (lambda (_g3658336586_ _g3658436589_) + (foldr (lambda (_g3658336586_ _g3658436589_) (let () (declare (not safe)) (cons _g3658336586_ - _g3658436589_))))) - (declare (not safe)) - (foldr1 __tmp51153 '() _L36564_))) + _g3658436589_))) + '() + _L36564_)) (let* ((_keys36600_ (gx#stx-map gx#core-identifier-key - (let ((__tmp51149 - (lambda (_g3659136594_ + (foldr (lambda (_g3659136594_ _g3659236597_) (let () (declare (not safe)) (cons _g3659136594_ - _g3659236597_))))) - (declare (not safe)) - (foldr1 __tmp51149 '() _L36564_)))) + _g3659236597_))) + '() + _L36564_))) (_keytab36611_ (let ((_ht36603_ (let () (declare (not safe)) - (make-table)))) + (make-hash-table)))) (for-each (lambda (_g3660536607_) (let () (declare (not safe)) - (table-set! + (hash-put! _ht36603_ _g3660536607_ '#t))) @@ -2303,28 +2265,26 @@ (lambda (_out36620_ _r36622_) (if (gx#module-export? _out36620_) - (if (let ((__tmp51151 + (if (let ((__tmp52978 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#module-export-name _out36620_))) (declare (not safe)) - (table-ref _keytab36611_ __tmp51151 '#f)) + (hash-get _keytab36611_ __tmp52978)) _r36622_ (let () (declare (not safe)) (cons _out36620_ _r36622_))) (if (gx#export-set? _out36620_) - (let ((__tmp51150 (gx#export-set-exports _out36620_))) - (declare (not safe)) - (foldl1 _fold-e36617_ _r36622_ __tmp51150)) + (foldl _fold-e36617_ + _r36622_ + (gx#export-set-exports _out36620_)) _r36622_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _fold-e36617_))) - (let ((__tmp51152 - (let () - (declare (not safe)) - (foldl1 _fold-e36624_ - '() - _exports36614_)))) + (let ((__tmp52979 + (foldl _fold-e36624_ + '() + _exports36614_))) (declare (not safe)) - (cons 'begin: __tmp51152))) + (cons 'begin: __tmp52979))) (_g3648336507_ _g3648436511_))) _id3650136560_ _hd3649136528_)))))) @@ -2379,31 +2339,31 @@ (declare (not safe)) (##cdr _e3665136691_)))) (if (gx#stx-pair/null? _tl3664936698_) - (let ((_g51154_ + (let ((_g52980_ (gx#syntax-split-splice _tl3664936698_ '0))) (begin - (let ((_g51155_ + (let ((_g52981_ (let () (declare (not safe)) - (if (##values? _g51154_) + (if (##values? _g52980_) (##vector-length - _g51154_) + _g52980_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g51155_ 2))) + (##fx= _g52981_ 2))) (error "Context expects 2 values" - _g51155_))) + _g52981_))) (let ((_target3665236701_ (let () (declare (not safe)) - (##vector-ref _g51154_ 0))) + (##vector-ref _g52980_ 0))) (_tl3665436704_ (let () (declare (not safe)) - (##vector-ref _g51154_ 1)))) + (##vector-ref _g52980_ 1)))) (if (gx#stx-null? _tl3665436704_) (letrec ((_loop3665536707_ (lambda (_hd3665336711_ @@ -2460,65 +2420,61 @@ (_id3666236752_ (reverse _id3666036716_))) ((lambda (_L36755_ _L36757_ _L36758_) (if (and (gx#identifier-list? - (let ((__tmp51166 - (lambda (_g3677636779_ + (foldr (lambda (_g3677636779_ _g3677736782_) (let () (declare (not safe)) (cons _g3677636779_ - _g3677736782_))))) - (declare (not safe)) - (foldr1 __tmp51166 '() _L36757_))) + _g3677736782_))) + '() + _L36757_)) (gx#identifier-list? - (let ((__tmp51165 - (lambda (_g3678436787_ + (foldr (lambda (_g3678436787_ _g3678536790_) (let () (declare (not safe)) (cons _g3678436787_ - _g3678536790_))))) - (declare (not safe)) - (foldr1 __tmp51165 '() _L36755_)))) + _g3678536790_))) + '() + _L36755_))) (let* ((_keytab36793_ (let () (declare (not safe)) - (make-table))) + (make-hash-table))) (_found36796_ (let () (declare (not safe)) - (make-table))) - (_g51160_ + (make-hash-table))) + (_g52984_ (for-each (lambda (_id36799_ _new-id36801_) - (let ((__tmp51157 + (let ((__tmp52983 (gx#core-identifier-key _id36799_)) - (__tmp51156 + (__tmp52982 (gx#core-identifier-key _new-id36801_))) (declare (not safe)) - (table-set! + (hash-put! _keytab36793_ - __tmp51157 - __tmp51156))) - (let ((__tmp51158 - (lambda (_g3680236805_ + __tmp52983 + __tmp52982))) + (foldr (lambda (_g3680236805_ _g3680336808_) (let () (declare (not safe)) (cons _g3680236805_ - _g3680336808_))))) - (declare (not safe)) - (foldr1 __tmp51158 '() _L36757_)) - (let ((__tmp51159 - (lambda (_g3681036813_ + _g3680336808_))) + '() + _L36757_) + (foldr (lambda (_g3681036813_ _g3681136816_) (let () (declare (not safe)) (cons _g3681036813_ - _g3681136816_))))) - (declare (not safe)) - (foldr1 __tmp51159 '() _L36755_)))) + _g3681136816_))) + '() + _L36755_))) (_exports36821_ (gx#core-expand-export-source _L36758_)) @@ -2534,63 +2490,57 @@ (_$e36834_ (let () (declare (not safe)) - (table-ref _keytab36793_ _name36831_ '#f)))) + (hash-get _keytab36793_ _name36831_)))) (if _$e36834_ ((lambda (_rename36838_) (let () (declare (not safe)) - (table-set! _found36796_ _name36831_ '#t)) - (let ((__tmp51162 + (hash-put! _found36796_ _name36831_ '#t)) + (let ((__tmp52985 (let () (declare (not safe)) (|gerbil/core$[1]#module-export-rename| _out36827_ _rename36838_)))) (declare (not safe)) - (cons __tmp51162 _r36829_))) + (cons __tmp52985 _r36829_))) _$e36834_) (let () (declare (not safe)) (cons _out36827_ _r36829_)))) (if (gx#export-set? _out36827_) - (let ((__tmp51161 (gx#export-set-exports _out36827_))) - (declare (not safe)) - (foldl1 _fold-e36824_ _r36829_ __tmp51161)) + (foldl _fold-e36824_ + _r36829_ + (gx#export-set-exports _out36827_)) (let () (declare (not safe)) (cons _out36827_ _r36829_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _fold-e36824_)) (_new-exports36844_ - (let () - (declare (not safe)) - (foldl1 _fold-e36841_ - '() - _exports36821_)))) + (foldl _fold-e36841_ + '() + _exports36821_))) (for-each (lambda (_id36849_) - (if (let ((__tmp51163 + (if (let ((__tmp52986 (gx#core-identifier-key _id36849_))) (declare (not safe)) - (table-ref - _found36796_ - __tmp51163 - '#f)) + (hash-get _found36796_ __tmp52986)) '#!void (gx#raise-syntax-error '#f '"bad syntax; identifier is not in the export set" _stx36638_ _id36849_))) - (let ((__tmp51164 - (lambda (_g3685136854_ _g3685236857_) + (foldr (lambda (_g3685136854_ _g3685236857_) (let () (declare (not safe)) (cons _g3685136854_ - _g3685236857_))))) - (declare (not safe)) - (foldr1 __tmp51164 '() _L36757_))) + _g3685236857_))) + '() + _L36757_)) (let () (declare (not safe)) (cons 'begin: _new-exports36844_))) @@ -2674,35 +2624,29 @@ (letrec ((_fold-e36954_ (lambda (_out36957_ _r36959_) (if (gx#module-export? _out36957_) - (let ((__tmp51168 - (let ((__tmp51169 + (let ((__tmp52987 + (let ((__tmp52988 (_rename-e36951_ (gx#module-export-name _out36957_)))) (declare (not safe)) (|gerbil/core$[1]#module-export-rename| _out36957_ - __tmp51169)))) + __tmp52988)))) (declare (not safe)) - (cons __tmp51168 _r36959_)) + (cons __tmp52987 _r36959_)) (if (gx#export-set? _out36957_) - (let ((__tmp51167 + (foldl _fold-e36954_ + _r36959_ (gx#export-set-exports - _out36957_))) - (declare (not safe)) - (foldl1 _fold-e36954_ - _r36959_ - __tmp51167)) + _out36957_)) (let () (declare (not safe)) (cons _out36957_ _r36959_))))))) _fold-e36954_))) - (let ((__tmp51170 - (let () - (declare (not safe)) - (foldl1 _fold-e36961_ '() _exports36945_)))) + (let ((__tmp52989 (foldl _fold-e36961_ '() _exports36945_))) (declare (not safe)) - (cons 'begin: __tmp51170))) + (cons 'begin: __tmp52989))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g3686936887_ _g3687036891_))) @@ -2724,223 +2668,209 @@ (class-instance? gerbil/core$$#class-type-info::t _info37209_)) - (let ((__tmp51171 - (let ((__tmp51183 - (let ((__obj47540 _info37209_)) + (let ((__tmp52990 + (let ((__tmp52994 + (let ((__obj49644 _info37209_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47540 + __obj49644 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47540 + __obj49644 '9 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47540 + __obj49644 'type-descriptor)))) - (__tmp51172 - (let ((__tmp51174 - (let ((__tmp51182 - (let ((__obj47541 + (__tmp52991 + (foldr cons + (let ((__tmp52993 + (let ((__obj49645 _info37209_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47541 + __obj49645 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47541 + __obj49645 '11 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47541 + __obj49645 'predicate)))) - (__tmp51175 - (let ((__tmp51177 - (let ((__tmp51179 + (__tmp52992 + (foldr cons + (foldr cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if _unchecked?37207_ - (let ((__tmp51181 + (foldr cons (map cdr - (let ((__obj47542 _info37209_)) + (let ((__obj49646 _info37209_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47542 + __obj49646 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47542 + __obj49646 '15 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47542 - 'unchecked-mutators))))) - (__tmp51180 + __obj49646 + 'unchecked-mutators)))) (map cdr - (let ((__obj47543 _info37209_)) + (let ((__obj49647 _info37209_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47543 + __obj49647 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47543 + __obj49647 '14 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47543 - 'unchecked-accessors)))))) - (declare (not safe)) - (foldr1 cons __tmp51181 __tmp51180)) - '())) - (__tmp51178 + __obj49647 + 'unchecked-accessors))))) + '()) (map cdr - (let ((__obj47544 _info37209_)) + (let ((__obj49648 _info37209_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47544 + __obj49648 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47544 + __obj49648 '13 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47544 - 'mutators)))))) - (declare (not safe)) - (foldr1 cons __tmp51179 __tmp51178))) - (__tmp51176 + __obj49648 + 'mutators))))) (map cdr - (let ((__obj47545 _info37209_)) + (let ((__obj49649 _info37209_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47545 + __obj49649 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47545 + __obj49649 '12 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47545 - 'accessors)))))) - (declare (not safe)) - (foldr1 cons __tmp51177 __tmp51176)))) + __obj49649 + 'accessors))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp51182 __tmp51175))) - (__tmp51173 + (cons __tmp52993 __tmp52992)) (let ((_ctor37212_ - (let ((__obj47546 + (let ((__obj49650 _info37209_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47546 + __obj49650 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47546 + __obj49650 '10 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47546 + __obj49650 'constructor))))) (if _ctor37212_ (let () (declare (not safe)) (cons _ctor37212_ '())) - '())))) - (declare (not safe)) - (foldr1 cons __tmp51174 __tmp51173)))) + '()))))) (declare (not safe)) - (cons __tmp51183 __tmp51172)))) + (cons __tmp52994 __tmp52991)))) (declare (not safe)) - (cons _id37205_ __tmp51171)) + (cons _id37205_ __tmp52990)) (gx#raise-syntax-error '#f '"no class type info" _stx36970_ _id37205_)))))) - (let* ((___stx4746347464_ _stx36970_) + (let* ((___stx4956749568_ _stx36970_) (_g3697737018_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4746347464_)))) - (let ((___kont4746647467_ + ___stx4956749568_)))) + (let ((___kont4957049571_ (lambda (_L37166_ _L37168_) - (let ((__tmp51184 + (let ((__tmp52995 (concatenate (gx#stx-map (lambda (_g3718737189_) (_identifiers36973_ _g3718737189_ (gx#stx-e _L37168_))) - (let ((__tmp51185 - (lambda (_g3719237195_ _g3719337198_) + (foldr (lambda (_g3719237195_ _g3719337198_) (let () (declare (not safe)) - (cons _g3719237195_ _g3719337198_))))) - (declare (not safe)) - (foldr1 __tmp51185 '() _L37166_)))))) + (cons _g3719237195_ _g3719337198_))) + '() + _L37166_))))) (declare (not safe)) - (cons 'begin: __tmp51184)))) - (___kont4747047471_ + (cons 'begin: __tmp52995)))) + (___kont4957449575_ (lambda (_L37065_) - (let ((__tmp51186 + (let ((__tmp52996 (concatenate (gx#stx-map (lambda (_g3708137083_) (_identifiers36973_ _g3708137083_ '#f)) - (let ((__tmp51187 - (lambda (_g3708637089_ _g3708737092_) + (foldr (lambda (_g3708637089_ _g3708737092_) (let () (declare (not safe)) - (cons _g3708637089_ _g3708737092_))))) - (declare (not safe)) - (foldr1 __tmp51187 '() _L37065_)))))) + (cons _g3708637089_ _g3708737092_))) + '() + _L37065_))))) (declare (not safe)) - (cons 'begin: __tmp51186))))) - (let* ((___match4752047521_ + (cons 'begin: __tmp52996))))) + (let* ((___match4962449625_ (lambda (_e3700337025_ _hd3700237029_ _tl3700137032_ - ___splice4747247473_ + ___splice4957649577_ _target3700437035_ _tl3700637038_) (letrec ((_loop3700737041_ @@ -2964,10 +2894,10 @@ _id3701137048_))))) (let ((_id3701237061_ (reverse _id3701137048_))) - (___kont4747047471_ + (___kont4957449575_ _id3701237061_)))))) (_loop3700737041_ _target3700437035_ '())))) - (___match4750647507_ + (___match4961049611_ (lambda (_e3698337102_ _hd3698237106_ _tl3698137109_ @@ -2978,7 +2908,7 @@ _e3699037126_ _hd3698937130_ _tl3698837133_ - ___splice4746847469_ + ___splice4957249573_ _target3699137136_ _tl3699337139_) (letrec ((_loop3699437142_ @@ -3002,12 +2932,12 @@ _id3699837149_))))) (let ((_id3699937162_ (reverse _id3699837149_))) - (___kont4746647467_ + (___kont4957049571_ _id3699937162_ _hd3698937130_)))))) (_loop3699437142_ _target3699137136_ '()))))) - (if (gx#stx-pair? ___stx4746347464_) - (let ((_e3698337102_ (gx#syntax-e ___stx4746347464_))) + (if (gx#stx-pair? ___stx4956749568_) + (let ((_e3698337102_ (gx#syntax-e ___stx4956749568_))) (let ((_tl3698137109_ (let () (declare (not safe)) @@ -3046,7 +2976,7 @@ (##car _e3699037126_)))) (if (gx#stx-pair/null? _tl3698837133_) - (let ((___splice4746847469_ + (let ((___splice4957249573_ (gx#syntax-split-splice _tl3698837133_ '0))) @@ -3055,13 +2985,13 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice4746847469_ '1))) + (##vector-ref ___splice4957249573_ '1))) (_target3699137136_ (let () (declare (not safe)) - (##vector-ref ___splice4746847469_ '0)))) + (##vector-ref ___splice4957249573_ '0)))) (if (gx#stx-null? _tl3699337139_) - (___match4750647507_ + (___match4961049611_ _e3698337102_ _hd3698237106_ _tl3698137109_ @@ -3072,26 +3002,26 @@ _e3699037126_ _hd3698937130_ _tl3698837133_ - ___splice4746847469_ + ___splice4957249573_ _target3699137136_ _tl3699337139_) (if (gx#stx-pair/null? _tl3698137109_) - (let ((___splice4747247473_ + (let ((___splice4957649577_ (gx#syntax-split-splice _tl3698137109_ '0))) (let ((_tl3700637038_ (let () (declare (not safe)) - (##vector-ref ___splice4747247473_ '1))) + (##vector-ref ___splice4957649577_ '1))) (_target3700437035_ (let () (declare (not safe)) - (##vector-ref ___splice4747247473_ '0)))) + (##vector-ref ___splice4957649577_ '0)))) (if (gx#stx-null? _tl3700637038_) - (___match4752047521_ + (___match4962449625_ _e3698337102_ _hd3698237106_ _tl3698137109_ - ___splice4747247473_ + ___splice4957649577_ _target3700437035_ _tl3700637038_) (let () @@ -3101,7 +3031,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _tl3698137109_) - (let ((___splice4747247473_ + (let ((___splice4957649577_ (gx#syntax-split-splice ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _tl3698137109_ @@ -3109,17 +3039,17 @@ (let ((_tl3700637038_ (let () (declare (not safe)) - (##vector-ref ___splice4747247473_ '1))) + (##vector-ref ___splice4957649577_ '1))) (_target3700437035_ (let () (declare (not safe)) - (##vector-ref ___splice4747247473_ '0)))) + (##vector-ref ___splice4957649577_ '0)))) (if (gx#stx-null? _tl3700637038_) - (___match4752047521_ + (___match4962449625_ _e3698337102_ _hd3698237106_ _tl3698137109_ - ___splice4747247473_ + ___splice4957649577_ _target3700437035_ _tl3700637038_) (let () (declare (not safe)) (_g3697737018_))))) @@ -3127,7 +3057,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _tl3698137109_) - (let ((___splice4747247473_ + (let ((___splice4957649577_ (gx#syntax-split-splice _tl3698137109_ '0))) @@ -3136,22 +3066,22 @@ (declare (not safe)) (##vector-ref - ___splice4747247473_ + ___splice4957649577_ '1))) (_target3700437035_ (let () (declare (not safe)) (##vector-ref - ___splice4747247473_ + ___splice4957649577_ '0)))) (if (gx#stx-null? _tl3700637038_) - (___match4752047521_ + (___match4962449625_ _e3698337102_ _hd3698237106_ _tl3698137109_ - ___splice4747247473_ + ___splice4957649577_ _target3700437035_ _tl3700637038_) (let () @@ -3161,7 +3091,7 @@ (declare (not safe)) (_g3697737018_)))) (if (gx#stx-pair/null? _tl3698137109_) - (let ((___splice4747247473_ + (let ((___splice4957649577_ (gx#syntax-split-splice _tl3698137109_ '0))) @@ -3169,21 +3099,21 @@ (let () (declare (not safe)) (##vector-ref - ___splice4747247473_ + ___splice4957649577_ '1))) (_target3700437035_ (let () (declare (not safe)) (##vector-ref - ___splice4747247473_ + ___splice4957649577_ '0)))) (if (gx#stx-null? _tl3700637038_) - (___match4752047521_ + (___match4962449625_ _e3698337102_ _hd3698237106_ _tl3698137109_ - ___splice4747247473_ + ___splice4957649577_ _target3700437035_ _tl3700637038_) (let () @@ -3193,7 +3123,7 @@ (declare (not safe)) (_g3697737018_))))) (if (gx#stx-pair/null? _tl3698137109_) - (let ((___splice4747247473_ + (let ((___splice4957649577_ (gx#syntax-split-splice _tl3698137109_ '0))) @@ -3201,20 +3131,20 @@ (let () (declare (not safe)) (##vector-ref - ___splice4747247473_ + ___splice4957649577_ '1))) (_target3700437035_ (let () (declare (not safe)) (##vector-ref - ___splice4747247473_ + ___splice4957649577_ '0)))) (if (gx#stx-null? _tl3700637038_) - (___match4752047521_ + (___match4962449625_ _e3698337102_ _hd3698237106_ _tl3698137109_ - ___splice4747247473_ + ___splice4957649577_ _target3700437035_ _tl3700637038_) (let () @@ -3224,7 +3154,7 @@ (declare (not safe)) (_g3697737018_)))))) (if (gx#stx-pair/null? _tl3698137109_) - (let ((___splice4747247473_ + (let ((___splice4957649577_ (gx#syntax-split-splice _tl3698137109_ '0))) @@ -3232,20 +3162,20 @@ (let () (declare (not safe)) (##vector-ref - ___splice4747247473_ + ___splice4957649577_ '1))) (_target3700437035_ (let () (declare (not safe)) (##vector-ref - ___splice4747247473_ + ___splice4957649577_ '0)))) (if (gx#stx-null? _tl3700637038_) - (___match4752047521_ + (___match4962449625_ _e3698337102_ _hd3698237106_ _tl3698137109_ - ___splice4747247473_ + ___splice4957649577_ _target3700437035_ _tl3700637038_) (let () diff --git a/src/bootstrap/gerbil/core__16.scm b/src/bootstrap/gerbil/core__16.scm index ca8ed56be..352af4f52 100644 --- a/src/bootstrap/gerbil/core__16.scm +++ b/src/bootstrap/gerbil/core__16.scm @@ -32,10 +32,10 @@ (if (gx#current-expander-compiling?) (gx#eval-syntax _L37262_) '#!void) - (let ((__tmp51188 + (let ((__tmp52997 (gx#datum->syntax '#f 'void))) (declare (not safe)) - (cons __tmp51188 '()))) + (cons __tmp52997 '()))) _hd3722837256_) (_g3722137235_ _g3722237239_)))) (_g3722137235_ _g3722237239_)))) diff --git a/src/bootstrap/gerbil/core__2.scm b/src/bootstrap/gerbil/core__2.scm index 456bb628f..c9e1239b8 100644 --- a/src/bootstrap/gerbil/core__2.scm +++ b/src/bootstrap/gerbil/core__2.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$[1]#_g47636_| + (define |gerbil/core$[1]#_g49729_| (##structure gx#syntax-quote::t 'values @@ -34,31 +34,31 @@ (declare (not safe)) (##cdr _e6092_)))) (if (gx#stx-pair/null? _tl5899_) - (let ((_g47556_ + (let ((_g49659_ (gx#syntax-split-splice _tl5899_ '0))) (begin - (let ((_g47557_ + (let ((_g49660_ (let () (declare (not safe)) - (if (##values? _g47556_) + (if (##values? _g49659_) (##vector-length - _g47556_) + _g49659_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47557_ 2))) + (##fx= _g49660_ 2))) (error "Context expects 2 values" - _g47557_))) + _g49660_))) (let ((_target61102_ (let () (declare (not safe)) - (##vector-ref _g47556_ 0))) + (##vector-ref _g49659_ 0))) (_tl63105_ (let () (declare (not safe)) - (##vector-ref _g47556_ 1)))) + (##vector-ref _g49659_ 1)))) (if (gx#stx-null? _tl63105_) (letrec ((_loop64108_ (lambda (_hd62112_ @@ -85,59 +85,59 @@ (let* ((_body297_ (gx#stx-map (lambda (_clause154_) - (let* ((___stx4187141872_ + (let* ((___stx4397543976_ _clause154_) (_g158185_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4187141872_)))) - (let ((___kont4187441875_ + ___stx4397543976_)))) + (let ((___kont4397843979_ (lambda (_L270_ _L272_) - (let ((__tmp47558 - (let ((__tmp47559 + (let ((__tmp49661 + (let ((__tmp49662 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47561 (gx#datum->syntax '#f 'syntax)) - (__tmp47560 + (let ((__tmp49664 (gx#datum->syntax '#f 'syntax)) + (__tmp49663 (let () (declare (not safe)) (cons _L270_ '())))) (declare (not safe)) - (cons __tmp47561 __tmp47560)))) + (cons __tmp49664 __tmp49663)))) (declare (not safe)) - (cons __tmp47559 '())))) + (cons __tmp49662 '())))) (declare (not safe)) - (cons _L272_ __tmp47558)))) + (cons _L272_ __tmp49661)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4187641877_ + (___kont4398043981_ (lambda (_L222_ _L224_ _L225_) - (let ((__tmp47562 - (let ((__tmp47563 + (let ((__tmp49665 + (let ((__tmp49666 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47564 - (let ((__tmp47566 + (let ((__tmp49667 + (let ((__tmp49669 (gx#datum->syntax '#f 'syntax)) - (__tmp47565 + (__tmp49668 (let () (declare (not safe)) (cons _L222_ '())))) (declare (not safe)) - (cons __tmp47566 __tmp47565)))) + (cons __tmp49669 __tmp49668)))) (declare (not safe)) - (cons __tmp47564 '())))) + (cons __tmp49667 '())))) (declare (not safe)) - (cons _L224_ __tmp47563)))) + (cons _L224_ __tmp49666)))) (declare (not safe)) - (cons _L225_ __tmp47562))))) + (cons _L225_ __tmp49665))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx4187141872_) + ___stx4397543976_) (let ((_e164250_ (gx#syntax-e - ___stx4187141872_))) + ___stx4397543976_))) (let ((_tl162257_ (let () (declare @@ -153,7 +153,7 @@ (_hd166264_ (let () (declare (not safe)) (##car _e167260_)))) (if (gx#stx-null? _tl165267_) - (___kont4187441875_ _hd166264_ _hd163254_) + (___kont4397843979_ _hd166264_ _hd163254_) (if (gx#stx-pair? _tl165267_) (let ((_e179212_ (gx#syntax-e _tl165267_))) (let ((_tl177219_ @@ -165,7 +165,7 @@ (declare (not safe)) (##car _e179212_)))) (if (gx#stx-null? _tl177219_) - (___kont4187641877_ + (___kont4398043981_ _hd178216_ _hd166264_ _hd163254_) @@ -178,14 +178,13 @@ (let () (declare (not safe)) (_g158185_)))))) - (let ((__tmp47567 - (lambda (_g288291_ _g289294_) + (foldr (lambda (_g288291_ _g289294_) (let () (declare (not safe)) (cons _g288291_ - _g289294_))))) - (declare (not safe)) - (foldr1 __tmp47567 '() _L132_)))) + _g289294_))) + '() + _L132_))) (_g300317_ (lambda (_g301313_) (gx#raise-syntax-error @@ -195,41 +194,41 @@ (_g299376_ (lambda (_g301321_) (if (gx#stx-pair/null? _g301321_) - (let ((_g47568_ + (let ((_g49670_ (gx#syntax-split-splice _g301321_ '0))) (begin - (let ((_g47569_ + (let ((_g49671_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g47568_) - (##vector-length _g47568_) + _g49670_) + (##vector-length _g49670_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g47569_ 2))) - (error "Context expects 2 values" _g47569_))) + (##fx= _g49671_ 2))) + (error "Context expects 2 values" _g49671_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target303324_ (let () (declare (not safe)) (##vector-ref - _g47568_ + _g49670_ 0))) (_tl305327_ (let () (declare (not safe)) (##vector-ref - _g47568_ + _g49670_ 1)))) (if (gx#stx-null? _tl305327_) @@ -254,46 +253,44 @@ (let ((_clause311350_ (reverse _clause310337_))) ((lambda (_L354_) - (let ((__tmp47581 + (let ((__tmp49682 (gx#datum->syntax '#f 'lambda%)) - (__tmp47570 - (let ((__tmp47579 - (let ((__tmp47580 + (__tmp49672 + (let ((__tmp49680 + (let ((__tmp49681 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp47580 '()))) - (__tmp47571 - (let ((__tmp47572 - (let ((__tmp47578 + (cons __tmp49681 '()))) + (__tmp49673 + (let ((__tmp49674 + (let ((__tmp49679 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax-case)) - (__tmp47573 - (let ((__tmp47577 (gx#datum->syntax '#f '$stx)) - (__tmp47574 - (let ((__tmp47575 - (let ((__tmp47576 - (lambda (_g367370_ _g368373_) + (__tmp49675 + (let ((__tmp49678 (gx#datum->syntax '#f '$stx)) + (__tmp49676 + (let ((__tmp49677 + (foldr (lambda (_g367370_ _g368373_) (let () (declare (not safe)) - (cons _g367370_ - _g368373_))))) - (declare (not safe)) - (foldr1 __tmp47576 '() _L354_)))) + (cons _g367370_ _g368373_))) + '() + _L354_))) (declare (not safe)) - (cons _L134_ __tmp47575)))) + (cons _L134_ __tmp49677)))) (declare (not safe)) - (cons __tmp47577 __tmp47574)))) + (cons __tmp49678 __tmp49676)))) (declare (not safe)) - (cons __tmp47578 __tmp47573)))) + (cons __tmp49679 __tmp49675)))) (declare (not safe)) - (cons __tmp47572 '())))) + (cons __tmp49674 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47579 __tmp47571)))) + (cons __tmp49680 __tmp49673)))) (declare (not safe)) - (cons __tmp47581 __tmp47570))) + (cons __tmp49682 __tmp49672))) _clause311350_)))))) (_loop306330_ _target303324_ '())) (_g300317_ _g301321_))))) @@ -314,139 +311,133 @@ (_g50380_ _stx48_)))) (define |gerbil/core$[:0:]#with-syntax| (lambda (_stx386_) - (let* ((___stx4191541916_ _stx386_) + (let* ((___stx4401944020_ _stx386_) (_g391476_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4191541916_)))) - (let ((___kont4191841919_ + ___stx4401944020_)))) + (let ((___kont4402244023_ (lambda (_L816_) - (let ((__tmp47585 (gx#datum->syntax '#f 'let-values)) - (__tmp47582 - (let ((__tmp47583 - (let ((__tmp47584 - (lambda (_g832835_ _g833838_) + (let ((__tmp49685 (gx#datum->syntax '#f 'let-values)) + (__tmp49683 + (let ((__tmp49684 + (foldr (lambda (_g832835_ _g833838_) (let () (declare (not safe)) - (cons _g832835_ _g833838_))))) - (declare (not safe)) - (foldr1 __tmp47584 '() _L816_)))) + (cons _g832835_ _g833838_))) + '() + _L816_))) (declare (not safe)) - (cons '() __tmp47583)))) + (cons '() __tmp49684)))) (declare (not safe)) - (cons __tmp47585 __tmp47582)))) - (___kont4192241923_ + (cons __tmp49685 __tmp49683)))) + (___kont4402644027_ (lambda (_L724_ _L726_ _L727_) - (let ((__tmp47596 (gx#datum->syntax '#f 'syntax-case)) - (__tmp47586 - (let ((__tmp47587 - (let ((__tmp47588 - (let ((__tmp47589 - (let ((__tmp47590 - (let ((__tmp47591 - (let ((__tmp47595 + (let ((__tmp49695 (gx#datum->syntax '#f 'syntax-case)) + (__tmp49686 + (let ((__tmp49687 + (let ((__tmp49688 + (let ((__tmp49689 + (let ((__tmp49690 + (let ((__tmp49691 + (let ((__tmp49694 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let-values)) - (__tmp47592 - (let ((__tmp47593 - (let ((__tmp47594 - (lambda (_g750753_ _g751756_) + (__tmp49692 + (let ((__tmp49693 + (foldr (lambda (_g750753_ _g751756_) (let () (declare (not safe)) - (cons _g750753_ _g751756_))))) - (declare (not safe)) - (foldr1 __tmp47594 '() _L724_)))) + (cons _g750753_ _g751756_))) + '() + _L724_))) (declare (not safe)) - (cons '() __tmp47593)))) + (cons '() __tmp49693)))) (declare (not safe)) - (cons __tmp47595 __tmp47592)))) + (cons __tmp49694 __tmp49692)))) (declare (not safe)) - (cons __tmp47591 '())))) + (cons __tmp49691 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L727_ __tmp47590)))) + (cons _L727_ __tmp49690)))) (declare (not safe)) - (cons __tmp47589 '())))) + (cons __tmp49689 '())))) (declare (not safe)) - (cons '() __tmp47588)))) + (cons '() __tmp49688)))) (declare (not safe)) - (cons _L726_ __tmp47587)))) + (cons _L726_ __tmp49687)))) (declare (not safe)) - (cons __tmp47596 __tmp47586)))) - (___kont4192641927_ + (cons __tmp49695 __tmp49686)))) + (___kont4403044031_ (lambda (_L587_ _L589_ _L590_) - (let ((__tmp47613 (gx#datum->syntax '#f 'syntax-case)) - (__tmp47597 - (let ((__tmp47609 - (let ((__tmp47612 + (let ((__tmp49709 (gx#datum->syntax '#f 'syntax-case)) + (__tmp49696 + (let ((__tmp49706 + (let ((__tmp49708 (gx#datum->syntax '#f 'list)) - (__tmp47610 - (let ((__tmp47611 - (lambda (_g616619_ _g617622_) + (__tmp49707 + (foldr (lambda (_g616619_ _g617622_) (let () (declare (not safe)) - (cons _g616619_ - _g617622_))))) - (declare (not safe)) - (foldr1 __tmp47611 '() _L589_)))) + (cons _g616619_ _g617622_))) + '() + _L589_))) (declare (not safe)) - (cons __tmp47612 __tmp47610))) - (__tmp47598 - (let ((__tmp47599 - (let ((__tmp47600 - (let ((__tmp47607 - (let ((__tmp47608 - (lambda (_g614625_ + (cons __tmp49708 __tmp49707))) + (__tmp49697 + (let ((__tmp49698 + (let ((__tmp49699 + (let ((__tmp49705 + (foldr (lambda (_g614625_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g615628_) (let () (declare (not safe)) - (cons _g614625_ _g615628_))))) - (declare (not safe)) - (foldr1 __tmp47608 '() _L590_))) + (cons _g614625_ _g615628_))) + '() + _L590_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp47601 - (let ((__tmp47602 - (let ((__tmp47606 + (__tmp49700 + (let ((__tmp49701 + (let ((__tmp49704 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let-values)) - (__tmp47603 - (let ((__tmp47604 - (let ((__tmp47605 - (lambda (_g612631_ _g613634_) + (__tmp49702 + (let ((__tmp49703 + (foldr (lambda (_g612631_ _g613634_) (let () (declare (not safe)) - (cons _g612631_ _g613634_))))) - (declare (not safe)) - (foldr1 __tmp47605 '() _L587_)))) + (cons _g612631_ _g613634_))) + '() + _L587_))) (declare (not safe)) - (cons '() __tmp47604)))) + (cons '() __tmp49703)))) (declare (not safe)) - (cons __tmp47606 __tmp47603)))) + (cons __tmp49704 __tmp49702)))) (declare (not safe)) - (cons __tmp47602 '())))) + (cons __tmp49701 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47607 - __tmp47601)))) + (cons __tmp49705 + __tmp49700)))) (declare (not safe)) - (cons __tmp47600 '())))) + (cons __tmp49699 '())))) (declare (not safe)) - (cons '() __tmp47599)))) + (cons '() __tmp49698)))) (declare (not safe)) - (cons __tmp47609 __tmp47598)))) + (cons __tmp49706 __tmp49697)))) (declare (not safe)) - (cons __tmp47613 __tmp47597))))) - (let* ((___match4201642017_ + (cons __tmp49709 __tmp49696))))) + (let* ((___match4412044121_ (lambda (_e441483_ _hd440487_ _tl439490_ _e444493_ _hd443497_ _tl442500_ - ___splice4192841929_ + ___splice4403244033_ _target445503_ _tl447506_) (letrec ((_loop448509_ @@ -503,7 +494,7 @@ (let ((_pat455554_ (reverse _pat453518_)) (_e454551_ (reverse _e452516_))) (if (gx#stx-pair/null? _tl442500_) - (let ((___splice4193041931_ + (let ((___splice4403444035_ (gx#syntax-split-splice _tl442500_ '0))) @@ -511,13 +502,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice4193041931_ + ___splice4403444035_ '1))) (_target462557_ (let () (declare (not safe)) (##vector-ref - ___splice4193041931_ + ___splice4403444035_ '0)))) (if (gx#stx-null? _tl464560_) (letrec ((_loop465563_ @@ -540,7 +531,7 @@ (declare (not safe)) (cons _lp-hd467577_ _body469570_))))) (let ((_body470583_ (reverse _body469570_))) - (___kont4192641927_ + (___kont4403044031_ _body470583_ _e454551_ _pat455554_)))))) @@ -553,7 +544,7 @@ (declare (not safe)) (_g391476_)))))))) (_loop448509_ _target445503_ '() '())))) - (___match4199641997_ + (___match4410044101_ (lambda (_e414644_ _hd413648_ _tl412651_ @@ -569,7 +560,7 @@ _e426684_ _hd425688_ _tl424691_ - ___splice4192441925_ + ___splice4402844029_ _target427694_ _tl429697_) (letrec ((_loop430700_ @@ -593,19 +584,19 @@ _body434707_))))) (let ((_body435720_ (reverse _body434707_))) - (___kont4192241923_ + (___kont4402644027_ _body435720_ _hd425688_ _hd422678_)))))) (_loop430700_ _target427694_ '())))) - (___match4195441955_ + (___match4405844059_ (lambda (_e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4192041921_ + ___splice4402444025_ _target400786_ _tl402789_) (letrec ((_loop403792_ @@ -629,10 +620,10 @@ _body407799_))))) (let ((_body408812_ (reverse _body407799_))) - (___kont4191841919_ _body408812_)))))) + (___kont4402244023_ _body408812_)))))) (_loop403792_ _target400786_ '()))))) - (if (gx#stx-pair? ___stx4191541916_) - (let ((_e396766_ (gx#syntax-e ___stx4191541916_))) + (if (gx#stx-pair? ___stx4401944020_) + (let ((_e396766_ (gx#syntax-e ___stx4401944020_))) (let ((_tl394773_ (let () (declare (not safe)) (##cdr _e396766_))) (_hd395770_ @@ -649,7 +640,7 @@ (##car _e399776_)))) (if (gx#stx-null? _hd398780_) (if (gx#stx-pair/null? _tl397783_) - (let ((___splice4192041921_ + (let ((___splice4402444025_ (gx#syntax-split-splice _tl397783_ '0))) @@ -657,28 +648,28 @@ (let () (declare (not safe)) (##vector-ref - ___splice4192041921_ + ___splice4402444025_ '1))) (_target400786_ (let () (declare (not safe)) (##vector-ref - ___splice4192041921_ + ___splice4402444025_ '0)))) (if (gx#stx-null? _tl402789_) - (___match4195441955_ + (___match4405844059_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4192041921_ + ___splice4402444025_ _target400786_ _tl402789_) (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4192841929_ + (let ((___splice4403244033_ (gx#syntax-split-splice _hd398780_ '0))) @@ -687,25 +678,25 @@ (declare (not safe)) (##vector-ref - ___splice4192841929_ + ___splice4403244033_ '1))) (_target445503_ (let () (declare (not safe)) (##vector-ref - ___splice4192841929_ + ___splice4403244033_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4201642017_ + (___match4412044121_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4192841929_ + ___splice4403244033_ _target445503_ _tl447506_) (let () @@ -716,7 +707,7 @@ (declare (not safe)) (_g391476_)))))) (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4192841929_ + (let ((___splice4403244033_ (gx#syntax-split-splice _hd398780_ '0))) @@ -724,23 +715,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4192841929_ + ___splice4403244033_ '1))) (_target445503_ (let () (declare (not safe)) (##vector-ref - ___splice4192841929_ + ___splice4403244033_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4201642017_ + (___match4412044121_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4192841929_ + ___splice4403244033_ _target445503_ _tl447506_) (let () @@ -785,22 +776,22 @@ (if (gx#stx-null? _tl424691_) (if (gx#stx-null? _tl418671_) (if (gx#stx-pair/null? _tl397783_) - (let ((___splice4192441925_ + (let ((___splice4402844029_ (gx#syntax-split-splice _tl397783_ '0))) (let ((_tl429697_ (let () (declare (not safe)) (##vector-ref - ___splice4192441925_ + ___splice4402844029_ '1))) (_target427694_ (let () (declare (not safe)) (##vector-ref - ___splice4192441925_ + ___splice4402844029_ '0)))) (if (gx#stx-null? _tl429697_) - (___match4199641997_ + (___match4410044101_ _e396766_ _hd395770_ _tl394773_ @@ -816,11 +807,11 @@ _e426684_ _hd425688_ _tl424691_ - ___splice4192441925_ + ___splice4402844029_ _target427694_ _tl429697_) (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4192841929_ + (let ((___splice4403244033_ (gx#syntax-split-splice _hd398780_ '0))) @@ -828,23 +819,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4192841929_ + ___splice4403244033_ '1))) (_target445503_ (let () (declare (not safe)) (##vector-ref - ___splice4192841929_ + ___splice4403244033_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4201642017_ + (___match4412044121_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4192841929_ + ___splice4403244033_ _target445503_ _tl447506_) (let () @@ -854,7 +845,7 @@ (declare (not safe)) (_g391476_)))))) (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4192841929_ + (let ((___splice4403244033_ (gx#syntax-split-splice _hd398780_ '0))) @@ -862,23 +853,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4192841929_ + ___splice4403244033_ '1))) (_target445503_ (let () (declare (not safe)) (##vector-ref - ___splice4192841929_ + ___splice4403244033_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4201642017_ + (___match4412044121_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4192841929_ + ___splice4403244033_ _target445503_ _tl447506_) (let () @@ -886,29 +877,29 @@ (_g391476_))))) (let () (declare (not safe)) (_g391476_)))) (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4192841929_ + (let ((___splice4403244033_ (gx#syntax-split-splice _hd398780_ '0))) (let ((_tl447506_ (let () (declare (not safe)) (##vector-ref - ___splice4192841929_ + ___splice4403244033_ '1))) (_target445503_ (let () (declare (not safe)) (##vector-ref - ___splice4192841929_ + ___splice4403244033_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4201642017_ + (___match4412044121_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4192841929_ + ___splice4403244033_ _target445503_ _tl447506_) (let () @@ -916,49 +907,49 @@ (_g391476_))))) (let () (declare (not safe)) (_g391476_)))) (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4192841929_ + (let ((___splice4403244033_ (gx#syntax-split-splice _hd398780_ '0))) (let ((_tl447506_ (let () (declare (not safe)) - (##vector-ref ___splice4192841929_ '1))) + (##vector-ref ___splice4403244033_ '1))) (_target445503_ (let () (declare (not safe)) - (##vector-ref ___splice4192841929_ '0)))) + (##vector-ref ___splice4403244033_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4201642017_ + (___match4412044121_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4192841929_ + ___splice4403244033_ _target445503_ _tl447506_) (let () (declare (not safe)) (_g391476_))))) (let () (declare (not safe)) (_g391476_)))))) (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4192841929_ + (let ((___splice4403244033_ (gx#syntax-split-splice _hd398780_ '0))) (let ((_tl447506_ (let () (declare (not safe)) - (##vector-ref ___splice4192841929_ '1))) + (##vector-ref ___splice4403244033_ '1))) (_target445503_ (let () (declare (not safe)) - (##vector-ref ___splice4192841929_ '0)))) + (##vector-ref ___splice4403244033_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4201642017_ + (___match4412044121_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4192841929_ + ___splice4403244033_ _target445503_ _tl447506_) (let () (declare (not safe)) (_g391476_))))) @@ -966,7 +957,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4192841929_ + (let ((___splice4403244033_ (gx#syntax-split-splice _hd398780_ '0))) @@ -975,25 +966,25 @@ (declare (not safe)) (##vector-ref - ___splice4192841929_ + ___splice4403244033_ '1))) (_target445503_ (let () (declare (not safe)) (##vector-ref - ___splice4192841929_ + ___splice4403244033_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4201642017_ + (___match4412044121_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4192841929_ + ___splice4403244033_ _target445503_ _tl447506_) (let () @@ -1004,7 +995,7 @@ (declare (not safe)) (_g391476_)))))) (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4192841929_ + (let ((___splice4403244033_ (gx#syntax-split-splice _hd398780_ '0))) @@ -1012,23 +1003,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4192841929_ + ___splice4403244033_ '1))) (_target445503_ (let () (declare (not safe)) (##vector-ref - ___splice4192841929_ + ___splice4403244033_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4201642017_ + (___match4412044121_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4192841929_ + ___splice4403244033_ _target445503_ _tl447506_) (let () @@ -1041,100 +1032,97 @@ (let () (declare (not safe)) (_g391476_)))))))) (define |gerbil/core$[:0:]#with-syntax*| (lambda (_stx849_) - (let* ((___stx4201942020_ _stx849_) + (let* ((___stx4412344124_ _stx849_) (_g854931_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4201942020_)))) - (let ((___kont4202242023_ + ___stx4412344124_)))) + (let ((___kont4412644127_ (lambda (_L1227_) - (let ((__tmp47617 (gx#datum->syntax '#f 'let-values)) - (__tmp47614 - (let ((__tmp47615 - (let ((__tmp47616 - (lambda (_g12431246_ _g12441249_) + (let ((__tmp49712 (gx#datum->syntax '#f 'let-values)) + (__tmp49710 + (let ((__tmp49711 + (foldr (lambda (_g12431246_ _g12441249_) (let () (declare (not safe)) - (cons _g12431246_ _g12441249_))))) - (declare (not safe)) - (foldr1 __tmp47616 '() _L1227_)))) + (cons _g12431246_ _g12441249_))) + '() + _L1227_))) (declare (not safe)) - (cons '() __tmp47615)))) + (cons '() __tmp49711)))) (declare (not safe)) - (cons __tmp47617 __tmp47614)))) - (___kont4202642027_ + (cons __tmp49712 __tmp49710)))) + (___kont4413044131_ (lambda (_L1129_ _L1131_ _L1132_ _L1133_ _L1134_) - (let ((__tmp47627 (gx#datum->syntax '#f 'let-values)) - (__tmp47618 - (let ((__tmp47624 - (let ((__tmp47625 - (let ((__tmp47626 + (let ((__tmp49721 (gx#datum->syntax '#f 'let-values)) + (__tmp49713 + (let ((__tmp49718 + (let ((__tmp49719 + (let ((__tmp49720 (let () (declare (not safe)) (cons _L1132_ '())))) (declare (not safe)) - (cons _L1133_ __tmp47626)))) + (cons _L1133_ __tmp49720)))) (declare (not safe)) - (cons __tmp47625 '()))) - (__tmp47619 - (let ((__tmp47620 - (let ((__tmp47621 - (let ((__tmp47622 - (let ((__tmp47623 - (lambda (_g11611164_ + (cons __tmp49719 '()))) + (__tmp49714 + (let ((__tmp49715 + (let ((__tmp49716 + (let ((__tmp49717 + (foldr (lambda (_g11611164_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g11621167_) (let () (declare (not safe)) - (cons _g11611164_ _g11621167_))))) - (declare (not safe)) - (foldr1 __tmp47623 '() _L1129_)))) + (cons _g11611164_ _g11621167_))) + '() + _L1129_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1131_ __tmp47622)))) + (cons _L1131_ __tmp49717)))) (declare (not safe)) - (cons _L1134_ __tmp47621)))) + (cons _L1134_ __tmp49716)))) (declare (not safe)) - (cons __tmp47620 '())))) + (cons __tmp49715 '())))) (declare (not safe)) - (cons __tmp47624 __tmp47619)))) + (cons __tmp49718 __tmp49714)))) (declare (not safe)) - (cons __tmp47627 __tmp47618)))) - (___kont4203042031_ + (cons __tmp49721 __tmp49713)))) + (___kont4413444135_ (lambda (_L998_ _L1000_ _L1001_ _L1002_) - (let ((__tmp47635 (gx#datum->syntax '#f 'with-syntax)) - (__tmp47628 - (let ((__tmp47634 + (let ((__tmp49728 (gx#datum->syntax '#f 'with-syntax)) + (__tmp49722 + (let ((__tmp49727 (let () (declare (not safe)) (cons _L1001_ '()))) - (__tmp47629 - (let ((__tmp47630 - (let ((__tmp47631 - (let ((__tmp47632 - (let ((__tmp47633 - (lambda (_g10231026_ + (__tmp49723 + (let ((__tmp49724 + (let ((__tmp49725 + (let ((__tmp49726 + (foldr (lambda (_g10231026_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g10241029_) (let () (declare (not safe)) - (cons _g10231026_ _g10241029_))))) - (declare (not safe)) - (foldr1 __tmp47633 '() _L998_)))) + (cons _g10231026_ _g10241029_))) + '() + _L998_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1000_ __tmp47632)))) + (cons _L1000_ __tmp49726)))) (declare (not safe)) - (cons _L1002_ __tmp47631)))) + (cons _L1002_ __tmp49725)))) (declare (not safe)) - (cons __tmp47630 '())))) + (cons __tmp49724 '())))) (declare (not safe)) - (cons __tmp47634 __tmp47629)))) + (cons __tmp49727 __tmp49723)))) (declare (not safe)) - (cons __tmp47635 __tmp47628))))) - (let* ((___match4213242133_ + (cons __tmp49728 __tmp49722))))) + (let* ((___match4423644237_ (lambda (_e910938_ _hd909942_ _tl908945_ @@ -1144,7 +1132,7 @@ _e916958_ _hd915962_ _tl914965_ - ___splice4203242033_ + ___splice4413644137_ _target917968_ _tl919971_) (letrec ((_loop920974_ @@ -1168,13 +1156,13 @@ _body924981_))))) (let ((_body925994_ (reverse _body924981_))) - (___kont4203042031_ + (___kont4413444135_ _body925994_ _tl914965_ _hd915962_ _hd909942_)))))) (_loop920974_ _target917968_ '())))) - (___match4210642107_ + (___match4421044211_ (lambda (_e8791039_ _hd8781043_ _tl8771046_ @@ -1193,7 +1181,7 @@ _e8941089_ _hd8931093_ _tl8921096_ - ___splice4202842029_ + ___splice4413244133_ _target8951099_ _tl8971102_) (letrec ((_loop8981105_ @@ -1217,21 +1205,21 @@ _body9021112_))))) (let ((_body9031125_ (reverse _body9021112_))) - (___kont4202642027_ + (___kont4413044131_ _body9031125_ _tl8831066_ _hd8931093_ _tl8891086_ _hd8781043_)))))) (_loop8981105_ _target8951099_ '())))) - (___match4205642057_ + (___match4416044161_ (lambda (_e8591177_ _hd8581181_ _tl8571184_ _e8621187_ _hd8611191_ _tl8601194_ - ___splice4202442025_ + ___splice4412844129_ _target8631197_ _tl8651200_) (letrec ((_loop8661203_ @@ -1255,10 +1243,10 @@ _body8701210_))))) (let ((_body8711223_ (reverse _body8701210_))) - (___kont4202242023_ _body8711223_)))))) + (___kont4412644127_ _body8711223_)))))) (_loop8661203_ _target8631197_ '()))))) - (if (gx#stx-pair? ___stx4201942020_) - (let ((_e8591177_ (gx#syntax-e ___stx4201942020_))) + (if (gx#stx-pair? ___stx4412344124_) + (let ((_e8591177_ (gx#syntax-e ___stx4412344124_))) (let ((_tl8571184_ (let () (declare (not safe)) (##cdr _e8591177_))) (_hd8581181_ @@ -1275,7 +1263,7 @@ (##car _e8621187_)))) (if (gx#stx-null? _hd8611191_) (if (gx#stx-pair/null? _tl8601194_) - (let ((___splice4202442025_ + (let ((___splice4412844129_ (gx#syntax-split-splice _tl8601194_ '0))) @@ -1283,23 +1271,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4202442025_ + ___splice4412844129_ '1))) (_target8631197_ (let () (declare (not safe)) (##vector-ref - ___splice4202442025_ + ___splice4412844129_ '0)))) (if (gx#stx-null? _tl8651200_) - (___match4205642057_ + (___match4416044161_ _e8591177_ _hd8581181_ _tl8571184_ _e8621187_ _hd8611191_ _tl8601194_ - ___splice4202442025_ + ___splice4412844129_ _target8631197_ _tl8651200_) (let () @@ -1345,7 +1333,7 @@ (let () (declare (not safe)) (##car _e8911079_)))) (if (gx#identifier? _hd8901083_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g47636_| + |gerbil/core$[1]#_g49729_| _hd8901083_) (if (gx#stx-pair? _tl8861076_) (let ((_e8941089_ (gx#syntax-e _tl8861076_))) @@ -1359,7 +1347,7 @@ (##car _e8941089_)))) (if (gx#stx-null? _tl8921096_) (if (gx#stx-pair/null? _tl8601194_) - (let ((___splice4202842029_ + (let ((___splice4413244133_ (gx#syntax-split-splice _tl8601194_ '0))) @@ -1367,16 +1355,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4202842029_ + ___splice4413244133_ '1))) (_target8951099_ (let () (declare (not safe)) (##vector-ref - ___splice4202842029_ + ___splice4413244133_ '0)))) (if (gx#stx-null? _tl8971102_) - (___match4210642107_ + (___match4421044211_ _e8591177_ _hd8581181_ _tl8571184_ @@ -1395,7 +1383,7 @@ _e8941089_ _hd8931093_ _tl8921096_ - ___splice4202842029_ + ___splice4413244133_ _target8951099_ _tl8971102_) (let () @@ -1405,7 +1393,7 @@ (declare (not safe)) (_g854931_))) (if (gx#stx-pair/null? _tl8601194_) - (let ((___splice4203242033_ + (let ((___splice4413644137_ (gx#syntax-split-splice _tl8601194_ '0))) @@ -1413,16 +1401,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4203242033_ + ___splice4413644137_ '1))) (_target917968_ (let () (declare (not safe)) (##vector-ref - ___splice4203242033_ + ___splice4413644137_ '0)))) (if (gx#stx-null? _tl919971_) - (___match4213242133_ + (___match4423644237_ _e8591177_ _hd8581181_ _tl8571184_ @@ -1432,7 +1420,7 @@ _e8851059_ _hd8841063_ _tl8831066_ - ___splice4203242033_ + ___splice4413644137_ _target917968_ _tl919971_) (let () @@ -1442,7 +1430,7 @@ (declare (not safe)) (_g854931_)))))) (if (gx#stx-pair/null? _tl8601194_) - (let ((___splice4203242033_ + (let ((___splice4413644137_ (gx#syntax-split-splice _tl8601194_ '0))) @@ -1450,16 +1438,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4203242033_ + ___splice4413644137_ '1))) (_target917968_ (let () (declare (not safe)) (##vector-ref - ___splice4203242033_ + ___splice4413644137_ '0)))) (if (gx#stx-null? _tl919971_) - (___match4213242133_ + (___match4423644237_ _e8591177_ _hd8581181_ _tl8571184_ @@ -1469,7 +1457,7 @@ _e8851059_ _hd8841063_ _tl8831066_ - ___splice4203242033_ + ___splice4413644137_ _target917968_ _tl919971_) (let () @@ -1477,22 +1465,22 @@ (_g854931_))))) (let () (declare (not safe)) (_g854931_)))) (if (gx#stx-pair/null? _tl8601194_) - (let ((___splice4203242033_ + (let ((___splice4413644137_ (gx#syntax-split-splice _tl8601194_ '0))) (let ((_tl919971_ (let () (declare (not safe)) (##vector-ref - ___splice4203242033_ + ___splice4413644137_ '1))) (_target917968_ (let () (declare (not safe)) (##vector-ref - ___splice4203242033_ + ___splice4413644137_ '0)))) (if (gx#stx-null? _tl919971_) - (___match4213242133_ + (___match4423644237_ _e8591177_ _hd8581181_ _tl8571184_ @@ -1502,7 +1490,7 @@ _e8851059_ _hd8841063_ _tl8831066_ - ___splice4203242033_ + ___splice4413644137_ _target917968_ _tl919971_) (let () @@ -1510,18 +1498,18 @@ (_g854931_))))) (let () (declare (not safe)) (_g854931_)))) (if (gx#stx-pair/null? _tl8601194_) - (let ((___splice4203242033_ + (let ((___splice4413644137_ (gx#syntax-split-splice _tl8601194_ '0))) (let ((_tl919971_ (let () (declare (not safe)) - (##vector-ref ___splice4203242033_ '1))) + (##vector-ref ___splice4413644137_ '1))) (_target917968_ (let () (declare (not safe)) - (##vector-ref ___splice4203242033_ '0)))) + (##vector-ref ___splice4413644137_ '0)))) (if (gx#stx-null? _tl919971_) - (___match4213242133_ + (___match4423644237_ _e8591177_ _hd8581181_ _tl8571184_ @@ -1531,24 +1519,24 @@ _e8851059_ _hd8841063_ _tl8831066_ - ___splice4203242033_ + ___splice4413644137_ _target917968_ _tl919971_) (let () (declare (not safe)) (_g854931_))))) (let () (declare (not safe)) (_g854931_)))))) (if (gx#stx-pair/null? _tl8601194_) - (let ((___splice4203242033_ + (let ((___splice4413644137_ (gx#syntax-split-splice _tl8601194_ '0))) (let ((_tl919971_ (let () (declare (not safe)) - (##vector-ref ___splice4203242033_ '1))) + (##vector-ref ___splice4413644137_ '1))) (_target917968_ (let () (declare (not safe)) - (##vector-ref ___splice4203242033_ '0)))) + (##vector-ref ___splice4413644137_ '0)))) (if (gx#stx-null? _tl919971_) - (___match4213242133_ + (___match4423644237_ _e8591177_ _hd8581181_ _tl8571184_ @@ -1558,7 +1546,7 @@ _e8851059_ _hd8841063_ _tl8831066_ - ___splice4203242033_ + ___splice4413644137_ _target917968_ _tl919971_) (let () (declare (not safe)) (_g854931_))))) @@ -1566,7 +1554,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _tl8601194_) - (let ((___splice4203242033_ + (let ((___splice4413644137_ (gx#syntax-split-splice _tl8601194_ '0))) @@ -1575,18 +1563,18 @@ (declare (not safe)) (##vector-ref - ___splice4203242033_ + ___splice4413644137_ '1))) (_target917968_ (let () (declare (not safe)) (##vector-ref - ___splice4203242033_ + ___splice4413644137_ '0)))) (if (gx#stx-null? _tl919971_) - (___match4213242133_ + (___match4423644237_ _e8591177_ _hd8581181_ _tl8571184_ @@ -1596,7 +1584,7 @@ _e8851059_ _hd8841063_ _tl8831066_ - ___splice4203242033_ + ___splice4413644137_ _target917968_ _tl919971_) (let () @@ -1654,39 +1642,39 @@ (##cdr _e12741307_)))) (if (gx#stx-null? _tl12721314_) ((lambda (_L1317_ _L1319_) - (let ((__tmp47645 + (let ((__tmp49738 (gx#datum->syntax '#f 'stx-wrap-source)) - (__tmp47637 - (let ((__tmp47642 - (let ((__tmp47644 + (__tmp49730 + (let ((__tmp49735 + (let ((__tmp49737 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax)) - (__tmp47643 + (__tmp49736 (let () (declare (not safe)) (cons _L1317_ '())))) (declare (not safe)) - (cons __tmp47644 __tmp47643))) - (__tmp47638 - (let ((__tmp47639 - (let ((__tmp47641 + (cons __tmp49737 __tmp49736))) + (__tmp49731 + (let ((__tmp49732 + (let ((__tmp49734 (gx#datum->syntax '#f 'stx-source)) - (__tmp47640 + (__tmp49733 (let () (declare (not safe)) (cons _L1319_ '())))) (declare (not safe)) - (cons __tmp47641 __tmp47640)))) + (cons __tmp49734 __tmp49733)))) (declare (not safe)) - (cons __tmp47639 '())))) + (cons __tmp49732 '())))) (declare (not safe)) - (cons __tmp47642 __tmp47638)))) + (cons __tmp49735 __tmp49731)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47645 - __tmp47637))) + (cons __tmp49738 + __tmp49730))) _hd12731311_ _hd12701301_) (_g12621280_ _g12631284_)))) diff --git a/src/bootstrap/gerbil/core__3.scm b/src/bootstrap/gerbil/core__3.scm index b2326ed45..deb4675d8 100644 --- a/src/bootstrap/gerbil/core__3.scm +++ b/src/bootstrap/gerbil/core__3.scm @@ -1,22 +1,22 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$$[1]#_g47742_| + (define |gerbil/core$$[1]#_g49823_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g47743_| + (define |gerbil/core$$[1]#_g49824_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g47826_| + (define |gerbil/core$$[1]#_g49901_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g47827_| + (define |gerbil/core$$[1]#_g49902_| (##structure gx#syntax-quote::t 'else @@ -66,37 +66,37 @@ (declare (not safe)) (##cdr _e13581400_)))) (if (gx#stx-pair/null? _tl13561407_) - (let ((_g47646_ + (let ((_g49739_ (gx#syntax-split-splice _tl13561407_ '0))) (begin - (let ((_g47647_ + (let ((_g49740_ (let () (declare (not safe)) (if (##values? - _g47646_) + _g49739_) (##vector-length - _g47646_) + _g49739_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g47647_ 2))) - (error "Context expects 2 values" _g47647_))) + (##fx= _g49740_ 2))) + (error "Context expects 2 values" _g49740_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target13591410_ (let () (declare (not safe)) (##vector-ref - _g47646_ + _g49739_ 0))) (_tl13611413_ (let () (declare (not safe)) (##vector-ref - _g47646_ + _g49739_ 1)))) (if (gx#stx-null? _tl13611413_) @@ -123,37 +123,35 @@ (reverse _clauses13661423_))) ((lambda (_L1440_ _L1442_ _L1443_) (if (gx#identifier? _L1443_) - (let ((__tmp47655 + (let ((__tmp49747 (gx#datum->syntax '#f 'define-syntax)) - (__tmp47648 - (let ((__tmp47649 - (let ((__tmp47650 - (let ((__tmp47654 + (__tmp49741 + (let ((__tmp49742 + (let ((__tmp49743 + (let ((__tmp49746 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax-rules)) - (__tmp47651 - (let ((__tmp47652 - (let ((__tmp47653 - (lambda (_g14651468_ _g14661471_) + (__tmp49744 + (let ((__tmp49745 + (foldr (lambda (_g14651468_ _g14661471_) (let () (declare (not safe)) - (cons _g14651468_ - _g14661471_))))) - (declare (not safe)) - (foldr1 __tmp47653 '() _L1440_)))) + (cons _g14651468_ _g14661471_))) + '() + _L1440_))) (declare (not safe)) - (cons _L1442_ __tmp47652)))) + (cons _L1442_ __tmp49745)))) (declare (not safe)) - (cons __tmp47654 __tmp47651)))) + (cons __tmp49746 __tmp49744)))) (declare (not safe)) - (cons __tmp47650 '())))) + (cons __tmp49743 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1443_ __tmp47649)))) + (cons _L1443_ __tmp49742)))) (declare (not safe)) - (cons __tmp47655 __tmp47648)) + (cons __tmp49747 __tmp49741)) (_g13451373_ _g13461377_))) _clauses13671436_ _hd13571404_ @@ -168,56 +166,55 @@ (_g13441474_ _$stx1341_)))) (define |gerbil/core$$[:0:]#defsyntax%| (lambda (_$stx1479_) - (let* ((___stx4213542136_ _$stx1479_) + (let* ((___stx4423944240_ _$stx1479_) (_g14841523_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4213542136_)))) - (let ((___kont4213842139_ + ___stx4423944240_)))) + (let ((___kont4424244243_ (lambda (_L1645_ _L1647_ _L1648_) - (let ((__tmp47663 (gx#datum->syntax '#f 'define-syntax)) - (__tmp47656 - (let ((__tmp47657 - (let ((__tmp47658 - (let ((__tmp47662 + (let ((__tmp49754 (gx#datum->syntax '#f 'define-syntax)) + (__tmp49748 + (let ((__tmp49749 + (let ((__tmp49750 + (let ((__tmp49753 (gx#datum->syntax '#f 'lambda%)) - (__tmp47659 - (let ((__tmp47660 - (let ((__tmp47661 - (lambda (_g16671670_ + (__tmp49751 + (let ((__tmp49752 + (foldr (lambda (_g16671670_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g16681673_) (let () (declare (not safe)) - (cons _g16671670_ _g16681673_))))) - (declare (not safe)) - (foldr1 __tmp47661 '() _L1645_)))) + (cons _g16671670_ _g16681673_))) + '() + _L1645_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1647_ __tmp47660)))) + (cons _L1647_ __tmp49752)))) (declare (not safe)) - (cons __tmp47662 __tmp47659)))) + (cons __tmp49753 __tmp49751)))) (declare (not safe)) - (cons __tmp47658 '())))) + (cons __tmp49750 '())))) (declare (not safe)) - (cons _L1648_ __tmp47657)))) + (cons _L1648_ __tmp49749)))) (declare (not safe)) - (cons __tmp47663 __tmp47656)))) - (___kont4214242143_ + (cons __tmp49754 __tmp49748)))) + (___kont4424644247_ (lambda (_L1560_ _L1562_) - (let ((__tmp47666 (gx#datum->syntax '#f 'define-syntax)) - (__tmp47664 - (let ((__tmp47665 + (let ((__tmp49757 (gx#datum->syntax '#f 'define-syntax)) + (__tmp49755 + (let ((__tmp49756 (let () (declare (not safe)) (cons _L1560_ '())))) (declare (not safe)) - (cons _L1562_ __tmp47665)))) + (cons _L1562_ __tmp49756)))) (declare (not safe)) - (cons __tmp47666 __tmp47664))))) - (let* ((___match4219042191_ + (cons __tmp49757 __tmp49755))))) + (let* ((___match4429444295_ (lambda (_e15111530_ _hd15101534_ _tl15091537_ @@ -229,9 +226,9 @@ _tl15151557_) (let ((_L1560_ _hd15161554_) (_L1562_ _hd15131544_)) (if (gx#identifier? _L1562_) - (___kont4214242143_ _L1560_ _L1562_) + (___kont4424644247_ _L1560_ _L1562_) (let () (declare (not safe)) (_g14841523_)))))) - (___match4218242183_ + (___match4428644287_ (lambda (_e15111530_ _hd15101534_ _tl15091537_ @@ -249,7 +246,7 @@ (declare (not safe)) (##car _e15171550_)))) (if (gx#stx-null? _tl15151557_) - (___match4219042191_ + (___match4429444295_ _e15111530_ _hd15101534_ _tl15091537_ @@ -263,7 +260,7 @@ (declare (not safe)) (_g14841523_))))) (let () (declare (not safe)) (_g14841523_))))) - (___match4217042171_ + (___match4427444275_ (lambda (_e14911585_ _hd14901589_ _tl14891592_ @@ -273,7 +270,7 @@ _e14971605_ _hd14961609_ _tl14951612_ - ___splice4214042141_ + ___splice4424444245_ _target14981615_ _tl15001618_) (letrec ((_loop15011621_ @@ -301,11 +298,11 @@ (_L1647_ _tl14951612_) (_L1648_ _hd14961609_)) (if (gx#identifier? _L1648_) - (___kont4213842139_ + (___kont4424244243_ _L1645_ _L1647_ _L1648_) - (___match4218242183_ + (___match4428644287_ _e14911585_ _hd14901589_ _tl14891592_ @@ -313,8 +310,8 @@ _hd14931599_ _tl14921602_)))))))) (_loop15011621_ _target14981615_ '()))))) - (if (gx#stx-pair? ___stx4213542136_) - (let ((_e14911585_ (gx#syntax-e ___stx4213542136_))) + (if (gx#stx-pair? ___stx4423944240_) + (let ((_e14911585_ (gx#syntax-e ___stx4423944240_))) (let ((_tl14891592_ (let () (declare (not safe)) (##cdr _e14911585_))) (_hd14901589_ @@ -341,7 +338,7 @@ (declare (not safe)) (##car _e14971605_)))) (if (gx#stx-pair/null? _tl14921602_) - (let ((___splice4214042141_ + (let ((___splice4424444245_ (gx#syntax-split-splice _tl14921602_ '0))) @@ -349,16 +346,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4214042141_ + ___splice4424444245_ '1))) (_target14981615_ (let () (declare (not safe)) (##vector-ref - ___splice4214042141_ + ___splice4424444245_ '0)))) (if (gx#stx-null? _tl15001618_) - (___match4217042171_ + (___match4427444275_ _e14911585_ _hd14901589_ _tl14891592_ @@ -368,7 +365,7 @@ _e14971605_ _hd14961609_ _tl14951612_ - ___splice4214042141_ + ___splice4424444245_ _target14981615_ _tl15001618_) (if (gx#stx-pair? @@ -384,7 +381,7 @@ (_hd15161554_ (let () (declare (not safe)) (##car _e15171550_)))) (if (gx#stx-null? _tl15151557_) - (___match4219042191_ + (___match4429444295_ _e14911585_ _hd14901589_ _tl14891592_ @@ -411,7 +408,7 @@ (##car _e15171550_)))) (if (gx#stx-null? _tl15151557_) - (___match4219042191_ + (___match4429444295_ _e14911585_ _hd14901589_ _tl14891592_ @@ -439,7 +436,7 @@ (declare (not safe)) (##car _e15171550_)))) (if (gx#stx-null? _tl15151557_) - (___match4219042191_ + (___match4429444295_ _e14911585_ _hd14901589_ _tl14891592_ @@ -500,22 +497,22 @@ (##cdr _e16971730_)))) (if (gx#stx-null? _tl16951737_) ((lambda (_L1740_ _L1742_) - (let ((__tmp47669 + (let ((__tmp49760 (gx#datum->syntax '#f 'define-alias)) - (__tmp47667 - (let ((__tmp47668 + (__tmp49758 + (let ((__tmp49759 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L1740_ '())))) (declare (not safe)) - (cons _L1742_ __tmp47668)))) + (cons _L1742_ __tmp49759)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47669 - __tmp47667))) + (cons __tmp49760 + __tmp49758))) _hd16961734_ _hd16931724_) (_g16851703_ _g16861707_)))) @@ -525,64 +522,63 @@ (_g16841758_ _$stx1681_)))) (define |gerbil/core$$[:0:]#define| (lambda (_$stx1762_) - (let* ((___stx4219342194_ _$stx1762_) + (let* ((___stx4429744298_ _$stx1762_) (_g17671806_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4219342194_)))) - (let ((___kont4219642197_ + ___stx4429744298_)))) + (let ((___kont4430044301_ (lambda (_L1928_ _L1930_ _L1931_) - (let ((__tmp47678 (gx#datum->syntax '#f 'define-values)) - (__tmp47670 - (let ((__tmp47677 + (let ((__tmp49768 (gx#datum->syntax '#f 'define-values)) + (__tmp49761 + (let ((__tmp49767 (let () (declare (not safe)) (cons _L1931_ '()))) - (__tmp47671 - (let ((__tmp47672 - (let ((__tmp47676 + (__tmp49762 + (let ((__tmp49763 + (let ((__tmp49766 (gx#datum->syntax '#f 'lambda%)) - (__tmp47673 - (let ((__tmp47674 - (let ((__tmp47675 - (lambda (_g19501953_ + (__tmp49764 + (let ((__tmp49765 + (foldr (lambda (_g19501953_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g19511956_) (let () (declare (not safe)) - (cons _g19501953_ _g19511956_))))) - (declare (not safe)) - (foldr1 __tmp47675 '() _L1928_)))) + (cons _g19501953_ _g19511956_))) + '() + _L1928_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1930_ __tmp47674)))) + (cons _L1930_ __tmp49765)))) (declare (not safe)) - (cons __tmp47676 __tmp47673)))) + (cons __tmp49766 __tmp49764)))) (declare (not safe)) - (cons __tmp47672 '())))) + (cons __tmp49763 '())))) (declare (not safe)) - (cons __tmp47677 __tmp47671)))) + (cons __tmp49767 __tmp49762)))) (declare (not safe)) - (cons __tmp47678 __tmp47670)))) - (___kont4220042201_ + (cons __tmp49768 __tmp49761)))) + (___kont4430444305_ (lambda (_L1843_ _L1845_) - (let ((__tmp47682 (gx#datum->syntax '#f 'define-values)) - (__tmp47679 - (let ((__tmp47681 + (let ((__tmp49772 (gx#datum->syntax '#f 'define-values)) + (__tmp49769 + (let ((__tmp49771 (let () (declare (not safe)) (cons _L1845_ '()))) - (__tmp47680 + (__tmp49770 (let () (declare (not safe)) (cons _L1843_ '())))) (declare (not safe)) - (cons __tmp47681 __tmp47680)))) + (cons __tmp49771 __tmp49770)))) (declare (not safe)) - (cons __tmp47682 __tmp47679))))) - (let* ((___match4224842249_ + (cons __tmp49772 __tmp49769))))) + (let* ((___match4435244353_ (lambda (_e17941813_ _hd17931817_ _tl17921820_ @@ -594,9 +590,9 @@ _tl17981840_) (let ((_L1843_ _hd17991837_) (_L1845_ _hd17961827_)) (if (gx#identifier? _L1845_) - (___kont4220042201_ _L1843_ _L1845_) + (___kont4430444305_ _L1843_ _L1845_) (let () (declare (not safe)) (_g17671806_)))))) - (___match4224042241_ + (___match4434444345_ (lambda (_e17941813_ _hd17931817_ _tl17921820_ @@ -614,7 +610,7 @@ (declare (not safe)) (##car _e18001833_)))) (if (gx#stx-null? _tl17981840_) - (___match4224842249_ + (___match4435244353_ _e17941813_ _hd17931817_ _tl17921820_ @@ -628,7 +624,7 @@ (declare (not safe)) (_g17671806_))))) (let () (declare (not safe)) (_g17671806_))))) - (___match4222842229_ + (___match4433244333_ (lambda (_e17741868_ _hd17731872_ _tl17721875_ @@ -638,7 +634,7 @@ _e17801888_ _hd17791892_ _tl17781895_ - ___splice4219842199_ + ___splice4430244303_ _target17811898_ _tl17831901_) (letrec ((_loop17841904_ @@ -666,11 +662,11 @@ (_L1930_ _tl17781895_) (_L1931_ _hd17791892_)) (if (gx#identifier? _L1931_) - (___kont4219642197_ + (___kont4430044301_ _L1928_ _L1930_ _L1931_) - (___match4224042241_ + (___match4434444345_ _e17741868_ _hd17731872_ _tl17721875_ @@ -678,8 +674,8 @@ _hd17761882_ _tl17751885_)))))))) (_loop17841904_ _target17811898_ '()))))) - (if (gx#stx-pair? ___stx4219342194_) - (let ((_e17741868_ (gx#syntax-e ___stx4219342194_))) + (if (gx#stx-pair? ___stx4429744298_) + (let ((_e17741868_ (gx#syntax-e ___stx4429744298_))) (let ((_tl17721875_ (let () (declare (not safe)) (##cdr _e17741868_))) (_hd17731872_ @@ -706,7 +702,7 @@ (declare (not safe)) (##car _e17801888_)))) (if (gx#stx-pair/null? _tl17751885_) - (let ((___splice4219842199_ + (let ((___splice4430244303_ (gx#syntax-split-splice _tl17751885_ '0))) @@ -714,16 +710,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4219842199_ + ___splice4430244303_ '1))) (_target17811898_ (let () (declare (not safe)) (##vector-ref - ___splice4219842199_ + ___splice4430244303_ '0)))) (if (gx#stx-null? _tl17831901_) - (___match4222842229_ + (___match4433244333_ _e17741868_ _hd17731872_ _tl17721875_ @@ -733,7 +729,7 @@ _e17801888_ _hd17791892_ _tl17781895_ - ___splice4219842199_ + ___splice4430244303_ _target17811898_ _tl17831901_) (if (gx#stx-pair? @@ -749,7 +745,7 @@ (_hd17991837_ (let () (declare (not safe)) (##car _e18001833_)))) (if (gx#stx-null? _tl17981840_) - (___match4224842249_ + (___match4435244353_ _e17741868_ _hd17731872_ _tl17721875_ @@ -776,7 +772,7 @@ (##car _e18001833_)))) (if (gx#stx-null? _tl17981840_) - (___match4224842249_ + (___match4435244353_ _e17741868_ _hd17731872_ _tl17721875_ @@ -804,7 +800,7 @@ (declare (not safe)) (##car _e18001833_)))) (if (gx#stx-null? _tl17981840_) - (___match4224842249_ + (___match4435244353_ _e17741868_ _hd17731872_ _tl17721875_ @@ -824,62 +820,60 @@ (let () (declare (not safe)) (_g17671806_)))))))) (define |gerbil/core$$[:0:]#let*-values| (lambda (_$stx1964_) - (let* ((___stx4225142252_ _$stx1964_) + (let* ((___stx4435544356_ _$stx1964_) (_g19692014_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4225142252_)))) - (let ((___kont4225442255_ + ___stx4435544356_)))) + (let ((___kont4435844359_ (lambda (_L2172_) - (let ((__tmp47686 (gx#datum->syntax '#f 'let-values)) - (__tmp47683 - (let ((__tmp47684 - (let ((__tmp47685 - (lambda (_g21882191_ _g21892194_) + (let ((__tmp49775 (gx#datum->syntax '#f 'let-values)) + (__tmp49773 + (let ((__tmp49774 + (foldr (lambda (_g21882191_ _g21892194_) (let () (declare (not safe)) - (cons _g21882191_ _g21892194_))))) - (declare (not safe)) - (foldr1 __tmp47685 '() _L2172_)))) + (cons _g21882191_ _g21892194_))) + '() + _L2172_))) (declare (not safe)) - (cons '() __tmp47684)))) + (cons '() __tmp49774)))) (declare (not safe)) - (cons __tmp47686 __tmp47683)))) - (___kont4225842259_ + (cons __tmp49775 __tmp49773)))) + (___kont4436244363_ (lambda (_L2081_ _L2083_ _L2084_ _L2085_) - (let ((__tmp47694 (gx#datum->syntax '#f 'let-values)) - (__tmp47687 - (let ((__tmp47693 + (let ((__tmp49782 (gx#datum->syntax '#f 'let-values)) + (__tmp49776 + (let ((__tmp49781 (let () (declare (not safe)) (cons _L2084_ '()))) - (__tmp47688 - (let ((__tmp47689 - (let ((__tmp47690 - (let ((__tmp47691 - (let ((__tmp47692 - (lambda (_g21062109_ + (__tmp49777 + (let ((__tmp49778 + (let ((__tmp49779 + (let ((__tmp49780 + (foldr (lambda (_g21062109_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g21072112_) (let () (declare (not safe)) - (cons _g21062109_ _g21072112_))))) - (declare (not safe)) - (foldr1 __tmp47692 '() _L2081_)))) + (cons _g21062109_ _g21072112_))) + '() + _L2081_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L2083_ __tmp47691)))) + (cons _L2083_ __tmp49780)))) (declare (not safe)) - (cons _L2085_ __tmp47690)))) + (cons _L2085_ __tmp49779)))) (declare (not safe)) - (cons __tmp47689 '())))) + (cons __tmp49778 '())))) (declare (not safe)) - (cons __tmp47693 __tmp47688)))) + (cons __tmp49781 __tmp49777)))) (declare (not safe)) - (cons __tmp47694 __tmp47687))))) - (let* ((___match4231042311_ + (cons __tmp49782 __tmp49776))))) + (let* ((___match4441444415_ (lambda (_e19932021_ _hd19922025_ _tl19912028_ @@ -889,7 +883,7 @@ _e19992041_ _hd19982045_ _tl19972048_ - ___splice4226042261_ + ___splice4436444365_ _target20002051_ _tl20022054_) (letrec ((_loop20032057_ @@ -913,20 +907,20 @@ _body20072064_))))) (let ((_body20082077_ (reverse _body20072064_))) - (___kont4225842259_ + (___kont4436244363_ _body20082077_ _tl19972048_ _hd19982045_ _hd19922025_)))))) (_loop20032057_ _target20002051_ '())))) - (___match4228442285_ + (___match4438844389_ (lambda (_e19742122_ _hd19732126_ _tl19722129_ _e19772132_ _hd19762136_ _tl19752139_ - ___splice4225642257_ + ___splice4436044361_ _target19782142_ _tl19802145_) (letrec ((_loop19812148_ @@ -950,11 +944,11 @@ _body19852155_))))) (let ((_body19862168_ (reverse _body19852155_))) - (___kont4225442255_ + (___kont4435844359_ _body19862168_)))))) (_loop19812148_ _target19782142_ '()))))) - (if (gx#stx-pair? ___stx4225142252_) - (let ((_e19742122_ (gx#syntax-e ___stx4225142252_))) + (if (gx#stx-pair? ___stx4435544356_) + (let ((_e19742122_ (gx#syntax-e ___stx4435544356_))) (let ((_tl19722129_ (let () (declare (not safe)) (##cdr _e19742122_))) (_hd19732126_ @@ -971,7 +965,7 @@ (##car _e19772132_)))) (if (gx#stx-null? _hd19762136_) (if (gx#stx-pair/null? _tl19752139_) - (let ((___splice4225642257_ + (let ((___splice4436044361_ (gx#syntax-split-splice _tl19752139_ '0))) @@ -979,23 +973,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4225642257_ + ___splice4436044361_ '1))) (_target19782142_ (let () (declare (not safe)) (##vector-ref - ___splice4225642257_ + ___splice4436044361_ '0)))) (if (gx#stx-null? _tl19802145_) - (___match4228442285_ + (___match4438844389_ _e19742122_ _hd19732126_ _tl19722129_ _e19772132_ _hd19762136_ _tl19752139_ - ___splice4225642257_ + ___splice4436044361_ _target19782142_ _tl19802145_) (let () @@ -1016,7 +1010,7 @@ (declare (not safe)) (##car _e19992041_)))) (if (gx#stx-pair/null? _tl19752139_) - (let ((___splice4226042261_ + (let ((___splice4436444365_ (gx#syntax-split-splice _tl19752139_ '0))) @@ -1024,17 +1018,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4226042261_ + ___splice4436444365_ '1))) (_target20002051_ (let () (declare (not safe)) (##vector-ref - ___splice4226042261_ + ___splice4436444365_ '0)))) (if (gx#stx-null? _tl20022054_) - (___match4231042311_ + (___match4441444415_ _e19742122_ _hd19732126_ _tl19722129_ @@ -1044,7 +1038,7 @@ _e19992041_ _hd19982045_ _tl19972048_ - ___splice4226042261_ + ___splice4436444365_ _target20002051_ _tl20022054_) (let () @@ -1060,109 +1054,103 @@ (let () (declare (not safe)) (_g19692014_)))))))) (define |gerbil/core$$[:0:]#let| (lambda (_$stx2203_) - (let* ((___stx4231342314_ _$stx2203_) + (let* ((___stx4441744418_ _$stx2203_) (_g22082272_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4231342314_)))) - (let ((___kont4231642317_ + ___stx4441744418_)))) + (let ((___kont4442044421_ (lambda (_L2478_ _L2480_ _L2481_ _L2482_ _L2483_) - (let ((__tmp47697 - (let ((__tmp47711 + (let ((__tmp49784 + (let ((__tmp49796 (gx#datum->syntax '#f 'letrec-values)) - (__tmp47698 - (let ((__tmp47700 - (let ((__tmp47701 - (let ((__tmp47710 + (__tmp49785 + (let ((__tmp49787 + (let ((__tmp49788 + (let ((__tmp49795 (let () (declare (not safe)) (cons _L2483_ '()))) - (__tmp47702 - (let ((__tmp47703 - (let ((__tmp47709 + (__tmp49789 + (let ((__tmp49790 + (let ((__tmp49794 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda%)) - (__tmp47704 - (let ((__tmp47707 - (let ((__tmp47708 - (lambda (_g25122515_ _g25132518_) + (__tmp49791 + (let ((__tmp49793 + (foldr (lambda (_g25122515_ _g25132518_) (let () (declare (not safe)) - (cons _g25122515_ - _g25132518_))))) - (declare (not safe)) - (foldr1 __tmp47708 _L2480_ _L2482_))) - (__tmp47705 - (let ((__tmp47706 - (lambda (_g25102521_ _g25112524_) + (cons _g25122515_ _g25132518_))) + _L2480_ + _L2482_)) + (__tmp49792 + (foldr (lambda (_g25102521_ _g25112524_) (let () (declare (not safe)) - (cons _g25102521_ - _g25112524_))))) - (declare (not safe)) - (foldr1 __tmp47706 '() _L2478_)))) + (cons _g25102521_ _g25112524_))) + '() + _L2478_))) (declare (not safe)) - (cons __tmp47707 __tmp47705)))) + (cons __tmp49793 __tmp49792)))) (declare (not safe)) - (cons __tmp47709 __tmp47704)))) + (cons __tmp49794 __tmp49791)))) (declare (not safe)) - (cons __tmp47703 '())))) + (cons __tmp49790 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47710 - __tmp47702)))) + (cons __tmp49795 + __tmp49789)))) (declare (not safe)) - (cons __tmp47701 '()))) - (__tmp47699 + (cons __tmp49788 '()))) + (__tmp49786 (let () (declare (not safe)) (cons _L2483_ '())))) (declare (not safe)) - (cons __tmp47700 __tmp47699)))) + (cons __tmp49787 __tmp49786)))) (declare (not safe)) - (cons __tmp47711 __tmp47698))) - (__tmp47695 - (let ((__tmp47696 - (lambda (_g25082527_ _g25092530_) + (cons __tmp49796 __tmp49785))) + (__tmp49783 + (foldr (lambda (_g25082527_ _g25092530_) (let () (declare (not safe)) - (cons _g25082527_ _g25092530_))))) - (declare (not safe)) - (foldr1 __tmp47696 '() _L2481_)))) + (cons _g25082527_ _g25092530_))) + '() + _L2481_))) (declare (not safe)) - (cons __tmp47697 __tmp47695)))) - (___kont4232242323_ + (cons __tmp49784 __tmp49783)))) + (___kont4442644427_ (lambda (_L2329_ _L2331_) - (let ((__tmp47717 (gx#datum->syntax '#f '~let)) - (__tmp47712 - (let ((__tmp47716 (gx#datum->syntax '#f 'let-values)) - (__tmp47713 - (let ((__tmp47714 - (let ((__tmp47715 - (lambda (_g23482351_ + (let ((__tmp49801 (gx#datum->syntax '#f '~let)) + (__tmp49797 + (let ((__tmp49800 (gx#datum->syntax '#f 'let-values)) + (__tmp49798 + (let ((__tmp49799 + (foldr (lambda (_g23482351_ _g23492354_) (let () (declare (not safe)) (cons _g23482351_ - _g23492354_))))) - (declare (not safe)) - (foldr1 __tmp47715 '() _L2329_)))) + _g23492354_))) + '() + _L2329_))) (declare (not safe)) - (cons _L2331_ __tmp47714)))) + (cons _L2331_ __tmp49799)))) (declare (not safe)) - (cons __tmp47716 __tmp47713)))) + (cons __tmp49800 __tmp49798)))) (declare (not safe)) - (cons __tmp47717 __tmp47712))))) - (let* ((___match4237042371_ + (cons __tmp49801 __tmp49797))))) + (let* ((___match4447444475_ (lambda (_e22542279_ _hd22532283_ _tl22522286_ _e22572289_ _hd22562293_ _tl22552296_ - ___splice4232442325_ + ___splice4442844429_ _target22582299_ _tl22602302_) (letrec ((_loop22612305_ @@ -1186,11 +1174,11 @@ _body22652312_))))) (let ((_body22662325_ (reverse _body22652312_))) - (___kont4232242323_ + (___kont4442644427_ _body22662325_ _hd22562293_)))))) (_loop22612305_ _target22582299_ '())))) - (___match4236242363_ + (___match4446644467_ (lambda (_e22542279_ _hd22532283_ _tl22522286_ @@ -1198,32 +1186,32 @@ _hd22562293_ _tl22552296_) (if (gx#stx-pair/null? _tl22552296_) - (let ((___splice4232442325_ + (let ((___splice4442844429_ (gx#syntax-split-splice _tl22552296_ '0))) (let ((_tl22602302_ (let () (declare (not safe)) - (##vector-ref ___splice4232442325_ '1))) + (##vector-ref ___splice4442844429_ '1))) (_target22582299_ (let () (declare (not safe)) - (##vector-ref ___splice4232442325_ '0)))) + (##vector-ref ___splice4442844429_ '0)))) (if (gx#stx-null? _tl22602302_) - (___match4237042371_ + (___match4447444475_ _e22542279_ _hd22532283_ _tl22522286_ _e22572289_ _hd22562293_ _tl22552296_ - ___splice4232442325_ + ___splice4442844429_ _target22582299_ _tl22602302_) (let () (declare (not safe)) (_g22082272_))))) (let () (declare (not safe)) (_g22082272_))))) - (___match4235042351_ + (___match4445444455_ (lambda (_e22172364_ _hd22162368_ _tl22152371_ @@ -1233,7 +1221,7 @@ _e22232384_ _hd22222388_ _tl22212391_ - ___splice4231842319_ + ___splice4442244423_ _target22242394_ _tl22262397_) (letrec ((_loop22272400_ @@ -1284,14 +1272,14 @@ (let () (declare (not safe)) (cons _hd22362426_ _var22322409_))) - (___match4236242363_ + (___match4446644467_ _e22172364_ _hd22162368_ _tl22152371_ _e22202374_ _hd22192378_ _tl22182381_)))) - (___match4236242363_ + (___match4446644467_ _e22172364_ _hd22162368_ _tl22152371_ @@ -1299,7 +1287,7 @@ _hd22192378_ _tl22182381_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match4236242363_ + (___match4446644467_ _e22172364_ _hd22162368_ _tl22152371_ @@ -1311,7 +1299,7 @@ (_arg22332442_ (reverse _arg22312407_))) (if (gx#stx-pair/null? _tl22212391_) - (let ((___splice4232042321_ + (let ((___splice4442444425_ (gx#syntax-split-splice _tl22212391_ '0))) @@ -1319,13 +1307,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice4232042321_ + ___splice4442444425_ '1))) (_target22412448_ (let () (declare (not safe)) (##vector-ref - ___splice4232042321_ + ___splice4442444425_ '0)))) (if (gx#stx-null? _tl22432451_) (letrec ((_loop22442454_ @@ -1354,13 +1342,13 @@ (_L2482_ _var22342445_) (_L2483_ _hd22192378_)) (if (gx#identifier? _L2483_) - (___kont4231642317_ + (___kont4442044421_ _L2478_ _L2480_ _L2481_ _L2482_ _L2483_) - (___match4236242363_ + (___match4446644467_ _e22172364_ _hd22162368_ _tl22152371_ @@ -1369,14 +1357,14 @@ _tl22182381_)))))))) (_loop22442454_ _target22412448_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match4236242363_ + (___match4446644467_ _e22172364_ _hd22162368_ _tl22152371_ _e22202374_ _hd22192378_ _tl22182381_)))) - (___match4236242363_ + (___match4446644467_ _e22172364_ _hd22162368_ _tl22152371_ @@ -1384,8 +1372,8 @@ _hd22192378_ _tl22182381_))))))) (_loop22272400_ _target22242394_ '() '()))))) - (if (gx#stx-pair? ___stx4231342314_) - (let ((_e22172364_ (gx#syntax-e ___stx4231342314_))) + (if (gx#stx-pair? ___stx4441744418_) + (let ((_e22172364_ (gx#syntax-e ___stx4441744418_))) (let ((_tl22152371_ (let () (declare (not safe)) (##cdr _e22172364_))) (_hd22162368_ @@ -1412,7 +1400,7 @@ (declare (not safe)) (##car _e22232384_)))) (if (gx#stx-pair/null? _hd22222388_) - (let ((___splice4231842319_ + (let ((___splice4442244423_ (gx#syntax-split-splice _hd22222388_ '0))) @@ -1420,15 +1408,15 @@ (let () (declare (not safe)) (##vector-ref - ___splice4231842319_ + ___splice4442244423_ '1))) (_target22242394_ (let () (declare (not safe)) (##vector-ref - ___splice4231842319_ + ___splice4442244423_ '0)))) - (___match4235042351_ + (___match4445444455_ _e22172364_ _hd22162368_ _tl22152371_ @@ -1438,11 +1426,11 @@ _e22232384_ _hd22222388_ _tl22212391_ - ___splice4231842319_ + ___splice4442244423_ _target22242394_ _tl22262397_))) (if (gx#stx-pair/null? _tl22182381_) - (let ((___splice4232442325_ + (let ((___splice4442844429_ (gx#syntax-split-splice _tl22182381_ '0))) @@ -1450,24 +1438,24 @@ (let () (declare (not safe)) (##vector-ref - ___splice4232442325_ + ___splice4442844429_ '1))) (_target22582299_ (let () (declare (not safe)) (##vector-ref - ___splice4232442325_ + ___splice4442844429_ '0)))) (if (gx#stx-null? _tl22602302_) - (___match4237042371_ + (___match4447444475_ _e22172364_ _hd22162368_ _tl22152371_ _e22202374_ _hd22192378_ _tl22182381_ - ___splice4232442325_ + ___splice4442844429_ _target22582299_ _tl22602302_) (let () @@ -1477,7 +1465,7 @@ (declare (not safe)) (_g22082272_)))))) (if (gx#stx-pair/null? _tl22182381_) - (let ((___splice4232442325_ + (let ((___splice4442844429_ (gx#syntax-split-splice _tl22182381_ '0))) @@ -1485,23 +1473,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4232442325_ + ___splice4442844429_ '1))) (_target22582299_ (let () (declare (not safe)) (##vector-ref - ___splice4232442325_ + ___splice4442844429_ '0)))) (if (gx#stx-null? _tl22602302_) - (___match4237042371_ + (___match4447444475_ _e22172364_ _hd22162368_ _tl22152371_ _e22202374_ _hd22192378_ _tl22182381_ - ___splice4232442325_ + ___splice4442844429_ _target22582299_ _tl22602302_) (let () @@ -1543,31 +1531,31 @@ (declare (not safe)) (##cdr _e25532585_)))) (if (gx#stx-pair/null? _tl25512592_) - (let ((_g47718_ + (let ((_g49802_ (gx#syntax-split-splice _tl25512592_ '0))) (begin - (let ((_g47719_ + (let ((_g49803_ (let () (declare (not safe)) - (if (##values? _g47718_) + (if (##values? _g49802_) (##vector-length - _g47718_) + _g49802_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47719_ 2))) + (##fx= _g49803_ 2))) (error "Context expects 2 values" - _g47719_))) + _g49803_))) (let ((_target25542595_ (let () (declare (not safe)) - (##vector-ref _g47718_ 0))) + (##vector-ref _g49802_ 0))) (_tl25562598_ (let () (declare (not safe)) - (##vector-ref _g47718_ 1)))) + (##vector-ref _g49802_ 1)))) (if (gx#stx-null? _tl25562598_) (letrec ((_loop25572601_ (lambda (_hd25552605_ @@ -1590,30 +1578,27 @@ (cons _lp-hd25592615_ _body25612608_))))) (let ((_body25622621_ (reverse _body25612608_))) ((lambda (_L2625_ _L2627_) - (let ((__tmp47725 (gx#datum->syntax '#f '~let)) - (__tmp47720 - (let ((__tmp47724 + (let ((__tmp49808 (gx#datum->syntax '#f '~let)) + (__tmp49804 + (let ((__tmp49807 (gx#datum->syntax '#f 'let*-values)) - (__tmp47721 - (let ((__tmp47722 - (let ((__tmp47723 - (lambda (_g26442647_ + (__tmp49805 + (let ((__tmp49806 + (foldr (lambda (_g26442647_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g26452650_) (let () (declare (not safe)) - (cons _g26442647_ _g26452650_))))) + (cons _g26442647_ _g26452650_))) + '() + _L2625_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (foldr1 __tmp47723 - '() - _L2625_)))) (declare (not safe)) - (cons _L2627_ __tmp47722)))) + (cons _L2627_ __tmp49806)))) (declare (not safe)) - (cons __tmp47724 __tmp47721)))) + (cons __tmp49807 __tmp49805)))) (declare (not safe)) - (cons __tmp47725 __tmp47720))) + (cons __tmp49808 __tmp49804))) _body25622621_ _hd25522589_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1656,31 +1641,31 @@ (declare (not safe)) (##cdr _e26712703_)))) (if (gx#stx-pair/null? _tl26692710_) - (let ((_g47726_ + (let ((_g49809_ (gx#syntax-split-splice _tl26692710_ '0))) (begin - (let ((_g47727_ + (let ((_g49810_ (let () (declare (not safe)) - (if (##values? _g47726_) + (if (##values? _g49809_) (##vector-length - _g47726_) + _g49809_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47727_ 2))) + (##fx= _g49810_ 2))) (error "Context expects 2 values" - _g47727_))) + _g49810_))) (let ((_target26722713_ (let () (declare (not safe)) - (##vector-ref _g47726_ 0))) + (##vector-ref _g49809_ 0))) (_tl26742716_ (let () (declare (not safe)) - (##vector-ref _g47726_ 1)))) + (##vector-ref _g49809_ 1)))) (if (gx#stx-null? _tl26742716_) (letrec ((_loop26752719_ (lambda (_hd26732723_ @@ -1703,32 +1688,29 @@ (cons _lp-hd26772733_ _body26792726_))))) (let ((_body26802739_ (reverse _body26792726_))) ((lambda (_L2743_ _L2745_) - (let ((__tmp47733 (gx#datum->syntax '#f '~let)) - (__tmp47728 - (let ((__tmp47732 + (let ((__tmp49815 (gx#datum->syntax '#f '~let)) + (__tmp49811 + (let ((__tmp49814 (gx#datum->syntax '#f 'letrec-values)) - (__tmp47729 - (let ((__tmp47730 - (let ((__tmp47731 - (lambda (_g27622765_ + (__tmp49812 + (let ((__tmp49813 + (foldr (lambda (_g27622765_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g27632768_) (let () (declare (not safe)) - (cons _g27622765_ _g27632768_))))) + (cons _g27622765_ _g27632768_))) + '() + _L2743_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (foldr1 __tmp47731 - '() - _L2743_)))) (declare (not safe)) - (cons _L2745_ __tmp47730)))) + (cons _L2745_ __tmp49813)))) (declare (not safe)) - (cons __tmp47732 __tmp47729)))) + (cons __tmp49814 __tmp49812)))) (declare (not safe)) - (cons __tmp47733 __tmp47728))) + (cons __tmp49815 __tmp49811))) _body26802739_ _hd26702707_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1771,31 +1753,31 @@ (declare (not safe)) (##cdr _e27892821_)))) (if (gx#stx-pair/null? _tl27872828_) - (let ((_g47734_ + (let ((_g49816_ (gx#syntax-split-splice _tl27872828_ '0))) (begin - (let ((_g47735_ + (let ((_g49817_ (let () (declare (not safe)) - (if (##values? _g47734_) + (if (##values? _g49816_) (##vector-length - _g47734_) + _g49816_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47735_ 2))) + (##fx= _g49817_ 2))) (error "Context expects 2 values" - _g47735_))) + _g49817_))) (let ((_target27902831_ (let () (declare (not safe)) - (##vector-ref _g47734_ 0))) + (##vector-ref _g49816_ 0))) (_tl27922834_ (let () (declare (not safe)) - (##vector-ref _g47734_ 1)))) + (##vector-ref _g49816_ 1)))) (if (gx#stx-null? _tl27922834_) (letrec ((_loop27932837_ (lambda (_hd27912841_ @@ -1818,32 +1800,29 @@ (cons _lp-hd27952851_ _body27972844_))))) (let ((_body27982857_ (reverse _body27972844_))) ((lambda (_L2861_ _L2863_) - (let ((__tmp47741 (gx#datum->syntax '#f '~let)) - (__tmp47736 - (let ((__tmp47740 + (let ((__tmp49822 (gx#datum->syntax '#f '~let)) + (__tmp49818 + (let ((__tmp49821 (gx#datum->syntax '#f 'letrec*-values)) - (__tmp47737 - (let ((__tmp47738 - (let ((__tmp47739 - (lambda (_g28802883_ + (__tmp49819 + (let ((__tmp49820 + (foldr (lambda (_g28802883_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g28812886_) (let () (declare (not safe)) - (cons _g28802883_ _g28812886_))))) + (cons _g28802883_ _g28812886_))) + '() + _L2861_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (foldr1 __tmp47739 - '() - _L2861_)))) (declare (not safe)) - (cons _L2863_ __tmp47738)))) + (cons _L2863_ __tmp49820)))) (declare (not safe)) - (cons __tmp47740 __tmp47737)))) + (cons __tmp49821 __tmp49819)))) (declare (not safe)) - (cons __tmp47741 __tmp47736))) + (cons __tmp49822 __tmp49818))) _body27982857_ _hd27882825_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1859,21 +1838,21 @@ (lambda (_stx2894_) (letrec ((_let-head?2897_ (lambda (_x3377_) - (let* ((___stx4237342374_ _x3377_) + (let* ((___stx4447744478_ _x3377_) (_g33813392_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4237342374_)))) - (let ((___kont4237642377_ + ___stx4447744478_)))) + (let ((___kont4448044481_ (lambda (_L3420_) (gx#stx-andmap gx#identifier? _L3420_))) - (___kont4237842379_ + (___kont4448244483_ (lambda () (gx#identifier? _x3377_)))) - (if (gx#stx-pair? ___stx4237342374_) + (if (gx#stx-pair? ___stx4447744478_) (let ((_e33863410_ - (gx#syntax-e ___stx4237342374_))) + (gx#syntax-e ___stx4447744478_))) (let ((_tl33843417_ (let () (declare (not safe)) @@ -1884,26 +1863,26 @@ (##car _e33863410_)))) (if (gx#identifier? _hd33853414_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47742_| + |gerbil/core$$[1]#_g49823_| _hd33853414_) - (___kont4237642377_ _tl33843417_) - (___kont4237842379_)) - (___kont4237842379_)))) - (___kont4237842379_)))))) + (___kont4448044481_ _tl33843417_) + (___kont4448244483_)) + (___kont4448244483_)))) + (___kont4448244483_)))))) (_let-head2899_ (lambda (_x3317_) - (let* ((___stx4239342394_ _x3317_) + (let* ((___stx4449744498_ _x3317_) (_g33213332_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4239342394_)))) - (let ((___kont4239642397_ (lambda (_L3360_) _L3360_)) - (___kont4239842399_ (lambda () (list _x3317_)))) - (if (gx#stx-pair? ___stx4239342394_) + ___stx4449744498_)))) + (let ((___kont4450044501_ (lambda (_L3360_) _L3360_)) + (___kont4450244503_ (lambda () (list _x3317_)))) + (if (gx#stx-pair? ___stx4449744498_) (let ((_e33263350_ - (gx#syntax-e ___stx4239342394_))) + (gx#syntax-e ___stx4449744498_))) (let ((_tl33243357_ (let () (declare (not safe)) @@ -1914,40 +1893,40 @@ (##car _e33263350_)))) (if (gx#identifier? _hd33253354_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47743_| + |gerbil/core$$[1]#_g49824_| _hd33253354_) - (___kont4239642397_ _tl33243357_) - (___kont4239842399_)) - (___kont4239842399_)))) - (___kont4239842399_))))))) - (let* ((___stx4241342414_ _stx2894_) + (___kont4450044501_ _tl33243357_) + (___kont4450244503_)) + (___kont4450244503_)))) + (___kont4450244503_))))))) + (let* ((___stx4451744518_ _stx2894_) (_g29022968_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4241342414_)))) - (let ((___kont4241642417_ + ___stx4451744518_)))) + (let ((___kont4452044521_ (lambda (_L3286_ _L3288_ _L3289_ _L3290_ _L3291_) - (let ((__tmp47744 - (let ((__tmp47745 - (let ((__tmp47746 - (let ((__tmp47747 - (let ((__tmp47748 + (let ((__tmp49825 + (let ((__tmp49826 + (let ((__tmp49827 + (let ((__tmp49828 + (let ((__tmp49829 (let () (declare (not safe)) (cons _L3288_ '())))) (declare (not safe)) - (cons _L3289_ __tmp47748)))) + (cons _L3289_ __tmp49829)))) (declare (not safe)) - (cons __tmp47747 '())))) + (cons __tmp49828 '())))) (declare (not safe)) - (cons __tmp47746 _L3286_)))) + (cons __tmp49827 _L3286_)))) (declare (not safe)) - (cons _L3290_ __tmp47745)))) + (cons _L3290_ __tmp49826)))) (declare (not safe)) - (cons _L3291_ __tmp47744)))) - (___kont4241842419_ + (cons _L3291_ __tmp49825)))) + (___kont4452244523_ (lambda (_L3089_ _L3091_ _L3092_ _L3093_) (let* ((_g31283145_ (lambda (_g31293141_) @@ -1958,30 +1937,30 @@ (_g31273217_ (lambda (_g31293149_) (if (gx#stx-pair/null? _g31293149_) - (let ((_g47749_ + (let ((_g49830_ (gx#syntax-split-splice _g31293149_ '0))) (begin - (let ((_g47750_ + (let ((_g49831_ (let () (declare (not safe)) - (if (##values? _g47749_) - (##vector-length _g47749_) + (if (##values? _g49830_) + (##vector-length _g49830_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47750_ 2))) + (##fx= _g49831_ 2))) (error "Context expects 2 values" - _g47750_))) + _g49831_))) (let ((_target31313152_ (let () (declare (not safe)) - (##vector-ref _g47749_ 0))) + (##vector-ref _g49830_ 0))) (_tl31333155_ (let () (declare (not safe)) - (##vector-ref _g47749_ 1)))) + (##vector-ref _g49830_ 1)))) (if (gx#stx-null? _tl31333155_) (letrec ((_loop31343158_ (lambda (_hd31323162_ @@ -2007,46 +1986,42 @@ (let ((_hd-bind31393178_ (reverse _hd-bind31383165_))) ((lambda (_L3182_) (let () - (let ((__tmp47751 - (let ((__tmp47754 + (let ((__tmp49832 + (let ((__tmp49834 (begin (gx#syntax-check-splice-targets _L3091_ _L3182_) - (let ((__tmp47755 - (lambda (_g31993203_ + (foldr (lambda (_g31993203_ _g32003206_ _g32013208_) - (let ((__tmp47756 - (let ((__tmp47757 + (let ((__tmp49835 + (let ((__tmp49836 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _g31993203_ '())))) (declare (not safe)) - (cons _g32003206_ __tmp47757)))) + (cons _g32003206_ __tmp49836)))) (declare (not safe)) - (cons __tmp47756 _g32013208_))))) + (cons __tmp49835 _g32013208_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (foldr2 __tmp47755 - '() - _L3091_ - _L3182_)))) - (__tmp47752 - (let ((__tmp47753 - (lambda (_g31973211_ + '() + _L3091_ + _L3182_))) + (__tmp49833 + (foldr (lambda (_g31973211_ _g31983214_) (let () (declare (not safe)) (cons _g31973211_ - _g31983214_))))) - (declare (not safe)) - (foldr1 __tmp47753 '() _L3089_)))) + _g31983214_))) + '() + _L3089_))) (declare (not safe)) - (cons __tmp47754 __tmp47752)))) + (cons __tmp49834 __tmp49833)))) (declare (not safe)) - (cons _L3093_ __tmp47751)))) + (cons _L3093_ __tmp49832)))) _hd-bind31393178_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop31343158_ @@ -2057,14 +2032,13 @@ (_g31273217_ (gx#stx-map _let-head2899_ - (let ((__tmp47758 - (lambda (_g32203223_ _g32213226_) + (foldr (lambda (_g32203223_ _g32213226_) (let () (declare (not safe)) - (cons _g32203223_ _g32213226_))))) - (declare (not safe)) - (foldr1 __tmp47758 '() _L3092_)))))))) - (let* ((___match4248242483_ + (cons _g32203223_ _g32213226_))) + '() + _L3092_))))))) + (let* ((___match4458644587_ (lambda (_e29302975_ _hd29292979_ _tl29282982_ @@ -2074,7 +2048,7 @@ _e29362995_ _hd29352999_ _tl29343002_ - ___splice4242042421_ + ___splice4452444525_ _target29373005_ _tl29393008_) (letrec ((_loop29403011_ @@ -2134,7 +2108,7 @@ (_e29463053_ (reverse _e29443018_))) (if (gx#stx-pair/null? _tl29343002_) - (let ((___splice4242242423_ + (let ((___splice4452644527_ (gx#syntax-split-splice _tl29343002_ '0))) @@ -2142,13 +2116,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice4242242423_ + ___splice4452644527_ '1))) (_target29543059_ (let () (declare (not safe)) (##vector-ref - ___splice4242242423_ + ___splice4452644527_ '0)))) (if (gx#stx-null? _tl29563062_) @@ -2178,15 +2152,14 @@ (_L3093_ _hd29322989_)) (if (gx#stx-andmap _let-head?2897_ - (let ((__tmp47759 - (lambda (_g31193122_ _g31203125_) + (foldr (lambda (_g31193122_ _g31203125_) (let () (declare (not safe)) (cons _g31193122_ - _g31203125_))))) - (declare (not safe)) - (foldr1 __tmp47759 '() _L3092_))) - (___kont4241842419_ + _g31203125_))) + '() + _L3092_)) + (___kont4452244523_ _L3089_ _L3091_ _L3092_ @@ -2201,7 +2174,7 @@ (declare (not safe)) (_g29022968_)))))))) (_loop29403011_ _target29373005_ '() '())))) - (___match4245642457_ + (___match4456044561_ (lambda (_e29113236_ _hd29103240_ _tl29093243_ @@ -2223,14 +2196,14 @@ (_L3290_ _hd29133250_) (_L3291_ _hd29103240_)) (if (_let-head?2897_ _L3289_) - (___kont4241642417_ + (___kont4452044521_ _L3286_ _L3288_ _L3289_ _L3290_ _L3291_) (if (gx#stx-pair/null? _hd29163260_) - (let ((___splice4242042421_ + (let ((___splice4452444525_ (gx#syntax-split-splice _hd29163260_ '0))) @@ -2238,16 +2211,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4242042421_ + ___splice4452444525_ '1))) (_target29373005_ (let () (declare (not safe)) (##vector-ref - ___splice4242042421_ + ___splice4452444525_ '0)))) (if (gx#stx-null? _tl29393008_) - (___match4248242483_ + (___match4458644587_ _e29113236_ _hd29103240_ _tl29093243_ @@ -2257,7 +2230,7 @@ _e29173256_ _hd29163260_ _tl29153263_ - ___splice4242042421_ + ___splice4452444525_ _target29373005_ _tl29393008_) (let () @@ -2266,8 +2239,8 @@ (let () (declare (not safe)) (_g29022968_)))))))) - (if (gx#stx-pair? ___stx4241342414_) - (let ((_e29113236_ (gx#syntax-e ___stx4241342414_))) + (if (gx#stx-pair? ___stx4451744518_) + (let ((_e29113236_ (gx#syntax-e ___stx4451744518_))) (let ((_tl29093243_ (let () (declare (not safe)) (##cdr _e29113236_))) (_hd29103240_ @@ -2319,7 +2292,7 @@ (_hd29223280_ (let () (declare (not safe)) (##car _e29233276_)))) (if (gx#stx-null? _tl29213283_) - (___match4245642457_ + (___match4456044561_ _e29113236_ _hd29103240_ _tl29093243_ @@ -2336,18 +2309,18 @@ _hd29223280_ _tl29213283_) (if (gx#stx-pair/null? _hd29163260_) - (let ((___splice4242042421_ + (let ((___splice4452444525_ (gx#syntax-split-splice _hd29163260_ '0))) (let ((_tl29393008_ (let () (declare (not safe)) - (##vector-ref ___splice4242042421_ '1))) + (##vector-ref ___splice4452444525_ '1))) (_target29373005_ (let () (declare (not safe)) - (##vector-ref ___splice4242042421_ '0)))) + (##vector-ref ___splice4452444525_ '0)))) (if (gx#stx-null? _tl29393008_) - (___match4248242483_ + (___match4458644587_ _e29113236_ _hd29103240_ _tl29093243_ @@ -2357,7 +2330,7 @@ _e29173256_ _hd29163260_ _tl29153263_ - ___splice4242042421_ + ___splice4452444525_ _target29373005_ _tl29393008_) (let () (declare (not safe)) (_g29022968_))))) @@ -2365,7 +2338,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd29163260_) - (let ((___splice4242042421_ + (let ((___splice4452444525_ (gx#syntax-split-splice _hd29163260_ '0))) @@ -2373,13 +2346,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref ___splice4242042421_ '1))) + (##vector-ref ___splice4452444525_ '1))) (_target29373005_ (let () (declare (not safe)) - (##vector-ref ___splice4242042421_ '0)))) + (##vector-ref ___splice4452444525_ '0)))) (if (gx#stx-null? _tl29393008_) - (___match4248242483_ + (___match4458644587_ _e29113236_ _hd29103240_ _tl29093243_ @@ -2389,7 +2362,7 @@ _e29173256_ _hd29163260_ _tl29153263_ - ___splice4242042421_ + ___splice4452444525_ _target29373005_ _tl29393008_) (let () (declare (not safe)) (_g29022968_))))) @@ -2397,7 +2370,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd29163260_) - (let ((___splice4242042421_ + (let ((___splice4452444525_ (gx#syntax-split-splice _hd29163260_ '0))) @@ -2405,17 +2378,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4242042421_ + ___splice4452444525_ '1))) (_target29373005_ (let () (declare (not safe)) (##vector-ref - ___splice4242042421_ + ___splice4452444525_ '0)))) (if (gx#stx-null? _tl29393008_) - (___match4248242483_ + (___match4458644587_ _e29113236_ _hd29103240_ _tl29093243_ @@ -2425,7 +2398,7 @@ _e29173256_ _hd29163260_ _tl29153263_ - ___splice4242042421_ + ___splice4452444525_ _target29373005_ _tl29393008_) (let () @@ -2441,42 +2414,42 @@ (let () (declare (not safe)) (_g29022968_))))))))) (define |gerbil/core$$[:0:]#and| (lambda (_$stx3440_) - (let* ((___stx4248542486_ _$stx3440_) + (let* ((___stx4458944590_ _$stx3440_) (_g34463472_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4248542486_)))) - (let ((___kont4248842489_ (lambda () '#t)) - (___kont4249042491_ (lambda (_L3544_) _L3544_)) - (___kont4249242493_ + ___stx4458944590_)))) + (let ((___kont4459244593_ (lambda () '#t)) + (___kont4459444595_ (lambda (_L3544_) _L3544_)) + (___kont4459644597_ (lambda (_L3499_ _L3501_ _L3502_) - (let ((__tmp47764 (gx#datum->syntax '#f 'if)) - (__tmp47760 - (let ((__tmp47761 - (let ((__tmp47763 + (let ((__tmp49841 (gx#datum->syntax '#f 'if)) + (__tmp49837 + (let ((__tmp49838 + (let ((__tmp49840 (let () (declare (not safe)) (cons _L3502_ _L3499_))) - (__tmp47762 + (__tmp49839 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp47763 __tmp47762)))) + (cons __tmp49840 __tmp49839)))) (declare (not safe)) - (cons _L3501_ __tmp47761)))) + (cons _L3501_ __tmp49838)))) (declare (not safe)) - (cons __tmp47764 __tmp47760))))) - (if (gx#stx-pair? ___stx4248542486_) - (let ((_e34503564_ (gx#syntax-e ___stx4248542486_))) + (cons __tmp49841 __tmp49837))))) + (if (gx#stx-pair? ___stx4458944590_) + (let ((_e34503564_ (gx#syntax-e ___stx4458944590_))) (let ((_tl34483571_ (let () (declare (not safe)) (##cdr _e34503564_))) (_hd34493568_ (let () (declare (not safe)) (##car _e34503564_)))) (if (gx#stx-null? _tl34483571_) - (___kont4248842489_) + (___kont4459244593_) (if (gx#stx-pair? _tl34483571_) (let ((_e34573534_ (gx#syntax-e _tl34483571_))) (let ((_tl34553541_ @@ -2488,8 +2461,8 @@ (declare (not safe)) (##car _e34573534_)))) (if (gx#stx-null? _tl34553541_) - (___kont4249042491_ _hd34563538_) - (___kont4249242493_ + (___kont4459444595_ _hd34563538_) + (___kont4459644597_ _tl34553541_ _hd34563538_ _hd34493568_)))) @@ -2497,71 +2470,71 @@ (let () (declare (not safe)) (_g34463472_))))))) (define |gerbil/core$$[:0:]#or| (lambda (_$stx3582_) - (let* ((___stx4253142532_ _$stx3582_) + (let* ((___stx4463544636_ _$stx3582_) (_g35883614_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4253142532_)))) - (let ((___kont4253442535_ (lambda () '#f)) - (___kont4253642537_ (lambda (_L3686_) _L3686_)) - (___kont4253842539_ + ___stx4463544636_)))) + (let ((___kont4463844639_ (lambda () '#f)) + (___kont4464044641_ (lambda (_L3686_) _L3686_)) + (___kont4464244643_ (lambda (_L3641_ _L3643_ _L3644_) - (let ((__tmp47778 (gx#datum->syntax '#f 'let)) - (__tmp47765 - (let ((__tmp47775 - (let ((__tmp47777 (gx#datum->syntax '#f '$e)) - (__tmp47776 + (let ((__tmp49855 (gx#datum->syntax '#f 'let)) + (__tmp49842 + (let ((__tmp49852 + (let ((__tmp49854 (gx#datum->syntax '#f '$e)) + (__tmp49853 (let () (declare (not safe)) (cons _L3643_ '())))) (declare (not safe)) - (cons __tmp47777 __tmp47776))) - (__tmp47766 - (let ((__tmp47767 - (let ((__tmp47774 + (cons __tmp49854 __tmp49853))) + (__tmp49843 + (let ((__tmp49844 + (let ((__tmp49851 (gx#datum->syntax '#f 'if)) - (__tmp47768 - (let ((__tmp47773 + (__tmp49845 + (let ((__tmp49850 (gx#datum->syntax '#f '$e)) - (__tmp47769 - (let ((__tmp47772 + (__tmp49846 + (let ((__tmp49849 (gx#datum->syntax '#f '$e)) - (__tmp47770 - (let ((__tmp47771 + (__tmp49847 + (let ((__tmp49848 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L3644_ _L3641_)))) (declare (not safe)) - (cons __tmp47771 '())))) + (cons __tmp49848 '())))) (declare (not safe)) - (cons __tmp47772 __tmp47770)))) + (cons __tmp49849 __tmp49847)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47773 - __tmp47769)))) + (cons __tmp49850 + __tmp49846)))) (declare (not safe)) - (cons __tmp47774 __tmp47768)))) + (cons __tmp49851 __tmp49845)))) (declare (not safe)) - (cons __tmp47767 '())))) + (cons __tmp49844 '())))) (declare (not safe)) - (cons __tmp47775 __tmp47766)))) + (cons __tmp49852 __tmp49843)))) (declare (not safe)) - (cons __tmp47778 __tmp47765))))) - (if (gx#stx-pair? ___stx4253142532_) - (let ((_e35923706_ (gx#syntax-e ___stx4253142532_))) + (cons __tmp49855 __tmp49842))))) + (if (gx#stx-pair? ___stx4463544636_) + (let ((_e35923706_ (gx#syntax-e ___stx4463544636_))) (let ((_tl35903713_ (let () (declare (not safe)) (##cdr _e35923706_))) (_hd35913710_ (let () (declare (not safe)) (##car _e35923706_)))) (if (gx#stx-null? _tl35903713_) - (___kont4253442535_) + (___kont4463844639_) (if (gx#stx-pair? _tl35903713_) (let ((_e35993676_ (gx#syntax-e _tl35903713_))) (let ((_tl35973683_ @@ -2573,8 +2546,8 @@ (declare (not safe)) (##car _e35993676_)))) (if (gx#stx-null? _tl35973683_) - (___kont4253642537_ _hd35983680_) - (___kont4253842539_ + (___kont4464044641_ _hd35983680_) + (___kont4464244643_ _tl35973683_ _hd35983680_ _hd35913710_)))) @@ -2582,181 +2555,177 @@ (let () (declare (not safe)) (_g35883614_))))))) (define |gerbil/core$$[:0:]#cond| (lambda (_$stx3724_) - (let* ((___stx4257742578_ _$stx3724_) + (let* ((___stx4468144682_ _$stx3724_) (_g37333824_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4257742578_)))) - (let ((___kont4258042581_ (lambda () '#!void)) - (___kont4258242583_ + ___stx4468144682_)))) + (let ((___kont4468444685_ (lambda () '#!void)) + (___kont4468644687_ (lambda (_L4171_) - (let ((__tmp47784 (gx#datum->syntax '#f '%#expression)) - (__tmp47779 - (let ((__tmp47780 - (let ((__tmp47783 + (let ((__tmp49860 (gx#datum->syntax '#f '%#expression)) + (__tmp49856 + (let ((__tmp49857 + (let ((__tmp49859 (gx#datum->syntax '#f 'begin)) - (__tmp47781 - (let ((__tmp47782 - (lambda (_g41904193_ + (__tmp49858 + (foldr (lambda (_g41904193_ _g41914196_) (let () (declare (not safe)) (cons _g41904193_ - _g41914196_))))) - (declare (not safe)) - (foldr1 __tmp47782 '() _L4171_)))) + _g41914196_))) + '() + _L4171_))) (declare (not safe)) - (cons __tmp47783 __tmp47781)))) + (cons __tmp49859 __tmp49858)))) (declare (not safe)) - (cons __tmp47780 '())))) + (cons __tmp49857 '())))) (declare (not safe)) - (cons __tmp47784 __tmp47779)))) - (___kont4258642587_ + (cons __tmp49860 __tmp49856)))) + (___kont4469044691_ (lambda () - (let ((__tmp47786 (gx#datum->syntax '#f 'syntax-error)) - (__tmp47785 + (let ((__tmp49862 (gx#datum->syntax '#f 'syntax-error)) + (__tmp49861 (let () (declare (not safe)) (cons '"bad syntax; misplaced else" '())))) (declare (not safe)) - (cons __tmp47786 __tmp47785)))) - (___kont4258842589_ + (cons __tmp49862 __tmp49861)))) + (___kont4469244693_ (lambda (_L4044_ _L4046_ _L4047_) - (let ((__tmp47800 (gx#datum->syntax '#f 'let)) - (__tmp47787 - (let ((__tmp47797 - (let ((__tmp47799 (gx#datum->syntax '#f '$e)) - (__tmp47798 + (let ((__tmp49876 (gx#datum->syntax '#f 'let)) + (__tmp49863 + (let ((__tmp49873 + (let ((__tmp49875 (gx#datum->syntax '#f '$e)) + (__tmp49874 (let () (declare (not safe)) (cons _L4046_ '())))) (declare (not safe)) - (cons __tmp47799 __tmp47798))) - (__tmp47788 - (let ((__tmp47789 - (let ((__tmp47796 + (cons __tmp49875 __tmp49874))) + (__tmp49864 + (let ((__tmp49865 + (let ((__tmp49872 (gx#datum->syntax '#f 'if)) - (__tmp47790 - (let ((__tmp47795 + (__tmp49866 + (let ((__tmp49871 (gx#datum->syntax '#f '$e)) - (__tmp47791 - (let ((__tmp47794 + (__tmp49867 + (let ((__tmp49870 (gx#datum->syntax '#f '$e)) - (__tmp47792 - (let ((__tmp47793 + (__tmp49868 + (let ((__tmp49869 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L4047_ _L4044_)))) (declare (not safe)) - (cons __tmp47793 '())))) + (cons __tmp49869 '())))) (declare (not safe)) - (cons __tmp47794 __tmp47792)))) + (cons __tmp49870 __tmp49868)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47795 - __tmp47791)))) + (cons __tmp49871 + __tmp49867)))) (declare (not safe)) - (cons __tmp47796 __tmp47790)))) + (cons __tmp49872 __tmp49866)))) (declare (not safe)) - (cons __tmp47789 '())))) + (cons __tmp49865 '())))) (declare (not safe)) - (cons __tmp47797 __tmp47788)))) + (cons __tmp49873 __tmp49864)))) (declare (not safe)) - (cons __tmp47800 __tmp47787)))) - (___kont4259042591_ + (cons __tmp49876 __tmp49863)))) + (___kont4469444695_ (lambda (_L3982_ _L3984_ _L3985_ _L3986_) - (let ((__tmp47816 (gx#datum->syntax '#f 'let)) - (__tmp47801 - (let ((__tmp47813 - (let ((__tmp47815 (gx#datum->syntax '#f '$e)) - (__tmp47814 + (let ((__tmp49892 (gx#datum->syntax '#f 'let)) + (__tmp49877 + (let ((__tmp49889 + (let ((__tmp49891 (gx#datum->syntax '#f '$e)) + (__tmp49890 (let () (declare (not safe)) (cons _L3985_ '())))) (declare (not safe)) - (cons __tmp47815 __tmp47814))) - (__tmp47802 - (let ((__tmp47803 - (let ((__tmp47812 + (cons __tmp49891 __tmp49890))) + (__tmp49878 + (let ((__tmp49879 + (let ((__tmp49888 (gx#datum->syntax '#f 'if)) - (__tmp47804 - (let ((__tmp47811 + (__tmp49880 + (let ((__tmp49887 (gx#datum->syntax '#f '$e)) - (__tmp47805 - (let ((__tmp47808 - (let ((__tmp47809 + (__tmp49881 + (let ((__tmp49884 + (let ((__tmp49885 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47810 (gx#datum->syntax '#f '$e))) + (let ((__tmp49886 (gx#datum->syntax '#f '$e))) (declare (not safe)) - (cons __tmp47810 '())))) + (cons __tmp49886 '())))) (declare (not safe)) - (cons _L3984_ __tmp47809))) - (__tmp47806 - (let ((__tmp47807 + (cons _L3984_ __tmp49885))) + (__tmp49882 + (let ((__tmp49883 (let () (declare (not safe)) (cons _L3986_ _L3982_)))) (declare (not safe)) - (cons __tmp47807 '())))) + (cons __tmp49883 '())))) (declare (not safe)) - (cons __tmp47808 __tmp47806)))) + (cons __tmp49884 __tmp49882)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47811 - __tmp47805)))) + (cons __tmp49887 + __tmp49881)))) (declare (not safe)) - (cons __tmp47812 __tmp47804)))) + (cons __tmp49888 __tmp49880)))) (declare (not safe)) - (cons __tmp47803 '())))) + (cons __tmp49879 '())))) (declare (not safe)) - (cons __tmp47813 __tmp47802)))) + (cons __tmp49889 __tmp49878)))) (declare (not safe)) - (cons __tmp47816 __tmp47801)))) - (___kont4259242593_ + (cons __tmp49892 __tmp49877)))) + (___kont4469644697_ (lambda (_L3891_ _L3893_ _L3894_ _L3895_) - (let ((__tmp47825 (gx#datum->syntax '#f 'if)) - (__tmp47817 - (let ((__tmp47818 - (let ((__tmp47821 - (let ((__tmp47824 + (let ((__tmp49900 (gx#datum->syntax '#f 'if)) + (__tmp49893 + (let ((__tmp49894 + (let ((__tmp49897 + (let ((__tmp49899 (gx#datum->syntax '#f 'begin)) - (__tmp47822 - (let ((__tmp47823 - (lambda (_g39163919_ + (__tmp49898 + (foldr (lambda (_g39163919_ _g39173922_) (let () (declare (not safe)) (cons _g39163919_ - _g39173922_))))) - (declare (not safe)) - (foldr1 __tmp47823 - '() - _L3893_)))) + _g39173922_))) + '() + _L3893_))) (declare (not safe)) - (cons __tmp47824 __tmp47822))) - (__tmp47819 - (let ((__tmp47820 + (cons __tmp49899 __tmp49898))) + (__tmp49895 + (let ((__tmp49896 (let () (declare (not safe)) (cons _L3895_ _L3891_)))) (declare (not safe)) - (cons __tmp47820 '())))) + (cons __tmp49896 '())))) (declare (not safe)) - (cons __tmp47821 __tmp47819)))) + (cons __tmp49897 __tmp49895)))) (declare (not safe)) - (cons _L3894_ __tmp47818)))) + (cons _L3894_ __tmp49894)))) (declare (not safe)) - (cons __tmp47825 __tmp47817))))) - (let* ((___match4273842739_ + (cons __tmp49900 __tmp49893))))) + (let* ((___match4484244843_ (lambda (_e38033831_ _hd38023835_ _tl38013838_ @@ -2766,7 +2735,7 @@ _e38093851_ _hd38083855_ _tl38073858_ - ___splice4259442595_ + ___splice4469844699_ _target38103861_ _tl38123864_) (letrec ((_loop38133867_ @@ -2790,13 +2759,13 @@ _body38173874_))))) (let ((_body38183887_ (reverse _body38173874_))) - (___kont4259242593_ + (___kont4469644697_ _tl38043848_ _body38183887_ _hd38083855_ _hd38023835_)))))) (_loop38133867_ _target38103861_ '())))) - (___match4263442635_ + (___match4473844739_ (lambda (_e37414111_ _hd37404115_ _tl37394118_ @@ -2806,7 +2775,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4258442585_ + ___splice4468844689_ _target37484141_ _tl37504144_) (letrec ((_loop37514147_ @@ -2831,17 +2800,17 @@ (let ((_body37564167_ (reverse _body37554154_))) (if (gx#stx-null? _tl37424128_) - (___kont4258242583_ _body37564167_) - (___kont4258642587_))))))) + (___kont4468644687_ _body37564167_) + (___kont4469044691_))))))) (_loop37514147_ _target37484141_ '()))))) - (if (gx#stx-pair? ___stx4257742578_) - (let ((_e37374206_ (gx#syntax-e ___stx4257742578_))) + (if (gx#stx-pair? ___stx4468144682_) + (let ((_e37374206_ (gx#syntax-e ___stx4468144682_))) (let ((_tl37354213_ (let () (declare (not safe)) (##cdr _e37374206_))) (_hd37364210_ (let () (declare (not safe)) (##car _e37374206_)))) (if (gx#stx-null? _tl37354213_) - (___kont4258042581_) + (___kont4468444685_) (if (gx#stx-pair? _tl37354213_) (let ((_e37444121_ (gx#syntax-e _tl37354213_))) (let ((_tl37424128_ @@ -2865,11 +2834,11 @@ (##car _e37474131_)))) (if (gx#identifier? _hd37464135_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47827_| + |gerbil/core$$[1]#_g49902_| _hd37464135_) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4258442585_ + (let ((___splice4468844689_ (gx#syntax-split-splice _tl37454138_ '0))) @@ -2877,13 +2846,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice4258442585_ '1))) + (##vector-ref ___splice4468844689_ '1))) (_target37484141_ (let () (declare (not safe)) - (##vector-ref ___splice4258442585_ '0)))) + (##vector-ref ___splice4468844689_ '0)))) (if (gx#stx-null? _tl37504144_) - (___match4263442635_ + (___match4473844739_ _e37374206_ _hd37364210_ _tl37354213_ @@ -2893,15 +2862,15 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4258442585_ + ___splice4468844689_ _target37484141_ _tl37504144_) - (___kont4258642587_)))) - (___kont4258642587_)) + (___kont4469044691_)))) + (___kont4469044691_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? _tl37454138_) - (___kont4258842589_ + (___kont4469244693_ _tl37424128_ _hd37464135_ _hd37364210_) @@ -2916,7 +2885,7 @@ (let () (declare (not safe)) (##car _e37933962_)))) (if (gx#identifier? _hd37923966_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47826_| + |gerbil/core$$[1]#_g49901_| _hd37923966_) (if (gx#stx-pair? _tl37913969_) (let ((_e37963972_ @@ -2930,13 +2899,13 @@ (declare (not safe)) (##car _e37963972_)))) (if (gx#stx-null? _tl37943979_) - (___kont4259042591_ + (___kont4469444695_ _tl37424128_ _hd37953976_ _hd37464135_ _hd37364210_) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4259442595_ + (let ((___splice4469844699_ (gx#syntax-split-splice _tl37454138_ '0))) @@ -2944,17 +2913,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4259442595_ + ___splice4469844699_ '1))) (_target38103861_ (let () (declare (not safe)) (##vector-ref - ___splice4259442595_ + ___splice4469844699_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4273842739_ + (___match4484244843_ _e37374206_ _hd37364210_ _tl37354213_ @@ -2964,7 +2933,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4259442595_ + ___splice4469844699_ _target38103861_ _tl38123864_) (let () @@ -2974,7 +2943,7 @@ (declare (not safe)) (_g37333824_)))))) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4259442595_ + (let ((___splice4469844699_ (gx#syntax-split-splice _tl37454138_ '0))) @@ -2982,16 +2951,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4259442595_ + ___splice4469844699_ '1))) (_target38103861_ (let () (declare (not safe)) (##vector-ref - ___splice4259442595_ + ___splice4469844699_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4273842739_ + (___match4484244843_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3001,7 +2970,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4259442595_ + ___splice4469844699_ _target38103861_ _tl38123864_) (let () @@ -3011,7 +2980,7 @@ (declare (not safe)) (_g37333824_)))) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4259442595_ + (let ((___splice4469844699_ (gx#syntax-split-splice _tl37454138_ '0))) @@ -3019,16 +2988,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4259442595_ + ___splice4469844699_ '1))) (_target38103861_ (let () (declare (not safe)) (##vector-ref - ___splice4259442595_ + ___splice4469844699_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4273842739_ + (___match4484244843_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3038,7 +3007,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4259442595_ + ___splice4469844699_ _target38103861_ _tl38123864_) (let () @@ -3046,22 +3015,22 @@ (_g37333824_))))) (let () (declare (not safe)) (_g37333824_)))) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4259442595_ + (let ((___splice4469844699_ (gx#syntax-split-splice _tl37454138_ '0))) (let ((_tl38123864_ (let () (declare (not safe)) (##vector-ref - ___splice4259442595_ + ___splice4469844699_ '1))) (_target38103861_ (let () (declare (not safe)) (##vector-ref - ___splice4259442595_ + ___splice4469844699_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4273842739_ + (___match4484244843_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3071,7 +3040,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4259442595_ + ___splice4469844699_ _target38103861_ _tl38123864_) (let () @@ -3079,18 +3048,18 @@ (_g37333824_))))) (let () (declare (not safe)) (_g37333824_)))))) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4259442595_ + (let ((___splice4469844699_ (gx#syntax-split-splice _tl37454138_ '0))) (let ((_tl38123864_ (let () (declare (not safe)) - (##vector-ref ___splice4259442595_ '1))) + (##vector-ref ___splice4469844699_ '1))) (_target38103861_ (let () (declare (not safe)) - (##vector-ref ___splice4259442595_ '0)))) + (##vector-ref ___splice4469844699_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4273842739_ + (___match4484244843_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3100,14 +3069,14 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4259442595_ + ___splice4469844699_ _target38103861_ _tl38123864_) (let () (declare (not safe)) (_g37333824_))))) (let () (declare (not safe)) (_g37333824_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? _tl37454138_) - (___kont4258842589_ + (___kont4469244693_ _tl37424128_ _hd37464135_ _hd37364210_) @@ -3125,7 +3094,7 @@ (let () (declare (not safe)) (##car _e37933962_)))) (if (gx#identifier? _hd37923966_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47826_| + |gerbil/core$$[1]#_g49901_| _hd37923966_) (if (gx#stx-pair? _tl37913969_) (let ((_e37963972_ (gx#syntax-e _tl37913969_))) @@ -3138,13 +3107,13 @@ (declare (not safe)) (##car _e37963972_)))) (if (gx#stx-null? _tl37943979_) - (___kont4259042591_ + (___kont4469444695_ _tl37424128_ _hd37953976_ _hd37464135_ _hd37364210_) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4259442595_ + (let ((___splice4469844699_ (gx#syntax-split-splice _tl37454138_ '0))) @@ -3152,16 +3121,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4259442595_ + ___splice4469844699_ '1))) (_target38103861_ (let () (declare (not safe)) (##vector-ref - ___splice4259442595_ + ___splice4469844699_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4273842739_ + (___match4484244843_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3171,7 +3140,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4259442595_ + ___splice4469844699_ _target38103861_ _tl38123864_) (let () @@ -3181,7 +3150,7 @@ (declare (not safe)) (_g37333824_)))))) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4259442595_ + (let ((___splice4469844699_ (gx#syntax-split-splice _tl37454138_ '0))) @@ -3189,16 +3158,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4259442595_ + ___splice4469844699_ '1))) (_target38103861_ (let () (declare (not safe)) (##vector-ref - ___splice4259442595_ + ___splice4469844699_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4273842739_ + (___match4484244843_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3208,7 +3177,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4259442595_ + ___splice4469844699_ _target38103861_ _tl38123864_) (let () @@ -3216,22 +3185,22 @@ (_g37333824_))))) (let () (declare (not safe)) (_g37333824_)))) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4259442595_ + (let ((___splice4469844699_ (gx#syntax-split-splice _tl37454138_ '0))) (let ((_tl38123864_ (let () (declare (not safe)) (##vector-ref - ___splice4259442595_ + ___splice4469844699_ '1))) (_target38103861_ (let () (declare (not safe)) (##vector-ref - ___splice4259442595_ + ___splice4469844699_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4273842739_ + (___match4484244843_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3241,7 +3210,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4259442595_ + ___splice4469844699_ _target38103861_ _tl38123864_) (let () @@ -3249,18 +3218,18 @@ (_g37333824_))))) (let () (declare (not safe)) (_g37333824_)))) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4259442595_ + (let ((___splice4469844699_ (gx#syntax-split-splice _tl37454138_ '0))) (let ((_tl38123864_ (let () (declare (not safe)) - (##vector-ref ___splice4259442595_ '1))) + (##vector-ref ___splice4469844699_ '1))) (_target38103861_ (let () (declare (not safe)) - (##vector-ref ___splice4259442595_ '0)))) + (##vector-ref ___splice4469844699_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4273842739_ + (___match4484244843_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3270,7 +3239,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4259442595_ + ___splice4469844699_ _target38103861_ _tl38123864_) (let () @@ -3278,18 +3247,18 @@ (_g37333824_))))) (let () (declare (not safe)) (_g37333824_)))))) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4259442595_ + (let ((___splice4469844699_ (gx#syntax-split-splice _tl37454138_ '0))) (let ((_tl38123864_ (let () (declare (not safe)) - (##vector-ref ___splice4259442595_ '1))) + (##vector-ref ___splice4469844699_ '1))) (_target38103861_ (let () (declare (not safe)) - (##vector-ref ___splice4259442595_ '0)))) + (##vector-ref ___splice4469844699_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4273842739_ + (___match4484244843_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3299,7 +3268,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4259442595_ + ___splice4469844699_ _target38103861_ _tl38123864_) (let () (declare (not safe)) (_g37333824_))))) @@ -3341,31 +3310,31 @@ (declare (not safe)) (##cdr _e42394271_)))) (if (gx#stx-pair/null? _tl42374278_) - (let ((_g47828_ + (let ((_g49903_ (gx#syntax-split-splice _tl42374278_ '0))) (begin - (let ((_g47829_ + (let ((_g49904_ (let () (declare (not safe)) - (if (##values? _g47828_) + (if (##values? _g49903_) (##vector-length - _g47828_) + _g49903_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47829_ 2))) + (##fx= _g49904_ 2))) (error "Context expects 2 values" - _g47829_))) + _g49904_))) (let ((_target42404281_ (let () (declare (not safe)) - (##vector-ref _g47828_ 0))) + (##vector-ref _g49903_ 0))) (_tl42424284_ (let () (declare (not safe)) - (##vector-ref _g47828_ 1)))) + (##vector-ref _g49903_ 1)))) (if (gx#stx-null? _tl42424284_) (letrec ((_loop42434287_ (lambda (_hd42414291_ @@ -3388,38 +3357,37 @@ (cons _lp-hd42454301_ _expr42474294_))))) (let ((_expr42484307_ (reverse _expr42474294_))) ((lambda (_L4311_ _L4313_) - (let ((__tmp47837 (gx#datum->syntax '#f 'if)) - (__tmp47830 - (let ((__tmp47831 - (let ((__tmp47833 - (let ((__tmp47836 + (let ((__tmp49911 (gx#datum->syntax '#f 'if)) + (__tmp49905 + (let ((__tmp49906 + (let ((__tmp49908 + (let ((__tmp49910 (gx#datum->syntax '#f 'begin)) - (__tmp47834 - (let ((__tmp47835 - (lambda (_g43304333_ + (__tmp49909 + (foldr (lambda (_g43304333_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g43314336_) (let () (declare (not safe)) - (cons _g43304333_ _g43314336_))))) - (declare (not safe)) - (foldr1 __tmp47835 '() _L4311_)))) + (cons _g43304333_ _g43314336_))) + '() + _L4311_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47836 - __tmp47834))) - (__tmp47832 + (cons __tmp49910 + __tmp49909))) + (__tmp49907 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons __tmp47833 __tmp47832)))) + (cons __tmp49908 __tmp49907)))) (declare (not safe)) - (cons _L4313_ __tmp47831)))) + (cons _L4313_ __tmp49906)))) (declare (not safe)) - (cons __tmp47837 __tmp47830))) + (cons __tmp49911 __tmp49905))) _expr42484307_ _hd42384275_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3462,31 +3430,31 @@ (declare (not safe)) (##cdr _e43574389_)))) (if (gx#stx-pair/null? _tl43554396_) - (let ((_g47838_ + (let ((_g49912_ (gx#syntax-split-splice _tl43554396_ '0))) (begin - (let ((_g47839_ + (let ((_g49913_ (let () (declare (not safe)) - (if (##values? _g47838_) + (if (##values? _g49912_) (##vector-length - _g47838_) + _g49912_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47839_ 2))) + (##fx= _g49913_ 2))) (error "Context expects 2 values" - _g47839_))) + _g49913_))) (let ((_target43584399_ (let () (declare (not safe)) - (##vector-ref _g47838_ 0))) + (##vector-ref _g49912_ 0))) (_tl43604402_ (let () (declare (not safe)) - (##vector-ref _g47838_ 1)))) + (##vector-ref _g49912_ 1)))) (if (gx#stx-null? _tl43604402_) (letrec ((_loop43614405_ (lambda (_hd43594409_ @@ -3509,35 +3477,34 @@ (cons _lp-hd43634419_ _expr43654412_))))) (let ((_expr43664425_ (reverse _expr43654412_))) ((lambda (_L4429_ _L4431_) - (let ((__tmp47847 (gx#datum->syntax '#f 'if)) - (__tmp47840 - (let ((__tmp47841 - (let ((__tmp47842 - (let ((__tmp47843 - (let ((__tmp47846 + (let ((__tmp49920 (gx#datum->syntax '#f 'if)) + (__tmp49914 + (let ((__tmp49915 + (let ((__tmp49916 + (let ((__tmp49917 + (let ((__tmp49919 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin)) - (__tmp47844 - (let ((__tmp47845 - (lambda (_g44484451_ _g44494454_) + (__tmp49918 + (foldr (lambda (_g44484451_ _g44494454_) (let () (declare (not safe)) - (cons _g44484451_ _g44494454_))))) - (declare (not safe)) - (foldr1 __tmp47845 '() _L4429_)))) + (cons _g44484451_ _g44494454_))) + '() + _L4429_))) (declare (not safe)) - (cons __tmp47846 __tmp47844)))) + (cons __tmp49919 __tmp49918)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47843 '())))) + (cons __tmp49917 '())))) (declare (not safe)) - (cons '#!void __tmp47842)))) + (cons '#!void __tmp49916)))) (declare (not safe)) - (cons _L4431_ __tmp47841)))) + (cons _L4431_ __tmp49915)))) (declare (not safe)) - (cons __tmp47847 __tmp47840))) + (cons __tmp49920 __tmp49914))) _expr43664425_ _hd43564393_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3580,31 +3547,31 @@ (declare (not safe)) (##cdr _e44744506_)))) (if (gx#stx-pair/null? _tl44724513_) - (let ((_g47848_ + (let ((_g49921_ (gx#syntax-split-splice _tl44724513_ '0))) (begin - (let ((_g47849_ + (let ((_g49922_ (let () (declare (not safe)) - (if (##values? _g47848_) + (if (##values? _g49921_) (##vector-length - _g47848_) + _g49921_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47849_ 2))) + (##fx= _g49922_ 2))) (error "Context expects 2 values" - _g47849_))) + _g49922_))) (let ((_target44754516_ (let () (declare (not safe)) - (##vector-ref _g47848_ 0))) + (##vector-ref _g49921_ 0))) (_tl44774519_ (let () (declare (not safe)) - (##vector-ref _g47848_ 1)))) + (##vector-ref _g49921_ 1)))) (if (gx#stx-null? _tl44774519_) (letrec ((_loop44784522_ (lambda (_hd44764526_ @@ -3633,15 +3600,14 @@ (gx#stx-e _L4548_) _stx4462_ (gx#syntax->list - (let ((__tmp47850 - (lambda (_g45654568_ + (foldr (lambda (_g45654568_ _g45664571_) (let () (declare (not safe)) (cons _g45654568_ - _g45664571_))))) - (declare (not safe)) - (foldr1 __tmp47850 '() _L4546_)))) + _g45664571_))) + '() + _L4546_))) (_g44654489_ _g44664493_))) _detail44834542_ _hd44734510_)))))) @@ -3697,52 +3663,52 @@ (##cdr _e45954628_)))) (if (gx#stx-null? _tl45934635_) ((lambda (_L4638_ _L4640_) - (let ((__tmp47864 + (let ((__tmp49936 (gx#datum->syntax '#f 'begin)) - (__tmp47851 - (let ((__tmp47860 - (let ((__tmp47863 + (__tmp49923 + (let ((__tmp49932 + (let ((__tmp49935 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'def)) - (__tmp47861 - (let ((__tmp47862 + (__tmp49933 + (let ((__tmp49934 (let () (declare (not safe)) (cons _L4638_ '())))) (declare (not safe)) - (cons _L4640_ __tmp47862)))) + (cons _L4640_ __tmp49934)))) (declare (not safe)) - (cons __tmp47863 __tmp47861))) - (__tmp47852 - (let ((__tmp47856 - (let ((__tmp47859 (gx#datum->syntax '#f 'set!)) - (__tmp47857 - (let ((__tmp47858 + (cons __tmp49935 __tmp49933))) + (__tmp49924 + (let ((__tmp49928 + (let ((__tmp49931 (gx#datum->syntax '#f 'set!)) + (__tmp49929 + (let ((__tmp49930 (let () (declare (not safe)) (cons _L4640_ '())))) (declare (not safe)) - (cons _L4640_ __tmp47858)))) + (cons _L4640_ __tmp49930)))) (declare (not safe)) - (cons __tmp47859 __tmp47857))) - (__tmp47853 - (let ((__tmp47854 - (let ((__tmp47855 + (cons __tmp49931 __tmp49929))) + (__tmp49925 + (let ((__tmp49926 + (let ((__tmp49927 (gx#datum->syntax '#f 'void))) (declare (not safe)) - (cons __tmp47855 '())))) + (cons __tmp49927 '())))) (declare (not safe)) - (cons __tmp47854 '())))) + (cons __tmp49926 '())))) (declare (not safe)) - (cons __tmp47856 __tmp47853)))) + (cons __tmp49928 __tmp49925)))) (declare (not safe)) - (cons __tmp47860 __tmp47852)))) + (cons __tmp49932 __tmp49924)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47864 - __tmp47851))) + (cons __tmp49936 + __tmp49923))) _hd45944632_ _hd45914622_) (_g45834601_ _g45844605_)))) diff --git a/src/bootstrap/gerbil/core__4.scm b/src/bootstrap/gerbil/core__4.scm index 426940a9d..400bac591 100644 --- a/src/bootstrap/gerbil/core__4.scm +++ b/src/bootstrap/gerbil/core__4.scm @@ -1,101 +1,101 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$$[1]#_g48089_| + (define |gerbil/core$$[1]#_g50127_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48090_| + (define |gerbil/core$$[1]#_g50128_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48091_| + (define |gerbil/core$$[1]#_g50129_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48921_| + (define |gerbil/core$$[1]#_g50921_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48924_| + (define |gerbil/core$$[1]#_g50924_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48925_| + (define |gerbil/core$$[1]#_g50925_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48998_| + (define |gerbil/core$$[1]#_g50986_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48999_| + (define |gerbil/core$$[1]#_g50987_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49001_| + (define |gerbil/core$$[1]#_g50988_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49002_| + (define |gerbil/core$$[1]#_g50989_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49047_| + (define |gerbil/core$$[1]#_g53007_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49048_| + (define |gerbil/core$$[1]#_g53008_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49049_| + (define |gerbil/core$$[1]#_g53009_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49050_| + (define |gerbil/core$$[1]#_g53010_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49062_| + (define |gerbil/core$$[1]#_g53021_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49063_| + (define |gerbil/core$$[1]#_g53022_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) (begin (define |gerbil/core$$[:0:]#lambda| @@ -105,26 +105,26 @@ (_opt-lambda?4666_ (lambda (_hd7913_) (let _lp7916_ ((_rest7919_ _hd7913_) (_opt?7921_ '#f)) - (let* ((___stx4276542766_ _rest7919_) + (let* ((___stx4486944870_ _rest7919_) (_g79247936_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4276542766_)))) - (let ((___kont4276842769_ + ___stx4486944870_)))) + (let ((___kont4487244873_ (lambda (_L7968_ _L7970_) - (let* ((___stx4274142742_ _L7970_) + (let* ((___stx4484544846_ _L7970_) (_g79868000_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4274142742_)))) - (let ((___kont4274442745_ + ___stx4484544846_)))) + (let ((___kont4484844849_ (lambda (_L8038_) (_lp7916_ _L7968_ '#t))) - (___kont4274642747_ + (___kont4485044851_ (lambda () (if (gx#identifier? _L7970_) (if (let () @@ -133,7 +133,7 @@ (_lp7916_ _L7968_ '#f) '#f) '#f)))) - (let ((___match4276242763_ + (let ((___match4486644867_ (lambda (_e79918018_ _hd79908022_ _tl79898025_ @@ -142,13 +142,13 @@ _tl79928035_) (let ((_L8038_ _hd79908022_)) (if (gx#identifier? _L8038_) - (___kont4274442745_ + (___kont4484844849_ _L8038_) - (___kont4274642747_)))))) - (if (gx#stx-pair? ___stx4274142742_) + (___kont4485044851_)))))) + (if (gx#stx-pair? ___stx4484544846_) (let ((_e79918018_ (gx#syntax-e - ___stx4274142742_))) + ___stx4484544846_))) (let ((_tl79898025_ (let () (declare (not safe)) @@ -173,17 +173,17 @@ (##car _e79948028_)))) (if (gx#stx-null? _tl79928035_) - (___match4276242763_ + (___match4486644867_ _e79918018_ _hd79908022_ _tl79898025_ _e79948028_ _hd79938032_ _tl79928035_) - (___kont4274642747_)))) - (___kont4274642747_)))) - (___kont4274642747_))))))) - (___kont4277042771_ + (___kont4485044851_)))) + (___kont4485044851_)))) + (___kont4485044851_))))))) + (___kont4487444875_ (lambda () (if _opt?7921_ (let ((_$e7947_ @@ -192,9 +192,9 @@ _$e7947_ (gx#identifier? _rest7919_))) '#f)))) - (if (gx#stx-pair? ___stx4276542766_) + (if (gx#stx-pair? ___stx4486944870_) (let ((_e79307958_ - (gx#syntax-e ___stx4276542766_))) + (gx#syntax-e ___stx4486944870_))) (let ((_tl79287965_ (let () (declare (not safe)) @@ -203,59 +203,59 @@ (let () (declare (not safe)) (##car _e79307958_)))) - (___kont4276842769_ + (___kont4487244873_ _tl79287965_ _hd79297962_))) - (___kont4277042771_))))))) + (___kont4487444875_))))))) (_opt-lambda-split4667_ (lambda (_hd7765_) (let _lp7768_ ((_rest7771_ _hd7765_) (_pre7773_ '()) (_opt7774_ '())) - (let* ((___stx4280542806_ _rest7771_) + (let* ((___stx4490944910_ _rest7771_) (_g77777789_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4280542806_)))) - (let ((___kont4280842809_ + ___stx4490944910_)))) + (let ((___kont4491244913_ (lambda (_L7817_ _L7819_) - (let* ((___stx4278142782_ _L7819_) + (let* ((___stx4488544886_ _L7819_) (_g78357850_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4278142782_)))) - (let ((___kont4278442785_ + ___stx4488544886_)))) + (let ((___kont4488844889_ (lambda (_L7888_ _L7890_) (_lp7768_ _L7817_ _pre7773_ - (let ((__tmp47865 - (let ((__tmp47866 + (let ((__tmp49937 + (let ((__tmp49938 (_generate-bind4670_ _L7890_))) (declare (not safe)) - (cons __tmp47866 + (cons __tmp49938 _L7888_)))) (declare (not safe)) - (cons __tmp47865 _opt7774_))))) - (___kont4278642787_ + (cons __tmp49937 _opt7774_))))) + (___kont4489044891_ (lambda () (_lp7768_ _L7817_ - (let ((__tmp47867 + (let ((__tmp49939 (_generate-bind4670_ _L7819_))) (declare (not safe)) - (cons __tmp47867 _pre7773_)) + (cons __tmp49939 _pre7773_)) _opt7774_)))) - (if (gx#stx-pair? ___stx4278142782_) + (if (gx#stx-pair? ___stx4488544886_) (let ((_e78417868_ (gx#syntax-e - ___stx4278142782_))) + ___stx4488544886_))) (let ((_tl78397875_ (let () (declare (not safe)) @@ -280,22 +280,22 @@ (##car _e78447878_)))) (if (gx#stx-null? _tl78427885_) - (___kont4278442785_ + (___kont4488844889_ _hd78437882_ _hd78407872_) - (___kont4278642787_)))) - (___kont4278642787_)))) - (___kont4278642787_)))))) - (___kont4281042811_ + (___kont4489044891_)))) + (___kont4489044891_)))) + (___kont4489044891_)))))) + (___kont4491444915_ (lambda () (values (reverse _pre7773_) (reverse _opt7774_) (if (gx#identifier? _rest7771_) (_generate-bind4670_ _rest7771_) _rest7771_))))) - (if (gx#stx-pair? ___stx4280542806_) + (if (gx#stx-pair? ___stx4490944910_) (let ((_e77837807_ - (gx#syntax-e ___stx4280542806_))) + (gx#syntax-e ___stx4490944910_))) (let ((_tl77817814_ (let () (declare (not safe)) @@ -304,32 +304,32 @@ (let () (declare (not safe)) (##car _e77837807_)))) - (___kont4280842809_ + (___kont4491244913_ _tl77817814_ _hd77827811_))) - (___kont4281042811_))))))) + (___kont4491444915_))))))) (_kw-lambda?4668_ (lambda (_hd7433_) (let _lp7436_ ((_rest7439_ _hd7433_) (_opt?7441_ '#f) (_key?7442_ '#f)) - (let* ((___stx4286942870_ _rest7439_) + (let* ((___stx4497344974_ _rest7439_) (_g74477477_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4286942870_)))) - (let ((___kont4287242873_ + ___stx4497344974_)))) + (let ((___kont4497644977_ (lambda (_L7672_ _L7674_ _L7675_) - (let* ((___stx4284542846_ _L7674_) + (let* ((___stx4494944950_ _L7674_) (_g76907704_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4284542846_)))) - (let ((___kont4284842849_ + ___stx4494944950_)))) + (let ((___kont4495244953_ (lambda (_L7742_) (if (gx#identifier? _L7742_) (_lp7436_ @@ -337,7 +337,7 @@ _opt?7441_ '#t) '#f))) - (___kont4285042851_ + (___kont4495444955_ (lambda () (if (gx#identifier? _L7674_) (_lp7436_ @@ -345,10 +345,10 @@ _opt?7441_ '#t) '#f)))) - (if (gx#stx-pair? ___stx4284542846_) + (if (gx#stx-pair? ___stx4494944950_) (let ((_e76957722_ (gx#syntax-e - ___stx4284542846_))) + ___stx4494944950_))) (let ((_tl76937729_ (let () (declare (not safe)) @@ -373,26 +373,26 @@ (##car _e76987732_)))) (if (gx#stx-null? _tl76967739_) - (___kont4284842849_ + (___kont4495244953_ _hd76947726_) - (___kont4285042851_)))) - (___kont4285042851_)))) - (___kont4285042851_)))))) - (___kont4287442875_ + (___kont4495444955_)))) + (___kont4495444955_)))) + (___kont4495444955_)))))) + (___kont4497844979_ (lambda (_L7629_ _L7631_) (if (gx#identifier? _L7631_) (_lp7436_ _L7629_ _opt?7441_ '#t) '#f))) - (___kont4287642877_ + (___kont4498044981_ (lambda (_L7509_ _L7511_) - (let* ((___stx4282142822_ _L7511_) + (let* ((___stx4492544926_ _L7511_) (_g75277541_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4282142822_)))) - (let ((___kont4282442825_ + ___stx4492544926_)))) + (let ((___kont4492844929_ (lambda (_L7579_) (if (gx#identifier? _L7579_) (_lp7436_ @@ -400,7 +400,7 @@ '#t _key?7442_) '#f))) - (___kont4282642827_ + (___kont4493044931_ (lambda () (if (gx#identifier? _L7511_) (if (let () @@ -412,10 +412,10 @@ _key?7442_) '#f) '#f)))) - (if (gx#stx-pair? ___stx4282142822_) + (if (gx#stx-pair? ___stx4492544926_) (let ((_e75327559_ (gx#syntax-e - ___stx4282142822_))) + ___stx4492544926_))) (let ((_tl75307566_ (let () (declare (not safe)) @@ -440,12 +440,12 @@ (##car _e75357569_)))) (if (gx#stx-null? _tl75337576_) - (___kont4282442825_ + (___kont4492844929_ _hd75317563_) - (___kont4282642827_)))) - (___kont4282642827_)))) - (___kont4282642827_)))))) - (___kont4287842879_ + (___kont4493044931_)))) + (___kont4493044931_)))) + (___kont4493044931_)))))) + (___kont4498244983_ (lambda () (if _key?7442_ (let ((_$e7488_ @@ -454,7 +454,7 @@ _$e7488_ (gx#identifier? _rest7439_))) '#f)))) - (let ((___match4289242893_ + (let ((___match4499644997_ (lambda (_e74547652_ _hd74537656_ _tl74527659_ @@ -465,7 +465,7 @@ (_L7674_ _hd74567666_) (_L7675_ _hd74537656_)) (if (gx#stx-keyword? _L7675_) - (___kont4287242873_ + (___kont4497644977_ _L7672_ _L7674_ _L7675_) @@ -476,18 +476,18 @@ (declare (not safe)) (equal? _e74637615_ '#!key)) - (___kont4287442875_ + (___kont4497844979_ _tl74557669_ _hd74567666_) - (___kont4287642877_ + (___kont4498044981_ _tl74527659_ _hd74537656_))) - (___kont4287642877_ + (___kont4498044981_ _tl74527659_ _hd74537656_))))))) - (if (gx#stx-pair? ___stx4286942870_) + (if (gx#stx-pair? ___stx4497344974_) (let ((_e74547652_ - (gx#syntax-e ___stx4286942870_))) + (gx#syntax-e ___stx4497344974_))) (let ((_tl74527659_ (let () (declare (not safe)) @@ -507,7 +507,7 @@ (let () (declare (not safe)) (##car _e74577662_)))) - (___match4289242893_ + (___match4499644997_ _e74547652_ _hd74537656_ _tl74527659_ @@ -517,57 +517,54 @@ (if (gx#stx-datum? _hd74537656_) (let ((_e74637615_ (gx#stx-e _hd74537656_))) - (___kont4287642877_ + (___kont4498044981_ _tl74527659_ _hd74537656_)) - (___kont4287642877_ + (___kont4498044981_ _tl74527659_ _hd74537656_))))) - (___kont4287842879_)))))))) + (___kont4498244983_)))))))) (_kw-lambda-split4669_ (lambda (_hd7166_) (let _lp7169_ ((_rest7172_ _hd7166_) (_kwvar7174_ '#f) (_kwargs7175_ '()) (_args7176_ '())) - (let* ((___stx4294342944_ _rest7172_) + (let* ((___stx4504745048_ _rest7172_) (_g71817211_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4294342944_)))) - (let ((___kont4294642947_ + ___stx4504745048_)))) + (let ((___kont4505045051_ (lambda (_L7330_ _L7332_ _L7333_) (let ((_key7347_ (gx#stx-e _L7333_))) - (if (let ((__tmp47873 - (lambda (_kwarg7350_) - (let ((__tmp47874 - (car _kwarg7350_))) - (declare (not safe)) - (eq? _key7347_ - __tmp47874))))) - (declare (not safe)) - (find __tmp47873 _kwargs7175_)) + (if (find (lambda (_kwarg7350_) + (let ((__tmp49945 + (car _kwarg7350_))) + (declare (not safe)) + (eq? _key7347_ __tmp49945))) + _kwargs7175_) (gx#raise-syntax-error '#f '"bad syntax; duplicate keyword argument" _stx4661_ _hd7166_ _key7347_) - (let* ((___stx4291942920_ _L7332_) + (let* ((___stx4502345024_ _L7332_) (_g73547369_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4291942920_)))) - (let ((___kont4292242923_ + ___stx4502345024_)))) + (let ((___kont4502645027_ (lambda (_L7407_ _L7409_) (_lp7169_ _L7330_ _kwvar7174_ - (let ((__tmp47868 + (let ((__tmp49940 (list _key7347_ (_generate-bind4670_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -575,39 +572,39 @@ _L7407_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47868 + (cons __tmp49940 _kwargs7175_)) _args7176_))) - (___kont4292442925_ + (___kont4502845029_ (lambda () (_lp7169_ _L7330_ _kwvar7174_ - (let ((__tmp47869 + (let ((__tmp49941 (list _key7347_ (_generate-bind4670_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _L7332_) - (let ((__tmp47872 (gx#datum->syntax '#f 'error)) - (__tmp47870 - (let ((__tmp47871 + (let ((__tmp49944 (gx#datum->syntax '#f 'error)) + (__tmp49942 + (let ((__tmp49943 (let () (declare (not safe)) (cons _L7333_ '())))) (declare (not safe)) (cons '"Missing required keyword argument" - __tmp47871)))) + __tmp49943)))) (declare (not safe)) - (cons __tmp47872 __tmp47870))))) + (cons __tmp49944 __tmp49942))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47869 + (cons __tmp49941 _kwargs7175_)) _args7176_)))) - (if (gx#stx-pair? ___stx4291942920_) + (if (gx#stx-pair? ___stx4502345024_) (let ((_e73607387_ (gx#syntax-e - ___stx4291942920_))) + ___stx4502345024_))) (let ((_tl73587394_ (let () (declare (not safe)) @@ -629,12 +626,12 @@ (_hd73627401_ (let () (declare (not safe)) (##car _e73637397_)))) (if (gx#stx-null? _tl73617404_) - (___kont4292242923_ _hd73627401_ _hd73597391_) - (___kont4292442925_)))) - (___kont4292442925_)))) + (___kont4502645027_ _hd73627401_ _hd73597391_) + (___kont4502845029_)))) + (___kont4502845029_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4292442925_)))))))) - (___kont4294842949_ + (___kont4502845029_)))))))) + (___kont4505245053_ (lambda (_L7287_ _L7289_) (if _kwvar7174_ (gx#raise-syntax-error @@ -648,7 +645,7 @@ (_generate-bind4670_ _L7289_) _kwargs7175_ _args7176_)))) - (___kont4295042951_ + (___kont4505445055_ (lambda (_L7239_ _L7241_) (_lp7169_ _L7239_ @@ -657,16 +654,12 @@ (let () (declare (not safe)) (cons _L7241_ _args7176_))))) - (___kont4295242953_ + (___kont4505645057_ (lambda () (values _kwvar7174_ (reverse _kwargs7175_) - (let () - (declare (not safe)) - (foldl1 cons - _rest7172_ - _args7176_)))))) - (let ((___match4296642967_ + (foldl cons _rest7172_ _args7176_))))) + (let ((___match4507045071_ (lambda (_e71887310_ _hd71877314_ _tl71867317_ @@ -677,7 +670,7 @@ (_L7332_ _hd71907324_) (_L7333_ _hd71877314_)) (if (gx#stx-keyword? _L7333_) - (___kont4294642947_ + (___kont4505045051_ _L7330_ _L7332_ _L7333_) @@ -688,18 +681,18 @@ (declare (not safe)) (equal? _e71977273_ '#!key)) - (___kont4294842949_ + (___kont4505245053_ _tl71897327_ _hd71907324_) - (___kont4295042951_ + (___kont4505445055_ _tl71867317_ _hd71877314_))) - (___kont4295042951_ + (___kont4505445055_ _tl71867317_ _hd71877314_))))))) - (if (gx#stx-pair? ___stx4294342944_) + (if (gx#stx-pair? ___stx4504745048_) (let ((_e71887310_ - (gx#syntax-e ___stx4294342944_))) + (gx#syntax-e ___stx4504745048_))) (let ((_tl71867317_ (let () (declare (not safe)) @@ -719,7 +712,7 @@ (let () (declare (not safe)) (##car _e71917320_)))) - (___match4296642967_ + (___match4507045071_ _e71887310_ _hd71877314_ _tl71867317_ @@ -729,13 +722,13 @@ (if (gx#stx-datum? _hd71877314_) (let ((_e71977273_ (gx#stx-e _hd71877314_))) - (___kont4295042951_ + (___kont4505445055_ _tl71867317_ _hd71877314_)) - (___kont4295042951_ + (___kont4505445055_ _tl71867317_ _hd71877314_))))) - (___kont4295242953_)))))))) + (___kont4505645057_)))))))) (_generate-bind4670_ (lambda (_e7163_) (if (gx#underscore? _e7163_) @@ -751,14 +744,14 @@ (declare (not safe)) (cons _id7159_ _ids7161_)))))) (let _lp6866_ ((_rest6869_ _hd6860_) (_ids6871_ '())) - (let* ((___stx4301743018_ _rest6869_) + (let* ((___stx4512145122_ _rest6869_) (_g68746886_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4301743018_)))) - (let ((___kont4302043021_ + ___stx4512145122_)))) + (let ((___kont4512445125_ (lambda (_L6914_ _L6916_) (if (gx#identifier? _L6916_) (_lp6866_ @@ -827,26 +820,26 @@ (declare (not safe)) (##cdr _e69977010_)))) ((lambda (_L7020_ _L7022_) - (let* ((___stx4299342994_ _L7022_) + (let* ((___stx4509745098_ _L7022_) (_g70347048_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4299342994_)))) - (let ((___kont4299642997_ + ___stx4509745098_)))) + (let ((___kont4510045101_ (lambda (_L7086_) (_lp6866_ _L7020_ (_cons-id6863_ _L7086_ _ids6871_)))) - (___kont4299842999_ + (___kont4510245103_ (lambda () (_lp6866_ _L7020_ (_cons-id6863_ _L7022_ _ids6871_))))) - (if (gx#stx-pair? ___stx4299342994_) + (if (gx#stx-pair? ___stx4509745098_) (let ((_e70397066_ - (gx#syntax-e ___stx4299342994_))) + (gx#syntax-e ___stx4509745098_))) (let ((_tl70377073_ (let () (declare (not safe)) @@ -867,20 +860,20 @@ (declare (not safe)) (##car _e70427076_)))) (if (gx#stx-null? _tl70407083_) - (___kont4299642997_ + (___kont4510045101_ _hd70387070_) - (___kont4299842999_)))) - (___kont4299842999_)))) - (___kont4299842999_))))) + (___kont4510245103_)))) + (___kont4510245103_)))) + (___kont4510245103_))))) _tl69957017_ _hd69967014_))) (_g69917003_ _g69927007_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g69907105_ _L6914_)) - (if (let ((__tmp47875 + (if (let ((__tmp49946 (gx#stx-e _L6916_))) (declare (not safe)) - (eq? __tmp47875 '#!key)) + (eq? __tmp49946 '#!key)) (let* ((_g71097121_ (lambda (_g71107117_) (gx#raise-syntax-error @@ -910,19 +903,21 @@ (_g71097121_ _g71107125_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g71087151_ _L6914_)) - (error '"BUG: check-duplicate-bindings" - _stx4661_ - _rest6869_))))))) - (___kont4302243023_ + (let () + (declare (not safe)) + (error '"BUG: check-duplicate-bindings" + _stx4661_ + _rest6869_)))))))) + (___kont4512645127_ (lambda () (gx#check-duplicate-identifiers (if (gx#stx-null? _rest6869_) _ids6871_ (_cons-id6863_ _rest6869_ _ids6871_)) _stx4661_)))) - (if (gx#stx-pair? ___stx4301743018_) + (if (gx#stx-pair? ___stx4512145122_) (let ((_e68806904_ - (gx#syntax-e ___stx4301743018_))) + (gx#syntax-e ___stx4512145122_))) (let ((_tl68786911_ (let () (declare (not safe)) @@ -931,10 +926,10 @@ (let () (declare (not safe)) (##car _e68806904_)))) - (___kont4302043021_ + (___kont4512445125_ _tl68786911_ _hd68796908_))) - (___kont4302243023_)))))))) + (___kont4512645127_)))))))) (_generate-opt-primary4672_ (lambda (_pre6652_ _opt6654_ _tail6655_ _body6656_) (let* ((_g66586699_ @@ -957,34 +952,34 @@ (declare (not safe)) (##cdr _e66666706_)))) (if (gx#stx-pair/null? _hd66656710_) - (let ((_g47876_ + (let ((_g49947_ (gx#syntax-split-splice _hd66656710_ '0))) (begin - (let ((_g47877_ + (let ((_g49948_ (let () (declare (not safe)) - (if (##values? _g47876_) + (if (##values? _g49947_) (##vector-length - _g47876_) + _g49947_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47877_ 2))) + (##fx= _g49948_ 2))) (error "Context expects 2 values" - _g47877_))) + _g49948_))) (let ((_target66676716_ (let () (declare (not safe)) (##vector-ref - _g47876_ + _g49947_ 0))) (_tl66696719_ (let () (declare (not safe)) (##vector-ref - _g47876_ + _g49947_ 1)))) (if (gx#stx-null? _tl66696719_) (letrec ((_loop66706722_ @@ -1019,34 +1014,34 @@ (declare (not safe)) (##cdr _e66786746_)))) (if (gx#stx-pair/null? _hd66776750_) - (let ((_g47878_ + (let ((_g49949_ (gx#syntax-split-splice _hd66776750_ '0))) (begin - (let ((_g47879_ + (let ((_g49950_ (let () (declare (not safe)) - (if (##values? _g47878_) + (if (##values? _g49949_) (##vector-length - _g47878_) + _g49949_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47879_ 2))) + (##fx= _g49950_ 2))) (error "Context expects 2 values" - _g47879_))) + _g49950_))) (let ((_target66796756_ (let () (declare (not safe)) (##vector-ref - _g47878_ + _g49949_ 0))) (_tl66816759_ (let () (declare (not safe)) (##vector-ref - _g47878_ + _g49949_ 1)))) (if (gx#stx-null? _tl66816759_) (letrec ((_loop66826762_ @@ -1097,33 +1092,28 @@ _L6809_ _L6810_) (let () - (let ((__tmp47885 + (let ((__tmp49953 (gx#datum->syntax '#f 'lambda%)) - (__tmp47880 - (let ((__tmp47881 + (__tmp49951 + (let ((__tmp49952 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47884 - (lambda (_g68396844_ _g68406847_) + (foldr (lambda (_g68396844_ _g68406847_) (let () (declare (not safe)) - (cons _g68396844_ _g68406847_)))) - (__tmp47882 - (let ((__tmp47883 - (lambda (_g68416850_ _g68426853_) + (cons _g68396844_ _g68406847_))) + (foldr (lambda (_g68416850_ _g68426853_) (let () (declare (not safe)) - (cons _g68416850_ - _g68426853_))))) - (declare (not safe)) - (foldr1 __tmp47883 _L6808_ _L6809_)))) - (declare (not safe)) - (foldr1 __tmp47884 __tmp47882 _L6810_)))) + (cons _g68416850_ _g68426853_))) + _L6808_ + _L6809_) + _L6810_))) (declare (not safe)) - (cons __tmp47881 _L6806_)))) + (cons __tmp49952 _L6806_)))) (declare (not safe)) - (cons __tmp47885 __tmp47880)))) + (cons __tmp49953 __tmp49951)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd66926800_ _hd66896790_ @@ -1151,20 +1141,20 @@ _body6656_))))) (_generate-opt-dispatch4673_ (lambda (_primary6646_ _pre6648_ _opt6649_ _tail6650_) - (let ((__tmp47887 + (let ((__tmp49955 (list _pre6648_ (_generate-opt-clause4675_ _primary6646_ _pre6648_ _opt6649_))) - (__tmp47886 + (__tmp49954 (_generate-opt-dispatch*4674_ _primary6646_ _pre6648_ _opt6649_ _tail6650_))) (declare (not safe)) - (cons __tmp47887 __tmp47886)))) + (cons __tmp49955 __tmp49954)))) (_generate-opt-dispatch*4674_ (lambda (_primary6203_ _pre6205_ _opt6206_ _tail6207_) (let _recur6209_ ((_opt-rest6212_ _opt6206_) @@ -1185,34 +1175,34 @@ (_g62246425_ (lambda (_g62266246_) (if (gx#stx-pair/null? _g62266246_) - (let ((_g47902_ + (let ((_g49963_ (gx#syntax-split-splice _g62266246_ '0))) (begin - (let ((_g47903_ + (let ((_g49964_ (let () (declare (not safe)) - (if (##values? _g47902_) + (if (##values? _g49963_) (##vector-length - _g47902_) + _g49963_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47903_ 2))) + (##fx= _g49964_ 2))) (error "Context expects 2 values" - _g47903_))) + _g49964_))) (let ((_target62286249_ (let () (declare (not safe)) (##vector-ref - _g47902_ + _g49963_ 0))) (_tl62306252_ (let () (declare (not safe)) (##vector-ref - _g47902_ + _g49963_ 1)))) (if (gx#stx-null? _tl62306252_) (letrec ((_loop62316255_ @@ -1247,41 +1237,41 @@ (_g62996421_ (lambda (_g63016321_) (if (gx#stx-pair/null? _g63016321_) - (let ((_g47904_ + (let ((_g49965_ (gx#syntax-split-splice _g63016321_ '0))) (begin - (let ((_g47905_ + (let ((_g49966_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g47904_) - (##vector-length _g47904_) + _g49965_) + (##vector-length _g49965_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g47905_ 2))) - (error "Context expects 2 values" _g47905_))) + (##fx= _g49966_ 2))) + (error "Context expects 2 values" _g49966_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target63036324_ (let () (declare (not safe)) (##vector-ref - _g47904_ + _g49965_ 0))) (_tl63056327_ (let () (declare (not safe)) (##vector-ref - _g47904_ + _g49965_ 1)))) (if (gx#stx-null? _tl63056327_) @@ -1320,39 +1310,30 @@ ((lambda (_L6386_) (let () (let () - (let ((__tmp47907 - (list (let ((__tmp47911 + (let ((__tmp49968 + (list (foldr (lambda (_g64006405_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g64006405_ _g64016408_) + _g64016408_) (let () (declare (not safe)) - (cons _g64006405_ _g64016408_)))) - (__tmp47908 - (let ((__tmp47910 - (lambda (_g64026411_ _g64036414_) + (cons _g64006405_ _g64016408_))) + (foldr (lambda (_g64026411_ _g64036414_) (let () (declare (not safe)) (cons _g64026411_ - _g64036414_)))) - (__tmp47909 + _g64036414_))) (let () (declare (not safe)) - (cons _L6386_ '())))) - (declare (not safe)) - (foldr1 __tmp47910 - __tmp47909 - _L6354_)))) - (declare (not safe)) - (foldr1 __tmp47911 __tmp47908 _L6279_)) + (cons _L6386_ '())) + _L6354_) + _L6279_) (_generate-opt-clause4675_ _primary6203_ - (let ((__tmp47912 (reverse _right*6222_))) - (declare (not safe)) - (foldr1 cons __tmp47912 _pre6205_)) + (foldr cons (reverse _right*6222_) _pre6205_) _rest6219_))) - (__tmp47906 (_recur6209_ _rest6219_ _right*6222_))) + (__tmp49967 (_recur6209_ _rest6219_ _right*6222_))) (declare (not safe)) - (cons __tmp47907 __tmp47906))))) + (cons __tmp49968 __tmp49967))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g63726383_)))) (_g63706417_ _hd6216_)))) @@ -1393,26 +1374,26 @@ (##cdr _e64376477_)))) (if (gx#stx-pair/null? _hd64366481_) - (let ((_g47888_ + (let ((_g49956_ (gx#syntax-split-splice _hd64366481_ '0))) (begin - (let ((_g47889_ + (let ((_g49957_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g47888_) - (##vector-length _g47888_) + (if (##values? _g49956_) + (##vector-length _g49956_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g47889_ 2))) - (error "Context expects 2 values" _g47889_))) + (if (not (let () (declare (not safe)) (##fx= _g49957_ 2))) + (error "Context expects 2 values" _g49957_))) (let ((_target64386487_ - (let () (declare (not safe)) (##vector-ref _g47888_ 0))) + (let () (declare (not safe)) (##vector-ref _g49956_ 0))) (_tl64406490_ (let () (declare (not safe)) - (##vector-ref _g47888_ 1)))) + (##vector-ref _g49956_ 1)))) (if (gx#stx-null? _tl64406490_) (letrec ((_loop64416493_ (lambda (_hd64396497_ _pre64456500_) @@ -1448,26 +1429,26 @@ (##cdr _e64496517_)))) (if (gx#stx-pair/null? _hd64486521_) - (let ((_g47890_ + (let ((_g49958_ (gx#syntax-split-splice _hd64486521_ '0))) (begin - (let ((_g47891_ + (let ((_g49959_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g47890_) - (##vector-length _g47890_) + (if (##values? _g49958_) + (##vector-length _g49958_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g47891_ 2))) - (error "Context expects 2 values" _g47891_))) + (if (not (let () (declare (not safe)) (##fx= _g49959_ 2))) + (error "Context expects 2 values" _g49959_))) (let ((_target64506527_ - (let () (declare (not safe)) (##vector-ref _g47890_ 0))) + (let () (declare (not safe)) (##vector-ref _g49958_ 0))) (_tl64526530_ (let () (declare (not safe)) - (##vector-ref _g47890_ 1)))) + (##vector-ref _g49958_ 1)))) (if (gx#stx-null? _tl64526530_) (letrec ((_loop64536533_ (lambda (_hd64516537_ _opt64576540_) @@ -1516,55 +1497,43 @@ (if (gx#stx-null? _tl64626574_) ((lambda (_L6577_ _L6579_ _L6580_ _L6581_) (let () - (list (list (let ((__tmp47894 - (lambda (_g66096614_ _g66106617_) + (list (list (foldr (lambda (_g66096614_ _g66106617_) (let () (declare (not safe)) (cons _g66096614_ - _g66106617_)))) - (__tmp47892 - (let ((__tmp47893 - (lambda (_g66116620_ + _g66106617_))) + (foldr (lambda (_g66116620_ _g66126623_) (let () (declare (not safe)) (cons _g66116620_ - _g66126623_))))) - (declare (not safe)) - (foldr1 __tmp47893 - _L6579_ - _L6580_)))) - (declare (not safe)) - (foldr1 __tmp47894 __tmp47892 _L6581_)) + _g66126623_))) + _L6579_ + _L6580_) + _L6581_) (gx#stx-wrap-source - (let ((__tmp47901 + (let ((__tmp49962 (gx#datum->syntax '#f 'apply)) - (__tmp47895 - (let ((__tmp47896 - (let ((__tmp47900 - (lambda (_g66256630_ + (__tmp49960 + (let ((__tmp49961 + (foldr (lambda (_g66256630_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g66266633_) (let () (declare (not safe)) - (cons _g66256630_ _g66266633_)))) - (__tmp47897 - (let ((__tmp47899 - (lambda (_g66276636_ _g66286639_) + (cons _g66256630_ _g66266633_))) + (foldr (lambda (_g66276636_ _g66286639_) (let () (declare (not safe)) - (cons _g66276636_ _g66286639_)))) - (__tmp47898 - (let () (declare (not safe)) (cons _L6579_ '())))) - (declare (not safe)) - (foldr1 __tmp47899 __tmp47898 _L6580_)))) - (declare (not safe)) - (foldr1 __tmp47900 __tmp47897 _L6581_)))) + (cons _g66276636_ _g66286639_))) + (let () (declare (not safe)) (cons _L6579_ '())) + _L6580_) + _L6581_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L6577_ __tmp47896)))) + (cons _L6577_ __tmp49961)))) (declare (not safe)) - (cons __tmp47901 __tmp47895)) + (cons __tmp49962 __tmp49960)) (gx#stx-source _stx4661_)))))) _hd64636571_ _hd64606561_ @@ -1631,32 +1600,32 @@ ((lambda (_L5993_) (let () (let () - (let ((__tmp47927 + (let ((__tmp49980 (gx#datum->syntax '#f 'let-values)) - (__tmp47921 - (let ((__tmp47923 - (let ((__tmp47924 - (let ((__tmp47926 + (__tmp49974 + (let ((__tmp49976 + (let ((__tmp49977 + (let ((__tmp49979 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L5934_ '()))) - (__tmp47925 + (__tmp49978 (let () (declare (not safe)) (cons _L5965_ '())))) (declare (not safe)) - (cons __tmp47926 __tmp47925)))) + (cons __tmp49979 __tmp49978)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47924 '()))) - (__tmp47922 + (cons __tmp49977 '()))) + (__tmp49975 (let () (declare (not safe)) (cons _L5993_ '())))) (declare (not safe)) - (cons __tmp47923 __tmp47922)))) + (cons __tmp49976 __tmp49975)))) (declare (not safe)) - (cons __tmp47927 __tmp47921))))) + (cons __tmp49980 __tmp49974))))) _g59795990_)))) (_g59776008_ (_recur5906_ @@ -1690,36 +1659,36 @@ (##cdr _e60276064_)))) (if (gx#stx-pair/null? _hd60266068_) - (let ((_g47913_ + (let ((_g49969_ (gx#syntax-split-splice _hd60266068_ '0))) (begin - (let ((_g47914_ + (let ((_g49970_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g47913_) - (##vector-length _g47913_) + _g49969_) + (##vector-length _g49969_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g47914_ 2))) - (error "Context expects 2 values" _g47914_))) + (if (not (let () (declare (not safe)) (##fx= _g49970_ 2))) + (error "Context expects 2 values" _g49970_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target60286074_ (let () (declare (not safe)) (##vector-ref - _g47913_ + _g49969_ 0))) (_tl60306077_ (let () (declare (not safe)) (##vector-ref - _g47913_ + _g49969_ 1)))) (if (gx#stx-null? _tl60306077_) @@ -1758,36 +1727,36 @@ (##cdr _e60396104_)))) (if (gx#stx-pair/null? _hd60386108_) - (let ((_g47915_ + (let ((_g49971_ (gx#syntax-split-splice _hd60386108_ '0))) (begin - (let ((_g47916_ + (let ((_g49972_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g47915_) - (##vector-length _g47915_) + _g49971_) + (##vector-length _g49971_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g47916_ 2))) - (error "Context expects 2 values" _g47916_))) + (if (not (let () (declare (not safe)) (##fx= _g49972_ 2))) + (error "Context expects 2 values" _g49972_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target60406114_ (let () (declare (not safe)) (##vector-ref - _g47915_ + _g49971_ 0))) (_tl60426117_ (let () (declare (not safe)) (##vector-ref - _g47915_ + _g49971_ 1)))) (if (gx#stx-null? _tl60426117_) @@ -1830,25 +1799,22 @@ _L6157_) (let () (gx#stx-wrap-source - (let ((__tmp47917 - (let ((__tmp47920 + (let ((__tmp49973 + (foldr (lambda (_g61826187_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g61826187_ _g61836190_) + _g61836190_) (let () (declare (not safe)) - (cons _g61826187_ _g61836190_)))) - (__tmp47918 - (let ((__tmp47919 - (lambda (_g61846193_ _g61856196_) + (cons _g61826187_ _g61836190_))) + (foldr (lambda (_g61846193_ _g61856196_) (let () (declare (not safe)) - (cons _g61846193_ _g61856196_))))) - (declare (not safe)) - (foldr1 __tmp47919 '() _L6156_)))) - (declare (not safe)) - (foldr1 __tmp47920 __tmp47918 _L6157_)))) + (cons _g61846193_ _g61856196_))) + '() + _L6156_) + _L6157_))) (declare (not safe)) - (cons _L6154_ __tmp47917)) + (cons _L6154_ __tmp49973)) (gx#stx-source _stx4661_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd60506148_ @@ -1940,62 +1906,62 @@ _L5867_ _L5868_) (let () - (let ((__tmp47944 + (let ((__tmp49997 (gx#datum->syntax '#f 'let-values)) - (__tmp47928 - (let ((__tmp47930 - (let ((__tmp47931 + (__tmp49981 + (let ((__tmp49983 + (let ((__tmp49984 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47943 + (let ((__tmp49996 (let () (declare (not safe)) (cons _L5868_ '()))) - (__tmp47932 - (let ((__tmp47933 - (let ((__tmp47942 + (__tmp49985 + (let ((__tmp49986 + (let ((__tmp49995 (gx#datum->syntax '#f 'if)) - (__tmp47934 - (let ((__tmp47937 - (let ((__tmp47941 + (__tmp49987 + (let ((__tmp49990 + (let ((__tmp49994 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'eq?)) - (__tmp47938 - (let ((__tmp47939 - (let ((__tmp47940 + (__tmp49991 + (let ((__tmp49992 + (let ((__tmp49993 (gx#datum->syntax '#f 'absent-value))) (declare (not safe)) - (cons __tmp47940 '())))) + (cons __tmp49993 '())))) (declare (not safe)) - (cons _L5867_ __tmp47939)))) + (cons _L5867_ __tmp49992)))) (declare (not safe)) - (cons __tmp47941 __tmp47938))) - (__tmp47935 - (let ((__tmp47936 + (cons __tmp49994 __tmp49991))) + (__tmp49988 + (let ((__tmp49989 (let () (declare (not safe)) (cons _L5867_ '())))) (declare (not safe)) - (cons _L5866_ __tmp47936)))) + (cons _L5866_ __tmp49989)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47937 - __tmp47935)))) + (cons __tmp49990 + __tmp49988)))) (declare (not safe)) - (cons __tmp47942 __tmp47934)))) + (cons __tmp49995 __tmp49987)))) (declare (not safe)) - (cons __tmp47933 '())))) + (cons __tmp49986 '())))) (declare (not safe)) - (cons __tmp47943 __tmp47932)))) + (cons __tmp49996 __tmp49985)))) (declare (not safe)) - (cons __tmp47931 '()))) - (__tmp47929 + (cons __tmp49984 '()))) + (__tmp49982 (let () (declare (not safe)) (cons _L5864_ '())))) (declare (not safe)) - (cons __tmp47930 __tmp47929)))) + (cons __tmp49983 __tmp49982)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47944 - __tmp47928)))) + (cons __tmp49997 + __tmp49981)))) _hd58105858_ _hd58075848_ _hd58045838_ @@ -2039,28 +2005,28 @@ (lambda (_g56065626_) (if (gx#stx-pair/null? _g56065626_) - (let ((_g47945_ + (let ((_g49998_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g56065626_ '0))) (begin - (let ((_g47946_ + (let ((_g49999_ (let () (declare (not safe)) - (if (##values? _g47945_) - (##vector-length _g47945_) + (if (##values? _g49998_) + (##vector-length _g49998_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47946_ 2))) - (error "Context expects 2 values" _g47946_))) + (##fx= _g49999_ 2))) + (error "Context expects 2 values" _g49999_))) (let ((_target56085629_ (let () (declare (not safe)) - (##vector-ref _g47945_ 0))) + (##vector-ref _g49998_ 0))) (_tl56105632_ (let () (declare (not safe)) - (##vector-ref _g47945_ 1)))) + (##vector-ref _g49998_ 1)))) (if (gx#stx-null? _tl56105632_) (letrec ((_loop56115635_ (lambda (_hd56095639_ _kwval56155642_) @@ -2109,42 +2075,40 @@ (let () (let () (gx#stx-wrap-source - (let ((__tmp47952 + (let ((__tmp50004 (gx#datum->syntax '#f 'lambda)) - (__tmp47947 - (let ((__tmp47949 - (let ((__tmp47950 + (__tmp50000 + (let ((__tmp50002 + (let ((__tmp50003 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47951 - (lambda (_g57335736_ _g57345739_) + (foldr (lambda (_g57335736_ _g57345739_) (let () (declare (not safe)) - (cons _g57335736_ _g57345739_))))) - (declare (not safe)) - (foldr1 __tmp47951 _L5691_ _L5659_)))) + (cons _g57335736_ _g57345739_))) + _L5691_ + _L5659_))) (declare (not safe)) - (cons _L5593_ __tmp47950))) - (__tmp47948 + (cons _L5593_ __tmp50003))) + (__tmp50001 (let () (declare (not safe)) (cons _L5719_ '())))) (declare (not safe)) - (cons __tmp47949 __tmp47948)))) + (cons __tmp50002 __tmp50001)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47952 __tmp47947)) + (cons __tmp50004 __tmp50000)) (gx#stx-source _stx4661_))))) _g57055716_)))) (_g57035742_ (_make-body5283_ _kwargs5279_ - (let ((__tmp47953 - (lambda (_g57455748_ _g57465751_) + (foldr (lambda (_g57455748_ _g57465751_) (let () (declare (not safe)) - (cons _g57455748_ _g57465751_))))) - (declare (not safe)) - (foldr1 __tmp47953 '() _L5659_))))))) + (cons _g57455748_ _g57465751_))) + '() + _L5659_)))))) _g56775688_)))) (_g56755754_ _args5280_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2182,28 +2146,28 @@ (lambda (_g54175437_) (if (gx#stx-pair/null? _g54175437_) - (let ((_g47954_ + (let ((_g50005_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g54175437_ '0))) (begin - (let ((_g47955_ + (let ((_g50006_ (let () (declare (not safe)) - (if (##values? _g47954_) - (##vector-length _g47954_) + (if (##values? _g50005_) + (##vector-length _g50005_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47955_ 2))) - (error "Context expects 2 values" _g47955_))) + (##fx= _g50006_ 2))) + (error "Context expects 2 values" _g50006_))) (let ((_target54195440_ (let () (declare (not safe)) - (##vector-ref _g47954_ 0))) + (##vector-ref _g50005_ 0))) (_tl54215443_ (let () (declare (not safe)) - (##vector-ref _g47954_ 1)))) + (##vector-ref _g50005_ 1)))) (if (gx#stx-null? _tl54215443_) (letrec ((_loop54225446_ (lambda (_hd54205450_ @@ -2243,51 +2207,48 @@ (let () (let () (gx#stx-wrap-source - (let ((__tmp47968 + (let ((__tmp50017 (gx#datum->syntax '#f 'lambda)) - (__tmp47956 - (let ((__tmp47966 - (let ((__tmp47967 + (__tmp50007 + (let ((__tmp50015 + (let ((__tmp50016 (gx#datum->syntax '#f 'args))) (declare (not safe)) - (cons _L5404_ __tmp47967))) - (__tmp47957 - (let ((__tmp47958 - (let ((__tmp47965 + (cons _L5404_ __tmp50016))) + (__tmp50008 + (let ((__tmp50009 + (let ((__tmp50014 (gx#datum->syntax '#f 'apply)) - (__tmp47959 - (let ((__tmp47960 + (__tmp50010 + (let ((__tmp50011 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47961 - (let ((__tmp47964 - (lambda (_g55165519_ _g55175522_) + (let ((__tmp50012 + (foldr (lambda (_g55165519_ _g55175522_) (let () (declare (not safe)) - (cons _g55165519_ _g55175522_)))) - (__tmp47962 - (let ((__tmp47963 + (cons _g55165519_ _g55175522_))) + (let ((__tmp50013 (gx#datum->syntax '#f 'args))) (declare (not safe)) - (cons __tmp47963 '())))) - (declare (not safe)) - (foldr1 __tmp47964 __tmp47962 _L5470_)))) + (cons __tmp50013 '())) + _L5470_))) (declare (not safe)) - (cons _L5404_ __tmp47961)))) + (cons _L5404_ __tmp50012)))) (declare (not safe)) - (cons _L5502_ __tmp47960)))) + (cons _L5502_ __tmp50011)))) (declare (not safe)) - (cons __tmp47965 __tmp47959)))) + (cons __tmp50014 __tmp50010)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47958 '())))) + (cons __tmp50009 '())))) (declare (not safe)) - (cons __tmp47966 __tmp47957)))) + (cons __tmp50015 __tmp50008)))) (declare (not safe)) - (cons __tmp47968 __tmp47956)) + (cons __tmp50017 __tmp50007)) (gx#stx-source _stx4661_))))) _g54885499_)))) (_g54865525_ _main5386_)))) @@ -2310,16 +2271,18 @@ (lambda (_g55375548_) ((lambda (_L5551_) (let () - (let ((__tmp47976 - (gx#datum->syntax '#f 'hash-ref)) - (__tmp47969 - (let ((__tmp47970 - (let ((__tmp47973 - (let ((__tmp47975 + (let ((__tmp50025 + (gx#datum->syntax + '#f + 'symbolic-table-ref)) + (__tmp50018 + (let ((__tmp50019 + (let ((__tmp50022 + (let ((__tmp50024 (gx#datum->syntax '#f 'quote)) - (__tmp47974 + (__tmp50023 (let () (declare (not safe)) @@ -2327,21 +2290,21 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp47975 __tmp47974))) + (cons __tmp50024 __tmp50023))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp47971 - (let ((__tmp47972 + (__tmp50020 + (let ((__tmp50021 (gx#datum->syntax '#f 'absent-value))) (declare (not safe)) - (cons __tmp47972 '())))) + (cons __tmp50021 '())))) (declare (not safe)) - (cons __tmp47973 __tmp47971)))) + (cons __tmp50022 __tmp50020)))) (declare (not safe)) - (cons _L5404_ __tmp47970)))) + (cons _L5404_ __tmp50019)))) (declare (not safe)) - (cons __tmp47976 __tmp47969)))) + (cons __tmp50025 __tmp50018)))) _g55375548_)))) (_g55355564_ (car _kwarg5533_)))) _kwargs5279_))))) @@ -2384,16 +2347,16 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (let () - (let ((__tmp47983 + (let ((__tmp50032 (gx#datum->syntax '#f 'let-values)) - (__tmp47977 - (let ((__tmp47979 - (let ((__tmp47980 - (let ((__tmp47982 + (__tmp50026 + (let ((__tmp50028 + (let ((__tmp50029 + (let ((__tmp50031 (let () (declare (not safe)) (cons _L5303_ '()))) - (__tmp47981 + (__tmp50030 (let () (declare (not safe)) (cons _L5359_ @@ -2401,18 +2364,18 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47982 - __tmp47981)))) + (cons __tmp50031 + __tmp50030)))) (declare (not safe)) - (cons __tmp47980 '()))) - (__tmp47978 + (cons __tmp50029 '()))) + (__tmp50027 (let () (declare (not safe)) (cons _L5331_ '())))) (declare (not safe)) - (cons __tmp47979 __tmp47978)))) + (cons __tmp50028 __tmp50027)))) (declare (not safe)) - (cons __tmp47983 __tmp47977))))) + (cons __tmp50032 __tmp50026))))) _g53455356_)))) (_g53435374_ (_make-main5285_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2474,50 +2437,50 @@ _L5253_ _L5254_) (let () - (let ((__tmp47996 (gx#datum->syntax '#f 'lambda%)) - (__tmp47984 - (let ((__tmp47985 - (let ((__tmp47986 - (let ((__tmp47995 + (let ((__tmp50045 (gx#datum->syntax '#f 'lambda%)) + (__tmp50033 + (let ((__tmp50034 + (let ((__tmp50035 + (let ((__tmp50044 (gx#datum->syntax '#f 'apply)) - (__tmp47987 - (let ((__tmp47994 + (__tmp50036 + (let ((__tmp50043 (gx#datum->syntax '#f 'keyword-dispatch)) - (__tmp47988 - (let ((__tmp47991 + (__tmp50037 + (let ((__tmp50040 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47993 (gx#datum->syntax '#f 'quote)) - (__tmp47992 + (let ((__tmp50042 (gx#datum->syntax '#f 'quote)) + (__tmp50041 (let () (declare (not safe)) (cons _L5254_ '())))) (declare (not safe)) - (cons __tmp47993 __tmp47992))) - (__tmp47989 - (let ((__tmp47990 + (cons __tmp50042 __tmp50041))) + (__tmp50038 + (let ((__tmp50039 (let () (declare (not safe)) (cons _L5251_ '())))) (declare (not safe)) - (cons _L5253_ __tmp47990)))) + (cons _L5253_ __tmp50039)))) (declare (not safe)) - (cons __tmp47991 __tmp47989)))) + (cons __tmp50040 __tmp50038)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47994 - __tmp47988)))) + (cons __tmp50043 + __tmp50037)))) (declare (not safe)) - (cons __tmp47995 __tmp47987)))) + (cons __tmp50044 __tmp50036)))) (declare (not safe)) - (cons __tmp47986 '())))) + (cons __tmp50035 '())))) (declare (not safe)) - (cons _L5251_ __tmp47985)))) + (cons _L5251_ __tmp50034)))) (declare (not safe)) - (cons __tmp47996 __tmp47984)))) + (cons __tmp50045 __tmp50033)))) _hd52075245_ _hd52045235_ _hd52015225_) @@ -2553,54 +2516,56 @@ (fx* '3 (vector-length _pht5170_)) '2) '#f)) - (error '"Unresolvable keyword collision" - _kws5164_)) + (let () + (declare (not safe)) + (error '"Unresolvable keyword collision" + _kws5164_))) (begin (vector-set! _pht5170_ _pos5185_ _key5179_) (_lp5173_ _rest5182_)))) _pht5170_)))))) - (let* ((___stx4303343034_ _stx4661_) + (let* ((___stx4513745138_ _stx4661_) (_g46824713_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4303343034_)))) - (let ((___kont4303643037_ + ___stx4513745138_)))) + (let ((___kont4514045141_ (lambda (_L5145_ _L5147_) - (let ((__tmp47998 (gx#datum->syntax '#f 'lambda%)) - (__tmp47997 + (let ((__tmp50047 (gx#datum->syntax '#f 'lambda%)) + (__tmp50046 (let () (declare (not safe)) (cons _L5147_ _L5145_)))) (declare (not safe)) - (cons __tmp47998 __tmp47997)))) - (___kont4303843039_ + (cons __tmp50047 __tmp50046)))) + (___kont4514245143_ (lambda (_L4917_ _L4919_) - (let ((_g47999_ (_opt-lambda-split4667_ _L4919_))) + (let ((_g50048_ (_opt-lambda-split4667_ _L4919_))) (begin - (let ((_g48000_ + (let ((_g50049_ (let () (declare (not safe)) - (if (##values? _g47999_) - (##vector-length _g47999_) + (if (##values? _g50048_) + (##vector-length _g50048_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48000_ 3))) - (error "Context expects 3 values" _g48000_))) + (##fx= _g50049_ 3))) + (error "Context expects 3 values" _g50049_))) (let ((_pre4932_ (let () (declare (not safe)) - (##vector-ref _g47999_ 0))) + (##vector-ref _g50048_ 0))) (_opt4934_ (let () (declare (not safe)) - (##vector-ref _g47999_ 1))) + (##vector-ref _g50048_ 1))) (_tail4935_ (let () (declare (not safe)) - (##vector-ref _g47999_ 2)))) + (##vector-ref _g50048_ 2)))) (let* ((_g49374945_ (lambda (_g49384941_) (gx#raise-syntax-error @@ -2631,28 +2596,28 @@ (_g49925106_ (lambda (_g49945014_) (if (gx#stx-pair/null? _g49945014_) - (let ((_g48001_ + (let ((_g50050_ (gx#syntax-split-splice _g49945014_ '0))) (begin - (let ((_g48002_ + (let ((_g50051_ (let () (declare (not safe)) - (if (##values? _g48001_) - (##vector-length _g48001_) + (if (##values? _g50050_) + (##vector-length _g50050_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48002_ 2))) + (##fx= _g50051_ 2))) (error "Context expects 2 values" - _g48002_))) + _g50051_))) (let ((_target49965017_ (let () (declare (not safe)) - (##vector-ref _g48001_ 0))) + (##vector-ref _g50050_ 0))) (_tl49985020_ (let () (declare (not safe)) - (##vector-ref _g48001_ 1)))) + (##vector-ref _g50050_ 1)))) (if (gx#stx-null? _tl49985020_) (letrec ((_loop49995023_ (lambda (_hd49975027_ @@ -2686,45 +2651,43 @@ ((lambda (_L5079_) (let () (let () - (let ((__tmp48009 + (let ((__tmp50058 (gx#datum->syntax '#f 'let-values)) - (__tmp48003 - (let ((__tmp48005 - (let ((__tmp48006 - (let ((__tmp48008 + (__tmp50052 + (let ((__tmp50054 + (let ((__tmp50055 + (let ((__tmp50057 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L4952_ '()))) - (__tmp48007 + (__tmp50056 (let () (declare (not safe)) (cons _L4980_ '())))) (declare (not safe)) - (cons __tmp48008 __tmp48007)))) + (cons __tmp50057 __tmp50056)))) (declare (not safe)) - (cons __tmp48006 '()))) - (__tmp48004 (let () (declare (not safe)) (cons _L5079_ '())))) + (cons __tmp50055 '()))) + (__tmp50053 (let () (declare (not safe)) (cons _L5079_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48005 - __tmp48004)))) + (cons __tmp50054 + __tmp50053)))) (declare (not safe)) - (cons __tmp48009 __tmp48003))))) + (cons __tmp50058 __tmp50052))))) _g50655076_)))) (_g50635094_ (gx#stx-wrap-source - (let ((__tmp48012 + (let ((__tmp50060 (gx#datum->syntax '#f 'case-lambda)) - (__tmp48010 - (let ((__tmp48011 - (lambda (_g50975100_ _g50985103_) + (__tmp50059 + (foldr (lambda (_g50975100_ _g50985103_) (let () (declare (not safe)) - (cons _g50975100_ - _g50985103_))))) - (declare (not safe)) - (foldr1 __tmp48011 '() _L5047_)))) + (cons _g50975100_ _g50985103_))) + '() + _L5047_))) (declare (not safe)) - (cons __tmp48012 __tmp48010)) + (cons __tmp50060 __tmp50059)) (gx#stx-source _stx4661_)))))) _clause50045043_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2751,7 +2714,7 @@ (gx#stx-source _stx4661_)))))) _g49384949_)))) (_g49365114_ (gx#genident 'opt-lambda)))))))) - (___kont4304043041_ + (___kont4514445145_ (lambda (_L4740_ _L4742_) (let* ((_g47584765_ (lambda (_g47594761_) @@ -2763,32 +2726,32 @@ (lambda (_g47594769_) ((lambda () (let () - (let ((_g48013_ + (let ((_g50061_ (_kw-lambda-split4669_ _L4742_))) (begin - (let ((_g48014_ + (let ((_g50062_ (let () (declare (not safe)) - (if (##values? _g48013_) - (##vector-length _g48013_) + (if (##values? _g50061_) + (##vector-length _g50061_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48014_ 3))) + (##fx= _g50062_ 3))) (error "Context expects 3 values" - _g48014_))) + _g50062_))) (let ((_key4778_ (let () (declare (not safe)) - (##vector-ref _g48013_ 0))) + (##vector-ref _g50061_ 0))) (_kwargs4780_ (let () (declare (not safe)) - (##vector-ref _g48013_ 1))) + (##vector-ref _g50061_ 1))) (_args4781_ (let () (declare (not safe)) - (##vector-ref _g48013_ 2)))) + (##vector-ref _g50061_ 2)))) (let* ((_g47834791_ (lambda (_g47844787_) (gx#raise-syntax-error @@ -2821,34 +2784,34 @@ ((lambda (_L4859_) (let () (let () - (let ((__tmp48021 + (let ((__tmp50069 (gx#datum->syntax '#f 'let-values)) - (__tmp48015 - (let ((__tmp48017 - (let ((__tmp48018 + (__tmp50063 + (let ((__tmp50065 + (let ((__tmp50066 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48020 + (let ((__tmp50068 (let () (declare (not safe)) (cons _L4798_ '()))) - (__tmp48019 + (__tmp50067 (let () (declare (not safe)) (cons _L4831_ '())))) (declare (not safe)) - (cons __tmp48020 __tmp48019)))) + (cons __tmp50068 __tmp50067)))) (declare (not safe)) - (cons __tmp48018 '()))) - (__tmp48016 + (cons __tmp50066 '()))) + (__tmp50064 (let () (declare (not safe)) (cons _L4859_ '())))) (declare (not safe)) - (cons __tmp48017 __tmp48016)))) + (cons __tmp50065 __tmp50064)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48021 - __tmp48015))))) + (cons __tmp50069 + __tmp50063))))) _g48454856_)))) (_g48434874_ (gx#stx-wrap-source @@ -2875,7 +2838,7 @@ 'kw-lambda)))))))))))) (_g47574886_ (_check-duplicate-bindings4671_ _L4742_)))))) - (let* ((___match4307843079_ + (let* ((___match4518245183_ (lambda (_e47044720_ _hd47034724_ _tl47024727_ @@ -2884,9 +2847,9 @@ _tl47054737_) (let ((_L4740_ _tl47054737_) (_L4742_ _hd47064734_)) (if (_kw-lambda?4668_ _L4742_) - (___kont4304043041_ _L4740_ _L4742_) + (___kont4514445145_ _L4740_ _L4742_) (let () (declare (not safe)) (_g46824713_)))))) - (___match4306643067_ + (___match4517045171_ (lambda (_e46964897_ _hd46954901_ _tl46944904_ @@ -2895,15 +2858,15 @@ _tl46974914_) (let ((_L4917_ _tl46974914_) (_L4919_ _hd46984911_)) (if (_opt-lambda?4666_ _L4919_) - (___kont4303843039_ _L4917_ _L4919_) - (___match4307843079_ + (___kont4514245143_ _L4917_ _L4919_) + (___match4518245183_ _e46964897_ _hd46954901_ _tl46944904_ _e46994907_ _hd46984911_ _tl46974914_))))) - (___match4305443055_ + (___match4515845159_ (lambda (_e46885125_ _hd46875129_ _tl46865132_ @@ -2912,16 +2875,16 @@ _tl46895142_) (let ((_L5145_ _tl46895142_) (_L5147_ _hd46905139_)) (if (_simple-lambda?4664_ _L5147_) - (___kont4303643037_ _L5145_ _L5147_) - (___match4306643067_ + (___kont4514045141_ _L5145_ _L5147_) + (___match4517045171_ _e46885125_ _hd46875129_ _tl46865132_ _e46915135_ _hd46905139_ _tl46895142_)))))) - (if (gx#stx-pair? ___stx4303343034_) - (let ((_e46885125_ (gx#syntax-e ___stx4303343034_))) + (if (gx#stx-pair? ___stx4513745138_) + (let ((_e46885125_ (gx#syntax-e ___stx4513745138_))) (let ((_tl46865132_ (let () (declare (not safe)) (##cdr _e46885125_))) (_hd46875129_ @@ -2938,7 +2901,7 @@ (let () (declare (not safe)) (##car _e46915135_)))) - (___match4305443055_ + (___match4515845159_ _e46885125_ _hd46875129_ _tl46865132_ @@ -2949,98 +2912,96 @@ (let () (declare (not safe)) (_g46824713_))))))))) (define |gerbil/core$$[:0:]#def| (lambda (_$stx8077_) - (let* ((___stx4308143082_ _$stx8077_) + (let* ((___stx4518545186_ _$stx8077_) (_g80838147_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4308143082_)))) - (let ((___kont4308443085_ + ___stx4518545186_)))) + (let ((___kont4518845189_ (lambda (_L8377_ _L8379_ _L8380_ _L8381_) - (let ((__tmp48030 (gx#datum->syntax '#f 'def)) - (__tmp48022 - (let ((__tmp48029 + (let ((__tmp50077 (gx#datum->syntax '#f 'def)) + (__tmp50070 + (let ((__tmp50076 (let () (declare (not safe)) (cons _L8381_ _L8380_))) - (__tmp48023 - (let ((__tmp48024 - (let ((__tmp48028 + (__tmp50071 + (let ((__tmp50072 + (let ((__tmp50075 (gx#datum->syntax '#f 'lambda)) - (__tmp48025 - (let ((__tmp48026 - (let ((__tmp48027 - (lambda (_g84038406_ + (__tmp50073 + (let ((__tmp50074 + (foldr (lambda (_g84038406_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g84048409_) (let () (declare (not safe)) - (cons _g84038406_ _g84048409_))))) - (declare (not safe)) - (foldr1 __tmp48027 '() _L8377_)))) + (cons _g84038406_ _g84048409_))) + '() + _L8377_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L8379_ __tmp48026)))) + (cons _L8379_ __tmp50074)))) (declare (not safe)) - (cons __tmp48028 __tmp48025)))) + (cons __tmp50075 __tmp50073)))) (declare (not safe)) - (cons __tmp48024 '())))) + (cons __tmp50072 '())))) (declare (not safe)) - (cons __tmp48029 __tmp48023)))) + (cons __tmp50076 __tmp50071)))) (declare (not safe)) - (cons __tmp48030 __tmp48022)))) - (___kont4308843089_ + (cons __tmp50077 __tmp50070)))) + (___kont4519245193_ (lambda (_L8269_ _L8271_ _L8272_) - (let ((__tmp48039 (gx#datum->syntax '#f 'define-values)) - (__tmp48031 - (let ((__tmp48038 + (let ((__tmp50085 (gx#datum->syntax '#f 'define-values)) + (__tmp50078 + (let ((__tmp50084 (let () (declare (not safe)) (cons _L8272_ '()))) - (__tmp48032 - (let ((__tmp48033 - (let ((__tmp48037 + (__tmp50079 + (let ((__tmp50080 + (let ((__tmp50083 (gx#datum->syntax '#f 'lambda)) - (__tmp48034 - (let ((__tmp48035 - (let ((__tmp48036 - (lambda (_g82918294_ + (__tmp50081 + (let ((__tmp50082 + (foldr (lambda (_g82918294_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g82928297_) (let () (declare (not safe)) - (cons _g82918294_ _g82928297_))))) - (declare (not safe)) - (foldr1 __tmp48036 '() _L8269_)))) + (cons _g82918294_ _g82928297_))) + '() + _L8269_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L8271_ __tmp48035)))) + (cons _L8271_ __tmp50082)))) (declare (not safe)) - (cons __tmp48037 __tmp48034)))) + (cons __tmp50083 __tmp50081)))) (declare (not safe)) - (cons __tmp48033 '())))) + (cons __tmp50080 '())))) (declare (not safe)) - (cons __tmp48038 __tmp48032)))) + (cons __tmp50084 __tmp50079)))) (declare (not safe)) - (cons __tmp48039 __tmp48031)))) - (___kont4309243093_ + (cons __tmp50085 __tmp50078)))) + (___kont4519645197_ (lambda (_L8184_ _L8186_) - (let ((__tmp48043 (gx#datum->syntax '#f 'define-values)) - (__tmp48040 - (let ((__tmp48042 + (let ((__tmp50089 (gx#datum->syntax '#f 'define-values)) + (__tmp50086 + (let ((__tmp50088 (let () (declare (not safe)) (cons _L8186_ '()))) - (__tmp48041 + (__tmp50087 (let () (declare (not safe)) (cons _L8184_ '())))) (declare (not safe)) - (cons __tmp48042 __tmp48041)))) + (cons __tmp50088 __tmp50087)))) (declare (not safe)) - (cons __tmp48043 __tmp48040))))) - (let* ((___match4317243173_ + (cons __tmp50089 __tmp50086))))) + (let* ((___match4527645277_ (lambda (_e81358154_ _hd81348158_ _tl81338161_ @@ -3052,9 +3013,9 @@ _tl81398181_) (let ((_L8184_ _hd81408178_) (_L8186_ _hd81378168_)) (if (gx#identifier? _L8186_) - (___kont4309243093_ _L8184_ _L8186_) + (___kont4519645197_ _L8184_ _L8186_) (let () (declare (not safe)) (_g80838147_)))))) - (___match4316443165_ + (___match4526845269_ (lambda (_e81358154_ _hd81348158_ _tl81338161_ @@ -3072,7 +3033,7 @@ (declare (not safe)) (##car _e81418174_)))) (if (gx#stx-null? _tl81398181_) - (___match4317243173_ + (___match4527645277_ _e81358154_ _hd81348158_ _tl81338161_ @@ -3086,7 +3047,7 @@ (declare (not safe)) (_g80838147_))))) (let () (declare (not safe)) (_g80838147_))))) - (___match4315243153_ + (___match4525645257_ (lambda (_e81158209_ _hd81148213_ _tl81138216_ @@ -3096,7 +3057,7 @@ _e81218229_ _hd81208233_ _tl81198236_ - ___splice4309043091_ + ___splice4519445195_ _target81228239_ _tl81248242_) (letrec ((_loop81258245_ @@ -3124,11 +3085,11 @@ (_L8271_ _tl81198236_) (_L8272_ _hd81208233_)) (if (gx#identifier? _L8272_) - (___kont4308843089_ + (___kont4519245193_ _L8269_ _L8271_ _L8272_) - (___match4316443165_ + (___match4526845269_ _e81158209_ _hd81148213_ _tl81138216_ @@ -3136,7 +3097,7 @@ _hd81178223_ _tl81168226_)))))))) (_loop81258245_ _target81228239_ '())))) - (___match4312643127_ + (___match4523045231_ (lambda (_e80918307_ _hd80908311_ _tl80898314_ @@ -3149,7 +3110,7 @@ _e81008337_ _hd80998341_ _tl80988344_ - ___splice4308643087_ + ___splice4519045191_ _target81018347_ _tl81038350_) (letrec ((_loop81048353_ @@ -3173,14 +3134,14 @@ _body81088360_))))) (let ((_body81098373_ (reverse _body81088360_))) - (___kont4308443085_ + (___kont4518845189_ _body81098373_ _tl80958334_ _tl80988344_ _hd80998341_)))))) (_loop81048353_ _target81018347_ '()))))) - (if (gx#stx-pair? ___stx4308143082_) - (let ((_e80918307_ (gx#syntax-e ___stx4308143082_))) + (if (gx#stx-pair? ___stx4518545186_) + (let ((_e80918307_ (gx#syntax-e ___stx4518545186_))) (let ((_tl80898314_ (let () (declare (not safe)) (##cdr _e80918307_))) (_hd80908311_ @@ -3219,7 +3180,7 @@ (##car _e81008337_)))) (if (gx#stx-pair/null? _tl80928324_) - (let ((___splice4308643087_ + (let ((___splice4519045191_ (gx#syntax-split-splice _tl80928324_ '0))) @@ -3228,18 +3189,18 @@ (declare (not safe)) (##vector-ref - ___splice4308643087_ + ___splice4519045191_ '1))) (_target81018347_ (let () (declare (not safe)) (##vector-ref - ___splice4308643087_ + ___splice4519045191_ '0)))) (if (gx#stx-null? _tl81038350_) - (___match4312643127_ + (___match4523045231_ _e80918307_ _hd80908311_ _tl80898314_ @@ -3252,7 +3213,7 @@ _e81008337_ _hd80998341_ _tl80988344_ - ___splice4308643087_ + ___splice4519045191_ _target81018347_ _tl81038350_) (if (gx#stx-pair? @@ -3269,7 +3230,7 @@ (declare (not safe)) (##car _e81418174_)))) (if (gx#stx-null? _tl81398181_) - (___match4317243173_ + (___match4527645277_ _e80918307_ _hd80908311_ _tl80898314_ @@ -3295,7 +3256,7 @@ (_hd81408178_ (let () (declare (not safe)) (##car _e81418174_)))) (if (gx#stx-null? _tl81398181_) - (___match4317243173_ + (___match4527645277_ _e80918307_ _hd80908311_ _tl80898314_ @@ -3309,7 +3270,7 @@ (let () (declare (not safe)) (_g80838147_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _tl80928324_) - (let ((___splice4309043091_ + (let ((___splice4519445195_ (gx#syntax-split-splice _tl80928324_ '0))) @@ -3317,17 +3278,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4309043091_ + ___splice4519445195_ '1))) (_target81228239_ (let () (declare (not safe)) (##vector-ref - ___splice4309043091_ + ___splice4519445195_ '0)))) (if (gx#stx-null? _tl81248242_) - (___match4315243153_ + (___match4525645257_ _e80918307_ _hd80908311_ _tl80898314_ @@ -3337,7 +3298,7 @@ _e80978327_ _hd80968331_ _tl80958334_ - ___splice4309043091_ + ___splice4519445195_ _target81228239_ _tl81248242_) (if (gx#stx-pair? @@ -3350,7 +3311,7 @@ (_hd81408178_ (let () (declare (not safe)) (##car _e81418174_)))) (if (gx#stx-null? _tl81398181_) - (___match4317243173_ + (___match4527645277_ _e80918307_ _hd80908311_ _tl80898314_ @@ -3379,7 +3340,7 @@ (##car _e81418174_)))) (if (gx#stx-null? _tl81398181_) - (___match4317243173_ + (___match4527645277_ _e80918307_ _hd80908311_ _tl80898314_ @@ -3408,7 +3369,7 @@ (declare (not safe)) (##car _e81418174_)))) (if (gx#stx-null? _tl81398181_) - (___match4317243173_ + (___match4527645277_ _e80918307_ _hd80908311_ _tl80898314_ @@ -3457,31 +3418,31 @@ (declare (not safe)) (##cdr _e84318463_)))) (if (gx#stx-pair/null? _tl84298470_) - (let ((_g48044_ + (let ((_g50090_ (gx#syntax-split-splice _tl84298470_ '0))) (begin - (let ((_g48045_ + (let ((_g50091_ (let () (declare (not safe)) - (if (##values? _g48044_) + (if (##values? _g50090_) (##vector-length - _g48044_) + _g50090_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48045_ 2))) + (##fx= _g50091_ 2))) (error "Context expects 2 values" - _g48045_))) + _g50091_))) (let ((_target84328473_ (let () (declare (not safe)) - (##vector-ref _g48044_ 0))) + (##vector-ref _g50090_ 0))) (_tl84348476_ (let () (declare (not safe)) - (##vector-ref _g48044_ 1)))) + (##vector-ref _g50090_ 1)))) (if (gx#stx-null? _tl84348476_) (letrec ((_loop84358479_ (lambda (_hd84338483_ @@ -3505,37 +3466,37 @@ (let ((_clauses84408499_ (reverse _clauses84398486_))) ((lambda (_L8503_ _L8505_) (if (gx#identifier? _L8505_) - (let ((__tmp48053 + (let ((__tmp50098 (gx#datum->syntax '#f 'define-values)) - (__tmp48046 - (let ((__tmp48052 + (__tmp50092 + (let ((__tmp50097 (let () (declare (not safe)) (cons _L8505_ '()))) - (__tmp48047 - (let ((__tmp48048 - (let ((__tmp48051 + (__tmp50093 + (let ((__tmp50094 + (let ((__tmp50096 (gx#datum->syntax '#f 'case-lambda)) - (__tmp48049 - (let ((__tmp48050 + (__tmp50095 + (foldr (lambda (_g85228525_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g85228525_ _g85238528_) + _g85238528_) (let () (declare (not safe)) - (cons _g85228525_ _g85238528_))))) - (declare (not safe)) - (foldr1 __tmp48050 '() _L8503_)))) + (cons _g85228525_ _g85238528_))) + '() + _L8503_))) (declare (not safe)) - (cons __tmp48051 __tmp48049)))) + (cons __tmp50096 __tmp50095)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48048 '())))) + (cons __tmp50094 '())))) (declare (not safe)) - (cons __tmp48052 __tmp48047)))) + (cons __tmp50097 __tmp50093)))) (declare (not safe)) - (cons __tmp48053 __tmp48046)) + (cons __tmp50098 __tmp50092)) (_g84228446_ _g84238450_))) _clauses84408499_ _hd84308467_)))))) @@ -3593,18 +3554,18 @@ ((lambda (_L8595_ _L8597_) (if (gx#identifier-list? _L8597_) - (let ((__tmp48056 + (let ((__tmp50101 (gx#datum->syntax '#f 'define-values)) - (__tmp48054 - (let ((__tmp48055 + (__tmp50099 + (let ((__tmp50100 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L8595_ '())))) (declare (not safe)) - (cons _L8597_ __tmp48055)))) + (cons _L8597_ __tmp50100)))) (declare (not safe)) - (cons __tmp48056 __tmp48054)) + (cons __tmp50101 __tmp50099)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g85408558_ _g85418562_))) @@ -3646,31 +3607,31 @@ (declare (not safe)) (##cdr _e86308662_)))) (if (gx#stx-pair/null? _tl86288669_) - (let ((_g48057_ + (let ((_g50102_ (gx#syntax-split-splice _tl86288669_ '0))) (begin - (let ((_g48058_ + (let ((_g50103_ (let () (declare (not safe)) - (if (##values? _g48057_) + (if (##values? _g50102_) (##vector-length - _g48057_) + _g50102_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48058_ 2))) + (##fx= _g50103_ 2))) (error "Context expects 2 values" - _g48058_))) + _g50103_))) (let ((_target86318672_ (let () (declare (not safe)) - (##vector-ref _g48057_ 0))) + (##vector-ref _g50102_ 0))) (_tl86338675_ (let () (declare (not safe)) - (##vector-ref _g48057_ 1)))) + (##vector-ref _g50102_ 1)))) (if (gx#stx-null? _tl86338675_) (letrec ((_loop86348678_ (lambda (_hd86328682_ @@ -3693,49 +3654,48 @@ (cons _lp-hd86368692_ _clause86388685_))))) (let ((_clause86398698_ (reverse _clause86388685_))) ((lambda (_L8702_ _L8704_) - (let ((__tmp48070 (gx#datum->syntax '#f 'let)) - (__tmp48059 - (let ((__tmp48067 - (let ((__tmp48069 + (let ((__tmp50114 (gx#datum->syntax '#f 'let)) + (__tmp50104 + (let ((__tmp50111 + (let ((__tmp50113 (gx#datum->syntax '#f '$e)) - (__tmp48068 + (__tmp50112 (let () (declare (not safe)) (cons _L8704_ '())))) (declare (not safe)) - (cons __tmp48069 __tmp48068))) - (__tmp48060 - (let ((__tmp48061 - (let ((__tmp48066 + (cons __tmp50113 __tmp50112))) + (__tmp50105 + (let ((__tmp50106 + (let ((__tmp50110 (gx#datum->syntax '#f '~case)) - (__tmp48062 - (let ((__tmp48065 + (__tmp50107 + (let ((__tmp50109 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$e)) - (__tmp48063 - (let ((__tmp48064 - (lambda (_g87218724_ _g87228727_) + (__tmp50108 + (foldr (lambda (_g87218724_ _g87228727_) (let () (declare (not safe)) - (cons _g87218724_ _g87228727_))))) - (declare (not safe)) - (foldr1 __tmp48064 '() _L8702_)))) + (cons _g87218724_ _g87228727_))) + '() + _L8702_))) (declare (not safe)) - (cons __tmp48065 __tmp48063)))) + (cons __tmp50109 __tmp50108)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48066 - __tmp48062)))) + (cons __tmp50110 + __tmp50107)))) (declare (not safe)) - (cons __tmp48061 '())))) + (cons __tmp50106 '())))) (declare (not safe)) - (cons __tmp48067 __tmp48060)))) + (cons __tmp50111 __tmp50105)))) (declare (not safe)) - (cons __tmp48070 __tmp48059))) + (cons __tmp50114 __tmp50104))) _clause86398698_ _hd86298666_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3755,23 +3715,23 @@ (_datums11210_ '()) (_dispatch11211_ '()) (_default11212_ '#f)) - (let* ((___stx4327143272_ _rest11208_) + (let* ((___stx4537545376_ _rest11208_) (_g1121511227_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4327143272_)))) - (let ((___kont4327443275_ + ___stx4537545376_)))) + (let ((___kont4537845379_ (lambda (_L11259_ _L11261_) - (let* ((___stx4317543176_ _L11261_) + (let* ((___stx4527945280_ _L11261_) (_g1127911352_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4317543176_)))) - (let ((___kont4317843179_ + ___stx4527945280_)))) + (let ((___kont4528245283_ (lambda (_L11717_) (if (gx#stx-null? _L11259_) (let* ((_g1173211740_ @@ -3788,13 +3748,13 @@ '() _datums11210_ _dispatch11211_ - (let ((__tmp48071 + (let ((__tmp50115 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L11747_ '())))) (declare (not safe)) - (cons _L11717_ __tmp48071))))) + (cons _L11717_ __tmp50115))))) _g1173311744_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g1173111759_ _e11201_)) @@ -3803,51 +3763,49 @@ '"Misplaced else clause" _stx8735_ _L11261_)))) - (___kont4318043181_ + (___kont4528445285_ (lambda (_L11657_) (if (gx#stx-null? _L11259_) (_lp11205_ '() _datums11210_ _dispatch11211_ - (let ((__tmp48074 + (let ((__tmp50117 (gx#datum->syntax '#f 'begin)) - (__tmp48072 - (let ((__tmp48073 - (lambda (_g1167111674_ + (__tmp50116 + (foldr (lambda (_g1167111674_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1167211677_) (let () (declare (not safe)) - (cons _g1167111674_ _g1167211677_))))) - (declare (not safe)) - (foldr1 __tmp48073 '() _L11657_)))) + (cons _g1167111674_ _g1167211677_))) + '() + _L11657_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48074 - __tmp48072))) + (cons __tmp50117 + __tmp50116))) (gx#raise-syntax-error '#f '"Misplaced else clause" _stx8735_ _L11261_)))) - (___kont4318443185_ + (___kont4528845289_ (lambda (_L11542_ _L11544_) - (if (let ((__tmp48079 - (let ((__tmp48080 - (lambda (_g1156211565_ + (if (let ((__tmp50121 + (foldr (lambda (_g1156211565_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1156311568_) (let () (declare (not safe)) - (cons _g1156211565_ _g1156311568_))))) - (declare (not safe)) - (foldr1 __tmp48080 '() _L11544_)))) + (cons _g1156211565_ _g1156311568_))) + '() + _L11544_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (null? __tmp48079)) + (null? __tmp50121)) (_lp11205_ _L11259_ _datums11210_ @@ -3865,48 +3823,46 @@ (let () (_lp11205_ _L11259_ - (let ((__tmp48075 + (let ((__tmp50118 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (map gx#stx-e - (let ((__tmp48076 - (lambda (_g1159711600_ + (foldr (lambda (_g1159711600_ _g1159811603_) (let () (declare (not safe)) (cons _g1159711600_ - _g1159811603_))))) - (declare (not safe)) - (foldr1 __tmp48076 '() _L11544_))))) + _g1159811603_))) + '() + _L11544_)))) (declare (not safe)) - (cons __tmp48075 _datums11210_)) - (let ((__tmp48077 - (let ((__tmp48078 + (cons __tmp50118 _datums11210_)) + (let ((__tmp50119 + (let ((__tmp50120 (let () (declare (not safe)) (cons _L11586_ '())))) (declare (not safe)) - (cons _L11542_ __tmp48078)))) + (cons _L11542_ __tmp50120)))) (declare (not safe)) - (cons __tmp48077 _dispatch11211_)) + (cons __tmp50119 _dispatch11211_)) _default11212_))) _g1157211583_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g1157011606_ _e11201_))))) - (___kont4318843189_ + (___kont4529245293_ (lambda (_L11429_ _L11431_) - (if (let ((__tmp48087 - (let ((__tmp48088 - (lambda (_g1145011453_ + (if (let ((__tmp50126 + (foldr (lambda (_g1145011453_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1145111456_) (let () (declare (not safe)) - (cons _g1145011453_ _g1145111456_))))) - (declare (not safe)) - (foldr1 __tmp48088 '() _L11431_)))) + (cons _g1145011453_ _g1145111456_))) + '() + _L11431_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (null? __tmp48087)) + (null? __tmp50126)) (_lp11205_ _L11259_ _datums11210_ @@ -3914,46 +3870,46 @@ _default11212_) (_lp11205_ _L11259_ - (let ((__tmp48081 + (let ((__tmp50122 (map gx#stx-e - (let ((__tmp48082 + (foldr (lambda (_g1145811461_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1145811461_ _g1145911464_) + _g1145911464_) (let () (declare (not safe)) - (cons _g1145811461_ _g1145911464_))))) - (declare (not safe)) - (foldr1 __tmp48082 '() _L11431_))))) + (cons _g1145811461_ _g1145911464_))) + '() + _L11431_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48081 + (cons __tmp50122 _datums11210_)) - (let ((__tmp48083 - (let ((__tmp48086 + (let ((__tmp50123 + (let ((__tmp50125 (gx#datum->syntax '#f 'begin)) - (__tmp48084 - (let ((__tmp48085 + (__tmp50124 + (foldr (lambda (_g1146611469_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1146611469_ _g1146711472_) + _g1146711472_) (let () (declare (not safe)) - (cons _g1146611469_ _g1146711472_))))) - (declare (not safe)) - (foldr1 __tmp48085 '() _L11429_)))) + (cons _g1146611469_ _g1146711472_))) + '() + _L11429_))) (declare (not safe)) - (cons __tmp48086 __tmp48084)))) + (cons __tmp50125 __tmp50124)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48083 + (cons __tmp50123 _dispatch11211_)) _default11212_))))) - (let* ((___match4326843269_ + (let* ((___match4537245373_ (lambda (_e1132811359_ _hd1132711363_ _tl1132611366_ - ___splice4319043191_ + ___splice4529445295_ _target1132911369_ _tl1133111372_) (letrec ((_loop1133211375_ @@ -3977,7 +3933,7 @@ (cons _lp-hd1133411389_ _datum1133611382_))))) (let ((_datum1133711395_ (reverse _datum1133611382_))) (if (gx#stx-pair/null? _tl1132611366_) - (let ((___splice4319243193_ + (let ((___splice4529645297_ (gx#syntax-split-splice _tl1132611366_ '0))) @@ -3985,13 +3941,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice4319243193_ + ___splice4529645297_ '1))) (_target1133811399_ (let () (declare (not safe)) (##vector-ref - ___splice4319243193_ + ___splice4529645297_ '0)))) (if (gx#stx-null? _tl1134011402_) (letrec ((_loop1134111405_ @@ -4018,7 +3974,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_body1134611425_ (reverse _body1134511412_))) - (___kont4318843189_ + (___kont4529245293_ _body1134611425_ _datum1133711395_)))))) (_loop1134111405_ @@ -4034,11 +3990,11 @@ (_loop1133211375_ _target1132911369_ '())))) - (___match4325443255_ + (___match4535845359_ (lambda (_e1130811482_ _hd1130711486_ _tl1130611489_ - ___splice4318643187_ + ___splice4529045291_ _target1130911492_ _tl1131111495_) (letrec ((_loop1131211498_ @@ -4074,7 +4030,7 @@ (##car _e1132011522_)))) (if (gx#identifier? _hd1131911526_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48089_| + |gerbil/core$$[1]#_g50127_| _hd1131911526_) (if (gx#stx-pair? _tl1131811529_) (let ((_e1132311532_ @@ -4090,53 +4046,53 @@ (##car _e1132311532_)))) (if (gx#stx-null? _tl1132111539_) - (___kont4318443185_ + (___kont4528845289_ _hd1132211536_ _datum1131711518_) - (___match4326843269_ + (___match4537245373_ _e1130811482_ _hd1130711486_ _tl1130611489_ - ___splice4318643187_ + ___splice4529045291_ _target1130911492_ _tl1131111495_)))) - (___match4326843269_ + (___match4537245373_ _e1130811482_ _hd1130711486_ _tl1130611489_ - ___splice4318643187_ + ___splice4529045291_ _target1130911492_ _tl1131111495_)) - (___match4326843269_ + (___match4537245373_ _e1130811482_ _hd1130711486_ _tl1130611489_ - ___splice4318643187_ + ___splice4529045291_ _target1130911492_ _tl1131111495_)) - (___match4326843269_ + (___match4537245373_ _e1130811482_ _hd1130711486_ _tl1130611489_ - ___splice4318643187_ + ___splice4529045291_ _target1130911492_ _tl1131111495_)))) - (___match4326843269_ + (___match4537245373_ _e1130811482_ _hd1130711486_ _tl1130611489_ - ___splice4318643187_ + ___splice4529045291_ _target1130911492_ _tl1131111495_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop1131211498_ _target1130911492_ '())))) - (___match4324043241_ + (___match4534445345_ (lambda (_e1129411617_ _hd1129311621_ _tl1129211624_ - ___splice4318243183_ + ___splice4528645287_ _target1129511627_ _tl1129711630_) (letrec ((_loop1129811633_ @@ -4159,15 +4115,15 @@ (declare (not safe)) (cons _lp-hd1130011647_ _body1130211640_))))) (let ((_body1130311653_ (reverse _body1130211640_))) - (___kont4318043181_ _body1130311653_)))))) + (___kont4528445285_ _body1130311653_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop1129811633_ _target1129511627_ '()))))) - (if (gx#stx-pair? ___stx4317543176_) + (if (gx#stx-pair? ___stx4527945280_) (let ((_e1128411687_ (gx#syntax-e - ___stx4317543176_))) + ___stx4527945280_))) (let ((_tl1128211694_ (let () (declare (not safe)) @@ -4179,7 +4135,7 @@ (if (gx#identifier? _hd1128311691_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48091_| + |gerbil/core$$[1]#_g50129_| _hd1128311691_) (if (gx#stx-pair? _tl1128211694_) @@ -4196,7 +4152,7 @@ (##car _e1128711697_)))) (if (gx#identifier? _hd1128611701_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48090_| + |gerbil/core$$[1]#_g50128_| _hd1128611701_) (if (gx#stx-pair? _tl1128511704_) (let ((_e1129011707_ @@ -4210,10 +4166,10 @@ (declare (not safe)) (##car _e1129011707_)))) (if (gx#stx-null? _tl1128811714_) - (___kont4317843179_ _hd1128911711_) + (___kont4528245283_ _hd1128911711_) (if (gx#stx-pair/null? _tl1128211694_) - (let ((___splice4318243183_ + (let ((___splice4528645287_ (gx#syntax-split-splice _tl1128211694_ '0))) @@ -4221,42 +4177,42 @@ (let () (declare (not safe)) (##vector-ref - ___splice4318243183_ + ___splice4528645287_ '1))) (_target1129511627_ (let () (declare (not safe)) (##vector-ref - ___splice4318243183_ + ___splice4528645287_ '0)))) (if (gx#stx-null? _tl1129711630_) - (___match4324043241_ + (___match4534445345_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4318243183_ + ___splice4528645287_ _target1129511627_ _tl1129711630_) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4318643187_ + (let ((___splice4529045291_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _hd1128311691_ '0))) (let ((_tl1131111495_ (let () (declare (not safe)) - (##vector-ref ___splice4318643187_ '1))) + (##vector-ref ___splice4529045291_ '1))) (_target1130911492_ (let () (declare (not safe)) - (##vector-ref ___splice4318643187_ '0)))) + (##vector-ref ___splice4529045291_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4325443255_ + (___match4535845359_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4318643187_ + ___splice4529045291_ _target1130911492_ _tl1131111495_) (let () (declare (not safe)) (_g1127911352_))))) @@ -4264,7 +4220,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4318643187_ + (let ((___splice4529045291_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4273,22 +4229,22 @@ (declare (not safe)) (##vector-ref - ___splice4318643187_ + ___splice4529045291_ '1))) (_target1130911492_ (let () (declare (not safe)) (##vector-ref - ___splice4318643187_ + ___splice4529045291_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4325443255_ + (___match4535845359_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4318643187_ + ___splice4529045291_ _target1130911492_ _tl1131111495_) (let () @@ -4299,7 +4255,7 @@ (declare (not safe)) (_g1127911352_))))))) (if (gx#stx-pair/null? _tl1128211694_) - (let ((___splice4318243183_ + (let ((___splice4528645287_ (gx#syntax-split-splice _tl1128211694_ '0))) @@ -4307,25 +4263,25 @@ (let () (declare (not safe)) (##vector-ref - ___splice4318243183_ + ___splice4528645287_ '1))) (_target1129511627_ (let () (declare (not safe)) (##vector-ref - ___splice4318243183_ + ___splice4528645287_ '0)))) (if (gx#stx-null? _tl1129711630_) - (___match4324043241_ + (___match4534445345_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4318243183_ + ___splice4528645287_ _target1129511627_ _tl1129711630_) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4318643187_ + (let ((___splice4529045291_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4334,22 +4290,22 @@ (declare (not safe)) (##vector-ref - ___splice4318643187_ + ___splice4529045291_ '1))) (_target1130911492_ (let () (declare (not safe)) (##vector-ref - ___splice4318643187_ + ___splice4529045291_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4325443255_ + (___match4535845359_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4318643187_ + ___splice4529045291_ _target1130911492_ _tl1131111495_) (let () @@ -4360,7 +4316,7 @@ (declare (not safe)) (_g1127911352_)))))) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4318643187_ + (let ((___splice4529045291_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4368,21 +4324,21 @@ (let () (declare (not safe)) (##vector-ref - ___splice4318643187_ + ___splice4529045291_ '1))) (_target1130911492_ (let () (declare (not safe)) (##vector-ref - ___splice4318643187_ + ___splice4529045291_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4325443255_ + (___match4535845359_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4318643187_ + ___splice4529045291_ _target1130911492_ _tl1131111495_) (let () @@ -4392,7 +4348,7 @@ (declare (not safe)) (_g1127911352_))))) (if (gx#stx-pair/null? _tl1128211694_) - (let ((___splice4318243183_ + (let ((___splice4528645287_ (gx#syntax-split-splice _tl1128211694_ '0))) @@ -4400,25 +4356,25 @@ (let () (declare (not safe)) (##vector-ref - ___splice4318243183_ + ___splice4528645287_ '1))) (_target1129511627_ (let () (declare (not safe)) (##vector-ref - ___splice4318243183_ + ___splice4528645287_ '0)))) (if (gx#stx-null? _tl1129711630_) - (___match4324043241_ + (___match4534445345_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4318243183_ + ___splice4528645287_ _target1129511627_ _tl1129711630_) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4318643187_ + (let ((___splice4529045291_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4426,21 +4382,21 @@ (let () (declare (not safe)) (##vector-ref - ___splice4318643187_ + ___splice4529045291_ '1))) (_target1130911492_ (let () (declare (not safe)) (##vector-ref - ___splice4318643187_ + ___splice4529045291_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4325443255_ + (___match4535845359_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4318643187_ + ___splice4529045291_ _target1130911492_ _tl1131111495_) (let () @@ -4450,7 +4406,7 @@ (declare (not safe)) (_g1127911352_)))))) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4318643187_ + (let ((___splice4529045291_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4458,20 +4414,20 @@ (let () (declare (not safe)) (##vector-ref - ___splice4318643187_ + ___splice4529045291_ '1))) (_target1130911492_ (let () (declare (not safe)) (##vector-ref - ___splice4318643187_ + ___splice4529045291_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4325443255_ + (___match4535845359_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4318643187_ + ___splice4529045291_ _target1130911492_ _tl1131111495_) (let () @@ -4481,7 +4437,7 @@ (declare (not safe)) (_g1127911352_))))) (if (gx#stx-pair/null? _tl1128211694_) - (let ((___splice4318243183_ + (let ((___splice4528645287_ (gx#syntax-split-splice _tl1128211694_ '0))) @@ -4489,24 +4445,24 @@ (let () (declare (not safe)) (##vector-ref - ___splice4318243183_ + ___splice4528645287_ '1))) (_target1129511627_ (let () (declare (not safe)) (##vector-ref - ___splice4318243183_ + ___splice4528645287_ '0)))) (if (gx#stx-null? _tl1129711630_) - (___match4324043241_ + (___match4534445345_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4318243183_ + ___splice4528645287_ _target1129511627_ _tl1129711630_) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4318643187_ + (let ((___splice4529045291_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4514,21 +4470,21 @@ (let () (declare (not safe)) (##vector-ref - ___splice4318643187_ + ___splice4529045291_ '1))) (_target1130911492_ (let () (declare (not safe)) (##vector-ref - ___splice4318643187_ + ___splice4529045291_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4325443255_ + (___match4535845359_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4318643187_ + ___splice4529045291_ _target1130911492_ _tl1131111495_) (let () @@ -4538,7 +4494,7 @@ (declare (not safe)) (_g1127911352_)))))) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4318643187_ + (let ((___splice4529045291_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4546,20 +4502,20 @@ (let () (declare (not safe)) (##vector-ref - ___splice4318643187_ + ___splice4529045291_ '1))) (_target1130911492_ (let () (declare (not safe)) (##vector-ref - ___splice4318643187_ + ___splice4529045291_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4325443255_ + (___match4535845359_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4318643187_ + ___splice4529045291_ _target1130911492_ _tl1131111495_) (let () @@ -4569,26 +4525,26 @@ (declare (not safe)) (_g1127911352_))))))) (if (gx#stx-pair/null? _tl1128211694_) - (let ((___splice4318243183_ + (let ((___splice4528645287_ (gx#syntax-split-splice _tl1128211694_ '0))) (let ((_tl1129711630_ (let () (declare (not safe)) - (##vector-ref ___splice4318243183_ '1))) + (##vector-ref ___splice4528645287_ '1))) (_target1129511627_ (let () (declare (not safe)) - (##vector-ref ___splice4318243183_ '0)))) + (##vector-ref ___splice4528645287_ '0)))) (if (gx#stx-null? _tl1129711630_) - (___match4324043241_ + (___match4534445345_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4318243183_ + ___splice4528645287_ _target1129511627_ _tl1129711630_) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4318643187_ + (let ((___splice4529045291_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4596,20 +4552,20 @@ (let () (declare (not safe)) (##vector-ref - ___splice4318643187_ + ___splice4529045291_ '1))) (_target1130911492_ (let () (declare (not safe)) (##vector-ref - ___splice4318643187_ + ___splice4529045291_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4325443255_ + (___match4535845359_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4318643187_ + ___splice4529045291_ _target1130911492_ _tl1131111495_) (let () @@ -4619,22 +4575,22 @@ (declare (not safe)) (_g1127911352_)))))) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4318643187_ + (let ((___splice4529045291_ (gx#syntax-split-splice _hd1128311691_ '0))) (let ((_tl1131111495_ (let () (declare (not safe)) - (##vector-ref ___splice4318643187_ '1))) + (##vector-ref ___splice4529045291_ '1))) (_target1130911492_ (let () (declare (not safe)) - (##vector-ref ___splice4318643187_ '0)))) + (##vector-ref ___splice4529045291_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4325443255_ + (___match4535845359_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4318643187_ + ___splice4529045291_ _target1130911492_ _tl1131111495_) (let () @@ -4642,22 +4598,22 @@ (_g1127911352_))))) (let () (declare (not safe)) (_g1127911352_))))) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4318643187_ + (let ((___splice4529045291_ (gx#syntax-split-splice _hd1128311691_ '0))) (let ((_tl1131111495_ (let () (declare (not safe)) - (##vector-ref ___splice4318643187_ '1))) + (##vector-ref ___splice4529045291_ '1))) (_target1130911492_ (let () (declare (not safe)) - (##vector-ref ___splice4318643187_ '0)))) + (##vector-ref ___splice4529045291_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4325443255_ + (___match4535845359_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4318643187_ + ___splice4529045291_ _target1130911492_ _tl1131111495_) (let () (declare (not safe)) (_g1127911352_))))) @@ -4665,7 +4621,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4318643187_ + (let ((___splice4529045291_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4673,17 +4629,17 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice4318643187_ '1))) + (##vector-ref ___splice4529045291_ '1))) (_target1130911492_ (let () (declare (not safe)) - (##vector-ref ___splice4318643187_ '0)))) + (##vector-ref ___splice4529045291_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4325443255_ + (___match4535845359_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4318643187_ + ___splice4529045291_ _target1130911492_ _tl1131111495_) (let () (declare (not safe)) (_g1127911352_))))) @@ -4692,7 +4648,7 @@ (let () (declare (not safe)) (_g1127911352_)))))))) - (___kont4327643277_ + (___kont4538045381_ (lambda () (_check-duplicate-datums8740_ _datums11210_) (values (reverse _datums11210_) @@ -4703,14 +4659,14 @@ '#!void)))))) (let ((_g1121411242_ (lambda () - (if (gx#stx-null? ___stx4327143272_) - (___kont4327643277_) + (if (gx#stx-null? ___stx4537545376_) + (___kont4538045381_) (let () (declare (not safe)) (_g1121511227_)))))) - (if (gx#stx-pair? ___stx4327143272_) + (if (gx#stx-pair? ___stx4537545376_) (let ((_e1122111249_ - (gx#syntax-e ___stx4327143272_))) + (gx#syntax-e ___stx4537545376_))) (let ((_tl1121911256_ (let () (declare (not safe)) @@ -4719,7 +4675,7 @@ (let () (declare (not safe)) (##car _e1122111249_)))) - (___kont4327443275_ + (___kont4537845379_ _tl1121911256_ _hd1122011253_))) (let () @@ -4728,14 +4684,14 @@ (_check-duplicate-datums8740_ (lambda (_datums11189_) (let ((_ht11192_ - (let () (declare (not safe)) (make-table)))) + (let () (declare (not safe)) (make-hash-table)))) (for-each (lambda (_lst11195_) (for-each (lambda (_datum11198_) (if (let () (declare (not safe)) - (table-ref _ht11192_ _datum11198_ '#f)) + (hash-get _ht11192_ _datum11198_)) (gx#raise-syntax-error '#f '"Duplicate datum" @@ -4743,67 +4699,47 @@ _datum11198_) (let () (declare (not safe)) - (table-set! _ht11192_ _datum11198_ '#t)))) + (hash-put! _ht11192_ _datum11198_ '#t)))) _lst11195_)) _datums11189_)))) (_count-datums8741_ (lambda (_datums11182_) - (let ((__tmp48092 - (lambda (_lst11185_ _r11187_) - (+ (length _lst11185_) _r11187_)))) - (declare (not safe)) - (foldl1 __tmp48092 '0 _datums11182_)))) + (foldl (lambda (_lst11185_ _r11187_) + (+ (length _lst11185_) _r11187_)) + '0 + _datums11182_))) (_symbolic-datums?8742_ (lambda (_datums11176_) - (let ((__tmp48093 - (lambda (_lst11179_) - (let () - (declare (not safe)) - (andmap1 symbol? _lst11179_))))) - (declare (not safe)) - (andmap1 __tmp48093 _datums11176_)))) + (andmap (lambda (_lst11179_) (andmap symbol? _lst11179_)) + _datums11176_))) (_char-datums?8743_ (lambda (_datums11170_) - (let ((__tmp48094 - (lambda (_lst11173_) - (let () - (declare (not safe)) - (andmap1 char? _lst11173_))))) - (declare (not safe)) - (andmap1 __tmp48094 _datums11170_)))) + (andmap (lambda (_lst11173_) (andmap char? _lst11173_)) + _datums11170_))) (_fixnum-datums?8744_ (lambda (_datums11164_) - (let ((__tmp48095 - (lambda (_lst11167_) - (let () - (declare (not safe)) - (andmap1 fixnum? _lst11167_))))) - (declare (not safe)) - (andmap1 __tmp48095 _datums11164_)))) + (andmap (lambda (_lst11167_) (andmap fixnum? _lst11167_)) + _datums11164_))) (_eq-datums?8745_ (lambda (_datums11147_) - (let ((__tmp48096 - (lambda (_lst11150_) - (let ((__tmp48097 - (lambda (_x11153_) - (let ((_$e11156_ - (let () - (declare (not safe)) - (symbol? _x11153_)))) - (if _$e11156_ - _$e11156_ - (let ((_$e11160_ - (keyword? _x11153_))) - (if _$e11160_ - _$e11160_ - (let () - (declare (not safe)) - (immediate? - _x11153_))))))))) - (declare (not safe)) - (andmap1 __tmp48097 _lst11150_))))) - (declare (not safe)) - (andmap1 __tmp48096 _datums11147_)))) + (andmap (lambda (_lst11150_) + (andmap (lambda (_x11153_) + (let ((_$e11156_ + (let () + (declare (not safe)) + (symbol? _x11153_)))) + (if _$e11156_ + _$e11156_ + (let ((_$e11160_ + (keyword? _x11153_))) + (if _$e11160_ + _$e11160_ + (let () + (declare (not safe)) + (immediate? + _x11153_))))))) + _lst11150_)) + _datums11147_))) (_generate-simple-case8746_ (lambda (_e10911_ _datums10913_ @@ -4823,14 +4759,14 @@ _datums10913_) (_dispatch10949_ _dispatch10914_)) - (let* ((___stx4328943290_ _datums10947_) + (let* ((___stx4539345394_ _datums10947_) (_g1095210973_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4328943290_)))) - (let ((___kont4329243293_ + ___stx4539345394_)))) + (let ((___kont4539645397_ (lambda (_L11031_ _L11033_) (let* ((_g1105311065_ (lambda (_g1105411061_) @@ -4864,48 +4800,47 @@ (lambda (_g1109711108_) ((lambda (_L11111_) (let () - (let ((__tmp48109 + (let ((__tmp50140 (gx#datum->syntax '#f 'if)) - (__tmp48098 - (let ((__tmp48101 - (let ((__tmp48108 + (__tmp50130 + (let ((__tmp50133 + (let ((__tmp50139 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'or)) - (__tmp48102 - (let ((__tmp48103 - (lambda (_g1112211125_ _g1112311128_) - (let ((__tmp48104 - (let ((__tmp48107 + (__tmp50134 + (foldr (lambda (_g1112211125_ _g1112311128_) + (let ((__tmp50135 + (let ((__tmp50138 (gx#datum->syntax '#f '~case-test)) - (__tmp48105 - (let ((__tmp48106 + (__tmp50136 + (let ((__tmp50137 (let () (declare (not safe)) (cons _L10932_ '())))) (declare (not safe)) (cons _g1112211125_ - __tmp48106)))) + __tmp50137)))) (declare (not safe)) - (cons __tmp48107 __tmp48105)))) + (cons __tmp50138 __tmp50136)))) (declare (not safe)) - (cons __tmp48104 _g1112311128_))))) - (declare (not safe)) - (foldr1 __tmp48103 '() _L11033_)))) + (cons __tmp50135 _g1112311128_))) + '() + _L11033_))) (declare (not safe)) - (cons __tmp48108 __tmp48102))) - (__tmp48099 - (let ((__tmp48100 + (cons __tmp50139 __tmp50134))) + (__tmp50131 + (let ((__tmp50132 (let () (declare (not safe)) (cons _L11111_ '())))) (declare (not safe)) - (cons _L11084_ __tmp48100)))) + (cons _L11084_ __tmp50132)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48101 - __tmp48099)))) + (cons __tmp50133 + __tmp50131)))) (declare (not safe)) - (cons __tmp48109 __tmp48098)))) + (cons __tmp50140 __tmp50130)))) _g1109711108_)))) (_g1109511131_ (_recur10944_ _L11031_ _L11082_)))) @@ -4915,13 +4850,13 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g1105211135_ _dispatch10949_)))) - (___kont4329643297_ + (___kont4540045401_ (lambda () _default10915_))) - (let ((___match4331243313_ + (let ((___match4541645417_ (lambda (_e1095810991_ _hd1095710995_ _tl1095610998_ - ___splice4329443295_ + ___splice4539845399_ _target1095911001_ _tl1096111004_) (letrec ((_loop1096211007_ @@ -4945,17 +4880,17 @@ (cons _lp-hd1096411021_ _datum1096611014_))))) (let ((_datum1096711027_ (reverse _datum1096611014_))) - (___kont4329243293_ + (___kont4539645397_ _tl1095610998_ _datum1096711027_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop1096211007_ _target1095911001_ '()))))) - (if (gx#stx-pair? ___stx4328943290_) + (if (gx#stx-pair? ___stx4539345394_) (let ((_e1095810991_ (gx#syntax-e - ___stx4328943290_))) + ___stx4539345394_))) (let ((_tl1095610998_ (let () (declare (not safe)) @@ -4966,7 +4901,7 @@ (##car _e1095810991_)))) (if (gx#stx-pair/null? _hd1095710995_) - (let ((___splice4329443295_ + (let ((___splice4539845399_ (gx#syntax-split-splice _hd1095710995_ '0))) @@ -4974,23 +4909,23 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice4329443295_ '1))) + (##vector-ref ___splice4539845399_ '1))) (_target1095911001_ (let () (declare (not safe)) - (##vector-ref ___splice4329443295_ '0)))) + (##vector-ref ___splice4539845399_ '0)))) (if (gx#stx-null? _tl1096111004_) - (___match4331243313_ + (___match4541645417_ _e1095810991_ _hd1095710995_ _tl1095610998_ - ___splice4329443295_ + ___splice4539845399_ _target1095911001_ _tl1096111004_) - (___kont4329643297_)))) - (___kont4329643297_)))) + (___kont4540045401_)))) + (___kont4540045401_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4329643297_)))))))) + (___kont4540045401_)))))))) _g1091810929_)))) (_g1091611143_ _e10911_)))) (_datum-dispatch-index8747_ @@ -4998,47 +4933,43 @@ (let _lp10786_ ((_rest10789_ _datums10783_) (_ix10791_ '0) (_r10792_ '())) - (let* ((___stx4331543316_ _rest10789_) + (let* ((___stx4541945420_ _rest10789_) (_g1079510816_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4331543316_)))) - (let ((___kont4331843319_ + ___stx4541945420_)))) + (let ((___kont4542245423_ (lambda (_L10874_ _L10876_) (_lp10786_ _L10874_ (let () (declare (not safe)) (fx+ _ix10791_ '1)) - (let ((__tmp48112 - (lambda (_x10895_ _r10897_) - (let ((__tmp48113 + (foldl (lambda (_x10895_ _r10897_) + (let ((__tmp50141 (let () (declare (not safe)) (cons _x10895_ _ix10791_)))) (declare (not safe)) - (cons __tmp48113 _r10897_)))) - (__tmp48110 - (let ((__tmp48111 - (lambda (_g1089810901_ + (cons __tmp50141 _r10897_))) + _r10792_ + (foldr (lambda (_g1089810901_ _g1089910904_) (let () (declare (not safe)) (cons _g1089810901_ - _g1089910904_))))) - (declare (not safe)) - (foldr1 __tmp48111 '() _L10876_)))) - (declare (not safe)) - (foldl1 __tmp48112 _r10792_ __tmp48110))))) - (___kont4332243323_ (lambda () _r10792_))) - (let ((___match4333843339_ + _g1089910904_))) + '() + _L10876_))))) + (___kont4542645427_ (lambda () _r10792_))) + (let ((___match4544245443_ (lambda (_e1080110834_ _hd1080010838_ _tl1079910841_ - ___splice4332043321_ + ___splice4542445425_ _target1080210844_ _tl1080410847_) (letrec ((_loop1080510850_ @@ -5067,15 +4998,15 @@ _datum1080910857_))))) (let ((_datum1081010870_ (reverse _datum1080910857_))) - (___kont4331843319_ + (___kont4542245423_ _tl1079910841_ _datum1081010870_)))))) (_loop1080510850_ _target1080210844_ '()))))) - (if (gx#stx-pair? ___stx4331543316_) + (if (gx#stx-pair? ___stx4541945420_) (let ((_e1080110834_ - (gx#syntax-e ___stx4331543316_))) + (gx#syntax-e ___stx4541945420_))) (let ((_tl1079910841_ (let () (declare (not safe)) @@ -5085,7 +5016,7 @@ (declare (not safe)) (##car _e1080110834_)))) (if (gx#stx-pair/null? _hd1080010838_) - (let ((___splice4332043321_ + (let ((___splice4542445425_ (gx#syntax-split-splice _hd1080010838_ '0))) @@ -5093,44 +5024,42 @@ (let () (declare (not safe)) (##vector-ref - ___splice4332043321_ + ___splice4542445425_ '1))) (_target1080210844_ (let () (declare (not safe)) (##vector-ref - ___splice4332043321_ + ___splice4542445425_ '0)))) (if (gx#stx-null? _tl1080410847_) - (___match4333843339_ + (___match4544245443_ _e1080110834_ _hd1080010838_ _tl1079910841_ - ___splice4332043321_ + ___splice4542445425_ _target1080210844_ _tl1080410847_) - (___kont4332243323_)))) - (___kont4332243323_)))) - (___kont4332243323_)))))))) + (___kont4542645427_)))) + (___kont4542645427_)))) + (___kont4542645427_)))))))) (_duplicate-indexes?8748_ (lambda (_xs10764_) (let ((_ht10767_ - (let () - (declare (not safe)) - (make-table 'test: eq?)))) + (let () (declare (not safe)) (make-hash-table-eq)))) (let _lp10770_ ((_rest10773_ _xs10764_)) (if (let () (declare (not safe)) (pair? _rest10773_)) (let* ((_ix10776_ (car _rest10773_)) (_$e10779_ (let () (declare (not safe)) - (table-ref _ht10767_ _ix10776_ '#f)))) + (hash-get _ht10767_ _ix10776_)))) (if _$e10779_ _$e10779_ (begin (let () (declare (not safe)) - (table-set! _ht10767_ _ix10776_ '#t)) + (hash-put! _ht10767_ _ix10776_ '#t)) (_lp10770_ (cdr _rest10773_))))) '#f))))) (_generate-hash-dispatch-table8749_ @@ -5287,210 +5216,210 @@ _L10487_ _L10488_) (let () - (let ((__tmp48272 (gx#datum->syntax '#f 'let)) - (__tmp48208 - (let ((__tmp48259 - (let ((__tmp48266 - (let ((__tmp48267 - (let ((__tmp48268 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48271 (gx#datum->syntax '#f 'lambda)) - (__tmp48269 - (let ((__tmp48270 + (let ((__tmp50299 (gx#datum->syntax '#f 'let)) + (__tmp50235 + (let ((__tmp50286 + (let ((__tmp50293 + (let ((__tmp50294 + (let ((__tmp50295 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50298 (gx#datum->syntax '#f 'lambda)) + (__tmp50296 + (let ((__tmp50297 (let () (declare (not safe)) (cons _L10484_ '())))) (declare (not safe)) - (cons '() __tmp48270)))) + (cons '() __tmp50297)))) (declare (not safe)) - (cons __tmp48271 __tmp48269)))) + (cons __tmp50298 __tmp50296)))) (declare (not safe)) - (cons __tmp48268 '())))) + (cons __tmp50295 '())))) (declare (not safe)) - (cons _L10487_ __tmp48267))) + (cons _L10487_ __tmp50294))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48260 - (let ((__tmp48261 - (let ((__tmp48262 + (__tmp50287 + (let ((__tmp50288 + (let ((__tmp50289 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48263 - (let ((__tmp48265 + (let ((__tmp50290 + (let ((__tmp50292 (gx#datum->syntax '#f 'quote)) - (__tmp48264 + (__tmp50291 (let () (declare (not safe)) (cons _L10483_ '())))) (declare (not safe)) - (cons __tmp48265 __tmp48264)))) + (cons __tmp50292 __tmp50291)))) (declare (not safe)) - (cons __tmp48263 '())))) + (cons __tmp50290 '())))) (declare (not safe)) - (cons _L10486_ __tmp48262)))) + (cons _L10486_ __tmp50289)))) (declare (not safe)) - (cons __tmp48261 '())))) + (cons __tmp50288 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48266 __tmp48260))) - (__tmp48209 - (let ((__tmp48210 - (let ((__tmp48258 + (cons __tmp50293 __tmp50287))) + (__tmp50236 + (let ((__tmp50237 + (let ((__tmp50285 (gx#datum->syntax '#f 'if)) - (__tmp48211 - (let ((__tmp48255 + (__tmp50238 + (let ((__tmp50282 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48257 (gx#datum->syntax '#f 'symbol?)) - (__tmp48256 + (let ((__tmp50284 (gx#datum->syntax '#f 'symbol?)) + (__tmp50283 (let () (declare (not safe)) (cons _L10488_ '())))) (declare (not safe)) - (cons __tmp48257 __tmp48256))) - (__tmp48212 - (let ((__tmp48215 - (let ((__tmp48254 + (cons __tmp50284 __tmp50283))) + (__tmp50239 + (let ((__tmp50242 + (let ((__tmp50281 (gx#datum->syntax '#f 'let*)) - (__tmp48216 - (let ((__tmp48229 - (let ((__tmp48248 - (let ((__tmp48253 + (__tmp50243 + (let ((__tmp50256 + (let ((__tmp50275 + (let ((__tmp50280 (gx#datum->syntax '#f 'h)) - (__tmp48249 - (let ((__tmp48250 + (__tmp50276 + (let ((__tmp50277 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48252 + (let ((__tmp50279 (gx#datum->syntax '#f '##symbol-hash)) - (__tmp48251 + (__tmp50278 (let () (declare (not safe)) (cons _L10488_ '())))) (declare (not safe)) - (cons __tmp48252 __tmp48251)))) + (cons __tmp50279 __tmp50278)))) (declare (not safe)) - (cons __tmp48250 '())))) + (cons __tmp50277 '())))) (declare (not safe)) - (cons __tmp48253 __tmp48249))) - (__tmp48230 - (let ((__tmp48240 - (let ((__tmp48247 (gx#datum->syntax '#f 'ix)) - (__tmp48241 - (let ((__tmp48242 - (let ((__tmp48246 + (cons __tmp50280 __tmp50276))) + (__tmp50257 + (let ((__tmp50267 + (let ((__tmp50274 (gx#datum->syntax '#f 'ix)) + (__tmp50268 + (let ((__tmp50269 + (let ((__tmp50273 (gx#datum->syntax '#f '##fxmodulo)) - (__tmp48243 - (let ((__tmp48245 + (__tmp50270 + (let ((__tmp50272 (gx#datum->syntax '#f 'h)) - (__tmp48244 + (__tmp50271 (let () (declare (not safe)) (cons _L10481_ '())))) (declare (not safe)) - (cons __tmp48245 __tmp48244)))) + (cons __tmp50272 __tmp50271)))) (declare (not safe)) - (cons __tmp48246 __tmp48243)))) + (cons __tmp50273 __tmp50270)))) (declare (not safe)) - (cons __tmp48242 '())))) + (cons __tmp50269 '())))) (declare (not safe)) - (cons __tmp48247 __tmp48241))) - (__tmp48231 - (let ((__tmp48232 - (let ((__tmp48239 (gx#datum->syntax '#f 'q)) - (__tmp48233 - (let ((__tmp48234 - (let ((__tmp48238 + (cons __tmp50274 __tmp50268))) + (__tmp50258 + (let ((__tmp50259 + (let ((__tmp50266 (gx#datum->syntax '#f 'q)) + (__tmp50260 + (let ((__tmp50261 + (let ((__tmp50265 (gx#datum->syntax '#f '##vector-ref)) - (__tmp48235 - (let ((__tmp48236 - (let ((__tmp48237 + (__tmp50262 + (let ((__tmp50263 + (let ((__tmp50264 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp48237 '())))) + (cons __tmp50264 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L10486_ - __tmp48236)))) + __tmp50263)))) (declare (not safe)) - (cons __tmp48238 __tmp48235)))) + (cons __tmp50265 __tmp50262)))) (declare (not safe)) - (cons __tmp48234 '())))) + (cons __tmp50261 '())))) (declare (not safe)) - (cons __tmp48239 __tmp48233)))) + (cons __tmp50266 __tmp50260)))) (declare (not safe)) - (cons __tmp48232 '())))) + (cons __tmp50259 '())))) (declare (not safe)) - (cons __tmp48240 __tmp48231)))) + (cons __tmp50267 __tmp50258)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48248 - __tmp48230))) - (__tmp48217 - (let ((__tmp48218 - (let ((__tmp48228 + (cons __tmp50275 + __tmp50257))) + (__tmp50244 + (let ((__tmp50245 + (let ((__tmp50255 (gx#datum->syntax '#f 'if)) - (__tmp48219 - (let ((__tmp48223 + (__tmp50246 + (let ((__tmp50250 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48227 (gx#datum->syntax '#f 'eq?)) - (__tmp48224 - (let ((__tmp48226 + (let ((__tmp50254 (gx#datum->syntax '#f 'eq?)) + (__tmp50251 + (let ((__tmp50253 (gx#datum->syntax '#f 'q)) - (__tmp48225 + (__tmp50252 (let () (declare (not safe)) (cons _L10488_ '())))) (declare (not safe)) - (cons __tmp48226 __tmp48225)))) + (cons __tmp50253 __tmp50252)))) (declare (not safe)) - (cons __tmp48227 __tmp48224))) - (__tmp48220 - (let ((__tmp48221 - (let ((__tmp48222 + (cons __tmp50254 __tmp50251))) + (__tmp50247 + (let ((__tmp50248 + (let ((__tmp50249 (let () (declare (not safe)) (cons _L10487_ '())))) (declare (not safe)) - (cons __tmp48222 '())))) + (cons __tmp50249 '())))) (declare (not safe)) - (cons _L10485_ __tmp48221)))) + (cons _L10485_ __tmp50248)))) (declare (not safe)) - (cons __tmp48223 __tmp48220)))) + (cons __tmp50250 __tmp50247)))) (declare (not safe)) - (cons __tmp48228 __tmp48219)))) + (cons __tmp50255 __tmp50246)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48218 '())))) + (cons __tmp50245 '())))) (declare (not safe)) - (cons __tmp48229 __tmp48217)))) + (cons __tmp50256 __tmp50244)))) (declare (not safe)) - (cons __tmp48254 __tmp48216))) - (__tmp48213 - (let ((__tmp48214 + (cons __tmp50281 __tmp50243))) + (__tmp50240 + (let ((__tmp50241 (let () (declare (not safe)) (cons _L10487_ '())))) (declare (not safe)) - (cons __tmp48214 '())))) + (cons __tmp50241 '())))) (declare (not safe)) - (cons __tmp48215 __tmp48213)))) + (cons __tmp50242 __tmp50240)))) (declare (not safe)) - (cons __tmp48255 __tmp48212)))) + (cons __tmp50282 __tmp50239)))) (declare (not safe)) - (cons __tmp48258 __tmp48211)))) + (cons __tmp50285 __tmp50238)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48210 '())))) + (cons __tmp50237 '())))) (declare (not safe)) - (cons __tmp48259 __tmp48209)))) + (cons __tmp50286 __tmp50236)))) (declare (not safe)) - (cons __tmp48272 __tmp48208)))) + (cons __tmp50299 __tmp50235)))) _hd1038710475_ _hd1038410465_ _hd1038110455_ @@ -5572,30 +5501,30 @@ (declare (not safe)) (##cdr _e1054910610_)))) (if (gx#stx-pair/null? _hd1054810614_) - (let ((_g48114_ + (let ((_g50142_ (gx#syntax-split-splice _hd1054810614_ '0))) (begin - (let ((_g48115_ + (let ((_g50143_ (let () (declare (not safe)) - (if (##values? _g48114_) - (##vector-length _g48114_) + (if (##values? _g50142_) + (##vector-length _g50142_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48115_ 2))) + (##fx= _g50143_ 2))) (error "Context expects 2 values" - _g48115_))) + _g50143_))) (let ((_target1055010620_ (let () (declare (not safe)) - (##vector-ref _g48114_ 0))) + (##vector-ref _g50142_ 0))) (_tl1055210623_ (let () (declare (not safe)) - (##vector-ref _g48114_ 1)))) + (##vector-ref _g50142_ 1)))) (if (gx#stx-null? _tl1055210623_) (letrec ((_loop1055310626_ (lambda (_hd1055110630_ @@ -5658,97 +5587,97 @@ _L10686_ _L10687_) (let () - (let ((__tmp48207 + (let ((__tmp50234 (gx#datum->syntax '#f 'let)) - (__tmp48116 - (let ((__tmp48194 + (__tmp50144 + (let ((__tmp50221 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48201 - (let ((__tmp48202 - (let ((__tmp48203 - (let ((__tmp48206 + (let ((__tmp50228 + (let ((__tmp50229 + (let ((__tmp50230 + (let ((__tmp50233 (gx#datum->syntax '#f 'lambda)) - (__tmp48204 - (let ((__tmp48205 + (__tmp50231 + (let ((__tmp50232 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L10683_ '())))) (declare (not safe)) - (cons '() __tmp48205)))) + (cons '() __tmp50232)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48206 - __tmp48204)))) + (cons __tmp50233 + __tmp50231)))) (declare (not safe)) - (cons __tmp48203 '())))) + (cons __tmp50230 '())))) (declare (not safe)) - (cons _L10686_ __tmp48202))) - (__tmp48195 - (let ((__tmp48196 - (let ((__tmp48197 - (let ((__tmp48198 - (let ((__tmp48200 + (cons _L10686_ __tmp50229))) + (__tmp50222 + (let ((__tmp50223 + (let ((__tmp50224 + (let ((__tmp50225 + (let ((__tmp50227 (gx#datum->syntax '#f 'quote)) - (__tmp48199 + (__tmp50226 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L10682_ '())))) (declare (not safe)) - (cons __tmp48200 __tmp48199)))) + (cons __tmp50227 __tmp50226)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48198 '())))) + (cons __tmp50225 '())))) (declare (not safe)) - (cons _L10685_ __tmp48197)))) + (cons _L10685_ __tmp50224)))) (declare (not safe)) - (cons __tmp48196 '())))) + (cons __tmp50223 '())))) (declare (not safe)) - (cons __tmp48201 __tmp48195))) - (__tmp48117 - (let ((__tmp48118 - (let ((__tmp48193 (gx#datum->syntax '#f 'if)) - (__tmp48119 - (let ((__tmp48190 - (let ((__tmp48192 + (cons __tmp50228 __tmp50222))) + (__tmp50145 + (let ((__tmp50146 + (let ((__tmp50220 (gx#datum->syntax '#f 'if)) + (__tmp50147 + (let ((__tmp50217 + (let ((__tmp50219 (gx#datum->syntax '#f 'symbol?)) - (__tmp48191 + (__tmp50218 (let () (declare (not safe)) (cons _L10687_ '())))) (declare (not safe)) - (cons __tmp48192 - __tmp48191))) - (__tmp48120 - (let ((__tmp48123 - (let ((__tmp48189 + (cons __tmp50219 + __tmp50218))) + (__tmp50148 + (let ((__tmp50151 + (let ((__tmp50216 (gx#datum->syntax '#f 'let*)) - (__tmp48124 - (let ((__tmp48164 + (__tmp50152 + (let ((__tmp50191 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48183 - (let ((__tmp48188 + (let ((__tmp50210 + (let ((__tmp50215 (gx#datum->syntax '#f 'h)) - (__tmp48184 - (let ((__tmp48185 - (let ((__tmp48187 + (__tmp50211 + (let ((__tmp50212 + (let ((__tmp50214 (gx#datum->syntax '#f '##symbol-hash)) - (__tmp48186 + (__tmp50213 (let () (declare (not safe)) (cons _L10687_ @@ -5756,214 +5685,213 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48187 - __tmp48186)))) + (cons __tmp50214 + __tmp50213)))) (declare (not safe)) - (cons __tmp48185 '())))) + (cons __tmp50212 '())))) (declare (not safe)) - (cons __tmp48188 __tmp48184))) - (__tmp48165 - (let ((__tmp48175 - (let ((__tmp48182 + (cons __tmp50215 __tmp50211))) + (__tmp50192 + (let ((__tmp50202 + (let ((__tmp50209 (gx#datum->syntax '#f 'ix)) - (__tmp48176 - (let ((__tmp48177 - (let ((__tmp48181 + (__tmp50203 + (let ((__tmp50204 + (let ((__tmp50208 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##fxmodulo)) - (__tmp48178 - (let ((__tmp48180 (gx#datum->syntax '#f 'h)) - (__tmp48179 + (__tmp50205 + (let ((__tmp50207 (gx#datum->syntax '#f 'h)) + (__tmp50206 (let () (declare (not safe)) (cons _L10680_ '())))) (declare (not safe)) - (cons __tmp48180 __tmp48179)))) + (cons __tmp50207 __tmp50206)))) (declare (not safe)) - (cons __tmp48181 __tmp48178)))) + (cons __tmp50208 __tmp50205)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48177 '())))) + (cons __tmp50204 '())))) (declare (not safe)) - (cons __tmp48182 __tmp48176))) - (__tmp48166 - (let ((__tmp48167 - (let ((__tmp48174 + (cons __tmp50209 __tmp50203))) + (__tmp50193 + (let ((__tmp50194 + (let ((__tmp50201 (gx#datum->syntax '#f 'q)) - (__tmp48168 - (let ((__tmp48169 - (let ((__tmp48173 + (__tmp50195 + (let ((__tmp50196 + (let ((__tmp50200 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##vector-ref)) - (__tmp48170 - (let ((__tmp48171 - (let ((__tmp48172 + (__tmp50197 + (let ((__tmp50198 + (let ((__tmp50199 (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp48172 '())))) + (cons __tmp50199 '())))) (declare (not safe)) - (cons _L10685_ __tmp48171)))) + (cons _L10685_ __tmp50198)))) (declare (not safe)) - (cons __tmp48173 __tmp48170)))) + (cons __tmp50200 __tmp50197)))) (declare (not safe)) - (cons __tmp48169 '())))) + (cons __tmp50196 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48174 - __tmp48168)))) + (cons __tmp50201 + __tmp50195)))) (declare (not safe)) - (cons __tmp48167 '())))) + (cons __tmp50194 '())))) (declare (not safe)) - (cons __tmp48175 __tmp48166)))) + (cons __tmp50202 __tmp50193)))) (declare (not safe)) - (cons __tmp48183 __tmp48165))) - (__tmp48125 - (let ((__tmp48126 - (let ((__tmp48163 + (cons __tmp50210 __tmp50192))) + (__tmp50153 + (let ((__tmp50154 + (let ((__tmp50190 (gx#datum->syntax '#f 'if)) - (__tmp48127 - (let ((__tmp48162 + (__tmp50155 + (let ((__tmp50189 (gx#datum->syntax '#f 'q)) - (__tmp48128 - (let ((__tmp48131 - (let ((__tmp48161 + (__tmp50156 + (let ((__tmp50159 + (let ((__tmp50188 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'if)) - (__tmp48132 - (let ((__tmp48153 - (let ((__tmp48160 (gx#datum->syntax '#f 'eq?)) - (__tmp48154 - (let ((__tmp48156 - (let ((__tmp48159 + (__tmp50160 + (let ((__tmp50180 + (let ((__tmp50187 (gx#datum->syntax '#f 'eq?)) + (__tmp50181 + (let ((__tmp50183 + (let ((__tmp50186 (gx#datum->syntax '#f '##car)) - (__tmp48157 - (let ((__tmp48158 + (__tmp50184 + (let ((__tmp50185 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48158 '())))) + (cons __tmp50185 '())))) (declare (not safe)) - (cons __tmp48159 __tmp48157))) - (__tmp48155 + (cons __tmp50186 __tmp50184))) + (__tmp50182 (let () (declare (not safe)) (cons _L10687_ '())))) (declare (not safe)) - (cons __tmp48156 __tmp48155)))) + (cons __tmp50183 __tmp50182)))) (declare (not safe)) - (cons __tmp48160 __tmp48154))) - (__tmp48133 - (let ((__tmp48136 - (let ((__tmp48152 + (cons __tmp50187 __tmp50181))) + (__tmp50161 + (let ((__tmp50164 + (let ((__tmp50179 (gx#datum->syntax '#f 'let)) - (__tmp48137 - (let ((__tmp48145 - (let ((__tmp48151 + (__tmp50165 + (let ((__tmp50172 + (let ((__tmp50178 (gx#datum->syntax '#f 'x)) - (__tmp48146 - (let ((__tmp48147 + (__tmp50173 + (let ((__tmp50174 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48150 (gx#datum->syntax '#f '##cdr)) - (__tmp48148 - (let ((__tmp48149 (gx#datum->syntax '#f 'q))) + (let ((__tmp50177 (gx#datum->syntax '#f '##cdr)) + (__tmp50175 + (let ((__tmp50176 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48149 '())))) + (cons __tmp50176 '())))) (declare (not safe)) - (cons __tmp48150 __tmp48148)))) + (cons __tmp50177 __tmp50175)))) (declare (not safe)) - (cons __tmp48147 '())))) + (cons __tmp50174 '())))) (declare (not safe)) - (cons __tmp48151 __tmp48146))) + (cons __tmp50178 __tmp50173))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48138 - (let ((__tmp48139 - (let ((__tmp48144 + (__tmp50166 + (let ((__tmp50167 + (let ((__tmp50171 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48140 - (let ((__tmp48143 (gx#datum->syntax '#f 'x)) - (__tmp48141 - (let ((__tmp48142 - (lambda (_g1072010723_ _g1072110726_) + (__tmp50168 + (let ((__tmp50170 (gx#datum->syntax '#f 'x)) + (__tmp50169 + (foldr (lambda (_g1072010723_ _g1072110726_) (let () (declare (not safe)) (cons _g1072010723_ - _g1072110726_))))) - (declare (not safe)) - (foldr1 __tmp48142 '() _L10684_)))) + _g1072110726_))) + '() + _L10684_))) (declare (not safe)) - (cons __tmp48143 __tmp48141)))) + (cons __tmp50170 __tmp50169)))) (declare (not safe)) - (cons __tmp48144 __tmp48140)))) + (cons __tmp50171 __tmp50168)))) (declare (not safe)) - (cons __tmp48139 '())))) + (cons __tmp50167 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48145 __tmp48138)))) + (cons __tmp50172 __tmp50166)))) (declare (not safe)) - (cons __tmp48152 __tmp48137))) - (__tmp48134 - (let ((__tmp48135 + (cons __tmp50179 __tmp50165))) + (__tmp50162 + (let ((__tmp50163 (let () (declare (not safe)) (cons _L10686_ '())))) (declare (not safe)) - (cons __tmp48135 '())))) + (cons __tmp50163 '())))) (declare (not safe)) - (cons __tmp48136 __tmp48134)))) + (cons __tmp50164 __tmp50162)))) (declare (not safe)) - (cons __tmp48153 __tmp48133)))) + (cons __tmp50180 __tmp50161)))) (declare (not safe)) - (cons __tmp48161 __tmp48132))) - (__tmp48129 - (let ((__tmp48130 + (cons __tmp50188 __tmp50160))) + (__tmp50157 + (let ((__tmp50158 (let () (declare (not safe)) (cons _L10686_ '())))) (declare (not safe)) - (cons __tmp48130 '())))) + (cons __tmp50158 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48131 - __tmp48129)))) + (cons __tmp50159 + __tmp50157)))) (declare (not safe)) - (cons __tmp48162 __tmp48128)))) + (cons __tmp50189 __tmp50156)))) (declare (not safe)) - (cons __tmp48163 __tmp48127)))) + (cons __tmp50190 __tmp50155)))) (declare (not safe)) - (cons __tmp48126 '())))) + (cons __tmp50154 '())))) (declare (not safe)) - (cons __tmp48164 __tmp48125)))) + (cons __tmp50191 __tmp50153)))) (declare (not safe)) - (cons __tmp48189 __tmp48124))) - (__tmp48121 - (let ((__tmp48122 + (cons __tmp50216 __tmp50152))) + (__tmp50149 + (let ((__tmp50150 (let () (declare (not safe)) (cons _L10686_ '())))) (declare (not safe)) - (cons __tmp48122 '())))) + (cons __tmp50150 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48123 - __tmp48121)))) + (cons __tmp50151 + __tmp50149)))) (declare (not safe)) - (cons __tmp48190 __tmp48120)))) + (cons __tmp50217 __tmp50148)))) (declare (not safe)) - (cons __tmp48193 __tmp48119)))) + (cons __tmp50220 __tmp50147)))) (declare (not safe)) - (cons __tmp48118 '())))) + (cons __tmp50146 '())))) (declare (not safe)) - (cons __tmp48194 __tmp48117)))) + (cons __tmp50221 __tmp50145)))) (declare (not safe)) - (cons __tmp48207 __tmp48116)))) + (cons __tmp50234 __tmp50144)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd1056610674_ _hd1056310664_ @@ -5999,16 +5927,14 @@ (vector-length _tab10345_)))))))) (_max-char8751_ (lambda (_datums10325_) - (let ((__tmp48273 - (lambda (_lst10328_ _r10330_) - (let ((__tmp48274 - (lambda (_char10332_ _r10334_) + (foldl (lambda (_lst10328_ _r10330_) + (foldl (lambda (_char10332_ _r10334_) (max (char->integer _char10332_) - _r10334_)))) - (declare (not safe)) - (foldl1 __tmp48274 _r10330_ _lst10328_))))) - (declare (not safe)) - (foldl1 __tmp48273 '0 _datums10325_)))) + _r10334_)) + _r10330_ + _lst10328_)) + '0 + _datums10325_))) (_generate-char-dispatch-table8752_ (lambda (_indexes10304_) (let* ((_ixs10310_ @@ -6016,12 +5942,9 @@ (char->integer (car _x10307_))) _indexes10304_)) (_len10313_ - (let ((__tmp48275 - (let () - (declare (not safe)) - (foldl1 max '0 _ixs10310_)))) + (let ((__tmp50300 (foldl max '0 _ixs10310_))) (declare (not safe)) - (fx+ __tmp48275 '1))) + (fx+ __tmp50300 '1))) (_vec10316_ (make-vector _len10313_ '#f))) (for-each (lambda (_entry10321_ _x10323_) @@ -6169,167 +6092,167 @@ _L10028_ _L10029_) (let () - (let ((__tmp48396 (gx#datum->syntax '#f 'let)) - (__tmp48349 - (let ((__tmp48390 - (let ((__tmp48391 - (let ((__tmp48392 - (let ((__tmp48395 + (let ((__tmp50420 (gx#datum->syntax '#f 'let)) + (__tmp50373 + (let ((__tmp50414 + (let ((__tmp50415 + (let ((__tmp50416 + (let ((__tmp50419 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp48393 - (let ((__tmp48394 + (__tmp50417 + (let ((__tmp50418 (let () (declare (not safe)) (cons _L10026_ '())))) (declare (not safe)) - (cons '() __tmp48394)))) + (cons '() __tmp50418)))) (declare (not safe)) - (cons __tmp48395 __tmp48393)))) + (cons __tmp50419 __tmp50417)))) (declare (not safe)) - (cons __tmp48392 '())))) + (cons __tmp50416 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L10028_ __tmp48391))) - (__tmp48350 - (let ((__tmp48351 - (let ((__tmp48389 + (cons _L10028_ __tmp50415))) + (__tmp50374 + (let ((__tmp50375 + (let ((__tmp50413 (gx#datum->syntax '#f 'if)) - (__tmp48352 - (let ((__tmp48386 + (__tmp50376 + (let ((__tmp50410 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48388 (gx#datum->syntax '#f 'char?)) - (__tmp48387 + (let ((__tmp50412 (gx#datum->syntax '#f 'char?)) + (__tmp50411 (let () (declare (not safe)) (cons _L10029_ '())))) (declare (not safe)) - (cons __tmp48388 __tmp48387))) - (__tmp48353 - (let ((__tmp48356 - (let ((__tmp48385 (gx#datum->syntax '#f 'let)) - (__tmp48357 - (let ((__tmp48379 - (let ((__tmp48384 + (cons __tmp50412 __tmp50411))) + (__tmp50377 + (let ((__tmp50380 + (let ((__tmp50409 (gx#datum->syntax '#f 'let)) + (__tmp50381 + (let ((__tmp50403 + (let ((__tmp50408 (gx#datum->syntax '#f 'ix)) - (__tmp48380 - (let ((__tmp48381 - (let ((__tmp48383 + (__tmp50404 + (let ((__tmp50405 + (let ((__tmp50407 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##char->integer)) - (__tmp48382 + (__tmp50406 (let () (declare (not safe)) (cons _L10029_ '())))) (declare (not safe)) - (cons __tmp48383 __tmp48382)))) + (cons __tmp50407 __tmp50406)))) (declare (not safe)) - (cons __tmp48381 '())))) + (cons __tmp50405 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48384 __tmp48380))) - (__tmp48358 - (let ((__tmp48359 - (let ((__tmp48378 + (cons __tmp50408 __tmp50404))) + (__tmp50382 + (let ((__tmp50383 + (let ((__tmp50402 (gx#datum->syntax '#f 'if)) - (__tmp48360 - (let ((__tmp48364 + (__tmp50384 + (let ((__tmp50388 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48377 (gx#datum->syntax '#f 'and)) - (__tmp48365 - (let ((__tmp48372 - (let ((__tmp48376 + (let ((__tmp50401 (gx#datum->syntax '#f 'and)) + (__tmp50389 + (let ((__tmp50396 + (let ((__tmp50400 (gx#datum->syntax '#f '##fx>=)) - (__tmp48373 - (let ((__tmp48375 + (__tmp50397 + (let ((__tmp50399 (gx#datum->syntax '#f 'ix)) - (__tmp48374 + (__tmp50398 (let () (declare (not safe)) (cons _L10025_ '())))) (declare (not safe)) - (cons __tmp48375 - __tmp48374)))) + (cons __tmp50399 + __tmp50398)))) (declare (not safe)) - (cons __tmp48376 __tmp48373))) - (__tmp48366 - (let ((__tmp48367 - (let ((__tmp48371 + (cons __tmp50400 __tmp50397))) + (__tmp50390 + (let ((__tmp50391 + (let ((__tmp50395 (gx#datum->syntax '#f '##fx<)) - (__tmp48368 - (let ((__tmp48370 + (__tmp50392 + (let ((__tmp50394 (gx#datum->syntax '#f 'ix)) - (__tmp48369 + (__tmp50393 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L10023_ '())))) (declare (not safe)) - (cons __tmp48370 __tmp48369)))) + (cons __tmp50394 __tmp50393)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48371 - __tmp48368)))) + (cons __tmp50395 + __tmp50392)))) (declare (not safe)) - (cons __tmp48367 '())))) + (cons __tmp50391 '())))) (declare (not safe)) - (cons __tmp48372 __tmp48366)))) + (cons __tmp50396 __tmp50390)))) (declare (not safe)) - (cons __tmp48377 __tmp48365))) - (__tmp48361 - (let ((__tmp48362 - (let ((__tmp48363 + (cons __tmp50401 __tmp50389))) + (__tmp50385 + (let ((__tmp50386 + (let ((__tmp50387 (let () (declare (not safe)) (cons _L10028_ '())))) (declare (not safe)) - (cons __tmp48363 '())))) + (cons __tmp50387 '())))) (declare (not safe)) - (cons _L10027_ __tmp48362)))) + (cons _L10027_ __tmp50386)))) (declare (not safe)) - (cons __tmp48364 __tmp48361)))) + (cons __tmp50388 __tmp50385)))) (declare (not safe)) - (cons __tmp48378 __tmp48360)))) + (cons __tmp50402 __tmp50384)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48359 '())))) + (cons __tmp50383 '())))) (declare (not safe)) - (cons __tmp48379 __tmp48358)))) + (cons __tmp50403 __tmp50382)))) (declare (not safe)) - (cons __tmp48385 __tmp48357))) - (__tmp48354 - (let ((__tmp48355 + (cons __tmp50409 __tmp50381))) + (__tmp50378 + (let ((__tmp50379 (let () (declare (not safe)) (cons _L10028_ '())))) (declare (not safe)) - (cons __tmp48355 '())))) + (cons __tmp50379 '())))) (declare (not safe)) - (cons __tmp48356 __tmp48354)))) + (cons __tmp50380 __tmp50378)))) (declare (not safe)) - (cons __tmp48386 __tmp48353)))) + (cons __tmp50410 __tmp50377)))) (declare (not safe)) - (cons __tmp48389 __tmp48352)))) + (cons __tmp50413 __tmp50376)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48351 '())))) + (cons __tmp50375 '())))) (declare (not safe)) - (cons __tmp48390 __tmp48350)))) + (cons __tmp50414 __tmp50374)))) (declare (not safe)) - (cons __tmp48396 __tmp48349)))) + (cons __tmp50420 __tmp50373)))) _hd993910017_ _hd993610007_ _hd99339997_ @@ -6408,30 +6331,30 @@ (declare (not safe)) (##cdr _e1008710148_)))) (if (gx#stx-pair/null? _hd1008610152_) - (let ((_g48276_ + (let ((_g50301_ (gx#syntax-split-splice _hd1008610152_ '0))) (begin - (let ((_g48277_ + (let ((_g50302_ (let () (declare (not safe)) - (if (##values? _g48276_) - (##vector-length _g48276_) + (if (##values? _g50301_) + (##vector-length _g50301_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48277_ 2))) + (##fx= _g50302_ 2))) (error "Context expects 2 values" - _g48277_))) + _g50302_))) (let ((_target1008810158_ (let () (declare (not safe)) - (##vector-ref _g48276_ 0))) + (##vector-ref _g50301_ 0))) (_tl1009010161_ (let () (declare (not safe)) - (##vector-ref _g48276_ 1)))) + (##vector-ref _g50301_ 1)))) (if (gx#stx-null? _tl1009010161_) (letrec ((_loop1009110164_ (lambda (_hd1008910168_ @@ -6497,64 +6420,64 @@ _L10224_ _L10225_) (let () - (let ((__tmp48348 + (let ((__tmp50372 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let)) - (__tmp48278 - (let ((__tmp48335 - (let ((__tmp48342 - (let ((__tmp48343 - (let ((__tmp48344 - (let ((__tmp48347 + (__tmp50303 + (let ((__tmp50359 + (let ((__tmp50366 + (let ((__tmp50367 + (let ((__tmp50368 + (let ((__tmp50371 (gx#datum->syntax '#f 'lambda)) - (__tmp48345 - (let ((__tmp48346 + (__tmp50369 + (let ((__tmp50370 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L10221_ '())))) (declare (not safe)) - (cons '() __tmp48346)))) + (cons '() __tmp50370)))) (declare (not safe)) - (cons __tmp48347 __tmp48345)))) + (cons __tmp50371 __tmp50369)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48344 '())))) + (cons __tmp50368 '())))) (declare (not safe)) - (cons _L10224_ __tmp48343))) - (__tmp48336 - (let ((__tmp48337 - (let ((__tmp48338 - (let ((__tmp48339 - (let ((__tmp48341 + (cons _L10224_ __tmp50367))) + (__tmp50360 + (let ((__tmp50361 + (let ((__tmp50362 + (let ((__tmp50363 + (let ((__tmp50365 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp48340 + (__tmp50364 (let () (declare (not safe)) (cons _L10220_ '())))) (declare (not safe)) - (cons __tmp48341 __tmp48340)))) + (cons __tmp50365 __tmp50364)))) (declare (not safe)) - (cons __tmp48339 '())))) + (cons __tmp50363 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L10223_ __tmp48338)))) + (cons _L10223_ __tmp50362)))) (declare (not safe)) - (cons __tmp48337 '())))) + (cons __tmp50361 '())))) (declare (not safe)) - (cons __tmp48342 __tmp48336))) - (__tmp48279 - (let ((__tmp48280 - (let ((__tmp48334 + (cons __tmp50366 __tmp50360))) + (__tmp50304 + (let ((__tmp50305 + (let ((__tmp50358 (gx#datum->syntax '#f 'if)) - (__tmp48281 - (let ((__tmp48331 - (let ((__tmp48333 + (__tmp50306 + (let ((__tmp50355 + (let ((__tmp50357 (gx#datum->syntax '#f 'char?)) - (__tmp48332 + (__tmp50356 (let () (declare (not safe)) @@ -6562,173 +6485,172 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp48333 __tmp48332))) + (cons __tmp50357 __tmp50356))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48282 - (let ((__tmp48285 - (let ((__tmp48330 + (__tmp50307 + (let ((__tmp50310 + (let ((__tmp50354 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp48286 - (let ((__tmp48324 - (let ((__tmp48329 (gx#datum->syntax '#f 'ix)) - (__tmp48325 - (let ((__tmp48326 - (let ((__tmp48328 + (__tmp50311 + (let ((__tmp50348 + (let ((__tmp50353 (gx#datum->syntax '#f 'ix)) + (__tmp50349 + (let ((__tmp50350 + (let ((__tmp50352 (gx#datum->syntax '#f '##char->integer)) - (__tmp48327 + (__tmp50351 (let () (declare (not safe)) (cons _L10225_ '())))) (declare (not safe)) - (cons __tmp48328 - __tmp48327)))) + (cons __tmp50352 + __tmp50351)))) (declare (not safe)) - (cons __tmp48326 '())))) + (cons __tmp50350 '())))) (declare (not safe)) - (cons __tmp48329 __tmp48325))) - (__tmp48287 - (let ((__tmp48288 - (let ((__tmp48323 + (cons __tmp50353 __tmp50349))) + (__tmp50312 + (let ((__tmp50313 + (let ((__tmp50347 (gx#datum->syntax '#f 'if)) - (__tmp48289 - (let ((__tmp48318 - (let ((__tmp48322 + (__tmp50314 + (let ((__tmp50342 + (let ((__tmp50346 (gx#datum->syntax '#f '##fx<)) - (__tmp48319 - (let ((__tmp48321 + (__tmp50343 + (let ((__tmp50345 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'ix)) - (__tmp48320 + (__tmp50344 (let () (declare (not safe)) (cons _L10218_ '())))) (declare (not safe)) - (cons __tmp48321 __tmp48320)))) + (cons __tmp50345 __tmp50344)))) (declare (not safe)) - (cons __tmp48322 __tmp48319))) + (cons __tmp50346 __tmp50343))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48290 - (let ((__tmp48293 - (let ((__tmp48317 + (__tmp50315 + (let ((__tmp50318 + (let ((__tmp50341 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp48294 - (let ((__tmp48309 - (let ((__tmp48316 (gx#datum->syntax '#f 'x)) - (__tmp48310 - (let ((__tmp48311 - (let ((__tmp48315 + (__tmp50319 + (let ((__tmp50333 + (let ((__tmp50340 (gx#datum->syntax '#f 'x)) + (__tmp50334 + (let ((__tmp50335 + (let ((__tmp50339 (gx#datum->syntax '#f '##vector-ref)) - (__tmp48312 - (let ((__tmp48313 - (let ((__tmp48314 + (__tmp50336 + (let ((__tmp50337 + (let ((__tmp50338 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp48314 '())))) + (cons __tmp50338 '())))) (declare (not safe)) - (cons _L10223_ __tmp48313)))) + (cons _L10223_ __tmp50337)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48315 - __tmp48312)))) + (cons __tmp50339 + __tmp50336)))) (declare (not safe)) - (cons __tmp48311 '())))) + (cons __tmp50335 '())))) (declare (not safe)) - (cons __tmp48316 __tmp48310))) - (__tmp48295 - (let ((__tmp48296 - (let ((__tmp48308 + (cons __tmp50340 __tmp50334))) + (__tmp50320 + (let ((__tmp50321 + (let ((__tmp50332 (gx#datum->syntax '#f 'if)) - (__tmp48297 - (let ((__tmp48307 + (__tmp50322 + (let ((__tmp50331 (gx#datum->syntax '#f 'x)) - (__tmp48298 - (let ((__tmp48301 - (let ((__tmp48306 + (__tmp50323 + (let ((__tmp50326 + (let ((__tmp50330 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48302 - (let ((__tmp48305 (gx#datum->syntax '#f 'x)) - (__tmp48303 - (let ((__tmp48304 - (lambda (_g1025810261_ + (__tmp50327 + (let ((__tmp50329 (gx#datum->syntax '#f 'x)) + (__tmp50328 + (foldr (lambda (_g1025810261_ _g1025910264_) (let () (declare (not safe)) (cons _g1025810261_ - _g1025910264_))))) - (declare (not safe)) - (foldr1 __tmp48304 '() _L10222_)))) + _g1025910264_))) + '() + _L10222_))) (declare (not safe)) - (cons __tmp48305 __tmp48303)))) + (cons __tmp50329 __tmp50328)))) (declare (not safe)) - (cons __tmp48306 __tmp48302))) - (__tmp48299 - (let ((__tmp48300 + (cons __tmp50330 __tmp50327))) + (__tmp50324 + (let ((__tmp50325 (let () (declare (not safe)) (cons _L10224_ '())))) (declare (not safe)) - (cons __tmp48300 '())))) + (cons __tmp50325 '())))) (declare (not safe)) - (cons __tmp48301 __tmp48299)))) + (cons __tmp50326 __tmp50324)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48307 - __tmp48298)))) + (cons __tmp50331 + __tmp50323)))) (declare (not safe)) - (cons __tmp48308 __tmp48297)))) + (cons __tmp50332 __tmp50322)))) (declare (not safe)) - (cons __tmp48296 '())))) + (cons __tmp50321 '())))) (declare (not safe)) - (cons __tmp48309 __tmp48295)))) + (cons __tmp50333 __tmp50320)))) (declare (not safe)) - (cons __tmp48317 __tmp48294))) - (__tmp48291 - (let ((__tmp48292 + (cons __tmp50341 __tmp50319))) + (__tmp50316 + (let ((__tmp50317 (let () (declare (not safe)) (cons _L10224_ '())))) (declare (not safe)) - (cons __tmp48292 '())))) + (cons __tmp50317 '())))) (declare (not safe)) - (cons __tmp48293 __tmp48291)))) + (cons __tmp50318 __tmp50316)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48318 - __tmp48290)))) + (cons __tmp50342 + __tmp50315)))) (declare (not safe)) - (cons __tmp48323 __tmp48289)))) + (cons __tmp50347 __tmp50314)))) (declare (not safe)) - (cons __tmp48288 '())))) + (cons __tmp50313 '())))) (declare (not safe)) - (cons __tmp48324 __tmp48287)))) + (cons __tmp50348 __tmp50312)))) (declare (not safe)) - (cons __tmp48330 __tmp48286))) - (__tmp48283 - (let ((__tmp48284 + (cons __tmp50354 __tmp50311))) + (__tmp50308 + (let ((__tmp50309 (let () (declare (not safe)) (cons _L10224_ '())))) (declare (not safe)) - (cons __tmp48284 '())))) + (cons __tmp50309 '())))) (declare (not safe)) - (cons __tmp48285 __tmp48283)))) + (cons __tmp50310 __tmp50308)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48331 __tmp48282)))) + (cons __tmp50355 __tmp50307)))) (declare (not safe)) - (cons __tmp48334 __tmp48281)))) + (cons __tmp50358 __tmp50306)))) (declare (not safe)) - (cons __tmp48280 '())))) + (cons __tmp50305 '())))) (declare (not safe)) - (cons __tmp48335 __tmp48279)))) + (cons __tmp50359 __tmp50304)))) (declare (not safe)) - (cons __tmp48348 __tmp48278)))) + (cons __tmp50372 __tmp50303)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd1010410212_ _hd1010110202_ @@ -6826,28 +6748,28 @@ (declare (not safe)) (##cdr _e97069767_)))) (if (gx#stx-pair/null? _hd97059771_) - (let ((_g48397_ + (let ((_g50421_ (gx#syntax-split-splice _hd97059771_ '0))) (begin - (let ((_g48398_ + (let ((_g50422_ (let () (declare (not safe)) - (if (##values? _g48397_) - (##vector-length _g48397_) + (if (##values? _g50421_) + (##vector-length _g50421_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48398_ 2))) + (##fx= _g50422_ 2))) (error "Context expects 2 values" - _g48398_))) + _g50422_))) (let ((_target97079777_ (let () (declare (not safe)) - (##vector-ref _g48397_ 0))) + (##vector-ref _g50421_ 0))) (_tl97099780_ (let () (declare (not safe)) - (##vector-ref _g48397_ 1)))) + (##vector-ref _g50421_ 1)))) (if (gx#stx-null? _tl97099780_) (letrec ((_loop97109783_ (lambda (_hd97089787_ @@ -6908,22 +6830,22 @@ _L9843_ _L9844_) (let () - (let ((__tmp48490 + (let ((__tmp50513 (gx#datum->syntax '#f 'let)) - (__tmp48399 - (let ((__tmp48477 - (let ((__tmp48484 + (__tmp50423 + (let ((__tmp50500 + (let ((__tmp50507 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48485 - (let ((__tmp48486 - (let ((__tmp48489 + (let ((__tmp50508 + (let ((__tmp50509 + (let ((__tmp50512 (gx#datum->syntax '#f 'lambda)) - (__tmp48487 - (let ((__tmp48488 + (__tmp50510 + (let ((__tmp50511 (let () (declare (not safe)) @@ -6932,22 +6854,22 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp48488)))) + (cons '() __tmp50511)))) (declare (not safe)) - (cons __tmp48489 __tmp48487)))) + (cons __tmp50512 __tmp50510)))) (declare (not safe)) - (cons __tmp48486 '())))) + (cons __tmp50509 '())))) (declare (not safe)) - (cons _L9843_ __tmp48485))) - (__tmp48478 - (let ((__tmp48479 - (let ((__tmp48480 - (let ((__tmp48481 - (let ((__tmp48483 + (cons _L9843_ __tmp50508))) + (__tmp50501 + (let ((__tmp50502 + (let ((__tmp50503 + (let ((__tmp50504 + (let ((__tmp50506 (gx#datum->syntax '#f 'quote)) - (__tmp48482 + (__tmp50505 (let () (declare (not safe)) @@ -6956,222 +6878,221 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48483 - __tmp48482)))) + (cons __tmp50506 + __tmp50505)))) (declare (not safe)) - (cons __tmp48481 '())))) + (cons __tmp50504 '())))) (declare (not safe)) - (cons _L9842_ __tmp48480)))) + (cons _L9842_ __tmp50503)))) (declare (not safe)) - (cons __tmp48479 '())))) + (cons __tmp50502 '())))) (declare (not safe)) - (cons __tmp48484 __tmp48478))) - (__tmp48400 - (let ((__tmp48401 - (let ((__tmp48476 (gx#datum->syntax '#f 'if)) - (__tmp48402 - (let ((__tmp48473 - (let ((__tmp48475 + (cons __tmp50507 __tmp50501))) + (__tmp50424 + (let ((__tmp50425 + (let ((__tmp50499 (gx#datum->syntax '#f 'if)) + (__tmp50426 + (let ((__tmp50496 + (let ((__tmp50498 (gx#datum->syntax '#f 'char?)) - (__tmp48474 + (__tmp50497 (let () (declare (not safe)) (cons _L9844_ '())))) (declare (not safe)) - (cons __tmp48475 __tmp48474))) - (__tmp48403 - (let ((__tmp48406 - (let ((__tmp48472 + (cons __tmp50498 __tmp50497))) + (__tmp50427 + (let ((__tmp50430 + (let ((__tmp50495 (gx#datum->syntax '#f 'let*)) - (__tmp48407 - (let ((__tmp48447 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48466 - (let ((__tmp48471 (gx#datum->syntax '#f 'h)) - (__tmp48467 - (let ((__tmp48468 - (let ((__tmp48470 + (__tmp50431 + (let ((__tmp50470 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50489 + (let ((__tmp50494 (gx#datum->syntax '#f 'h)) + (__tmp50490 + (let ((__tmp50491 + (let ((__tmp50493 (gx#datum->syntax '#f '##char->integer)) - (__tmp48469 + (__tmp50492 (let () (declare (not safe)) (cons _L9844_ '())))) (declare (not safe)) - (cons __tmp48470 __tmp48469)))) + (cons __tmp50493 __tmp50492)))) (declare (not safe)) - (cons __tmp48468 '())))) + (cons __tmp50491 '())))) (declare (not safe)) - (cons __tmp48471 __tmp48467))) - (__tmp48448 - (let ((__tmp48458 - (let ((__tmp48465 + (cons __tmp50494 __tmp50490))) + (__tmp50471 + (let ((__tmp50481 + (let ((__tmp50488 (gx#datum->syntax '#f 'ix)) - (__tmp48459 - (let ((__tmp48460 - (let ((__tmp48464 + (__tmp50482 + (let ((__tmp50483 + (let ((__tmp50487 (gx#datum->syntax '#f '##fxmodulo)) - (__tmp48461 - (let ((__tmp48463 + (__tmp50484 + (let ((__tmp50486 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'h)) - (__tmp48462 + (__tmp50485 (let () (declare (not safe)) (cons _L9837_ '())))) (declare (not safe)) - (cons __tmp48463 __tmp48462)))) + (cons __tmp50486 __tmp50485)))) (declare (not safe)) - (cons __tmp48464 __tmp48461)))) + (cons __tmp50487 __tmp50484)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48460 '())))) + (cons __tmp50483 '())))) (declare (not safe)) - (cons __tmp48465 __tmp48459))) - (__tmp48449 - (let ((__tmp48450 - (let ((__tmp48457 + (cons __tmp50488 __tmp50482))) + (__tmp50472 + (let ((__tmp50473 + (let ((__tmp50480 (gx#datum->syntax '#f 'q)) - (__tmp48451 - (let ((__tmp48452 - (let ((__tmp48456 + (__tmp50474 + (let ((__tmp50475 + (let ((__tmp50479 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##vector-ref)) - (__tmp48453 - (let ((__tmp48454 - (let ((__tmp48455 + (__tmp50476 + (let ((__tmp50477 + (let ((__tmp50478 (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp48455 '())))) + (cons __tmp50478 '())))) (declare (not safe)) - (cons _L9842_ __tmp48454)))) + (cons _L9842_ __tmp50477)))) (declare (not safe)) - (cons __tmp48456 __tmp48453)))) + (cons __tmp50479 __tmp50476)))) (declare (not safe)) - (cons __tmp48452 '())))) + (cons __tmp50475 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48457 __tmp48451)))) + (cons __tmp50480 __tmp50474)))) (declare (not safe)) - (cons __tmp48450 '())))) + (cons __tmp50473 '())))) (declare (not safe)) - (cons __tmp48458 __tmp48449)))) + (cons __tmp50481 __tmp50472)))) (declare (not safe)) - (cons __tmp48466 __tmp48448))) - (__tmp48408 - (let ((__tmp48409 - (let ((__tmp48446 (gx#datum->syntax '#f 'if)) - (__tmp48410 - (let ((__tmp48445 + (cons __tmp50489 __tmp50471))) + (__tmp50432 + (let ((__tmp50433 + (let ((__tmp50469 (gx#datum->syntax '#f 'if)) + (__tmp50434 + (let ((__tmp50468 (gx#datum->syntax '#f 'q)) - (__tmp48411 - (let ((__tmp48414 - (let ((__tmp48444 + (__tmp50435 + (let ((__tmp50438 + (let ((__tmp50467 (gx#datum->syntax '#f 'if)) - (__tmp48415 - (let ((__tmp48436 + (__tmp50439 + (let ((__tmp50459 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48443 (gx#datum->syntax '#f 'eq?)) - (__tmp48437 - (let ((__tmp48439 - (let ((__tmp48442 + (let ((__tmp50466 (gx#datum->syntax '#f 'eq?)) + (__tmp50460 + (let ((__tmp50462 + (let ((__tmp50465 (gx#datum->syntax '#f '##car)) - (__tmp48440 - (let ((__tmp48441 + (__tmp50463 + (let ((__tmp50464 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48441 '())))) + (cons __tmp50464 '())))) (declare (not safe)) - (cons __tmp48442 __tmp48440))) - (__tmp48438 + (cons __tmp50465 __tmp50463))) + (__tmp50461 (let () (declare (not safe)) (cons _L9844_ '())))) (declare (not safe)) - (cons __tmp48439 __tmp48438)))) + (cons __tmp50462 __tmp50461)))) (declare (not safe)) - (cons __tmp48443 __tmp48437))) - (__tmp48416 - (let ((__tmp48419 - (let ((__tmp48435 + (cons __tmp50466 __tmp50460))) + (__tmp50440 + (let ((__tmp50443 + (let ((__tmp50458 (gx#datum->syntax '#f 'let)) - (__tmp48420 - (let ((__tmp48428 - (let ((__tmp48434 + (__tmp50444 + (let ((__tmp50451 + (let ((__tmp50457 (gx#datum->syntax '#f 'x)) - (__tmp48429 - (let ((__tmp48430 - (let ((__tmp48433 + (__tmp50452 + (let ((__tmp50453 + (let ((__tmp50456 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##cdr)) - (__tmp48431 - (let ((__tmp48432 (gx#datum->syntax '#f 'q))) + (__tmp50454 + (let ((__tmp50455 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48432 '())))) + (cons __tmp50455 '())))) (declare (not safe)) - (cons __tmp48433 __tmp48431)))) + (cons __tmp50456 __tmp50454)))) (declare (not safe)) - (cons __tmp48430 '())))) + (cons __tmp50453 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48434 - __tmp48429))) - (__tmp48421 - (let ((__tmp48422 - (let ((__tmp48427 + (cons __tmp50457 + __tmp50452))) + (__tmp50445 + (let ((__tmp50446 + (let ((__tmp50450 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48423 - (let ((__tmp48426 + (__tmp50447 + (let ((__tmp50449 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'x)) - (__tmp48424 - (let ((__tmp48425 - (lambda (_g98819884_ _g98829887_) + (__tmp50448 + (foldr (lambda (_g98819884_ _g98829887_) (let () (declare (not safe)) - (cons _g98819884_ _g98829887_))))) - (declare (not safe)) - (foldr1 __tmp48425 '() _L9841_)))) + (cons _g98819884_ _g98829887_))) + '() + _L9841_))) (declare (not safe)) - (cons __tmp48426 __tmp48424)))) + (cons __tmp50449 __tmp50448)))) (declare (not safe)) - (cons __tmp48427 __tmp48423)))) + (cons __tmp50450 __tmp50447)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48422 '())))) + (cons __tmp50446 '())))) (declare (not safe)) - (cons __tmp48428 __tmp48421)))) + (cons __tmp50451 __tmp50445)))) (declare (not safe)) - (cons __tmp48435 __tmp48420))) - (__tmp48417 - (let ((__tmp48418 + (cons __tmp50458 __tmp50444))) + (__tmp50441 + (let ((__tmp50442 (let () (declare (not safe)) (cons _L9843_ '())))) (declare (not safe)) - (cons __tmp48418 '())))) + (cons __tmp50442 '())))) (declare (not safe)) - (cons __tmp48419 __tmp48417)))) + (cons __tmp50443 __tmp50441)))) (declare (not safe)) - (cons __tmp48436 __tmp48416)))) + (cons __tmp50459 __tmp50440)))) (declare (not safe)) - (cons __tmp48444 __tmp48415))) + (cons __tmp50467 __tmp50439))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48412 - (let ((__tmp48413 + (__tmp50436 + (let ((__tmp50437 (let () (declare (not safe)) @@ -7179,24 +7100,24 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp48413 '())))) + (cons __tmp50437 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48414 __tmp48412)))) + (cons __tmp50438 __tmp50436)))) (declare (not safe)) - (cons __tmp48445 __tmp48411)))) + (cons __tmp50468 __tmp50435)))) (declare (not safe)) - (cons __tmp48446 __tmp48410)))) + (cons __tmp50469 __tmp50434)))) (declare (not safe)) - (cons __tmp48409 '())))) + (cons __tmp50433 '())))) (declare (not safe)) - (cons __tmp48447 __tmp48408)))) + (cons __tmp50470 __tmp50432)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48472 - __tmp48407))) - (__tmp48404 - (let ((__tmp48405 + (cons __tmp50495 + __tmp50431))) + (__tmp50428 + (let ((__tmp50429 (let () (declare (not safe)) @@ -7205,21 +7126,21 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48405 '())))) + (cons __tmp50429 '())))) (declare (not safe)) - (cons __tmp48406 __tmp48404)))) + (cons __tmp50430 __tmp50428)))) (declare (not safe)) - (cons __tmp48473 __tmp48403)))) + (cons __tmp50496 __tmp50427)))) (declare (not safe)) - (cons __tmp48476 __tmp48402)))) + (cons __tmp50499 __tmp50426)))) (declare (not safe)) - (cons __tmp48401 '())))) + (cons __tmp50425 '())))) (declare (not safe)) - (cons __tmp48477 __tmp48400)))) + (cons __tmp50500 __tmp50424)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48490 - __tmp48399)))) + (cons __tmp50513 + __tmp50423)))) _hd97239831_ _hd97209821_ _hd97179811_ @@ -7251,32 +7172,23 @@ (vector-length _tab9681_))))))) (_min-fixnum8757_ (lambda (_datums9665_) - (let ((__tmp48491 - (lambda (_lst9668_ _r9670_) - (let () - (declare (not safe)) - (foldl1 min _r9670_ _lst9668_))))) - (declare (not safe)) - (foldl1 __tmp48491 ##max-fixnum _datums9665_)))) + (foldl (lambda (_lst9668_ _r9670_) + (foldl min _r9670_ _lst9668_)) + ##max-fixnum + _datums9665_))) (_max-fixnum8758_ (lambda (_datums9658_) - (let ((__tmp48492 - (lambda (_lst9661_ _r9663_) - (let () - (declare (not safe)) - (foldl1 max _r9663_ _lst9661_))))) - (declare (not safe)) - (foldl1 __tmp48492 ##min-fixnum _datums9658_)))) + (foldl (lambda (_lst9661_ _r9663_) + (foldl max _r9663_ _lst9661_)) + ##min-fixnum + _datums9658_))) (_generate-fixnum-dispatch-table8759_ (lambda (_indexes9640_) (let* ((_ixs9643_ (map car _indexes9640_)) (_len9646_ - (let ((__tmp48493 - (let () - (declare (not safe)) - (foldl1 max '0 _ixs9643_)))) + (let ((__tmp50514 (foldl max '0 _ixs9643_))) (declare (not safe)) - (fx+ __tmp48493 '1))) + (fx+ __tmp50514 '1))) (_vec9649_ (make-vector _len9646_ '#f))) (for-each (lambda (_entry9654_ _x9656_) @@ -7294,9 +7206,7 @@ (_generate-fixnum-dispatch-table8759_ _indexes9380_)) (_dense?9386_ - (let ((__tmp48494 (vector->list _tab9383_))) - (declare (not safe)) - (andmap1 values __tmp48494)))) + (andmap values (vector->list _tab9383_)))) (let* ((_g93919435_ (lambda (_g93929431_) (gx#raise-syntax-error @@ -7349,30 +7259,30 @@ (declare (not safe)) (##cdr _e94119472_)))) (if (gx#stx-pair/null? _hd94109476_) - (let ((_g48495_ + (let ((_g50515_ (gx#syntax-split-splice _hd94109476_ '0))) (begin - (let ((_g48496_ + (let ((_g50516_ (let () (declare (not safe)) - (if (##values? _g48495_) - (##vector-length _g48495_) + (if (##values? _g50515_) + (##vector-length _g50515_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48496_ 2))) + (##fx= _g50516_ 2))) (error "Context expects 2 values" - _g48496_))) + _g50516_))) (let ((_target94129482_ (let () (declare (not safe)) - (##vector-ref _g48495_ 0))) + (##vector-ref _g50515_ 0))) (_tl94149485_ (let () (declare (not safe)) - (##vector-ref _g48495_ 1)))) + (##vector-ref _g50515_ 1)))) (if (gx#stx-null? _tl94149485_) (letrec ((_loop94159488_ (lambda (_hd94139492_ @@ -7443,145 +7353,145 @@ ((lambda (_L9603_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let ((__tmp48550 (gx#datum->syntax '#f 'let)) - (__tmp48497 - (let ((__tmp48537 - (let ((__tmp48544 - (let ((__tmp48545 - (let ((__tmp48546 - (let ((__tmp48549 + (let ((__tmp50570 (gx#datum->syntax '#f 'let)) + (__tmp50517 + (let ((__tmp50557 + (let ((__tmp50564 + (let ((__tmp50565 + (let ((__tmp50566 + (let ((__tmp50569 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp48547 - (let ((__tmp48548 + (__tmp50567 + (let ((__tmp50568 (let () (declare (not safe)) (cons _L9545_ '())))) (declare (not safe)) - (cons '() __tmp48548)))) + (cons '() __tmp50568)))) (declare (not safe)) - (cons __tmp48549 __tmp48547)))) + (cons __tmp50569 __tmp50567)))) (declare (not safe)) - (cons __tmp48546 '())))) + (cons __tmp50566 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L9548_ __tmp48545))) - (__tmp48538 - (let ((__tmp48539 - (let ((__tmp48540 - (let ((__tmp48541 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48543 (gx#datum->syntax '#f 'quote)) - (__tmp48542 + (cons _L9548_ __tmp50565))) + (__tmp50558 + (let ((__tmp50559 + (let ((__tmp50560 + (let ((__tmp50561 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50563 (gx#datum->syntax '#f 'quote)) + (__tmp50562 (let () (declare (not safe)) (cons _L9544_ '())))) (declare (not safe)) - (cons __tmp48543 __tmp48542)))) + (cons __tmp50563 __tmp50562)))) (declare (not safe)) - (cons __tmp48541 '())))) + (cons __tmp50561 '())))) (declare (not safe)) - (cons _L9547_ __tmp48540)))) + (cons _L9547_ __tmp50560)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48539 '())))) + (cons __tmp50559 '())))) (declare (not safe)) - (cons __tmp48544 __tmp48538))) - (__tmp48498 - (let ((__tmp48499 - (let ((__tmp48536 + (cons __tmp50564 __tmp50558))) + (__tmp50518 + (let ((__tmp50519 + (let ((__tmp50556 (gx#datum->syntax '#f 'if)) - (__tmp48500 - (let ((__tmp48533 - (let ((__tmp48535 + (__tmp50520 + (let ((__tmp50553 + (let ((__tmp50555 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fixnum?)) - (__tmp48534 + (__tmp50554 (let () (declare (not safe)) (cons _L9549_ '())))) (declare (not safe)) - (cons __tmp48535 __tmp48534))) - (__tmp48501 - (let ((__tmp48504 - (let ((__tmp48532 (gx#datum->syntax '#f 'if)) - (__tmp48505 - (let ((__tmp48520 - (let ((__tmp48531 + (cons __tmp50555 __tmp50554))) + (__tmp50521 + (let ((__tmp50524 + (let ((__tmp50552 (gx#datum->syntax '#f 'if)) + (__tmp50525 + (let ((__tmp50540 + (let ((__tmp50551 (gx#datum->syntax '#f 'and)) - (__tmp48521 - (let ((__tmp48527 - (let ((__tmp48530 + (__tmp50541 + (let ((__tmp50547 + (let ((__tmp50550 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##fx>=)) - (__tmp48528 - (let ((__tmp48529 + (__tmp50548 + (let ((__tmp50549 (let () (declare (not safe)) (cons '0 '())))) (declare (not safe)) - (cons _L9549_ __tmp48529)))) + (cons _L9549_ __tmp50549)))) (declare (not safe)) - (cons __tmp48530 __tmp48528))) - (__tmp48522 - (let ((__tmp48523 - (let ((__tmp48526 (gx#datum->syntax '#f '##fx<)) - (__tmp48524 - (let ((__tmp48525 + (cons __tmp50550 __tmp50548))) + (__tmp50542 + (let ((__tmp50543 + (let ((__tmp50546 (gx#datum->syntax '#f '##fx<)) + (__tmp50544 + (let ((__tmp50545 (let () (declare (not safe)) (cons _L9542_ '())))) (declare (not safe)) - (cons _L9549_ __tmp48525)))) + (cons _L9549_ __tmp50545)))) (declare (not safe)) - (cons __tmp48526 __tmp48524)))) + (cons __tmp50546 __tmp50544)))) (declare (not safe)) - (cons __tmp48523 '())))) + (cons __tmp50543 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48527 - __tmp48522)))) + (cons __tmp50547 + __tmp50542)))) (declare (not safe)) - (cons __tmp48531 __tmp48521))) - (__tmp48506 - (let ((__tmp48509 - (let ((__tmp48519 + (cons __tmp50551 __tmp50541))) + (__tmp50526 + (let ((__tmp50529 + (let ((__tmp50539 (gx#datum->syntax '#f 'let)) - (__tmp48510 - (let ((__tmp48512 + (__tmp50530 + (let ((__tmp50532 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48518 (gx#datum->syntax '#f 'x)) - (__tmp48513 - (let ((__tmp48514 - (let ((__tmp48517 + (let ((__tmp50538 (gx#datum->syntax '#f 'x)) + (__tmp50533 + (let ((__tmp50534 + (let ((__tmp50537 (gx#datum->syntax '#f '##vector-ref)) - (__tmp48515 - (let ((__tmp48516 + (__tmp50535 + (let ((__tmp50536 (let () (declare (not safe)) (cons _L9549_ '())))) (declare (not safe)) - (cons _L9547_ __tmp48516)))) + (cons _L9547_ __tmp50536)))) (declare (not safe)) - (cons __tmp48517 __tmp48515)))) + (cons __tmp50537 __tmp50535)))) (declare (not safe)) - (cons __tmp48514 '())))) + (cons __tmp50534 '())))) (declare (not safe)) - (cons __tmp48518 __tmp48513))) - (__tmp48511 + (cons __tmp50538 __tmp50533))) + (__tmp50531 (let () (declare (not safe)) (cons _L9603_ '())))) (declare (not safe)) - (cons __tmp48512 __tmp48511)))) + (cons __tmp50532 __tmp50531)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48519 - __tmp48510))) - (__tmp48507 - (let ((__tmp48508 + (cons __tmp50539 + __tmp50530))) + (__tmp50527 + (let ((__tmp50528 (let () (declare (not safe)) @@ -7590,95 +7500,93 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48508 '())))) + (cons __tmp50528 '())))) (declare (not safe)) - (cons __tmp48509 __tmp48507)))) + (cons __tmp50529 __tmp50527)))) (declare (not safe)) - (cons __tmp48520 __tmp48506)))) + (cons __tmp50540 __tmp50526)))) (declare (not safe)) - (cons __tmp48532 __tmp48505))) - (__tmp48502 - (let ((__tmp48503 + (cons __tmp50552 __tmp50525))) + (__tmp50522 + (let ((__tmp50523 (let () (declare (not safe)) (cons _L9548_ '())))) (declare (not safe)) - (cons __tmp48503 '())))) + (cons __tmp50523 '())))) (declare (not safe)) - (cons __tmp48504 __tmp48502)))) + (cons __tmp50524 __tmp50522)))) (declare (not safe)) - (cons __tmp48533 __tmp48501)))) + (cons __tmp50553 __tmp50521)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48536 - __tmp48500)))) + (cons __tmp50556 + __tmp50520)))) (declare (not safe)) - (cons __tmp48499 '())))) + (cons __tmp50519 '())))) (declare (not safe)) - (cons __tmp48537 __tmp48498)))) + (cons __tmp50557 __tmp50518)))) (declare (not safe)) - (cons __tmp48550 __tmp48497)))) + (cons __tmp50570 __tmp50517)))) _g95899600_)))) (_g95879616_ (if _dense?9386_ - (let ((__tmp48567 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48563 - (let ((__tmp48566 (gx#datum->syntax '#f 'x)) - (__tmp48564 - (let ((__tmp48565 - (lambda (_g96199622_ _g96209625_) + (let ((__tmp50585 (gx#datum->syntax '#f '~case-dispatch)) + (__tmp50582 + (let ((__tmp50584 (gx#datum->syntax '#f 'x)) + (__tmp50583 + (foldr (lambda (_g96199622_ _g96209625_) (let () (declare (not safe)) - (cons _g96199622_ _g96209625_))))) - (declare (not safe)) - (foldr1 __tmp48565 '() _L9546_)))) + (cons _g96199622_ _g96209625_))) + '() + _L9546_))) (declare (not safe)) - (cons __tmp48566 __tmp48564)))) + (cons __tmp50584 __tmp50583)))) (declare (not safe)) - (cons __tmp48567 __tmp48563)) - (let ((__tmp48562 (gx#datum->syntax '#f 'if)) - (__tmp48551 - (let ((__tmp48561 (gx#datum->syntax '#f 'x)) - (__tmp48552 - (let ((__tmp48555 - (let ((__tmp48560 + (cons __tmp50585 __tmp50582)) + (let ((__tmp50581 (gx#datum->syntax '#f 'if)) + (__tmp50571 + (let ((__tmp50580 (gx#datum->syntax '#f 'x)) + (__tmp50572 + (let ((__tmp50575 + (let ((__tmp50579 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48556 - (let ((__tmp48559 + (__tmp50576 + (let ((__tmp50578 (gx#datum->syntax '#f 'x)) - (__tmp48557 - (let ((__tmp48558 - (lambda (_g96279630_ + (__tmp50577 + (foldr (lambda (_g96279630_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g96289633_) (let () (declare (not safe)) - (cons _g96279630_ _g96289633_))))) - (declare (not safe)) - (foldr1 __tmp48558 '() _L9546_)))) + (cons _g96279630_ _g96289633_))) + '() + _L9546_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48559 - __tmp48557)))) + (cons __tmp50578 + __tmp50577)))) (declare (not safe)) - (cons __tmp48560 __tmp48556))) - (__tmp48553 - (let ((__tmp48554 + (cons __tmp50579 __tmp50576))) + (__tmp50573 + (let ((__tmp50574 (let () (declare (not safe)) (cons _L9548_ '())))) (declare (not safe)) - (cons __tmp48554 '())))) + (cons __tmp50574 '())))) (declare (not safe)) - (cons __tmp48555 __tmp48553)))) + (cons __tmp50575 __tmp50573)))) (declare (not safe)) - (cons __tmp48561 __tmp48552)))) + (cons __tmp50580 __tmp50572)))) (declare (not safe)) - (cons __tmp48562 __tmp48551))))))) + (cons __tmp50581 __tmp50571))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd94289536_ _hd94259526_ @@ -7774,28 +7682,28 @@ (declare (not safe)) (##cdr _e91869247_)))) (if (gx#stx-pair/null? _hd91859251_) - (let ((_g48568_ + (let ((_g50586_ (gx#syntax-split-splice _hd91859251_ '0))) (begin - (let ((_g48569_ + (let ((_g50587_ (let () (declare (not safe)) - (if (##values? _g48568_) - (##vector-length _g48568_) + (if (##values? _g50586_) + (##vector-length _g50586_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48569_ 2))) + (##fx= _g50587_ 2))) (error "Context expects 2 values" - _g48569_))) + _g50587_))) (let ((_target91879257_ (let () (declare (not safe)) - (##vector-ref _g48568_ 0))) + (##vector-ref _g50586_ 0))) (_tl91899260_ (let () (declare (not safe)) - (##vector-ref _g48568_ 1)))) + (##vector-ref _g50586_ 1)))) (if (gx#stx-null? _tl91899260_) (letrec ((_loop91909263_ (lambda (_hd91889267_ @@ -7856,22 +7764,22 @@ _L9323_ _L9324_) (let () - (let ((__tmp48653 + (let ((__tmp50670 (gx#datum->syntax '#f 'let)) - (__tmp48570 - (let ((__tmp48640 - (let ((__tmp48647 + (__tmp50588 + (let ((__tmp50657 + (let ((__tmp50664 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48648 - (let ((__tmp48649 - (let ((__tmp48652 + (let ((__tmp50665 + (let ((__tmp50666 + (let ((__tmp50669 (gx#datum->syntax '#f 'lambda)) - (__tmp48650 - (let ((__tmp48651 + (__tmp50667 + (let ((__tmp50668 (let () (declare (not safe)) @@ -7880,22 +7788,22 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp48651)))) + (cons '() __tmp50668)))) (declare (not safe)) - (cons __tmp48652 __tmp48650)))) + (cons __tmp50669 __tmp50667)))) (declare (not safe)) - (cons __tmp48649 '())))) + (cons __tmp50666 '())))) (declare (not safe)) - (cons _L9323_ __tmp48648))) - (__tmp48641 - (let ((__tmp48642 - (let ((__tmp48643 - (let ((__tmp48644 - (let ((__tmp48646 + (cons _L9323_ __tmp50665))) + (__tmp50658 + (let ((__tmp50659 + (let ((__tmp50660 + (let ((__tmp50661 + (let ((__tmp50663 (gx#datum->syntax '#f 'quote)) - (__tmp48645 + (__tmp50662 (let () (declare (not safe)) @@ -7904,50 +7812,50 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48646 - __tmp48645)))) + (cons __tmp50663 + __tmp50662)))) (declare (not safe)) - (cons __tmp48644 '())))) + (cons __tmp50661 '())))) (declare (not safe)) - (cons _L9322_ __tmp48643)))) + (cons _L9322_ __tmp50660)))) (declare (not safe)) - (cons __tmp48642 '())))) + (cons __tmp50659 '())))) (declare (not safe)) - (cons __tmp48647 __tmp48641))) - (__tmp48571 - (let ((__tmp48572 - (let ((__tmp48639 (gx#datum->syntax '#f 'if)) - (__tmp48573 - (let ((__tmp48636 - (let ((__tmp48638 + (cons __tmp50664 __tmp50658))) + (__tmp50589 + (let ((__tmp50590 + (let ((__tmp50656 (gx#datum->syntax '#f 'if)) + (__tmp50591 + (let ((__tmp50653 + (let ((__tmp50655 (gx#datum->syntax '#f 'fixnum?)) - (__tmp48637 + (__tmp50654 (let () (declare (not safe)) (cons _L9324_ '())))) (declare (not safe)) - (cons __tmp48638 __tmp48637))) - (__tmp48574 - (let ((__tmp48577 - (let ((__tmp48635 + (cons __tmp50655 __tmp50654))) + (__tmp50592 + (let ((__tmp50595 + (let ((__tmp50652 (gx#datum->syntax '#f 'let*)) - (__tmp48578 - (let ((__tmp48618 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48628 - (let ((__tmp48634 (gx#datum->syntax '#f 'ix)) - (__tmp48629 - (let ((__tmp48630 - (let ((__tmp48633 + (__tmp50596 + (let ((__tmp50635 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50645 + (let ((__tmp50651 (gx#datum->syntax '#f 'ix)) + (__tmp50646 + (let ((__tmp50647 + (let ((__tmp50650 (gx#datum->syntax '#f '##fxmodulo)) - (__tmp48631 - (let ((__tmp48632 + (__tmp50648 + (let ((__tmp50649 (let () (declare (not safe)) @@ -7955,152 +7863,151 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _L9324_ __tmp48632)))) + (cons _L9324_ __tmp50649)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48633 __tmp48631)))) + (cons __tmp50650 __tmp50648)))) (declare (not safe)) - (cons __tmp48630 '())))) + (cons __tmp50647 '())))) (declare (not safe)) - (cons __tmp48634 __tmp48629))) - (__tmp48619 - (let ((__tmp48620 - (let ((__tmp48627 + (cons __tmp50651 __tmp50646))) + (__tmp50636 + (let ((__tmp50637 + (let ((__tmp50644 (gx#datum->syntax '#f 'q)) - (__tmp48621 - (let ((__tmp48622 - (let ((__tmp48626 + (__tmp50638 + (let ((__tmp50639 + (let ((__tmp50643 (gx#datum->syntax '#f '##vector-ref)) - (__tmp48623 - (let ((__tmp48624 + (__tmp50640 + (let ((__tmp50641 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48625 (gx#datum->syntax '#f 'ix))) + (let ((__tmp50642 (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp48625 '())))) + (cons __tmp50642 '())))) (declare (not safe)) - (cons _L9322_ __tmp48624)))) + (cons _L9322_ __tmp50641)))) (declare (not safe)) - (cons __tmp48626 __tmp48623)))) + (cons __tmp50643 __tmp50640)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48622 '())))) + (cons __tmp50639 '())))) (declare (not safe)) - (cons __tmp48627 __tmp48621)))) + (cons __tmp50644 __tmp50638)))) (declare (not safe)) - (cons __tmp48620 '())))) + (cons __tmp50637 '())))) (declare (not safe)) - (cons __tmp48628 __tmp48619))) - (__tmp48579 - (let ((__tmp48580 - (let ((__tmp48617 (gx#datum->syntax '#f 'if)) - (__tmp48581 - (let ((__tmp48616 + (cons __tmp50645 __tmp50636))) + (__tmp50597 + (let ((__tmp50598 + (let ((__tmp50634 (gx#datum->syntax '#f 'if)) + (__tmp50599 + (let ((__tmp50633 (gx#datum->syntax '#f 'q)) - (__tmp48582 - (let ((__tmp48585 - (let ((__tmp48615 + (__tmp50600 + (let ((__tmp50603 + (let ((__tmp50632 (gx#datum->syntax '#f 'if)) - (__tmp48586 - (let ((__tmp48607 + (__tmp50604 + (let ((__tmp50624 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48614 (gx#datum->syntax '#f 'eq?)) - (__tmp48608 - (let ((__tmp48610 - (let ((__tmp48613 + (let ((__tmp50631 (gx#datum->syntax '#f 'eq?)) + (__tmp50625 + (let ((__tmp50627 + (let ((__tmp50630 (gx#datum->syntax '#f '##car)) - (__tmp48611 - (let ((__tmp48612 + (__tmp50628 + (let ((__tmp50629 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48612 '())))) + (cons __tmp50629 '())))) (declare (not safe)) - (cons __tmp48613 __tmp48611))) - (__tmp48609 + (cons __tmp50630 __tmp50628))) + (__tmp50626 (let () (declare (not safe)) (cons _L9324_ '())))) (declare (not safe)) - (cons __tmp48610 __tmp48609)))) + (cons __tmp50627 __tmp50626)))) (declare (not safe)) - (cons __tmp48614 __tmp48608))) - (__tmp48587 - (let ((__tmp48590 - (let ((__tmp48606 + (cons __tmp50631 __tmp50625))) + (__tmp50605 + (let ((__tmp50608 + (let ((__tmp50623 (gx#datum->syntax '#f 'let)) - (__tmp48591 - (let ((__tmp48599 - (let ((__tmp48605 + (__tmp50609 + (let ((__tmp50616 + (let ((__tmp50622 (gx#datum->syntax '#f 'x)) - (__tmp48600 - (let ((__tmp48601 - (let ((__tmp48604 + (__tmp50617 + (let ((__tmp50618 + (let ((__tmp50621 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##cdr)) - (__tmp48602 - (let ((__tmp48603 (gx#datum->syntax '#f 'q))) + (__tmp50619 + (let ((__tmp50620 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48603 '())))) + (cons __tmp50620 '())))) (declare (not safe)) - (cons __tmp48604 __tmp48602)))) + (cons __tmp50621 __tmp50619)))) (declare (not safe)) - (cons __tmp48601 '())))) + (cons __tmp50618 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48605 - __tmp48600))) - (__tmp48592 - (let ((__tmp48593 - (let ((__tmp48598 + (cons __tmp50622 + __tmp50617))) + (__tmp50610 + (let ((__tmp50611 + (let ((__tmp50615 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48594 - (let ((__tmp48597 + (__tmp50612 + (let ((__tmp50614 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'x)) - (__tmp48595 - (let ((__tmp48596 - (lambda (_g93619364_ _g93629367_) + (__tmp50613 + (foldr (lambda (_g93619364_ _g93629367_) (let () (declare (not safe)) - (cons _g93619364_ _g93629367_))))) - (declare (not safe)) - (foldr1 __tmp48596 '() _L9321_)))) + (cons _g93619364_ _g93629367_))) + '() + _L9321_))) (declare (not safe)) - (cons __tmp48597 __tmp48595)))) + (cons __tmp50614 __tmp50613)))) (declare (not safe)) - (cons __tmp48598 __tmp48594)))) + (cons __tmp50615 __tmp50612)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48593 '())))) + (cons __tmp50611 '())))) (declare (not safe)) - (cons __tmp48599 __tmp48592)))) + (cons __tmp50616 __tmp50610)))) (declare (not safe)) - (cons __tmp48606 __tmp48591))) - (__tmp48588 - (let ((__tmp48589 + (cons __tmp50623 __tmp50609))) + (__tmp50606 + (let ((__tmp50607 (let () (declare (not safe)) (cons _L9323_ '())))) (declare (not safe)) - (cons __tmp48589 '())))) + (cons __tmp50607 '())))) (declare (not safe)) - (cons __tmp48590 __tmp48588)))) + (cons __tmp50608 __tmp50606)))) (declare (not safe)) - (cons __tmp48607 __tmp48587)))) + (cons __tmp50624 __tmp50605)))) (declare (not safe)) - (cons __tmp48615 __tmp48586))) + (cons __tmp50632 __tmp50604))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48583 - (let ((__tmp48584 + (__tmp50601 + (let ((__tmp50602 (let () (declare (not safe)) @@ -8108,24 +8015,24 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp48584 '())))) + (cons __tmp50602 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48585 __tmp48583)))) + (cons __tmp50603 __tmp50601)))) (declare (not safe)) - (cons __tmp48616 __tmp48582)))) + (cons __tmp50633 __tmp50600)))) (declare (not safe)) - (cons __tmp48617 __tmp48581)))) + (cons __tmp50634 __tmp50599)))) (declare (not safe)) - (cons __tmp48580 '())))) + (cons __tmp50598 '())))) (declare (not safe)) - (cons __tmp48618 __tmp48579)))) + (cons __tmp50635 __tmp50597)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48635 - __tmp48578))) - (__tmp48575 - (let ((__tmp48576 + (cons __tmp50652 + __tmp50596))) + (__tmp50593 + (let ((__tmp50594 (let () (declare (not safe)) @@ -8134,21 +8041,21 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48576 '())))) + (cons __tmp50594 '())))) (declare (not safe)) - (cons __tmp48577 __tmp48575)))) + (cons __tmp50595 __tmp50593)))) (declare (not safe)) - (cons __tmp48636 __tmp48574)))) + (cons __tmp50653 __tmp50592)))) (declare (not safe)) - (cons __tmp48639 __tmp48573)))) + (cons __tmp50656 __tmp50591)))) (declare (not safe)) - (cons __tmp48572 '())))) + (cons __tmp50590 '())))) (declare (not safe)) - (cons __tmp48640 __tmp48571)))) + (cons __tmp50657 __tmp50589)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48653 - __tmp48570)))) + (cons __tmp50670 + __tmp50588)))) _hd92039311_ _hd92009301_ _hd91979291_ @@ -8180,7 +8087,7 @@ (vector-length _tab9161_))))))) (_generate-generic-dispatch8762_ (lambda (_e8888_ _datums8890_ _dispatch8891_ _default8892_) - (let ((_g48654_ + (let ((_g50671_ (if (_eq-datums?8745_ _datums8890_) (values eq?-hash 'eq?-hash 'eq?) (values equal?-hash 'equal?-hash 'equal?)))) @@ -8189,15 +8096,15 @@ (let ((_hash-e8894_ (let () (declare (not safe)) - (##vector-ref _g48654_ 0))) + (##vector-ref _g50671_ 0))) (_hashf8896_ (let () (declare (not safe)) - (##vector-ref _g48654_ 1))) + (##vector-ref _g50671_ 1))) (_eqf8897_ (let () (declare (not safe)) - (##vector-ref _g48654_ 2)))) + (##vector-ref _g50671_ 2)))) (let* ((_indexes8899_ (_datum-dispatch-index8747_ _datums8890_)) (_tab8902_ @@ -8257,30 +8164,30 @@ (declare (not safe)) (##cdr _e89298996_)))) (if (gx#stx-pair/null? _hd89289000_) - (let ((_g48655_ + (let ((_g50672_ (gx#syntax-split-splice _hd89289000_ '0))) (begin - (let ((_g48656_ + (let ((_g50673_ (let () (declare (not safe)) - (if (##values? _g48655_) - (##vector-length _g48655_) + (if (##values? _g50672_) + (##vector-length _g50672_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48656_ 2))) + (##fx= _g50673_ 2))) (error "Context expects 2 values" - _g48656_))) + _g50673_))) (let ((_target89309006_ (let () (declare (not safe)) - (##vector-ref _g48655_ 0))) + (##vector-ref _g50672_ 0))) (_tl89329009_ (let () (declare (not safe)) - (##vector-ref _g48655_ 1)))) + (##vector-ref _g50672_ 1)))) (if (gx#stx-null? _tl89329009_) (letrec ((_loop89339012_ (lambda (_hd89319016_ @@ -8368,267 +8275,266 @@ _L9094_ _L9095_) (let () - (let ((__tmp48737 (gx#datum->syntax '#f 'let)) - (__tmp48657 - (let ((__tmp48724 - (let ((__tmp48731 - (let ((__tmp48732 - (let ((__tmp48733 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48736 (gx#datum->syntax '#f 'lambda)) - (__tmp48734 - (let ((__tmp48735 + (let ((__tmp50753 (gx#datum->syntax '#f 'let)) + (__tmp50674 + (let ((__tmp50740 + (let ((__tmp50747 + (let ((__tmp50748 + (let ((__tmp50749 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50752 (gx#datum->syntax '#f 'lambda)) + (__tmp50750 + (let ((__tmp50751 (let () (declare (not safe)) (cons _L9091_ '())))) (declare (not safe)) - (cons '() __tmp48735)))) + (cons '() __tmp50751)))) (declare (not safe)) - (cons __tmp48736 __tmp48734)))) + (cons __tmp50752 __tmp50750)))) (declare (not safe)) - (cons __tmp48733 '())))) + (cons __tmp50749 '())))) (declare (not safe)) - (cons _L9094_ __tmp48732))) + (cons _L9094_ __tmp50748))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48725 - (let ((__tmp48726 - (let ((__tmp48727 + (__tmp50741 + (let ((__tmp50742 + (let ((__tmp50743 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48728 - (let ((__tmp48730 + (let ((__tmp50744 + (let ((__tmp50746 (gx#datum->syntax '#f 'quote)) - (__tmp48729 + (__tmp50745 (let () (declare (not safe)) (cons _L9090_ '())))) (declare (not safe)) - (cons __tmp48730 __tmp48729)))) + (cons __tmp50746 __tmp50745)))) (declare (not safe)) - (cons __tmp48728 '())))) + (cons __tmp50744 '())))) (declare (not safe)) - (cons _L9093_ __tmp48727)))) + (cons _L9093_ __tmp50743)))) (declare (not safe)) - (cons __tmp48726 '())))) + (cons __tmp50742 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48731 __tmp48725))) - (__tmp48658 - (let ((__tmp48659 - (let ((__tmp48723 + (cons __tmp50747 __tmp50741))) + (__tmp50675 + (let ((__tmp50676 + (let ((__tmp50739 (gx#datum->syntax '#f 'let*)) - (__tmp48660 - (let ((__tmp48699 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48718 - (let ((__tmp48722 (gx#datum->syntax '#f 'h)) - (__tmp48719 - (let ((__tmp48720 - (let ((__tmp48721 + (__tmp50677 + (let ((__tmp50715 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50734 + (let ((__tmp50738 (gx#datum->syntax '#f 'h)) + (__tmp50735 + (let ((__tmp50736 + (let ((__tmp50737 (let () (declare (not safe)) (cons _L9095_ '())))) (declare (not safe)) - (cons _L9088_ __tmp48721)))) + (cons _L9088_ __tmp50737)))) (declare (not safe)) - (cons __tmp48720 '())))) + (cons __tmp50736 '())))) (declare (not safe)) - (cons __tmp48722 __tmp48719))) - (__tmp48700 - (let ((__tmp48710 - (let ((__tmp48717 + (cons __tmp50738 __tmp50735))) + (__tmp50716 + (let ((__tmp50726 + (let ((__tmp50733 (gx#datum->syntax '#f 'ix)) - (__tmp48711 - (let ((__tmp48712 - (let ((__tmp48716 + (__tmp50727 + (let ((__tmp50728 + (let ((__tmp50732 (gx#datum->syntax '#f '##fxmodulo)) - (__tmp48713 - (let ((__tmp48715 + (__tmp50729 + (let ((__tmp50731 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'h)) - (__tmp48714 + (__tmp50730 (let () (declare (not safe)) (cons _L9089_ '())))) (declare (not safe)) - (cons __tmp48715 __tmp48714)))) + (cons __tmp50731 __tmp50730)))) (declare (not safe)) - (cons __tmp48716 __tmp48713)))) + (cons __tmp50732 __tmp50729)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48712 '())))) + (cons __tmp50728 '())))) (declare (not safe)) - (cons __tmp48717 __tmp48711))) - (__tmp48701 - (let ((__tmp48702 - (let ((__tmp48709 + (cons __tmp50733 __tmp50727))) + (__tmp50717 + (let ((__tmp50718 + (let ((__tmp50725 (gx#datum->syntax '#f 'q)) - (__tmp48703 - (let ((__tmp48704 - (let ((__tmp48708 + (__tmp50719 + (let ((__tmp50720 + (let ((__tmp50724 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##vector-ref)) - (__tmp48705 - (let ((__tmp48706 - (let ((__tmp48707 + (__tmp50721 + (let ((__tmp50722 + (let ((__tmp50723 (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp48707 '())))) + (cons __tmp50723 '())))) (declare (not safe)) - (cons _L9093_ __tmp48706)))) + (cons _L9093_ __tmp50722)))) (declare (not safe)) - (cons __tmp48708 __tmp48705)))) + (cons __tmp50724 __tmp50721)))) (declare (not safe)) - (cons __tmp48704 '())))) + (cons __tmp50720 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48709 - __tmp48703)))) + (cons __tmp50725 + __tmp50719)))) (declare (not safe)) - (cons __tmp48702 '())))) + (cons __tmp50718 '())))) (declare (not safe)) - (cons __tmp48710 __tmp48701)))) + (cons __tmp50726 __tmp50717)))) (declare (not safe)) - (cons __tmp48718 __tmp48700))) - (__tmp48661 - (let ((__tmp48662 - (let ((__tmp48698 (gx#datum->syntax '#f 'if)) - (__tmp48663 - (let ((__tmp48697 + (cons __tmp50734 __tmp50716))) + (__tmp50678 + (let ((__tmp50679 + (let ((__tmp50714 (gx#datum->syntax '#f 'if)) + (__tmp50680 + (let ((__tmp50713 (gx#datum->syntax '#f 'q)) - (__tmp48664 - (let ((__tmp48667 - (let ((__tmp48696 + (__tmp50681 + (let ((__tmp50684 + (let ((__tmp50712 (gx#datum->syntax '#f 'if)) - (__tmp48668 - (let ((__tmp48689 + (__tmp50685 + (let ((__tmp50705 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48690 - (let ((__tmp48692 - (let ((__tmp48695 + (let ((__tmp50706 + (let ((__tmp50708 + (let ((__tmp50711 (gx#datum->syntax '#f '##car)) - (__tmp48693 - (let ((__tmp48694 + (__tmp50709 + (let ((__tmp50710 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48694 '())))) + (cons __tmp50710 '())))) (declare (not safe)) - (cons __tmp48695 __tmp48693))) - (__tmp48691 + (cons __tmp50711 __tmp50709))) + (__tmp50707 (let () (declare (not safe)) (cons _L9095_ '())))) (declare (not safe)) - (cons __tmp48692 __tmp48691)))) + (cons __tmp50708 __tmp50707)))) (declare (not safe)) - (cons _L9086_ __tmp48690))) - (__tmp48669 - (let ((__tmp48672 - (let ((__tmp48688 + (cons _L9086_ __tmp50706))) + (__tmp50686 + (let ((__tmp50689 + (let ((__tmp50704 (gx#datum->syntax '#f 'let)) - (__tmp48673 - (let ((__tmp48681 - (let ((__tmp48687 + (__tmp50690 + (let ((__tmp50697 + (let ((__tmp50703 (gx#datum->syntax '#f 'x)) - (__tmp48682 - (let ((__tmp48683 - (let ((__tmp48686 + (__tmp50698 + (let ((__tmp50699 + (let ((__tmp50702 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##cdr)) - (__tmp48684 - (let ((__tmp48685 (gx#datum->syntax '#f 'q))) + (__tmp50700 + (let ((__tmp50701 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48685 '())))) + (cons __tmp50701 '())))) (declare (not safe)) - (cons __tmp48686 __tmp48684)))) + (cons __tmp50702 __tmp50700)))) (declare (not safe)) - (cons __tmp48683 '())))) + (cons __tmp50699 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48687 - __tmp48682))) - (__tmp48674 - (let ((__tmp48675 - (let ((__tmp48680 + (cons __tmp50703 + __tmp50698))) + (__tmp50691 + (let ((__tmp50692 + (let ((__tmp50696 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48676 - (let ((__tmp48679 + (__tmp50693 + (let ((__tmp50695 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'x)) - (__tmp48677 - (let ((__tmp48678 - (lambda (_g91399142_ _g91409145_) + (__tmp50694 + (foldr (lambda (_g91399142_ _g91409145_) (let () (declare (not safe)) - (cons _g91399142_ _g91409145_))))) - (declare (not safe)) - (foldr1 __tmp48678 '() _L9092_)))) + (cons _g91399142_ _g91409145_))) + '() + _L9092_))) (declare (not safe)) - (cons __tmp48679 __tmp48677)))) + (cons __tmp50695 __tmp50694)))) (declare (not safe)) - (cons __tmp48680 __tmp48676)))) + (cons __tmp50696 __tmp50693)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48675 '())))) + (cons __tmp50692 '())))) (declare (not safe)) - (cons __tmp48681 __tmp48674)))) + (cons __tmp50697 __tmp50691)))) (declare (not safe)) - (cons __tmp48688 __tmp48673))) - (__tmp48670 - (let ((__tmp48671 + (cons __tmp50704 __tmp50690))) + (__tmp50687 + (let ((__tmp50688 (let () (declare (not safe)) (cons _L9094_ '())))) (declare (not safe)) - (cons __tmp48671 '())))) + (cons __tmp50688 '())))) (declare (not safe)) - (cons __tmp48672 __tmp48670)))) + (cons __tmp50689 __tmp50687)))) (declare (not safe)) - (cons __tmp48689 __tmp48669)))) + (cons __tmp50705 __tmp50686)))) (declare (not safe)) - (cons __tmp48696 __tmp48668))) + (cons __tmp50712 __tmp50685))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48665 - (let ((__tmp48666 + (__tmp50682 + (let ((__tmp50683 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L9094_ '())))) (declare (not safe)) - (cons __tmp48666 '())))) + (cons __tmp50683 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48667 - __tmp48665)))) + (cons __tmp50684 + __tmp50682)))) (declare (not safe)) - (cons __tmp48697 __tmp48664)))) + (cons __tmp50713 __tmp50681)))) (declare (not safe)) - (cons __tmp48698 __tmp48663)))) + (cons __tmp50714 __tmp50680)))) (declare (not safe)) - (cons __tmp48662 '())))) + (cons __tmp50679 '())))) (declare (not safe)) - (cons __tmp48699 __tmp48661)))) + (cons __tmp50715 __tmp50678)))) (declare (not safe)) - (cons __tmp48723 __tmp48660)))) + (cons __tmp50739 __tmp50677)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48659 '())))) + (cons __tmp50676 '())))) (declare (not safe)) - (cons __tmp48724 __tmp48658)))) + (cons __tmp50740 __tmp50675)))) (declare (not safe)) - (cons __tmp48737 __tmp48657)))) + (cons __tmp50753 __tmp50674)))) _hd89529080_ _hd89499070_ _hd89469060_ @@ -8695,34 +8601,34 @@ (declare (not safe)) (##cdr _e87738805_)))) (if (gx#stx-pair/null? _tl87718812_) - (let ((_g48738_ + (let ((_g50754_ (gx#syntax-split-splice _tl87718812_ '0))) (begin - (let ((_g48739_ + (let ((_g50755_ (let () (declare (not safe)) - (if (##values? _g48738_) + (if (##values? _g50754_) (##vector-length - _g48738_) + _g50754_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48739_ 2))) + (##fx= _g50755_ 2))) (error "Context expects 2 values" - _g48739_))) + _g50755_))) (let ((_target87748815_ (let () (declare (not safe)) (##vector-ref - _g48738_ + _g50754_ 0))) (_tl87768818_ (let () (declare (not safe)) (##vector-ref - _g48738_ + _g50754_ 1)))) (if (gx#stx-null? _tl87768818_) (letrec ((_loop87778821_ @@ -8746,41 +8652,40 @@ (cons _lp-hd87798835_ _clause87818828_))))) (let ((_clause87828841_ (reverse _clause87818828_))) ((lambda (_L8845_ _L8847_) - (let ((_g48740_ + (let ((_g50756_ (_parse-clauses8738_ _L8847_ - (let ((__tmp48742 - (lambda (_g88658868_ _g88668871_) + (foldr (lambda (_g88658868_ _g88668871_) (let () (declare (not safe)) (cons _g88658868_ - _g88668871_))))) - (declare (not safe)) - (foldr1 __tmp48742 '() _L8845_))))) + _g88668871_))) + '() + _L8845_)))) (begin - (let ((_g48741_ + (let ((_g50757_ (let () (declare (not safe)) - (if (##values? _g48740_) - (##vector-length _g48740_) + (if (##values? _g50756_) + (##vector-length _g50756_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48741_ 3))) + (##fx= _g50757_ 3))) (error "Context expects 3 values" - _g48741_))) + _g50757_))) (let ((_datums8874_ (let () (declare (not safe)) - (##vector-ref _g48740_ 0))) + (##vector-ref _g50756_ 0))) (_dispatch8876_ (let () (declare (not safe)) - (##vector-ref _g48740_ 1))) + (##vector-ref _g50756_ 1))) (_default8877_ (let () (declare (not safe)) - (##vector-ref _g48740_ 2)))) + (##vector-ref _g50756_ 2)))) (let ((_datum-count8879_ (_count-datums8741_ _datums8874_))) (if (< _datum-count8879_ '6) @@ -8890,67 +8795,67 @@ (not safe)) (immediate? _datum-e11862_))) - (let ((__tmp48760 + (let ((__tmp50775 (gx#datum->syntax '#f 'eq?)) - (__tmp48755 - (let ((__tmp48757 + (__tmp50770 + (let ((__tmp50772 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48759 (gx#datum->syntax '#f 'quote)) - (__tmp48758 + (let ((__tmp50774 (gx#datum->syntax '#f 'quote)) + (__tmp50773 (let () (declare (not safe)) (cons _L11846_ '())))) (declare (not safe)) - (cons __tmp48759 __tmp48758))) - (__tmp48756 + (cons __tmp50774 __tmp50773))) + (__tmp50771 (let () (declare (not safe)) (cons _L11844_ '())))) (declare (not safe)) - (cons __tmp48757 __tmp48756)))) + (cons __tmp50772 __tmp50771)))) (declare (not safe)) - (cons __tmp48760 __tmp48755)) + (cons __tmp50775 __tmp50770)) (if (let () (declare (not safe)) (number? _datum-e11862_)) - (let ((__tmp48754 (gx#datum->syntax '#f 'eqv?)) - (__tmp48749 - (let ((__tmp48751 - (let ((__tmp48753 + (let ((__tmp50769 (gx#datum->syntax '#f 'eqv?)) + (__tmp50764 + (let ((__tmp50766 + (let ((__tmp50768 (gx#datum->syntax '#f 'quote)) - (__tmp48752 + (__tmp50767 (let () (declare (not safe)) (cons _L11846_ '())))) (declare (not safe)) - (cons __tmp48753 __tmp48752))) - (__tmp48750 + (cons __tmp50768 __tmp50767))) + (__tmp50765 (let () (declare (not safe)) (cons _L11844_ '())))) (declare (not safe)) - (cons __tmp48751 __tmp48750)))) + (cons __tmp50766 __tmp50765)))) (declare (not safe)) - (cons __tmp48754 __tmp48749)) - (let ((__tmp48748 (gx#datum->syntax '#f 'equal?)) - (__tmp48743 - (let ((__tmp48745 - (let ((__tmp48747 + (cons __tmp50769 __tmp50764)) + (let ((__tmp50763 (gx#datum->syntax '#f 'equal?)) + (__tmp50758 + (let ((__tmp50760 + (let ((__tmp50762 (gx#datum->syntax '#f 'quote)) - (__tmp48746 + (__tmp50761 (let () (declare (not safe)) (cons _L11846_ '())))) (declare (not safe)) - (cons __tmp48747 __tmp48746))) - (__tmp48744 + (cons __tmp50762 __tmp50761))) + (__tmp50759 (let () (declare (not safe)) (cons _L11844_ '())))) (declare (not safe)) - (cons __tmp48745 __tmp48744)))) + (cons __tmp50760 __tmp50759)))) (declare (not safe)) - (cons __tmp48748 __tmp48743)))))) + (cons __tmp50763 __tmp50758)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd1180011838_ _hd1179711828_) @@ -8991,31 +8896,31 @@ (declare (not safe)) (##cdr _e1189011922_)))) (if (gx#stx-pair/null? _tl1188811929_) - (let ((_g48761_ + (let ((_g50776_ (gx#syntax-split-splice _tl1188811929_ '0))) (begin - (let ((_g48762_ + (let ((_g50777_ (let () (declare (not safe)) - (if (##values? _g48761_) + (if (##values? _g50776_) (##vector-length - _g48761_) + _g50776_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48762_ 2))) + (##fx= _g50777_ 2))) (error "Context expects 2 values" - _g48762_))) + _g50777_))) (let ((_target1189111932_ (let () (declare (not safe)) - (##vector-ref _g48761_ 0))) + (##vector-ref _g50776_ 0))) (_tl1189311935_ (let () (declare (not safe)) - (##vector-ref _g48761_ 1)))) + (##vector-ref _g50776_ 1)))) (if (gx#stx-null? _tl1189311935_) (letrec ((_loop1189411938_ (lambda (_hd1189211942_ @@ -9038,29 +8943,26 @@ (cons _lp-hd1189611952_ _K1189811945_))))) (let ((_K1189911958_ (reverse _K1189811945_))) ((lambda (_L11962_ _L11964_) - (let ((__tmp48767 + (let ((__tmp50781 (gx#datum->syntax '#f '~case-dispatch*)) - (__tmp48763 - (let ((__tmp48764 - (let ((__tmp48765 - (let ((__tmp48766 - (lambda (_g1198111984_ + (__tmp50778 + (let ((__tmp50779 + (let ((__tmp50780 + (foldr (lambda (_g1198111984_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1198211987_) (let () (declare (not safe)) - (cons _g1198111984_ _g1198211987_))))) + (cons _g1198111984_ _g1198211987_))) + '() + _L11962_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (foldr1 __tmp48766 - '() - _L11962_)))) (declare (not safe)) - (cons _L11964_ __tmp48765)))) + (cons _L11964_ __tmp50780)))) (declare (not safe)) - (cons '0 __tmp48764)))) + (cons '0 __tmp50779)))) (declare (not safe)) - (cons __tmp48767 __tmp48763))) + (cons __tmp50781 __tmp50778))) _K1189911958_ _hd1188911926_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -9075,23 +8977,23 @@ (_g1188011990_ _$stx11877_)))) (define |gerbil/core$$[:0:]#~case-dispatch*| (lambda (_stx11995_) - (let* ((___stx4334143342_ _stx11995_) + (let* ((___stx4544545446_ _stx11995_) (_g1200212098_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4334143342_)))) - (let ((___kont4334443345_ + ___stx4544545446_)))) + (let ((___kont4544845449_ (lambda (_L12575_ _L12577_) - (let ((__tmp48769 (gx#datum->syntax '#f 'quote)) - (__tmp48768 + (let ((__tmp50783 (gx#datum->syntax '#f 'quote)) + (__tmp50782 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons __tmp48769 __tmp48768)))) - (___kont4334643347_ + (cons __tmp50783 __tmp50782)))) + (___kont4545045451_ (lambda (_L12517_ _L12519_ _L12520_) _L12517_)) - (___kont4334843349_ + (___kont4545245453_ (lambda (_L12414_ _L12416_ _L12417_ _L12418_) (let* ((_g1243912447_ (lambda (_g1244012443_) @@ -9103,40 +9005,40 @@ (lambda (_g1244012451_) ((lambda (_L12454_) (let () - (let ((__tmp48777 (gx#datum->syntax '#f 'if)) - (__tmp48770 - (let ((__tmp48773 - (let ((__tmp48776 + (let ((__tmp50791 (gx#datum->syntax '#f 'if)) + (__tmp50784 + (let ((__tmp50787 + (let ((__tmp50790 (gx#datum->syntax '#f '##fx=)) - (__tmp48774 - (let ((__tmp48775 + (__tmp50788 + (let ((__tmp50789 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L12454_ '())))) (declare (not safe)) - (cons _L12417_ __tmp48775)))) + (cons _L12417_ __tmp50789)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48776 - __tmp48774))) - (__tmp48771 - (let ((__tmp48772 + (cons __tmp50790 + __tmp50788))) + (__tmp50785 + (let ((__tmp50786 (let () (declare (not safe)) (cons _L12414_ '())))) (declare (not safe)) - (cons _L12416_ __tmp48772)))) + (cons _L12416_ __tmp50786)))) (declare (not safe)) - (cons __tmp48773 __tmp48771)))) + (cons __tmp50787 __tmp50785)))) (declare (not safe)) - (cons __tmp48777 __tmp48770)))) + (cons __tmp50791 __tmp50784)))) _g1244012451_)))) (_g1243812466_ (gx#stx-e _L12418_))))) - (___kont4335043351_ + (___kont4545445455_ (lambda (_L12264_ _L12266_ _L12267_ _L12268_ _L12269_) (let* ((_g1229312308_ (lambda (_g1229412304_) @@ -9171,63 +9073,63 @@ (if (gx#stx-null? _tl1230012332_) ((lambda (_L12335_ _L12337_) (let () - (let ((__tmp48794 + (let ((__tmp50808 (gx#datum->syntax '#f 'if)) - (__tmp48778 - (let ((__tmp48790 + (__tmp50792 + (let ((__tmp50804 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48793 (gx#datum->syntax '#f '##fx=)) - (__tmp48791 - (let ((__tmp48792 + (let ((__tmp50807 (gx#datum->syntax '#f '##fx=)) + (__tmp50805 + (let ((__tmp50806 (let () (declare (not safe)) (cons _L12337_ '())))) (declare (not safe)) - (cons _L12268_ __tmp48792)))) + (cons _L12268_ __tmp50806)))) (declare (not safe)) - (cons __tmp48793 __tmp48791))) - (__tmp48779 - (let ((__tmp48780 - (let ((__tmp48781 - (let ((__tmp48789 + (cons __tmp50807 __tmp50805))) + (__tmp50793 + (let ((__tmp50794 + (let ((__tmp50795 + (let ((__tmp50803 (gx#datum->syntax '#f 'if)) - (__tmp48782 - (let ((__tmp48785 - (let ((__tmp48788 + (__tmp50796 + (let ((__tmp50799 + (let ((__tmp50802 (gx#datum->syntax '#f '##fx=)) - (__tmp48786 - (let ((__tmp48787 + (__tmp50800 + (let ((__tmp50801 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L12335_ '())))) (declare (not safe)) - (cons _L12268_ __tmp48787)))) + (cons _L12268_ __tmp50801)))) (declare (not safe)) - (cons __tmp48788 __tmp48786))) - (__tmp48783 - (let ((__tmp48784 + (cons __tmp50802 __tmp50800))) + (__tmp50797 + (let ((__tmp50798 (let () (declare (not safe)) (cons _L12264_ '())))) (declare (not safe)) - (cons _L12266_ __tmp48784)))) + (cons _L12266_ __tmp50798)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48785 - __tmp48783)))) + (cons __tmp50799 + __tmp50797)))) (declare (not safe)) - (cons __tmp48789 __tmp48782)))) + (cons __tmp50803 __tmp50796)))) (declare (not safe)) - (cons __tmp48781 '())))) + (cons __tmp50795 '())))) (declare (not safe)) - (cons _L12267_ __tmp48780)))) + (cons _L12267_ __tmp50794)))) (declare (not safe)) - (cons __tmp48790 __tmp48779)))) + (cons __tmp50804 __tmp50793)))) (declare (not safe)) - (cons __tmp48794 __tmp48778)))) + (cons __tmp50808 __tmp50792)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd1230112329_ _hd1229812319_) @@ -9237,32 +9139,31 @@ (_g1229312308_ _g1229412312_))))) (_g1229212353_ (list (gx#stx-e _L12269_) - (let ((__tmp48795 (gx#stx-e _L12269_))) + (let ((__tmp50809 (gx#stx-e _L12269_))) (declare (not safe)) - (fx+ __tmp48795 '1))))))) - (___kont4335243353_ + (fx+ __tmp50809 '1))))))) + (___kont4545645457_ (lambda (_L12165_ _L12167_ _L12168_) - (let ((__tmp48800 + (let ((__tmp50813 (gx#datum->syntax '#f '~case-dispatch-bsearch)) - (__tmp48796 - (let ((__tmp48797 - (let ((__tmp48798 - (let ((__tmp48799 - (lambda (_g1218812191_ + (__tmp50810 + (let ((__tmp50811 + (let ((__tmp50812 + (foldr (lambda (_g1218812191_ _g1218912194_) (let () (declare (not safe)) (cons _g1218812191_ - _g1218912194_))))) - (declare (not safe)) - (foldr1 __tmp48799 '() _L12165_)))) + _g1218912194_))) + '() + _L12165_))) (declare (not safe)) - (cons _L12167_ __tmp48798)))) + (cons _L12167_ __tmp50812)))) (declare (not safe)) - (cons _L12168_ __tmp48797)))) + (cons _L12168_ __tmp50811)))) (declare (not safe)) - (cons __tmp48800 __tmp48796))))) - (let ((___match4349843499_ + (cons __tmp50813 __tmp50810))))) + (let ((___match4560245603_ (lambda (_e1207712105_ _hd1207612109_ _tl1207512112_ @@ -9272,7 +9173,7 @@ _e1208312125_ _hd1208212129_ _tl1208112132_ - ___splice4335443355_ + ___splice4545845459_ _target1208412135_ _tl1208612138_) (letrec ((_loop1208712141_ @@ -9296,13 +9197,13 @@ _K1209112148_))))) (let ((_K1209212161_ (reverse _K1209112148_))) - (___kont4335243353_ + (___kont4545645457_ _K1209212161_ _hd1208212129_ _hd1207912119_)))))) (_loop1208712141_ _target1208412135_ '()))))) - (if (gx#stx-pair? ___stx4334143342_) - (let ((_e1200812545_ (gx#syntax-e ___stx4334143342_))) + (if (gx#stx-pair? ___stx4544545446_) + (let ((_e1200812545_ (gx#syntax-e ___stx4544545446_))) (let ((_tl1200612552_ (let () (declare (not safe)) (##cdr _e1200812545_))) (_hd1200712549_ @@ -9331,7 +9232,7 @@ (declare (not safe)) (##car _e1201412565_)))) (if (gx#stx-null? _tl1201212572_) - (___kont4334443345_ + (___kont4544845449_ _hd1201312569_ _hd1201012559_) (if (gx#stx-pair? _tl1201212572_) @@ -9348,7 +9249,7 @@ (##car _e1202912507_)))) (if (gx#stx-null? _tl1202712514_) - (___kont4334643347_ + (___kont4545045451_ _hd1202812511_ _hd1201312569_ _hd1201012559_) @@ -9364,7 +9265,7 @@ (declare (not safe)) (##car _e1204812404_)))) (if (gx#stx-null? _tl1204612411_) - (___kont4334843349_ + (___kont4545245453_ _hd1204712408_ _hd1202812511_ _hd1201312569_ @@ -9381,14 +9282,14 @@ (declare (not safe)) (##car _e1207112254_)))) (if (gx#stx-null? _tl1206912261_) - (___kont4335043351_ + (___kont4545445455_ _hd1207012258_ _hd1204712408_ _hd1202812511_ _hd1201312569_ _hd1201012559_) (if (gx#stx-pair/null? _tl1201212572_) - (let ((___splice4335443355_ + (let ((___splice4545845459_ (gx#syntax-split-splice _tl1201212572_ '0))) @@ -9396,16 +9297,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4335443355_ + ___splice4545845459_ '1))) (_target1208412135_ (let () (declare (not safe)) (##vector-ref - ___splice4335443355_ + ___splice4545845459_ '0)))) (if (gx#stx-null? _tl1208612138_) - (___match4349843499_ + (___match4560245603_ _e1200812545_ _hd1200712549_ _tl1200612552_ @@ -9415,7 +9316,7 @@ _e1201412565_ _hd1201312569_ _tl1201212572_ - ___splice4335443355_ + ___splice4545845459_ _target1208412135_ _tl1208612138_) (let () @@ -9425,7 +9326,7 @@ (declare (not safe)) (_g1200212098_)))))) (if (gx#stx-pair/null? _tl1201212572_) - (let ((___splice4335443355_ + (let ((___splice4545845459_ (gx#syntax-split-splice _tl1201212572_ '0))) @@ -9433,16 +9334,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4335443355_ + ___splice4545845459_ '1))) (_target1208412135_ (let () (declare (not safe)) (##vector-ref - ___splice4335443355_ + ___splice4545845459_ '0)))) (if (gx#stx-null? _tl1208612138_) - (___match4349843499_ + (___match4560245603_ _e1200812545_ _hd1200712549_ _tl1200612552_ @@ -9452,7 +9353,7 @@ _e1201412565_ _hd1201312569_ _tl1201212572_ - ___splice4335443355_ + ___splice4545845459_ _target1208412135_ _tl1208612138_) (let () @@ -9462,18 +9363,18 @@ (declare (not safe)) (_g1200212098_))))))) (if (gx#stx-pair/null? _tl1201212572_) - (let ((___splice4335443355_ + (let ((___splice4545845459_ (gx#syntax-split-splice _tl1201212572_ '0))) (let ((_tl1208612138_ (let () (declare (not safe)) - (##vector-ref ___splice4335443355_ '1))) + (##vector-ref ___splice4545845459_ '1))) (_target1208412135_ (let () (declare (not safe)) - (##vector-ref ___splice4335443355_ '0)))) + (##vector-ref ___splice4545845459_ '0)))) (if (gx#stx-null? _tl1208612138_) - (___match4349843499_ + (___match4560245603_ _e1200812545_ _hd1200712549_ _tl1200612552_ @@ -9483,7 +9384,7 @@ _e1201412565_ _hd1201312569_ _tl1201212572_ - ___splice4335443355_ + ___splice4545845459_ _target1208412135_ _tl1208612138_) (let () (declare (not safe)) (_g1200212098_))))) @@ -9491,7 +9392,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _tl1201212572_) - (let ((___splice4335443355_ + (let ((___splice4545845459_ (gx#syntax-split-splice _tl1201212572_ '0))) @@ -9500,18 +9401,18 @@ (declare (not safe)) (##vector-ref - ___splice4335443355_ + ___splice4545845459_ '1))) (_target1208412135_ (let () (declare (not safe)) (##vector-ref - ___splice4335443355_ + ___splice4545845459_ '0)))) (if (gx#stx-null? _tl1208612138_) - (___match4349843499_ + (___match4560245603_ _e1200812545_ _hd1200712549_ _tl1200612552_ @@ -9521,7 +9422,7 @@ _e1201412565_ _hd1201312569_ _tl1201212572_ - ___splice4335443355_ + ___splice4545845459_ _target1208412135_ _tl1208612138_) (let () @@ -9547,9 +9448,9 @@ (_lp12965_ (let () (declare (not safe)) (fx+ _i12968_ '1)) (cdr _rest12970_) - (let ((__tmp48801 (car _rest12970_))) + (let ((__tmp50814 (car _rest12970_))) (declare (not safe)) - (cons __tmp48801 _left12971_))) + (cons __tmp50814 _left12971_))) (values (reverse _left12971_) _rest12970_)))))) (let* ((_g1260312631_ (lambda (_g1260412627_) @@ -9593,36 +9494,36 @@ (##cdr _e1261612658_)))) (if (gx#stx-pair/null? _tl1261412665_) - (let ((_g48802_ + (let ((_g50815_ (gx#syntax-split-splice _tl1261412665_ '0))) (begin - (let ((_g48803_ + (let ((_g50816_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g48802_) - (##vector-length _g48802_) + _g50815_) + (##vector-length _g50815_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g48803_ 2))) - (error "Context expects 2 values" _g48803_))) + (if (not (let () (declare (not safe)) (##fx= _g50816_ 2))) + (error "Context expects 2 values" _g50816_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1261712668_ (let () (declare (not safe)) (##vector-ref - _g48802_ + _g50815_ 0))) (_tl1261912671_ (let () (declare (not safe)) (##vector-ref - _g48802_ + _g50815_ 1)))) (if (gx#stx-null? _tl1261912671_) @@ -9650,56 +9551,52 @@ (reverse _K1262412681_))) ((lambda (_L12698_ _L12700_ _L12701_) (let* ((_len12731_ - (length (let ((__tmp48804 - (lambda (_g1272212725_ + (length (foldr (lambda (_g1272212725_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1272312728_) (let () (declare (not safe)) - (cons _g1272212725_ _g1272312728_))))) - (declare (not safe)) - (foldr1 __tmp48804 '() _L12698_)))) + (cons _g1272212725_ _g1272312728_))) + '() + _L12698_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_mid12734_ (quotient _len12731_ '2)) - (_g48805_ + (_g50817_ (_split12600_ - (let ((__tmp48807 - (lambda (_g1273612739_ + (foldr (lambda (_g1273612739_ _g1273712742_) (let () (declare (not safe)) (cons _g1273612739_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1273712742_))))) + _g1273712742_))) + '() + _L12698_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (foldr1 __tmp48807 - '() - _L12698_)) _mid12734_))) (begin - (let ((_g48806_ + (let ((_g50818_ (let () (declare (not safe)) - (if (##values? _g48805_) + (if (##values? _g50817_) (##vector-length - _g48805_) + _g50817_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48806_ 2))) + (##fx= _g50818_ 2))) (error "Context expects 2 values" - _g48806_))) + _g50818_))) (let ((_left12745_ (let () (declare (not safe)) - (##vector-ref _g48805_ 0))) + (##vector-ref _g50817_ 0))) (_right12747_ (let () (declare (not safe)) (##vector-ref - _g48805_ + _g50817_ 1)))) (let () (let* ((_g1275112792_ @@ -9735,31 +9632,31 @@ (declare (not safe)) (##cdr _e1276212809_)))) (if (gx#stx-pair/null? _hd1276112813_) - (let ((_g48808_ + (let ((_g50819_ (gx#syntax-split-splice _hd1276112813_ '0))) (begin - (let ((_g48809_ + (let ((_g50820_ (let () (declare (not safe)) - (if (##values? _g48808_) + (if (##values? _g50819_) (##vector-length - _g48808_) + _g50819_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48809_ 2))) + (##fx= _g50820_ 2))) (error "Context expects 2 values" - _g48809_))) + _g50820_))) (let ((_target1276312819_ (let () (declare (not safe)) - (##vector-ref _g48808_ 0))) + (##vector-ref _g50819_ 0))) (_tl1276512822_ (let () (declare (not safe)) - (##vector-ref _g48808_ 1)))) + (##vector-ref _g50819_ 1)))) (if (gx#stx-null? _tl1276512822_) (letrec ((_loop1276612825_ (lambda (_hd1276412829_ @@ -9793,31 +9690,31 @@ (declare (not safe)) (##cdr _e1277412849_)))) (if (gx#stx-pair/null? _hd1277312853_) - (let ((_g48810_ + (let ((_g50821_ (gx#syntax-split-splice _hd1277312853_ '0))) (begin - (let ((_g48811_ + (let ((_g50822_ (let () (declare (not safe)) - (if (##values? _g48810_) + (if (##values? _g50821_) (##vector-length - _g48810_) + _g50821_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48811_ 2))) + (##fx= _g50822_ 2))) (error "Context expects 2 values" - _g48811_))) + _g50822_))) (let ((_target1277512859_ (let () (declare (not safe)) - (##vector-ref _g48810_ 0))) + (##vector-ref _g50821_ 0))) (_tl1277712862_ (let () (declare (not safe)) - (##vector-ref _g48810_ 1)))) + (##vector-ref _g50821_ 1)))) (if (gx#stx-null? _tl1277712862_) (letrec ((_loop1277812865_ (lambda (_hd1277612869_ @@ -9857,83 +9754,77 @@ _L12902_ _L12903_) (let () - (let ((__tmp48831 + (let ((__tmp50840 (gx#datum->syntax '#f 'if)) - (__tmp48812 - (let ((__tmp48827 - (let ((__tmp48830 + (__tmp50823 + (let ((__tmp50836 + (let ((__tmp50839 (gx#datum->syntax '#f '##fx<)) - (__tmp48828 - (let ((__tmp48829 + (__tmp50837 + (let ((__tmp50838 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L12899_ '())))) (declare (not safe)) - (cons _L12700_ __tmp48829)))) + (cons _L12700_ __tmp50838)))) (declare (not safe)) - (cons __tmp48830 __tmp48828))) - (__tmp48813 - (let ((__tmp48821 - (let ((__tmp48826 + (cons __tmp50839 __tmp50837))) + (__tmp50824 + (let ((__tmp50831 + (let ((__tmp50835 (gx#datum->syntax '#f '~case-dispatch*)) - (__tmp48822 - (let ((__tmp48823 - (let ((__tmp48824 - (let ((__tmp48825 - (lambda (_g1293812941_ + (__tmp50832 + (let ((__tmp50833 + (let ((__tmp50834 + (foldr (lambda (_g1293812941_ _g1293912944_) (let () (declare (not safe)) (cons _g1293812941_ - _g1293912944_))))) - (declare (not safe)) - (foldr1 __tmp48825 - '() - _L12902_)))) + _g1293912944_))) + '() + _L12902_))) (declare (not safe)) - (cons _L12700_ __tmp48824)))) + (cons _L12700_ __tmp50834)))) (declare (not safe)) - (cons _L12701_ __tmp48823)))) + (cons _L12701_ __tmp50833)))) (declare (not safe)) - (cons __tmp48826 __tmp48822))) - (__tmp48814 - (let ((__tmp48815 - (let ((__tmp48820 + (cons __tmp50835 __tmp50832))) + (__tmp50825 + (let ((__tmp50826 + (let ((__tmp50830 (gx#datum->syntax '#f '~case-dispatch*)) - (__tmp48816 - (let ((__tmp48817 - (let ((__tmp48818 - (let ((__tmp48819 - (lambda (_g1293612947_ + (__tmp50827 + (let ((__tmp50828 + (let ((__tmp50829 + (foldr (lambda (_g1293612947_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1293712950_) (let () (declare (not safe)) - (cons _g1293612947_ _g1293712950_))))) + (cons _g1293612947_ _g1293712950_))) + '() + _L12901_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (foldr1 __tmp48819 - '() - _L12901_)))) (declare (not safe)) - (cons _L12700_ __tmp48818)))) + (cons _L12700_ __tmp50829)))) (declare (not safe)) - (cons _L12899_ __tmp48817)))) + (cons _L12899_ __tmp50828)))) (declare (not safe)) - (cons __tmp48820 __tmp48816)))) + (cons __tmp50830 __tmp50827)))) (declare (not safe)) - (cons __tmp48815 '())))) + (cons __tmp50826 '())))) (declare (not safe)) - (cons __tmp48821 __tmp48814)))) + (cons __tmp50831 __tmp50825)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48827 - __tmp48813)))) + (cons __tmp50836 + __tmp50824)))) (declare (not safe)) - (cons __tmp48831 __tmp48812)))) + (cons __tmp50840 __tmp50823)))) _hd1278512893_ _K-right1278312885_ _K-left1277112845_ @@ -10009,31 +9900,31 @@ (declare (not safe)) (##cdr _e1299413069_)))) (if (gx#stx-pair/null? _hd1299313073_) - (let ((_g48832_ + (let ((_g50841_ (gx#syntax-split-splice _hd1299313073_ '0))) (begin - (let ((_g48833_ + (let ((_g50842_ (let () (declare (not safe)) - (if (##values? _g48832_) + (if (##values? _g50841_) (##vector-length - _g48832_) + _g50841_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48833_ 2))) + (##fx= _g50842_ 2))) (error "Context expects 2 values" - _g48833_))) + _g50842_))) (let ((_target1299513079_ (let () (declare (not safe)) - (##vector-ref _g48832_ 0))) + (##vector-ref _g50841_ 0))) (_tl1299713082_ (let () (declare (not safe)) - (##vector-ref _g48832_ 1)))) + (##vector-ref _g50841_ 1)))) (if (gx#stx-null? _tl1299713082_) (letrec ((_loop1299813085_ (lambda (_hd1299613089_ @@ -10075,36 +9966,36 @@ (##cdr _e1301313119_)))) (if (gx#stx-pair/null? _tl1301113126_) - (let ((_g48872_ + (let ((_g50874_ (gx#syntax-split-splice _tl1301113126_ '0))) (begin - (let ((_g48873_ + (let ((_g50875_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g48872_) - (##vector-length _g48872_) + _g50874_) + (##vector-length _g50874_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g48873_ 2))) - (error "Context expects 2 values" _g48873_))) + (if (not (let () (declare (not safe)) (##fx= _g50875_ 2))) + (error "Context expects 2 values" _g50875_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1301413129_ (let () (declare (not safe)) (##vector-ref - _g48872_ + _g50874_ 0))) (_tl1301613132_ (let () (declare (not safe)) (##vector-ref - _g48872_ + _g50874_ 1)))) (if (gx#stx-null? _tl1301613132_) @@ -10177,37 +10068,37 @@ (##cdr _e1302813177_)))) (if (gx#stx-pair/null? _tl1302613184_) - (let ((_g48834_ + (let ((_g50843_ (gx#syntax-split-splice _tl1302613184_ '0))) (begin - (let ((_g48835_ + (let ((_g50844_ (let () (declare (not safe)) (if (##values? - _g48834_) + _g50843_) (##vector-length - _g48834_) + _g50843_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g48835_ 2))) - (error "Context expects 2 values" _g48835_))) + (##fx= _g50844_ 2))) + (error "Context expects 2 values" _g50844_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1302913187_ (let () (declare (not safe)) (##vector-ref - _g48834_ + _g50843_ 0))) (_tl1303113190_ (let () (declare (not safe)) (##vector-ref - _g48834_ + _g50843_ 1)))) (if (gx#stx-null? _tl1303113190_) @@ -10234,31 +10125,31 @@ (let ((_fini1303713213_ (reverse _fini1303613200_))) (if (gx#stx-pair/null? _tl1302313174_) - (let ((_g48836_ + (let ((_g50845_ (gx#syntax-split-splice _tl1302313174_ '0))) (begin - (let ((_g48837_ + (let ((_g50846_ (let () (declare (not safe)) - (if (##values? _g48836_) + (if (##values? _g50845_) (##vector-length - _g48836_) + _g50845_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48837_ 2))) + (##fx= _g50846_ 2))) (error "Context expects 2 values" - _g48837_))) + _g50846_))) (let ((_target1303813217_ (let () (declare (not safe)) - (##vector-ref _g48836_ 0))) + (##vector-ref _g50845_ 0))) (_tl1304013220_ (let () (declare (not safe)) - (##vector-ref _g48836_ 1)))) + (##vector-ref _g50845_ 1)))) (if (gx#stx-null? _tl1304013220_) (letrec ((_loop1304113223_ (lambda (_hd1303913227_ @@ -10288,149 +10179,140 @@ _L13253_) (if (gx#stx-andmap gx#identifier? - (let ((__tmp48871 - (lambda (_g1328613289_ _g1328713292_) + (foldr (lambda (_g1328613289_ _g1328713292_) (let () (declare (not safe)) (cons _g1328613289_ - _g1328713292_))))) - (declare (not safe)) - (foldr1 __tmp48871 '() _L13253_))) - (let ((__tmp48870 (gx#datum->syntax '#f 'let)) - (__tmp48838 - (let ((__tmp48869 + _g1328713292_))) + '() + _L13253_)) + (let ((__tmp50873 (gx#datum->syntax '#f 'let)) + (__tmp50847 + (let ((__tmp50872 (gx#datum->syntax '#f '$loop)) - (__tmp48839 - (let ((__tmp48865 + (__tmp50848 + (let ((__tmp50869 (begin (gx#syntax-check-splice-targets _L13252_ _L13253_) - (let ((__tmp48866 - (lambda (_g1330313307_ + (foldr (lambda (_g1330313307_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1330413310_ _g1330513312_) - (let ((__tmp48867 - (let ((__tmp48868 + (let ((__tmp50870 + (let ((__tmp50871 (let () (declare (not safe)) (cons _g1330313307_ '())))) (declare (not safe)) - (cons _g1330413310_ __tmp48868)))) + (cons _g1330413310_ __tmp50871)))) (declare (not safe)) - (cons __tmp48867 _g1330513312_))))) - (declare (not safe)) - (foldr2 __tmp48866 '() _L13252_ _L13253_)))) + (cons __tmp50870 _g1330513312_))) + '() + _L13252_ + _L13253_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48840 - (let ((__tmp48841 - (let ((__tmp48864 + (__tmp50849 + (let ((__tmp50850 + (let ((__tmp50868 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'if)) - (__tmp48842 - (let ((__tmp48843 - (let ((__tmp48859 - (let ((__tmp48863 + (__tmp50851 + (let ((__tmp50852 + (let ((__tmp50864 + (let ((__tmp50867 (gx#datum->syntax '#f 'begin)) - (__tmp48860 - (let ((__tmp48861 - (let ((__tmp48862 - (lambda (_g1330113315_ + (__tmp50865 + (let ((__tmp50866 + (foldr (lambda (_g1330113315_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1330213318_) (let () (declare (not safe)) - (cons _g1330113315_ _g1330213318_))))) - (declare (not safe)) - (foldr1 __tmp48862 '() _L13249_)))) + (cons _g1330113315_ _g1330213318_))) + '() + _L13249_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '#!void __tmp48861)))) + (cons '#!void __tmp50866)))) (declare (not safe)) - (cons __tmp48863 __tmp48860))) - (__tmp48844 - (let ((__tmp48845 - (let ((__tmp48858 + (cons __tmp50867 __tmp50865))) + (__tmp50853 + (let ((__tmp50854 + (let ((__tmp50863 (gx#datum->syntax '#f 'begin)) - (__tmp48846 - (let ((__tmp48857 - (lambda (_g1329413321_ + (__tmp50855 + (foldr (lambda (_g1329413321_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1329513324_) (let () (declare (not safe)) - (cons _g1329413321_ _g1329513324_)))) - (__tmp48847 - (let ((__tmp48848 - (let ((__tmp48856 (gx#datum->syntax '#f '$loop)) - (__tmp48849 + (cons _g1329413321_ _g1329513324_))) + (let ((__tmp50856 + (let ((__tmp50862 (gx#datum->syntax '#f '$loop)) + (__tmp50857 (begin (gx#syntax-check-splice-targets _L13251_ _L13253_) - (let ((__tmp48850 - (lambda (_g1329613327_ + (foldr (lambda (_g1329613327_ _g1329713330_ _g1329813332_) - (let ((__tmp48851 - (let ((__tmp48855 + (let ((__tmp50858 + (let ((__tmp50861 (gx#datum->syntax '#f 'begin)) - (__tmp48852 - (let ((__tmp48853 + (__tmp50859 + (let ((__tmp50860 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48854 - (lambda (_g1329913335_ _g1330013338_) + (foldr (lambda (_g1329913335_ _g1330013338_) (let () (declare (not safe)) - (cons _g1329913335_ _g1330013338_))))) - (declare (not safe)) - (foldr1 __tmp48854 '() _g1329613327_)))) + (cons _g1329913335_ _g1330013338_))) + '() + _g1329613327_))) (declare (not safe)) - (cons _g1329713330_ __tmp48853)))) + (cons _g1329713330_ __tmp50860)))) (declare (not safe)) - (cons __tmp48855 __tmp48852)))) + (cons __tmp50861 __tmp50859)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48851 - _g1329813332_))))) - (declare (not safe)) - (foldr2 __tmp48850 - '() - _L13251_ - _L13253_))))) + (cons __tmp50858 + _g1329813332_))) + '() + _L13251_ + _L13253_)))) (declare (not safe)) - (cons __tmp48856 __tmp48849)))) + (cons __tmp50862 __tmp50857)))) (declare (not safe)) - (cons __tmp48848 '())))) - (declare (not safe)) - (foldr1 __tmp48857 __tmp48847 _L13247_)))) + (cons __tmp50856 '())) + _L13247_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48858 - __tmp48846)))) + (cons __tmp50863 + __tmp50855)))) (declare (not safe)) - (cons __tmp48845 '())))) + (cons __tmp50854 '())))) (declare (not safe)) - (cons __tmp48859 __tmp48844)))) + (cons __tmp50864 __tmp50853)))) (declare (not safe)) - (cons _L13250_ __tmp48843)))) + (cons _L13250_ __tmp50852)))) (declare (not safe)) - (cons __tmp48864 __tmp48842)))) + (cons __tmp50868 __tmp50851)))) (declare (not safe)) - (cons __tmp48841 '())))) + (cons __tmp50850 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48865 - __tmp48840)))) + (cons __tmp50869 + __tmp50849)))) (declare (not safe)) - (cons __tmp48869 __tmp48839)))) + (cons __tmp50872 __tmp50848)))) (declare (not safe)) - (cons __tmp48870 __tmp48838)) + (cons __tmp50873 __tmp50847)) (_g1298113052_ _g1298213056_))) _body1304613243_ _fini1303713213_ @@ -10521,31 +10403,31 @@ _L13425_ _L13426_ _L13427_) - (let ((__tmp48880 + (let ((__tmp50882 (gx#datum->syntax '#f 'do)) - (__tmp48874 - (let ((__tmp48875 + (__tmp50876 + (let ((__tmp50877 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48876 - (let ((__tmp48877 - (let ((__tmp48879 + (let ((__tmp50878 + (let ((__tmp50879 + (let ((__tmp50881 (gx#datum->syntax '#f 'not)) - (__tmp48878 + (__tmp50880 (let () (declare (not safe)) (cons _L13426_ '())))) (declare (not safe)) - (cons __tmp48879 __tmp48878)))) + (cons __tmp50881 __tmp50880)))) (declare (not safe)) - (cons __tmp48877 _L13425_)))) + (cons __tmp50879 _L13425_)))) (declare (not safe)) - (cons __tmp48876 _L13423_)))) + (cons __tmp50878 _L13423_)))) (declare (not safe)) - (cons _L13427_ __tmp48875)))) + (cons _L13427_ __tmp50877)))) (declare (not safe)) - (cons __tmp48880 __tmp48874))) + (cons __tmp50882 __tmp50876))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _tl1336513410_ _tl1336813420_ @@ -10558,73 +10440,73 @@ (_g1335213447_ _$stx13349_)))) (define |gerbil/core$$[:0:]#begin0| (lambda (_$stx13451_) - (let* ((___stx4350143502_ _$stx13451_) + (let* ((___stx4560545606_ _$stx13451_) (_g1345613487_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4350143502_)))) - (let ((___kont4350443505_ (lambda (_L13599_) _L13599_)) - (___kont4350643507_ + ___stx4560545606_)))) + (let ((___kont4560845609_ (lambda (_L13599_) _L13599_)) + (___kont4561045611_ (lambda (_L13544_ _L13546_) - (let ((__tmp48895 (gx#datum->syntax '#f 'let)) - (__tmp48881 - (let ((__tmp48892 - (let ((__tmp48894 (gx#datum->syntax '#f '$r)) - (__tmp48893 + (let ((__tmp50896 (gx#datum->syntax '#f 'let)) + (__tmp50883 + (let ((__tmp50893 + (let ((__tmp50895 (gx#datum->syntax '#f '$r)) + (__tmp50894 (let () (declare (not safe)) (cons _L13546_ '())))) (declare (not safe)) - (cons __tmp48894 __tmp48893))) - (__tmp48882 - (let ((__tmp48885 - (let ((__tmp48891 + (cons __tmp50895 __tmp50894))) + (__tmp50884 + (let ((__tmp50887 + (let ((__tmp50892 (gx#datum->syntax '#f '%#expression)) - (__tmp48886 - (let ((__tmp48887 - (let ((__tmp48890 + (__tmp50888 + (let ((__tmp50889 + (let ((__tmp50891 (gx#datum->syntax '#f 'begin)) - (__tmp48888 - (let ((__tmp48889 + (__tmp50890 + (foldr (lambda (_g1356313566_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1356313566_ _g1356413569_) + _g1356413569_) (let () (declare (not safe)) - (cons _g1356313566_ _g1356413569_))))) - (declare (not safe)) - (foldr1 __tmp48889 '() _L13544_)))) + (cons _g1356313566_ _g1356413569_))) + '() + _L13544_))) (declare (not safe)) - (cons __tmp48890 __tmp48888)))) + (cons __tmp50891 __tmp50890)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48887 '())))) + (cons __tmp50889 '())))) (declare (not safe)) - (cons __tmp48891 __tmp48886))) - (__tmp48883 - (let ((__tmp48884 + (cons __tmp50892 __tmp50888))) + (__tmp50885 + (let ((__tmp50886 (gx#datum->syntax '#f '$r))) (declare (not safe)) - (cons __tmp48884 '())))) + (cons __tmp50886 '())))) (declare (not safe)) - (cons __tmp48885 __tmp48883)))) + (cons __tmp50887 __tmp50885)))) (declare (not safe)) - (cons __tmp48892 __tmp48882)))) + (cons __tmp50893 __tmp50884)))) (declare (not safe)) - (cons __tmp48895 __tmp48881))))) - (let ((___match4354443545_ + (cons __tmp50896 __tmp50883))))) + (let ((___match4564845649_ (lambda (_e1346913494_ _hd1346813498_ _tl1346713501_ _e1347213504_ _hd1347113508_ _tl1347013511_ - ___splice4350843509_ + ___splice4561245613_ _target1347313514_ _tl1347513517_) (letrec ((_loop1347613520_ @@ -10648,12 +10530,12 @@ _rest1348013527_))))) (let ((_rest1348113540_ (reverse _rest1348013527_))) - (___kont4350643507_ + (___kont4561045611_ _rest1348113540_ _hd1347113508_)))))) (_loop1347613520_ _target1347313514_ '()))))) - (if (gx#stx-pair? ___stx4350143502_) - (let ((_e1346113579_ (gx#syntax-e ___stx4350143502_))) + (if (gx#stx-pair? ___stx4560545606_) + (let ((_e1346113579_ (gx#syntax-e ___stx4560545606_))) (let ((_tl1345913586_ (let () (declare (not safe)) (##cdr _e1346113579_))) (_hd1346013583_ @@ -10671,9 +10553,9 @@ (declare (not safe)) (##car _e1346413589_)))) (if (gx#stx-null? _tl1346213596_) - (___kont4350443505_ _hd1346313593_) + (___kont4560845609_ _hd1346313593_) (if (gx#stx-pair/null? _tl1346213596_) - (let ((___splice4350843509_ + (let ((___splice4561245613_ (gx#syntax-split-splice _tl1346213596_ '0))) @@ -10681,23 +10563,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4350843509_ + ___splice4561245613_ '1))) (_target1347313514_ (let () (declare (not safe)) (##vector-ref - ___splice4350843509_ + ___splice4561245613_ '0)))) (if (gx#stx-null? _tl1347513517_) - (___match4354443545_ + (___match4564845649_ _e1346113579_ _hd1346013583_ _tl1345913586_ _e1346413589_ _hd1346313593_ _tl1346213596_ - ___splice4350843509_ + ___splice4561245613_ _target1347313514_ _tl1347513517_) (let () @@ -10710,103 +10592,102 @@ (let () (declare (not safe)) (_g1345613487_)))))))) (define |gerbil/core$$[:0:]#rec| (lambda (_$stx13617_) - (let* ((___stx4354743548_ _$stx13617_) + (let* ((___stx4565145652_ _$stx13617_) (_g1362313676_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4354743548_)))) - (let ((___kont4355043551_ + ___stx4565145652_)))) + (let ((___kont4565445655_ (lambda (_L13878_ _L13880_) - (let ((__tmp48901 (gx#datum->syntax '#f 'letrec)) - (__tmp48896 - (let ((__tmp48898 - (let ((__tmp48899 - (let ((__tmp48900 + (let ((__tmp50902 (gx#datum->syntax '#f 'letrec)) + (__tmp50897 + (let ((__tmp50899 + (let ((__tmp50900 + (let ((__tmp50901 (let () (declare (not safe)) (cons _L13878_ '())))) (declare (not safe)) - (cons _L13880_ __tmp48900)))) + (cons _L13880_ __tmp50901)))) (declare (not safe)) - (cons __tmp48899 '()))) - (__tmp48897 + (cons __tmp50900 '()))) + (__tmp50898 (let () (declare (not safe)) (cons _L13880_ '())))) (declare (not safe)) - (cons __tmp48898 __tmp48897)))) + (cons __tmp50899 __tmp50898)))) (declare (not safe)) - (cons __tmp48901 __tmp48896)))) - (___kont4355243553_ + (cons __tmp50902 __tmp50897)))) + (___kont4565645657_ (lambda (_L13822_ _L13824_) - (let ((__tmp48909 (gx#datum->syntax '#f 'letrec-values)) - (__tmp48902 - (let ((__tmp48906 - (let ((__tmp48907 - (let ((__tmp48908 + (let ((__tmp50910 (gx#datum->syntax '#f 'letrec-values)) + (__tmp50903 + (let ((__tmp50907 + (let ((__tmp50908 + (let ((__tmp50909 (let () (declare (not safe)) (cons _L13822_ '())))) (declare (not safe)) - (cons _L13824_ __tmp48908)))) + (cons _L13824_ __tmp50909)))) (declare (not safe)) - (cons __tmp48907 '()))) - (__tmp48903 - (let ((__tmp48904 - (let ((__tmp48905 + (cons __tmp50908 '()))) + (__tmp50904 + (let ((__tmp50905 + (let ((__tmp50906 (gx#datum->syntax '#f 'values))) (declare (not safe)) - (cons __tmp48905 _L13824_)))) + (cons __tmp50906 _L13824_)))) (declare (not safe)) - (cons __tmp48904 '())))) + (cons __tmp50905 '())))) (declare (not safe)) - (cons __tmp48906 __tmp48903)))) + (cons __tmp50907 __tmp50904)))) (declare (not safe)) - (cons __tmp48909 __tmp48902)))) - (___kont4355443555_ + (cons __tmp50910 __tmp50903)))) + (___kont4565845659_ (lambda (_L13743_ _L13745_ _L13746_) - (let ((__tmp48920 (gx#datum->syntax '#f 'letrec)) - (__tmp48910 - (let ((__tmp48912 - (let ((__tmp48913 - (let ((__tmp48914 - (let ((__tmp48915 - (let ((__tmp48919 + (let ((__tmp50920 (gx#datum->syntax '#f 'letrec)) + (__tmp50911 + (let ((__tmp50913 + (let ((__tmp50914 + (let ((__tmp50915 + (let ((__tmp50916 + (let ((__tmp50919 (gx#datum->syntax '#f 'lambda)) - (__tmp48916 - (let ((__tmp48917 + (__tmp50917 + (let ((__tmp50918 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48918 - (lambda (_g1376613769_ _g1376713772_) + (foldr (lambda (_g1376613769_ _g1376713772_) (let () (declare (not safe)) - (cons _g1376613769_ _g1376713772_))))) - (declare (not safe)) - (foldr1 __tmp48918 '() _L13743_)))) + (cons _g1376613769_ _g1376713772_))) + '() + _L13743_))) (declare (not safe)) - (cons _L13745_ __tmp48917)))) + (cons _L13745_ __tmp50918)))) (declare (not safe)) - (cons __tmp48919 __tmp48916)))) + (cons __tmp50919 __tmp50917)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48915 '())))) + (cons __tmp50916 '())))) (declare (not safe)) - (cons _L13746_ __tmp48914)))) + (cons _L13746_ __tmp50915)))) (declare (not safe)) - (cons __tmp48913 '()))) - (__tmp48911 + (cons __tmp50914 '()))) + (__tmp50912 (let () (declare (not safe)) (cons _L13746_ '())))) (declare (not safe)) - (cons __tmp48912 __tmp48911)))) + (cons __tmp50913 __tmp50912)))) (declare (not safe)) - (cons __tmp48920 __tmp48910))))) - (let* ((___match4363443635_ + (cons __tmp50920 __tmp50911))))) + (let* ((___match4573845739_ (lambda (_e1365513683_ _hd1365413687_ _tl1365313690_ @@ -10816,7 +10697,7 @@ _e1366113703_ _hd1366013707_ _tl1365913710_ - ___splice4355643557_ + ___splice4566045661_ _target1366213713_ _tl1366413716_) (letrec ((_loop1366513719_ @@ -10844,7 +10725,7 @@ (_L13745_ _tl1365913710_) (_L13746_ _hd1366013707_)) (if (gx#identifier? _L13746_) - (___kont4355443555_ + (___kont4565845659_ _L13743_ _L13745_ _L13746_) @@ -10852,7 +10733,7 @@ (declare (not safe)) (_g1362313676_))))))))) (_loop1366513719_ _target1366213713_ '())))) - (___match4360843609_ + (___match4571245713_ (lambda (_e1364013782_ _hd1363913786_ _tl1363813789_ @@ -10868,9 +10749,9 @@ (let ((_L13822_ _hd1364813816_) (_L13824_ _tl1364413809_)) (if (gx#identifier-list? _L13824_) - (___kont4355243553_ _L13822_ _L13824_) + (___kont4565645657_ _L13822_ _L13824_) (if (gx#stx-pair/null? _tl1364113799_) - (let ((___splice4355643557_ + (let ((___splice4566045661_ (gx#syntax-split-splice _tl1364113799_ '0))) @@ -10878,16 +10759,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4355643557_ + ___splice4566045661_ '1))) (_target1366213713_ (let () (declare (not safe)) (##vector-ref - ___splice4355643557_ + ___splice4566045661_ '0)))) (if (gx#stx-null? _tl1366413716_) - (___match4363443635_ + (___match4573845739_ _e1364013782_ _hd1363913786_ _tl1363813789_ @@ -10897,7 +10778,7 @@ _e1364613802_ _hd1364513806_ _tl1364413809_ - ___splice4355643557_ + ___splice4566045661_ _target1366213713_ _tl1366413716_) (let () @@ -10906,7 +10787,7 @@ (let () (declare (not safe)) (_g1362313676_))))))) - (___match4357843579_ + (___match4568245683_ (lambda (_e1362913848_ _hd1362813852_ _tl1362713855_ @@ -10919,7 +10800,7 @@ (let ((_L13878_ _hd1363413872_) (_L13880_ _hd1363113862_)) (if (gx#identifier? _L13880_) - (___kont4355043551_ _L13878_ _L13880_) + (___kont4565445655_ _L13878_ _L13880_) (if (gx#stx-pair? _hd1363113862_) (let ((_e1364613802_ (gx#syntax-e _hd1363113862_))) @@ -10933,9 +10814,9 @@ (##car _e1364613802_)))) (if (gx#identifier? _hd1364513806_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48921_| + |gerbil/core$$[1]#_g50921_| _hd1364513806_) - (___match4360843609_ + (___match4571245713_ _e1362913848_ _hd1362813852_ _tl1362713855_ @@ -10950,7 +10831,7 @@ _tl1363313875_) (if (gx#stx-pair/null? _tl1363013865_) - (let ((___splice4355643557_ + (let ((___splice4566045661_ (gx#syntax-split-splice _tl1363013865_ '0))) @@ -10958,17 +10839,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4355643557_ + ___splice4566045661_ '1))) (_target1366213713_ (let () (declare (not safe)) (##vector-ref - ___splice4355643557_ + ___splice4566045661_ '0)))) (if (gx#stx-null? _tl1366413716_) - (___match4363443635_ + (___match4573845739_ _e1362913848_ _hd1362813852_ _tl1362713855_ @@ -10978,7 +10859,7 @@ _e1364613802_ _hd1364513806_ _tl1364413809_ - ___splice4355643557_ + ___splice4566045661_ _target1366213713_ _tl1366413716_) (let () @@ -10988,7 +10869,7 @@ (declare (not safe)) (_g1362313676_)))) (if (gx#stx-pair/null? _tl1363013865_) - (let ((___splice4355643557_ + (let ((___splice4566045661_ (gx#syntax-split-splice _tl1363013865_ '0))) @@ -10996,17 +10877,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4355643557_ + ___splice4566045661_ '1))) (_target1366213713_ (let () (declare (not safe)) (##vector-ref - ___splice4355643557_ + ___splice4566045661_ '0)))) (if (gx#stx-null? _tl1366413716_) - (___match4363443635_ + (___match4573845739_ _e1362913848_ _hd1362813852_ _tl1362713855_ @@ -11016,7 +10897,7 @@ _e1364613802_ _hd1364513806_ _tl1364413809_ - ___splice4355643557_ + ___splice4566045661_ _target1366213713_ _tl1366413716_) (let () @@ -11028,8 +10909,8 @@ (let () (declare (not safe)) (_g1362313676_)))))))) - (if (gx#stx-pair? ___stx4354743548_) - (let ((_e1362913848_ (gx#syntax-e ___stx4354743548_))) + (if (gx#stx-pair? ___stx4565145652_) + (let ((_e1362913848_ (gx#syntax-e ___stx4565145652_))) (let ((_tl1362713855_ (let () (declare (not safe)) (##cdr _e1362913848_))) (_hd1362813852_ @@ -11058,7 +10939,7 @@ (declare (not safe)) (##car _e1363513868_)))) (if (gx#stx-null? _tl1363313875_) - (___match4357843579_ + (___match4568245683_ _e1362913848_ _hd1362813852_ _tl1362713855_ @@ -11082,7 +10963,7 @@ (##car _e1364613802_)))) (if (gx#stx-pair/null? _tl1363013865_) - (let ((___splice4355643557_ + (let ((___splice4566045661_ (gx#syntax-split-splice _tl1363013865_ '0))) @@ -11090,13 +10971,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice4355643557_ '1))) + (##vector-ref ___splice4566045661_ '1))) (_target1366213713_ (let () (declare (not safe)) - (##vector-ref ___splice4355643557_ '0)))) + (##vector-ref ___splice4566045661_ '0)))) (if (gx#stx-null? _tl1366413716_) - (___match4363443635_ + (___match4573845739_ _e1362913848_ _hd1362813852_ _tl1362713855_ @@ -11106,7 +10987,7 @@ _e1364613802_ _hd1364513806_ _tl1364413809_ - ___splice4355643557_ + ___splice4566045661_ _target1366213713_ _tl1366413716_) (let () (declare (not safe)) (_g1362313676_))))) @@ -11128,7 +11009,7 @@ (##car _e1364613802_)))) (if (gx#stx-pair/null? _tl1363013865_) - (let ((___splice4355643557_ + (let ((___splice4566045661_ (gx#syntax-split-splice _tl1363013865_ '0))) @@ -11136,17 +11017,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4355643557_ + ___splice4566045661_ '1))) (_target1366213713_ (let () (declare (not safe)) (##vector-ref - ___splice4355643557_ + ___splice4566045661_ '0)))) (if (gx#stx-null? _tl1366413716_) - (___match4363443635_ + (___match4573845739_ _e1362913848_ _hd1362813852_ _tl1362713855_ @@ -11156,7 +11037,7 @@ _e1364613802_ _hd1364513806_ _tl1364413809_ - ___splice4355643557_ + ___splice4566045661_ _target1366213713_ _tl1366413716_) (let () @@ -11174,21 +11055,21 @@ (lambda (_stx13900_) (letrec ((_let-bind?13903_ (lambda (_x14826_) - (let* ((___stx4363743638_ _x14826_) + (let* ((___stx4574145742_ _x14826_) (_g1483114850_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4363743638_)))) - (let ((___kont4364043641_ + ___stx4574145742_)))) + (let ((___kont4574445745_ (lambda (_L14918_ _L14920_) (_let-head?13906_ _L14920_))) - (___kont4364243643_ (lambda (_L14878_) '#t)) - (___kont4364443645_ (lambda () '#f))) - (if (gx#stx-pair? ___stx4363743638_) + (___kont4574645747_ (lambda (_L14878_) '#t)) + (___kont4574845749_ (lambda () '#f))) + (if (gx#stx-pair? ___stx4574145742_) (let ((_e1483714898_ - (gx#syntax-e ___stx4363743638_))) + (gx#syntax-e ___stx4574145742_))) (let ((_tl1483514905_ (let () (declare (not safe)) @@ -11209,37 +11090,37 @@ (declare (not safe)) (##car _e1484014908_)))) (if (gx#stx-null? _tl1483814915_) - (___kont4364043641_ + (___kont4574445745_ _hd1483914912_ _hd1483614902_) - (___kont4364443645_)))) + (___kont4574845749_)))) (if (gx#stx-null? _tl1483514905_) - (___kont4364243643_ _hd1483614902_) - (___kont4364443645_))))) - (___kont4364443645_)))))) + (___kont4574645747_ _hd1483614902_) + (___kont4574845749_))))) + (___kont4574845749_)))))) (_let-bind13905_ (lambda (_x14728_) - (let* ((___stx4367143672_ _x14728_) + (let* ((___stx4577545776_ _x14728_) (_g1473214751_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4367143672_)))) - (let ((___kont4367443675_ + ___stx4577545776_)))) + (let ((___kont4577845779_ (lambda (_L14807_ _L14809_) _x14728_)) - (___kont4367643677_ + (___kont4578045781_ (lambda (_L14768_) - (let ((__tmp48923 (gx#datum->syntax '#f '_)) - (__tmp48922 + (let ((__tmp50923 (gx#datum->syntax '#f '_)) + (__tmp50922 (let () (declare (not safe)) (cons _L14768_ '())))) (declare (not safe)) - (cons __tmp48923 __tmp48922))))) - (if (gx#stx-pair? ___stx4367143672_) + (cons __tmp50923 __tmp50922))))) + (if (gx#stx-pair? ___stx4577545776_) (let ((_e1473814787_ - (gx#syntax-e ___stx4367143672_))) + (gx#syntax-e ___stx4577545776_))) (let ((_tl1473614794_ (let () (declare (not safe)) @@ -11260,35 +11141,35 @@ (declare (not safe)) (##car _e1474114797_)))) (if (gx#stx-null? _tl1473914804_) - (___kont4367443675_ + (___kont4577845779_ _hd1474014801_ _hd1473714791_) (let () (declare (not safe)) (_g1473214751_))))) (if (gx#stx-null? _tl1473614794_) - (___kont4367643677_ _hd1473714791_) + (___kont4578045781_ _hd1473714791_) (let () (declare (not safe)) (_g1473214751_)))))) (let () (declare (not safe)) (_g1473214751_))))))) (_let-head?13906_ (lambda (_x14668_) - (let* ((___stx4370343704_ _x14668_) + (let* ((___stx4580745808_ _x14668_) (_g1467214683_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4370343704_)))) - (let ((___kont4370643707_ + ___stx4580745808_)))) + (let ((___kont4581045811_ (lambda (_L14711_) (gx#stx-andmap gx#identifier? _L14711_))) - (___kont4370843709_ + (___kont4581245813_ (lambda () (gx#identifier? _x14668_)))) - (if (gx#stx-pair? ___stx4370343704_) + (if (gx#stx-pair? ___stx4580745808_) (let ((_e1467714701_ - (gx#syntax-e ___stx4370343704_))) + (gx#syntax-e ___stx4580745808_))) (let ((_tl1467514708_ (let () (declare (not safe)) @@ -11299,26 +11180,26 @@ (##car _e1467714701_)))) (if (gx#identifier? _hd1467614705_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48924_| + |gerbil/core$$[1]#_g50924_| _hd1467614705_) - (___kont4370643707_ _tl1467514708_) - (___kont4370843709_)) - (___kont4370843709_)))) - (___kont4370843709_)))))) + (___kont4581045811_ _tl1467514708_) + (___kont4581245813_)) + (___kont4581245813_)))) + (___kont4581245813_)))))) (_let-head13907_ (lambda (_x14608_) - (let* ((___stx4372343724_ _x14608_) + (let* ((___stx4582745828_ _x14608_) (_g1461214623_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4372343724_)))) - (let ((___kont4372643727_ (lambda (_L14651_) _L14651_)) - (___kont4372843729_ (lambda () (list _x14608_)))) - (if (gx#stx-pair? ___stx4372343724_) + ___stx4582745828_)))) + (let ((___kont4583045831_ (lambda (_L14651_) _L14651_)) + (___kont4583245833_ (lambda () (list _x14608_)))) + (if (gx#stx-pair? ___stx4582745828_) (let ((_e1461714641_ - (gx#syntax-e ___stx4372343724_))) + (gx#syntax-e ___stx4582745828_))) (let ((_tl1461514648_ (let () (declare (not safe)) @@ -11329,67 +11210,66 @@ (##car _e1461714641_)))) (if (gx#identifier? _hd1461614645_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48925_| + |gerbil/core$$[1]#_g50925_| _hd1461614645_) - (___kont4372643727_ _tl1461514648_) - (___kont4372843729_)) - (___kont4372843729_)))) - (___kont4372843729_))))))) - (let* ((___stx4374343744_ _stx13900_) + (___kont4583045831_ _tl1461514648_) + (___kont4583245833_)) + (___kont4583245833_)))) + (___kont4583245833_))))))) + (let* ((___stx4584745848_ _stx13900_) (_g1391113983_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4374343744_)))) - (let ((___kont4374643747_ + ___stx4584745848_)))) + (let ((___kont4585045851_ (lambda (_L14581_ _L14583_ _L14584_ _L14585_) - (let ((__tmp48926 - (let ((__tmp48927 - (let ((__tmp48928 - (let ((__tmp48929 + (let ((__tmp50926 + (let ((__tmp50927 + (let ((__tmp50928 + (let ((__tmp50929 (let () (declare (not safe)) (cons _L14583_ '())))) (declare (not safe)) - (cons _L14584_ __tmp48929)))) + (cons _L14584_ __tmp50929)))) (declare (not safe)) - (cons __tmp48928 '())))) + (cons __tmp50928 '())))) (declare (not safe)) - (cons __tmp48927 _L14581_)))) + (cons __tmp50927 _L14581_)))) (declare (not safe)) - (cons _L14585_ __tmp48926)))) - (___kont4374843749_ + (cons _L14585_ __tmp50926)))) + (___kont4585245853_ (lambda (_L14503_ _L14505_) - (let ((__tmp48937 (gx#datum->syntax '#f 'and)) - (__tmp48930 - (let ((__tmp48931 - (let ((__tmp48932 - (let ((__tmp48936 + (let ((__tmp50936 (gx#datum->syntax '#f 'and)) + (__tmp50930 + (let ((__tmp50931 + (let ((__tmp50932 + (let ((__tmp50935 (gx#datum->syntax '#f 'let)) - (__tmp48933 - (let ((__tmp48934 - (let ((__tmp48935 - (lambda (_g1452514528_ + (__tmp50933 + (let ((__tmp50934 + (foldr (lambda (_g1452514528_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1452614531_) (let () (declare (not safe)) - (cons _g1452514528_ _g1452614531_))))) - (declare (not safe)) - (foldr1 __tmp48935 '() _L14503_)))) + (cons _g1452514528_ _g1452614531_))) + '() + _L14503_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp48934)))) + (cons '() __tmp50934)))) (declare (not safe)) - (cons __tmp48936 __tmp48933)))) + (cons __tmp50935 __tmp50933)))) (declare (not safe)) - (cons __tmp48932 '())))) + (cons __tmp50932 '())))) (declare (not safe)) - (cons _L14505_ __tmp48931)))) + (cons _L14505_ __tmp50931)))) (declare (not safe)) - (cons __tmp48937 __tmp48930)))) - (___kont4375243753_ + (cons __tmp50936 __tmp50930)))) + (___kont4585645857_ (lambda (_L14070_ _L14072_) (let* ((_g1410314129_ (lambda (_g1410414125_) @@ -11400,30 +11280,30 @@ (_g1410214414_ (lambda (_g1410414133_) (if (gx#stx-pair/null? _g1410414133_) - (let ((_g48938_ + (let ((_g50937_ (gx#syntax-split-splice _g1410414133_ '0))) (begin - (let ((_g48939_ + (let ((_g50938_ (let () (declare (not safe)) - (if (##values? _g48938_) - (##vector-length _g48938_) + (if (##values? _g50937_) + (##vector-length _g50937_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48939_ 2))) + (##fx= _g50938_ 2))) (error "Context expects 2 values" - _g48939_))) + _g50938_))) (let ((_target1410714136_ (let () (declare (not safe)) - (##vector-ref _g48938_ 0))) + (##vector-ref _g50937_ 0))) (_tl1410914139_ (let () (declare (not safe)) - (##vector-ref _g48938_ 1)))) + (##vector-ref _g50937_ 1)))) (if (gx#stx-null? _tl1410914139_) (letrec ((_loop1411014142_ (lambda (_hd1410814146_ @@ -11491,34 +11371,34 @@ (_g1420714402_ (lambda (_g1420914229_) (if (gx#stx-pair/null? _g1420914229_) - (let ((_g48940_ + (let ((_g50939_ (gx#syntax-split-splice _g1420914229_ '0))) (begin - (let ((_g48941_ + (let ((_g50940_ (let () (declare (not safe)) - (if (##values? _g48940_) + (if (##values? _g50939_) (##vector-length - _g48940_) + _g50939_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48941_ 2))) + (##fx= _g50940_ 2))) (error "Context expects 2 values" - _g48941_))) + _g50940_))) (let ((_target1421114232_ (let () (declare (not safe)) (##vector-ref - _g48940_ + _g50939_ 0))) (_tl1421314235_ (let () (declare (not safe)) (##vector-ref - _g48940_ + _g50939_ 1)))) (if (gx#stx-null? _tl1421314235_) @@ -11554,36 +11434,36 @@ (lambda (_g1428014300_) (if (gx#stx-pair/null? _g1428014300_) - (let ((_g48942_ + (let ((_g50941_ (gx#syntax-split-splice _g1428014300_ '0))) (begin - (let ((_g48943_ + (let ((_g50942_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g48942_) - (##vector-length _g48942_) + _g50941_) + (##vector-length _g50941_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g48943_ 2))) - (error "Context expects 2 values" _g48943_))) + (if (not (let () (declare (not safe)) (##fx= _g50942_ 2))) + (error "Context expects 2 values" _g50942_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1428214303_ (let () (declare (not safe)) (##vector-ref - _g48942_ + _g50941_ 0))) (_tl1428414306_ (let () (declare (not safe)) (##vector-ref - _g48942_ + _g50941_ 1)))) (if (gx#stx-null? _tl1428414306_) @@ -11612,99 +11492,96 @@ ((lambda (_L14333_) (let () (let () - (let ((__tmp48965 + (let ((__tmp50959 (gx#datum->syntax '#f 'let-values)) - (__tmp48944 - (let ((__tmp48960 + (__tmp50943 + (let ((__tmp50955 (begin (gx#syntax-check-splice-targets _L14190_ _L14262_) - (let ((__tmp48961 + (foldr (lambda (_g1435814362_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1435814362_ _g1435914365_ _g1436014367_) - (let ((__tmp48962 - (let ((__tmp48964 + _g1435914365_ + _g1436014367_) + (let ((__tmp50956 + (let ((__tmp50958 (let () (declare (not safe)) (cons _g1435914365_ '()))) - (__tmp48963 + (__tmp50957 (let () (declare (not safe)) (cons _g1435814362_ '())))) (declare (not safe)) - (cons __tmp48964 __tmp48963)))) + (cons __tmp50958 __tmp50957)))) (declare (not safe)) - (cons __tmp48962 _g1436014367_))))) - (declare (not safe)) - (foldr2 __tmp48961 '() _L14190_ _L14262_)))) - (__tmp48945 - (let ((__tmp48946 - (let ((__tmp48959 (gx#datum->syntax '#f 'and)) - (__tmp48947 - (let ((__tmp48958 - (lambda (_g1435114370_ _g1435214373_) + (cons __tmp50956 _g1436014367_))) + '() + _L14190_ + _L14262_))) + (__tmp50944 + (let ((__tmp50945 + (let ((__tmp50954 (gx#datum->syntax '#f 'and)) + (__tmp50946 + (foldr (lambda (_g1435114370_ _g1435214373_) (let () (declare (not safe)) - (cons _g1435114370_ - _g1435214373_)))) - (__tmp48948 - (let ((__tmp48949 - (let ((__tmp48957 + (cons _g1435114370_ _g1435214373_))) + (let ((__tmp50947 + (let ((__tmp50953 (gx#datum->syntax '#f 'let-values)) - (__tmp48950 - (let ((__tmp48953 + (__tmp50948 + (let ((__tmp50950 (begin (gx#syntax-check-splice-targets _L14262_ _L14333_) - (let ((__tmp48954 + (foldr (lambda (_g1435514376_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1435514376_ _g1435614379_ _g1435714381_) - (let ((__tmp48955 - (let ((__tmp48956 + (let ((__tmp50951 + (let ((__tmp50952 (let () (declare (not safe)) (cons _g1435514376_ '())))) (declare (not safe)) - (cons _g1435614379_ __tmp48956)))) + (cons _g1435614379_ __tmp50952)))) (declare (not safe)) - (cons __tmp48955 _g1435714381_))))) - (declare (not safe)) - (foldr2 __tmp48954 '() _L14262_ _L14333_)))) - (__tmp48951 - (let ((__tmp48952 - (lambda (_g1435314384_ _g1435414387_) + (cons __tmp50951 _g1435714381_))) + '() + _L14262_ + _L14333_))) + (__tmp50949 + (foldr (lambda (_g1435314384_ _g1435414387_) (let () (declare (not safe)) - (cons _g1435314384_ _g1435414387_))))) - (declare (not safe)) - (foldr1 __tmp48952 '() _L14070_)))) + (cons _g1435314384_ _g1435414387_))) + '() + _L14070_))) (declare (not safe)) - (cons __tmp48953 __tmp48951)))) + (cons __tmp50950 __tmp50949)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48957 __tmp48950)))) + (cons __tmp50953 __tmp50948)))) (declare (not safe)) - (cons __tmp48949 '())))) - (declare (not safe)) - (foldr1 __tmp48958 __tmp48948 _L14262_)))) + (cons __tmp50947 '())) + _L14262_))) (declare (not safe)) - (cons __tmp48959 __tmp48947)))) + (cons __tmp50954 __tmp50946)))) (declare (not safe)) - (cons __tmp48946 '())))) + (cons __tmp50945 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48960 - __tmp48945)))) + (cons __tmp50955 + __tmp50944)))) (declare (not safe)) - (cons __tmp48965 __tmp48944))))) + (cons __tmp50959 __tmp50943))))) _hd-bind1429014329_)))))) (_loop1428514309_ _target1428214303_ '())) (_g1427914296_ _g1428014300_))))) @@ -11714,15 +11591,14 @@ (_g1427814390_ (gx#stx-map _let-head13907_ - (let ((__tmp48966 - (lambda (_g1439314396_ + (foldr (lambda (_g1439314396_ _g1439414399_) (let () (declare (not safe)) (cons _g1439314396_ - _g1439414399_))))) - (declare (not safe)) - (foldr1 __tmp48966 '() _L14192_))))))) + _g1439414399_))) + '() + _L14192_)))))) _$e1421914258_)))))) (_loop1421414238_ _target1421114232_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -11731,14 +11607,12 @@ (_g1420814225_ _g1420914229_))))) (_g1420714402_ (gx#gentemps - (let ((__tmp48967 - (lambda (_g1440514408_ _g1440614411_) + (foldr (lambda (_g1440514408_ _g1440614411_) (let () (declare (not safe)) - (cons _g1440514408_ - _g1440614411_))))) - (declare (not safe)) - (foldr1 __tmp48967 '() _L14192_))))))) + (cons _g1440514408_ _g1440614411_))) + '() + _L14192_)))))) _e1411614184_ _hd1411714187_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -11751,21 +11625,20 @@ (_g1410214414_ (gx#stx-map _let-bind13905_ - (let ((__tmp48968 - (lambda (_g1441714420_ _g1441814423_) + (foldr (lambda (_g1441714420_ _g1441814423_) (let () (declare (not safe)) - (cons _g1441714420_ _g1441814423_))))) - (declare (not safe)) - (foldr1 __tmp48968 '() _L14072_)))))))) - (let* ((___match4384043841_ + (cons _g1441714420_ _g1441814423_))) + '() + _L14072_))))))) + (let* ((___match4594445945_ (lambda (_e1395613990_ _hd1395513994_ _tl1395413997_ _e1395914000_ _hd1395814004_ _tl1395714007_ - ___splice4375443755_ + ___splice4585845859_ _target1396014010_ _tl1396214013_) (letrec ((_loop1396314016_ @@ -11791,7 +11664,7 @@ (reverse _bind1396714023_))) (if (gx#stx-pair/null? _tl1395714007_) - (let ((___splice4375643757_ + (let ((___splice4586045861_ (gx#syntax-split-splice _tl1395714007_ '0))) @@ -11799,13 +11672,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice4375643757_ + ___splice4586045861_ '1))) (_target1396914040_ (let () (declare (not safe)) (##vector-ref - ___splice4375643757_ + ___splice4586045861_ '0)))) (if (gx#stx-null? _tl1397114043_) @@ -11836,16 +11709,15 @@ (_L14072_ _bind1396814036_)) (if (gx#stx-andmap _let-bind?13903_ - (let ((__tmp48969 - (lambda (_g1409414097_ + (foldr (lambda (_g1409414097_ _g1409514100_) (let () (declare (not safe)) (cons _g1409414097_ - _g1409514100_))))) - (declare (not safe)) - (foldr1 __tmp48969 '() _L14072_))) - (___kont4375243753_ _L14070_ _L14072_) + _g1409514100_))) + '() + _L14072_)) + (___kont4585645857_ _L14070_ _L14072_) (let () (declare (not safe)) (_g1391113983_))))))))) @@ -11856,7 +11728,7 @@ (declare (not safe)) (_g1391113983_)))))))) (_loop1396314016_ _target1396014010_ '())))) - (___match4382043821_ + (___match4592445925_ (lambda (_e1393314433_ _hd1393214437_ _tl1393114440_ @@ -11869,7 +11741,7 @@ _e1394214463_ _hd1394114467_ _tl1394014470_ - ___splice4375043751_ + ___splice4585445855_ _target1394314473_ _tl1394514476_) (letrec ((_loop1394614479_ @@ -11893,11 +11765,11 @@ _body1395014486_))))) (let ((_body1395114499_ (reverse _body1395014486_))) - (___kont4374843749_ + (___kont4585245853_ _body1395114499_ _hd1394114467_)))))) (_loop1394614479_ _target1394314473_ '())))) - (___match4378443785_ + (___match4588845889_ (lambda (_e1391914541_ _hd1391814545_ _tl1391714548_ @@ -11915,7 +11787,7 @@ (_L14584_ _hd1392414565_) (_L14585_ _hd1391814545_)) (if (_let-head?13906_ _L14584_) - (___kont4374643747_ + (___kont4585045851_ _L14581_ _L14583_ _L14584_ @@ -11932,7 +11804,7 @@ (declare (not safe)) (##car _e1394214463_)))) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4375443755_ + (let ((___splice4585845859_ (gx#syntax-split-splice _hd1392114555_ '0))) @@ -11940,23 +11812,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4375443755_ + ___splice4585845859_ '1))) (_target1396014010_ (let () (declare (not safe)) (##vector-ref - ___splice4375443755_ + ___splice4585845859_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4384043841_ + (___match4594445945_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4375443755_ + ___splice4585845859_ _target1396014010_ _tl1396214013_) (let () @@ -11966,7 +11838,7 @@ (declare (not safe)) (_g1391113983_))))) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4375443755_ + (let ((___splice4585845859_ (gx#syntax-split-splice _hd1392114555_ '0))) @@ -11974,23 +11846,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4375443755_ + ___splice4585845859_ '1))) (_target1396014010_ (let () (declare (not safe)) (##vector-ref - ___splice4375443755_ + ___splice4585845859_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4384043841_ + (___match4594445945_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4375443755_ + ___splice4585845859_ _target1396014010_ _tl1396214013_) (let () @@ -11999,8 +11871,8 @@ (let () (declare (not safe)) (_g1391113983_))))))))) - (if (gx#stx-pair? ___stx4374343744_) - (let ((_e1391914541_ (gx#syntax-e ___stx4374343744_))) + (if (gx#stx-pair? ___stx4584745848_) + (let ((_e1391914541_ (gx#syntax-e ___stx4584745848_))) (let ((_tl1391714548_ (let () (declare (not safe)) @@ -12044,7 +11916,7 @@ (##car _e1392814571_)))) (if (gx#stx-null? _tl1392614578_) - (___match4378443785_ + (___match4588845889_ _e1391914541_ _hd1391814545_ _tl1391714548_ @@ -12068,25 +11940,25 @@ (_hd1394114467_ (let () (declare (not safe)) (##car _e1394214463_)))) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4375443755_ + (let ((___splice4585845859_ (gx#syntax-split-splice _hd1392114555_ '0))) (let ((_tl1396214013_ (let () (declare (not safe)) - (##vector-ref ___splice4375443755_ '1))) + (##vector-ref ___splice4585845859_ '1))) (_target1396014010_ (let () (declare (not safe)) - (##vector-ref ___splice4375443755_ '0)))) + (##vector-ref ___splice4585845859_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4384043841_ + (___match4594445945_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4375443755_ + ___splice4585845859_ _target1396014010_ _tl1396214013_) (let () @@ -12094,25 +11966,25 @@ (_g1391113983_))))) (let () (declare (not safe)) (_g1391113983_))))) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4375443755_ + (let ((___splice4585845859_ (gx#syntax-split-splice _hd1392114555_ '0))) (let ((_tl1396214013_ (let () (declare (not safe)) - (##vector-ref ___splice4375443755_ '1))) + (##vector-ref ___splice4585845859_ '1))) (_target1396014010_ (let () (declare (not safe)) - (##vector-ref ___splice4375443755_ '0)))) + (##vector-ref ___splice4585845859_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4384043841_ + (___match4594445945_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4375443755_ + ___splice4585845859_ _target1396014010_ _tl1396214013_) (let () (declare (not safe)) (_g1391113983_))))) @@ -12137,18 +12009,18 @@ (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _tl1392014558_) - (let ((___splice4375043751_ + (let ((___splice4585445855_ (gx#syntax-split-splice _tl1392014558_ '0))) (let ((_tl1394514476_ (let () (declare (not safe)) - (##vector-ref ___splice4375043751_ '1))) + (##vector-ref ___splice4585445855_ '1))) (_target1394314473_ (let () (declare (not safe)) - (##vector-ref ___splice4375043751_ '0)))) + (##vector-ref ___splice4585445855_ '0)))) (if (gx#stx-null? _tl1394514476_) - (___match4382043821_ + (___match4592445925_ _e1391914541_ _hd1391814545_ _tl1391714548_ @@ -12161,11 +12033,11 @@ _e1394214463_ _hd1394114467_ _tl1394014470_ - ___splice4375043751_ + ___splice4585445855_ _target1394314473_ _tl1394514476_) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4375443755_ + (let ((___splice4585845859_ (gx#syntax-split-splice _hd1392114555_ '0))) @@ -12173,23 +12045,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4375443755_ + ___splice4585845859_ '1))) (_target1396014010_ (let () (declare (not safe)) (##vector-ref - ___splice4375443755_ + ___splice4585845859_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4384043841_ + (___match4594445945_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4375443755_ + ___splice4585845859_ _target1396014010_ _tl1396214013_) (let () @@ -12199,27 +12071,27 @@ (declare (not safe)) (_g1391113983_)))))) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4375443755_ + (let ((___splice4585845859_ (gx#syntax-split-splice _hd1392114555_ '0))) (let ((_tl1396214013_ (let () (declare (not safe)) - (##vector-ref ___splice4375443755_ '1))) + (##vector-ref ___splice4585845859_ '1))) (_target1396014010_ (let () (declare (not safe)) (##vector-ref - ___splice4375443755_ + ___splice4585845859_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4384043841_ + (___match4594445945_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4375443755_ + ___splice4585845859_ _target1396014010_ _tl1396214013_) (let () @@ -12227,25 +12099,25 @@ (_g1391113983_))))) (let () (declare (not safe)) (_g1391113983_)))) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4375443755_ + (let ((___splice4585845859_ (gx#syntax-split-splice _hd1392114555_ '0))) (let ((_tl1396214013_ (let () (declare (not safe)) - (##vector-ref ___splice4375443755_ '1))) + (##vector-ref ___splice4585845859_ '1))) (_target1396014010_ (let () (declare (not safe)) - (##vector-ref ___splice4375443755_ '0)))) + (##vector-ref ___splice4585845859_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4384043841_ + (___match4594445945_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4375443755_ + ___splice4585845859_ _target1396014010_ _tl1396214013_) (let () @@ -12253,25 +12125,25 @@ (_g1391113983_))))) (let () (declare (not safe)) (_g1391113983_)))) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4375443755_ + (let ((___splice4585845859_ (gx#syntax-split-splice _hd1392114555_ '0))) (let ((_tl1396214013_ (let () (declare (not safe)) - (##vector-ref ___splice4375443755_ '1))) + (##vector-ref ___splice4585845859_ '1))) (_target1396014010_ (let () (declare (not safe)) - (##vector-ref ___splice4375443755_ '0)))) + (##vector-ref ___splice4585845859_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4384043841_ + (___match4594445945_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4375443755_ + ___splice4585845859_ _target1396014010_ _tl1396214013_) (let () (declare (not safe)) (_g1391113983_))))) @@ -12279,7 +12151,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4375443755_ + (let ((___splice4585845859_ (gx#syntax-split-splice _hd1392114555_ '0))) @@ -12288,20 +12160,20 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice4375443755_ '1))) + (##vector-ref ___splice4585845859_ '1))) (_target1396014010_ (let () (declare (not safe)) - (##vector-ref ___splice4375443755_ '0)))) + (##vector-ref ___splice4585845859_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4384043841_ + (___match4594445945_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4375443755_ + ___splice4585845859_ _target1396014010_ _tl1396214013_) (let () (declare (not safe)) (_g1391113983_))))) @@ -12310,7 +12182,7 @@ (declare (not safe)) (_g1391113983_))))))) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4375443755_ + (let ((___splice4585845859_ (gx#syntax-split-splice _hd1392114555_ '0))) @@ -12318,23 +12190,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4375443755_ + ___splice4585845859_ '1))) (_target1396014010_ (let () (declare (not safe)) (##vector-ref - ___splice4375443755_ + ___splice4585845859_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4384043841_ + (___match4594445945_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4375443755_ + ___splice4585845859_ _target1396014010_ _tl1396214013_) (let () @@ -12347,64 +12219,62 @@ (let () (declare (not safe)) (_g1391113983_))))))))) (define |gerbil/core$$[:0:]#alet*| (lambda (_$stx14943_) - (let* ((___stx4384343844_ _$stx14943_) + (let* ((___stx4594745948_ _$stx14943_) (_g1494915000_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4384343844_)))) - (let ((___kont4384643847_ (lambda () '#t)) - (___kont4384843849_ + ___stx4594745948_)))) + (let ((___kont4595045951_ (lambda () '#t)) + (___kont4595245953_ (lambda (_L15158_) - (let ((__tmp48973 (gx#datum->syntax '#f 'let)) - (__tmp48970 - (let ((__tmp48971 - (let ((__tmp48972 - (lambda (_g1517415177_ _g1517515180_) + (let ((__tmp50962 (gx#datum->syntax '#f 'let)) + (__tmp50960 + (let ((__tmp50961 + (foldr (lambda (_g1517415177_ _g1517515180_) (let () (declare (not safe)) (cons _g1517415177_ - _g1517515180_))))) - (declare (not safe)) - (foldr1 __tmp48972 '() _L15158_)))) + _g1517515180_))) + '() + _L15158_))) (declare (not safe)) - (cons '() __tmp48971)))) + (cons '() __tmp50961)))) (declare (not safe)) - (cons __tmp48973 __tmp48970)))) - (___kont4385243853_ + (cons __tmp50962 __tmp50960)))) + (___kont4595645957_ (lambda (_L15067_ _L15069_ _L15070_ _L15071_) - (let ((__tmp48981 (gx#datum->syntax '#f 'alet)) - (__tmp48974 - (let ((__tmp48980 + (let ((__tmp50969 (gx#datum->syntax '#f 'alet)) + (__tmp50963 + (let ((__tmp50968 (let () (declare (not safe)) (cons _L15070_ '()))) - (__tmp48975 - (let ((__tmp48976 - (let ((__tmp48977 - (let ((__tmp48978 - (let ((__tmp48979 - (lambda (_g1509215095_ + (__tmp50964 + (let ((__tmp50965 + (let ((__tmp50966 + (let ((__tmp50967 + (foldr (lambda (_g1509215095_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1509315098_) (let () (declare (not safe)) - (cons _g1509215095_ _g1509315098_))))) - (declare (not safe)) - (foldr1 __tmp48979 '() _L15067_)))) + (cons _g1509215095_ _g1509315098_))) + '() + _L15067_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L15069_ __tmp48978)))) + (cons _L15069_ __tmp50967)))) (declare (not safe)) - (cons _L15071_ __tmp48977)))) + (cons _L15071_ __tmp50966)))) (declare (not safe)) - (cons __tmp48976 '())))) + (cons __tmp50965 '())))) (declare (not safe)) - (cons __tmp48980 __tmp48975)))) + (cons __tmp50968 __tmp50964)))) (declare (not safe)) - (cons __tmp48981 __tmp48974))))) - (let* ((___match4392043921_ + (cons __tmp50969 __tmp50963))))) + (let* ((___match4602446025_ (lambda (_e1497915007_ _hd1497815011_ _tl1497715014_ @@ -12414,7 +12284,7 @@ _e1498515027_ _hd1498415031_ _tl1498315034_ - ___splice4385443855_ + ___splice4595845959_ _target1498615037_ _tl1498815040_) (letrec ((_loop1498915043_ @@ -12438,20 +12308,20 @@ _body1499315050_))))) (let ((_body1499415063_ (reverse _body1499315050_))) - (___kont4385243853_ + (___kont4595645957_ _body1499415063_ _tl1498315034_ _hd1498415031_ _hd1497815011_)))))) (_loop1498915043_ _target1498615037_ '())))) - (___match4389443895_ + (___match4599845999_ (lambda (_e1496015108_ _hd1495915112_ _tl1495815115_ _e1496315118_ _hd1496215122_ _tl1496115125_ - ___splice4385043851_ + ___splice4595445955_ _target1496415128_ _tl1496615131_) (letrec ((_loop1496715134_ @@ -12475,11 +12345,11 @@ _body1497115141_))))) (let ((_body1497215154_ (reverse _body1497115141_))) - (___kont4384843849_ + (___kont4595245953_ _body1497215154_)))))) (_loop1496715134_ _target1496415128_ '()))))) - (if (gx#stx-pair? ___stx4384343844_) - (let ((_e1495315190_ (gx#syntax-e ___stx4384343844_))) + (if (gx#stx-pair? ___stx4594745948_) + (let ((_e1495315190_ (gx#syntax-e ___stx4594745948_))) (let ((_tl1495115197_ (let () (declare (not safe)) (##cdr _e1495315190_))) (_hd1495215194_ @@ -12498,9 +12368,9 @@ (##car _e1495615200_)))) (if (gx#stx-null? _hd1495515204_) (if (gx#stx-null? _tl1495415207_) - (___kont4384643847_) + (___kont4595045951_) (if (gx#stx-pair/null? _tl1495415207_) - (let ((___splice4385043851_ + (let ((___splice4595445955_ (gx#syntax-split-splice _tl1495415207_ '0))) @@ -12508,23 +12378,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4385043851_ + ___splice4595445955_ '1))) (_target1496415128_ (let () (declare (not safe)) (##vector-ref - ___splice4385043851_ + ___splice4595445955_ '0)))) (if (gx#stx-null? _tl1496615131_) - (___match4389443895_ + (___match4599845999_ _e1495315190_ _hd1495215194_ _tl1495115197_ _e1495615200_ _hd1495515204_ _tl1495415207_ - ___splice4385043851_ + ___splice4595445955_ _target1496415128_ _tl1496615131_) (let () @@ -12546,7 +12416,7 @@ (##car _e1498515027_)))) (if (gx#stx-pair/null? _tl1495415207_) - (let ((___splice4385443855_ + (let ((___splice4595845959_ (gx#syntax-split-splice _tl1495415207_ '0))) @@ -12554,17 +12424,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4385443855_ + ___splice4595845959_ '1))) (_target1498615037_ (let () (declare (not safe)) (##vector-ref - ___splice4385443855_ + ___splice4595845959_ '0)))) (if (gx#stx-null? _tl1498815040_) - (___match4392043921_ + (___match4602446025_ _e1495315190_ _hd1495215194_ _tl1495115197_ @@ -12574,7 +12444,7 @@ _e1498515027_ _hd1498415031_ _tl1498315034_ - ___splice4385443855_ + ___splice4595845959_ _target1498615037_ _tl1498815040_) (let () @@ -12590,73 +12460,73 @@ (let () (declare (not safe)) (_g1494915000_)))))))) (define |gerbil/core$$[:0:]#@list| (lambda (_$stx15220_) - (let* ((___stx4392343924_ _$stx15220_) + (let* ((___stx4602746028_ _$stx15220_) (_g1523115309_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4392343924_)))) - (let ((___kont4392643927_ + ___stx4602746028_)))) + (let ((___kont4603046031_ (lambda () - (let ((__tmp48983 (gx#datum->syntax '#f 'quote)) - (__tmp48982 + (let ((__tmp50971 (gx#datum->syntax '#f 'quote)) + (__tmp50970 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp48983 __tmp48982)))) - (___kont4392843929_ + (cons __tmp50971 __tmp50970)))) + (___kont4603246033_ (lambda (_L15640_) - (let ((__tmp48985 (gx#datum->syntax '#f 'quote)) - (__tmp48984 + (let ((__tmp50973 (gx#datum->syntax '#f 'quote)) + (__tmp50972 (let () (declare (not safe)) (cons _L15640_ '())))) (declare (not safe)) - (cons __tmp48985 __tmp48984)))) - (___kont4393043931_ + (cons __tmp50973 __tmp50972)))) + (___kont4603446035_ (lambda (_L15588_) - (let ((__tmp48987 (gx#datum->syntax '#f 'quasiquote)) - (__tmp48986 + (let ((__tmp50975 (gx#datum->syntax '#f 'quasiquote)) + (__tmp50974 (let () (declare (not safe)) (cons _L15588_ '())))) (declare (not safe)) - (cons __tmp48987 __tmp48986)))) - (___kont4393243933_ (lambda (_L15535_) _L15535_)) - (___kont4393443935_ (lambda (_L15477_ _L15479_) _L15479_)) - (___kont4393643937_ + (cons __tmp50975 __tmp50974)))) + (___kont4603646037_ (lambda (_L15535_) _L15535_)) + (___kont4603846039_ (lambda (_L15477_ _L15479_) _L15479_)) + (___kont4604046041_ (lambda (_L15419_ _L15421_ _L15422_ _L15423_) - (let ((__tmp48993 (gx#datum->syntax '#f 'foldr)) - (__tmp48988 - (let ((__tmp48992 (gx#datum->syntax '#f 'cons)) - (__tmp48989 - (let ((__tmp48991 + (let ((__tmp50981 (gx#datum->syntax '#f 'foldr)) + (__tmp50976 + (let ((__tmp50980 (gx#datum->syntax '#f 'cons)) + (__tmp50977 + (let ((__tmp50979 (let () (declare (not safe)) (cons _L15423_ _L15419_))) - (__tmp48990 + (__tmp50978 (let () (declare (not safe)) (cons _L15422_ '())))) (declare (not safe)) - (cons __tmp48991 __tmp48990)))) + (cons __tmp50979 __tmp50978)))) (declare (not safe)) - (cons __tmp48992 __tmp48989)))) + (cons __tmp50980 __tmp50977)))) (declare (not safe)) - (cons __tmp48993 __tmp48988)))) - (___kont4393843939_ + (cons __tmp50981 __tmp50976)))) + (___kont4604246043_ (lambda (_L15365_ _L15367_ _L15368_) - (let ((__tmp48997 (gx#datum->syntax '#f 'cons)) - (__tmp48994 - (let ((__tmp48995 - (let ((__tmp48996 + (let ((__tmp50985 (gx#datum->syntax '#f 'cons)) + (__tmp50982 + (let ((__tmp50983 + (let ((__tmp50984 (let () (declare (not safe)) (cons _L15368_ _L15365_)))) (declare (not safe)) - (cons __tmp48996 '())))) + (cons __tmp50984 '())))) (declare (not safe)) - (cons _L15367_ __tmp48995)))) + (cons _L15367_ __tmp50983)))) (declare (not safe)) - (cons __tmp48997 __tmp48994)))) - (___kont4394043941_ (lambda (_L15326_) _L15326_))) - (let* ((___match4406244063_ + (cons __tmp50985 __tmp50982)))) + (___kont4604446045_ (lambda (_L15326_) _L15326_))) + (let* ((___match4616646167_ (lambda (_e1528415389_ _hd1528315393_ _tl1528215396_ @@ -12671,16 +12541,16 @@ (_L15422_ _hd1528615403_) (_L15423_ _hd1528315393_)) (if (gx#ellipsis? _L15421_) - (___kont4393643937_ + (___kont4604046041_ _L15419_ _L15421_ _L15422_ _L15423_) - (___kont4393843939_ + (___kont4604246043_ _tl1528515406_ _hd1528615403_ _hd1528315393_))))) - (___match4404444045_ + (___match4614846149_ (lambda (_e1527115447_ _hd1527015451_ _tl1526915454_ @@ -12693,8 +12563,8 @@ (let ((_L15477_ _hd1527615471_) (_L15479_ _hd1527315461_)) (if (gx#ellipsis? _L15477_) - (___kont4393443935_ _L15477_ _L15479_) - (___match4406244063_ + (___kont4603846039_ _L15477_ _L15479_) + (___match4616646167_ _e1527115447_ _hd1527015451_ _tl1526915454_ @@ -12704,8 +12574,8 @@ _e1527715467_ _hd1527615471_ _tl1527515474_)))))) - (if (gx#stx-pair? ___stx4392343924_) - (let ((_e1523515662_ (gx#syntax-e ___stx4392343924_))) + (if (gx#stx-pair? ___stx4602746028_) + (let ((_e1523515662_ (gx#syntax-e ___stx4602746028_))) (let ((_tl1523315669_ (let () (declare (not safe)) (##cdr _e1523515662_))) (_hd1523415666_ @@ -12713,7 +12583,7 @@ (declare (not safe)) (##car _e1523515662_)))) (if (gx#stx-null? _tl1523315669_) - (___kont4392643927_) + (___kont4603046031_) (if (gx#stx-pair? _tl1523315669_) (let ((_e1524215620_ (gx#syntax-e _tl1523315669_))) @@ -12727,7 +12597,7 @@ (##car _e1524215620_)))) (if (gx#identifier? _hd1524115624_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48999_| + |gerbil/core$$[1]#_g50987_| _hd1524115624_) (if (gx#stx-pair? _tl1524015627_) (let ((_e1524515630_ @@ -12743,9 +12613,9 @@ (##car _e1524515630_)))) (if (gx#stx-null? _tl1524315637_) - (___kont4392843929_ + (___kont4603246033_ _hd1524415634_) - (___match4406244063_ + (___match4616646167_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12755,12 +12625,12 @@ _e1524515630_ _hd1524415634_ _tl1524315637_)))) - (___kont4393843939_ + (___kont4604246043_ _tl1524015627_ _hd1524115624_ _hd1523415666_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48998_| + |gerbil/core$$[1]#_g50986_| _hd1524115624_) (if (gx#stx-pair? _tl1524015627_) (let ((_e1525515578_ @@ -12778,9 +12648,9 @@ (##car _e1525515578_)))) (if (gx#stx-null? _tl1525315585_) - (___kont4393043931_ + (___kont4603446035_ _hd1525415582_) - (___match4406244063_ + (___match4616646167_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12790,7 +12660,7 @@ _e1525515578_ _hd1525415582_ _tl1525315585_)))) - (___kont4393843939_ + (___kont4604246043_ _tl1524015627_ _hd1524115624_ _hd1523415666_)) @@ -12810,7 +12680,7 @@ (##car _e1527715467_)))) (if (gx#stx-null? _tl1527515474_) - (___match4404444045_ + (___match4614846149_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12820,7 +12690,7 @@ _e1527715467_ _hd1527615471_ _tl1527515474_) - (___match4406244063_ + (___match4616646167_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12830,7 +12700,7 @@ _e1527715467_ _hd1527615471_ _tl1527515474_)))) - (___kont4393843939_ + (___kont4604246043_ _tl1524015627_ _hd1524115624_ _hd1523415666_)))) @@ -12854,8 +12724,8 @@ (_hd1526515529_ (let () (declare (not safe)) (##car _e1526615525_)))) (if (gx#stx-null? _tl1526415532_) - (___kont4393243933_ _hd1526515529_) - (___match4406244063_ + (___kont4603646037_ _hd1526515529_) + (___match4616646167_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12866,7 +12736,7 @@ _hd1526515529_ _tl1526415532_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4393843939_ + (___kont4604246043_ _tl1524015627_ _hd1524115624_ _hd1523415666_)) @@ -12884,7 +12754,7 @@ (_hd1527615471_ (let () (declare (not safe)) (##car _e1527715467_)))) (if (gx#stx-null? _tl1527515474_) - (___match4404444045_ + (___match4614846149_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12894,7 +12764,7 @@ _e1527715467_ _hd1527615471_ _tl1527515474_) - (___match4406244063_ + (___match4616646167_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12905,7 +12775,7 @@ _hd1527615471_ _tl1527515474_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4393843939_ + (___kont4604246043_ _tl1524015627_ _hd1524115624_ _hd1523415666_)))) @@ -12923,7 +12793,7 @@ (##car _e1527715467_)))) (if (gx#stx-null? _tl1527515474_) - (___match4404444045_ + (___match4614846149_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12933,7 +12803,7 @@ _e1527715467_ _hd1527615471_ _tl1527515474_) - (___match4406244063_ + (___match4616646167_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12943,56 +12813,54 @@ _e1527715467_ _hd1527615471_ _tl1527515474_)))) - (___kont4393843939_ + (___kont4604246043_ _tl1524015627_ _hd1524115624_ _hd1523415666_)))))) - (___kont4394043941_ _tl1523315669_))))) + (___kont4604446045_ _tl1523315669_))))) (let () (declare (not safe)) (_g1523115309_)))))))) (define |gerbil/core$$[:0:]#quasiquote| (lambda (_stx15680_) (letrec ((_simple-quote?15683_ (lambda (_e16375_) - (let* ((___stx4408344084_ _e16375_) + (let* ((___stx4618746188_ _e16375_) (_g1638316420_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4408344084_)))) - (let ((___kont4408644087_ (lambda () '#f)) - (___kont4408844089_ (lambda () '#f)) - (___kont4409044091_ + ___stx4618746188_)))) + (let ((___kont4619046191_ (lambda () '#f)) + (___kont4619246193_ (lambda () '#f)) + (___kont4619446195_ (lambda (_L16534_ _L16536_) (if (_simple-quote?15683_ _L16536_) (_simple-quote?15683_ _L16534_) '#f))) - (___kont4409244093_ + (___kont4619646197_ (lambda (_L16495_) (_simple-quote?15683_ - (let ((__tmp49000 - (lambda (_g1650816511_ _g1650916514_) + (foldr (lambda (_g1650816511_ _g1650916514_) (let () (declare (not safe)) - (cons _g1650816511_ - _g1650916514_))))) - (declare (not safe)) - (foldr1 __tmp49000 '() _L16495_))))) - (___kont4409644097_ + (cons _g1650816511_ _g1650916514_))) + '() + _L16495_)))) + (___kont4620046201_ (lambda (_L16442_) (_simple-quote?15683_ _L16442_))) - (___kont4409844099_ (lambda () '#t))) + (___kont4620246203_ (lambda () '#t))) (let* ((_g1638116454_ (lambda () - (if (gx#stx-box? ___stx4408344084_) + (if (gx#stx-box? ___stx4618746188_) (let ((_e1641416438_ (unbox (gx#syntax-e - ___stx4408344084_)))) - (___kont4409644097_ _e1641416438_)) - (___kont4409844099_)))) - (___match4415444155_ + ___stx4618746188_)))) + (___kont4620046201_ _e1641416438_)) + (___kont4620246203_)))) + (___match4625846259_ (lambda (_e1640316461_ - ___splice4409444095_ + ___splice4619846199_ _target1640416465_ _tl1640616468_) (letrec ((_loop1640716471_ @@ -13020,20 +12888,20 @@ _e1641116478_))))) (let ((_e1641216491_ (reverse _e1641116478_))) - (___kont4409244093_ + (___kont4619646197_ _e1641216491_)))))) (_loop1640716471_ _target1640416465_ '())))) (_g1638016517_ (lambda () - (if (gx#stx-vector? ___stx4408344084_) + (if (gx#stx-vector? ___stx4618746188_) (let ((_e1640316461_ (vector->list (gx#syntax-e - ___stx4408344084_)))) + ___stx4618746188_)))) (if (gx#stx-pair/null? _e1640316461_) - (let ((___splice4409444095_ + (let ((___splice4619846199_ (gx#syntax-split-splice _e1640316461_ '0))) @@ -13041,29 +12909,29 @@ (let () (declare (not safe)) (##vector-ref - ___splice4409444095_ + ___splice4619846199_ '1))) (_target1640416465_ (let () (declare (not safe)) (##vector-ref - ___splice4409444095_ + ___splice4619846199_ '0)))) (if (gx#stx-null? _tl1640616468_) - (___match4415444155_ + (___match4625846259_ _e1640316461_ - ___splice4409444095_ + ___splice4619846199_ _target1640416465_ _tl1640616468_) - (___kont4409844099_)))) - (___kont4409844099_))) + (___kont4620246203_)))) + (___kont4620246203_))) (let () (declare (not safe)) (_g1638116454_)))))) - (if (gx#stx-pair? ___stx4408344084_) + (if (gx#stx-pair? ___stx4618746188_) (let ((_e1638716585_ - (gx#syntax-e ___stx4408344084_))) + (gx#syntax-e ___stx4618746188_))) (let ((_tl1638516592_ (let () (declare (not safe)) @@ -13074,7 +12942,7 @@ (##car _e1638716585_)))) (if (gx#identifier? _hd1638616589_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g49002_| + |gerbil/core$$[1]#_g50989_| _hd1638616589_) (if (gx#stx-pair? _tl1638516592_) (let ((_e1639016595_ @@ -13090,15 +12958,15 @@ (##car _e1639016595_)))) (if (gx#stx-null? _tl1638816602_) - (___kont4408644087_) - (___kont4409044091_ + (___kont4619046191_) + (___kont4619446195_ _tl1638516592_ _hd1638616589_)))) - (___kont4409044091_ + (___kont4619446195_ _tl1638516592_ _hd1638616589_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g49001_| + |gerbil/core$$[1]#_g50988_| _hd1638616589_) (if (gx#stx-pair? _tl1638516592_) (let ((_e1639616564_ @@ -13116,17 +12984,17 @@ (##car _e1639616564_)))) (if (gx#stx-null? _tl1639416571_) - (___kont4408844089_) - (___kont4409044091_ + (___kont4619246193_) + (___kont4619446195_ _tl1638516592_ _hd1638616589_)))) - (___kont4409044091_ + (___kont4619446195_ _tl1638516592_ _hd1638616589_)) - (___kont4409044091_ + (___kont4619446195_ _tl1638516592_ _hd1638616589_))) - (___kont4409044091_ + (___kont4619446195_ _tl1638516592_ _hd1638616589_)))) (let () @@ -13134,14 +13002,14 @@ (_g1638016517_)))))))) (_generate15685_ (lambda (_e15747_ _d15749_) - (let* ((___stx4416144162_ _e15747_) + (let* ((___stx4626546266_ _e15747_) (_g1575815816_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4416144162_)))) - (let ((___kont4416444165_ + ___stx4626546266_)))) + (let ((___kont4626846269_ (lambda (_L16327_) (let* ((_g1634016348_ (lambda (_g1634116344_) @@ -13153,29 +13021,29 @@ (lambda (_g1634116352_) ((lambda (_L16355_) (let () - (let ((__tmp49009 + (let ((__tmp50996 (gx#datum->syntax '#f 'list)) - (__tmp49003 - (let ((__tmp49005 - (let ((__tmp49008 + (__tmp50990 + (let ((__tmp50992 + (let ((__tmp50995 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp49006 - (let ((__tmp49007 + (__tmp50993 + (let ((__tmp50994 (gx#datum->syntax '#f 'quasiquote))) (declare (not safe)) - (cons __tmp49007 '())))) + (cons __tmp50994 '())))) (declare (not safe)) - (cons __tmp49008 __tmp49006))) - (__tmp49004 + (cons __tmp50995 __tmp50993))) + (__tmp50991 (let () (declare (not safe)) (cons _L16355_ '())))) (declare (not safe)) - (cons __tmp49005 __tmp49004)))) + (cons __tmp50992 __tmp50991)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49009 __tmp49003)))) + (cons __tmp50996 __tmp50990)))) _g1634116352_)))) (_g1633916367_ (_generate15685_ @@ -13183,7 +13051,7 @@ (let () (declare (not safe)) (fx+ _d15749_ '1))))))) - (___kont4416644167_ + (___kont4627046271_ (lambda (_L16256_) (if (let () (declare (not safe)) @@ -13199,30 +13067,30 @@ (lambda (_g1627016281_) ((lambda (_L16284_) (let () - (let ((__tmp49016 + (let ((__tmp51003 (gx#datum->syntax '#f 'list)) - (__tmp49010 - (let ((__tmp49012 - (let ((__tmp49015 + (__tmp50997 + (let ((__tmp50999 + (let ((__tmp51002 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp49013 - (let ((__tmp49014 + (__tmp51000 + (let ((__tmp51001 (gx#datum->syntax '#f 'unquote))) (declare (not safe)) - (cons __tmp49014 '())))) + (cons __tmp51001 '())))) (declare (not safe)) - (cons __tmp49015 __tmp49013))) - (__tmp49011 + (cons __tmp51002 __tmp51000))) + (__tmp50998 (let () (declare (not safe)) (cons _L16284_ '())))) (declare (not safe)) - (cons __tmp49012 __tmp49011)))) + (cons __tmp50999 __tmp50998)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49016 - __tmp49010)))) + (cons __tmp51003 + __tmp50997)))) _g1627016281_)))) (_g1626816296_ (_generate15685_ @@ -13230,38 +13098,38 @@ (let () (declare (not safe)) (fx- _d15749_ '1)))))))) - (___kont4416844169_ + (___kont4627246273_ (lambda (_L16185_) (if (let () (declare (not safe)) (fxzero? _d15749_)) - (let ((__tmp49031 + (let ((__tmp51018 (gx#datum->syntax '#f 'foldr)) - (__tmp49024 - (let ((__tmp49030 + (__tmp51011 + (let ((__tmp51017 (gx#datum->syntax '#f 'cons)) - (__tmp49025 - (let ((__tmp49027 - (let ((__tmp49029 + (__tmp51012 + (let ((__tmp51014 + (let ((__tmp51016 (gx#datum->syntax '#f 'quote)) - (__tmp49028 + (__tmp51015 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp49029 __tmp49028))) - (__tmp49026 (let () (declare (not safe)) (cons _L16185_ '())))) + (cons __tmp51016 __tmp51015))) + (__tmp51013 (let () (declare (not safe)) (cons _L16185_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49027 - __tmp49026)))) + (cons __tmp51014 + __tmp51013)))) (declare (not safe)) - (cons __tmp49030 __tmp49025)))) + (cons __tmp51017 __tmp51012)))) (declare (not safe)) - (cons __tmp49031 __tmp49024)) + (cons __tmp51018 __tmp51011)) (let* ((_g1619816206_ (lambda (_g1619916202_) (gx#raise-syntax-error @@ -13272,32 +13140,32 @@ (lambda (_g1619916210_) ((lambda (_L16213_) (let () - (let ((__tmp49023 + (let ((__tmp51010 (gx#datum->syntax '#f 'list)) - (__tmp49017 - (let ((__tmp49019 - (let ((__tmp49022 + (__tmp51004 + (let ((__tmp51006 + (let ((__tmp51009 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp49020 - (let ((__tmp49021 + (__tmp51007 + (let ((__tmp51008 (gx#datum->syntax '#f 'unquote-splicing))) (declare (not safe)) - (cons __tmp49021 '())))) + (cons __tmp51008 '())))) (declare (not safe)) - (cons __tmp49022 __tmp49020))) - (__tmp49018 + (cons __tmp51009 __tmp51007))) + (__tmp51005 (let () (declare (not safe)) (cons _L16213_ '())))) (declare (not safe)) - (cons __tmp49019 __tmp49018)))) + (cons __tmp51006 __tmp51005)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49023 - __tmp49017)))) + (cons __tmp51010 + __tmp51004)))) _g1619916210_)))) (_g1619716225_ (_generate15685_ @@ -13305,7 +13173,7 @@ (let () (declare (not safe)) (fx- _d15749_ '1)))))))) - (___kont4417044171_ + (___kont4627446275_ (lambda (_L16110_ _L16112_) (let* ((_g1612716135_ (lambda (_g1612816131_) @@ -13317,30 +13185,30 @@ (lambda (_g1612816139_) ((lambda (_L16142_) (let () - (let ((__tmp49036 + (let ((__tmp51023 (gx#datum->syntax '#f 'foldr)) - (__tmp49032 - (let ((__tmp49035 + (__tmp51019 + (let ((__tmp51022 (gx#datum->syntax '#f 'cons)) - (__tmp49033 - (let ((__tmp49034 + (__tmp51020 + (let ((__tmp51021 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L16112_ '())))) (declare (not safe)) - (cons _L16142_ __tmp49034)))) + (cons _L16142_ __tmp51021)))) (declare (not safe)) - (cons __tmp49035 __tmp49033)))) + (cons __tmp51022 __tmp51020)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49036 __tmp49032)))) + (cons __tmp51023 __tmp51019)))) _g1612816139_)))) (_g1612616154_ (_generate15685_ _L16110_ _d15749_))))) - (___kont4417244173_ + (___kont4627646277_ (lambda (_L15996_ _L15998_) (let* ((_g1600916024_ (lambda (_g1601016020_) @@ -13378,16 +13246,16 @@ (if (gx#stx-null? _tl1601616048_) ((lambda (_L16051_ _L16053_) (let () - (let ((__tmp49039 (gx#datum->syntax '#f 'cons)) - (__tmp49037 - (let ((__tmp49038 + (let ((__tmp53000 (gx#datum->syntax '#f 'cons)) + (__tmp52998 + (let ((__tmp52999 (let () (declare (not safe)) (cons _L16051_ '())))) (declare (not safe)) - (cons _L16053_ __tmp49038)))) + (cons _L16053_ __tmp52999)))) (declare (not safe)) - (cons __tmp49039 __tmp49037)))) + (cons __tmp53000 __tmp52998)))) _hd1601716045_ _hd1601416035_) (_g1600916024_ _g1601016028_)))) @@ -13400,7 +13268,7 @@ (_generate15685_ _L15996_ _d15749_)))))) - (___kont4417444175_ + (___kont4627846279_ (lambda (_L15926_) (let* ((_g1594015948_ (lambda (_g1594115944_) @@ -13412,29 +13280,28 @@ (lambda (_g1594115952_) ((lambda (_L15955_) (let () - (let ((__tmp49041 + (let ((__tmp53002 (gx#datum->syntax '#f 'list->vector)) - (__tmp49040 + (__tmp53001 (let () (declare (not safe)) (cons _L15955_ '())))) (declare (not safe)) - (cons __tmp49041 __tmp49040)))) + (cons __tmp53002 __tmp53001)))) _g1594115952_)))) (_g1593915967_ (_generate15685_ - (let ((__tmp49042 - (lambda (_g1597015973_ _g1597115976_) + (foldr (lambda (_g1597015973_ _g1597115976_) (let () (declare (not safe)) (cons _g1597015973_ - _g1597115976_))))) - (declare (not safe)) - (foldr1 __tmp49042 '() _L15926_)) + _g1597115976_))) + '() + _L15926_) _d15749_))))) - (___kont4417844179_ + (___kont4628246283_ (lambda (_L15844_) (let* ((_g1585415862_ (lambda (_g1585515858_) @@ -13446,39 +13313,39 @@ (lambda (_g1585515866_) ((lambda (_L15869_) (let () - (let ((__tmp49044 + (let ((__tmp53004 (gx#datum->syntax '#f 'box)) - (__tmp49043 + (__tmp53003 (let () (declare (not safe)) (cons _L15869_ '())))) (declare (not safe)) - (cons __tmp49044 __tmp49043)))) + (cons __tmp53004 __tmp53003)))) _g1585515866_)))) (_g1585315881_ (_generate15685_ _L15844_ _d15749_))))) - (___kont4418044181_ + (___kont4628446285_ (lambda (_L15823_) - (let ((__tmp49046 (gx#datum->syntax '#f 'quote)) - (__tmp49045 + (let ((__tmp53006 (gx#datum->syntax '#f 'quote)) + (__tmp53005 (let () (declare (not safe)) (cons _L15823_ '())))) (declare (not safe)) - (cons __tmp49046 __tmp49045))))) + (cons __tmp53006 __tmp53005))))) (let* ((_g1575615885_ (lambda () - (if (gx#stx-box? ___stx4416144162_) + (if (gx#stx-box? ___stx4626546266_) (let ((_e1580915840_ (unbox (gx#syntax-e - ___stx4416144162_)))) - (___kont4417844179_ _e1580915840_)) - (___kont4418044181_ ___stx4416144162_)))) - (___match4428044281_ + ___stx4626546266_)))) + (___kont4628246283_ _e1580915840_)) + (___kont4628446285_ ___stx4626546266_)))) + (___match4638446385_ (lambda (_e1579815892_ - ___splice4417644177_ + ___splice4628046281_ _target1579915896_ _tl1580115899_) (letrec ((_loop1580215902_ @@ -13506,20 +13373,20 @@ _e1580615909_))))) (let ((_e1580715922_ (reverse _e1580615909_))) - (___kont4417444175_ + (___kont4627846279_ _e1580715922_)))))) (_loop1580215902_ _target1579915896_ '())))) (_g1575515979_ (lambda () - (if (gx#stx-vector? ___stx4416144162_) + (if (gx#stx-vector? ___stx4626546266_) (let ((_e1579815892_ (vector->list (gx#syntax-e - ___stx4416144162_)))) + ___stx4626546266_)))) (if (gx#stx-pair/null? _e1579815892_) - (let ((___splice4417644177_ + (let ((___splice4628046281_ (gx#syntax-split-splice _e1579815892_ '0))) @@ -13527,31 +13394,31 @@ (let () (declare (not safe)) (##vector-ref - ___splice4417644177_ + ___splice4628046281_ '1))) (_target1579915896_ (let () (declare (not safe)) (##vector-ref - ___splice4417644177_ + ___splice4628046281_ '0)))) (if (gx#stx-null? _tl1580115899_) - (___match4428044281_ + (___match4638446385_ _e1579815892_ - ___splice4417644177_ + ___splice4628046281_ _target1579915896_ _tl1580115899_) - (___kont4418044181_ - ___stx4416144162_)))) - (___kont4418044181_ - ___stx4416144162_))) + (___kont4628446285_ + ___stx4626546266_)))) + (___kont4628446285_ + ___stx4626546266_))) (let () (declare (not safe)) (_g1575615885_)))))) - (if (gx#stx-pair? ___stx4416144162_) + (if (gx#stx-pair? ___stx4626546266_) (let ((_e1576316307_ - (gx#syntax-e ___stx4416144162_))) + (gx#syntax-e ___stx4626546266_))) (let ((_tl1576116314_ (let () (declare (not safe)) @@ -13562,7 +13429,7 @@ (##car _e1576316307_)))) (if (gx#identifier? _hd1576216311_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g49050_| + |gerbil/core$$[1]#_g53010_| _hd1576216311_) (if (gx#stx-pair? _tl1576116314_) (let ((_e1576616317_ @@ -13578,16 +13445,16 @@ (##car _e1576616317_)))) (if (gx#stx-null? _tl1576416324_) - (___kont4416444165_ + (___kont4626846269_ _hd1576516321_) - (___kont4417244173_ + (___kont4627646277_ _tl1576116314_ _hd1576216311_)))) - (___kont4417244173_ + (___kont4627646277_ _tl1576116314_ _hd1576216311_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g49049_| + |gerbil/core$$[1]#_g53009_| _hd1576216311_) (if (gx#stx-pair? _tl1576116314_) (let ((_e1577316246_ @@ -13605,16 +13472,16 @@ (##car _e1577316246_)))) (if (gx#stx-null? _tl1577116253_) - (___kont4416644167_ + (___kont4627046271_ _hd1577216250_) - (___kont4417244173_ + (___kont4627646277_ _tl1576116314_ _hd1576216311_)))) - (___kont4417244173_ + (___kont4627646277_ _tl1576116314_ _hd1576216311_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g49048_| + |gerbil/core$$[1]#_g53008_| _hd1576216311_) (if (gx#stx-pair? _tl1576116314_) @@ -13629,11 +13496,11 @@ (_hd1577916179_ (let () (declare (not safe)) (##car _e1578016175_)))) (if (gx#stx-null? _tl1577816182_) - (___kont4416844169_ _hd1577916179_) - (___kont4417244173_ _tl1576116314_ _hd1576216311_)))) - (___kont4417244173_ _tl1576116314_ _hd1576216311_)) + (___kont4627246273_ _hd1577916179_) + (___kont4627646277_ _tl1576116314_ _hd1576216311_)))) + (___kont4627646277_ _tl1576116314_ _hd1576216311_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4417244173_ + (___kont4627646277_ _tl1576116314_ _hd1576216311_)))) (if (gx#stx-pair? _hd1576216311_) @@ -13650,7 +13517,7 @@ (if (gx#identifier? _hd1578716094_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g49047_| + |gerbil/core$$[1]#_g53007_| _hd1578716094_) (if (gx#stx-pair? _tl1578616097_) @@ -13667,18 +13534,18 @@ (if (let () (declare (not safe)) (fxzero? _d15749_)) (let ((_L16110_ _tl1576116314_) (_L16112_ _hd1579016104_)) - (___kont4417044171_ _L16110_ _L16112_)) - (___kont4417244173_ + (___kont4627446275_ _L16110_ _L16112_)) + (___kont4627646277_ _tl1576116314_ _hd1576216311_)) - (___kont4417244173_ _tl1576116314_ _hd1576216311_)))) - (___kont4417244173_ _tl1576116314_ _hd1576216311_)) - (___kont4417244173_ _tl1576116314_ _hd1576216311_)) + (___kont4627646277_ _tl1576116314_ _hd1576216311_)))) + (___kont4627646277_ _tl1576116314_ _hd1576216311_)) + (___kont4627646277_ _tl1576116314_ _hd1576216311_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4417244173_ + (___kont4627646277_ _tl1576116314_ _hd1576216311_)))) - (___kont4417244173_ + (___kont4627646277_ _tl1576116314_ _hd1576216311_))))) (let () @@ -13716,16 +13583,16 @@ (if (gx#stx-null? _tl1569315725_) ((lambda (_L15728_) (if (_simple-quote?15683_ _L15728_) - (let ((__tmp49052 + (let ((__tmp53012 (gx#datum->syntax '#f 'quote)) - (__tmp49051 + (__tmp53011 (let () (declare (not safe)) (cons _L15728_ '())))) (declare (not safe)) - (cons __tmp49052 __tmp49051)) + (cons __tmp53012 __tmp53011)) (_generate15685_ _L15728_ '0))) _hd1569415722_) (_g1568715701_ _g1568815705_)))) @@ -13734,41 +13601,41 @@ (_g1568615743_ _stx15680_))))) (define |gerbil/core$$[:0:]#delay| (lambda (_$stx16615_) - (let* ((___stx4428744288_ _$stx16615_) + (let* ((___stx4639146392_ _$stx16615_) (_g1662016641_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4428744288_)))) - (let ((___kont4429044291_ + ___stx4639146392_)))) + (let ((___kont4639446395_ (lambda (_L16709_) - (let ((__tmp49054 (gx#datum->syntax '#f 'quote)) - (__tmp49053 + (let ((__tmp53014 (gx#datum->syntax '#f 'quote)) + (__tmp53013 (let () (declare (not safe)) (cons _L16709_ '())))) (declare (not safe)) - (cons __tmp49054 __tmp49053)))) - (___kont4429244293_ + (cons __tmp53014 __tmp53013)))) + (___kont4639646397_ (lambda (_L16668_) - (let ((__tmp49060 (gx#datum->syntax '#f 'make-promise)) - (__tmp49055 - (let ((__tmp49056 - (let ((__tmp49059 + (let ((__tmp53020 (gx#datum->syntax '#f 'make-promise)) + (__tmp53015 + (let ((__tmp53016 + (let ((__tmp53019 (gx#datum->syntax '#f 'lambda%)) - (__tmp49057 - (let ((__tmp49058 + (__tmp53017 + (let ((__tmp53018 (let () (declare (not safe)) (cons _L16668_ '())))) (declare (not safe)) - (cons '() __tmp49058)))) + (cons '() __tmp53018)))) (declare (not safe)) - (cons __tmp49059 __tmp49057)))) + (cons __tmp53019 __tmp53017)))) (declare (not safe)) - (cons __tmp49056 '())))) + (cons __tmp53016 '())))) (declare (not safe)) - (cons __tmp49060 __tmp49055))))) - (let ((___match4430844309_ + (cons __tmp53020 __tmp53015))))) + (let ((___match4641246413_ (lambda (_e1662516689_ _hd1662416693_ _tl1662316696_ @@ -13777,10 +13644,10 @@ _tl1662616706_) (let ((_L16709_ _hd1662716703_)) (if (gx#stx-datum? _L16709_) - (___kont4429044291_ _L16709_) - (___kont4429244293_ _hd1662716703_)))))) - (if (gx#stx-pair? ___stx4428744288_) - (let ((_e1662516689_ (gx#syntax-e ___stx4428744288_))) + (___kont4639446395_ _L16709_) + (___kont4639646397_ _hd1662716703_)))))) + (if (gx#stx-pair? ___stx4639146392_) + (let ((_e1662516689_ (gx#syntax-e ___stx4639146392_))) (let ((_tl1662316696_ (let () (declare (not safe)) (##cdr _e1662516689_))) (_hd1662416693_ @@ -13798,7 +13665,7 @@ (declare (not safe)) (##car _e1662816699_)))) (if (gx#stx-null? _tl1662616706_) - (___match4430844309_ + (___match4641246413_ _e1662516689_ _hd1662416693_ _tl1662316696_ @@ -13817,23 +13684,23 @@ (let _lp16851_ ((_rest16854_ _rest16848_) (_hd16856_ '()) (_body16857_ '())) - (let* ((___stx4434544346_ _rest16854_) + (let* ((___stx4644946450_ _rest16854_) (_g1686016872_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4434544346_)))) - (let ((___kont4434844349_ + ___stx4644946450_)))) + (let ((___kont4645246453_ (lambda (_L16900_ _L16902_) - (let* ((___stx4432544326_ _L16902_) + (let* ((___stx4642946430_ _L16902_) (_g1691916926_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4432544326_)))) - (let ((___kont4432844329_ + ___stx4642946430_)))) + (let ((___kont4643246433_ (lambda () (let ((_arg16962_ (gx#genident))) (_lp16851_ @@ -13845,21 +13712,16 @@ (declare (not safe)) (cons _arg16962_ _body16857_)))))) - (___kont4433044331_ + (___kont4643446435_ (lambda () (if (gx#stx-null? _L16900_) (let ((_tail16948_ (gx#genident))) - (values (let () - (declare - (not safe)) - (foldl1 cons + (values (foldl cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tail16948_ - _hd16856_)) - (let ((__tmp49061 (list _tail16948_))) - (declare (not safe)) - (foldl1 cons __tmp49061 _body16857_)) + _tail16948_ + _hd16856_) + (foldl cons (list _tail16948_) _body16857_) '#t)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error @@ -13867,7 +13729,7 @@ '"bad syntax; cut ellipsis <...> not in tail position" _stx16726_ _L16902_)))) - (___kont4433244333_ + (___kont4643646437_ (lambda () (_lp16851_ _L16900_ @@ -13875,25 +13737,25 @@ (let () (declare (not safe)) (cons _L16902_ _body16857_)))))) - (if (gx#identifier? ___stx4432544326_) + (if (gx#identifier? ___stx4642946430_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g49063_| - ___stx4432544326_) - (___kont4432844329_) + |gerbil/core$$[1]#_g53022_| + ___stx4642946430_) + (___kont4643246433_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g49062_| - ___stx4432544326_) - (___kont4433044331_) - (___kont4433244333_))) - (___kont4433244333_)))))) - (___kont4435044351_ + |gerbil/core$$[1]#_g53021_| + ___stx4642946430_) + (___kont4643446435_) + (___kont4643646437_))) + (___kont4643646437_)))))) + (___kont4645446455_ (lambda () (values (reverse _hd16856_) (reverse _body16857_) '#f)))) - (if (gx#stx-pair? ___stx4434544346_) + (if (gx#stx-pair? ___stx4644946450_) (let ((_e1686616890_ - (gx#syntax-e ___stx4434544346_))) + (gx#syntax-e ___stx4644946450_))) (let ((_tl1686416897_ (let () (declare (not safe)) @@ -13902,10 +13764,10 @@ (let () (declare (not safe)) (##car _e1686616890_)))) - (___kont4434844349_ + (___kont4645246453_ _tl1686416897_ _hd1686516894_))) - (___kont4435044351_)))))))) + (___kont4645446455_)))))))) (let* ((_g1673216743_ (lambda (_g1673316739_) (gx#raise-syntax-error @@ -13926,35 +13788,35 @@ (##cdr _e1673716750_)))) ((lambda (_L16760_) (if (and (gx#stx-list? _L16760_) - (let ((__tmp49074 + (let ((__tmp53033 (gx#stx-null? _L16760_))) (declare (not safe)) - (not __tmp49074))) - (let ((_g49064_ (_generate16729_ _L16760_))) + (not __tmp53033))) + (let ((_g53023_ (_generate16729_ _L16760_))) (begin - (let ((_g49065_ + (let ((_g53024_ (let () (declare (not safe)) - (if (##values? _g49064_) - (##vector-length _g49064_) + (if (##values? _g53023_) + (##vector-length _g53023_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49065_ 3))) + (##fx= _g53024_ 3))) (error "Context expects 3 values" - _g49065_))) + _g53024_))) (let ((_hd16773_ (let () (declare (not safe)) - (##vector-ref _g49064_ 0))) + (##vector-ref _g53023_ 0))) (_body16775_ (let () (declare (not safe)) - (##vector-ref _g49064_ 1))) + (##vector-ref _g53023_ 1))) (_tail?16776_ (let () (declare (not safe)) - (##vector-ref _g49064_ 2)))) + (##vector-ref _g53023_ 2)))) (let* ((_g1677816786_ (lambda (_g1677916782_) (gx#raise-syntax-error @@ -13978,34 +13840,34 @@ (let () (let () (if _tail?16776_ - (let ((__tmp49073 + (let ((__tmp53032 (gx#datum->syntax '#f 'lambda%)) - (__tmp49069 - (let ((__tmp49070 - (let ((__tmp49071 - (let ((__tmp49072 + (__tmp53028 + (let ((__tmp53029 + (let ((__tmp53030 + (let ((__tmp53031 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'apply))) (declare (not safe)) - (cons __tmp49072 _L16821_)))) + (cons __tmp53031 _L16821_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49071 '())))) + (cons __tmp53030 '())))) (declare (not safe)) - (cons _L16793_ __tmp49070)))) + (cons _L16793_ __tmp53029)))) (declare (not safe)) - (cons __tmp49073 __tmp49069)) - (let ((__tmp49068 + (cons __tmp53032 __tmp53028)) + (let ((__tmp53027 (gx#datum->syntax '#f 'lambda%)) - (__tmp49066 - (let ((__tmp49067 + (__tmp53025 + (let ((__tmp53026 (let () (declare (not safe)) (cons _L16821_ '())))) (declare (not safe)) - (cons _L16793_ __tmp49067)))) + (cons _L16793_ __tmp53026)))) (declare (not safe)) - (cons __tmp49068 __tmp49066)))))) + (cons __tmp53027 __tmp53025)))))) _g1680716818_)))) (_g1680516836_ _body16775_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> diff --git a/src/bootstrap/gerbil/core__5.scm b/src/bootstrap/gerbil/core__5.scm index 70a8827f9..9ad982cd2 100644 --- a/src/bootstrap/gerbil/core__5.scm +++ b/src/bootstrap/gerbil/core__5.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$$[1]#_g49159_| + (define |gerbil/core$$[1]#_g51099_| (##structure gx#syntax-quote::t 'quote @@ -10,56 +10,55 @@ (begin (define |gerbil/core$$[:0:]#defsyntax| (lambda (_$stx17003_) - (let* ((___stx4436144362_ _$stx17003_) + (let* ((___stx4646546466_ _$stx17003_) (_g1700817047_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4436144362_)))) - (let ((___kont4436444365_ + ___stx4646546466_)))) + (let ((___kont4646846469_ (lambda (_L17170_ _L17172_ _L17173_) - (let ((__tmp49082 (gx#datum->syntax '#f 'define-syntax)) - (__tmp49075 - (let ((__tmp49076 - (let ((__tmp49077 - (let ((__tmp49081 + (let ((__tmp51030 (gx#datum->syntax '#f 'define-syntax)) + (__tmp51024 + (let ((__tmp51025 + (let ((__tmp51026 + (let ((__tmp51029 (gx#datum->syntax '#f 'lambda)) - (__tmp49078 - (let ((__tmp49079 - (let ((__tmp49080 - (lambda (_g1719217195_ + (__tmp51027 + (let ((__tmp51028 + (foldr (lambda (_g1719217195_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1719317198_) (let () (declare (not safe)) - (cons _g1719217195_ _g1719317198_))))) - (declare (not safe)) - (foldr1 __tmp49080 '() _L17170_)))) + (cons _g1719217195_ _g1719317198_))) + '() + _L17170_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L17172_ __tmp49079)))) + (cons _L17172_ __tmp51028)))) (declare (not safe)) - (cons __tmp49081 __tmp49078)))) + (cons __tmp51029 __tmp51027)))) (declare (not safe)) - (cons __tmp49077 '())))) + (cons __tmp51026 '())))) (declare (not safe)) - (cons _L17173_ __tmp49076)))) + (cons _L17173_ __tmp51025)))) (declare (not safe)) - (cons __tmp49082 __tmp49075)))) - (___kont4436844369_ + (cons __tmp51030 __tmp51024)))) + (___kont4647246473_ (lambda (_L17084_ _L17086_) - (let ((__tmp49085 (gx#datum->syntax '#f 'define-syntax)) - (__tmp49083 - (let ((__tmp49084 + (let ((__tmp51033 (gx#datum->syntax '#f 'define-syntax)) + (__tmp51031 + (let ((__tmp51032 (let () (declare (not safe)) (cons _L17084_ '())))) (declare (not safe)) - (cons _L17086_ __tmp49084)))) + (cons _L17086_ __tmp51032)))) (declare (not safe)) - (cons __tmp49085 __tmp49083))))) - (let* ((___match4441644417_ + (cons __tmp51033 __tmp51031))))) + (let* ((___match4652046521_ (lambda (_e1703517054_ _hd1703417058_ _tl1703317061_ @@ -72,9 +71,9 @@ (let ((_L17084_ _hd1704017078_) (_L17086_ _hd1703717068_)) (if (gx#identifier? _L17086_) - (___kont4436844369_ _L17084_ _L17086_) + (___kont4647246473_ _L17084_ _L17086_) (let () (declare (not safe)) (_g1700817047_)))))) - (___match4440844409_ + (___match4651246513_ (lambda (_e1703517054_ _hd1703417058_ _tl1703317061_ @@ -92,7 +91,7 @@ (declare (not safe)) (##car _e1704117074_)))) (if (gx#stx-null? _tl1703917081_) - (___match4441644417_ + (___match4652046521_ _e1703517054_ _hd1703417058_ _tl1703317061_ @@ -106,7 +105,7 @@ (declare (not safe)) (_g1700817047_))))) (let () (declare (not safe)) (_g1700817047_))))) - (___match4439644397_ + (___match4650046501_ (lambda (_e1701517110_ _hd1701417114_ _tl1701317117_ @@ -116,7 +115,7 @@ _e1702117130_ _hd1702017134_ _tl1701917137_ - ___splice4436644367_ + ___splice4647046471_ _target1702217140_ _tl1702417143_) (letrec ((_loop1702517146_ @@ -144,11 +143,11 @@ (_L17172_ _tl1701917137_) (_L17173_ _hd1702017134_)) (if (gx#identifier? _L17173_) - (___kont4436444365_ + (___kont4646846469_ _L17170_ _L17172_ _L17173_) - (___match4440844409_ + (___match4651246513_ _e1701517110_ _hd1701417114_ _tl1701317117_ @@ -156,8 +155,8 @@ _hd1701717124_ _tl1701617127_)))))))) (_loop1702517146_ _target1702217140_ '()))))) - (if (gx#stx-pair? ___stx4436144362_) - (let ((_e1701517110_ (gx#syntax-e ___stx4436144362_))) + (if (gx#stx-pair? ___stx4646546466_) + (let ((_e1701517110_ (gx#syntax-e ___stx4646546466_))) (let ((_tl1701317117_ (let () (declare (not safe)) (##cdr _e1701517110_))) (_hd1701417114_ @@ -186,7 +185,7 @@ (declare (not safe)) (##car _e1702117130_)))) (if (gx#stx-pair/null? _tl1701617127_) - (let ((___splice4436644367_ + (let ((___splice4647046471_ (gx#syntax-split-splice _tl1701617127_ '0))) @@ -194,16 +193,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4436644367_ + ___splice4647046471_ '1))) (_target1702217140_ (let () (declare (not safe)) (##vector-ref - ___splice4436644367_ + ___splice4647046471_ '0)))) (if (gx#stx-null? _tl1702417143_) - (___match4439644397_ + (___match4650046501_ _e1701517110_ _hd1701417114_ _tl1701317117_ @@ -213,7 +212,7 @@ _e1702117130_ _hd1702017134_ _tl1701917137_ - ___splice4436644367_ + ___splice4647046471_ _target1702217140_ _tl1702417143_) (if (gx#stx-pair? @@ -229,7 +228,7 @@ (_hd1704017078_ (let () (declare (not safe)) (##car _e1704117074_)))) (if (gx#stx-null? _tl1703917081_) - (___match4441644417_ + (___match4652046521_ _e1701517110_ _hd1701417114_ _tl1701317117_ @@ -256,7 +255,7 @@ (##car _e1704117074_)))) (if (gx#stx-null? _tl1703917081_) - (___match4441644417_ + (___match4652046521_ _e1701517110_ _hd1701417114_ _tl1701317117_ @@ -284,7 +283,7 @@ (declare (not safe)) (##car _e1704117074_)))) (if (gx#stx-null? _tl1703917081_) - (___match4441644417_ + (___match4652046521_ _e1701517110_ _hd1701417114_ _tl1701317117_ @@ -346,37 +345,37 @@ (##cdr _e1722217273_)))) (if (gx#stx-pair/null? _tl1722017280_) - (let ((_g49086_ + (let ((_g51034_ (gx#syntax-split-splice _tl1722017280_ '0))) (begin - (let ((_g49087_ + (let ((_g51035_ (let () (declare (not safe)) (if (##values? - _g49086_) + _g51034_) (##vector-length - _g49086_) + _g51034_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g49087_ 2))) - (error "Context expects 2 values" _g49087_))) + (##fx= _g51035_ 2))) + (error "Context expects 2 values" _g51035_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1722317283_ (let () (declare (not safe)) (##vector-ref - _g49086_ + _g51034_ 0))) (_tl1722517286_ (let () (declare (not safe)) (##vector-ref - _g49086_ + _g51034_ 1)))) (if (gx#stx-null? _tl1722517286_) @@ -403,31 +402,31 @@ (let ((_arg1723117309_ (reverse _arg1723017296_))) (if (gx#stx-pair/null? _tl1721717270_) - (let ((_g49088_ + (let ((_g51036_ (gx#syntax-split-splice _tl1721717270_ '0))) (begin - (let ((_g49089_ + (let ((_g51037_ (let () (declare (not safe)) - (if (##values? _g49088_) + (if (##values? _g51036_) (##vector-length - _g49088_) + _g51036_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49089_ 2))) + (##fx= _g51037_ 2))) (error "Context expects 2 values" - _g49089_))) + _g51037_))) (let ((_target1723217313_ (let () (declare (not safe)) - (##vector-ref _g49088_ 0))) + (##vector-ref _g51036_ 0))) (_tl1723417316_ (let () (declare (not safe)) - (##vector-ref _g49088_ 1)))) + (##vector-ref _g51036_ 1)))) (if (gx#stx-null? _tl1723417316_) (letrec ((_loop1723517319_ (lambda (_hd1723317323_ @@ -452,15 +451,14 @@ ((lambda (_L17343_ _L17345_ _L17346_) (if (and (gx#identifier? _L17346_) (gx#identifier-list? - (let ((__tmp49135 - (lambda (_g1737017373_ + (foldr (lambda (_g1737017373_ _g1737117376_) (let () (declare (not safe)) (cons _g1737017373_ - _g1737117376_))))) - (declare (not safe)) - (foldr1 __tmp49135 '() _L17345_)))) + _g1737117376_))) + '() + _L17345_))) (let* ((_g1737917387_ (lambda (_g1738017383_) (gx#raise-syntax-error @@ -481,28 +479,28 @@ (lambda (_g1740717427_) (if (gx#stx-pair/null? _g1740717427_) - (let ((_g49090_ + (let ((_g51038_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g1740717427_ '0))) (begin - (let ((_g49091_ + (let ((_g51039_ (let () (declare (not safe)) - (if (##values? _g49090_) - (##vector-length _g49090_) + (if (##values? _g51038_) + (##vector-length _g51038_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49091_ 2))) - (error "Context expects 2 values" _g49091_))) + (##fx= _g51039_ 2))) + (error "Context expects 2 values" _g51039_))) (let ((_target1740917430_ (let () (declare (not safe)) - (##vector-ref _g49090_ 0))) + (##vector-ref _g51038_ 0))) (_tl1741117433_ (let () (declare (not safe)) - (##vector-ref _g49090_ 1)))) + (##vector-ref _g51038_ 1)))) (if (gx#stx-null? _tl1741117433_) (letrec ((_loop1741217436_ (lambda (_hd1741017440_ @@ -552,179 +550,172 @@ (let () (let () (gx#stx-wrap-source - (let ((__tmp49094 + (let ((__tmp51042 (gx#datum->syntax '#f 'begin)) - (__tmp49092 - (let ((__tmp49093 + (__tmp51040 + (let ((__tmp51041 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L17492_ '())))) (declare (not safe)) - (cons _L17520_ __tmp49093)))) + (cons _L17520_ __tmp51041)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49094 __tmp49092)) + (cons __tmp51042 __tmp51040)) (gx#stx-source _stx17206_))))) _g1750617517_)))) (_g1750417535_ (gx#stx-wrap-source - (let ((__tmp49101 + (let ((__tmp51047 (gx#datum->syntax '#f 'def)) - (__tmp49095 - (let ((__tmp49098 - (let ((__tmp49099 - (let ((__tmp49100 - (lambda (_g1754017543_ + (__tmp51043 + (let ((__tmp51045 + (let ((__tmp51046 + (foldr (lambda (_g1754017543_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1754117546_) (let () (declare (not safe)) - (cons _g1754017543_ _g1754117546_))))) - (declare (not safe)) - (foldr1 __tmp49100 '() _L17345_)))) + (cons _g1754017543_ _g1754117546_))) + '() + _L17345_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L17394_ __tmp49099))) - (__tmp49096 - (let ((__tmp49097 - (lambda (_g1753817549_ + (cons _L17394_ __tmp51046))) + (__tmp51044 + (foldr (lambda (_g1753817549_ _g1753917552_) (let () (declare (not safe)) (cons _g1753817549_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1753917552_))))) + _g1753917552_))) + '() + _L17343_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (foldr1 __tmp49097 - '() - _L17343_)))) (declare (not safe)) - (cons __tmp49098 __tmp49096)))) + (cons __tmp51045 __tmp51044)))) (declare (not safe)) - (cons __tmp49101 __tmp49095)) + (cons __tmp51047 __tmp51043)) (gx#stx-source _stx17206_)))))) _g1747817489_)))) (_g1747617555_ (gx#stx-wrap-source - (let ((__tmp49133 (gx#datum->syntax '#f 'defrules)) - (__tmp49102 - (let ((__tmp49103 - (let ((__tmp49104 - (let ((__tmp49117 - (let ((__tmp49129 - (let ((__tmp49132 + (let ((__tmp51075 (gx#datum->syntax '#f 'defrules)) + (__tmp51048 + (let ((__tmp51049 + (let ((__tmp51050 + (let ((__tmp51063 + (let ((__tmp51072 + (let ((__tmp51074 (gx#datum->syntax '#f '_)) - (__tmp49130 - (let ((__tmp49131 + (__tmp51073 + (foldr (lambda (_g1756417567_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1756417567_ _g1756517570_) + _g1756517570_) (let () (declare (not safe)) - (cons _g1756417567_ _g1756517570_))))) - (declare (not safe)) - (foldr1 __tmp49131 '() _L17460_)))) + (cons _g1756417567_ _g1756517570_))) + '() + _L17460_))) (declare (not safe)) - (cons __tmp49132 __tmp49130))) + (cons __tmp51074 __tmp51073))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp49118 - (let ((__tmp49119 - (let ((__tmp49122 + (__tmp51064 + (let ((__tmp51065 + (let ((__tmp51067 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49128 (gx#datum->syntax '#f 'lambda)) - (__tmp49123 - (let ((__tmp49126 - (let ((__tmp49127 - (lambda (_g1756217573_ + (let ((__tmp51071 (gx#datum->syntax '#f 'lambda)) + (__tmp51068 + (let ((__tmp51070 + (foldr (lambda (_g1756217573_ _g1756317576_) (let () (declare (not safe)) (cons _g1756217573_ - _g1756317576_))))) - (declare (not safe)) - (foldr1 __tmp49127 '() _L17345_))) - (__tmp49124 - (let ((__tmp49125 - (lambda (_g1756017579_ + _g1756317576_))) + '() + _L17345_)) + (__tmp51069 + (foldr (lambda (_g1756017579_ _g1756117582_) (let () (declare (not safe)) (cons _g1756017579_ - _g1756117582_))))) - (declare (not safe)) - (foldr1 __tmp49125 '() _L17343_)))) + _g1756117582_))) + '() + _L17343_))) (declare (not safe)) - (cons __tmp49126 __tmp49124)))) + (cons __tmp51070 __tmp51069)))) (declare (not safe)) - (cons __tmp49128 __tmp49123))) - (__tmp49120 - (let ((__tmp49121 - (lambda (_g1755817585_ _g1755917588_) + (cons __tmp51071 __tmp51068))) + (__tmp51066 + (foldr (lambda (_g1755817585_ _g1755917588_) (let () (declare (not safe)) - (cons _g1755817585_ _g1755917588_))))) - (declare (not safe)) - (foldr1 __tmp49121 '() _L17460_)))) + (cons _g1755817585_ _g1755917588_))) + '() + _L17460_))) (declare (not safe)) - (cons __tmp49122 __tmp49120)))) + (cons __tmp51067 __tmp51066)))) (declare (not safe)) - (cons __tmp49119 '())))) + (cons __tmp51065 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49129 __tmp49118))) - (__tmp49105 - (let ((__tmp49106 - (let ((__tmp49116 + (cons __tmp51072 __tmp51064))) + (__tmp51051 + (let ((__tmp51052 + (let ((__tmp51062 (gx#datum->syntax '#f 'ref)) - (__tmp49107 - (let ((__tmp49109 + (__tmp51053 + (let ((__tmp51055 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49115 + (let ((__tmp51061 (gx#datum->syntax '#f 'identifier?)) - (__tmp49110 - (let ((__tmp49111 - (let ((__tmp49114 + (__tmp51056 + (let ((__tmp51057 + (let ((__tmp51060 (gx#datum->syntax '#f 'syntax)) - (__tmp49112 - (let ((__tmp49113 + (__tmp51058 + (let ((__tmp51059 (gx#datum->syntax '#f 'ref))) (declare (not safe)) - (cons __tmp49113 '())))) + (cons __tmp51059 '())))) (declare (not safe)) - (cons __tmp49114 __tmp49112)))) + (cons __tmp51060 __tmp51058)))) (declare (not safe)) - (cons __tmp49111 '())))) + (cons __tmp51057 '())))) (declare (not safe)) - (cons __tmp49115 __tmp49110))) - (__tmp49108 + (cons __tmp51061 __tmp51056))) + (__tmp51054 (let () (declare (not safe)) (cons _L17394_ '())))) (declare (not safe)) - (cons __tmp49109 __tmp49108)))) + (cons __tmp51055 __tmp51054)))) (declare (not safe)) - (cons __tmp49116 __tmp49107)))) + (cons __tmp51062 __tmp51053)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49106 '())))) + (cons __tmp51052 '())))) (declare (not safe)) - (cons __tmp49117 __tmp49105)))) + (cons __tmp51063 __tmp51051)))) (declare (not safe)) - (cons '() __tmp49104)))) + (cons '() __tmp51050)))) (declare (not safe)) - (cons _L17346_ __tmp49103)))) + (cons _L17346_ __tmp51049)))) (declare (not safe)) - (cons __tmp49133 __tmp49102)) + (cons __tmp51075 __tmp51048)) (gx#stx-source _stx17206_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _xarg1741717456_)))))) @@ -734,15 +725,14 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g1740517591_ (gx#gentemps - (let ((__tmp49134 - (lambda (_g1759417597_ + (foldr (lambda (_g1759417597_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1759517600_) (let () (declare (not safe)) - (cons _g1759417597_ _g1759517600_))))) - (declare (not safe)) - (foldr1 __tmp49134 '() _L17345_))))))) + (cons _g1759417597_ _g1759517600_))) + '() + _L17345_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1738017391_)))) (_g1737817603_ @@ -771,89 +761,89 @@ (_g1720817607_ _stx17206_)))) (define |gerbil/core$$[:0:]#defconst| (lambda (_$stx17614_) - (let* ((___stx4441944420_ _$stx17614_) + (let* ((___stx4652346524_ _$stx17614_) (_g1761917655_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4441944420_)))) - (let ((___kont4442244423_ + ___stx4652346524_)))) + (let ((___kont4652646527_ (lambda (_L17769_ _L17771_) - (let ((__tmp49153 (gx#datum->syntax '#f 'defrules)) - (__tmp49136 - (let ((__tmp49137 - (let ((__tmp49138 - (let ((__tmp49139 - (let ((__tmp49152 + (let ((__tmp51093 (gx#datum->syntax '#f 'defrules)) + (__tmp51076 + (let ((__tmp51077 + (let ((__tmp51078 + (let ((__tmp51079 + (let ((__tmp51092 (gx#datum->syntax '#f 'x)) - (__tmp49140 - (let ((__tmp49145 - (let ((__tmp49151 + (__tmp51080 + (let ((__tmp51085 + (let ((__tmp51091 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'identifier?)) - (__tmp49146 - (let ((__tmp49147 - (let ((__tmp49150 + (__tmp51086 + (let ((__tmp51087 + (let ((__tmp51090 (gx#datum->syntax '#f 'syntax)) - (__tmp49148 - (let ((__tmp49149 + (__tmp51088 + (let ((__tmp51089 (gx#datum->syntax '#f 'x))) (declare (not safe)) - (cons __tmp49149 '())))) + (cons __tmp51089 '())))) (declare (not safe)) - (cons __tmp49150 __tmp49148)))) + (cons __tmp51090 __tmp51088)))) (declare (not safe)) - (cons __tmp49147 '())))) + (cons __tmp51087 '())))) (declare (not safe)) - (cons __tmp49151 __tmp49146))) - (__tmp49141 - (let ((__tmp49142 - (let ((__tmp49144 (gx#datum->syntax '#f 'quote)) - (__tmp49143 + (cons __tmp51091 __tmp51086))) + (__tmp51081 + (let ((__tmp51082 + (let ((__tmp51084 (gx#datum->syntax '#f 'quote)) + (__tmp51083 (let () (declare (not safe)) (cons _L17769_ '())))) (declare (not safe)) - (cons __tmp49144 __tmp49143)))) + (cons __tmp51084 __tmp51083)))) (declare (not safe)) - (cons __tmp49142 '())))) + (cons __tmp51082 '())))) (declare (not safe)) - (cons __tmp49145 __tmp49141)))) + (cons __tmp51085 __tmp51081)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49152 - __tmp49140)))) + (cons __tmp51092 + __tmp51080)))) (declare (not safe)) - (cons __tmp49139 '())))) + (cons __tmp51079 '())))) (declare (not safe)) - (cons '() __tmp49138)))) + (cons '() __tmp51078)))) (declare (not safe)) - (cons _L17771_ __tmp49137)))) + (cons _L17771_ __tmp51077)))) (declare (not safe)) - (cons __tmp49153 __tmp49136)))) - (___kont4442444425_ + (cons __tmp51093 __tmp51076)))) + (___kont4652846529_ (lambda (_L17692_ _L17694_ _L17695_) - (let ((__tmp49154 - (let ((__tmp49155 - (let ((__tmp49156 - (let ((__tmp49158 + (let ((__tmp51094 + (let ((__tmp51095 + (let ((__tmp51096 + (let ((__tmp51098 (gx#datum->syntax '#f 'quote)) - (__tmp49157 + (__tmp51097 (let () (declare (not safe)) (cons _L17692_ '())))) (declare (not safe)) - (cons __tmp49158 __tmp49157)))) + (cons __tmp51098 __tmp51097)))) (declare (not safe)) - (cons __tmp49156 '())))) + (cons __tmp51096 '())))) (declare (not safe)) - (cons _L17694_ __tmp49155)))) + (cons _L17694_ __tmp51095)))) (declare (not safe)) - (cons _L17695_ __tmp49154))))) - (let* ((___match4448444485_ + (cons _L17695_ __tmp51094))))) + (let* ((___match4658846589_ (lambda (_e1764317662_ _hd1764217666_ _tl1764117669_ @@ -868,9 +858,9 @@ (_L17695_ _hd1764217666_)) (if (and (gx#identifier? _L17694_) (gx#stx-datum? _L17692_)) - (___kont4442444425_ _L17692_ _L17694_ _L17695_) + (___kont4652846529_ _L17692_ _L17694_ _L17695_) (let () (declare (not safe)) (_g1761917655_)))))) - (___match4446444465_ + (___match4656846569_ (lambda (_e1762517719_ _hd1762417723_ _tl1762317726_ @@ -889,8 +879,8 @@ (let ((_L17769_ _hd1763617763_) (_L17771_ _hd1762717733_)) (if (gx#identifier? _L17771_) - (___kont4442244423_ _L17769_ _L17771_) - (___match4448444485_ + (___kont4652646527_ _L17769_ _L17771_) + (___match4658846589_ _e1762517719_ _hd1762417723_ _tl1762317726_ @@ -900,8 +890,8 @@ _e1763117739_ _hd1763017743_ _tl1762917746_)))))) - (if (gx#stx-pair? ___stx4441944420_) - (let ((_e1762517719_ (gx#syntax-e ___stx4441944420_))) + (if (gx#stx-pair? ___stx4652346524_) + (let ((_e1762517719_ (gx#syntax-e ___stx4652346524_))) (let ((_tl1762317726_ (let () (declare (not safe)) (##cdr _e1762517719_))) (_hd1762417723_ @@ -943,7 +933,7 @@ (if (gx#identifier? _hd1763317753_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g49159_| + |gerbil/core$$[1]#_g51099_| _hd1763317753_) (if (gx#stx-pair? _tl1763217756_) @@ -958,7 +948,7 @@ (##car _e1763717759_)))) (if (gx#stx-null? _tl1763517766_) (if (gx#stx-null? _tl1762917746_) - (___match4446444465_ + (___match4656846569_ _e1762517719_ _hd1762417723_ _tl1762317726_ @@ -976,7 +966,7 @@ _tl1763517766_) (let () (declare (not safe)) (_g1761917655_))) (if (gx#stx-null? _tl1762917746_) - (___match4448444485_ + (___match4658846589_ _e1762517719_ _hd1762417723_ _tl1762317726_ @@ -988,7 +978,7 @@ _tl1762917746_) (let () (declare (not safe)) (_g1761917655_)))))) (if (gx#stx-null? _tl1762917746_) - (___match4448444485_ + (___match4658846589_ _e1762517719_ _hd1762417723_ _tl1762317726_ @@ -1000,7 +990,7 @@ _tl1762917746_) (let () (declare (not safe)) (_g1761917655_)))) (if (gx#stx-null? _tl1762917746_) - (___match4448444485_ + (___match4658846589_ _e1762517719_ _hd1762417723_ _tl1762317726_ @@ -1014,7 +1004,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? _tl1762917746_) - (___match4448444485_ + (___match4658846589_ _e1762517719_ _hd1762417723_ _tl1762317726_ @@ -1028,7 +1018,7 @@ (declare (not safe)) (_g1761917655_)))))) (if (gx#stx-null? _tl1762917746_) - (___match4448444485_ + (___match4658846589_ _e1762517719_ _hd1762417723_ _tl1762317726_ diff --git a/src/bootstrap/gerbil/core__6.scm b/src/bootstrap/gerbil/core__6.scm index 15638a6ab..c77afe90c 100644 --- a/src/bootstrap/gerbil/core__6.scm +++ b/src/bootstrap/gerbil/core__6.scm @@ -216,32 +216,32 @@ (_g1795419119_ (lambda (_g1795617976_) (if (gx#stx-pair/null? _g1795617976_) - (let ((_g49160_ + (let ((_g51100_ (gx#syntax-split-splice _g1795617976_ '0))) (begin - (let ((_g49161_ + (let ((_g51101_ (let () (declare (not safe)) - (if (##values? _g49160_) + (if (##values? _g51100_) (##vector-length - _g49160_) + _g51100_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49161_ 2))) + (##fx= _g51101_ 2))) (error "Context expects 2 values" - _g49161_))) + _g51101_))) (let ((_target1795817979_ (let () (declare (not safe)) - (##vector-ref _g49160_ 0))) + (##vector-ref _g51100_ 0))) (_tl1796017982_ (let () (declare (not safe)) (##vector-ref - _g49160_ + _g51100_ 1)))) (if (gx#stx-null? _tl1796017982_) (letrec ((_loop1796117985_ @@ -258,7 +258,7 @@ (let () (declare (not safe)) (##cdr _e1796217995_)))) - (let ((__tmp49391 + (let ((__tmp51322 (let () (declare (not safe)) (cons _lp-hd1796317999_ @@ -266,7 +266,7 @@ (declare (not safe)) (_loop1796117985_ _lp-tl1796418002_ - __tmp49391)))) + __tmp51322)))) (let ((_slot1796618005_ (reverse _slot1796517992_))) ((lambda (_L18009_) (let () @@ -456,28 +456,28 @@ (lambda (_g1850718536_) (if (gx#stx-pair/null? _g1850718536_) - (let ((_g49162_ + (let ((_g51102_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g1850718536_ '0))) (begin - (let ((_g49163_ + (let ((_g51103_ (let () (declare (not safe)) - (if (##values? _g49162_) - (##vector-length _g49162_) + (if (##values? _g51102_) + (##vector-length _g51102_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49163_ 2))) - (error "Context expects 2 values" _g49163_))) + (##fx= _g51103_ 2))) + (error "Context expects 2 values" _g51103_))) (let ((_target1851018539_ (let () (declare (not safe)) - (##vector-ref _g49162_ 0))) + (##vector-ref _g51102_ 0))) (_tl1851218542_ (let () (declare (not safe)) - (##vector-ref _g49162_ 1)))) + (##vector-ref _g51102_ 1)))) (if (gx#stx-null? _tl1851218542_) (letrec ((_loop1851318545_ (lambda (_hd1851118549_ @@ -518,12 +518,12 @@ (declare (not safe)) (##cdr _e1852618577_)))) (if (gx#stx-null? _tl1852418584_) - (let ((__tmp49227 + (let ((__tmp51160 (let () (declare (not safe)) (cons _hd1852518581_ _def-setf1851718552_))) - (__tmp49226 + (__tmp51159 (let () (declare (not safe)) (cons _hd1852218571_ @@ -531,8 +531,8 @@ (declare (not safe)) (_loop1851318545_ _lp-tl1851618564_ - __tmp49227 - __tmp49226)) + __tmp51160 + __tmp51159)) (let () (declare (not safe)) (_g1850618532_ _g1850718536_))))) @@ -557,28 +557,28 @@ (_g1861118752_ (lambda (_g1861318642_) (if (gx#stx-pair/null? _g1861318642_) - (let ((_g49164_ + (let ((_g51104_ (gx#syntax-split-splice _g1861318642_ '0))) (begin - (let ((_g49165_ + (let ((_g51105_ (let () (declare (not safe)) - (if (##values? _g49164_) - (##vector-length _g49164_) + (if (##values? _g51104_) + (##vector-length _g51104_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49165_ 2))) + (##fx= _g51105_ 2))) (error "Context expects 2 values" - _g49165_))) + _g51105_))) (let ((_target1861618645_ (let () (declare (not safe)) - (##vector-ref _g49164_ 0))) + (##vector-ref _g51104_ 0))) (_tl1861818648_ (let () (declare (not safe)) - (##vector-ref _g49164_ 1)))) + (##vector-ref _g51104_ 1)))) (if (gx#stx-null? _tl1861818648_) (letrec ((_loop1861918651_ (lambda (_hd1861718655_ @@ -618,12 +618,12 @@ (declare (not safe)) (##cdr _e1863218683_)))) (if (gx#stx-null? _tl1863018690_) - (let ((__tmp49180 + (let ((__tmp51113 (let () (declare (not safe)) (cons _hd1863118687_ _def-usetf1862318658_))) - (__tmp49179 + (__tmp51112 (let () (declare (not safe)) (cons _hd1862818677_ @@ -631,8 +631,8 @@ (declare (not safe)) (_loop1861918651_ _lp-tl1862218670_ - __tmp49180 - __tmp49179)) + __tmp51113 + __tmp51112)) (let () (declare (not safe)) (_g1861218638_ _g1861318642_))))) @@ -647,59 +647,49 @@ ((lambda (_L18699_ _L18701_) (let () (let () - (let ((__tmp49166 - (let ((__tmp49178 (gx#datum->syntax '#f 'begin)) - (__tmp49167 - (let ((__tmp49168 - (let ((__tmp49169 - (let ((__tmp49170 - (let ((__tmp49177 + (let ((__tmp51106 + (let ((__tmp51111 (gx#datum->syntax '#f 'begin)) + (__tmp51107 + (let ((__tmp51108 + (let ((__tmp51109 + (let ((__tmp51110 + (foldr (lambda (_g1871918728_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1871918728_ _g1872018731_) + _g1872018731_) (let () (declare (not safe)) - (cons _g1871918728_ _g1872018731_)))) - (__tmp49171 - (let ((__tmp49176 - (lambda (_g1872118734_ _g1872218737_) + (cons _g1871918728_ _g1872018731_))) + (foldr (lambda (_g1872118734_ _g1872218737_) (let () (declare (not safe)) - (cons _g1872118734_ _g1872218737_)))) - (__tmp49172 - (let ((__tmp49175 - (lambda (_g1872318740_ _g1872418743_) + (cons _g1872118734_ _g1872218737_))) + (foldr (lambda (_g1872318740_ _g1872418743_) (let () (declare (not safe)) - (cons _g1872318740_ - _g1872418743_)))) - (__tmp49173 - (let ((__tmp49174 - (lambda (_g1872518746_ + (cons _g1872318740_ _g1872418743_))) + (foldr (lambda (_g1872518746_ _g1872618749_) (let () (declare (not safe)) (cons _g1872518746_ - _g1872618749_))))) - (declare (not safe)) - (foldr1 __tmp49174 '() _L18699_)))) - (declare (not safe)) - (foldr1 __tmp49175 __tmp49173 _L18701_)))) - (declare (not safe)) - (foldr1 __tmp49176 __tmp49172 _L18593_)))) - (declare (not safe)) - (foldr1 __tmp49177 __tmp49171 _L18595_)))) + _g1872618749_))) + '() + _L18699_) + _L18701_) + _L18593_) + _L18595_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L18465_ - __tmp49170)))) + __tmp51110)))) (declare (not safe)) - (cons _L18493_ __tmp49169)))) + (cons _L18493_ __tmp51109)))) (declare (not safe)) - (cons _L18437_ __tmp49168)))) + (cons _L18437_ __tmp51108)))) (declare (not safe)) - (cons __tmp49178 __tmp49167)))) + (cons __tmp51111 __tmp51107)))) (declare (not safe)) - (_wrap17800_ __tmp49166))))) + (_wrap17800_ __tmp51106))))) _def-usetf1862518693_ _def-ugetf1862618696_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -715,7 +705,7 @@ (let () (declare (not safe)) (_g1861218638_ _g1861318642_))))) - (__tmp49181 + (__tmp51114 (gx#stx-map (lambda (_ref18756_) (let* ((_g1875918778_ @@ -800,148 +790,148 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _L18880_) (let () - (let ((__tmp49204 - (let ((__tmp49205 - (let ((__tmp49224 + (let ((__tmp51137 + (let ((__tmp51138 + (let ((__tmp51157 (gx#datum->syntax '#f 'def)) - (__tmp49206 - (let ((__tmp49207 - (let ((__tmp49208 - (let ((__tmp49223 + (__tmp51139 + (let ((__tmp51140 + (let ((__tmp51141 + (let ((__tmp51156 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp49209 - (let ((__tmp49218 + (__tmp51142 + (let ((__tmp51151 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49222 + (let ((__tmp51155 (gx#datum->syntax '#f '@mop.accessor)) - (__tmp49219 - (let ((__tmp49220 - (let ((__tmp49221 + (__tmp51152 + (let ((__tmp51153 + (let ((__tmp51154 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L18818_ __tmp49221)))) + (cons _L18818_ __tmp51154)))) (declare (not safe)) - (cons _L18129_ __tmp49220)))) + (cons _L18129_ __tmp51153)))) (declare (not safe)) - (cons __tmp49222 __tmp49219))) - (__tmp49210 - (let ((__tmp49211 - (let ((__tmp49217 + (cons __tmp51155 __tmp51152))) + (__tmp51143 + (let ((__tmp51144 + (let ((__tmp51150 (gx#datum->syntax '#f 'make-class-slot-unchecked-accessor)) - (__tmp49212 - (let ((__tmp49213 - (let ((__tmp49214 - (let ((__tmp49216 + (__tmp51145 + (let ((__tmp51146 + (let ((__tmp51147 + (let ((__tmp51149 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp49215 + (__tmp51148 (let () (declare (not safe)) (cons _L18818_ '())))) (declare (not safe)) - (cons __tmp49216 __tmp49215)))) + (cons __tmp51149 __tmp51148)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49214 '())))) + (cons __tmp51147 '())))) (declare (not safe)) - (cons _L17894_ __tmp49213)))) + (cons _L17894_ __tmp51146)))) (declare (not safe)) - (cons __tmp49217 __tmp49212)))) + (cons __tmp51150 __tmp51145)))) (declare (not safe)) - (cons __tmp49211 '())))) + (cons __tmp51144 '())))) (declare (not safe)) - (cons __tmp49218 __tmp49210)))) + (cons __tmp51151 __tmp51143)))) (declare (not safe)) - (cons __tmp49223 __tmp49209)))) + (cons __tmp51156 __tmp51142)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49208 '())))) + (cons __tmp51141 '())))) (declare (not safe)) - (cons _L18880_ __tmp49207)))) + (cons _L18880_ __tmp51140)))) (declare (not safe)) - (cons __tmp49224 __tmp49206)))) + (cons __tmp51157 __tmp51139)))) (declare (not safe)) - (_wrap17800_ __tmp49205))) - (__tmp49182 - (let ((__tmp49183 - (let ((__tmp49184 - (let ((__tmp49203 + (_wrap17800_ __tmp51138))) + (__tmp51115 + (let ((__tmp51116 + (let ((__tmp51117 + (let ((__tmp51136 (gx#datum->syntax '#f 'def)) - (__tmp49185 - (let ((__tmp49186 - (let ((__tmp49187 - (let ((__tmp49202 + (__tmp51118 + (let ((__tmp51119 + (let ((__tmp51120 + (let ((__tmp51135 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin-annotation)) - (__tmp49188 - (let ((__tmp49197 - (let ((__tmp49201 + (__tmp51121 + (let ((__tmp51130 + (let ((__tmp51134 (gx#datum->syntax '#f '@mop.mutator)) - (__tmp49198 - (let ((__tmp49199 - (let ((__tmp49200 + (__tmp51131 + (let ((__tmp51132 + (let ((__tmp51133 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) (cons _L18818_ - __tmp49200)))) + __tmp51133)))) (declare (not safe)) - (cons _L18129_ __tmp49199)))) + (cons _L18129_ __tmp51132)))) (declare (not safe)) - (cons __tmp49201 __tmp49198))) - (__tmp49189 - (let ((__tmp49190 - (let ((__tmp49196 + (cons __tmp51134 __tmp51131))) + (__tmp51122 + (let ((__tmp51123 + (let ((__tmp51129 (gx#datum->syntax '#f 'make-class-slot-unchecked-mutator)) - (__tmp49191 - (let ((__tmp49192 - (let ((__tmp49193 + (__tmp51124 + (let ((__tmp51125 + (let ((__tmp51126 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49195 (gx#datum->syntax '#f 'quote)) - (__tmp49194 + (let ((__tmp51128 (gx#datum->syntax '#f 'quote)) + (__tmp51127 (let () (declare (not safe)) (cons _L18818_ '())))) (declare (not safe)) - (cons __tmp49195 __tmp49194)))) + (cons __tmp51128 __tmp51127)))) (declare (not safe)) - (cons __tmp49193 '())))) + (cons __tmp51126 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L17894_ - __tmp49192)))) + __tmp51125)))) (declare (not safe)) - (cons __tmp49196 __tmp49191)))) + (cons __tmp51129 __tmp51124)))) (declare (not safe)) - (cons __tmp49190 '())))) + (cons __tmp51123 '())))) (declare (not safe)) - (cons __tmp49197 __tmp49189)))) + (cons __tmp51130 __tmp51122)))) (declare (not safe)) - (cons __tmp49202 __tmp49188)))) + (cons __tmp51135 __tmp51121)))) (declare (not safe)) - (cons __tmp49187 '())))) + (cons __tmp51120 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L18878_ - __tmp49186)))) + __tmp51119)))) (declare (not safe)) - (cons __tmp49203 __tmp49185)))) + (cons __tmp51136 __tmp51118)))) (declare (not safe)) - (_wrap17800_ __tmp49184)))) + (_wrap17800_ __tmp51117)))) (declare (not safe)) - (cons __tmp49183 '())))) + (cons __tmp51116 '())))) (declare (not safe)) - (cons __tmp49204 __tmp49182)))) + (cons __tmp51137 __tmp51115)))) _hd1884418872_ _hd1884118862_) (let () (declare (not safe)) (_g1883618851_ _g1883718855_))))) @@ -953,7 +943,7 @@ (let () (declare (not safe)) (_g1883618851_ _g1883718855_))))) - (__tmp49225 + (__tmp51158 (list (gx#stx-identifier _L18817_ '"&" @@ -963,7 +953,7 @@ '"&" _L18815_)))) (declare (not safe)) - (_g1883518896_ __tmp49225))) + (_g1883518896_ __tmp51158))) _hd1877118809_ _hd1876818799_ _hd1876518789_) @@ -983,7 +973,7 @@ (_g1875818900_ _ref18756_))) _accessible-slots17949_))) (declare (not safe)) - (_g1861118752_ __tmp49181)))) + (_g1861118752_ __tmp51114)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _def-setf1851918587_ _def-getf1852018590_)))))) @@ -999,7 +989,7 @@ (let () (declare (not safe)) (_g1850618532_ _g1850718536_))))) - (__tmp49228 + (__tmp51161 (gx#stx-map (lambda (_ref18908_) (let* ((_g1891118930_ @@ -1050,148 +1040,148 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _L18969_ _L18970_) - (let ((__tmp49251 - (let ((__tmp49252 - (let ((__tmp49271 (gx#datum->syntax '#f 'def)) - (__tmp49253 - (let ((__tmp49254 - (let ((__tmp49255 - (let ((__tmp49270 + (let ((__tmp51184 + (let ((__tmp51185 + (let ((__tmp51204 (gx#datum->syntax '#f 'def)) + (__tmp51186 + (let ((__tmp51187 + (let ((__tmp51188 + (let ((__tmp51203 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp49256 - (let ((__tmp49265 + (__tmp51189 + (let ((__tmp51198 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49269 + (let ((__tmp51202 (gx#datum->syntax '#f '@mop.accessor)) - (__tmp49266 - (let ((__tmp49267 - (let ((__tmp49268 + (__tmp51199 + (let ((__tmp51200 + (let ((__tmp51201 (let () (declare (not safe)) (cons '#t '())))) (declare (not safe)) - (cons _L18970_ __tmp49268)))) + (cons _L18970_ __tmp51201)))) (declare (not safe)) - (cons _L18129_ __tmp49267)))) + (cons _L18129_ __tmp51200)))) (declare (not safe)) - (cons __tmp49269 __tmp49266))) - (__tmp49257 - (let ((__tmp49258 - (let ((__tmp49264 + (cons __tmp51202 __tmp51199))) + (__tmp51190 + (let ((__tmp51191 + (let ((__tmp51197 (gx#datum->syntax '#f 'make-class-slot-accessor)) - (__tmp49259 - (let ((__tmp49260 - (let ((__tmp49261 - (let ((__tmp49263 + (__tmp51192 + (let ((__tmp51193 + (let ((__tmp51194 + (let ((__tmp51196 (gx#datum->syntax '#f 'quote)) - (__tmp49262 + (__tmp51195 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L18970_ '())))) (declare (not safe)) - (cons __tmp49263 __tmp49262)))) + (cons __tmp51196 __tmp51195)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49261 '())))) + (cons __tmp51194 '())))) (declare (not safe)) - (cons _L17894_ __tmp49260)))) + (cons _L17894_ __tmp51193)))) (declare (not safe)) - (cons __tmp49264 __tmp49259)))) + (cons __tmp51197 __tmp51192)))) (declare (not safe)) - (cons __tmp49258 '())))) + (cons __tmp51191 '())))) (declare (not safe)) - (cons __tmp49265 __tmp49257)))) + (cons __tmp51198 __tmp51190)))) (declare (not safe)) - (cons __tmp49270 __tmp49256)))) + (cons __tmp51203 __tmp51189)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49255 '())))) + (cons __tmp51188 '())))) (declare (not safe)) - (cons _L18969_ __tmp49254)))) + (cons _L18969_ __tmp51187)))) (declare (not safe)) - (cons __tmp49271 __tmp49253)))) + (cons __tmp51204 __tmp51186)))) (declare (not safe)) - (_wrap17800_ __tmp49252))) - (__tmp49229 - (let ((__tmp49230 - (let ((__tmp49231 - (let ((__tmp49250 + (_wrap17800_ __tmp51185))) + (__tmp51162 + (let ((__tmp51163 + (let ((__tmp51164 + (let ((__tmp51183 (gx#datum->syntax '#f 'def)) - (__tmp49232 - (let ((__tmp49233 - (let ((__tmp49234 - (let ((__tmp49249 + (__tmp51165 + (let ((__tmp51166 + (let ((__tmp51167 + (let ((__tmp51182 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin-annotation)) - (__tmp49235 - (let ((__tmp49244 - (let ((__tmp49248 + (__tmp51168 + (let ((__tmp51177 + (let ((__tmp51181 (gx#datum->syntax '#f '@mop.mutator)) - (__tmp49245 - (let ((__tmp49246 - (let ((__tmp49247 + (__tmp51178 + (let ((__tmp51179 + (let ((__tmp51180 (let () (declare (not safe)) (cons '#t '())))) (declare (not safe)) (cons _L18970_ - __tmp49247)))) + __tmp51180)))) (declare (not safe)) - (cons _L18129_ __tmp49246)))) + (cons _L18129_ __tmp51179)))) (declare (not safe)) - (cons __tmp49248 __tmp49245))) - (__tmp49236 - (let ((__tmp49237 - (let ((__tmp49243 + (cons __tmp51181 __tmp51178))) + (__tmp51169 + (let ((__tmp51170 + (let ((__tmp51176 (gx#datum->syntax '#f 'make-class-slot-mutator)) - (__tmp49238 - (let ((__tmp49239 - (let ((__tmp49240 - (let ((__tmp49242 + (__tmp51171 + (let ((__tmp51172 + (let ((__tmp51173 + (let ((__tmp51175 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp49241 + (__tmp51174 (let () (declare (not safe)) (cons _L18970_ '())))) (declare (not safe)) - (cons __tmp49242 __tmp49241)))) + (cons __tmp51175 __tmp51174)))) (declare (not safe)) - (cons __tmp49240 '())))) + (cons __tmp51173 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L17894_ - __tmp49239)))) + __tmp51172)))) (declare (not safe)) - (cons __tmp49243 __tmp49238)))) + (cons __tmp51176 __tmp51171)))) (declare (not safe)) - (cons __tmp49237 '())))) + (cons __tmp51170 '())))) (declare (not safe)) - (cons __tmp49244 __tmp49236)))) + (cons __tmp51177 __tmp51169)))) (declare (not safe)) - (cons __tmp49249 __tmp49235)))) + (cons __tmp51182 __tmp51168)))) (declare (not safe)) - (cons __tmp49234 '())))) + (cons __tmp51167 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L18967_ __tmp49233)))) + (cons _L18967_ __tmp51166)))) (declare (not safe)) - (cons __tmp49250 __tmp49232)))) + (cons __tmp51183 __tmp51165)))) (declare (not safe)) - (_wrap17800_ __tmp49231)))) + (_wrap17800_ __tmp51164)))) (declare (not safe)) - (cons __tmp49230 '())))) + (cons __tmp51163 '())))) (declare (not safe)) - (cons __tmp49251 __tmp49229))) + (cons __tmp51184 __tmp51162))) _hd1892318961_ _hd1892018951_ _hd1891718941_) @@ -1212,319 +1202,315 @@ _accessible-slots17949_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1850518904_ __tmp49228)))) + (_g1850518904_ __tmp51161)))) _g1847918490_))) - (__tmp49272 - (let ((__tmp49273 - (let ((__tmp49286 + (__tmp51205 + (let ((__tmp51206 + (let ((__tmp51219 (gx#datum->syntax '#f 'def)) - (__tmp49274 - (let ((__tmp49275 - (let ((__tmp49276 + (__tmp51207 + (let ((__tmp51208 + (let ((__tmp51209 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49285 + (let ((__tmp51218 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp49277 - (let ((__tmp49282 - (let ((__tmp49284 + (__tmp51210 + (let ((__tmp51215 + (let ((__tmp51217 (gx#datum->syntax '#f '@mop.predicate)) - (__tmp49283 + (__tmp51216 (let () (declare (not safe)) (cons _L18129_ '())))) (declare (not safe)) - (cons __tmp49284 __tmp49283))) - (__tmp49278 - (let ((__tmp49279 - (let ((__tmp49281 + (cons __tmp51217 __tmp51216))) + (__tmp51211 + (let ((__tmp51212 + (let ((__tmp51214 (gx#datum->syntax '#f 'make-class-predicate)) - (__tmp49280 + (__tmp51213 (let () (declare (not safe)) (cons _L17894_ '())))) (declare (not safe)) - (cons __tmp49281 - __tmp49280)))) + (cons __tmp51214 + __tmp51213)))) (declare (not safe)) - (cons __tmp49279 '())))) + (cons __tmp51212 '())))) (declare (not safe)) - (cons __tmp49282 __tmp49278)))) + (cons __tmp51215 __tmp51211)))) (declare (not safe)) - (cons __tmp49285 __tmp49277)))) + (cons __tmp51218 __tmp51210)))) (declare (not safe)) - (cons __tmp49276 '())))) + (cons __tmp51209 '())))) (declare (not safe)) - (cons _L17891_ __tmp49275)))) + (cons _L17891_ __tmp51208)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49286 - __tmp49274)))) + (cons __tmp51219 + __tmp51207)))) (declare (not safe)) - (_wrap17800_ __tmp49273)))) + (_wrap17800_ __tmp51206)))) (declare (not safe)) - (_g1847718992_ __tmp49272)))) + (_g1847718992_ __tmp51205)))) _g1845118462_))) - (__tmp49287 + (__tmp51220 (if (gx#stx-false? _L17892_) - (let ((__tmp49311 (gx#datum->syntax '#f 'begin))) + (let ((__tmp51244 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp49311 '())) - (let ((__tmp49288 - (let ((__tmp49310 + (cons __tmp51244 '())) + (let ((__tmp51221 + (let ((__tmp51243 (gx#datum->syntax '#f 'def)) - (__tmp49289 - (let ((__tmp49290 - (let ((__tmp49291 - (let ((__tmp49309 + (__tmp51222 + (let ((__tmp51223 + (let ((__tmp51224 + (let ((__tmp51242 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation)) - (__tmp49292 - (let ((__tmp49306 - (let ((__tmp49308 + (__tmp51225 + (let ((__tmp51239 + (let ((__tmp51241 (gx#datum->syntax '#f '@mop.constructor)) - (__tmp49307 + (__tmp51240 (let () (declare (not safe)) (cons _L18129_ '())))) (declare (not safe)) - (cons __tmp49308 __tmp49307))) - (__tmp49293 - (let ((__tmp49294 - (let ((__tmp49305 + (cons __tmp51241 __tmp51240))) + (__tmp51226 + (let ((__tmp51227 + (let ((__tmp51238 (gx#datum->syntax '#f 'lambda)) - (__tmp49295 - (let ((__tmp49304 + (__tmp51228 + (let ((__tmp51237 (gx#datum->syntax '#f '$args)) - (__tmp49296 - (let ((__tmp49297 - (let ((__tmp49303 + (__tmp51229 + (let ((__tmp51230 + (let ((__tmp51236 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'apply)) - (__tmp49298 - (let ((__tmp49302 + (__tmp51231 + (let ((__tmp51235 (gx#datum->syntax '#f 'make-instance)) - (__tmp49299 - (let ((__tmp49300 - (let ((__tmp49301 + (__tmp51232 + (let ((__tmp51233 + (let ((__tmp51234 (gx#datum->syntax '#f '$args))) (declare (not safe)) - (cons __tmp49301 '())))) + (cons __tmp51234 '())))) (declare (not safe)) - (cons _L17894_ __tmp49300)))) + (cons _L17894_ __tmp51233)))) (declare (not safe)) - (cons __tmp49302 __tmp49299)))) + (cons __tmp51235 __tmp51232)))) (declare (not safe)) - (cons __tmp49303 __tmp49298)))) + (cons __tmp51236 __tmp51231)))) (declare (not safe)) - (cons __tmp49297 '())))) + (cons __tmp51230 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49304 __tmp49296)))) + (cons __tmp51237 __tmp51229)))) (declare (not safe)) - (cons __tmp49305 __tmp49295)))) + (cons __tmp51238 __tmp51228)))) (declare (not safe)) - (cons __tmp49294 '())))) + (cons __tmp51227 '())))) (declare (not safe)) - (cons __tmp49306 __tmp49293)))) + (cons __tmp51239 __tmp51226)))) (declare (not safe)) - (cons __tmp49309 __tmp49292)))) + (cons __tmp51242 __tmp51225)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49291 '())))) + (cons __tmp51224 '())))) (declare (not safe)) - (cons _L17892_ __tmp49290)))) + (cons _L17892_ __tmp51223)))) (declare (not safe)) - (cons __tmp49310 __tmp49289)))) + (cons __tmp51243 __tmp51222)))) (declare (not safe)) - (_wrap17800_ __tmp49288))))) + (_wrap17800_ __tmp51221))))) (declare (not safe)) - (_g1844918996_ __tmp49287)))) + (_g1844918996_ __tmp51220)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1842318434_))) - (__tmp49312 - (let ((__tmp49313 - (let ((__tmp49331 + (__tmp51245 + (let ((__tmp51246 + (let ((__tmp51263 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def)) - (__tmp49314 - (let ((__tmp49315 - (let ((__tmp49316 - (let ((__tmp49330 + (__tmp51247 + (let ((__tmp51248 + (let ((__tmp51249 + (let ((__tmp51262 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp49317 - (let ((__tmp49319 - (let ((__tmp49329 + (__tmp51250 + (let ((__tmp51252 + (let ((__tmp51261 (gx#datum->syntax '#f '@mop.class)) - (__tmp49320 - (let ((__tmp49321 + (__tmp51253 + (let ((__tmp51254 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49322 - (let ((__tmp49327 - (let ((__tmp49328 - (lambda (_g1900319006_ + (let ((__tmp51255 + (let ((__tmp51260 + (foldr (lambda (_g1900319006_ _g1900419009_) (let () (declare (not safe)) (cons _g1900319006_ - _g1900419009_))))) - (declare (not safe)) - (foldr1 __tmp49328 '() _L18009_))) - (__tmp49323 - (let ((__tmp49324 - (let ((__tmp49325 - (let ((__tmp49326 + _g1900419009_))) + '() + _L18009_)) + (__tmp51256 + (let ((__tmp51257 + (let ((__tmp51258 + (let ((__tmp51259 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L18241_ '())))) (declare (not safe)) - (cons _L18213_ __tmp49326)))) + (cons _L18213_ __tmp51259)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L18185_ __tmp49325)))) + (cons _L18185_ __tmp51258)))) (declare (not safe)) - (cons _L18101_ __tmp49324)))) + (cons _L18101_ __tmp51257)))) (declare (not safe)) - (cons __tmp49327 __tmp49323)))) + (cons __tmp51260 __tmp51256)))) (declare (not safe)) - (cons _L18157_ __tmp49322)))) + (cons _L18157_ __tmp51255)))) (declare (not safe)) - (cons _L18045_ __tmp49321)))) + (cons _L18045_ __tmp51254)))) (declare (not safe)) - (cons __tmp49329 __tmp49320))) + (cons __tmp51261 __tmp51253))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp49318 + (__tmp51251 (let () (declare (not safe)) (cons _L18409_ '())))) (declare (not safe)) - (cons __tmp49319 __tmp49318)))) + (cons __tmp51252 __tmp51251)))) (declare (not safe)) - (cons __tmp49330 __tmp49317)))) + (cons __tmp51262 __tmp51250)))) (declare (not safe)) - (cons __tmp49316 '())))) + (cons __tmp51249 '())))) (declare (not safe)) - (cons _L17894_ __tmp49315)))) + (cons _L17894_ __tmp51248)))) (declare (not safe)) - (cons __tmp49331 __tmp49314)))) + (cons __tmp51263 __tmp51247)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap17800_ __tmp49313)))) + (_wrap17800_ __tmp51246)))) (declare (not safe)) - (_g1842119000_ __tmp49312)))) + (_g1842119000_ __tmp51245)))) _g1839518406_))) - (__tmp49332 - (let ((__tmp49353 + (__tmp51264 + (let ((__tmp51284 (gx#datum->syntax '#f 'make-class-type)) - (__tmp49333 - (let ((__tmp49350 - (let ((__tmp49352 + (__tmp51265 + (let ((__tmp51281 + (let ((__tmp51283 (gx#datum->syntax '#f 'quote)) - (__tmp49351 + (__tmp51282 (let () (declare (not safe)) (cons _L18045_ '())))) (declare (not safe)) - (cons __tmp49352 - __tmp49351))) - (__tmp49334 - (let ((__tmp49347 - (let ((__tmp49349 + (cons __tmp51283 + __tmp51282))) + (__tmp51266 + (let ((__tmp51278 + (let ((__tmp51280 (gx#datum->syntax '#f 'quote)) - (__tmp49348 + (__tmp51279 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L18073_ '())))) (declare (not safe)) - (cons __tmp49349 __tmp49348))) - (__tmp49335 - (let ((__tmp49336 - (let ((__tmp49342 - (let ((__tmp49346 (gx#datum->syntax '#f 'quote)) - (__tmp49343 - (let ((__tmp49344 - (let ((__tmp49345 - (lambda (_g1901519018_ + (cons __tmp51280 __tmp51279))) + (__tmp51267 + (let ((__tmp51268 + (let ((__tmp51274 + (let ((__tmp51277 (gx#datum->syntax '#f 'quote)) + (__tmp51275 + (let ((__tmp51276 + (foldr (lambda (_g1901519018_ _g1901619021_) (let () (declare (not safe)) (cons _g1901519018_ - _g1901619021_))))) - (declare (not safe)) - (foldr1 __tmp49345 - '() - _L18009_)))) + _g1901619021_))) + '() + _L18009_))) (declare (not safe)) - (cons __tmp49344 '())))) + (cons __tmp51276 '())))) (declare (not safe)) - (cons __tmp49346 __tmp49343))) - (__tmp49337 - (let ((__tmp49338 - (let ((__tmp49339 - (let ((__tmp49341 + (cons __tmp51277 __tmp51275))) + (__tmp51269 + (let ((__tmp51270 + (let ((__tmp51271 + (let ((__tmp51273 (gx#datum->syntax '#f 'quote)) - (__tmp49340 + (__tmp51272 (let () (declare (not safe)) (cons _L18101_ '())))) (declare (not safe)) - (cons __tmp49341 __tmp49340)))) + (cons __tmp51273 __tmp51272)))) (declare (not safe)) - (cons __tmp49339 '())))) + (cons __tmp51271 '())))) (declare (not safe)) - (cons _L18353_ __tmp49338)))) + (cons _L18353_ __tmp51270)))) (declare (not safe)) - (cons __tmp49342 __tmp49337)))) + (cons __tmp51274 __tmp51269)))) (declare (not safe)) - (cons _L18381_ __tmp49336)))) + (cons _L18381_ __tmp51268)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49347 - __tmp49335)))) + (cons __tmp51278 + __tmp51267)))) (declare (not safe)) - (cons __tmp49350 __tmp49334)))) + (cons __tmp51281 __tmp51266)))) (declare (not safe)) - (cons __tmp49353 __tmp49333)))) + (cons __tmp51284 __tmp51265)))) (declare (not safe)) - (_g1839319012_ __tmp49332)))) + (_g1839319012_ __tmp51264)))) _g1836718378_))) - (__tmp49354 - (let ((__tmp49355 (gx#datum->syntax '#f 'list))) + (__tmp51285 + (let ((__tmp51286 (gx#datum->syntax '#f 'list))) (declare (not safe)) - (cons __tmp49355 _L17893_)))) + (cons __tmp51286 _L17893_)))) (declare (not safe)) - (_g1836519024_ __tmp49354)))) + (_g1836519024_ __tmp51285)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1833918350_))) - (__tmp49356 + (__tmp51287 (if (gx#stx-e _metaclass17952_) (let* ((_g1903219040_ (lambda (_g1903319036_) @@ -1536,16 +1522,16 @@ (lambda (_g1903319044_) ((lambda (_L19047_) (let () - (let ((__tmp49365 + (let ((__tmp51296 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '@list)) - (__tmp49357 - (let ((__tmp49360 - (let ((__tmp49364 + (__tmp51288 + (let ((__tmp51291 + (let ((__tmp51295 (gx#datum->syntax '#f '@list)) - (__tmp49361 - (let ((__tmp49362 - (let ((__tmp49363 + (__tmp51292 + (let ((__tmp51293 + (let ((__tmp51294 (let () (declare (not safe)) @@ -1553,23 +1539,23 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons ':: __tmp49363)))) + (cons ':: __tmp51294)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'metaclass: __tmp49362)))) + (cons 'metaclass: __tmp51293)))) (declare (not safe)) - (cons __tmp49364 __tmp49361))) - (__tmp49358 - (let ((__tmp49359 + (cons __tmp51295 __tmp51292))) + (__tmp51289 + (let ((__tmp51290 (let () (declare (not safe)) (cons _L18325_ '())))) (declare (not safe)) - (cons ':: __tmp49359)))) + (cons ':: __tmp51290)))) (declare (not safe)) - (cons __tmp49360 __tmp49358)))) + (cons __tmp51291 __tmp51289)))) (declare (not safe)) - (cons __tmp49365 __tmp49357)))) + (cons __tmp51296 __tmp51288)))) _g1903319044_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) @@ -1577,125 +1563,125 @@ _metaclass17952_)) _L18325_))) (declare (not safe)) - (_g1833719028_ __tmp49356)))) + (_g1833719028_ __tmp51287)))) _g1831118322_))) - (__tmp49366 + (__tmp51297 (if _struct?17932_ - (let ((__tmp49373 + (let ((__tmp51304 (gx#datum->syntax '#f '@list)) - (__tmp49367 - (let ((__tmp49370 - (let ((__tmp49372 + (__tmp51298 + (let ((__tmp51301 + (let ((__tmp51303 (gx#datum->syntax '#f '@list)) - (__tmp49371 + (__tmp51302 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp49372 - __tmp49371))) - (__tmp49368 - (let ((__tmp49369 + (cons __tmp51303 + __tmp51302))) + (__tmp51299 + (let ((__tmp51300 (let () (declare (not safe)) (cons _L18297_ '())))) (declare (not safe)) - (cons ':: __tmp49369)))) + (cons ':: __tmp51300)))) (declare (not safe)) - (cons __tmp49370 __tmp49368)))) + (cons __tmp51301 __tmp51299)))) (declare (not safe)) - (cons __tmp49373 __tmp49367)) + (cons __tmp51304 __tmp51298)) _L18297_))) (declare (not safe)) - (_g1830919063_ __tmp49366)))) + (_g1830919063_ __tmp51297)))) _g1828318294_))) - (__tmp49374 + (__tmp51305 (if (gx#stx-e _L18213_) - (let ((__tmp49381 (gx#datum->syntax '#f '@list)) - (__tmp49375 - (let ((__tmp49378 - (let ((__tmp49380 + (let ((__tmp51312 (gx#datum->syntax '#f '@list)) + (__tmp51306 + (let ((__tmp51309 + (let ((__tmp51311 (gx#datum->syntax '#f '@list)) - (__tmp49379 + (__tmp51310 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp49380 __tmp49379))) - (__tmp49376 - (let ((__tmp49377 + (cons __tmp51311 __tmp51310))) + (__tmp51307 + (let ((__tmp51308 (let () (declare (not safe)) (cons _L18269_ '())))) (declare (not safe)) - (cons ':: __tmp49377)))) + (cons ':: __tmp51308)))) (declare (not safe)) - (cons __tmp49378 __tmp49376)))) + (cons __tmp51309 __tmp51307)))) (declare (not safe)) - (cons __tmp49381 __tmp49375)) + (cons __tmp51312 __tmp51306)) _L18269_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1828119067_ __tmp49374)))) + (_g1828119067_ __tmp51305)))) _g1825518266_))) - (__tmp49382 + (__tmp51313 (let ((_$e19075_ (gx#stx-getq 'properties: _L17889_))) (if _$e19075_ _$e19075_ - (let ((__tmp49383 + (let ((__tmp51314 (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp49383 '())))))) + (cons __tmp51314 '())))))) (declare (not safe)) - (_g1825319071_ __tmp49382)))) + (_g1825319071_ __tmp51313)))) _g1822718238_))) - (__tmp49384 + (__tmp51315 (if (gx#stx-e _metaclass17952_) (gx#core-quote-syntax _metaclass17952_) '#f))) (declare (not safe)) - (_g1822519079_ __tmp49384)))) + (_g1822519079_ __tmp51315)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1819918210_))) - (__tmp49385 + (__tmp51316 (gx#stx-getq 'final: _L17889_))) (declare (not safe)) - (_g1819719083_ __tmp49385)))) + (_g1819719083_ __tmp51316)))) _g1817118182_)))) (declare (not safe)) (_g1816919087_ _struct?17932_)))) _g1814318154_))) - (__tmp49386 (gx#stx-map gx#core-quote-syntax _L17893_))) + (__tmp51317 (gx#stx-map gx#core-quote-syntax _L17893_))) (declare (not safe)) - (_g1814119091_ __tmp49386)))) + (_g1814119091_ __tmp51317)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1811518126_))) - (__tmp49387 + (__tmp51318 (gx#core-quote-syntax _L17894_))) (declare (not safe)) - (_g1811319095_ __tmp49387)))) + (_g1811319095_ __tmp51318)))) _g1808718098_))) - (__tmp49388 (gx#stx-getq 'constructor: _L17889_))) + (__tmp51319 (gx#stx-getq 'constructor: _L17889_))) (declare (not safe)) - (_g1808519099_ __tmp49388)))) + (_g1808519099_ __tmp51319)))) _g1805918070_))) - (__tmp49389 + (__tmp51320 (let ((_$e19107_ (gx#stx-getq 'name: _L17889_))) (if _$e19107_ _$e19107_ _L17894_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1805719103_ __tmp49389)))) + (_g1805719103_ __tmp51320)))) _g1803118042_))) - (__tmp49390 + (__tmp51321 (let ((_$e19115_ (gx#stx-getq 'id: _L17889_))) (if _$e19115_ @@ -1705,7 +1691,7 @@ (|gerbil/core$$[1]#make-class-type-id| _L17894_)))))) (declare (not safe)) - (_g1802919111_ __tmp49390)))) + (_g1802919111_ __tmp51321)))) _slot1796618005_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -1720,10 +1706,10 @@ (let () (declare (not safe)) (_g1795517972_ _g1795617976_))))) - (__tmp49392 + (__tmp51323 (gx#stx-map _slot-name17802_ _slots17939_))) (declare (not safe)) - (_g1795419119_ __tmp49392)) + (_g1795419119_ __tmp51323)) (let () (declare (not safe)) (_g1780517832_ _g1780617836_)))) diff --git a/src/bootstrap/gerbil/core__7.scm b/src/bootstrap/gerbil/core__7.scm index cc4028278..98304396f 100644 --- a/src/bootstrap/gerbil/core__7.scm +++ b/src/bootstrap/gerbil/core__7.scm @@ -1,433 +1,433 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$$[1]#_g49394_| + (define |gerbil/core$$[1]#_g51325_| (##structure gx#syntax-quote::t 'class-type-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49396_| + (define |gerbil/core$$[1]#_g51327_| (##structure gx#syntax-quote::t 'make-class-type-info #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49398_| + (define |gerbil/core$$[1]#_g51329_| (##structure gx#syntax-quote::t 'class-type-info? #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49416_| + (define |gerbil/core$$[1]#_g51347_| (##structure gx#syntax-quote::t '!class-type-unchecked-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49419_| + (define |gerbil/core$$[1]#_g51350_| (##structure gx#syntax-quote::t '!class-type-unchecked-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49422_| + (define |gerbil/core$$[1]#_g51353_| (##structure gx#syntax-quote::t '!class-type-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49425_| + (define |gerbil/core$$[1]#_g51356_| (##structure gx#syntax-quote::t '!class-type-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49428_| + (define |gerbil/core$$[1]#_g51359_| (##structure gx#syntax-quote::t '!class-type-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49431_| + (define |gerbil/core$$[1]#_g51362_| (##structure gx#syntax-quote::t '!class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49434_| + (define |gerbil/core$$[1]#_g51365_| (##structure gx#syntax-quote::t '!class-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49437_| + (define |gerbil/core$$[1]#_g51368_| (##structure gx#syntax-quote::t '!class-type-constructor-method #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49440_| + (define |gerbil/core$$[1]#_g51371_| (##structure gx#syntax-quote::t '!class-type-metaclass #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49443_| + (define |gerbil/core$$[1]#_g51374_| (##structure gx#syntax-quote::t '!class-type-final? #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49446_| + (define |gerbil/core$$[1]#_g51377_| (##structure gx#syntax-quote::t '!class-type-struct? #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49449_| + (define |gerbil/core$$[1]#_g51380_| (##structure gx#syntax-quote::t '!class-type-slots #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49452_| + (define |gerbil/core$$[1]#_g51383_| (##structure gx#syntax-quote::t '!class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49455_| + (define |gerbil/core$$[1]#_g51386_| (##structure gx#syntax-quote::t '!class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49458_| + (define |gerbil/core$$[1]#_g51389_| (##structure gx#syntax-quote::t '!class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49476_| + (define |gerbil/core$$[1]#_g51407_| (##structure gx#syntax-quote::t '!class-type-unchecked-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49479_| + (define |gerbil/core$$[1]#_g51410_| (##structure gx#syntax-quote::t '!class-type-unchecked-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49482_| + (define |gerbil/core$$[1]#_g51413_| (##structure gx#syntax-quote::t '!class-type-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49485_| + (define |gerbil/core$$[1]#_g51416_| (##structure gx#syntax-quote::t '!class-type-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49488_| + (define |gerbil/core$$[1]#_g51419_| (##structure gx#syntax-quote::t '!class-type-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49491_| + (define |gerbil/core$$[1]#_g51422_| (##structure gx#syntax-quote::t '!class-type-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49494_| + (define |gerbil/core$$[1]#_g51425_| (##structure gx#syntax-quote::t '!class-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49497_| + (define |gerbil/core$$[1]#_g51428_| (##structure gx#syntax-quote::t '!class-type-constructor-method-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49500_| + (define |gerbil/core$$[1]#_g51431_| (##structure gx#syntax-quote::t '!class-type-metaclass-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49503_| + (define |gerbil/core$$[1]#_g51434_| (##structure gx#syntax-quote::t '!class-type-final?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49506_| + (define |gerbil/core$$[1]#_g51437_| (##structure gx#syntax-quote::t '!class-type-struct?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49509_| + (define |gerbil/core$$[1]#_g51440_| (##structure gx#syntax-quote::t '!class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49512_| + (define |gerbil/core$$[1]#_g51443_| (##structure gx#syntax-quote::t '!class-type-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49515_| + (define |gerbil/core$$[1]#_g51446_| (##structure gx#syntax-quote::t '!class-type-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49518_| + (define |gerbil/core$$[1]#_g51449_| (##structure gx#syntax-quote::t '!class-type-id-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49536_| + (define |gerbil/core$$[1]#_g51467_| (##structure gx#syntax-quote::t '&!class-type-unchecked-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49539_| + (define |gerbil/core$$[1]#_g51470_| (##structure gx#syntax-quote::t '&!class-type-unchecked-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49542_| + (define |gerbil/core$$[1]#_g51473_| (##structure gx#syntax-quote::t '&!class-type-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49545_| + (define |gerbil/core$$[1]#_g51476_| (##structure gx#syntax-quote::t '&!class-type-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49548_| + (define |gerbil/core$$[1]#_g51479_| (##structure gx#syntax-quote::t '&!class-type-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49551_| + (define |gerbil/core$$[1]#_g51482_| (##structure gx#syntax-quote::t '&!class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49554_| + (define |gerbil/core$$[1]#_g51485_| (##structure gx#syntax-quote::t '&!class-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49557_| + (define |gerbil/core$$[1]#_g51488_| (##structure gx#syntax-quote::t '&!class-type-constructor-method #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49562_| + (define |gerbil/core$$[1]#_g51493_| (##structure gx#syntax-quote::t '&!class-type-final? #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49565_| + (define |gerbil/core$$[1]#_g51496_| (##structure gx#syntax-quote::t '&!class-type-struct? #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49568_| + (define |gerbil/core$$[1]#_g51499_| (##structure gx#syntax-quote::t '&!class-type-slots #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49571_| + (define |gerbil/core$$[1]#_g51502_| (##structure gx#syntax-quote::t '&!class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49574_| + (define |gerbil/core$$[1]#_g51505_| (##structure gx#syntax-quote::t '&!class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49577_| + (define |gerbil/core$$[1]#_g51508_| (##structure gx#syntax-quote::t '&!class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49595_| + (define |gerbil/core$$[1]#_g51526_| (##structure gx#syntax-quote::t '&!class-type-unchecked-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49598_| + (define |gerbil/core$$[1]#_g51529_| (##structure gx#syntax-quote::t '&!class-type-unchecked-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49601_| + (define |gerbil/core$$[1]#_g51532_| (##structure gx#syntax-quote::t '&!class-type-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49604_| + (define |gerbil/core$$[1]#_g51535_| (##structure gx#syntax-quote::t '&!class-type-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49607_| + (define |gerbil/core$$[1]#_g51538_| (##structure gx#syntax-quote::t '&!class-type-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49610_| + (define |gerbil/core$$[1]#_g51541_| (##structure gx#syntax-quote::t '&!class-type-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49613_| + (define |gerbil/core$$[1]#_g51544_| (##structure gx#syntax-quote::t '&!class-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49616_| + (define |gerbil/core$$[1]#_g51547_| (##structure gx#syntax-quote::t '&!class-type-constructor-method-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49619_| + (define |gerbil/core$$[1]#_g51550_| (##structure gx#syntax-quote::t '&!class-type-metaclass-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49622_| + (define |gerbil/core$$[1]#_g51553_| (##structure gx#syntax-quote::t '&!class-type-final?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49625_| + (define |gerbil/core$$[1]#_g51556_| (##structure gx#syntax-quote::t '&!class-type-struct?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49628_| + (define |gerbil/core$$[1]#_g51559_| (##structure gx#syntax-quote::t '&!class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49631_| + (define |gerbil/core$$[1]#_g51562_| (##structure gx#syntax-quote::t '&!class-type-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49634_| + (define |gerbil/core$$[1]#_g51565_| (##structure gx#syntax-quote::t '&!class-type-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49637_| + (define |gerbil/core$$[1]#_g51568_| (##structure gx#syntax-quote::t '&!class-type-id-set! @@ -435,7 +435,7 @@ (gx#current-expander-context) '())) (define |gerbil/core$$[:0:]#class-type-info| - (let ((__obj47523 + (let ((__obj49627 (let () (declare (not safe)) (##structure @@ -458,7 +458,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47523 + __obj49627 'gerbil.core#class-type-info::t '1 gerbil/core$$#class-type-info::t @@ -466,7 +466,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47523 + __obj49627 'class-type-info '2 gerbil/core$$#class-type-info::t @@ -474,7 +474,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47523 + __obj49627 '() '3 gerbil/core$$#class-type-info::t @@ -482,7 +482,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47523 + __obj49627 '(id name super slots @@ -503,7 +503,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47523 + __obj49627 '#f '5 gerbil/core$$#class-type-info::t @@ -511,7 +511,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47523 + __obj49627 '#f '6 gerbil/core$$#class-type-info::t @@ -519,577 +519,577 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47523 + __obj49627 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49393 |gerbil/core$$[1]#_g49394_|)) + (let ((__tmp51324 |gerbil/core$$[1]#_g51325_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47523 - __tmp49393 + __obj49627 + __tmp51324 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49395 |gerbil/core$$[1]#_g49396_|)) + (let ((__tmp51326 |gerbil/core$$[1]#_g51327_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47523 - __tmp49395 + __obj49627 + __tmp51326 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49397 |gerbil/core$$[1]#_g49398_|)) + (let ((__tmp51328 |gerbil/core$$[1]#_g51329_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47523 - __tmp49397 + __obj49627 + __tmp51328 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49399 - (let ((__tmp49456 - (let ((__tmp49457 |gerbil/core$$[1]#_g49458_|)) + (let ((__tmp51330 + (let ((__tmp51387 + (let ((__tmp51388 |gerbil/core$$[1]#_g51389_|)) (declare (not safe)) - (cons 'id __tmp49457))) - (__tmp49400 - (let ((__tmp49453 - (let ((__tmp49454 - |gerbil/core$$[1]#_g49455_|)) + (cons 'id __tmp51388))) + (__tmp51331 + (let ((__tmp51384 + (let ((__tmp51385 + |gerbil/core$$[1]#_g51386_|)) (declare (not safe)) - (cons 'name __tmp49454))) - (__tmp49401 - (let ((__tmp49450 - (let ((__tmp49451 - |gerbil/core$$[1]#_g49452_|)) + (cons 'name __tmp51385))) + (__tmp51332 + (let ((__tmp51381 + (let ((__tmp51382 + |gerbil/core$$[1]#_g51383_|)) (declare (not safe)) - (cons 'super __tmp49451))) - (__tmp49402 - (let ((__tmp49447 - (let ((__tmp49448 - |gerbil/core$$[1]#_g49449_|)) + (cons 'super __tmp51382))) + (__tmp51333 + (let ((__tmp51378 + (let ((__tmp51379 + |gerbil/core$$[1]#_g51380_|)) (declare (not safe)) - (cons 'slots __tmp49448))) - (__tmp49403 - (let ((__tmp49444 - (let ((__tmp49445 - |gerbil/core$$[1]#_g49446_|)) + (cons 'slots __tmp51379))) + (__tmp51334 + (let ((__tmp51375 + (let ((__tmp51376 + |gerbil/core$$[1]#_g51377_|)) (declare (not safe)) - (cons 'struct? __tmp49445))) - (__tmp49404 - (let ((__tmp49441 - (let ((__tmp49442 - |gerbil/core$$[1]#_g49443_|)) + (cons 'struct? __tmp51376))) + (__tmp51335 + (let ((__tmp51372 + (let ((__tmp51373 + |gerbil/core$$[1]#_g51374_|)) (declare (not safe)) (cons 'final? - __tmp49442))) - (__tmp49405 - (let ((__tmp49438 - (let ((__tmp49439 + __tmp51373))) + (__tmp51336 + (let ((__tmp51369 + (let ((__tmp51370 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$$[1]#_g49440_|)) + |gerbil/core$$[1]#_g51371_|)) (declare (not safe)) - (cons 'metaclass __tmp49439))) - (__tmp49406 - (let ((__tmp49435 - (let ((__tmp49436 - |gerbil/core$$[1]#_g49437_|)) + (cons 'metaclass __tmp51370))) + (__tmp51337 + (let ((__tmp51366 + (let ((__tmp51367 + |gerbil/core$$[1]#_g51368_|)) (declare (not safe)) - (cons 'constructor-method __tmp49436))) - (__tmp49407 - (let ((__tmp49432 - (let ((__tmp49433 - |gerbil/core$$[1]#_g49434_|)) + (cons 'constructor-method __tmp51367))) + (__tmp51338 + (let ((__tmp51363 + (let ((__tmp51364 + |gerbil/core$$[1]#_g51365_|)) (declare (not safe)) - (cons 'type-descriptor __tmp49433))) - (__tmp49408 - (let ((__tmp49429 - (let ((__tmp49430 - |gerbil/core$$[1]#_g49431_|)) + (cons 'type-descriptor __tmp51364))) + (__tmp51339 + (let ((__tmp51360 + (let ((__tmp51361 + |gerbil/core$$[1]#_g51362_|)) (declare (not safe)) - (cons 'constructor __tmp49430))) - (__tmp49409 - (let ((__tmp49426 - (let ((__tmp49427 - |gerbil/core$$[1]#_g49428_|)) + (cons 'constructor __tmp51361))) + (__tmp51340 + (let ((__tmp51357 + (let ((__tmp51358 + |gerbil/core$$[1]#_g51359_|)) (declare (not safe)) (cons 'predicate - __tmp49427))) - (__tmp49410 - (let ((__tmp49423 - (let ((__tmp49424 - |gerbil/core$$[1]#_g49425_|)) + __tmp51358))) + (__tmp51341 + (let ((__tmp51354 + (let ((__tmp51355 + |gerbil/core$$[1]#_g51356_|)) (declare (not safe)) (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp49424))) - (__tmp49411 - (let ((__tmp49420 - (let ((__tmp49421 - |gerbil/core$$[1]#_g49422_|)) + __tmp51355))) + (__tmp51342 + (let ((__tmp51351 + (let ((__tmp51352 + |gerbil/core$$[1]#_g51353_|)) (declare (not safe)) - (cons 'mutators __tmp49421))) - (__tmp49412 - (let ((__tmp49417 - (let ((__tmp49418 - |gerbil/core$$[1]#_g49419_|)) + (cons 'mutators __tmp51352))) + (__tmp51343 + (let ((__tmp51348 + (let ((__tmp51349 + |gerbil/core$$[1]#_g51350_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp49418))) - (__tmp49413 - (let ((__tmp49414 - (let ((__tmp49415 - |gerbil/core$$[1]#_g49416_|)) + (cons 'unchecked-accessors __tmp51349))) + (__tmp51344 + (let ((__tmp51345 + (let ((__tmp51346 + |gerbil/core$$[1]#_g51347_|)) (declare (not safe)) (cons 'unchecked-mutators - __tmp49415)))) + __tmp51346)))) (declare (not safe)) - (cons __tmp49414 '())))) + (cons __tmp51345 '())))) (declare (not safe)) - (cons __tmp49417 __tmp49413)))) + (cons __tmp51348 __tmp51344)))) (declare (not safe)) - (cons __tmp49420 __tmp49412)))) + (cons __tmp51351 __tmp51343)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49423 - __tmp49411)))) + (cons __tmp51354 + __tmp51342)))) (declare (not safe)) - (cons __tmp49426 __tmp49410)))) + (cons __tmp51357 __tmp51341)))) (declare (not safe)) - (cons __tmp49429 __tmp49409)))) + (cons __tmp51360 __tmp51340)))) (declare (not safe)) - (cons __tmp49432 __tmp49408)))) + (cons __tmp51363 __tmp51339)))) (declare (not safe)) - (cons __tmp49435 __tmp49407)))) + (cons __tmp51366 __tmp51338)))) (declare (not safe)) - (cons __tmp49438 __tmp49406)))) + (cons __tmp51369 __tmp51337)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49441 - __tmp49405)))) + (cons __tmp51372 + __tmp51336)))) (declare (not safe)) - (cons __tmp49444 __tmp49404)))) + (cons __tmp51375 __tmp51335)))) (declare (not safe)) - (cons __tmp49447 __tmp49403)))) + (cons __tmp51378 __tmp51334)))) (declare (not safe)) - (cons __tmp49450 __tmp49402)))) + (cons __tmp51381 __tmp51333)))) (declare (not safe)) - (cons __tmp49453 __tmp49401)))) + (cons __tmp51384 __tmp51332)))) (declare (not safe)) - (cons __tmp49456 __tmp49400)))) + (cons __tmp51387 __tmp51331)))) (declare (not safe)) (##unchecked-structure-set! - __obj47523 - __tmp49399 + __obj49627 + __tmp51330 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49459 - (let ((__tmp49516 - (let ((__tmp49517 |gerbil/core$$[1]#_g49518_|)) + (let ((__tmp51390 + (let ((__tmp51447 + (let ((__tmp51448 |gerbil/core$$[1]#_g51449_|)) (declare (not safe)) - (cons 'id __tmp49517))) - (__tmp49460 - (let ((__tmp49513 - (let ((__tmp49514 - |gerbil/core$$[1]#_g49515_|)) + (cons 'id __tmp51448))) + (__tmp51391 + (let ((__tmp51444 + (let ((__tmp51445 + |gerbil/core$$[1]#_g51446_|)) (declare (not safe)) - (cons 'name __tmp49514))) - (__tmp49461 - (let ((__tmp49510 - (let ((__tmp49511 - |gerbil/core$$[1]#_g49512_|)) + (cons 'name __tmp51445))) + (__tmp51392 + (let ((__tmp51441 + (let ((__tmp51442 + |gerbil/core$$[1]#_g51443_|)) (declare (not safe)) - (cons 'super __tmp49511))) - (__tmp49462 - (let ((__tmp49507 - (let ((__tmp49508 - |gerbil/core$$[1]#_g49509_|)) + (cons 'super __tmp51442))) + (__tmp51393 + (let ((__tmp51438 + (let ((__tmp51439 + |gerbil/core$$[1]#_g51440_|)) (declare (not safe)) - (cons 'slots __tmp49508))) - (__tmp49463 - (let ((__tmp49504 - (let ((__tmp49505 - |gerbil/core$$[1]#_g49506_|)) + (cons 'slots __tmp51439))) + (__tmp51394 + (let ((__tmp51435 + (let ((__tmp51436 + |gerbil/core$$[1]#_g51437_|)) (declare (not safe)) - (cons 'struct? __tmp49505))) - (__tmp49464 - (let ((__tmp49501 - (let ((__tmp49502 - |gerbil/core$$[1]#_g49503_|)) + (cons 'struct? __tmp51436))) + (__tmp51395 + (let ((__tmp51432 + (let ((__tmp51433 + |gerbil/core$$[1]#_g51434_|)) (declare (not safe)) (cons 'final? - __tmp49502))) - (__tmp49465 - (let ((__tmp49498 - (let ((__tmp49499 + __tmp51433))) + (__tmp51396 + (let ((__tmp51429 + (let ((__tmp51430 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$$[1]#_g49500_|)) + |gerbil/core$$[1]#_g51431_|)) (declare (not safe)) - (cons 'metaclass __tmp49499))) - (__tmp49466 - (let ((__tmp49495 - (let ((__tmp49496 - |gerbil/core$$[1]#_g49497_|)) + (cons 'metaclass __tmp51430))) + (__tmp51397 + (let ((__tmp51426 + (let ((__tmp51427 + |gerbil/core$$[1]#_g51428_|)) (declare (not safe)) - (cons 'constructor-method __tmp49496))) - (__tmp49467 - (let ((__tmp49492 - (let ((__tmp49493 - |gerbil/core$$[1]#_g49494_|)) + (cons 'constructor-method __tmp51427))) + (__tmp51398 + (let ((__tmp51423 + (let ((__tmp51424 + |gerbil/core$$[1]#_g51425_|)) (declare (not safe)) - (cons 'type-descriptor __tmp49493))) - (__tmp49468 - (let ((__tmp49489 - (let ((__tmp49490 - |gerbil/core$$[1]#_g49491_|)) + (cons 'type-descriptor __tmp51424))) + (__tmp51399 + (let ((__tmp51420 + (let ((__tmp51421 + |gerbil/core$$[1]#_g51422_|)) (declare (not safe)) - (cons 'constructor __tmp49490))) - (__tmp49469 - (let ((__tmp49486 - (let ((__tmp49487 - |gerbil/core$$[1]#_g49488_|)) + (cons 'constructor __tmp51421))) + (__tmp51400 + (let ((__tmp51417 + (let ((__tmp51418 + |gerbil/core$$[1]#_g51419_|)) (declare (not safe)) (cons 'predicate - __tmp49487))) - (__tmp49470 - (let ((__tmp49483 - (let ((__tmp49484 - |gerbil/core$$[1]#_g49485_|)) + __tmp51418))) + (__tmp51401 + (let ((__tmp51414 + (let ((__tmp51415 + |gerbil/core$$[1]#_g51416_|)) (declare (not safe)) (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp49484))) - (__tmp49471 - (let ((__tmp49480 - (let ((__tmp49481 - |gerbil/core$$[1]#_g49482_|)) + __tmp51415))) + (__tmp51402 + (let ((__tmp51411 + (let ((__tmp51412 + |gerbil/core$$[1]#_g51413_|)) (declare (not safe)) - (cons 'mutators __tmp49481))) - (__tmp49472 - (let ((__tmp49477 - (let ((__tmp49478 - |gerbil/core$$[1]#_g49479_|)) + (cons 'mutators __tmp51412))) + (__tmp51403 + (let ((__tmp51408 + (let ((__tmp51409 + |gerbil/core$$[1]#_g51410_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp49478))) - (__tmp49473 - (let ((__tmp49474 - (let ((__tmp49475 - |gerbil/core$$[1]#_g49476_|)) + (cons 'unchecked-accessors __tmp51409))) + (__tmp51404 + (let ((__tmp51405 + (let ((__tmp51406 + |gerbil/core$$[1]#_g51407_|)) (declare (not safe)) (cons 'unchecked-mutators - __tmp49475)))) + __tmp51406)))) (declare (not safe)) - (cons __tmp49474 '())))) + (cons __tmp51405 '())))) (declare (not safe)) - (cons __tmp49477 __tmp49473)))) + (cons __tmp51408 __tmp51404)))) (declare (not safe)) - (cons __tmp49480 __tmp49472)))) + (cons __tmp51411 __tmp51403)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49483 - __tmp49471)))) + (cons __tmp51414 + __tmp51402)))) (declare (not safe)) - (cons __tmp49486 __tmp49470)))) + (cons __tmp51417 __tmp51401)))) (declare (not safe)) - (cons __tmp49489 __tmp49469)))) + (cons __tmp51420 __tmp51400)))) (declare (not safe)) - (cons __tmp49492 __tmp49468)))) + (cons __tmp51423 __tmp51399)))) (declare (not safe)) - (cons __tmp49495 __tmp49467)))) + (cons __tmp51426 __tmp51398)))) (declare (not safe)) - (cons __tmp49498 __tmp49466)))) + (cons __tmp51429 __tmp51397)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49501 - __tmp49465)))) + (cons __tmp51432 + __tmp51396)))) (declare (not safe)) - (cons __tmp49504 __tmp49464)))) + (cons __tmp51435 __tmp51395)))) (declare (not safe)) - (cons __tmp49507 __tmp49463)))) + (cons __tmp51438 __tmp51394)))) (declare (not safe)) - (cons __tmp49510 __tmp49462)))) + (cons __tmp51441 __tmp51393)))) (declare (not safe)) - (cons __tmp49513 __tmp49461)))) + (cons __tmp51444 __tmp51392)))) (declare (not safe)) - (cons __tmp49516 __tmp49460)))) + (cons __tmp51447 __tmp51391)))) (declare (not safe)) (##unchecked-structure-set! - __obj47523 - __tmp49459 + __obj49627 + __tmp51390 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49519 - (let ((__tmp49575 - (let ((__tmp49576 |gerbil/core$$[1]#_g49577_|)) + (let ((__tmp51450 + (let ((__tmp51506 + (let ((__tmp51507 |gerbil/core$$[1]#_g51508_|)) (declare (not safe)) - (cons 'id __tmp49576))) - (__tmp49520 - (let ((__tmp49572 - (let ((__tmp49573 - |gerbil/core$$[1]#_g49574_|)) + (cons 'id __tmp51507))) + (__tmp51451 + (let ((__tmp51503 + (let ((__tmp51504 + |gerbil/core$$[1]#_g51505_|)) (declare (not safe)) - (cons 'name __tmp49573))) - (__tmp49521 - (let ((__tmp49569 - (let ((__tmp49570 - |gerbil/core$$[1]#_g49571_|)) + (cons 'name __tmp51504))) + (__tmp51452 + (let ((__tmp51500 + (let ((__tmp51501 + |gerbil/core$$[1]#_g51502_|)) (declare (not safe)) - (cons 'super __tmp49570))) - (__tmp49522 - (let ((__tmp49566 - (let ((__tmp49567 - |gerbil/core$$[1]#_g49568_|)) + (cons 'super __tmp51501))) + (__tmp51453 + (let ((__tmp51497 + (let ((__tmp51498 + |gerbil/core$$[1]#_g51499_|)) (declare (not safe)) - (cons 'slots __tmp49567))) - (__tmp49523 - (let ((__tmp49563 - (let ((__tmp49564 - |gerbil/core$$[1]#_g49565_|)) + (cons 'slots __tmp51498))) + (__tmp51454 + (let ((__tmp51494 + (let ((__tmp51495 + |gerbil/core$$[1]#_g51496_|)) (declare (not safe)) - (cons 'struct? __tmp49564))) - (__tmp49524 - (let ((__tmp49560 - (let ((__tmp49561 - |gerbil/core$$[1]#_g49562_|)) + (cons 'struct? __tmp51495))) + (__tmp51455 + (let ((__tmp51491 + (let ((__tmp51492 + |gerbil/core$$[1]#_g51493_|)) (declare (not safe)) (cons 'final? - __tmp49561))) - (__tmp49525 - (let ((__tmp49558 - (let ((__tmp49559 + __tmp51492))) + (__tmp51456 + (let ((__tmp51489 + (let ((__tmp51490 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$$[1]#_g49440_|)) + |gerbil/core$$[1]#_g51371_|)) (declare (not safe)) - (cons 'metaclass __tmp49559))) - (__tmp49526 - (let ((__tmp49555 - (let ((__tmp49556 - |gerbil/core$$[1]#_g49557_|)) + (cons 'metaclass __tmp51490))) + (__tmp51457 + (let ((__tmp51486 + (let ((__tmp51487 + |gerbil/core$$[1]#_g51488_|)) (declare (not safe)) - (cons 'constructor-method __tmp49556))) - (__tmp49527 - (let ((__tmp49552 - (let ((__tmp49553 - |gerbil/core$$[1]#_g49554_|)) + (cons 'constructor-method __tmp51487))) + (__tmp51458 + (let ((__tmp51483 + (let ((__tmp51484 + |gerbil/core$$[1]#_g51485_|)) (declare (not safe)) - (cons 'type-descriptor __tmp49553))) - (__tmp49528 - (let ((__tmp49549 - (let ((__tmp49550 - |gerbil/core$$[1]#_g49551_|)) + (cons 'type-descriptor __tmp51484))) + (__tmp51459 + (let ((__tmp51480 + (let ((__tmp51481 + |gerbil/core$$[1]#_g51482_|)) (declare (not safe)) - (cons 'constructor __tmp49550))) - (__tmp49529 - (let ((__tmp49546 - (let ((__tmp49547 - |gerbil/core$$[1]#_g49548_|)) + (cons 'constructor __tmp51481))) + (__tmp51460 + (let ((__tmp51477 + (let ((__tmp51478 + |gerbil/core$$[1]#_g51479_|)) (declare (not safe)) (cons 'predicate - __tmp49547))) - (__tmp49530 - (let ((__tmp49543 - (let ((__tmp49544 - |gerbil/core$$[1]#_g49545_|)) + __tmp51478))) + (__tmp51461 + (let ((__tmp51474 + (let ((__tmp51475 + |gerbil/core$$[1]#_g51476_|)) (declare (not safe)) (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp49544))) - (__tmp49531 - (let ((__tmp49540 - (let ((__tmp49541 - |gerbil/core$$[1]#_g49542_|)) + __tmp51475))) + (__tmp51462 + (let ((__tmp51471 + (let ((__tmp51472 + |gerbil/core$$[1]#_g51473_|)) (declare (not safe)) - (cons 'mutators __tmp49541))) - (__tmp49532 - (let ((__tmp49537 - (let ((__tmp49538 - |gerbil/core$$[1]#_g49539_|)) + (cons 'mutators __tmp51472))) + (__tmp51463 + (let ((__tmp51468 + (let ((__tmp51469 + |gerbil/core$$[1]#_g51470_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp49538))) - (__tmp49533 - (let ((__tmp49534 - (let ((__tmp49535 - |gerbil/core$$[1]#_g49536_|)) + (cons 'unchecked-accessors __tmp51469))) + (__tmp51464 + (let ((__tmp51465 + (let ((__tmp51466 + |gerbil/core$$[1]#_g51467_|)) (declare (not safe)) (cons 'unchecked-mutators - __tmp49535)))) + __tmp51466)))) (declare (not safe)) - (cons __tmp49534 '())))) + (cons __tmp51465 '())))) (declare (not safe)) - (cons __tmp49537 __tmp49533)))) + (cons __tmp51468 __tmp51464)))) (declare (not safe)) - (cons __tmp49540 __tmp49532)))) + (cons __tmp51471 __tmp51463)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49543 - __tmp49531)))) + (cons __tmp51474 + __tmp51462)))) (declare (not safe)) - (cons __tmp49546 __tmp49530)))) + (cons __tmp51477 __tmp51461)))) (declare (not safe)) - (cons __tmp49549 __tmp49529)))) + (cons __tmp51480 __tmp51460)))) (declare (not safe)) - (cons __tmp49552 __tmp49528)))) + (cons __tmp51483 __tmp51459)))) (declare (not safe)) - (cons __tmp49555 __tmp49527)))) + (cons __tmp51486 __tmp51458)))) (declare (not safe)) - (cons __tmp49558 __tmp49526)))) + (cons __tmp51489 __tmp51457)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49560 - __tmp49525)))) + (cons __tmp51491 + __tmp51456)))) (declare (not safe)) - (cons __tmp49563 __tmp49524)))) + (cons __tmp51494 __tmp51455)))) (declare (not safe)) - (cons __tmp49566 __tmp49523)))) + (cons __tmp51497 __tmp51454)))) (declare (not safe)) - (cons __tmp49569 __tmp49522)))) + (cons __tmp51500 __tmp51453)))) (declare (not safe)) - (cons __tmp49572 __tmp49521)))) + (cons __tmp51503 __tmp51452)))) (declare (not safe)) - (cons __tmp49575 __tmp49520)))) + (cons __tmp51506 __tmp51451)))) (declare (not safe)) (##unchecked-structure-set! - __obj47523 - __tmp49519 + __obj49627 + __tmp51450 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49578 - (let ((__tmp49635 - (let ((__tmp49636 |gerbil/core$$[1]#_g49637_|)) + (let ((__tmp51509 + (let ((__tmp51566 + (let ((__tmp51567 |gerbil/core$$[1]#_g51568_|)) (declare (not safe)) - (cons 'id __tmp49636))) - (__tmp49579 - (let ((__tmp49632 - (let ((__tmp49633 - |gerbil/core$$[1]#_g49634_|)) + (cons 'id __tmp51567))) + (__tmp51510 + (let ((__tmp51563 + (let ((__tmp51564 + |gerbil/core$$[1]#_g51565_|)) (declare (not safe)) - (cons 'name __tmp49633))) - (__tmp49580 - (let ((__tmp49629 - (let ((__tmp49630 - |gerbil/core$$[1]#_g49631_|)) + (cons 'name __tmp51564))) + (__tmp51511 + (let ((__tmp51560 + (let ((__tmp51561 + |gerbil/core$$[1]#_g51562_|)) (declare (not safe)) - (cons 'super __tmp49630))) - (__tmp49581 - (let ((__tmp49626 - (let ((__tmp49627 - |gerbil/core$$[1]#_g49628_|)) + (cons 'super __tmp51561))) + (__tmp51512 + (let ((__tmp51557 + (let ((__tmp51558 + |gerbil/core$$[1]#_g51559_|)) (declare (not safe)) - (cons 'slots __tmp49627))) - (__tmp49582 - (let ((__tmp49623 - (let ((__tmp49624 - |gerbil/core$$[1]#_g49625_|)) + (cons 'slots __tmp51558))) + (__tmp51513 + (let ((__tmp51554 + (let ((__tmp51555 + |gerbil/core$$[1]#_g51556_|)) (declare (not safe)) - (cons 'struct? __tmp49624))) - (__tmp49583 - (let ((__tmp49620 - (let ((__tmp49621 - |gerbil/core$$[1]#_g49622_|)) + (cons 'struct? __tmp51555))) + (__tmp51514 + (let ((__tmp51551 + (let ((__tmp51552 + |gerbil/core$$[1]#_g51553_|)) (declare (not safe)) (cons 'final? - __tmp49621))) - (__tmp49584 - (let ((__tmp49617 - (let ((__tmp49618 + __tmp51552))) + (__tmp51515 + (let ((__tmp51548 + (let ((__tmp51549 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$$[1]#_g49619_|)) + |gerbil/core$$[1]#_g51550_|)) (declare (not safe)) - (cons 'metaclass __tmp49618))) - (__tmp49585 - (let ((__tmp49614 - (let ((__tmp49615 - |gerbil/core$$[1]#_g49616_|)) + (cons 'metaclass __tmp51549))) + (__tmp51516 + (let ((__tmp51545 + (let ((__tmp51546 + |gerbil/core$$[1]#_g51547_|)) (declare (not safe)) - (cons 'constructor-method __tmp49615))) - (__tmp49586 - (let ((__tmp49611 - (let ((__tmp49612 - |gerbil/core$$[1]#_g49613_|)) + (cons 'constructor-method __tmp51546))) + (__tmp51517 + (let ((__tmp51542 + (let ((__tmp51543 + |gerbil/core$$[1]#_g51544_|)) (declare (not safe)) - (cons 'type-descriptor __tmp49612))) - (__tmp49587 - (let ((__tmp49608 - (let ((__tmp49609 - |gerbil/core$$[1]#_g49610_|)) + (cons 'type-descriptor __tmp51543))) + (__tmp51518 + (let ((__tmp51539 + (let ((__tmp51540 + |gerbil/core$$[1]#_g51541_|)) (declare (not safe)) - (cons 'constructor __tmp49609))) - (__tmp49588 - (let ((__tmp49605 - (let ((__tmp49606 - |gerbil/core$$[1]#_g49607_|)) + (cons 'constructor __tmp51540))) + (__tmp51519 + (let ((__tmp51536 + (let ((__tmp51537 + |gerbil/core$$[1]#_g51538_|)) (declare (not safe)) (cons 'predicate - __tmp49606))) - (__tmp49589 - (let ((__tmp49602 - (let ((__tmp49603 - |gerbil/core$$[1]#_g49604_|)) + __tmp51537))) + (__tmp51520 + (let ((__tmp51533 + (let ((__tmp51534 + |gerbil/core$$[1]#_g51535_|)) (declare (not safe)) (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp49603))) - (__tmp49590 - (let ((__tmp49599 - (let ((__tmp49600 - |gerbil/core$$[1]#_g49601_|)) + __tmp51534))) + (__tmp51521 + (let ((__tmp51530 + (let ((__tmp51531 + |gerbil/core$$[1]#_g51532_|)) (declare (not safe)) - (cons 'mutators __tmp49600))) - (__tmp49591 - (let ((__tmp49596 - (let ((__tmp49597 - |gerbil/core$$[1]#_g49598_|)) + (cons 'mutators __tmp51531))) + (__tmp51522 + (let ((__tmp51527 + (let ((__tmp51528 + |gerbil/core$$[1]#_g51529_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp49597))) - (__tmp49592 - (let ((__tmp49593 - (let ((__tmp49594 - |gerbil/core$$[1]#_g49595_|)) + (cons 'unchecked-accessors __tmp51528))) + (__tmp51523 + (let ((__tmp51524 + (let ((__tmp51525 + |gerbil/core$$[1]#_g51526_|)) (declare (not safe)) (cons 'unchecked-mutators - __tmp49594)))) + __tmp51525)))) (declare (not safe)) - (cons __tmp49593 '())))) + (cons __tmp51524 '())))) (declare (not safe)) - (cons __tmp49596 __tmp49592)))) + (cons __tmp51527 __tmp51523)))) (declare (not safe)) - (cons __tmp49599 __tmp49591)))) + (cons __tmp51530 __tmp51522)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49602 - __tmp49590)))) + (cons __tmp51533 + __tmp51521)))) (declare (not safe)) - (cons __tmp49605 __tmp49589)))) + (cons __tmp51536 __tmp51520)))) (declare (not safe)) - (cons __tmp49608 __tmp49588)))) + (cons __tmp51539 __tmp51519)))) (declare (not safe)) - (cons __tmp49611 __tmp49587)))) + (cons __tmp51542 __tmp51518)))) (declare (not safe)) - (cons __tmp49614 __tmp49586)))) + (cons __tmp51545 __tmp51517)))) (declare (not safe)) - (cons __tmp49617 __tmp49585)))) + (cons __tmp51548 __tmp51516)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49620 - __tmp49584)))) + (cons __tmp51551 + __tmp51515)))) (declare (not safe)) - (cons __tmp49623 __tmp49583)))) + (cons __tmp51554 __tmp51514)))) (declare (not safe)) - (cons __tmp49626 __tmp49582)))) + (cons __tmp51557 __tmp51513)))) (declare (not safe)) - (cons __tmp49629 __tmp49581)))) + (cons __tmp51560 __tmp51512)))) (declare (not safe)) - (cons __tmp49632 __tmp49580)))) + (cons __tmp51563 __tmp51511)))) (declare (not safe)) - (cons __tmp49635 __tmp49579)))) + (cons __tmp51566 __tmp51510)))) (declare (not safe)) (##unchecked-structure-set! - __obj47523 - __tmp49578 + __obj49627 + __tmp51509 '15 gerbil/core$$#class-type-info::t '#f)) - __obj47523))) + __obj49627))) diff --git a/src/bootstrap/gerbil/core__8.scm b/src/bootstrap/gerbil/core__8.scm index e9fcaef56..0404eaaac 100644 --- a/src/bootstrap/gerbil/core__8.scm +++ b/src/bootstrap/gerbil/core__8.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$$[1]#_g49984_| + (define |gerbil/core$$[1]#_g51887_| (##structure gx#syntax-quote::t '@method @@ -32,7 +32,7 @@ (gx#stx-source _stx19359_)))) (_make-id19368_ (if (uninterned-symbol? (gx#stx-e _id19361_)) - (lambda _g49638_ (gx#genident _id19361_)) + (lambda _g51569_ (gx#genident _id19361_)) (lambda _args21569_ (apply gx#stx-identifier _id19361_ _args21569_)))) (_get-mixin-slots19369_ @@ -40,7 +40,7 @@ (letrec* ((_tab21547_ (let () (declare (not safe)) - (make-table 'test: eq?))) + (make-hash-table-eq))) (_dedup21549_ (lambda (_mixins21554_) (let _lp21557_ ((_rest21560_ _mixins21554_) @@ -51,96 +51,95 @@ (let ((_slot21564_ (car _rest21560_))) (if (let () (declare (not safe)) - (table-ref + (hash-get _tab21547_ - _slot21564_ - '#f)) - (let ((__tmp49641 + _slot21564_)) + (let ((__tmp51572 (cdr _rest21560_))) (declare (not safe)) (_lp21557_ - __tmp49641 + __tmp51572 _r21562_)) (begin (let () (declare (not safe)) - (table-set! + (hash-put! _tab21547_ _slot21564_ '#t)) - (let ((__tmp49640 + (let ((__tmp51571 (cdr _rest21560_)) - (__tmp49639 + (__tmp51570 (let () (declare (not safe)) (cons _slot21564_ _r21562_)))) (declare (not safe)) (_lp21557_ - __tmp49640 - __tmp49639))))) + __tmp51571 + __tmp51570))))) (reverse _r21562_)))))) (gx#stx-for-each (lambda (_slot21551_) - (let ((__tmp49642 (gx#stx-e _slot21551_))) + (let ((__tmp51573 (gx#stx-e _slot21551_))) (declare (not safe)) - (table-set! _tab21547_ __tmp49642 '#t))) + (hash-put! _tab21547_ __tmp51573 '#t))) _slots21545_) (if (let () (declare (not safe)) (not _super21543_)) '() (if (gx#identifier? _super21543_) - (let ((__tmp49644 + (let ((__tmp51575 (let () (declare (not safe)) (_get-mixin-slots-r19370_ _super21543_)))) (declare (not safe)) - (_dedup21549_ __tmp49644)) - (let ((__tmp49643 + (_dedup21549_ __tmp51575)) + (let ((__tmp51574 (concatenate (map _get-mixin-slots-r19370_ _super21543_)))) (declare (not safe)) - (_dedup21549_ __tmp49643))))))) + (_dedup21549_ __tmp51574))))))) (_get-mixin-slots-r19370_ (lambda (_type-id21537_) (let ((_info21540_ (gx#syntax-local-value _type-id21537_))) - (append (let ((__obj47524 _info21540_)) + (append (let ((__obj49628 _info21540_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47524 + __obj49628 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47524 + __obj49628 '4 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47524 + __obj49628 'slots))) (concatenate (map _get-mixin-slots-r19370_ - (let ((__obj47525 _info21540_)) + (let ((__obj49629 _info21540_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47525 + __obj49629 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47525 + __obj49629 '3 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47525 + __obj49629 'super)))))))))) (gx#check-duplicate-identifiers _slots19363_ _stx19359_) (let* ((_name19372_ (symbol->string (gx#stx-e _id19361_))) @@ -207,28 +206,28 @@ (lambda (_g1952519545_) (if (gx#stx-pair/null? _g1952519545_) - (let ((_g49645_ + (let ((_g51576_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g1952519545_ '0))) (begin - (let ((_g49646_ + (let ((_g51577_ (let () (declare (not safe)) - (if (##values? _g49645_) - (##vector-length _g49645_) + (if (##values? _g51576_) + (##vector-length _g51576_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49646_ 2))) - (error "Context expects 2 values" _g49646_))) + (##fx= _g51577_ 2))) + (error "Context expects 2 values" _g51577_))) (let ((_target1952719548_ (let () (declare (not safe)) - (##vector-ref _g49645_ 0))) + (##vector-ref _g51576_ 0))) (_tl1952919551_ (let () (declare (not safe)) - (##vector-ref _g49645_ 1)))) + (##vector-ref _g51576_ 1)))) (if (gx#stx-null? _tl1952919551_) (letrec ((_loop1953019554_ (lambda (_hd1952819558_ @@ -245,7 +244,7 @@ (let () (declare (not safe)) (##cdr _e1953119564_)))) - (let ((__tmp49923 + (let ((__tmp51826 (let () (declare (not safe)) (cons _lp-hd1953219568_ @@ -253,7 +252,7 @@ (declare (not safe)) (_loop1953019554_ _lp-tl1953319571_ - __tmp49923)))) + __tmp51826)))) (let ((_slot1953519574_ (reverse _slot1953419561_))) ((lambda (_L19578_) @@ -269,28 +268,28 @@ (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1959619616_) - (let ((_g49647_ + (let ((_g51578_ (gx#syntax-split-splice _g1959619616_ '0))) (begin - (let ((_g49648_ + (let ((_g51579_ (let () (declare (not safe)) - (if (##values? _g49647_) - (##vector-length _g49647_) + (if (##values? _g51578_) + (##vector-length _g51578_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49648_ 2))) + (##fx= _g51579_ 2))) (error "Context expects 2 values" - _g49648_))) + _g51579_))) (let ((_target1959819619_ (let () (declare (not safe)) - (##vector-ref _g49647_ 0))) + (##vector-ref _g51578_ 0))) (_tl1960019622_ (let () (declare (not safe)) - (##vector-ref _g49647_ 1)))) + (##vector-ref _g51578_ 1)))) (if (gx#stx-null? _tl1960019622_) (letrec ((_loop1960119625_ (lambda (_hd1959919629_ @@ -308,12 +307,12 @@ (##car _e1960219635_))) (_lp-tl1960419642_ (let () (declare (not safe)) (##cdr _e1960219635_)))) - (let ((__tmp49921 + (let ((__tmp51824 (let () (declare (not safe)) (cons _lp-hd1960319639_ _getf1960519632_)))) (declare (not safe)) - (_loop1960119625_ _lp-tl1960419642_ __tmp49921)))) + (_loop1960119625_ _lp-tl1960419642_ __tmp51824)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_getf1960619645_ (reverse _getf1960519632_))) @@ -329,30 +328,30 @@ (_g1966521495_ (lambda (_g1966719687_) (if (gx#stx-pair/null? _g1966719687_) - (let ((_g49649_ + (let ((_g51580_ (gx#syntax-split-splice _g1966719687_ '0))) (begin - (let ((_g49650_ + (let ((_g51581_ (let () (declare (not safe)) - (if (##values? _g49649_) - (##vector-length _g49649_) + (if (##values? _g51580_) + (##vector-length _g51580_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49650_ 2))) + (##fx= _g51581_ 2))) (error "Context expects 2 values" - _g49650_))) + _g51581_))) (let ((_target1966919690_ (let () (declare (not safe)) - (##vector-ref _g49649_ 0))) + (##vector-ref _g51580_ 0))) (_tl1967119693_ (let () (declare (not safe)) - (##vector-ref _g49649_ 1)))) + (##vector-ref _g51580_ 1)))) (if (gx#stx-null? _tl1967119693_) (letrec ((_loop1967219696_ (lambda (_hd1967019700_ @@ -370,12 +369,12 @@ (let () (declare (not safe)) (##cdr _e1967319706_)))) - (let ((__tmp49919 + (let ((__tmp51822 (let () (declare (not safe)) (cons _lp-hd1967419710_ _setf1967619703_)))) (declare (not safe)) - (_loop1967219696_ _lp-tl1967519713_ __tmp49919)))) + (_loop1967219696_ _lp-tl1967519713_ __tmp51822)))) (let ((_setf1967719716_ (reverse _setf1967619703_))) ((lambda (_L19720_) (let () @@ -394,34 +393,34 @@ (_g1973921491_ (lambda (_g1974119761_) (if (gx#stx-pair/null? _g1974119761_) - (let ((_g49651_ + (let ((_g51582_ (gx#syntax-split-splice _g1974119761_ '0))) (begin - (let ((_g49652_ + (let ((_g51583_ (let () (declare (not safe)) - (if (##values? _g49651_) + (if (##values? _g51582_) (##vector-length - _g49651_) + _g51582_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49652_ 2))) + (##fx= _g51583_ 2))) (error "Context expects 2 values" - _g49652_))) + _g51583_))) (let ((_target1974319764_ (let () (declare (not safe)) (##vector-ref - _g49651_ + _g51582_ 0))) (_tl1974519767_ (let () (declare (not safe)) (##vector-ref - _g49651_ + _g51582_ 1)))) (if (gx#stx-null? _tl1974519767_) (letrec ((_loop1974619770_ @@ -438,7 +437,7 @@ (let () (declare (not safe)) (##cdr _e1974719780_)))) - (let ((__tmp49918 + (let ((__tmp51821 (let () (declare (not safe)) (cons _lp-hd1974819784_ @@ -446,7 +445,7 @@ (declare (not safe)) (_loop1974619770_ _lp-tl1974919787_ - __tmp49918)))) + __tmp51821)))) (let ((_mixin-slot1975119790_ (reverse _mixin-slot1975019777_))) ((lambda (_L19794_) @@ -461,41 +460,41 @@ (lambda (_g1981319833_) (if (gx#stx-pair/null? _g1981319833_) - (let ((_g49653_ + (let ((_g51584_ (gx#syntax-split-splice _g1981319833_ '0))) (begin - (let ((_g49654_ + (let ((_g51585_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g49653_) - (##vector-length _g49653_) + _g51584_) + (##vector-length _g51584_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g49654_ 2))) - (error "Context expects 2 values" _g49654_))) + (##fx= _g51585_ 2))) + (error "Context expects 2 values" _g51585_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1981519836_ (let () (declare (not safe)) (##vector-ref - _g49653_ + _g51584_ 0))) (_tl1981719839_ (let () (declare (not safe)) (##vector-ref - _g49653_ + _g51584_ 1)))) (if (gx#stx-null? _tl1981719839_) @@ -513,7 +512,7 @@ (let () (declare (not safe)) (##cdr _e1981919852_)))) - (let ((__tmp49916 + (let ((__tmp51819 (let () (declare (not safe)) (cons _lp-hd1982019856_ @@ -521,7 +520,7 @@ (declare (not safe)) (_loop1981819842_ _lp-tl1982119859_ - __tmp49916)))) + __tmp51819)))) (let ((_mixin-getf1982319862_ (reverse _mixin-getf1982219849_))) ((lambda (_L19866_) @@ -536,28 +535,28 @@ (lambda (_g1988419904_) (if (gx#stx-pair/null? _g1988419904_) - (let ((_g49655_ + (let ((_g51586_ (gx#syntax-split-splice _g1988419904_ '0))) (begin - (let ((_g49656_ + (let ((_g51587_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g49655_) - (##vector-length _g49655_) + (if (##values? _g51586_) + (##vector-length _g51586_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g49656_ 2))) - (error "Context expects 2 values" _g49656_))) + (if (not (let () (declare (not safe)) (##fx= _g51587_ 2))) + (error "Context expects 2 values" _g51587_))) (let ((_target1988619907_ (let () (declare (not safe)) - (##vector-ref _g49655_ 0))) + (##vector-ref _g51586_ 0))) (_tl1988819910_ (let () (declare (not safe)) - (##vector-ref _g49655_ 1)))) + (##vector-ref _g51586_ 1)))) (if (gx#stx-null? _tl1988819910_) (letrec ((_loop1988919913_ (lambda (_hd1988719917_ @@ -573,7 +572,7 @@ (let () (declare (not safe)) (##cdr _e1989019923_)))) - (let ((__tmp49914 + (let ((__tmp51817 (let () (declare (not safe)) (cons _lp-hd1989119927_ @@ -581,7 +580,7 @@ (declare (not safe)) (_loop1988919913_ _lp-tl1989219930_ - __tmp49914)))) + __tmp51817)))) (let ((_mixin-setf1989419933_ (reverse _mixin-setf1989319920_))) ((lambda (_L19937_) @@ -596,28 +595,28 @@ (lambda (_g1995519975_) (if (gx#stx-pair/null? _g1995519975_) - (let ((_g49657_ + (let ((_g51588_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g1995519975_ '0))) (begin - (let ((_g49658_ + (let ((_g51589_ (let () (declare (not safe)) - (if (##values? _g49657_) - (##vector-length _g49657_) + (if (##values? _g51588_) + (##vector-length _g51588_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49658_ 2))) - (error "Context expects 2 values" _g49658_))) + (##fx= _g51589_ 2))) + (error "Context expects 2 values" _g51589_))) (let ((_target1995719978_ (let () (declare (not safe)) - (##vector-ref _g49657_ 0))) + (##vector-ref _g51588_ 0))) (_tl1995919981_ (let () (declare (not safe)) - (##vector-ref _g49657_ 1)))) + (##vector-ref _g51588_ 1)))) (if (gx#stx-null? _tl1995919981_) (letrec ((_loop1996019984_ (lambda (_hd1995819988_ @@ -634,7 +633,7 @@ (let () (declare (not safe)) (##cdr _e1996119994_)))) - (let ((__tmp49911 + (let ((__tmp51815 (let () (declare (not safe)) @@ -645,7 +644,7 @@ (declare (not safe)) (_loop1996019984_ _lp-tl1996320001_ - __tmp49911)))) + __tmp51815)))) (let ((_ugetf1996520004_ (reverse _ugetf1996419991_))) ((lambda (_L20008_) @@ -660,28 +659,28 @@ (_g2002421439_ (lambda (_g2002620046_) (if (gx#stx-pair/null? _g2002620046_) - (let ((_g49659_ + (let ((_g51590_ (gx#syntax-split-splice _g2002620046_ '0))) (begin - (let ((_g49660_ + (let ((_g51591_ (let () (declare (not safe)) - (if (##values? _g49659_) - (##vector-length _g49659_) + (if (##values? _g51590_) + (##vector-length _g51590_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49660_ 2))) + (##fx= _g51591_ 2))) (error "Context expects 2 values" - _g49660_))) + _g51591_))) (let ((_target2002820049_ (let () (declare (not safe)) - (##vector-ref _g49659_ 0))) + (##vector-ref _g51590_ 0))) (_tl2003020052_ (let () (declare (not safe)) - (##vector-ref _g49659_ 1)))) + (##vector-ref _g51590_ 1)))) (if (gx#stx-null? _tl2003020052_) (letrec ((_loop2003120055_ (lambda (_hd2002920059_ @@ -698,12 +697,12 @@ (##car _e2003220065_))) (_lp-tl2003420072_ (let () (declare (not safe)) (##cdr _e2003220065_)))) - (let ((__tmp49908 + (let ((__tmp51813 (let () (declare (not safe)) (cons _lp-hd2003320069_ _usetf2003520062_)))) (declare (not safe)) - (_loop2003120055_ _lp-tl2003420072_ __tmp49908)))) + (_loop2003120055_ _lp-tl2003420072_ __tmp51813)))) (let ((_usetf2003620075_ (reverse _usetf2003520062_))) ((lambda (_L20079_) (let () @@ -716,30 +715,30 @@ (_g2009521422_ (lambda (_g2009720117_) (if (gx#stx-pair/null? _g2009720117_) - (let ((_g49661_ + (let ((_g51592_ (gx#syntax-split-splice _g2009720117_ '0))) (begin - (let ((_g49662_ + (let ((_g51593_ (let () (declare (not safe)) - (if (##values? _g49661_) - (##vector-length _g49661_) + (if (##values? _g51592_) + (##vector-length _g51592_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49662_ 2))) + (##fx= _g51593_ 2))) (error "Context expects 2 values" - _g49662_))) + _g51593_))) (let ((_target2009920120_ (let () (declare (not safe)) - (##vector-ref _g49661_ 0))) + (##vector-ref _g51592_ 0))) (_tl2010120123_ (let () (declare (not safe)) - (##vector-ref _g49661_ 1)))) + (##vector-ref _g51592_ 1)))) (if (gx#stx-null? _tl2010120123_) (letrec ((_loop2010220126_ (lambda (_hd2010020130_ @@ -757,13 +756,13 @@ (let () (declare (not safe)) (##cdr _e2010320136_)))) - (let ((__tmp49905 + (let ((__tmp51811 (let () (declare (not safe)) (cons _lp-hd2010420140_ _mixin-ugetf2010620133_)))) (declare (not safe)) - (_loop2010220126_ _lp-tl2010520143_ __tmp49905)))) + (_loop2010220126_ _lp-tl2010520143_ __tmp51811)))) (let ((_mixin-ugetf2010720146_ (reverse _mixin-ugetf2010620133_))) ((lambda (_L20150_) @@ -777,34 +776,34 @@ (_g2016621405_ (lambda (_g2016820188_) (if (gx#stx-pair/null? _g2016820188_) - (let ((_g49663_ + (let ((_g51594_ (gx#syntax-split-splice _g2016820188_ '0))) (begin - (let ((_g49664_ + (let ((_g51595_ (let () (declare (not safe)) - (if (##values? _g49663_) + (if (##values? _g51594_) (##vector-length - _g49663_) + _g51594_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49664_ 2))) + (##fx= _g51595_ 2))) (error "Context expects 2 values" - _g49664_))) + _g51595_))) (let ((_target2017020191_ (let () (declare (not safe)) (##vector-ref - _g49663_ + _g51594_ 0))) (_tl2017220194_ (let () (declare (not safe)) (##vector-ref - _g49663_ + _g51594_ 1)))) (if (gx#stx-null? _tl2017220194_) @@ -822,7 +821,7 @@ (let () (declare (not safe)) (##cdr _e2017420207_)))) - (let ((__tmp49902 + (let ((__tmp51809 (let () (declare (not safe)) (cons _lp-hd2017520211_ @@ -830,7 +829,7 @@ (declare (not safe)) (_loop2017320197_ _lp-tl2017620214_ - __tmp49902)))) + __tmp51809)))) (let ((_mixin-usetf2017820217_ (reverse _mixin-usetf2017720204_))) ((lambda (_L20221_) @@ -838,81 +837,83 @@ (let* ((_type-slots20252_ (if (gx#stx-null? _slots19363_) '() - (let ((__tmp49665 - (let ((__tmp49666 + (let ((__tmp51596 + (let ((__tmp51597 (begin (gx#syntax-check-splice-targets _L19720_ _L19649_ _L19578_) - (let ((__tmp49667 + (foldr (lambda (_g2023720242_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2023720242_ _g2023820245_ _g2023920247_ _g2024020249_) - (let ((__tmp49668 - (let ((__tmp49669 - (let ((__tmp49670 + (let ((__tmp51598 + (let ((__tmp51599 + (let ((__tmp51600 (let () (declare (not safe)) (cons _g2023720242_ '())))) (declare (not safe)) (cons _g2023820245_ - __tmp49670)))) + __tmp51600)))) (declare (not safe)) - (cons _g2023920247_ __tmp49669)))) + (cons _g2023920247_ __tmp51599)))) (declare (not safe)) - (cons __tmp49668 _g2024020249_))))) - (declare (not safe)) - (foldr* __tmp49667 '() _L19720_ _L19649_ _L19578_))))) + (cons __tmp51598 _g2024020249_))) + '() + _L19720_ + _L19649_ + _L19578_)))) (declare (not safe)) - (cons __tmp49666 '())))) + (cons __tmp51597 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'slots: __tmp49665)))) + (cons 'slots: __tmp51596)))) (_type-mixin-slots20269_ (if (gx#stx-null? _mixin-slots19737_) '() - (let ((__tmp49671 - (let ((__tmp49672 + (let ((__tmp51601 + (let ((__tmp51602 (begin (gx#syntax-check-splice-targets _L19937_ _L19866_ _L19794_) - (let ((__tmp49673 + (foldr (lambda (_g2025420259_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2025420259_ _g2025520262_ _g2025620264_ _g2025720266_) - (let ((__tmp49674 - (let ((__tmp49675 - (let ((__tmp49676 + (let ((__tmp51603 + (let ((__tmp51604 + (let ((__tmp51605 (let () (declare (not safe)) (cons _g2025420259_ '())))) (declare (not safe)) (cons _g2025520262_ - __tmp49676)))) + __tmp51605)))) (declare (not safe)) - (cons _g2025620264_ __tmp49675)))) + (cons _g2025620264_ __tmp51604)))) (declare (not safe)) - (cons __tmp49674 _g2025720266_))))) - (declare (not safe)) - (foldr* __tmp49673 '() _L19937_ _L19866_ _L19794_))))) + (cons __tmp51603 _g2025720266_))) + '() + _L19937_ + _L19866_ + _L19794_)))) (declare (not safe)) - (cons __tmp49672 '())))) + (cons __tmp51602 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'mixin: __tmp49671)))) + (cons 'mixin: __tmp51601)))) (_type-name20276_ - (let ((__tmp49677 - (let ((__tmp49678 + (let ((__tmp51606 + (let ((__tmp51607 (let ((_$e20272_ (gx#stx-getq ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -921,12 +922,12 @@ (if _$e20272_ _$e20272_ _id19361_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49678 '())))) + (cons __tmp51607 '())))) (declare (not safe)) - (cons 'name: __tmp49677))) + (cons 'name: __tmp51606))) (_type-id20283_ - (let ((__tmp49679 - (let ((__tmp49680 + (let ((__tmp51608 + (let ((__tmp51609 (let ((_$e20279_ (gx#stx-getq ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -940,9 +941,9 @@ _L19396_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49680 '())))) + (cons __tmp51609 '())))) (declare (not safe)) - (cons 'id: __tmp49679))) + (cons 'id: __tmp51608))) (_type-constructor20298_ (let ((_$e20294_ (let ((_e2028520287_ @@ -952,13 +953,13 @@ (if _e2028520287_ (let* ((_e20291_ _e2028520287_) - (__tmp49681 + (__tmp51610 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _e20291_ '())))) (declare (not safe)) - (cons 'constructor: __tmp49681)) + (cons 'constructor: __tmp51610)) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if _$e20294_ _$e20294_ '()))) @@ -968,14 +969,14 @@ (gx#stx-getq 'transparent: _body19364_)) - (let ((__tmp49682 + (let ((__tmp51611 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons 'transparent: '#t)))) (declare (not safe)) - (cons __tmp49682 '())) + (cons __tmp51611 '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_properties20314_ @@ -993,12 +994,12 @@ (eq? _print20308_ '#t)) _slots19363_ _print20308_)) - (__tmp49683 + (__tmp51612 (let () (declare (not safe)) (cons 'print: _print20311_)))) (declare (not safe)) - (cons __tmp49683 _properties20301_))) + (cons __tmp51612 _properties20301_))) _$e20304_) _properties20301_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1017,12 +1018,12 @@ (eq? _equal20321_ '#t)) _slots19363_ _equal20321_)) - (__tmp49684 + (__tmp51613 (let () (declare (not safe)) (cons 'equal: _equal20324_)))) (declare (not safe)) - (cons __tmp49684 _properties20314_))) + (cons __tmp51613 _properties20314_))) _$e20317_) _properties20314_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1042,21 +1043,21 @@ (lambda (_g2033620347_) ((lambda (_L20350_) (let () - (let ((__tmp49685 + (let ((__tmp51614 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49686 - (let ((__tmp49688 + (let ((__tmp51615 + (let ((__tmp51617 (gx#datum->syntax '#f 'quote)) - (__tmp49687 + (__tmp51616 (let () (declare (not safe)) (cons _L20350_ '())))) (declare (not safe)) - (cons __tmp49688 __tmp49687)))) + (cons __tmp51617 __tmp51616)))) (declare (not safe)) - (cons __tmp49686 '())))) + (cons __tmp51615 '())))) (declare (not safe)) - (cons 'properties: __tmp49685)))) + (cons 'properties: __tmp51614)))) _g2033620347_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) @@ -1077,32 +1078,32 @@ '#f))) (_type-metaclass20386_ (if _metaclass20383_ - (let ((__tmp49689 + (let ((__tmp51618 (let () (declare (not safe)) (cons _metaclass20383_ '())))) (declare (not safe)) - (cons 'metaclass: __tmp49689)) + (cons 'metaclass: __tmp51618)) '())) (_final?20389_ (gx#stx-e (gx#stx-getq 'final: _body19364_))) (_type-struct20392_ - (let ((__tmp49690 + (let ((__tmp51619 (let () (declare (not safe)) (cons _struct?19378_ '())))) (declare (not safe)) - (cons 'struct: __tmp49690))) + (cons 'struct: __tmp51619))) (_type-final20395_ - (let ((__tmp49691 + (let ((__tmp51620 (let () (declare (not safe)) (cons _final?20389_ '())))) (declare (not safe)) - (cons 'final: __tmp49691))) + (cons 'final: __tmp51620))) (_g2039820415_ (lambda (_g2039920411_) (gx#raise-syntax-error @@ -1113,36 +1114,36 @@ (lambda (_g2039920419_) (if (gx#stx-pair/null? _g2039920419_) - (let ((_g49692_ + (let ((_g51621_ (gx#syntax-split-splice _g2039920419_ '0))) (begin - (let ((_g49693_ + (let ((_g51622_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g49692_) - (##vector-length _g49692_) + _g51621_) + (##vector-length _g51621_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g49693_ 2))) - (error "Context expects 2 values" _g49693_))) + (if (not (let () (declare (not safe)) (##fx= _g51622_ 2))) + (error "Context expects 2 values" _g51622_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target2040120422_ (let () (declare (not safe)) (##vector-ref - _g49692_ + _g51621_ 0))) (_tl2040320425_ (let () (declare (not safe)) (##vector-ref - _g49692_ + _g51621_ 1)))) (if (gx#stx-null? _tl2040320425_) @@ -1160,7 +1161,7 @@ (let () (declare (not safe)) (##cdr _e2040520438_)))) - (let ((__tmp49893 + (let ((__tmp51807 (let () (declare (not safe)) (cons _lp-hd2040620442_ @@ -1168,7 +1169,7 @@ (declare (not safe)) (_loop2040420428_ _lp-tl2040720445_ - __tmp49893)))) + __tmp51807)))) (let ((_type-body2040920448_ (reverse _type-body2040820435_))) ((lambda (_L20452_) @@ -1350,450 +1351,434 @@ ((lambda (_L20936_) (let () (let () - (let ((__tmp49694 + (let ((__tmp51623 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49697 (gx#datum->syntax '#f 'begin)) - (__tmp49695 - (let ((__tmp49696 + (let ((__tmp51626 (gx#datum->syntax '#f 'begin)) + (__tmp51624 + (let ((__tmp51625 (let () (declare (not safe)) (cons _L20936_ '())))) (declare (not safe)) - (cons _L20488_ __tmp49696)))) + (cons _L20488_ __tmp51625)))) (declare (not safe)) - (cons __tmp49697 __tmp49695)))) + (cons __tmp51626 __tmp51624)))) (declare (not safe)) - (_wrap19366_ __tmp49694))))) + (_wrap19366_ __tmp51623))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2092220933_))) - (__tmp49698 - (let ((__tmp49699 - (let ((__tmp49734 + (__tmp51627 + (let ((__tmp51628 + (let ((__tmp51663 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'defsyntax)) - (__tmp49700 - (let ((__tmp49701 - (let ((__tmp49702 - (let ((__tmp49733 + (__tmp51629 + (let ((__tmp51630 + (let ((__tmp51631 + (let ((__tmp51662 (gx#datum->syntax '#f 'make-class-type-info)) - (__tmp49703 - (let ((__tmp49704 - (let ((__tmp49705 - (let ((__tmp49706 + (__tmp51632 + (let ((__tmp51633 + (let ((__tmp51634 + (let ((__tmp51635 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49707 - (let ((__tmp49708 - (let ((__tmp49709 - (let ((__tmp49710 - (let ((__tmp49711 - (let ((__tmp49712 + (let ((__tmp51636 + (let ((__tmp51637 + (let ((__tmp51638 + (let ((__tmp51639 + (let ((__tmp51640 + (let ((__tmp51641 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49713 - (let ((__tmp49714 - (let ((__tmp49715 - (let ((__tmp49716 - (let ((__tmp49717 - (let ((__tmp49718 + (let ((__tmp51642 + (let ((__tmp51643 + (let ((__tmp51644 + (let ((__tmp51645 + (let ((__tmp51646 + (let ((__tmp51647 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49719 - (let ((__tmp49720 - (let ((__tmp49721 - (let ((__tmp49722 - (let ((__tmp49723 + (let ((__tmp51648 + (let ((__tmp51649 + (let ((__tmp51650 + (let ((__tmp51651 + (let ((__tmp51652 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49724 - (let ((__tmp49725 - (let ((__tmp49726 - (let ((__tmp49727 - (let ((__tmp49728 - (let ((__tmp49729 + (let ((__tmp51653 + (let ((__tmp51654 + (let ((__tmp51655 + (let ((__tmp51656 + (let ((__tmp51657 + (let ((__tmp51658 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49730 - (let ((__tmp49731 - (let ((__tmp49732 + (let ((__tmp51659 + (let ((__tmp51660 + (let ((__tmp51661 (let () (declare (not safe)) (cons _L20908_ '())))) (declare (not safe)) (cons 'unchecked-mutators: - __tmp49732)))) + __tmp51661)))) (declare (not safe)) - (cons _L20880_ __tmp49731)))) + (cons _L20880_ __tmp51660)))) (declare (not safe)) - (cons 'unchecked-accessors: __tmp49730)))) + (cons 'unchecked-accessors: __tmp51659)))) (declare (not safe)) - (cons _L20852_ __tmp49729)))) + (cons _L20852_ __tmp51658)))) (declare (not safe)) - (cons 'mutators: __tmp49728)))) + (cons 'mutators: __tmp51657)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L20824_ __tmp49727)))) + (cons _L20824_ __tmp51656)))) (declare (not safe)) - (cons 'accessors: __tmp49726)))) + (cons 'accessors: __tmp51655)))) (declare (not safe)) - (cons _L20796_ __tmp49725)))) + (cons _L20796_ __tmp51654)))) (declare (not safe)) - (cons 'predicate: __tmp49724)))) + (cons 'predicate: __tmp51653)))) (declare (not safe)) - (cons _L20768_ __tmp49723)))) + (cons _L20768_ __tmp51652)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'constructor: - __tmp49722)))) + __tmp51651)))) (declare (not safe)) - (cons _L20740_ __tmp49721)))) + (cons _L20740_ __tmp51650)))) (declare (not safe)) - (cons 'type-descriptor: __tmp49720)))) + (cons 'type-descriptor: __tmp51649)))) (declare (not safe)) - (cons _L20712_ __tmp49719)))) + (cons _L20712_ __tmp51648)))) (declare (not safe)) - (cons 'constructor-method: __tmp49718)))) + (cons 'constructor-method: __tmp51647)))) (declare (not safe)) - (cons _L20684_ __tmp49717)))) + (cons _L20684_ __tmp51646)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'metaclass: - __tmp49716)))) + __tmp51645)))) (declare (not safe)) - (cons _L20656_ __tmp49715)))) + (cons _L20656_ __tmp51644)))) (declare (not safe)) - (cons 'final?: __tmp49714)))) + (cons 'final?: __tmp51643)))) (declare (not safe)) - (cons _L20628_ __tmp49713)))) + (cons _L20628_ __tmp51642)))) (declare (not safe)) - (cons 'struct?: __tmp49712)))) + (cons 'struct?: __tmp51641)))) (declare (not safe)) - (cons _L20572_ __tmp49711)))) + (cons _L20572_ __tmp51640)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'super: __tmp49710)))) + (cons 'super: __tmp51639)))) (declare (not safe)) - (cons _L20600_ __tmp49709)))) + (cons _L20600_ __tmp51638)))) (declare (not safe)) - (cons 'slots: __tmp49708)))) + (cons 'slots: __tmp51637)))) (declare (not safe)) - (cons _L20544_ __tmp49707)))) + (cons _L20544_ __tmp51636)))) (declare (not safe)) - (cons 'name: __tmp49706)))) + (cons 'name: __tmp51635)))) (declare (not safe)) - (cons _L20516_ __tmp49705)))) + (cons _L20516_ __tmp51634)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'id: __tmp49704)))) + (cons 'id: __tmp51633)))) (declare (not safe)) - (cons __tmp49733 __tmp49703)))) + (cons __tmp51662 __tmp51632)))) (declare (not safe)) - (cons __tmp49702 '())))) + (cons __tmp51631 '())))) (declare (not safe)) - (cons _L19396_ __tmp49701)))) + (cons _L19396_ __tmp51630)))) (declare (not safe)) - (cons __tmp49734 __tmp49700)))) + (cons __tmp51663 __tmp51629)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap19366_ __tmp49699)))) + (_wrap19366_ __tmp51628)))) (declare (not safe)) - (_g2092020951_ __tmp49698)))) + (_g2092020951_ __tmp51627)))) _g2089420905_))) - (__tmp49735 - (let ((__tmp49762 + (__tmp51664 + (let ((__tmp51688 (gx#datum->syntax '#f '@list)) - (__tmp49736 + (__tmp51665 (begin (gx#syntax-check-splice-targets _L20079_ _L19578_) - (let ((__tmp49750 - (lambda (_g2095820965_ + (foldr (lambda (_g2095820965_ _g2095920968_ _g2096020970_) - (let ((__tmp49751 - (let ((__tmp49761 + (let ((__tmp51666 + (let ((__tmp51676 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '@list)) - (__tmp49752 - (let ((__tmp49758 - (let ((__tmp49760 + (__tmp51667 + (let ((__tmp51673 + (let ((__tmp51675 (gx#datum->syntax '#f 'quote)) - (__tmp49759 + (__tmp51674 (let () (declare (not safe)) (cons _g2095920968_ '())))) (declare (not safe)) - (cons __tmp49760 __tmp49759))) - (__tmp49753 - (let ((__tmp49754 - (let ((__tmp49755 - (let ((__tmp49757 + (cons __tmp51675 __tmp51674))) + (__tmp51668 + (let ((__tmp51669 + (let ((__tmp51670 + (let ((__tmp51672 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49756 + (__tmp51671 (let () (declare (not safe)) (cons _g2095820965_ '())))) (declare (not safe)) - (cons __tmp49757 - __tmp49756)))) + (cons __tmp51672 + __tmp51671)))) (declare (not safe)) - (cons __tmp49755 '())))) + (cons __tmp51670 '())))) (declare (not safe)) - (cons ':: __tmp49754)))) + (cons ':: __tmp51669)))) (declare (not safe)) - (cons __tmp49758 __tmp49753)))) + (cons __tmp51673 __tmp51668)))) (declare (not safe)) - (cons __tmp49761 __tmp49752)))) + (cons __tmp51676 __tmp51667)))) (declare (not safe)) - (cons __tmp49751 _g2096020970_)))) + (cons __tmp51666 _g2096020970_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp49737 (begin (gx#syntax-check-splice-targets _L20221_ _L19794_) - (let ((__tmp49738 - (lambda (_g2096120973_ + (foldr (lambda (_g2096120973_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2096220976_ _g2096320978_) - (let ((__tmp49739 - (let ((__tmp49749 (gx#datum->syntax '#f '@list)) - (__tmp49740 - (let ((__tmp49746 - (let ((__tmp49748 + (let ((__tmp51677 + (let ((__tmp51687 (gx#datum->syntax '#f '@list)) + (__tmp51678 + (let ((__tmp51684 + (let ((__tmp51686 (gx#datum->syntax '#f 'quote)) - (__tmp49747 + (__tmp51685 (let () (declare (not safe)) (cons _g2096220976_ '())))) (declare (not safe)) - (cons __tmp49748 __tmp49747))) - (__tmp49741 - (let ((__tmp49742 - (let ((__tmp49743 - (let ((__tmp49745 + (cons __tmp51686 __tmp51685))) + (__tmp51679 + (let ((__tmp51680 + (let ((__tmp51681 + (let ((__tmp51683 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax)) - (__tmp49744 + (__tmp51682 (let () (declare (not safe)) (cons _g2096120973_ '())))) (declare (not safe)) - (cons __tmp49745 __tmp49744)))) + (cons __tmp51683 __tmp51682)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49743 '())))) + (cons __tmp51681 '())))) (declare (not safe)) - (cons ':: __tmp49742)))) + (cons ':: __tmp51680)))) (declare (not safe)) - (cons __tmp49746 __tmp49741)))) + (cons __tmp51684 __tmp51679)))) (declare (not safe)) - (cons __tmp49749 __tmp49740)))) + (cons __tmp51687 __tmp51678)))) (declare (not safe)) - (cons __tmp49739 _g2096320978_))))) - (declare (not safe)) - (foldr2 __tmp49738 '() _L20221_ _L19794_))))) + (cons __tmp51677 _g2096320978_))) + '() + _L20221_ + _L19794_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (foldr2 __tmp49750 - __tmp49737 - _L20079_ - _L19578_))))) + _L20079_ + _L19578_)))) (declare (not safe)) - (cons __tmp49762 __tmp49736)))) + (cons __tmp51688 __tmp51665)))) (declare (not safe)) - (_g2089220955_ __tmp49735)))) + (_g2089220955_ __tmp51664)))) _g2086620877_))) - (__tmp49763 - (let ((__tmp49790 (gx#datum->syntax '#f '@list)) - (__tmp49764 + (__tmp51689 + (let ((__tmp51713 (gx#datum->syntax '#f '@list)) + (__tmp51690 (begin (gx#syntax-check-splice-targets _L20008_ _L19578_) - (let ((__tmp49778 - (lambda (_g2098420991_ + (foldr (lambda (_g2098420991_ _g2098520994_ _g2098620996_) - (let ((__tmp49779 - (let ((__tmp49789 + (let ((__tmp51691 + (let ((__tmp51701 (gx#datum->syntax '#f '@list)) - (__tmp49780 - (let ((__tmp49786 - (let ((__tmp49788 + (__tmp51692 + (let ((__tmp51698 + (let ((__tmp51700 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp49787 + (__tmp51699 (let () (declare (not safe)) (cons _g2098520994_ '())))) (declare (not safe)) - (cons __tmp49788 __tmp49787))) - (__tmp49781 - (let ((__tmp49782 - (let ((__tmp49783 - (let ((__tmp49785 + (cons __tmp51700 __tmp51699))) + (__tmp51693 + (let ((__tmp51694 + (let ((__tmp51695 + (let ((__tmp51697 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49784 + (__tmp51696 (let () (declare (not safe)) (cons _g2098420991_ '())))) (declare (not safe)) - (cons __tmp49785 __tmp49784)))) + (cons __tmp51697 __tmp51696)))) (declare (not safe)) - (cons __tmp49783 '())))) + (cons __tmp51695 '())))) (declare (not safe)) - (cons ':: __tmp49782)))) + (cons ':: __tmp51694)))) (declare (not safe)) - (cons __tmp49786 __tmp49781)))) + (cons __tmp51698 __tmp51693)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49789 __tmp49780)))) + (cons __tmp51701 __tmp51692)))) (declare (not safe)) - (cons __tmp49779 _g2098620996_)))) - (__tmp49765 + (cons __tmp51691 _g2098620996_))) (begin (gx#syntax-check-splice-targets _L20150_ _L19794_) - (let ((__tmp49766 - (lambda (_g2098720999_ + (foldr (lambda (_g2098720999_ _g2098821002_ _g2098921004_) - (let ((__tmp49767 - (let ((__tmp49777 + (let ((__tmp51702 + (let ((__tmp51712 (gx#datum->syntax '#f '@list)) - (__tmp49768 - (let ((__tmp49774 + (__tmp51703 + (let ((__tmp51709 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49776 (gx#datum->syntax '#f 'quote)) - (__tmp49775 + (let ((__tmp51711 (gx#datum->syntax '#f 'quote)) + (__tmp51710 (let () (declare (not safe)) (cons _g2098821002_ '())))) (declare (not safe)) - (cons __tmp49776 __tmp49775))) - (__tmp49769 - (let ((__tmp49770 - (let ((__tmp49771 - (let ((__tmp49773 + (cons __tmp51711 __tmp51710))) + (__tmp51704 + (let ((__tmp51705 + (let ((__tmp51706 + (let ((__tmp51708 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49772 + (__tmp51707 (let () (declare (not safe)) (cons _g2098720999_ '())))) (declare (not safe)) - (cons __tmp49773 __tmp49772)))) + (cons __tmp51708 __tmp51707)))) (declare (not safe)) - (cons __tmp49771 '())))) + (cons __tmp51706 '())))) (declare (not safe)) - (cons ':: __tmp49770)))) + (cons ':: __tmp51705)))) (declare (not safe)) - (cons __tmp49774 __tmp49769)))) + (cons __tmp51709 __tmp51704)))) (declare (not safe)) - (cons __tmp49777 __tmp49768)))) + (cons __tmp51712 __tmp51703)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49767 - _g2098921004_))))) - (declare (not safe)) - (foldr2 __tmp49766 - '() - _L20150_ - _L19794_))))) - (declare (not safe)) - (foldr2 __tmp49778 - __tmp49765 - _L20008_ - _L19578_))))) + (cons __tmp51702 + _g2098921004_))) + '() + _L20150_ + _L19794_)) + _L20008_ + _L19578_)))) (declare (not safe)) - (cons __tmp49790 __tmp49764)))) + (cons __tmp51713 __tmp51690)))) (declare (not safe)) - (_g2086420981_ __tmp49763)))) + (_g2086420981_ __tmp51689)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2083820849_))) - (__tmp49791 - (let ((__tmp49818 + (__tmp51714 + (let ((__tmp51738 (gx#datum->syntax '#f '@list)) - (__tmp49792 + (__tmp51715 (begin (gx#syntax-check-splice-targets _L19720_ _L19578_) - (let ((__tmp49806 - (lambda (_g2101021017_ + (foldr (lambda (_g2101021017_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2101121020_ _g2101221022_) - (let ((__tmp49807 - (let ((__tmp49817 (gx#datum->syntax '#f '@list)) - (__tmp49808 - (let ((__tmp49814 - (let ((__tmp49816 + (let ((__tmp51716 + (let ((__tmp51726 (gx#datum->syntax '#f '@list)) + (__tmp51717 + (let ((__tmp51723 + (let ((__tmp51725 (gx#datum->syntax '#f 'quote)) - (__tmp49815 + (__tmp51724 (let () (declare (not safe)) (cons _g2101121020_ '())))) (declare (not safe)) - (cons __tmp49816 __tmp49815))) - (__tmp49809 - (let ((__tmp49810 - (let ((__tmp49811 - (let ((__tmp49813 + (cons __tmp51725 __tmp51724))) + (__tmp51718 + (let ((__tmp51719 + (let ((__tmp51720 + (let ((__tmp51722 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49812 + (__tmp51721 (let () (declare (not safe)) (cons _g2101021017_ '())))) (declare (not safe)) - (cons __tmp49813 __tmp49812)))) + (cons __tmp51722 __tmp51721)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49811 '())))) + (cons __tmp51720 '())))) (declare (not safe)) - (cons ':: __tmp49810)))) + (cons ':: __tmp51719)))) (declare (not safe)) - (cons __tmp49814 __tmp49809)))) + (cons __tmp51723 __tmp51718)))) (declare (not safe)) - (cons __tmp49817 __tmp49808)))) + (cons __tmp51726 __tmp51717)))) (declare (not safe)) - (cons __tmp49807 _g2101221022_)))) - (__tmp49793 + (cons __tmp51716 _g2101221022_))) (begin (gx#syntax-check-splice-targets _L19937_ _L19794_) - (let ((__tmp49794 - (lambda (_g2101321025_ + (foldr (lambda (_g2101321025_ _g2101421028_ _g2101521030_) - (let ((__tmp49795 - (let ((__tmp49805 + (let ((__tmp51727 + (let ((__tmp51737 (gx#datum->syntax '#f '@list)) - (__tmp49796 - (let ((__tmp49802 - (let ((__tmp49804 + (__tmp51728 + (let ((__tmp51734 + (let ((__tmp51736 (gx#datum->syntax '#f 'quote)) - (__tmp49803 + (__tmp51735 (let () (declare (not safe)) @@ -1801,123 +1786,121 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp49804 __tmp49803))) + (cons __tmp51736 __tmp51735))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp49797 - (let ((__tmp49798 - (let ((__tmp49799 + (__tmp51729 + (let ((__tmp51730 + (let ((__tmp51731 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49801 + (let ((__tmp51733 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49800 + (__tmp51732 (let () (declare (not safe)) (cons _g2101321025_ '())))) (declare (not safe)) - (cons __tmp49801 __tmp49800)))) + (cons __tmp51733 __tmp51732)))) (declare (not safe)) - (cons __tmp49799 '())))) + (cons __tmp51731 '())))) (declare (not safe)) - (cons ':: __tmp49798)))) + (cons ':: __tmp51730)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49802 __tmp49797)))) + (cons __tmp51734 __tmp51729)))) (declare (not safe)) - (cons __tmp49805 __tmp49796)))) + (cons __tmp51737 __tmp51728)))) (declare (not safe)) - (cons __tmp49795 _g2101521030_))))) - (declare (not safe)) - (foldr2 __tmp49794 '() _L19937_ _L19794_))))) - (declare (not safe)) - (foldr2 __tmp49806 __tmp49793 _L19720_ _L19578_))))) + (cons __tmp51727 _g2101521030_))) + '() + _L19937_ + _L19794_)) + _L19720_ + _L19578_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49818 __tmp49792)))) + (cons __tmp51738 __tmp51715)))) (declare (not safe)) - (_g2083621007_ __tmp49791)))) + (_g2083621007_ __tmp51714)))) _g2081020821_))) - (__tmp49819 - (let ((__tmp49846 (gx#datum->syntax '#f '@list)) - (__tmp49820 + (__tmp51739 + (let ((__tmp51763 (gx#datum->syntax '#f '@list)) + (__tmp51740 (begin (gx#syntax-check-splice-targets _L19649_ _L19578_) - (let ((__tmp49834 - (lambda (_g2103621043_ + (foldr (lambda (_g2103621043_ _g2103721046_ _g2103821048_) - (let ((__tmp49835 - (let ((__tmp49845 + (let ((__tmp51741 + (let ((__tmp51751 (gx#datum->syntax '#f '@list)) - (__tmp49836 - (let ((__tmp49842 + (__tmp51742 + (let ((__tmp51748 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49844 (gx#datum->syntax '#f 'quote)) - (__tmp49843 + (let ((__tmp51750 (gx#datum->syntax '#f 'quote)) + (__tmp51749 (let () (declare (not safe)) (cons _g2103721046_ '())))) (declare (not safe)) - (cons __tmp49844 __tmp49843))) - (__tmp49837 - (let ((__tmp49838 - (let ((__tmp49839 - (let ((__tmp49841 + (cons __tmp51750 __tmp51749))) + (__tmp51743 + (let ((__tmp51744 + (let ((__tmp51745 + (let ((__tmp51747 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49840 + (__tmp51746 (let () (declare (not safe)) (cons _g2103621043_ '())))) (declare (not safe)) - (cons __tmp49841 __tmp49840)))) + (cons __tmp51747 __tmp51746)))) (declare (not safe)) - (cons __tmp49839 '())))) + (cons __tmp51745 '())))) (declare (not safe)) - (cons ':: __tmp49838)))) + (cons ':: __tmp51744)))) (declare (not safe)) - (cons __tmp49842 __tmp49837)))) + (cons __tmp51748 __tmp51743)))) (declare (not safe)) - (cons __tmp49845 __tmp49836)))) + (cons __tmp51751 __tmp51742)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49835 - _g2103821048_)))) - (__tmp49821 + (cons __tmp51741 + _g2103821048_))) (begin (gx#syntax-check-splice-targets _L19866_ _L19794_) - (let ((__tmp49822 - (lambda (_g2103921051_ + (foldr (lambda (_g2103921051_ _g2104021054_ _g2104121056_) - (let ((__tmp49823 - (let ((__tmp49833 + (let ((__tmp51752 + (let ((__tmp51762 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '@list)) - (__tmp49824 - (let ((__tmp49830 - (let ((__tmp49832 + (__tmp51753 + (let ((__tmp51759 + (let ((__tmp51761 (gx#datum->syntax '#f 'quote)) - (__tmp49831 + (__tmp51760 (let () (declare (not safe)) (cons _g2104021054_ '())))) (declare (not safe)) - (cons __tmp49832 __tmp49831))) - (__tmp49825 - (let ((__tmp49826 - (let ((__tmp49827 - (let ((__tmp49829 + (cons __tmp51761 __tmp51760))) + (__tmp51754 + (let ((__tmp51755 + (let ((__tmp51756 + (let ((__tmp51758 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49828 + (__tmp51757 (let () (declare (not safe)) @@ -1925,72 +1908,67 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp49829 __tmp49828)))) + (cons __tmp51758 __tmp51757)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49827 '())))) + (cons __tmp51756 '())))) (declare (not safe)) - (cons ':: __tmp49826)))) + (cons ':: __tmp51755)))) (declare (not safe)) - (cons __tmp49830 __tmp49825)))) + (cons __tmp51759 __tmp51754)))) (declare (not safe)) - (cons __tmp49833 __tmp49824)))) + (cons __tmp51762 __tmp51753)))) (declare (not safe)) - (cons __tmp49823 _g2104121056_))))) + (cons __tmp51752 _g2104121056_))) + '() + _L19866_ + _L19794_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (foldr2 __tmp49822 - '() - _L19866_ - _L19794_))))) - (declare (not safe)) - (foldr2 __tmp49834 - __tmp49821 - _L19649_ - _L19578_))))) + _L19649_ + _L19578_)))) (declare (not safe)) - (cons __tmp49846 __tmp49820)))) + (cons __tmp51763 __tmp51740)))) (declare (not safe)) - (_g2080821033_ __tmp49819)))) + (_g2080821033_ __tmp51739)))) _g2078220793_))) - (__tmp49847 - (let ((__tmp49849 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49848 + (__tmp51764 + (let ((__tmp51766 (gx#datum->syntax '#f 'quote-syntax)) + (__tmp51765 (let () (declare (not safe)) (cons _L19483_ '())))) (declare (not safe)) - (cons __tmp49849 __tmp49848)))) + (cons __tmp51766 __tmp51765)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2078021059_ __tmp49847)))) + (_g2078021059_ __tmp51764)))) _g2075420765_))) - (__tmp49850 - (let ((__tmp49852 + (__tmp51767 + (let ((__tmp51769 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49851 + (__tmp51768 (let () (declare (not safe)) (cons _L19455_ '())))) (declare (not safe)) - (cons __tmp49852 __tmp49851)))) + (cons __tmp51769 __tmp51768)))) (declare (not safe)) - (_g2075221063_ __tmp49850)))) + (_g2075221063_ __tmp51767)))) _g2072620737_))) - (__tmp49853 - (let ((__tmp49855 + (__tmp51770 + (let ((__tmp51772 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49854 + (__tmp51771 (let () (declare (not safe)) (cons _L19427_ '())))) (declare (not safe)) - (cons __tmp49855 __tmp49854)))) + (cons __tmp51772 __tmp51771)))) (declare (not safe)) - (_g2072421067_ __tmp49853)))) + (_g2072421067_ __tmp51770)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2069820709_))) - (__tmp49856 + (__tmp51773 (if (let () (declare (not safe)) (null? _type-constructor20298_)) @@ -2037,13 +2015,13 @@ _tl2108221118_) ((lambda (_L21121_) (let () - (let ((__tmp49858 + (let ((__tmp51775 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp49857 + (__tmp51774 (let () (declare (not safe)) (cons _L21121_ '())))) (declare (not safe)) - (cons __tmp49858 __tmp49857)))) + (cons __tmp51775 __tmp51774)))) _hd2108321115_) (let () (declare (not safe)) (_g2107521090_ _g2107621094_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2063,9 +2041,9 @@ (_g2107421138_ _type-constructor20298_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2069621071_ __tmp49856)))) + (_g2069621071_ __tmp51773)))) _g2067020681_))) - (__tmp49859 + (__tmp51776 (if _metaclass20383_ (let* ((_g2114621154_ (lambda (_g2114721150_) @@ -2077,25 +2055,25 @@ (lambda (_g2114721158_) ((lambda (_L21161_) (let () - (let ((__tmp49861 + (let ((__tmp51778 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49860 + (__tmp51777 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L21161_ '())))) (declare (not safe)) - (cons __tmp49861 __tmp49860)))) + (cons __tmp51778 __tmp51777)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2114721158_)))) (declare (not safe)) (_g2114521173_ _metaclass20383_)) '#f))) (declare (not safe)) - (_g2066821142_ __tmp49859)))) + (_g2066821142_ __tmp51776)))) _g2064220653_)))) (declare (not safe)) (_g2064021177_ _final?20389_)))) @@ -2104,29 +2082,26 @@ (declare (not safe)) (_g2061221181_ _struct?19378_)))) _g2058620597_))) - (__tmp49862 - (let ((__tmp49866 (gx#datum->syntax '#f 'quote)) - (__tmp49863 - (let ((__tmp49864 - (let ((__tmp49865 - (lambda (_g2118821191_ + (__tmp51779 + (let ((__tmp51782 (gx#datum->syntax '#f 'quote)) + (__tmp51780 + (let ((__tmp51781 + (foldr (lambda (_g2118821191_ _g2118921194_) (let () (declare (not safe)) (cons _g2118821191_ - _g2118921194_))))) - (declare (not safe)) - (foldr1 __tmp49865 - '() - _L19578_)))) + _g2118921194_))) + '() + _L19578_))) (declare (not safe)) - (cons __tmp49864 '())))) + (cons __tmp51781 '())))) (declare (not safe)) - (cons __tmp49866 __tmp49863)))) + (cons __tmp51782 __tmp51780)))) (declare (not safe)) - (_g2058421185_ __tmp49862)))) + (_g2058421185_ __tmp51779)))) _g2055820569_))) - (__tmp49867 + (__tmp51783 (let* ((_g2120121218_ (lambda (_g2120221214_) (gx#raise-syntax-error @@ -2136,28 +2111,28 @@ (_g2120021279_ (lambda (_g2120221222_) (if (gx#stx-pair/null? _g2120221222_) - (let ((_g49868_ + (let ((_g51784_ (gx#syntax-split-splice _g2120221222_ '0))) (begin - (let ((_g49869_ + (let ((_g51785_ (let () (declare (not safe)) - (if (##values? _g49868_) - (##vector-length _g49868_) + (if (##values? _g51784_) + (##vector-length _g51784_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49869_ 2))) + (##fx= _g51785_ 2))) (error "Context expects 2 values" - _g49869_))) + _g51785_))) (let ((_target2120421225_ (let () (declare (not safe)) - (##vector-ref _g49868_ 0))) + (##vector-ref _g51784_ 0))) (_tl2120621228_ (let () (declare (not safe)) - (##vector-ref _g49868_ 1)))) + (##vector-ref _g51784_ 1)))) (if (gx#stx-null? _tl2120621228_) (letrec ((_loop2120721231_ (lambda (_hd2120521235_ @@ -2174,37 +2149,36 @@ (##car _e2120821241_))) (_lp-tl2121021248_ (let () (declare (not safe)) (##cdr _e2120821241_)))) - (let ((__tmp49876 + (let ((__tmp51791 (let () (declare (not safe)) (cons _lp-hd2120921245_ _super-id2121121238_)))) (declare (not safe)) - (_loop2120721231_ _lp-tl2121021248_ __tmp49876)))) + (_loop2120721231_ _lp-tl2121021248_ __tmp51791)))) (let ((_super-id2121221251_ (reverse _super-id2121121238_))) ((lambda (_L21255_) (let () - (let ((__tmp49875 (gx#datum->syntax '#f '@list)) - (__tmp49870 - (let ((__tmp49871 - (lambda (_g2127021273_ _g2127121276_) - (let ((__tmp49872 - (let ((__tmp49874 + (let ((__tmp51790 (gx#datum->syntax '#f '@list)) + (__tmp51786 + (foldr (lambda (_g2127021273_ _g2127121276_) + (let ((__tmp51787 + (let ((__tmp51789 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49873 + (__tmp51788 (let () (declare (not safe)) (cons _g2127021273_ '())))) (declare (not safe)) - (cons __tmp49874 __tmp49873)))) + (cons __tmp51789 __tmp51788)))) (declare (not safe)) - (cons __tmp49872 _g2127121276_))))) - (declare (not safe)) - (foldr1 __tmp49871 '() _L21255_)))) + (cons __tmp51787 _g2127121276_))) + '() + _L21255_))) (declare (not safe)) - (cons __tmp49875 __tmp49870)))) + (cons __tmp51790 __tmp51786)))) _super-id2121221251_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -2222,9 +2196,9 @@ (_g2120021279_ _super-ref19362_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2055621197_ __tmp49867)))) + (_g2055621197_ __tmp51783)))) _g2053020541_))) - (__tmp49877 + (__tmp51792 (let* ((_g2128721295_ (lambda (_g2128821291_) (gx#raise-syntax-error @@ -2235,28 +2209,28 @@ (lambda (_g2128821299_) ((lambda (_L21302_) (let () - (let ((__tmp49879 + (let ((__tmp51794 (gx#datum->syntax '#f 'quote)) - (__tmp49878 + (__tmp51793 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L21302_ '())))) (declare (not safe)) - (cons __tmp49879 __tmp49878)))) + (cons __tmp51794 __tmp51793)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2128821299_))) - (__tmp49880 + (__tmp51795 (cadr _type-name20276_))) (declare (not safe)) - (_g2128621314_ __tmp49880)))) + (_g2128621314_ __tmp51795)))) (declare (not safe)) - (_g2052821283_ __tmp49877)))) + (_g2052821283_ __tmp51792)))) _g2050220513_))) - (__tmp49881 + (__tmp51796 (let* ((_g2132221337_ (lambda (_g2132321333_) (gx#raise-syntax-error @@ -2297,13 +2271,13 @@ (if (gx#stx-null? _tl2132921365_) ((lambda (_L21368_) (let () - (let ((__tmp49883 (gx#datum->syntax '#f 'quote)) - (__tmp49882 + (let ((__tmp51798 (gx#datum->syntax '#f 'quote)) + (__tmp51797 (let () (declare (not safe)) (cons _L21368_ '())))) (declare (not safe)) - (cons __tmp49883 __tmp49882)))) + (cons __tmp51798 __tmp51797)))) _hd2133021362_) (let () (declare (not safe)) @@ -2324,46 +2298,45 @@ (declare (not safe)) (_g2132121385_ _type-id20283_)))) (declare (not safe)) - (_g2050021318_ __tmp49881)))) + (_g2050021318_ __tmp51796)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2047420485_))) - (__tmp49884 - (let ((__tmp49885 - (let ((__tmp49892 + (__tmp51799 + (let ((__tmp51800 + (let ((__tmp51806 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'defclass-type)) - (__tmp49886 - (let ((__tmp49887 - (let ((__tmp49888 - (let ((__tmp49889 - (let ((__tmp49890 - (let ((__tmp49891 - (lambda (_g2139221395_ + (__tmp51801 + (let ((__tmp51802 + (let ((__tmp51803 + (let ((__tmp51804 + (let ((__tmp51805 + (foldr (lambda (_g2139221395_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2139321398_) (let () (declare (not safe)) - (cons _g2139221395_ _g2139321398_))))) - (declare (not safe)) - (foldr1 __tmp49891 '() _L20452_)))) + (cons _g2139221395_ _g2139321398_))) + '() + _L20452_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L19483_ __tmp49890)))) + (cons _L19483_ __tmp51805)))) (declare (not safe)) - (cons _L19455_ __tmp49889)))) + (cons _L19455_ __tmp51804)))) (declare (not safe)) - (cons _L19511_ __tmp49888)))) + (cons _L19511_ __tmp51803)))) (declare (not safe)) - (cons _L19427_ __tmp49887)))) + (cons _L19427_ __tmp51802)))) (declare (not safe)) - (cons __tmp49892 __tmp49886)))) + (cons __tmp51806 __tmp51801)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap19366_ __tmp49885)))) + (_wrap19366_ __tmp51800)))) (declare (not safe)) - (_g2047221389_ __tmp49884)))) + (_g2047221389_ __tmp51799)))) _type-body2040920448_)))))) (let () (declare (not safe)) @@ -2376,45 +2349,28 @@ (declare (not safe)) (_g2039820415_ _g2039920419_))))) - (__tmp49894 - (let ((__tmp49895 - (let ((__tmp49896 - (let ((__tmp49897 - (let ((__tmp49898 + (__tmp51808 + (foldr cons + (foldr cons + (foldr cons + (foldr cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49899 - (let ((__tmp49900 - (let ((__tmp49901 - (let () - (declare (not safe)) - (foldr1 cons - _type-mixin-slots20269_ - _type-slots20252_)))) - (declare (not safe)) - (foldr1 cons - __tmp49901 - _type-properties20373_)))) - (declare (not safe)) - (foldr1 cons - __tmp49900 - _type-metaclass20386_)))) - (declare (not safe)) - (foldr1 cons __tmp49899 _type-final20395_)))) - (declare (not safe)) - (foldr1 cons __tmp49898 _type-struct20392_)))) - (declare (not safe)) - (foldr1 cons __tmp49897 _type-constructor20298_)))) + (foldr cons + (foldr cons + (foldr cons + (foldr cons + _type-mixin-slots20269_ + _type-slots20252_) + _type-properties20373_) + _type-metaclass20386_) + _type-final20395_) + _type-struct20392_) + _type-constructor20298_) + _type-name20276_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (foldr1 cons - __tmp49896 - _type-name20276_)))) - (declare (not safe)) - (foldr1 cons - __tmp49895 - _type-id20283_)))) + _type-id20283_))) (declare (not safe)) - (_g2039721401_ __tmp49894)))) + (_g2039721401_ __tmp51808)))) _mixin-usetf2017820217_)))))) (let () (declare (not safe)) @@ -2427,21 +2383,20 @@ (let () (declare (not safe)) (_g2016720184_ _g2016820188_))))) - (__tmp49903 + (__tmp51810 (gx#stx-map (lambda (_g2140821410_) (_make-id19368_ '"&" _g2140821410_)) - (let ((__tmp49904 - (lambda (_g2141321416_ + (foldr (lambda (_g2141321416_ _g2141421419_) (let () (declare (not safe)) (cons _g2141321416_ - _g2141421419_))))) - (declare (not safe)) - (foldr1 __tmp49904 '() _L19937_))))) + _g2141421419_))) + '() + _L19937_)))) (declare (not safe)) - (_g2016621405_ __tmp49903)))) + (_g2016621405_ __tmp51810)))) _mixin-ugetf2010720146_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -2456,19 +2411,18 @@ (let () (declare (not safe)) (_g2009620113_ _g2009720117_))))) - (__tmp49906 + (__tmp51812 (gx#stx-map (lambda (_g2142521427_) (_make-id19368_ '"&" _g2142521427_)) - (let ((__tmp49907 - (lambda (_g2143021433_ _g2143121436_) + (foldr (lambda (_g2143021433_ _g2143121436_) (let () (declare (not safe)) - (cons _g2143021433_ _g2143121436_))))) - (declare (not safe)) - (foldr1 __tmp49907 '() _L19866_))))) + (cons _g2143021433_ _g2143121436_))) + '() + _L19866_)))) (declare (not safe)) - (_g2009521422_ __tmp49906)))) + (_g2009521422_ __tmp51812)))) _usetf2003620075_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -2482,19 +2436,18 @@ (let () (declare (not safe)) (_g2002520042_ _g2002620046_))))) - (__tmp49909 + (__tmp51814 (gx#stx-map (lambda (_g2144221444_) (_make-id19368_ '"&" _g2144221444_)) - (let ((__tmp49910 - (lambda (_g2144721450_ _g2144821453_) + (foldr (lambda (_g2144721450_ _g2144821453_) (let () (declare (not safe)) - (cons _g2144721450_ _g2144821453_))))) - (declare (not safe)) - (foldr1 __tmp49910 '() _L19720_))))) + (cons _g2144721450_ _g2144821453_))) + '() + _L19720_)))) (declare (not safe)) - (_g2002421439_ __tmp49909)))) + (_g2002421439_ __tmp51814)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _ugetf1996520004_)))))) (let () @@ -2506,19 +2459,18 @@ (let () (declare (not safe)) (_g1995419971_ _g1995519975_))))) - (__tmp49912 + (__tmp51816 (gx#stx-map (lambda (_g2145921461_) (_make-id19368_ '"&" _g2145921461_)) - (let ((__tmp49913 - (lambda (_g2146421467_ _g2146521470_) + (foldr (lambda (_g2146421467_ _g2146521470_) (let () (declare (not safe)) - (cons _g2146421467_ _g2146521470_))))) - (declare (not safe)) - (foldr1 __tmp49913 '() _L19649_))))) + (cons _g2146421467_ _g2146521470_))) + '() + _L19649_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1995321456_ __tmp49912)))) + (_g1995321456_ __tmp51816)))) _mixin-setf1989419933_)))))) (let () (declare (not safe)) @@ -2528,7 +2480,7 @@ (_g1988319900_ _g1988419904_)))))) (let () (declare (not safe)) (_g1988319900_ _g1988419904_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp49915 + (__tmp51818 (gx#stx-map (lambda (_g2147621478_) (_make-id19368_ @@ -2538,7 +2490,7 @@ '"-set!")) _mixin-slots19737_))) (declare (not safe)) - (_g1988221473_ __tmp49915)))) + (_g1988221473_ __tmp51818)))) _mixin-getf1982319862_)))))) (let () (declare (not safe)) @@ -2551,7 +2503,7 @@ (declare (not safe)) (_g1981219829_ _g1981319833_))))) - (__tmp49917 + (__tmp51820 (gx#stx-map (lambda (_g2148521487_) (_make-id19368_ @@ -2560,7 +2512,7 @@ _g2148521487_)) _mixin-slots19737_))) (declare (not safe)) - (_g1981121482_ __tmp49917)))) + (_g1981121482_ __tmp51820)))) _mixin-slot1975119790_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -2590,7 +2542,7 @@ (let () (declare (not safe)) (_g1966619683_ _g1966719687_))))) - (__tmp49920 + (__tmp51823 (gx#stx-map (lambda (_g2149821500_) (_make-id19368_ @@ -2600,7 +2552,7 @@ '"-set!")) _slots19363_))) (declare (not safe)) - (_g1966521495_ __tmp49920)))) + (_g1966521495_ __tmp51823)))) _getf1960619645_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -2614,13 +2566,13 @@ (let () (declare (not safe)) (_g1959519612_ _g1959619616_))))) - (__tmp49922 + (__tmp51825 (gx#stx-map (lambda (_g2150721509_) (_make-id19368_ _name19372_ '"-" _g2150721509_)) _slots19363_))) (declare (not safe)) - (_g1959421504_ __tmp49922)))) + (_g1959421504_ __tmp51825)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _slot1953519574_)))))) (let () @@ -2636,28 +2588,28 @@ (declare (not safe)) (_g1952321513_ _slots19363_)))) _g1949719508_))) - (__tmp49924 + (__tmp51827 (map gerbil/core$$#!class-type-descriptor _super19375_))) (declare (not safe)) - (_g1949521517_ __tmp49924)))) + (_g1949521517_ __tmp51827)))) _g1946919480_))) - (__tmp49925 (_make-id19368_ _name19372_ '"?"))) + (__tmp51828 (_make-id19368_ _name19372_ '"?"))) (declare (not safe)) - (_g1946721521_ __tmp49925)))) + (_g1946721521_ __tmp51828)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1944119452_))) - (__tmp49926 + (__tmp51829 (_make-id19368_ '"make-" _name19372_))) (declare (not safe)) - (_g1943921525_ __tmp49926)))) + (_g1943921525_ __tmp51829)))) _g1941319424_))) - (__tmp49927 + (__tmp51830 (_make-id19368_ _name19372_ '"::t"))) (declare (not safe)) - (_g1941121529_ __tmp49927)))) + (_g1941121529_ __tmp51830)))) _g1938219393_)))) (declare (not safe)) (_g1938021533_ _id19361_))))) @@ -2704,27 +2656,27 @@ (declare (not safe)) (##cdr _e2161421647_)))) ((lambda (_L21657_ _L21659_ _L21660_) - (let ((__tmp49932 + (let ((__tmp51835 (gx#datum->syntax '#f 'defclass)) - (__tmp49928 - (let ((__tmp49929 - (let ((__tmp49930 + (__tmp51831 + (let ((__tmp51832 + (let ((__tmp51833 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49931 + (let ((__tmp51834 (let () (declare (not safe)) (cons '#t _L21657_)))) (declare (not safe)) - (cons 'struct: __tmp49931)))) + (cons 'struct: __tmp51834)))) (declare (not safe)) - (cons _L21659_ __tmp49930)))) + (cons _L21659_ __tmp51833)))) (declare (not safe)) - (cons _L21660_ __tmp49929)))) + (cons _L21660_ __tmp51832)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49932 __tmp49928))) + (cons __tmp51835 __tmp51831))) _tl2161221654_ _hd2161321651_ _hd2161021641_))) @@ -2736,24 +2688,24 @@ (lambda (_stx21681_) (letrec ((_generate21684_ (lambda (_hd21768_ _slots21770_ _body21771_) - (let* ((___stx4448744488_ _hd21768_) + (let* ((___stx4659146592_ _hd21768_) (_g2177421786_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4448744488_)))) - (let ((___kont4449044491_ + ___stx4659146592_)))) + (let ((___kont4659446595_ (lambda (_L21814_ _L21816_) - (let ((__tmp49933 (gx#syntax->list _L21814_))) + (let ((__tmp51836 (gx#syntax->list _L21814_))) (declare (not safe)) (|gerbil/core$$[1]#generate-defclass| _stx21681_ _L21816_ - __tmp49933 + __tmp51836 _slots21770_ _body21771_)))) - (___kont4449244493_ + (___kont4659646597_ (lambda () (if (gx#identifier? _hd21768_) (let () @@ -2769,7 +2721,7 @@ '"bad syntax; class name should be an identifier" _stx21681_ _hd21768_))))) - (let ((___match4450044501_ + (let ((___match4660446605_ (lambda (_e2178021804_ _hd2177921808_ _tl2177821811_) @@ -2779,11 +2731,11 @@ (gx#stx-andmap gerbil/core$$#syntax-local-class-type-info? _L21814_)) - (___kont4449044491_ _L21814_ _L21816_) - (___kont4449244493_)))))) - (if (gx#stx-pair? ___stx4448744488_) + (___kont4659446595_ _L21814_ _L21816_) + (___kont4659646597_)))))) + (if (gx#stx-pair? ___stx4659146592_) (let ((_e2178021804_ - (gx#syntax-e ___stx4448744488_))) + (gx#syntax-e ___stx4659146592_))) (let ((_tl2177821811_ (let () (declare (not safe)) @@ -2792,11 +2744,11 @@ (let () (declare (not safe)) (##car _e2178021804_)))) - (___match4450044501_ + (___match4660446605_ _e2178021804_ _hd2177921808_ _tl2177821811_))) - (___kont4449244493_)))))))) + (___kont4659646597_)))))))) (let* ((_g2168721706_ (lambda (_g2168821702_) (gx#raise-syntax-error @@ -2910,7 +2862,7 @@ (##cdr _e2185421896_)))) (if (gx#identifier? _hd2185321900_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g49984_| + |gerbil/core$$[1]#_g51887_| _hd2185321900_) (if (gx#stx-pair? _tl2185221903_) @@ -3028,166 +2980,166 @@ (let () (let () (_wrap21836_ - (let ((__tmp49938 + (let ((__tmp51841 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin)) - (__tmp49936 - (let ((__tmp49937 + (__tmp51839 + (let ((__tmp51840 (let () (declare (not safe)) (cons _L22127_ '())))) (declare (not safe)) - (cons _L22071_ __tmp49937)))) + (cons _L22071_ __tmp51840)))) (declare (not safe)) - (cons __tmp49938 __tmp49936)))))) + (cons __tmp51841 __tmp51839)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2211322124_)))) (_g2211122142_ (_wrap21836_ - (let ((__tmp49946 + (let ((__tmp51849 (gx#datum->syntax '#f 'bind-method!)) - (__tmp49939 - (let ((__tmp49940 - (let ((__tmp49943 + (__tmp51842 + (let ((__tmp51843 + (let ((__tmp51846 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49945 (gx#datum->syntax '#f 'quote)) - (__tmp49944 + (let ((__tmp51848 (gx#datum->syntax '#f 'quote)) + (__tmp51847 (let () (declare (not safe)) (cons _L21940_ '())))) (declare (not safe)) - (cons __tmp49945 __tmp49944))) - (__tmp49941 - (let ((__tmp49942 + (cons __tmp51848 __tmp51847))) + (__tmp51844 + (let ((__tmp51845 (let () (declare (not safe)) (cons _L22099_ '())))) (declare (not safe)) - (cons _L22015_ __tmp49942)))) + (cons _L22015_ __tmp51845)))) (declare (not safe)) - (cons __tmp49943 __tmp49941)))) + (cons __tmp51846 __tmp51844)))) (declare (not safe)) - (cons _L21986_ __tmp49940)))) + (cons _L21986_ __tmp51843)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49946 - __tmp49939))))))) + (cons __tmp51849 + __tmp51842))))))) _g2208522096_)))) (_g2208322146_ _rebind?21968_)))) _g2205722068_)))) (_g2205522150_ (_wrap21836_ - (let ((__tmp49983 (gx#datum->syntax '#f 'def)) - (__tmp49947 - (let ((__tmp49948 - (let ((__tmp49949 - (let ((__tmp49982 + (let ((__tmp51886 (gx#datum->syntax '#f 'def)) + (__tmp51850 + (let ((__tmp51851 + (let ((__tmp51852 + (let ((__tmp51885 (gx#datum->syntax '#f 'let-syntax)) - (__tmp49950 - (let ((__tmp49952 - (let ((__tmp49953 - (let ((__tmp49954 + (__tmp51853 + (let ((__tmp51855 + (let ((__tmp51856 + (let ((__tmp51857 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49955 - (let ((__tmp49981 + (let ((__tmp51858 + (let ((__tmp51884 (gx#datum->syntax '#f 'syntax-rules)) - (__tmp49956 - (let ((__tmp49957 - (let ((__tmp49958 - (let ((__tmp49973 - (let ((__tmp49980 + (__tmp51859 + (let ((__tmp51860 + (let ((__tmp51861 + (let ((__tmp51876 + (let ((__tmp51883 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '_)) - (__tmp49974 - (let ((__tmp49979 (gx#datum->syntax '#f 'obj)) - (__tmp49975 - (let ((__tmp49978 + (__tmp51877 + (let ((__tmp51882 (gx#datum->syntax '#f 'obj)) + (__tmp51878 + (let ((__tmp51881 (gx#datum->syntax '#f 'arg)) - (__tmp49976 - (let ((__tmp49977 + (__tmp51879 + (let ((__tmp51880 (gx#datum->syntax '#f '...))) (declare (not safe)) - (cons __tmp49977 '())))) + (cons __tmp51880 '())))) (declare (not safe)) - (cons __tmp49978 __tmp49976)))) + (cons __tmp51881 __tmp51879)))) (declare (not safe)) - (cons __tmp49979 __tmp49975)))) + (cons __tmp51882 __tmp51878)))) (declare (not safe)) - (cons __tmp49980 __tmp49974))) - (__tmp49959 - (let ((__tmp49960 - (let ((__tmp49972 + (cons __tmp51883 __tmp51877))) + (__tmp51862 + (let ((__tmp51863 + (let ((__tmp51875 (gx#datum->syntax '#f 'call-next-method)) - (__tmp49961 - (let ((__tmp49962 - (let ((__tmp49971 + (__tmp51864 + (let ((__tmp51865 + (let ((__tmp51874 (gx#datum->syntax '#f 'obj)) - (__tmp49963 - (let ((__tmp49968 - (let ((__tmp49970 + (__tmp51866 + (let ((__tmp51871 + (let ((__tmp51873 (gx#datum->syntax '#f 'quote)) - (__tmp49969 + (__tmp51872 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L21940_ '())))) (declare (not safe)) - (cons __tmp49970 __tmp49969))) - (__tmp49964 - (let ((__tmp49967 (gx#datum->syntax '#f 'arg)) - (__tmp49965 - (let ((__tmp49966 (gx#datum->syntax '#f '...))) + (cons __tmp51873 __tmp51872))) + (__tmp51867 + (let ((__tmp51870 (gx#datum->syntax '#f 'arg)) + (__tmp51868 + (let ((__tmp51869 (gx#datum->syntax '#f '...))) (declare (not safe)) - (cons __tmp49966 '())))) + (cons __tmp51869 '())))) (declare (not safe)) - (cons __tmp49967 __tmp49965)))) + (cons __tmp51870 __tmp51868)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49968 - __tmp49964)))) + (cons __tmp51871 + __tmp51867)))) (declare (not safe)) - (cons __tmp49971 __tmp49963)))) + (cons __tmp51874 __tmp51866)))) (declare (not safe)) - (cons _L21986_ __tmp49962)))) + (cons _L21986_ __tmp51865)))) (declare (not safe)) - (cons __tmp49972 __tmp49961)))) + (cons __tmp51875 __tmp51864)))) (declare (not safe)) - (cons __tmp49960 '())))) + (cons __tmp51863 '())))) (declare (not safe)) - (cons __tmp49973 __tmp49959)))) + (cons __tmp51876 __tmp51862)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49958 '())))) + (cons __tmp51861 '())))) (declare (not safe)) - (cons '() __tmp49957)))) + (cons '() __tmp51860)))) (declare (not safe)) - (cons __tmp49981 __tmp49956)))) + (cons __tmp51884 __tmp51859)))) (declare (not safe)) - (cons __tmp49955 '())))) + (cons __tmp51858 '())))) (declare (not safe)) - (cons _L22043_ __tmp49954)))) + (cons _L22043_ __tmp51857)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49953 '()))) - (__tmp49951 + (cons __tmp51856 '()))) + (__tmp51854 (let () (declare (not safe)) (cons _L21938_ '())))) (declare (not safe)) - (cons __tmp49952 __tmp49951)))) + (cons __tmp51855 __tmp51854)))) (declare (not safe)) - (cons __tmp49982 __tmp49950)))) + (cons __tmp51885 __tmp51853)))) (declare (not safe)) - (cons __tmp49949 '())))) + (cons __tmp51852 '())))) (declare (not safe)) - (cons _L22015_ __tmp49948)))) + (cons _L22015_ __tmp51851)))) (declare (not safe)) - (cons __tmp49983 __tmp49947))))))) + (cons __tmp51886 __tmp51850))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2202922040_)))) (_g2202722154_ @@ -3204,35 +3156,35 @@ _g2197221983_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g2197022162_ - (let ((__obj47526 + (let ((__obj49630 _klass21965_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47526 + __obj49630 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47526 + __obj49630 '9 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47526 + __obj49630 'type-descriptor))))) - (if (let ((__tmp49935 + (if (let ((__tmp51838 (gx#identifier? _L21940_))) (declare (not safe)) - (not __tmp49935)) + (not __tmp51838)) (gx#raise-syntax-error '#f '"bad syntax; expected method identifier" _stx21833_ _L21940_) - (if (let ((__tmp49934 + (if (let ((__tmp51837 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -3240,7 +3192,7 @@ (gerbil/core$$#syntax-local-class-type-info?__0 _L21939_)))) (declare (not safe)) - (not __tmp49934)) + (not __tmp51837)) (gx#raise-syntax-error '#f '"bad syntax; expected type identifier" @@ -3275,13 +3227,9 @@ (if (gx#identifier? _id22812_) (let ((_id-str22815_ (symbol->string (gx#stx-e _id22812_)))) - (if (let () - (declare (not safe)) - (string-index _id-str22815_ '#\.)) + (if (string-index _id-str22815_ '#\.) (let ((_split22818_ - (let () - (declare (not safe)) - (string-split _id-str22815_ '#\.)))) + (string-split _id-str22815_ '#\.))) (fx= (length _split22818_) '2)) '#f)) '#f))) @@ -3289,29 +3237,26 @@ (lambda (_id22801_) (let* ((_id-str22804_ (symbol->string (gx#stx-e _id22801_))) - (_split22807_ - (let () - (declare (not safe)) - (string-split _id-str22804_ '#\.)))) - (let ((__tmp49987 + (_split22807_ (string-split _id-str22804_ '#\.))) + (let ((__tmp51890 (gx#stx-identifier _id22801_ (car _split22807_))) - (__tmp49985 - (let ((__tmp49986 + (__tmp51888 + (let ((__tmp51889 (gx#stx-identifier _id22801_ (cadr _split22807_)))) (declare (not safe)) - (cons __tmp49986 '())))) + (cons __tmp51889 '())))) (declare (not safe)) - (cons __tmp49987 __tmp49985)))))) - (let* ((___stx4450344504_ _stx22176_) + (cons __tmp51890 __tmp51888)))))) + (let* ((___stx4660746608_ _stx22176_) (_g2218622273_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4450344504_)))) - (let ((___kont4450644507_ + ___stx4660746608_)))) + (let ((___kont4661046611_ (lambda (_L22694_ _L22696_ _L22697_) (let* ((_g2272522740_ (lambda (_g2272622736_) @@ -3348,56 +3293,56 @@ _tl2273222764_) ((lambda (_L22767_ _L22769_) (let () - (let ((__tmp50000 + (let ((__tmp51902 (gx#datum->syntax '#f 'apply)) - (__tmp49988 - (let ((__tmp49999 + (__tmp51891 + (let ((__tmp51901 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'call-method)) - (__tmp49989 - (let ((__tmp49990 - (let ((__tmp49996 - (let ((__tmp49998 + (__tmp51892 + (let ((__tmp51893 + (let ((__tmp51898 + (let ((__tmp51900 (gx#datum->syntax '#f 'quote)) - (__tmp49997 + (__tmp51899 (let () (declare (not safe)) (cons _L22767_ '())))) (declare (not safe)) - (cons __tmp49998 __tmp49997))) - (__tmp49991 - (let ((__tmp49992 - (let ((__tmp49995 + (cons __tmp51900 __tmp51899))) + (__tmp51894 + (let ((__tmp51895 + (let ((__tmp51897 (gx#datum->syntax '#f '@list)) - (__tmp49993 - (let ((__tmp49994 + (__tmp51896 + (foldr (lambda (_g2278422787_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2278422787_ _g2278522790_) + _g2278522790_) (let () (declare (not safe)) - (cons _g2278422787_ _g2278522790_))))) - (declare (not safe)) - (foldr1 __tmp49994 '() _L22696_)))) + (cons _g2278422787_ _g2278522790_))) + '() + _L22696_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49995 - __tmp49993)))) + (cons __tmp51897 + __tmp51896)))) (declare (not safe)) - (cons __tmp49992 '())))) + (cons __tmp51895 '())))) (declare (not safe)) - (cons __tmp49996 __tmp49991)))) + (cons __tmp51898 __tmp51894)))) (declare (not safe)) - (cons _L22769_ __tmp49990)))) + (cons _L22769_ __tmp51893)))) (declare (not safe)) - (cons __tmp49999 __tmp49989)))) + (cons __tmp51901 __tmp51892)))) (declare (not safe)) - (cons __tmp50000 __tmp49988)))) + (cons __tmp51902 __tmp51891)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd2273322761_ _hd2273022751_) @@ -3406,7 +3351,7 @@ (_g2272522740_ _g2272622744_)))) (_g2272522740_ _g2272622744_))))) (_g2272422793_ (_split-dotted22181_ _L22697_))))) - (___kont4451044511_ + (___kont4661446615_ (lambda (_L22536_ _L22538_) (let* ((_g2255522570_ (lambda (_g2255622566_) @@ -3443,38 +3388,37 @@ _tl2256222594_) ((lambda (_L22597_ _L22599_) (let () - (let ((__tmp50008 + (let ((__tmp51909 (gx#datum->syntax '#f 'call-method)) - (__tmp50001 - (let ((__tmp50002 + (__tmp51903 + (let ((__tmp51904 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50005 - (let ((__tmp50007 + (let ((__tmp51906 + (let ((__tmp51908 (gx#datum->syntax '#f 'quote)) - (__tmp50006 + (__tmp51907 (let () (declare (not safe)) (cons _L22597_ '())))) (declare (not safe)) - (cons __tmp50007 __tmp50006))) - (__tmp50003 - (let ((__tmp50004 - (lambda (_g2261422617_ + (cons __tmp51908 __tmp51907))) + (__tmp51905 + (foldr (lambda (_g2261422617_ _g2261522620_) (let () (declare (not safe)) (cons _g2261422617_ - _g2261522620_))))) - (declare (not safe)) - (foldr1 __tmp50004 '() _L22536_)))) + _g2261522620_))) + '() + _L22536_))) (declare (not safe)) - (cons __tmp50005 __tmp50003)))) + (cons __tmp51906 __tmp51905)))) (declare (not safe)) - (cons _L22599_ __tmp50002)))) + (cons _L22599_ __tmp51904)))) (declare (not safe)) - (cons __tmp50008 __tmp50001)))) + (cons __tmp51909 __tmp51903)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd2256322591_ _hd2256022581_) @@ -3483,86 +3427,85 @@ (_g2255522570_ _g2255622574_)))) (_g2255522570_ _g2255622574_))))) (_g2255422623_ (_split-dotted22181_ _L22538_))))) - (___kont4451444515_ + (___kont4661846619_ (lambda (_L22440_ _L22442_ _L22443_) - (let ((__tmp50021 (gx#datum->syntax '#f 'apply)) - (__tmp50009 - (let ((__tmp50020 + (let ((__tmp51921 (gx#datum->syntax '#f 'apply)) + (__tmp51910 + (let ((__tmp51920 (gx#datum->syntax '#f 'call-method)) - (__tmp50010 - (let ((__tmp50011 - (let ((__tmp50017 - (let ((__tmp50019 + (__tmp51911 + (let ((__tmp51912 + (let ((__tmp51917 + (let ((__tmp51919 (gx#datum->syntax '#f 'quote)) - (__tmp50018 + (__tmp51918 (let () (declare (not safe)) (cons _L22443_ '())))) (declare (not safe)) - (cons __tmp50019 - __tmp50018))) - (__tmp50012 - (let ((__tmp50013 - (let ((__tmp50016 + (cons __tmp51919 + __tmp51918))) + (__tmp51913 + (let ((__tmp51914 + (let ((__tmp51916 (gx#datum->syntax '#f '@list)) - (__tmp50014 - (let ((__tmp50015 + (__tmp51915 + (foldr (lambda (_g2247022473_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2247022473_ _g2247122476_) + _g2247122476_) (let () (declare (not safe)) - (cons _g2247022473_ _g2247122476_))))) - (declare (not safe)) - (foldr1 __tmp50015 '() _L22440_)))) + (cons _g2247022473_ _g2247122476_))) + '() + _L22440_))) (declare (not safe)) - (cons __tmp50016 __tmp50014)))) + (cons __tmp51916 __tmp51915)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50013 '())))) + (cons __tmp51914 '())))) (declare (not safe)) - (cons __tmp50017 __tmp50012)))) + (cons __tmp51917 __tmp51913)))) (declare (not safe)) - (cons _L22442_ __tmp50011)))) + (cons _L22442_ __tmp51912)))) (declare (not safe)) - (cons __tmp50020 __tmp50010)))) + (cons __tmp51920 __tmp51911)))) (declare (not safe)) - (cons __tmp50021 __tmp50009)))) - (___kont4451844519_ + (cons __tmp51921 __tmp51910)))) + (___kont4662246623_ (lambda (_L22340_ _L22342_ _L22343_) - (let ((__tmp50029 (gx#datum->syntax '#f 'call-method)) - (__tmp50022 - (let ((__tmp50023 - (let ((__tmp50026 - (let ((__tmp50028 + (let ((__tmp51928 (gx#datum->syntax '#f 'call-method)) + (__tmp51922 + (let ((__tmp51923 + (let ((__tmp51925 + (let ((__tmp51927 (gx#datum->syntax '#f 'quote)) - (__tmp50027 + (__tmp51926 (let () (declare (not safe)) (cons _L22343_ '())))) (declare (not safe)) - (cons __tmp50028 __tmp50027))) - (__tmp50024 - (let ((__tmp50025 - (lambda (_g2236422367_ + (cons __tmp51927 __tmp51926))) + (__tmp51924 + (foldr (lambda (_g2236422367_ _g2236522370_) (let () (declare (not safe)) (cons _g2236422367_ - _g2236522370_))))) - (declare (not safe)) - (foldr1 __tmp50025 '() _L22340_)))) + _g2236522370_))) + '() + _L22340_))) (declare (not safe)) - (cons __tmp50026 __tmp50024)))) + (cons __tmp51925 __tmp51924)))) (declare (not safe)) - (cons _L22342_ __tmp50023)))) + (cons _L22342_ __tmp51923)))) (declare (not safe)) - (cons __tmp50029 __tmp50022))))) - (let* ((___match4462244623_ + (cons __tmp51928 __tmp51922))))) + (let* ((___match4672646727_ (lambda (_e2225222280_ _hd2225122284_ _tl2225022287_ @@ -3572,7 +3515,7 @@ _e2225822300_ _hd2225722304_ _tl2225622307_ - ___splice4452044521_ + ___splice4662446625_ _target2225922310_ _tl2226122313_) (letrec ((_loop2226222316_ @@ -3600,7 +3543,7 @@ (_L22342_ _hd2225722304_) (_L22343_ _hd2225422294_)) (if (gx#identifier? _L22343_) - (___kont4451844519_ + (___kont4662246623_ _L22340_ _L22342_ _L22343_) @@ -3608,7 +3551,7 @@ (declare (not safe)) (_g2218622273_))))))))) (_loop2226222316_ _target2225922310_ '())))) - (___match4459644597_ + (___match4670046701_ (lambda (_e2223122380_ _hd2223022384_ _tl2222922387_ @@ -3618,7 +3561,7 @@ _e2223722400_ _hd2223622404_ _tl2223522407_ - ___splice4451644517_ + ___splice4662046621_ _target2223822410_ _tl2224022413_) (letrec ((_loop2224122416_ @@ -3648,21 +3591,20 @@ (if (and (gx#identifier? _L22443_) (gx#stx-ormap gx#ellipsis? - (let ((__tmp50030 - (lambda (_g2246222465_ + (foldr (lambda (_g2246222465_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2246322468_) (let () (declare (not safe)) - (cons _g2246222465_ _g2246322468_))))) - (declare (not safe)) - (foldr1 __tmp50030 '() _L22440_)))) + (cons _g2246222465_ _g2246322468_))) + '() + _L22440_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4451444515_ + (___kont4661846619_ _L22440_ _L22442_ _L22443_) - (___match4462244623_ + (___match4672646727_ _e2223122380_ _hd2223022384_ _tl2222922387_ @@ -3672,11 +3614,11 @@ _e2223722400_ _hd2223622404_ _tl2223522407_ - ___splice4451644517_ + ___splice4662046621_ _target2223822410_ _tl2224022413_)))))))) (_loop2224122416_ _target2223822410_ '())))) - (___match4458244583_ + (___match4668646687_ (lambda (_e2223122380_ _hd2223022384_ _tl2222922387_ @@ -3694,7 +3636,7 @@ (declare (not safe)) (##car _e2223722400_)))) (if (gx#stx-pair/null? _tl2223522407_) - (let ((___splice4451644517_ + (let ((___splice4662046621_ (gx#syntax-split-splice _tl2223522407_ '0))) @@ -3702,16 +3644,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4451644517_ + ___splice4662046621_ '1))) (_target2223822410_ (let () (declare (not safe)) (##vector-ref - ___splice4451644517_ + ___splice4662046621_ '0)))) (if (gx#stx-null? _tl2224022413_) - (___match4459644597_ + (___match4670046701_ _e2223122380_ _hd2223022384_ _tl2222922387_ @@ -3721,7 +3663,7 @@ _e2223722400_ _hd2223622404_ _tl2223522407_ - ___splice4451644517_ + ___splice4662046621_ _target2223822410_ _tl2224022413_) (let () @@ -3731,14 +3673,14 @@ (declare (not safe)) (_g2218622273_))))) (let () (declare (not safe)) (_g2218622273_))))) - (___match4457044571_ + (___match4667446675_ (lambda (_e2221322486_ _hd2221222490_ _tl2221122493_ _e2221622496_ _hd2221522500_ _tl2221422503_ - ___splice4451244513_ + ___splice4661646617_ _target2221722506_ _tl2221922509_) (letrec ((_loop2222022512_ @@ -3766,10 +3708,10 @@ (_L22538_ _hd2221522500_)) (if (_dotted-identifier?22179_ _L22538_) - (___kont4451044511_ + (___kont4661446615_ _L22536_ _L22538_) - (___match4458244583_ + (___match4668646687_ _e2221322486_ _hd2221222490_ _tl2221122493_ @@ -3777,25 +3719,25 @@ _hd2221522500_ _tl2221422503_)))))))) (_loop2222022512_ _target2221722506_ '())))) - (___match4456844569_ + (___match4667246673_ (lambda (_e2221322486_ _hd2221222490_ _tl2221122493_ _e2221622496_ _hd2221522500_ _tl2221422503_ - ___splice4451244513_ + ___splice4661646617_ _target2221722506_ _tl2221922509_) (if (gx#stx-null? _tl2221922509_) - (___match4457044571_ + (___match4667446675_ _e2221322486_ _hd2221222490_ _tl2221122493_ _e2221622496_ _hd2221522500_ _tl2221422503_ - ___splice4451244513_ + ___splice4661646617_ _target2221722506_ _tl2221922509_) (if (gx#stx-pair? _tl2221422503_) @@ -3810,7 +3752,7 @@ (declare (not safe)) (##car _e2223722400_)))) (if (gx#stx-pair/null? _tl2223522407_) - (let ((___splice4451644517_ + (let ((___splice4662046621_ (gx#syntax-split-splice _tl2223522407_ '0))) @@ -3818,16 +3760,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4451644517_ + ___splice4662046621_ '1))) (_target2223822410_ (let () (declare (not safe)) (##vector-ref - ___splice4451644517_ + ___splice4662046621_ '0)))) (if (gx#stx-null? _tl2224022413_) - (___match4459644597_ + (___match4670046701_ _e2221322486_ _hd2221222490_ _tl2221122493_ @@ -3837,7 +3779,7 @@ _e2223722400_ _hd2223622404_ _tl2223522407_ - ___splice4451644517_ + ___splice4662046621_ _target2223822410_ _tl2224022413_) (let () @@ -3849,14 +3791,14 @@ (let () (declare (not safe)) (_g2218622273_)))))) - (___match4455044551_ + (___match4665446655_ (lambda (_e2219322634_ _hd2219222638_ _tl2219122641_ _e2219622644_ _hd2219522648_ _tl2219422651_ - ___splice4450844509_ + ___splice4661246613_ _target2219722654_ _tl2219922657_ _e2220822660_ @@ -3890,21 +3832,20 @@ _L22697_) (gx#stx-ormap gx#ellipsis? - (let ((__tmp50031 - (lambda (_g2271622719_ + (foldr (lambda (_g2271622719_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2271722722_) (let () (declare (not safe)) - (cons _g2271622719_ _g2271722722_))))) - (declare (not safe)) - (foldr1 __tmp50031 '() _L22696_)))) + (cons _g2271622719_ _g2271722722_))) + '() + _L22696_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4450644507_ + (___kont4661046611_ _L22694_ _L22696_ _L22697_) - (let ((___splice4451244513_ + (let ((___splice4661646617_ (gx#syntax-split-splice _tl2219422651_ '0))) @@ -3912,27 +3853,27 @@ (let () (declare (not safe)) (##vector-ref - ___splice4451244513_ + ___splice4661646617_ '1))) (_target2221722506_ (let () (declare (not safe)) (##vector-ref - ___splice4451244513_ + ___splice4661646617_ '0)))) - (___match4456844569_ + (___match4667246673_ _e2219322634_ _hd2219222638_ _tl2219122641_ _e2219622644_ _hd2219522648_ _tl2219422651_ - ___splice4451244513_ + ___splice4661646617_ _target2221722506_ _tl2221922509_)))))))))) (_loop2220022670_ _target2219722654_ '()))))) - (if (gx#stx-pair? ___stx4450344504_) - (let ((_e2219322634_ (gx#syntax-e ___stx4450344504_))) + (if (gx#stx-pair? ___stx4660746608_) + (let ((_e2219322634_ (gx#syntax-e ___stx4660746608_))) (let ((_tl2219122641_ (let () (declare (not safe)) @@ -3954,7 +3895,7 @@ (if (gx#stx-pair/null? _tl2219422651_) (if (fx>= (gx#stx-length _tl2219422651_) '1) - (let ((___splice4450844509_ + (let ((___splice4661246613_ (gx#syntax-split-splice _tl2219422651_ '1))) @@ -3962,13 +3903,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice4450844509_ + ___splice4661246613_ '1))) (_target2219722654_ (let () (declare (not safe)) (##vector-ref - ___splice4450844509_ + ___splice4661246613_ '0)))) (if (gx#stx-pair? _tl2219922657_) (let ((_e2220822660_ @@ -3984,20 +3925,20 @@ (##car _e2220822660_)))) (if (gx#stx-null? _tl2220622667_) - (___match4455044551_ + (___match4665446655_ _e2219322634_ _hd2219222638_ _tl2219122641_ _e2219622644_ _hd2219522648_ _tl2219422651_ - ___splice4450844509_ + ___splice4661246613_ _target2219722654_ _tl2219922657_ _e2220822660_ _hd2220722664_ _tl2220622667_) - (let ((___splice4451244513_ + (let ((___splice4661646617_ (gx#syntax-split-splice _tl2219422651_ '0))) @@ -4005,20 +3946,20 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref ___splice4451244513_ '1))) + (##vector-ref ___splice4661646617_ '1))) (_target2221722506_ (let () (declare (not safe)) - (##vector-ref ___splice4451244513_ '0)))) + (##vector-ref ___splice4661646617_ '0)))) (if (gx#stx-null? _tl2221922509_) - (___match4457044571_ + (___match4667446675_ _e2219322634_ _hd2219222638_ _tl2219122641_ _e2219622644_ _hd2219522648_ _tl2219422651_ - ___splice4451244513_ + ___splice4661646617_ _target2221722506_ _tl2221922509_) (if (gx#stx-pair? _tl2219422651_) @@ -4032,7 +3973,7 @@ (declare (not safe)) (##car _e2223722400_)))) (if (gx#stx-pair/null? _tl2223522407_) - (let ((___splice4451644517_ + (let ((___splice4662046621_ (gx#syntax-split-splice _tl2223522407_ '0))) @@ -4040,16 +3981,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4451644517_ + ___splice4662046621_ '1))) (_target2223822410_ (let () (declare (not safe)) (##vector-ref - ___splice4451644517_ + ___splice4662046621_ '0)))) (if (gx#stx-null? _tl2224022413_) - (___match4459644597_ + (___match4670046701_ _e2219322634_ _hd2219222638_ _tl2219122641_ @@ -4059,7 +4000,7 @@ _e2223722400_ _hd2223622404_ _tl2223522407_ - ___splice4451644517_ + ___splice4662046621_ _target2223822410_ _tl2224022413_) (let () @@ -4072,7 +4013,7 @@ (declare (not safe)) (_g2218622273_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___splice4451244513_ + (let ((___splice4661646617_ (gx#syntax-split-splice _tl2219422651_ '0))) @@ -4080,24 +4021,24 @@ (let () (declare (not safe)) (##vector-ref - ___splice4451244513_ + ___splice4661646617_ '1))) (_target2221722506_ (let () (declare (not safe)) (##vector-ref - ___splice4451244513_ + ___splice4661646617_ '0)))) (if (gx#stx-null? _tl2221922509_) - (___match4457044571_ + (___match4667446675_ _e2219322634_ _hd2219222638_ _tl2219122641_ _e2219622644_ _hd2219522648_ _tl2219422651_ - ___splice4451244513_ + ___splice4661646617_ _target2221722506_ _tl2221922509_) (if (gx#stx-pair? @@ -4114,20 +4055,20 @@ (declare (not safe)) (##car _e2223722400_)))) (if (gx#stx-pair/null? _tl2223522407_) - (let ((___splice4451644517_ + (let ((___splice4662046621_ (gx#syntax-split-splice _tl2223522407_ '0))) (let ((_tl2224022413_ (let () (declare (not safe)) - (##vector-ref ___splice4451644517_ '1))) + (##vector-ref ___splice4662046621_ '1))) (_target2223822410_ (let () (declare (not safe)) (##vector-ref - ___splice4451644517_ + ___splice4662046621_ '0)))) (if (gx#stx-null? _tl2224022413_) - (___match4459644597_ + (___match4670046701_ _e2219322634_ _hd2219222638_ _tl2219122641_ @@ -4137,7 +4078,7 @@ _e2223722400_ _hd2223622404_ _tl2223522407_ - ___splice4451644517_ + ___splice4662046621_ _target2223822410_ _tl2224022413_) (let () @@ -4146,7 +4087,7 @@ (let () (declare (not safe)) (_g2218622273_))))) (let () (declare (not safe)) (_g2218622273_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___splice4451244513_ + (let ((___splice4661646617_ (gx#syntax-split-splice _tl2219422651_ '0))) @@ -4154,23 +4095,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4451244513_ + ___splice4661646617_ '1))) (_target2221722506_ (let () (declare (not safe)) (##vector-ref - ___splice4451244513_ + ___splice4661646617_ '0)))) (if (gx#stx-null? _tl2221922509_) - (___match4457044571_ + (___match4667446675_ _e2219322634_ _hd2219222638_ _tl2219122641_ _e2219622644_ _hd2219522648_ _tl2219422651_ - ___splice4451244513_ + ___splice4661646617_ _target2221722506_ _tl2221922509_) (if (gx#stx-pair? @@ -4187,18 +4128,18 @@ (_hd2223622404_ (let () (declare (not safe)) (##car _e2223722400_)))) (if (gx#stx-pair/null? _tl2223522407_) - (let ((___splice4451644517_ + (let ((___splice4662046621_ (gx#syntax-split-splice _tl2223522407_ '0))) (let ((_tl2224022413_ (let () (declare (not safe)) - (##vector-ref ___splice4451644517_ '1))) + (##vector-ref ___splice4662046621_ '1))) (_target2223822410_ (let () (declare (not safe)) - (##vector-ref ___splice4451644517_ '0)))) + (##vector-ref ___splice4662046621_ '0)))) (if (gx#stx-null? _tl2224022413_) - (___match4459644597_ + (___match4670046701_ _e2219322634_ _hd2219222638_ _tl2219122641_ @@ -4208,7 +4149,7 @@ _e2223722400_ _hd2223622404_ _tl2223522407_ - ___splice4451644517_ + ___splice4662046621_ _target2223822410_ _tl2224022413_) (let () (declare (not safe)) (_g2218622273_))))) @@ -4230,7 +4171,7 @@ (##car _e2223722400_)))) (if (gx#stx-pair/null? _tl2223522407_) - (let ((___splice4451644517_ + (let ((___splice4662046621_ (gx#syntax-split-splice _tl2223522407_ '0))) @@ -4238,17 +4179,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4451644517_ + ___splice4662046621_ '1))) (_target2223822410_ (let () (declare (not safe)) (##vector-ref - ___splice4451644517_ + ___splice4662046621_ '0)))) (if (gx#stx-null? _tl2224022413_) - (___match4459644597_ + (___match4670046701_ _e2219322634_ _hd2219222638_ _tl2219122641_ @@ -4258,7 +4199,7 @@ _e2223722400_ _hd2223622404_ _tl2223522407_ - ___splice4451644517_ + ___splice4662046621_ _target2223822410_ _tl2224022413_) (let () @@ -4274,60 +4215,59 @@ (let () (declare (not safe)) (_g2218622273_))))))))) (define |gerbil/core$$[:0:]#@| (lambda (_$stx22825_) - (let* ((___stx4462544626_ _$stx22825_) + (let* ((___stx4672946730_ _$stx22825_) (_g2283022870_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4462544626_)))) - (let ((___kont4462844629_ + ___stx4672946730_)))) + (let ((___kont4673246733_ (lambda (_L23008_ _L23010_) - (let ((__tmp50037 (gx#datum->syntax '#f 'slot-ref)) - (__tmp50032 - (let ((__tmp50033 - (let ((__tmp50034 - (let ((__tmp50036 + (let ((__tmp51934 (gx#datum->syntax '#f 'slot-ref)) + (__tmp51929 + (let ((__tmp51930 + (let ((__tmp51931 + (let ((__tmp51933 (gx#datum->syntax '#f 'quote)) - (__tmp50035 + (__tmp51932 (let () (declare (not safe)) (cons _L23008_ '())))) (declare (not safe)) - (cons __tmp50036 __tmp50035)))) + (cons __tmp51933 __tmp51932)))) (declare (not safe)) - (cons __tmp50034 '())))) + (cons __tmp51931 '())))) (declare (not safe)) - (cons _L23010_ __tmp50033)))) + (cons _L23010_ __tmp51930)))) (declare (not safe)) - (cons __tmp50037 __tmp50032)))) - (___kont4463044631_ + (cons __tmp51934 __tmp51929)))) + (___kont4673446735_ (lambda (_L22937_ _L22939_ _L22940_ _L22941_) - (let ((__tmp50038 - (let ((__tmp50041 - (let ((__tmp50042 - (let ((__tmp50043 + (let ((__tmp51935 + (let ((__tmp51937 + (let ((__tmp51938 + (let ((__tmp51939 (let () (declare (not safe)) (cons _L22939_ '())))) (declare (not safe)) - (cons _L22940_ __tmp50043)))) + (cons _L22940_ __tmp51939)))) (declare (not safe)) - (cons _L22941_ __tmp50042))) - (__tmp50039 - (let ((__tmp50040 - (lambda (_g2296222965_ _g2296322968_) + (cons _L22941_ __tmp51938))) + (__tmp51936 + (foldr (lambda (_g2296222965_ _g2296322968_) (let () (declare (not safe)) (cons _g2296222965_ - _g2296322968_))))) - (declare (not safe)) - (foldr1 __tmp50040 '() _L22937_)))) + _g2296322968_))) + '() + _L22937_))) (declare (not safe)) - (cons __tmp50041 __tmp50039)))) + (cons __tmp51937 __tmp51936)))) (declare (not safe)) - (cons _L22941_ __tmp50038))))) - (let* ((___match4468044681_ + (cons _L22941_ __tmp51935))))) + (let* ((___match4678446785_ (lambda (_e2284922877_ _hd2284822881_ _tl2284722884_ @@ -4337,7 +4277,7 @@ _e2285522897_ _hd2285422901_ _tl2285322904_ - ___splice4463244633_ + ___splice4673646737_ _target2285622907_ _tl2285822910_) (letrec ((_loop2285922913_ @@ -4361,13 +4301,13 @@ _rest2286322920_))))) (let ((_rest2286422933_ (reverse _rest2286322920_))) - (___kont4463044631_ + (___kont4673446735_ _rest2286422933_ _hd2285422901_ _hd2285122891_ _hd2284822881_)))))) (_loop2285922913_ _target2285622907_ '())))) - (___match4465444655_ + (___match4675846759_ (lambda (_e2283622978_ _hd2283522982_ _tl2283422985_ @@ -4380,9 +4320,9 @@ (let ((_L23008_ _hd2284123002_) (_L23010_ _hd2283822992_)) (if (gx#identifier? _L23008_) - (___kont4462844629_ _L23008_ _L23010_) + (___kont4673246733_ _L23008_ _L23010_) (if (gx#stx-pair/null? _tl2284023005_) - (let ((___splice4463244633_ + (let ((___splice4673646737_ (gx#syntax-split-splice _tl2284023005_ '0))) @@ -4390,16 +4330,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4463244633_ + ___splice4673646737_ '1))) (_target2285622907_ (let () (declare (not safe)) (##vector-ref - ___splice4463244633_ + ___splice4673646737_ '0)))) (if (gx#stx-null? _tl2285822910_) - (___match4468044681_ + (___match4678446785_ _e2283622978_ _hd2283522982_ _tl2283422985_ @@ -4409,7 +4349,7 @@ _e2284222998_ _hd2284123002_ _tl2284023005_ - ___splice4463244633_ + ___splice4673646737_ _target2285622907_ _tl2285822910_) (let () @@ -4418,8 +4358,8 @@ (let () (declare (not safe)) (_g2283022870_)))))))) - (if (gx#stx-pair? ___stx4462544626_) - (let ((_e2283622978_ (gx#syntax-e ___stx4462544626_))) + (if (gx#stx-pair? ___stx4672946730_) + (let ((_e2283622978_ (gx#syntax-e ___stx4672946730_))) (let ((_tl2283422985_ (let () (declare (not safe)) (##cdr _e2283622978_))) (_hd2283522982_ @@ -4448,7 +4388,7 @@ (declare (not safe)) (##car _e2284222998_)))) (if (gx#stx-null? _tl2284023005_) - (___match4465444655_ + (___match4675846759_ _e2283622978_ _hd2283522982_ _tl2283422985_ @@ -4460,7 +4400,7 @@ _tl2284023005_) (if (gx#stx-pair/null? _tl2284023005_) - (let ((___splice4463244633_ + (let ((___splice4673646737_ (gx#syntax-split-splice _tl2284023005_ '0))) @@ -4468,17 +4408,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4463244633_ + ___splice4673646737_ '1))) (_target2285622907_ (let () (declare (not safe)) (##vector-ref - ___splice4463244633_ + ___splice4673646737_ '0)))) (if (gx#stx-null? _tl2285822910_) - (___match4468044681_ + (___match4678446785_ _e2283622978_ _hd2283522982_ _tl2283422985_ @@ -4488,7 +4428,7 @@ _e2284222998_ _hd2284123002_ _tl2284023005_ - ___splice4463244633_ + ___splice4673646737_ _target2285622907_ _tl2285822910_) (let () @@ -4504,78 +4444,77 @@ (let () (declare (not safe)) (_g2283022870_)))))))) (define |gerbil/core$$[:0:]#@-set!| (lambda (_$stx23030_) - (let* ((___stx4468344684_ _$stx23030_) + (let* ((___stx4678746788_ _$stx23030_) (_g2303523087_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4468344684_)))) - (let ((___kont4468644687_ + ___stx4678746788_)))) + (let ((___kont4679046791_ (lambda (_L23263_ _L23265_ _L23266_) - (let ((__tmp50050 (gx#datum->syntax '#f 'slot-set!)) - (__tmp50044 - (let ((__tmp50045 - (let ((__tmp50047 - (let ((__tmp50049 + (let ((__tmp51946 (gx#datum->syntax '#f 'slot-set!)) + (__tmp51940 + (let ((__tmp51941 + (let ((__tmp51943 + (let ((__tmp51945 (gx#datum->syntax '#f 'quote)) - (__tmp50048 + (__tmp51944 (let () (declare (not safe)) (cons _L23265_ '())))) (declare (not safe)) - (cons __tmp50049 __tmp50048))) - (__tmp50046 + (cons __tmp51945 __tmp51944))) + (__tmp51942 (let () (declare (not safe)) (cons _L23263_ '())))) (declare (not safe)) - (cons __tmp50047 __tmp50046)))) + (cons __tmp51943 __tmp51942)))) (declare (not safe)) - (cons _L23266_ __tmp50045)))) + (cons _L23266_ __tmp51941)))) (declare (not safe)) - (cons __tmp50050 __tmp50044)))) - (___kont4468844689_ + (cons __tmp51946 __tmp51940)))) + (___kont4679246793_ (lambda (_L23174_ _L23176_ _L23177_ _L23178_ _L23179_ _L23180_) - (let ((__tmp50051 - (let ((__tmp50054 - (let ((__tmp50059 (gx#datum->syntax '#f '@)) - (__tmp50055 - (let ((__tmp50056 - (let ((__tmp50057 - (let ((__tmp50058 - (lambda (_g2320723210_ + (let ((__tmp51947 + (let ((__tmp51950 + (let ((__tmp51954 (gx#datum->syntax '#f '@)) + (__tmp51951 + (let ((__tmp51952 + (let ((__tmp51953 + (foldr (lambda (_g2320723210_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2320823213_) (let () (declare (not safe)) - (cons _g2320723210_ _g2320823213_))))) - (declare (not safe)) - (foldr1 __tmp50058 '() _L23177_)))) + (cons _g2320723210_ _g2320823213_))) + '() + _L23177_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L23178_ __tmp50057)))) + (cons _L23178_ __tmp51953)))) (declare (not safe)) - (cons _L23179_ __tmp50056)))) + (cons _L23179_ __tmp51952)))) (declare (not safe)) - (cons __tmp50059 __tmp50055))) - (__tmp50052 - (let ((__tmp50053 + (cons __tmp51954 __tmp51951))) + (__tmp51948 + (let ((__tmp51949 (let () (declare (not safe)) (cons _L23174_ '())))) (declare (not safe)) - (cons _L23176_ __tmp50053)))) + (cons _L23176_ __tmp51949)))) (declare (not safe)) - (cons __tmp50054 __tmp50052)))) + (cons __tmp51950 __tmp51948)))) (declare (not safe)) - (cons _L23180_ __tmp50051))))) - (let* ((___match4475844759_ + (cons _L23180_ __tmp51947))))) + (let* ((___match4686246863_ (lambda (_e2306023094_ _hd2305923098_ _tl2305823101_ @@ -4585,7 +4524,7 @@ _e2306623114_ _hd2306523118_ _tl2306423121_ - ___splice4469044691_ + ___splice4679446795_ _target2306723124_ _tl2306923127_ _e2307823130_ @@ -4615,7 +4554,7 @@ _path2307423157_))))) (let ((_path2307523170_ (reverse _path2307423157_))) - (___kont4468844689_ + (___kont4679246793_ _hd2308023144_ _hd2307723134_ _path2307523170_ @@ -4623,7 +4562,7 @@ _hd2306223108_ _hd2305923098_)))))) (_loop2307023150_ _target2306723124_ '())))) - (___match4471844719_ + (___match4682246823_ (lambda (_e2304223223_ _hd2304123227_ _tl2304023230_ @@ -4640,10 +4579,10 @@ (_L23265_ _hd2304723247_) (_L23266_ _hd2304423237_)) (if (gx#identifier? _L23265_) - (___kont4468644687_ _L23263_ _L23265_ _L23266_) + (___kont4679046791_ _L23263_ _L23265_ _L23266_) (if (gx#stx-pair/null? _tl2304623250_) (if (fx>= (gx#stx-length _tl2304623250_) '2) - (let ((___splice4469044691_ + (let ((___splice4679446795_ (gx#syntax-split-splice _tl2304623250_ '2))) @@ -4651,13 +4590,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice4469044691_ + ___splice4679446795_ '1))) (_target2306723124_ (let () (declare (not safe)) (##vector-ref - ___splice4469044691_ + ___splice4679446795_ '0)))) (if (gx#stx-pair? _tl2306923127_) (let ((_e2307823130_ @@ -4685,7 +4624,7 @@ (_hd2308023144_ (let () (declare (not safe)) (##car _e2308123140_)))) (if (gx#stx-null? _tl2307923147_) - (___match4475844759_ + (___match4686246863_ _e2304223223_ _hd2304123227_ _tl2304023230_ @@ -4695,7 +4634,7 @@ _e2304823243_ _hd2304723247_ _tl2304623250_ - ___splice4469044691_ + ___splice4679446795_ _target2306723124_ _tl2306923127_ _e2307823130_ @@ -4718,8 +4657,8 @@ (let () (declare (not safe)) (_g2303523087_)))))))) - (if (gx#stx-pair? ___stx4468344684_) - (let ((_e2304223223_ (gx#syntax-e ___stx4468344684_))) + (if (gx#stx-pair? ___stx4678746788_) + (let ((_e2304223223_ (gx#syntax-e ___stx4678746788_))) (let ((_tl2304023230_ (let () (declare (not safe)) (##cdr _e2304223223_))) (_hd2304123227_ @@ -4759,7 +4698,7 @@ (declare (not safe)) (##car _e2305123253_)))) (if (gx#stx-null? _tl2304923260_) - (___match4471844719_ + (___match4682246823_ _e2304223223_ _hd2304123227_ _tl2304023230_ @@ -4778,16 +4717,16 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _tl2304623250_) '2) - (let ((___splice4469044691_ + (let ((___splice4679446795_ (gx#syntax-split-splice _tl2304623250_ '2))) (let ((_tl2306923127_ (let () (declare (not safe)) - (##vector-ref ___splice4469044691_ '1))) + (##vector-ref ___splice4679446795_ '1))) (_target2306723124_ (let () (declare (not safe)) - (##vector-ref ___splice4469044691_ '0)))) + (##vector-ref ___splice4679446795_ '0)))) (if (gx#stx-pair? _tl2306923127_) (let ((_e2307823130_ (gx#syntax-e _tl2306923127_))) (let ((_tl2307623137_ @@ -4810,7 +4749,7 @@ (declare (not safe)) (##car _e2308123140_)))) (if (gx#stx-null? _tl2307923147_) - (___match4475844759_ + (___match4686246863_ _e2304223223_ _hd2304123227_ _tl2304023230_ @@ -4820,7 +4759,7 @@ _e2304823243_ _hd2304723247_ _tl2304623250_ - ___splice4469044691_ + ___splice4679446795_ _target2306723124_ _tl2306923127_ _e2307823130_ @@ -4844,7 +4783,7 @@ (if (fx>= (gx#stx-length _tl2304623250_) '2) - (let ((___splice4469044691_ + (let ((___splice4679446795_ (gx#syntax-split-splice _tl2304623250_ '2))) @@ -4853,14 +4792,14 @@ (declare (not safe)) (##vector-ref - ___splice4469044691_ + ___splice4679446795_ '1))) (_target2306723124_ (let () (declare (not safe)) (##vector-ref - ___splice4469044691_ + ___splice4679446795_ '0)))) (if (gx#stx-pair? _tl2306923127_) @@ -4884,7 +4823,7 @@ (declare (not safe)) (##car _e2308123140_)))) (if (gx#stx-null? _tl2307923147_) - (___match4475844759_ + (___match4686246863_ _e2304223223_ _hd2304123227_ _tl2304023230_ @@ -4894,7 +4833,7 @@ _e2304823243_ _hd2304723247_ _tl2304623250_ - ___splice4469044691_ + ___splice4679446795_ _target2306723124_ _tl2306923127_ _e2307823130_ diff --git a/src/bootstrap/gerbil/core__9.scm b/src/bootstrap/gerbil/core__9.scm index e9a87715b..303d9b294 100644 --- a/src/bootstrap/gerbil/core__9.scm +++ b/src/bootstrap/gerbil/core__9.scm @@ -1,48 +1,48 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$[1]#_g50061_| + (define |gerbil/core$[1]#_g51956_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50063_| + (define |gerbil/core$[1]#_g51958_| (##structure gx#syntax-quote::t 'make-macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50065_| + (define |gerbil/core$[1]#_g51960_| (##structure gx#syntax-quote::t 'macro-object? #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50069_| + (define |gerbil/core$[1]#_g51964_| (##structure gx#syntax-quote::t 'macro-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50073_| + (define |gerbil/core$[1]#_g51968_| (##structure gx#syntax-quote::t 'macro-object-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50077_| + (define |gerbil/core$[1]#_g51972_| (##structure gx#syntax-quote::t '¯o-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50081_| + (define |gerbil/core$[1]#_g51976_| (##structure gx#syntax-quote::t '¯o-object-macro-set! @@ -50,7 +50,7 @@ (gx#current-expander-context) '())) (define |gerbil/core$[:0:]#macro-object| - (let ((__obj47527 + (let ((__obj49631 (let () (declare (not safe)) (##structure @@ -73,7 +73,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47527 + __obj49631 'gerbil.core#macro-object::t '1 gerbil/core$$#class-type-info::t @@ -81,7 +81,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47527 + __obj49631 'macro-object '2 gerbil/core$$#class-type-info::t @@ -89,7 +89,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47527 + __obj49631 '(macro) '4 gerbil/core$$#class-type-info::t @@ -97,7 +97,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47527 + __obj49631 '() '3 gerbil/core$$#class-type-info::t @@ -105,7 +105,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47527 + __obj49631 '#f '5 gerbil/core$$#class-type-info::t @@ -113,7 +113,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47527 + __obj49631 '#f '6 gerbil/core$$#class-type-info::t @@ -121,7 +121,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47527 + __obj49631 '#f '7 gerbil/core$$#class-type-info::t @@ -129,93 +129,93 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47527 + __obj49631 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50060 |gerbil/core$[1]#_g50061_|)) + (let ((__tmp51955 |gerbil/core$[1]#_g51956_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47527 - __tmp50060 + __obj49631 + __tmp51955 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50062 |gerbil/core$[1]#_g50063_|)) + (let ((__tmp51957 |gerbil/core$[1]#_g51958_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47527 - __tmp50062 + __obj49631 + __tmp51957 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50064 |gerbil/core$[1]#_g50065_|)) + (let ((__tmp51959 |gerbil/core$[1]#_g51960_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47527 - __tmp50064 + __obj49631 + __tmp51959 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50066 - (let ((__tmp50067 - (let ((__tmp50068 - |gerbil/core$[1]#_g50069_|)) + (let ((__tmp51961 + (let ((__tmp51962 + (let ((__tmp51963 + |gerbil/core$[1]#_g51964_|)) (declare (not safe)) - (cons 'macro __tmp50068)))) + (cons 'macro __tmp51963)))) (declare (not safe)) - (cons __tmp50067 '())))) + (cons __tmp51962 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47527 - __tmp50066 + __obj49631 + __tmp51961 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50070 - (let ((__tmp50071 - (let ((__tmp50072 - |gerbil/core$[1]#_g50073_|)) + (let ((__tmp51965 + (let ((__tmp51966 + (let ((__tmp51967 + |gerbil/core$[1]#_g51968_|)) (declare (not safe)) - (cons 'macro __tmp50072)))) + (cons 'macro __tmp51967)))) (declare (not safe)) - (cons __tmp50071 '())))) + (cons __tmp51966 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47527 - __tmp50070 + __obj49631 + __tmp51965 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50074 - (let ((__tmp50075 - (let ((__tmp50076 - |gerbil/core$[1]#_g50077_|)) + (let ((__tmp51969 + (let ((__tmp51970 + (let ((__tmp51971 + |gerbil/core$[1]#_g51972_|)) (declare (not safe)) - (cons 'macro __tmp50076)))) + (cons 'macro __tmp51971)))) (declare (not safe)) - (cons __tmp50075 '())))) + (cons __tmp51970 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47527 - __tmp50074 + __obj49631 + __tmp51969 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50078 - (let ((__tmp50079 - (let ((__tmp50080 - |gerbil/core$[1]#_g50081_|)) + (let ((__tmp51973 + (let ((__tmp51974 + (let ((__tmp51975 + |gerbil/core$[1]#_g51976_|)) (declare (not safe)) - (cons 'macro __tmp50080)))) + (cons 'macro __tmp51975)))) (declare (not safe)) - (cons __tmp50079 '())))) + (cons __tmp51974 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47527 - __tmp50078 + __obj49631 + __tmp51973 '15 gerbil/core$$#class-type-info::t '#f)) - __obj47527))) + __obj49631))) diff --git a/src/bootstrap/gerbil/expander/common__0.scm b/src/bootstrap/gerbil/expander/common__0.scm index 0f77f1ab5..d36f7cfb4 100644 --- a/src/bootstrap/gerbil/expander/common__0.scm +++ b/src/bootstrap/gerbil/expander/common__0.scm @@ -1,26 +1,26 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/common::timestamp 1708102802) + (define gerbil/expander/common::timestamp 1708370113) (begin (define gx#AST::t - (let ((__tmp136992 (list)) - (__tmp136990 - (let ((__tmp136991 + (let ((__tmp79043 (list)) + (__tmp79041 + (let ((__tmp79042 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp136991 '())))) + (cons __tmp79042 '())))) (declare (not safe)) (make-class-type 'gerbil#AST::t 'syntax - __tmp136992 + __tmp79043 '(e source) - __tmp136990 + __tmp79041 '#f))) (define gx#AST? (let () (declare (not safe)) (make-class-predicate gx#AST::t))) (define gx#make-AST - (lambda _$args132321_ (apply make-instance gx#AST::t _$args132321_))) + (lambda _$args78940_ (apply make-instance gx#AST::t _$args78940_))) (define gx#AST-e (let () (declare (not safe)) (make-class-slot-accessor gx#AST::t 'e))) (define gx#AST-source diff --git a/src/bootstrap/gerbil/expander/common__1.scm b/src/bootstrap/gerbil/expander/common__1.scm index d751b46af..44b0936c9 100644 --- a/src/bootstrap/gerbil/expander/common__1.scm +++ b/src/bootstrap/gerbil/expander/common__1.scm @@ -1,83 +1,83 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gx[1]#_g136994_| + (define |gx[1]#_g79045_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g136996_| + (define |gx[1]#_g79047_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g136998_| + (define |gx[1]#_g79049_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |gx[1]#_g137003_| + (define |gx[1]#_g79054_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g137006_| + (define |gx[1]#_g79057_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g137011_| + (define |gx[1]#_g79062_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137014_| + (define |gx[1]#_g79065_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137019_| + (define |gx[1]#_g79070_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g137022_| + (define |gx[1]#_g79073_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g137027_| + (define |gx[1]#_g79078_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137030_| + (define |gx[1]#_g79081_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g137137_| + (define |gx[1]#_g79188_| (##structure gx#syntax-quote::t 'else @@ -86,7 +86,7 @@ '())) (begin (define |gx[:0:]#AST| - (let ((__obj136989 + (let ((__obj79040 (let () (declare (not safe)) (##structure @@ -109,7 +109,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136989 + __obj79040 'gerbil#AST::t '1 gerbil/core$$#class-type-info::t @@ -117,7 +117,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136989 + __obj79040 'syntax '2 gerbil/core$$#class-type-info::t @@ -125,7 +125,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136989 + __obj79040 '(e source) '4 gerbil/core$$#class-type-info::t @@ -133,7 +133,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136989 + __obj79040 '() '3 gerbil/core$$#class-type-info::t @@ -141,7 +141,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136989 + __obj79040 '#t '5 gerbil/core$$#class-type-info::t @@ -149,7 +149,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136989 + __obj79040 '#f '6 gerbil/core$$#class-type-info::t @@ -157,7 +157,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136989 + __obj79040 '#f '7 gerbil/core$$#class-type-info::t @@ -165,859 +165,847 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj136989 + __obj79040 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp136993 |gx[1]#_g136994_|)) + (let ((__tmp79044 |gx[1]#_g79045_|)) (declare (not safe)) (##unchecked-structure-set! - __obj136989 - __tmp136993 + __obj79040 + __tmp79044 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp136995 |gx[1]#_g136996_|)) + (let ((__tmp79046 |gx[1]#_g79047_|)) (declare (not safe)) (##unchecked-structure-set! - __obj136989 - __tmp136995 + __obj79040 + __tmp79046 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp136997 |gx[1]#_g136998_|)) + (let ((__tmp79048 |gx[1]#_g79049_|)) (declare (not safe)) (##unchecked-structure-set! - __obj136989 - __tmp136997 + __obj79040 + __tmp79048 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp136999 - (let ((__tmp137004 - (let ((__tmp137005 |gx[1]#_g137006_|)) + (let ((__tmp79050 + (let ((__tmp79055 + (let ((__tmp79056 |gx[1]#_g79057_|)) (declare (not safe)) - (cons 'e __tmp137005))) - (__tmp137000 - (let ((__tmp137001 - (let ((__tmp137002 |gx[1]#_g137003_|)) + (cons 'e __tmp79056))) + (__tmp79051 + (let ((__tmp79052 + (let ((__tmp79053 |gx[1]#_g79054_|)) (declare (not safe)) - (cons 'source __tmp137002)))) + (cons 'source __tmp79053)))) (declare (not safe)) - (cons __tmp137001 '())))) + (cons __tmp79052 '())))) (declare (not safe)) - (cons __tmp137004 __tmp137000)))) + (cons __tmp79055 __tmp79051)))) (declare (not safe)) (##unchecked-structure-set! - __obj136989 - __tmp136999 + __obj79040 + __tmp79050 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp137007 - (let ((__tmp137012 - (let ((__tmp137013 |gx[1]#_g137014_|)) + (let ((__tmp79058 + (let ((__tmp79063 + (let ((__tmp79064 |gx[1]#_g79065_|)) (declare (not safe)) - (cons 'e __tmp137013))) - (__tmp137008 - (let ((__tmp137009 - (let ((__tmp137010 |gx[1]#_g137011_|)) + (cons 'e __tmp79064))) + (__tmp79059 + (let ((__tmp79060 + (let ((__tmp79061 |gx[1]#_g79062_|)) (declare (not safe)) - (cons 'source __tmp137010)))) + (cons 'source __tmp79061)))) (declare (not safe)) - (cons __tmp137009 '())))) + (cons __tmp79060 '())))) (declare (not safe)) - (cons __tmp137012 __tmp137008)))) + (cons __tmp79063 __tmp79059)))) (declare (not safe)) (##unchecked-structure-set! - __obj136989 - __tmp137007 + __obj79040 + __tmp79058 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp137015 - (let ((__tmp137020 - (let ((__tmp137021 |gx[1]#_g137022_|)) + (let ((__tmp79066 + (let ((__tmp79071 + (let ((__tmp79072 |gx[1]#_g79073_|)) (declare (not safe)) - (cons 'e __tmp137021))) - (__tmp137016 - (let ((__tmp137017 - (let ((__tmp137018 |gx[1]#_g137019_|)) + (cons 'e __tmp79072))) + (__tmp79067 + (let ((__tmp79068 + (let ((__tmp79069 |gx[1]#_g79070_|)) (declare (not safe)) - (cons 'source __tmp137018)))) + (cons 'source __tmp79069)))) (declare (not safe)) - (cons __tmp137017 '())))) + (cons __tmp79068 '())))) (declare (not safe)) - (cons __tmp137020 __tmp137016)))) + (cons __tmp79071 __tmp79067)))) (declare (not safe)) (##unchecked-structure-set! - __obj136989 - __tmp137015 + __obj79040 + __tmp79066 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp137023 - (let ((__tmp137028 - (let ((__tmp137029 |gx[1]#_g137030_|)) + (let ((__tmp79074 + (let ((__tmp79079 + (let ((__tmp79080 |gx[1]#_g79081_|)) (declare (not safe)) - (cons 'e __tmp137029))) - (__tmp137024 - (let ((__tmp137025 - (let ((__tmp137026 |gx[1]#_g137027_|)) + (cons 'e __tmp79080))) + (__tmp79075 + (let ((__tmp79076 + (let ((__tmp79077 |gx[1]#_g79078_|)) (declare (not safe)) - (cons 'source __tmp137026)))) + (cons 'source __tmp79077)))) (declare (not safe)) - (cons __tmp137025 '())))) + (cons __tmp79076 '())))) (declare (not safe)) - (cons __tmp137028 __tmp137024)))) + (cons __tmp79079 __tmp79075)))) (declare (not safe)) (##unchecked-structure-set! - __obj136989 - __tmp137023 + __obj79040 + __tmp79074 '15 gerbil/core$$#class-type-info::t '#f)) - __obj136989)) + __obj79040)) (define |gx[:0:]#check-procedure| - (lambda (_$stx131041_) - (let* ((_g131045131059_ - (lambda (_g131046131055_) + (lambda (_$stx77660_) + (let* ((_g7766477678_ + (lambda (_g7766577674_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g131046131055_))) - (_g131044131101_ - (lambda (_g131046131063_) - (if (gx#stx-pair? _g131046131063_) - (let ((_e131050131066_ (gx#syntax-e _g131046131063_))) - (let ((_hd131049131070_ + _g7766577674_))) + (_g7766377720_ + (lambda (_g7766577682_) + (if (gx#stx-pair? _g7766577682_) + (let ((_e7766977685_ (gx#syntax-e _g7766577682_))) + (let ((_hd7766877689_ (let () (declare (not safe)) - (##car _e131050131066_))) - (_tl131048131073_ + (##car _e7766977685_))) + (_tl7766777692_ (let () (declare (not safe)) - (##cdr _e131050131066_)))) - (if (gx#stx-pair? _tl131048131073_) - (let ((_e131053131076_ - (gx#syntax-e _tl131048131073_))) - (let ((_hd131052131080_ + (##cdr _e7766977685_)))) + (if (gx#stx-pair? _tl7766777692_) + (let ((_e7767277695_ + (gx#syntax-e _tl7766777692_))) + (let ((_hd7767177699_ (let () (declare (not safe)) - (##car _e131053131076_))) - (_tl131051131083_ + (##car _e7767277695_))) + (_tl7767077702_ (let () (declare (not safe)) - (##cdr _e131053131076_)))) - (if (gx#stx-null? _tl131051131083_) - ((lambda (_L131086_) - (let ((__tmp137040 + (##cdr _e7767277695_)))) + (if (gx#stx-null? _tl7767077702_) + ((lambda (_L77705_) + (let ((__tmp79091 (gx#datum->syntax '#f 'unless)) - (__tmp137031 - (let ((__tmp137037 - (let ((__tmp137039 + (__tmp79082 + (let ((__tmp79088 + (let ((__tmp79090 (gx#datum->syntax '#f 'procedure?)) - (__tmp137038 + (__tmp79089 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L131086_ '())))) + (cons _L77705_ '())))) (declare (not safe)) - (cons __tmp137039 __tmp137038))) - (__tmp137032 - (let ((__tmp137033 - (let ((__tmp137036 (gx#datum->syntax '#f 'error)) - (__tmp137034 - (let ((__tmp137035 + (cons __tmp79090 __tmp79089))) + (__tmp79083 + (let ((__tmp79084 + (let ((__tmp79087 (gx#datum->syntax '#f 'error)) + (__tmp79085 + (let ((__tmp79086 (let () (declare (not safe)) - (cons _L131086_ '())))) + (cons _L77705_ '())))) (declare (not safe)) - (cons '"expected procedure" __tmp137035)))) + (cons '"expected procedure" __tmp79086)))) (declare (not safe)) - (cons __tmp137036 __tmp137034)))) + (cons __tmp79087 __tmp79085)))) (declare (not safe)) - (cons __tmp137033 '())))) + (cons __tmp79084 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137037 - __tmp137032)))) + (cons __tmp79088 + __tmp79083)))) (declare (not safe)) - (cons __tmp137040 __tmp137031))) - _hd131052131080_) - (_g131045131059_ _g131046131063_)))) - (_g131045131059_ _g131046131063_)))) - (_g131045131059_ _g131046131063_))))) - (_g131044131101_ _$stx131041_)))) + (cons __tmp79091 __tmp79082))) + _hd7767177699_) + (_g7766477678_ _g7766577682_)))) + (_g7766477678_ _g7766577682_)))) + (_g7766477678_ _g7766577682_))))) + (_g7766377720_ _$stx77660_)))) (define |gx[:0:]#core-syntax-case| - (lambda (_stx131105_) - (letrec ((_generate131108_ - (lambda (_tgt131257_ _kws131259_ _clauses131260_) - (letrec ((_generate-clause131262_ - (lambda (_hd132172_ _E132174_) - (let* ((___stx136892136893_ _hd132172_) - (_g132178132205_ + (lambda (_stx77724_) + (letrec ((_generate77727_ + (lambda (_tgt77876_ _kws77878_ _clauses77879_) + (letrec ((_generate-clause77881_ + (lambda (_hd78791_ _E78793_) + (let* ((___stx7894378944_ _hd78791_) + (_g7879778824_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx136892136893_)))) - (let ((___kont136895136896_ - (lambda (_L132301_ _L132303_) - (_generate1131264_ - _hd132172_ - _L132303_ + ___stx7894378944_)))) + (let ((___kont7894678947_ + (lambda (_L78920_ _L78922_) + (_generate177883_ + _hd78791_ + _L78922_ '#t - _L132301_ - _E132174_))) - (___kont136897136898_ - (lambda (_L132253_ - _L132255_ - _L132256_) - (_generate1131264_ - _hd132172_ - _L132256_ - _L132255_ - _L132253_ - _E132174_))) - (___kont136899136900_ + _L78920_ + _E78793_))) + (___kont7894878949_ + (lambda (_L78872_ _L78874_ _L78875_) + (_generate177883_ + _hd78791_ + _L78875_ + _L78874_ + _L78872_ + _E78793_))) + (___kont7895078951_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case pattern" - _stx131105_ - _hd132172_)))) - (if (gx#stx-pair? ___stx136892136893_) - (let ((_e132184132281_ + _stx77724_ + _hd78791_)))) + (if (gx#stx-pair? ___stx7894378944_) + (let ((_e7880378900_ (gx#syntax-e - ___stx136892136893_))) - (let ((_tl132182132288_ + ___stx7894378944_))) + (let ((_tl7880178907_ (let () (declare (not safe)) - (##cdr _e132184132281_))) - (_hd132183132285_ + (##cdr _e7880378900_))) + (_hd7880278904_ (let () (declare (not safe)) - (##car _e132184132281_)))) - (if (gx#stx-pair? _tl132182132288_) - (let ((_e132187132291_ + (##car _e7880378900_)))) + (if (gx#stx-pair? _tl7880178907_) + (let ((_e7880678910_ (gx#syntax-e - _tl132182132288_))) - (let ((_tl132185132298_ + _tl7880178907_))) + (let ((_tl7880478917_ (let () (declare (not safe)) - (##cdr _e132187132291_))) - (_hd132186132295_ + (##cdr _e7880678910_))) + (_hd7880578914_ (let () (declare (not safe)) - (##car _e132187132291_)))) + (##car _e7880678910_)))) (if (gx#stx-null? - _tl132185132298_) - (___kont136895136896_ - _hd132186132295_ - _hd132183132285_) + _tl7880478917_) + (___kont7894678947_ + _hd7880578914_ + _hd7880278904_) (if (gx#stx-pair? - _tl132185132298_) - (let ((_e132199132243_ + _tl7880478917_) + (let ((_e7881878862_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl132185132298_))) - (let ((_tl132197132250_ + (gx#syntax-e _tl7880478917_))) + (let ((_tl7881678869_ (let () (declare (not safe)) - (##cdr _e132199132243_))) - (_hd132198132247_ + (##cdr _e7881878862_))) + (_hd7881778866_ (let () (declare (not safe)) - (##car _e132199132243_)))) - (if (gx#stx-null? _tl132197132250_) - (___kont136897136898_ - _hd132198132247_ - _hd132186132295_ - _hd132183132285_) - (___kont136899136900_)))) - (___kont136899136900_))))) + (##car _e7881878862_)))) + (if (gx#stx-null? _tl7881678869_) + (___kont7894878949_ + _hd7881778866_ + _hd7880578914_ + _hd7880278904_) + (___kont7895078951_)))) + (___kont7895078951_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont136899136900_)))) - (___kont136899136900_)))))) - (_generate1131264_ - (lambda (_where131650_ - _hd131652_ - _fender131653_ - _body131654_ - _E131655_) - (letrec ((_recur131657_ - (lambda (_hd131660_ - _tgt131662_ - _K131663_) - (let* ((___stx136938136939_ - _hd131660_) - (_g131666131678_ + (___kont7895078951_)))) + (___kont7895078951_)))))) + (_generate177883_ + (lambda (_where78269_ + _hd78271_ + _fender78272_ + _body78273_ + _E78274_) + (letrec ((_recur78276_ + (lambda (_hd78279_ + _tgt78281_ + _K78282_) + (let* ((___stx7898978990_ + _hd78279_) + (_g7828578297_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx136938136939_)))) - (let ((___kont136941136942_ - (lambda (_L131962_ - _L131964_) - (let* ((_g131975131983_ - (lambda (_g131976131979_) + ___stx7898978990_)))) + (let ((___kont7899278993_ + (lambda (_L78581_ + _L78583_) + (let* ((_g7859478602_ + (lambda (_g7859578598_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g131976131979_))) - (_g131974132164_ - (lambda (_g131976131987_) - ((lambda (_L131990_) + _g7859578598_))) + (_g7859378783_ + (lambda (_g7859578606_) + ((lambda (_L78609_) (let () - (let* ((_g132002132010_ - (lambda (_g132003132006_) + (let* ((_g7862178629_ + (lambda (_g7862278625_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132003132006_))) - (_g132001132160_ - (lambda (_g132003132014_) - ((lambda (_L132017_) + _g7862278625_))) + (_g7862078779_ + (lambda (_g7862278633_) + ((lambda (_L78636_) (let () - (let* ((_g132030132038_ - (lambda (_g132031132034_) + (let* ((_g7864978657_ + (lambda (_g7865078653_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132031132034_))) - (_g132029132156_ - (lambda (_g132031132042_) - ((lambda (_L132045_) + _g7865078653_))) + (_g7864878775_ + (lambda (_g7865078661_) + ((lambda (_L78664_) (let () - (let* ((_g132058132066_ + (let* ((_g7867778685_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g132059132062_) + (lambda (_g7867878681_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132059132062_))) - (_g132057132152_ - (lambda (_g132059132070_) - ((lambda (_L132073_) + _g7867878681_))) + (_g7867678771_ + (lambda (_g7867878689_) + ((lambda (_L78692_) (let () - (let* ((_g132086132094_ - (lambda (_g132087132090_) + (let* ((_g7870578713_ + (lambda (_g7870678709_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132087132090_))) - (_g132085132148_ - (lambda (_g132087132098_) - ((lambda (_L132101_) + _g7870678709_))) + (_g7870478767_ + (lambda (_g7870678717_) + ((lambda (_L78720_) (let () - (let* ((_g132114132122_ - (lambda (_g132115132118_) + (let* ((_g7873378741_ + (lambda (_g7873478737_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g132115132118_))) - (_g132113132144_ - (lambda (_g132115132126_) - ((lambda (_L132129_) + _g7873478737_))) + (_g7873278763_ + (lambda (_g7873478745_) + ((lambda (_L78748_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let ((__tmp137073 (gx#datum->syntax '#f 'if)) - (__tmp137041 - (let ((__tmp137070 - (let ((__tmp137072 + (let ((__tmp79124 (gx#datum->syntax '#f 'if)) + (__tmp79092 + (let ((__tmp79121 + (let ((__tmp79123 (gx#datum->syntax '#f 'stx-pair?)) - (__tmp137071 + (__tmp79122 (let () (declare (not safe)) - (cons _L131990_ '())))) + (cons _L78609_ '())))) (declare (not safe)) - (cons __tmp137072 __tmp137071))) - (__tmp137042 - (let ((__tmp137044 - (let ((__tmp137069 + (cons __tmp79123 __tmp79122))) + (__tmp79093 + (let ((__tmp79095 + (let ((__tmp79120 (gx#datum->syntax '#f 'let)) - (__tmp137045 - (let ((__tmp137063 - (let ((__tmp137064 + (__tmp79096 + (let ((__tmp79114 + (let ((__tmp79115 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137065 - (let ((__tmp137066 - (let ((__tmp137068 + (let ((__tmp79116 + (let ((__tmp79117 + (let ((__tmp79119 (gx#datum->syntax '#f 'syntax-e)) - (__tmp137067 + (__tmp79118 (let () (declare (not safe)) - (cons _L131990_ '())))) + (cons _L78609_ '())))) (declare (not safe)) - (cons __tmp137068 __tmp137067)))) + (cons __tmp79119 __tmp79118)))) (declare (not safe)) - (cons __tmp137066 '())))) + (cons __tmp79117 '())))) (declare (not safe)) - (cons _L132017_ __tmp137065)))) + (cons _L78636_ __tmp79116)))) (declare (not safe)) - (cons __tmp137064 '()))) - (__tmp137046 - (let ((__tmp137047 - (let ((__tmp137062 (gx#datum->syntax '#f 'let)) - (__tmp137048 - (let ((__tmp137050 - (let ((__tmp137057 - (let ((__tmp137058 - (let ((__tmp137059 - (let ((__tmp137061 + (cons __tmp79115 '()))) + (__tmp79097 + (let ((__tmp79098 + (let ((__tmp79113 (gx#datum->syntax '#f 'let)) + (__tmp79099 + (let ((__tmp79101 + (let ((__tmp79108 + (let ((__tmp79109 + (let ((__tmp79110 + (let ((__tmp79112 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##car)) - (__tmp137060 + (__tmp79111 (let () (declare (not safe)) - (cons _L132017_ '())))) + (cons _L78636_ '())))) (declare (not safe)) - (cons __tmp137061 __tmp137060)))) + (cons __tmp79112 __tmp79111)))) (declare (not safe)) - (cons __tmp137059 '())))) + (cons __tmp79110 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L132045_ - __tmp137058))) - (__tmp137051 - (let ((__tmp137052 - (let ((__tmp137053 - (let ((__tmp137054 + (cons _L78664_ + __tmp79109))) + (__tmp79102 + (let ((__tmp79103 + (let ((__tmp79104 + (let ((__tmp79105 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137056 - (gx#datum->syntax '#f '##cdr)) - (__tmp137055 + (let ((__tmp79107 (gx#datum->syntax '#f '##cdr)) + (__tmp79106 (let () (declare (not safe)) - (cons _L132017_ '())))) + (cons _L78636_ '())))) (declare (not safe)) - (cons __tmp137056 __tmp137055)))) + (cons __tmp79107 __tmp79106)))) (declare (not safe)) - (cons __tmp137054 '())))) + (cons __tmp79105 '())))) (declare (not safe)) - (cons _L132073_ __tmp137053)))) + (cons _L78692_ __tmp79104)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137052 '())))) + (cons __tmp79103 '())))) (declare (not safe)) - (cons __tmp137057 __tmp137051))) - (__tmp137049 + (cons __tmp79108 __tmp79102))) + (__tmp79100 (let () (declare (not safe)) - (cons _L132101_ '())))) + (cons _L78720_ '())))) (declare (not safe)) - (cons __tmp137050 __tmp137049)))) + (cons __tmp79101 __tmp79100)))) (declare (not safe)) - (cons __tmp137062 __tmp137048)))) + (cons __tmp79113 __tmp79099)))) (declare (not safe)) - (cons __tmp137047 '())))) + (cons __tmp79098 '())))) (declare (not safe)) - (cons __tmp137063 __tmp137046)))) + (cons __tmp79114 __tmp79097)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137069 - __tmp137045))) - (__tmp137043 + (cons __tmp79120 + __tmp79096))) + (__tmp79094 (let () (declare (not safe)) - (cons _L132129_ '())))) + (cons _L78748_ '())))) (declare (not safe)) - (cons __tmp137044 __tmp137043)))) + (cons __tmp79095 __tmp79094)))) (declare (not safe)) - (cons __tmp137070 __tmp137042)))) + (cons __tmp79121 __tmp79093)))) (declare (not safe)) - (cons __tmp137073 __tmp137041))))) - _g132115132126_)))) + (cons __tmp79124 __tmp79092))))) + _g7873478745_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g132113132144_ - _E131655_)))) - _g132087132098_)))) - (_g132085132148_ - (_recur131657_ - _L131964_ - _L132045_ - (_recur131657_ - _L131962_ - _L132073_ - _K131663_)))))) - _g132059132070_)))) - (_g132057132152_ (gx#genident 'tl))))) - _g132031132042_)))) + (_g7873278763_ _E78274_)))) + _g7870678717_)))) + (_g7870478767_ + (_recur78276_ + _L78583_ + _L78664_ + (_recur78276_ + _L78581_ + _L78692_ + _K78282_)))))) + _g7867878689_)))) + (_g7867678771_ (gx#genident 'tl))))) + _g7865078661_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g132029132156_ + (_g7864878775_ (gx#genident 'hd))))) - _g132003132014_)))) - (_g132001132160_ (gx#genident 'e))))) - _g131976131987_)))) - (_g131974132164_ _tgt131662_)))) + _g7862278633_)))) + (_g7862078779_ (gx#genident 'e))))) + _g7859578606_)))) + (_g7859378783_ _tgt78281_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont136943136944_ + (___kont7899478995_ (lambda () (if (gx#identifier? - _hd131660_) + _hd78279_) (if (gx#underscore? - _hd131660_) - _K131663_ - (if (let ((__tmp137118 + _hd78279_) + _K78282_ + (if (let ((__tmp79169 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g131688131690_) + (lambda (_g7830778309_) (gx#bound-identifier=? - _g131688131690_ - _hd131660_)))) + _g7830778309_ + _hd78279_)))) (declare (not safe)) - (find __tmp137118 _kws131259_)) - (let* ((_g131694131709_ - (lambda (_g131695131705_) + (find __tmp79169 _kws77878_)) + (let* ((_g7831378328_ + (lambda (_g7831478324_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g131695131705_))) - (_g131693131760_ - (lambda (_g131695131713_) - (if (gx#stx-pair? _g131695131713_) - (let ((_e131700131716_ - (gx#syntax-e _g131695131713_))) - (let ((_hd131699131720_ + _g7831478324_))) + (_g7831278379_ + (lambda (_g7831478332_) + (if (gx#stx-pair? _g7831478332_) + (let ((_e7831978335_ + (gx#syntax-e _g7831478332_))) + (let ((_hd7831878339_ (let () (declare (not safe)) - (##car _e131700131716_))) - (_tl131698131723_ + (##car _e7831978335_))) + (_tl7831778342_ (let () (declare (not safe)) - (##cdr _e131700131716_)))) - (if (gx#stx-pair? - _tl131698131723_) - (let ((_e131703131726_ + (##cdr _e7831978335_)))) + (if (gx#stx-pair? _tl7831778342_) + (let ((_e7832278345_ (gx#syntax-e - _tl131698131723_))) - (let ((_hd131702131730_ + _tl7831778342_))) + (let ((_hd7832178349_ (let () (declare (not safe)) - (##car _e131703131726_))) - (_tl131701131733_ + (##car _e7832278345_))) + (_tl7832078352_ (let () (declare (not safe)) - (##cdr _e131703131726_)))) + (##cdr _e7832278345_)))) (if (gx#stx-null? - _tl131701131733_) - ((lambda (_L131736_ + _tl7832078352_) + ((lambda (_L78355_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L131738_) + _L78357_) (let () - (let ((__tmp137117 (gx#datum->syntax '#f 'if)) - (__tmp137100 - (let ((__tmp137103 - (let ((__tmp137116 + (let ((__tmp79168 (gx#datum->syntax '#f 'if)) + (__tmp79151 + (let ((__tmp79154 + (let ((__tmp79167 (gx#datum->syntax '#f 'and)) - (__tmp137104 - (let ((__tmp137113 - (let ((__tmp137115 + (__tmp79155 + (let ((__tmp79164 + (let ((__tmp79166 (gx#datum->syntax '#f 'identifier?)) - (__tmp137114 + (__tmp79165 (let () (declare (not safe)) - (cons _L131738_ + (cons _L78357_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137115 - __tmp137114))) - (__tmp137105 - (let ((__tmp137106 - (let ((__tmp137112 + (cons __tmp79166 + __tmp79165))) + (__tmp79156 + (let ((__tmp79157 + (let ((__tmp79163 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'core-identifier=?)) - (__tmp137107 - (let ((__tmp137108 - (let ((__tmp137109 - (let ((__tmp137111 + (__tmp79158 + (let ((__tmp79159 + (let ((__tmp79160 + (let ((__tmp79162 (gx#datum->syntax '#f 'quote)) - (__tmp137110 + (__tmp79161 (let () (declare (not safe)) - (cons _L131736_ '())))) + (cons _L78355_ '())))) (declare (not safe)) - (cons __tmp137111 __tmp137110)))) + (cons __tmp79162 __tmp79161)))) (declare (not safe)) - (cons __tmp137109 '())))) + (cons __tmp79160 '())))) (declare (not safe)) - (cons _L131738_ __tmp137108)))) + (cons _L78357_ __tmp79159)))) (declare (not safe)) - (cons __tmp137112 __tmp137107)))) + (cons __tmp79163 __tmp79158)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137106 '())))) + (cons __tmp79157 '())))) (declare (not safe)) - (cons __tmp137113 __tmp137105)))) + (cons __tmp79164 __tmp79156)))) (declare (not safe)) - (cons __tmp137116 __tmp137104))) - (__tmp137101 - (let ((__tmp137102 + (cons __tmp79167 __tmp79155))) + (__tmp79152 + (let ((__tmp79153 (let () (declare (not safe)) - (cons _E131655_ '())))) + (cons _E78274_ '())))) (declare (not safe)) - (cons _K131663_ __tmp137102)))) + (cons _K78282_ __tmp79153)))) (declare (not safe)) - (cons __tmp137103 __tmp137101)))) + (cons __tmp79154 __tmp79152)))) (declare (not safe)) - (cons __tmp137117 __tmp137100)))) - _hd131702131730_ - _hd131699131720_) - (_g131694131709_ _g131695131713_)))) + (cons __tmp79168 __tmp79151)))) + _hd7832178349_ + _hd7831878339_) + (_g7831378328_ _g7831478332_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g131694131709_ - _g131695131713_)))) - (_g131694131709_ _g131695131713_))))) - (_g131693131760_ (list _tgt131662_ _hd131660_))) - (let* ((_g131764131779_ - (lambda (_g131765131775_) + (_g7831378328_ + _g7831478332_)))) + (_g7831378328_ _g7831478332_))))) + (_g7831278379_ (list _tgt78281_ _hd78279_))) + (let* ((_g7838378398_ + (lambda (_g7838478394_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g131765131775_))) - (_g131763131823_ - (lambda (_g131765131783_) - (if (gx#stx-pair? _g131765131783_) - (let ((_e131770131786_ - (gx#syntax-e _g131765131783_))) - (let ((_hd131769131790_ + _g7838478394_))) + (_g7838278442_ + (lambda (_g7838478402_) + (if (gx#stx-pair? _g7838478402_) + (let ((_e7838978405_ + (gx#syntax-e _g7838478402_))) + (let ((_hd7838878409_ (let () (declare (not safe)) - (##car _e131770131786_))) - (_tl131768131793_ + (##car _e7838978405_))) + (_tl7838778412_ (let () (declare (not safe)) - (##cdr _e131770131786_)))) - (if (gx#stx-pair? - _tl131768131793_) - (let ((_e131773131796_ + (##cdr _e7838978405_)))) + (if (gx#stx-pair? _tl7838778412_) + (let ((_e7839278415_ (gx#syntax-e - _tl131768131793_))) - (let ((_hd131772131800_ + _tl7838778412_))) + (let ((_hd7839178419_ (let () (declare (not safe)) - (##car _e131773131796_))) - (_tl131771131803_ + (##car _e7839278415_))) + (_tl7839078422_ (let () (declare (not safe)) - (##cdr _e131773131796_)))) + (##cdr _e7839278415_)))) (if (gx#stx-null? - _tl131771131803_) - ((lambda (_L131806_ + _tl7839078422_) + ((lambda (_L78425_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L131808_) + _L78427_) (let () - (let ((__tmp137099 (gx#datum->syntax '#f 'let)) - (__tmp137094 - (let ((__tmp137096 - (let ((__tmp137097 - (let ((__tmp137098 + (let ((__tmp79150 (gx#datum->syntax '#f 'let)) + (__tmp79145 + (let ((__tmp79147 + (let ((__tmp79148 + (let ((__tmp79149 (let () (declare (not safe)) - (cons _L131808_ '())))) + (cons _L78427_ '())))) (declare (not safe)) - (cons _L131806_ __tmp137098)))) + (cons _L78425_ __tmp79149)))) (declare (not safe)) - (cons __tmp137097 '()))) - (__tmp137095 + (cons __tmp79148 '()))) + (__tmp79146 (let () (declare (not safe)) - (cons _K131663_ '())))) + (cons _K78282_ '())))) (declare (not safe)) - (cons __tmp137096 __tmp137095)))) + (cons __tmp79147 __tmp79146)))) (declare (not safe)) - (cons __tmp137099 __tmp137094)))) - _hd131772131800_ - _hd131769131790_) - (_g131764131779_ _g131765131783_)))) + (cons __tmp79150 __tmp79145)))) + _hd7839178419_ + _hd7838878409_) + (_g7838378398_ _g7838478402_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g131764131779_ - _g131765131783_)))) - (_g131764131779_ _g131765131783_))))) - (_g131763131823_ (list _tgt131662_ _hd131660_))))) - (if (gx#stx-null? _hd131660_) - (let* ((_g131827131835_ - (lambda (_g131828131831_) + (_g7838378398_ + _g7838478402_)))) + (_g7838378398_ _g7838478402_))))) + (_g7838278442_ (list _tgt78281_ _hd78279_))))) + (if (gx#stx-null? _hd78279_) + (let* ((_g7844678454_ + (lambda (_g7844778450_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g131828131831_))) - (_g131826131853_ - (lambda (_g131828131839_) - ((lambda (_L131842_) + _g7844778450_))) + (_g7844578472_ + (lambda (_g7844778458_) + ((lambda (_L78461_) (let () - (let ((__tmp137093 + (let ((__tmp79144 (gx#datum->syntax '#f 'if)) - (__tmp137087 - (let ((__tmp137090 - (let ((__tmp137092 + (__tmp79138 + (let ((__tmp79141 + (let ((__tmp79143 (gx#datum->syntax '#f 'stx-null?)) - (__tmp137091 + (__tmp79142 (let () (declare (not safe)) - (cons _L131842_ + (cons _L78461_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp137092 __tmp137091))) + (cons __tmp79143 __tmp79142))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp137088 - (let ((__tmp137089 + (__tmp79139 + (let ((__tmp79140 (let () (declare (not safe)) - (cons _E131655_ + (cons _E78274_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _K131663_ __tmp137089)))) + (cons _K78282_ __tmp79140)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137090 - __tmp137088)))) + (cons __tmp79141 __tmp79139)))) (declare (not safe)) - (cons __tmp137093 __tmp137087)))) - _g131828131839_)))) - (_g131826131853_ _tgt131662_)) - (if (gx#stx-datum? _hd131660_) - (let* ((_g131857131876_ - (lambda (_g131858131872_) + (cons __tmp79144 __tmp79138)))) + _g7844778458_)))) + (_g7844578472_ _tgt78281_)) + (if (gx#stx-datum? _hd78279_) + (let* ((_g7847678495_ + (lambda (_g7847778491_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g131858131872_))) - (_g131856131934_ - (lambda (_g131858131880_) - (if (gx#stx-pair? _g131858131880_) - (let ((_e131864131883_ - (gx#syntax-e _g131858131880_))) - (let ((_hd131863131887_ + _g7847778491_))) + (_g7847578553_ + (lambda (_g7847778499_) + (if (gx#stx-pair? _g7847778499_) + (let ((_e7848378502_ + (gx#syntax-e _g7847778499_))) + (let ((_hd7848278506_ (let () (declare (not safe)) - (##car _e131864131883_))) - (_tl131862131890_ + (##car _e7848378502_))) + (_tl7848178509_ (let () (declare (not safe)) - (##cdr _e131864131883_)))) - (if (gx#stx-pair? - _tl131862131890_) - (let ((_e131867131893_ + (##cdr _e7848378502_)))) + (if (gx#stx-pair? _tl7848178509_) + (let ((_e7848678512_ (gx#syntax-e - _tl131862131890_))) - (let ((_hd131866131897_ + _tl7848178509_))) + (let ((_hd7848578516_ (let () (declare (not safe)) - (##car _e131867131893_))) - (_tl131865131900_ + (##car _e7848678512_))) + (_tl7848478519_ (let () (declare (not safe)) - (##cdr _e131867131893_)))) + (##cdr _e7848678512_)))) (if (gx#stx-pair? - _tl131865131900_) - (let ((_e131870131903_ + _tl7848478519_) + (let ((_e7848978522_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl131865131900_))) - (let ((_hd131869131907_ - (let () - (declare (not safe)) - (##car _e131870131903_))) - (_tl131868131910_ - (let () - (declare (not safe)) - (##cdr _e131870131903_)))) - (if (gx#stx-null? _tl131868131910_) - ((lambda (_L131913_ _L131915_ _L131916_) + _tl7848478519_))) + (let ((_hd7848878526_ + (let () (declare (not safe)) (##car _e7848978522_))) + (_tl7848778529_ + (let () (declare (not safe)) (##cdr _e7848978522_)))) + (if (gx#stx-null? _tl7848778529_) + ((lambda (_L78532_ _L78534_ _L78535_) (let () - (let ((__tmp137086 (gx#datum->syntax '#f 'if)) - (__tmp137074 - (let ((__tmp137077 - (let ((__tmp137078 - (let ((__tmp137083 - (let ((__tmp137085 + (let ((__tmp79137 (gx#datum->syntax '#f 'if)) + (__tmp79125 + (let ((__tmp79128 + (let ((__tmp79129 + (let ((__tmp79134 + (let ((__tmp79136 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'stx-e)) - (__tmp137084 - (let () (declare (not safe)) (cons _L131916_ '())))) + (__tmp79135 + (let () (declare (not safe)) (cons _L78535_ '())))) (declare (not safe)) - (cons __tmp137085 __tmp137084))) - (__tmp137079 - (let ((__tmp137080 - (let ((__tmp137082 (gx#datum->syntax '#f 'quote)) - (__tmp137081 + (cons __tmp79136 __tmp79135))) + (__tmp79130 + (let ((__tmp79131 + (let ((__tmp79133 (gx#datum->syntax '#f 'quote)) + (__tmp79132 (let () (declare (not safe)) - (cons _L131915_ '())))) + (cons _L78534_ '())))) (declare (not safe)) - (cons __tmp137082 __tmp137081)))) + (cons __tmp79133 __tmp79132)))) (declare (not safe)) - (cons __tmp137080 '())))) + (cons __tmp79131 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137083 - __tmp137079)))) + (cons __tmp79134 + __tmp79130)))) (declare (not safe)) - (cons _L131913_ __tmp137078))) - (__tmp137075 - (let ((__tmp137076 + (cons _L78532_ __tmp79129))) + (__tmp79126 + (let ((__tmp79127 (let () (declare (not safe)) - (cons _E131655_ '())))) + (cons _E78274_ '())))) (declare (not safe)) - (cons _K131663_ __tmp137076)))) + (cons _K78282_ __tmp79127)))) (declare (not safe)) - (cons __tmp137077 __tmp137075)))) + (cons __tmp79128 __tmp79126)))) (declare (not safe)) - (cons __tmp137086 __tmp137074)))) - _hd131869131907_ - _hd131866131897_ - _hd131863131887_) - (_g131857131876_ _g131858131880_)))) - (_g131857131876_ _g131858131880_)))) + (cons __tmp79137 __tmp79125)))) + _hd7848878526_ + _hd7848578516_ + _hd7848278506_) + (_g7847678495_ _g7847778499_)))) + (_g7847678495_ _g7847778499_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g131857131876_ - _g131858131880_)))) - (_g131857131876_ _g131858131880_))))) - (_g131856131934_ - (list _tgt131662_ - _hd131660_ - (let ((_e131938_ (gx#stx-e _hd131660_))) - (if (or (keyword? _e131938_) + (_g7847678495_ + _g7847778499_)))) + (_g7847678495_ _g7847778499_))))) + (_g7847578553_ + (list _tgt78281_ + _hd78279_ + (let ((_e78557_ (gx#stx-e _hd78279_))) + (if (or (keyword? _e78557_) (let () (declare (not safe)) - (immediate? _e131938_))) + (immediate? _e78557_))) (gx#datum->syntax '#f 'eq?) (if (let () (declare (not safe)) - (number? _e131938_)) + (number? _e78557_)) (gx#datum->syntax '#f 'eqv?) (gx#datum->syntax '#f @@ -1025,511 +1013,502 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case head" - _stx131105_ - _where131650_ - _hd131660_))))))) + _stx77724_ + _where78269_ + _hd78279_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx136938136939_) - (let ((_e131672131952_ + ___stx7898978990_) + (let ((_e7829178571_ (gx#syntax-e - ___stx136938136939_))) - (let ((_tl131670131959_ + ___stx7898978990_))) + (let ((_tl7828978578_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e131672131952_))) - (_hd131671131956_ - (let () (declare (not safe)) (##car _e131672131952_)))) - (___kont136941136942_ _tl131670131959_ _hd131671131956_))) + (##cdr _e7829178571_))) + (_hd7829078575_ + (let () (declare (not safe)) (##car _e7829178571_)))) + (___kont7899278993_ _tl7828978578_ _hd7829078575_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont136943136944_))))))) - (_recur131657_ - _hd131652_ - _tgt131257_ - (let ((__tmp137122 + (___kont7899478995_))))))) + (_recur78276_ + _hd78271_ + _tgt77876_ + (let ((__tmp79173 (gx#datum->syntax '#f 'if)) - (__tmp137119 - (let ((__tmp137120 - (let ((__tmp137121 + (__tmp79170 + (let ((__tmp79171 + (let ((__tmp79172 (let () (declare (not safe)) - (cons _E131655_ + (cons _E78274_ '())))) (declare (not safe)) - (cons _body131654_ - __tmp137121)))) + (cons _body78273_ + __tmp79172)))) (declare (not safe)) - (cons _fender131653_ - __tmp137120)))) + (cons _fender78272_ __tmp79171)))) (declare (not safe)) - (cons __tmp137122 __tmp137119)))))) - (_generate-clauses131265_ - (lambda (_clauses131388_) - (let _lp131391_ ((_rest131394_ _clauses131388_) - (_E131396_ (gx#genident 'E)) - (_r131397_ '())) - (let* ((___stx136974136975_ _rest131394_) - (_g131400131412_ + (cons __tmp79173 __tmp79170)))))) + (_generate-clauses77884_ + (lambda (_clauses78007_) + (let _lp78010_ ((_rest78013_ _clauses78007_) + (_E78015_ (gx#genident 'E)) + (_r78016_ '())) + (let* ((___stx7902579026_ _rest78013_) + (_g7801978031_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx136974136975_)))) - (let ((___kont136977136978_ - (lambda (_L131477_ _L131479_) - (let* ((___stx136954136955_ - _L131479_) - (_g131491131502_ + ___stx7902579026_)))) + (let ((___kont7902879029_ + (lambda (_L78096_ _L78098_) + (let* ((___stx7900579006_ + _L78098_) + (_g7811078121_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx136954136955_)))) - (let ((___kont136957136958_ - (lambda (_L131631_) + ___stx7900579006_)))) + (let ((___kont7900879009_ + (lambda (_L78250_) (if (gx#stx-null? - _L131477_) + _L78096_) (if (and (gx#stx-list? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L131631_) - (let ((__tmp137131 (gx#stx-null? _L131631_))) + _L78250_) + (let ((__tmp79182 (gx#stx-null? _L78250_))) (declare (not safe)) - (not __tmp137131))) - (let ((__tmp137123 - (let ((__tmp137124 - (let ((__tmp137125 + (not __tmp79182))) + (let ((__tmp79174 + (let ((__tmp79175 + (let ((__tmp79176 (gx#stx-wrap-source - (let ((__tmp137130 + (let ((__tmp79181 (gx#datum->syntax '#f 'lambda)) - (__tmp137126 - (let ((__tmp137127 - (let ((__tmp137128 + (__tmp79177 + (let ((__tmp79178 + (let ((__tmp79179 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137129 (gx#datum->syntax '#f 'begin))) + (let ((__tmp79180 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp137129 _L131631_)))) + (cons __tmp79180 _L78250_)))) (declare (not safe)) - (cons __tmp137128 '())))) + (cons __tmp79179 '())))) (declare (not safe)) - (cons '() __tmp137127)))) + (cons '() __tmp79178)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137130 __tmp137126)) - (gx#stx-source _L131479_)))) + (cons __tmp79181 __tmp79177)) + (gx#stx-source _L78098_)))) (declare (not safe)) - (cons __tmp137125 '())))) + (cons __tmp79176 '())))) (declare (not safe)) - (cons _E131396_ __tmp137124)))) + (cons _E78015_ __tmp79175)))) (declare (not safe)) - (cons __tmp137123 _r131397_)) + (cons __tmp79174 _r78016_)) (gx#raise-syntax-error '#f '"Bad syntax; invalid else body" - _stx131105_ - _L131479_)) + _stx77724_ + _L78098_)) (gx#raise-syntax-error '#f '"Bad syntax; misplaced else" - _stx131105_ - _L131479_)))) + _stx77724_ + _L78098_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont136959136960_ + (___kont7901079011_ (lambda () - (let* ((_g131513131521_ - (lambda (_g131514131517_) + (let* ((_g7813278140_ + (lambda (_g7813378136_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g131514131517_))) - (_g131512131610_ - (lambda (_g131514131525_) - ((lambda (_L131528_) + _g7813378136_))) + (_g7813178229_ + (lambda (_g7813378144_) + ((lambda (_L78147_) (let () - (let* ((_g131544131552_ - (lambda (_g131545131548_) + (let* ((_g7816378171_ + (lambda (_g7816478167_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g131545131548_))) - (_g131543131606_ - (lambda (_g131545131556_) - ((lambda (_L131559_) + _g7816478167_))) + (_g7816278225_ + (lambda (_g7816478175_) + ((lambda (_L78178_) (let () - (let* ((_g131572131580_ - (lambda (_g131573131576_) + (let* ((_g7819178199_ + (lambda (_g7819278195_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g131573131576_))) - (_g131571131602_ - (lambda (_g131573131584_) - ((lambda (_L131587_) + _g7819278195_))) + (_g7819078221_ + (lambda (_g7819278203_) + ((lambda (_L78206_) (let () (let () - (_lp131391_ - _L131477_ - _L131528_ - (let ((__tmp137132 + (_lp78010_ + _L78096_ + _L78147_ + (let ((__tmp79183 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137133 + (let ((__tmp79184 (let () (declare (not safe)) - (cons _L131587_ '())))) + (cons _L78206_ '())))) (declare (not safe)) - (cons _E131396_ __tmp137133)))) + (cons _E78015_ __tmp79184)))) (declare (not safe)) - (cons __tmp137132 _r131397_)))))) - _g131573131584_)))) + (cons __tmp79183 _r78016_)))))) + _g7819278203_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g131571131602_ + (_g7819078221_ (gx#stx-wrap-source - (let ((__tmp137136 + (let ((__tmp79187 (gx#datum->syntax '#f 'lambda)) - (__tmp137134 - (let ((__tmp137135 + (__tmp79185 + (let ((__tmp79186 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L131559_ '())))) + (cons _L78178_ '())))) (declare (not safe)) - (cons '() __tmp137135)))) + (cons '() __tmp79186)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137136 - __tmp137134)) - (gx#stx-source - _L131479_)))))) - _g131545131556_)))) - (_g131543131606_ - (_generate-clause131262_ - _L131479_ + (cons __tmp79187 + __tmp79185)) + (gx#stx-source _L78098_)))))) + _g7816478175_)))) + (_g7816278225_ + (_generate-clause77881_ + _L78098_ (let () (declare (not safe)) - (cons _L131528_ '()))))))) - _g131514131525_)))) - (_g131512131610_ (gx#genident 'E)))))) + (cons _L78147_ '()))))))) + _g7813378144_)))) + (_g7813178229_ (gx#genident 'E)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx136954136955_) - (let ((_e131496131621_ + ___stx7900579006_) + (let ((_e7811578240_ (gx#syntax-e - ___stx136954136955_))) - (let ((_tl131494131628_ + ___stx7900579006_))) + (let ((_tl7811378247_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e131496131621_))) - (_hd131495131625_ - (let () (declare (not safe)) (##car _e131496131621_)))) - (if (gx#identifier? _hd131495131625_) - (if (gx#free-identifier=? - |gx[1]#_g137137_| - _hd131495131625_) - (___kont136957136958_ _tl131494131628_) - (___kont136959136960_)) - (___kont136959136960_)))) + (##cdr _e7811578240_))) + (_hd7811478244_ + (let () (declare (not safe)) (##car _e7811578240_)))) + (if (gx#identifier? _hd7811478244_) + (if (gx#free-identifier=? |gx[1]#_g79188_| _hd7811478244_) + (___kont7900879009_ _tl7811378247_) + (___kont7901079011_)) + (___kont7901079011_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont136959136960_)))))) - (___kont136979136980_ + (___kont7901079011_)))))) + (___kont7903079031_ (lambda () - (let* ((_g131423131431_ - (lambda (_g131424131427_) + (let* ((_g7804278050_ + (lambda (_g7804378046_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g131424131427_))) - (_g131422131456_ - (lambda (_g131424131435_) - ((lambda (_L131438_) + _g7804378046_))) + (_g7804178075_ + (lambda (_g7804378054_) + ((lambda (_L78057_) (let () - (let ((__tmp137138 + (let ((__tmp79189 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137139 - (let ((__tmp137140 + (let ((__tmp79190 + (let ((__tmp79191 (gx#stx-wrap-source - (let ((__tmp137148 + (let ((__tmp79199 (gx#datum->syntax '#f 'lambda)) - (__tmp137141 - (let ((__tmp137142 - (let ((__tmp137143 - (let ((__tmp137147 + (__tmp79192 + (let ((__tmp79193 + (let ((__tmp79194 + (let ((__tmp79198 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'raise-syntax-error)) - (__tmp137144 - (let ((__tmp137145 - (let ((__tmp137146 + (__tmp79195 + (let ((__tmp79196 + (let ((__tmp79197 (let () (declare (not safe)) - (cons _L131438_ '())))) + (cons _L78057_ '())))) (declare (not safe)) (cons '"Bad syntax; invalid syntax-case clause" - __tmp137146)))) + __tmp79197)))) (declare (not safe)) - (cons '#f __tmp137145)))) + (cons '#f __tmp79196)))) (declare (not safe)) - (cons __tmp137147 __tmp137144)))) + (cons __tmp79198 __tmp79195)))) (declare (not safe)) - (cons __tmp137143 '())))) + (cons __tmp79194 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp137142)))) + (cons '() __tmp79193)))) (declare (not safe)) - (cons __tmp137148 __tmp137141)) - (gx#stx-source _stx131105_)))) + (cons __tmp79199 __tmp79192)) + (gx#stx-source _stx77724_)))) (declare (not safe)) - (cons __tmp137140 '())))) + (cons __tmp79191 '())))) (declare (not safe)) - (cons _E131396_ __tmp137139)))) + (cons _E78015_ __tmp79190)))) (declare (not safe)) - (cons __tmp137138 _r131397_)))) - _g131424131435_)))) + (cons __tmp79189 _r78016_)))) + _g7804378054_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g131422131456_ - _tgt131257_))))) - (if (gx#stx-pair? ___stx136974136975_) - (let ((_e131406131467_ + (_g7804178075_ _tgt77876_))))) + (if (gx#stx-pair? ___stx7902579026_) + (let ((_e7802578086_ (gx#syntax-e - ___stx136974136975_))) - (let ((_tl131404131474_ + ___stx7902579026_))) + (let ((_tl7802378093_ (let () (declare (not safe)) - (##cdr _e131406131467_))) - (_hd131405131471_ + (##cdr _e7802578086_))) + (_hd7802478090_ (let () (declare (not safe)) - (##car _e131406131467_)))) - (___kont136977136978_ - _tl131404131474_ - _hd131405131471_))) - (___kont136979136980_)))))))) - (let* ((_bind131267_ - (_generate-clauses131265_ _clauses131260_)) - (_g131270131287_ - (lambda (_g131271131283_) + (##car _e7802578086_)))) + (___kont7902879029_ + _tl7802378093_ + _hd7802478090_))) + (___kont7903079031_)))))))) + (let* ((_bind77886_ + (_generate-clauses77884_ _clauses77879_)) + (_g7788977906_ + (lambda (_g7789077902_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g131271131283_))) - (_g131269131384_ - (lambda (_g131271131291_) - (if (gx#stx-pair/null? _g131271131291_) - (let ((_g137149_ + _g7789077902_))) + (_g7788878003_ + (lambda (_g7789077910_) + (if (gx#stx-pair/null? _g7789077910_) + (let ((_g79200_ (gx#syntax-split-splice - _g131271131291_ + _g7789077910_ '0))) (begin - (let ((_g137150_ + (let ((_g79201_ (let () (declare (not safe)) - (if (##values? _g137149_) - (##vector-length - _g137149_) + (if (##values? _g79200_) + (##vector-length _g79200_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137150_ 2))) + (##fx= _g79201_ 2))) (error "Context expects 2 values" - _g137150_))) - (let ((_target131273131294_ + _g79201_))) + (let ((_target7789277913_ (let () (declare (not safe)) - (##vector-ref _g137149_ 0))) - (_tl131275131297_ + (##vector-ref _g79200_ 0))) + (_tl7789477916_ (let () (declare (not safe)) - (##vector-ref _g137149_ 1)))) - (if (gx#stx-null? _tl131275131297_) - (letrec ((_loop131276131300_ - (lambda (_hd131274131304_ + (##vector-ref _g79200_ 1)))) + (if (gx#stx-null? _tl7789477916_) + (letrec ((_loop7789577919_ + (lambda (_hd7789377923_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind-try131280131307_) - (if (gx#stx-pair? _hd131274131304_) - (let ((_e131277131310_ (gx#syntax-e _hd131274131304_))) - (let ((_lp-hd131278131314_ + _bind-try7789977926_) + (if (gx#stx-pair? _hd7789377923_) + (let ((_e7789677929_ (gx#syntax-e _hd7789377923_))) + (let ((_lp-hd7789777933_ (let () (declare (not safe)) - (##car _e131277131310_))) - (_lp-tl131279131317_ + (##car _e7789677929_))) + (_lp-tl7789877936_ (let () (declare (not safe)) - (##cdr _e131277131310_)))) - (_loop131276131300_ - _lp-tl131279131317_ + (##cdr _e7789677929_)))) + (_loop7789577919_ + _lp-tl7789877936_ (let () (declare (not safe)) - (cons _lp-hd131278131314_ - _bind-try131280131307_))))) - (let ((_bind-try131281131320_ - (reverse _bind-try131280131307_))) - ((lambda (_L131324_) + (cons _lp-hd7789777933_ _bind-try7789977926_))))) + (let ((_bind-try7790077939_ + (reverse _bind-try7789977926_))) + ((lambda (_L77943_) (let () - (let* ((_g131342131350_ - (lambda (_g131343131346_) + (let* ((_g7796177969_ + (lambda (_g7796277965_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g131343131346_))) - (_g131341131380_ - (lambda (_g131343131354_) - ((lambda (_L131357_) + _g7796277965_))) + (_g7796077999_ + (lambda (_g7796277973_) + ((lambda (_L77976_) (let () (let () - (let ((__tmp137156 + (let ((__tmp79207 (gx#datum->syntax '#f 'let*)) - (__tmp137151 - (let ((__tmp137154 - (let ((__tmp137155 + (__tmp79202 + (let ((__tmp79205 + (let ((__tmp79206 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g131371131374_ _g131372131377_) + (lambda (_g7799077993_ _g7799177996_) (let () (declare (not safe)) - (cons _g131371131374_ _g131372131377_))))) + (cons _g7799077993_ _g7799177996_))))) (declare (not safe)) - (foldr1 __tmp137155 '() _L131324_))) - (__tmp137152 - (let ((__tmp137153 - (let () (declare (not safe)) (cons _L131357_ '())))) + (foldr1 __tmp79206 '() _L77943_))) + (__tmp79203 + (let ((__tmp79204 + (let () (declare (not safe)) (cons _L77976_ '())))) (declare (not safe)) - (cons __tmp137153 '())))) + (cons __tmp79204 '())))) (declare (not safe)) - (cons __tmp137154 __tmp137152)))) + (cons __tmp79205 __tmp79203)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137156 - __tmp137151))))) - _g131343131354_)))) - (_g131341131380_ + (cons __tmp79207 + __tmp79202))))) + _g7796277973_)))) + (_g7796077999_ (car (let () (declare (not safe)) - (last _bind131267_))))))) - _bind-try131281131320_)))))) + (last _bind77886_))))))) + _bind-try7790077939_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop131276131300_ - _target131273131294_ + (_loop7789577919_ + _target7789277913_ '())) - (_g131270131287_ - _g131271131291_))))) - (_g131270131287_ _g131271131291_))))) - (_g131269131384_ _bind131267_)))))) - (let* ((_g131111131130_ - (lambda (_g131112131126_) + (_g7788977906_ _g7789077910_))))) + (_g7788977906_ _g7789077910_))))) + (_g7788878003_ _bind77886_)))))) + (let* ((_g7773077749_ + (lambda (_g7773177745_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g131112131126_))) - (_g131110131253_ - (lambda (_g131112131134_) - (if (gx#stx-pair? _g131112131134_) - (let ((_e131118131137_ (gx#syntax-e _g131112131134_))) - (let ((_hd131117131141_ + _g7773177745_))) + (_g7772977872_ + (lambda (_g7773177753_) + (if (gx#stx-pair? _g7773177753_) + (let ((_e7773777756_ (gx#syntax-e _g7773177753_))) + (let ((_hd7773677760_ (let () (declare (not safe)) - (##car _e131118131137_))) - (_tl131116131144_ + (##car _e7773777756_))) + (_tl7773577763_ (let () (declare (not safe)) - (##cdr _e131118131137_)))) - (if (gx#stx-pair? _tl131116131144_) - (let ((_e131121131147_ - (gx#syntax-e _tl131116131144_))) - (let ((_hd131120131151_ + (##cdr _e7773777756_)))) + (if (gx#stx-pair? _tl7773577763_) + (let ((_e7774077766_ + (gx#syntax-e _tl7773577763_))) + (let ((_hd7773977770_ (let () (declare (not safe)) - (##car _e131121131147_))) - (_tl131119131154_ + (##car _e7774077766_))) + (_tl7773877773_ (let () (declare (not safe)) - (##cdr _e131121131147_)))) - (if (gx#stx-pair? _tl131119131154_) - (let ((_e131124131157_ - (gx#syntax-e _tl131119131154_))) - (let ((_hd131123131161_ + (##cdr _e7774077766_)))) + (if (gx#stx-pair? _tl7773877773_) + (let ((_e7774377776_ + (gx#syntax-e _tl7773877773_))) + (let ((_hd7774277780_ (let () (declare (not safe)) - (##car _e131124131157_))) - (_tl131122131164_ + (##car _e7774377776_))) + (_tl7774177783_ (let () (declare (not safe)) - (##cdr _e131124131157_)))) - ((lambda (_L131167_ - _L131169_ - _L131170_) + (##cdr _e7774377776_)))) + ((lambda (_L77786_ + _L77788_ + _L77789_) (if (and (gx#identifier-list? - _L131169_) + _L77788_) (gx#stx-list? - _L131167_)) - (let* ((_g131188131196_ - (lambda (_g131189131192_) + _L77786_)) + (let* ((_g7780777815_ + (lambda (_g7780877811_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g131189131192_))) - (_g131187131249_ - (lambda (_g131189131200_) - ((lambda (_L131203_) + _g7780877811_))) + (_g7780677868_ + (lambda (_g7780877819_) + ((lambda (_L77822_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g131215131223_ - (lambda (_g131216131219_) + (let* ((_g7783477842_ + (lambda (_g7783577838_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g131216131219_))) - (_g131214131245_ - (lambda (_g131216131227_) - ((lambda (_L131230_) + _g7783577838_))) + (_g7783377864_ + (lambda (_g7783577846_) + ((lambda (_L77849_) (let () (let () - (let ((__tmp137162 + (let ((__tmp79213 (gx#datum->syntax '#f 'let)) - (__tmp137157 - (let ((__tmp137159 - (let ((__tmp137160 - (let ((__tmp137161 + (__tmp79208 + (let ((__tmp79210 + (let ((__tmp79211 + (let ((__tmp79212 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L131170_ '())))) + (cons _L77789_ '())))) (declare (not safe)) - (cons _L131203_ __tmp137161)))) + (cons _L77822_ __tmp79212)))) (declare (not safe)) - (cons __tmp137160 '()))) - (__tmp137158 - (let () (declare (not safe)) (cons _L131230_ '())))) + (cons __tmp79211 '()))) + (__tmp79209 (let () (declare (not safe)) (cons _L77849_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137159 - __tmp137158)))) + (cons __tmp79210 + __tmp79209)))) (declare (not safe)) - (cons __tmp137162 __tmp137157))))) - _g131216131227_)))) - (_g131214131245_ - (_generate131108_ - _L131203_ - (gx#syntax->list _L131169_) - _L131167_))))) - _g131189131200_)))) + (cons __tmp79213 __tmp79208))))) + _g7783577846_)))) + (_g7783377864_ + (_generate77727_ + _L77822_ + (gx#syntax->list _L77788_) + _L77786_))))) + _g7780877819_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g131187131249_ + (_g7780677868_ (gx#genident 'e))) - (_g131111131130_ - _g131112131134_))) - _tl131122131164_ - _hd131123131161_ - _hd131120131151_))) - (_g131111131130_ _g131112131134_)))) - (_g131111131130_ _g131112131134_)))) - (_g131111131130_ _g131112131134_))))) - (_g131110131253_ _stx131105_))))))) + (_g7773077749_ + _g7773177753_))) + _tl7774177783_ + _hd7774277780_ + _hd7773977770_))) + (_g7773077749_ _g7773177753_)))) + (_g7773077749_ _g7773177753_)))) + (_g7773077749_ _g7773177753_))))) + (_g7772977872_ _stx77724_))))))) diff --git a/src/bootstrap/gerbil/expander/compile__0.scm b/src/bootstrap/gerbil/expander/compile__0.scm index a8b2a4d09..2ebbcaf53 100644 --- a/src/bootstrap/gerbil/expander/compile__0.scm +++ b/src/bootstrap/gerbil/expander/compile__0.scm @@ -1,903 +1,862 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/compile::timestamp 1708102803) + (define gerbil/expander/compile::timestamp 1708370114) (begin (declare (not safe)) (define gx#core-compile-top-syntax - (lambda (_stx170009_) - (let* ((_e170010170017_ _stx170009_) - (_E170012170021_ + (lambda (_stx93788_) + (let* ((_e9378993796_ _stx93788_) + (_E9379193800_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e170010170017_))) - (_E170011170035_ - (lambda () - (if (gx#stx-pair? _e170010170017_) - (let ((_e170013170025_ (gx#syntax-e _e170010170017_))) - (let ((_hd170014170028_ (##car _e170013170025_)) - (_tl170015170030_ (##cdr _e170013170025_))) - (let ((_form170033_ _hd170014170028_)) + _e9378993796_))) + (_E9379093814_ + (lambda () + (if (gx#stx-pair? _e9378993796_) + (let ((_e9379293804_ (gx#syntax-e _e9378993796_))) + (let ((_hd9379393807_ (##car _e9379293804_)) + (_tl9379493809_ (##cdr _e9379293804_))) + (let ((_form93812_ _hd9379393807_)) (if '#t - (let* ((__self174606 - (gx#syntax-local-e__0 _form170033_)) - (__method174607 + (let* ((__self93817 + (gx#syntax-local-e__0 _form93812_)) + (__method93818 (method-ref - __self174606 + __self93817 'compile-top-syntax))) - (if __method174607 - (__method174607 __self174606 _stx170009_) + (if __method93818 + (__method93818 __self93817 _stx93788_) (error '"Missing method" - __self174606 + __self93817 'compile-top-syntax))) - (_E170012170021_))))) - (_E170012170021_))))) - (_E170011170035_)))) + (_E9379193800_))))) + (_E9379193800_))))) + (_E9379093814_)))) (define gx#core-expander::compile-top-syntax - (lambda (_self169969_ _stx169970_) - (let* ((_self169971169979_ _self169969_) - (_E169973169983_ - (lambda () (error '"No clause matching" _self169971169979_))) - (_K169974169995_ - (lambda (_K169986_) - (let ((_$e169988_ (gx#stx-source _stx169970_))) - (if _$e169988_ - ((lambda (_g169990169992_) + (lambda (_self93748_ _stx93749_) + (let* ((_self9375093758_ _self93748_) + (_E9375293762_ + (lambda () (error '"No clause matching" _self9375093758_))) + (_K9375393774_ + (lambda (_K93765_) + (let ((_$e93767_ (gx#stx-source _stx93749_))) + (if _$e93767_ + ((lambda (_g9376993771_) (gx#stx-wrap-source - (_K169986_ _stx169970_) - _g169990169992_)) - _$e169988_) - (_K169986_ _stx169970_)))))) - (if (##structure-instance-of? - _self169971169979_ - 'gx#core-expander::t) - (let* ((_e169975169998_ + (_K93765_ _stx93749_) + _g9376993771_)) + _$e93767_) + (_K93765_ _stx93749_)))))) + (if (##structure-instance-of? _self9375093758_ 'gx#core-expander::t) + (let* ((_e9375493777_ (##unchecked-structure-ref - _self169971169979_ + _self9375093758_ '1 gx#expander::t '#f)) - (_e169976170001_ + (_e9375593780_ (##unchecked-structure-ref - _self169971169979_ + _self9375093758_ '2 gx#core-expander::t '#f)) - (_e169977170004_ + (_e9375693783_ (##unchecked-structure-ref - _self169971169979_ + _self9375093758_ '3 gx#core-expander::t '#f)) - (_K170007_ _e169977170004_)) - (_K169974169995_ _K170007_)) - (_E169973169983_))))) - (bind-method! + (_K93786_ _e9375693783_)) + (_K9375393774_ _K93786_)) + (_E9375293762_))))) + (bind-method!__% gx#core-expander::t 'compile-top-syntax gx#core-expander::compile-top-syntax '#f) (define gx#core-compile-top-error - (lambda (_stx169843_) - (gx#raise-syntax-error 'compile '"Cannot compile form" _stx169843_))) + (lambda (_stx93622_) + (gx#raise-syntax-error 'compile '"Cannot compile form" _stx93622_))) (define gx#core-compile-top-begin% - (lambda (_stx169813_) - (let* ((_e169814169821_ _stx169813_) - (_E169816169825_ + (lambda (_stx93592_) + (let* ((_e9359393600_ _stx93592_) + (_E9359593604_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e169814169821_))) - (_E169815169839_ - (lambda () - (if (gx#stx-pair? _e169814169821_) - (let ((_e169817169829_ (gx#syntax-e _e169814169821_))) - (let ((_hd169818169832_ (##car _e169817169829_)) - (_tl169819169834_ (##cdr _e169817169829_))) - (let ((_body169837_ _tl169819169834_)) + _e9359393600_))) + (_E9359493618_ + (lambda () + (if (gx#stx-pair? _e9359393600_) + (let ((_e9359693608_ (gx#syntax-e _e9359393600_))) + (let ((_hd9359793611_ (##car _e9359693608_)) + (_tl9359893613_ (##cdr _e9359693608_))) + (let ((_body93616_ _tl9359893613_)) (if '#t (cons '%#begin (gx#stx-map1 gx#core-compile-top-syntax - _body169837_)) - (_E169816169825_))))) - (_E169816169825_))))) - (_E169815169839_)))) + _body93616_)) + (_E9359593604_))))) + (_E9359593604_))))) + (_E9359493618_)))) (define gx#core-compile-top-begin-syntax% - (lambda (_stx169782_) - (let* ((_e169783169790_ _stx169782_) - (_E169785169794_ + (lambda (_stx93561_) + (let* ((_e9356293569_ _stx93561_) + (_E9356493573_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e169783169790_))) - (_E169784169809_ - (lambda () - (if (gx#stx-pair? _e169783169790_) - (let ((_e169786169798_ (gx#syntax-e _e169783169790_))) - (let ((_hd169787169801_ (##car _e169786169798_)) - (_tl169788169803_ (##cdr _e169786169798_))) - (let ((_body169806_ _tl169788169803_)) + _e9356293569_))) + (_E9356393588_ + (lambda () + (if (gx#stx-pair? _e9356293569_) + (let ((_e9356593577_ (gx#syntax-e _e9356293569_))) + (let ((_hd9356693580_ (##car _e9356593577_)) + (_tl9356793582_ (##cdr _e9356593577_))) + (let ((_body93585_ _tl9356793582_)) (if '#t (cons '%#begin-syntax (call-with-parameters (lambda () (gx#stx-map1 gx#core-compile-top-syntax - _body169806_)) + _body93585_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1))) - (_E169785169794_))))) - (_E169785169794_))))) - (_E169784169809_)))) + (_E9356493573_))))) + (_E9356493573_))))) + (_E9356393588_)))) (define gx#core-compile-top-begin-foreign% - (lambda (_stx169752_) - (let* ((_e169753169760_ _stx169752_) - (_E169755169764_ + (lambda (_stx93531_) + (let* ((_e9353293539_ _stx93531_) + (_E9353493543_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e169753169760_))) - (_E169754169778_ - (lambda () - (if (gx#stx-pair? _e169753169760_) - (let ((_e169756169768_ (gx#syntax-e _e169753169760_))) - (let ((_hd169757169771_ (##car _e169756169768_)) - (_tl169758169773_ (##cdr _e169756169768_))) - (let ((_body169776_ _tl169758169773_)) + _e9353293539_))) + (_E9353393557_ + (lambda () + (if (gx#stx-pair? _e9353293539_) + (let ((_e9353593547_ (gx#syntax-e _e9353293539_))) + (let ((_hd9353693550_ (##car _e9353593547_)) + (_tl9353793552_ (##cdr _e9353593547_))) + (let ((_body93555_ _tl9353793552_)) (if '#t - (cons '%#begin-foreign _body169776_) - (_E169755169764_))))) - (_E169755169764_))))) - (_E169754169778_)))) + (cons '%#begin-foreign _body93555_) + (_E9353493543_))))) + (_E9353493543_))))) + (_E9353393557_)))) (define gx#core-compile-top-begin-annotation% - (lambda (_stx169698_) - (let* ((_e169699169712_ _stx169698_) - (_E169701169716_ + (lambda (_stx93477_) + (let* ((_e9347893491_ _stx93477_) + (_E9348093495_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e169699169712_))) - (_E169700169748_ - (lambda () - (if (gx#stx-pair? _e169699169712_) - (let ((_e169702169720_ (gx#syntax-e _e169699169712_))) - (let ((_hd169703169723_ (##car _e169702169720_)) - (_tl169704169725_ (##cdr _e169702169720_))) - (if (gx#stx-pair? _tl169704169725_) - (let ((_e169705169728_ - (gx#syntax-e _tl169704169725_))) - (let ((_hd169706169731_ - (##car _e169705169728_)) - (_tl169707169733_ - (##cdr _e169705169728_))) - (let ((_ann169736_ _hd169706169731_)) - (if (gx#stx-pair? _tl169707169733_) - (let ((_e169708169738_ - (gx#syntax-e _tl169707169733_))) - (let ((_hd169709169741_ - (##car _e169708169738_)) - (_tl169710169743_ - (##cdr _e169708169738_))) - (let ((_expr169746_ - _hd169709169741_)) - (if (gx#stx-null? - _tl169710169743_) + _e9347893491_))) + (_E9347993527_ + (lambda () + (if (gx#stx-pair? _e9347893491_) + (let ((_e9348193499_ (gx#syntax-e _e9347893491_))) + (let ((_hd9348293502_ (##car _e9348193499_)) + (_tl9348393504_ (##cdr _e9348193499_))) + (if (gx#stx-pair? _tl9348393504_) + (let ((_e9348493507_ + (gx#syntax-e _tl9348393504_))) + (let ((_hd9348593510_ (##car _e9348493507_)) + (_tl9348693512_ (##cdr _e9348493507_))) + (let ((_ann93515_ _hd9348593510_)) + (if (gx#stx-pair? _tl9348693512_) + (let ((_e9348793517_ + (gx#syntax-e _tl9348693512_))) + (let ((_hd9348893520_ + (##car _e9348793517_)) + (_tl9348993522_ + (##cdr _e9348793517_))) + (let ((_expr93525_ _hd9348893520_)) + (if (gx#stx-null? _tl9348993522_) (if '#t (gx#core-compile-top-syntax - _expr169746_) - (_E169701169716_)) - (_E169701169716_))))) - (_E169701169716_))))) - (_E169701169716_)))) - (_E169701169716_))))) - (_E169700169748_)))) + _expr93525_) + (_E9348093495_)) + (_E9348093495_))))) + (_E9348093495_))))) + (_E9348093495_)))) + (_E9348093495_))))) + (_E9347993527_)))) (define gx#core-compile-top-import% - (lambda (_stx169668_) - (let* ((_e169669169676_ _stx169668_) - (_E169671169680_ + (lambda (_stx93447_) + (let* ((_e9344893455_ _stx93447_) + (_E9345093459_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e169669169676_))) - (_E169670169694_ - (lambda () - (if (gx#stx-pair? _e169669169676_) - (let ((_e169672169684_ (gx#syntax-e _e169669169676_))) - (let ((_hd169673169687_ (##car _e169672169684_)) - (_tl169674169689_ (##cdr _e169672169684_))) - (let ((_body169692_ _tl169674169689_)) + _e9344893455_))) + (_E9344993473_ + (lambda () + (if (gx#stx-pair? _e9344893455_) + (let ((_e9345193463_ (gx#syntax-e _e9344893455_))) + (let ((_hd9345293466_ (##car _e9345193463_)) + (_tl9345393468_ (##cdr _e9345193463_))) + (let ((_body93471_ _tl9345393468_)) (if '#t - (cons '%#import _body169692_) - (_E169671169680_))))) - (_E169671169680_))))) - (_E169670169694_)))) + (cons '%#import _body93471_) + (_E9345093459_))))) + (_E9345093459_))))) + (_E9344993473_)))) (define gx#core-compile-top-module% - (lambda (_stx169625_) - (let* ((_e169626169636_ _stx169625_) - (_E169628169640_ + (lambda (_stx93404_) + (let* ((_e9340593415_ _stx93404_) + (_E9340793419_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e169626169636_))) - (_E169627169664_ - (lambda () - (if (gx#stx-pair? _e169626169636_) - (let ((_e169629169644_ (gx#syntax-e _e169626169636_))) - (let ((_hd169630169647_ (##car _e169629169644_)) - (_tl169631169649_ (##cdr _e169629169644_))) - (if (gx#stx-pair? _tl169631169649_) - (let ((_e169632169652_ - (gx#syntax-e _tl169631169649_))) - (let ((_hd169633169655_ - (##car _e169632169652_)) - (_tl169634169657_ - (##cdr _e169632169652_))) - (let* ((_hd169660_ _hd169633169655_) - (_body169662_ _tl169634169657_)) + _e9340593415_))) + (_E9340693443_ + (lambda () + (if (gx#stx-pair? _e9340593415_) + (let ((_e9340893423_ (gx#syntax-e _e9340593415_))) + (let ((_hd9340993426_ (##car _e9340893423_)) + (_tl9341093428_ (##cdr _e9340893423_))) + (if (gx#stx-pair? _tl9341093428_) + (let ((_e9341193431_ + (gx#syntax-e _tl9341093428_))) + (let ((_hd9341293434_ (##car _e9341193431_)) + (_tl9341393436_ (##cdr _e9341193431_))) + (let* ((_hd93439_ _hd9341293434_) + (_body93441_ _tl9341393436_)) (if '#t (cons '%#module (cons (##structure-ref (gx#syntax-local-e__0 - _hd169660_) + _hd93439_) '1 gx#expander-context::t '#f) (gx#stx-map1 gx#core-compile-top-syntax - _body169662_))) - (_E169628169640_))))) - (_E169628169640_)))) - (_E169628169640_))))) - (_E169627169664_)))) + _body93441_))) + (_E9340793419_))))) + (_E9340793419_)))) + (_E9340793419_))))) + (_E9340693443_)))) (define gx#core-compile-top-export% - (lambda (_stx169595_) - (let* ((_e169596169603_ _stx169595_) - (_E169598169607_ + (lambda (_stx93374_) + (let* ((_e9337593382_ _stx93374_) + (_E9337793386_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e169596169603_))) - (_E169597169621_ - (lambda () - (if (gx#stx-pair? _e169596169603_) - (let ((_e169599169611_ (gx#syntax-e _e169596169603_))) - (let ((_hd169600169614_ (##car _e169599169611_)) - (_tl169601169616_ (##cdr _e169599169611_))) - (let ((_body169619_ _tl169601169616_)) + _e9337593382_))) + (_E9337693400_ + (lambda () + (if (gx#stx-pair? _e9337593382_) + (let ((_e9337893390_ (gx#syntax-e _e9337593382_))) + (let ((_hd9337993393_ (##car _e9337893390_)) + (_tl9338093395_ (##cdr _e9337893390_))) + (let ((_body93398_ _tl9338093395_)) (if '#t - (cons '%#export _body169619_) - (_E169598169607_))))) - (_E169598169607_))))) - (_E169597169621_)))) + (cons '%#export _body93398_) + (_E9337793386_))))) + (_E9337793386_))))) + (_E9337693400_)))) (define gx#core-compile-top-provide% - (lambda (_stx169565_) - (let* ((_e169566169573_ _stx169565_) - (_E169568169577_ + (lambda (_stx93344_) + (let* ((_e9334593352_ _stx93344_) + (_E9334793356_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e169566169573_))) - (_E169567169591_ - (lambda () - (if (gx#stx-pair? _e169566169573_) - (let ((_e169569169581_ (gx#syntax-e _e169566169573_))) - (let ((_hd169570169584_ (##car _e169569169581_)) - (_tl169571169586_ (##cdr _e169569169581_))) - (let ((_body169589_ _tl169571169586_)) + _e9334593352_))) + (_E9334693370_ + (lambda () + (if (gx#stx-pair? _e9334593352_) + (let ((_e9334893360_ (gx#syntax-e _e9334593352_))) + (let ((_hd9334993363_ (##car _e9334893360_)) + (_tl9335093365_ (##cdr _e9334893360_))) + (let ((_body93368_ _tl9335093365_)) (if '#t - (cons '%#provide _body169589_) - (_E169568169577_))))) - (_E169568169577_))))) - (_E169567169591_)))) + (cons '%#provide _body93368_) + (_E9334793356_))))) + (_E9334793356_))))) + (_E9334693370_)))) (define gx#core-compile-top-extern% - (lambda (_stx169535_) - (let* ((_e169536169543_ _stx169535_) - (_E169538169547_ + (lambda (_stx93314_) + (let* ((_e9331593322_ _stx93314_) + (_E9331793326_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e169536169543_))) - (_E169537169561_ - (lambda () - (if (gx#stx-pair? _e169536169543_) - (let ((_e169539169551_ (gx#syntax-e _e169536169543_))) - (let ((_hd169540169554_ (##car _e169539169551_)) - (_tl169541169556_ (##cdr _e169539169551_))) - (let ((_body169559_ _tl169541169556_)) + _e9331593322_))) + (_E9331693340_ + (lambda () + (if (gx#stx-pair? _e9331593322_) + (let ((_e9331893330_ (gx#syntax-e _e9331593322_))) + (let ((_hd9331993333_ (##car _e9331893330_)) + (_tl9332093335_ (##cdr _e9331893330_))) + (let ((_body93338_ _tl9332093335_)) (if '#t - (cons '%#extern _body169559_) - (_E169538169547_))))) - (_E169538169547_))))) - (_E169537169561_)))) + (cons '%#extern _body93338_) + (_E9331793326_))))) + (_E9331793326_))))) + (_E9331693340_)))) (define gx#core-compile-top-define-values% - (lambda (_stx169481_) - (let* ((_e169482169495_ _stx169481_) - (_E169484169499_ + (lambda (_stx93260_) + (let* ((_e9326193274_ _stx93260_) + (_E9326393278_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e169482169495_))) - (_E169483169531_ - (lambda () - (if (gx#stx-pair? _e169482169495_) - (let ((_e169485169503_ (gx#syntax-e _e169482169495_))) - (let ((_hd169486169506_ (##car _e169485169503_)) - (_tl169487169508_ (##cdr _e169485169503_))) - (if (gx#stx-pair? _tl169487169508_) - (let ((_e169488169511_ - (gx#syntax-e _tl169487169508_))) - (let ((_hd169489169514_ - (##car _e169488169511_)) - (_tl169490169516_ - (##cdr _e169488169511_))) - (let ((_hd169519_ _hd169489169514_)) - (if (gx#stx-pair? _tl169490169516_) - (let ((_e169491169521_ - (gx#syntax-e _tl169490169516_))) - (let ((_hd169492169524_ - (##car _e169491169521_)) - (_tl169493169526_ - (##cdr _e169491169521_))) - (let ((_expr169529_ - _hd169492169524_)) - (if (gx#stx-null? - _tl169493169526_) + _e9326193274_))) + (_E9326293310_ + (lambda () + (if (gx#stx-pair? _e9326193274_) + (let ((_e9326493282_ (gx#syntax-e _e9326193274_))) + (let ((_hd9326593285_ (##car _e9326493282_)) + (_tl9326693287_ (##cdr _e9326493282_))) + (if (gx#stx-pair? _tl9326693287_) + (let ((_e9326793290_ + (gx#syntax-e _tl9326693287_))) + (let ((_hd9326893293_ (##car _e9326793290_)) + (_tl9326993295_ (##cdr _e9326793290_))) + (let ((_hd93298_ _hd9326893293_)) + (if (gx#stx-pair? _tl9326993295_) + (let ((_e9327093300_ + (gx#syntax-e _tl9326993295_))) + (let ((_hd9327193303_ + (##car _e9327093300_)) + (_tl9327293305_ + (##cdr _e9327093300_))) + (let ((_expr93308_ _hd9327193303_)) + (if (gx#stx-null? _tl9327293305_) (if '#t (cons '%#define-values (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#core-compile-top-runtime-bind - _hd169519_) - (cons (gx#core-compile-top-syntax _expr169529_) - '()))) - (_E169484169499_)) + _hd93298_) + (cons (gx#core-compile-top-syntax _expr93308_) '()))) + (_E9326393278_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E169484169499_))))) - (_E169484169499_))))) - (_E169484169499_)))) - (_E169484169499_))))) - (_E169483169531_)))) + (_E9326393278_))))) + (_E9326393278_))))) + (_E9326393278_)))) + (_E9326393278_))))) + (_E9326293310_)))) (define gx#core-compile-top-define-syntax% - (lambda (_stx169426_) - (let* ((_e169427169440_ _stx169426_) - (_E169429169444_ + (lambda (_stx93205_) + (let* ((_e9320693219_ _stx93205_) + (_E9320893223_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e169427169440_))) - (_E169428169477_ - (lambda () - (if (gx#stx-pair? _e169427169440_) - (let ((_e169430169448_ (gx#syntax-e _e169427169440_))) - (let ((_hd169431169451_ (##car _e169430169448_)) - (_tl169432169453_ (##cdr _e169430169448_))) - (if (gx#stx-pair? _tl169432169453_) - (let ((_e169433169456_ - (gx#syntax-e _tl169432169453_))) - (let ((_hd169434169459_ - (##car _e169433169456_)) - (_tl169435169461_ - (##cdr _e169433169456_))) - (let ((_hd169464_ _hd169434169459_)) - (if (gx#stx-pair? _tl169435169461_) - (let ((_e169436169466_ - (gx#syntax-e _tl169435169461_))) - (let ((_hd169437169469_ - (##car _e169436169466_)) - (_tl169438169471_ - (##cdr _e169436169466_))) - (let ((_expr169474_ - _hd169437169469_)) - (if (gx#stx-null? - _tl169438169471_) + _e9320693219_))) + (_E9320793256_ + (lambda () + (if (gx#stx-pair? _e9320693219_) + (let ((_e9320993227_ (gx#syntax-e _e9320693219_))) + (let ((_hd9321093230_ (##car _e9320993227_)) + (_tl9321193232_ (##cdr _e9320993227_))) + (if (gx#stx-pair? _tl9321193232_) + (let ((_e9321293235_ + (gx#syntax-e _tl9321193232_))) + (let ((_hd9321393238_ (##car _e9321293235_)) + (_tl9321493240_ (##cdr _e9321293235_))) + (let ((_hd93243_ _hd9321393238_)) + (if (gx#stx-pair? _tl9321493240_) + (let ((_e9321593245_ + (gx#syntax-e _tl9321493240_))) + (let ((_hd9321693248_ + (##car _e9321593245_)) + (_tl9321793250_ + (##cdr _e9321593245_))) + (let ((_expr93253_ _hd9321693248_)) + (if (gx#stx-null? _tl9321793250_) (if '#t (cons '%#define-syntax - (cons _hd169464_ + (cons _hd93243_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (call-with-parameters (lambda () - (gx#core-compile-top-syntax _expr169474_)) + (gx#core-compile-top-syntax _expr93253_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1)) '()))) - (_E169429169444_)) + (_E9320893223_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E169429169444_))))) - (_E169429169444_))))) - (_E169429169444_)))) - (_E169429169444_))))) - (_E169428169477_)))) + (_E9320893223_))))) + (_E9320893223_))))) + (_E9320893223_)))) + (_E9320893223_))))) + (_E9320793256_)))) (define gx#core-compile-top-define-alias% - (lambda (_stx169396_) - (let* ((_e169397169404_ _stx169396_) - (_E169399169408_ + (lambda (_stx93175_) + (let* ((_e9317693183_ _stx93175_) + (_E9317893187_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e169397169404_))) - (_E169398169422_ - (lambda () - (if (gx#stx-pair? _e169397169404_) - (let ((_e169400169412_ (gx#syntax-e _e169397169404_))) - (let ((_hd169401169415_ (##car _e169400169412_)) - (_tl169402169417_ (##cdr _e169400169412_))) - (let ((_body169420_ _tl169402169417_)) + _e9317693183_))) + (_E9317793201_ + (lambda () + (if (gx#stx-pair? _e9317693183_) + (let ((_e9317993191_ (gx#syntax-e _e9317693183_))) + (let ((_hd9318093194_ (##car _e9317993191_)) + (_tl9318193196_ (##cdr _e9317993191_))) + (let ((_body93199_ _tl9318193196_)) (if '#t - (cons '%#define-alias _body169420_) - (_E169399169408_))))) - (_E169399169408_))))) - (_E169398169422_)))) + (cons '%#define-alias _body93199_) + (_E9317893187_))))) + (_E9317893187_))))) + (_E9317793201_)))) (define gx#core-compile-top-define-runtime% - (lambda (_stx169366_) - (let* ((_e169367169374_ _stx169366_) - (_E169369169378_ + (lambda (_stx93145_) + (let* ((_e9314693153_ _stx93145_) + (_E9314893157_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e169367169374_))) - (_E169368169392_ - (lambda () - (if (gx#stx-pair? _e169367169374_) - (let ((_e169370169382_ (gx#syntax-e _e169367169374_))) - (let ((_hd169371169385_ (##car _e169370169382_)) - (_tl169372169387_ (##cdr _e169370169382_))) - (let ((_body169390_ _tl169372169387_)) + _e9314693153_))) + (_E9314793171_ + (lambda () + (if (gx#stx-pair? _e9314693153_) + (let ((_e9314993161_ (gx#syntax-e _e9314693153_))) + (let ((_hd9315093164_ (##car _e9314993161_)) + (_tl9315193166_ (##cdr _e9314993161_))) + (let ((_body93169_ _tl9315193166_)) (if '#t - (cons '%#define-runtime _body169390_) - (_E169369169378_))))) - (_E169369169378_))))) - (_E169368169392_)))) + (cons '%#define-runtime _body93169_) + (_E9314893157_))))) + (_E9314893157_))))) + (_E9314793171_)))) (define gx#core-compile-top-declare% - (lambda (_stx169336_) - (let* ((_e169337169344_ _stx169336_) - (_E169339169348_ + (lambda (_stx93115_) + (let* ((_e9311693123_ _stx93115_) + (_E9311893127_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e169337169344_))) - (_E169338169362_ - (lambda () - (if (gx#stx-pair? _e169337169344_) - (let ((_e169340169352_ (gx#syntax-e _e169337169344_))) - (let ((_hd169341169355_ (##car _e169340169352_)) - (_tl169342169357_ (##cdr _e169340169352_))) - (let ((_decls169360_ _tl169342169357_)) + _e9311693123_))) + (_E9311793141_ + (lambda () + (if (gx#stx-pair? _e9311693123_) + (let ((_e9311993131_ (gx#syntax-e _e9311693123_))) + (let ((_hd9312093134_ (##car _e9311993131_)) + (_tl9312193136_ (##cdr _e9311993131_))) + (let ((_decls93139_ _tl9312193136_)) (if '#t - (cons '%#declare _decls169360_) - (_E169339169348_))))) - (_E169339169348_))))) - (_E169338169362_)))) + (cons '%#declare _decls93139_) + (_E9311893127_))))) + (_E9311893127_))))) + (_E9311793141_)))) (define gx#core-compile-top-lambda% - (lambda (_stx169306_) - (let* ((_e169307169314_ _stx169306_) - (_E169309169318_ + (lambda (_stx93085_) + (let* ((_e9308693093_ _stx93085_) + (_E9308893097_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e169307169314_))) - (_E169308169332_ - (lambda () - (if (gx#stx-pair? _e169307169314_) - (let ((_e169310169322_ (gx#syntax-e _e169307169314_))) - (let ((_hd169311169325_ (##car _e169310169322_)) - (_tl169312169327_ (##cdr _e169310169322_))) - (let ((_clause169330_ _tl169312169327_)) + _e9308693093_))) + (_E9308793111_ + (lambda () + (if (gx#stx-pair? _e9308693093_) + (let ((_e9308993101_ (gx#syntax-e _e9308693093_))) + (let ((_hd9309093104_ (##car _e9308993101_)) + (_tl9309193106_ (##cdr _e9308993101_))) + (let ((_clause93109_ _tl9309193106_)) (if '#t (cons '%#lambda (gx#core-compile-top-lambda-clause - _clause169330_)) - (_E169309169318_))))) - (_E169309169318_))))) - (_E169308169332_)))) + _clause93109_)) + (_E9308893097_))))) + (_E9308893097_))))) + (_E9308793111_)))) (define gx#core-compile-top-lambda-clause - (lambda (_stx169263_) - (let* ((_e169264169274_ _stx169263_) - (_E169266169278_ + (lambda (_stx93042_) + (let* ((_e9304393053_ _stx93042_) + (_E9304593057_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e169264169274_))) - (_E169265169302_ - (lambda () - (if (gx#stx-pair? _e169264169274_) - (let ((_e169267169282_ (gx#syntax-e _e169264169274_))) - (let ((_hd169268169285_ (##car _e169267169282_)) - (_tl169269169287_ (##cdr _e169267169282_))) - (let ((_hd169290_ _hd169268169285_)) - (if (gx#stx-pair? _tl169269169287_) - (let ((_e169270169292_ - (gx#syntax-e _tl169269169287_))) - (let ((_hd169271169295_ - (##car _e169270169292_)) - (_tl169272169297_ - (##cdr _e169270169292_))) - (let ((_body169300_ _hd169271169295_)) - (if (gx#stx-null? _tl169272169297_) + _e9304393053_))) + (_E9304493081_ + (lambda () + (if (gx#stx-pair? _e9304393053_) + (let ((_e9304693061_ (gx#syntax-e _e9304393053_))) + (let ((_hd9304793064_ (##car _e9304693061_)) + (_tl9304893066_ (##cdr _e9304693061_))) + (let ((_hd93069_ _hd9304793064_)) + (if (gx#stx-pair? _tl9304893066_) + (let ((_e9304993071_ + (gx#syntax-e _tl9304893066_))) + (let ((_hd9305093074_ (##car _e9304993071_)) + (_tl9305193076_ (##cdr _e9304993071_))) + (let ((_body93079_ _hd9305093074_)) + (if (gx#stx-null? _tl9305193076_) (if '#t (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _hd169290_) + _hd93069_) (cons (gx#core-compile-top-syntax - _body169300_) + _body93079_) '())) - (_E169266169278_)) - (_E169266169278_))))) - (_E169266169278_))))) - (_E169266169278_))))) - (_E169265169302_)))) + (_E9304593057_)) + (_E9304593057_))))) + (_E9304593057_))))) + (_E9304593057_))))) + (_E9304493081_)))) (define gx#core-compile-top-case-lambda% - (lambda (_stx169233_) - (let* ((_e169234169241_ _stx169233_) - (_E169236169245_ + (lambda (_stx93012_) + (let* ((_e9301393020_ _stx93012_) + (_E9301593024_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e169234169241_))) - (_E169235169259_ - (lambda () - (if (gx#stx-pair? _e169234169241_) - (let ((_e169237169249_ (gx#syntax-e _e169234169241_))) - (let ((_hd169238169252_ (##car _e169237169249_)) - (_tl169239169254_ (##cdr _e169237169249_))) - (let ((_clauses169257_ _tl169239169254_)) + _e9301393020_))) + (_E9301493038_ + (lambda () + (if (gx#stx-pair? _e9301393020_) + (let ((_e9301693028_ (gx#syntax-e _e9301393020_))) + (let ((_hd9301793031_ (##car _e9301693028_)) + (_tl9301893033_ (##cdr _e9301693028_))) + (let ((_clauses93036_ _tl9301893033_)) (if '#t (cons '%#case-lambda (gx#stx-map1 gx#core-compile-top-lambda-clause - _clauses169257_)) - (_E169236169245_))))) - (_E169236169245_))))) - (_E169235169259_)))) + _clauses93036_)) + (_E9301593024_))))) + (_E9301593024_))))) + (_E9301493038_)))) (define gx#core-compile-top-let-values%__% - (lambda (_stx169168_ _form169169_) - (let* ((_e169170169183_ _stx169168_) - (_E169172169187_ + (lambda (_stx92947_ _form92948_) + (let* ((_e9294992962_ _stx92947_) + (_E9295192966_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e169170169183_))) - (_E169171169219_ - (lambda () - (if (gx#stx-pair? _e169170169183_) - (let ((_e169173169191_ (gx#syntax-e _e169170169183_))) - (let ((_hd169174169194_ (##car _e169173169191_)) - (_tl169175169196_ (##cdr _e169173169191_))) - (if (gx#stx-pair? _tl169175169196_) - (let ((_e169176169199_ - (gx#syntax-e _tl169175169196_))) - (let ((_hd169177169202_ - (##car _e169176169199_)) - (_tl169178169204_ - (##cdr _e169176169199_))) - (let ((_hd169207_ _hd169177169202_)) - (if (gx#stx-pair? _tl169178169204_) - (let ((_e169179169209_ - (gx#syntax-e _tl169178169204_))) - (let ((_hd169180169212_ - (##car _e169179169209_)) - (_tl169181169214_ - (##cdr _e169179169209_))) - (let ((_body169217_ - _hd169180169212_)) - (if (gx#stx-null? - _tl169181169214_) + _e9294992962_))) + (_E9295092998_ + (lambda () + (if (gx#stx-pair? _e9294992962_) + (let ((_e9295292970_ (gx#syntax-e _e9294992962_))) + (let ((_hd9295392973_ (##car _e9295292970_)) + (_tl9295492975_ (##cdr _e9295292970_))) + (if (gx#stx-pair? _tl9295492975_) + (let ((_e9295592978_ + (gx#syntax-e _tl9295492975_))) + (let ((_hd9295692981_ (##car _e9295592978_)) + (_tl9295792983_ (##cdr _e9295592978_))) + (let ((_hd92986_ _hd9295692981_)) + (if (gx#stx-pair? _tl9295792983_) + (let ((_e9295892988_ + (gx#syntax-e _tl9295792983_))) + (let ((_hd9295992991_ + (##car _e9295892988_)) + (_tl9296092993_ + (##cdr _e9295892988_))) + (let ((_body92996_ _hd9295992991_)) + (if (gx#stx-null? _tl9296092993_) (if '#t - (cons _form169169_ + (cons _form92948_ (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#core-compile-top-lambda-clause - _hd169207_) - (cons (gx#core-compile-top-syntax _body169217_) - '()))) - (_E169172169187_)) + _hd92986_) + (cons (gx#core-compile-top-syntax _body92996_) '()))) + (_E9295192966_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E169172169187_))))) - (_E169172169187_))))) - (_E169172169187_)))) - (_E169172169187_))))) - (_E169171169219_)))) + (_E9295192966_))))) + (_E9295192966_))))) + (_E9295192966_)))) + (_E9295192966_))))) + (_E9295092998_)))) (define gx#core-compile-top-let-values%__0 - (lambda (_stx169226_) - (let ((_form169228_ '%#let-values)) - (gx#core-compile-top-let-values%__% _stx169226_ _form169228_)))) + (lambda (_stx93005_) + (let ((_form93007_ '%#let-values)) + (gx#core-compile-top-let-values%__% _stx93005_ _form93007_)))) (define gx#core-compile-top-let-values% - (lambda _g174609_ - (let ((_g174608_ (##length _g174609_))) - (cond ((##fx= _g174608_ 1) - (apply (lambda (_stx169226_) - (gx#core-compile-top-let-values%__0 _stx169226_)) - _g174609_)) - ((##fx= _g174608_ 2) - (apply (lambda (_stx169230_ _form169231_) + (lambda _g93820_ + (let ((_g93819_ (##length _g93820_))) + (cond ((##fx= _g93819_ 1) + (apply (lambda (_stx93005_) + (gx#core-compile-top-let-values%__0 _stx93005_)) + _g93820_)) + ((##fx= _g93819_ 2) + (apply (lambda (_stx93009_ _form93010_) (gx#core-compile-top-let-values%__% - _stx169230_ - _form169231_)) - _g174609_)) + _stx93009_ + _form93010_)) + _g93820_)) (else (##raise-wrong-number-of-arguments-exception gx#core-compile-top-let-values% - _g174609_)))))) + _g93820_)))))) (define gx#core-compile-top-letrec-values% - (lambda (_stx169165_) - (gx#core-compile-top-let-values%__% _stx169165_ '%#letrec-values))) + (lambda (_stx92944_) + (gx#core-compile-top-let-values%__% _stx92944_ '%#letrec-values))) (define gx#core-compile-top-letrec*-values% - (lambda (_stx169163_) - (gx#core-compile-top-let-values%__% _stx169163_ '%#letrec*-values))) + (lambda (_stx92942_) + (gx#core-compile-top-let-values%__% _stx92942_ '%#letrec*-values))) (define gx#core-compile-top-quote% - (lambda (_stx169122_) - (let* ((_e169123169133_ _stx169122_) - (_E169125169137_ + (lambda (_stx92901_) + (let* ((_e9290292912_ _stx92901_) + (_E9290492916_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e169123169133_))) - (_E169124169159_ - (lambda () - (if (gx#stx-pair? _e169123169133_) - (let ((_e169126169141_ (gx#syntax-e _e169123169133_))) - (let ((_hd169127169144_ (##car _e169126169141_)) - (_tl169128169146_ (##cdr _e169126169141_))) - (if (gx#stx-pair? _tl169128169146_) - (let ((_e169129169149_ - (gx#syntax-e _tl169128169146_))) - (let ((_hd169130169152_ - (##car _e169129169149_)) - (_tl169131169154_ - (##cdr _e169129169149_))) - (let ((_e169157_ _hd169130169152_)) - (if (gx#stx-null? _tl169131169154_) + _e9290292912_))) + (_E9290392938_ + (lambda () + (if (gx#stx-pair? _e9290292912_) + (let ((_e9290592920_ (gx#syntax-e _e9290292912_))) + (let ((_hd9290692923_ (##car _e9290592920_)) + (_tl9290792925_ (##cdr _e9290592920_))) + (if (gx#stx-pair? _tl9290792925_) + (let ((_e9290892928_ + (gx#syntax-e _tl9290792925_))) + (let ((_hd9290992931_ (##car _e9290892928_)) + (_tl9291092933_ (##cdr _e9290892928_))) + (let ((_e92936_ _hd9290992931_)) + (if (gx#stx-null? _tl9291092933_) (if '#t (cons '%#quote (cons (gx#syntax->datum - _e169157_) + _e92936_) '())) - (_E169125169137_)) - (_E169125169137_))))) - (_E169125169137_)))) - (_E169125169137_))))) - (_E169124169159_)))) + (_E9290492916_)) + (_E9290492916_))))) + (_E9290492916_)))) + (_E9290492916_))))) + (_E9290392938_)))) (define gx#core-compile-top-quote-syntax% - (lambda (_stx169081_) - (let* ((_e169082169092_ _stx169081_) - (_E169084169096_ + (lambda (_stx92860_) + (let* ((_e9286192871_ _stx92860_) + (_E9286392875_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e169082169092_))) - (_E169083169118_ - (lambda () - (if (gx#stx-pair? _e169082169092_) - (let ((_e169085169100_ (gx#syntax-e _e169082169092_))) - (let ((_hd169086169103_ (##car _e169085169100_)) - (_tl169087169105_ (##cdr _e169085169100_))) - (if (gx#stx-pair? _tl169087169105_) - (let ((_e169088169108_ - (gx#syntax-e _tl169087169105_))) - (let ((_hd169089169111_ - (##car _e169088169108_)) - (_tl169090169113_ - (##cdr _e169088169108_))) - (let ((_e169116_ _hd169089169111_)) - (if (gx#stx-null? _tl169090169113_) + _e9286192871_))) + (_E9286292897_ + (lambda () + (if (gx#stx-pair? _e9286192871_) + (let ((_e9286492879_ (gx#syntax-e _e9286192871_))) + (let ((_hd9286592882_ (##car _e9286492879_)) + (_tl9286692884_ (##cdr _e9286492879_))) + (if (gx#stx-pair? _tl9286692884_) + (let ((_e9286792887_ + (gx#syntax-e _tl9286692884_))) + (let ((_hd9286892890_ (##car _e9286792887_)) + (_tl9286992892_ (##cdr _e9286792887_))) + (let ((_e92895_ _hd9286892890_)) + (if (gx#stx-null? _tl9286992892_) (if '#t (cons '%#quote-syntax (cons (gx#core-quote-syntax__0 - _e169116_) + _e92895_) '())) - (_E169084169096_)) - (_E169084169096_))))) - (_E169084169096_)))) - (_E169084169096_))))) - (_E169083169118_)))) + (_E9286392875_)) + (_E9286392875_))))) + (_E9286392875_)))) + (_E9286392875_))))) + (_E9286292897_)))) (define gx#core-compile-top-call% - (lambda (_stx169038_) - (let* ((_e169039169049_ _stx169038_) - (_E169041169053_ + (lambda (_stx92817_) + (let* ((_e9281892828_ _stx92817_) + (_E9282092832_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e169039169049_))) - (_E169040169077_ - (lambda () - (if (gx#stx-pair? _e169039169049_) - (let ((_e169042169057_ (gx#syntax-e _e169039169049_))) - (let ((_hd169043169060_ (##car _e169042169057_)) - (_tl169044169062_ (##cdr _e169042169057_))) - (if (gx#stx-pair? _tl169044169062_) - (let ((_e169045169065_ - (gx#syntax-e _tl169044169062_))) - (let ((_hd169046169068_ - (##car _e169045169065_)) - (_tl169047169070_ - (##cdr _e169045169065_))) - (let* ((_rator169073_ _hd169046169068_) - (_args169075_ _tl169047169070_)) + _e9281892828_))) + (_E9281992856_ + (lambda () + (if (gx#stx-pair? _e9281892828_) + (let ((_e9282192836_ (gx#syntax-e _e9281892828_))) + (let ((_hd9282292839_ (##car _e9282192836_)) + (_tl9282392841_ (##cdr _e9282192836_))) + (if (gx#stx-pair? _tl9282392841_) + (let ((_e9282492844_ + (gx#syntax-e _tl9282392841_))) + (let ((_hd9282592847_ (##car _e9282492844_)) + (_tl9282692849_ (##cdr _e9282492844_))) + (let* ((_rator92852_ _hd9282592847_) + (_args92854_ _tl9282692849_)) (if '#t (cons '%#call (cons (gx#core-compile-top-syntax - _rator169073_) + _rator92852_) (gx#stx-map1 gx#core-compile-top-syntax - _args169075_))) - (_E169041169053_))))) - (_E169041169053_)))) - (_E169041169053_))))) - (_E169040169077_)))) + _args92854_))) + (_E9282092832_))))) + (_E9282092832_)))) + (_E9282092832_))))) + (_E9281992856_)))) (define gx#core-compile-top-if% - (lambda (_stx168971_) - (let* ((_e168972168988_ _stx168971_) - (_E168974168992_ + (lambda (_stx92750_) + (let* ((_e9275192767_ _stx92750_) + (_E9275392771_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e168972168988_))) - (_E168973169034_ - (lambda () - (if (gx#stx-pair? _e168972168988_) - (let ((_e168975168996_ (gx#syntax-e _e168972168988_))) - (let ((_hd168976168999_ (##car _e168975168996_)) - (_tl168977169001_ (##cdr _e168975168996_))) - (if (gx#stx-pair? _tl168977169001_) - (let ((_e168978169004_ - (gx#syntax-e _tl168977169001_))) - (let ((_hd168979169007_ - (##car _e168978169004_)) - (_tl168980169009_ - (##cdr _e168978169004_))) - (let ((_test169012_ _hd168979169007_)) - (if (gx#stx-pair? _tl168980169009_) - (let ((_e168981169014_ - (gx#syntax-e _tl168980169009_))) - (let ((_hd168982169017_ - (##car _e168981169014_)) - (_tl168983169019_ - (##cdr _e168981169014_))) - (let ((_K169022_ _hd168982169017_)) - (if (gx#stx-pair? - _tl168983169019_) - (let ((_e168984169024_ + _e9275192767_))) + (_E9275292813_ + (lambda () + (if (gx#stx-pair? _e9275192767_) + (let ((_e9275492775_ (gx#syntax-e _e9275192767_))) + (let ((_hd9275592778_ (##car _e9275492775_)) + (_tl9275692780_ (##cdr _e9275492775_))) + (if (gx#stx-pair? _tl9275692780_) + (let ((_e9275792783_ + (gx#syntax-e _tl9275692780_))) + (let ((_hd9275892786_ (##car _e9275792783_)) + (_tl9275992788_ (##cdr _e9275792783_))) + (let ((_test92791_ _hd9275892786_)) + (if (gx#stx-pair? _tl9275992788_) + (let ((_e9276092793_ + (gx#syntax-e _tl9275992788_))) + (let ((_hd9276192796_ + (##car _e9276092793_)) + (_tl9276292798_ + (##cdr _e9276092793_))) + (let ((_K92801_ _hd9276192796_)) + (if (gx#stx-pair? _tl9276292798_) + (let ((_e9276392803_ (gx#syntax-e - _tl168983169019_))) - (let ((_hd168985169027_ - (##car _e168984169024_)) - (_tl168986169029_ - (##cdr _e168984169024_))) - (let ((_E169032_ - _hd168985169027_)) + _tl9276292798_))) + (let ((_hd9276492806_ + (##car _e9276392803_)) + (_tl9276592808_ + (##cdr _e9276392803_))) + (let ((_E92811_ + _hd9276492806_)) (if (gx#stx-null? - _tl168986169029_) + _tl9276592808_) (if '#t (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-compile-top-syntax _test169012_) - (cons (gx#core-compile-top-syntax - _K169022_) + (cons (gx#core-compile-top-syntax _test92791_) + (cons (gx#core-compile-top-syntax _K92801_) (cons (gx#core-compile-top-syntax - _E169032_) + _E92811_) '())))) - (_E168974168992_)) - (_E168974168992_))))) + (_E9275392771_)) + (_E9275392771_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E168974168992_))))) - (_E168974168992_))))) - (_E168974168992_)))) - (_E168974168992_))))) - (_E168973169034_)))) + (_E9275392771_))))) + (_E9275392771_))))) + (_E9275392771_)))) + (_E9275392771_))))) + (_E9275292813_)))) (define gx#core-compile-top-ref% - (lambda (_stx168930_) - (let* ((_e168931168941_ _stx168930_) - (_E168933168945_ + (lambda (_stx92709_) + (let* ((_e9271092720_ _stx92709_) + (_E9271292724_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e168931168941_))) - (_E168932168967_ - (lambda () - (if (gx#stx-pair? _e168931168941_) - (let ((_e168934168949_ (gx#syntax-e _e168931168941_))) - (let ((_hd168935168952_ (##car _e168934168949_)) - (_tl168936168954_ (##cdr _e168934168949_))) - (if (gx#stx-pair? _tl168936168954_) - (let ((_e168937168957_ - (gx#syntax-e _tl168936168954_))) - (let ((_hd168938168960_ - (##car _e168937168957_)) - (_tl168939168962_ - (##cdr _e168937168957_))) - (let ((_id168965_ _hd168938168960_)) - (if (gx#stx-null? _tl168939168962_) - (if (gx#identifier? _id168965_) + _e9271092720_))) + (_E9271192746_ + (lambda () + (if (gx#stx-pair? _e9271092720_) + (let ((_e9271392728_ (gx#syntax-e _e9271092720_))) + (let ((_hd9271492731_ (##car _e9271392728_)) + (_tl9271592733_ (##cdr _e9271392728_))) + (if (gx#stx-pair? _tl9271592733_) + (let ((_e9271692736_ + (gx#syntax-e _tl9271592733_))) + (let ((_hd9271792739_ (##car _e9271692736_)) + (_tl9271892741_ (##cdr _e9271692736_))) + (let ((_id92744_ _hd9271792739_)) + (if (gx#stx-null? _tl9271892741_) + (if (gx#identifier? _id92744_) (cons '%#ref (cons (gx#core-compile-top-runtime-ref - _id168965_) + _id92744_) '())) - (_E168933168945_)) - (_E168933168945_))))) - (_E168933168945_)))) - (_E168933168945_))))) - (_E168932168967_)))) + (_E9271292724_)) + (_E9271292724_))))) + (_E9271292724_)))) + (_E9271292724_))))) + (_E9271192746_)))) (define gx#core-compile-top-setq% - (lambda (_stx168876_) - (let* ((_e168877168890_ _stx168876_) - (_E168879168894_ + (lambda (_stx92655_) + (let* ((_e9265692669_ _stx92655_) + (_E9265892673_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e168877168890_))) - (_E168878168926_ - (lambda () - (if (gx#stx-pair? _e168877168890_) - (let ((_e168880168898_ (gx#syntax-e _e168877168890_))) - (let ((_hd168881168901_ (##car _e168880168898_)) - (_tl168882168903_ (##cdr _e168880168898_))) - (if (gx#stx-pair? _tl168882168903_) - (let ((_e168883168906_ - (gx#syntax-e _tl168882168903_))) - (let ((_hd168884168909_ - (##car _e168883168906_)) - (_tl168885168911_ - (##cdr _e168883168906_))) - (let ((_id168914_ _hd168884168909_)) - (if (gx#stx-pair? _tl168885168911_) - (let ((_e168886168916_ - (gx#syntax-e _tl168885168911_))) - (let ((_hd168887168919_ - (##car _e168886168916_)) - (_tl168888168921_ - (##cdr _e168886168916_))) - (let ((_expr168924_ - _hd168887168919_)) - (if (gx#stx-null? - _tl168888168921_) + _e9265692669_))) + (_E9265792705_ + (lambda () + (if (gx#stx-pair? _e9265692669_) + (let ((_e9265992677_ (gx#syntax-e _e9265692669_))) + (let ((_hd9266092680_ (##car _e9265992677_)) + (_tl9266192682_ (##cdr _e9265992677_))) + (if (gx#stx-pair? _tl9266192682_) + (let ((_e9266292685_ + (gx#syntax-e _tl9266192682_))) + (let ((_hd9266392688_ (##car _e9266292685_)) + (_tl9266492690_ (##cdr _e9266292685_))) + (let ((_id92693_ _hd9266392688_)) + (if (gx#stx-pair? _tl9266492690_) + (let ((_e9266592695_ + (gx#syntax-e _tl9266492690_))) + (let ((_hd9266692698_ + (##car _e9266592695_)) + (_tl9266792700_ + (##cdr _e9266592695_))) + (let ((_expr92703_ _hd9266692698_)) + (if (gx#stx-null? _tl9266792700_) (if (gx#identifier? - _id168914_) + _id92693_) (cons '%#set! (cons (gx#core-compile-top-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id168914_) - (cons (gx#core-compile-top-syntax _expr168924_) - '()))) - (_E168879168894_)) + _id92693_) + (cons (gx#core-compile-top-syntax _expr92703_) '()))) + (_E9265892673_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E168879168894_))))) - (_E168879168894_))))) - (_E168879168894_)))) - (_E168879168894_))))) - (_E168878168926_)))) + (_E9265892673_))))) + (_E9265892673_))))) + (_E9265892673_)))) + (_E9265892673_))))) + (_E9265792705_)))) (define gx#core-compile-top-runtime-ref - (lambda (_id168871_) - (let ((_$e168873_ (gx#resolve-identifier__0 _id168871_))) - (if _$e168873_ - (##unchecked-structure-ref _$e168873_ '1 gx#binding::t '#f) - _id168871_)))) + (lambda (_id92650_) + (let ((_$e92652_ (gx#resolve-identifier__0 _id92650_))) + (if _$e92652_ + (##unchecked-structure-ref _$e92652_ '1 gx#binding::t '#f) + _id92650_)))) (define gx#core-compile-top-runtime-bind - (lambda (_hd168869_) - (if (gx#identifier? _hd168869_) - (gx#core-compile-top-runtime-ref _hd168869_) + (lambda (_hd92648_) + (if (gx#identifier? _hd92648_) + (gx#core-compile-top-runtime-ref _hd92648_) '#f))))) diff --git a/src/bootstrap/gerbil/expander/core__0.scm b/src/bootstrap/gerbil/expander/core__0.scm index 039475230..82cf8fdeb 100644 --- a/src/bootstrap/gerbil/expander/core__0.scm +++ b/src/bootstrap/gerbil/expander/core__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/core::timestamp 1708102802) + (define gerbil/expander/core::timestamp 1708370114) (begin (declare (not safe)) (define gx#current-expander-context (make-parameter '#f)) @@ -28,8 +28,8 @@ ':init!)) (define gx#expander-context? (make-class-predicate gx#expander-context::t)) (define gx#make-expander-context - (lambda _$args146190_ - (apply make-instance gx#expander-context::t _$args146190_))) + (lambda _$args83673_ + (apply make-instance gx#expander-context::t _$args83673_))) (define gx#expander-context-id (make-class-slot-accessor gx#expander-context::t 'id)) (define gx#expander-context-table @@ -56,8 +56,8 @@ '#f)) (define gx#root-context? (make-class-predicate gx#root-context::t)) (define gx#make-root-context - (lambda _$args146187_ - (apply make-instance gx#root-context::t _$args146187_))) + (lambda _$args83670_ + (apply make-instance gx#root-context::t _$args83670_))) (define gx#root-context-id (make-class-slot-accessor gx#root-context::t 'id)) (define gx#root-context-table @@ -84,8 +84,8 @@ '#f)) (define gx#phi-context? (make-class-predicate gx#phi-context::t)) (define gx#make-phi-context - (lambda _$args146184_ - (apply make-instance gx#phi-context::t _$args146184_))) + (lambda _$args83667_ + (apply make-instance gx#phi-context::t _$args83667_))) (define gx#phi-context-super (make-class-slot-accessor gx#phi-context::t 'super)) (define gx#phi-context-up (make-class-slot-accessor gx#phi-context::t 'up)) @@ -134,8 +134,8 @@ '#f)) (define gx#top-context? (make-class-predicate gx#top-context::t)) (define gx#make-top-context - (lambda _$args146181_ - (apply make-instance gx#top-context::t _$args146181_))) + (lambda _$args83664_ + (apply make-instance gx#top-context::t _$args83664_))) (define gx#top-context-super (make-class-slot-accessor gx#top-context::t 'super)) (define gx#top-context-up (make-class-slot-accessor gx#top-context::t 'up)) @@ -184,8 +184,8 @@ '#f)) (define gx#module-context? (make-class-predicate gx#module-context::t)) (define gx#make-module-context - (lambda _$args146178_ - (apply make-instance gx#module-context::t _$args146178_))) + (lambda _$args83661_ + (apply make-instance gx#module-context::t _$args83661_))) (define gx#module-context-ns (make-class-slot-accessor gx#module-context::t 'ns)) (define gx#module-context-path @@ -284,8 +284,8 @@ '#f)) (define gx#prelude-context? (make-class-predicate gx#prelude-context::t)) (define gx#make-prelude-context - (lambda _$args146175_ - (apply make-instance gx#prelude-context::t _$args146175_))) + (lambda _$args83658_ + (apply make-instance gx#prelude-context::t _$args83658_))) (define gx#prelude-context-path (make-class-slot-accessor gx#prelude-context::t 'path)) (define gx#prelude-context-import @@ -360,8 +360,8 @@ '#f)) (define gx#local-context? (make-class-predicate gx#local-context::t)) (define gx#make-local-context - (lambda _$args146172_ - (apply make-instance gx#local-context::t _$args146172_))) + (lambda _$args83655_ + (apply make-instance gx#local-context::t _$args83655_))) (define gx#local-context-super (make-class-slot-accessor gx#local-context::t 'super)) (define gx#local-context-up @@ -403,102 +403,102 @@ (define gx#&local-context-table-set! (make-class-slot-unchecked-mutator gx#local-context::t 'table)) (define gx#phi-context:::init!__% - (lambda (_self146156_ _id146157_ _super146158_) - (if (##fx< '3 (##structure-length _self146156_)) + (lambda (_self83639_ _id83640_ _super83641_) + (if (##fx< '3 (##structure-length _self83639_)) (begin (##unchecked-structure-set! - _self146156_ - _id146157_ + _self83639_ + _id83640_ '1 - (##structure-type _self146156_) + (##structure-type _self83639_) '#f) (##unchecked-structure-set! - _self146156_ - (make-table 'test: eq?) + _self83639_ + (make-hash-table-eq) '2 - (##structure-type _self146156_) + (##structure-type _self83639_) '#f) (##unchecked-structure-set! - _self146156_ - _super146158_ + _self83639_ + _super83641_ '3 - (##structure-type _self146156_) + (##structure-type _self83639_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self146156_ + _self83639_ '3 - (##vector-length _self146156_))))) + (##vector-length _self83639_))))) (define gx#phi-context:::init!__0 - (lambda (_self146163_ _id146164_) - (let ((_super146166_ (gx#current-expander-context))) - (gx#phi-context:::init!__% _self146163_ _id146164_ _super146166_)))) + (lambda (_self83646_ _id83647_) + (let ((_super83649_ (gx#current-expander-context))) + (gx#phi-context:::init!__% _self83646_ _id83647_ _super83649_)))) (define gx#phi-context:::init! - (lambda _g150801_ - (let ((_g150800_ (##length _g150801_))) - (cond ((##fx= _g150800_ 2) - (apply (lambda (_self146163_ _id146164_) - (gx#phi-context:::init!__0 _self146163_ _id146164_)) - _g150801_)) - ((##fx= _g150800_ 3) - (apply (lambda (_self146168_ _id146169_ _super146170_) + (lambda _g83716_ + (let ((_g83715_ (##length _g83716_))) + (cond ((##fx= _g83715_ 2) + (apply (lambda (_self83646_ _id83647_) + (gx#phi-context:::init!__0 _self83646_ _id83647_)) + _g83716_)) + ((##fx= _g83715_ 3) + (apply (lambda (_self83651_ _id83652_ _super83653_) (gx#phi-context:::init!__% - _self146168_ - _id146169_ - _super146170_)) - _g150801_)) + _self83651_ + _id83652_ + _super83653_)) + _g83716_)) (else (##raise-wrong-number-of-arguments-exception gx#phi-context:::init! - _g150801_)))))) - (bind-method! gx#phi-context::t ':init! gx#phi-context:::init! '#f) + _g83716_)))))) + (bind-method!__% gx#phi-context::t ':init! gx#phi-context:::init! '#f) (define gx#local-context:::init!__% - (lambda (_self146020_ _super146021_) - (if (##fx< '3 (##structure-length _self146020_)) + (lambda (_self83503_ _super83504_) + (if (##fx< '3 (##structure-length _self83503_)) (begin (##unchecked-structure-set! - _self146020_ + _self83503_ (gensym 'L) '1 - (##structure-type _self146020_) + (##structure-type _self83503_) '#f) (##unchecked-structure-set! - _self146020_ - (make-table 'test: eq?) + _self83503_ + (make-hash-table-eq) '2 - (##structure-type _self146020_) + (##structure-type _self83503_) '#f) (##unchecked-structure-set! - _self146020_ - _super146021_ + _self83503_ + _super83504_ '3 - (##structure-type _self146020_) + (##structure-type _self83503_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self146020_ + _self83503_ '3 - (##vector-length _self146020_))))) + (##vector-length _self83503_))))) (define gx#local-context:::init!__0 - (lambda (_self146026_) - (let ((_super146028_ (gx#current-expander-context))) - (gx#local-context:::init!__% _self146026_ _super146028_)))) + (lambda (_self83509_) + (let ((_super83511_ (gx#current-expander-context))) + (gx#local-context:::init!__% _self83509_ _super83511_)))) (define gx#local-context:::init! - (lambda _g150803_ - (let ((_g150802_ (##length _g150803_))) - (cond ((##fx= _g150802_ 1) - (apply (lambda (_self146026_) - (gx#local-context:::init!__0 _self146026_)) - _g150803_)) - ((##fx= _g150802_ 2) - (apply (lambda (_self146030_ _super146031_) + (lambda _g83718_ + (let ((_g83717_ (##length _g83718_))) + (cond ((##fx= _g83717_ 1) + (apply (lambda (_self83509_) + (gx#local-context:::init!__0 _self83509_)) + _g83718_)) + ((##fx= _g83717_ 2) + (apply (lambda (_self83513_ _super83514_) (gx#local-context:::init!__% - _self146030_ - _super146031_)) - _g150803_)) + _self83513_ + _super83514_)) + _g83718_)) (else (##raise-wrong-number-of-arguments-exception gx#local-context:::init! - _g150803_)))))) - (bind-method! gx#local-context::t ':init! gx#local-context:::init! '#f) + _g83718_)))))) + (bind-method!__% gx#local-context::t ':init! gx#local-context:::init! '#f) (define gx#binding::t (make-class-type 'gx#binding::t @@ -509,7 +509,7 @@ '#f)) (define gx#binding? (make-class-predicate gx#binding::t)) (define gx#make-binding - (lambda _$args145894_ (apply make-instance gx#binding::t _$args145894_))) + (lambda _$args83377_ (apply make-instance gx#binding::t _$args83377_))) (define gx#binding-id (make-class-slot-accessor gx#binding::t 'id)) (define gx#binding-key (make-class-slot-accessor gx#binding::t 'key)) (define gx#binding-phi (make-class-slot-accessor gx#binding::t 'phi)) @@ -538,8 +538,8 @@ '#f)) (define gx#runtime-binding? (make-class-predicate gx#runtime-binding::t)) (define gx#make-runtime-binding - (lambda _$args145891_ - (apply make-instance gx#runtime-binding::t _$args145891_))) + (lambda _$args83374_ + (apply make-instance gx#runtime-binding::t _$args83374_))) (define gx#runtime-binding-id (make-class-slot-accessor gx#runtime-binding::t 'id)) (define gx#runtime-binding-key @@ -574,8 +574,8 @@ '#f)) (define gx#local-binding? (make-class-predicate gx#local-binding::t)) (define gx#make-local-binding - (lambda _$args145888_ - (apply make-instance gx#local-binding::t _$args145888_))) + (lambda _$args83371_ + (apply make-instance gx#local-binding::t _$args83371_))) (define gx#local-binding-id (make-class-slot-accessor gx#local-binding::t 'id)) (define gx#local-binding-key @@ -610,8 +610,8 @@ '#f)) (define gx#top-binding? (make-class-predicate gx#top-binding::t)) (define gx#make-top-binding - (lambda _$args145885_ - (apply make-instance gx#top-binding::t _$args145885_))) + (lambda _$args83368_ + (apply make-instance gx#top-binding::t _$args83368_))) (define gx#top-binding-id (make-class-slot-accessor gx#top-binding::t 'id)) (define gx#top-binding-key (make-class-slot-accessor gx#top-binding::t 'key)) @@ -645,8 +645,8 @@ '#f)) (define gx#module-binding? (make-class-predicate gx#module-binding::t)) (define gx#make-module-binding - (lambda _$args145882_ - (apply make-instance gx#module-binding::t _$args145882_))) + (lambda _$args83365_ + (apply make-instance gx#module-binding::t _$args83365_))) (define gx#module-binding-context (make-class-slot-accessor gx#module-binding::t 'context)) (define gx#module-binding-id @@ -689,8 +689,8 @@ '#f)) (define gx#extern-binding? (make-class-predicate gx#extern-binding::t)) (define gx#make-extern-binding - (lambda _$args145879_ - (apply make-instance gx#extern-binding::t _$args145879_))) + (lambda _$args83362_ + (apply make-instance gx#extern-binding::t _$args83362_))) (define gx#extern-binding-id (make-class-slot-accessor gx#extern-binding::t 'id)) (define gx#extern-binding-key @@ -726,8 +726,8 @@ '#f)) (define gx#syntax-binding? (make-class-predicate gx#syntax-binding::t)) (define gx#make-syntax-binding - (lambda _$args145876_ - (apply make-instance gx#syntax-binding::t _$args145876_))) + (lambda _$args83359_ + (apply make-instance gx#syntax-binding::t _$args83359_))) (define gx#syntax-binding-e (make-class-slot-accessor gx#syntax-binding::t 'e)) (define gx#syntax-binding-id @@ -771,8 +771,8 @@ '#f)) (define gx#import-binding? (make-class-predicate gx#import-binding::t)) (define gx#make-import-binding - (lambda _$args145873_ - (apply make-instance gx#import-binding::t _$args145873_))) + (lambda _$args83356_ + (apply make-instance gx#import-binding::t _$args83356_))) (define gx#import-binding-e (make-class-slot-accessor gx#import-binding::t 'e)) (define gx#import-binding-context @@ -832,8 +832,8 @@ '#f)) (define gx#alias-binding? (make-class-predicate gx#alias-binding::t)) (define gx#make-alias-binding - (lambda _$args145870_ - (apply make-instance gx#alias-binding::t _$args145870_))) + (lambda _$args83353_ + (apply make-instance gx#alias-binding::t _$args83353_))) (define gx#alias-binding-e (make-class-slot-accessor gx#alias-binding::t 'e)) (define gx#alias-binding-id @@ -876,8 +876,7 @@ '#f)) (define gx#expander? (make-class-predicate gx#expander::t)) (define gx#make-expander - (lambda _$args145867_ - (apply make-instance gx#expander::t _$args145867_))) + (lambda _$args83350_ (apply make-instance gx#expander::t _$args83350_))) (define gx#expander-e (make-class-slot-accessor gx#expander::t 'e)) (define gx#expander-e-set! (make-class-slot-mutator gx#expander::t 'e)) (define gx#&expander-e @@ -894,8 +893,8 @@ '#f)) (define gx#core-expander? (make-class-predicate gx#core-expander::t)) (define gx#make-core-expander - (lambda _$args145864_ - (apply make-instance gx#core-expander::t _$args145864_))) + (lambda _$args83347_ + (apply make-instance gx#core-expander::t _$args83347_))) (define gx#core-expander-id (make-class-slot-accessor gx#core-expander::t 'id)) (define gx#core-expander-compile-top @@ -930,8 +929,8 @@ '#f)) (define gx#expression-form? (make-class-predicate gx#expression-form::t)) (define gx#make-expression-form - (lambda _$args145861_ - (apply make-instance gx#expression-form::t _$args145861_))) + (lambda _$args83344_ + (apply make-instance gx#expression-form::t _$args83344_))) (define gx#expression-form-id (make-class-slot-accessor gx#expression-form::t 'id)) (define gx#expression-form-compile-top @@ -966,8 +965,8 @@ '#f)) (define gx#special-form? (make-class-predicate gx#special-form::t)) (define gx#make-special-form - (lambda _$args145858_ - (apply make-instance gx#special-form::t _$args145858_))) + (lambda _$args83341_ + (apply make-instance gx#special-form::t _$args83341_))) (define gx#special-form-id (make-class-slot-accessor gx#special-form::t 'id)) (define gx#special-form-compile-top @@ -1001,8 +1000,8 @@ '#f)) (define gx#definition-form? (make-class-predicate gx#definition-form::t)) (define gx#make-definition-form - (lambda _$args145855_ - (apply make-instance gx#definition-form::t _$args145855_))) + (lambda _$args83338_ + (apply make-instance gx#definition-form::t _$args83338_))) (define gx#definition-form-id (make-class-slot-accessor gx#definition-form::t 'id)) (define gx#definition-form-compile-top @@ -1037,8 +1036,8 @@ '#f)) (define gx#top-special-form? (make-class-predicate gx#top-special-form::t)) (define gx#make-top-special-form - (lambda _$args145852_ - (apply make-instance gx#top-special-form::t _$args145852_))) + (lambda _$args83335_ + (apply make-instance gx#top-special-form::t _$args83335_))) (define gx#top-special-form-id (make-class-slot-accessor gx#top-special-form::t 'id)) (define gx#top-special-form-compile-top @@ -1074,8 +1073,8 @@ (define gx#module-special-form? (make-class-predicate gx#module-special-form::t)) (define gx#make-module-special-form - (lambda _$args145849_ - (apply make-instance gx#module-special-form::t _$args145849_))) + (lambda _$args83332_ + (apply make-instance gx#module-special-form::t _$args83332_))) (define gx#module-special-form-id (make-class-slot-accessor gx#module-special-form::t 'id)) (define gx#module-special-form-compile-top @@ -1114,8 +1113,8 @@ '#f)) (define gx#feature-expander? (make-class-predicate gx#feature-expander::t)) (define gx#make-feature-expander - (lambda _$args145846_ - (apply make-instance gx#feature-expander::t _$args145846_))) + (lambda _$args83329_ + (apply make-instance gx#feature-expander::t _$args83329_))) (define gx#feature-expander-e (make-class-slot-accessor gx#feature-expander::t 'e)) (define gx#feature-expander-e-set! @@ -1135,8 +1134,8 @@ (define gx#private-feature-expander? (make-class-predicate gx#private-feature-expander::t)) (define gx#make-private-feature-expander - (lambda _$args145843_ - (apply make-instance gx#private-feature-expander::t _$args145843_))) + (lambda _$args83326_ + (apply make-instance gx#private-feature-expander::t _$args83326_))) (define gx#private-feature-expander-e (make-class-slot-accessor gx#private-feature-expander::t 'e)) (define gx#private-feature-expander-e-set! @@ -1156,8 +1155,8 @@ (define gx#reserved-expander? (make-class-predicate gx#reserved-expander::t)) (define gx#make-reserved-expander - (lambda _$args145840_ - (apply make-instance gx#reserved-expander::t _$args145840_))) + (lambda _$args83323_ + (apply make-instance gx#reserved-expander::t _$args83323_))) (define gx#reserved-expander-e (make-class-slot-accessor gx#reserved-expander::t 'e)) (define gx#reserved-expander-e-set! @@ -1176,8 +1175,8 @@ '#f)) (define gx#macro-expander? (make-class-predicate gx#macro-expander::t)) (define gx#make-macro-expander - (lambda _$args145837_ - (apply make-instance gx#macro-expander::t _$args145837_))) + (lambda _$args83320_ + (apply make-instance gx#macro-expander::t _$args83320_))) (define gx#macro-expander-e (make-class-slot-accessor gx#macro-expander::t 'e)) (define gx#macro-expander-e-set! @@ -1197,8 +1196,8 @@ (define gx#rename-macro-expander? (make-class-predicate gx#rename-macro-expander::t)) (define gx#make-rename-macro-expander - (lambda _$args145834_ - (apply make-instance gx#rename-macro-expander::t _$args145834_))) + (lambda _$args83317_ + (apply make-instance gx#rename-macro-expander::t _$args83317_))) (define gx#rename-macro-expander-e (make-class-slot-accessor gx#rename-macro-expander::t 'e)) (define gx#rename-macro-expander-e-set! @@ -1217,8 +1216,8 @@ '#f)) (define gx#user-expander? (make-class-predicate gx#user-expander::t)) (define gx#make-user-expander - (lambda _$args145831_ - (apply make-instance gx#user-expander::t _$args145831_))) + (lambda _$args83314_ + (apply make-instance gx#user-expander::t _$args83314_))) (define gx#user-expander-context (make-class-slot-accessor gx#user-expander::t 'context)) (define gx#user-expander-phi @@ -1253,8 +1252,8 @@ '#f)) (define gx#expander-mark? (make-class-predicate gx#expander-mark::t)) (define gx#make-expander-mark - (lambda _$args145828_ - (apply make-instance gx#expander-mark::t _$args145828_))) + (lambda _$args83311_ + (apply make-instance gx#expander-mark::t _$args83311_))) (define gx#expander-mark-subst (make-class-slot-accessor gx#expander-mark::t 'subst)) (define gx#expander-mark-context @@ -1288,1575 +1287,1529 @@ (define gx#&expander-mark-trace-set! (make-class-slot-unchecked-mutator gx#expander-mark::t 'trace)) (define gx#raise-syntax-error - (lambda (_ctx145813_ _message145814_ _stx145815_ . _details145816_) - (let ((_ctx145826_ - (let ((_$e145818_ _ctx145813_)) - (if _$e145818_ - _$e145818_ - (let ((_$e145821_ (gx#core-context-top__0))) - (if _$e145821_ - ((lambda (_ctx145824_) + (lambda (_ctx83296_ _message83297_ _stx83298_ . _details83299_) + (let ((_ctx83309_ + (let ((_$e83301_ _ctx83296_)) + (if _$e83301_ + _$e83301_ + (let ((_$e83304_ (gx#core-context-top__0))) + (if _$e83304_ + ((lambda (_ctx83307_) (cons 'expand (cons (##structure-ref - _ctx145824_ + _ctx83307_ '1 gx#expander-context::t '#f) '()))) - _$e145821_) + _$e83304_) '#f)))))) (raise (make-syntax-error - _message145814_ - (cons _stx145815_ _details145816_) - _ctx145826_ + _message83297_ + (cons _stx83298_ _details83299_) + _ctx83309_ (gx#current-expander-context) (gx#current-expander-marks) (gx#current-expander-phi)))))) (define gx#eval-syntax__% - (lambda (_stx145800_ _expression?145801_) - (gx#eval-syntax* (gx#core-expand__% _stx145800_ _expression?145801_)))) + (lambda (_stx83283_ _expression?83284_) + (gx#eval-syntax* (gx#core-expand__% _stx83283_ _expression?83284_)))) (define gx#eval-syntax__0 - (lambda (_stx145806_) - (let ((_expression?145808_ '#f)) - (gx#eval-syntax__% _stx145806_ _expression?145808_)))) + (lambda (_stx83289_) + (let ((_expression?83291_ '#f)) + (gx#eval-syntax__% _stx83289_ _expression?83291_)))) (define gx#eval-syntax - (lambda _g150805_ - (let ((_g150804_ (##length _g150805_))) - (cond ((##fx= _g150804_ 1) - (apply (lambda (_stx145806_) (gx#eval-syntax__0 _stx145806_)) - _g150805_)) - ((##fx= _g150804_ 2) - (apply (lambda (_stx145810_ _expression?145811_) - (gx#eval-syntax__% _stx145810_ _expression?145811_)) - _g150805_)) + (lambda _g83720_ + (let ((_g83719_ (##length _g83720_))) + (cond ((##fx= _g83719_ 1) + (apply (lambda (_stx83289_) (gx#eval-syntax__0 _stx83289_)) + _g83720_)) + ((##fx= _g83719_ 2) + (apply (lambda (_stx83293_ _expression?83294_) + (gx#eval-syntax__% _stx83293_ _expression?83294_)) + _g83720_)) (else (##raise-wrong-number-of-arguments-exception gx#eval-syntax - _g150805_)))))) + _g83720_)))))) (define gx#eval-syntax* - (lambda (_stx145797_) + (lambda (_stx83280_) ((gx#current-expander-eval) - ((gx#current-expander-compile) _stx145797_)))) + ((gx#current-expander-compile) _stx83280_)))) (define gx#core-expand__% - (lambda (_stx145784_ _expression?145785_) - (if _expression?145785_ - (gx#core-expand-expression _stx145784_) - (gx#core-expand-top _stx145784_)))) + (lambda (_stx83267_ _expression?83268_) + (if _expression?83268_ + (gx#core-expand-expression _stx83267_) + (gx#core-expand-top _stx83267_)))) (define gx#core-expand__0 - (lambda (_stx145790_) - (let ((_expression?145792_ '#f)) - (gx#core-expand__% _stx145790_ _expression?145792_)))) + (lambda (_stx83273_) + (let ((_expression?83275_ '#f)) + (gx#core-expand__% _stx83273_ _expression?83275_)))) (define gx#core-expand - (lambda _g150807_ - (let ((_g150806_ (##length _g150807_))) - (cond ((##fx= _g150806_ 1) - (apply (lambda (_stx145790_) (gx#core-expand__0 _stx145790_)) - _g150807_)) - ((##fx= _g150806_ 2) - (apply (lambda (_stx145794_ _expression?145795_) - (gx#core-expand__% _stx145794_ _expression?145795_)) - _g150807_)) + (lambda _g83722_ + (let ((_g83721_ (##length _g83722_))) + (cond ((##fx= _g83721_ 1) + (apply (lambda (_stx83273_) (gx#core-expand__0 _stx83273_)) + _g83722_)) + ((##fx= _g83721_ 2) + (apply (lambda (_stx83277_ _expression?83278_) + (gx#core-expand__% _stx83277_ _expression?83278_)) + _g83722_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand - _g150807_)))))) + _g83722_)))))) (define gx#core-expand-top - (lambda (_stx145751_) - (let* ((_stx145753_ (gx#core-expand*__0 _stx145751_)) - (_e145754145761_ _stx145753_) - (_E145756145765_ - (lambda () (gx#core-expand-expression _stx145753_))) - (_E145755145779_ + (lambda (_stx83234_) + (let* ((_stx83236_ (gx#core-expand*__0 _stx83234_)) + (_e8323783244_ _stx83236_) + (_E8323983248_ + (lambda () (gx#core-expand-expression _stx83236_))) + (_E8323883262_ (lambda () - (if (gx#stx-pair? _e145754145761_) - (let ((_e145757145769_ (gx#syntax-e _e145754145761_))) - (let ((_hd145758145772_ (##car _e145757145769_)) - (_tl145759145774_ (##cdr _e145757145769_))) - (let ((_form145777_ _hd145758145772_)) - (if (gx#core-bound-identifier?__0 _form145777_) - _stx145753_ - (_E145756145765_))))) - (_E145756145765_))))) - (_E145755145779_)))) + (if (gx#stx-pair? _e8323783244_) + (let ((_e8324083252_ (gx#syntax-e _e8323783244_))) + (let ((_hd8324183255_ (##car _e8324083252_)) + (_tl8324283257_ (##cdr _e8324083252_))) + (let ((_form83260_ _hd8324183255_)) + (if (gx#core-bound-identifier?__0 _form83260_) + _stx83236_ + (_E8323983248_))))) + (_E8323983248_))))) + (_E8323883262_)))) (define gx#core-expand-expression - (lambda (_stx145698_) - (letrec ((_sealed-expression?145700_ - (lambda (_hd145721_) - (if (gx#sealed-syntax? _hd145721_) - (let* ((_e145722145729_ _hd145721_) - (_E145724145733_ (lambda () '#f)) - (_E145723145747_ + (lambda (_stx83181_) + (letrec ((_sealed-expression?83183_ + (lambda (_hd83204_) + (if (gx#sealed-syntax? _hd83204_) + (let* ((_e8320583212_ _hd83204_) + (_E8320783216_ (lambda () '#f)) + (_E8320683230_ (lambda () - (if (gx#stx-pair? _e145722145729_) - (let ((_e145725145737_ - (gx#syntax-e _e145722145729_))) - (let ((_hd145726145740_ - (##car _e145725145737_)) - (_tl145727145742_ - (##cdr _e145725145737_))) - (let ((_form145745_ - _hd145726145740_)) + (if (gx#stx-pair? _e8320583212_) + (let ((_e8320883220_ + (gx#syntax-e _e8320583212_))) + (let ((_hd8320983223_ + (##car _e8320883220_)) + (_tl8321083225_ + (##cdr _e8320883220_))) + (let ((_form83228_ _hd8320983223_)) (if '#t (gx#core-bound-identifier?__% - _form145745_ + _form83228_ gx#expression-form-binding?) - (_E145724145733_))))) - (_E145724145733_))))) - (_E145723145747_)) + (_E8320783216_))))) + (_E8320783216_))))) + (_E8320683230_)) '#f))) - (_illegal-expression145701_ - (lambda (_hd145719_ . _g150808_) + (_illegal-expression83184_ + (lambda (_hd83202_ . _g83723_) (gx#raise-syntax-error '#f '"Bad syntax; illegal expression" - _stx145698_ - _hd145719_))) - (_expand-e145702_ - (lambda (_form145714_ _hd145715_) - (let ((_bind145717_ + _stx83181_ + _hd83202_))) + (_expand-e83185_ + (lambda (_form83197_ _hd83198_) + (let ((_bind83200_ (if (##structure-instance-of? - _form145714_ + _form83197_ 'gx#binding::t) - _form145714_ - (gx#resolve-identifier__0 _form145714_)))) - (if (gx#core-expander-binding? _bind145717_) + _form83197_ + (gx#resolve-identifier__0 _form83197_)))) + (if (gx#core-expander-binding? _bind83200_) (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind145717_ + _bind83200_ '4 gx#syntax-binding::t '#f) (gx#stx-wrap-source - _hd145715_ - (gx#stx-source _stx145698_))) + _hd83198_ + (gx#stx-source _stx83181_))) (if (##structure-direct-instance-of? - _bind145717_ + _bind83200_ 'gx#syntax-binding::t) (gx#core-expand-expression (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind145717_ + _bind83200_ '4 gx#syntax-binding::t '#f) (gx#stx-wrap-source - _hd145715_ - (gx#stx-source _stx145698_)))) + _hd83198_ + (gx#stx-source _stx83181_)))) (gx#raise-syntax-error '#f '"Bad syntax; missing expander" - _stx145698_ - _form145714_))))))) - (let ((_hd145704_ (gx#core-expand-head _stx145698_))) - (if (_sealed-expression?145700_ _hd145704_) - _hd145704_ - (if (gx#stx-pair? _hd145704_) - (let* ((_form145706_ (gx#stx-car _hd145704_)) - (_bind145708_ - (if (gx#identifier? _form145706_) - (gx#resolve-identifier__0 _form145706_) + _stx83181_ + _form83197_))))))) + (let ((_hd83187_ (gx#core-expand-head _stx83181_))) + (if (_sealed-expression?83183_ _hd83187_) + _hd83187_ + (if (gx#stx-pair? _hd83187_) + (let* ((_form83189_ (gx#stx-car _hd83187_)) + (_bind83191_ + (if (gx#identifier? _form83189_) + (gx#resolve-identifier__0 _form83189_) '#f))) - (if (or (not _bind145708_) - (not (gx#core-expander-binding? _bind145708_))) - (_expand-e145702_ '%%app (cons '%%app _hd145704_)) + (if (or (not _bind83191_) + (not (gx#core-expander-binding? _bind83191_))) + (_expand-e83185_ '%%app (cons '%%app _hd83187_)) (if (eq? (##unchecked-structure-ref - _bind145708_ + _bind83191_ '1 gx#binding::t '#f) '%#begin) (gx#core-expand-block* - _hd145704_ - _illegal-expression145701_) - (if (gx#expression-form-binding? _bind145708_) - (_expand-e145702_ _bind145708_ _hd145704_) + _hd83187_ + _illegal-expression83184_) + (if (gx#expression-form-binding? _bind83191_) + (_expand-e83185_ _bind83191_ _hd83187_) (if (gx#direct-special-form-binding? - _bind145708_) + _bind83191_) (gx#core-expand-expression - (_expand-e145702_ - _bind145708_ - _hd145704_)) - (_illegal-expression145701_ - _hd145704_)))))) - (if (gx#core-bound-identifier?__0 _hd145704_) - (_illegal-expression145701_ _hd145704_) - (if (gx#identifier? _hd145704_) - (_expand-e145702_ + (_expand-e83185_ _bind83191_ _hd83187_)) + (_illegal-expression83184_ + _hd83187_)))))) + (if (gx#core-bound-identifier?__0 _hd83187_) + (_illegal-expression83184_ _hd83187_) + (if (gx#identifier? _hd83187_) + (_expand-e83185_ '%%ref - (cons '%%ref (cons _hd145704_ '()))) - (if (gx#stx-datum? _hd145704_) - (_expand-e145702_ + (cons '%%ref (cons _hd83187_ '()))) + (if (gx#stx-datum? _hd83187_) + (_expand-e83185_ '%#quote - (cons '%#quote (cons _hd145704_ '()))) - (_illegal-expression145701_ - _hd145704_)))))))))) + (cons '%#quote (cons _hd83187_ '()))) + (_illegal-expression83184_ _hd83187_)))))))))) (define gx#core-expand-expression+1 - (lambda (_stx145693_) + (lambda (_stx83176_) (call-with-parameters (lambda () - (let ((_stx145696_ (gx#core-expand-expression _stx145693_))) - (values _stx145696_ (gx#eval-syntax* _stx145696_)))) + (let ((_stx83179_ (gx#core-expand-expression _stx83176_))) + (values _stx83179_ (gx#eval-syntax* _stx83179_)))) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1)))) (define gx#core-expand*__% - (lambda (_stx145674_ _stop?145675_) - (let _lp145677_ ((_stx145679_ _stx145674_)) - (if (_stop?145675_ _stx145679_) - _stx145679_ - (let ((_rstx145681_ (gx#core-expand1 _stx145679_))) - (if (eq? _stx145679_ _rstx145681_) - _stx145679_ - (_lp145677_ _rstx145681_))))))) + (lambda (_stx83157_ _stop?83158_) + (let _lp83160_ ((_stx83162_ _stx83157_)) + (if (_stop?83158_ _stx83162_) + _stx83162_ + (let ((_rstx83164_ (gx#core-expand1 _stx83162_))) + (if (eq? _stx83162_ _rstx83164_) + _stx83162_ + (_lp83160_ _rstx83164_))))))) (define gx#core-expand*__0 - (lambda (_stx145686_) - (let ((_stop?145688_ false)) - (gx#core-expand*__% _stx145686_ _stop?145688_)))) + (lambda (_stx83169_) + (let ((_stop?83171_ false)) + (gx#core-expand*__% _stx83169_ _stop?83171_)))) (define gx#core-expand* - (lambda _g150810_ - (let ((_g150809_ (##length _g150810_))) - (cond ((##fx= _g150809_ 1) - (apply (lambda (_stx145686_) (gx#core-expand*__0 _stx145686_)) - _g150810_)) - ((##fx= _g150809_ 2) - (apply (lambda (_stx145690_ _stop?145691_) - (gx#core-expand*__% _stx145690_ _stop?145691_)) - _g150810_)) + (lambda _g83725_ + (let ((_g83724_ (##length _g83725_))) + (cond ((##fx= _g83724_ 1) + (apply (lambda (_stx83169_) (gx#core-expand*__0 _stx83169_)) + _g83725_)) + ((##fx= _g83724_ 2) + (apply (lambda (_stx83173_ _stop?83174_) + (gx#core-expand*__% _stx83173_ _stop?83174_)) + _g83725_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand* - _g150810_)))))) + _g83725_)))))) (define gx#core-expand1 - (lambda (_stx145630_) - (letrec ((_step145632_ - (lambda (_hd145669_) - (let ((_bind145671_ (gx#resolve-identifier__0 _hd145669_))) + (lambda (_stx83113_) + (letrec ((_step83115_ + (lambda (_hd83152_) + (let ((_bind83154_ (gx#resolve-identifier__0 _hd83152_))) (if (##structure-instance-of? - _bind145671_ + _bind83154_ 'gx#runtime-binding::t) - _stx145630_ + _stx83113_ (if (##structure-direct-instance-of? - _bind145671_ + _bind83154_ 'gx#syntax-binding::t) (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind145671_ + _bind83154_ '4 gx#syntax-binding::t '#f) - _stx145630_) - (if (not _bind145671_) - _stx145630_ + _stx83113_) + (if (not _bind83154_) + _stx83113_ (gx#raise-syntax-error '#f '"Bad syntax; no binding for head" - _stx145630_)))))))) - (let* ((_e145633145641_ _stx145630_) - (_E145639145645_ (lambda () _stx145630_)) - (_E145635145651_ + _stx83113_)))))))) + (let* ((_e8311683124_ _stx83113_) + (_E8312283128_ (lambda () _stx83113_)) + (_E8311883134_ (lambda () - (let ((_hd145649_ _e145633145641_)) - (if (gx#identifier? _hd145649_) - (_step145632_ _hd145649_) - (_E145639145645_))))) - (_E145634145665_ + (let ((_hd83132_ _e8311683124_)) + (if (gx#identifier? _hd83132_) + (_step83115_ _hd83132_) + (_E8312283128_))))) + (_E8311783148_ (lambda () - (if (gx#stx-pair? _e145633145641_) - (let ((_e145636145655_ (gx#syntax-e _e145633145641_))) - (let ((_hd145637145658_ (##car _e145636145655_)) - (_tl145638145660_ (##cdr _e145636145655_))) - (let ((_hd145663_ _hd145637145658_)) - (if (gx#identifier? _hd145663_) - (_step145632_ _hd145663_) - (_E145635145651_))))) - (_E145635145651_))))) - (_E145634145665_))))) + (if (gx#stx-pair? _e8311683124_) + (let ((_e8311983138_ (gx#syntax-e _e8311683124_))) + (let ((_hd8312083141_ (##car _e8311983138_)) + (_tl8312183143_ (##cdr _e8311983138_))) + (let ((_hd83146_ _hd8312083141_)) + (if (gx#identifier? _hd83146_) + (_step83115_ _hd83146_) + (_E8311883134_))))) + (_E8311883134_))))) + (_E8311783148_))))) (define gx#core-expand-head - (lambda (_stx145596_) - (letrec ((_stop?145598_ - (lambda (_stx145600_) - (let* ((_e145601145608_ _stx145600_) - (_E145603145612_ (lambda () '#f)) - (_E145602145626_ + (lambda (_stx83079_) + (letrec ((_stop?83081_ + (lambda (_stx83083_) + (let* ((_e8308483091_ _stx83083_) + (_E8308683095_ (lambda () '#f)) + (_E8308583109_ (lambda () - (if (gx#stx-pair? _e145601145608_) - (let ((_e145604145616_ - (gx#syntax-e _e145601145608_))) - (let ((_hd145605145619_ - (##car _e145604145616_)) - (_tl145606145621_ - (##cdr _e145604145616_))) - (let ((_hd145624_ _hd145605145619_)) + (if (gx#stx-pair? _e8308483091_) + (let ((_e8308783099_ + (gx#syntax-e _e8308483091_))) + (let ((_hd8308883102_ + (##car _e8308783099_)) + (_tl8308983104_ + (##cdr _e8308783099_))) + (let ((_hd83107_ _hd8308883102_)) (if '#t (gx#core-bound-identifier?__0 - _hd145624_) - (_E145603145612_))))) - (_E145603145612_))))) - (_E145602145626_))))) - (gx#core-expand*__% _stx145596_ _stop?145598_)))) + _hd83107_) + (_E8308683095_))))) + (_E8308683095_))))) + (_E8308583109_))))) + (gx#core-expand*__% _stx83079_ _stop?83081_)))) (define gx#core-expand-block__% - (lambda (_stx145402_ - _expand-special145403_ - _begin-form145404_ - _expand-e145405_) - (letrec ((_expand-splice145407_ - (lambda (_hd145570_ _body145571_ _rest145572_ _r145573_) - (if (gx#stx-list? _body145571_) - (_K145411_ - (gx#stx-foldr cons _rest145572_ _body145571_) - _r145573_) + (lambda (_stx82885_ + _expand-special82886_ + _begin-form82887_ + _expand-e82888_) + (letrec ((_expand-splice82890_ + (lambda (_hd83053_ _body83054_ _rest83055_ _r83056_) + (if (gx#stx-list? _body83054_) + (_K82894_ + (gx#stx-foldr cons _rest83055_ _body83054_) + _r83056_) (gx#raise-syntax-error '#f '"Bad syntax; splice body isn't a list" - _stx145402_ - _hd145570_)))) - (_expand-cond-expand145408_ - (lambda (_hd145566_ _rest145567_ _r145568_) - (_K145411_ - (cons (gx#core-expand-cond-expand% _hd145566_) - _rest145567_) - _r145568_))) - (_expand-include145409_ - (lambda (_hd145515_ _rest145516_ _r145517_) - (let* ((_e145518145528_ _hd145515_) - (_E145520145532_ + _stx82885_ + _hd83053_)))) + (_expand-cond-expand82891_ + (lambda (_hd83049_ _rest83050_ _r83051_) + (_K82894_ + (cons (gx#core-expand-cond-expand% _hd83049_) _rest83050_) + _r83051_))) + (_expand-include82892_ + (lambda (_hd82998_ _rest82999_ _r83000_) + (let* ((_e8300183011_ _hd82998_) + (_E8300383015_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e145518145528_))) - (_E145519145562_ + _e8300183011_))) + (_E8300283045_ (lambda () - (if (gx#stx-pair? _e145518145528_) - (let ((_e145521145536_ - (gx#syntax-e _e145518145528_))) - (let ((_hd145522145539_ - (##car _e145521145536_)) - (_tl145523145541_ - (##cdr _e145521145536_))) - (if (gx#stx-pair? _tl145523145541_) - (let ((_e145524145544_ - (gx#syntax-e - _tl145523145541_))) - (let ((_hd145525145547_ - (##car _e145524145544_)) - (_tl145526145549_ - (##cdr _e145524145544_))) - (let ((_path145552_ - _hd145525145547_)) + (if (gx#stx-pair? _e8300183011_) + (let ((_e8300483019_ + (gx#syntax-e _e8300183011_))) + (let ((_hd8300583022_ + (##car _e8300483019_)) + (_tl8300683024_ + (##cdr _e8300483019_))) + (if (gx#stx-pair? _tl8300683024_) + (let ((_e8300783027_ + (gx#syntax-e _tl8300683024_))) + (let ((_hd8300883030_ + (##car _e8300783027_)) + (_tl8300983032_ + (##cdr _e8300783027_))) + (let ((_path83035_ + _hd8300883030_)) (if (gx#stx-null? - _tl145526145549_) + _tl8300983032_) (if (gx#stx-string? - _path145552_) - (let* ((_rpath145554_ + _path83035_) + (let* ((_rpath83037_ (gx#core-resolve-path__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _path145552_ - (gx#stx-source _hd145515_))) - (_block145556_ - (gx#core-expand-include%__% _hd145515_ _rpath145554_)) - (_rbody145559_ + _path83035_ + (gx#stx-source _hd82998_))) + (_block83039_ + (gx#core-expand-include%__% _hd82998_ _rpath83037_)) + (_rbody83042_ (call-with-parameters (lambda () (gx#core-expand-block__% - _block145556_ - _expand-special145403_ + _block83039_ + _expand-special82886_ '#f - _expand-e145405_)) + _expand-e82888_)) gx#current-expander-path - (cons _rpath145554_ (gx#current-expander-path))))) - (_K145411_ - _rest145516_ - (foldr1 cons _r145517_ _rbody145559_))) - (_E145520145532_)) + (cons _rpath83037_ (gx#current-expander-path))))) + (_K82894_ _rest82999_ (foldr1 cons _r83000_ _rbody83042_))) + (_E8300383015_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E145520145532_))))) - (_E145520145532_)))) - (_E145520145532_))))) - (_E145519145562_)))) - (_expand-expression145410_ - (lambda (_hd145511_ _rest145512_ _r145513_) - (_K145411_ - _rest145512_ - (cons (_expand-e145405_ _hd145511_) _r145513_)))) - (_K145411_ - (lambda (_rest145441_ _r145442_) - (let* ((_e145443145450_ _rest145441_) - (_E145445145454_ + (_E8300383015_))))) + (_E8300383015_)))) + (_E8300383015_))))) + (_E8300283045_)))) + (_expand-expression82893_ + (lambda (_hd82994_ _rest82995_ _r82996_) + (_K82894_ + _rest82995_ + (cons (_expand-e82888_ _hd82994_) _r82996_)))) + (_K82894_ + (lambda (_rest82924_ _r82925_) + (let* ((_e8292682933_ _rest82924_) + (_E8292882937_ (lambda () - (if _begin-form145404_ + (if _begin-form82887_ (gx#core-quote-syntax__1 (gx#core-cons - _begin-form145404_ - (reverse _r145442_)) - (gx#stx-source _stx145402_)) - _r145442_))) - (_E145444145507_ + _begin-form82887_ + (reverse _r82925_)) + (gx#stx-source _stx82885_)) + _r82925_))) + (_E8292782990_ (lambda () - (if (gx#stx-pair? _e145443145450_) - (let ((_e145446145458_ - (gx#syntax-e _e145443145450_))) - (let ((_hd145447145461_ - (##car _e145446145458_)) - (_tl145448145463_ - (##cdr _e145446145458_))) - (let* ((_hd145466_ _hd145447145461_) - (_rest145468_ _tl145448145463_)) + (if (gx#stx-pair? _e8292682933_) + (let ((_e8292982941_ + (gx#syntax-e _e8292682933_))) + (let ((_hd8293082944_ + (##car _e8292982941_)) + (_tl8293182946_ + (##cdr _e8292982941_))) + (let* ((_hd82949_ _hd8293082944_) + (_rest82951_ _tl8293182946_)) (if '#t - (let* ((_hd145470_ + (let* ((_hd82953_ (gx#core-expand-head - _hd145466_)) - (_e145471145478_ _hd145470_) - (_E145473145482_ + _hd82949_)) + (_e8295482961_ _hd82953_) + (_E8295682965_ (lambda () - (_expand-expression145410_ - _hd145470_ - _rest145468_ - _r145442_))) - (_E145472145503_ + (_expand-expression82893_ + _hd82953_ + _rest82951_ + _r82925_))) + (_E8295582986_ (lambda () (if (gx#stx-pair? - _e145471145478_) - (let ((_e145474145486_ + _e8295482961_) + (let ((_e8295782969_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e145471145478_))) - (let ((_hd145475145489_ (##car _e145474145486_)) - (_tl145476145491_ (##cdr _e145474145486_))) - (let* ((_form145494_ _hd145475145489_) - (_body145496_ _tl145476145491_)) + (gx#syntax-e _e8295482961_))) + (let ((_hd8295882972_ (##car _e8295782969_)) + (_tl8295982974_ (##cdr _e8295782969_))) + (let* ((_form82977_ _hd8295882972_) + (_body82979_ _tl8295982974_)) (if '#t - (let ((_bind145498_ - (if (gx#identifier? _form145494_) - (gx#resolve-identifier__0 _form145494_) + (let ((_bind82981_ + (if (gx#identifier? _form82977_) + (gx#resolve-identifier__0 _form82977_) '#f))) - (if (gx#special-form-binding? _bind145498_) - (let ((_$e145500_ + (if (gx#special-form-binding? _bind82981_) + (let ((_$e82983_ (##unchecked-structure-ref - _bind145498_ + _bind82981_ '1 gx#binding::t '#f))) - (if (eq? '%#begin _$e145500_) - (_expand-splice145407_ - _hd145470_ - _body145496_ - _rest145468_ - _r145442_) - (if (eq? '%#cond-expand _$e145500_) - (_expand-cond-expand145408_ - _hd145470_ - _rest145468_ - _r145442_) - (if (eq? '%#include _$e145500_) - (_expand-include145409_ - _hd145470_ - _rest145468_ - _r145442_) - (_expand-special145403_ - _hd145470_ - _K145411_ - _rest145468_ - _r145442_))))) - (_expand-expression145410_ - _hd145470_ - _rest145468_ - _r145442_))) - (_E145473145482_))))) - (_E145473145482_))))) + (if (eq? '%#begin _$e82983_) + (_expand-splice82890_ + _hd82953_ + _body82979_ + _rest82951_ + _r82925_) + (if (eq? '%#cond-expand _$e82983_) + (_expand-cond-expand82891_ + _hd82953_ + _rest82951_ + _r82925_) + (if (eq? '%#include _$e82983_) + (_expand-include82892_ + _hd82953_ + _rest82951_ + _r82925_) + (_expand-special82886_ + _hd82953_ + _K82894_ + _rest82951_ + _r82925_))))) + (_expand-expression82893_ + _hd82953_ + _rest82951_ + _r82925_))) + (_E8295682965_))))) + (_E8295682965_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E145472145503_)) - (_E145445145454_))))) - (_E145445145454_))))) - (_E145444145507_))))) - (let* ((_e145412145419_ _stx145402_) - (_E145414145423_ + (_E8295582986_)) + (_E8292882937_))))) + (_E8292882937_))))) + (_E8292782990_))))) + (let* ((_e8289582902_ _stx82885_) + (_E8289782906_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e145412145419_))) - (_E145413145437_ + _e8289582902_))) + (_E8289682920_ (lambda () - (if (gx#stx-pair? _e145412145419_) - (let ((_e145415145427_ (gx#syntax-e _e145412145419_))) - (let ((_hd145416145430_ (##car _e145415145427_)) - (_tl145417145432_ (##cdr _e145415145427_))) - (let ((_body145435_ _tl145417145432_)) - (if (gx#stx-list? _body145435_) - (_K145411_ _body145435_ '()) - (_E145414145423_))))) - (_E145414145423_))))) - (_E145413145437_))))) + (if (gx#stx-pair? _e8289582902_) + (let ((_e8289882910_ (gx#syntax-e _e8289582902_))) + (let ((_hd8289982913_ (##car _e8289882910_)) + (_tl8290082915_ (##cdr _e8289882910_))) + (let ((_body82918_ _tl8290082915_)) + (if (gx#stx-list? _body82918_) + (_K82894_ _body82918_ '()) + (_E8289782906_))))) + (_E8289782906_))))) + (_E8289682920_))))) (define gx#core-expand-block__0 - (lambda (_stx145578_ _expand-special145579_) - (let* ((_begin-form145581_ '%#begin) - (_expand-e145583_ gx#core-expand-expression)) + (lambda (_stx83061_ _expand-special83062_) + (let* ((_begin-form83064_ '%#begin) + (_expand-e83066_ gx#core-expand-expression)) (gx#core-expand-block__% - _stx145578_ - _expand-special145579_ - _begin-form145581_ - _expand-e145583_)))) + _stx83061_ + _expand-special83062_ + _begin-form83064_ + _expand-e83066_)))) (define gx#core-expand-block__1 - (lambda (_stx145585_ _expand-special145586_ _begin-form145587_) - (let ((_expand-e145589_ gx#core-expand-expression)) + (lambda (_stx83068_ _expand-special83069_ _begin-form83070_) + (let ((_expand-e83072_ gx#core-expand-expression)) (gx#core-expand-block__% - _stx145585_ - _expand-special145586_ - _begin-form145587_ - _expand-e145589_)))) + _stx83068_ + _expand-special83069_ + _begin-form83070_ + _expand-e83072_)))) (define gx#core-expand-block - (lambda _g150812_ - (let ((_g150811_ (##length _g150812_))) - (cond ((##fx= _g150811_ 2) - (apply (lambda (_stx145578_ _expand-special145579_) + (lambda _g83727_ + (let ((_g83726_ (##length _g83727_))) + (cond ((##fx= _g83726_ 2) + (apply (lambda (_stx83061_ _expand-special83062_) (gx#core-expand-block__0 - _stx145578_ - _expand-special145579_)) - _g150812_)) - ((##fx= _g150811_ 3) - (apply (lambda (_stx145585_ - _expand-special145586_ - _begin-form145587_) + _stx83061_ + _expand-special83062_)) + _g83727_)) + ((##fx= _g83726_ 3) + (apply (lambda (_stx83068_ + _expand-special83069_ + _begin-form83070_) (gx#core-expand-block__1 - _stx145585_ - _expand-special145586_ - _begin-form145587_)) - _g150812_)) - ((##fx= _g150811_ 4) - (apply (lambda (_stx145591_ - _expand-special145592_ - _begin-form145593_ - _expand-e145594_) + _stx83068_ + _expand-special83069_ + _begin-form83070_)) + _g83727_)) + ((##fx= _g83726_ 4) + (apply (lambda (_stx83074_ + _expand-special83075_ + _begin-form83076_ + _expand-e83077_) (gx#core-expand-block__% - _stx145591_ - _expand-special145592_ - _begin-form145593_ - _expand-e145594_)) - _g150812_)) + _stx83074_ + _expand-special83075_ + _begin-form83076_ + _expand-e83077_)) + _g83727_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-block - _g150812_)))))) + _g83727_)))))) (define gx#core-expand-block* - (lambda (_stx145350_ _expand-special145351_) - (let* ((_g145352145363_ - (gx#core-expand-block__1 - _stx145350_ - _expand-special145351_ - '#f)) - (_E145356145367_ - (lambda () (error '"No clause matching" _g145352145363_)))) - (let ((_K145361145398_ + (lambda (_stx82833_ _expand-special82834_) + (let* ((_g8283582846_ + (gx#core-expand-block__1 _stx82833_ _expand-special82834_ '#f)) + (_E8283982850_ + (lambda () (error '"No clause matching" _g8283582846_)))) + (let ((_K8284482881_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty block" - _stx145350_))) - (_K145358145384_ (lambda (_expr145382_) _expr145382_)) - (_K145357145373_ - (lambda (_body145371_) + _stx82833_))) + (_K8284182867_ (lambda (_expr82865_) _expr82865_)) + (_K8284082856_ + (lambda (_body82854_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin (reverse _body145371_)) - (gx#stx-source _stx145350_))))) - (let ((_try-match145354145394_ + (gx#core-cons '%#begin (reverse _body82854_)) + (gx#stx-source _stx82833_))))) + (let ((_try-match8283782877_ (lambda () - (if (##pair? _g145352145363_) - (let ((_tl145360145389_ (##cdr _g145352145363_)) - (_hd145359145387_ (##car _g145352145363_))) - (if (##null? _tl145360145389_) - (let ((_expr145392_ _hd145359145387_)) - (_K145358145384_ _expr145392_)) - (let ((_body145376_ _g145352145363_)) - (_K145357145373_ _body145376_)))) - (let ((_body145376_ _g145352145363_)) - (_K145357145373_ _body145376_)))))) - (if (##null? _g145352145363_) - (_K145361145398_) - (_try-match145354145394_))))))) + (if (##pair? _g8283582846_) + (let ((_tl8284382872_ (##cdr _g8283582846_)) + (_hd8284282870_ (##car _g8283582846_))) + (if (##null? _tl8284382872_) + (let ((_expr82875_ _hd8284282870_)) + (_K8284182867_ _expr82875_)) + (let ((_body82859_ _g8283582846_)) + (_K8284082856_ _body82859_)))) + (let ((_body82859_ _g8283582846_)) + (_K8284082856_ _body82859_)))))) + (if (##null? _g8283582846_) + (_K8284482881_) + (_try-match8283782877_))))))) (define gx#core-expand-cond-expand% - (lambda (_stx145178_) - (letrec ((_satisfied?145180_ - (lambda (_condition145278_) - (let* ((_e145279145294_ _condition145278_) - (_E145289145298_ + (lambda (_stx82661_) + (letrec ((_satisfied?82663_ + (lambda (_condition82761_) + (let* ((_e8276282777_ _condition82761_) + (_E8277282781_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e145279145294_))) - (_E145282145317_ + _e8276282777_))) + (_E8276582800_ (lambda () - (if (gx#stx-pair? _e145279145294_) - (let ((_e145290145302_ - (gx#syntax-e _e145279145294_))) - (let ((_hd145291145305_ - (##car _e145290145302_)) - (_tl145292145307_ - (##cdr _e145290145302_))) - (let* ((_combinator145310_ - _hd145291145305_) - (_body145312_ _tl145292145307_)) - (if (gx#stx-list? _body145312_) - (let ((_$e145314_ + (if (gx#stx-pair? _e8276282777_) + (let ((_e8277382785_ + (gx#syntax-e _e8276282777_))) + (let ((_hd8277482788_ + (##car _e8277382785_)) + (_tl8277582790_ + (##cdr _e8277382785_))) + (let* ((_combinator82793_ _hd8277482788_) + (_body82795_ _tl8277582790_)) + (if (gx#stx-list? _body82795_) + (let ((_$e82797_ (gx#stx-e - _combinator145310_))) - (if (eq? 'not _$e145314_) + _combinator82793_))) + (if (eq? 'not _$e82797_) (not (gx#stx-ormap - _satisfied?145180_ - _body145312_)) - (if (eq? 'and _$e145314_) + _satisfied?82663_ + _body82795_)) + (if (eq? 'and _$e82797_) (gx#stx-andmap - _satisfied?145180_ - _body145312_) - (if (eq? 'or _$e145314_) + _satisfied?82663_ + _body82795_) + (if (eq? 'or _$e82797_) (gx#stx-ormap - _satisfied?145180_ - _body145312_) + _satisfied?82663_ + _body82795_) (if (eq? 'defined ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _$e145314_) - (gx#stx-andmap gx#core-resolve-identifier _body145312_) + _$e82797_) + (gx#stx-andmap gx#core-resolve-identifier _body82795_) (gx#raise-syntax-error '#f '"Bad syntax; bad cond-expannd combinator" - _stx145178_ - _combinator145310_)))))) + _stx82661_ + _combinator82793_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E145289145298_))))) - (_E145289145298_)))) - (_E145281145340_ + (_E8277282781_))))) + (_E8277282781_)))) + (_E8276482823_ (lambda () - (if (gx#stx-pair? _e145279145294_) - (let ((_e145283145321_ - (gx#syntax-e _e145279145294_))) - (let ((_hd145284145324_ - (##car _e145283145321_)) - (_tl145285145326_ - (##cdr _e145283145321_))) - (if (and (gx#identifier? - _hd145284145324_) + (if (gx#stx-pair? _e8276282777_) + (let ((_e8276682804_ + (gx#syntax-e _e8276282777_))) + (let ((_hd8276782807_ + (##car _e8276682804_)) + (_tl8276882809_ + (##cdr _e8276682804_))) + (if (and (gx#identifier? _hd8276782807_) (gx#core-identifier=? - _hd145284145324_ + _hd8276782807_ 'unquote)) - (if (gx#stx-pair? _tl145285145326_) - (let ((_e145286145329_ + (if (gx#stx-pair? _tl8276882809_) + (let ((_e8276982812_ (gx#syntax-e - _tl145285145326_))) - (let ((_hd145287145332_ - (##car _e145286145329_)) - (_tl145288145334_ - (##cdr _e145286145329_))) - (let ((_expr145337_ - _hd145287145332_)) + _tl8276882809_))) + (let ((_hd8277082815_ + (##car _e8276982812_)) + (_tl8277182817_ + (##cdr _e8276982812_))) + (let ((_expr82820_ + _hd8277082815_)) (if (gx#stx-null? - _tl145288145334_) + _tl8277182817_) (if '#t (call-with-parameters (lambda () (gx#eval-syntax__0 - _expr145337_)) + _expr82820_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1)) - (_E145282145317_)) - (_E145282145317_))))) + (_E8276582800_)) + (_E8276582800_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E145282145317_)) - (_E145282145317_)))) - (_E145282145317_)))) - (_E145280145346_ + (_E8276582800_)) + (_E8276582800_)))) + (_E8276582800_)))) + (_E8276382829_ (lambda () - (let ((_id145344_ _e145279145294_)) - (if (gx#identifier? _id145344_) + (let ((_id82827_ _e8276282777_)) + (if (gx#identifier? _id82827_) (gx#core-bound-identifier?__% - _id145344_ + _id82827_ gx#feature-binding?) - (_E145281145340_)))))) - (_E145280145346_)))) - (_loop145181_ - (lambda (_rest145211_) - (let* ((_e145212145220_ _rest145211_) - (_E145218145224_ + (_E8276482823_)))))) + (_E8276382829_)))) + (_loop82664_ + (lambda (_rest82694_) + (let* ((_e8269582703_ _rest82694_) + (_E8270182707_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e145212145220_))) - (_E145214145228_ + _e8269582703_))) + (_E8269782711_ (lambda () - (if (gx#stx-null? _e145212145220_) - (if '#t '() (_E145218145224_)) - (_E145218145224_)))) - (_E145213145274_ + (if (gx#stx-null? _e8269582703_) + (if '#t '() (_E8270182707_)) + (_E8270182707_)))) + (_E8269682757_ (lambda () - (if (gx#stx-pair? _e145212145220_) - (let ((_e145215145232_ - (gx#syntax-e _e145212145220_))) - (let ((_hd145216145235_ - (##car _e145215145232_)) - (_tl145217145237_ - (##cdr _e145215145232_))) - (let* ((_hd145240_ _hd145216145235_) - (_rest145242_ _tl145217145237_)) + (if (gx#stx-pair? _e8269582703_) + (let ((_e8269882715_ + (gx#syntax-e _e8269582703_))) + (let ((_hd8269982718_ + (##car _e8269882715_)) + (_tl8270082720_ + (##cdr _e8269882715_))) + (let* ((_hd82723_ _hd8269982718_) + (_rest82725_ _tl8270082720_)) (if '#t - (let* ((_e145243145250_ _hd145240_) - (_E145245145254_ + (let* ((_e8272682733_ _hd82723_) + (_E8272882737_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e145243145250_))) - (_E145244145270_ + _e8272682733_))) + (_E8272782753_ (lambda () (if (gx#stx-pair? - _e145243145250_) - (let ((_e145246145258_ + _e8272682733_) + (let ((_e8272982741_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e145243145250_))) - (let ((_hd145247145261_ (##car _e145246145258_)) - (_tl145248145263_ (##cdr _e145246145258_))) - (let* ((_condition145266_ _hd145247145261_) - (_body145268_ _tl145248145263_)) + (gx#syntax-e _e8272682733_))) + (let ((_hd8273082744_ (##car _e8272982741_)) + (_tl8273182746_ (##cdr _e8272982741_))) + (let* ((_condition82749_ _hd8273082744_) + (_body82751_ _tl8273182746_)) (if '#t - (if (gx#stx-eq? _condition145266_ 'else) - (if (gx#stx-null? _rest145242_) - _body145268_ + (if (gx#stx-eq? _condition82749_ 'else) + (if (gx#stx-null? _rest82725_) + _body82751_ (gx#raise-syntax-error '#f '"Bad syntax; clauses after else" - _stx145178_ - _hd145240_)) - (if (_satisfied?145180_ _condition145266_) - _body145268_ - (_loop145181_ _rest145242_))) - (_E145245145254_))))) - (_E145245145254_))))) + _stx82661_ + _hd82723_)) + (if (_satisfied?82663_ _condition82749_) + _body82751_ + (_loop82664_ _rest82725_))) + (_E8272882737_))))) + (_E8272882737_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E145244145270_)) - (_E145214145228_))))) - (_E145214145228_))))) - (_E145213145274_))))) - (let* ((_e145182145189_ _stx145178_) - (_E145184145193_ + (_E8272782753_)) + (_E8269782711_))))) + (_E8269782711_))))) + (_E8269682757_))))) + (let* ((_e8266582672_ _stx82661_) + (_E8266782676_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e145182145189_))) - (_E145183145207_ + _e8266582672_))) + (_E8266682690_ (lambda () - (if (gx#stx-pair? _e145182145189_) - (let ((_e145185145197_ (gx#syntax-e _e145182145189_))) - (let ((_hd145186145200_ (##car _e145185145197_)) - (_tl145187145202_ (##cdr _e145185145197_))) - (let ((_clauses145205_ _tl145187145202_)) - (if (gx#stx-list? _clauses145205_) + (if (gx#stx-pair? _e8266582672_) + (let ((_e8266882680_ (gx#syntax-e _e8266582672_))) + (let ((_hd8266982683_ (##car _e8266882680_)) + (_tl8267082685_ (##cdr _e8266882680_))) + (let ((_clauses82688_ _tl8267082685_)) + (if (gx#stx-list? _clauses82688_) (gx#core-cons 'begin - (_loop145181_ _clauses145205_)) - (_E145184145193_))))) - (_E145184145193_))))) - (_E145183145207_))))) + (_loop82664_ _clauses82688_)) + (_E8266782676_))))) + (_E8266782676_))))) + (_E8266682690_))))) (define gx#core-expand-include%__% - (lambda (_stx145121_ _rpath145122_) - (let* ((_e145123145133_ _stx145121_) - (_E145125145137_ + (lambda (_stx82604_ _rpath82605_) + (let* ((_e8260682616_ _stx82604_) + (_E8260882620_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e145123145133_))) - (_E145124145164_ + _e8260682616_))) + (_E8260782647_ (lambda () - (if (gx#stx-pair? _e145123145133_) - (let ((_e145126145141_ (gx#syntax-e _e145123145133_))) - (let ((_hd145127145144_ (##car _e145126145141_)) - (_tl145128145146_ (##cdr _e145126145141_))) - (if (gx#stx-pair? _tl145128145146_) - (let ((_e145129145149_ - (gx#syntax-e _tl145128145146_))) - (let ((_hd145130145152_ - (##car _e145129145149_)) - (_tl145131145154_ - (##cdr _e145129145149_))) - (let ((_path145157_ _hd145130145152_)) - (if (gx#stx-null? _tl145131145154_) - (if (gx#stx-string? _path145157_) - (let ((_rpath145162_ - (let ((_$e145159_ - _rpath145122_)) - (if _$e145159_ - _$e145159_ + (if (gx#stx-pair? _e8260682616_) + (let ((_e8260982624_ (gx#syntax-e _e8260682616_))) + (let ((_hd8261082627_ (##car _e8260982624_)) + (_tl8261182629_ (##cdr _e8260982624_))) + (if (gx#stx-pair? _tl8261182629_) + (let ((_e8261282632_ + (gx#syntax-e _tl8261182629_))) + (let ((_hd8261382635_ (##car _e8261282632_)) + (_tl8261482637_ (##cdr _e8261282632_))) + (let ((_path82640_ _hd8261382635_)) + (if (gx#stx-null? _tl8261482637_) + (if (gx#stx-string? _path82640_) + (let ((_rpath82645_ + (let ((_$e82642_ + _rpath82605_)) + (if _$e82642_ + _$e82642_ (gx#core-resolve-path__% - _path145157_ + _path82640_ (gx#stx-source - _stx145121_)))))) - (if (member _rpath145162_ + _stx82604_)))))) + (if (member _rpath82645_ (gx#current-expander-path)) (gx#raise-syntax-error '#f '"Bad syntax; cyclic expansion" - _stx145121_) + _stx82604_) (gx#syntax-local-rewrap (gx#stx-wrap-source (gx#core-cons 'begin (read-syntax-from-file - _rpath145162_)) + _rpath82645_)) (gx#stx-source - _stx145121_))))) - (_E145125145137_)) - (_E145125145137_))))) - (_E145125145137_)))) - (_E145125145137_))))) - (_E145124145164_)))) + _stx82604_))))) + (_E8260882620_)) + (_E8260882620_))))) + (_E8260882620_)))) + (_E8260882620_))))) + (_E8260782647_)))) (define gx#core-expand-include%__0 - (lambda (_stx145171_) - (let ((_rpath145173_ '#f)) - (gx#core-expand-include%__% _stx145171_ _rpath145173_)))) + (lambda (_stx82654_) + (let ((_rpath82656_ '#f)) + (gx#core-expand-include%__% _stx82654_ _rpath82656_)))) (define gx#core-expand-include% - (lambda _g150814_ - (let ((_g150813_ (##length _g150814_))) - (cond ((##fx= _g150813_ 1) - (apply (lambda (_stx145171_) - (gx#core-expand-include%__0 _stx145171_)) - _g150814_)) - ((##fx= _g150813_ 2) - (apply (lambda (_stx145175_ _rpath145176_) - (gx#core-expand-include%__% - _stx145175_ - _rpath145176_)) - _g150814_)) + (lambda _g83729_ + (let ((_g83728_ (##length _g83729_))) + (cond ((##fx= _g83728_ 1) + (apply (lambda (_stx82654_) + (gx#core-expand-include%__0 _stx82654_)) + _g83729_)) + ((##fx= _g83728_ 2) + (apply (lambda (_stx82658_ _rpath82659_) + (gx#core-expand-include%__% _stx82658_ _rpath82659_)) + _g83729_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-include% - _g150814_)))))) + _g83729_)))))) (define gx#core-apply-expander__% - (lambda (_K145090_ _stx145091_ _method145092_) - (if (procedure? _K145090_) - (let ((_$e145094_ (gx#stx-source _stx145091_))) - (if _$e145094_ - ((lambda (_g145096145098_) - (gx#stx-wrap-source - (_K145090_ _stx145091_) - _g145096145098_)) - _$e145094_) - (_K145090_ _stx145091_))) - (let ((_$e145101_ (bound-method-ref _K145090_ _method145092_))) - (if _$e145101_ - ((lambda (_g145103145105_) + (lambda (_K82573_ _stx82574_ _method82575_) + (if (procedure? _K82573_) + (let ((_$e82577_ (gx#stx-source _stx82574_))) + (if _$e82577_ + ((lambda (_g8257982581_) + (gx#stx-wrap-source (_K82573_ _stx82574_) _g8257982581_)) + _$e82577_) + (_K82573_ _stx82574_))) + (let ((_$e82584_ (bound-method-ref _K82573_ _method82575_))) + (if _$e82584_ + ((lambda (_g8258682588_) (gx#core-apply-expander__% - _g145103145105_ - _stx145091_ - _method145092_)) - _$e145101_) + _g8258682588_ + _stx82574_ + _method82575_)) + _$e82584_) (gx#raise-syntax-error '#f '"Bad syntax; no expander method" - _stx145091_ - _method145092_)))))) + _stx82574_ + _method82575_)))))) (define gx#core-apply-expander__0 - (lambda (_K145111_ _stx145112_) - (let ((_method145114_ 'apply-macro-expander)) - (gx#core-apply-expander__% _K145111_ _stx145112_ _method145114_)))) + (lambda (_K82594_ _stx82595_) + (let ((_method82597_ 'apply-macro-expander)) + (gx#core-apply-expander__% _K82594_ _stx82595_ _method82597_)))) (define gx#core-apply-expander - (lambda _g150816_ - (let ((_g150815_ (##length _g150816_))) - (cond ((##fx= _g150815_ 2) - (apply (lambda (_K145111_ _stx145112_) - (gx#core-apply-expander__0 _K145111_ _stx145112_)) - _g150816_)) - ((##fx= _g150815_ 3) - (apply (lambda (_K145116_ _stx145117_ _method145118_) + (lambda _g83731_ + (let ((_g83730_ (##length _g83731_))) + (cond ((##fx= _g83730_ 2) + (apply (lambda (_K82594_ _stx82595_) + (gx#core-apply-expander__0 _K82594_ _stx82595_)) + _g83731_)) + ((##fx= _g83730_ 3) + (apply (lambda (_K82599_ _stx82600_ _method82601_) (gx#core-apply-expander__% - _K145116_ - _stx145117_ - _method145118_)) - _g150816_)) + _K82599_ + _stx82600_ + _method82601_)) + _g83731_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-expander - _g150816_)))))) + _g83731_)))))) (define gx#expander::apply-macro-expander - (lambda (_self145086_ _stx145087_) + (lambda (_self82569_ _stx82570_) (gx#raise-syntax-error '#f '"Bad syntax; bottom method for apply-macro-expander" - _stx145087_))) - (bind-method! + _stx82570_))) + (bind-method!__% gx#expander::t 'apply-macro-expander gx#expander::apply-macro-expander '#f) (define gx#macro-expander::apply-macro-expander - (lambda (_self144939_ _stx144940_) - (let* ((_self144941144947_ _self144939_) - (_E144943144951_ - (lambda () (error '"No clause matching" _self144941144947_))) - (_K144944144956_ - (lambda (_K144954_) - (gx#core-apply-expander__0 _K144954_ _stx144940_)))) - (if (##structure-instance-of? _self144941144947_ 'gx#core-macro::t) - (let* ((_e144945144959_ + (lambda (_self82422_ _stx82423_) + (let* ((_self8242482430_ _self82422_) + (_E8242682434_ + (lambda () (error '"No clause matching" _self8242482430_))) + (_K8242782439_ + (lambda (_K82437_) + (gx#core-apply-expander__0 _K82437_ _stx82423_)))) + (if (##structure-instance-of? _self8242482430_ 'gx#core-macro::t) + (let* ((_e8242882442_ (##unchecked-structure-ref - _self144941144947_ + _self8242482430_ '1 gx#expander::t '#f)) - (_K144962_ _e144945144959_)) - (_K144944144956_ _K144962_)) - (_E144943144951_))))) - (bind-method! + (_K82445_ _e8242882442_)) + (_K8242782439_ _K82445_)) + (_E8242682434_))))) + (bind-method!__% gx#macro-expander::t 'apply-macro-expander gx#macro-expander::apply-macro-expander '#f) (define gx#core-expander::apply-macro-expander - (lambda (_self144792_ _stx144793_) - (if (gx#sealed-syntax? _stx144793_) - _stx144793_ - (let* ((_self144794144800_ _self144792_) - (_E144796144804_ - (lambda () - (error '"No clause matching" _self144794144800_))) - (_K144797144809_ - (lambda (_K144807_) - (gx#core-apply-expander__0 _K144807_ _stx144793_)))) + (lambda (_self82275_ _stx82276_) + (if (gx#sealed-syntax? _stx82276_) + _stx82276_ + (let* ((_self8227782283_ _self82275_) + (_E8227982287_ + (lambda () (error '"No clause matching" _self8227782283_))) + (_K8228082292_ + (lambda (_K82290_) + (gx#core-apply-expander__0 _K82290_ _stx82276_)))) (if (##structure-instance-of? - _self144794144800_ + _self8227782283_ 'gx#core-expander::t) - (let* ((_e144798144812_ + (let* ((_e8228182295_ (##unchecked-structure-ref - _self144794144800_ + _self8227782283_ '1 gx#expander::t '#f)) - (_K144815_ _e144798144812_)) - (_K144797144809_ _K144815_)) - (_E144796144804_)))))) - (bind-method! + (_K82298_ _e8228182295_)) + (_K8228082292_ _K82298_)) + (_E8227982287_)))))) + (bind-method!__% gx#core-expander::t 'apply-macro-expander gx#core-expander::apply-macro-expander '#f) (define gx#top-special-form::apply-macro-expander__% - (lambda (_self144654_ _stx144655_ _top?144656_) - (if (_top?144656_ (gx#current-expander-context)) - (gx#core-expander::apply-macro-expander _self144654_ _stx144655_) + (lambda (_self82137_ _stx82138_ _top?82139_) + (if (_top?82139_ (gx#current-expander-context)) + (gx#core-expander::apply-macro-expander _self82137_ _stx82138_) (gx#raise-syntax-error '#f '"Bad syntax; illegal context" - _stx144655_)))) + _stx82138_)))) (define gx#top-special-form::apply-macro-expander__0 - (lambda (_self144661_ _stx144662_) - (let ((_top?144664_ gx#top-context?)) + (lambda (_self82144_ _stx82145_) + (let ((_top?82147_ gx#top-context?)) (gx#top-special-form::apply-macro-expander__% - _self144661_ - _stx144662_ - _top?144664_)))) + _self82144_ + _stx82145_ + _top?82147_)))) (define gx#top-special-form::apply-macro-expander - (lambda _g150818_ - (let ((_g150817_ (##length _g150818_))) - (cond ((##fx= _g150817_ 2) - (apply (lambda (_self144661_ _stx144662_) + (lambda _g83733_ + (let ((_g83732_ (##length _g83733_))) + (cond ((##fx= _g83732_ 2) + (apply (lambda (_self82144_ _stx82145_) (gx#top-special-form::apply-macro-expander__0 - _self144661_ - _stx144662_)) - _g150818_)) - ((##fx= _g150817_ 3) - (apply (lambda (_self144666_ _stx144667_ _top?144668_) + _self82144_ + _stx82145_)) + _g83733_)) + ((##fx= _g83732_ 3) + (apply (lambda (_self82149_ _stx82150_ _top?82151_) (gx#top-special-form::apply-macro-expander__% - _self144666_ - _stx144667_ - _top?144668_)) - _g150818_)) + _self82149_ + _stx82150_ + _top?82151_)) + _g83733_)) (else (##raise-wrong-number-of-arguments-exception gx#top-special-form::apply-macro-expander - _g150818_)))))) - (bind-method! + _g83733_)))))) + (bind-method!__% gx#top-special-form::t 'apply-macro-expander gx#top-special-form::apply-macro-expander '#f) (define gx#module-special-form::apply-macro-expander - (lambda (_self144528_ _stx144529_) + (lambda (_self82011_ _stx82012_) (gx#top-special-form::apply-macro-expander__% - _self144528_ - _stx144529_ + _self82011_ + _stx82012_ gx#module-context?))) - (bind-method! + (bind-method!__% gx#module-special-form::t 'apply-macro-expander gx#module-special-form::apply-macro-expander '#f) (define gx#rename-macro-expander::apply-macro-expander - (lambda (_self144353_ _stx144354_) - (let* ((_self144355144361_ _self144353_) - (_E144357144365_ - (lambda () (error '"No clause matching" _self144355144361_))) - (_K144358144398_ - (lambda (_id144368_) - (let* ((_e144369144376_ _stx144354_) - (_E144371144380_ + (lambda (_self81836_ _stx81837_) + (let* ((_self8183881844_ _self81836_) + (_E8184081848_ + (lambda () (error '"No clause matching" _self8183881844_))) + (_K8184181881_ + (lambda (_id81851_) + (let* ((_e8185281859_ _stx81837_) + (_E8185481863_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e144369144376_))) - (_E144370144394_ + _e8185281859_))) + (_E8185381877_ (lambda () - (if (gx#stx-pair? _e144369144376_) - (let ((_e144372144384_ - (gx#syntax-e _e144369144376_))) - (let ((_hd144373144387_ - (##car _e144372144384_)) - (_tl144374144389_ - (##cdr _e144372144384_))) - (let ((_body144392_ _tl144374144389_)) + (if (gx#stx-pair? _e8185281859_) + (let ((_e8185581867_ + (gx#syntax-e _e8185281859_))) + (let ((_hd8185681870_ (##car _e8185581867_)) + (_tl8185781872_ (##cdr _e8185581867_))) + (let ((_body81875_ _tl8185781872_)) (if '#t - (gx#core-cons - _id144368_ - _body144392_) - (_E144371144380_))))) - (_E144371144380_))))) - (_E144370144394_))))) + (gx#core-cons _id81851_ _body81875_) + (_E8185481863_))))) + (_E8185481863_))))) + (_E8185381877_))))) (if (##structure-instance-of? - _self144355144361_ + _self8183881844_ 'gx#rename-macro-expander::t) - (let* ((_e144359144401_ + (let* ((_e8184281884_ (##unchecked-structure-ref - _self144355144361_ + _self8183881844_ '1 gx#expander::t '#f)) - (_id144404_ _e144359144401_)) - (_K144358144398_ _id144404_)) - (_E144357144365_))))) - (bind-method! + (_id81887_ _e8184281884_)) + (_K8184181881_ _id81887_)) + (_E8184081848_))))) + (bind-method!__% gx#rename-macro-expander::t 'apply-macro-expander gx#rename-macro-expander::apply-macro-expander '#f) (define gx#core-apply-user-expander__% - (lambda (_self144179_ _stx144180_ _method144181_) - (let* ((_self144182144190_ _self144179_) - (_E144184144194_ - (lambda () (error '"No clause matching" _self144182144190_))) - (_K144185144201_ - (lambda (_phi144197_ _ctx144198_ _K144199_) + (lambda (_self81662_ _stx81663_ _method81664_) + (let* ((_self8166581673_ _self81662_) + (_E8166781677_ + (lambda () (error '"No clause matching" _self8166581673_))) + (_K8166881684_ + (lambda (_phi81680_ _ctx81681_ _K81682_) (gx#core-apply-user-macro - _K144199_ - _stx144180_ - _ctx144198_ - _phi144197_ - _method144181_)))) - (if (##structure-instance-of? - _self144182144190_ - 'gx#macro-expander::t) - (let* ((_e144186144204_ + _K81682_ + _stx81663_ + _ctx81681_ + _phi81680_ + _method81664_)))) + (if (##structure-instance-of? _self8166581673_ 'gx#macro-expander::t) + (let* ((_e8166981687_ (##unchecked-structure-ref - _self144182144190_ + _self8166581673_ '1 gx#expander::t '#f)) - (_K144207_ _e144186144204_) - (_e144187144209_ + (_K81690_ _e8166981687_) + (_e8167081692_ (##unchecked-structure-ref - _self144182144190_ + _self8166581673_ '2 gx#user-expander::t '#f)) - (_ctx144212_ _e144187144209_) - (_e144188144214_ + (_ctx81695_ _e8167081692_) + (_e8167181697_ (##unchecked-structure-ref - _self144182144190_ + _self8166581673_ '3 gx#user-expander::t '#f)) - (_phi144217_ _e144188144214_)) - (_K144185144201_ _phi144217_ _ctx144212_ _K144207_)) - (_E144184144194_))))) + (_phi81700_ _e8167181697_)) + (_K8166881684_ _phi81700_ _ctx81695_ _K81690_)) + (_E8166781677_))))) (define gx#core-apply-user-expander__0 - (lambda (_self144222_ _stx144223_) - (let ((_method144225_ 'apply-macro-expander)) + (lambda (_self81705_ _stx81706_) + (let ((_method81708_ 'apply-macro-expander)) (gx#core-apply-user-expander__% - _self144222_ - _stx144223_ - _method144225_)))) + _self81705_ + _stx81706_ + _method81708_)))) (define gx#core-apply-user-expander - (lambda _g150820_ - (let ((_g150819_ (##length _g150820_))) - (cond ((##fx= _g150819_ 2) - (apply (lambda (_self144222_ _stx144223_) + (lambda _g83735_ + (let ((_g83734_ (##length _g83735_))) + (cond ((##fx= _g83734_ 2) + (apply (lambda (_self81705_ _stx81706_) (gx#core-apply-user-expander__0 - _self144222_ - _stx144223_)) - _g150820_)) - ((##fx= _g150819_ 3) - (apply (lambda (_self144227_ _stx144228_ _method144229_) + _self81705_ + _stx81706_)) + _g83735_)) + ((##fx= _g83734_ 3) + (apply (lambda (_self81710_ _stx81711_ _method81712_) (gx#core-apply-user-expander__% - _self144227_ - _stx144228_ - _method144229_)) - _g150820_)) + _self81710_ + _stx81711_ + _method81712_)) + _g83735_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-user-expander - _g150820_)))))) + _g83735_)))))) (define gx#core-apply-user-macro - (lambda (_K144169_ _stx144170_ _ctx144171_ _phi144172_ _method144173_) - (let ((_mark144175_ + (lambda (_K81652_ _stx81653_ _ctx81654_ _phi81655_ _method81656_) + (let ((_mark81658_ (##structure gx#expander-mark::t '#f - _ctx144171_ - _phi144172_ - _stx144170_))) + _ctx81654_ + _phi81655_ + _stx81653_))) (call-with-parameters (lambda () (gx#stx-apply-mark (gx#core-apply-expander__% - _K144169_ - (gx#stx-apply-mark _stx144170_ _mark144175_) - _method144173_) - _mark144175_)) + _K81652_ + (gx#stx-apply-mark _stx81653_ _mark81658_) + _method81656_) + _mark81658_)) gx#current-expander-marks - (cons _mark144175_ (gx#current-expander-marks)))))) + (cons _mark81658_ (gx#current-expander-marks)))))) (define gx#user-expander::apply-macro-expander gx#core-apply-user-expander) - (bind-method! + (bind-method!__% gx#user-expander::t 'apply-macro-expander gx#user-expander::apply-macro-expander '#f) (define gx#resolve-identifier__% - (lambda (_stx144021_ _phi144022_ _ctx144023_) - (let _lp144025_ ((_bind144027_ - (gx#core-resolve-identifier__% - _stx144021_ - _phi144022_ - _ctx144023_))) + (lambda (_stx81504_ _phi81505_ _ctx81506_) + (let _lp81508_ ((_bind81510_ + (gx#core-resolve-identifier__% + _stx81504_ + _phi81505_ + _ctx81506_))) (if (##structure-direct-instance-of? - _bind144027_ + _bind81510_ 'gx#import-binding::t) - (_lp144025_ + (_lp81508_ (##unchecked-structure-ref - _bind144027_ + _bind81510_ '4 gx#import-binding::t '#f)) (if (##structure-direct-instance-of? - _bind144027_ + _bind81510_ 'gx#alias-binding::t) - (_lp144025_ + (_lp81508_ (gx#core-resolve-identifier__% (##unchecked-structure-ref - _bind144027_ + _bind81510_ '4 gx#alias-binding::t '#f) - _phi144022_ - _ctx144023_)) - _bind144027_))))) + _phi81505_ + _ctx81506_)) + _bind81510_))))) (define gx#resolve-identifier__0 - (lambda (_stx144032_) - (let* ((_phi144034_ (gx#current-expander-phi)) - (_ctx144036_ (gx#current-expander-context))) - (gx#resolve-identifier__% _stx144032_ _phi144034_ _ctx144036_)))) + (lambda (_stx81515_) + (let* ((_phi81517_ (gx#current-expander-phi)) + (_ctx81519_ (gx#current-expander-context))) + (gx#resolve-identifier__% _stx81515_ _phi81517_ _ctx81519_)))) (define gx#resolve-identifier__1 - (lambda (_stx144038_ _phi144039_) - (let ((_ctx144041_ (gx#current-expander-context))) - (gx#resolve-identifier__% _stx144038_ _phi144039_ _ctx144041_)))) + (lambda (_stx81521_ _phi81522_) + (let ((_ctx81524_ (gx#current-expander-context))) + (gx#resolve-identifier__% _stx81521_ _phi81522_ _ctx81524_)))) (define gx#resolve-identifier - (lambda _g150822_ - (let ((_g150821_ (##length _g150822_))) - (cond ((##fx= _g150821_ 1) - (apply (lambda (_stx144032_) - (gx#resolve-identifier__0 _stx144032_)) - _g150822_)) - ((##fx= _g150821_ 2) - (apply (lambda (_stx144038_ _phi144039_) - (gx#resolve-identifier__1 _stx144038_ _phi144039_)) - _g150822_)) - ((##fx= _g150821_ 3) - (apply (lambda (_stx144043_ _phi144044_ _ctx144045_) + (lambda _g83737_ + (let ((_g83736_ (##length _g83737_))) + (cond ((##fx= _g83736_ 1) + (apply (lambda (_stx81515_) + (gx#resolve-identifier__0 _stx81515_)) + _g83737_)) + ((##fx= _g83736_ 2) + (apply (lambda (_stx81521_ _phi81522_) + (gx#resolve-identifier__1 _stx81521_ _phi81522_)) + _g83737_)) + ((##fx= _g83736_ 3) + (apply (lambda (_stx81526_ _phi81527_ _ctx81528_) (gx#resolve-identifier__% - _stx144043_ - _phi144044_ - _ctx144045_)) - _g150822_)) + _stx81526_ + _phi81527_ + _ctx81528_)) + _g83737_)) (else (##raise-wrong-number-of-arguments-exception gx#resolve-identifier - _g150822_)))))) + _g83737_)))))) (define gx#bind-identifier!__% - (lambda (_stx143979_ _val143980_ _rebind?143981_ _phi143982_ _ctx143983_) - (let ((_rebind?143985_ - (if (not _rebind?143981_) + (lambda (_stx81462_ _val81463_ _rebind?81464_ _phi81465_ _ctx81466_) + (let ((_rebind?81468_ + (if (not _rebind?81464_) gx#core-context-rebind? - (if (procedure? _rebind?143981_) _rebind?143981_ true)))) + (if (procedure? _rebind?81464_) _rebind?81464_ true)))) (gx#core-bind!__% - (gx#core-identifier-key _stx143979_) - _val143980_ - _rebind?143985_ - _phi143982_ - _ctx143983_)))) + (gx#core-identifier-key _stx81462_) + _val81463_ + _rebind?81468_ + _phi81465_ + _ctx81466_)))) (define gx#bind-identifier!__0 - (lambda (_stx143990_ _val143991_) - (let* ((_rebind?143993_ '#f) - (_phi143995_ (gx#current-expander-phi)) - (_ctx143997_ (gx#current-expander-context))) + (lambda (_stx81473_ _val81474_) + (let* ((_rebind?81476_ '#f) + (_phi81478_ (gx#current-expander-phi)) + (_ctx81480_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx143990_ - _val143991_ - _rebind?143993_ - _phi143995_ - _ctx143997_)))) + _stx81473_ + _val81474_ + _rebind?81476_ + _phi81478_ + _ctx81480_)))) (define gx#bind-identifier!__1 - (lambda (_stx143999_ _val144000_ _rebind?144001_) - (let* ((_phi144003_ (gx#current-expander-phi)) - (_ctx144005_ (gx#current-expander-context))) + (lambda (_stx81482_ _val81483_ _rebind?81484_) + (let* ((_phi81486_ (gx#current-expander-phi)) + (_ctx81488_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx143999_ - _val144000_ - _rebind?144001_ - _phi144003_ - _ctx144005_)))) + _stx81482_ + _val81483_ + _rebind?81484_ + _phi81486_ + _ctx81488_)))) (define gx#bind-identifier!__2 - (lambda (_stx144007_ _val144008_ _rebind?144009_ _phi144010_) - (let ((_ctx144012_ (gx#current-expander-context))) + (lambda (_stx81490_ _val81491_ _rebind?81492_ _phi81493_) + (let ((_ctx81495_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx144007_ - _val144008_ - _rebind?144009_ - _phi144010_ - _ctx144012_)))) + _stx81490_ + _val81491_ + _rebind?81492_ + _phi81493_ + _ctx81495_)))) (define gx#bind-identifier! - (lambda _g150824_ - (let ((_g150823_ (##length _g150824_))) - (cond ((##fx= _g150823_ 2) - (apply (lambda (_stx143990_ _val143991_) - (gx#bind-identifier!__0 _stx143990_ _val143991_)) - _g150824_)) - ((##fx= _g150823_ 3) - (apply (lambda (_stx143999_ _val144000_ _rebind?144001_) + (lambda _g83739_ + (let ((_g83738_ (##length _g83739_))) + (cond ((##fx= _g83738_ 2) + (apply (lambda (_stx81473_ _val81474_) + (gx#bind-identifier!__0 _stx81473_ _val81474_)) + _g83739_)) + ((##fx= _g83738_ 3) + (apply (lambda (_stx81482_ _val81483_ _rebind?81484_) (gx#bind-identifier!__1 - _stx143999_ - _val144000_ - _rebind?144001_)) - _g150824_)) - ((##fx= _g150823_ 4) - (apply (lambda (_stx144007_ - _val144008_ - _rebind?144009_ - _phi144010_) + _stx81482_ + _val81483_ + _rebind?81484_)) + _g83739_)) + ((##fx= _g83738_ 4) + (apply (lambda (_stx81490_ + _val81491_ + _rebind?81492_ + _phi81493_) (gx#bind-identifier!__2 - _stx144007_ - _val144008_ - _rebind?144009_ - _phi144010_)) - _g150824_)) - ((##fx= _g150823_ 5) - (apply (lambda (_stx144014_ - _val144015_ - _rebind?144016_ - _phi144017_ - _ctx144018_) + _stx81490_ + _val81491_ + _rebind?81492_ + _phi81493_)) + _g83739_)) + ((##fx= _g83738_ 5) + (apply (lambda (_stx81497_ + _val81498_ + _rebind?81499_ + _phi81500_ + _ctx81501_) (gx#bind-identifier!__% - _stx144014_ - _val144015_ - _rebind?144016_ - _phi144017_ - _ctx144018_)) - _g150824_)) + _stx81497_ + _val81498_ + _rebind?81499_ + _phi81500_ + _ctx81501_)) + _g83739_)) (else (##raise-wrong-number-of-arguments-exception gx#bind-identifier! - _g150824_)))))) + _g83739_)))))) (define gx#core-resolve-identifier__% - (lambda (_stx143951_ _phi143952_ _ctx143953_) - (let _lp143955_ ((_e143957_ _stx143951_) - (_marks143958_ (gx#current-expander-marks))) - (if (symbol? _e143957_) + (lambda (_stx81434_ _phi81435_ _ctx81436_) + (let _lp81438_ ((_e81440_ _stx81434_) + (_marks81441_ (gx#current-expander-marks))) + (if (symbol? _e81440_) (gx#core-resolve-binding - _e143957_ - _phi143952_ - _phi143952_ - _ctx143953_ - (reverse _marks143958_)) - (if (gx#identifier-quote? _e143957_) + _e81440_ + _phi81435_ + _phi81435_ + _ctx81436_ + (reverse _marks81441_)) + (if (gx#identifier-quote? _e81440_) (gx#core-resolve-binding - (##unchecked-structure-ref _e143957_ '1 gx#AST::t '#f) - _phi143952_ + (##unchecked-structure-ref _e81440_ '1 gx#AST::t '#f) + _phi81435_ '0 (##unchecked-structure-ref - _e143957_ + _e81440_ '3 gx#syntax-quote::t '#f) (##unchecked-structure-ref - _e143957_ + _e81440_ '4 gx#syntax-quote::t '#f)) (if (##structure-direct-instance-of? - _e143957_ + _e81440_ 'gx#identifier-wrap::t) (gx#core-resolve-binding - (##unchecked-structure-ref _e143957_ '1 gx#AST::t '#f) - _phi143952_ - _phi143952_ - _ctx143953_ + (##unchecked-structure-ref _e81440_ '1 gx#AST::t '#f) + _phi81435_ + _phi81435_ + _ctx81436_ (foldl1 gx#apply-mark (##unchecked-structure-ref - _e143957_ + _e81440_ '3 gx#identifier-wrap::t '#f) - _marks143958_)) + _marks81441_)) (if (##structure-direct-instance-of? - _e143957_ + _e81440_ 'gx#syntax-wrap::t) - (_lp143955_ + (_lp81438_ (##unchecked-structure-ref - _e143957_ + _e81440_ '1 gx#AST::t '#f) (gx#apply-mark (##unchecked-structure-ref - _e143957_ + _e81440_ '3 gx#syntax-wrap::t '#f) - _marks143958_)) + _marks81441_)) (if (##structure-instance-of? - _e143957_ + _e81440_ 'gerbil#AST::t) - (_lp143955_ + (_lp81438_ (##unchecked-structure-ref - _e143957_ + _e81440_ '1 gx#AST::t '#f) - _marks143958_) + _marks81441_) (gx#raise-syntax-error '#f '"Bad identifier" - _stx143951_))))))))) + _stx81434_))))))))) (define gx#core-resolve-identifier__0 - (lambda (_stx143963_) - (let* ((_phi143965_ (gx#current-expander-phi)) - (_ctx143967_ (gx#current-expander-context))) - (gx#core-resolve-identifier__% - _stx143963_ - _phi143965_ - _ctx143967_)))) + (lambda (_stx81446_) + (let* ((_phi81448_ (gx#current-expander-phi)) + (_ctx81450_ (gx#current-expander-context))) + (gx#core-resolve-identifier__% _stx81446_ _phi81448_ _ctx81450_)))) (define gx#core-resolve-identifier__1 - (lambda (_stx143969_ _phi143970_) - (let ((_ctx143972_ (gx#current-expander-context))) - (gx#core-resolve-identifier__% - _stx143969_ - _phi143970_ - _ctx143972_)))) + (lambda (_stx81452_ _phi81453_) + (let ((_ctx81455_ (gx#current-expander-context))) + (gx#core-resolve-identifier__% _stx81452_ _phi81453_ _ctx81455_)))) (define gx#core-resolve-identifier - (lambda _g150826_ - (let ((_g150825_ (##length _g150826_))) - (cond ((##fx= _g150825_ 1) - (apply (lambda (_stx143963_) - (gx#core-resolve-identifier__0 _stx143963_)) - _g150826_)) - ((##fx= _g150825_ 2) - (apply (lambda (_stx143969_ _phi143970_) + (lambda _g83741_ + (let ((_g83740_ (##length _g83741_))) + (cond ((##fx= _g83740_ 1) + (apply (lambda (_stx81446_) + (gx#core-resolve-identifier__0 _stx81446_)) + _g83741_)) + ((##fx= _g83740_ 2) + (apply (lambda (_stx81452_ _phi81453_) (gx#core-resolve-identifier__1 - _stx143969_ - _phi143970_)) - _g150826_)) - ((##fx= _g150825_ 3) - (apply (lambda (_stx143974_ _phi143975_ _ctx143976_) + _stx81452_ + _phi81453_)) + _g83741_)) + ((##fx= _g83740_ 3) + (apply (lambda (_stx81457_ _phi81458_ _ctx81459_) (gx#core-resolve-identifier__% - _stx143974_ - _phi143975_ - _ctx143976_)) - _g150826_)) + _stx81457_ + _phi81458_ + _ctx81459_)) + _g83741_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-identifier - _g150826_)))))) + _g83741_)))))) (define gx#core-resolve-binding - (lambda (_id143864_ - _phi143865_ - _src-phi143866_ - _ctx143867_ - _marks143868_) - (letrec ((_resolve143870_ - (lambda (_ctx143938_ _src-phi143939_ _key143940_) - (let _lp143942_ ((_ctx143944_ - (gx#core-context-shift - _ctx143938_ - _phi143865_)) - (_dphi143945_ - (fx- _phi143865_ _src-phi143939_))) - (let ((_$e143947_ - (gx#core-context-resolve - _ctx143944_ - _key143940_))) - (if _$e143947_ - (values _$e143947_) - (if (fxzero? _dphi143945_) + (lambda (_id81347_ _phi81348_ _src-phi81349_ _ctx81350_ _marks81351_) + (letrec ((_resolve81353_ + (lambda (_ctx81421_ _src-phi81422_ _key81423_) + (let _lp81425_ ((_ctx81427_ + (gx#core-context-shift + _ctx81421_ + _phi81348_)) + (_dphi81428_ + (fx- _phi81348_ _src-phi81422_))) + (let ((_$e81430_ + (gx#core-context-resolve _ctx81427_ _key81423_))) + (if _$e81430_ + (values _$e81430_) + (if (fxzero? _dphi81428_) '#f - (if (fxpositive? _dphi143945_) - (_lp143942_ - (gx#core-context-shift _ctx143944_ '-1) - (fx- _dphi143945_ '1)) - (_lp143942_ - (gx#core-context-shift _ctx143944_ '1) - (fx+ _dphi143945_ '1)))))))))) - (let _lp143872_ ((_ctx143874_ _ctx143867_) - (_src-phi143875_ _src-phi143866_) - (_rest143876_ _marks143868_)) - (let* ((_rest143877143885_ _rest143876_) - (_else143879143893_ + (if (fxpositive? _dphi81428_) + (_lp81425_ + (gx#core-context-shift _ctx81427_ '-1) + (fx- _dphi81428_ '1)) + (_lp81425_ + (gx#core-context-shift _ctx81427_ '1) + (fx+ _dphi81428_ '1)))))))))) + (let _lp81355_ ((_ctx81357_ _ctx81350_) + (_src-phi81358_ _src-phi81349_) + (_rest81359_ _marks81351_)) + (let* ((_rest8136081368_ _rest81359_) + (_else8136281376_ (lambda () - (_resolve143870_ - _ctx143874_ - _src-phi143875_ - _id143864_))) - (_K143881143926_ - (lambda (_rest143896_ _hd143897_) - (let* ((_hd143898143904_ _hd143897_) - (_E143900143908_ + (_resolve81353_ _ctx81357_ _src-phi81358_ _id81347_))) + (_K8136481409_ + (lambda (_rest81379_ _hd81380_) + (let* ((_hd8138181387_ _hd81380_) + (_E8138381391_ (lambda () - (error '"No clause matching" - _hd143898143904_))) - (_K143901143918_ - (lambda (_subst143911_) - (let ((_$e143915_ - (let ((_key143913_ - (if _subst143911_ - (table-ref - _subst143911_ - _id143864_ - '#f) + (error '"No clause matching" _hd8138181387_))) + (_K8138481401_ + (lambda (_subst81394_) + (let ((_$e81398_ + (let ((_key81396_ + (if _subst81394_ + (hash-get + _subst81394_ + _id81347_) '#f))) - (if _key143913_ - (_resolve143870_ - _ctx143874_ - _src-phi143875_ - _key143913_) + (if _key81396_ + (_resolve81353_ + _ctx81357_ + _src-phi81358_ + _key81396_) '#f)))) - (if _$e143915_ - _$e143915_ - (_lp143872_ + (if _$e81398_ + _$e81398_ + (_lp81355_ (##unchecked-structure-ref - _hd143897_ + _hd81380_ '2 gx#expander-mark::t '#f) (##unchecked-structure-ref - _hd143897_ + _hd81380_ '3 gx#expander-mark::t '#f) - _rest143896_)))))) + _rest81379_)))))) (if (##structure-instance-of? - _hd143898143904_ + _hd8138181387_ 'gx#expander-mark::t) - (let* ((_e143902143921_ + (let* ((_e8138581404_ (##unchecked-structure-ref - _hd143898143904_ + _hd8138181387_ '1 gx#expander-mark::t '#f)) - (_subst143924_ _e143902143921_)) - (_K143901143918_ _subst143924_)) - (_E143900143908_)))))) - (if (##pair? _rest143877143885_) - (let ((_hd143882143929_ (##car _rest143877143885_)) - (_tl143883143931_ (##cdr _rest143877143885_))) - (let* ((_hd143934_ _hd143882143929_) - (_rest143936_ _tl143883143931_)) - (_K143881143926_ _rest143936_ _hd143934_))) - (_else143879143893_))))))) + (_subst81407_ _e8138581404_)) + (_K8138481401_ _subst81407_)) + (_E8138381391_)))))) + (if (##pair? _rest8136081368_) + (let ((_hd8136581412_ (##car _rest8136081368_)) + (_tl8136681414_ (##cdr _rest8136081368_))) + (let* ((_hd81417_ _hd8136581412_) + (_rest81419_ _tl8136681414_)) + (_K8136481409_ _rest81419_ _hd81417_))) + (_else8136281376_))))))) (define gx#core-bind!__% - (lambda (_key143740_ _val143741_ _rebind?143742_ _phi143743_ _ctx143744_) - (letrec ((_update-binding143746_ - (lambda (_xval143817_) - (if (or (_rebind?143742_ - _ctx143744_ - _xval143817_ - _val143741_) + (lambda (_key81223_ _val81224_ _rebind?81225_ _phi81226_ _ctx81227_) + (letrec ((_update-binding81229_ + (lambda (_xval81300_) + (if (or (_rebind?81225_ _ctx81227_ _xval81300_ _val81224_) (and (##structure-direct-instance-of? - _xval143817_ + _xval81300_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _xval143817_ + _xval81300_ '6 gx#import-binding::t '#f) (and (##structure-instance-of? - _val143741_ + _val81224_ 'gx#binding::t) (not (##structure-direct-instance-of? - _val143741_ + _val81224_ 'gx#import-binding::t))))) (and (##structure-instance-of? - _xval143817_ + _xval81300_ 'gx#extern-binding::t) (##structure-instance-of? - _val143741_ + _val81224_ 'gx#runtime-binding::t) (eq? (##unchecked-structure-ref - _val143741_ + _val81224_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _xval143817_ + _xval81300_ '1 gx#binding::t '#f)))) - _val143741_ + _val81224_ (if (and (##structure-direct-instance-of? - _val143741_ + _val81224_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _val143741_ + _val81224_ '6 gx#import-binding::t '#f) (and (##structure-instance-of? - _xval143817_ + _xval81300_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _val143741_ + _val81224_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _xval143817_ + _xval81300_ '1 gx#binding::t '#f))))) - _xval143817_ + _xval81300_ (if (and (##structure-direct-instance-of? - _val143741_ + _val81224_ 'gx#import-binding::t) (##structure-instance-of? - _xval143817_ + _xval81300_ 'gx#binding::t)) (gx#raise-syntax-error '#f '"Bad binding; import conflict" - _key143740_ + _key81223_ (cons (##unchecked-structure-ref - _val143741_ + _val81224_ '1 gx#binding::t '#f) (cons (##structure-ref (##unchecked-structure-ref - _val143741_ + _val81224_ '5 gx#import-binding::t '#f) @@ -2865,200 +2818,199 @@ '#f) '())) (cons (##unchecked-structure-ref - _xval143817_ + _xval81300_ '1 gx#binding::t '#f) (cons (if (##structure-direct-instance-of? - _xval143817_ + _xval81300_ 'gx#import-binding::t) (##structure-ref (##unchecked-structure-ref - _xval143817_ + _xval81300_ '5 gx#import-binding::t '#f) '1 gx#expander-context::t '#f) - _xval143817_) + _xval81300_) '()))) (gx#raise-syntax-error '#f '"Bad binding; rebind conflict" - _key143740_ - _val143741_ - _xval143817_)))))) - (_gensubst143747_ - (lambda (_subst143812_ _id143813_) - (let ((_eid143815_ - (gensym (if (uninterned-symbol? _id143813_) + _key81223_ + _val81224_ + _xval81300_)))))) + (_gensubst81230_ + (lambda (_subst81295_ _id81296_) + (let ((_eid81298_ + (gensym (if (uninterned-symbol? _id81296_) '% - _id143813_)))) - (table-set! _subst143812_ _id143813_ _eid143815_) - _eid143815_))) - (_subst!143748_ - (lambda (_key143750_) - (let* ((_key143751143759_ _key143750_) - (_else143753143767_ (lambda () _key143750_)) - (_K143755143800_ - (lambda (_mark143770_ _id143771_) - (let* ((_mark143772143778_ _mark143770_) - (_E143774143782_ + _id81296_)))) + (hash-put! _subst81295_ _id81296_ _eid81298_) + _eid81298_))) + (_subst!81231_ + (lambda (_key81233_) + (let* ((_key8123481242_ _key81233_) + (_else8123681250_ (lambda () _key81233_)) + (_K8123881283_ + (lambda (_mark81253_ _id81254_) + (let* ((_mark8125581261_ _mark81253_) + (_E8125781265_ (lambda () (error '"No clause matching" - _mark143772143778_))) - (_K143775143792_ - (lambda (_subst143785_) - (if (not _subst143785_) - (let ((_subst143787_ - (make-table 'test: eq?))) + _mark8125581261_))) + (_K8125881275_ + (lambda (_subst81268_) + (if (not _subst81268_) + (let ((_subst81270_ + (make-hash-table-eq))) (##unchecked-structure-set! - _mark143770_ - _subst143787_ + _mark81253_ + _subst81270_ '1 gx#expander-mark::t '#f) - (_gensubst143747_ - _subst143787_ - _id143771_)) - (let ((_$e143789_ - (table-ref - _subst143785_ - _id143771_ - '#f))) - (if _$e143789_ - (values _$e143789_) - (_gensubst143747_ - _subst143785_ - _id143771_))))))) + (_gensubst81230_ + _subst81270_ + _id81254_)) + (let ((_$e81272_ + (hash-get + _subst81268_ + _id81254_))) + (if _$e81272_ + (values _$e81272_) + (_gensubst81230_ + _subst81268_ + _id81254_))))))) (if (##structure-instance-of? - _mark143772143778_ + _mark8125581261_ 'gx#expander-mark::t) - (let* ((_e143776143795_ + (let* ((_e8125981278_ (##unchecked-structure-ref - _mark143772143778_ + _mark8125581261_ '1 gx#expander-mark::t '#f)) - (_subst143798_ _e143776143795_)) - (_K143775143792_ _subst143798_)) - (_E143774143782_)))))) - (if (##pair? _key143751143759_) - (let ((_hd143756143803_ (##car _key143751143759_)) - (_tl143757143805_ (##cdr _key143751143759_))) - (let* ((_id143808_ _hd143756143803_) - (_mark143810_ _tl143757143805_)) - (_K143755143800_ _mark143810_ _id143808_))) - (_else143753143767_)))))) + (_subst81281_ _e8125981278_)) + (_K8125881275_ _subst81281_)) + (_E8125781265_)))))) + (if (##pair? _key8123481242_) + (let ((_hd8123981286_ (##car _key8123481242_)) + (_tl8124081288_ (##cdr _key8123481242_))) + (let* ((_id81291_ _hd8123981286_) + (_mark81293_ _tl8124081288_)) + (_K8123881283_ _mark81293_ _id81291_))) + (_else8123681250_)))))) (gx#core-context-bind! - (gx#core-context-shift _ctx143744_ _phi143743_) - (_subst!143748_ _key143740_) - _val143741_ - _update-binding143746_)))) + (gx#core-context-shift _ctx81227_ _phi81226_) + (_subst!81231_ _key81223_) + _val81224_ + _update-binding81229_)))) (define gx#core-bind!__0 - (lambda (_key143834_ _val143835_) - (let* ((_rebind?143837_ false) - (_phi143839_ (gx#current-expander-phi)) - (_ctx143841_ (gx#current-expander-context))) + (lambda (_key81317_ _val81318_) + (let* ((_rebind?81320_ false) + (_phi81322_ (gx#current-expander-phi)) + (_ctx81324_ (gx#current-expander-context))) (gx#core-bind!__% - _key143834_ - _val143835_ - _rebind?143837_ - _phi143839_ - _ctx143841_)))) + _key81317_ + _val81318_ + _rebind?81320_ + _phi81322_ + _ctx81324_)))) (define gx#core-bind!__1 - (lambda (_key143843_ _val143844_ _rebind?143845_) - (let* ((_phi143847_ (gx#current-expander-phi)) - (_ctx143849_ (gx#current-expander-context))) + (lambda (_key81326_ _val81327_ _rebind?81328_) + (let* ((_phi81330_ (gx#current-expander-phi)) + (_ctx81332_ (gx#current-expander-context))) (gx#core-bind!__% - _key143843_ - _val143844_ - _rebind?143845_ - _phi143847_ - _ctx143849_)))) + _key81326_ + _val81327_ + _rebind?81328_ + _phi81330_ + _ctx81332_)))) (define gx#core-bind!__2 - (lambda (_key143851_ _val143852_ _rebind?143853_ _phi143854_) - (let ((_ctx143856_ (gx#current-expander-context))) + (lambda (_key81334_ _val81335_ _rebind?81336_ _phi81337_) + (let ((_ctx81339_ (gx#current-expander-context))) (gx#core-bind!__% - _key143851_ - _val143852_ - _rebind?143853_ - _phi143854_ - _ctx143856_)))) + _key81334_ + _val81335_ + _rebind?81336_ + _phi81337_ + _ctx81339_)))) (define gx#core-bind! - (lambda _g150828_ - (let ((_g150827_ (##length _g150828_))) - (cond ((##fx= _g150827_ 2) - (apply (lambda (_key143834_ _val143835_) - (gx#core-bind!__0 _key143834_ _val143835_)) - _g150828_)) - ((##fx= _g150827_ 3) - (apply (lambda (_key143843_ _val143844_ _rebind?143845_) + (lambda _g83743_ + (let ((_g83742_ (##length _g83743_))) + (cond ((##fx= _g83742_ 2) + (apply (lambda (_key81317_ _val81318_) + (gx#core-bind!__0 _key81317_ _val81318_)) + _g83743_)) + ((##fx= _g83742_ 3) + (apply (lambda (_key81326_ _val81327_ _rebind?81328_) (gx#core-bind!__1 - _key143843_ - _val143844_ - _rebind?143845_)) - _g150828_)) - ((##fx= _g150827_ 4) - (apply (lambda (_key143851_ - _val143852_ - _rebind?143853_ - _phi143854_) + _key81326_ + _val81327_ + _rebind?81328_)) + _g83743_)) + ((##fx= _g83742_ 4) + (apply (lambda (_key81334_ + _val81335_ + _rebind?81336_ + _phi81337_) (gx#core-bind!__2 - _key143851_ - _val143852_ - _rebind?143853_ - _phi143854_)) - _g150828_)) - ((##fx= _g150827_ 5) - (apply (lambda (_key143858_ - _val143859_ - _rebind?143860_ - _phi143861_ - _ctx143862_) + _key81334_ + _val81335_ + _rebind?81336_ + _phi81337_)) + _g83743_)) + ((##fx= _g83742_ 5) + (apply (lambda (_key81341_ + _val81342_ + _rebind?81343_ + _phi81344_ + _ctx81345_) (gx#core-bind!__% - _key143858_ - _val143859_ - _rebind?143860_ - _phi143861_ - _ctx143862_)) - _g150828_)) + _key81341_ + _val81342_ + _rebind?81343_ + _phi81344_ + _ctx81345_)) + _g83743_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind! - _g150828_)))))) + _g83743_)))))) (define gx#core-identifier-key - (lambda (_stx143674_) - (if (symbol? _stx143674_) - (let* ((_g143675143683_ (gx#current-expander-marks)) - (_else143677143691_ (lambda () _stx143674_)) - (_K143679143696_ - (lambda (_hd143694_) (cons _stx143674_ _hd143694_)))) - (if (##pair? _g143675143683_) - (let* ((_hd143680143699_ (##car _g143675143683_)) - (_hd143702_ _hd143680143699_)) - (_K143679143696_ _hd143702_)) - (_else143677143691_))) - (if (gx#identifier? _stx143674_) - (let* ((_id143704_ (gx#syntax-local-unwrap _stx143674_)) - (_eid143706_ (gx#stx-e _id143704_)) - (_marks143708_ (gx#stx-identifier-marks* _id143704_))) - (let* ((_marks143710143718_ _marks143708_) - (_else143712143726_ (lambda () _eid143706_)) - (_K143714143731_ - (lambda (_hd143729_) (cons _eid143706_ _hd143729_)))) - (if (##pair? _marks143710143718_) - (let* ((_hd143715143734_ (##car _marks143710143718_)) - (_hd143737_ _hd143715143734_)) - (_K143714143731_ _hd143737_)) - (_else143712143726_)))) - (gx#raise-syntax-error '#f '"Bad identifier" _stx143674_))))) + (lambda (_stx81157_) + (if (symbol? _stx81157_) + (let* ((_g8115881166_ (gx#current-expander-marks)) + (_else8116081174_ (lambda () _stx81157_)) + (_K8116281179_ + (lambda (_hd81177_) (cons _stx81157_ _hd81177_)))) + (if (##pair? _g8115881166_) + (let* ((_hd8116381182_ (##car _g8115881166_)) + (_hd81185_ _hd8116381182_)) + (_K8116281179_ _hd81185_)) + (_else8116081174_))) + (if (gx#identifier? _stx81157_) + (let* ((_id81187_ (gx#syntax-local-unwrap _stx81157_)) + (_eid81189_ (gx#stx-e _id81187_)) + (_marks81191_ (gx#stx-identifier-marks* _id81187_))) + (let* ((_marks8119381201_ _marks81191_) + (_else8119581209_ (lambda () _eid81189_)) + (_K8119781214_ + (lambda (_hd81212_) (cons _eid81189_ _hd81212_)))) + (if (##pair? _marks8119381201_) + (let* ((_hd8119881217_ (##car _marks8119381201_)) + (_hd81220_ _hd8119881217_)) + (_K8119781214_ _hd81220_)) + (_else8119581209_)))) + (gx#raise-syntax-error '#f '"Bad identifier" _stx81157_))))) (define gx#core-context-shift - (lambda (_ctx143619_ _phi143620_) - (letrec ((_make-phi143622_ - (lambda (_super143672_) - (let ((__obj150799 + (lambda (_ctx81102_ _phi81103_) + (letrec ((_make-phi81105_ + (lambda (_super81155_) + (let ((__obj83714 (##structure gx#phi-context::t '#f @@ -3067,663 +3019,637 @@ '#f '#f))) (gx#phi-context:::init! - __obj150799 + __obj83714 (gensym 'phi) - _super143672_) - __obj150799))) - (_make-phi/up143623_ - (lambda (_ctx143667_ _super143668_) - (let ((_ctx+1143670_ (_make-phi143622_ _super143668_))) + _super81155_) + __obj83714))) + (_make-phi/up81106_ + (lambda (_ctx81150_ _super81151_) + (let ((_ctx+181153_ (_make-phi81105_ _super81151_))) (##unchecked-structure-set! - _ctx143667_ - _ctx+1143670_ + _ctx81150_ + _ctx+181153_ '4 gx#phi-context::t '#f) (##unchecked-structure-set! - _ctx+1143670_ - _ctx143667_ + _ctx+181153_ + _ctx81150_ '5 gx#phi-context::t '#f) - _ctx+1143670_))) - (_make-phi/down143624_ - (lambda (_ctx143662_ _super143663_) - (let ((_ctx-1143665_ (_make-phi143622_ _super143663_))) + _ctx+181153_))) + (_make-phi/down81107_ + (lambda (_ctx81145_ _super81146_) + (let ((_ctx-181148_ (_make-phi81105_ _super81146_))) (##unchecked-structure-set! - _ctx-1143665_ - _ctx143662_ + _ctx-181148_ + _ctx81145_ '4 gx#phi-context::t '#f) (##unchecked-structure-set! - _ctx143662_ - _ctx-1143665_ + _ctx81145_ + _ctx-181148_ '5 gx#phi-context::t '#f) - _ctx-1143665_))) - (_shift143625_ - (lambda (_ctx143646_ - _delta143647_ - _make-delta-context143648_ - _phi143649_ - _K143650_) - (let ((_$e143652_ + _ctx-181148_))) + (_shift81108_ + (lambda (_ctx81129_ + _delta81130_ + _make-delta-context81131_ + _phi81132_ + _K81133_) + (let ((_$e81135_ (##unchecked-structure-ref - _ctx143646_ + _ctx81129_ '3 gx#phi-context::t '#f))) - (if _$e143652_ - ((lambda (_super143655_) - (let* ((_super143657_ - (_K143650_ _super143655_ _delta143647_)) - (_ctx+d143659_ - (_make-delta-context143648_ - _ctx143646_ - _super143657_))) - (_K143650_ - _ctx+d143659_ - (fx- _phi143649_ _delta143647_)))) - _$e143652_) - (error '"Bad context" _ctx143646_)))))) - (let _K143627_ ((_ctx143629_ _ctx143619_) (_phi143630_ _phi143620_)) - (if (fxzero? _phi143630_) - _ctx143629_ - (if (fx> (##vector-length _ctx143629_) '3) - (if (fxpositive? _phi143630_) - (let ((_$e143632_ + (if _$e81135_ + ((lambda (_super81138_) + (let* ((_super81140_ + (_K81133_ _super81138_ _delta81130_)) + (_ctx+d81142_ + (_make-delta-context81131_ + _ctx81129_ + _super81140_))) + (_K81133_ + _ctx+d81142_ + (fx- _phi81132_ _delta81130_)))) + _$e81135_) + (error '"Bad context" _ctx81129_)))))) + (let _K81110_ ((_ctx81112_ _ctx81102_) (_phi81113_ _phi81103_)) + (if (fxzero? _phi81113_) + _ctx81112_ + (if (fx> (##vector-length _ctx81112_) '3) + (if (fxpositive? _phi81113_) + (let ((_$e81115_ (##unchecked-structure-ref - _ctx143629_ + _ctx81112_ '4 gx#phi-context::t '#f))) - (if _$e143632_ - ((lambda (_g143634143636_) - (_K143627_ - _g143634143636_ - (fx- _phi143630_ '1))) - _$e143632_) - (_shift143625_ - _ctx143629_ + (if _$e81115_ + ((lambda (_g8111781119_) + (_K81110_ _g8111781119_ (fx- _phi81113_ '1))) + _$e81115_) + (_shift81108_ + _ctx81112_ '1 - _make-phi/up143623_ - _phi143630_ - _K143627_))) - (let ((_$e143639_ + _make-phi/up81106_ + _phi81113_ + _K81110_))) + (let ((_$e81122_ (##unchecked-structure-ref - _ctx143629_ + _ctx81112_ '5 gx#phi-context::t '#f))) - (if _$e143639_ - ((lambda (_g143641143643_) - (_K143627_ - _g143641143643_ - (fx+ _phi143630_ '1))) - _$e143639_) - (_shift143625_ - _ctx143629_ + (if _$e81122_ + ((lambda (_g8112481126_) + (_K81110_ _g8112481126_ (fx+ _phi81113_ '1))) + _$e81122_) + (_shift81108_ + _ctx81112_ '-1 - _make-phi/down143624_ - _phi143630_ - _K143627_)))) - _ctx143629_)))))) + _make-phi/down81107_ + _phi81113_ + _K81110_)))) + _ctx81112_)))))) (define gx#core-context-get - (lambda (_ctx143616_ _key143617_) - (table-ref - (##unchecked-structure-ref _ctx143616_ '2 gx#expander-context::t '#f) - _key143617_ - '#f))) + (lambda (_ctx81099_ _key81100_) + (hash-get + (##unchecked-structure-ref _ctx81099_ '2 gx#expander-context::t '#f) + _key81100_))) (define gx#core-context-put! - (lambda (_ctx143612_ _key143613_ _val143614_) - (table-set! - (##unchecked-structure-ref _ctx143612_ '2 gx#expander-context::t '#f) - _key143613_ - _val143614_))) + (lambda (_ctx81095_ _key81096_ _val81097_) + (hash-put! + (##unchecked-structure-ref _ctx81095_ '2 gx#expander-context::t '#f) + _key81096_ + _val81097_))) (define gx#core-context-resolve - (lambda (_ctx143599_ _key143600_) - (let _lp143602_ ((_ctx143604_ _ctx143599_)) - (let ((_$e143606_ (gx#core-context-get _ctx143604_ _key143600_))) - (if _$e143606_ - (values _$e143606_) - (let ((_$e143609_ - (if (fx> (##vector-length _ctx143604_) '3) + (lambda (_ctx81082_ _key81083_) + (let _lp81085_ ((_ctx81087_ _ctx81082_)) + (let ((_$e81089_ (gx#core-context-get _ctx81087_ _key81083_))) + (if _$e81089_ + (values _$e81089_) + (let ((_$e81092_ + (if (fx> (##vector-length _ctx81087_) '3) (##unchecked-structure-ref - _ctx143604_ + _ctx81087_ '3 gx#phi-context::t '#f) '#f))) - (if _$e143609_ (_lp143602_ _$e143609_) '#f))))))) + (if _$e81092_ (_lp81085_ _$e81092_) '#f))))))) (define gx#core-context-bind! - (lambda (_ctx143589_ _key143590_ _val143591_ _rebind143592_) - (let ((_$e143594_ (gx#core-context-get _ctx143589_ _key143590_))) - (if _$e143594_ - ((lambda (_xval143597_) + (lambda (_ctx81072_ _key81073_ _val81074_ _rebind81075_) + (let ((_$e81077_ (gx#core-context-get _ctx81072_ _key81073_))) + (if _$e81077_ + ((lambda (_xval81080_) (gx#core-context-put! - _ctx143589_ - _key143590_ - (_rebind143592_ _xval143597_))) - _$e143594_) - (gx#core-context-put! _ctx143589_ _key143590_ _val143591_))))) + _ctx81072_ + _key81073_ + (_rebind81075_ _xval81080_))) + _$e81077_) + (gx#core-context-put! _ctx81072_ _key81073_ _val81074_))))) (define gx#core-context-top__% - (lambda (_ctx143567_ _stop?143568_) - (let _lp143570_ ((_ctx143572_ _ctx143567_)) - (if (_stop?143568_ _ctx143572_) - _ctx143572_ - (if (##structure-instance-of? _ctx143572_ 'gx#context-phi::t) - (_lp143570_ + (lambda (_ctx81050_ _stop?81051_) + (let _lp81053_ ((_ctx81055_ _ctx81050_)) + (if (_stop?81051_ _ctx81055_) + _ctx81055_ + (if (##structure-instance-of? _ctx81055_ 'gx#context-phi::t) + (_lp81053_ (##unchecked-structure-ref - _ctx143572_ + _ctx81055_ '3 gx#phi-context::t '#f)) '#f))))) (define gx#core-context-top__0 (lambda () - (let* ((_ctx143578_ (gx#current-expander-context)) - (_stop?143580_ gx#top-context?)) - (gx#core-context-top__% _ctx143578_ _stop?143580_)))) + (let* ((_ctx81061_ (gx#current-expander-context)) + (_stop?81063_ gx#top-context?)) + (gx#core-context-top__% _ctx81061_ _stop?81063_)))) (define gx#core-context-top__1 - (lambda (_ctx143582_) - (let ((_stop?143584_ gx#top-context?)) - (gx#core-context-top__% _ctx143582_ _stop?143584_)))) + (lambda (_ctx81065_) + (let ((_stop?81067_ gx#top-context?)) + (gx#core-context-top__% _ctx81065_ _stop?81067_)))) (define gx#core-context-top - (lambda _g150830_ - (let ((_g150829_ (##length _g150830_))) - (cond ((##fx= _g150829_ 0) - (apply (lambda () (gx#core-context-top__0)) _g150830_)) - ((##fx= _g150829_ 1) - (apply (lambda (_ctx143582_) - (gx#core-context-top__1 _ctx143582_)) - _g150830_)) - ((##fx= _g150829_ 2) - (apply (lambda (_ctx143586_ _stop?143587_) - (gx#core-context-top__% _ctx143586_ _stop?143587_)) - _g150830_)) + (lambda _g83745_ + (let ((_g83744_ (##length _g83745_))) + (cond ((##fx= _g83744_ 0) + (apply (lambda () (gx#core-context-top__0)) _g83745_)) + ((##fx= _g83744_ 1) + (apply (lambda (_ctx81065_) + (gx#core-context-top__1 _ctx81065_)) + _g83745_)) + ((##fx= _g83744_ 2) + (apply (lambda (_ctx81069_ _stop?81070_) + (gx#core-context-top__% _ctx81069_ _stop?81070_)) + _g83745_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-top - _g150830_)))))) + _g83745_)))))) (define gx#core-context-root__% - (lambda (_ctx143552_) - (let _lp143554_ ((_ctx143556_ _ctx143552_)) - (if (##structure-instance-of? _ctx143556_ 'gx#context-phi::t) - (_lp143554_ - (##unchecked-structure-ref - _ctx143556_ - '3 - gx#phi-context::t - '#f)) - _ctx143556_)))) + (lambda (_ctx81035_) + (let _lp81037_ ((_ctx81039_ _ctx81035_)) + (if (##structure-instance-of? _ctx81039_ 'gx#context-phi::t) + (_lp81037_ + (##unchecked-structure-ref _ctx81039_ '3 gx#phi-context::t '#f)) + _ctx81039_)))) (define gx#core-context-root__0 (lambda () - (let ((_ctx143562_ (gx#current-expander-context))) - (gx#core-context-root__% _ctx143562_)))) + (let ((_ctx81045_ (gx#current-expander-context))) + (gx#core-context-root__% _ctx81045_)))) (define gx#core-context-root - (lambda _g150832_ - (let ((_g150831_ (##length _g150832_))) - (cond ((##fx= _g150831_ 0) - (apply (lambda () (gx#core-context-root__0)) _g150832_)) - ((##fx= _g150831_ 1) - (apply (lambda (_ctx143564_) - (gx#core-context-root__% _ctx143564_)) - _g150832_)) + (lambda _g83747_ + (let ((_g83746_ (##length _g83747_))) + (cond ((##fx= _g83746_ 0) + (apply (lambda () (gx#core-context-root__0)) _g83747_)) + ((##fx= _g83746_ 1) + (apply (lambda (_ctx81047_) + (gx#core-context-root__% _ctx81047_)) + _g83747_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-root - _g150832_)))))) + _g83747_)))))) (define gx#core-context-rebind?__% - (lambda (_ctx143533_ . __143530143534_) - (let ((_$e143537_ (gx#current-expander-allow-rebind?))) - (if _$e143537_ - _$e143537_ - (if (##structure-instance-of? _ctx143533_ 'gx#top-context::t) + (lambda (_ctx81016_ . __8101381017_) + (let ((_$e81020_ (gx#current-expander-allow-rebind?))) + (if _$e81020_ + _$e81020_ + (if (##structure-instance-of? _ctx81016_ 'gx#top-context::t) (if (not (##structure-instance-of? - _ctx143533_ + _ctx81016_ 'gx#module-context::t)) (not (##structure-instance-of? - _ctx143533_ + _ctx81016_ 'gx#prelude-context::t)) '#f) '#f))))) (define gx#core-context-rebind?__0 (lambda () - (let ((_ctx143544_ (gx#current-expander-context))) - (gx#core-context-rebind?__% _ctx143544_)))) + (let ((_ctx81027_ (gx#current-expander-context))) + (gx#core-context-rebind?__% _ctx81027_)))) (define gx#core-context-rebind? - (lambda _g150834_ - (let ((_g150833_ (##length _g150834_))) - (cond ((##fx= _g150833_ 0) - (apply (lambda () (gx#core-context-rebind?__0)) _g150834_)) - ((##fx= _g150833_ 1) - (apply (lambda (_ctx143546_) - (gx#core-context-rebind?__% _ctx143546_)) - _g150834_)) - ((##fx>= _g150833_ 1) - (apply gx#core-context-rebind?__% _g150834_)) + (lambda _g83749_ + (let ((_g83748_ (##length _g83749_))) + (cond ((##fx= _g83748_ 0) + (apply (lambda () (gx#core-context-rebind?__0)) _g83749_)) + ((##fx= _g83748_ 1) + (apply (lambda (_ctx81029_) + (gx#core-context-rebind?__% _ctx81029_)) + _g83749_)) + ((##fx>= _g83748_ 1) + (apply gx#core-context-rebind?__% _g83749_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-rebind? - _g150834_)))))) + _g83749_)))))) (define gx#core-context-namespace__% - (lambda (_ctx143516_) - (let ((_$e143518_ (gx#core-context-top__1 _ctx143516_))) - (if _$e143518_ - ((lambda (_ctx143521_) + (lambda (_ctx80999_) + (let ((_$e81001_ (gx#core-context-top__1 _ctx80999_))) + (if _$e81001_ + ((lambda (_ctx81004_) (if (##structure-instance-of? - _ctx143521_ + _ctx81004_ 'gx#module-context::t) (##unchecked-structure-ref - _ctx143521_ + _ctx81004_ '6 gx#module-context::t '#f) '#f)) - _$e143518_) + _$e81001_) '#f)))) (define gx#core-context-namespace__0 (lambda () - (let ((_ctx143527_ (gx#current-expander-context))) - (gx#core-context-namespace__% _ctx143527_)))) + (let ((_ctx81010_ (gx#current-expander-context))) + (gx#core-context-namespace__% _ctx81010_)))) (define gx#core-context-namespace - (lambda _g150836_ - (let ((_g150835_ (##length _g150836_))) - (cond ((##fx= _g150835_ 0) - (apply (lambda () (gx#core-context-namespace__0)) _g150836_)) - ((##fx= _g150835_ 1) - (apply (lambda (_ctx143529_) - (gx#core-context-namespace__% _ctx143529_)) - _g150836_)) + (lambda _g83751_ + (let ((_g83750_ (##length _g83751_))) + (cond ((##fx= _g83750_ 0) + (apply (lambda () (gx#core-context-namespace__0)) _g83751_)) + ((##fx= _g83750_ 1) + (apply (lambda (_ctx81012_) + (gx#core-context-namespace__% _ctx81012_)) + _g83751_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-namespace - _g150836_)))))) + _g83751_)))))) (define gx#expander-binding?__% - (lambda (_bind143502_ _is?143503_) - (if (##structure-direct-instance-of? - _bind143502_ - 'gx#syntax-binding::t) - (_is?143503_ + (lambda (_bind80985_ _is?80986_) + (if (##structure-direct-instance-of? _bind80985_ 'gx#syntax-binding::t) + (_is?80986_ (##unchecked-structure-ref - _bind143502_ + _bind80985_ '4 gx#syntax-binding::t '#f)) '#f))) (define gx#expander-binding?__0 - (lambda (_bind143508_) - (let ((_is?143510_ gx#expander?)) - (gx#expander-binding?__% _bind143508_ _is?143510_)))) + (lambda (_bind80991_) + (let ((_is?80993_ gx#expander?)) + (gx#expander-binding?__% _bind80991_ _is?80993_)))) (define gx#expander-binding? - (lambda _g150838_ - (let ((_g150837_ (##length _g150838_))) - (cond ((##fx= _g150837_ 1) - (apply (lambda (_bind143508_) - (gx#expander-binding?__0 _bind143508_)) - _g150838_)) - ((##fx= _g150837_ 2) - (apply (lambda (_bind143512_ _is?143513_) - (gx#expander-binding?__% _bind143512_ _is?143513_)) - _g150838_)) + (lambda _g83753_ + (let ((_g83752_ (##length _g83753_))) + (cond ((##fx= _g83752_ 1) + (apply (lambda (_bind80991_) + (gx#expander-binding?__0 _bind80991_)) + _g83753_)) + ((##fx= _g83752_ 2) + (apply (lambda (_bind80995_ _is?80996_) + (gx#expander-binding?__% _bind80995_ _is?80996_)) + _g83753_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-binding? - _g150838_)))))) + _g83753_)))))) (define gx#core-expander-binding? - (lambda (_bind143499_) - (gx#expander-binding?__% _bind143499_ gx#core-expander?))) + (lambda (_bind80982_) + (gx#expander-binding?__% _bind80982_ gx#core-expander?))) (define gx#expression-form-binding? - (lambda (_bind143497_) - (gx#expander-binding?__% _bind143497_ gx#expression-form?))) + (lambda (_bind80980_) + (gx#expander-binding?__% _bind80980_ gx#expression-form?))) (define gx#direct-special-form-binding? - (lambda (_bind143491_) - (letrec ((_direct-special-form?143493_ - (lambda (_obj143495_) + (lambda (_bind80974_) + (letrec ((_direct-special-form?80976_ + (lambda (_obj80978_) (##structure-direct-instance-of? - _obj143495_ + _obj80978_ (##type-id gx#special-form::t))))) - (gx#expander-binding?__% - _bind143491_ - _direct-special-form?143493_)))) + (gx#expander-binding?__% _bind80974_ _direct-special-form?80976_)))) (define gx#special-form-binding? - (lambda (_bind143489_) - (gx#expander-binding?__% _bind143489_ gx#special-form?))) + (lambda (_bind80972_) + (gx#expander-binding?__% _bind80972_ gx#special-form?))) (define gx#feature-binding? - (lambda (_bind143480_) - (letrec ((_feature?143482_ - (lambda (_e143484_) - (let ((_$e143486_ + (lambda (_bind80963_) + (letrec ((_feature?80965_ + (lambda (_e80967_) + (let ((_$e80969_ (##structure-instance-of? - _e143484_ + _e80967_ 'gx#feature-expander::t))) - (if _$e143486_ - _$e143486_ + (if _$e80969_ + _$e80969_ (##structure-instance-of? - _e143484_ + _e80967_ 'gx#module-context::t)))))) - (gx#expander-binding?__% _bind143480_ _feature?143482_)))) + (gx#expander-binding?__% _bind80963_ _feature?80965_)))) (define gx#private-feature-binding? - (lambda (_bind143478_) - (gx#expander-binding?__% _bind143478_ gx#private-feature-expander?))) + (lambda (_bind80961_) + (gx#expander-binding?__% _bind80961_ gx#private-feature-expander?))) (define gx#core-bound-identifier?__% - (lambda (_id143465_ _bound?143466_) - (if (gx#identifier? _id143465_) - (_bound?143466_ (gx#resolve-identifier__0 _id143465_)) + (lambda (_id80948_ _bound?80949_) + (if (gx#identifier? _id80948_) + (_bound?80949_ (gx#resolve-identifier__0 _id80948_)) '#f))) (define gx#core-bound-identifier?__0 - (lambda (_id143471_) - (let ((_bound?143473_ gx#core-expander-binding?)) - (gx#core-bound-identifier?__% _id143471_ _bound?143473_)))) + (lambda (_id80954_) + (let ((_bound?80956_ gx#core-expander-binding?)) + (gx#core-bound-identifier?__% _id80954_ _bound?80956_)))) (define gx#core-bound-identifier? - (lambda _g150840_ - (let ((_g150839_ (##length _g150840_))) - (cond ((##fx= _g150839_ 1) - (apply (lambda (_id143471_) - (gx#core-bound-identifier?__0 _id143471_)) - _g150840_)) - ((##fx= _g150839_ 2) - (apply (lambda (_id143475_ _bound?143476_) + (lambda _g83755_ + (let ((_g83754_ (##length _g83755_))) + (cond ((##fx= _g83754_ 1) + (apply (lambda (_id80954_) + (gx#core-bound-identifier?__0 _id80954_)) + _g83755_)) + ((##fx= _g83754_ 2) + (apply (lambda (_id80958_ _bound?80959_) (gx#core-bound-identifier?__% - _id143475_ - _bound?143476_)) - _g150840_)) + _id80958_ + _bound?80959_)) + _g83755_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bound-identifier? - _g150840_)))))) + _g83755_)))))) (define gx#core-identifier=? - (lambda (_x143455_ _y143456_) - (letrec ((_y=?143458_ - (lambda (_xid143462_) - ((if (list? _y143456_) memq eq?) _xid143462_ _y143456_)))) - (let ((_bind143460_ (gx#resolve-identifier__0 _x143455_))) - (if (##structure-instance-of? _bind143460_ 'gx#binding::t) - (_y=?143458_ - (##unchecked-structure-ref _bind143460_ '1 gx#binding::t '#f)) - (_y=?143458_ (gx#stx-e _x143455_))))))) + (lambda (_x80938_ _y80939_) + (letrec ((_y=?80941_ + (lambda (_xid80945_) + ((if (list? _y80939_) memq eq?) _xid80945_ _y80939_)))) + (let ((_bind80943_ (gx#resolve-identifier__0 _x80938_))) + (if (##structure-instance-of? _bind80943_ 'gx#binding::t) + (_y=?80941_ + (##unchecked-structure-ref _bind80943_ '1 gx#binding::t '#f)) + (_y=?80941_ (gx#stx-e _x80938_))))))) (define gx#core-extern-symbol? - (lambda (_e143453_) - (if (interned-symbol? _e143453_) - (string-index (symbol->string _e143453_) '#\#) + (lambda (_e80936_) + (if (interned-symbol? _e80936_) + (string-index__0 (symbol->string _e80936_) '#\#) '#f))) (define gx#core-quote-syntax__% - (lambda (_stx143408_ _src143409_ _ctx143410_ _marks143411_) - (if (##structure? _stx143408_) - (let ((_$e143413_ (gx#sealed-syntax-unwrap _stx143408_))) - (if _$e143413_ - (values _$e143413_) - (if (gx#identifier? _stx143408_) - (let ((_id143416_ - (gx#stx-unwrap__% _stx143408_ _marks143411_))) + (lambda (_stx80891_ _src80892_ _ctx80893_ _marks80894_) + (if (##structure? _stx80891_) + (let ((_$e80896_ (gx#sealed-syntax-unwrap _stx80891_))) + (if _$e80896_ + (values _$e80896_) + (if (gx#identifier? _stx80891_) + (let ((_id80899_ + (gx#stx-unwrap__% _stx80891_ _marks80894_))) (##structure gx#syntax-quote::t - (##unchecked-structure-ref - _id143416_ - '1 - gx#AST::t - '#f) - (let ((_$e143418_ + (##unchecked-structure-ref _id80899_ '1 gx#AST::t '#f) + (let ((_$e80901_ (##unchecked-structure-ref - _id143416_ + _id80899_ '2 gx#AST::t '#f))) - (if _$e143418_ _$e143418_ _src143409_)) - _ctx143410_ + (if _$e80901_ _$e80901_ _src80892_)) + _ctx80893_ (##unchecked-structure-ref - _id143416_ + _id80899_ '3 gx#identifier-wrap::t '#f))) (##structure gx#syntax-quote::t - (gx#stx-e _stx143408_) - (let ((_$e143421_ (gx#stx-source _stx143408_))) - (if _$e143421_ _$e143421_ _src143409_)) - _ctx143410_ - (reverse _marks143411_))))) + (gx#stx-e _stx80891_) + (let ((_$e80904_ (gx#stx-source _stx80891_))) + (if _$e80904_ _$e80904_ _src80892_)) + _ctx80893_ + (reverse _marks80894_))))) (##structure gx#syntax-quote::t - _stx143408_ - _src143409_ - _ctx143410_ - (reverse _marks143411_))))) + _stx80891_ + _src80892_ + _ctx80893_ + (reverse _marks80894_))))) (define gx#core-quote-syntax__0 - (lambda (_stx143427_) - (let* ((_src143429_ '#f) - (_ctx143431_ (gx#current-expander-context)) - (_marks143433_ (gx#current-expander-marks))) + (lambda (_stx80910_) + (let* ((_src80912_ '#f) + (_ctx80914_ (gx#current-expander-context)) + (_marks80916_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx143427_ - _src143429_ - _ctx143431_ - _marks143433_)))) + _stx80910_ + _src80912_ + _ctx80914_ + _marks80916_)))) (define gx#core-quote-syntax__1 - (lambda (_stx143435_ _src143436_) - (let* ((_ctx143438_ (gx#current-expander-context)) - (_marks143440_ (gx#current-expander-marks))) + (lambda (_stx80918_ _src80919_) + (let* ((_ctx80921_ (gx#current-expander-context)) + (_marks80923_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx143435_ - _src143436_ - _ctx143438_ - _marks143440_)))) + _stx80918_ + _src80919_ + _ctx80921_ + _marks80923_)))) (define gx#core-quote-syntax__2 - (lambda (_stx143442_ _src143443_ _ctx143444_) - (let ((_marks143446_ (gx#current-expander-marks))) + (lambda (_stx80925_ _src80926_ _ctx80927_) + (let ((_marks80929_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx143442_ - _src143443_ - _ctx143444_ - _marks143446_)))) + _stx80925_ + _src80926_ + _ctx80927_ + _marks80929_)))) (define gx#core-quote-syntax - (lambda _g150842_ - (let ((_g150841_ (##length _g150842_))) - (cond ((##fx= _g150841_ 1) - (apply (lambda (_stx143427_) - (gx#core-quote-syntax__0 _stx143427_)) - _g150842_)) - ((##fx= _g150841_ 2) - (apply (lambda (_stx143435_ _src143436_) - (gx#core-quote-syntax__1 _stx143435_ _src143436_)) - _g150842_)) - ((##fx= _g150841_ 3) - (apply (lambda (_stx143442_ _src143443_ _ctx143444_) + (lambda _g83757_ + (let ((_g83756_ (##length _g83757_))) + (cond ((##fx= _g83756_ 1) + (apply (lambda (_stx80910_) + (gx#core-quote-syntax__0 _stx80910_)) + _g83757_)) + ((##fx= _g83756_ 2) + (apply (lambda (_stx80918_ _src80919_) + (gx#core-quote-syntax__1 _stx80918_ _src80919_)) + _g83757_)) + ((##fx= _g83756_ 3) + (apply (lambda (_stx80925_ _src80926_ _ctx80927_) (gx#core-quote-syntax__2 - _stx143442_ - _src143443_ - _ctx143444_)) - _g150842_)) - ((##fx= _g150841_ 4) - (apply (lambda (_stx143448_ - _src143449_ - _ctx143450_ - _marks143451_) + _stx80925_ + _src80926_ + _ctx80927_)) + _g83757_)) + ((##fx= _g83756_ 4) + (apply (lambda (_stx80931_ _src80932_ _ctx80933_ _marks80934_) (gx#core-quote-syntax__% - _stx143448_ - _src143449_ - _ctx143450_ - _marks143451_)) - _g150842_)) + _stx80931_ + _src80932_ + _ctx80933_ + _marks80934_)) + _g83757_)) (else (##raise-wrong-number-of-arguments-exception gx#core-quote-syntax - _g150842_)))))) + _g83757_)))))) (define gx#core-cons - (lambda (_hd143404_ _tl143405_) - (cons (gx#core-quote-syntax__0 _hd143404_) _tl143405_))) + (lambda (_hd80887_ _tl80888_) + (cons (gx#core-quote-syntax__0 _hd80887_) _tl80888_))) (define gx#core-list - (lambda (_hd143401_ . _rest143402_) - (cons (gx#core-quote-syntax__0 _hd143401_) _rest143402_))) + (lambda (_hd80884_ . _rest80885_) + (cons (gx#core-quote-syntax__0 _hd80884_) _rest80885_))) (define gx#core-cons* - (lambda (_hd143398_ . _rest143399_) - (apply cons* (gx#core-quote-syntax__0 _hd143398_) _rest143399_))) + (lambda (_hd80881_ . _rest80882_) + (apply cons* (gx#core-quote-syntax__0 _hd80881_) _rest80882_))) (define gx#core-resolve-path__% - (lambda (_stx-path143372_ _rel143373_) - (let ((_path143385_ (gx#stx-e _stx-path143372_)) - (_reldir143386_ - (let _lp143375_ ((_relsrc143377_ - (let ((_$e143382_ - (gx#stx-source _stx-path143372_))) - (if _$e143382_ _$e143382_ _rel143373_)))) - (if (##structure-instance-of? _relsrc143377_ 'gerbil#AST::t) - (_lp143375_ - (let ((_$e143379_ (gx#stx-source _relsrc143377_))) - (if _$e143379_ _$e143379_ (gx#stx-e _relsrc143377_)))) - (if (source-location-path? _relsrc143377_) - (path-directory (source-location-path _relsrc143377_)) - (if (string? _relsrc143377_) - (path-directory _relsrc143377_) + (lambda (_stx-path80855_ _rel80856_) + (let ((_path80868_ (gx#stx-e _stx-path80855_)) + (_reldir80869_ + (let _lp80858_ ((_relsrc80860_ + (let ((_$e80865_ + (gx#stx-source _stx-path80855_))) + (if _$e80865_ _$e80865_ _rel80856_)))) + (if (##structure-instance-of? _relsrc80860_ 'gerbil#AST::t) + (_lp80858_ + (let ((_$e80862_ (gx#stx-source _relsrc80860_))) + (if _$e80862_ _$e80862_ (gx#stx-e _relsrc80860_)))) + (if (source-location-path? _relsrc80860_) + (path-directory (source-location-path _relsrc80860_)) + (if (string? _relsrc80860_) + (path-directory _relsrc80860_) (if (not (null? (gx#current-expander-path))) (path-directory (car (gx#current-expander-path))) (current-directory)))))))) - (path-expand _path143385_ (path-normalize _reldir143386_))))) + (path-expand _path80868_ (path-normalize _reldir80869_))))) (define gx#core-resolve-path__0 - (lambda (_stx-path143391_) - (let ((_rel143393_ '#f)) - (gx#core-resolve-path__% _stx-path143391_ _rel143393_)))) + (lambda (_stx-path80874_) + (let ((_rel80876_ '#f)) + (gx#core-resolve-path__% _stx-path80874_ _rel80876_)))) (define gx#core-resolve-path - (lambda _g150844_ - (let ((_g150843_ (##length _g150844_))) - (cond ((##fx= _g150843_ 1) - (apply (lambda (_stx-path143391_) - (gx#core-resolve-path__0 _stx-path143391_)) - _g150844_)) - ((##fx= _g150843_ 2) - (apply (lambda (_stx-path143395_ _rel143396_) - (gx#core-resolve-path__% - _stx-path143395_ - _rel143396_)) - _g150844_)) + (lambda _g83759_ + (let ((_g83758_ (##length _g83759_))) + (cond ((##fx= _g83758_ 1) + (apply (lambda (_stx-path80874_) + (gx#core-resolve-path__0 _stx-path80874_)) + _g83759_)) + ((##fx= _g83758_ 2) + (apply (lambda (_stx-path80878_ _rel80879_) + (gx#core-resolve-path__% _stx-path80878_ _rel80879_)) + _g83759_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-path - _g150844_)))))) + _g83759_)))))) (define gx#core-deserialize-mark__% - (lambda (_repr143328_ _ctx143329_) - (let* ((_repr143330143337_ _repr143328_) - (_E143332143341_ - (lambda () (error '"No clause matching" _repr143330143337_))) - (_K143333143349_ - (lambda (_subs143344_ _phi143345_) - (let ((_subst143347_ - (if (not (null? _subs143344_)) - (list->table _subs143344_ 'test: eq?) + (lambda (_repr80811_ _ctx80812_) + (let* ((_repr8081380820_ _repr80811_) + (_E8081580824_ + (lambda () (error '"No clause matching" _repr8081380820_))) + (_K8081680832_ + (lambda (_subs80827_ _phi80828_) + (let ((_subst80830_ + (if (not (null? _subs80827_)) + (list->hash-table-eq _subs80827_) '#f))) (##structure gx#expander-mark::t - _subst143347_ - _ctx143329_ - _phi143345_ + _subst80830_ + _ctx80812_ + _phi80828_ '#f))))) - (if (##pair? _repr143330143337_) - (let ((_hd143334143352_ (##car _repr143330143337_)) - (_tl143335143354_ (##cdr _repr143330143337_))) - (let* ((_phi143357_ _hd143334143352_) - (_subs143359_ _tl143335143354_)) - (_K143333143349_ _subs143359_ _phi143357_))) - (_E143332143341_))))) + (if (##pair? _repr8081380820_) + (let ((_hd8081780835_ (##car _repr8081380820_)) + (_tl8081880837_ (##cdr _repr8081380820_))) + (let* ((_phi80840_ _hd8081780835_) + (_subs80842_ _tl8081880837_)) + (_K8081680832_ _subs80842_ _phi80840_))) + (_E8081580824_))))) (define gx#core-deserialize-mark__0 - (lambda (_repr143364_) - (let ((_ctx143366_ (gx#current-expander-context))) - (gx#core-deserialize-mark__% _repr143364_ _ctx143366_)))) + (lambda (_repr80847_) + (let ((_ctx80849_ (gx#current-expander-context))) + (gx#core-deserialize-mark__% _repr80847_ _ctx80849_)))) (define gx#core-deserialize-mark - (lambda _g150846_ - (let ((_g150845_ (##length _g150846_))) - (cond ((##fx= _g150845_ 1) - (apply (lambda (_repr143364_) - (gx#core-deserialize-mark__0 _repr143364_)) - _g150846_)) - ((##fx= _g150845_ 2) - (apply (lambda (_repr143368_ _ctx143369_) - (gx#core-deserialize-mark__% - _repr143368_ - _ctx143369_)) - _g150846_)) + (lambda _g83761_ + (let ((_g83760_ (##length _g83761_))) + (cond ((##fx= _g83760_ 1) + (apply (lambda (_repr80847_) + (gx#core-deserialize-mark__0 _repr80847_)) + _g83761_)) + ((##fx= _g83760_ 2) + (apply (lambda (_repr80851_ _ctx80852_) + (gx#core-deserialize-mark__% _repr80851_ _ctx80852_)) + _g83761_)) (else (##raise-wrong-number-of-arguments-exception gx#core-deserialize-mark - _g150846_)))))) + _g83761_)))))) (define gx#syntax-local-rewrap - (lambda (_stx143325_) - (gx#stx-rewrap _stx143325_ (gx#current-expander-marks)))) + (lambda (_stx80808_) + (gx#stx-rewrap _stx80808_ (gx#current-expander-marks)))) (define gx#syntax-local-unwrap - (lambda (_stx143323_) - (gx#stx-unwrap__% _stx143323_ (gx#current-expander-marks)))) + (lambda (_stx80806_) + (gx#stx-unwrap__% _stx80806_ (gx#current-expander-marks)))) (define gx#syntax-local-introduce - (lambda (_stx143293_) - (let* ((_g143294143302_ (gx#current-expander-marks)) - (_else143296143310_ (lambda () _stx143293_)) - (_K143298143315_ - (lambda (_hd143313_) - (gx#stx-apply-mark _stx143293_ _hd143313_)))) - (if (##pair? _g143294143302_) - (let* ((_hd143299143318_ (##car _g143294143302_)) - (_hd143321_ _hd143299143318_)) - (_K143298143315_ _hd143321_)) - (_else143296143310_))))) + (lambda (_stx80776_) + (let* ((_g8077780785_ (gx#current-expander-marks)) + (_else8077980793_ (lambda () _stx80776_)) + (_K8078180798_ + (lambda (_hd80796_) (gx#stx-apply-mark _stx80776_ _hd80796_)))) + (if (##pair? _g8077780785_) + (let* ((_hd8078280801_ (##car _g8077780785_)) + (_hd80804_ _hd8078280801_)) + (_K8078180798_ _hd80804_)) + (_else8077980793_))))) (define gx#syntax-local-e__% - (lambda (_stx143278_ _E143279_) - (let ((_bind143281_ (gx#resolve-identifier__0 _stx143278_))) + (lambda (_stx80761_ _E80762_) + (let ((_bind80764_ (gx#resolve-identifier__0 _stx80761_))) (if (##structure-direct-instance-of? - _bind143281_ + _bind80764_ 'gx#syntax-binding::t) (##unchecked-structure-ref - _bind143281_ + _bind80764_ '4 gx#syntax-binding::t '#f) - (_E143279_ _stx143278_))))) + (_E80762_ _stx80761_))))) (define gx#syntax-local-e__0 - (lambda (_stx143286_) - (let ((_E143288_ gx#raise-syntax-ref-error)) - (gx#syntax-local-e__% _stx143286_ _E143288_)))) + (lambda (_stx80769_) + (let ((_E80771_ gx#raise-syntax-ref-error)) + (gx#syntax-local-e__% _stx80769_ _E80771_)))) (define gx#syntax-local-e - (lambda _g150848_ - (let ((_g150847_ (##length _g150848_))) - (cond ((##fx= _g150847_ 1) - (apply (lambda (_stx143286_) - (gx#syntax-local-e__0 _stx143286_)) - _g150848_)) - ((##fx= _g150847_ 2) - (apply (lambda (_stx143290_ _E143291_) - (gx#syntax-local-e__% _stx143290_ _E143291_)) - _g150848_)) + (lambda _g83763_ + (let ((_g83762_ (##length _g83763_))) + (cond ((##fx= _g83762_ 1) + (apply (lambda (_stx80769_) (gx#syntax-local-e__0 _stx80769_)) + _g83763_)) + ((##fx= _g83762_ 2) + (apply (lambda (_stx80773_ _E80774_) + (gx#syntax-local-e__% _stx80773_ _E80774_)) + _g83763_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-e - _g150848_)))))) + _g83763_)))))) (define gx#syntax-local-value__% - (lambda (_stx143262_ _E143263_) - (let ((_e143265_ (gx#syntax-local-e__% _stx143262_ _E143263_))) - (if (##structure-instance-of? _e143265_ 'gx#expander::t) - (##structure-ref _e143265_ '1 gx#expander::t '#f) - _e143265_)))) + (lambda (_stx80745_ _E80746_) + (let ((_e80748_ (gx#syntax-local-e__% _stx80745_ _E80746_))) + (if (##structure-instance-of? _e80748_ 'gx#expander::t) + (##structure-ref _e80748_ '1 gx#expander::t '#f) + _e80748_)))) (define gx#syntax-local-value__0 - (lambda (_stx143270_) - (let ((_E143272_ gx#raise-syntax-ref-error)) - (gx#syntax-local-value__% _stx143270_ _E143272_)))) + (lambda (_stx80753_) + (let ((_E80755_ gx#raise-syntax-ref-error)) + (gx#syntax-local-value__% _stx80753_ _E80755_)))) (define gx#syntax-local-value - (lambda _g150850_ - (let ((_g150849_ (##length _g150850_))) - (cond ((##fx= _g150849_ 1) - (apply (lambda (_stx143270_) - (gx#syntax-local-value__0 _stx143270_)) - _g150850_)) - ((##fx= _g150849_ 2) - (apply (lambda (_stx143274_ _E143275_) - (gx#syntax-local-value__% _stx143274_ _E143275_)) - _g150850_)) + (lambda _g83765_ + (let ((_g83764_ (##length _g83765_))) + (cond ((##fx= _g83764_ 1) + (apply (lambda (_stx80753_) + (gx#syntax-local-value__0 _stx80753_)) + _g83765_)) + ((##fx= _g83764_ 2) + (apply (lambda (_stx80757_ _E80758_) + (gx#syntax-local-value__% _stx80757_ _E80758_)) + _g83765_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-value - _g150850_)))))) + _g83765_)))))) (define gx#raise-syntax-ref-error - (lambda (_stx143259_) + (lambda (_stx80742_) (gx#raise-syntax-error '#f '"Bad syntax; not a syntax binding" - _stx143259_))))) + _stx80742_))))) diff --git a/src/bootstrap/gerbil/expander/core__1.scm b/src/bootstrap/gerbil/expander/core__1.scm index b5d4562bf..5045310bc 100644 --- a/src/bootstrap/gerbil/expander/core__1.scm +++ b/src/bootstrap/gerbil/expander/core__1.scm @@ -1,3569 +1,3569 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gx[1]#_g150852_| + (define |gx[1]#_g83767_| (##structure gx#syntax-quote::t 'expander-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g150854_| + (define |gx[1]#_g83769_| (##structure gx#syntax-quote::t 'make-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g150856_| + (define |gx[1]#_g83771_| (##structure gx#syntax-quote::t 'expander-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g150861_| + (define |gx[1]#_g83776_| (##structure gx#syntax-quote::t 'expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g150864_| + (define |gx[1]#_g83779_| (##structure gx#syntax-quote::t 'expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150869_| + (define |gx[1]#_g83784_| (##structure gx#syntax-quote::t 'expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150872_| + (define |gx[1]#_g83787_| (##structure gx#syntax-quote::t 'expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150877_| + (define |gx[1]#_g83792_| (##structure gx#syntax-quote::t '&expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g150880_| + (define |gx[1]#_g83795_| (##structure gx#syntax-quote::t '&expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150885_| + (define |gx[1]#_g83800_| (##structure gx#syntax-quote::t '&expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150888_| + (define |gx[1]#_g83803_| (##structure gx#syntax-quote::t '&expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150891_| + (define |gx[1]#_g83806_| (##structure gx#syntax-quote::t 'expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g150893_| + (define |gx[1]#_g83808_| (##structure gx#syntax-quote::t 'root-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g150895_| + (define |gx[1]#_g83810_| (##structure gx#syntax-quote::t 'make-root-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g150897_| + (define |gx[1]#_g83812_| (##structure gx#syntax-quote::t 'root-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g150902_| + (define |gx[1]#_g83817_| (##structure gx#syntax-quote::t 'root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g150905_| + (define |gx[1]#_g83820_| (##structure gx#syntax-quote::t 'root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150910_| + (define |gx[1]#_g83825_| (##structure gx#syntax-quote::t 'root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150913_| + (define |gx[1]#_g83828_| (##structure gx#syntax-quote::t 'root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150918_| + (define |gx[1]#_g83833_| (##structure gx#syntax-quote::t '&root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g150921_| + (define |gx[1]#_g83836_| (##structure gx#syntax-quote::t '&root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150926_| + (define |gx[1]#_g83841_| (##structure gx#syntax-quote::t '&root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150929_| + (define |gx[1]#_g83844_| (##structure gx#syntax-quote::t '&root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150933_| + (define |gx[1]#_g83848_| (##structure gx#syntax-quote::t 'phi-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g150935_| + (define |gx[1]#_g83850_| (##structure gx#syntax-quote::t 'make-phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g150937_| + (define |gx[1]#_g83852_| (##structure gx#syntax-quote::t 'phi-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g150945_| + (define |gx[1]#_g83860_| (##structure gx#syntax-quote::t 'phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g150948_| + (define |gx[1]#_g83863_| (##structure gx#syntax-quote::t 'phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150951_| + (define |gx[1]#_g83866_| (##structure gx#syntax-quote::t 'phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g150954_| + (define |gx[1]#_g83869_| (##structure gx#syntax-quote::t 'phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g150957_| + (define |gx[1]#_g83872_| (##structure gx#syntax-quote::t 'phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g150965_| + (define |gx[1]#_g83880_| (##structure gx#syntax-quote::t 'phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150968_| + (define |gx[1]#_g83883_| (##structure gx#syntax-quote::t 'phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150971_| + (define |gx[1]#_g83886_| (##structure gx#syntax-quote::t 'phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150974_| + (define |gx[1]#_g83889_| (##structure gx#syntax-quote::t 'phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150977_| + (define |gx[1]#_g83892_| (##structure gx#syntax-quote::t 'phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150985_| + (define |gx[1]#_g83900_| (##structure gx#syntax-quote::t '&phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g150988_| + (define |gx[1]#_g83903_| (##structure gx#syntax-quote::t '&phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150991_| + (define |gx[1]#_g83906_| (##structure gx#syntax-quote::t '&phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g150994_| + (define |gx[1]#_g83909_| (##structure gx#syntax-quote::t '&phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g150997_| + (define |gx[1]#_g83912_| (##structure gx#syntax-quote::t '&phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g151005_| + (define |gx[1]#_g83920_| (##structure gx#syntax-quote::t '&phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151008_| + (define |gx[1]#_g83923_| (##structure gx#syntax-quote::t '&phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151011_| + (define |gx[1]#_g83926_| (##structure gx#syntax-quote::t '&phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151014_| + (define |gx[1]#_g83929_| (##structure gx#syntax-quote::t '&phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151017_| + (define |gx[1]#_g83932_| (##structure gx#syntax-quote::t '&phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151020_| + (define |gx[1]#_g83935_| (##structure gx#syntax-quote::t 'phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g151022_| + (define |gx[1]#_g83937_| (##structure gx#syntax-quote::t 'top-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g151024_| + (define |gx[1]#_g83939_| (##structure gx#syntax-quote::t 'make-top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g151026_| + (define |gx[1]#_g83941_| (##structure gx#syntax-quote::t 'top-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151034_| + (define |gx[1]#_g83949_| (##structure gx#syntax-quote::t 'top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g151037_| + (define |gx[1]#_g83952_| (##structure gx#syntax-quote::t 'top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151040_| + (define |gx[1]#_g83955_| (##structure gx#syntax-quote::t 'top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g151043_| + (define |gx[1]#_g83958_| (##structure gx#syntax-quote::t 'top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g151046_| + (define |gx[1]#_g83961_| (##structure gx#syntax-quote::t 'top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g151054_| + (define |gx[1]#_g83969_| (##structure gx#syntax-quote::t 'top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151057_| + (define |gx[1]#_g83972_| (##structure gx#syntax-quote::t 'top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151060_| + (define |gx[1]#_g83975_| (##structure gx#syntax-quote::t 'top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151063_| + (define |gx[1]#_g83978_| (##structure gx#syntax-quote::t 'top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151066_| + (define |gx[1]#_g83981_| (##structure gx#syntax-quote::t 'top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151074_| + (define |gx[1]#_g83989_| (##structure gx#syntax-quote::t '&top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g151077_| + (define |gx[1]#_g83992_| (##structure gx#syntax-quote::t '&top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151080_| + (define |gx[1]#_g83995_| (##structure gx#syntax-quote::t '&top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g151083_| + (define |gx[1]#_g83998_| (##structure gx#syntax-quote::t '&top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g151086_| + (define |gx[1]#_g84001_| (##structure gx#syntax-quote::t '&top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g151094_| + (define |gx[1]#_g84009_| (##structure gx#syntax-quote::t '&top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151097_| + (define |gx[1]#_g84012_| (##structure gx#syntax-quote::t '&top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151100_| + (define |gx[1]#_g84015_| (##structure gx#syntax-quote::t '&top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151103_| + (define |gx[1]#_g84018_| (##structure gx#syntax-quote::t '&top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151106_| + (define |gx[1]#_g84021_| (##structure gx#syntax-quote::t '&top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151109_| + (define |gx[1]#_g84024_| (##structure gx#syntax-quote::t 'top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g151111_| + (define |gx[1]#_g84026_| (##structure gx#syntax-quote::t 'module-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g151113_| + (define |gx[1]#_g84028_| (##structure gx#syntax-quote::t 'make-module-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g151115_| + (define |gx[1]#_g84030_| (##structure gx#syntax-quote::t 'module-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151129_| + (define |gx[1]#_g84044_| (##structure gx#syntax-quote::t 'module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g151132_| + (define |gx[1]#_g84047_| (##structure gx#syntax-quote::t 'module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151135_| + (define |gx[1]#_g84050_| (##structure gx#syntax-quote::t 'module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g151138_| + (define |gx[1]#_g84053_| (##structure gx#syntax-quote::t 'module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g151141_| + (define |gx[1]#_g84056_| (##structure gx#syntax-quote::t 'module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g151144_| + (define |gx[1]#_g84059_| (##structure gx#syntax-quote::t 'module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g151147_| + (define |gx[1]#_g84062_| (##structure gx#syntax-quote::t 'module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151150_| + (define |gx[1]#_g84065_| (##structure gx#syntax-quote::t 'module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g151153_| + (define |gx[1]#_g84068_| (##structure gx#syntax-quote::t 'module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g151156_| + (define |gx[1]#_g84071_| (##structure gx#syntax-quote::t 'module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g151159_| + (define |gx[1]#_g84074_| (##structure gx#syntax-quote::t 'module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g151173_| + (define |gx[1]#_g84088_| (##structure gx#syntax-quote::t 'module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151176_| + (define |gx[1]#_g84091_| (##structure gx#syntax-quote::t 'module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151179_| + (define |gx[1]#_g84094_| (##structure gx#syntax-quote::t 'module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151182_| + (define |gx[1]#_g84097_| (##structure gx#syntax-quote::t 'module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151185_| + (define |gx[1]#_g84100_| (##structure gx#syntax-quote::t 'module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151188_| + (define |gx[1]#_g84103_| (##structure gx#syntax-quote::t 'module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151191_| + (define |gx[1]#_g84106_| (##structure gx#syntax-quote::t 'module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151194_| + (define |gx[1]#_g84109_| (##structure gx#syntax-quote::t 'module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151197_| + (define |gx[1]#_g84112_| (##structure gx#syntax-quote::t 'module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151200_| + (define |gx[1]#_g84115_| (##structure gx#syntax-quote::t 'module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151203_| + (define |gx[1]#_g84118_| (##structure gx#syntax-quote::t 'module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151217_| + (define |gx[1]#_g84132_| (##structure gx#syntax-quote::t '&module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g151220_| + (define |gx[1]#_g84135_| (##structure gx#syntax-quote::t '&module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151223_| + (define |gx[1]#_g84138_| (##structure gx#syntax-quote::t '&module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g151226_| + (define |gx[1]#_g84141_| (##structure gx#syntax-quote::t '&module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g151229_| + (define |gx[1]#_g84144_| (##structure gx#syntax-quote::t '&module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g151232_| + (define |gx[1]#_g84147_| (##structure gx#syntax-quote::t '&module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g151235_| + (define |gx[1]#_g84150_| (##structure gx#syntax-quote::t '&module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151238_| + (define |gx[1]#_g84153_| (##structure gx#syntax-quote::t '&module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g151241_| + (define |gx[1]#_g84156_| (##structure gx#syntax-quote::t '&module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g151244_| + (define |gx[1]#_g84159_| (##structure gx#syntax-quote::t '&module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g151247_| + (define |gx[1]#_g84162_| (##structure gx#syntax-quote::t '&module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g151261_| + (define |gx[1]#_g84176_| (##structure gx#syntax-quote::t '&module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151264_| + (define |gx[1]#_g84179_| (##structure gx#syntax-quote::t '&module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151267_| + (define |gx[1]#_g84182_| (##structure gx#syntax-quote::t '&module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151270_| + (define |gx[1]#_g84185_| (##structure gx#syntax-quote::t '&module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151273_| + (define |gx[1]#_g84188_| (##structure gx#syntax-quote::t '&module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151276_| + (define |gx[1]#_g84191_| (##structure gx#syntax-quote::t '&module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151279_| + (define |gx[1]#_g84194_| (##structure gx#syntax-quote::t '&module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151282_| + (define |gx[1]#_g84197_| (##structure gx#syntax-quote::t '&module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151285_| + (define |gx[1]#_g84200_| (##structure gx#syntax-quote::t '&module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151288_| + (define |gx[1]#_g84203_| (##structure gx#syntax-quote::t '&module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151291_| + (define |gx[1]#_g84206_| (##structure gx#syntax-quote::t '&module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151295_| + (define |gx[1]#_g84210_| (##structure gx#syntax-quote::t 'prelude-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g151297_| + (define |gx[1]#_g84212_| (##structure gx#syntax-quote::t 'make-prelude-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g151299_| + (define |gx[1]#_g84214_| (##structure gx#syntax-quote::t 'prelude-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151310_| + (define |gx[1]#_g84225_| (##structure gx#syntax-quote::t 'prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g151313_| + (define |gx[1]#_g84228_| (##structure gx#syntax-quote::t 'prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151316_| + (define |gx[1]#_g84231_| (##structure gx#syntax-quote::t 'prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g151319_| + (define |gx[1]#_g84234_| (##structure gx#syntax-quote::t 'prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g151322_| + (define |gx[1]#_g84237_| (##structure gx#syntax-quote::t 'prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g151325_| + (define |gx[1]#_g84240_| (##structure gx#syntax-quote::t 'prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151328_| + (define |gx[1]#_g84243_| (##structure gx#syntax-quote::t 'prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g151331_| + (define |gx[1]#_g84246_| (##structure gx#syntax-quote::t 'prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g151342_| + (define |gx[1]#_g84257_| (##structure gx#syntax-quote::t 'prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151345_| + (define |gx[1]#_g84260_| (##structure gx#syntax-quote::t 'prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151348_| + (define |gx[1]#_g84263_| (##structure gx#syntax-quote::t 'prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151351_| + (define |gx[1]#_g84266_| (##structure gx#syntax-quote::t 'prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151354_| + (define |gx[1]#_g84269_| (##structure gx#syntax-quote::t 'prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151357_| + (define |gx[1]#_g84272_| (##structure gx#syntax-quote::t 'prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151360_| + (define |gx[1]#_g84275_| (##structure gx#syntax-quote::t 'prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151363_| + (define |gx[1]#_g84278_| (##structure gx#syntax-quote::t 'prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151374_| + (define |gx[1]#_g84289_| (##structure gx#syntax-quote::t '&prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g151377_| + (define |gx[1]#_g84292_| (##structure gx#syntax-quote::t '&prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151380_| + (define |gx[1]#_g84295_| (##structure gx#syntax-quote::t '&prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g151383_| + (define |gx[1]#_g84298_| (##structure gx#syntax-quote::t '&prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g151386_| + (define |gx[1]#_g84301_| (##structure gx#syntax-quote::t '&prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g151389_| + (define |gx[1]#_g84304_| (##structure gx#syntax-quote::t '&prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151392_| + (define |gx[1]#_g84307_| (##structure gx#syntax-quote::t '&prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g151395_| + (define |gx[1]#_g84310_| (##structure gx#syntax-quote::t '&prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g151406_| + (define |gx[1]#_g84321_| (##structure gx#syntax-quote::t '&prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151409_| + (define |gx[1]#_g84324_| (##structure gx#syntax-quote::t '&prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151412_| + (define |gx[1]#_g84327_| (##structure gx#syntax-quote::t '&prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151415_| + (define |gx[1]#_g84330_| (##structure gx#syntax-quote::t '&prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151418_| + (define |gx[1]#_g84333_| (##structure gx#syntax-quote::t '&prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151421_| + (define |gx[1]#_g84336_| (##structure gx#syntax-quote::t '&prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151424_| + (define |gx[1]#_g84339_| (##structure gx#syntax-quote::t '&prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151427_| + (define |gx[1]#_g84342_| (##structure gx#syntax-quote::t '&prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151431_| + (define |gx[1]#_g84346_| (##structure gx#syntax-quote::t 'local-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g151433_| + (define |gx[1]#_g84348_| (##structure gx#syntax-quote::t 'make-local-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g151435_| + (define |gx[1]#_g84350_| (##structure gx#syntax-quote::t 'local-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151443_| + (define |gx[1]#_g84358_| (##structure gx#syntax-quote::t 'local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g151446_| + (define |gx[1]#_g84361_| (##structure gx#syntax-quote::t 'local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151449_| + (define |gx[1]#_g84364_| (##structure gx#syntax-quote::t 'local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g151452_| + (define |gx[1]#_g84367_| (##structure gx#syntax-quote::t 'local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g151455_| + (define |gx[1]#_g84370_| (##structure gx#syntax-quote::t 'local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g151463_| + (define |gx[1]#_g84378_| (##structure gx#syntax-quote::t 'local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151466_| + (define |gx[1]#_g84381_| (##structure gx#syntax-quote::t 'local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151469_| + (define |gx[1]#_g84384_| (##structure gx#syntax-quote::t 'local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151472_| + (define |gx[1]#_g84387_| (##structure gx#syntax-quote::t 'local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151475_| + (define |gx[1]#_g84390_| (##structure gx#syntax-quote::t 'local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151483_| + (define |gx[1]#_g84398_| (##structure gx#syntax-quote::t '&local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g151486_| + (define |gx[1]#_g84401_| (##structure gx#syntax-quote::t '&local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151489_| + (define |gx[1]#_g84404_| (##structure gx#syntax-quote::t '&local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g151492_| + (define |gx[1]#_g84407_| (##structure gx#syntax-quote::t '&local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g151495_| + (define |gx[1]#_g84410_| (##structure gx#syntax-quote::t '&local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g151503_| + (define |gx[1]#_g84418_| (##structure gx#syntax-quote::t '&local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151506_| + (define |gx[1]#_g84421_| (##structure gx#syntax-quote::t '&local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151509_| + (define |gx[1]#_g84424_| (##structure gx#syntax-quote::t '&local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151512_| + (define |gx[1]#_g84427_| (##structure gx#syntax-quote::t '&local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151515_| + (define |gx[1]#_g84430_| (##structure gx#syntax-quote::t '&local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151517_| + (define |gx[1]#_g84432_| (##structure gx#syntax-quote::t 'binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g151519_| + (define |gx[1]#_g84434_| (##structure gx#syntax-quote::t 'make-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g151521_| + (define |gx[1]#_g84436_| (##structure gx#syntax-quote::t 'binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151527_| + (define |gx[1]#_g84442_| (##structure gx#syntax-quote::t 'binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g151530_| + (define |gx[1]#_g84445_| (##structure gx#syntax-quote::t 'binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g151533_| + (define |gx[1]#_g84448_| (##structure gx#syntax-quote::t 'binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151539_| + (define |gx[1]#_g84454_| (##structure gx#syntax-quote::t 'binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151542_| + (define |gx[1]#_g84457_| (##structure gx#syntax-quote::t 'binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151545_| + (define |gx[1]#_g84460_| (##structure gx#syntax-quote::t 'binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151551_| + (define |gx[1]#_g84466_| (##structure gx#syntax-quote::t '&binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g151554_| + (define |gx[1]#_g84469_| (##structure gx#syntax-quote::t '&binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g151557_| + (define |gx[1]#_g84472_| (##structure gx#syntax-quote::t '&binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151563_| + (define |gx[1]#_g84478_| (##structure gx#syntax-quote::t '&binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151566_| + (define |gx[1]#_g84481_| (##structure gx#syntax-quote::t '&binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151569_| + (define |gx[1]#_g84484_| (##structure gx#syntax-quote::t '&binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151572_| + (define |gx[1]#_g84487_| (##structure gx#syntax-quote::t 'binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g151574_| + (define |gx[1]#_g84489_| (##structure gx#syntax-quote::t 'runtime-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g151576_| + (define |gx[1]#_g84491_| (##structure gx#syntax-quote::t 'make-runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g151578_| + (define |gx[1]#_g84493_| (##structure gx#syntax-quote::t 'runtime-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151584_| + (define |gx[1]#_g84499_| (##structure gx#syntax-quote::t 'runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g151587_| + (define |gx[1]#_g84502_| (##structure gx#syntax-quote::t 'runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g151590_| + (define |gx[1]#_g84505_| (##structure gx#syntax-quote::t 'runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151596_| + (define |gx[1]#_g84511_| (##structure gx#syntax-quote::t 'runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151599_| + (define |gx[1]#_g84514_| (##structure gx#syntax-quote::t 'runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151602_| + (define |gx[1]#_g84517_| (##structure gx#syntax-quote::t 'runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151608_| + (define |gx[1]#_g84523_| (##structure gx#syntax-quote::t '&runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g151611_| + (define |gx[1]#_g84526_| (##structure gx#syntax-quote::t '&runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g151614_| + (define |gx[1]#_g84529_| (##structure gx#syntax-quote::t '&runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151620_| + (define |gx[1]#_g84535_| (##structure gx#syntax-quote::t '&runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151623_| + (define |gx[1]#_g84538_| (##structure gx#syntax-quote::t '&runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151626_| + (define |gx[1]#_g84541_| (##structure gx#syntax-quote::t '&runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151629_| + (define |gx[1]#_g84544_| (##structure gx#syntax-quote::t 'runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g151631_| + (define |gx[1]#_g84546_| (##structure gx#syntax-quote::t 'local-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g151633_| + (define |gx[1]#_g84548_| (##structure gx#syntax-quote::t 'make-local-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g151635_| + (define |gx[1]#_g84550_| (##structure gx#syntax-quote::t 'local-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151641_| + (define |gx[1]#_g84556_| (##structure gx#syntax-quote::t 'local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g151644_| + (define |gx[1]#_g84559_| (##structure gx#syntax-quote::t 'local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g151647_| + (define |gx[1]#_g84562_| (##structure gx#syntax-quote::t 'local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151653_| + (define |gx[1]#_g84568_| (##structure gx#syntax-quote::t 'local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151656_| + (define |gx[1]#_g84571_| (##structure gx#syntax-quote::t 'local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151659_| + (define |gx[1]#_g84574_| (##structure gx#syntax-quote::t 'local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151665_| + (define |gx[1]#_g84580_| (##structure gx#syntax-quote::t '&local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g151668_| + (define |gx[1]#_g84583_| (##structure gx#syntax-quote::t '&local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g151671_| + (define |gx[1]#_g84586_| (##structure gx#syntax-quote::t '&local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151677_| + (define |gx[1]#_g84592_| (##structure gx#syntax-quote::t '&local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151680_| + (define |gx[1]#_g84595_| (##structure gx#syntax-quote::t '&local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151683_| + (define |gx[1]#_g84598_| (##structure gx#syntax-quote::t '&local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151687_| + (define |gx[1]#_g84602_| (##structure gx#syntax-quote::t 'top-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g151689_| + (define |gx[1]#_g84604_| (##structure gx#syntax-quote::t 'make-top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g151691_| + (define |gx[1]#_g84606_| (##structure gx#syntax-quote::t 'top-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151697_| + (define |gx[1]#_g84612_| (##structure gx#syntax-quote::t 'top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g151700_| + (define |gx[1]#_g84615_| (##structure gx#syntax-quote::t 'top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g151703_| + (define |gx[1]#_g84618_| (##structure gx#syntax-quote::t 'top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151709_| + (define |gx[1]#_g84624_| (##structure gx#syntax-quote::t 'top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151712_| + (define |gx[1]#_g84627_| (##structure gx#syntax-quote::t 'top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151715_| + (define |gx[1]#_g84630_| (##structure gx#syntax-quote::t 'top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151721_| + (define |gx[1]#_g84636_| (##structure gx#syntax-quote::t '&top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g151724_| + (define |gx[1]#_g84639_| (##structure gx#syntax-quote::t '&top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g151727_| + (define |gx[1]#_g84642_| (##structure gx#syntax-quote::t '&top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151733_| + (define |gx[1]#_g84648_| (##structure gx#syntax-quote::t '&top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151736_| + (define |gx[1]#_g84651_| (##structure gx#syntax-quote::t '&top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151739_| + (define |gx[1]#_g84654_| (##structure gx#syntax-quote::t '&top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151742_| + (define |gx[1]#_g84657_| (##structure gx#syntax-quote::t 'top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g151744_| + (define |gx[1]#_g84659_| (##structure gx#syntax-quote::t 'module-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g151746_| + (define |gx[1]#_g84661_| (##structure gx#syntax-quote::t 'make-module-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g151748_| + (define |gx[1]#_g84663_| (##structure gx#syntax-quote::t 'module-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151755_| + (define |gx[1]#_g84670_| (##structure gx#syntax-quote::t 'module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g151758_| + (define |gx[1]#_g84673_| (##structure gx#syntax-quote::t 'module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g151761_| + (define |gx[1]#_g84676_| (##structure gx#syntax-quote::t 'module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151764_| + (define |gx[1]#_g84679_| (##structure gx#syntax-quote::t 'module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g151771_| + (define |gx[1]#_g84686_| (##structure gx#syntax-quote::t 'module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151774_| + (define |gx[1]#_g84689_| (##structure gx#syntax-quote::t 'module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151777_| + (define |gx[1]#_g84692_| (##structure gx#syntax-quote::t 'module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151780_| + (define |gx[1]#_g84695_| (##structure gx#syntax-quote::t 'module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151787_| + (define |gx[1]#_g84702_| (##structure gx#syntax-quote::t '&module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g151790_| + (define |gx[1]#_g84705_| (##structure gx#syntax-quote::t '&module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g151793_| + (define |gx[1]#_g84708_| (##structure gx#syntax-quote::t '&module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151796_| + (define |gx[1]#_g84711_| (##structure gx#syntax-quote::t '&module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g151803_| + (define |gx[1]#_g84718_| (##structure gx#syntax-quote::t '&module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151806_| + (define |gx[1]#_g84721_| (##structure gx#syntax-quote::t '&module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151809_| + (define |gx[1]#_g84724_| (##structure gx#syntax-quote::t '&module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151812_| + (define |gx[1]#_g84727_| (##structure gx#syntax-quote::t '&module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151816_| + (define |gx[1]#_g84731_| (##structure gx#syntax-quote::t 'extern-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g151818_| + (define |gx[1]#_g84733_| (##structure gx#syntax-quote::t 'make-extern-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g151820_| + (define |gx[1]#_g84735_| (##structure gx#syntax-quote::t 'extern-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151826_| + (define |gx[1]#_g84741_| (##structure gx#syntax-quote::t 'extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g151829_| + (define |gx[1]#_g84744_| (##structure gx#syntax-quote::t 'extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g151832_| + (define |gx[1]#_g84747_| (##structure gx#syntax-quote::t 'extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151838_| + (define |gx[1]#_g84753_| (##structure gx#syntax-quote::t 'extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151841_| + (define |gx[1]#_g84756_| (##structure gx#syntax-quote::t 'extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151844_| + (define |gx[1]#_g84759_| (##structure gx#syntax-quote::t 'extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151850_| + (define |gx[1]#_g84765_| (##structure gx#syntax-quote::t '&extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g151853_| + (define |gx[1]#_g84768_| (##structure gx#syntax-quote::t '&extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g151856_| + (define |gx[1]#_g84771_| (##structure gx#syntax-quote::t '&extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151862_| + (define |gx[1]#_g84777_| (##structure gx#syntax-quote::t '&extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151865_| + (define |gx[1]#_g84780_| (##structure gx#syntax-quote::t '&extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151868_| + (define |gx[1]#_g84783_| (##structure gx#syntax-quote::t '&extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151872_| + (define |gx[1]#_g84787_| (##structure gx#syntax-quote::t 'syntax-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g151874_| + (define |gx[1]#_g84789_| (##structure gx#syntax-quote::t 'make-syntax-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g151876_| + (define |gx[1]#_g84791_| (##structure gx#syntax-quote::t 'syntax-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151883_| + (define |gx[1]#_g84798_| (##structure gx#syntax-quote::t 'syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g151886_| + (define |gx[1]#_g84801_| (##structure gx#syntax-quote::t 'syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g151889_| + (define |gx[1]#_g84804_| (##structure gx#syntax-quote::t 'syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151892_| + (define |gx[1]#_g84807_| (##structure gx#syntax-quote::t 'syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151899_| + (define |gx[1]#_g84814_| (##structure gx#syntax-quote::t 'syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151902_| + (define |gx[1]#_g84817_| (##structure gx#syntax-quote::t 'syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151905_| + (define |gx[1]#_g84820_| (##structure gx#syntax-quote::t 'syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151908_| + (define |gx[1]#_g84823_| (##structure gx#syntax-quote::t 'syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151915_| + (define |gx[1]#_g84830_| (##structure gx#syntax-quote::t '&syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g151918_| + (define |gx[1]#_g84833_| (##structure gx#syntax-quote::t '&syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g151921_| + (define |gx[1]#_g84836_| (##structure gx#syntax-quote::t '&syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151924_| + (define |gx[1]#_g84839_| (##structure gx#syntax-quote::t '&syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151931_| + (define |gx[1]#_g84846_| (##structure gx#syntax-quote::t '&syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151934_| + (define |gx[1]#_g84849_| (##structure gx#syntax-quote::t '&syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151937_| + (define |gx[1]#_g84852_| (##structure gx#syntax-quote::t '&syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151940_| + (define |gx[1]#_g84855_| (##structure gx#syntax-quote::t '&syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151944_| + (define |gx[1]#_g84859_| (##structure gx#syntax-quote::t 'import-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g151946_| + (define |gx[1]#_g84861_| (##structure gx#syntax-quote::t 'make-import-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g151948_| + (define |gx[1]#_g84863_| (##structure gx#syntax-quote::t 'import-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151957_| + (define |gx[1]#_g84872_| (##structure gx#syntax-quote::t 'import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g151960_| + (define |gx[1]#_g84875_| (##structure gx#syntax-quote::t 'import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g151963_| + (define |gx[1]#_g84878_| (##structure gx#syntax-quote::t 'import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151966_| + (define |gx[1]#_g84881_| (##structure gx#syntax-quote::t 'import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151969_| + (define |gx[1]#_g84884_| (##structure gx#syntax-quote::t 'import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g151972_| + (define |gx[1]#_g84887_| (##structure gx#syntax-quote::t 'import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151981_| + (define |gx[1]#_g84896_| (##structure gx#syntax-quote::t 'import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151984_| + (define |gx[1]#_g84899_| (##structure gx#syntax-quote::t 'import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151987_| + (define |gx[1]#_g84902_| (##structure gx#syntax-quote::t 'import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151990_| + (define |gx[1]#_g84905_| (##structure gx#syntax-quote::t 'import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151993_| + (define |gx[1]#_g84908_| (##structure gx#syntax-quote::t 'import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151996_| + (define |gx[1]#_g84911_| (##structure gx#syntax-quote::t 'import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152005_| + (define |gx[1]#_g84920_| (##structure gx#syntax-quote::t '&import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g152008_| + (define |gx[1]#_g84923_| (##structure gx#syntax-quote::t '&import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g152011_| + (define |gx[1]#_g84926_| (##structure gx#syntax-quote::t '&import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g152014_| + (define |gx[1]#_g84929_| (##structure gx#syntax-quote::t '&import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g152017_| + (define |gx[1]#_g84932_| (##structure gx#syntax-quote::t '&import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g152020_| + (define |gx[1]#_g84935_| (##structure gx#syntax-quote::t '&import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152029_| + (define |gx[1]#_g84944_| (##structure gx#syntax-quote::t '&import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152032_| + (define |gx[1]#_g84947_| (##structure gx#syntax-quote::t '&import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152035_| + (define |gx[1]#_g84950_| (##structure gx#syntax-quote::t '&import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152038_| + (define |gx[1]#_g84953_| (##structure gx#syntax-quote::t '&import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152041_| + (define |gx[1]#_g84956_| (##structure gx#syntax-quote::t '&import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152044_| + (define |gx[1]#_g84959_| (##structure gx#syntax-quote::t '&import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152048_| + (define |gx[1]#_g84963_| (##structure gx#syntax-quote::t 'alias-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g152050_| + (define |gx[1]#_g84965_| (##structure gx#syntax-quote::t 'make-alias-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g152052_| + (define |gx[1]#_g84967_| (##structure gx#syntax-quote::t 'alias-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g152059_| + (define |gx[1]#_g84974_| (##structure gx#syntax-quote::t 'alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g152062_| + (define |gx[1]#_g84977_| (##structure gx#syntax-quote::t 'alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g152065_| + (define |gx[1]#_g84980_| (##structure gx#syntax-quote::t 'alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g152068_| + (define |gx[1]#_g84983_| (##structure gx#syntax-quote::t 'alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152075_| + (define |gx[1]#_g84990_| (##structure gx#syntax-quote::t 'alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152078_| + (define |gx[1]#_g84993_| (##structure gx#syntax-quote::t 'alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152081_| + (define |gx[1]#_g84996_| (##structure gx#syntax-quote::t 'alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152084_| + (define |gx[1]#_g84999_| (##structure gx#syntax-quote::t 'alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152091_| + (define |gx[1]#_g85006_| (##structure gx#syntax-quote::t '&alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g152094_| + (define |gx[1]#_g85009_| (##structure gx#syntax-quote::t '&alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g152097_| + (define |gx[1]#_g85012_| (##structure gx#syntax-quote::t '&alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g152100_| + (define |gx[1]#_g85015_| (##structure gx#syntax-quote::t '&alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152107_| + (define |gx[1]#_g85022_| (##structure gx#syntax-quote::t '&alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152110_| + (define |gx[1]#_g85025_| (##structure gx#syntax-quote::t '&alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152113_| + (define |gx[1]#_g85028_| (##structure gx#syntax-quote::t '&alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152116_| + (define |gx[1]#_g85031_| (##structure gx#syntax-quote::t '&alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152118_| + (define |gx[1]#_g85033_| (##structure gx#syntax-quote::t 'expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g152120_| + (define |gx[1]#_g85035_| (##structure gx#syntax-quote::t 'make-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g152122_| + (define |gx[1]#_g85037_| (##structure gx#syntax-quote::t 'expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g152126_| + (define |gx[1]#_g85041_| (##structure gx#syntax-quote::t 'expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152130_| + (define |gx[1]#_g85045_| (##structure gx#syntax-quote::t 'expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152134_| + (define |gx[1]#_g85049_| (##structure gx#syntax-quote::t '&expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152138_| + (define |gx[1]#_g85053_| (##structure gx#syntax-quote::t '&expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152141_| + (define |gx[1]#_g85056_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g152143_| + (define |gx[1]#_g85058_| (##structure gx#syntax-quote::t 'core-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g152145_| + (define |gx[1]#_g85060_| (##structure gx#syntax-quote::t 'make-core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g152147_| + (define |gx[1]#_g85062_| (##structure gx#syntax-quote::t 'core-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g152153_| + (define |gx[1]#_g85068_| (##structure gx#syntax-quote::t 'core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152156_| + (define |gx[1]#_g85071_| (##structure gx#syntax-quote::t 'core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g152159_| + (define |gx[1]#_g85074_| (##structure gx#syntax-quote::t 'core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g152165_| + (define |gx[1]#_g85080_| (##structure gx#syntax-quote::t 'core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152168_| + (define |gx[1]#_g85083_| (##structure gx#syntax-quote::t 'core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152171_| + (define |gx[1]#_g85086_| (##structure gx#syntax-quote::t 'core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152177_| + (define |gx[1]#_g85092_| (##structure gx#syntax-quote::t '&core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152180_| + (define |gx[1]#_g85095_| (##structure gx#syntax-quote::t '&core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g152183_| + (define |gx[1]#_g85098_| (##structure gx#syntax-quote::t '&core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g152189_| + (define |gx[1]#_g85104_| (##structure gx#syntax-quote::t '&core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152192_| + (define |gx[1]#_g85107_| (##structure gx#syntax-quote::t '&core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152195_| + (define |gx[1]#_g85110_| (##structure gx#syntax-quote::t '&core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152198_| + (define |gx[1]#_g85113_| (##structure gx#syntax-quote::t 'core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g152200_| + (define |gx[1]#_g85115_| (##structure gx#syntax-quote::t 'expression-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g152202_| + (define |gx[1]#_g85117_| (##structure gx#syntax-quote::t 'make-expression-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g152204_| + (define |gx[1]#_g85119_| (##structure gx#syntax-quote::t 'expression-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g152210_| + (define |gx[1]#_g85125_| (##structure gx#syntax-quote::t 'expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152213_| + (define |gx[1]#_g85128_| (##structure gx#syntax-quote::t 'expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g152216_| + (define |gx[1]#_g85131_| (##structure gx#syntax-quote::t 'expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g152222_| + (define |gx[1]#_g85137_| (##structure gx#syntax-quote::t 'expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152225_| + (define |gx[1]#_g85140_| (##structure gx#syntax-quote::t 'expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152228_| + (define |gx[1]#_g85143_| (##structure gx#syntax-quote::t 'expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152234_| + (define |gx[1]#_g85149_| (##structure gx#syntax-quote::t '&expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152237_| + (define |gx[1]#_g85152_| (##structure gx#syntax-quote::t '&expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g152240_| + (define |gx[1]#_g85155_| (##structure gx#syntax-quote::t '&expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g152246_| + (define |gx[1]#_g85161_| (##structure gx#syntax-quote::t '&expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152249_| + (define |gx[1]#_g85164_| (##structure gx#syntax-quote::t '&expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152252_| + (define |gx[1]#_g85167_| (##structure gx#syntax-quote::t '&expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152256_| + (define |gx[1]#_g85171_| (##structure gx#syntax-quote::t 'special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g152258_| + (define |gx[1]#_g85173_| (##structure gx#syntax-quote::t 'make-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g152260_| + (define |gx[1]#_g85175_| (##structure gx#syntax-quote::t 'special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g152266_| + (define |gx[1]#_g85181_| (##structure gx#syntax-quote::t 'special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152269_| + (define |gx[1]#_g85184_| (##structure gx#syntax-quote::t 'special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g152272_| + (define |gx[1]#_g85187_| (##structure gx#syntax-quote::t 'special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g152278_| + (define |gx[1]#_g85193_| (##structure gx#syntax-quote::t 'special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152281_| + (define |gx[1]#_g85196_| (##structure gx#syntax-quote::t 'special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152284_| + (define |gx[1]#_g85199_| (##structure gx#syntax-quote::t 'special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152290_| + (define |gx[1]#_g85205_| (##structure gx#syntax-quote::t '&special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152293_| + (define |gx[1]#_g85208_| (##structure gx#syntax-quote::t '&special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g152296_| + (define |gx[1]#_g85211_| (##structure gx#syntax-quote::t '&special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g152302_| + (define |gx[1]#_g85217_| (##structure gx#syntax-quote::t '&special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152305_| + (define |gx[1]#_g85220_| (##structure gx#syntax-quote::t '&special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152308_| + (define |gx[1]#_g85223_| (##structure gx#syntax-quote::t '&special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152311_| + (define |gx[1]#_g85226_| (##structure gx#syntax-quote::t 'special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g152313_| + (define |gx[1]#_g85228_| (##structure gx#syntax-quote::t 'definition-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g152315_| + (define |gx[1]#_g85230_| (##structure gx#syntax-quote::t 'make-definition-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g152317_| + (define |gx[1]#_g85232_| (##structure gx#syntax-quote::t 'definition-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g152323_| + (define |gx[1]#_g85238_| (##structure gx#syntax-quote::t 'definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152326_| + (define |gx[1]#_g85241_| (##structure gx#syntax-quote::t 'definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g152329_| + (define |gx[1]#_g85244_| (##structure gx#syntax-quote::t 'definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g152335_| + (define |gx[1]#_g85250_| (##structure gx#syntax-quote::t 'definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152338_| + (define |gx[1]#_g85253_| (##structure gx#syntax-quote::t 'definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152341_| + (define |gx[1]#_g85256_| (##structure gx#syntax-quote::t 'definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152347_| + (define |gx[1]#_g85262_| (##structure gx#syntax-quote::t '&definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152350_| + (define |gx[1]#_g85265_| (##structure gx#syntax-quote::t '&definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g152353_| + (define |gx[1]#_g85268_| (##structure gx#syntax-quote::t '&definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g152359_| + (define |gx[1]#_g85274_| (##structure gx#syntax-quote::t '&definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152362_| + (define |gx[1]#_g85277_| (##structure gx#syntax-quote::t '&definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152365_| + (define |gx[1]#_g85280_| (##structure gx#syntax-quote::t '&definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152369_| + (define |gx[1]#_g85284_| (##structure gx#syntax-quote::t 'top-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g152371_| + (define |gx[1]#_g85286_| (##structure gx#syntax-quote::t 'make-top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g152373_| + (define |gx[1]#_g85288_| (##structure gx#syntax-quote::t 'top-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g152379_| + (define |gx[1]#_g85294_| (##structure gx#syntax-quote::t 'top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152382_| + (define |gx[1]#_g85297_| (##structure gx#syntax-quote::t 'top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g152385_| + (define |gx[1]#_g85300_| (##structure gx#syntax-quote::t 'top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g152391_| + (define |gx[1]#_g85306_| (##structure gx#syntax-quote::t 'top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152394_| + (define |gx[1]#_g85309_| (##structure gx#syntax-quote::t 'top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152397_| + (define |gx[1]#_g85312_| (##structure gx#syntax-quote::t 'top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152403_| + (define |gx[1]#_g85318_| (##structure gx#syntax-quote::t '&top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152406_| + (define |gx[1]#_g85321_| (##structure gx#syntax-quote::t '&top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g152409_| + (define |gx[1]#_g85324_| (##structure gx#syntax-quote::t '&top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g152415_| + (define |gx[1]#_g85330_| (##structure gx#syntax-quote::t '&top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152418_| + (define |gx[1]#_g85333_| (##structure gx#syntax-quote::t '&top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152421_| + (define |gx[1]#_g85336_| (##structure gx#syntax-quote::t '&top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152424_| + (define |gx[1]#_g85339_| (##structure gx#syntax-quote::t 'top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g152426_| + (define |gx[1]#_g85341_| (##structure gx#syntax-quote::t 'module-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g152428_| + (define |gx[1]#_g85343_| (##structure gx#syntax-quote::t 'make-module-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g152430_| + (define |gx[1]#_g85345_| (##structure gx#syntax-quote::t 'module-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g152436_| + (define |gx[1]#_g85351_| (##structure gx#syntax-quote::t 'module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152439_| + (define |gx[1]#_g85354_| (##structure gx#syntax-quote::t 'module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g152442_| + (define |gx[1]#_g85357_| (##structure gx#syntax-quote::t 'module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g152448_| + (define |gx[1]#_g85363_| (##structure gx#syntax-quote::t 'module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152451_| + (define |gx[1]#_g85366_| (##structure gx#syntax-quote::t 'module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152454_| + (define |gx[1]#_g85369_| (##structure gx#syntax-quote::t 'module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152460_| + (define |gx[1]#_g85375_| (##structure gx#syntax-quote::t '&module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152463_| + (define |gx[1]#_g85378_| (##structure gx#syntax-quote::t '&module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g152466_| + (define |gx[1]#_g85381_| (##structure gx#syntax-quote::t '&module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g152472_| + (define |gx[1]#_g85387_| (##structure gx#syntax-quote::t '&module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152475_| + (define |gx[1]#_g85390_| (##structure gx#syntax-quote::t '&module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152478_| + (define |gx[1]#_g85393_| (##structure gx#syntax-quote::t '&module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152482_| + (define |gx[1]#_g85397_| (##structure gx#syntax-quote::t 'feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g152484_| + (define |gx[1]#_g85399_| (##structure gx#syntax-quote::t 'make-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g152486_| + (define |gx[1]#_g85401_| (##structure gx#syntax-quote::t 'feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g152490_| + (define |gx[1]#_g85405_| (##structure gx#syntax-quote::t 'feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152494_| + (define |gx[1]#_g85409_| (##structure gx#syntax-quote::t 'feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152498_| + (define |gx[1]#_g85413_| (##structure gx#syntax-quote::t '&feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152502_| + (define |gx[1]#_g85417_| (##structure gx#syntax-quote::t '&feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152505_| + (define |gx[1]#_g85420_| (##structure gx#syntax-quote::t 'feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g152507_| + (define |gx[1]#_g85422_| (##structure gx#syntax-quote::t 'private-feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g152509_| + (define |gx[1]#_g85424_| (##structure gx#syntax-quote::t 'make-private-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g152511_| + (define |gx[1]#_g85426_| (##structure gx#syntax-quote::t 'private-feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g152515_| + (define |gx[1]#_g85430_| (##structure gx#syntax-quote::t 'private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152519_| + (define |gx[1]#_g85434_| (##structure gx#syntax-quote::t 'private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152523_| + (define |gx[1]#_g85438_| (##structure gx#syntax-quote::t '&private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152527_| + (define |gx[1]#_g85442_| (##structure gx#syntax-quote::t '&private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152531_| + (define |gx[1]#_g85446_| (##structure gx#syntax-quote::t 'reserved-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g152533_| + (define |gx[1]#_g85448_| (##structure gx#syntax-quote::t 'make-reserved-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g152535_| + (define |gx[1]#_g85450_| (##structure gx#syntax-quote::t 'reserved-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g152539_| + (define |gx[1]#_g85454_| (##structure gx#syntax-quote::t 'reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152543_| + (define |gx[1]#_g85458_| (##structure gx#syntax-quote::t 'reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152547_| + (define |gx[1]#_g85462_| (##structure gx#syntax-quote::t '&reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152551_| + (define |gx[1]#_g85466_| (##structure gx#syntax-quote::t '&reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152555_| + (define |gx[1]#_g85470_| (##structure gx#syntax-quote::t 'macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g152557_| + (define |gx[1]#_g85472_| (##structure gx#syntax-quote::t 'make-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g152559_| + (define |gx[1]#_g85474_| (##structure gx#syntax-quote::t 'macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g152563_| + (define |gx[1]#_g85478_| (##structure gx#syntax-quote::t 'macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152567_| + (define |gx[1]#_g85482_| (##structure gx#syntax-quote::t 'macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152571_| + (define |gx[1]#_g85486_| (##structure gx#syntax-quote::t '¯o-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152575_| + (define |gx[1]#_g85490_| (##structure gx#syntax-quote::t '¯o-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152578_| + (define |gx[1]#_g85493_| (##structure gx#syntax-quote::t 'macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g152580_| + (define |gx[1]#_g85495_| (##structure gx#syntax-quote::t 'rename-macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g152582_| + (define |gx[1]#_g85497_| (##structure gx#syntax-quote::t 'make-rename-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g152584_| + (define |gx[1]#_g85499_| (##structure gx#syntax-quote::t 'rename-macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g152588_| + (define |gx[1]#_g85503_| (##structure gx#syntax-quote::t 'rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152592_| + (define |gx[1]#_g85507_| (##structure gx#syntax-quote::t 'rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152596_| + (define |gx[1]#_g85511_| (##structure gx#syntax-quote::t '&rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152600_| + (define |gx[1]#_g85515_| (##structure gx#syntax-quote::t '&rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152604_| + (define |gx[1]#_g85519_| (##structure gx#syntax-quote::t 'user-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g152606_| + (define |gx[1]#_g85521_| (##structure gx#syntax-quote::t 'make-user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g152608_| + (define |gx[1]#_g85523_| (##structure gx#syntax-quote::t 'user-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g152614_| + (define |gx[1]#_g85529_| (##structure gx#syntax-quote::t 'user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152617_| + (define |gx[1]#_g85532_| (##structure gx#syntax-quote::t 'user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g152620_| + (define |gx[1]#_g85535_| (##structure gx#syntax-quote::t 'user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g152626_| + (define |gx[1]#_g85541_| (##structure gx#syntax-quote::t 'user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152629_| + (define |gx[1]#_g85544_| (##structure gx#syntax-quote::t 'user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152632_| + (define |gx[1]#_g85547_| (##structure gx#syntax-quote::t 'user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152638_| + (define |gx[1]#_g85553_| (##structure gx#syntax-quote::t '&user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g152641_| + (define |gx[1]#_g85556_| (##structure gx#syntax-quote::t '&user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g152644_| + (define |gx[1]#_g85559_| (##structure gx#syntax-quote::t '&user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g152650_| + (define |gx[1]#_g85565_| (##structure gx#syntax-quote::t '&user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152653_| + (define |gx[1]#_g85568_| (##structure gx#syntax-quote::t '&user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152656_| + (define |gx[1]#_g85571_| (##structure gx#syntax-quote::t '&user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152658_| + (define |gx[1]#_g85573_| (##structure gx#syntax-quote::t 'expander-mark::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g152660_| + (define |gx[1]#_g85575_| (##structure gx#syntax-quote::t 'make-expander-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g152662_| + (define |gx[1]#_g85577_| (##structure gx#syntax-quote::t 'expander-mark? #f (gx#current-expander-context) '())) - (define |gx[1]#_g152669_| + (define |gx[1]#_g85584_| (##structure gx#syntax-quote::t 'expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g152672_| + (define |gx[1]#_g85587_| (##structure gx#syntax-quote::t 'expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g152675_| + (define |gx[1]#_g85590_| (##structure gx#syntax-quote::t 'expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g152678_| + (define |gx[1]#_g85593_| (##structure gx#syntax-quote::t 'expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g152685_| + (define |gx[1]#_g85600_| (##structure gx#syntax-quote::t 'expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152688_| + (define |gx[1]#_g85603_| (##structure gx#syntax-quote::t 'expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152691_| + (define |gx[1]#_g85606_| (##structure gx#syntax-quote::t 'expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152694_| + (define |gx[1]#_g85609_| (##structure gx#syntax-quote::t 'expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152701_| + (define |gx[1]#_g85616_| (##structure gx#syntax-quote::t '&expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g152704_| + (define |gx[1]#_g85619_| (##structure gx#syntax-quote::t '&expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g152707_| + (define |gx[1]#_g85622_| (##structure gx#syntax-quote::t '&expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g152710_| + (define |gx[1]#_g85625_| (##structure gx#syntax-quote::t '&expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g152717_| + (define |gx[1]#_g85632_| (##structure gx#syntax-quote::t '&expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152720_| + (define |gx[1]#_g85635_| (##structure gx#syntax-quote::t '&expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152723_| + (define |gx[1]#_g85638_| (##structure gx#syntax-quote::t '&expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g152726_| + (define |gx[1]#_g85641_| (##structure gx#syntax-quote::t '&expander-mark-subst-set! @@ -3572,7 +3572,7 @@ '())) (begin (define |gx[:0:]#expander-context| - (let ((__obj150769 + (let ((__obj83684 (let () (declare (not safe)) (##structure @@ -3595,7 +3595,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150769 + __obj83684 'gx#expander-context::t '1 gerbil/core$$#class-type-info::t @@ -3603,7 +3603,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150769 + __obj83684 'expander-context '2 gerbil/core$$#class-type-info::t @@ -3611,7 +3611,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150769 + __obj83684 '(id table) '4 gerbil/core$$#class-type-info::t @@ -3619,7 +3619,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150769 + __obj83684 '() '3 gerbil/core$$#class-type-info::t @@ -3627,7 +3627,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150769 + __obj83684 '#t '5 gerbil/core$$#class-type-info::t @@ -3635,7 +3635,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150769 + __obj83684 '#f '6 gerbil/core$$#class-type-info::t @@ -3643,7 +3643,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150769 + __obj83684 '#f '7 gerbil/core$$#class-type-info::t @@ -3651,122 +3651,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150769 + __obj83684 ':init! '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150851 |gx[1]#_g150852_|)) + (let ((__tmp83766 |gx[1]#_g83767_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150769 - __tmp150851 + __obj83684 + __tmp83766 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150853 |gx[1]#_g150854_|)) + (let ((__tmp83768 |gx[1]#_g83769_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150769 - __tmp150853 + __obj83684 + __tmp83768 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150855 |gx[1]#_g150856_|)) + (let ((__tmp83770 |gx[1]#_g83771_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150769 - __tmp150855 + __obj83684 + __tmp83770 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150857 - (let ((__tmp150862 - (let ((__tmp150863 |gx[1]#_g150864_|)) + (let ((__tmp83772 + (let ((__tmp83777 + (let ((__tmp83778 |gx[1]#_g83779_|)) (declare (not safe)) - (cons 'id __tmp150863))) - (__tmp150858 - (let ((__tmp150859 - (let ((__tmp150860 |gx[1]#_g150861_|)) + (cons 'id __tmp83778))) + (__tmp83773 + (let ((__tmp83774 + (let ((__tmp83775 |gx[1]#_g83776_|)) (declare (not safe)) - (cons 'table __tmp150860)))) + (cons 'table __tmp83775)))) (declare (not safe)) - (cons __tmp150859 '())))) + (cons __tmp83774 '())))) (declare (not safe)) - (cons __tmp150862 __tmp150858)))) + (cons __tmp83777 __tmp83773)))) (declare (not safe)) (##unchecked-structure-set! - __obj150769 - __tmp150857 + __obj83684 + __tmp83772 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150865 - (let ((__tmp150870 - (let ((__tmp150871 |gx[1]#_g150872_|)) + (let ((__tmp83780 + (let ((__tmp83785 + (let ((__tmp83786 |gx[1]#_g83787_|)) (declare (not safe)) - (cons 'id __tmp150871))) - (__tmp150866 - (let ((__tmp150867 - (let ((__tmp150868 |gx[1]#_g150869_|)) + (cons 'id __tmp83786))) + (__tmp83781 + (let ((__tmp83782 + (let ((__tmp83783 |gx[1]#_g83784_|)) (declare (not safe)) - (cons 'table __tmp150868)))) + (cons 'table __tmp83783)))) (declare (not safe)) - (cons __tmp150867 '())))) + (cons __tmp83782 '())))) (declare (not safe)) - (cons __tmp150870 __tmp150866)))) + (cons __tmp83785 __tmp83781)))) (declare (not safe)) (##unchecked-structure-set! - __obj150769 - __tmp150865 + __obj83684 + __tmp83780 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150873 - (let ((__tmp150878 - (let ((__tmp150879 |gx[1]#_g150880_|)) + (let ((__tmp83788 + (let ((__tmp83793 + (let ((__tmp83794 |gx[1]#_g83795_|)) (declare (not safe)) - (cons 'id __tmp150879))) - (__tmp150874 - (let ((__tmp150875 - (let ((__tmp150876 |gx[1]#_g150877_|)) + (cons 'id __tmp83794))) + (__tmp83789 + (let ((__tmp83790 + (let ((__tmp83791 |gx[1]#_g83792_|)) (declare (not safe)) - (cons 'table __tmp150876)))) + (cons 'table __tmp83791)))) (declare (not safe)) - (cons __tmp150875 '())))) + (cons __tmp83790 '())))) (declare (not safe)) - (cons __tmp150878 __tmp150874)))) + (cons __tmp83793 __tmp83789)))) (declare (not safe)) (##unchecked-structure-set! - __obj150769 - __tmp150873 + __obj83684 + __tmp83788 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150881 - (let ((__tmp150886 - (let ((__tmp150887 |gx[1]#_g150888_|)) + (let ((__tmp83796 + (let ((__tmp83801 + (let ((__tmp83802 |gx[1]#_g83803_|)) (declare (not safe)) - (cons 'id __tmp150887))) - (__tmp150882 - (let ((__tmp150883 - (let ((__tmp150884 |gx[1]#_g150885_|)) + (cons 'id __tmp83802))) + (__tmp83797 + (let ((__tmp83798 + (let ((__tmp83799 |gx[1]#_g83800_|)) (declare (not safe)) - (cons 'table __tmp150884)))) + (cons 'table __tmp83799)))) (declare (not safe)) - (cons __tmp150883 '())))) + (cons __tmp83798 '())))) (declare (not safe)) - (cons __tmp150886 __tmp150882)))) + (cons __tmp83801 __tmp83797)))) (declare (not safe)) (##unchecked-structure-set! - __obj150769 - __tmp150881 + __obj83684 + __tmp83796 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150769)) + __obj83684)) (define |gx[:0:]#root-context| - (let ((__obj150770 + (let ((__obj83685 (let () (declare (not safe)) (##structure @@ -3789,7 +3789,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150770 + __obj83685 'gx#root-context::t '1 gerbil/core$$#class-type-info::t @@ -3797,7 +3797,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150770 + __obj83685 'root-context '2 gerbil/core$$#class-type-info::t @@ -3805,26 +3805,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150770 + __obj83685 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150889 - (let ((__tmp150890 |gx[1]#_g150891_|)) + (let ((__tmp83804 + (let ((__tmp83805 |gx[1]#_g83806_|)) (declare (not safe)) - (cons __tmp150890 '())))) + (cons __tmp83805 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150770 - __tmp150889 + __obj83685 + __tmp83804 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150770 + __obj83685 '#t '5 gerbil/core$$#class-type-info::t @@ -3832,7 +3832,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150770 + __obj83685 '#f '6 gerbil/core$$#class-type-info::t @@ -3840,7 +3840,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150770 + __obj83685 '#f '7 gerbil/core$$#class-type-info::t @@ -3848,122 +3848,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150770 + __obj83685 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150892 |gx[1]#_g150893_|)) + (let ((__tmp83807 |gx[1]#_g83808_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150770 - __tmp150892 + __obj83685 + __tmp83807 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150894 |gx[1]#_g150895_|)) + (let ((__tmp83809 |gx[1]#_g83810_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150770 - __tmp150894 + __obj83685 + __tmp83809 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150896 |gx[1]#_g150897_|)) + (let ((__tmp83811 |gx[1]#_g83812_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150770 - __tmp150896 + __obj83685 + __tmp83811 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150898 - (let ((__tmp150903 - (let ((__tmp150904 |gx[1]#_g150905_|)) + (let ((__tmp83813 + (let ((__tmp83818 + (let ((__tmp83819 |gx[1]#_g83820_|)) (declare (not safe)) - (cons 'id __tmp150904))) - (__tmp150899 - (let ((__tmp150900 - (let ((__tmp150901 |gx[1]#_g150902_|)) + (cons 'id __tmp83819))) + (__tmp83814 + (let ((__tmp83815 + (let ((__tmp83816 |gx[1]#_g83817_|)) (declare (not safe)) - (cons 'table __tmp150901)))) + (cons 'table __tmp83816)))) (declare (not safe)) - (cons __tmp150900 '())))) + (cons __tmp83815 '())))) (declare (not safe)) - (cons __tmp150903 __tmp150899)))) + (cons __tmp83818 __tmp83814)))) (declare (not safe)) (##unchecked-structure-set! - __obj150770 - __tmp150898 + __obj83685 + __tmp83813 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150906 - (let ((__tmp150911 - (let ((__tmp150912 |gx[1]#_g150913_|)) + (let ((__tmp83821 + (let ((__tmp83826 + (let ((__tmp83827 |gx[1]#_g83828_|)) (declare (not safe)) - (cons 'id __tmp150912))) - (__tmp150907 - (let ((__tmp150908 - (let ((__tmp150909 |gx[1]#_g150910_|)) + (cons 'id __tmp83827))) + (__tmp83822 + (let ((__tmp83823 + (let ((__tmp83824 |gx[1]#_g83825_|)) (declare (not safe)) - (cons 'table __tmp150909)))) + (cons 'table __tmp83824)))) (declare (not safe)) - (cons __tmp150908 '())))) + (cons __tmp83823 '())))) (declare (not safe)) - (cons __tmp150911 __tmp150907)))) + (cons __tmp83826 __tmp83822)))) (declare (not safe)) (##unchecked-structure-set! - __obj150770 - __tmp150906 + __obj83685 + __tmp83821 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150914 - (let ((__tmp150919 - (let ((__tmp150920 |gx[1]#_g150921_|)) + (let ((__tmp83829 + (let ((__tmp83834 + (let ((__tmp83835 |gx[1]#_g83836_|)) (declare (not safe)) - (cons 'id __tmp150920))) - (__tmp150915 - (let ((__tmp150916 - (let ((__tmp150917 |gx[1]#_g150918_|)) + (cons 'id __tmp83835))) + (__tmp83830 + (let ((__tmp83831 + (let ((__tmp83832 |gx[1]#_g83833_|)) (declare (not safe)) - (cons 'table __tmp150917)))) + (cons 'table __tmp83832)))) (declare (not safe)) - (cons __tmp150916 '())))) + (cons __tmp83831 '())))) (declare (not safe)) - (cons __tmp150919 __tmp150915)))) + (cons __tmp83834 __tmp83830)))) (declare (not safe)) (##unchecked-structure-set! - __obj150770 - __tmp150914 + __obj83685 + __tmp83829 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150922 - (let ((__tmp150927 - (let ((__tmp150928 |gx[1]#_g150929_|)) + (let ((__tmp83837 + (let ((__tmp83842 + (let ((__tmp83843 |gx[1]#_g83844_|)) (declare (not safe)) - (cons 'id __tmp150928))) - (__tmp150923 - (let ((__tmp150924 - (let ((__tmp150925 |gx[1]#_g150926_|)) + (cons 'id __tmp83843))) + (__tmp83838 + (let ((__tmp83839 + (let ((__tmp83840 |gx[1]#_g83841_|)) (declare (not safe)) - (cons 'table __tmp150925)))) + (cons 'table __tmp83840)))) (declare (not safe)) - (cons __tmp150924 '())))) + (cons __tmp83839 '())))) (declare (not safe)) - (cons __tmp150927 __tmp150923)))) + (cons __tmp83842 __tmp83838)))) (declare (not safe)) (##unchecked-structure-set! - __obj150770 - __tmp150922 + __obj83685 + __tmp83837 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150770)) + __obj83685)) (define |gx[:0:]#phi-context| - (let ((__obj150771 + (let ((__obj83686 (let () (declare (not safe)) (##structure @@ -3986,7 +3986,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150771 + __obj83686 'gx#context-phi::t '1 gerbil/core$$#class-type-info::t @@ -3994,7 +3994,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150771 + __obj83686 'phi-context '2 gerbil/core$$#class-type-info::t @@ -4002,26 +4002,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150771 + __obj83686 '(super up down) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150930 - (let ((__tmp150931 |gx[1]#_g150891_|)) + (let ((__tmp83845 + (let ((__tmp83846 |gx[1]#_g83806_|)) (declare (not safe)) - (cons __tmp150931 '())))) + (cons __tmp83846 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150771 - __tmp150930 + __obj83686 + __tmp83845 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150771 + __obj83686 '#t '5 gerbil/core$$#class-type-info::t @@ -4029,7 +4029,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150771 + __obj83686 '#f '6 gerbil/core$$#class-type-info::t @@ -4037,7 +4037,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150771 + __obj83686 '#f '7 gerbil/core$$#class-type-info::t @@ -4045,218 +4045,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150771 + __obj83686 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150932 |gx[1]#_g150933_|)) + (let ((__tmp83847 |gx[1]#_g83848_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150771 - __tmp150932 + __obj83686 + __tmp83847 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150934 |gx[1]#_g150935_|)) + (let ((__tmp83849 |gx[1]#_g83850_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150771 - __tmp150934 + __obj83686 + __tmp83849 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150936 |gx[1]#_g150937_|)) + (let ((__tmp83851 |gx[1]#_g83852_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150771 - __tmp150936 + __obj83686 + __tmp83851 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150938 - (let ((__tmp150955 - (let ((__tmp150956 |gx[1]#_g150957_|)) + (let ((__tmp83853 + (let ((__tmp83870 + (let ((__tmp83871 |gx[1]#_g83872_|)) (declare (not safe)) - (cons 'super __tmp150956))) - (__tmp150939 - (let ((__tmp150952 - (let ((__tmp150953 |gx[1]#_g150954_|)) + (cons 'super __tmp83871))) + (__tmp83854 + (let ((__tmp83867 + (let ((__tmp83868 |gx[1]#_g83869_|)) (declare (not safe)) - (cons 'up __tmp150953))) - (__tmp150940 - (let ((__tmp150949 - (let ((__tmp150950 |gx[1]#_g150951_|)) + (cons 'up __tmp83868))) + (__tmp83855 + (let ((__tmp83864 + (let ((__tmp83865 |gx[1]#_g83866_|)) (declare (not safe)) - (cons 'down __tmp150950))) - (__tmp150941 - (let ((__tmp150946 - (let ((__tmp150947 - |gx[1]#_g150948_|)) + (cons 'down __tmp83865))) + (__tmp83856 + (let ((__tmp83861 + (let ((__tmp83862 |gx[1]#_g83863_|)) (declare (not safe)) - (cons 'id __tmp150947))) - (__tmp150942 - (let ((__tmp150943 - (let ((__tmp150944 - |gx[1]#_g150945_|)) + (cons 'id __tmp83862))) + (__tmp83857 + (let ((__tmp83858 + (let ((__tmp83859 + |gx[1]#_g83860_|)) (declare (not safe)) - (cons 'table - __tmp150944)))) + (cons 'table __tmp83859)))) (declare (not safe)) - (cons __tmp150943 '())))) + (cons __tmp83858 '())))) (declare (not safe)) - (cons __tmp150946 __tmp150942)))) + (cons __tmp83861 __tmp83857)))) (declare (not safe)) - (cons __tmp150949 __tmp150941)))) + (cons __tmp83864 __tmp83856)))) (declare (not safe)) - (cons __tmp150952 __tmp150940)))) + (cons __tmp83867 __tmp83855)))) (declare (not safe)) - (cons __tmp150955 __tmp150939)))) + (cons __tmp83870 __tmp83854)))) (declare (not safe)) (##unchecked-structure-set! - __obj150771 - __tmp150938 + __obj83686 + __tmp83853 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150958 - (let ((__tmp150975 - (let ((__tmp150976 |gx[1]#_g150977_|)) + (let ((__tmp83873 + (let ((__tmp83890 + (let ((__tmp83891 |gx[1]#_g83892_|)) (declare (not safe)) - (cons 'super __tmp150976))) - (__tmp150959 - (let ((__tmp150972 - (let ((__tmp150973 |gx[1]#_g150974_|)) + (cons 'super __tmp83891))) + (__tmp83874 + (let ((__tmp83887 + (let ((__tmp83888 |gx[1]#_g83889_|)) (declare (not safe)) - (cons 'up __tmp150973))) - (__tmp150960 - (let ((__tmp150969 - (let ((__tmp150970 |gx[1]#_g150971_|)) + (cons 'up __tmp83888))) + (__tmp83875 + (let ((__tmp83884 + (let ((__tmp83885 |gx[1]#_g83886_|)) (declare (not safe)) - (cons 'down __tmp150970))) - (__tmp150961 - (let ((__tmp150966 - (let ((__tmp150967 - |gx[1]#_g150968_|)) + (cons 'down __tmp83885))) + (__tmp83876 + (let ((__tmp83881 + (let ((__tmp83882 |gx[1]#_g83883_|)) (declare (not safe)) - (cons 'id __tmp150967))) - (__tmp150962 - (let ((__tmp150963 - (let ((__tmp150964 - |gx[1]#_g150965_|)) + (cons 'id __tmp83882))) + (__tmp83877 + (let ((__tmp83878 + (let ((__tmp83879 + |gx[1]#_g83880_|)) (declare (not safe)) - (cons 'table - __tmp150964)))) + (cons 'table __tmp83879)))) (declare (not safe)) - (cons __tmp150963 '())))) + (cons __tmp83878 '())))) (declare (not safe)) - (cons __tmp150966 __tmp150962)))) + (cons __tmp83881 __tmp83877)))) (declare (not safe)) - (cons __tmp150969 __tmp150961)))) + (cons __tmp83884 __tmp83876)))) (declare (not safe)) - (cons __tmp150972 __tmp150960)))) + (cons __tmp83887 __tmp83875)))) (declare (not safe)) - (cons __tmp150975 __tmp150959)))) + (cons __tmp83890 __tmp83874)))) (declare (not safe)) (##unchecked-structure-set! - __obj150771 - __tmp150958 + __obj83686 + __tmp83873 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150978 - (let ((__tmp150995 - (let ((__tmp150996 |gx[1]#_g150997_|)) + (let ((__tmp83893 + (let ((__tmp83910 + (let ((__tmp83911 |gx[1]#_g83912_|)) (declare (not safe)) - (cons 'super __tmp150996))) - (__tmp150979 - (let ((__tmp150992 - (let ((__tmp150993 |gx[1]#_g150994_|)) + (cons 'super __tmp83911))) + (__tmp83894 + (let ((__tmp83907 + (let ((__tmp83908 |gx[1]#_g83909_|)) (declare (not safe)) - (cons 'up __tmp150993))) - (__tmp150980 - (let ((__tmp150989 - (let ((__tmp150990 |gx[1]#_g150991_|)) + (cons 'up __tmp83908))) + (__tmp83895 + (let ((__tmp83904 + (let ((__tmp83905 |gx[1]#_g83906_|)) (declare (not safe)) - (cons 'down __tmp150990))) - (__tmp150981 - (let ((__tmp150986 - (let ((__tmp150987 - |gx[1]#_g150988_|)) + (cons 'down __tmp83905))) + (__tmp83896 + (let ((__tmp83901 + (let ((__tmp83902 |gx[1]#_g83903_|)) (declare (not safe)) - (cons 'id __tmp150987))) - (__tmp150982 - (let ((__tmp150983 - (let ((__tmp150984 - |gx[1]#_g150985_|)) + (cons 'id __tmp83902))) + (__tmp83897 + (let ((__tmp83898 + (let ((__tmp83899 + |gx[1]#_g83900_|)) (declare (not safe)) - (cons 'table - __tmp150984)))) + (cons 'table __tmp83899)))) (declare (not safe)) - (cons __tmp150983 '())))) + (cons __tmp83898 '())))) (declare (not safe)) - (cons __tmp150986 __tmp150982)))) + (cons __tmp83901 __tmp83897)))) (declare (not safe)) - (cons __tmp150989 __tmp150981)))) + (cons __tmp83904 __tmp83896)))) (declare (not safe)) - (cons __tmp150992 __tmp150980)))) + (cons __tmp83907 __tmp83895)))) (declare (not safe)) - (cons __tmp150995 __tmp150979)))) + (cons __tmp83910 __tmp83894)))) (declare (not safe)) (##unchecked-structure-set! - __obj150771 - __tmp150978 + __obj83686 + __tmp83893 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150998 - (let ((__tmp151015 - (let ((__tmp151016 |gx[1]#_g151017_|)) + (let ((__tmp83913 + (let ((__tmp83930 + (let ((__tmp83931 |gx[1]#_g83932_|)) (declare (not safe)) - (cons 'super __tmp151016))) - (__tmp150999 - (let ((__tmp151012 - (let ((__tmp151013 |gx[1]#_g151014_|)) + (cons 'super __tmp83931))) + (__tmp83914 + (let ((__tmp83927 + (let ((__tmp83928 |gx[1]#_g83929_|)) (declare (not safe)) - (cons 'up __tmp151013))) - (__tmp151000 - (let ((__tmp151009 - (let ((__tmp151010 |gx[1]#_g151011_|)) + (cons 'up __tmp83928))) + (__tmp83915 + (let ((__tmp83924 + (let ((__tmp83925 |gx[1]#_g83926_|)) (declare (not safe)) - (cons 'down __tmp151010))) - (__tmp151001 - (let ((__tmp151006 - (let ((__tmp151007 - |gx[1]#_g151008_|)) + (cons 'down __tmp83925))) + (__tmp83916 + (let ((__tmp83921 + (let ((__tmp83922 |gx[1]#_g83923_|)) (declare (not safe)) - (cons 'id __tmp151007))) - (__tmp151002 - (let ((__tmp151003 - (let ((__tmp151004 - |gx[1]#_g151005_|)) + (cons 'id __tmp83922))) + (__tmp83917 + (let ((__tmp83918 + (let ((__tmp83919 + |gx[1]#_g83920_|)) (declare (not safe)) - (cons 'table - __tmp151004)))) + (cons 'table __tmp83919)))) (declare (not safe)) - (cons __tmp151003 '())))) + (cons __tmp83918 '())))) (declare (not safe)) - (cons __tmp151006 __tmp151002)))) + (cons __tmp83921 __tmp83917)))) (declare (not safe)) - (cons __tmp151009 __tmp151001)))) + (cons __tmp83924 __tmp83916)))) (declare (not safe)) - (cons __tmp151012 __tmp151000)))) + (cons __tmp83927 __tmp83915)))) (declare (not safe)) - (cons __tmp151015 __tmp150999)))) + (cons __tmp83930 __tmp83914)))) (declare (not safe)) (##unchecked-structure-set! - __obj150771 - __tmp150998 + __obj83686 + __tmp83913 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150771)) + __obj83686)) (define |gx[:0:]#top-context| - (let ((__obj150772 + (let ((__obj83687 (let () (declare (not safe)) (##structure @@ -4279,7 +4271,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150772 + __obj83687 'gx#top-context::t '1 gerbil/core$$#class-type-info::t @@ -4287,7 +4279,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150772 + __obj83687 'top-context '2 gerbil/core$$#class-type-info::t @@ -4295,26 +4287,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150772 + __obj83687 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151018 - (let ((__tmp151019 |gx[1]#_g151020_|)) + (let ((__tmp83933 + (let ((__tmp83934 |gx[1]#_g83935_|)) (declare (not safe)) - (cons __tmp151019 '())))) + (cons __tmp83934 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150772 - __tmp151018 + __obj83687 + __tmp83933 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150772 + __obj83687 '#t '5 gerbil/core$$#class-type-info::t @@ -4322,7 +4314,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150772 + __obj83687 '#f '6 gerbil/core$$#class-type-info::t @@ -4330,7 +4322,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150772 + __obj83687 '#f '7 gerbil/core$$#class-type-info::t @@ -4338,218 +4330,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150772 + __obj83687 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151021 |gx[1]#_g151022_|)) + (let ((__tmp83936 |gx[1]#_g83937_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150772 - __tmp151021 + __obj83687 + __tmp83936 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151023 |gx[1]#_g151024_|)) + (let ((__tmp83938 |gx[1]#_g83939_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150772 - __tmp151023 + __obj83687 + __tmp83938 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151025 |gx[1]#_g151026_|)) + (let ((__tmp83940 |gx[1]#_g83941_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150772 - __tmp151025 + __obj83687 + __tmp83940 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151027 - (let ((__tmp151044 - (let ((__tmp151045 |gx[1]#_g151046_|)) + (let ((__tmp83942 + (let ((__tmp83959 + (let ((__tmp83960 |gx[1]#_g83961_|)) (declare (not safe)) - (cons 'super __tmp151045))) - (__tmp151028 - (let ((__tmp151041 - (let ((__tmp151042 |gx[1]#_g151043_|)) + (cons 'super __tmp83960))) + (__tmp83943 + (let ((__tmp83956 + (let ((__tmp83957 |gx[1]#_g83958_|)) (declare (not safe)) - (cons 'up __tmp151042))) - (__tmp151029 - (let ((__tmp151038 - (let ((__tmp151039 |gx[1]#_g151040_|)) + (cons 'up __tmp83957))) + (__tmp83944 + (let ((__tmp83953 + (let ((__tmp83954 |gx[1]#_g83955_|)) (declare (not safe)) - (cons 'down __tmp151039))) - (__tmp151030 - (let ((__tmp151035 - (let ((__tmp151036 - |gx[1]#_g151037_|)) + (cons 'down __tmp83954))) + (__tmp83945 + (let ((__tmp83950 + (let ((__tmp83951 |gx[1]#_g83952_|)) (declare (not safe)) - (cons 'id __tmp151036))) - (__tmp151031 - (let ((__tmp151032 - (let ((__tmp151033 - |gx[1]#_g151034_|)) + (cons 'id __tmp83951))) + (__tmp83946 + (let ((__tmp83947 + (let ((__tmp83948 + |gx[1]#_g83949_|)) (declare (not safe)) - (cons 'table - __tmp151033)))) + (cons 'table __tmp83948)))) (declare (not safe)) - (cons __tmp151032 '())))) + (cons __tmp83947 '())))) (declare (not safe)) - (cons __tmp151035 __tmp151031)))) + (cons __tmp83950 __tmp83946)))) (declare (not safe)) - (cons __tmp151038 __tmp151030)))) + (cons __tmp83953 __tmp83945)))) (declare (not safe)) - (cons __tmp151041 __tmp151029)))) + (cons __tmp83956 __tmp83944)))) (declare (not safe)) - (cons __tmp151044 __tmp151028)))) + (cons __tmp83959 __tmp83943)))) (declare (not safe)) (##unchecked-structure-set! - __obj150772 - __tmp151027 + __obj83687 + __tmp83942 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151047 - (let ((__tmp151064 - (let ((__tmp151065 |gx[1]#_g151066_|)) + (let ((__tmp83962 + (let ((__tmp83979 + (let ((__tmp83980 |gx[1]#_g83981_|)) (declare (not safe)) - (cons 'super __tmp151065))) - (__tmp151048 - (let ((__tmp151061 - (let ((__tmp151062 |gx[1]#_g151063_|)) + (cons 'super __tmp83980))) + (__tmp83963 + (let ((__tmp83976 + (let ((__tmp83977 |gx[1]#_g83978_|)) (declare (not safe)) - (cons 'up __tmp151062))) - (__tmp151049 - (let ((__tmp151058 - (let ((__tmp151059 |gx[1]#_g151060_|)) + (cons 'up __tmp83977))) + (__tmp83964 + (let ((__tmp83973 + (let ((__tmp83974 |gx[1]#_g83975_|)) (declare (not safe)) - (cons 'down __tmp151059))) - (__tmp151050 - (let ((__tmp151055 - (let ((__tmp151056 - |gx[1]#_g151057_|)) + (cons 'down __tmp83974))) + (__tmp83965 + (let ((__tmp83970 + (let ((__tmp83971 |gx[1]#_g83972_|)) (declare (not safe)) - (cons 'id __tmp151056))) - (__tmp151051 - (let ((__tmp151052 - (let ((__tmp151053 - |gx[1]#_g151054_|)) + (cons 'id __tmp83971))) + (__tmp83966 + (let ((__tmp83967 + (let ((__tmp83968 + |gx[1]#_g83969_|)) (declare (not safe)) - (cons 'table - __tmp151053)))) + (cons 'table __tmp83968)))) (declare (not safe)) - (cons __tmp151052 '())))) + (cons __tmp83967 '())))) (declare (not safe)) - (cons __tmp151055 __tmp151051)))) + (cons __tmp83970 __tmp83966)))) (declare (not safe)) - (cons __tmp151058 __tmp151050)))) + (cons __tmp83973 __tmp83965)))) (declare (not safe)) - (cons __tmp151061 __tmp151049)))) + (cons __tmp83976 __tmp83964)))) (declare (not safe)) - (cons __tmp151064 __tmp151048)))) + (cons __tmp83979 __tmp83963)))) (declare (not safe)) (##unchecked-structure-set! - __obj150772 - __tmp151047 + __obj83687 + __tmp83962 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151067 - (let ((__tmp151084 - (let ((__tmp151085 |gx[1]#_g151086_|)) + (let ((__tmp83982 + (let ((__tmp83999 + (let ((__tmp84000 |gx[1]#_g84001_|)) (declare (not safe)) - (cons 'super __tmp151085))) - (__tmp151068 - (let ((__tmp151081 - (let ((__tmp151082 |gx[1]#_g151083_|)) + (cons 'super __tmp84000))) + (__tmp83983 + (let ((__tmp83996 + (let ((__tmp83997 |gx[1]#_g83998_|)) (declare (not safe)) - (cons 'up __tmp151082))) - (__tmp151069 - (let ((__tmp151078 - (let ((__tmp151079 |gx[1]#_g151080_|)) + (cons 'up __tmp83997))) + (__tmp83984 + (let ((__tmp83993 + (let ((__tmp83994 |gx[1]#_g83995_|)) (declare (not safe)) - (cons 'down __tmp151079))) - (__tmp151070 - (let ((__tmp151075 - (let ((__tmp151076 - |gx[1]#_g151077_|)) + (cons 'down __tmp83994))) + (__tmp83985 + (let ((__tmp83990 + (let ((__tmp83991 |gx[1]#_g83992_|)) (declare (not safe)) - (cons 'id __tmp151076))) - (__tmp151071 - (let ((__tmp151072 - (let ((__tmp151073 - |gx[1]#_g151074_|)) + (cons 'id __tmp83991))) + (__tmp83986 + (let ((__tmp83987 + (let ((__tmp83988 + |gx[1]#_g83989_|)) (declare (not safe)) - (cons 'table - __tmp151073)))) + (cons 'table __tmp83988)))) (declare (not safe)) - (cons __tmp151072 '())))) + (cons __tmp83987 '())))) (declare (not safe)) - (cons __tmp151075 __tmp151071)))) + (cons __tmp83990 __tmp83986)))) (declare (not safe)) - (cons __tmp151078 __tmp151070)))) + (cons __tmp83993 __tmp83985)))) (declare (not safe)) - (cons __tmp151081 __tmp151069)))) + (cons __tmp83996 __tmp83984)))) (declare (not safe)) - (cons __tmp151084 __tmp151068)))) + (cons __tmp83999 __tmp83983)))) (declare (not safe)) (##unchecked-structure-set! - __obj150772 - __tmp151067 + __obj83687 + __tmp83982 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151087 - (let ((__tmp151104 - (let ((__tmp151105 |gx[1]#_g151106_|)) + (let ((__tmp84002 + (let ((__tmp84019 + (let ((__tmp84020 |gx[1]#_g84021_|)) (declare (not safe)) - (cons 'super __tmp151105))) - (__tmp151088 - (let ((__tmp151101 - (let ((__tmp151102 |gx[1]#_g151103_|)) + (cons 'super __tmp84020))) + (__tmp84003 + (let ((__tmp84016 + (let ((__tmp84017 |gx[1]#_g84018_|)) (declare (not safe)) - (cons 'up __tmp151102))) - (__tmp151089 - (let ((__tmp151098 - (let ((__tmp151099 |gx[1]#_g151100_|)) + (cons 'up __tmp84017))) + (__tmp84004 + (let ((__tmp84013 + (let ((__tmp84014 |gx[1]#_g84015_|)) (declare (not safe)) - (cons 'down __tmp151099))) - (__tmp151090 - (let ((__tmp151095 - (let ((__tmp151096 - |gx[1]#_g151097_|)) + (cons 'down __tmp84014))) + (__tmp84005 + (let ((__tmp84010 + (let ((__tmp84011 |gx[1]#_g84012_|)) (declare (not safe)) - (cons 'id __tmp151096))) - (__tmp151091 - (let ((__tmp151092 - (let ((__tmp151093 - |gx[1]#_g151094_|)) + (cons 'id __tmp84011))) + (__tmp84006 + (let ((__tmp84007 + (let ((__tmp84008 + |gx[1]#_g84009_|)) (declare (not safe)) - (cons 'table - __tmp151093)))) + (cons 'table __tmp84008)))) (declare (not safe)) - (cons __tmp151092 '())))) + (cons __tmp84007 '())))) (declare (not safe)) - (cons __tmp151095 __tmp151091)))) + (cons __tmp84010 __tmp84006)))) (declare (not safe)) - (cons __tmp151098 __tmp151090)))) + (cons __tmp84013 __tmp84005)))) (declare (not safe)) - (cons __tmp151101 __tmp151089)))) + (cons __tmp84016 __tmp84004)))) (declare (not safe)) - (cons __tmp151104 __tmp151088)))) + (cons __tmp84019 __tmp84003)))) (declare (not safe)) (##unchecked-structure-set! - __obj150772 - __tmp151087 + __obj83687 + __tmp84002 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150772)) + __obj83687)) (define |gx[:0:]#module-context| - (let ((__obj150773 + (let ((__obj83688 (let () (declare (not safe)) (##structure @@ -4572,7 +4556,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150773 + __obj83688 'gx#module-context::t '1 gerbil/core$$#class-type-info::t @@ -4580,7 +4564,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150773 + __obj83688 'module-context '2 gerbil/core$$#class-type-info::t @@ -4588,26 +4572,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150773 + __obj83688 '(ns path import export e code) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151107 - (let ((__tmp151108 |gx[1]#_g151109_|)) + (let ((__tmp84022 + (let ((__tmp84023 |gx[1]#_g84024_|)) (declare (not safe)) - (cons __tmp151108 '())))) + (cons __tmp84023 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150773 - __tmp151107 + __obj83688 + __tmp84022 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150773 + __obj83688 '#t '5 gerbil/core$$#class-type-info::t @@ -4615,7 +4599,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150773 + __obj83688 '#f '6 gerbil/core$$#class-type-info::t @@ -4623,7 +4607,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150773 + __obj83688 '#f '7 gerbil/core$$#class-type-info::t @@ -4631,414 +4615,410 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150773 + __obj83688 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151110 |gx[1]#_g151111_|)) + (let ((__tmp84025 |gx[1]#_g84026_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150773 - __tmp151110 + __obj83688 + __tmp84025 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151112 |gx[1]#_g151113_|)) + (let ((__tmp84027 |gx[1]#_g84028_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150773 - __tmp151112 + __obj83688 + __tmp84027 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151114 |gx[1]#_g151115_|)) + (let ((__tmp84029 |gx[1]#_g84030_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150773 - __tmp151114 + __obj83688 + __tmp84029 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151116 - (let ((__tmp151157 - (let ((__tmp151158 |gx[1]#_g151159_|)) + (let ((__tmp84031 + (let ((__tmp84072 + (let ((__tmp84073 |gx[1]#_g84074_|)) (declare (not safe)) - (cons 'ns __tmp151158))) - (__tmp151117 - (let ((__tmp151154 - (let ((__tmp151155 |gx[1]#_g151156_|)) + (cons 'ns __tmp84073))) + (__tmp84032 + (let ((__tmp84069 + (let ((__tmp84070 |gx[1]#_g84071_|)) (declare (not safe)) - (cons 'path __tmp151155))) - (__tmp151118 - (let ((__tmp151151 - (let ((__tmp151152 |gx[1]#_g151153_|)) + (cons 'path __tmp84070))) + (__tmp84033 + (let ((__tmp84066 + (let ((__tmp84067 |gx[1]#_g84068_|)) (declare (not safe)) - (cons 'import __tmp151152))) - (__tmp151119 - (let ((__tmp151148 - (let ((__tmp151149 - |gx[1]#_g151150_|)) + (cons 'import __tmp84067))) + (__tmp84034 + (let ((__tmp84063 + (let ((__tmp84064 |gx[1]#_g84065_|)) (declare (not safe)) - (cons 'export __tmp151149))) - (__tmp151120 - (let ((__tmp151145 - (let ((__tmp151146 - |gx[1]#_g151147_|)) + (cons 'export __tmp84064))) + (__tmp84035 + (let ((__tmp84060 + (let ((__tmp84061 + |gx[1]#_g84062_|)) (declare (not safe)) - (cons 'e __tmp151146))) - (__tmp151121 - (let ((__tmp151142 - (let ((__tmp151143 - |gx[1]#_g151144_|)) + (cons 'e __tmp84061))) + (__tmp84036 + (let ((__tmp84057 + (let ((__tmp84058 + |gx[1]#_g84059_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp151143))) - (__tmp151122 - (let ((__tmp151139 - (let ((__tmp151140 |gx[1]#_g151141_|)) + __tmp84058))) + (__tmp84037 + (let ((__tmp84054 + (let ((__tmp84055 |gx[1]#_g84056_|)) (declare (not safe)) - (cons 'super __tmp151140))) - (__tmp151123 - (let ((__tmp151136 - (let ((__tmp151137 |gx[1]#_g151138_|)) + (cons 'super __tmp84055))) + (__tmp84038 + (let ((__tmp84051 + (let ((__tmp84052 |gx[1]#_g84053_|)) (declare (not safe)) - (cons 'up __tmp151137))) - (__tmp151124 - (let ((__tmp151133 - (let ((__tmp151134 |gx[1]#_g151135_|)) + (cons 'up __tmp84052))) + (__tmp84039 + (let ((__tmp84048 + (let ((__tmp84049 |gx[1]#_g84050_|)) (declare (not safe)) - (cons 'down __tmp151134))) - (__tmp151125 - (let ((__tmp151130 - (let ((__tmp151131 - |gx[1]#_g151132_|)) + (cons 'down __tmp84049))) + (__tmp84040 + (let ((__tmp84045 + (let ((__tmp84046 + |gx[1]#_g84047_|)) (declare (not safe)) - (cons 'id __tmp151131))) - (__tmp151126 - (let ((__tmp151127 - (let ((__tmp151128 - |gx[1]#_g151129_|)) + (cons 'id __tmp84046))) + (__tmp84041 + (let ((__tmp84042 + (let ((__tmp84043 + |gx[1]#_g84044_|)) (declare (not safe)) (cons 'table - __tmp151128)))) + __tmp84043)))) (declare (not safe)) - (cons __tmp151127 '())))) + (cons __tmp84042 '())))) (declare (not safe)) - (cons __tmp151130 __tmp151126)))) + (cons __tmp84045 __tmp84041)))) (declare (not safe)) - (cons __tmp151133 __tmp151125)))) + (cons __tmp84048 __tmp84040)))) (declare (not safe)) - (cons __tmp151136 __tmp151124)))) + (cons __tmp84051 __tmp84039)))) (declare (not safe)) - (cons __tmp151139 __tmp151123)))) + (cons __tmp84054 __tmp84038)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp151142 - __tmp151122)))) + (cons __tmp84057 + __tmp84037)))) (declare (not safe)) - (cons __tmp151145 __tmp151121)))) + (cons __tmp84060 __tmp84036)))) (declare (not safe)) - (cons __tmp151148 __tmp151120)))) + (cons __tmp84063 __tmp84035)))) (declare (not safe)) - (cons __tmp151151 __tmp151119)))) + (cons __tmp84066 __tmp84034)))) (declare (not safe)) - (cons __tmp151154 __tmp151118)))) + (cons __tmp84069 __tmp84033)))) (declare (not safe)) - (cons __tmp151157 __tmp151117)))) + (cons __tmp84072 __tmp84032)))) (declare (not safe)) (##unchecked-structure-set! - __obj150773 - __tmp151116 + __obj83688 + __tmp84031 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151160 - (let ((__tmp151201 - (let ((__tmp151202 |gx[1]#_g151203_|)) + (let ((__tmp84075 + (let ((__tmp84116 + (let ((__tmp84117 |gx[1]#_g84118_|)) (declare (not safe)) - (cons 'ns __tmp151202))) - (__tmp151161 - (let ((__tmp151198 - (let ((__tmp151199 |gx[1]#_g151200_|)) + (cons 'ns __tmp84117))) + (__tmp84076 + (let ((__tmp84113 + (let ((__tmp84114 |gx[1]#_g84115_|)) (declare (not safe)) - (cons 'path __tmp151199))) - (__tmp151162 - (let ((__tmp151195 - (let ((__tmp151196 |gx[1]#_g151197_|)) + (cons 'path __tmp84114))) + (__tmp84077 + (let ((__tmp84110 + (let ((__tmp84111 |gx[1]#_g84112_|)) (declare (not safe)) - (cons 'import __tmp151196))) - (__tmp151163 - (let ((__tmp151192 - (let ((__tmp151193 - |gx[1]#_g151194_|)) + (cons 'import __tmp84111))) + (__tmp84078 + (let ((__tmp84107 + (let ((__tmp84108 |gx[1]#_g84109_|)) (declare (not safe)) - (cons 'export __tmp151193))) - (__tmp151164 - (let ((__tmp151189 - (let ((__tmp151190 - |gx[1]#_g151191_|)) + (cons 'export __tmp84108))) + (__tmp84079 + (let ((__tmp84104 + (let ((__tmp84105 + |gx[1]#_g84106_|)) (declare (not safe)) - (cons 'e __tmp151190))) - (__tmp151165 - (let ((__tmp151186 - (let ((__tmp151187 - |gx[1]#_g151188_|)) + (cons 'e __tmp84105))) + (__tmp84080 + (let ((__tmp84101 + (let ((__tmp84102 + |gx[1]#_g84103_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp151187))) - (__tmp151166 - (let ((__tmp151183 - (let ((__tmp151184 |gx[1]#_g151185_|)) + __tmp84102))) + (__tmp84081 + (let ((__tmp84098 + (let ((__tmp84099 |gx[1]#_g84100_|)) (declare (not safe)) - (cons 'super __tmp151184))) - (__tmp151167 - (let ((__tmp151180 - (let ((__tmp151181 |gx[1]#_g151182_|)) + (cons 'super __tmp84099))) + (__tmp84082 + (let ((__tmp84095 + (let ((__tmp84096 |gx[1]#_g84097_|)) (declare (not safe)) - (cons 'up __tmp151181))) - (__tmp151168 - (let ((__tmp151177 - (let ((__tmp151178 |gx[1]#_g151179_|)) + (cons 'up __tmp84096))) + (__tmp84083 + (let ((__tmp84092 + (let ((__tmp84093 |gx[1]#_g84094_|)) (declare (not safe)) - (cons 'down __tmp151178))) - (__tmp151169 - (let ((__tmp151174 - (let ((__tmp151175 - |gx[1]#_g151176_|)) + (cons 'down __tmp84093))) + (__tmp84084 + (let ((__tmp84089 + (let ((__tmp84090 + |gx[1]#_g84091_|)) (declare (not safe)) - (cons 'id __tmp151175))) - (__tmp151170 - (let ((__tmp151171 - (let ((__tmp151172 - |gx[1]#_g151173_|)) + (cons 'id __tmp84090))) + (__tmp84085 + (let ((__tmp84086 + (let ((__tmp84087 + |gx[1]#_g84088_|)) (declare (not safe)) (cons 'table - __tmp151172)))) + __tmp84087)))) (declare (not safe)) - (cons __tmp151171 '())))) + (cons __tmp84086 '())))) (declare (not safe)) - (cons __tmp151174 __tmp151170)))) + (cons __tmp84089 __tmp84085)))) (declare (not safe)) - (cons __tmp151177 __tmp151169)))) + (cons __tmp84092 __tmp84084)))) (declare (not safe)) - (cons __tmp151180 __tmp151168)))) + (cons __tmp84095 __tmp84083)))) (declare (not safe)) - (cons __tmp151183 __tmp151167)))) + (cons __tmp84098 __tmp84082)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp151186 - __tmp151166)))) + (cons __tmp84101 + __tmp84081)))) (declare (not safe)) - (cons __tmp151189 __tmp151165)))) + (cons __tmp84104 __tmp84080)))) (declare (not safe)) - (cons __tmp151192 __tmp151164)))) + (cons __tmp84107 __tmp84079)))) (declare (not safe)) - (cons __tmp151195 __tmp151163)))) + (cons __tmp84110 __tmp84078)))) (declare (not safe)) - (cons __tmp151198 __tmp151162)))) + (cons __tmp84113 __tmp84077)))) (declare (not safe)) - (cons __tmp151201 __tmp151161)))) + (cons __tmp84116 __tmp84076)))) (declare (not safe)) (##unchecked-structure-set! - __obj150773 - __tmp151160 + __obj83688 + __tmp84075 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151204 - (let ((__tmp151245 - (let ((__tmp151246 |gx[1]#_g151247_|)) + (let ((__tmp84119 + (let ((__tmp84160 + (let ((__tmp84161 |gx[1]#_g84162_|)) (declare (not safe)) - (cons 'ns __tmp151246))) - (__tmp151205 - (let ((__tmp151242 - (let ((__tmp151243 |gx[1]#_g151244_|)) + (cons 'ns __tmp84161))) + (__tmp84120 + (let ((__tmp84157 + (let ((__tmp84158 |gx[1]#_g84159_|)) (declare (not safe)) - (cons 'path __tmp151243))) - (__tmp151206 - (let ((__tmp151239 - (let ((__tmp151240 |gx[1]#_g151241_|)) + (cons 'path __tmp84158))) + (__tmp84121 + (let ((__tmp84154 + (let ((__tmp84155 |gx[1]#_g84156_|)) (declare (not safe)) - (cons 'import __tmp151240))) - (__tmp151207 - (let ((__tmp151236 - (let ((__tmp151237 - |gx[1]#_g151238_|)) + (cons 'import __tmp84155))) + (__tmp84122 + (let ((__tmp84151 + (let ((__tmp84152 |gx[1]#_g84153_|)) (declare (not safe)) - (cons 'export __tmp151237))) - (__tmp151208 - (let ((__tmp151233 - (let ((__tmp151234 - |gx[1]#_g151235_|)) + (cons 'export __tmp84152))) + (__tmp84123 + (let ((__tmp84148 + (let ((__tmp84149 + |gx[1]#_g84150_|)) (declare (not safe)) - (cons 'e __tmp151234))) - (__tmp151209 - (let ((__tmp151230 - (let ((__tmp151231 - |gx[1]#_g151232_|)) + (cons 'e __tmp84149))) + (__tmp84124 + (let ((__tmp84145 + (let ((__tmp84146 + |gx[1]#_g84147_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp151231))) - (__tmp151210 - (let ((__tmp151227 - (let ((__tmp151228 |gx[1]#_g151229_|)) + __tmp84146))) + (__tmp84125 + (let ((__tmp84142 + (let ((__tmp84143 |gx[1]#_g84144_|)) (declare (not safe)) - (cons 'super __tmp151228))) - (__tmp151211 - (let ((__tmp151224 - (let ((__tmp151225 |gx[1]#_g151226_|)) + (cons 'super __tmp84143))) + (__tmp84126 + (let ((__tmp84139 + (let ((__tmp84140 |gx[1]#_g84141_|)) (declare (not safe)) - (cons 'up __tmp151225))) - (__tmp151212 - (let ((__tmp151221 - (let ((__tmp151222 |gx[1]#_g151223_|)) + (cons 'up __tmp84140))) + (__tmp84127 + (let ((__tmp84136 + (let ((__tmp84137 |gx[1]#_g84138_|)) (declare (not safe)) - (cons 'down __tmp151222))) - (__tmp151213 - (let ((__tmp151218 - (let ((__tmp151219 - |gx[1]#_g151220_|)) + (cons 'down __tmp84137))) + (__tmp84128 + (let ((__tmp84133 + (let ((__tmp84134 + |gx[1]#_g84135_|)) (declare (not safe)) - (cons 'id __tmp151219))) - (__tmp151214 - (let ((__tmp151215 - (let ((__tmp151216 - |gx[1]#_g151217_|)) + (cons 'id __tmp84134))) + (__tmp84129 + (let ((__tmp84130 + (let ((__tmp84131 + |gx[1]#_g84132_|)) (declare (not safe)) (cons 'table - __tmp151216)))) + __tmp84131)))) (declare (not safe)) - (cons __tmp151215 '())))) + (cons __tmp84130 '())))) (declare (not safe)) - (cons __tmp151218 __tmp151214)))) + (cons __tmp84133 __tmp84129)))) (declare (not safe)) - (cons __tmp151221 __tmp151213)))) + (cons __tmp84136 __tmp84128)))) (declare (not safe)) - (cons __tmp151224 __tmp151212)))) + (cons __tmp84139 __tmp84127)))) (declare (not safe)) - (cons __tmp151227 __tmp151211)))) + (cons __tmp84142 __tmp84126)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp151230 - __tmp151210)))) + (cons __tmp84145 + __tmp84125)))) (declare (not safe)) - (cons __tmp151233 __tmp151209)))) + (cons __tmp84148 __tmp84124)))) (declare (not safe)) - (cons __tmp151236 __tmp151208)))) + (cons __tmp84151 __tmp84123)))) (declare (not safe)) - (cons __tmp151239 __tmp151207)))) + (cons __tmp84154 __tmp84122)))) (declare (not safe)) - (cons __tmp151242 __tmp151206)))) + (cons __tmp84157 __tmp84121)))) (declare (not safe)) - (cons __tmp151245 __tmp151205)))) + (cons __tmp84160 __tmp84120)))) (declare (not safe)) (##unchecked-structure-set! - __obj150773 - __tmp151204 + __obj83688 + __tmp84119 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151248 - (let ((__tmp151289 - (let ((__tmp151290 |gx[1]#_g151291_|)) + (let ((__tmp84163 + (let ((__tmp84204 + (let ((__tmp84205 |gx[1]#_g84206_|)) (declare (not safe)) - (cons 'ns __tmp151290))) - (__tmp151249 - (let ((__tmp151286 - (let ((__tmp151287 |gx[1]#_g151288_|)) + (cons 'ns __tmp84205))) + (__tmp84164 + (let ((__tmp84201 + (let ((__tmp84202 |gx[1]#_g84203_|)) (declare (not safe)) - (cons 'path __tmp151287))) - (__tmp151250 - (let ((__tmp151283 - (let ((__tmp151284 |gx[1]#_g151285_|)) + (cons 'path __tmp84202))) + (__tmp84165 + (let ((__tmp84198 + (let ((__tmp84199 |gx[1]#_g84200_|)) (declare (not safe)) - (cons 'import __tmp151284))) - (__tmp151251 - (let ((__tmp151280 - (let ((__tmp151281 - |gx[1]#_g151282_|)) + (cons 'import __tmp84199))) + (__tmp84166 + (let ((__tmp84195 + (let ((__tmp84196 |gx[1]#_g84197_|)) (declare (not safe)) - (cons 'export __tmp151281))) - (__tmp151252 - (let ((__tmp151277 - (let ((__tmp151278 - |gx[1]#_g151279_|)) + (cons 'export __tmp84196))) + (__tmp84167 + (let ((__tmp84192 + (let ((__tmp84193 + |gx[1]#_g84194_|)) (declare (not safe)) - (cons 'e __tmp151278))) - (__tmp151253 - (let ((__tmp151274 - (let ((__tmp151275 - |gx[1]#_g151276_|)) + (cons 'e __tmp84193))) + (__tmp84168 + (let ((__tmp84189 + (let ((__tmp84190 + |gx[1]#_g84191_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp151275))) - (__tmp151254 - (let ((__tmp151271 - (let ((__tmp151272 |gx[1]#_g151273_|)) + __tmp84190))) + (__tmp84169 + (let ((__tmp84186 + (let ((__tmp84187 |gx[1]#_g84188_|)) (declare (not safe)) - (cons 'super __tmp151272))) - (__tmp151255 - (let ((__tmp151268 - (let ((__tmp151269 |gx[1]#_g151270_|)) + (cons 'super __tmp84187))) + (__tmp84170 + (let ((__tmp84183 + (let ((__tmp84184 |gx[1]#_g84185_|)) (declare (not safe)) - (cons 'up __tmp151269))) - (__tmp151256 - (let ((__tmp151265 - (let ((__tmp151266 |gx[1]#_g151267_|)) + (cons 'up __tmp84184))) + (__tmp84171 + (let ((__tmp84180 + (let ((__tmp84181 |gx[1]#_g84182_|)) (declare (not safe)) - (cons 'down __tmp151266))) - (__tmp151257 - (let ((__tmp151262 - (let ((__tmp151263 - |gx[1]#_g151264_|)) + (cons 'down __tmp84181))) + (__tmp84172 + (let ((__tmp84177 + (let ((__tmp84178 + |gx[1]#_g84179_|)) (declare (not safe)) - (cons 'id __tmp151263))) - (__tmp151258 - (let ((__tmp151259 - (let ((__tmp151260 - |gx[1]#_g151261_|)) + (cons 'id __tmp84178))) + (__tmp84173 + (let ((__tmp84174 + (let ((__tmp84175 + |gx[1]#_g84176_|)) (declare (not safe)) (cons 'table - __tmp151260)))) + __tmp84175)))) (declare (not safe)) - (cons __tmp151259 '())))) + (cons __tmp84174 '())))) (declare (not safe)) - (cons __tmp151262 __tmp151258)))) + (cons __tmp84177 __tmp84173)))) (declare (not safe)) - (cons __tmp151265 __tmp151257)))) + (cons __tmp84180 __tmp84172)))) (declare (not safe)) - (cons __tmp151268 __tmp151256)))) + (cons __tmp84183 __tmp84171)))) (declare (not safe)) - (cons __tmp151271 __tmp151255)))) + (cons __tmp84186 __tmp84170)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp151274 - __tmp151254)))) + (cons __tmp84189 + __tmp84169)))) (declare (not safe)) - (cons __tmp151277 __tmp151253)))) + (cons __tmp84192 __tmp84168)))) (declare (not safe)) - (cons __tmp151280 __tmp151252)))) + (cons __tmp84195 __tmp84167)))) (declare (not safe)) - (cons __tmp151283 __tmp151251)))) + (cons __tmp84198 __tmp84166)))) (declare (not safe)) - (cons __tmp151286 __tmp151250)))) + (cons __tmp84201 __tmp84165)))) (declare (not safe)) - (cons __tmp151289 __tmp151249)))) + (cons __tmp84204 __tmp84164)))) (declare (not safe)) (##unchecked-structure-set! - __obj150773 - __tmp151248 + __obj83688 + __tmp84163 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150773)) + __obj83688)) (define |gx[:0:]#prelude-context| - (let ((__obj150774 + (let ((__obj83689 (let () (declare (not safe)) (##structure @@ -5061,7 +5041,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150774 + __obj83689 'gx#prelude-context::t '1 gerbil/core$$#class-type-info::t @@ -5069,7 +5049,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150774 + __obj83689 'prelude-context '2 gerbil/core$$#class-type-info::t @@ -5077,26 +5057,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150774 + __obj83689 '(path import e) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151292 - (let ((__tmp151293 |gx[1]#_g151109_|)) + (let ((__tmp84207 + (let ((__tmp84208 |gx[1]#_g84024_|)) (declare (not safe)) - (cons __tmp151293 '())))) + (cons __tmp84208 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150774 - __tmp151292 + __obj83689 + __tmp84207 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150774 + __obj83689 '#t '5 gerbil/core$$#class-type-info::t @@ -5104,7 +5084,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150774 + __obj83689 '#f '6 gerbil/core$$#class-type-info::t @@ -5112,7 +5092,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150774 + __obj83689 '#f '7 gerbil/core$$#class-type-info::t @@ -5120,318 +5100,314 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150774 + __obj83689 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151294 |gx[1]#_g151295_|)) + (let ((__tmp84209 |gx[1]#_g84210_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150774 - __tmp151294 + __obj83689 + __tmp84209 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151296 |gx[1]#_g151297_|)) + (let ((__tmp84211 |gx[1]#_g84212_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150774 - __tmp151296 + __obj83689 + __tmp84211 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151298 |gx[1]#_g151299_|)) + (let ((__tmp84213 |gx[1]#_g84214_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150774 - __tmp151298 + __obj83689 + __tmp84213 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151300 - (let ((__tmp151329 - (let ((__tmp151330 |gx[1]#_g151331_|)) + (let ((__tmp84215 + (let ((__tmp84244 + (let ((__tmp84245 |gx[1]#_g84246_|)) (declare (not safe)) - (cons 'path __tmp151330))) - (__tmp151301 - (let ((__tmp151326 - (let ((__tmp151327 |gx[1]#_g151328_|)) + (cons 'path __tmp84245))) + (__tmp84216 + (let ((__tmp84241 + (let ((__tmp84242 |gx[1]#_g84243_|)) (declare (not safe)) - (cons 'import __tmp151327))) - (__tmp151302 - (let ((__tmp151323 - (let ((__tmp151324 |gx[1]#_g151325_|)) + (cons 'import __tmp84242))) + (__tmp84217 + (let ((__tmp84238 + (let ((__tmp84239 |gx[1]#_g84240_|)) (declare (not safe)) - (cons 'e __tmp151324))) - (__tmp151303 - (let ((__tmp151320 - (let ((__tmp151321 - |gx[1]#_g151322_|)) + (cons 'e __tmp84239))) + (__tmp84218 + (let ((__tmp84235 + (let ((__tmp84236 |gx[1]#_g84237_|)) (declare (not safe)) - (cons 'super __tmp151321))) - (__tmp151304 - (let ((__tmp151317 - (let ((__tmp151318 - |gx[1]#_g151319_|)) + (cons 'super __tmp84236))) + (__tmp84219 + (let ((__tmp84232 + (let ((__tmp84233 + |gx[1]#_g84234_|)) (declare (not safe)) - (cons 'up __tmp151318))) - (__tmp151305 - (let ((__tmp151314 - (let ((__tmp151315 - |gx[1]#_g151316_|)) + (cons 'up __tmp84233))) + (__tmp84220 + (let ((__tmp84229 + (let ((__tmp84230 + |gx[1]#_g84231_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp151315))) - (__tmp151306 - (let ((__tmp151311 - (let ((__tmp151312 |gx[1]#_g151313_|)) + __tmp84230))) + (__tmp84221 + (let ((__tmp84226 + (let ((__tmp84227 |gx[1]#_g84228_|)) (declare (not safe)) - (cons 'id __tmp151312))) - (__tmp151307 - (let ((__tmp151308 - (let ((__tmp151309 |gx[1]#_g151310_|)) + (cons 'id __tmp84227))) + (__tmp84222 + (let ((__tmp84223 + (let ((__tmp84224 |gx[1]#_g84225_|)) (declare (not safe)) - (cons 'table __tmp151309)))) + (cons 'table __tmp84224)))) (declare (not safe)) - (cons __tmp151308 '())))) + (cons __tmp84223 '())))) (declare (not safe)) - (cons __tmp151311 __tmp151307)))) + (cons __tmp84226 __tmp84222)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp151314 - __tmp151306)))) + (cons __tmp84229 + __tmp84221)))) (declare (not safe)) - (cons __tmp151317 __tmp151305)))) + (cons __tmp84232 __tmp84220)))) (declare (not safe)) - (cons __tmp151320 __tmp151304)))) + (cons __tmp84235 __tmp84219)))) (declare (not safe)) - (cons __tmp151323 __tmp151303)))) + (cons __tmp84238 __tmp84218)))) (declare (not safe)) - (cons __tmp151326 __tmp151302)))) + (cons __tmp84241 __tmp84217)))) (declare (not safe)) - (cons __tmp151329 __tmp151301)))) + (cons __tmp84244 __tmp84216)))) (declare (not safe)) (##unchecked-structure-set! - __obj150774 - __tmp151300 + __obj83689 + __tmp84215 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151332 - (let ((__tmp151361 - (let ((__tmp151362 |gx[1]#_g151363_|)) + (let ((__tmp84247 + (let ((__tmp84276 + (let ((__tmp84277 |gx[1]#_g84278_|)) (declare (not safe)) - (cons 'path __tmp151362))) - (__tmp151333 - (let ((__tmp151358 - (let ((__tmp151359 |gx[1]#_g151360_|)) + (cons 'path __tmp84277))) + (__tmp84248 + (let ((__tmp84273 + (let ((__tmp84274 |gx[1]#_g84275_|)) (declare (not safe)) - (cons 'import __tmp151359))) - (__tmp151334 - (let ((__tmp151355 - (let ((__tmp151356 |gx[1]#_g151357_|)) + (cons 'import __tmp84274))) + (__tmp84249 + (let ((__tmp84270 + (let ((__tmp84271 |gx[1]#_g84272_|)) (declare (not safe)) - (cons 'e __tmp151356))) - (__tmp151335 - (let ((__tmp151352 - (let ((__tmp151353 - |gx[1]#_g151354_|)) + (cons 'e __tmp84271))) + (__tmp84250 + (let ((__tmp84267 + (let ((__tmp84268 |gx[1]#_g84269_|)) (declare (not safe)) - (cons 'super __tmp151353))) - (__tmp151336 - (let ((__tmp151349 - (let ((__tmp151350 - |gx[1]#_g151351_|)) + (cons 'super __tmp84268))) + (__tmp84251 + (let ((__tmp84264 + (let ((__tmp84265 + |gx[1]#_g84266_|)) (declare (not safe)) - (cons 'up __tmp151350))) - (__tmp151337 - (let ((__tmp151346 - (let ((__tmp151347 - |gx[1]#_g151348_|)) + (cons 'up __tmp84265))) + (__tmp84252 + (let ((__tmp84261 + (let ((__tmp84262 + |gx[1]#_g84263_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp151347))) - (__tmp151338 - (let ((__tmp151343 - (let ((__tmp151344 |gx[1]#_g151345_|)) + __tmp84262))) + (__tmp84253 + (let ((__tmp84258 + (let ((__tmp84259 |gx[1]#_g84260_|)) (declare (not safe)) - (cons 'id __tmp151344))) - (__tmp151339 - (let ((__tmp151340 - (let ((__tmp151341 |gx[1]#_g151342_|)) + (cons 'id __tmp84259))) + (__tmp84254 + (let ((__tmp84255 + (let ((__tmp84256 |gx[1]#_g84257_|)) (declare (not safe)) - (cons 'table __tmp151341)))) + (cons 'table __tmp84256)))) (declare (not safe)) - (cons __tmp151340 '())))) + (cons __tmp84255 '())))) (declare (not safe)) - (cons __tmp151343 __tmp151339)))) + (cons __tmp84258 __tmp84254)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp151346 - __tmp151338)))) + (cons __tmp84261 + __tmp84253)))) (declare (not safe)) - (cons __tmp151349 __tmp151337)))) + (cons __tmp84264 __tmp84252)))) (declare (not safe)) - (cons __tmp151352 __tmp151336)))) + (cons __tmp84267 __tmp84251)))) (declare (not safe)) - (cons __tmp151355 __tmp151335)))) + (cons __tmp84270 __tmp84250)))) (declare (not safe)) - (cons __tmp151358 __tmp151334)))) + (cons __tmp84273 __tmp84249)))) (declare (not safe)) - (cons __tmp151361 __tmp151333)))) + (cons __tmp84276 __tmp84248)))) (declare (not safe)) (##unchecked-structure-set! - __obj150774 - __tmp151332 + __obj83689 + __tmp84247 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151364 - (let ((__tmp151393 - (let ((__tmp151394 |gx[1]#_g151395_|)) + (let ((__tmp84279 + (let ((__tmp84308 + (let ((__tmp84309 |gx[1]#_g84310_|)) (declare (not safe)) - (cons 'path __tmp151394))) - (__tmp151365 - (let ((__tmp151390 - (let ((__tmp151391 |gx[1]#_g151392_|)) + (cons 'path __tmp84309))) + (__tmp84280 + (let ((__tmp84305 + (let ((__tmp84306 |gx[1]#_g84307_|)) (declare (not safe)) - (cons 'import __tmp151391))) - (__tmp151366 - (let ((__tmp151387 - (let ((__tmp151388 |gx[1]#_g151389_|)) + (cons 'import __tmp84306))) + (__tmp84281 + (let ((__tmp84302 + (let ((__tmp84303 |gx[1]#_g84304_|)) (declare (not safe)) - (cons 'e __tmp151388))) - (__tmp151367 - (let ((__tmp151384 - (let ((__tmp151385 - |gx[1]#_g151386_|)) + (cons 'e __tmp84303))) + (__tmp84282 + (let ((__tmp84299 + (let ((__tmp84300 |gx[1]#_g84301_|)) (declare (not safe)) - (cons 'super __tmp151385))) - (__tmp151368 - (let ((__tmp151381 - (let ((__tmp151382 - |gx[1]#_g151383_|)) + (cons 'super __tmp84300))) + (__tmp84283 + (let ((__tmp84296 + (let ((__tmp84297 + |gx[1]#_g84298_|)) (declare (not safe)) - (cons 'up __tmp151382))) - (__tmp151369 - (let ((__tmp151378 - (let ((__tmp151379 - |gx[1]#_g151380_|)) + (cons 'up __tmp84297))) + (__tmp84284 + (let ((__tmp84293 + (let ((__tmp84294 + |gx[1]#_g84295_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp151379))) - (__tmp151370 - (let ((__tmp151375 - (let ((__tmp151376 |gx[1]#_g151377_|)) + __tmp84294))) + (__tmp84285 + (let ((__tmp84290 + (let ((__tmp84291 |gx[1]#_g84292_|)) (declare (not safe)) - (cons 'id __tmp151376))) - (__tmp151371 - (let ((__tmp151372 - (let ((__tmp151373 |gx[1]#_g151374_|)) + (cons 'id __tmp84291))) + (__tmp84286 + (let ((__tmp84287 + (let ((__tmp84288 |gx[1]#_g84289_|)) (declare (not safe)) - (cons 'table __tmp151373)))) + (cons 'table __tmp84288)))) (declare (not safe)) - (cons __tmp151372 '())))) + (cons __tmp84287 '())))) (declare (not safe)) - (cons __tmp151375 __tmp151371)))) + (cons __tmp84290 __tmp84286)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp151378 - __tmp151370)))) + (cons __tmp84293 + __tmp84285)))) (declare (not safe)) - (cons __tmp151381 __tmp151369)))) + (cons __tmp84296 __tmp84284)))) (declare (not safe)) - (cons __tmp151384 __tmp151368)))) + (cons __tmp84299 __tmp84283)))) (declare (not safe)) - (cons __tmp151387 __tmp151367)))) + (cons __tmp84302 __tmp84282)))) (declare (not safe)) - (cons __tmp151390 __tmp151366)))) + (cons __tmp84305 __tmp84281)))) (declare (not safe)) - (cons __tmp151393 __tmp151365)))) + (cons __tmp84308 __tmp84280)))) (declare (not safe)) (##unchecked-structure-set! - __obj150774 - __tmp151364 + __obj83689 + __tmp84279 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151396 - (let ((__tmp151425 - (let ((__tmp151426 |gx[1]#_g151427_|)) + (let ((__tmp84311 + (let ((__tmp84340 + (let ((__tmp84341 |gx[1]#_g84342_|)) (declare (not safe)) - (cons 'path __tmp151426))) - (__tmp151397 - (let ((__tmp151422 - (let ((__tmp151423 |gx[1]#_g151424_|)) + (cons 'path __tmp84341))) + (__tmp84312 + (let ((__tmp84337 + (let ((__tmp84338 |gx[1]#_g84339_|)) (declare (not safe)) - (cons 'import __tmp151423))) - (__tmp151398 - (let ((__tmp151419 - (let ((__tmp151420 |gx[1]#_g151421_|)) + (cons 'import __tmp84338))) + (__tmp84313 + (let ((__tmp84334 + (let ((__tmp84335 |gx[1]#_g84336_|)) (declare (not safe)) - (cons 'e __tmp151420))) - (__tmp151399 - (let ((__tmp151416 - (let ((__tmp151417 - |gx[1]#_g151418_|)) + (cons 'e __tmp84335))) + (__tmp84314 + (let ((__tmp84331 + (let ((__tmp84332 |gx[1]#_g84333_|)) (declare (not safe)) - (cons 'super __tmp151417))) - (__tmp151400 - (let ((__tmp151413 - (let ((__tmp151414 - |gx[1]#_g151415_|)) + (cons 'super __tmp84332))) + (__tmp84315 + (let ((__tmp84328 + (let ((__tmp84329 + |gx[1]#_g84330_|)) (declare (not safe)) - (cons 'up __tmp151414))) - (__tmp151401 - (let ((__tmp151410 - (let ((__tmp151411 - |gx[1]#_g151412_|)) + (cons 'up __tmp84329))) + (__tmp84316 + (let ((__tmp84325 + (let ((__tmp84326 + |gx[1]#_g84327_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp151411))) - (__tmp151402 - (let ((__tmp151407 - (let ((__tmp151408 |gx[1]#_g151409_|)) + __tmp84326))) + (__tmp84317 + (let ((__tmp84322 + (let ((__tmp84323 |gx[1]#_g84324_|)) (declare (not safe)) - (cons 'id __tmp151408))) - (__tmp151403 - (let ((__tmp151404 - (let ((__tmp151405 |gx[1]#_g151406_|)) + (cons 'id __tmp84323))) + (__tmp84318 + (let ((__tmp84319 + (let ((__tmp84320 |gx[1]#_g84321_|)) (declare (not safe)) - (cons 'table __tmp151405)))) + (cons 'table __tmp84320)))) (declare (not safe)) - (cons __tmp151404 '())))) + (cons __tmp84319 '())))) (declare (not safe)) - (cons __tmp151407 __tmp151403)))) + (cons __tmp84322 __tmp84318)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp151410 - __tmp151402)))) + (cons __tmp84325 + __tmp84317)))) (declare (not safe)) - (cons __tmp151413 __tmp151401)))) + (cons __tmp84328 __tmp84316)))) (declare (not safe)) - (cons __tmp151416 __tmp151400)))) + (cons __tmp84331 __tmp84315)))) (declare (not safe)) - (cons __tmp151419 __tmp151399)))) + (cons __tmp84334 __tmp84314)))) (declare (not safe)) - (cons __tmp151422 __tmp151398)))) + (cons __tmp84337 __tmp84313)))) (declare (not safe)) - (cons __tmp151425 __tmp151397)))) + (cons __tmp84340 __tmp84312)))) (declare (not safe)) (##unchecked-structure-set! - __obj150774 - __tmp151396 + __obj83689 + __tmp84311 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150774)) + __obj83689)) (define |gx[:0:]#local-context| - (let ((__obj150775 + (let ((__obj83690 (let () (declare (not safe)) (##structure @@ -5454,7 +5430,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150775 + __obj83690 'gx#local-context::t '1 gerbil/core$$#class-type-info::t @@ -5462,7 +5438,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150775 + __obj83690 'local-context '2 gerbil/core$$#class-type-info::t @@ -5470,26 +5446,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150775 + __obj83690 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151428 - (let ((__tmp151429 |gx[1]#_g151020_|)) + (let ((__tmp84343 + (let ((__tmp84344 |gx[1]#_g83935_|)) (declare (not safe)) - (cons __tmp151429 '())))) + (cons __tmp84344 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150775 - __tmp151428 + __obj83690 + __tmp84343 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150775 + __obj83690 '#t '5 gerbil/core$$#class-type-info::t @@ -5497,7 +5473,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150775 + __obj83690 '#f '6 gerbil/core$$#class-type-info::t @@ -5505,7 +5481,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150775 + __obj83690 '#f '7 gerbil/core$$#class-type-info::t @@ -5513,218 +5489,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150775 + __obj83690 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151430 |gx[1]#_g151431_|)) + (let ((__tmp84345 |gx[1]#_g84346_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150775 - __tmp151430 + __obj83690 + __tmp84345 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151432 |gx[1]#_g151433_|)) + (let ((__tmp84347 |gx[1]#_g84348_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150775 - __tmp151432 + __obj83690 + __tmp84347 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151434 |gx[1]#_g151435_|)) + (let ((__tmp84349 |gx[1]#_g84350_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150775 - __tmp151434 + __obj83690 + __tmp84349 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151436 - (let ((__tmp151453 - (let ((__tmp151454 |gx[1]#_g151455_|)) + (let ((__tmp84351 + (let ((__tmp84368 + (let ((__tmp84369 |gx[1]#_g84370_|)) (declare (not safe)) - (cons 'super __tmp151454))) - (__tmp151437 - (let ((__tmp151450 - (let ((__tmp151451 |gx[1]#_g151452_|)) + (cons 'super __tmp84369))) + (__tmp84352 + (let ((__tmp84365 + (let ((__tmp84366 |gx[1]#_g84367_|)) (declare (not safe)) - (cons 'up __tmp151451))) - (__tmp151438 - (let ((__tmp151447 - (let ((__tmp151448 |gx[1]#_g151449_|)) + (cons 'up __tmp84366))) + (__tmp84353 + (let ((__tmp84362 + (let ((__tmp84363 |gx[1]#_g84364_|)) (declare (not safe)) - (cons 'down __tmp151448))) - (__tmp151439 - (let ((__tmp151444 - (let ((__tmp151445 - |gx[1]#_g151446_|)) + (cons 'down __tmp84363))) + (__tmp84354 + (let ((__tmp84359 + (let ((__tmp84360 |gx[1]#_g84361_|)) (declare (not safe)) - (cons 'id __tmp151445))) - (__tmp151440 - (let ((__tmp151441 - (let ((__tmp151442 - |gx[1]#_g151443_|)) + (cons 'id __tmp84360))) + (__tmp84355 + (let ((__tmp84356 + (let ((__tmp84357 + |gx[1]#_g84358_|)) (declare (not safe)) - (cons 'table - __tmp151442)))) + (cons 'table __tmp84357)))) (declare (not safe)) - (cons __tmp151441 '())))) + (cons __tmp84356 '())))) (declare (not safe)) - (cons __tmp151444 __tmp151440)))) + (cons __tmp84359 __tmp84355)))) (declare (not safe)) - (cons __tmp151447 __tmp151439)))) + (cons __tmp84362 __tmp84354)))) (declare (not safe)) - (cons __tmp151450 __tmp151438)))) + (cons __tmp84365 __tmp84353)))) (declare (not safe)) - (cons __tmp151453 __tmp151437)))) + (cons __tmp84368 __tmp84352)))) (declare (not safe)) (##unchecked-structure-set! - __obj150775 - __tmp151436 + __obj83690 + __tmp84351 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151456 - (let ((__tmp151473 - (let ((__tmp151474 |gx[1]#_g151475_|)) + (let ((__tmp84371 + (let ((__tmp84388 + (let ((__tmp84389 |gx[1]#_g84390_|)) (declare (not safe)) - (cons 'super __tmp151474))) - (__tmp151457 - (let ((__tmp151470 - (let ((__tmp151471 |gx[1]#_g151472_|)) + (cons 'super __tmp84389))) + (__tmp84372 + (let ((__tmp84385 + (let ((__tmp84386 |gx[1]#_g84387_|)) (declare (not safe)) - (cons 'up __tmp151471))) - (__tmp151458 - (let ((__tmp151467 - (let ((__tmp151468 |gx[1]#_g151469_|)) + (cons 'up __tmp84386))) + (__tmp84373 + (let ((__tmp84382 + (let ((__tmp84383 |gx[1]#_g84384_|)) (declare (not safe)) - (cons 'down __tmp151468))) - (__tmp151459 - (let ((__tmp151464 - (let ((__tmp151465 - |gx[1]#_g151466_|)) + (cons 'down __tmp84383))) + (__tmp84374 + (let ((__tmp84379 + (let ((__tmp84380 |gx[1]#_g84381_|)) (declare (not safe)) - (cons 'id __tmp151465))) - (__tmp151460 - (let ((__tmp151461 - (let ((__tmp151462 - |gx[1]#_g151463_|)) + (cons 'id __tmp84380))) + (__tmp84375 + (let ((__tmp84376 + (let ((__tmp84377 + |gx[1]#_g84378_|)) (declare (not safe)) - (cons 'table - __tmp151462)))) + (cons 'table __tmp84377)))) (declare (not safe)) - (cons __tmp151461 '())))) + (cons __tmp84376 '())))) (declare (not safe)) - (cons __tmp151464 __tmp151460)))) + (cons __tmp84379 __tmp84375)))) (declare (not safe)) - (cons __tmp151467 __tmp151459)))) + (cons __tmp84382 __tmp84374)))) (declare (not safe)) - (cons __tmp151470 __tmp151458)))) + (cons __tmp84385 __tmp84373)))) (declare (not safe)) - (cons __tmp151473 __tmp151457)))) + (cons __tmp84388 __tmp84372)))) (declare (not safe)) (##unchecked-structure-set! - __obj150775 - __tmp151456 + __obj83690 + __tmp84371 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151476 - (let ((__tmp151493 - (let ((__tmp151494 |gx[1]#_g151495_|)) + (let ((__tmp84391 + (let ((__tmp84408 + (let ((__tmp84409 |gx[1]#_g84410_|)) (declare (not safe)) - (cons 'super __tmp151494))) - (__tmp151477 - (let ((__tmp151490 - (let ((__tmp151491 |gx[1]#_g151492_|)) + (cons 'super __tmp84409))) + (__tmp84392 + (let ((__tmp84405 + (let ((__tmp84406 |gx[1]#_g84407_|)) (declare (not safe)) - (cons 'up __tmp151491))) - (__tmp151478 - (let ((__tmp151487 - (let ((__tmp151488 |gx[1]#_g151489_|)) + (cons 'up __tmp84406))) + (__tmp84393 + (let ((__tmp84402 + (let ((__tmp84403 |gx[1]#_g84404_|)) (declare (not safe)) - (cons 'down __tmp151488))) - (__tmp151479 - (let ((__tmp151484 - (let ((__tmp151485 - |gx[1]#_g151486_|)) + (cons 'down __tmp84403))) + (__tmp84394 + (let ((__tmp84399 + (let ((__tmp84400 |gx[1]#_g84401_|)) (declare (not safe)) - (cons 'id __tmp151485))) - (__tmp151480 - (let ((__tmp151481 - (let ((__tmp151482 - |gx[1]#_g151483_|)) + (cons 'id __tmp84400))) + (__tmp84395 + (let ((__tmp84396 + (let ((__tmp84397 + |gx[1]#_g84398_|)) (declare (not safe)) - (cons 'table - __tmp151482)))) + (cons 'table __tmp84397)))) (declare (not safe)) - (cons __tmp151481 '())))) + (cons __tmp84396 '())))) (declare (not safe)) - (cons __tmp151484 __tmp151480)))) + (cons __tmp84399 __tmp84395)))) (declare (not safe)) - (cons __tmp151487 __tmp151479)))) + (cons __tmp84402 __tmp84394)))) (declare (not safe)) - (cons __tmp151490 __tmp151478)))) + (cons __tmp84405 __tmp84393)))) (declare (not safe)) - (cons __tmp151493 __tmp151477)))) + (cons __tmp84408 __tmp84392)))) (declare (not safe)) (##unchecked-structure-set! - __obj150775 - __tmp151476 + __obj83690 + __tmp84391 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151496 - (let ((__tmp151513 - (let ((__tmp151514 |gx[1]#_g151515_|)) + (let ((__tmp84411 + (let ((__tmp84428 + (let ((__tmp84429 |gx[1]#_g84430_|)) (declare (not safe)) - (cons 'super __tmp151514))) - (__tmp151497 - (let ((__tmp151510 - (let ((__tmp151511 |gx[1]#_g151512_|)) + (cons 'super __tmp84429))) + (__tmp84412 + (let ((__tmp84425 + (let ((__tmp84426 |gx[1]#_g84427_|)) (declare (not safe)) - (cons 'up __tmp151511))) - (__tmp151498 - (let ((__tmp151507 - (let ((__tmp151508 |gx[1]#_g151509_|)) + (cons 'up __tmp84426))) + (__tmp84413 + (let ((__tmp84422 + (let ((__tmp84423 |gx[1]#_g84424_|)) (declare (not safe)) - (cons 'down __tmp151508))) - (__tmp151499 - (let ((__tmp151504 - (let ((__tmp151505 - |gx[1]#_g151506_|)) + (cons 'down __tmp84423))) + (__tmp84414 + (let ((__tmp84419 + (let ((__tmp84420 |gx[1]#_g84421_|)) (declare (not safe)) - (cons 'id __tmp151505))) - (__tmp151500 - (let ((__tmp151501 - (let ((__tmp151502 - |gx[1]#_g151503_|)) + (cons 'id __tmp84420))) + (__tmp84415 + (let ((__tmp84416 + (let ((__tmp84417 + |gx[1]#_g84418_|)) (declare (not safe)) - (cons 'table - __tmp151502)))) + (cons 'table __tmp84417)))) (declare (not safe)) - (cons __tmp151501 '())))) + (cons __tmp84416 '())))) (declare (not safe)) - (cons __tmp151504 __tmp151500)))) + (cons __tmp84419 __tmp84415)))) (declare (not safe)) - (cons __tmp151507 __tmp151499)))) + (cons __tmp84422 __tmp84414)))) (declare (not safe)) - (cons __tmp151510 __tmp151498)))) + (cons __tmp84425 __tmp84413)))) (declare (not safe)) - (cons __tmp151513 __tmp151497)))) + (cons __tmp84428 __tmp84412)))) (declare (not safe)) (##unchecked-structure-set! - __obj150775 - __tmp151496 + __obj83690 + __tmp84411 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150775)) + __obj83690)) (define |gx[:0:]#binding| - (let ((__obj150776 + (let ((__obj83691 (let () (declare (not safe)) (##structure @@ -5747,7 +5715,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150776 + __obj83691 'gx#binding::t '1 gerbil/core$$#class-type-info::t @@ -5755,7 +5723,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150776 + __obj83691 'binding '2 gerbil/core$$#class-type-info::t @@ -5763,7 +5731,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150776 + __obj83691 '(id key phi) '4 gerbil/core$$#class-type-info::t @@ -5771,7 +5739,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150776 + __obj83691 '() '3 gerbil/core$$#class-type-info::t @@ -5779,7 +5747,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150776 + __obj83691 '#t '5 gerbil/core$$#class-type-info::t @@ -5787,7 +5755,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150776 + __obj83691 '#f '6 gerbil/core$$#class-type-info::t @@ -5795,7 +5763,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150776 + __obj83691 '#f '7 gerbil/core$$#class-type-info::t @@ -5803,150 +5771,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150776 + __obj83691 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151516 |gx[1]#_g151517_|)) + (let ((__tmp84431 |gx[1]#_g84432_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150776 - __tmp151516 + __obj83691 + __tmp84431 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151518 |gx[1]#_g151519_|)) + (let ((__tmp84433 |gx[1]#_g84434_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150776 - __tmp151518 + __obj83691 + __tmp84433 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151520 |gx[1]#_g151521_|)) + (let ((__tmp84435 |gx[1]#_g84436_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150776 - __tmp151520 + __obj83691 + __tmp84435 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151522 - (let ((__tmp151531 - (let ((__tmp151532 |gx[1]#_g151533_|)) + (let ((__tmp84437 + (let ((__tmp84446 + (let ((__tmp84447 |gx[1]#_g84448_|)) (declare (not safe)) - (cons 'id __tmp151532))) - (__tmp151523 - (let ((__tmp151528 - (let ((__tmp151529 |gx[1]#_g151530_|)) + (cons 'id __tmp84447))) + (__tmp84438 + (let ((__tmp84443 + (let ((__tmp84444 |gx[1]#_g84445_|)) (declare (not safe)) - (cons 'key __tmp151529))) - (__tmp151524 - (let ((__tmp151525 - (let ((__tmp151526 |gx[1]#_g151527_|)) + (cons 'key __tmp84444))) + (__tmp84439 + (let ((__tmp84440 + (let ((__tmp84441 |gx[1]#_g84442_|)) (declare (not safe)) - (cons 'phi __tmp151526)))) + (cons 'phi __tmp84441)))) (declare (not safe)) - (cons __tmp151525 '())))) + (cons __tmp84440 '())))) (declare (not safe)) - (cons __tmp151528 __tmp151524)))) + (cons __tmp84443 __tmp84439)))) (declare (not safe)) - (cons __tmp151531 __tmp151523)))) + (cons __tmp84446 __tmp84438)))) (declare (not safe)) (##unchecked-structure-set! - __obj150776 - __tmp151522 + __obj83691 + __tmp84437 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151534 - (let ((__tmp151543 - (let ((__tmp151544 |gx[1]#_g151545_|)) + (let ((__tmp84449 + (let ((__tmp84458 + (let ((__tmp84459 |gx[1]#_g84460_|)) (declare (not safe)) - (cons 'id __tmp151544))) - (__tmp151535 - (let ((__tmp151540 - (let ((__tmp151541 |gx[1]#_g151542_|)) + (cons 'id __tmp84459))) + (__tmp84450 + (let ((__tmp84455 + (let ((__tmp84456 |gx[1]#_g84457_|)) (declare (not safe)) - (cons 'key __tmp151541))) - (__tmp151536 - (let ((__tmp151537 - (let ((__tmp151538 |gx[1]#_g151539_|)) + (cons 'key __tmp84456))) + (__tmp84451 + (let ((__tmp84452 + (let ((__tmp84453 |gx[1]#_g84454_|)) (declare (not safe)) - (cons 'phi __tmp151538)))) + (cons 'phi __tmp84453)))) (declare (not safe)) - (cons __tmp151537 '())))) + (cons __tmp84452 '())))) (declare (not safe)) - (cons __tmp151540 __tmp151536)))) + (cons __tmp84455 __tmp84451)))) (declare (not safe)) - (cons __tmp151543 __tmp151535)))) + (cons __tmp84458 __tmp84450)))) (declare (not safe)) (##unchecked-structure-set! - __obj150776 - __tmp151534 + __obj83691 + __tmp84449 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151546 - (let ((__tmp151555 - (let ((__tmp151556 |gx[1]#_g151557_|)) + (let ((__tmp84461 + (let ((__tmp84470 + (let ((__tmp84471 |gx[1]#_g84472_|)) (declare (not safe)) - (cons 'id __tmp151556))) - (__tmp151547 - (let ((__tmp151552 - (let ((__tmp151553 |gx[1]#_g151554_|)) + (cons 'id __tmp84471))) + (__tmp84462 + (let ((__tmp84467 + (let ((__tmp84468 |gx[1]#_g84469_|)) (declare (not safe)) - (cons 'key __tmp151553))) - (__tmp151548 - (let ((__tmp151549 - (let ((__tmp151550 |gx[1]#_g151551_|)) + (cons 'key __tmp84468))) + (__tmp84463 + (let ((__tmp84464 + (let ((__tmp84465 |gx[1]#_g84466_|)) (declare (not safe)) - (cons 'phi __tmp151550)))) + (cons 'phi __tmp84465)))) (declare (not safe)) - (cons __tmp151549 '())))) + (cons __tmp84464 '())))) (declare (not safe)) - (cons __tmp151552 __tmp151548)))) + (cons __tmp84467 __tmp84463)))) (declare (not safe)) - (cons __tmp151555 __tmp151547)))) + (cons __tmp84470 __tmp84462)))) (declare (not safe)) (##unchecked-structure-set! - __obj150776 - __tmp151546 + __obj83691 + __tmp84461 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151558 - (let ((__tmp151567 - (let ((__tmp151568 |gx[1]#_g151569_|)) + (let ((__tmp84473 + (let ((__tmp84482 + (let ((__tmp84483 |gx[1]#_g84484_|)) (declare (not safe)) - (cons 'id __tmp151568))) - (__tmp151559 - (let ((__tmp151564 - (let ((__tmp151565 |gx[1]#_g151566_|)) + (cons 'id __tmp84483))) + (__tmp84474 + (let ((__tmp84479 + (let ((__tmp84480 |gx[1]#_g84481_|)) (declare (not safe)) - (cons 'key __tmp151565))) - (__tmp151560 - (let ((__tmp151561 - (let ((__tmp151562 |gx[1]#_g151563_|)) + (cons 'key __tmp84480))) + (__tmp84475 + (let ((__tmp84476 + (let ((__tmp84477 |gx[1]#_g84478_|)) (declare (not safe)) - (cons 'phi __tmp151562)))) + (cons 'phi __tmp84477)))) (declare (not safe)) - (cons __tmp151561 '())))) + (cons __tmp84476 '())))) (declare (not safe)) - (cons __tmp151564 __tmp151560)))) + (cons __tmp84479 __tmp84475)))) (declare (not safe)) - (cons __tmp151567 __tmp151559)))) + (cons __tmp84482 __tmp84474)))) (declare (not safe)) (##unchecked-structure-set! - __obj150776 - __tmp151558 + __obj83691 + __tmp84473 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150776)) + __obj83691)) (define |gx[:0:]#runtime-binding| - (let ((__obj150777 + (let ((__obj83692 (let () (declare (not safe)) (##structure @@ -5969,7 +5937,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150777 + __obj83692 'gx#runtime-binding::t '1 gerbil/core$$#class-type-info::t @@ -5977,7 +5945,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150777 + __obj83692 'runtime-binding '2 gerbil/core$$#class-type-info::t @@ -5985,26 +5953,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150777 + __obj83692 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151570 - (let ((__tmp151571 |gx[1]#_g151572_|)) + (let ((__tmp84485 + (let ((__tmp84486 |gx[1]#_g84487_|)) (declare (not safe)) - (cons __tmp151571 '())))) + (cons __tmp84486 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150777 - __tmp151570 + __obj83692 + __tmp84485 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150777 + __obj83692 '#t '5 gerbil/core$$#class-type-info::t @@ -6012,7 +5980,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150777 + __obj83692 '#f '6 gerbil/core$$#class-type-info::t @@ -6020,7 +5988,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150777 + __obj83692 '#f '7 gerbil/core$$#class-type-info::t @@ -6028,150 +5996,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150777 + __obj83692 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151573 |gx[1]#_g151574_|)) + (let ((__tmp84488 |gx[1]#_g84489_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150777 - __tmp151573 + __obj83692 + __tmp84488 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151575 |gx[1]#_g151576_|)) + (let ((__tmp84490 |gx[1]#_g84491_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150777 - __tmp151575 + __obj83692 + __tmp84490 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151577 |gx[1]#_g151578_|)) + (let ((__tmp84492 |gx[1]#_g84493_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150777 - __tmp151577 + __obj83692 + __tmp84492 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151579 - (let ((__tmp151588 - (let ((__tmp151589 |gx[1]#_g151590_|)) + (let ((__tmp84494 + (let ((__tmp84503 + (let ((__tmp84504 |gx[1]#_g84505_|)) (declare (not safe)) - (cons 'id __tmp151589))) - (__tmp151580 - (let ((__tmp151585 - (let ((__tmp151586 |gx[1]#_g151587_|)) + (cons 'id __tmp84504))) + (__tmp84495 + (let ((__tmp84500 + (let ((__tmp84501 |gx[1]#_g84502_|)) (declare (not safe)) - (cons 'key __tmp151586))) - (__tmp151581 - (let ((__tmp151582 - (let ((__tmp151583 |gx[1]#_g151584_|)) + (cons 'key __tmp84501))) + (__tmp84496 + (let ((__tmp84497 + (let ((__tmp84498 |gx[1]#_g84499_|)) (declare (not safe)) - (cons 'phi __tmp151583)))) + (cons 'phi __tmp84498)))) (declare (not safe)) - (cons __tmp151582 '())))) + (cons __tmp84497 '())))) (declare (not safe)) - (cons __tmp151585 __tmp151581)))) + (cons __tmp84500 __tmp84496)))) (declare (not safe)) - (cons __tmp151588 __tmp151580)))) + (cons __tmp84503 __tmp84495)))) (declare (not safe)) (##unchecked-structure-set! - __obj150777 - __tmp151579 + __obj83692 + __tmp84494 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151591 - (let ((__tmp151600 - (let ((__tmp151601 |gx[1]#_g151602_|)) + (let ((__tmp84506 + (let ((__tmp84515 + (let ((__tmp84516 |gx[1]#_g84517_|)) (declare (not safe)) - (cons 'id __tmp151601))) - (__tmp151592 - (let ((__tmp151597 - (let ((__tmp151598 |gx[1]#_g151599_|)) + (cons 'id __tmp84516))) + (__tmp84507 + (let ((__tmp84512 + (let ((__tmp84513 |gx[1]#_g84514_|)) (declare (not safe)) - (cons 'key __tmp151598))) - (__tmp151593 - (let ((__tmp151594 - (let ((__tmp151595 |gx[1]#_g151596_|)) + (cons 'key __tmp84513))) + (__tmp84508 + (let ((__tmp84509 + (let ((__tmp84510 |gx[1]#_g84511_|)) (declare (not safe)) - (cons 'phi __tmp151595)))) + (cons 'phi __tmp84510)))) (declare (not safe)) - (cons __tmp151594 '())))) + (cons __tmp84509 '())))) (declare (not safe)) - (cons __tmp151597 __tmp151593)))) + (cons __tmp84512 __tmp84508)))) (declare (not safe)) - (cons __tmp151600 __tmp151592)))) + (cons __tmp84515 __tmp84507)))) (declare (not safe)) (##unchecked-structure-set! - __obj150777 - __tmp151591 + __obj83692 + __tmp84506 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151603 - (let ((__tmp151612 - (let ((__tmp151613 |gx[1]#_g151614_|)) + (let ((__tmp84518 + (let ((__tmp84527 + (let ((__tmp84528 |gx[1]#_g84529_|)) (declare (not safe)) - (cons 'id __tmp151613))) - (__tmp151604 - (let ((__tmp151609 - (let ((__tmp151610 |gx[1]#_g151611_|)) + (cons 'id __tmp84528))) + (__tmp84519 + (let ((__tmp84524 + (let ((__tmp84525 |gx[1]#_g84526_|)) (declare (not safe)) - (cons 'key __tmp151610))) - (__tmp151605 - (let ((__tmp151606 - (let ((__tmp151607 |gx[1]#_g151608_|)) + (cons 'key __tmp84525))) + (__tmp84520 + (let ((__tmp84521 + (let ((__tmp84522 |gx[1]#_g84523_|)) (declare (not safe)) - (cons 'phi __tmp151607)))) + (cons 'phi __tmp84522)))) (declare (not safe)) - (cons __tmp151606 '())))) + (cons __tmp84521 '())))) (declare (not safe)) - (cons __tmp151609 __tmp151605)))) + (cons __tmp84524 __tmp84520)))) (declare (not safe)) - (cons __tmp151612 __tmp151604)))) + (cons __tmp84527 __tmp84519)))) (declare (not safe)) (##unchecked-structure-set! - __obj150777 - __tmp151603 + __obj83692 + __tmp84518 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151615 - (let ((__tmp151624 - (let ((__tmp151625 |gx[1]#_g151626_|)) + (let ((__tmp84530 + (let ((__tmp84539 + (let ((__tmp84540 |gx[1]#_g84541_|)) (declare (not safe)) - (cons 'id __tmp151625))) - (__tmp151616 - (let ((__tmp151621 - (let ((__tmp151622 |gx[1]#_g151623_|)) + (cons 'id __tmp84540))) + (__tmp84531 + (let ((__tmp84536 + (let ((__tmp84537 |gx[1]#_g84538_|)) (declare (not safe)) - (cons 'key __tmp151622))) - (__tmp151617 - (let ((__tmp151618 - (let ((__tmp151619 |gx[1]#_g151620_|)) + (cons 'key __tmp84537))) + (__tmp84532 + (let ((__tmp84533 + (let ((__tmp84534 |gx[1]#_g84535_|)) (declare (not safe)) - (cons 'phi __tmp151619)))) + (cons 'phi __tmp84534)))) (declare (not safe)) - (cons __tmp151618 '())))) + (cons __tmp84533 '())))) (declare (not safe)) - (cons __tmp151621 __tmp151617)))) + (cons __tmp84536 __tmp84532)))) (declare (not safe)) - (cons __tmp151624 __tmp151616)))) + (cons __tmp84539 __tmp84531)))) (declare (not safe)) (##unchecked-structure-set! - __obj150777 - __tmp151615 + __obj83692 + __tmp84530 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150777)) + __obj83692)) (define |gx[:0:]#local-binding| - (let ((__obj150778 + (let ((__obj83693 (let () (declare (not safe)) (##structure @@ -6194,7 +6162,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150778 + __obj83693 'gx#local-binding::t '1 gerbil/core$$#class-type-info::t @@ -6202,7 +6170,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150778 + __obj83693 'local-binding '2 gerbil/core$$#class-type-info::t @@ -6210,26 +6178,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150778 + __obj83693 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151627 - (let ((__tmp151628 |gx[1]#_g151629_|)) + (let ((__tmp84542 + (let ((__tmp84543 |gx[1]#_g84544_|)) (declare (not safe)) - (cons __tmp151628 '())))) + (cons __tmp84543 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150778 - __tmp151627 + __obj83693 + __tmp84542 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150778 + __obj83693 '#t '5 gerbil/core$$#class-type-info::t @@ -6237,7 +6205,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150778 + __obj83693 '#f '6 gerbil/core$$#class-type-info::t @@ -6245,7 +6213,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150778 + __obj83693 '#f '7 gerbil/core$$#class-type-info::t @@ -6253,150 +6221,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150778 + __obj83693 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151630 |gx[1]#_g151631_|)) + (let ((__tmp84545 |gx[1]#_g84546_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150778 - __tmp151630 + __obj83693 + __tmp84545 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151632 |gx[1]#_g151633_|)) + (let ((__tmp84547 |gx[1]#_g84548_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150778 - __tmp151632 + __obj83693 + __tmp84547 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151634 |gx[1]#_g151635_|)) + (let ((__tmp84549 |gx[1]#_g84550_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150778 - __tmp151634 + __obj83693 + __tmp84549 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151636 - (let ((__tmp151645 - (let ((__tmp151646 |gx[1]#_g151647_|)) + (let ((__tmp84551 + (let ((__tmp84560 + (let ((__tmp84561 |gx[1]#_g84562_|)) (declare (not safe)) - (cons 'id __tmp151646))) - (__tmp151637 - (let ((__tmp151642 - (let ((__tmp151643 |gx[1]#_g151644_|)) + (cons 'id __tmp84561))) + (__tmp84552 + (let ((__tmp84557 + (let ((__tmp84558 |gx[1]#_g84559_|)) (declare (not safe)) - (cons 'key __tmp151643))) - (__tmp151638 - (let ((__tmp151639 - (let ((__tmp151640 |gx[1]#_g151641_|)) + (cons 'key __tmp84558))) + (__tmp84553 + (let ((__tmp84554 + (let ((__tmp84555 |gx[1]#_g84556_|)) (declare (not safe)) - (cons 'phi __tmp151640)))) + (cons 'phi __tmp84555)))) (declare (not safe)) - (cons __tmp151639 '())))) + (cons __tmp84554 '())))) (declare (not safe)) - (cons __tmp151642 __tmp151638)))) + (cons __tmp84557 __tmp84553)))) (declare (not safe)) - (cons __tmp151645 __tmp151637)))) + (cons __tmp84560 __tmp84552)))) (declare (not safe)) (##unchecked-structure-set! - __obj150778 - __tmp151636 + __obj83693 + __tmp84551 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151648 - (let ((__tmp151657 - (let ((__tmp151658 |gx[1]#_g151659_|)) + (let ((__tmp84563 + (let ((__tmp84572 + (let ((__tmp84573 |gx[1]#_g84574_|)) (declare (not safe)) - (cons 'id __tmp151658))) - (__tmp151649 - (let ((__tmp151654 - (let ((__tmp151655 |gx[1]#_g151656_|)) + (cons 'id __tmp84573))) + (__tmp84564 + (let ((__tmp84569 + (let ((__tmp84570 |gx[1]#_g84571_|)) (declare (not safe)) - (cons 'key __tmp151655))) - (__tmp151650 - (let ((__tmp151651 - (let ((__tmp151652 |gx[1]#_g151653_|)) + (cons 'key __tmp84570))) + (__tmp84565 + (let ((__tmp84566 + (let ((__tmp84567 |gx[1]#_g84568_|)) (declare (not safe)) - (cons 'phi __tmp151652)))) + (cons 'phi __tmp84567)))) (declare (not safe)) - (cons __tmp151651 '())))) + (cons __tmp84566 '())))) (declare (not safe)) - (cons __tmp151654 __tmp151650)))) + (cons __tmp84569 __tmp84565)))) (declare (not safe)) - (cons __tmp151657 __tmp151649)))) + (cons __tmp84572 __tmp84564)))) (declare (not safe)) (##unchecked-structure-set! - __obj150778 - __tmp151648 + __obj83693 + __tmp84563 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151660 - (let ((__tmp151669 - (let ((__tmp151670 |gx[1]#_g151671_|)) + (let ((__tmp84575 + (let ((__tmp84584 + (let ((__tmp84585 |gx[1]#_g84586_|)) (declare (not safe)) - (cons 'id __tmp151670))) - (__tmp151661 - (let ((__tmp151666 - (let ((__tmp151667 |gx[1]#_g151668_|)) + (cons 'id __tmp84585))) + (__tmp84576 + (let ((__tmp84581 + (let ((__tmp84582 |gx[1]#_g84583_|)) (declare (not safe)) - (cons 'key __tmp151667))) - (__tmp151662 - (let ((__tmp151663 - (let ((__tmp151664 |gx[1]#_g151665_|)) + (cons 'key __tmp84582))) + (__tmp84577 + (let ((__tmp84578 + (let ((__tmp84579 |gx[1]#_g84580_|)) (declare (not safe)) - (cons 'phi __tmp151664)))) + (cons 'phi __tmp84579)))) (declare (not safe)) - (cons __tmp151663 '())))) + (cons __tmp84578 '())))) (declare (not safe)) - (cons __tmp151666 __tmp151662)))) + (cons __tmp84581 __tmp84577)))) (declare (not safe)) - (cons __tmp151669 __tmp151661)))) + (cons __tmp84584 __tmp84576)))) (declare (not safe)) (##unchecked-structure-set! - __obj150778 - __tmp151660 + __obj83693 + __tmp84575 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151672 - (let ((__tmp151681 - (let ((__tmp151682 |gx[1]#_g151683_|)) + (let ((__tmp84587 + (let ((__tmp84596 + (let ((__tmp84597 |gx[1]#_g84598_|)) (declare (not safe)) - (cons 'id __tmp151682))) - (__tmp151673 - (let ((__tmp151678 - (let ((__tmp151679 |gx[1]#_g151680_|)) + (cons 'id __tmp84597))) + (__tmp84588 + (let ((__tmp84593 + (let ((__tmp84594 |gx[1]#_g84595_|)) (declare (not safe)) - (cons 'key __tmp151679))) - (__tmp151674 - (let ((__tmp151675 - (let ((__tmp151676 |gx[1]#_g151677_|)) + (cons 'key __tmp84594))) + (__tmp84589 + (let ((__tmp84590 + (let ((__tmp84591 |gx[1]#_g84592_|)) (declare (not safe)) - (cons 'phi __tmp151676)))) + (cons 'phi __tmp84591)))) (declare (not safe)) - (cons __tmp151675 '())))) + (cons __tmp84590 '())))) (declare (not safe)) - (cons __tmp151678 __tmp151674)))) + (cons __tmp84593 __tmp84589)))) (declare (not safe)) - (cons __tmp151681 __tmp151673)))) + (cons __tmp84596 __tmp84588)))) (declare (not safe)) (##unchecked-structure-set! - __obj150778 - __tmp151672 + __obj83693 + __tmp84587 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150778)) + __obj83693)) (define |gx[:0:]#top-binding| - (let ((__obj150779 + (let ((__obj83694 (let () (declare (not safe)) (##structure @@ -6419,7 +6387,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150779 + __obj83694 'gx#top-binding::t '1 gerbil/core$$#class-type-info::t @@ -6427,7 +6395,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150779 + __obj83694 'top-binding '2 gerbil/core$$#class-type-info::t @@ -6435,26 +6403,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150779 + __obj83694 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151684 - (let ((__tmp151685 |gx[1]#_g151629_|)) + (let ((__tmp84599 + (let ((__tmp84600 |gx[1]#_g84544_|)) (declare (not safe)) - (cons __tmp151685 '())))) + (cons __tmp84600 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150779 - __tmp151684 + __obj83694 + __tmp84599 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150779 + __obj83694 '#t '5 gerbil/core$$#class-type-info::t @@ -6462,7 +6430,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150779 + __obj83694 '#f '6 gerbil/core$$#class-type-info::t @@ -6470,7 +6438,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150779 + __obj83694 '#f '7 gerbil/core$$#class-type-info::t @@ -6478,150 +6446,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150779 + __obj83694 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151686 |gx[1]#_g151687_|)) + (let ((__tmp84601 |gx[1]#_g84602_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150779 - __tmp151686 + __obj83694 + __tmp84601 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151688 |gx[1]#_g151689_|)) + (let ((__tmp84603 |gx[1]#_g84604_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150779 - __tmp151688 + __obj83694 + __tmp84603 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151690 |gx[1]#_g151691_|)) + (let ((__tmp84605 |gx[1]#_g84606_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150779 - __tmp151690 + __obj83694 + __tmp84605 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151692 - (let ((__tmp151701 - (let ((__tmp151702 |gx[1]#_g151703_|)) + (let ((__tmp84607 + (let ((__tmp84616 + (let ((__tmp84617 |gx[1]#_g84618_|)) (declare (not safe)) - (cons 'id __tmp151702))) - (__tmp151693 - (let ((__tmp151698 - (let ((__tmp151699 |gx[1]#_g151700_|)) + (cons 'id __tmp84617))) + (__tmp84608 + (let ((__tmp84613 + (let ((__tmp84614 |gx[1]#_g84615_|)) (declare (not safe)) - (cons 'key __tmp151699))) - (__tmp151694 - (let ((__tmp151695 - (let ((__tmp151696 |gx[1]#_g151697_|)) + (cons 'key __tmp84614))) + (__tmp84609 + (let ((__tmp84610 + (let ((__tmp84611 |gx[1]#_g84612_|)) (declare (not safe)) - (cons 'phi __tmp151696)))) + (cons 'phi __tmp84611)))) (declare (not safe)) - (cons __tmp151695 '())))) + (cons __tmp84610 '())))) (declare (not safe)) - (cons __tmp151698 __tmp151694)))) + (cons __tmp84613 __tmp84609)))) (declare (not safe)) - (cons __tmp151701 __tmp151693)))) + (cons __tmp84616 __tmp84608)))) (declare (not safe)) (##unchecked-structure-set! - __obj150779 - __tmp151692 + __obj83694 + __tmp84607 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151704 - (let ((__tmp151713 - (let ((__tmp151714 |gx[1]#_g151715_|)) + (let ((__tmp84619 + (let ((__tmp84628 + (let ((__tmp84629 |gx[1]#_g84630_|)) (declare (not safe)) - (cons 'id __tmp151714))) - (__tmp151705 - (let ((__tmp151710 - (let ((__tmp151711 |gx[1]#_g151712_|)) + (cons 'id __tmp84629))) + (__tmp84620 + (let ((__tmp84625 + (let ((__tmp84626 |gx[1]#_g84627_|)) (declare (not safe)) - (cons 'key __tmp151711))) - (__tmp151706 - (let ((__tmp151707 - (let ((__tmp151708 |gx[1]#_g151709_|)) + (cons 'key __tmp84626))) + (__tmp84621 + (let ((__tmp84622 + (let ((__tmp84623 |gx[1]#_g84624_|)) (declare (not safe)) - (cons 'phi __tmp151708)))) + (cons 'phi __tmp84623)))) (declare (not safe)) - (cons __tmp151707 '())))) + (cons __tmp84622 '())))) (declare (not safe)) - (cons __tmp151710 __tmp151706)))) + (cons __tmp84625 __tmp84621)))) (declare (not safe)) - (cons __tmp151713 __tmp151705)))) + (cons __tmp84628 __tmp84620)))) (declare (not safe)) (##unchecked-structure-set! - __obj150779 - __tmp151704 + __obj83694 + __tmp84619 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151716 - (let ((__tmp151725 - (let ((__tmp151726 |gx[1]#_g151727_|)) + (let ((__tmp84631 + (let ((__tmp84640 + (let ((__tmp84641 |gx[1]#_g84642_|)) (declare (not safe)) - (cons 'id __tmp151726))) - (__tmp151717 - (let ((__tmp151722 - (let ((__tmp151723 |gx[1]#_g151724_|)) + (cons 'id __tmp84641))) + (__tmp84632 + (let ((__tmp84637 + (let ((__tmp84638 |gx[1]#_g84639_|)) (declare (not safe)) - (cons 'key __tmp151723))) - (__tmp151718 - (let ((__tmp151719 - (let ((__tmp151720 |gx[1]#_g151721_|)) + (cons 'key __tmp84638))) + (__tmp84633 + (let ((__tmp84634 + (let ((__tmp84635 |gx[1]#_g84636_|)) (declare (not safe)) - (cons 'phi __tmp151720)))) + (cons 'phi __tmp84635)))) (declare (not safe)) - (cons __tmp151719 '())))) + (cons __tmp84634 '())))) (declare (not safe)) - (cons __tmp151722 __tmp151718)))) + (cons __tmp84637 __tmp84633)))) (declare (not safe)) - (cons __tmp151725 __tmp151717)))) + (cons __tmp84640 __tmp84632)))) (declare (not safe)) (##unchecked-structure-set! - __obj150779 - __tmp151716 + __obj83694 + __tmp84631 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151728 - (let ((__tmp151737 - (let ((__tmp151738 |gx[1]#_g151739_|)) + (let ((__tmp84643 + (let ((__tmp84652 + (let ((__tmp84653 |gx[1]#_g84654_|)) (declare (not safe)) - (cons 'id __tmp151738))) - (__tmp151729 - (let ((__tmp151734 - (let ((__tmp151735 |gx[1]#_g151736_|)) + (cons 'id __tmp84653))) + (__tmp84644 + (let ((__tmp84649 + (let ((__tmp84650 |gx[1]#_g84651_|)) (declare (not safe)) - (cons 'key __tmp151735))) - (__tmp151730 - (let ((__tmp151731 - (let ((__tmp151732 |gx[1]#_g151733_|)) + (cons 'key __tmp84650))) + (__tmp84645 + (let ((__tmp84646 + (let ((__tmp84647 |gx[1]#_g84648_|)) (declare (not safe)) - (cons 'phi __tmp151732)))) + (cons 'phi __tmp84647)))) (declare (not safe)) - (cons __tmp151731 '())))) + (cons __tmp84646 '())))) (declare (not safe)) - (cons __tmp151734 __tmp151730)))) + (cons __tmp84649 __tmp84645)))) (declare (not safe)) - (cons __tmp151737 __tmp151729)))) + (cons __tmp84652 __tmp84644)))) (declare (not safe)) (##unchecked-structure-set! - __obj150779 - __tmp151728 + __obj83694 + __tmp84643 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150779)) + __obj83694)) (define |gx[:0:]#module-binding| - (let ((__obj150780 + (let ((__obj83695 (let () (declare (not safe)) (##structure @@ -6644,7 +6612,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150780 + __obj83695 'gx#module-binding::t '1 gerbil/core$$#class-type-info::t @@ -6652,7 +6620,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150780 + __obj83695 'module-binding '2 gerbil/core$$#class-type-info::t @@ -6660,26 +6628,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150780 + __obj83695 '(context) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151740 - (let ((__tmp151741 |gx[1]#_g151742_|)) + (let ((__tmp84655 + (let ((__tmp84656 |gx[1]#_g84657_|)) (declare (not safe)) - (cons __tmp151741 '())))) + (cons __tmp84656 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150780 - __tmp151740 + __obj83695 + __tmp84655 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150780 + __obj83695 '#t '5 gerbil/core$$#class-type-info::t @@ -6687,7 +6655,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150780 + __obj83695 '#f '6 gerbil/core$$#class-type-info::t @@ -6695,7 +6663,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150780 + __obj83695 '#f '7 gerbil/core$$#class-type-info::t @@ -6703,182 +6671,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150780 + __obj83695 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151743 |gx[1]#_g151744_|)) + (let ((__tmp84658 |gx[1]#_g84659_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150780 - __tmp151743 + __obj83695 + __tmp84658 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151745 |gx[1]#_g151746_|)) + (let ((__tmp84660 |gx[1]#_g84661_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150780 - __tmp151745 + __obj83695 + __tmp84660 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151747 |gx[1]#_g151748_|)) + (let ((__tmp84662 |gx[1]#_g84663_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150780 - __tmp151747 + __obj83695 + __tmp84662 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151749 - (let ((__tmp151762 - (let ((__tmp151763 |gx[1]#_g151764_|)) + (let ((__tmp84664 + (let ((__tmp84677 + (let ((__tmp84678 |gx[1]#_g84679_|)) (declare (not safe)) - (cons 'context __tmp151763))) - (__tmp151750 - (let ((__tmp151759 - (let ((__tmp151760 |gx[1]#_g151761_|)) + (cons 'context __tmp84678))) + (__tmp84665 + (let ((__tmp84674 + (let ((__tmp84675 |gx[1]#_g84676_|)) (declare (not safe)) - (cons 'id __tmp151760))) - (__tmp151751 - (let ((__tmp151756 - (let ((__tmp151757 |gx[1]#_g151758_|)) + (cons 'id __tmp84675))) + (__tmp84666 + (let ((__tmp84671 + (let ((__tmp84672 |gx[1]#_g84673_|)) (declare (not safe)) - (cons 'key __tmp151757))) - (__tmp151752 - (let ((__tmp151753 - (let ((__tmp151754 - |gx[1]#_g151755_|)) + (cons 'key __tmp84672))) + (__tmp84667 + (let ((__tmp84668 + (let ((__tmp84669 |gx[1]#_g84670_|)) (declare (not safe)) - (cons 'phi __tmp151754)))) + (cons 'phi __tmp84669)))) (declare (not safe)) - (cons __tmp151753 '())))) + (cons __tmp84668 '())))) (declare (not safe)) - (cons __tmp151756 __tmp151752)))) + (cons __tmp84671 __tmp84667)))) (declare (not safe)) - (cons __tmp151759 __tmp151751)))) + (cons __tmp84674 __tmp84666)))) (declare (not safe)) - (cons __tmp151762 __tmp151750)))) + (cons __tmp84677 __tmp84665)))) (declare (not safe)) (##unchecked-structure-set! - __obj150780 - __tmp151749 + __obj83695 + __tmp84664 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151765 - (let ((__tmp151778 - (let ((__tmp151779 |gx[1]#_g151780_|)) + (let ((__tmp84680 + (let ((__tmp84693 + (let ((__tmp84694 |gx[1]#_g84695_|)) (declare (not safe)) - (cons 'context __tmp151779))) - (__tmp151766 - (let ((__tmp151775 - (let ((__tmp151776 |gx[1]#_g151777_|)) + (cons 'context __tmp84694))) + (__tmp84681 + (let ((__tmp84690 + (let ((__tmp84691 |gx[1]#_g84692_|)) (declare (not safe)) - (cons 'id __tmp151776))) - (__tmp151767 - (let ((__tmp151772 - (let ((__tmp151773 |gx[1]#_g151774_|)) + (cons 'id __tmp84691))) + (__tmp84682 + (let ((__tmp84687 + (let ((__tmp84688 |gx[1]#_g84689_|)) (declare (not safe)) - (cons 'key __tmp151773))) - (__tmp151768 - (let ((__tmp151769 - (let ((__tmp151770 - |gx[1]#_g151771_|)) + (cons 'key __tmp84688))) + (__tmp84683 + (let ((__tmp84684 + (let ((__tmp84685 |gx[1]#_g84686_|)) (declare (not safe)) - (cons 'phi __tmp151770)))) + (cons 'phi __tmp84685)))) (declare (not safe)) - (cons __tmp151769 '())))) + (cons __tmp84684 '())))) (declare (not safe)) - (cons __tmp151772 __tmp151768)))) + (cons __tmp84687 __tmp84683)))) (declare (not safe)) - (cons __tmp151775 __tmp151767)))) + (cons __tmp84690 __tmp84682)))) (declare (not safe)) - (cons __tmp151778 __tmp151766)))) + (cons __tmp84693 __tmp84681)))) (declare (not safe)) (##unchecked-structure-set! - __obj150780 - __tmp151765 + __obj83695 + __tmp84680 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151781 - (let ((__tmp151794 - (let ((__tmp151795 |gx[1]#_g151796_|)) + (let ((__tmp84696 + (let ((__tmp84709 + (let ((__tmp84710 |gx[1]#_g84711_|)) (declare (not safe)) - (cons 'context __tmp151795))) - (__tmp151782 - (let ((__tmp151791 - (let ((__tmp151792 |gx[1]#_g151793_|)) + (cons 'context __tmp84710))) + (__tmp84697 + (let ((__tmp84706 + (let ((__tmp84707 |gx[1]#_g84708_|)) (declare (not safe)) - (cons 'id __tmp151792))) - (__tmp151783 - (let ((__tmp151788 - (let ((__tmp151789 |gx[1]#_g151790_|)) + (cons 'id __tmp84707))) + (__tmp84698 + (let ((__tmp84703 + (let ((__tmp84704 |gx[1]#_g84705_|)) (declare (not safe)) - (cons 'key __tmp151789))) - (__tmp151784 - (let ((__tmp151785 - (let ((__tmp151786 - |gx[1]#_g151787_|)) + (cons 'key __tmp84704))) + (__tmp84699 + (let ((__tmp84700 + (let ((__tmp84701 |gx[1]#_g84702_|)) (declare (not safe)) - (cons 'phi __tmp151786)))) + (cons 'phi __tmp84701)))) (declare (not safe)) - (cons __tmp151785 '())))) + (cons __tmp84700 '())))) (declare (not safe)) - (cons __tmp151788 __tmp151784)))) + (cons __tmp84703 __tmp84699)))) (declare (not safe)) - (cons __tmp151791 __tmp151783)))) + (cons __tmp84706 __tmp84698)))) (declare (not safe)) - (cons __tmp151794 __tmp151782)))) + (cons __tmp84709 __tmp84697)))) (declare (not safe)) (##unchecked-structure-set! - __obj150780 - __tmp151781 + __obj83695 + __tmp84696 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151797 - (let ((__tmp151810 - (let ((__tmp151811 |gx[1]#_g151812_|)) + (let ((__tmp84712 + (let ((__tmp84725 + (let ((__tmp84726 |gx[1]#_g84727_|)) (declare (not safe)) - (cons 'context __tmp151811))) - (__tmp151798 - (let ((__tmp151807 - (let ((__tmp151808 |gx[1]#_g151809_|)) + (cons 'context __tmp84726))) + (__tmp84713 + (let ((__tmp84722 + (let ((__tmp84723 |gx[1]#_g84724_|)) (declare (not safe)) - (cons 'id __tmp151808))) - (__tmp151799 - (let ((__tmp151804 - (let ((__tmp151805 |gx[1]#_g151806_|)) + (cons 'id __tmp84723))) + (__tmp84714 + (let ((__tmp84719 + (let ((__tmp84720 |gx[1]#_g84721_|)) (declare (not safe)) - (cons 'key __tmp151805))) - (__tmp151800 - (let ((__tmp151801 - (let ((__tmp151802 - |gx[1]#_g151803_|)) + (cons 'key __tmp84720))) + (__tmp84715 + (let ((__tmp84716 + (let ((__tmp84717 |gx[1]#_g84718_|)) (declare (not safe)) - (cons 'phi __tmp151802)))) + (cons 'phi __tmp84717)))) (declare (not safe)) - (cons __tmp151801 '())))) + (cons __tmp84716 '())))) (declare (not safe)) - (cons __tmp151804 __tmp151800)))) + (cons __tmp84719 __tmp84715)))) (declare (not safe)) - (cons __tmp151807 __tmp151799)))) + (cons __tmp84722 __tmp84714)))) (declare (not safe)) - (cons __tmp151810 __tmp151798)))) + (cons __tmp84725 __tmp84713)))) (declare (not safe)) (##unchecked-structure-set! - __obj150780 - __tmp151797 + __obj83695 + __tmp84712 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150780)) + __obj83695)) (define |gx[:0:]#extern-binding| - (let ((__obj150781 + (let ((__obj83696 (let () (declare (not safe)) (##structure @@ -6901,7 +6865,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150781 + __obj83696 'gx#extern-binding::t '1 gerbil/core$$#class-type-info::t @@ -6909,7 +6873,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150781 + __obj83696 'extern-binding '2 gerbil/core$$#class-type-info::t @@ -6917,26 +6881,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150781 + __obj83696 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151813 - (let ((__tmp151814 |gx[1]#_g151742_|)) + (let ((__tmp84728 + (let ((__tmp84729 |gx[1]#_g84657_|)) (declare (not safe)) - (cons __tmp151814 '())))) + (cons __tmp84729 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150781 - __tmp151813 + __obj83696 + __tmp84728 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150781 + __obj83696 '#t '5 gerbil/core$$#class-type-info::t @@ -6944,7 +6908,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150781 + __obj83696 '#f '6 gerbil/core$$#class-type-info::t @@ -6952,7 +6916,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150781 + __obj83696 '#f '7 gerbil/core$$#class-type-info::t @@ -6960,150 +6924,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150781 + __obj83696 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151815 |gx[1]#_g151816_|)) + (let ((__tmp84730 |gx[1]#_g84731_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150781 - __tmp151815 + __obj83696 + __tmp84730 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151817 |gx[1]#_g151818_|)) + (let ((__tmp84732 |gx[1]#_g84733_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150781 - __tmp151817 + __obj83696 + __tmp84732 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151819 |gx[1]#_g151820_|)) + (let ((__tmp84734 |gx[1]#_g84735_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150781 - __tmp151819 + __obj83696 + __tmp84734 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151821 - (let ((__tmp151830 - (let ((__tmp151831 |gx[1]#_g151832_|)) + (let ((__tmp84736 + (let ((__tmp84745 + (let ((__tmp84746 |gx[1]#_g84747_|)) (declare (not safe)) - (cons 'id __tmp151831))) - (__tmp151822 - (let ((__tmp151827 - (let ((__tmp151828 |gx[1]#_g151829_|)) + (cons 'id __tmp84746))) + (__tmp84737 + (let ((__tmp84742 + (let ((__tmp84743 |gx[1]#_g84744_|)) (declare (not safe)) - (cons 'key __tmp151828))) - (__tmp151823 - (let ((__tmp151824 - (let ((__tmp151825 |gx[1]#_g151826_|)) + (cons 'key __tmp84743))) + (__tmp84738 + (let ((__tmp84739 + (let ((__tmp84740 |gx[1]#_g84741_|)) (declare (not safe)) - (cons 'phi __tmp151825)))) + (cons 'phi __tmp84740)))) (declare (not safe)) - (cons __tmp151824 '())))) + (cons __tmp84739 '())))) (declare (not safe)) - (cons __tmp151827 __tmp151823)))) + (cons __tmp84742 __tmp84738)))) (declare (not safe)) - (cons __tmp151830 __tmp151822)))) + (cons __tmp84745 __tmp84737)))) (declare (not safe)) (##unchecked-structure-set! - __obj150781 - __tmp151821 + __obj83696 + __tmp84736 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151833 - (let ((__tmp151842 - (let ((__tmp151843 |gx[1]#_g151844_|)) + (let ((__tmp84748 + (let ((__tmp84757 + (let ((__tmp84758 |gx[1]#_g84759_|)) (declare (not safe)) - (cons 'id __tmp151843))) - (__tmp151834 - (let ((__tmp151839 - (let ((__tmp151840 |gx[1]#_g151841_|)) + (cons 'id __tmp84758))) + (__tmp84749 + (let ((__tmp84754 + (let ((__tmp84755 |gx[1]#_g84756_|)) (declare (not safe)) - (cons 'key __tmp151840))) - (__tmp151835 - (let ((__tmp151836 - (let ((__tmp151837 |gx[1]#_g151838_|)) + (cons 'key __tmp84755))) + (__tmp84750 + (let ((__tmp84751 + (let ((__tmp84752 |gx[1]#_g84753_|)) (declare (not safe)) - (cons 'phi __tmp151837)))) + (cons 'phi __tmp84752)))) (declare (not safe)) - (cons __tmp151836 '())))) + (cons __tmp84751 '())))) (declare (not safe)) - (cons __tmp151839 __tmp151835)))) + (cons __tmp84754 __tmp84750)))) (declare (not safe)) - (cons __tmp151842 __tmp151834)))) + (cons __tmp84757 __tmp84749)))) (declare (not safe)) (##unchecked-structure-set! - __obj150781 - __tmp151833 + __obj83696 + __tmp84748 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151845 - (let ((__tmp151854 - (let ((__tmp151855 |gx[1]#_g151856_|)) + (let ((__tmp84760 + (let ((__tmp84769 + (let ((__tmp84770 |gx[1]#_g84771_|)) (declare (not safe)) - (cons 'id __tmp151855))) - (__tmp151846 - (let ((__tmp151851 - (let ((__tmp151852 |gx[1]#_g151853_|)) + (cons 'id __tmp84770))) + (__tmp84761 + (let ((__tmp84766 + (let ((__tmp84767 |gx[1]#_g84768_|)) (declare (not safe)) - (cons 'key __tmp151852))) - (__tmp151847 - (let ((__tmp151848 - (let ((__tmp151849 |gx[1]#_g151850_|)) + (cons 'key __tmp84767))) + (__tmp84762 + (let ((__tmp84763 + (let ((__tmp84764 |gx[1]#_g84765_|)) (declare (not safe)) - (cons 'phi __tmp151849)))) + (cons 'phi __tmp84764)))) (declare (not safe)) - (cons __tmp151848 '())))) + (cons __tmp84763 '())))) (declare (not safe)) - (cons __tmp151851 __tmp151847)))) + (cons __tmp84766 __tmp84762)))) (declare (not safe)) - (cons __tmp151854 __tmp151846)))) + (cons __tmp84769 __tmp84761)))) (declare (not safe)) (##unchecked-structure-set! - __obj150781 - __tmp151845 + __obj83696 + __tmp84760 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151857 - (let ((__tmp151866 - (let ((__tmp151867 |gx[1]#_g151868_|)) + (let ((__tmp84772 + (let ((__tmp84781 + (let ((__tmp84782 |gx[1]#_g84783_|)) (declare (not safe)) - (cons 'id __tmp151867))) - (__tmp151858 - (let ((__tmp151863 - (let ((__tmp151864 |gx[1]#_g151865_|)) + (cons 'id __tmp84782))) + (__tmp84773 + (let ((__tmp84778 + (let ((__tmp84779 |gx[1]#_g84780_|)) (declare (not safe)) - (cons 'key __tmp151864))) - (__tmp151859 - (let ((__tmp151860 - (let ((__tmp151861 |gx[1]#_g151862_|)) + (cons 'key __tmp84779))) + (__tmp84774 + (let ((__tmp84775 + (let ((__tmp84776 |gx[1]#_g84777_|)) (declare (not safe)) - (cons 'phi __tmp151861)))) + (cons 'phi __tmp84776)))) (declare (not safe)) - (cons __tmp151860 '())))) + (cons __tmp84775 '())))) (declare (not safe)) - (cons __tmp151863 __tmp151859)))) + (cons __tmp84778 __tmp84774)))) (declare (not safe)) - (cons __tmp151866 __tmp151858)))) + (cons __tmp84781 __tmp84773)))) (declare (not safe)) (##unchecked-structure-set! - __obj150781 - __tmp151857 + __obj83696 + __tmp84772 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150781)) + __obj83696)) (define |gx[:0:]#syntax-binding| - (let ((__obj150782 + (let ((__obj83697 (let () (declare (not safe)) (##structure @@ -7126,7 +7090,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150782 + __obj83697 'gx#syntax-binding::t '1 gerbil/core$$#class-type-info::t @@ -7134,7 +7098,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150782 + __obj83697 'syntax-binding '2 gerbil/core$$#class-type-info::t @@ -7142,26 +7106,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150782 + __obj83697 '(e) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151869 - (let ((__tmp151870 |gx[1]#_g151572_|)) + (let ((__tmp84784 + (let ((__tmp84785 |gx[1]#_g84487_|)) (declare (not safe)) - (cons __tmp151870 '())))) + (cons __tmp84785 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150782 - __tmp151869 + __obj83697 + __tmp84784 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150782 + __obj83697 '#t '5 gerbil/core$$#class-type-info::t @@ -7169,7 +7133,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150782 + __obj83697 '#t '6 gerbil/core$$#class-type-info::t @@ -7177,7 +7141,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150782 + __obj83697 '#f '7 gerbil/core$$#class-type-info::t @@ -7185,182 +7149,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150782 + __obj83697 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151871 |gx[1]#_g151872_|)) + (let ((__tmp84786 |gx[1]#_g84787_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150782 - __tmp151871 + __obj83697 + __tmp84786 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151873 |gx[1]#_g151874_|)) + (let ((__tmp84788 |gx[1]#_g84789_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150782 - __tmp151873 + __obj83697 + __tmp84788 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151875 |gx[1]#_g151876_|)) + (let ((__tmp84790 |gx[1]#_g84791_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150782 - __tmp151875 + __obj83697 + __tmp84790 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151877 - (let ((__tmp151890 - (let ((__tmp151891 |gx[1]#_g151892_|)) + (let ((__tmp84792 + (let ((__tmp84805 + (let ((__tmp84806 |gx[1]#_g84807_|)) (declare (not safe)) - (cons 'e __tmp151891))) - (__tmp151878 - (let ((__tmp151887 - (let ((__tmp151888 |gx[1]#_g151889_|)) + (cons 'e __tmp84806))) + (__tmp84793 + (let ((__tmp84802 + (let ((__tmp84803 |gx[1]#_g84804_|)) (declare (not safe)) - (cons 'id __tmp151888))) - (__tmp151879 - (let ((__tmp151884 - (let ((__tmp151885 |gx[1]#_g151886_|)) + (cons 'id __tmp84803))) + (__tmp84794 + (let ((__tmp84799 + (let ((__tmp84800 |gx[1]#_g84801_|)) (declare (not safe)) - (cons 'key __tmp151885))) - (__tmp151880 - (let ((__tmp151881 - (let ((__tmp151882 - |gx[1]#_g151883_|)) + (cons 'key __tmp84800))) + (__tmp84795 + (let ((__tmp84796 + (let ((__tmp84797 |gx[1]#_g84798_|)) (declare (not safe)) - (cons 'phi __tmp151882)))) + (cons 'phi __tmp84797)))) (declare (not safe)) - (cons __tmp151881 '())))) + (cons __tmp84796 '())))) (declare (not safe)) - (cons __tmp151884 __tmp151880)))) + (cons __tmp84799 __tmp84795)))) (declare (not safe)) - (cons __tmp151887 __tmp151879)))) + (cons __tmp84802 __tmp84794)))) (declare (not safe)) - (cons __tmp151890 __tmp151878)))) + (cons __tmp84805 __tmp84793)))) (declare (not safe)) (##unchecked-structure-set! - __obj150782 - __tmp151877 + __obj83697 + __tmp84792 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151893 - (let ((__tmp151906 - (let ((__tmp151907 |gx[1]#_g151908_|)) + (let ((__tmp84808 + (let ((__tmp84821 + (let ((__tmp84822 |gx[1]#_g84823_|)) (declare (not safe)) - (cons 'e __tmp151907))) - (__tmp151894 - (let ((__tmp151903 - (let ((__tmp151904 |gx[1]#_g151905_|)) + (cons 'e __tmp84822))) + (__tmp84809 + (let ((__tmp84818 + (let ((__tmp84819 |gx[1]#_g84820_|)) (declare (not safe)) - (cons 'id __tmp151904))) - (__tmp151895 - (let ((__tmp151900 - (let ((__tmp151901 |gx[1]#_g151902_|)) + (cons 'id __tmp84819))) + (__tmp84810 + (let ((__tmp84815 + (let ((__tmp84816 |gx[1]#_g84817_|)) (declare (not safe)) - (cons 'key __tmp151901))) - (__tmp151896 - (let ((__tmp151897 - (let ((__tmp151898 - |gx[1]#_g151899_|)) + (cons 'key __tmp84816))) + (__tmp84811 + (let ((__tmp84812 + (let ((__tmp84813 |gx[1]#_g84814_|)) (declare (not safe)) - (cons 'phi __tmp151898)))) + (cons 'phi __tmp84813)))) (declare (not safe)) - (cons __tmp151897 '())))) + (cons __tmp84812 '())))) (declare (not safe)) - (cons __tmp151900 __tmp151896)))) + (cons __tmp84815 __tmp84811)))) (declare (not safe)) - (cons __tmp151903 __tmp151895)))) + (cons __tmp84818 __tmp84810)))) (declare (not safe)) - (cons __tmp151906 __tmp151894)))) + (cons __tmp84821 __tmp84809)))) (declare (not safe)) (##unchecked-structure-set! - __obj150782 - __tmp151893 + __obj83697 + __tmp84808 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151909 - (let ((__tmp151922 - (let ((__tmp151923 |gx[1]#_g151924_|)) + (let ((__tmp84824 + (let ((__tmp84837 + (let ((__tmp84838 |gx[1]#_g84839_|)) (declare (not safe)) - (cons 'e __tmp151923))) - (__tmp151910 - (let ((__tmp151919 - (let ((__tmp151920 |gx[1]#_g151921_|)) + (cons 'e __tmp84838))) + (__tmp84825 + (let ((__tmp84834 + (let ((__tmp84835 |gx[1]#_g84836_|)) (declare (not safe)) - (cons 'id __tmp151920))) - (__tmp151911 - (let ((__tmp151916 - (let ((__tmp151917 |gx[1]#_g151918_|)) + (cons 'id __tmp84835))) + (__tmp84826 + (let ((__tmp84831 + (let ((__tmp84832 |gx[1]#_g84833_|)) (declare (not safe)) - (cons 'key __tmp151917))) - (__tmp151912 - (let ((__tmp151913 - (let ((__tmp151914 - |gx[1]#_g151915_|)) + (cons 'key __tmp84832))) + (__tmp84827 + (let ((__tmp84828 + (let ((__tmp84829 |gx[1]#_g84830_|)) (declare (not safe)) - (cons 'phi __tmp151914)))) + (cons 'phi __tmp84829)))) (declare (not safe)) - (cons __tmp151913 '())))) + (cons __tmp84828 '())))) (declare (not safe)) - (cons __tmp151916 __tmp151912)))) + (cons __tmp84831 __tmp84827)))) (declare (not safe)) - (cons __tmp151919 __tmp151911)))) + (cons __tmp84834 __tmp84826)))) (declare (not safe)) - (cons __tmp151922 __tmp151910)))) + (cons __tmp84837 __tmp84825)))) (declare (not safe)) (##unchecked-structure-set! - __obj150782 - __tmp151909 + __obj83697 + __tmp84824 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151925 - (let ((__tmp151938 - (let ((__tmp151939 |gx[1]#_g151940_|)) + (let ((__tmp84840 + (let ((__tmp84853 + (let ((__tmp84854 |gx[1]#_g84855_|)) (declare (not safe)) - (cons 'e __tmp151939))) - (__tmp151926 - (let ((__tmp151935 - (let ((__tmp151936 |gx[1]#_g151937_|)) + (cons 'e __tmp84854))) + (__tmp84841 + (let ((__tmp84850 + (let ((__tmp84851 |gx[1]#_g84852_|)) (declare (not safe)) - (cons 'id __tmp151936))) - (__tmp151927 - (let ((__tmp151932 - (let ((__tmp151933 |gx[1]#_g151934_|)) + (cons 'id __tmp84851))) + (__tmp84842 + (let ((__tmp84847 + (let ((__tmp84848 |gx[1]#_g84849_|)) (declare (not safe)) - (cons 'key __tmp151933))) - (__tmp151928 - (let ((__tmp151929 - (let ((__tmp151930 - |gx[1]#_g151931_|)) + (cons 'key __tmp84848))) + (__tmp84843 + (let ((__tmp84844 + (let ((__tmp84845 |gx[1]#_g84846_|)) (declare (not safe)) - (cons 'phi __tmp151930)))) + (cons 'phi __tmp84845)))) (declare (not safe)) - (cons __tmp151929 '())))) + (cons __tmp84844 '())))) (declare (not safe)) - (cons __tmp151932 __tmp151928)))) + (cons __tmp84847 __tmp84843)))) (declare (not safe)) - (cons __tmp151935 __tmp151927)))) + (cons __tmp84850 __tmp84842)))) (declare (not safe)) - (cons __tmp151938 __tmp151926)))) + (cons __tmp84853 __tmp84841)))) (declare (not safe)) (##unchecked-structure-set! - __obj150782 - __tmp151925 + __obj83697 + __tmp84840 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150782)) + __obj83697)) (define |gx[:0:]#import-binding| - (let ((__obj150783 + (let ((__obj83698 (let () (declare (not safe)) (##structure @@ -7383,7 +7343,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150783 + __obj83698 'gx#import-binding::t '1 gerbil/core$$#class-type-info::t @@ -7391,7 +7351,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150783 + __obj83698 'import-binding '2 gerbil/core$$#class-type-info::t @@ -7399,26 +7359,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150783 + __obj83698 '(e context weak?) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151941 - (let ((__tmp151942 |gx[1]#_g151572_|)) + (let ((__tmp84856 + (let ((__tmp84857 |gx[1]#_g84487_|)) (declare (not safe)) - (cons __tmp151942 '())))) + (cons __tmp84857 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150783 - __tmp151941 + __obj83698 + __tmp84856 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150783 + __obj83698 '#t '5 gerbil/core$$#class-type-info::t @@ -7426,7 +7386,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150783 + __obj83698 '#t '6 gerbil/core$$#class-type-info::t @@ -7434,7 +7394,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150783 + __obj83698 '#f '7 gerbil/core$$#class-type-info::t @@ -7442,258 +7402,254 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150783 + __obj83698 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151943 |gx[1]#_g151944_|)) + (let ((__tmp84858 |gx[1]#_g84859_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150783 - __tmp151943 + __obj83698 + __tmp84858 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151945 |gx[1]#_g151946_|)) + (let ((__tmp84860 |gx[1]#_g84861_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150783 - __tmp151945 + __obj83698 + __tmp84860 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151947 |gx[1]#_g151948_|)) + (let ((__tmp84862 |gx[1]#_g84863_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150783 - __tmp151947 + __obj83698 + __tmp84862 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151949 - (let ((__tmp151970 - (let ((__tmp151971 |gx[1]#_g151972_|)) + (let ((__tmp84864 + (let ((__tmp84885 + (let ((__tmp84886 |gx[1]#_g84887_|)) (declare (not safe)) - (cons 'e __tmp151971))) - (__tmp151950 - (let ((__tmp151967 - (let ((__tmp151968 |gx[1]#_g151969_|)) + (cons 'e __tmp84886))) + (__tmp84865 + (let ((__tmp84882 + (let ((__tmp84883 |gx[1]#_g84884_|)) (declare (not safe)) - (cons 'context __tmp151968))) - (__tmp151951 - (let ((__tmp151964 - (let ((__tmp151965 |gx[1]#_g151966_|)) + (cons 'context __tmp84883))) + (__tmp84866 + (let ((__tmp84879 + (let ((__tmp84880 |gx[1]#_g84881_|)) (declare (not safe)) - (cons 'weak? __tmp151965))) - (__tmp151952 - (let ((__tmp151961 - (let ((__tmp151962 - |gx[1]#_g151963_|)) + (cons 'weak? __tmp84880))) + (__tmp84867 + (let ((__tmp84876 + (let ((__tmp84877 |gx[1]#_g84878_|)) (declare (not safe)) - (cons 'id __tmp151962))) - (__tmp151953 - (let ((__tmp151958 - (let ((__tmp151959 - |gx[1]#_g151960_|)) + (cons 'id __tmp84877))) + (__tmp84868 + (let ((__tmp84873 + (let ((__tmp84874 + |gx[1]#_g84875_|)) (declare (not safe)) - (cons 'key __tmp151959))) - (__tmp151954 - (let ((__tmp151955 - (let ((__tmp151956 - |gx[1]#_g151957_|)) + (cons 'key __tmp84874))) + (__tmp84869 + (let ((__tmp84870 + (let ((__tmp84871 + |gx[1]#_g84872_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp151956)))) + __tmp84871)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp151955 '())))) + (cons __tmp84870 '())))) (declare (not safe)) - (cons __tmp151958 __tmp151954)))) + (cons __tmp84873 __tmp84869)))) (declare (not safe)) - (cons __tmp151961 __tmp151953)))) + (cons __tmp84876 __tmp84868)))) (declare (not safe)) - (cons __tmp151964 __tmp151952)))) + (cons __tmp84879 __tmp84867)))) (declare (not safe)) - (cons __tmp151967 __tmp151951)))) + (cons __tmp84882 __tmp84866)))) (declare (not safe)) - (cons __tmp151970 __tmp151950)))) + (cons __tmp84885 __tmp84865)))) (declare (not safe)) (##unchecked-structure-set! - __obj150783 - __tmp151949 + __obj83698 + __tmp84864 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151973 - (let ((__tmp151994 - (let ((__tmp151995 |gx[1]#_g151996_|)) + (let ((__tmp84888 + (let ((__tmp84909 + (let ((__tmp84910 |gx[1]#_g84911_|)) (declare (not safe)) - (cons 'e __tmp151995))) - (__tmp151974 - (let ((__tmp151991 - (let ((__tmp151992 |gx[1]#_g151993_|)) + (cons 'e __tmp84910))) + (__tmp84889 + (let ((__tmp84906 + (let ((__tmp84907 |gx[1]#_g84908_|)) (declare (not safe)) - (cons 'context __tmp151992))) - (__tmp151975 - (let ((__tmp151988 - (let ((__tmp151989 |gx[1]#_g151990_|)) + (cons 'context __tmp84907))) + (__tmp84890 + (let ((__tmp84903 + (let ((__tmp84904 |gx[1]#_g84905_|)) (declare (not safe)) - (cons 'weak? __tmp151989))) - (__tmp151976 - (let ((__tmp151985 - (let ((__tmp151986 - |gx[1]#_g151987_|)) + (cons 'weak? __tmp84904))) + (__tmp84891 + (let ((__tmp84900 + (let ((__tmp84901 |gx[1]#_g84902_|)) (declare (not safe)) - (cons 'id __tmp151986))) - (__tmp151977 - (let ((__tmp151982 - (let ((__tmp151983 - |gx[1]#_g151984_|)) + (cons 'id __tmp84901))) + (__tmp84892 + (let ((__tmp84897 + (let ((__tmp84898 + |gx[1]#_g84899_|)) (declare (not safe)) - (cons 'key __tmp151983))) - (__tmp151978 - (let ((__tmp151979 - (let ((__tmp151980 - |gx[1]#_g151981_|)) + (cons 'key __tmp84898))) + (__tmp84893 + (let ((__tmp84894 + (let ((__tmp84895 + |gx[1]#_g84896_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp151980)))) + __tmp84895)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp151979 '())))) + (cons __tmp84894 '())))) (declare (not safe)) - (cons __tmp151982 __tmp151978)))) + (cons __tmp84897 __tmp84893)))) (declare (not safe)) - (cons __tmp151985 __tmp151977)))) + (cons __tmp84900 __tmp84892)))) (declare (not safe)) - (cons __tmp151988 __tmp151976)))) + (cons __tmp84903 __tmp84891)))) (declare (not safe)) - (cons __tmp151991 __tmp151975)))) + (cons __tmp84906 __tmp84890)))) (declare (not safe)) - (cons __tmp151994 __tmp151974)))) + (cons __tmp84909 __tmp84889)))) (declare (not safe)) (##unchecked-structure-set! - __obj150783 - __tmp151973 + __obj83698 + __tmp84888 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151997 - (let ((__tmp152018 - (let ((__tmp152019 |gx[1]#_g152020_|)) + (let ((__tmp84912 + (let ((__tmp84933 + (let ((__tmp84934 |gx[1]#_g84935_|)) (declare (not safe)) - (cons 'e __tmp152019))) - (__tmp151998 - (let ((__tmp152015 - (let ((__tmp152016 |gx[1]#_g152017_|)) + (cons 'e __tmp84934))) + (__tmp84913 + (let ((__tmp84930 + (let ((__tmp84931 |gx[1]#_g84932_|)) (declare (not safe)) - (cons 'context __tmp152016))) - (__tmp151999 - (let ((__tmp152012 - (let ((__tmp152013 |gx[1]#_g152014_|)) + (cons 'context __tmp84931))) + (__tmp84914 + (let ((__tmp84927 + (let ((__tmp84928 |gx[1]#_g84929_|)) (declare (not safe)) - (cons 'weak? __tmp152013))) - (__tmp152000 - (let ((__tmp152009 - (let ((__tmp152010 - |gx[1]#_g152011_|)) + (cons 'weak? __tmp84928))) + (__tmp84915 + (let ((__tmp84924 + (let ((__tmp84925 |gx[1]#_g84926_|)) (declare (not safe)) - (cons 'id __tmp152010))) - (__tmp152001 - (let ((__tmp152006 - (let ((__tmp152007 - |gx[1]#_g152008_|)) + (cons 'id __tmp84925))) + (__tmp84916 + (let ((__tmp84921 + (let ((__tmp84922 + |gx[1]#_g84923_|)) (declare (not safe)) - (cons 'key __tmp152007))) - (__tmp152002 - (let ((__tmp152003 - (let ((__tmp152004 - |gx[1]#_g152005_|)) + (cons 'key __tmp84922))) + (__tmp84917 + (let ((__tmp84918 + (let ((__tmp84919 + |gx[1]#_g84920_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp152004)))) + __tmp84919)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152003 '())))) + (cons __tmp84918 '())))) (declare (not safe)) - (cons __tmp152006 __tmp152002)))) + (cons __tmp84921 __tmp84917)))) (declare (not safe)) - (cons __tmp152009 __tmp152001)))) + (cons __tmp84924 __tmp84916)))) (declare (not safe)) - (cons __tmp152012 __tmp152000)))) + (cons __tmp84927 __tmp84915)))) (declare (not safe)) - (cons __tmp152015 __tmp151999)))) + (cons __tmp84930 __tmp84914)))) (declare (not safe)) - (cons __tmp152018 __tmp151998)))) + (cons __tmp84933 __tmp84913)))) (declare (not safe)) (##unchecked-structure-set! - __obj150783 - __tmp151997 + __obj83698 + __tmp84912 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152021 - (let ((__tmp152042 - (let ((__tmp152043 |gx[1]#_g152044_|)) + (let ((__tmp84936 + (let ((__tmp84957 + (let ((__tmp84958 |gx[1]#_g84959_|)) (declare (not safe)) - (cons 'e __tmp152043))) - (__tmp152022 - (let ((__tmp152039 - (let ((__tmp152040 |gx[1]#_g152041_|)) + (cons 'e __tmp84958))) + (__tmp84937 + (let ((__tmp84954 + (let ((__tmp84955 |gx[1]#_g84956_|)) (declare (not safe)) - (cons 'context __tmp152040))) - (__tmp152023 - (let ((__tmp152036 - (let ((__tmp152037 |gx[1]#_g152038_|)) + (cons 'context __tmp84955))) + (__tmp84938 + (let ((__tmp84951 + (let ((__tmp84952 |gx[1]#_g84953_|)) (declare (not safe)) - (cons 'weak? __tmp152037))) - (__tmp152024 - (let ((__tmp152033 - (let ((__tmp152034 - |gx[1]#_g152035_|)) + (cons 'weak? __tmp84952))) + (__tmp84939 + (let ((__tmp84948 + (let ((__tmp84949 |gx[1]#_g84950_|)) (declare (not safe)) - (cons 'id __tmp152034))) - (__tmp152025 - (let ((__tmp152030 - (let ((__tmp152031 - |gx[1]#_g152032_|)) + (cons 'id __tmp84949))) + (__tmp84940 + (let ((__tmp84945 + (let ((__tmp84946 + |gx[1]#_g84947_|)) (declare (not safe)) - (cons 'key __tmp152031))) - (__tmp152026 - (let ((__tmp152027 - (let ((__tmp152028 - |gx[1]#_g152029_|)) + (cons 'key __tmp84946))) + (__tmp84941 + (let ((__tmp84942 + (let ((__tmp84943 + |gx[1]#_g84944_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp152028)))) + __tmp84943)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152027 '())))) + (cons __tmp84942 '())))) (declare (not safe)) - (cons __tmp152030 __tmp152026)))) + (cons __tmp84945 __tmp84941)))) (declare (not safe)) - (cons __tmp152033 __tmp152025)))) + (cons __tmp84948 __tmp84940)))) (declare (not safe)) - (cons __tmp152036 __tmp152024)))) + (cons __tmp84951 __tmp84939)))) (declare (not safe)) - (cons __tmp152039 __tmp152023)))) + (cons __tmp84954 __tmp84938)))) (declare (not safe)) - (cons __tmp152042 __tmp152022)))) + (cons __tmp84957 __tmp84937)))) (declare (not safe)) (##unchecked-structure-set! - __obj150783 - __tmp152021 + __obj83698 + __tmp84936 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150783)) + __obj83698)) (define |gx[:0:]#alias-binding| - (let ((__obj150784 + (let ((__obj83699 (let () (declare (not safe)) (##structure @@ -7716,7 +7672,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150784 + __obj83699 'gx#alias-binding::t '1 gerbil/core$$#class-type-info::t @@ -7724,7 +7680,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150784 + __obj83699 'alias-binding '2 gerbil/core$$#class-type-info::t @@ -7732,26 +7688,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150784 + __obj83699 '(e) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152045 - (let ((__tmp152046 |gx[1]#_g151572_|)) + (let ((__tmp84960 + (let ((__tmp84961 |gx[1]#_g84487_|)) (declare (not safe)) - (cons __tmp152046 '())))) + (cons __tmp84961 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150784 - __tmp152045 + __obj83699 + __tmp84960 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150784 + __obj83699 '#t '5 gerbil/core$$#class-type-info::t @@ -7759,7 +7715,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150784 + __obj83699 '#t '6 gerbil/core$$#class-type-info::t @@ -7767,7 +7723,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150784 + __obj83699 '#f '7 gerbil/core$$#class-type-info::t @@ -7775,182 +7731,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150784 + __obj83699 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152047 |gx[1]#_g152048_|)) + (let ((__tmp84962 |gx[1]#_g84963_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150784 - __tmp152047 + __obj83699 + __tmp84962 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152049 |gx[1]#_g152050_|)) + (let ((__tmp84964 |gx[1]#_g84965_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150784 - __tmp152049 + __obj83699 + __tmp84964 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152051 |gx[1]#_g152052_|)) + (let ((__tmp84966 |gx[1]#_g84967_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150784 - __tmp152051 + __obj83699 + __tmp84966 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152053 - (let ((__tmp152066 - (let ((__tmp152067 |gx[1]#_g152068_|)) + (let ((__tmp84968 + (let ((__tmp84981 + (let ((__tmp84982 |gx[1]#_g84983_|)) (declare (not safe)) - (cons 'e __tmp152067))) - (__tmp152054 - (let ((__tmp152063 - (let ((__tmp152064 |gx[1]#_g152065_|)) + (cons 'e __tmp84982))) + (__tmp84969 + (let ((__tmp84978 + (let ((__tmp84979 |gx[1]#_g84980_|)) (declare (not safe)) - (cons 'id __tmp152064))) - (__tmp152055 - (let ((__tmp152060 - (let ((__tmp152061 |gx[1]#_g152062_|)) + (cons 'id __tmp84979))) + (__tmp84970 + (let ((__tmp84975 + (let ((__tmp84976 |gx[1]#_g84977_|)) (declare (not safe)) - (cons 'key __tmp152061))) - (__tmp152056 - (let ((__tmp152057 - (let ((__tmp152058 - |gx[1]#_g152059_|)) + (cons 'key __tmp84976))) + (__tmp84971 + (let ((__tmp84972 + (let ((__tmp84973 |gx[1]#_g84974_|)) (declare (not safe)) - (cons 'phi __tmp152058)))) + (cons 'phi __tmp84973)))) (declare (not safe)) - (cons __tmp152057 '())))) + (cons __tmp84972 '())))) (declare (not safe)) - (cons __tmp152060 __tmp152056)))) + (cons __tmp84975 __tmp84971)))) (declare (not safe)) - (cons __tmp152063 __tmp152055)))) + (cons __tmp84978 __tmp84970)))) (declare (not safe)) - (cons __tmp152066 __tmp152054)))) + (cons __tmp84981 __tmp84969)))) (declare (not safe)) (##unchecked-structure-set! - __obj150784 - __tmp152053 + __obj83699 + __tmp84968 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152069 - (let ((__tmp152082 - (let ((__tmp152083 |gx[1]#_g152084_|)) + (let ((__tmp84984 + (let ((__tmp84997 + (let ((__tmp84998 |gx[1]#_g84999_|)) (declare (not safe)) - (cons 'e __tmp152083))) - (__tmp152070 - (let ((__tmp152079 - (let ((__tmp152080 |gx[1]#_g152081_|)) + (cons 'e __tmp84998))) + (__tmp84985 + (let ((__tmp84994 + (let ((__tmp84995 |gx[1]#_g84996_|)) (declare (not safe)) - (cons 'id __tmp152080))) - (__tmp152071 - (let ((__tmp152076 - (let ((__tmp152077 |gx[1]#_g152078_|)) + (cons 'id __tmp84995))) + (__tmp84986 + (let ((__tmp84991 + (let ((__tmp84992 |gx[1]#_g84993_|)) (declare (not safe)) - (cons 'key __tmp152077))) - (__tmp152072 - (let ((__tmp152073 - (let ((__tmp152074 - |gx[1]#_g152075_|)) + (cons 'key __tmp84992))) + (__tmp84987 + (let ((__tmp84988 + (let ((__tmp84989 |gx[1]#_g84990_|)) (declare (not safe)) - (cons 'phi __tmp152074)))) + (cons 'phi __tmp84989)))) (declare (not safe)) - (cons __tmp152073 '())))) + (cons __tmp84988 '())))) (declare (not safe)) - (cons __tmp152076 __tmp152072)))) + (cons __tmp84991 __tmp84987)))) (declare (not safe)) - (cons __tmp152079 __tmp152071)))) + (cons __tmp84994 __tmp84986)))) (declare (not safe)) - (cons __tmp152082 __tmp152070)))) + (cons __tmp84997 __tmp84985)))) (declare (not safe)) (##unchecked-structure-set! - __obj150784 - __tmp152069 + __obj83699 + __tmp84984 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152085 - (let ((__tmp152098 - (let ((__tmp152099 |gx[1]#_g152100_|)) + (let ((__tmp85000 + (let ((__tmp85013 + (let ((__tmp85014 |gx[1]#_g85015_|)) (declare (not safe)) - (cons 'e __tmp152099))) - (__tmp152086 - (let ((__tmp152095 - (let ((__tmp152096 |gx[1]#_g152097_|)) + (cons 'e __tmp85014))) + (__tmp85001 + (let ((__tmp85010 + (let ((__tmp85011 |gx[1]#_g85012_|)) (declare (not safe)) - (cons 'id __tmp152096))) - (__tmp152087 - (let ((__tmp152092 - (let ((__tmp152093 |gx[1]#_g152094_|)) + (cons 'id __tmp85011))) + (__tmp85002 + (let ((__tmp85007 + (let ((__tmp85008 |gx[1]#_g85009_|)) (declare (not safe)) - (cons 'key __tmp152093))) - (__tmp152088 - (let ((__tmp152089 - (let ((__tmp152090 - |gx[1]#_g152091_|)) + (cons 'key __tmp85008))) + (__tmp85003 + (let ((__tmp85004 + (let ((__tmp85005 |gx[1]#_g85006_|)) (declare (not safe)) - (cons 'phi __tmp152090)))) + (cons 'phi __tmp85005)))) (declare (not safe)) - (cons __tmp152089 '())))) + (cons __tmp85004 '())))) (declare (not safe)) - (cons __tmp152092 __tmp152088)))) + (cons __tmp85007 __tmp85003)))) (declare (not safe)) - (cons __tmp152095 __tmp152087)))) + (cons __tmp85010 __tmp85002)))) (declare (not safe)) - (cons __tmp152098 __tmp152086)))) + (cons __tmp85013 __tmp85001)))) (declare (not safe)) (##unchecked-structure-set! - __obj150784 - __tmp152085 + __obj83699 + __tmp85000 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152101 - (let ((__tmp152114 - (let ((__tmp152115 |gx[1]#_g152116_|)) + (let ((__tmp85016 + (let ((__tmp85029 + (let ((__tmp85030 |gx[1]#_g85031_|)) (declare (not safe)) - (cons 'e __tmp152115))) - (__tmp152102 - (let ((__tmp152111 - (let ((__tmp152112 |gx[1]#_g152113_|)) + (cons 'e __tmp85030))) + (__tmp85017 + (let ((__tmp85026 + (let ((__tmp85027 |gx[1]#_g85028_|)) (declare (not safe)) - (cons 'id __tmp152112))) - (__tmp152103 - (let ((__tmp152108 - (let ((__tmp152109 |gx[1]#_g152110_|)) + (cons 'id __tmp85027))) + (__tmp85018 + (let ((__tmp85023 + (let ((__tmp85024 |gx[1]#_g85025_|)) (declare (not safe)) - (cons 'key __tmp152109))) - (__tmp152104 - (let ((__tmp152105 - (let ((__tmp152106 - |gx[1]#_g152107_|)) + (cons 'key __tmp85024))) + (__tmp85019 + (let ((__tmp85020 + (let ((__tmp85021 |gx[1]#_g85022_|)) (declare (not safe)) - (cons 'phi __tmp152106)))) + (cons 'phi __tmp85021)))) (declare (not safe)) - (cons __tmp152105 '())))) + (cons __tmp85020 '())))) (declare (not safe)) - (cons __tmp152108 __tmp152104)))) + (cons __tmp85023 __tmp85019)))) (declare (not safe)) - (cons __tmp152111 __tmp152103)))) + (cons __tmp85026 __tmp85018)))) (declare (not safe)) - (cons __tmp152114 __tmp152102)))) + (cons __tmp85029 __tmp85017)))) (declare (not safe)) (##unchecked-structure-set! - __obj150784 - __tmp152101 + __obj83699 + __tmp85016 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150784)) + __obj83699)) (define |gx[:0:]#expander| - (let ((__obj150785 + (let ((__obj83700 (let () (declare (not safe)) (##structure @@ -7973,7 +7925,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150785 + __obj83700 'gx#expander::t '1 gerbil/core$$#class-type-info::t @@ -7981,7 +7933,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150785 + __obj83700 'expander '2 gerbil/core$$#class-type-info::t @@ -7989,7 +7941,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150785 + __obj83700 '(e) '4 gerbil/core$$#class-type-info::t @@ -7997,7 +7949,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150785 + __obj83700 '() '3 gerbil/core$$#class-type-info::t @@ -8005,7 +7957,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150785 + __obj83700 '#t '5 gerbil/core$$#class-type-info::t @@ -8013,7 +7965,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150785 + __obj83700 '#f '6 gerbil/core$$#class-type-info::t @@ -8021,7 +7973,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150785 + __obj83700 '#f '7 gerbil/core$$#class-type-info::t @@ -8029,94 +7981,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150785 + __obj83700 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152117 |gx[1]#_g152118_|)) + (let ((__tmp85032 |gx[1]#_g85033_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150785 - __tmp152117 + __obj83700 + __tmp85032 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152119 |gx[1]#_g152120_|)) + (let ((__tmp85034 |gx[1]#_g85035_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150785 - __tmp152119 + __obj83700 + __tmp85034 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152121 |gx[1]#_g152122_|)) + (let ((__tmp85036 |gx[1]#_g85037_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150785 - __tmp152121 + __obj83700 + __tmp85036 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152123 - (let ((__tmp152124 - (let ((__tmp152125 |gx[1]#_g152126_|)) + (let ((__tmp85038 + (let ((__tmp85039 + (let ((__tmp85040 |gx[1]#_g85041_|)) (declare (not safe)) - (cons 'e __tmp152125)))) + (cons 'e __tmp85040)))) (declare (not safe)) - (cons __tmp152124 '())))) + (cons __tmp85039 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150785 - __tmp152123 + __obj83700 + __tmp85038 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152127 - (let ((__tmp152128 - (let ((__tmp152129 |gx[1]#_g152130_|)) + (let ((__tmp85042 + (let ((__tmp85043 + (let ((__tmp85044 |gx[1]#_g85045_|)) (declare (not safe)) - (cons 'e __tmp152129)))) + (cons 'e __tmp85044)))) (declare (not safe)) - (cons __tmp152128 '())))) + (cons __tmp85043 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150785 - __tmp152127 + __obj83700 + __tmp85042 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152131 - (let ((__tmp152132 - (let ((__tmp152133 |gx[1]#_g152134_|)) + (let ((__tmp85046 + (let ((__tmp85047 + (let ((__tmp85048 |gx[1]#_g85049_|)) (declare (not safe)) - (cons 'e __tmp152133)))) + (cons 'e __tmp85048)))) (declare (not safe)) - (cons __tmp152132 '())))) + (cons __tmp85047 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150785 - __tmp152131 + __obj83700 + __tmp85046 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152135 - (let ((__tmp152136 - (let ((__tmp152137 |gx[1]#_g152138_|)) + (let ((__tmp85050 + (let ((__tmp85051 + (let ((__tmp85052 |gx[1]#_g85053_|)) (declare (not safe)) - (cons 'e __tmp152137)))) + (cons 'e __tmp85052)))) (declare (not safe)) - (cons __tmp152136 '())))) + (cons __tmp85051 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150785 - __tmp152135 + __obj83700 + __tmp85050 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150785)) + __obj83700)) (define |gx[:0:]#core-expander| - (let ((__obj150786 + (let ((__obj83701 (let () (declare (not safe)) (##structure @@ -8139,7 +8091,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150786 + __obj83701 'gx#core-expander::t '1 gerbil/core$$#class-type-info::t @@ -8147,7 +8099,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150786 + __obj83701 'core-expander '2 gerbil/core$$#class-type-info::t @@ -8155,26 +8107,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150786 + __obj83701 '(id compile-top) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152139 - (let ((__tmp152140 |gx[1]#_g152141_|)) + (let ((__tmp85054 + (let ((__tmp85055 |gx[1]#_g85056_|)) (declare (not safe)) - (cons __tmp152140 '())))) + (cons __tmp85055 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150786 - __tmp152139 + __obj83701 + __tmp85054 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150786 + __obj83701 '#t '5 gerbil/core$$#class-type-info::t @@ -8182,7 +8134,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150786 + __obj83701 '#f '6 gerbil/core$$#class-type-info::t @@ -8190,7 +8142,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150786 + __obj83701 '#f '7 gerbil/core$$#class-type-info::t @@ -8198,150 +8150,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150786 + __obj83701 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152142 |gx[1]#_g152143_|)) + (let ((__tmp85057 |gx[1]#_g85058_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150786 - __tmp152142 + __obj83701 + __tmp85057 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152144 |gx[1]#_g152145_|)) + (let ((__tmp85059 |gx[1]#_g85060_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150786 - __tmp152144 + __obj83701 + __tmp85059 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152146 |gx[1]#_g152147_|)) + (let ((__tmp85061 |gx[1]#_g85062_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150786 - __tmp152146 + __obj83701 + __tmp85061 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152148 - (let ((__tmp152157 - (let ((__tmp152158 |gx[1]#_g152159_|)) + (let ((__tmp85063 + (let ((__tmp85072 + (let ((__tmp85073 |gx[1]#_g85074_|)) (declare (not safe)) - (cons 'id __tmp152158))) - (__tmp152149 - (let ((__tmp152154 - (let ((__tmp152155 |gx[1]#_g152156_|)) + (cons 'id __tmp85073))) + (__tmp85064 + (let ((__tmp85069 + (let ((__tmp85070 |gx[1]#_g85071_|)) (declare (not safe)) - (cons 'compile-top __tmp152155))) - (__tmp152150 - (let ((__tmp152151 - (let ((__tmp152152 |gx[1]#_g152153_|)) + (cons 'compile-top __tmp85070))) + (__tmp85065 + (let ((__tmp85066 + (let ((__tmp85067 |gx[1]#_g85068_|)) (declare (not safe)) - (cons 'e __tmp152152)))) + (cons 'e __tmp85067)))) (declare (not safe)) - (cons __tmp152151 '())))) + (cons __tmp85066 '())))) (declare (not safe)) - (cons __tmp152154 __tmp152150)))) + (cons __tmp85069 __tmp85065)))) (declare (not safe)) - (cons __tmp152157 __tmp152149)))) + (cons __tmp85072 __tmp85064)))) (declare (not safe)) (##unchecked-structure-set! - __obj150786 - __tmp152148 + __obj83701 + __tmp85063 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152160 - (let ((__tmp152169 - (let ((__tmp152170 |gx[1]#_g152171_|)) + (let ((__tmp85075 + (let ((__tmp85084 + (let ((__tmp85085 |gx[1]#_g85086_|)) (declare (not safe)) - (cons 'id __tmp152170))) - (__tmp152161 - (let ((__tmp152166 - (let ((__tmp152167 |gx[1]#_g152168_|)) + (cons 'id __tmp85085))) + (__tmp85076 + (let ((__tmp85081 + (let ((__tmp85082 |gx[1]#_g85083_|)) (declare (not safe)) - (cons 'compile-top __tmp152167))) - (__tmp152162 - (let ((__tmp152163 - (let ((__tmp152164 |gx[1]#_g152165_|)) + (cons 'compile-top __tmp85082))) + (__tmp85077 + (let ((__tmp85078 + (let ((__tmp85079 |gx[1]#_g85080_|)) (declare (not safe)) - (cons 'e __tmp152164)))) + (cons 'e __tmp85079)))) (declare (not safe)) - (cons __tmp152163 '())))) + (cons __tmp85078 '())))) (declare (not safe)) - (cons __tmp152166 __tmp152162)))) + (cons __tmp85081 __tmp85077)))) (declare (not safe)) - (cons __tmp152169 __tmp152161)))) + (cons __tmp85084 __tmp85076)))) (declare (not safe)) (##unchecked-structure-set! - __obj150786 - __tmp152160 + __obj83701 + __tmp85075 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152172 - (let ((__tmp152181 - (let ((__tmp152182 |gx[1]#_g152183_|)) + (let ((__tmp85087 + (let ((__tmp85096 + (let ((__tmp85097 |gx[1]#_g85098_|)) (declare (not safe)) - (cons 'id __tmp152182))) - (__tmp152173 - (let ((__tmp152178 - (let ((__tmp152179 |gx[1]#_g152180_|)) + (cons 'id __tmp85097))) + (__tmp85088 + (let ((__tmp85093 + (let ((__tmp85094 |gx[1]#_g85095_|)) (declare (not safe)) - (cons 'compile-top __tmp152179))) - (__tmp152174 - (let ((__tmp152175 - (let ((__tmp152176 |gx[1]#_g152177_|)) + (cons 'compile-top __tmp85094))) + (__tmp85089 + (let ((__tmp85090 + (let ((__tmp85091 |gx[1]#_g85092_|)) (declare (not safe)) - (cons 'e __tmp152176)))) + (cons 'e __tmp85091)))) (declare (not safe)) - (cons __tmp152175 '())))) + (cons __tmp85090 '())))) (declare (not safe)) - (cons __tmp152178 __tmp152174)))) + (cons __tmp85093 __tmp85089)))) (declare (not safe)) - (cons __tmp152181 __tmp152173)))) + (cons __tmp85096 __tmp85088)))) (declare (not safe)) (##unchecked-structure-set! - __obj150786 - __tmp152172 + __obj83701 + __tmp85087 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152184 - (let ((__tmp152193 - (let ((__tmp152194 |gx[1]#_g152195_|)) + (let ((__tmp85099 + (let ((__tmp85108 + (let ((__tmp85109 |gx[1]#_g85110_|)) (declare (not safe)) - (cons 'id __tmp152194))) - (__tmp152185 - (let ((__tmp152190 - (let ((__tmp152191 |gx[1]#_g152192_|)) + (cons 'id __tmp85109))) + (__tmp85100 + (let ((__tmp85105 + (let ((__tmp85106 |gx[1]#_g85107_|)) (declare (not safe)) - (cons 'compile-top __tmp152191))) - (__tmp152186 - (let ((__tmp152187 - (let ((__tmp152188 |gx[1]#_g152189_|)) + (cons 'compile-top __tmp85106))) + (__tmp85101 + (let ((__tmp85102 + (let ((__tmp85103 |gx[1]#_g85104_|)) (declare (not safe)) - (cons 'e __tmp152188)))) + (cons 'e __tmp85103)))) (declare (not safe)) - (cons __tmp152187 '())))) + (cons __tmp85102 '())))) (declare (not safe)) - (cons __tmp152190 __tmp152186)))) + (cons __tmp85105 __tmp85101)))) (declare (not safe)) - (cons __tmp152193 __tmp152185)))) + (cons __tmp85108 __tmp85100)))) (declare (not safe)) (##unchecked-structure-set! - __obj150786 - __tmp152184 + __obj83701 + __tmp85099 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150786)) + __obj83701)) (define |gx[:0:]#expression-form| - (let ((__obj150787 + (let ((__obj83702 (let () (declare (not safe)) (##structure @@ -8364,7 +8316,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150787 + __obj83702 'gx#expression-form::t '1 gerbil/core$$#class-type-info::t @@ -8372,7 +8324,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150787 + __obj83702 'expression-form '2 gerbil/core$$#class-type-info::t @@ -8380,26 +8332,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150787 + __obj83702 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152196 - (let ((__tmp152197 |gx[1]#_g152198_|)) + (let ((__tmp85111 + (let ((__tmp85112 |gx[1]#_g85113_|)) (declare (not safe)) - (cons __tmp152197 '())))) + (cons __tmp85112 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150787 - __tmp152196 + __obj83702 + __tmp85111 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150787 + __obj83702 '#t '5 gerbil/core$$#class-type-info::t @@ -8407,7 +8359,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150787 + __obj83702 '#f '6 gerbil/core$$#class-type-info::t @@ -8415,7 +8367,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150787 + __obj83702 '#f '7 gerbil/core$$#class-type-info::t @@ -8423,150 +8375,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150787 + __obj83702 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152199 |gx[1]#_g152200_|)) + (let ((__tmp85114 |gx[1]#_g85115_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150787 - __tmp152199 + __obj83702 + __tmp85114 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152201 |gx[1]#_g152202_|)) + (let ((__tmp85116 |gx[1]#_g85117_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150787 - __tmp152201 + __obj83702 + __tmp85116 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152203 |gx[1]#_g152204_|)) + (let ((__tmp85118 |gx[1]#_g85119_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150787 - __tmp152203 + __obj83702 + __tmp85118 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152205 - (let ((__tmp152214 - (let ((__tmp152215 |gx[1]#_g152216_|)) + (let ((__tmp85120 + (let ((__tmp85129 + (let ((__tmp85130 |gx[1]#_g85131_|)) (declare (not safe)) - (cons 'id __tmp152215))) - (__tmp152206 - (let ((__tmp152211 - (let ((__tmp152212 |gx[1]#_g152213_|)) + (cons 'id __tmp85130))) + (__tmp85121 + (let ((__tmp85126 + (let ((__tmp85127 |gx[1]#_g85128_|)) (declare (not safe)) - (cons 'compile-top __tmp152212))) - (__tmp152207 - (let ((__tmp152208 - (let ((__tmp152209 |gx[1]#_g152210_|)) + (cons 'compile-top __tmp85127))) + (__tmp85122 + (let ((__tmp85123 + (let ((__tmp85124 |gx[1]#_g85125_|)) (declare (not safe)) - (cons 'e __tmp152209)))) + (cons 'e __tmp85124)))) (declare (not safe)) - (cons __tmp152208 '())))) + (cons __tmp85123 '())))) (declare (not safe)) - (cons __tmp152211 __tmp152207)))) + (cons __tmp85126 __tmp85122)))) (declare (not safe)) - (cons __tmp152214 __tmp152206)))) + (cons __tmp85129 __tmp85121)))) (declare (not safe)) (##unchecked-structure-set! - __obj150787 - __tmp152205 + __obj83702 + __tmp85120 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152217 - (let ((__tmp152226 - (let ((__tmp152227 |gx[1]#_g152228_|)) + (let ((__tmp85132 + (let ((__tmp85141 + (let ((__tmp85142 |gx[1]#_g85143_|)) (declare (not safe)) - (cons 'id __tmp152227))) - (__tmp152218 - (let ((__tmp152223 - (let ((__tmp152224 |gx[1]#_g152225_|)) + (cons 'id __tmp85142))) + (__tmp85133 + (let ((__tmp85138 + (let ((__tmp85139 |gx[1]#_g85140_|)) (declare (not safe)) - (cons 'compile-top __tmp152224))) - (__tmp152219 - (let ((__tmp152220 - (let ((__tmp152221 |gx[1]#_g152222_|)) + (cons 'compile-top __tmp85139))) + (__tmp85134 + (let ((__tmp85135 + (let ((__tmp85136 |gx[1]#_g85137_|)) (declare (not safe)) - (cons 'e __tmp152221)))) + (cons 'e __tmp85136)))) (declare (not safe)) - (cons __tmp152220 '())))) + (cons __tmp85135 '())))) (declare (not safe)) - (cons __tmp152223 __tmp152219)))) + (cons __tmp85138 __tmp85134)))) (declare (not safe)) - (cons __tmp152226 __tmp152218)))) + (cons __tmp85141 __tmp85133)))) (declare (not safe)) (##unchecked-structure-set! - __obj150787 - __tmp152217 + __obj83702 + __tmp85132 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152229 - (let ((__tmp152238 - (let ((__tmp152239 |gx[1]#_g152240_|)) + (let ((__tmp85144 + (let ((__tmp85153 + (let ((__tmp85154 |gx[1]#_g85155_|)) (declare (not safe)) - (cons 'id __tmp152239))) - (__tmp152230 - (let ((__tmp152235 - (let ((__tmp152236 |gx[1]#_g152237_|)) + (cons 'id __tmp85154))) + (__tmp85145 + (let ((__tmp85150 + (let ((__tmp85151 |gx[1]#_g85152_|)) (declare (not safe)) - (cons 'compile-top __tmp152236))) - (__tmp152231 - (let ((__tmp152232 - (let ((__tmp152233 |gx[1]#_g152234_|)) + (cons 'compile-top __tmp85151))) + (__tmp85146 + (let ((__tmp85147 + (let ((__tmp85148 |gx[1]#_g85149_|)) (declare (not safe)) - (cons 'e __tmp152233)))) + (cons 'e __tmp85148)))) (declare (not safe)) - (cons __tmp152232 '())))) + (cons __tmp85147 '())))) (declare (not safe)) - (cons __tmp152235 __tmp152231)))) + (cons __tmp85150 __tmp85146)))) (declare (not safe)) - (cons __tmp152238 __tmp152230)))) + (cons __tmp85153 __tmp85145)))) (declare (not safe)) (##unchecked-structure-set! - __obj150787 - __tmp152229 + __obj83702 + __tmp85144 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152241 - (let ((__tmp152250 - (let ((__tmp152251 |gx[1]#_g152252_|)) + (let ((__tmp85156 + (let ((__tmp85165 + (let ((__tmp85166 |gx[1]#_g85167_|)) (declare (not safe)) - (cons 'id __tmp152251))) - (__tmp152242 - (let ((__tmp152247 - (let ((__tmp152248 |gx[1]#_g152249_|)) + (cons 'id __tmp85166))) + (__tmp85157 + (let ((__tmp85162 + (let ((__tmp85163 |gx[1]#_g85164_|)) (declare (not safe)) - (cons 'compile-top __tmp152248))) - (__tmp152243 - (let ((__tmp152244 - (let ((__tmp152245 |gx[1]#_g152246_|)) + (cons 'compile-top __tmp85163))) + (__tmp85158 + (let ((__tmp85159 + (let ((__tmp85160 |gx[1]#_g85161_|)) (declare (not safe)) - (cons 'e __tmp152245)))) + (cons 'e __tmp85160)))) (declare (not safe)) - (cons __tmp152244 '())))) + (cons __tmp85159 '())))) (declare (not safe)) - (cons __tmp152247 __tmp152243)))) + (cons __tmp85162 __tmp85158)))) (declare (not safe)) - (cons __tmp152250 __tmp152242)))) + (cons __tmp85165 __tmp85157)))) (declare (not safe)) (##unchecked-structure-set! - __obj150787 - __tmp152241 + __obj83702 + __tmp85156 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150787)) + __obj83702)) (define |gx[:0:]#special-form| - (let ((__obj150788 + (let ((__obj83703 (let () (declare (not safe)) (##structure @@ -8589,7 +8541,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150788 + __obj83703 'gx#special-form::t '1 gerbil/core$$#class-type-info::t @@ -8597,7 +8549,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150788 + __obj83703 'special-form '2 gerbil/core$$#class-type-info::t @@ -8605,26 +8557,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150788 + __obj83703 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152253 - (let ((__tmp152254 |gx[1]#_g152198_|)) + (let ((__tmp85168 + (let ((__tmp85169 |gx[1]#_g85113_|)) (declare (not safe)) - (cons __tmp152254 '())))) + (cons __tmp85169 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150788 - __tmp152253 + __obj83703 + __tmp85168 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150788 + __obj83703 '#t '5 gerbil/core$$#class-type-info::t @@ -8632,7 +8584,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150788 + __obj83703 '#f '6 gerbil/core$$#class-type-info::t @@ -8640,7 +8592,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150788 + __obj83703 '#f '7 gerbil/core$$#class-type-info::t @@ -8648,150 +8600,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150788 + __obj83703 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152255 |gx[1]#_g152256_|)) + (let ((__tmp85170 |gx[1]#_g85171_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150788 - __tmp152255 + __obj83703 + __tmp85170 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152257 |gx[1]#_g152258_|)) + (let ((__tmp85172 |gx[1]#_g85173_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150788 - __tmp152257 + __obj83703 + __tmp85172 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152259 |gx[1]#_g152260_|)) + (let ((__tmp85174 |gx[1]#_g85175_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150788 - __tmp152259 + __obj83703 + __tmp85174 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152261 - (let ((__tmp152270 - (let ((__tmp152271 |gx[1]#_g152272_|)) + (let ((__tmp85176 + (let ((__tmp85185 + (let ((__tmp85186 |gx[1]#_g85187_|)) (declare (not safe)) - (cons 'id __tmp152271))) - (__tmp152262 - (let ((__tmp152267 - (let ((__tmp152268 |gx[1]#_g152269_|)) + (cons 'id __tmp85186))) + (__tmp85177 + (let ((__tmp85182 + (let ((__tmp85183 |gx[1]#_g85184_|)) (declare (not safe)) - (cons 'compile-top __tmp152268))) - (__tmp152263 - (let ((__tmp152264 - (let ((__tmp152265 |gx[1]#_g152266_|)) + (cons 'compile-top __tmp85183))) + (__tmp85178 + (let ((__tmp85179 + (let ((__tmp85180 |gx[1]#_g85181_|)) (declare (not safe)) - (cons 'e __tmp152265)))) + (cons 'e __tmp85180)))) (declare (not safe)) - (cons __tmp152264 '())))) + (cons __tmp85179 '())))) (declare (not safe)) - (cons __tmp152267 __tmp152263)))) + (cons __tmp85182 __tmp85178)))) (declare (not safe)) - (cons __tmp152270 __tmp152262)))) + (cons __tmp85185 __tmp85177)))) (declare (not safe)) (##unchecked-structure-set! - __obj150788 - __tmp152261 + __obj83703 + __tmp85176 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152273 - (let ((__tmp152282 - (let ((__tmp152283 |gx[1]#_g152284_|)) + (let ((__tmp85188 + (let ((__tmp85197 + (let ((__tmp85198 |gx[1]#_g85199_|)) (declare (not safe)) - (cons 'id __tmp152283))) - (__tmp152274 - (let ((__tmp152279 - (let ((__tmp152280 |gx[1]#_g152281_|)) + (cons 'id __tmp85198))) + (__tmp85189 + (let ((__tmp85194 + (let ((__tmp85195 |gx[1]#_g85196_|)) (declare (not safe)) - (cons 'compile-top __tmp152280))) - (__tmp152275 - (let ((__tmp152276 - (let ((__tmp152277 |gx[1]#_g152278_|)) + (cons 'compile-top __tmp85195))) + (__tmp85190 + (let ((__tmp85191 + (let ((__tmp85192 |gx[1]#_g85193_|)) (declare (not safe)) - (cons 'e __tmp152277)))) + (cons 'e __tmp85192)))) (declare (not safe)) - (cons __tmp152276 '())))) + (cons __tmp85191 '())))) (declare (not safe)) - (cons __tmp152279 __tmp152275)))) + (cons __tmp85194 __tmp85190)))) (declare (not safe)) - (cons __tmp152282 __tmp152274)))) + (cons __tmp85197 __tmp85189)))) (declare (not safe)) (##unchecked-structure-set! - __obj150788 - __tmp152273 + __obj83703 + __tmp85188 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152285 - (let ((__tmp152294 - (let ((__tmp152295 |gx[1]#_g152296_|)) + (let ((__tmp85200 + (let ((__tmp85209 + (let ((__tmp85210 |gx[1]#_g85211_|)) (declare (not safe)) - (cons 'id __tmp152295))) - (__tmp152286 - (let ((__tmp152291 - (let ((__tmp152292 |gx[1]#_g152293_|)) + (cons 'id __tmp85210))) + (__tmp85201 + (let ((__tmp85206 + (let ((__tmp85207 |gx[1]#_g85208_|)) (declare (not safe)) - (cons 'compile-top __tmp152292))) - (__tmp152287 - (let ((__tmp152288 - (let ((__tmp152289 |gx[1]#_g152290_|)) + (cons 'compile-top __tmp85207))) + (__tmp85202 + (let ((__tmp85203 + (let ((__tmp85204 |gx[1]#_g85205_|)) (declare (not safe)) - (cons 'e __tmp152289)))) + (cons 'e __tmp85204)))) (declare (not safe)) - (cons __tmp152288 '())))) + (cons __tmp85203 '())))) (declare (not safe)) - (cons __tmp152291 __tmp152287)))) + (cons __tmp85206 __tmp85202)))) (declare (not safe)) - (cons __tmp152294 __tmp152286)))) + (cons __tmp85209 __tmp85201)))) (declare (not safe)) (##unchecked-structure-set! - __obj150788 - __tmp152285 + __obj83703 + __tmp85200 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152297 - (let ((__tmp152306 - (let ((__tmp152307 |gx[1]#_g152308_|)) + (let ((__tmp85212 + (let ((__tmp85221 + (let ((__tmp85222 |gx[1]#_g85223_|)) (declare (not safe)) - (cons 'id __tmp152307))) - (__tmp152298 - (let ((__tmp152303 - (let ((__tmp152304 |gx[1]#_g152305_|)) + (cons 'id __tmp85222))) + (__tmp85213 + (let ((__tmp85218 + (let ((__tmp85219 |gx[1]#_g85220_|)) (declare (not safe)) - (cons 'compile-top __tmp152304))) - (__tmp152299 - (let ((__tmp152300 - (let ((__tmp152301 |gx[1]#_g152302_|)) + (cons 'compile-top __tmp85219))) + (__tmp85214 + (let ((__tmp85215 + (let ((__tmp85216 |gx[1]#_g85217_|)) (declare (not safe)) - (cons 'e __tmp152301)))) + (cons 'e __tmp85216)))) (declare (not safe)) - (cons __tmp152300 '())))) + (cons __tmp85215 '())))) (declare (not safe)) - (cons __tmp152303 __tmp152299)))) + (cons __tmp85218 __tmp85214)))) (declare (not safe)) - (cons __tmp152306 __tmp152298)))) + (cons __tmp85221 __tmp85213)))) (declare (not safe)) (##unchecked-structure-set! - __obj150788 - __tmp152297 + __obj83703 + __tmp85212 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150788)) + __obj83703)) (define |gx[:0:]#definition-form| - (let ((__obj150789 + (let ((__obj83704 (let () (declare (not safe)) (##structure @@ -8814,7 +8766,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150789 + __obj83704 'gx#definition-form::t '1 gerbil/core$$#class-type-info::t @@ -8822,7 +8774,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150789 + __obj83704 'definition-form '2 gerbil/core$$#class-type-info::t @@ -8830,26 +8782,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150789 + __obj83704 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152309 - (let ((__tmp152310 |gx[1]#_g152311_|)) + (let ((__tmp85224 + (let ((__tmp85225 |gx[1]#_g85226_|)) (declare (not safe)) - (cons __tmp152310 '())))) + (cons __tmp85225 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150789 - __tmp152309 + __obj83704 + __tmp85224 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150789 + __obj83704 '#t '5 gerbil/core$$#class-type-info::t @@ -8857,7 +8809,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150789 + __obj83704 '#f '6 gerbil/core$$#class-type-info::t @@ -8865,7 +8817,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150789 + __obj83704 '#f '7 gerbil/core$$#class-type-info::t @@ -8873,150 +8825,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150789 + __obj83704 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152312 |gx[1]#_g152313_|)) + (let ((__tmp85227 |gx[1]#_g85228_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150789 - __tmp152312 + __obj83704 + __tmp85227 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152314 |gx[1]#_g152315_|)) + (let ((__tmp85229 |gx[1]#_g85230_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150789 - __tmp152314 + __obj83704 + __tmp85229 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152316 |gx[1]#_g152317_|)) + (let ((__tmp85231 |gx[1]#_g85232_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150789 - __tmp152316 + __obj83704 + __tmp85231 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152318 - (let ((__tmp152327 - (let ((__tmp152328 |gx[1]#_g152329_|)) + (let ((__tmp85233 + (let ((__tmp85242 + (let ((__tmp85243 |gx[1]#_g85244_|)) (declare (not safe)) - (cons 'id __tmp152328))) - (__tmp152319 - (let ((__tmp152324 - (let ((__tmp152325 |gx[1]#_g152326_|)) + (cons 'id __tmp85243))) + (__tmp85234 + (let ((__tmp85239 + (let ((__tmp85240 |gx[1]#_g85241_|)) (declare (not safe)) - (cons 'compile-top __tmp152325))) - (__tmp152320 - (let ((__tmp152321 - (let ((__tmp152322 |gx[1]#_g152323_|)) + (cons 'compile-top __tmp85240))) + (__tmp85235 + (let ((__tmp85236 + (let ((__tmp85237 |gx[1]#_g85238_|)) (declare (not safe)) - (cons 'e __tmp152322)))) + (cons 'e __tmp85237)))) (declare (not safe)) - (cons __tmp152321 '())))) + (cons __tmp85236 '())))) (declare (not safe)) - (cons __tmp152324 __tmp152320)))) + (cons __tmp85239 __tmp85235)))) (declare (not safe)) - (cons __tmp152327 __tmp152319)))) + (cons __tmp85242 __tmp85234)))) (declare (not safe)) (##unchecked-structure-set! - __obj150789 - __tmp152318 + __obj83704 + __tmp85233 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152330 - (let ((__tmp152339 - (let ((__tmp152340 |gx[1]#_g152341_|)) + (let ((__tmp85245 + (let ((__tmp85254 + (let ((__tmp85255 |gx[1]#_g85256_|)) (declare (not safe)) - (cons 'id __tmp152340))) - (__tmp152331 - (let ((__tmp152336 - (let ((__tmp152337 |gx[1]#_g152338_|)) + (cons 'id __tmp85255))) + (__tmp85246 + (let ((__tmp85251 + (let ((__tmp85252 |gx[1]#_g85253_|)) (declare (not safe)) - (cons 'compile-top __tmp152337))) - (__tmp152332 - (let ((__tmp152333 - (let ((__tmp152334 |gx[1]#_g152335_|)) + (cons 'compile-top __tmp85252))) + (__tmp85247 + (let ((__tmp85248 + (let ((__tmp85249 |gx[1]#_g85250_|)) (declare (not safe)) - (cons 'e __tmp152334)))) + (cons 'e __tmp85249)))) (declare (not safe)) - (cons __tmp152333 '())))) + (cons __tmp85248 '())))) (declare (not safe)) - (cons __tmp152336 __tmp152332)))) + (cons __tmp85251 __tmp85247)))) (declare (not safe)) - (cons __tmp152339 __tmp152331)))) + (cons __tmp85254 __tmp85246)))) (declare (not safe)) (##unchecked-structure-set! - __obj150789 - __tmp152330 + __obj83704 + __tmp85245 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152342 - (let ((__tmp152351 - (let ((__tmp152352 |gx[1]#_g152353_|)) + (let ((__tmp85257 + (let ((__tmp85266 + (let ((__tmp85267 |gx[1]#_g85268_|)) (declare (not safe)) - (cons 'id __tmp152352))) - (__tmp152343 - (let ((__tmp152348 - (let ((__tmp152349 |gx[1]#_g152350_|)) + (cons 'id __tmp85267))) + (__tmp85258 + (let ((__tmp85263 + (let ((__tmp85264 |gx[1]#_g85265_|)) (declare (not safe)) - (cons 'compile-top __tmp152349))) - (__tmp152344 - (let ((__tmp152345 - (let ((__tmp152346 |gx[1]#_g152347_|)) + (cons 'compile-top __tmp85264))) + (__tmp85259 + (let ((__tmp85260 + (let ((__tmp85261 |gx[1]#_g85262_|)) (declare (not safe)) - (cons 'e __tmp152346)))) + (cons 'e __tmp85261)))) (declare (not safe)) - (cons __tmp152345 '())))) + (cons __tmp85260 '())))) (declare (not safe)) - (cons __tmp152348 __tmp152344)))) + (cons __tmp85263 __tmp85259)))) (declare (not safe)) - (cons __tmp152351 __tmp152343)))) + (cons __tmp85266 __tmp85258)))) (declare (not safe)) (##unchecked-structure-set! - __obj150789 - __tmp152342 + __obj83704 + __tmp85257 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152354 - (let ((__tmp152363 - (let ((__tmp152364 |gx[1]#_g152365_|)) + (let ((__tmp85269 + (let ((__tmp85278 + (let ((__tmp85279 |gx[1]#_g85280_|)) (declare (not safe)) - (cons 'id __tmp152364))) - (__tmp152355 - (let ((__tmp152360 - (let ((__tmp152361 |gx[1]#_g152362_|)) + (cons 'id __tmp85279))) + (__tmp85270 + (let ((__tmp85275 + (let ((__tmp85276 |gx[1]#_g85277_|)) (declare (not safe)) - (cons 'compile-top __tmp152361))) - (__tmp152356 - (let ((__tmp152357 - (let ((__tmp152358 |gx[1]#_g152359_|)) + (cons 'compile-top __tmp85276))) + (__tmp85271 + (let ((__tmp85272 + (let ((__tmp85273 |gx[1]#_g85274_|)) (declare (not safe)) - (cons 'e __tmp152358)))) + (cons 'e __tmp85273)))) (declare (not safe)) - (cons __tmp152357 '())))) + (cons __tmp85272 '())))) (declare (not safe)) - (cons __tmp152360 __tmp152356)))) + (cons __tmp85275 __tmp85271)))) (declare (not safe)) - (cons __tmp152363 __tmp152355)))) + (cons __tmp85278 __tmp85270)))) (declare (not safe)) (##unchecked-structure-set! - __obj150789 - __tmp152354 + __obj83704 + __tmp85269 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150789)) + __obj83704)) (define |gx[:0:]#top-special-form| - (let ((__obj150790 + (let ((__obj83705 (let () (declare (not safe)) (##structure @@ -9039,7 +8991,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150790 + __obj83705 'gx#top-special-form::t '1 gerbil/core$$#class-type-info::t @@ -9047,7 +8999,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150790 + __obj83705 'top-special-form '2 gerbil/core$$#class-type-info::t @@ -9055,26 +9007,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150790 + __obj83705 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152366 - (let ((__tmp152367 |gx[1]#_g152311_|)) + (let ((__tmp85281 + (let ((__tmp85282 |gx[1]#_g85226_|)) (declare (not safe)) - (cons __tmp152367 '())))) + (cons __tmp85282 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150790 - __tmp152366 + __obj83705 + __tmp85281 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150790 + __obj83705 '#t '5 gerbil/core$$#class-type-info::t @@ -9082,7 +9034,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150790 + __obj83705 '#f '6 gerbil/core$$#class-type-info::t @@ -9090,7 +9042,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150790 + __obj83705 '#f '7 gerbil/core$$#class-type-info::t @@ -9098,150 +9050,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150790 + __obj83705 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152368 |gx[1]#_g152369_|)) + (let ((__tmp85283 |gx[1]#_g85284_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150790 - __tmp152368 + __obj83705 + __tmp85283 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152370 |gx[1]#_g152371_|)) + (let ((__tmp85285 |gx[1]#_g85286_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150790 - __tmp152370 + __obj83705 + __tmp85285 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152372 |gx[1]#_g152373_|)) + (let ((__tmp85287 |gx[1]#_g85288_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150790 - __tmp152372 + __obj83705 + __tmp85287 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152374 - (let ((__tmp152383 - (let ((__tmp152384 |gx[1]#_g152385_|)) + (let ((__tmp85289 + (let ((__tmp85298 + (let ((__tmp85299 |gx[1]#_g85300_|)) (declare (not safe)) - (cons 'id __tmp152384))) - (__tmp152375 - (let ((__tmp152380 - (let ((__tmp152381 |gx[1]#_g152382_|)) + (cons 'id __tmp85299))) + (__tmp85290 + (let ((__tmp85295 + (let ((__tmp85296 |gx[1]#_g85297_|)) (declare (not safe)) - (cons 'compile-top __tmp152381))) - (__tmp152376 - (let ((__tmp152377 - (let ((__tmp152378 |gx[1]#_g152379_|)) + (cons 'compile-top __tmp85296))) + (__tmp85291 + (let ((__tmp85292 + (let ((__tmp85293 |gx[1]#_g85294_|)) (declare (not safe)) - (cons 'e __tmp152378)))) + (cons 'e __tmp85293)))) (declare (not safe)) - (cons __tmp152377 '())))) + (cons __tmp85292 '())))) (declare (not safe)) - (cons __tmp152380 __tmp152376)))) + (cons __tmp85295 __tmp85291)))) (declare (not safe)) - (cons __tmp152383 __tmp152375)))) + (cons __tmp85298 __tmp85290)))) (declare (not safe)) (##unchecked-structure-set! - __obj150790 - __tmp152374 + __obj83705 + __tmp85289 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152386 - (let ((__tmp152395 - (let ((__tmp152396 |gx[1]#_g152397_|)) + (let ((__tmp85301 + (let ((__tmp85310 + (let ((__tmp85311 |gx[1]#_g85312_|)) (declare (not safe)) - (cons 'id __tmp152396))) - (__tmp152387 - (let ((__tmp152392 - (let ((__tmp152393 |gx[1]#_g152394_|)) + (cons 'id __tmp85311))) + (__tmp85302 + (let ((__tmp85307 + (let ((__tmp85308 |gx[1]#_g85309_|)) (declare (not safe)) - (cons 'compile-top __tmp152393))) - (__tmp152388 - (let ((__tmp152389 - (let ((__tmp152390 |gx[1]#_g152391_|)) + (cons 'compile-top __tmp85308))) + (__tmp85303 + (let ((__tmp85304 + (let ((__tmp85305 |gx[1]#_g85306_|)) (declare (not safe)) - (cons 'e __tmp152390)))) + (cons 'e __tmp85305)))) (declare (not safe)) - (cons __tmp152389 '())))) + (cons __tmp85304 '())))) (declare (not safe)) - (cons __tmp152392 __tmp152388)))) + (cons __tmp85307 __tmp85303)))) (declare (not safe)) - (cons __tmp152395 __tmp152387)))) + (cons __tmp85310 __tmp85302)))) (declare (not safe)) (##unchecked-structure-set! - __obj150790 - __tmp152386 + __obj83705 + __tmp85301 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152398 - (let ((__tmp152407 - (let ((__tmp152408 |gx[1]#_g152409_|)) + (let ((__tmp85313 + (let ((__tmp85322 + (let ((__tmp85323 |gx[1]#_g85324_|)) (declare (not safe)) - (cons 'id __tmp152408))) - (__tmp152399 - (let ((__tmp152404 - (let ((__tmp152405 |gx[1]#_g152406_|)) + (cons 'id __tmp85323))) + (__tmp85314 + (let ((__tmp85319 + (let ((__tmp85320 |gx[1]#_g85321_|)) (declare (not safe)) - (cons 'compile-top __tmp152405))) - (__tmp152400 - (let ((__tmp152401 - (let ((__tmp152402 |gx[1]#_g152403_|)) + (cons 'compile-top __tmp85320))) + (__tmp85315 + (let ((__tmp85316 + (let ((__tmp85317 |gx[1]#_g85318_|)) (declare (not safe)) - (cons 'e __tmp152402)))) + (cons 'e __tmp85317)))) (declare (not safe)) - (cons __tmp152401 '())))) + (cons __tmp85316 '())))) (declare (not safe)) - (cons __tmp152404 __tmp152400)))) + (cons __tmp85319 __tmp85315)))) (declare (not safe)) - (cons __tmp152407 __tmp152399)))) + (cons __tmp85322 __tmp85314)))) (declare (not safe)) (##unchecked-structure-set! - __obj150790 - __tmp152398 + __obj83705 + __tmp85313 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152410 - (let ((__tmp152419 - (let ((__tmp152420 |gx[1]#_g152421_|)) + (let ((__tmp85325 + (let ((__tmp85334 + (let ((__tmp85335 |gx[1]#_g85336_|)) (declare (not safe)) - (cons 'id __tmp152420))) - (__tmp152411 - (let ((__tmp152416 - (let ((__tmp152417 |gx[1]#_g152418_|)) + (cons 'id __tmp85335))) + (__tmp85326 + (let ((__tmp85331 + (let ((__tmp85332 |gx[1]#_g85333_|)) (declare (not safe)) - (cons 'compile-top __tmp152417))) - (__tmp152412 - (let ((__tmp152413 - (let ((__tmp152414 |gx[1]#_g152415_|)) + (cons 'compile-top __tmp85332))) + (__tmp85327 + (let ((__tmp85328 + (let ((__tmp85329 |gx[1]#_g85330_|)) (declare (not safe)) - (cons 'e __tmp152414)))) + (cons 'e __tmp85329)))) (declare (not safe)) - (cons __tmp152413 '())))) + (cons __tmp85328 '())))) (declare (not safe)) - (cons __tmp152416 __tmp152412)))) + (cons __tmp85331 __tmp85327)))) (declare (not safe)) - (cons __tmp152419 __tmp152411)))) + (cons __tmp85334 __tmp85326)))) (declare (not safe)) (##unchecked-structure-set! - __obj150790 - __tmp152410 + __obj83705 + __tmp85325 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150790)) + __obj83705)) (define |gx[:0:]#module-special-form| - (let ((__obj150791 + (let ((__obj83706 (let () (declare (not safe)) (##structure @@ -9264,7 +9216,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150791 + __obj83706 'gx#module-special-form::t '1 gerbil/core$$#class-type-info::t @@ -9272,7 +9224,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150791 + __obj83706 'module-special-form '2 gerbil/core$$#class-type-info::t @@ -9280,26 +9232,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150791 + __obj83706 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152422 - (let ((__tmp152423 |gx[1]#_g152424_|)) + (let ((__tmp85337 + (let ((__tmp85338 |gx[1]#_g85339_|)) (declare (not safe)) - (cons __tmp152423 '())))) + (cons __tmp85338 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150791 - __tmp152422 + __obj83706 + __tmp85337 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150791 + __obj83706 '#t '5 gerbil/core$$#class-type-info::t @@ -9307,7 +9259,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150791 + __obj83706 '#f '6 gerbil/core$$#class-type-info::t @@ -9315,7 +9267,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150791 + __obj83706 '#f '7 gerbil/core$$#class-type-info::t @@ -9323,150 +9275,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150791 + __obj83706 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152425 |gx[1]#_g152426_|)) + (let ((__tmp85340 |gx[1]#_g85341_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150791 - __tmp152425 + __obj83706 + __tmp85340 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152427 |gx[1]#_g152428_|)) + (let ((__tmp85342 |gx[1]#_g85343_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150791 - __tmp152427 + __obj83706 + __tmp85342 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152429 |gx[1]#_g152430_|)) + (let ((__tmp85344 |gx[1]#_g85345_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150791 - __tmp152429 + __obj83706 + __tmp85344 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152431 - (let ((__tmp152440 - (let ((__tmp152441 |gx[1]#_g152442_|)) + (let ((__tmp85346 + (let ((__tmp85355 + (let ((__tmp85356 |gx[1]#_g85357_|)) (declare (not safe)) - (cons 'id __tmp152441))) - (__tmp152432 - (let ((__tmp152437 - (let ((__tmp152438 |gx[1]#_g152439_|)) + (cons 'id __tmp85356))) + (__tmp85347 + (let ((__tmp85352 + (let ((__tmp85353 |gx[1]#_g85354_|)) (declare (not safe)) - (cons 'compile-top __tmp152438))) - (__tmp152433 - (let ((__tmp152434 - (let ((__tmp152435 |gx[1]#_g152436_|)) + (cons 'compile-top __tmp85353))) + (__tmp85348 + (let ((__tmp85349 + (let ((__tmp85350 |gx[1]#_g85351_|)) (declare (not safe)) - (cons 'e __tmp152435)))) + (cons 'e __tmp85350)))) (declare (not safe)) - (cons __tmp152434 '())))) + (cons __tmp85349 '())))) (declare (not safe)) - (cons __tmp152437 __tmp152433)))) + (cons __tmp85352 __tmp85348)))) (declare (not safe)) - (cons __tmp152440 __tmp152432)))) + (cons __tmp85355 __tmp85347)))) (declare (not safe)) (##unchecked-structure-set! - __obj150791 - __tmp152431 + __obj83706 + __tmp85346 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152443 - (let ((__tmp152452 - (let ((__tmp152453 |gx[1]#_g152454_|)) + (let ((__tmp85358 + (let ((__tmp85367 + (let ((__tmp85368 |gx[1]#_g85369_|)) (declare (not safe)) - (cons 'id __tmp152453))) - (__tmp152444 - (let ((__tmp152449 - (let ((__tmp152450 |gx[1]#_g152451_|)) + (cons 'id __tmp85368))) + (__tmp85359 + (let ((__tmp85364 + (let ((__tmp85365 |gx[1]#_g85366_|)) (declare (not safe)) - (cons 'compile-top __tmp152450))) - (__tmp152445 - (let ((__tmp152446 - (let ((__tmp152447 |gx[1]#_g152448_|)) + (cons 'compile-top __tmp85365))) + (__tmp85360 + (let ((__tmp85361 + (let ((__tmp85362 |gx[1]#_g85363_|)) (declare (not safe)) - (cons 'e __tmp152447)))) + (cons 'e __tmp85362)))) (declare (not safe)) - (cons __tmp152446 '())))) + (cons __tmp85361 '())))) (declare (not safe)) - (cons __tmp152449 __tmp152445)))) + (cons __tmp85364 __tmp85360)))) (declare (not safe)) - (cons __tmp152452 __tmp152444)))) + (cons __tmp85367 __tmp85359)))) (declare (not safe)) (##unchecked-structure-set! - __obj150791 - __tmp152443 + __obj83706 + __tmp85358 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152455 - (let ((__tmp152464 - (let ((__tmp152465 |gx[1]#_g152466_|)) + (let ((__tmp85370 + (let ((__tmp85379 + (let ((__tmp85380 |gx[1]#_g85381_|)) (declare (not safe)) - (cons 'id __tmp152465))) - (__tmp152456 - (let ((__tmp152461 - (let ((__tmp152462 |gx[1]#_g152463_|)) + (cons 'id __tmp85380))) + (__tmp85371 + (let ((__tmp85376 + (let ((__tmp85377 |gx[1]#_g85378_|)) (declare (not safe)) - (cons 'compile-top __tmp152462))) - (__tmp152457 - (let ((__tmp152458 - (let ((__tmp152459 |gx[1]#_g152460_|)) + (cons 'compile-top __tmp85377))) + (__tmp85372 + (let ((__tmp85373 + (let ((__tmp85374 |gx[1]#_g85375_|)) (declare (not safe)) - (cons 'e __tmp152459)))) + (cons 'e __tmp85374)))) (declare (not safe)) - (cons __tmp152458 '())))) + (cons __tmp85373 '())))) (declare (not safe)) - (cons __tmp152461 __tmp152457)))) + (cons __tmp85376 __tmp85372)))) (declare (not safe)) - (cons __tmp152464 __tmp152456)))) + (cons __tmp85379 __tmp85371)))) (declare (not safe)) (##unchecked-structure-set! - __obj150791 - __tmp152455 + __obj83706 + __tmp85370 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152467 - (let ((__tmp152476 - (let ((__tmp152477 |gx[1]#_g152478_|)) + (let ((__tmp85382 + (let ((__tmp85391 + (let ((__tmp85392 |gx[1]#_g85393_|)) (declare (not safe)) - (cons 'id __tmp152477))) - (__tmp152468 - (let ((__tmp152473 - (let ((__tmp152474 |gx[1]#_g152475_|)) + (cons 'id __tmp85392))) + (__tmp85383 + (let ((__tmp85388 + (let ((__tmp85389 |gx[1]#_g85390_|)) (declare (not safe)) - (cons 'compile-top __tmp152474))) - (__tmp152469 - (let ((__tmp152470 - (let ((__tmp152471 |gx[1]#_g152472_|)) + (cons 'compile-top __tmp85389))) + (__tmp85384 + (let ((__tmp85385 + (let ((__tmp85386 |gx[1]#_g85387_|)) (declare (not safe)) - (cons 'e __tmp152471)))) + (cons 'e __tmp85386)))) (declare (not safe)) - (cons __tmp152470 '())))) + (cons __tmp85385 '())))) (declare (not safe)) - (cons __tmp152473 __tmp152469)))) + (cons __tmp85388 __tmp85384)))) (declare (not safe)) - (cons __tmp152476 __tmp152468)))) + (cons __tmp85391 __tmp85383)))) (declare (not safe)) (##unchecked-structure-set! - __obj150791 - __tmp152467 + __obj83706 + __tmp85382 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150791)) + __obj83706)) (define |gx[:0:]#feature-expander| - (let ((__obj150792 + (let ((__obj83707 (let () (declare (not safe)) (##structure @@ -9489,7 +9441,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150792 + __obj83707 'gx#feature-expander::t '1 gerbil/core$$#class-type-info::t @@ -9497,7 +9449,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150792 + __obj83707 'feature-expander '2 gerbil/core$$#class-type-info::t @@ -9505,26 +9457,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150792 + __obj83707 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152479 - (let ((__tmp152480 |gx[1]#_g152141_|)) + (let ((__tmp85394 + (let ((__tmp85395 |gx[1]#_g85056_|)) (declare (not safe)) - (cons __tmp152480 '())))) + (cons __tmp85395 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150792 - __tmp152479 + __obj83707 + __tmp85394 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150792 + __obj83707 '#t '5 gerbil/core$$#class-type-info::t @@ -9532,7 +9484,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150792 + __obj83707 '#f '6 gerbil/core$$#class-type-info::t @@ -9540,7 +9492,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150792 + __obj83707 '#f '7 gerbil/core$$#class-type-info::t @@ -9548,94 +9500,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150792 + __obj83707 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152481 |gx[1]#_g152482_|)) + (let ((__tmp85396 |gx[1]#_g85397_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150792 - __tmp152481 + __obj83707 + __tmp85396 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152483 |gx[1]#_g152484_|)) + (let ((__tmp85398 |gx[1]#_g85399_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150792 - __tmp152483 + __obj83707 + __tmp85398 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152485 |gx[1]#_g152486_|)) + (let ((__tmp85400 |gx[1]#_g85401_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150792 - __tmp152485 + __obj83707 + __tmp85400 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152487 - (let ((__tmp152488 - (let ((__tmp152489 |gx[1]#_g152490_|)) + (let ((__tmp85402 + (let ((__tmp85403 + (let ((__tmp85404 |gx[1]#_g85405_|)) (declare (not safe)) - (cons 'e __tmp152489)))) + (cons 'e __tmp85404)))) (declare (not safe)) - (cons __tmp152488 '())))) + (cons __tmp85403 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150792 - __tmp152487 + __obj83707 + __tmp85402 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152491 - (let ((__tmp152492 - (let ((__tmp152493 |gx[1]#_g152494_|)) + (let ((__tmp85406 + (let ((__tmp85407 + (let ((__tmp85408 |gx[1]#_g85409_|)) (declare (not safe)) - (cons 'e __tmp152493)))) + (cons 'e __tmp85408)))) (declare (not safe)) - (cons __tmp152492 '())))) + (cons __tmp85407 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150792 - __tmp152491 + __obj83707 + __tmp85406 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152495 - (let ((__tmp152496 - (let ((__tmp152497 |gx[1]#_g152498_|)) + (let ((__tmp85410 + (let ((__tmp85411 + (let ((__tmp85412 |gx[1]#_g85413_|)) (declare (not safe)) - (cons 'e __tmp152497)))) + (cons 'e __tmp85412)))) (declare (not safe)) - (cons __tmp152496 '())))) + (cons __tmp85411 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150792 - __tmp152495 + __obj83707 + __tmp85410 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152499 - (let ((__tmp152500 - (let ((__tmp152501 |gx[1]#_g152502_|)) + (let ((__tmp85414 + (let ((__tmp85415 + (let ((__tmp85416 |gx[1]#_g85417_|)) (declare (not safe)) - (cons 'e __tmp152501)))) + (cons 'e __tmp85416)))) (declare (not safe)) - (cons __tmp152500 '())))) + (cons __tmp85415 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150792 - __tmp152499 + __obj83707 + __tmp85414 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150792)) + __obj83707)) (define |gx[:0:]#private-feature-expander| - (let ((__obj150793 + (let ((__obj83708 (let () (declare (not safe)) (##structure @@ -9658,7 +9610,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150793 + __obj83708 'gx#private-feature-expander::t '1 gerbil/core$$#class-type-info::t @@ -9666,7 +9618,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150793 + __obj83708 'private-feature-expander '2 gerbil/core$$#class-type-info::t @@ -9674,26 +9626,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150793 + __obj83708 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152503 - (let ((__tmp152504 |gx[1]#_g152505_|)) + (let ((__tmp85418 + (let ((__tmp85419 |gx[1]#_g85420_|)) (declare (not safe)) - (cons __tmp152504 '())))) + (cons __tmp85419 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150793 - __tmp152503 + __obj83708 + __tmp85418 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150793 + __obj83708 '#t '5 gerbil/core$$#class-type-info::t @@ -9701,7 +9653,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150793 + __obj83708 '#f '6 gerbil/core$$#class-type-info::t @@ -9709,7 +9661,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150793 + __obj83708 '#f '7 gerbil/core$$#class-type-info::t @@ -9717,94 +9669,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150793 + __obj83708 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152506 |gx[1]#_g152507_|)) + (let ((__tmp85421 |gx[1]#_g85422_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150793 - __tmp152506 + __obj83708 + __tmp85421 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152508 |gx[1]#_g152509_|)) + (let ((__tmp85423 |gx[1]#_g85424_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150793 - __tmp152508 + __obj83708 + __tmp85423 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152510 |gx[1]#_g152511_|)) + (let ((__tmp85425 |gx[1]#_g85426_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150793 - __tmp152510 + __obj83708 + __tmp85425 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152512 - (let ((__tmp152513 - (let ((__tmp152514 |gx[1]#_g152515_|)) + (let ((__tmp85427 + (let ((__tmp85428 + (let ((__tmp85429 |gx[1]#_g85430_|)) (declare (not safe)) - (cons 'e __tmp152514)))) + (cons 'e __tmp85429)))) (declare (not safe)) - (cons __tmp152513 '())))) + (cons __tmp85428 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150793 - __tmp152512 + __obj83708 + __tmp85427 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152516 - (let ((__tmp152517 - (let ((__tmp152518 |gx[1]#_g152519_|)) + (let ((__tmp85431 + (let ((__tmp85432 + (let ((__tmp85433 |gx[1]#_g85434_|)) (declare (not safe)) - (cons 'e __tmp152518)))) + (cons 'e __tmp85433)))) (declare (not safe)) - (cons __tmp152517 '())))) + (cons __tmp85432 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150793 - __tmp152516 + __obj83708 + __tmp85431 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152520 - (let ((__tmp152521 - (let ((__tmp152522 |gx[1]#_g152523_|)) + (let ((__tmp85435 + (let ((__tmp85436 + (let ((__tmp85437 |gx[1]#_g85438_|)) (declare (not safe)) - (cons 'e __tmp152522)))) + (cons 'e __tmp85437)))) (declare (not safe)) - (cons __tmp152521 '())))) + (cons __tmp85436 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150793 - __tmp152520 + __obj83708 + __tmp85435 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152524 - (let ((__tmp152525 - (let ((__tmp152526 |gx[1]#_g152527_|)) + (let ((__tmp85439 + (let ((__tmp85440 + (let ((__tmp85441 |gx[1]#_g85442_|)) (declare (not safe)) - (cons 'e __tmp152526)))) + (cons 'e __tmp85441)))) (declare (not safe)) - (cons __tmp152525 '())))) + (cons __tmp85440 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150793 - __tmp152524 + __obj83708 + __tmp85439 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150793)) + __obj83708)) (define |gx[:0:]#reserved-expander| - (let ((__obj150794 + (let ((__obj83709 (let () (declare (not safe)) (##structure @@ -9827,7 +9779,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150794 + __obj83709 'gx#reserved-expander::t '1 gerbil/core$$#class-type-info::t @@ -9835,7 +9787,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150794 + __obj83709 'reserved-expander '2 gerbil/core$$#class-type-info::t @@ -9843,26 +9795,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150794 + __obj83709 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152528 - (let ((__tmp152529 |gx[1]#_g152141_|)) + (let ((__tmp85443 + (let ((__tmp85444 |gx[1]#_g85056_|)) (declare (not safe)) - (cons __tmp152529 '())))) + (cons __tmp85444 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150794 - __tmp152528 + __obj83709 + __tmp85443 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150794 + __obj83709 '#t '5 gerbil/core$$#class-type-info::t @@ -9870,7 +9822,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150794 + __obj83709 '#f '6 gerbil/core$$#class-type-info::t @@ -9878,7 +9830,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150794 + __obj83709 '#f '7 gerbil/core$$#class-type-info::t @@ -9886,94 +9838,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150794 + __obj83709 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152530 |gx[1]#_g152531_|)) + (let ((__tmp85445 |gx[1]#_g85446_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150794 - __tmp152530 + __obj83709 + __tmp85445 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152532 |gx[1]#_g152533_|)) + (let ((__tmp85447 |gx[1]#_g85448_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150794 - __tmp152532 + __obj83709 + __tmp85447 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152534 |gx[1]#_g152535_|)) + (let ((__tmp85449 |gx[1]#_g85450_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150794 - __tmp152534 + __obj83709 + __tmp85449 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152536 - (let ((__tmp152537 - (let ((__tmp152538 |gx[1]#_g152539_|)) + (let ((__tmp85451 + (let ((__tmp85452 + (let ((__tmp85453 |gx[1]#_g85454_|)) (declare (not safe)) - (cons 'e __tmp152538)))) + (cons 'e __tmp85453)))) (declare (not safe)) - (cons __tmp152537 '())))) + (cons __tmp85452 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150794 - __tmp152536 + __obj83709 + __tmp85451 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152540 - (let ((__tmp152541 - (let ((__tmp152542 |gx[1]#_g152543_|)) + (let ((__tmp85455 + (let ((__tmp85456 + (let ((__tmp85457 |gx[1]#_g85458_|)) (declare (not safe)) - (cons 'e __tmp152542)))) + (cons 'e __tmp85457)))) (declare (not safe)) - (cons __tmp152541 '())))) + (cons __tmp85456 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150794 - __tmp152540 + __obj83709 + __tmp85455 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152544 - (let ((__tmp152545 - (let ((__tmp152546 |gx[1]#_g152547_|)) + (let ((__tmp85459 + (let ((__tmp85460 + (let ((__tmp85461 |gx[1]#_g85462_|)) (declare (not safe)) - (cons 'e __tmp152546)))) + (cons 'e __tmp85461)))) (declare (not safe)) - (cons __tmp152545 '())))) + (cons __tmp85460 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150794 - __tmp152544 + __obj83709 + __tmp85459 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152548 - (let ((__tmp152549 - (let ((__tmp152550 |gx[1]#_g152551_|)) + (let ((__tmp85463 + (let ((__tmp85464 + (let ((__tmp85465 |gx[1]#_g85466_|)) (declare (not safe)) - (cons 'e __tmp152550)))) + (cons 'e __tmp85465)))) (declare (not safe)) - (cons __tmp152549 '())))) + (cons __tmp85464 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150794 - __tmp152548 + __obj83709 + __tmp85463 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150794)) + __obj83709)) (define |gx[:0:]#macro-expander| - (let ((__obj150795 + (let ((__obj83710 (let () (declare (not safe)) (##structure @@ -9996,7 +9948,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150795 + __obj83710 'gx#core-macro::t '1 gerbil/core$$#class-type-info::t @@ -10004,7 +9956,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150795 + __obj83710 'macro-expander '2 gerbil/core$$#class-type-info::t @@ -10012,26 +9964,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150795 + __obj83710 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152552 - (let ((__tmp152553 |gx[1]#_g152141_|)) + (let ((__tmp85467 + (let ((__tmp85468 |gx[1]#_g85056_|)) (declare (not safe)) - (cons __tmp152553 '())))) + (cons __tmp85468 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150795 - __tmp152552 + __obj83710 + __tmp85467 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150795 + __obj83710 '#t '5 gerbil/core$$#class-type-info::t @@ -10039,7 +9991,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150795 + __obj83710 '#f '6 gerbil/core$$#class-type-info::t @@ -10047,7 +9999,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150795 + __obj83710 '#f '7 gerbil/core$$#class-type-info::t @@ -10055,94 +10007,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150795 + __obj83710 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152554 |gx[1]#_g152555_|)) + (let ((__tmp85469 |gx[1]#_g85470_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150795 - __tmp152554 + __obj83710 + __tmp85469 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152556 |gx[1]#_g152557_|)) + (let ((__tmp85471 |gx[1]#_g85472_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150795 - __tmp152556 + __obj83710 + __tmp85471 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152558 |gx[1]#_g152559_|)) + (let ((__tmp85473 |gx[1]#_g85474_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150795 - __tmp152558 + __obj83710 + __tmp85473 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152560 - (let ((__tmp152561 - (let ((__tmp152562 |gx[1]#_g152563_|)) + (let ((__tmp85475 + (let ((__tmp85476 + (let ((__tmp85477 |gx[1]#_g85478_|)) (declare (not safe)) - (cons 'e __tmp152562)))) + (cons 'e __tmp85477)))) (declare (not safe)) - (cons __tmp152561 '())))) + (cons __tmp85476 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150795 - __tmp152560 + __obj83710 + __tmp85475 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152564 - (let ((__tmp152565 - (let ((__tmp152566 |gx[1]#_g152567_|)) + (let ((__tmp85479 + (let ((__tmp85480 + (let ((__tmp85481 |gx[1]#_g85482_|)) (declare (not safe)) - (cons 'e __tmp152566)))) + (cons 'e __tmp85481)))) (declare (not safe)) - (cons __tmp152565 '())))) + (cons __tmp85480 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150795 - __tmp152564 + __obj83710 + __tmp85479 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152568 - (let ((__tmp152569 - (let ((__tmp152570 |gx[1]#_g152571_|)) + (let ((__tmp85483 + (let ((__tmp85484 + (let ((__tmp85485 |gx[1]#_g85486_|)) (declare (not safe)) - (cons 'e __tmp152570)))) + (cons 'e __tmp85485)))) (declare (not safe)) - (cons __tmp152569 '())))) + (cons __tmp85484 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150795 - __tmp152568 + __obj83710 + __tmp85483 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152572 - (let ((__tmp152573 - (let ((__tmp152574 |gx[1]#_g152575_|)) + (let ((__tmp85487 + (let ((__tmp85488 + (let ((__tmp85489 |gx[1]#_g85490_|)) (declare (not safe)) - (cons 'e __tmp152574)))) + (cons 'e __tmp85489)))) (declare (not safe)) - (cons __tmp152573 '())))) + (cons __tmp85488 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150795 - __tmp152572 + __obj83710 + __tmp85487 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150795)) + __obj83710)) (define |gx[:0:]#rename-macro-expander| - (let ((__obj150796 + (let ((__obj83711 (let () (declare (not safe)) (##structure @@ -10165,7 +10117,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150796 + __obj83711 'gx#rename-macro-expander::t '1 gerbil/core$$#class-type-info::t @@ -10173,7 +10125,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150796 + __obj83711 'rename-macro-expander '2 gerbil/core$$#class-type-info::t @@ -10181,26 +10133,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150796 + __obj83711 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152576 - (let ((__tmp152577 |gx[1]#_g152578_|)) + (let ((__tmp85491 + (let ((__tmp85492 |gx[1]#_g85493_|)) (declare (not safe)) - (cons __tmp152577 '())))) + (cons __tmp85492 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150796 - __tmp152576 + __obj83711 + __tmp85491 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150796 + __obj83711 '#t '5 gerbil/core$$#class-type-info::t @@ -10208,7 +10160,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150796 + __obj83711 '#f '6 gerbil/core$$#class-type-info::t @@ -10216,7 +10168,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150796 + __obj83711 '#f '7 gerbil/core$$#class-type-info::t @@ -10224,94 +10176,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150796 + __obj83711 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152579 |gx[1]#_g152580_|)) + (let ((__tmp85494 |gx[1]#_g85495_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150796 - __tmp152579 + __obj83711 + __tmp85494 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152581 |gx[1]#_g152582_|)) + (let ((__tmp85496 |gx[1]#_g85497_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150796 - __tmp152581 + __obj83711 + __tmp85496 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152583 |gx[1]#_g152584_|)) + (let ((__tmp85498 |gx[1]#_g85499_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150796 - __tmp152583 + __obj83711 + __tmp85498 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152585 - (let ((__tmp152586 - (let ((__tmp152587 |gx[1]#_g152588_|)) + (let ((__tmp85500 + (let ((__tmp85501 + (let ((__tmp85502 |gx[1]#_g85503_|)) (declare (not safe)) - (cons 'e __tmp152587)))) + (cons 'e __tmp85502)))) (declare (not safe)) - (cons __tmp152586 '())))) + (cons __tmp85501 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150796 - __tmp152585 + __obj83711 + __tmp85500 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152589 - (let ((__tmp152590 - (let ((__tmp152591 |gx[1]#_g152592_|)) + (let ((__tmp85504 + (let ((__tmp85505 + (let ((__tmp85506 |gx[1]#_g85507_|)) (declare (not safe)) - (cons 'e __tmp152591)))) + (cons 'e __tmp85506)))) (declare (not safe)) - (cons __tmp152590 '())))) + (cons __tmp85505 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150796 - __tmp152589 + __obj83711 + __tmp85504 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152593 - (let ((__tmp152594 - (let ((__tmp152595 |gx[1]#_g152596_|)) + (let ((__tmp85508 + (let ((__tmp85509 + (let ((__tmp85510 |gx[1]#_g85511_|)) (declare (not safe)) - (cons 'e __tmp152595)))) + (cons 'e __tmp85510)))) (declare (not safe)) - (cons __tmp152594 '())))) + (cons __tmp85509 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150796 - __tmp152593 + __obj83711 + __tmp85508 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152597 - (let ((__tmp152598 - (let ((__tmp152599 |gx[1]#_g152600_|)) + (let ((__tmp85512 + (let ((__tmp85513 + (let ((__tmp85514 |gx[1]#_g85515_|)) (declare (not safe)) - (cons 'e __tmp152599)))) + (cons 'e __tmp85514)))) (declare (not safe)) - (cons __tmp152598 '())))) + (cons __tmp85513 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150796 - __tmp152597 + __obj83711 + __tmp85512 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150796)) + __obj83711)) (define |gx[:0:]#user-expander| - (let ((__obj150797 + (let ((__obj83712 (let () (declare (not safe)) (##structure @@ -10334,7 +10286,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150797 + __obj83712 'gx#macro-expander::t '1 gerbil/core$$#class-type-info::t @@ -10342,7 +10294,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150797 + __obj83712 'user-expander '2 gerbil/core$$#class-type-info::t @@ -10350,26 +10302,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150797 + __obj83712 '(context phi) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152601 - (let ((__tmp152602 |gx[1]#_g152578_|)) + (let ((__tmp85516 + (let ((__tmp85517 |gx[1]#_g85493_|)) (declare (not safe)) - (cons __tmp152602 '())))) + (cons __tmp85517 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj150797 - __tmp152601 + __obj83712 + __tmp85516 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj150797 + __obj83712 '#t '5 gerbil/core$$#class-type-info::t @@ -10377,7 +10329,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150797 + __obj83712 '#f '6 gerbil/core$$#class-type-info::t @@ -10385,7 +10337,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150797 + __obj83712 '#f '7 gerbil/core$$#class-type-info::t @@ -10393,150 +10345,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150797 + __obj83712 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152603 |gx[1]#_g152604_|)) + (let ((__tmp85518 |gx[1]#_g85519_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150797 - __tmp152603 + __obj83712 + __tmp85518 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152605 |gx[1]#_g152606_|)) + (let ((__tmp85520 |gx[1]#_g85521_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150797 - __tmp152605 + __obj83712 + __tmp85520 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152607 |gx[1]#_g152608_|)) + (let ((__tmp85522 |gx[1]#_g85523_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150797 - __tmp152607 + __obj83712 + __tmp85522 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152609 - (let ((__tmp152618 - (let ((__tmp152619 |gx[1]#_g152620_|)) + (let ((__tmp85524 + (let ((__tmp85533 + (let ((__tmp85534 |gx[1]#_g85535_|)) (declare (not safe)) - (cons 'context __tmp152619))) - (__tmp152610 - (let ((__tmp152615 - (let ((__tmp152616 |gx[1]#_g152617_|)) + (cons 'context __tmp85534))) + (__tmp85525 + (let ((__tmp85530 + (let ((__tmp85531 |gx[1]#_g85532_|)) (declare (not safe)) - (cons 'phi __tmp152616))) - (__tmp152611 - (let ((__tmp152612 - (let ((__tmp152613 |gx[1]#_g152614_|)) + (cons 'phi __tmp85531))) + (__tmp85526 + (let ((__tmp85527 + (let ((__tmp85528 |gx[1]#_g85529_|)) (declare (not safe)) - (cons 'e __tmp152613)))) + (cons 'e __tmp85528)))) (declare (not safe)) - (cons __tmp152612 '())))) + (cons __tmp85527 '())))) (declare (not safe)) - (cons __tmp152615 __tmp152611)))) + (cons __tmp85530 __tmp85526)))) (declare (not safe)) - (cons __tmp152618 __tmp152610)))) + (cons __tmp85533 __tmp85525)))) (declare (not safe)) (##unchecked-structure-set! - __obj150797 - __tmp152609 + __obj83712 + __tmp85524 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152621 - (let ((__tmp152630 - (let ((__tmp152631 |gx[1]#_g152632_|)) + (let ((__tmp85536 + (let ((__tmp85545 + (let ((__tmp85546 |gx[1]#_g85547_|)) (declare (not safe)) - (cons 'context __tmp152631))) - (__tmp152622 - (let ((__tmp152627 - (let ((__tmp152628 |gx[1]#_g152629_|)) + (cons 'context __tmp85546))) + (__tmp85537 + (let ((__tmp85542 + (let ((__tmp85543 |gx[1]#_g85544_|)) (declare (not safe)) - (cons 'phi __tmp152628))) - (__tmp152623 - (let ((__tmp152624 - (let ((__tmp152625 |gx[1]#_g152626_|)) + (cons 'phi __tmp85543))) + (__tmp85538 + (let ((__tmp85539 + (let ((__tmp85540 |gx[1]#_g85541_|)) (declare (not safe)) - (cons 'e __tmp152625)))) + (cons 'e __tmp85540)))) (declare (not safe)) - (cons __tmp152624 '())))) + (cons __tmp85539 '())))) (declare (not safe)) - (cons __tmp152627 __tmp152623)))) + (cons __tmp85542 __tmp85538)))) (declare (not safe)) - (cons __tmp152630 __tmp152622)))) + (cons __tmp85545 __tmp85537)))) (declare (not safe)) (##unchecked-structure-set! - __obj150797 - __tmp152621 + __obj83712 + __tmp85536 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152633 - (let ((__tmp152642 - (let ((__tmp152643 |gx[1]#_g152644_|)) + (let ((__tmp85548 + (let ((__tmp85557 + (let ((__tmp85558 |gx[1]#_g85559_|)) (declare (not safe)) - (cons 'context __tmp152643))) - (__tmp152634 - (let ((__tmp152639 - (let ((__tmp152640 |gx[1]#_g152641_|)) + (cons 'context __tmp85558))) + (__tmp85549 + (let ((__tmp85554 + (let ((__tmp85555 |gx[1]#_g85556_|)) (declare (not safe)) - (cons 'phi __tmp152640))) - (__tmp152635 - (let ((__tmp152636 - (let ((__tmp152637 |gx[1]#_g152638_|)) + (cons 'phi __tmp85555))) + (__tmp85550 + (let ((__tmp85551 + (let ((__tmp85552 |gx[1]#_g85553_|)) (declare (not safe)) - (cons 'e __tmp152637)))) + (cons 'e __tmp85552)))) (declare (not safe)) - (cons __tmp152636 '())))) + (cons __tmp85551 '())))) (declare (not safe)) - (cons __tmp152639 __tmp152635)))) + (cons __tmp85554 __tmp85550)))) (declare (not safe)) - (cons __tmp152642 __tmp152634)))) + (cons __tmp85557 __tmp85549)))) (declare (not safe)) (##unchecked-structure-set! - __obj150797 - __tmp152633 + __obj83712 + __tmp85548 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152645 - (let ((__tmp152654 - (let ((__tmp152655 |gx[1]#_g152656_|)) + (let ((__tmp85560 + (let ((__tmp85569 + (let ((__tmp85570 |gx[1]#_g85571_|)) (declare (not safe)) - (cons 'context __tmp152655))) - (__tmp152646 - (let ((__tmp152651 - (let ((__tmp152652 |gx[1]#_g152653_|)) + (cons 'context __tmp85570))) + (__tmp85561 + (let ((__tmp85566 + (let ((__tmp85567 |gx[1]#_g85568_|)) (declare (not safe)) - (cons 'phi __tmp152652))) - (__tmp152647 - (let ((__tmp152648 - (let ((__tmp152649 |gx[1]#_g152650_|)) + (cons 'phi __tmp85567))) + (__tmp85562 + (let ((__tmp85563 + (let ((__tmp85564 |gx[1]#_g85565_|)) (declare (not safe)) - (cons 'e __tmp152649)))) + (cons 'e __tmp85564)))) (declare (not safe)) - (cons __tmp152648 '())))) + (cons __tmp85563 '())))) (declare (not safe)) - (cons __tmp152651 __tmp152647)))) + (cons __tmp85566 __tmp85562)))) (declare (not safe)) - (cons __tmp152654 __tmp152646)))) + (cons __tmp85569 __tmp85561)))) (declare (not safe)) (##unchecked-structure-set! - __obj150797 - __tmp152645 + __obj83712 + __tmp85560 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150797)) + __obj83712)) (define |gx[:0:]#expander-mark| - (let ((__obj150798 + (let ((__obj83713 (let () (declare (not safe)) (##structure @@ -10559,7 +10511,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150798 + __obj83713 'gx#expander-mark::t '1 gerbil/core$$#class-type-info::t @@ -10567,7 +10519,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150798 + __obj83713 'expander-mark '2 gerbil/core$$#class-type-info::t @@ -10575,7 +10527,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150798 + __obj83713 '(subst context phi trace) '4 gerbil/core$$#class-type-info::t @@ -10583,7 +10535,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150798 + __obj83713 '() '3 gerbil/core$$#class-type-info::t @@ -10591,7 +10543,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150798 + __obj83713 '#t '5 gerbil/core$$#class-type-info::t @@ -10599,7 +10551,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150798 + __obj83713 '#f '6 gerbil/core$$#class-type-info::t @@ -10607,7 +10559,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150798 + __obj83713 '#f '7 gerbil/core$$#class-type-info::t @@ -10615,253 +10567,249 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj150798 + __obj83713 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152657 |gx[1]#_g152658_|)) + (let ((__tmp85572 |gx[1]#_g85573_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150798 - __tmp152657 + __obj83713 + __tmp85572 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152659 |gx[1]#_g152660_|)) + (let ((__tmp85574 |gx[1]#_g85575_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150798 - __tmp152659 + __obj83713 + __tmp85574 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152661 |gx[1]#_g152662_|)) + (let ((__tmp85576 |gx[1]#_g85577_|)) (declare (not safe)) (##unchecked-structure-set! - __obj150798 - __tmp152661 + __obj83713 + __tmp85576 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152663 - (let ((__tmp152676 - (let ((__tmp152677 |gx[1]#_g152678_|)) + (let ((__tmp85578 + (let ((__tmp85591 + (let ((__tmp85592 |gx[1]#_g85593_|)) (declare (not safe)) - (cons 'subst __tmp152677))) - (__tmp152664 - (let ((__tmp152673 - (let ((__tmp152674 |gx[1]#_g152675_|)) + (cons 'subst __tmp85592))) + (__tmp85579 + (let ((__tmp85588 + (let ((__tmp85589 |gx[1]#_g85590_|)) (declare (not safe)) - (cons 'context __tmp152674))) - (__tmp152665 - (let ((__tmp152670 - (let ((__tmp152671 |gx[1]#_g152672_|)) + (cons 'context __tmp85589))) + (__tmp85580 + (let ((__tmp85585 + (let ((__tmp85586 |gx[1]#_g85587_|)) (declare (not safe)) - (cons 'phi __tmp152671))) - (__tmp152666 - (let ((__tmp152667 - (let ((__tmp152668 - |gx[1]#_g152669_|)) + (cons 'phi __tmp85586))) + (__tmp85581 + (let ((__tmp85582 + (let ((__tmp85583 |gx[1]#_g85584_|)) (declare (not safe)) - (cons 'trace __tmp152668)))) + (cons 'trace __tmp85583)))) (declare (not safe)) - (cons __tmp152667 '())))) + (cons __tmp85582 '())))) (declare (not safe)) - (cons __tmp152670 __tmp152666)))) + (cons __tmp85585 __tmp85581)))) (declare (not safe)) - (cons __tmp152673 __tmp152665)))) + (cons __tmp85588 __tmp85580)))) (declare (not safe)) - (cons __tmp152676 __tmp152664)))) + (cons __tmp85591 __tmp85579)))) (declare (not safe)) (##unchecked-structure-set! - __obj150798 - __tmp152663 + __obj83713 + __tmp85578 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152679 - (let ((__tmp152692 - (let ((__tmp152693 |gx[1]#_g152694_|)) + (let ((__tmp85594 + (let ((__tmp85607 + (let ((__tmp85608 |gx[1]#_g85609_|)) (declare (not safe)) - (cons 'subst __tmp152693))) - (__tmp152680 - (let ((__tmp152689 - (let ((__tmp152690 |gx[1]#_g152691_|)) + (cons 'subst __tmp85608))) + (__tmp85595 + (let ((__tmp85604 + (let ((__tmp85605 |gx[1]#_g85606_|)) (declare (not safe)) - (cons 'context __tmp152690))) - (__tmp152681 - (let ((__tmp152686 - (let ((__tmp152687 |gx[1]#_g152688_|)) + (cons 'context __tmp85605))) + (__tmp85596 + (let ((__tmp85601 + (let ((__tmp85602 |gx[1]#_g85603_|)) (declare (not safe)) - (cons 'phi __tmp152687))) - (__tmp152682 - (let ((__tmp152683 - (let ((__tmp152684 - |gx[1]#_g152685_|)) + (cons 'phi __tmp85602))) + (__tmp85597 + (let ((__tmp85598 + (let ((__tmp85599 |gx[1]#_g85600_|)) (declare (not safe)) - (cons 'trace __tmp152684)))) + (cons 'trace __tmp85599)))) (declare (not safe)) - (cons __tmp152683 '())))) + (cons __tmp85598 '())))) (declare (not safe)) - (cons __tmp152686 __tmp152682)))) + (cons __tmp85601 __tmp85597)))) (declare (not safe)) - (cons __tmp152689 __tmp152681)))) + (cons __tmp85604 __tmp85596)))) (declare (not safe)) - (cons __tmp152692 __tmp152680)))) + (cons __tmp85607 __tmp85595)))) (declare (not safe)) (##unchecked-structure-set! - __obj150798 - __tmp152679 + __obj83713 + __tmp85594 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152695 - (let ((__tmp152708 - (let ((__tmp152709 |gx[1]#_g152710_|)) + (let ((__tmp85610 + (let ((__tmp85623 + (let ((__tmp85624 |gx[1]#_g85625_|)) (declare (not safe)) - (cons 'subst __tmp152709))) - (__tmp152696 - (let ((__tmp152705 - (let ((__tmp152706 |gx[1]#_g152707_|)) + (cons 'subst __tmp85624))) + (__tmp85611 + (let ((__tmp85620 + (let ((__tmp85621 |gx[1]#_g85622_|)) (declare (not safe)) - (cons 'context __tmp152706))) - (__tmp152697 - (let ((__tmp152702 - (let ((__tmp152703 |gx[1]#_g152704_|)) + (cons 'context __tmp85621))) + (__tmp85612 + (let ((__tmp85617 + (let ((__tmp85618 |gx[1]#_g85619_|)) (declare (not safe)) - (cons 'phi __tmp152703))) - (__tmp152698 - (let ((__tmp152699 - (let ((__tmp152700 - |gx[1]#_g152701_|)) + (cons 'phi __tmp85618))) + (__tmp85613 + (let ((__tmp85614 + (let ((__tmp85615 |gx[1]#_g85616_|)) (declare (not safe)) - (cons 'trace __tmp152700)))) + (cons 'trace __tmp85615)))) (declare (not safe)) - (cons __tmp152699 '())))) + (cons __tmp85614 '())))) (declare (not safe)) - (cons __tmp152702 __tmp152698)))) + (cons __tmp85617 __tmp85613)))) (declare (not safe)) - (cons __tmp152705 __tmp152697)))) + (cons __tmp85620 __tmp85612)))) (declare (not safe)) - (cons __tmp152708 __tmp152696)))) + (cons __tmp85623 __tmp85611)))) (declare (not safe)) (##unchecked-structure-set! - __obj150798 - __tmp152695 + __obj83713 + __tmp85610 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp152711 - (let ((__tmp152724 - (let ((__tmp152725 |gx[1]#_g152726_|)) + (let ((__tmp85626 + (let ((__tmp85639 + (let ((__tmp85640 |gx[1]#_g85641_|)) (declare (not safe)) - (cons 'subst __tmp152725))) - (__tmp152712 - (let ((__tmp152721 - (let ((__tmp152722 |gx[1]#_g152723_|)) + (cons 'subst __tmp85640))) + (__tmp85627 + (let ((__tmp85636 + (let ((__tmp85637 |gx[1]#_g85638_|)) (declare (not safe)) - (cons 'context __tmp152722))) - (__tmp152713 - (let ((__tmp152718 - (let ((__tmp152719 |gx[1]#_g152720_|)) + (cons 'context __tmp85637))) + (__tmp85628 + (let ((__tmp85633 + (let ((__tmp85634 |gx[1]#_g85635_|)) (declare (not safe)) - (cons 'phi __tmp152719))) - (__tmp152714 - (let ((__tmp152715 - (let ((__tmp152716 - |gx[1]#_g152717_|)) + (cons 'phi __tmp85634))) + (__tmp85629 + (let ((__tmp85630 + (let ((__tmp85631 |gx[1]#_g85632_|)) (declare (not safe)) - (cons 'trace __tmp152716)))) + (cons 'trace __tmp85631)))) (declare (not safe)) - (cons __tmp152715 '())))) + (cons __tmp85630 '())))) (declare (not safe)) - (cons __tmp152718 __tmp152714)))) + (cons __tmp85633 __tmp85629)))) (declare (not safe)) - (cons __tmp152721 __tmp152713)))) + (cons __tmp85636 __tmp85628)))) (declare (not safe)) - (cons __tmp152724 __tmp152712)))) + (cons __tmp85639 __tmp85627)))) (declare (not safe)) (##unchecked-structure-set! - __obj150798 - __tmp152711 + __obj83713 + __tmp85626 '15 gerbil/core$$#class-type-info::t '#f)) - __obj150798)) + __obj83713)) (define |gx[:0:]#&phi-context?| - (lambda (_$stx143195_) - (let* ((_g143199143213_ - (lambda (_g143200143209_) + (lambda (_$stx80678_) + (let* ((_g8068280696_ + (lambda (_g8068380692_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g143200143209_)))) - (_g143198143255_ - (lambda (_g143200143217_) + _g8068380692_)))) + (_g8068180738_ + (lambda (_g8068380700_) (if (let () (declare (not safe)) - (gx#stx-pair? _g143200143217_)) - (let ((_e143204143220_ + (gx#stx-pair? _g8068380700_)) + (let ((_e8068780703_ (let () (declare (not safe)) - (gx#syntax-e _g143200143217_)))) - (let ((_hd143203143224_ + (gx#syntax-e _g8068380700_)))) + (let ((_hd8068680707_ (let () (declare (not safe)) - (##car _e143204143220_))) - (_tl143202143227_ + (##car _e8068780703_))) + (_tl8068580710_ (let () (declare (not safe)) - (##cdr _e143204143220_)))) + (##cdr _e8068780703_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143202143227_)) - (let ((_e143207143230_ + (gx#stx-pair? _tl8068580710_)) + (let ((_e8069080713_ (let () (declare (not safe)) - (gx#syntax-e _tl143202143227_)))) - (let ((_hd143206143234_ + (gx#syntax-e _tl8068580710_)))) + (let ((_hd8068980717_ (let () (declare (not safe)) - (##car _e143207143230_))) - (_tl143205143237_ + (##car _e8069080713_))) + (_tl8068880720_ (let () (declare (not safe)) - (##cdr _e143207143230_)))) + (##cdr _e8069080713_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143205143237_)) - ((lambda (_L143240_) - (let ((__tmp152732 + (gx#stx-null? _tl8068880720_)) + ((lambda (_L80723_) + (let ((__tmp85647 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'fx>))) - (__tmp152727 - (let ((__tmp152729 - (let ((__tmp152731 + (__tmp85642 + (let ((__tmp85644 + (let ((__tmp85646 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '##vector-length))) - (__tmp152730 - (let () (declare (not safe)) (cons _L143240_ '())))) + (__tmp85645 + (let () (declare (not safe)) (cons _L80723_ '())))) (declare (not safe)) - (cons __tmp152731 __tmp152730))) - (__tmp152728 (let () (declare (not safe)) (cons '3 '())))) + (cons __tmp85646 __tmp85645))) + (__tmp85643 (let () (declare (not safe)) (cons '3 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152729 - __tmp152728)))) + (cons __tmp85644 + __tmp85643)))) (declare (not safe)) - (cons __tmp152732 __tmp152727))) - _hd143206143234_) - (_g143199143213_ _g143200143217_)))) - (_g143199143213_ _g143200143217_)))) - (_g143199143213_ _g143200143217_))))) - (_g143198143255_ _$stx143195_)))))) + (cons __tmp85647 __tmp85642))) + _hd8068980717_) + (_g8068280696_ _g8068380700_)))) + (_g8068280696_ _g8068380700_)))) + (_g8068280696_ _g8068380700_))))) + (_g8068180738_ _$stx80678_)))))) diff --git a/src/bootstrap/gerbil/expander/module.ssxi.ss b/src/bootstrap/gerbil/expander/module.ssxi.ss index b18b93a9b..170ad0849 100644 --- a/src/bootstrap/gerbil/expander/module.ssxi.ss +++ b/src/bootstrap/gerbil/expander/module.ssxi.ss @@ -197,8 +197,10 @@ package: gerbil/expander #f #f #f - ((apply-import-expander . gx#import-expander::apply-import-expander) - (:init! . gx#import-expander:::init!)))) + ((:init! . gx#import-expander:::init!) + (apply-import-expander + . + gx#import-expander::apply-import-expander)))) (declare-type gx#import-expander? (@predicate gx#import-expander::t)) (declare-type gx#make-import-expander (@constructor gx#import-expander::t)) (declare-type @@ -244,8 +246,10 @@ package: gerbil/expander #f #f #f - ((apply-export-expander . gx#export-expander::apply-export-expander) - (:init! . gx#export-expander:::init!)))) + ((:init! . gx#export-expander:::init!) + (apply-export-expander + . + gx#export-expander::apply-export-expander)))) (declare-type gx#export-expander? (@predicate gx#export-expander::t)) (declare-type gx#make-export-expander (@constructor gx#export-expander::t)) (declare-type diff --git a/src/bootstrap/gerbil/expander/module__0.scm b/src/bootstrap/gerbil/expander/module__0.scm index 8773f35fa..3f0b3531f 100644 --- a/src/bootstrap/gerbil/expander/module__0.scm +++ b/src/bootstrap/gerbil/expander/module__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/module::timestamp 1708102803) + (define gerbil/expander/module::timestamp 1708370114) (begin (declare (not safe)) (define gx#module-import::t @@ -13,8 +13,8 @@ '#f)) (define gx#module-import? (make-class-predicate gx#module-import::t)) (define gx#make-module-import - (lambda _$args163782_ - (apply make-instance gx#module-import::t _$args163782_))) + (lambda _$args92129_ + (apply make-instance gx#module-import::t _$args92129_))) (define gx#module-import-source (make-class-slot-accessor gx#module-import::t 'source)) (define gx#module-import-name @@ -57,8 +57,8 @@ '#f)) (define gx#module-export? (make-class-predicate gx#module-export::t)) (define gx#make-module-export - (lambda _$args163779_ - (apply make-instance gx#module-export::t _$args163779_))) + (lambda _$args92126_ + (apply make-instance gx#module-export::t _$args92126_))) (define gx#module-export-context (make-class-slot-accessor gx#module-export::t 'context)) (define gx#module-export-key @@ -109,8 +109,8 @@ '#f)) (define gx#import-set? (make-class-predicate gx#import-set::t)) (define gx#make-import-set - (lambda _$args163776_ - (apply make-instance gx#import-set::t _$args163776_))) + (lambda _$args92123_ + (apply make-instance gx#import-set::t _$args92123_))) (define gx#import-set-source (make-class-slot-accessor gx#import-set::t 'source)) (define gx#import-set-phi (make-class-slot-accessor gx#import-set::t 'phi)) @@ -144,8 +144,8 @@ '#f)) (define gx#export-set? (make-class-predicate gx#export-set::t)) (define gx#make-export-set - (lambda _$args163773_ - (apply make-instance gx#export-set::t _$args163773_))) + (lambda _$args92120_ + (apply make-instance gx#export-set::t _$args92120_))) (define gx#export-set-source (make-class-slot-accessor gx#export-set::t 'source)) (define gx#export-set-phi (make-class-slot-accessor gx#export-set::t 'phi)) @@ -179,8 +179,8 @@ ':init!)) (define gx#import-expander? (make-class-predicate gx#import-expander::t)) (define gx#make-import-expander - (lambda _$args163770_ - (apply make-instance gx#import-expander::t _$args163770_))) + (lambda _$args92117_ + (apply make-instance gx#import-expander::t _$args92117_))) (define gx#import-expander-context (make-class-slot-accessor gx#import-expander::t 'context)) (define gx#import-expander-phi @@ -215,8 +215,8 @@ ':init!)) (define gx#export-expander? (make-class-predicate gx#export-expander::t)) (define gx#make-export-expander - (lambda _$args163767_ - (apply make-instance gx#export-expander::t _$args163767_))) + (lambda _$args92114_ + (apply make-instance gx#export-expander::t _$args92114_))) (define gx#export-expander-context (make-class-slot-accessor gx#export-expander::t 'context)) (define gx#export-expander-phi @@ -252,8 +252,8 @@ (define gx#import-export-expander? (make-class-predicate gx#import-export-expander::t)) (define gx#make-import-export-expander - (lambda _$args163764_ - (apply make-instance gx#import-export-expander::t _$args163764_))) + (lambda _$args92111_ + (apply make-instance gx#import-export-expander::t _$args92111_))) (define gx#import-export-expander-context (make-class-slot-accessor gx#import-export-expander::t 'context)) (define gx#import-export-expander-phi @@ -288,436 +288,449 @@ (define gx#current-module-reader-args (make-parameter '#f)) (define gx#source-file-settings '(char-encoding: UTF-8 eol-encoding: lf)) (define gx#call-with-input-source-file - (lambda (_path163761_ _fun163762_) + (lambda (_path92108_ _fun92109_) (call-with-input-file - (cons 'path: (cons _path163761_ gx#source-file-settings)) - _fun163762_))) + (cons 'path: (cons _path92108_ gx#source-file-settings)) + _fun92109_))) (define gx#module-context:::init! - (lambda (_self163755_ _id163756_ _super163757_ _ns163758_ _path163759_) - (if (##fx< '11 (##structure-length _self163755_)) + (lambda (_self92102_ _id92103_ _super92104_ _ns92105_ _path92106_) + (if (##fx< '11 (##structure-length _self92102_)) (begin (##unchecked-structure-set! - _self163755_ - _id163756_ + _self92102_ + _id92103_ '1 - (##structure-type _self163755_) + (##structure-type _self92102_) '#f) (##unchecked-structure-set! - _self163755_ - (make-table 'test: eq?) + _self92102_ + (make-hash-table-eq) '2 - (##structure-type _self163755_) + (##structure-type _self92102_) '#f) (##unchecked-structure-set! - _self163755_ - _super163757_ + _self92102_ + _super92104_ '3 - (##structure-type _self163755_) + (##structure-type _self92102_) '#f) (##unchecked-structure-set! - _self163755_ + _self92102_ '#f '4 - (##structure-type _self163755_) + (##structure-type _self92102_) '#f) (##unchecked-structure-set! - _self163755_ + _self92102_ '#f '5 - (##structure-type _self163755_) + (##structure-type _self92102_) '#f) (##unchecked-structure-set! - _self163755_ - _ns163758_ + _self92102_ + _ns92105_ '6 - (##structure-type _self163755_) + (##structure-type _self92102_) '#f) (##unchecked-structure-set! - _self163755_ - _path163759_ + _self92102_ + _path92106_ '7 - (##structure-type _self163755_) + (##structure-type _self92102_) '#f) (##unchecked-structure-set! - _self163755_ + _self92102_ '() '8 - (##structure-type _self163755_) + (##structure-type _self92102_) '#f) (##unchecked-structure-set! - _self163755_ + _self92102_ '() '9 - (##structure-type _self163755_) + (##structure-type _self92102_) '#f) (##unchecked-structure-set! - _self163755_ + _self92102_ '#f '10 - (##structure-type _self163755_) + (##structure-type _self92102_) '#f) (##unchecked-structure-set! - _self163755_ + _self92102_ '#f '11 - (##structure-type _self163755_) + (##structure-type _self92102_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self163755_ + _self92102_ '11 - (##vector-length _self163755_))))) - (bind-method! gx#module-context::t ':init! gx#module-context:::init! '#f) + (##vector-length _self92102_))))) + (bind-method!__% + gx#module-context::t + ':init! + gx#module-context:::init! + '#f) (define gx#prelude-context:::init!__% - (lambda (_self163599_ _ctx163600_ _root163601_) - (let ((_super163609_ - (let ((_$e163603_ _root163601_)) - (if _$e163603_ - _$e163603_ - (let ((_$e163606_ (gx#core-context-root__0))) - (if _$e163606_ - _$e163606_ - (let ((__obj168392 + (lambda (_self91946_ _ctx91947_ _root91948_) + (let ((_super91956_ + (let ((_$e91950_ _root91948_)) + (if _$e91950_ + _$e91950_ + (let ((_$e91953_ (gx#core-context-root__0))) + (if _$e91953_ + _$e91953_ + (let ((__obj92171 (##structure gx#root-context::t '#f '#f))) - (let ((__constructor168393 + (let ((__constructor92172 (direct-method-ref gx#root-context::t - __obj168392 + __obj92171 ':init!))) - (if __constructor168393 - (__constructor168393 __obj168392) + (if __constructor92172 + (__constructor92172 __obj92171) (error '"missing constructor method implementation" 'class: gx#root-context::t 'method: ':init!))) - __obj168392))))))) - (if _ctx163600_ - (let ((_id163612_ + __obj92171))))))) + (if _ctx91947_ + (let ((_id91959_ (##structure-ref - _ctx163600_ + _ctx91947_ '1 gx#expander-context::t '#f)) - (_path163613_ - (##structure-ref _ctx163600_ '7 gx#module-context::t '#f)) - (_in163614_ + (_path91960_ + (##structure-ref _ctx91947_ '7 gx#module-context::t '#f)) + (_in91961_ (map gx#core-module-export->import (##structure-ref - _ctx163600_ + _ctx91947_ '9 gx#module-context::t '#f))) - (_e163615_ - (make-promise (lambda () (gx#eval-module _ctx163600_))))) - (if (##fx< '8 (##structure-length _self163599_)) + (_e91962_ + (make-promise (lambda () (gx#eval-module _ctx91947_))))) + (if (##fx< '8 (##structure-length _self91946_)) (begin (##unchecked-structure-set! - _self163599_ - _id163612_ + _self91946_ + _id91959_ '1 - (##structure-type _self163599_) + (##structure-type _self91946_) '#f) (##unchecked-structure-set! - _self163599_ - (make-table 'test: eq? 'size: (length _in163614_)) + _self91946_ + (make-hash-table-eq 'size: (length _in91961_)) '2 - (##structure-type _self163599_) + (##structure-type _self91946_) '#f) (##unchecked-structure-set! - _self163599_ - _super163609_ + _self91946_ + _super91956_ '3 - (##structure-type _self163599_) + (##structure-type _self91946_) '#f) (##unchecked-structure-set! - _self163599_ + _self91946_ '#f '4 - (##structure-type _self163599_) + (##structure-type _self91946_) '#f) (##unchecked-structure-set! - _self163599_ + _self91946_ '#f '5 - (##structure-type _self163599_) + (##structure-type _self91946_) '#f) (##unchecked-structure-set! - _self163599_ - _path163613_ + _self91946_ + _path91960_ '6 - (##structure-type _self163599_) + (##structure-type _self91946_) '#f) (##unchecked-structure-set! - _self163599_ - _in163614_ + _self91946_ + _in91961_ '7 - (##structure-type _self163599_) + (##structure-type _self91946_) '#f) (##unchecked-structure-set! - _self163599_ - _e163615_ + _self91946_ + _e91962_ '8 - (##structure-type _self163599_) + (##structure-type _self91946_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self163599_ + _self91946_ '8 - (##vector-length _self163599_))) + (##vector-length _self91946_))) (for-each - (lambda (_g163616163618_) - (gx#core-bind-weak-import!__% _g163616163618_ _self163599_)) - _in163614_)) - (if (##fx< '8 (##structure-length _self163599_)) + (lambda (_g9196391965_) + (gx#core-bind-weak-import!__% _g9196391965_ _self91946_)) + _in91961_)) + (if (##fx< '8 (##structure-length _self91946_)) (begin (##unchecked-structure-set! - _self163599_ + _self91946_ '#f '1 - (##structure-type _self163599_) + (##structure-type _self91946_) '#f) (##unchecked-structure-set! - _self163599_ - (make-table 'test: eq?) + _self91946_ + (make-hash-table-eq) '2 - (##structure-type _self163599_) + (##structure-type _self91946_) '#f) (##unchecked-structure-set! - _self163599_ - _super163609_ + _self91946_ + _super91956_ '3 - (##structure-type _self163599_) + (##structure-type _self91946_) '#f) (##unchecked-structure-set! - _self163599_ + _self91946_ '#f '4 - (##structure-type _self163599_) + (##structure-type _self91946_) '#f) (##unchecked-structure-set! - _self163599_ + _self91946_ '#f '5 - (##structure-type _self163599_) + (##structure-type _self91946_) '#f) (##unchecked-structure-set! - _self163599_ + _self91946_ '#f '6 - (##structure-type _self163599_) + (##structure-type _self91946_) '#f) (##unchecked-structure-set! - _self163599_ + _self91946_ '() '7 - (##structure-type _self163599_) + (##structure-type _self91946_) '#f) (##unchecked-structure-set! - _self163599_ + _self91946_ '#f '8 - (##structure-type _self163599_) + (##structure-type _self91946_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self163599_ + _self91946_ '8 - (##vector-length _self163599_))))))) + (##vector-length _self91946_))))))) (define gx#prelude-context:::init!__0 - (lambda (_self163624_ _ctx163625_) - (let ((_root163627_ '#f)) - (gx#prelude-context:::init!__% - _self163624_ - _ctx163625_ - _root163627_)))) + (lambda (_self91971_ _ctx91972_) + (let ((_root91974_ '#f)) + (gx#prelude-context:::init!__% _self91971_ _ctx91972_ _root91974_)))) (define gx#prelude-context:::init! - (lambda _g168399_ - (let ((_g168398_ (##length _g168399_))) - (cond ((##fx= _g168398_ 2) - (apply (lambda (_self163624_ _ctx163625_) + (lambda _g92178_ + (let ((_g92177_ (##length _g92178_))) + (cond ((##fx= _g92177_ 2) + (apply (lambda (_self91971_ _ctx91972_) (gx#prelude-context:::init!__0 - _self163624_ - _ctx163625_)) - _g168399_)) - ((##fx= _g168398_ 3) - (apply (lambda (_self163629_ _ctx163630_ _root163631_) + _self91971_ + _ctx91972_)) + _g92178_)) + ((##fx= _g92177_ 3) + (apply (lambda (_self91976_ _ctx91977_ _root91978_) (gx#prelude-context:::init!__% - _self163629_ - _ctx163630_ - _root163631_)) - _g168399_)) + _self91976_ + _ctx91977_ + _root91978_)) + _g92178_)) (else (##raise-wrong-number-of-arguments-exception gx#prelude-context:::init! - _g168399_)))))) - (bind-method! gx#prelude-context::t ':init! gx#prelude-context:::init! '#f) + _g92178_)))))) + (bind-method!__% + gx#prelude-context::t + ':init! + gx#prelude-context:::init! + '#f) (define gx#import-export-expander-init! - (lambda (_self163473_ _e163474_) - (if (##fx< '3 (##structure-length _self163473_)) + (lambda (_self91820_ _e91821_) + (if (##fx< '3 (##structure-length _self91820_)) (begin (##unchecked-structure-set! - _self163473_ - _e163474_ + _self91820_ + _e91821_ '1 - (##structure-type _self163473_) + (##structure-type _self91820_) '#f) (##unchecked-structure-set! - _self163473_ + _self91820_ (gx#current-expander-context) '2 - (##structure-type _self163473_) + (##structure-type _self91820_) '#f) (##unchecked-structure-set! - _self163473_ + _self91820_ (fx- (gx#current-expander-phi) '1) '3 - (##structure-type _self163473_) + (##structure-type _self91820_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self163473_ + _self91820_ '3 - (##vector-length _self163473_))))) + (##vector-length _self91820_))))) (define gx#import-expander:::init! gx#import-export-expander-init!) - (bind-method! gx#import-expander::t ':init! gx#import-expander:::init! '#f) + (bind-method!__% + gx#import-expander::t + ':init! + gx#import-expander:::init! + '#f) (define gx#export-expander:::init! gx#import-export-expander-init!) - (bind-method! gx#export-expander::t ':init! gx#export-expander:::init! '#f) + (bind-method!__% + gx#export-expander::t + ':init! + gx#export-expander:::init! + '#f) (define gx#import-export-expander:::init! gx#import-export-expander-init!) - (bind-method! + (bind-method!__% gx#import-export-expander::t ':init! gx#import-export-expander:::init! '#f) (define gx#import-expander::apply-import-expander - (lambda (_g163099163102_ _g163100163104_) + (lambda (_g9144691449_ _g9144791451_) (gx#core-apply-user-expander__% - _g163099163102_ - _g163100163104_ + _g9144691449_ + _g9144791451_ 'apply-import-expander))) - (bind-method! + (bind-method!__% gx#import-expander::t 'apply-import-expander gx#import-expander::apply-import-expander '#f) (define gx#export-expander::apply-export-expander - (lambda (_g162970162973_ _g162971162975_) + (lambda (_g9131791320_ _g9131891322_) (gx#core-apply-user-expander__% - _g162970162973_ - _g162971162975_ + _g9131791320_ + _g9131891322_ 'apply-export-expander))) - (bind-method! + (bind-method!__% gx#export-expander::t 'apply-export-expander gx#export-expander::apply-export-expander '#f) (define gx#module-source-path - (lambda (_ctx162841_) - (let* ((_path162843_ - (##structure-ref _ctx162841_ '7 gx#module-context::t '#f)) - (_path162845_ - (if (pair? _path162843_) (last _path162843_) _path162843_))) - (if (string? _path162845_) _path162845_ '#f)))) + (lambda (_ctx91188_) + (let* ((_path91190_ + (##structure-ref _ctx91188_ '7 gx#module-context::t '#f)) + (_path91192_ + (if (pair? _path91190_) (last _path91190_) _path91190_))) + (if (string? _path91192_) _path91192_ '#f)))) (define gx#import-module__% - (lambda (_path162817_ _reload?162818_ _eval?162819_) - (let ((_ctx162821_ + (lambda (_path91164_ _reload?91165_ _eval?91166_) + (let ((_ctx91168_ ((gx#current-expander-module-import) - _path162817_ - _reload?162818_))) - (if (and _ctx162821_ _eval?162819_) - (gx#eval-module _ctx162821_) + _path91164_ + _reload?91165_))) + (if (and _ctx91168_ _eval?91166_) + (gx#eval-module _ctx91168_) '#!void) - _ctx162821_))) + _ctx91168_))) (define gx#import-module__0 - (lambda (_path162826_) - (let* ((_reload?162828_ '#f) (_eval?162830_ '#f)) - (gx#import-module__% _path162826_ _reload?162828_ _eval?162830_)))) + (lambda (_path91173_) + (let* ((_reload?91175_ '#f) (_eval?91177_ '#f)) + (gx#import-module__% _path91173_ _reload?91175_ _eval?91177_)))) (define gx#import-module__1 - (lambda (_path162832_ _reload?162833_) - (let ((_eval?162835_ '#f)) - (gx#import-module__% _path162832_ _reload?162833_ _eval?162835_)))) + (lambda (_path91179_ _reload?91180_) + (let ((_eval?91182_ '#f)) + (gx#import-module__% _path91179_ _reload?91180_ _eval?91182_)))) (define gx#import-module - (lambda _g168401_ - (let ((_g168400_ (##length _g168401_))) - (cond ((##fx= _g168400_ 1) - (apply (lambda (_path162826_) - (gx#import-module__0 _path162826_)) - _g168401_)) - ((##fx= _g168400_ 2) - (apply (lambda (_path162832_ _reload?162833_) - (gx#import-module__1 _path162832_ _reload?162833_)) - _g168401_)) - ((##fx= _g168400_ 3) - (apply (lambda (_path162837_ _reload?162838_ _eval?162839_) + (lambda _g92180_ + (let ((_g92179_ (##length _g92180_))) + (cond ((##fx= _g92179_ 1) + (apply (lambda (_path91173_) + (gx#import-module__0 _path91173_)) + _g92180_)) + ((##fx= _g92179_ 2) + (apply (lambda (_path91179_ _reload?91180_) + (gx#import-module__1 _path91179_ _reload?91180_)) + _g92180_)) + ((##fx= _g92179_ 3) + (apply (lambda (_path91184_ _reload?91185_ _eval?91186_) (gx#import-module__% - _path162837_ - _reload?162838_ - _eval?162839_)) - _g168401_)) + _path91184_ + _reload?91185_ + _eval?91186_)) + _g92180_)) (else (##raise-wrong-number-of-arguments-exception gx#import-module - _g168401_)))))) + _g92180_)))))) (define gx#eval-module - (lambda (_mod162814_) ((gx#current-expander-module-eval) _mod162814_))) + (lambda (_mod91161_) ((gx#current-expander-module-eval) _mod91161_))) (define gx#core-eval-module - (lambda (_obj162799_) - (letrec ((_force-e162801_ - (lambda (_getf162810_ _e162811_) + (lambda (_obj91146_) + (letrec ((_force-e91148_ + (lambda (_getf91157_ _e91158_) (call-with-parameters - (lambda () (force (_getf162810_ _e162811_))) + (lambda () (force (_getf91157_ _e91158_))) gx#current-expander-context - _e162811_ + _e91158_ gx#current-expander-phi '0)))) - (let _recur162803_ ((_e162805_ _obj162799_)) - (if (##structure-instance-of? _e162805_ 'gx#module-context::t) + (let _recur91150_ ((_e91152_ _obj91146_)) + (if (##structure-instance-of? _e91152_ 'gx#module-context::t) (begin - (let ((_$e162807_ (gx#core-context-prelude__% _e162805_))) - (if _$e162807_ (_recur162803_ _$e162807_) '#!void)) - (_force-e162801_ gx#module-context-e _e162805_)) - (if (##structure-instance-of? _e162805_ 'gx#prelude-context::t) - (_force-e162801_ gx#prelude-context-e _e162805_) - (if (gx#stx-string? _e162805_) - (_recur162803_ + (let ((_$e91154_ (gx#core-context-prelude__% _e91152_))) + (if _$e91154_ (_recur91150_ _$e91154_) '#!void)) + (_force-e91148_ gx#module-context-e _e91152_)) + (if (##structure-instance-of? _e91152_ 'gx#prelude-context::t) + (_force-e91148_ gx#prelude-context-e _e91152_) + (if (gx#stx-string? _e91152_) + (_recur91150_ (gx#import-module__0 - (gx#core-resolve-module-path__0 _e162805_))) - (if (gx#core-library-module-path? _e162805_) - (_recur162803_ + (gx#core-resolve-module-path__0 _e91152_))) + (if (gx#core-library-module-path? _e91152_) + (_recur91150_ (gx#import-module__0 - (gx#core-resolve-library-module-path _e162805_))) - (error '"Cannot eval module" _obj162799_))))))))) + (gx#core-resolve-library-module-path _e91152_))) + (error '"Cannot eval module" _obj91146_))))))))) (define gx#core-context-prelude__% - (lambda (_ctx162782_) - (let _lp162784_ ((_e162786_ _ctx162782_)) - (if (or (##structure-instance-of? _e162786_ 'gx#module-context::t) - (##structure-instance-of? _e162786_ 'gx#local-context::t)) - (_lp162784_ - (##unchecked-structure-ref _e162786_ '3 gx#phi-context::t '#f)) - (if (##structure-instance-of? _e162786_ 'gx#prelude-context::t) - _e162786_ + (lambda (_ctx91129_) + (let _lp91131_ ((_e91133_ _ctx91129_)) + (if (or (##structure-instance-of? _e91133_ 'gx#module-context::t) + (##structure-instance-of? _e91133_ 'gx#local-context::t)) + (_lp91131_ + (##unchecked-structure-ref _e91133_ '3 gx#phi-context::t '#f)) + (if (##structure-instance-of? _e91133_ 'gx#prelude-context::t) + _e91133_ '#f))))) (define gx#core-context-prelude__0 (lambda () - (let ((_ctx162795_ (gx#current-expander-context))) - (gx#core-context-prelude__% _ctx162795_)))) + (let ((_ctx91142_ (gx#current-expander-context))) + (gx#core-context-prelude__% _ctx91142_)))) (define gx#core-context-prelude - (lambda _g168403_ - (let ((_g168402_ (##length _g168403_))) - (cond ((##fx= _g168402_ 0) - (apply (lambda () (gx#core-context-prelude__0)) _g168403_)) - ((##fx= _g168402_ 1) - (apply (lambda (_ctx162797_) - (gx#core-context-prelude__% _ctx162797_)) - _g168403_)) + (lambda _g92182_ + (let ((_g92181_ (##length _g92182_))) + (cond ((##fx= _g92181_ 0) + (apply (lambda () (gx#core-context-prelude__0)) _g92182_)) + ((##fx= _g92181_ 1) + (apply (lambda (_ctx91144_) + (gx#core-context-prelude__% _ctx91144_)) + _g92182_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-prelude - _g168403_)))))) + _g92182_)))))) (define gx#core-module->prelude-context - (lambda (_ctx162772_) - (let* ((_ht162774_ (gx#current-expander-module-registry)) - (_$e162776_ (table-ref _ht162774_ _ctx162772_ '#f))) - (if _$e162776_ - (values _$e162776_) - (let ((_pre162779_ - (let ((__obj168394 + (lambda (_ctx91119_) + (let* ((_ht91121_ (gx#current-expander-module-registry)) + (_$e91123_ (hash-get _ht91121_ _ctx91119_))) + (if _$e91123_ + (values _$e91123_) + (let ((_pre91126_ + (let ((__obj92173 (##structure gx#prelude-context::t '#f @@ -728,51 +741,51 @@ '#f '#f '#f))) - (gx#prelude-context:::init! __obj168394 _ctx162772_) - __obj168394))) - (table-set! _ht162774_ _ctx162772_ _pre162779_) - _pre162779_))))) + (gx#prelude-context:::init! __obj92173 _ctx91119_) + __obj92173))) + (hash-put! _ht91121_ _ctx91119_ _pre91126_) + _pre91126_))))) (define gx#core-import-module__% - (lambda (_rpath162653_ _reload?162654_) - (letrec ((_import-source162656_ - (lambda (_path162741_) - (if (member _path162741_ (gx#current-expander-path)) - (error '"Cyclic expansion" _path162741_) + (lambda (_rpath91000_ _reload?91001_) + (letrec ((_import-source91003_ + (lambda (_path91088_) + (if (member _path91088_ (gx#current-expander-path)) + (error '"Cyclic expansion" _path91088_) '#!void) (call-with-parameters (lambda () - (let ((_g168404_ (gx#core-read-module _path162741_))) + (let ((_g92183_ (gx#core-read-module _path91088_))) (begin - (let ((_g168405_ - (if (##values? _g168404_) - (##vector-length _g168404_) + (let ((_g92184_ + (if (##values? _g92183_) + (##vector-length _g92183_) 1))) - (if (not (##fx= _g168405_ 4)) - (error "Context expects 4 values" _g168405_))) - (let ((_pre162744_ (##vector-ref _g168404_ 0)) - (_id162745_ (##vector-ref _g168404_ 1)) - (_ns162746_ (##vector-ref _g168404_ 2)) - (_body162747_ (##vector-ref _g168404_ 3))) - (let* ((_prelude162752_ + (if (not (##fx= _g92184_ 4)) + (error "Context expects 4 values" _g92184_))) + (let ((_pre91091_ (##vector-ref _g92183_ 0)) + (_id91092_ (##vector-ref _g92183_ 1)) + (_ns91093_ (##vector-ref _g92183_ 2)) + (_body91094_ (##vector-ref _g92183_ 3))) + (let* ((_prelude91099_ (if (##structure-instance-of? - _pre162744_ + _pre91091_ 'gx#prelude-context::t) - _pre162744_ + _pre91091_ (if (##structure-instance-of? - _pre162744_ + _pre91091_ 'gx#module-context::t) (gx#core-module->prelude-context - _pre162744_) - (if (string? _pre162744_) + _pre91091_) + (if (string? _pre91091_) (gx#core-module->prelude-context (gx#core-import-module__0 - _pre162744_)) - (if (not _pre162744_) - (let ((_$e162749_ + _pre91091_)) + (if (not _pre91091_) + (let ((_$e91096_ (gx#current-expander-module-prelude))) - (if _$e162749_ - _$e162749_ - (let ((__obj168395 + (if _$e91096_ + _$e91096_ + (let ((__obj92174 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure gx#prelude-context::t @@ -784,14 +797,14 @@ '#f '#f '#f))) - (gx#prelude-context:::init! __obj168395 '#f) - __obj168395))) + (gx#prelude-context:::init! __obj92174 '#f) + __obj92174))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error '"Cannot import module; unknown prelude" - _rpath162653_ - _pre162744_)))))) - (_ctx162754_ - (let ((__obj168396 + _rpath91000_ + _pre91091_)))))) + (_ctx91101_ + (let ((__obj92175 (##structure gx#module-context::t '#f @@ -806,44 +819,44 @@ '#f '#f))) (gx#module-context:::init! - __obj168396 - _id162745_ - _prelude162752_ - _ns162746_ - _path162741_) - __obj168396)) - (_body162756_ + __obj92175 + _id91092_ + _prelude91099_ + _ns91093_ + _path91088_) + __obj92175)) + (_body91103_ (gx#core-expand-module-begin - _body162747_ - _ctx162754_)) - (_body162758_ + _body91094_ + _ctx91101_)) + (_body91105_ (gx#core-quote-syntax__% - (gx#core-cons '%#begin _body162756_) - _path162741_ - _ctx162754_ + (gx#core-cons '%#begin _body91103_) + _path91088_ + _ctx91101_ '()))) (##unchecked-structure-set! - _ctx162754_ + _ctx91101_ (make-promise - (lambda () (gx#eval-syntax* _body162758_))) + (lambda () (gx#eval-syntax* _body91105_))) '10 gx#module-context::t '#f) (##unchecked-structure-set! - _ctx162754_ - _body162758_ + _ctx91101_ + _body91105_ '11 gx#module-context::t '#f) - (table-set! + (hash-put! (gx#current-expander-module-registry) - _path162741_ - _ctx162754_) - (table-set! + _path91088_ + _ctx91101_) + (hash-put! (gx#current-expander-module-registry) - _id162745_ - _ctx162754_) - _ctx162754_))))) + _id91092_ + _ctx91101_) + _ctx91101_))))) gx#current-expander-context (gx#core-context-root__0) gx#current-expander-marks @@ -851,1322 +864,1295 @@ gx#current-expander-phi '0 gx#current-expander-path - (cons _path162741_ (gx#current-expander-path)) + (cons _path91088_ (gx#current-expander-path)) gx#current-import-expander-phi '#f gx#current-export-expander-phi '#f))) - (_import-submodule162657_ - (lambda (_rpath162669_) - (let* ((_rpath162670162677_ _rpath162669_) - (_E162672162681_ + (_import-submodule91004_ + (lambda (_rpath91016_) + (let* ((_rpath9101791024_ _rpath91016_) + (_E9101991028_ (lambda () - (error '"No clause matching" - _rpath162670162677_))) - (_K162673162729_ - (lambda (_refs162684_ _origin162685_) - (let ((_ctx162687_ - (if _origin162685_ + (error '"No clause matching" _rpath9101791024_))) + (_K9102091076_ + (lambda (_refs91031_ _origin91032_) + (let ((_ctx91034_ + (if _origin91032_ (gx#core-import-module__% - _origin162685_ - _reload?162654_) + _origin91032_ + _reload?91001_) (gx#current-expander-context)))) - (let _lp162689_ ((_rest162691_ _refs162684_) - (_ctx162692_ _ctx162687_)) - (let* ((_rest162693162701_ _rest162691_) - (_else162695162709_ - (lambda () _ctx162692_)) - (_K162697162717_ - (lambda (_rest162712_ _id162713_) - (let ((_bind162715_ + (let _lp91036_ ((_rest91038_ _refs91031_) + (_ctx91039_ _ctx91034_)) + (let* ((_rest9104091048_ _rest91038_) + (_else9104291056_ + (lambda () _ctx91039_)) + (_K9104491064_ + (lambda (_rest91059_ _id91060_) + (let ((_bind91062_ (gx#resolve-identifier__% - _id162713_ + _id91060_ '0 - _ctx162692_))) + _ctx91039_))) (if (and (##structure-direct-instance-of? - _bind162715_ + _bind91062_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _bind162715_ + _bind91062_ '4 gx#syntax-binding::t '#f) 'gx#module-context::t)) - (_lp162689_ - _rest162712_ + (_lp91036_ + _rest91059_ (##unchecked-structure-ref - _bind162715_ + _bind91062_ '4 gx#syntax-binding::t '#f)) (error '"Cannot import submodule; not bound as a module" - _rpath162669_ - _id162713_ - _bind162715_)))))) - (if (##pair? _rest162693162701_) - (let ((_hd162698162720_ - (##car _rest162693162701_)) - (_tl162699162722_ - (##cdr _rest162693162701_))) - (let* ((_id162725_ _hd162698162720_) - (_rest162727_ - _tl162699162722_)) - (_K162697162717_ - _rest162727_ - _id162725_))) - (_else162695162709_)))))))) - (if (##pair? _rpath162670162677_) - (let ((_hd162674162732_ (##car _rpath162670162677_)) - (_tl162675162734_ (##cdr _rpath162670162677_))) - (let* ((_origin162737_ _hd162674162732_) - (_refs162739_ _tl162675162734_)) - (_K162673162729_ _refs162739_ _origin162737_))) - (_E162672162681_)))))) - (let ((_$e162659_ - (if (not _reload?162654_) - (table-ref + _rpath91016_ + _id91060_ + _bind91062_)))))) + (if (##pair? _rest9104091048_) + (let ((_hd9104591067_ + (##car _rest9104091048_)) + (_tl9104691069_ + (##cdr _rest9104091048_))) + (let* ((_id91072_ _hd9104591067_) + (_rest91074_ _tl9104691069_)) + (_K9104491064_ + _rest91074_ + _id91072_))) + (_else9104291056_)))))))) + (if (##pair? _rpath9101791024_) + (let ((_hd9102191079_ (##car _rpath9101791024_)) + (_tl9102291081_ (##cdr _rpath9101791024_))) + (let* ((_origin91084_ _hd9102191079_) + (_refs91086_ _tl9102291081_)) + (_K9102091076_ _refs91086_ _origin91084_))) + (_E9101991028_)))))) + (let ((_$e91006_ + (if (not _reload?91001_) + (hash-get (gx#current-expander-module-registry) - _rpath162653_ - '#f) + _rpath91000_) '#f))) - (if _$e162659_ - (values _$e162659_) - (if (list? _rpath162653_) - (_import-submodule162657_ _rpath162653_) - (if (gx#core-library-module-path? _rpath162653_) - (let ((_ctx162662_ + (if _$e91006_ + (values _$e91006_) + (if (list? _rpath91000_) + (_import-submodule91004_ _rpath91000_) + (if (gx#core-library-module-path? _rpath91000_) + (let ((_ctx91009_ (gx#core-import-module__% (gx#core-resolve-library-module-path - _rpath162653_) - _reload?162654_))) - (table-set! + _rpath91000_) + _reload?91001_))) + (hash-put! (gx#current-expander-module-registry) - _rpath162653_ - _ctx162662_) - _ctx162662_) - (let* ((_npath162664_ (path-normalize _rpath162653_)) - (_$e162666_ - (if (not _reload?162654_) - (table-ref + _rpath91000_ + _ctx91009_) + _ctx91009_) + (let* ((_npath91011_ (path-normalize _rpath91000_)) + (_$e91013_ + (if (not _reload?91001_) + (hash-get (gx#current-expander-module-registry) - _npath162664_ - '#f) + _npath91011_) '#f))) - (if _$e162666_ - (values _$e162666_) - (_import-source162656_ _npath162664_)))))))))) + (if _$e91013_ + (values _$e91013_) + (_import-source91003_ _npath91011_)))))))))) (define gx#core-import-module__0 - (lambda (_rpath162765_) - (let ((_reload?162767_ '#f)) - (gx#core-import-module__% _rpath162765_ _reload?162767_)))) + (lambda (_rpath91112_) + (let ((_reload?91114_ '#f)) + (gx#core-import-module__% _rpath91112_ _reload?91114_)))) (define gx#core-import-module - (lambda _g168407_ - (let ((_g168406_ (##length _g168407_))) - (cond ((##fx= _g168406_ 1) - (apply (lambda (_rpath162765_) - (gx#core-import-module__0 _rpath162765_)) - _g168407_)) - ((##fx= _g168406_ 2) - (apply (lambda (_rpath162769_ _reload?162770_) + (lambda _g92186_ + (let ((_g92185_ (##length _g92186_))) + (cond ((##fx= _g92185_ 1) + (apply (lambda (_rpath91112_) + (gx#core-import-module__0 _rpath91112_)) + _g92186_)) + ((##fx= _g92185_ 2) + (apply (lambda (_rpath91116_ _reload?91117_) (gx#core-import-module__% - _rpath162769_ - _reload?162770_)) - _g168407_)) + _rpath91116_ + _reload?91117_)) + _g92186_)) (else (##raise-wrong-number-of-arguments-exception gx#core-import-module - _g168407_)))))) + _g92186_)))))) (define gx#core-read-module - (lambda (_path162642_) + (lambda (_path90989_) (with-catch - (lambda (_exn162644_) - (if (and (datum-parsing-exception? _exn162644_) - (eq? (datum-parsing-exception-filepos _exn162644_) '0)) - (gx#core-read-module/lang _path162642_) + (lambda (_exn90991_) + (if (and (datum-parsing-exception? _exn90991_) + (eq? (datum-parsing-exception-filepos _exn90991_) '0)) + (gx#core-read-module/lang _path90989_) (gx#raise-syntax-error 'read-module '"error reading module" - _path162642_ + _path90989_ (call-with-parameters (lambda () (call-with-output-string '"" - (lambda (_g162646162648_) - (display-exception _exn162644_ _g162646162648_)))) + (lambda (_g9099390995_) + (display-exception _exn90991_ _g9099390995_)))) dump-stack-trace? '#f)))) - (lambda () (gx#core-read-module/sexp _path162642_))))) + (lambda () (gx#core-read-module/sexp _path90989_))))) (define gx#core-read-module/sexp - (lambda (_path162505_) - (let _lp162507_ ((_body162509_ (read-syntax-from-file _path162505_)) - (_pre162510_ '#f) - (_ns162511_ '#f) - (_pkg162512_ '#f)) - (let* ((_e162513162537_ _body162509_) - (_E162529162559_ + (lambda (_path90852_) + (let _lp90854_ ((_body90856_ (read-syntax-from-file _path90852_)) + (_pre90857_ '#f) + (_ns90858_ '#f) + (_pkg90859_ '#f)) + (let* ((_e9086090884_ _body90856_) + (_E9087690906_ (lambda () - (let ((_g168408_ - (if _pkg162512_ - (values _pre162510_ _ns162511_ _pkg162512_) + (let ((_g92187_ + (if _pkg90859_ + (values _pre90857_ _ns90858_ _pkg90859_) (gx#core-read-module-package - _path162505_ - _pre162510_ - _ns162511_)))) + _path90852_ + _pre90857_ + _ns90858_)))) (begin - (let ((_g168409_ - (if (##values? _g168408_) - (##vector-length _g168408_) + (let ((_g92188_ + (if (##values? _g92187_) + (##vector-length _g92187_) 1))) - (if (not (##fx= _g168409_ 3)) - (error "Context expects 3 values" _g168409_))) - (let ((_pre162541_ (##vector-ref _g168408_ 0)) - (_ns162542_ (##vector-ref _g168408_ 1)) - (_pkg162543_ (##vector-ref _g168408_ 2))) - (let* ((_prelude162545_ + (if (not (##fx= _g92188_ 3)) + (error "Context expects 3 values" _g92188_))) + (let ((_pre90888_ (##vector-ref _g92187_ 0)) + (_ns90889_ (##vector-ref _g92187_ 1)) + (_pkg90890_ (##vector-ref _g92187_ 2))) + (let* ((_prelude90892_ (if (gx#core-bound-module-prelude? - _pre162541_) - (gx#syntax-local-e__0 _pre162541_) + _pre90888_) + (gx#syntax-local-e__0 _pre90888_) (if (gx#core-library-module-path? - _pre162541_) + _pre90888_) (gx#core-resolve-library-module-path - _pre162541_) - (if (gx#stx-string? _pre162541_) + _pre90888_) + (if (gx#stx-string? _pre90888_) (gx#core-resolve-module-path__% - _pre162541_ - _path162505_) - (gx#stx-e _pre162541_))))) - (_path-id162547_ - (gx#core-module-path->namespace - _path162505_)) - (_pkg-id162549_ - (if _pkg162543_ + _pre90888_ + _path90852_) + (gx#stx-e _pre90888_))))) + (_path-id90894_ + (gx#core-module-path->namespace _path90852_)) + (_pkg-id90896_ + (if _pkg90890_ (string-append - _pkg162543_ + _pkg90890_ '"/" - _path-id162547_) - _path-id162547_)) - (_module-id162551_ - (string->symbol _pkg-id162549_)) - (_module-ns162556_ - (if (eq? _ns162542_ '#!void) + _path-id90894_) + _path-id90894_)) + (_module-id90898_ + (string->symbol _pkg-id90896_)) + (_module-ns90903_ + (if (eq? _ns90889_ '#!void) '#f - (let ((_$e162553_ _ns162542_)) - (if _$e162553_ - _$e162553_ - _pkg-id162549_))))) - (values _prelude162545_ - _module-id162551_ - _module-ns162556_ - _body162509_))))))) - (_E162522162588_ + (let ((_$e90900_ _ns90889_)) + (if _$e90900_ + _$e90900_ + _pkg-id90896_))))) + (values _prelude90892_ + _module-id90898_ + _module-ns90903_ + _body90856_))))))) + (_E9086990935_ (lambda () - (if (gx#stx-pair? _e162513162537_) - (let ((_e162530162563_ (gx#syntax-e _e162513162537_))) - (let ((_hd162531162566_ (##car _e162530162563_)) - (_tl162532162568_ (##cdr _e162530162563_))) - (if (eq? (gx#stx-e _hd162531162566_) 'package:) - (if (gx#stx-pair? _tl162532162568_) - (let ((_e162533162571_ - (gx#syntax-e _tl162532162568_))) - (let ((_hd162534162574_ - (##car _e162533162571_)) - (_tl162535162576_ - (##cdr _e162533162571_))) - (let* ((_pkg162579_ _hd162534162574_) - (_rest162581_ _tl162535162576_)) + (if (gx#stx-pair? _e9086090884_) + (let ((_e9087790910_ (gx#syntax-e _e9086090884_))) + (let ((_hd9087890913_ (##car _e9087790910_)) + (_tl9087990915_ (##cdr _e9087790910_))) + (if (eq? (gx#stx-e _hd9087890913_) 'package:) + (if (gx#stx-pair? _tl9087990915_) + (let ((_e9088090918_ + (gx#syntax-e _tl9087990915_))) + (let ((_hd9088190921_ + (##car _e9088090918_)) + (_tl9088290923_ + (##cdr _e9088090918_))) + (let* ((_pkg90926_ _hd9088190921_) + (_rest90928_ _tl9088290923_)) (if '#t - (let ((_pkg162586_ + (let ((_pkg90933_ (if (gx#identifier? - _pkg162579_) + _pkg90926_) (symbol->string (gx#stx-e - _pkg162579_)) + _pkg90926_)) (if (or (gx#stx-string? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pkg162579_) - (gx#stx-false? _pkg162579_)) - (gx#stx-e _pkg162579_) + _pkg90926_) + (gx#stx-false? _pkg90926_)) + (gx#stx-e _pkg90926_) (gx#raise-syntax-error 'import '"Bad syntax; Illegal package name" - _pkg162579_))))) + _pkg90926_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp162507_ - _rest162581_ - _pre162510_ - _ns162511_ - _pkg162586_)) - (_E162529162559_))))) - (_E162529162559_)) - (_E162529162559_)))) - (_E162529162559_)))) - (_E162515162614_ + (_lp90854_ + _rest90928_ + _pre90857_ + _ns90858_ + _pkg90933_)) + (_E9087690906_))))) + (_E9087690906_)) + (_E9087690906_)))) + (_E9087690906_)))) + (_E9086290961_ (lambda () - (if (gx#stx-pair? _e162513162537_) - (let ((_e162523162592_ (gx#syntax-e _e162513162537_))) - (let ((_hd162524162595_ (##car _e162523162592_)) - (_tl162525162597_ (##cdr _e162523162592_))) - (if (eq? (gx#stx-e _hd162524162595_) 'namespace:) - (if (gx#stx-pair? _tl162525162597_) - (let ((_e162526162600_ - (gx#syntax-e _tl162525162597_))) - (let ((_hd162527162603_ - (##car _e162526162600_)) - (_tl162528162605_ - (##cdr _e162526162600_))) - (let* ((_ns162608_ _hd162527162603_) - (_rest162610_ _tl162528162605_)) + (if (gx#stx-pair? _e9086090884_) + (let ((_e9087090939_ (gx#syntax-e _e9086090884_))) + (let ((_hd9087190942_ (##car _e9087090939_)) + (_tl9087290944_ (##cdr _e9087090939_))) + (if (eq? (gx#stx-e _hd9087190942_) 'namespace:) + (if (gx#stx-pair? _tl9087290944_) + (let ((_e9087390947_ + (gx#syntax-e _tl9087290944_))) + (let ((_hd9087490950_ + (##car _e9087390947_)) + (_tl9087590952_ + (##cdr _e9087390947_))) + (let* ((_ns90955_ _hd9087490950_) + (_rest90957_ _tl9087590952_)) (if '#t - (let ((_ns162612_ + (let ((_ns90959_ (if (gx#identifier? - _ns162608_) + _ns90955_) (symbol->string - (gx#stx-e - _ns162608_)) + (gx#stx-e _ns90955_)) (if (gx#stx-string? - _ns162608_) + _ns90955_) (gx#stx-e - _ns162608_) + _ns90955_) (if (gx#stx-false? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _ns162608_) + _ns90955_) '#!void (gx#raise-syntax-error 'import '"Bad syntax; illegal namespace" - _ns162608_)))))) + _ns90955_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp162507_ - _rest162610_ - _pre162510_ - _ns162612_ - _pkg162512_)) - (_E162522162588_))))) - (_E162522162588_)) - (_E162522162588_)))) - (_E162522162588_)))) - (_E162514162638_ + (_lp90854_ + _rest90957_ + _pre90857_ + _ns90959_ + _pkg90859_)) + (_E9086990935_))))) + (_E9086990935_)) + (_E9086990935_)))) + (_E9086990935_)))) + (_E9086190985_ (lambda () - (if (gx#stx-pair? _e162513162537_) - (let ((_e162516162618_ (gx#syntax-e _e162513162537_))) - (let ((_hd162517162621_ (##car _e162516162618_)) - (_tl162518162623_ (##cdr _e162516162618_))) - (if (eq? (gx#stx-e _hd162517162621_) 'prelude:) - (if (gx#stx-pair? _tl162518162623_) - (let ((_e162519162626_ - (gx#syntax-e _tl162518162623_))) - (let ((_hd162520162629_ - (##car _e162519162626_)) - (_tl162521162631_ - (##cdr _e162519162626_))) - (let* ((_prelude162634_ - _hd162520162629_) - (_rest162636_ _tl162521162631_)) + (if (gx#stx-pair? _e9086090884_) + (let ((_e9086390965_ (gx#syntax-e _e9086090884_))) + (let ((_hd9086490968_ (##car _e9086390965_)) + (_tl9086590970_ (##cdr _e9086390965_))) + (if (eq? (gx#stx-e _hd9086490968_) 'prelude:) + (if (gx#stx-pair? _tl9086590970_) + (let ((_e9086690973_ + (gx#syntax-e _tl9086590970_))) + (let ((_hd9086790976_ + (##car _e9086690973_)) + (_tl9086890978_ + (##cdr _e9086690973_))) + (let* ((_prelude90981_ _hd9086790976_) + (_rest90983_ _tl9086890978_)) (if '#t - (_lp162507_ - _rest162636_ - _prelude162634_ - _ns162511_ - _pkg162512_) - (_E162515162614_))))) - (_E162515162614_)) - (_E162515162614_)))) - (_E162515162614_))))) - (_E162514162638_))))) + (_lp90854_ + _rest90983_ + _prelude90981_ + _ns90858_ + _pkg90859_) + (_E9086290961_))))) + (_E9086290961_)) + (_E9086290961_)))) + (_E9086290961_))))) + (_E9086190985_))))) (define gx#core-read-module/lang - (lambda (_path162332_) - (letrec ((_default-read-module-body162334_ - (lambda (_inp162497_) - (let _lp162499_ ((_body162501_ '())) - (let ((_next162503_ (read-syntax _inp162497_))) - (if (eof-object? _next162503_) - (reverse _body162501_) - (_lp162499_ (cons _next162503_ _body162501_))))))) - (_read-body162335_ - (lambda (_inp162416_ - _pre162417_ - _ns162418_ - _pkg162419_ - _args162420_) - (let ((_g168410_ - (if _pkg162419_ - (values _pre162417_ _ns162418_ _pkg162419_) + (lambda (_path90679_) + (letrec ((_default-read-module-body90681_ + (lambda (_inp90844_) + (let _lp90846_ ((_body90848_ '())) + (let ((_next90850_ (read-syntax _inp90844_))) + (if (eof-object? _next90850_) + (reverse _body90848_) + (_lp90846_ (cons _next90850_ _body90848_))))))) + (_read-body90682_ + (lambda (_inp90763_ + _pre90764_ + _ns90765_ + _pkg90766_ + _args90767_) + (let ((_g92189_ + (if _pkg90766_ + (values _pre90764_ _ns90765_ _pkg90766_) (gx#core-read-module-package - _path162332_ - _pre162417_ - _ns162418_)))) + _path90679_ + _pre90764_ + _ns90765_)))) (begin - (let ((_g168411_ - (if (##values? _g168410_) - (##vector-length _g168410_) + (let ((_g92190_ + (if (##values? _g92189_) + (##vector-length _g92189_) 1))) - (if (not (##fx= _g168411_ 3)) - (error "Context expects 3 values" _g168411_))) - (let ((_pre162422_ (##vector-ref _g168410_ 0)) - (_ns162423_ (##vector-ref _g168410_ 1)) - (_pkg162424_ (##vector-ref _g168410_ 2))) - (let* ((_prelude162426_ - (gx#import-module__0 _pre162422_)) - (_read-module-body162480_ - (let ((_$e162472_ - (find (lambda (_e162427162429_) - (let* ((_g162431162441_ - _e162427162429_) - (_else162433162449_ + (if (not (##fx= _g92190_ 3)) + (error "Context expects 3 values" _g92190_))) + (let ((_pre90769_ (##vector-ref _g92189_ 0)) + (_ns90770_ (##vector-ref _g92189_ 1)) + (_pkg90771_ (##vector-ref _g92189_ 2))) + (let* ((_prelude90773_ + (gx#import-module__0 _pre90769_)) + (_read-module-body90827_ + (let ((_$e90819_ + (find (lambda (_e9077490776_) + (let* ((_g9077890788_ + _e9077490776_) + (_else9078090796_ (lambda () '#f)) - (_K162435162453_ + (_K9078290800_ (lambda () '#t))) (if (##structure-direct-instance-of? - _g162431162441_ + _g9077890788_ 'gx#module-export::t) - (let* ((_e162436162456_ + (let* ((_e9078390803_ (##unchecked-structure-ref - _g162431162441_ + _g9077890788_ '1 gx#module-export::t '#f)) - (_e162437162459_ + (_e9078490806_ (##unchecked-structure-ref - _g162431162441_ + _g9077890788_ '2 gx#module-export::t '#f)) - (_e162438162462_ + (_e9078590809_ (##unchecked-structure-ref - _g162431162441_ + _g9077890788_ '3 gx#module-export::t '#f))) - (if (##eq? _e162438162462_ + (if (##eq? _e9078590809_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1) - (let ((_e162439162465_ + (let ((_e9078690812_ (##unchecked-structure-ref - _g162431162441_ + _g9077890788_ '4 gx#module-export::t '#f))) - (if ((lambda (_g162467162469_) - (eq? _g162467162469_ 'read-module-body)) - _e162439162465_) - (_K162435162453_) - (_else162433162449_))) - (_else162433162449_))) - (_else162433162449_)))) + (if ((lambda (_g9081490816_) + (eq? _g9081490816_ 'read-module-body)) + _e9078690812_) + (_K9078290800_) + (_else9078090796_))) + (_else9078090796_))) + (_else9078090796_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (##unchecked-structure-ref - _prelude162426_ + _prelude90773_ '9 gx#module-context::t '#f)))) - (if _$e162472_ - ((lambda (_xport162475_) - (let ((_proc162478_ + (if _$e90819_ + ((lambda (_xport90822_) + (let ((_proc90825_ (with-catch void (lambda () (gx#eval-syntax__0 (##structure-ref (gx#core-resolve-module-export - _xport162475_) + _xport90822_) '1 gx#binding::t '#f)))))) - (if (procedure? _proc162478_) - _proc162478_ + (if (procedure? _proc90825_) + _proc90825_ (gx#raise-syntax-error '#f '"Illegal #lang prelude; read-module-body is not a procedure" - _path162332_ - _pre162422_ - _proc162478_)))) - _$e162472_) - _default-read-module-body162334_))) - (_path-id162482_ - (gx#core-module-path->namespace - _path162332_)) - (_pkg-id162484_ - (if _pkg162424_ + _path90679_ + _pre90769_ + _proc90825_)))) + _$e90819_) + _default-read-module-body90681_))) + (_path-id90829_ + (gx#core-module-path->namespace _path90679_)) + (_pkg-id90831_ + (if _pkg90771_ (string-append - _pkg162424_ + _pkg90771_ '"/" - _path-id162482_) - _path-id162482_)) - (_module-id162486_ - (string->symbol _pkg-id162484_)) - (_module-ns162491_ - (let ((_$e162488_ _ns162423_)) - (if _$e162488_ _$e162488_ _pkg-id162484_))) - (_body162494_ + _path-id90829_) + _path-id90829_)) + (_module-id90833_ + (string->symbol _pkg-id90831_)) + (_module-ns90838_ + (let ((_$e90835_ _ns90770_)) + (if _$e90835_ _$e90835_ _pkg-id90831_))) + (_body90841_ (call-with-parameters (lambda () - (_read-module-body162480_ _inp162416_)) + (_read-module-body90827_ _inp90763_)) gx#current-module-reader-path - _path162332_ + _path90679_ gx#current-module-reader-args - _args162420_))) - (values _prelude162426_ - _module-id162486_ - _module-ns162491_ - _body162494_))))))) - (_string-e162336_ - (lambda (_obj162413_ _what162414_) - (if (string? _obj162413_) - _obj162413_ - (if (symbol? _obj162413_) - (symbol->string _obj162413_) + _args90767_))) + (values _prelude90773_ + _module-id90833_ + _module-ns90838_ + _body90841_))))))) + (_string-e90683_ + (lambda (_obj90760_ _what90761_) + (if (string? _obj90760_) + _obj90760_ + (if (symbol? _obj90760_) + (symbol->string _obj90760_) (gx#raise-syntax-error '#f - (string-append '"Illegal module " _what162414_) - _path162332_ - _obj162413_))))) - (_read-lang-args162337_ - (lambda (_inp162368_ _args162369_) - (let* ((_args162370162378_ _args162369_) - (_else162372162386_ + (string-append '"Illegal module " _what90761_) + _path90679_ + _obj90760_))))) + (_read-lang-args90684_ + (lambda (_inp90715_ _args90716_) + (let* ((_args9071790725_ _args90716_) + (_else9071990733_ (lambda () (gx#raise-syntax-error '#f '"Illegal #lang arguments; missing prelude" - _path162332_))) - (_K162374162401_ - (lambda (_args162389_ _prelude162390_) - (let* ((_pkg162392_ - (pgetq 'package: _args162389_)) - (_pkg162394_ - (if _pkg162392_ - (_string-e162336_ - _pkg162392_ + _path90679_))) + (_K9072190748_ + (lambda (_args90736_ _prelude90737_) + (let* ((_pkg90739_ + (pgetq__0 'package: _args90736_)) + (_pkg90741_ + (if _pkg90739_ + (_string-e90683_ + _pkg90739_ '"package") '#f)) - (_ns162396_ - (pgetq 'namespace: _args162389_)) - (_ns162398_ - (if _ns162396_ - (_string-e162336_ - _ns162396_ + (_ns90743_ + (pgetq__0 'namespace: _args90736_)) + (_ns90745_ + (if _ns90743_ + (_string-e90683_ + _ns90743_ '"namespace") '#f))) - (_read-body162335_ - _inp162368_ - _prelude162390_ - _ns162398_ - _pkg162394_ - _args162389_))))) - (if (##pair? _args162370162378_) - (let ((_hd162375162404_ (##car _args162370162378_)) - (_tl162376162406_ (##cdr _args162370162378_))) - (let* ((_prelude162409_ _hd162375162404_) - (_args162411_ _tl162376162406_)) - (_K162374162401_ _args162411_ _prelude162409_))) - (_else162372162386_))))) - (_read-lang162338_ - (lambda (_inp162343_) - (let* ((_head162345_ (read-line _inp162343_)) - (_$e162347_ (string-index _head162345_ '#\space))) - (if _$e162347_ - ((lambda (_ix162350_) - (let ((_lang162352_ - (substring _head162345_ '0 _ix162350_))) - (if (equal? _lang162352_ '"#lang") - (let* ((_rest162354_ + (_read-body90682_ + _inp90715_ + _prelude90737_ + _ns90745_ + _pkg90741_ + _args90736_))))) + (if (##pair? _args9071790725_) + (let ((_hd9072290751_ (##car _args9071790725_)) + (_tl9072390753_ (##cdr _args9071790725_))) + (let* ((_prelude90756_ _hd9072290751_) + (_args90758_ _tl9072390753_)) + (_K9072190748_ _args90758_ _prelude90756_))) + (_else9071990733_))))) + (_read-lang90685_ + (lambda (_inp90690_) + (let* ((_head90692_ (read-line _inp90690_)) + (_$e90694_ (string-index__0 _head90692_ '#\space))) + (if _$e90694_ + ((lambda (_ix90697_) + (let ((_lang90699_ + (substring _head90692_ '0 _ix90697_))) + (if (equal? _lang90699_ '"#lang") + (let* ((_rest90701_ (substring - _head162345_ - (fx+ _ix162350_ '1) - (string-length _head162345_))) - (_args162365_ + _head90692_ + (fx+ _ix90697_ '1) + (string-length _head90692_))) + (_args90712_ (with-catch - (lambda (_g162355162357_) + (lambda (_g9070290704_) (gx#raise-syntax-error '#f '"Illegal #lang arguments" - _path162332_ - _g162355162357_)) + _path90679_ + _g9070290704_)) (lambda () (call-with-input-string - _rest162354_ - (lambda (_g162360162362_) + _rest90701_ + (lambda (_g9070790709_) (read-all - _g162360162362_ + _g9070790709_ read))))))) - (_read-lang-args162337_ - _inp162343_ - _args162365_)) + (_read-lang-args90684_ + _inp90690_ + _args90712_)) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path162332_)))) - _$e162347_) + _path90679_)))) + _$e90694_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path162332_))))) - (_read-e162339_ - (lambda (_inp162341_) - (if (eq? (peek-char _inp162341_) '#\#) - (_read-lang162338_ _inp162341_) + _path90679_))))) + (_read-e90686_ + (lambda (_inp90688_) + (if (eq? (peek-char _inp90688_) '#\#) + (_read-lang90685_ _inp90688_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path162332_))))) - (gx#call-with-input-source-file _path162332_ _read-e162339_)))) + _path90679_))))) + (gx#call-with-input-source-file _path90679_ _read-e90686_)))) (define gx#core-read-module-package - (lambda (_path162286_ _pre162287_ _ns162288_) - (letrec ((_string-e162290_ - (lambda (_e162330_) - (if (symbol? _e162330_) - (symbol->string _e162330_) - (if (string? _e162330_) - _e162330_ + (lambda (_path90633_ _pre90634_ _ns90635_) + (letrec ((_string-e90637_ + (lambda (_e90677_) + (if (symbol? _e90677_) + (symbol->string _e90677_) + (if (string? _e90677_) + _e90677_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _e162330_)))))) - (let _lp162292_ ((_dir162294_ (path-directory _path162286_)) - (_pkg-path162295_ '())) - (let ((_gerbil.pkg162297_ (path-expand '"gerbil.pkg" _dir162294_))) - (if (file-exists? _gerbil.pkg162297_) - (let ((_plist162299_ - (gx#core-library-package-plist__% _dir162294_ '#t))) - (if (null? _plist162299_) - (let ((_pkg162301_ - (if (not (null? _pkg-path162295_)) - (string-join _pkg-path162295_ '"/") + _e90677_)))))) + (let _lp90639_ ((_dir90641_ (path-directory _path90633_)) + (_pkg-path90642_ '())) + (let ((_gerbil.pkg90644_ (path-expand '"gerbil.pkg" _dir90641_))) + (if (file-exists? _gerbil.pkg90644_) + (let ((_plist90646_ + (gx#core-library-package-plist__% _dir90641_ '#t))) + (if (null? _plist90646_) + (let ((_pkg90648_ + (if (not (null? _pkg-path90642_)) + (string-join _pkg-path90642_ '"/") '#f))) - (values _pre162287_ _ns162288_ _pkg162301_)) - (if (list? _plist162299_) - (let* ((_root162303_ - (pgetq 'package: _plist162299_)) - (_pkg162307_ - (let ((_pkg-path162305_ - (if _root162303_ - (cons (_string-e162290_ - _root162303_) - _pkg-path162295_) - _pkg-path162295_))) - (if (not (null? _pkg-path162305_)) - (string-join _pkg-path162305_ '"/") + (values _pre90634_ _ns90635_ _pkg90648_)) + (if (list? _plist90646_) + (let* ((_root90650_ + (pgetq__0 'package: _plist90646_)) + (_pkg90654_ + (let ((_pkg-path90652_ + (if _root90650_ + (cons (_string-e90637_ + _root90650_) + _pkg-path90642_) + _pkg-path90642_))) + (if (not (null? _pkg-path90652_)) + (string-join _pkg-path90652_ '"/") '#f))) - (_ns162314_ - (let ((_ns162312_ - (let ((_$e162309_ _ns162288_)) - (if _$e162309_ - _$e162309_ - (pgetq 'namespace: - _plist162299_))))) - (if _ns162312_ - (_string-e162290_ _ns162312_) + (_ns90661_ + (let ((_ns90659_ + (let ((_$e90656_ _ns90635_)) + (if _$e90656_ + _$e90656_ + (pgetq__0 + 'namespace: + _plist90646_))))) + (if _ns90659_ + (_string-e90637_ _ns90659_) '#f))) - (_pre162319_ - (let ((_$e162316_ _pre162287_)) - (if _$e162316_ - _$e162316_ - (pgetq 'prelude: _plist162299_))))) - (values _pre162319_ _ns162314_ _pkg162307_)) + (_pre90666_ + (let ((_$e90663_ _pre90634_)) + (if _$e90663_ + _$e90663_ + (pgetq__0 'prelude: _plist90646_))))) + (values _pre90666_ _ns90661_ _pkg90654_)) (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _plist162299_)))) - (let ((_dir*162322_ - (path-strip-trailing-directory-separator - _dir162294_))) - (if (or (string-empty? _dir*162322_) - (equal? _dir162294_ _dir*162322_)) - (values _pre162287_ _ns162288_ '#f) - (let ((_xpath162327_ - (path-strip-directory _dir*162322_)) - (_xdir162328_ (path-directory _dir*162322_))) - (_lp162292_ - _xdir162328_ - (cons _xpath162327_ _pkg-path162295_))))))))))) + _plist90646_)))) + (let ((_dir*90669_ + (path-strip-trailing-directory-separator _dir90641_))) + (if (or (string-empty? _dir*90669_) + (equal? _dir90641_ _dir*90669_)) + (values _pre90634_ _ns90635_ '#f) + (let ((_xpath90674_ (path-strip-directory _dir*90669_)) + (_xdir90675_ (path-directory _dir*90669_))) + (_lp90639_ + _xdir90675_ + (cons _xpath90674_ _pkg-path90642_))))))))))) (define gx#core-module-path->namespace - (lambda (_path162284_) - (path-strip-extension (path-strip-directory _path162284_)))) + (lambda (_path90631_) + (path-strip-extension (path-strip-directory _path90631_)))) (define gx#core-module-path->id - (lambda (_path162282_) - (string->symbol (gx#core-module-path->namespace _path162282_)))) + (lambda (_path90629_) + (string->symbol (gx#core-module-path->namespace _path90629_)))) (define gx#core-resolve-module-path__% - (lambda (_stx-path162261_ _rel162262_) - (let* ((_path162264_ (gx#stx-e _stx-path162261_)) - (_path162266_ - (if (string-empty? (path-extension _path162264_)) - (string-append _path162264_ '".ss") - _path162264_))) + (lambda (_stx-path90608_ _rel90609_) + (let* ((_path90611_ (gx#stx-e _stx-path90608_)) + (_path90613_ + (if (string-empty? (path-extension _path90611_)) + (string-append _path90611_ '".ss") + _path90611_))) (gx#core-resolve-path__% - _path162266_ - (let ((_$e162269_ (gx#stx-source _stx-path162261_))) - (if _$e162269_ _$e162269_ _rel162262_)))))) + _path90613_ + (let ((_$e90616_ (gx#stx-source _stx-path90608_))) + (if _$e90616_ _$e90616_ _rel90609_)))))) (define gx#core-resolve-module-path__0 - (lambda (_stx-path162275_) - (let ((_rel162277_ '#f)) - (gx#core-resolve-module-path__% _stx-path162275_ _rel162277_)))) + (lambda (_stx-path90622_) + (let ((_rel90624_ '#f)) + (gx#core-resolve-module-path__% _stx-path90622_ _rel90624_)))) (define gx#core-resolve-module-path - (lambda _g168413_ - (let ((_g168412_ (##length _g168413_))) - (cond ((##fx= _g168412_ 1) - (apply (lambda (_stx-path162275_) - (gx#core-resolve-module-path__0 _stx-path162275_)) - _g168413_)) - ((##fx= _g168412_ 2) - (apply (lambda (_stx-path162279_ _rel162280_) + (lambda _g92192_ + (let ((_g92191_ (##length _g92192_))) + (cond ((##fx= _g92191_ 1) + (apply (lambda (_stx-path90622_) + (gx#core-resolve-module-path__0 _stx-path90622_)) + _g92192_)) + ((##fx= _g92191_ 2) + (apply (lambda (_stx-path90626_ _rel90627_) (gx#core-resolve-module-path__% - _stx-path162279_ - _rel162280_)) - _g168413_)) + _stx-path90626_ + _rel90627_)) + _g92192_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-module-path - _g168413_)))))) + _g92192_)))))) (define gx#core-resolve-library-module-path - (lambda (_libpath162147_) - (let* ((_spath162149_ (symbol->string (gx#stx-e _libpath162147_))) - (_spath162151_ - (substring _spath162149_ '1 (string-length _spath162149_))) - (_ext162153_ (path-extension _spath162151_)) - (_ssi162155_ - (if (string-empty? _ext162153_) - (string-append _spath162151_ '".ssi") + (lambda (_libpath90494_) + (let* ((_spath90496_ (symbol->string (gx#stx-e _libpath90494_))) + (_spath90498_ + (substring _spath90496_ '1 (string-length _spath90496_))) + (_ext90500_ (path-extension _spath90498_)) + (_ssi90502_ + (if (string-empty? _ext90500_) + (string-append _spath90498_ '".ssi") (string-append - (path-strip-extension _spath162151_) + (path-strip-extension _spath90498_) '".ssi"))) - (_srcs162159_ - (if (string-empty? _ext162153_) - (map (lambda (_ext162157_) - (string-append _spath162151_ _ext162157_)) + (_srcs90506_ + (if (string-empty? _ext90500_) + (map (lambda (_ext90504_) + (string-append _spath90498_ _ext90504_)) '(".ss" ".sld" ".scm")) - (cons _spath162151_ '())))) - (let _lp162162_ ((_rest162164_ - (gx#current-expander-module-library-path))) - (let* ((_rest162165162174_ _rest162164_) - (_E162168162178_ + (cons _spath90498_ '())))) + (let _lp90509_ ((_rest90511_ + (gx#current-expander-module-library-path))) + (let* ((_rest9051290521_ _rest90511_) + (_E9051590525_ (lambda () - (error '"No clause matching" _rest162165162174_)))) - (let ((_K162170162248_ - (lambda (_rest162189_ _dir162190_) - (letrec ((_resolve162192_ - (lambda (_ssi162204_ _srcs162205_) - (let ((_compiled-path162207_ - (path-expand - _ssi162204_ - _dir162190_))) - (if (file-exists? _compiled-path162207_) - (path-normalize _compiled-path162207_) - (let _lpr162209_ ((_rest-src162211_ - _srcs162205_)) - (let* ((_rest-src162212162220_ - _rest-src162211_) - (_else162214162228_ + (error '"No clause matching" _rest9051290521_)))) + (let ((_K9051790595_ + (lambda (_rest90536_ _dir90537_) + (letrec ((_resolve90539_ + (lambda (_ssi90551_ _srcs90552_) + (let ((_compiled-path90554_ + (path-expand _ssi90551_ _dir90537_))) + (if (file-exists? _compiled-path90554_) + (path-normalize _compiled-path90554_) + (let _lpr90556_ ((_rest-src90558_ + _srcs90552_)) + (let* ((_rest-src9055990567_ + _rest-src90558_) + (_else9056190575_ (lambda () - (_lp162162_ - _rest162189_))) - (_K162216162236_ - (lambda (_rest-src162231_ - _src162232_) - (let ((_src-path162234_ + (_lp90509_ _rest90536_))) + (_K9056390583_ + (lambda (_rest-src90578_ + _src90579_) + (let ((_src-path90581_ (path-expand - _src162232_ - _dir162190_))) + _src90579_ + _dir90537_))) (if (file-exists? - _src-path162234_) + _src-path90581_) (path-normalize - _src-path162234_) - (_lpr162209_ - _rest-src162231_)))))) - (if (##pair? _rest-src162212162220_) - (let ((_hd162217162239_ - (##car _rest-src162212162220_)) - (_tl162218162241_ - (##cdr _rest-src162212162220_))) - (let* ((_src162244_ - _hd162217162239_) - (_rest-src162246_ - _tl162218162241_)) - (_K162216162236_ - _rest-src162246_ - _src162244_))) - (_else162214162228_))))))))) - (let ((_$e162194_ + _src-path90581_) + (_lpr90556_ + _rest-src90578_)))))) + (if (##pair? _rest-src9055990567_) + (let ((_hd9056490586_ + (##car _rest-src9055990567_)) + (_tl9056590588_ + (##cdr _rest-src9055990567_))) + (let* ((_src90591_ + _hd9056490586_) + (_rest-src90593_ + _tl9056590588_)) + (_K9056390583_ + _rest-src90593_ + _src90591_))) + (_else9056190575_))))))))) + (let ((_$e90541_ (gx#core-library-package-path-prefix - _dir162190_))) - (if _$e162194_ - ((lambda (_prefix162197_) + _dir90537_))) + (if _$e90541_ + ((lambda (_prefix90544_) (if (string-prefix? - _prefix162197_ - _spath162151_) - (let ((_ssi162201_ + _prefix90544_ + _spath90498_) + (let ((_ssi90548_ (substring - _ssi162155_ - (string-length _prefix162197_) - (string-length _ssi162155_))) - (_srcs162202_ - (map (lambda (_src162199_) + _ssi90502_ + (string-length _prefix90544_) + (string-length _ssi90502_))) + (_srcs90549_ + (map (lambda (_src90546_) (substring - _src162199_ + _src90546_ (string-length - _prefix162197_) + _prefix90544_) (string-length - _src162199_))) - _srcs162159_))) - (_resolve162192_ - _ssi162201_ - _srcs162202_)) - (_lp162162_ _rest162189_))) - _$e162194_) - (_resolve162192_ _ssi162155_ _srcs162159_)))))) - (_K162169162183_ + _src90546_))) + _srcs90506_))) + (_resolve90539_ + _ssi90548_ + _srcs90549_)) + (_lp90509_ _rest90536_))) + _$e90541_) + (_resolve90539_ _ssi90502_ _srcs90506_)))))) + (_K9051690530_ (lambda () (gx#raise-syntax-error '#f '"Cannot find library module" - _libpath162147_)))) - (let ((_try-match162167162186_ + _libpath90494_)))) + (let ((_try-match9051490533_ (lambda () - (if (##null? _rest162165162174_) - (_K162169162183_) - (_E162168162178_))))) - (if (##pair? _rest162165162174_) - (let ((_tl162172162253_ (##cdr _rest162165162174_)) - (_hd162171162251_ (##car _rest162165162174_))) - (let ((_dir162256_ _hd162171162251_) - (_rest162258_ _tl162172162253_)) - (_K162170162248_ _rest162258_ _dir162256_))) - (_try-match162167162186_))))))))) + (if (##null? _rest9051290521_) + (_K9051690530_) + (_E9051590525_))))) + (if (##pair? _rest9051290521_) + (let ((_tl9051990600_ (##cdr _rest9051290521_)) + (_hd9051890598_ (##car _rest9051290521_))) + (let ((_dir90603_ _hd9051890598_) + (_rest90605_ _tl9051990600_)) + (_K9051790595_ _rest90605_ _dir90603_))) + (_try-match9051490533_))))))))) (define gx#core-resolve-library-relative-module-path - (lambda (_modpath162120_) - (letrec ((_resolve162122_ - (lambda (_path162139_ _base162140_) - (let ((_$e162142_ (string-rindex _base162140_ '#\/))) - (if _$e162142_ - ((lambda (_idx162145_) + (lambda (_modpath90467_) + (letrec ((_resolve90469_ + (lambda (_path90486_ _base90487_) + (let ((_$e90489_ (string-rindex__0 _base90487_ '#\/))) + (if _$e90489_ + ((lambda (_idx90492_) (gx#core-resolve-library-module-path (string->symbol (string-append '":" - (substring _base162140_ '0 _idx162145_) + (substring _base90487_ '0 _idx90492_) '"/" - _path162139_)))) - _$e162142_) + _path90486_)))) + _$e90489_) (gx#core-resolve-library-module-path (string->symbol - (string-append '":" _path162139_)))))))) - (let ((_spath162124_ (symbol->string (gx#stx-e _modpath162120_))) - (_mod162125_ + (string-append '":" _path90486_)))))))) + (let ((_spath90471_ (symbol->string (gx#stx-e _modpath90467_))) + (_mod90472_ (gx#core-context-top__% (gx#current-expander-context) gx#module-context?))) - (if _mod162125_ + (if _mod90472_ '#!void (gx#raise-syntax-error '#f '"Cannot resolve relative module path; not in module context" - _modpath162120_)) - (let ((_mpath162127_ + _modpath90467_)) + (let ((_mpath90474_ (symbol->string (##structure-ref - _mod162125_ + _mod90472_ '1 gx#expander-context::t '#f)))) - (let _lp162129_ ((_spath162131_ _spath162124_) - (_mpath162132_ _mpath162127_)) - (if (string-prefix? '"../" _spath162131_) - (let ((_$e162134_ (string-rindex _mpath162132_ '#\/))) - (if _$e162134_ - ((lambda (_idx162137_) - (_lp162129_ + (let _lp90476_ ((_spath90478_ _spath90471_) + (_mpath90479_ _mpath90474_)) + (if (string-prefix? '"../" _spath90478_) + (let ((_$e90481_ (string-rindex__0 _mpath90479_ '#\/))) + (if _$e90481_ + ((lambda (_idx90484_) + (_lp90476_ (substring - _spath162131_ + _spath90478_ '3 - (string-length _spath162131_)) - (substring _mpath162132_ '0 _idx162137_))) - _$e162134_) + (string-length _spath90478_)) + (substring _mpath90479_ '0 _idx90484_))) + _$e90481_) (gx#raise-syntax-error '#f '"Cannot resolve relative module path; illegal traversal" - _modpath162120_))) - (if (string-prefix? '"./" _spath162131_) - (_lp162129_ + _modpath90467_))) + (if (string-prefix? '"./" _spath90478_) + (_lp90476_ (substring - _spath162131_ + _spath90478_ '2 - (string-length _spath162131_)) - _mpath162132_) - (_resolve162122_ _spath162131_ _mpath162132_))))))))) + (string-length _spath90478_)) + _mpath90479_) + (_resolve90469_ _spath90478_ _mpath90479_))))))))) (define gx#core-library-package-path-prefix - (lambda (_dir162113_) - (let ((_$e162115_ - (pgetq 'package: - (gx#core-library-package-plist__0 _dir162113_)))) - (if _$e162115_ - ((lambda (_pkg162118_) - (string-append (symbol->string _pkg162118_) '"/")) - _$e162115_) + (lambda (_dir90460_) + (let ((_$e90462_ + (pgetq__0 + 'package: + (gx#core-library-package-plist__0 _dir90460_)))) + (if _$e90462_ + ((lambda (_pkg90465_) + (string-append (symbol->string _pkg90465_) '"/")) + _$e90462_) '#f)))) (define gx#core-library-package-plist__% - (lambda (_dir162085_ _exists?162086_) - (let* ((_cache162088_ (gx#core-library-package-cache)) - (_$e162090_ (table-ref _cache162088_ _dir162085_ '#f))) - (if _$e162090_ - (values _$e162090_) - (let* ((_gerbil.pkg162093_ - (path-expand '"gerbil.pkg" _dir162085_)) - (_plist162100_ - (if (or _exists?162086_ - (file-exists? _gerbil.pkg162093_)) - (let ((_e162098_ + (lambda (_dir90432_ _exists?90433_) + (let* ((_cache90435_ (gx#core-library-package-cache)) + (_$e90437_ (hash-get _cache90435_ _dir90432_))) + (if _$e90437_ + (values _$e90437_) + (let* ((_gerbil.pkg90440_ (path-expand '"gerbil.pkg" _dir90432_)) + (_plist90447_ + (if (or _exists?90433_ (file-exists? _gerbil.pkg90440_)) + (let ((_e90445_ (gx#call-with-input-source-file - _gerbil.pkg162093_ + _gerbil.pkg90440_ read))) - (if (eof-object? _e162098_) + (if (eof-object? _e90445_) '() - (if (list? _e162098_) - _e162098_ + (if (list? _e90445_) + _e90445_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _gerbil.pkg162093_ - _e162098_)))) + _gerbil.pkg90440_ + _e90445_)))) '()))) - (table-set! _cache162088_ _dir162085_ _plist162100_) - _plist162100_))))) + (hash-put! _cache90435_ _dir90432_ _plist90447_) + _plist90447_))))) (define gx#core-library-package-plist__0 - (lambda (_dir162106_) - (let ((_exists?162108_ '#f)) - (gx#core-library-package-plist__% _dir162106_ _exists?162108_)))) + (lambda (_dir90453_) + (let ((_exists?90455_ '#f)) + (gx#core-library-package-plist__% _dir90453_ _exists?90455_)))) (define gx#core-library-package-plist - (lambda _g168415_ - (let ((_g168414_ (##length _g168415_))) - (cond ((##fx= _g168414_ 1) - (apply (lambda (_dir162106_) - (gx#core-library-package-plist__0 _dir162106_)) - _g168415_)) - ((##fx= _g168414_ 2) - (apply (lambda (_dir162110_ _exists?162111_) + (lambda _g92194_ + (let ((_g92193_ (##length _g92194_))) + (cond ((##fx= _g92193_ 1) + (apply (lambda (_dir90453_) + (gx#core-library-package-plist__0 _dir90453_)) + _g92194_)) + ((##fx= _g92193_ 2) + (apply (lambda (_dir90457_ _exists?90458_) (gx#core-library-package-plist__% - _dir162110_ - _exists?162111_)) - _g168415_)) + _dir90457_ + _exists?90458_)) + _g92194_)) (else (##raise-wrong-number-of-arguments-exception gx#core-library-package-plist - _g168415_)))))) + _g92194_)))))) (define gx#core-library-package-cache (lambda () - (let ((_$e162079_ (gx#current-expander-module-library-package-cache))) - (if _$e162079_ - (values _$e162079_) - (let ((_cache162082_ (make-table))) - (gx#current-expander-module-library-package-cache - _cache162082_) - _cache162082_))))) + (let ((_$e90426_ (gx#current-expander-module-library-package-cache))) + (if _$e90426_ + (values _$e90426_) + (let ((_cache90429_ (make-hash-table))) + (gx#current-expander-module-library-package-cache _cache90429_) + _cache90429_))))) (define gx#core-library-module-path? - (lambda (_stx162076_) (gx#core-special-module-path? _stx162076_ '#\:))) + (lambda (_stx90423_) (gx#core-special-module-path? _stx90423_ '#\:))) (define gx#core-library-relative-module-path? - (lambda (_stx162074_) (gx#core-special-module-path? _stx162074_ '#\.))) + (lambda (_stx90421_) (gx#core-special-module-path? _stx90421_ '#\.))) (define gx#core-special-module-path? - (lambda (_stx162069_ _char162070_) - (if (gx#identifier? _stx162069_) - (if (interned-symbol? (gx#stx-e _stx162069_)) - (let ((_str162072_ (symbol->string (gx#stx-e _stx162069_)))) - (if (fx> (string-length _str162072_) '1) - (eq? (string-ref _str162072_ '0) _char162070_) + (lambda (_stx90416_ _char90417_) + (if (gx#identifier? _stx90416_) + (if (interned-symbol? (gx#stx-e _stx90416_)) + (let ((_str90419_ (symbol->string (gx#stx-e _stx90416_)))) + (if (fx> (string-length _str90419_) '1) + (eq? (string-ref _str90419_ '0) _char90417_) '#f)) '#f) '#f))) (define gx#core-bound-prelude? - (lambda (_stx162063_) + (lambda (_stx90410_) (gx#core-bound-identifier?__% - _stx162063_ - (lambda (_g162064162066_) - (gx#expander-binding?__% _g162064162066_ gx#prelude-context?))))) + _stx90410_ + (lambda (_g9041190413_) + (gx#expander-binding?__% _g9041190413_ gx#prelude-context?))))) (define gx#core-bound-module? - (lambda (_stx162057_) + (lambda (_stx90404_) (gx#core-bound-identifier?__% - _stx162057_ - (lambda (_g162058162060_) - (gx#expander-binding?__% _g162058162060_ gx#module-context?))))) + _stx90404_ + (lambda (_g9040590407_) + (gx#expander-binding?__% _g9040590407_ gx#module-context?))))) (define gx#core-bound-module-prelude? - (lambda (_stx162044_) - (letrec ((_module-prelude?162046_ - (lambda (_e162052_) - (let ((_$e162054_ + (lambda (_stx90391_) + (letrec ((_module-prelude?90393_ + (lambda (_e90399_) + (let ((_$e90401_ (##structure-instance-of? - _e162052_ + _e90399_ 'gx#module-context::t))) - (if _$e162054_ - _$e162054_ + (if _$e90401_ + _$e90401_ (##structure-instance-of? - _e162052_ + _e90399_ 'gx#prelude-context::t)))))) (gx#core-bound-identifier?__% - _stx162044_ - (lambda (_g162047162049_) + _stx90391_ + (lambda (_g9039490396_) (gx#expander-binding?__% - _g162047162049_ - _module-prelude?162046_)))))) + _g9039490396_ + _module-prelude?90393_)))))) (define gx#core-bind-import!__% - (lambda (_in161974_ _ctx161975_ _force-weak?161976_) - (let* ((_in161977161986_ _in161974_) - (_E161979161990_ - (lambda () (error '"No clause matching" _in161977161986_))) - (_K161980162003_ - (lambda (_weak?161993_ _phi161994_ _key161995_ _source161996_) + (lambda (_in90321_ _ctx90322_ _force-weak?90323_) + (let* ((_in9032490333_ _in90321_) + (_E9032690337_ + (lambda () (error '"No clause matching" _in9032490333_))) + (_K9032790350_ + (lambda (_weak?90340_ _phi90341_ _key90342_ _source90343_) (gx#core-bind!__% - _key161995_ - (let ((_e161998_ - (gx#core-resolve-module-export _source161996_))) + _key90342_ + (let ((_e90345_ + (gx#core-resolve-module-export _source90343_))) (##structure gx#import-binding::t + (##unchecked-structure-ref _e90345_ '1 gx#binding::t '#f) + _key90342_ + _phi90341_ + _e90345_ (##unchecked-structure-ref - _e161998_ - '1 - gx#binding::t - '#f) - _key161995_ - _phi161994_ - _e161998_ - (##unchecked-structure-ref - _source161996_ + _source90343_ '1 gx#module-export::t '#f) - (let ((_$e162000_ _force-weak?161976_)) - (if _$e162000_ _$e162000_ _weak?161993_)))) + (let ((_$e90347_ _force-weak?90323_)) + (if _$e90347_ _$e90347_ _weak?90340_)))) gx#core-context-rebind? - _phi161994_ - _ctx161975_)))) + _phi90341_ + _ctx90322_)))) (if (##structure-direct-instance-of? - _in161977161986_ + _in9032490333_ 'gx#module-import::t) - (let* ((_e161981162006_ + (let* ((_e9032890353_ (##unchecked-structure-ref - _in161977161986_ + _in9032490333_ '1 gx#module-import::t '#f)) - (_source162009_ _e161981162006_) - (_e161982162011_ + (_source90356_ _e9032890353_) + (_e9032990358_ (##unchecked-structure-ref - _in161977161986_ + _in9032490333_ '2 gx#module-import::t '#f)) - (_key162014_ _e161982162011_) - (_e161983162016_ + (_key90361_ _e9032990358_) + (_e9033090363_ (##unchecked-structure-ref - _in161977161986_ + _in9032490333_ '3 gx#module-import::t '#f)) - (_phi162019_ _e161983162016_) - (_e161984162021_ + (_phi90366_ _e9033090363_) + (_e9033190368_ (##unchecked-structure-ref - _in161977161986_ + _in9032490333_ '4 gx#module-import::t '#f)) - (_weak?162024_ _e161984162021_)) - (_K161980162003_ - _weak?162024_ - _phi162019_ - _key162014_ - _source162009_)) - (_E161979161990_))))) + (_weak?90371_ _e9033190368_)) + (_K9032790350_ + _weak?90371_ + _phi90366_ + _key90361_ + _source90356_)) + (_E9032690337_))))) (define gx#core-bind-import!__0 - (lambda (_in162029_) - (let* ((_ctx162031_ (gx#current-expander-context)) - (_force-weak?162033_ '#f)) - (gx#core-bind-import!__% - _in162029_ - _ctx162031_ - _force-weak?162033_)))) + (lambda (_in90376_) + (let* ((_ctx90378_ (gx#current-expander-context)) + (_force-weak?90380_ '#f)) + (gx#core-bind-import!__% _in90376_ _ctx90378_ _force-weak?90380_)))) (define gx#core-bind-import!__1 - (lambda (_in162035_ _ctx162036_) - (let ((_force-weak?162038_ '#f)) - (gx#core-bind-import!__% - _in162035_ - _ctx162036_ - _force-weak?162038_)))) + (lambda (_in90382_ _ctx90383_) + (let ((_force-weak?90385_ '#f)) + (gx#core-bind-import!__% _in90382_ _ctx90383_ _force-weak?90385_)))) (define gx#core-bind-import! - (lambda _g168417_ - (let ((_g168416_ (##length _g168417_))) - (cond ((##fx= _g168416_ 1) - (apply (lambda (_in162029_) - (gx#core-bind-import!__0 _in162029_)) - _g168417_)) - ((##fx= _g168416_ 2) - (apply (lambda (_in162035_ _ctx162036_) - (gx#core-bind-import!__1 _in162035_ _ctx162036_)) - _g168417_)) - ((##fx= _g168416_ 3) - (apply (lambda (_in162040_ _ctx162041_ _force-weak?162042_) + (lambda _g92196_ + (let ((_g92195_ (##length _g92196_))) + (cond ((##fx= _g92195_ 1) + (apply (lambda (_in90376_) + (gx#core-bind-import!__0 _in90376_)) + _g92196_)) + ((##fx= _g92195_ 2) + (apply (lambda (_in90382_ _ctx90383_) + (gx#core-bind-import!__1 _in90382_ _ctx90383_)) + _g92196_)) + ((##fx= _g92195_ 3) + (apply (lambda (_in90387_ _ctx90388_ _force-weak?90389_) (gx#core-bind-import!__% - _in162040_ - _ctx162041_ - _force-weak?162042_)) - _g168417_)) + _in90387_ + _ctx90388_ + _force-weak?90389_)) + _g92196_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-import! - _g168417_)))))) + _g92196_)))))) (define gx#core-bind-weak-import!__% - (lambda (_in161960_ _ctx161961_) - (gx#core-bind-import!__% _in161960_ _ctx161961_ '#t))) + (lambda (_in90307_ _ctx90308_) + (gx#core-bind-import!__% _in90307_ _ctx90308_ '#t))) (define gx#core-bind-weak-import!__0 - (lambda (_in161966_) - (let ((_ctx161968_ (gx#current-expander-context))) - (gx#core-bind-weak-import!__% _in161966_ _ctx161968_)))) + (lambda (_in90313_) + (let ((_ctx90315_ (gx#current-expander-context))) + (gx#core-bind-weak-import!__% _in90313_ _ctx90315_)))) (define gx#core-bind-weak-import! - (lambda _g168419_ - (let ((_g168418_ (##length _g168419_))) - (cond ((##fx= _g168418_ 1) - (apply (lambda (_in161966_) - (gx#core-bind-weak-import!__0 _in161966_)) - _g168419_)) - ((##fx= _g168418_ 2) - (apply (lambda (_in161970_ _ctx161971_) - (gx#core-bind-weak-import!__% - _in161970_ - _ctx161971_)) - _g168419_)) + (lambda _g92198_ + (let ((_g92197_ (##length _g92198_))) + (cond ((##fx= _g92197_ 1) + (apply (lambda (_in90313_) + (gx#core-bind-weak-import!__0 _in90313_)) + _g92198_)) + ((##fx= _g92197_ 2) + (apply (lambda (_in90317_ _ctx90318_) + (gx#core-bind-weak-import!__% _in90317_ _ctx90318_)) + _g92198_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-weak-import! - _g168419_)))))) + _g92198_)))))) (define gx#core-resolve-module-export - (lambda (_out161851_) - (letrec ((_subst161853_ - (lambda (_key161899_) - (let* ((_key161900161908_ _key161899_) - (_else161902161916_ (lambda () _key161899_)) - (_K161904161947_ - (lambda (_mark161919_ _id161920_) - (let* ((_mark161921161927_ _mark161919_) - (_E161923161931_ + (lambda (_out90198_) + (letrec ((_subst90200_ + (lambda (_key90246_) + (let* ((_key9024790255_ _key90246_) + (_else9024990263_ (lambda () _key90246_)) + (_K9025190294_ + (lambda (_mark90266_ _id90267_) + (let* ((_mark9026890274_ _mark90266_) + (_E9027090278_ (lambda () (error '"No clause matching" - _mark161921161927_))) - (_K161924161939_ - (lambda (_subst161934_) - (let ((_$e161936_ - (if _subst161934_ - (table-ref - _subst161934_ - _id161920_ - '#f) + _mark9026890274_))) + (_K9027190286_ + (lambda (_subst90281_) + (let ((_$e90283_ + (if _subst90281_ + (hash-get + _subst90281_ + _id90267_) '#f))) - (if _$e161936_ - _$e161936_ + (if _$e90283_ + _$e90283_ (gx#raise-syntax-error '#f '"Illegal key; missing substitution" - _key161899_)))))) + _key90246_)))))) (if (##structure-instance-of? - _mark161921161927_ + _mark9026890274_ 'gx#expander-mark::t) - (let* ((_e161925161942_ + (let* ((_e9027290289_ (##unchecked-structure-ref - _mark161921161927_ + _mark9026890274_ '1 gx#expander-mark::t '#f)) - (_subst161945_ _e161925161942_)) - (_K161924161939_ _subst161945_)) - (_E161923161931_)))))) - (if (##pair? _key161900161908_) - (let ((_hd161905161950_ (##car _key161900161908_)) - (_tl161906161952_ (##cdr _key161900161908_))) - (let* ((_id161955_ _hd161905161950_) - (_mark161957_ _tl161906161952_)) - (_K161904161947_ _mark161957_ _id161955_))) - (_else161902161916_)))))) - (let* ((_out161854161864_ _out161851_) - (_E161856161868_ - (lambda () (error '"No clause matching" _out161854161864_))) - (_K161857161875_ - (lambda (_phi161871_ _key161872_ _ctx161873_) + (_subst90292_ _e9027290289_)) + (_K9027190286_ _subst90292_)) + (_E9027090278_)))))) + (if (##pair? _key9024790255_) + (let ((_hd9025290297_ (##car _key9024790255_)) + (_tl9025390299_ (##cdr _key9024790255_))) + (let* ((_id90302_ _hd9025290297_) + (_mark90304_ _tl9025390299_)) + (_K9025190294_ _mark90304_ _id90302_))) + (_else9024990263_)))))) + (let* ((_out9020190211_ _out90198_) + (_E9020390215_ + (lambda () (error '"No clause matching" _out9020190211_))) + (_K9020490222_ + (lambda (_phi90218_ _key90219_ _ctx90220_) (gx#core-context-resolve - (gx#core-context-shift _ctx161873_ _phi161871_) - (_subst161853_ _key161872_))))) + (gx#core-context-shift _ctx90220_ _phi90218_) + (_subst90200_ _key90219_))))) (if (##structure-direct-instance-of? - _out161854161864_ + _out9020190211_ 'gx#module-export::t) - (let* ((_e161858161878_ + (let* ((_e9020590225_ (##unchecked-structure-ref - _out161854161864_ + _out9020190211_ '1 gx#module-export::t '#f)) - (_ctx161881_ _e161858161878_) - (_e161859161883_ + (_ctx90228_ _e9020590225_) + (_e9020690230_ (##unchecked-structure-ref - _out161854161864_ + _out9020190211_ '2 gx#module-export::t '#f)) - (_key161886_ _e161859161883_) - (_e161860161888_ + (_key90233_ _e9020690230_) + (_e9020790235_ (##unchecked-structure-ref - _out161854161864_ + _out9020190211_ '3 gx#module-export::t '#f)) - (_phi161891_ _e161860161888_) - (_e161861161893_ + (_phi90238_ _e9020790235_) + (_e9020890240_ (##unchecked-structure-ref - _out161854161864_ + _out9020190211_ '4 gx#module-export::t '#f)) - (_e161862161896_ + (_e9020990243_ (##unchecked-structure-ref - _out161854161864_ + _out9020190211_ '5 gx#module-export::t '#f))) - (_K161857161875_ _phi161891_ _key161886_ _ctx161881_)) - (_E161856161868_)))))) + (_K9020490222_ _phi90238_ _key90233_ _ctx90228_)) + (_E9020390215_)))))) (define gx#core-module-export->import__% - (lambda (_out161776_ _rename161777_ _dphi161778_) - (let* ((_out161779161789_ _out161776_) - (_E161781161793_ - (lambda () (error '"No clause matching" _out161779161789_))) - (_K161782161805_ - (lambda (_weak?161796_ - _name161797_ - _phi161798_ - _key161799_ - _ctx161800_) + (lambda (_out90123_ _rename90124_ _dphi90125_) + (let* ((_out9012690136_ _out90123_) + (_E9012890140_ + (lambda () (error '"No clause matching" _out9012690136_))) + (_K9012990152_ + (lambda (_weak?90143_ + _name90144_ + _phi90145_ + _key90146_ + _ctx90147_) (##structure gx#module-import::t - _out161776_ - (let ((_$e161802_ _rename161777_)) - (if _$e161802_ _$e161802_ _name161797_)) - (fx+ _phi161798_ _dphi161778_) - _weak?161796_)))) + _out90123_ + (let ((_$e90149_ _rename90124_)) + (if _$e90149_ _$e90149_ _name90144_)) + (fx+ _phi90145_ _dphi90125_) + _weak?90143_)))) (if (##structure-direct-instance-of? - _out161779161789_ + _out9012690136_ 'gx#module-export::t) - (let* ((_e161783161808_ + (let* ((_e9013090155_ (##unchecked-structure-ref - _out161779161789_ + _out9012690136_ '1 gx#module-export::t '#f)) - (_ctx161811_ _e161783161808_) - (_e161784161813_ + (_ctx90158_ _e9013090155_) + (_e9013190160_ (##unchecked-structure-ref - _out161779161789_ + _out9012690136_ '2 gx#module-export::t '#f)) - (_key161816_ _e161784161813_) - (_e161785161818_ + (_key90163_ _e9013190160_) + (_e9013290165_ (##unchecked-structure-ref - _out161779161789_ + _out9012690136_ '3 gx#module-export::t '#f)) - (_phi161821_ _e161785161818_) - (_e161786161823_ + (_phi90168_ _e9013290165_) + (_e9013390170_ (##unchecked-structure-ref - _out161779161789_ + _out9012690136_ '4 gx#module-export::t '#f)) - (_name161826_ _e161786161823_) - (_e161787161828_ + (_name90173_ _e9013390170_) + (_e9013490175_ (##unchecked-structure-ref - _out161779161789_ + _out9012690136_ '5 gx#module-export::t '#f)) - (_weak?161831_ _e161787161828_)) - (_K161782161805_ - _weak?161831_ - _name161826_ - _phi161821_ - _key161816_ - _ctx161811_)) - (_E161781161793_))))) + (_weak?90178_ _e9013490175_)) + (_K9012990152_ + _weak?90178_ + _name90173_ + _phi90168_ + _key90163_ + _ctx90158_)) + (_E9012890140_))))) (define gx#core-module-export->import__0 - (lambda (_out161836_) - (let* ((_rename161838_ '#f) (_dphi161840_ '0)) + (lambda (_out90183_) + (let* ((_rename90185_ '#f) (_dphi90187_ '0)) (gx#core-module-export->import__% - _out161836_ - _rename161838_ - _dphi161840_)))) + _out90183_ + _rename90185_ + _dphi90187_)))) (define gx#core-module-export->import__1 - (lambda (_out161842_ _rename161843_) - (let ((_dphi161845_ '0)) + (lambda (_out90189_ _rename90190_) + (let ((_dphi90192_ '0)) (gx#core-module-export->import__% - _out161842_ - _rename161843_ - _dphi161845_)))) + _out90189_ + _rename90190_ + _dphi90192_)))) (define gx#core-module-export->import - (lambda _g168421_ - (let ((_g168420_ (##length _g168421_))) - (cond ((##fx= _g168420_ 1) - (apply (lambda (_out161836_) - (gx#core-module-export->import__0 _out161836_)) - _g168421_)) - ((##fx= _g168420_ 2) - (apply (lambda (_out161842_ _rename161843_) + (lambda _g92200_ + (let ((_g92199_ (##length _g92200_))) + (cond ((##fx= _g92199_ 1) + (apply (lambda (_out90183_) + (gx#core-module-export->import__0 _out90183_)) + _g92200_)) + ((##fx= _g92199_ 2) + (apply (lambda (_out90189_ _rename90190_) (gx#core-module-export->import__1 - _out161842_ - _rename161843_)) - _g168421_)) - ((##fx= _g168420_ 3) - (apply (lambda (_out161847_ _rename161848_ _dphi161849_) + _out90189_ + _rename90190_)) + _g92200_)) + ((##fx= _g92199_ 3) + (apply (lambda (_out90194_ _rename90195_ _dphi90196_) (gx#core-module-export->import__% - _out161847_ - _rename161848_ - _dphi161849_)) - _g168421_)) + _out90194_ + _rename90195_ + _dphi90196_)) + _g92200_)) (else (##raise-wrong-number-of-arguments-exception gx#core-module-export->import - _g168421_)))))) + _g92200_)))))) (define gx#core-expand-module% - (lambda (_stx161704_) - (letrec ((_make-context161706_ - (lambda (_id161757_) - (let* ((_super161759_ (gx#current-expander-context)) - (_bind-id161761_ (gx#stx-e _id161757_)) - (_mod-id161763_ + (lambda (_stx90051_) + (letrec ((_make-context90053_ + (lambda (_id90104_) + (let* ((_super90106_ (gx#current-expander-context)) + (_bind-id90108_ (gx#stx-e _id90104_)) + (_mod-id90110_ (if (##structure-instance-of? - _super161759_ + _super90106_ 'gx#module-context::t) (make-symbol__1 (##structure-ref - _super161759_ + _super90106_ '1 gx#expander-context::t '#f) '"$" - _bind-id161761_) - _bind-id161761_)) - (_ns161765_ (symbol->string _mod-id161763_)) - (_path161772_ + _bind-id90108_) + _bind-id90108_)) + (_ns90112_ (symbol->string _mod-id90110_)) + (_path90119_ (if (##structure-instance-of? - _super161759_ + _super90106_ 'gx#module-context::t) - (let ((_path161767_ + (let ((_path90114_ (##unchecked-structure-ref - _super161759_ + _super90106_ '7 gx#module-context::t '#f))) - (if (or (pair? _path161767_) - (null? _path161767_)) - (cons _bind-id161761_ _path161767_) - (if (not _path161767_) - _bind-id161761_ - (cons _bind-id161761_ - (cons _path161767_ '()))))) - _bind-id161761_))) - (let ((__obj168397 + (if (or (pair? _path90114_) + (null? _path90114_)) + (cons _bind-id90108_ _path90114_) + (if (not _path90114_) + _bind-id90108_ + (cons _bind-id90108_ + (cons _path90114_ '()))))) + _bind-id90108_))) + (let ((__obj92176 (##structure gx#module-context::t '#f @@ -2181,890 +2167,872 @@ '#f '#f))) (gx#module-context:::init! - __obj168397 - _mod-id161763_ - _super161759_ - _ns161765_ - _path161772_) - __obj168397))))) - (let* ((_e161707161717_ _stx161704_) - (_E161709161721_ + __obj92176 + _mod-id90110_ + _super90106_ + _ns90112_ + _path90119_) + __obj92176))))) + (let* ((_e9005490064_ _stx90051_) + (_E9005690068_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e161707161717_))) - (_E161708161753_ + _e9005490064_))) + (_E9005590100_ (lambda () - (if (gx#stx-pair? _e161707161717_) - (let ((_e161710161725_ (gx#syntax-e _e161707161717_))) - (let ((_hd161711161728_ (##car _e161710161725_)) - (_tl161712161730_ (##cdr _e161710161725_))) - (if (gx#stx-pair? _tl161712161730_) - (let ((_e161713161733_ - (gx#syntax-e _tl161712161730_))) - (let ((_hd161714161736_ - (##car _e161713161733_)) - (_tl161715161738_ - (##cdr _e161713161733_))) - (let* ((_id161741_ _hd161714161736_) - (_body161743_ _tl161715161738_)) - (if (and (gx#identifier? _id161741_) - (gx#stx-list? _body161743_)) - (let* ((_ctx161745_ - (_make-context161706_ - _id161741_)) - (_body161747_ + (if (gx#stx-pair? _e9005490064_) + (let ((_e9005790072_ (gx#syntax-e _e9005490064_))) + (let ((_hd9005890075_ (##car _e9005790072_)) + (_tl9005990077_ (##cdr _e9005790072_))) + (if (gx#stx-pair? _tl9005990077_) + (let ((_e9006090080_ + (gx#syntax-e _tl9005990077_))) + (let ((_hd9006190083_ (##car _e9006090080_)) + (_tl9006290085_ (##cdr _e9006090080_))) + (let* ((_id90088_ _hd9006190083_) + (_body90090_ _tl9006290085_)) + (if (and (gx#identifier? _id90088_) + (gx#stx-list? _body90090_)) + (let* ((_ctx90092_ + (_make-context90053_ + _id90088_)) + (_body90094_ (gx#core-expand-module-begin - _body161743_ - _ctx161745_)) - (_body161749_ + _body90090_ + _ctx90092_)) + (_body90096_ (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _body161747_) + _body90094_) (gx#stx-source - _stx161704_)))) + _stx90051_)))) (##unchecked-structure-set! - _ctx161745_ + _ctx90092_ (make-promise (lambda () - (gx#eval-syntax* - _body161749_))) + (gx#eval-syntax* _body90096_))) '10 gx#module-context::t '#f) (##unchecked-structure-set! - _ctx161745_ - _body161749_ + _ctx90092_ + _body90096_ '11 gx#module-context::t '#f) (gx#core-bind-syntax!__0 - _id161741_ - _ctx161745_) + _id90088_ + _ctx90092_) (gx#core-quote-syntax__1 (gx#core-list '%#module (gx#core-quote-syntax__0 - _id161741_) - _body161749_) - (gx#stx-source _stx161704_))) - (_E161709161721_))))) - (_E161709161721_)))) - (_E161709161721_))))) - (_E161708161753_))))) + _id90088_) + _body90096_) + (gx#stx-source _stx90051_))) + (_E9005690068_))))) + (_E9005690068_)))) + (_E9005690068_))))) + (_E9005590100_))))) (define gx#core-expand-module-begin - (lambda (_body161670_ _ctx161671_) + (lambda (_body90017_ _ctx90018_) (call-with-parameters (lambda () (gx#core-bind-feature!__1 'gerbil-module '#t) - (let* ((_stx161674_ - (gx#core-expand-head (cons '%%begin-module _body161670_))) - (_e161675161682_ _stx161674_) - (_E161677161686_ + (let* ((_stx90021_ + (gx#core-expand-head (cons '%%begin-module _body90017_))) + (_e9002290029_ _stx90021_) + (_E9002490033_ (lambda () (gx#raise-syntax-error '#f '"Illegal module body expansion" - _stx161674_))) - (_E161676161700_ + _stx90021_))) + (_E9002390047_ (lambda () - (if (gx#stx-pair? _e161675161682_) - (let ((_e161678161690_ (gx#syntax-e _e161675161682_))) - (let ((_hd161679161693_ (##car _e161678161690_)) - (_tl161680161695_ (##cdr _e161678161690_))) - (if (and (gx#identifier? _hd161679161693_) + (if (gx#stx-pair? _e9002290029_) + (let ((_e9002590037_ (gx#syntax-e _e9002290029_))) + (let ((_hd9002690040_ (##car _e9002590037_)) + (_tl9002790042_ (##cdr _e9002590037_))) + (if (and (gx#identifier? _hd9002690040_) (gx#core-identifier=? - _hd161679161693_ + _hd9002690040_ '%#begin-module)) - (let ((_body161698_ _tl161680161695_)) + (let ((_body90045_ _tl9002790042_)) (if '#t - (if (gx#sealed-syntax? _stx161674_) - _body161698_ + (if (gx#sealed-syntax? _stx90021_) + _body90045_ (gx#core-expand-module-body - _body161698_)) - (_E161677161686_))) - (_E161677161686_)))) - (_E161677161686_))))) - (_E161676161700_))) + _body90045_)) + (_E9002490033_))) + (_E9002490033_)))) + (_E9002490033_))))) + (_E9002390047_))) gx#current-expander-context - _ctx161671_ + _ctx90018_ gx#current-expander-phi '0))) (define gx#core-expand-module-body - (lambda (_body161466_) - (letrec ((_expand-special161468_ - (lambda (_hd161597_ _K161598_ _rest161599_ _r161600_) - (let* ((_e161601161618_ _hd161597_) - (_E161613161622_ + (lambda (_body89813_) + (letrec ((_expand-special89815_ + (lambda (_hd89944_ _K89945_ _rest89946_ _r89947_) + (let* ((_e8994889965_ _hd89944_) + (_E8996089969_ (lambda () - (_K161598_ - _rest161599_ - (cons (gx#core-expand-top _hd161597_) - _r161600_)))) - (_E161603161634_ + (_K89945_ + _rest89946_ + (cons (gx#core-expand-top _hd89944_) + _r89947_)))) + (_E8995089981_ (lambda () - (if (gx#stx-pair? _e161601161618_) - (let ((_e161614161626_ - (gx#syntax-e _e161601161618_))) - (let ((_hd161615161629_ - (##car _e161614161626_)) - (_tl161616161631_ - (##cdr _e161614161626_))) - (if (and (gx#identifier? - _hd161615161629_) + (if (gx#stx-pair? _e8994889965_) + (let ((_e8996189973_ + (gx#syntax-e _e8994889965_))) + (let ((_hd8996289976_ + (##car _e8996189973_)) + (_tl8996389978_ + (##cdr _e8996189973_))) + (if (and (gx#identifier? _hd8996289976_) (gx#core-identifier=? - _hd161615161629_ + _hd8996289976_ '%#export)) (if '#t - (_K161598_ - _rest161599_ - (cons _hd161597_ _r161600_)) - (_E161613161622_)) - (_E161613161622_)))) - (_E161613161622_)))) - (_E161602161666_ + (_K89945_ + _rest89946_ + (cons _hd89944_ _r89947_)) + (_E8996089969_)) + (_E8996089969_)))) + (_E8996089969_)))) + (_E8994990013_ (lambda () - (if (gx#stx-pair? _e161601161618_) - (let ((_e161604161638_ - (gx#syntax-e _e161601161618_))) - (let ((_hd161605161641_ - (##car _e161604161638_)) - (_tl161606161643_ - (##cdr _e161604161638_))) - (if (and (gx#identifier? - _hd161605161641_) + (if (gx#stx-pair? _e8994889965_) + (let ((_e8995189985_ + (gx#syntax-e _e8994889965_))) + (let ((_hd8995289988_ + (##car _e8995189985_)) + (_tl8995389990_ + (##cdr _e8995189985_))) + (if (and (gx#identifier? _hd8995289988_) (gx#core-identifier=? - _hd161605161641_ + _hd8995289988_ '%#define-values)) - (if (gx#stx-pair? _tl161606161643_) - (let ((_e161607161646_ + (if (gx#stx-pair? _tl8995389990_) + (let ((_e8995489993_ (gx#syntax-e - _tl161606161643_))) - (let ((_hd161608161649_ - (##car _e161607161646_)) - (_tl161609161651_ - (##cdr _e161607161646_))) - (let ((_hd-bind161654_ - _hd161608161649_)) + _tl8995389990_))) + (let ((_hd8995589996_ + (##car _e8995489993_)) + (_tl8995689998_ + (##cdr _e8995489993_))) + (let ((_hd-bind90001_ + _hd8995589996_)) (if (gx#stx-pair? - _tl161609161651_) - (let ((_e161610161656_ + _tl8995689998_) + (let ((_e8995790003_ (gx#syntax-e - _tl161609161651_))) - (let ((_hd161611161659_ + _tl8995689998_))) + (let ((_hd8995890006_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e161610161656_)) - (_tl161612161661_ (##cdr _e161610161656_))) - (let ((_expr161664_ _hd161611161659_)) - (if (gx#stx-null? _tl161612161661_) - (if (gx#core-bind-values? _hd-bind161654_) + (##car _e8995790003_)) + (_tl8995990008_ (##cdr _e8995790003_))) + (let ((_expr90011_ _hd8995890006_)) + (if (gx#stx-null? _tl8995990008_) + (if (gx#core-bind-values? _hd-bind90001_) (begin - (gx#core-bind-values!__0 _hd-bind161654_) - (_K161598_ - _rest161599_ - (cons _hd161597_ _r161600_))) - (_E161603161634_)) - (_E161603161634_))))) - (_E161603161634_))))) + (gx#core-bind-values!__0 _hd-bind90001_) + (_K89945_ + _rest89946_ + (cons _hd89944_ _r89947_))) + (_E8995089981_)) + (_E8995089981_))))) + (_E8995089981_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E161603161634_)) - (_E161603161634_)))) - (_E161603161634_))))) - (_E161602161666_)))) - (_expand-body161469_ - (lambda (_rbody161471_) - (let _lp161473_ ((_rest161475_ _rbody161471_) - (_body161476_ '())) - (let* ((_rest161477161485_ _rest161475_) - (_else161479161493_ (lambda () _body161476_)) - (_K161481161585_ - (lambda (_rest161496_ _hd161497_) - (let* ((_e161498161519_ _hd161497_) - (_E161514161523_ + (_E8995089981_)) + (_E8995089981_)))) + (_E8995089981_))))) + (_E8994990013_)))) + (_expand-body89816_ + (lambda (_rbody89818_) + (let _lp89820_ ((_rest89822_ _rbody89818_) + (_body89823_ '())) + (let* ((_rest8982489832_ _rest89822_) + (_else8982689840_ (lambda () _body89823_)) + (_K8982889932_ + (lambda (_rest89843_ _hd89844_) + (let* ((_e8984589866_ _hd89844_) + (_E8986189870_ (lambda () - (_lp161473_ - _rest161496_ + (_lp89820_ + _rest89843_ (cons (gx#core-expand-expression - _hd161497_) - _body161476_)))) - (_E161510161537_ + _hd89844_) + _body89823_)))) + (_E8985789884_ (lambda () - (if (gx#stx-pair? _e161498161519_) - (let ((_e161515161527_ + (if (gx#stx-pair? _e8984589866_) + (let ((_e8986289874_ (gx#syntax-e - _e161498161519_))) - (let ((_hd161516161530_ - (##car _e161515161527_)) - (_tl161517161532_ - (##cdr _e161515161527_))) - (let ((_form161535_ - _hd161516161530_)) + _e8984589866_))) + (let ((_hd8986389877_ + (##car _e8986289874_)) + (_tl8986489879_ + (##cdr _e8986289874_))) + (let ((_form89882_ + _hd8986389877_)) (if (gx#core-bound-identifier?__% - _form161535_ + _form89882_ gx#special-form-binding?) - (_lp161473_ - _rest161496_ - (cons _hd161497_ - _body161476_)) - (_E161514161523_))))) - (_E161514161523_)))) - (_E161500161549_ + (_lp89820_ + _rest89843_ + (cons _hd89844_ + _body89823_)) + (_E8986189870_))))) + (_E8986189870_)))) + (_E8984789896_ (lambda () - (if (gx#stx-pair? _e161498161519_) - (let ((_e161511161541_ + (if (gx#stx-pair? _e8984589866_) + (let ((_e8985889888_ (gx#syntax-e - _e161498161519_))) - (let ((_hd161512161544_ - (##car _e161511161541_)) - (_tl161513161546_ - (##cdr _e161511161541_))) + _e8984589866_))) + (let ((_hd8985989891_ + (##car _e8985889888_)) + (_tl8986089893_ + (##cdr _e8985889888_))) (if (and (gx#identifier? - _hd161512161544_) + _hd8985989891_) (gx#core-identifier=? - _hd161512161544_ + _hd8985989891_ '%#export)) (if '#t - (_lp161473_ - _rest161496_ + (_lp89820_ + _rest89843_ (cons (gx#core-expand-export%__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd161497_) - _body161476_)) - (_E161510161537_)) - (_E161510161537_)))) + _hd89844_) + _body89823_)) + (_E8985789884_)) + (_E8985789884_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E161510161537_)))) - (_E161499161581_ + (_E8985789884_)))) + (_E8984689928_ (lambda () - (if (gx#stx-pair? _e161498161519_) - (let ((_e161501161553_ + (if (gx#stx-pair? _e8984589866_) + (let ((_e8984889900_ (gx#syntax-e - _e161498161519_))) - (let ((_hd161502161556_ - (##car _e161501161553_)) - (_tl161503161558_ - (##cdr _e161501161553_))) + _e8984589866_))) + (let ((_hd8984989903_ + (##car _e8984889900_)) + (_tl8985089905_ + (##cdr _e8984889900_))) (if (and (gx#identifier? - _hd161502161556_) + _hd8984989903_) (gx#core-identifier=? - _hd161502161556_ + _hd8984989903_ '%#define-values)) (if (gx#stx-pair? - _tl161503161558_) - (let ((_e161504161561_ + _tl8985089905_) + (let ((_e8985189908_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl161503161558_))) - (let ((_hd161505161564_ (##car _e161504161561_)) - (_tl161506161566_ (##cdr _e161504161561_))) - (let ((_hd-bind161569_ _hd161505161564_)) - (if (gx#stx-pair? _tl161506161566_) - (let ((_e161507161571_ - (gx#syntax-e _tl161506161566_))) - (let ((_hd161508161574_ (##car _e161507161571_)) - (_tl161509161576_ (##cdr _e161507161571_))) - (let ((_expr161579_ _hd161508161574_)) - (if (gx#stx-null? _tl161509161576_) + (gx#syntax-e _tl8985089905_))) + (let ((_hd8985289911_ (##car _e8985189908_)) + (_tl8985389913_ (##cdr _e8985189908_))) + (let ((_hd-bind89916_ _hd8985289911_)) + (if (gx#stx-pair? _tl8985389913_) + (let ((_e8985489918_ (gx#syntax-e _tl8985389913_))) + (let ((_hd8985589921_ (##car _e8985489918_)) + (_tl8985689923_ (##cdr _e8985489918_))) + (let ((_expr89926_ _hd8985589921_)) + (if (gx#stx-null? _tl8985689923_) (if '#t - (_lp161473_ - _rest161496_ + (_lp89820_ + _rest89843_ (cons (gx#core-quote-syntax__1 (gx#core-list '%#define-values (gx#core-quote-bind-values - _hd-bind161569_) + _hd-bind89916_) (gx#core-expand-expression - _expr161579_)) - (gx#stx-source _hd161497_)) - _body161476_)) - (_E161500161549_)) - (_E161500161549_))))) - (_E161500161549_))))) - (_E161500161549_)) - (_E161500161549_)))) + _expr89926_)) + (gx#stx-source _hd89844_)) + _body89823_)) + (_E8984789896_)) + (_E8984789896_))))) + (_E8984789896_))))) + (_E8984789896_)) + (_E8984789896_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E161500161549_))))) - (_E161499161581_))))) - (if (##pair? _rest161477161485_) - (let ((_hd161482161588_ (##car _rest161477161485_)) - (_tl161483161590_ - (##cdr _rest161477161485_))) - (let* ((_hd161593_ _hd161482161588_) - (_rest161595_ _tl161483161590_)) - (_K161481161585_ _rest161595_ _hd161593_))) - (_else161479161493_))))))) - (_expand-body161469_ + (_E8984789896_))))) + (_E8984689928_))))) + (if (##pair? _rest8982489832_) + (let ((_hd8982989935_ (##car _rest8982489832_)) + (_tl8983089937_ (##cdr _rest8982489832_))) + (let* ((_hd89940_ _hd8982989935_) + (_rest89942_ _tl8983089937_)) + (_K8982889932_ _rest89942_ _hd89940_))) + (_else8982689840_))))))) + (_expand-body89816_ (gx#core-expand-block__% - (cons '%#begin-module _body161466_) - _expand-special161468_ + (cons '%#begin-module _body89813_) + _expand-special89815_ '#f values))))) (define gx#core-expand-import/export - (lambda (_stx161309_ - _expanded?161310_ - _method161311_ - _current-phi161312_ - _expand1161313_) - (letrec ((_K161315_ - (lambda (_rest161433_ _r161434_) - (let* ((_e161435161442_ _rest161433_) - (_E161437161446_ (lambda () _r161434_)) - (_E161436161462_ + (lambda (_stx89656_ + _expanded?89657_ + _method89658_ + _current-phi89659_ + _expand189660_) + (letrec ((_K89662_ + (lambda (_rest89780_ _r89781_) + (let* ((_e8978289789_ _rest89780_) + (_E8978489793_ (lambda () _r89781_)) + (_E8978389809_ (lambda () - (if (gx#stx-pair? _e161435161442_) - (let ((_e161438161450_ - (gx#syntax-e _e161435161442_))) - (let ((_hd161439161453_ - (##car _e161438161450_)) - (_tl161440161455_ - (##cdr _e161438161450_))) - (let* ((_hd161458_ _hd161439161453_) - (_rest161460_ _tl161440161455_)) + (if (gx#stx-pair? _e8978289789_) + (let ((_e8978589797_ + (gx#syntax-e _e8978289789_))) + (let ((_hd8978689800_ + (##car _e8978589797_)) + (_tl8978789802_ + (##cdr _e8978589797_))) + (let* ((_hd89805_ _hd8978689800_) + (_rest89807_ _tl8978789802_)) (if '#t - (_step161316_ - _hd161458_ - _rest161460_ - _r161434_) - (_E161437161446_))))) - (_E161437161446_))))) - (_E161436161462_)))) - (_step161316_ - (lambda (_hd161347_ _rest161348_ _r161349_) - (let* ((_e161350161368_ _hd161347_) - (_E161363161372_ + (_step89663_ + _hd89805_ + _rest89807_ + _r89781_) + (_E8978489793_))))) + (_E8978489793_))))) + (_E8978389809_)))) + (_step89663_ + (lambda (_hd89694_ _rest89695_ _r89696_) + (let* ((_e8969789715_ _hd89694_) + (_E8971089719_ (lambda () - (if (_expanded?161310_ (gx#stx-e _hd161347_)) - (_K161315_ - _rest161348_ - (cons (gx#stx-e _hd161347_) _r161349_)) - (_expand1161313_ - _hd161347_ - _K161315_ - _rest161348_ - _r161349_)))) - (_E161359161388_ + (if (_expanded?89657_ (gx#stx-e _hd89694_)) + (_K89662_ + _rest89695_ + (cons (gx#stx-e _hd89694_) _r89696_)) + (_expand189660_ + _hd89694_ + _K89662_ + _rest89695_ + _r89696_)))) + (_E8970689735_ (lambda () - (if (gx#stx-pair? _e161350161368_) - (let ((_e161364161376_ - (gx#syntax-e _e161350161368_))) - (let ((_hd161365161379_ - (##car _e161364161376_)) - (_tl161366161381_ - (##cdr _e161364161376_))) - (let* ((_macro161384_ _hd161365161379_) - (_body161386_ _tl161366161381_)) + (if (gx#stx-pair? _e8969789715_) + (let ((_e8971189723_ + (gx#syntax-e _e8969789715_))) + (let ((_hd8971289726_ + (##car _e8971189723_)) + (_tl8971389728_ + (##cdr _e8971189723_))) + (let* ((_macro89731_ _hd8971289726_) + (_body89733_ _tl8971389728_)) (if (gx#core-bound-identifier?__% - _macro161384_ + _macro89731_ gx#syntax-binding?) - (_K161315_ + (_K89662_ (cons (gx#core-apply-expander__% (gx#syntax-local-e__0 - _macro161384_) - _hd161347_ - _method161311_) - _rest161348_) - _r161349_) - (_E161363161372_))))) - (_E161363161372_)))) - (_E161352161402_ + _macro89731_) + _hd89694_ + _method89658_) + _rest89695_) + _r89696_) + (_E8971089719_))))) + (_E8971089719_)))) + (_E8969989749_ (lambda () - (if (gx#stx-pair? _e161350161368_) - (let ((_e161360161392_ - (gx#syntax-e _e161350161368_))) - (let ((_hd161361161395_ - (##car _e161360161392_)) - (_tl161362161397_ - (##cdr _e161360161392_))) - (if (eq? (gx#stx-e _hd161361161395_) + (if (gx#stx-pair? _e8969789715_) + (let ((_e8970789739_ + (gx#syntax-e _e8969789715_))) + (let ((_hd8970889742_ + (##car _e8970789739_)) + (_tl8970989744_ + (##cdr _e8970789739_))) + (if (eq? (gx#stx-e _hd8970889742_) 'begin:) - (let ((_body161400_ - _tl161362161397_)) + (let ((_body89747_ _tl8970989744_)) (if '#t - (_K161315_ + (_K89662_ (gx#stx-foldr cons - _rest161348_ - _body161400_) - _r161349_) - (_E161359161388_))) - (_E161359161388_)))) - (_E161359161388_)))) - (_E161351161429_ + _rest89695_ + _body89747_) + _r89696_) + (_E8970689735_))) + (_E8970689735_)))) + (_E8970689735_)))) + (_E8969889776_ (lambda () - (if (gx#stx-pair? _e161350161368_) - (let ((_e161353161406_ - (gx#syntax-e _e161350161368_))) - (let ((_hd161354161409_ - (##car _e161353161406_)) - (_tl161355161411_ - (##cdr _e161353161406_))) - (if (eq? (gx#stx-e _hd161354161409_) - 'phi:) - (if (gx#stx-pair? _tl161355161411_) - (let ((_e161356161414_ + (if (gx#stx-pair? _e8969789715_) + (let ((_e8970089753_ + (gx#syntax-e _e8969789715_))) + (let ((_hd8970189756_ + (##car _e8970089753_)) + (_tl8970289758_ + (##cdr _e8970089753_))) + (if (eq? (gx#stx-e _hd8970189756_) 'phi:) + (if (gx#stx-pair? _tl8970289758_) + (let ((_e8970389761_ (gx#syntax-e - _tl161355161411_))) - (let ((_hd161357161417_ - (##car _e161356161414_)) - (_tl161358161419_ - (##cdr _e161356161414_))) - (let* ((_dphi161422_ - _hd161357161417_) - (_body161424_ - _tl161358161419_)) + _tl8970289758_))) + (let ((_hd8970489764_ + (##car _e8970389761_)) + (_tl8970589766_ + (##cdr _e8970389761_))) + (let* ((_dphi89769_ + _hd8970489764_) + (_body89771_ + _tl8970589766_)) (if (gx#stx-fixnum? - _dphi161422_) - (let ((_rbody161427_ + _dphi89769_) + (let ((_rbody89774_ (call-with-parameters (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_K161315_ _body161424_ '())) - _current-phi161312_ - (fx+ (gx#stx-e _dphi161422_) (_current-phi161312_))))) - (_K161315_ - _rest161348_ - (foldr1 cons _r161349_ _rbody161427_))) - (_E161352161402_))))) + (_K89662_ _body89771_ '())) + _current-phi89659_ + (fx+ (gx#stx-e _dphi89769_) (_current-phi89659_))))) + (_K89662_ _rest89695_ (foldr1 cons _r89696_ _rbody89774_))) + (_E8969989749_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E161352161402_)) - (_E161352161402_)))) - (_E161352161402_))))) - (_E161351161429_))))) - (let* ((_e161317161324_ _stx161309_) - (_E161319161328_ + (_E8969989749_)) + (_E8969989749_)))) + (_E8969989749_))))) + (_E8969889776_))))) + (let* ((_e8966489671_ _stx89656_) + (_E8966689675_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e161317161324_))) - (_E161318161343_ + _e8966489671_))) + (_E8966589690_ (lambda () - (if (gx#stx-pair? _e161317161324_) - (let ((_e161320161332_ (gx#syntax-e _e161317161324_))) - (let ((_hd161321161335_ (##car _e161320161332_)) - (_tl161322161337_ (##cdr _e161320161332_))) - (let ((_body161340_ _tl161322161337_)) + (if (gx#stx-pair? _e8966489671_) + (let ((_e8966789679_ (gx#syntax-e _e8966489671_))) + (let ((_hd8966889682_ (##car _e8966789679_)) + (_tl8966989684_ (##cdr _e8966789679_))) + (let ((_body89687_ _tl8966989684_)) (if '#t - (if (_current-phi161312_) - (_K161315_ _body161340_ '()) + (if (_current-phi89659_) + (_K89662_ _body89687_ '()) (call-with-parameters - (lambda () (_K161315_ _body161340_ '())) - _current-phi161312_ + (lambda () (_K89662_ _body89687_ '())) + _current-phi89659_ (gx#current-expander-phi))) - (_E161319161328_))))) - (_E161319161328_))))) - (_E161318161343_))))) + (_E8966689675_))))) + (_E8966689675_))))) + (_E8966589690_))))) (define gx#core-expand-import%__% - (lambda (_stx160976_ _internal-expand?160977_) - (letrec ((_expand1160979_ - (lambda (_hd161289_ _K161290_ _rest161291_ _r161292_) - (if (gx#core-bound-module? _hd161289_) - (_import1160980_ - (gx#syntax-local-e__0 _hd161289_) - _K161290_ - _rest161291_ - _r161292_) - (if (gx#core-library-module-path? _hd161289_) - (_import1160980_ + (lambda (_stx89323_ _internal-expand?89324_) + (letrec ((_expand189326_ + (lambda (_hd89636_ _K89637_ _rest89638_ _r89639_) + (if (gx#core-bound-module? _hd89636_) + (_import189327_ + (gx#syntax-local-e__0 _hd89636_) + _K89637_ + _rest89638_ + _r89639_) + (if (gx#core-library-module-path? _hd89636_) + (_import189327_ (gx#import-module__0 - (gx#core-resolve-library-module-path _hd161289_)) - _K161290_ - _rest161291_ - _r161292_) + (gx#core-resolve-library-module-path _hd89636_)) + _K89637_ + _rest89638_ + _r89639_) (if (gx#core-library-relative-module-path? - _hd161289_) - (_import1160980_ + _hd89636_) + (_import189327_ (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _hd161289_)) - _K161290_ - _rest161291_ - _r161292_) - (let ((_e161294_ (gx#stx-e _hd161289_))) - (if (pair? _e161294_) - (let ((_$e161296_ - (gx#stx-e (car _e161294_)))) - (if (eq? 'spec: _$e161296_) - (_import-spec160983_ - _hd161289_ - _K161290_ - _rest161291_ - _r161292_) - (if (eq? 'in: _$e161296_) - (_import-submodule160981_ - _hd161289_ - _K161290_ - _rest161291_ - _r161292_) - (if (eq? 'runtime: _$e161296_) - (_import-runtime160982_ - _hd161289_ - _K161290_ - _rest161291_ - _r161292_) + _hd89636_)) + _K89637_ + _rest89638_ + _r89639_) + (let ((_e89641_ (gx#stx-e _hd89636_))) + (if (pair? _e89641_) + (let ((_$e89643_ + (gx#stx-e (car _e89641_)))) + (if (eq? 'spec: _$e89643_) + (_import-spec89330_ + _hd89636_ + _K89637_ + _rest89638_ + _r89639_) + (if (eq? 'in: _$e89643_) + (_import-submodule89328_ + _hd89636_ + _K89637_ + _rest89638_ + _r89639_) + (if (eq? 'runtime: _$e89643_) + (_import-runtime89329_ + _hd89636_ + _K89637_ + _rest89638_ + _r89639_) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _stx160976_ - _hd161289_))))) - (if (string? _e161294_) - (_import1160980_ + _stx89323_ + _hd89636_))))) + (if (string? _e89641_) + (_import189327_ (gx#import-module__0 (gx#core-resolve-module-path__% - _hd161289_ - (gx#stx-source _stx160976_))) - _K161290_ - _rest161291_ - _r161292_) + _hd89636_ + (gx#stx-source _stx89323_))) + _K89637_ + _rest89638_ + _r89639_) (if (##structure-instance-of? - _e161294_ + _e89641_ 'gx#module-context::t) - (_K161290_ - _rest161291_ - (cons _e161294_ _r161292_)) + (_K89637_ + _rest89638_ + (cons _e89641_ _r89639_)) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _stx160976_ - _hd161289_)))))))))) - (_import1160980_ - (lambda (_ctx161278_ _K161279_ _rest161280_ _r161281_) - (let ((_dphi161283_ + _stx89323_ + _hd89636_)))))))))) + (_import189327_ + (lambda (_ctx89625_ _K89626_ _rest89627_ _r89628_) + (let ((_dphi89630_ (fx- (gx#current-import-expander-phi) (gx#current-expander-phi)))) - (_K161279_ - _rest161280_ + (_K89626_ + _rest89627_ (cons (##structure gx#import-set::t - _ctx161278_ - _dphi161283_ - (map (lambda (_g161284161286_) + _ctx89625_ + _dphi89630_ + (map (lambda (_g8963189633_) (gx#core-module-export->import__% - _g161284161286_ + _g8963189633_ '#f - _dphi161283_)) + _dphi89630_)) (##unchecked-structure-ref - _ctx161278_ + _ctx89625_ '9 gx#module-context::t '#f))) - _r161281_))))) - (_import-submodule160981_ - (lambda (_hd161245_ _K161246_ _rest161247_ _r161248_) - (let* ((_e161249161256_ _hd161245_) - (_E161251161260_ + _r89628_))))) + (_import-submodule89328_ + (lambda (_hd89592_ _K89593_ _rest89594_ _r89595_) + (let* ((_e8959689603_ _hd89592_) + (_E8959889607_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e161249161256_))) - (_E161250161274_ + _e8959689603_))) + (_E8959789621_ (lambda () - (if (gx#stx-pair? _e161249161256_) - (let ((_e161252161264_ - (gx#syntax-e _e161249161256_))) - (let ((_hd161253161267_ - (##car _e161252161264_)) - (_tl161254161269_ - (##cdr _e161252161264_))) - (let ((_spath161272_ _tl161254161269_)) + (if (gx#stx-pair? _e8959689603_) + (let ((_e8959989611_ + (gx#syntax-e _e8959689603_))) + (let ((_hd8960089614_ + (##car _e8959989611_)) + (_tl8960189616_ + (##cdr _e8959989611_))) + (let ((_spath89619_ _tl8960189616_)) (if '#t - (_import1160980_ - (_import-spec-source160984_ - _spath161272_) - _K161246_ - _rest161247_ - _r161248_) - (_E161251161260_))))) - (_E161251161260_))))) - (_E161250161274_)))) - (_import-runtime160982_ - (lambda (_hd161212_ _K161213_ _rest161214_ _r161215_) - (let* ((_e161216161223_ _hd161212_) - (_E161218161227_ + (_import189327_ + (_import-spec-source89331_ + _spath89619_) + _K89593_ + _rest89594_ + _r89595_) + (_E8959889607_))))) + (_E8959889607_))))) + (_E8959789621_)))) + (_import-runtime89329_ + (lambda (_hd89559_ _K89560_ _rest89561_ _r89562_) + (let* ((_e8956389570_ _hd89559_) + (_E8956589574_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e161216161223_))) - (_E161217161241_ + _e8956389570_))) + (_E8956489588_ (lambda () - (if (gx#stx-pair? _e161216161223_) - (let ((_e161219161231_ - (gx#syntax-e _e161216161223_))) - (let ((_hd161220161234_ - (##car _e161219161231_)) - (_tl161221161236_ - (##cdr _e161219161231_))) - (let ((_spath161239_ _tl161221161236_)) + (if (gx#stx-pair? _e8956389570_) + (let ((_e8956689578_ + (gx#syntax-e _e8956389570_))) + (let ((_hd8956789581_ + (##car _e8956689578_)) + (_tl8956889583_ + (##cdr _e8956689578_))) + (let ((_spath89586_ _tl8956889583_)) (if '#t - (_K161213_ - _rest161214_ - (cons (_import-spec-source160984_ - _spath161239_) - _r161215_)) - (_E161218161227_))))) - (_E161218161227_))))) - (_E161217161241_)))) - (_import-spec160983_ - (lambda (_hd161051_ _K161052_ _rest161053_ _r161054_) - (let* ((_e161055161072_ _hd161051_) - (_E161064161076_ + (_K89560_ + _rest89561_ + (cons (_import-spec-source89331_ + _spath89586_) + _r89562_)) + (_E8956589574_))))) + (_E8956589574_))))) + (_E8956489588_)))) + (_import-spec89330_ + (lambda (_hd89398_ _K89399_ _rest89400_ _r89401_) + (let* ((_e8940289419_ _hd89398_) + (_E8941189423_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e161055161072_))) - (_E161057161186_ + _e8940289419_))) + (_E8940489533_ (lambda () - (if (gx#stx-pair? _e161055161072_) - (let ((_e161065161080_ - (gx#syntax-e _e161055161072_))) - (let ((_hd161066161083_ - (##car _e161065161080_)) - (_tl161067161085_ - (##cdr _e161065161080_))) - (if (gx#stx-pair? _tl161067161085_) - (let ((_e161068161088_ - (gx#syntax-e - _tl161067161085_))) - (let ((_hd161069161091_ - (##car _e161068161088_)) - (_tl161070161093_ - (##cdr _e161068161088_))) - (let* ((_path161096_ - _hd161069161091_) - (_specs161098_ - _tl161070161093_)) + (if (gx#stx-pair? _e8940289419_) + (let ((_e8941289427_ + (gx#syntax-e _e8940289419_))) + (let ((_hd8941389430_ + (##car _e8941289427_)) + (_tl8941489432_ + (##cdr _e8941289427_))) + (if (gx#stx-pair? _tl8941489432_) + (let ((_e8941589435_ + (gx#syntax-e _tl8941489432_))) + (let ((_hd8941689438_ + (##car _e8941589435_)) + (_tl8941789440_ + (##cdr _e8941589435_))) + (let* ((_path89443_ + _hd8941689438_) + (_specs89445_ + _tl8941789440_)) (if '#t - (let ((_src-ctx161100_ - (_import-spec-source160984_ - _path161096_)) - (_exports161101_ - (make-table)) - (_specs161102_ + (let ((_src-ctx89447_ + (_import-spec-source89331_ + _path89443_)) + (_exports89448_ + (make-hash-table)) + (_specs89449_ (gx#syntax->list - _specs161098_))) + _specs89445_))) (for-each - (lambda (_out161104_) - (table-set! - _exports161101_ + (lambda (_out89451_) + (hash-put! + _exports89448_ (cons (##unchecked-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _out161104_ + _out89451_ '3 gx#module-export::t '#f) (##unchecked-structure-ref - _out161104_ + _out89451_ '4 gx#module-export::t '#f)) - _out161104_)) + _out89451_)) (##unchecked-structure-ref - _src-ctx161100_ + _src-ctx89447_ '9 gx#module-context::t '#f)) - (_K161052_ - _rest161053_ - (foldl1 (lambda (_spec161106_ _r161107_) - (let* ((_e161108161124_ _spec161106_) - (_E161110161128_ + (_K89399_ + _rest89400_ + (foldl1 (lambda (_spec89453_ _r89454_) + (let* ((_e8945589471_ _spec89453_) + (_E8945789475_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e161108161124_))) - (_E161109161182_ + _e8945589471_))) + (_E8945689529_ (lambda () - (if (gx#stx-pair? _e161108161124_) - (let ((_e161111161132_ - (gx#syntax-e _e161108161124_))) - (let ((_hd161112161135_ - (##car _e161111161132_)) - (_tl161113161137_ - (##cdr _e161111161132_))) - (let ((_phi161140_ - _hd161112161135_)) - (if (gx#stx-pair? - _tl161113161137_) - (let ((_e161114161142_ + (if (gx#stx-pair? _e8945589471_) + (let ((_e8945889479_ + (gx#syntax-e _e8945589471_))) + (let ((_hd8945989482_ + (##car _e8945889479_)) + (_tl8946089484_ + (##cdr _e8945889479_))) + (let ((_phi89487_ _hd8945989482_)) + (if (gx#stx-pair? _tl8946089484_) + (let ((_e8946189489_ (gx#syntax-e - _tl161113161137_))) - (let ((_hd161115161145_ - (##car _e161114161142_)) - (_tl161116161147_ - (##cdr _e161114161142_))) - (let ((_name161150_ - _hd161115161145_)) + _tl8946089484_))) + (let ((_hd8946289492_ + (##car _e8946189489_)) + (_tl8946389494_ + (##cdr _e8946189489_))) + (let ((_name89497_ + _hd8946289492_)) (if (gx#stx-pair? - _tl161116161147_) - (let ((_e161117161152_ + _tl8946389494_) + (let ((_e8946489499_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl161116161147_))) - (let ((_hd161118161155_ (##car _e161117161152_)) - (_tl161119161157_ (##cdr _e161117161152_))) - (let ((_src-phi161160_ _hd161118161155_)) - (if (gx#stx-pair? _tl161119161157_) - (let ((_e161120161162_ - (gx#syntax-e _tl161119161157_))) - (let ((_hd161121161165_ (##car _e161120161162_)) - (_tl161122161167_ - (##cdr _e161120161162_))) - (let ((_src-name161170_ _hd161121161165_)) - (if (gx#stx-null? _tl161122161167_) - (if (and (gx#stx-fixnum? - _src-phi161160_) + (gx#syntax-e _tl8946389494_))) + (let ((_hd8946589502_ (##car _e8946489499_)) + (_tl8946689504_ (##cdr _e8946489499_))) + (let ((_src-phi89507_ _hd8946589502_)) + (if (gx#stx-pair? _tl8946689504_) + (let ((_e8946789509_ + (gx#syntax-e _tl8946689504_))) + (let ((_hd8946889512_ (##car _e8946789509_)) + (_tl8946989514_ (##cdr _e8946789509_))) + (let ((_src-name89517_ _hd8946889512_)) + (if (gx#stx-null? _tl8946989514_) + (if (and (gx#stx-fixnum? _src-phi89507_) (gx#identifier? - _src-name161170_) - (gx#stx-fixnum? _phi161140_) - (gx#identifier? _name161150_)) - (let ((_src-phi161172_ - (gx#stx-e _src-phi161160_)) - (_src-name161173_ + _src-name89517_) + (gx#stx-fixnum? _phi89487_) + (gx#identifier? _name89497_)) + (let ((_src-phi89519_ + (gx#stx-e _src-phi89507_)) + (_src-name89520_ (gx#core-identifier-key - _src-name161170_)) - (_phi161174_ - (gx#stx-e _phi161140_)) - (_name161175_ + _src-name89517_)) + (_phi89521_ + (gx#stx-e _phi89487_)) + (_name89522_ (gx#core-identifier-key - _name161150_))) - (let ((_$e161177_ - (table-ref - _exports161101_ - (cons _src-phi161172_ - _src-name161173_) - '#f))) - (if _$e161177_ - ((lambda (_out161180_) + _name89497_))) + (let ((_$e89524_ + (hash-get + _exports89448_ + (cons _src-phi89519_ + _src-name89520_)))) + (if _$e89524_ + ((lambda (_out89527_) (cons (gx#core-module-export->import__% - _out161180_ - _name161175_ - (fx- _phi161174_ + _out89527_ + _name89522_ + (fx- _phi89521_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _src-phi161172_)) - _r161107_)) + _src-phi89519_)) + _r89454_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e161177_) + _$e89524_) (gx#raise-syntax-error '#f '"Bad syntax; no matching export" - _stx160976_ - _hd161051_)))) - (_E161110161128_)) - (_E161110161128_))))) - (_E161110161128_))))) - (_E161110161128_))))) + _stx89323_ + _hd89398_)))) + (_E8945789475_)) + (_E8945789475_))))) + (_E8945789475_))))) + (_E8945789475_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E161110161128_))))) - (_E161110161128_))))) - (_E161109161182_))) - _r161054_ - _specs161102_))) + (_E8945789475_))))) + (_E8945789475_))))) + (_E8945689529_))) + _r89401_ + _specs89449_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E161064161076_))))) - (_E161064161076_)))) - (_E161064161076_)))) - (_E161056161208_ + (_E8941189423_))))) + (_E8941189423_)))) + (_E8941189423_)))) + (_E8940389555_ (lambda () - (if (gx#stx-pair? _e161055161072_) - (let ((_e161058161190_ - (gx#syntax-e _e161055161072_))) - (let ((_hd161059161193_ - (##car _e161058161190_)) - (_tl161060161195_ - (##cdr _e161058161190_))) - (if (gx#stx-pair? _tl161060161195_) - (let ((_e161061161198_ - (gx#syntax-e - _tl161060161195_))) - (let ((_hd161062161201_ - (##car _e161061161198_)) - (_tl161063161203_ - (##cdr _e161061161198_))) - (let ((_path161206_ - _hd161062161201_)) + (if (gx#stx-pair? _e8940289419_) + (let ((_e8940589537_ + (gx#syntax-e _e8940289419_))) + (let ((_hd8940689540_ + (##car _e8940589537_)) + (_tl8940789542_ + (##cdr _e8940589537_))) + (if (gx#stx-pair? _tl8940789542_) + (let ((_e8940889545_ + (gx#syntax-e _tl8940789542_))) + (let ((_hd8940989548_ + (##car _e8940889545_)) + (_tl8941089550_ + (##cdr _e8940889545_))) + (let ((_path89553_ + _hd8940989548_)) (if (gx#stx-null? - _tl161063161203_) + _tl8941089550_) (if '#t - (_K161052_ - _rest161053_ - (cons (_import-spec-source160984_ - _path161206_) - _r161054_)) - (_E161057161186_)) - (_E161057161186_))))) - (_E161057161186_)))) - (_E161057161186_))))) - (_E161056161208_)))) - (_import-spec-source160984_ - (lambda (_spath161049_) - (gx#core-import-nested-module _spath161049_ _stx160976_))) - (_import!160985_ - (lambda (_rbody160998_) - (letrec* ((_current-ctx161000_ + (_K89399_ + _rest89400_ + (cons (_import-spec-source89331_ + _path89553_) + _r89401_)) + (_E8940489533_)) + (_E8940489533_))))) + (_E8940489533_)))) + (_E8940489533_))))) + (_E8940389555_)))) + (_import-spec-source89331_ + (lambda (_spath89396_) + (gx#core-import-nested-module _spath89396_ _stx89323_))) + (_import!89332_ + (lambda (_rbody89345_) + (letrec* ((_current-ctx89347_ (gx#current-expander-context)) - (_deps161001_ (make-table 'test: eq?)) - (_bind!161002_ - (lambda (_hd161047_) + (_deps89348_ (make-hash-table-eq)) + (_bind!89349_ + (lambda (_hd89394_) (gx#core-bind-import!__1 - _hd161047_ - _current-ctx161000_)))) - (let _lp161004_ ((_rest161006_ _rbody160998_) - (_body161007_ '())) - (let* ((_rest161008161016_ _rest161006_) - (_else161010161026_ + _hd89394_ + _current-ctx89347_)))) + (let _lp89351_ ((_rest89353_ _rbody89345_) + (_body89354_ '())) + (let* ((_rest8935589363_ _rest89353_) + (_else8935789373_ (lambda () (if (##structure-instance-of? - _current-ctx161000_ + _current-ctx89347_ 'gx#module-context::t) (##unchecked-structure-set! - _current-ctx161000_ + _current-ctx89347_ (foldl1 cons (##unchecked-structure-ref - _current-ctx161000_ + _current-ctx89347_ '8 gx#module-context::t '#f) - _body161007_) + _body89354_) '8 gx#module-context::t '#f) '#!void) - (table-for-each - (lambda (_ctx161024_ _g168422_) - (gx#eval-module _ctx161024_)) - _deps161001_) - _body161007_)) - (_K161012161035_ - (lambda (_rest161029_ _hd161030_) + (hash-for-each + (lambda (_ctx89371_ _g92201_) + (gx#eval-module _ctx89371_)) + _deps89348_) + _body89354_)) + (_K8935989382_ + (lambda (_rest89376_ _hd89377_) (if (##structure-direct-instance-of? - _hd161030_ + _hd89377_ 'gx#module-import::t) (begin - (_bind!161002_ _hd161030_) + (_bind!89349_ _hd89377_) (if (and (fxpositive? (##unchecked-structure-ref - _hd161030_ + _hd89377_ '3 gx#module-import::t '#f)) (fxzero? (##unchecked-structure-ref (##unchecked-structure-ref - _hd161030_ + _hd89377_ '1 gx#module-import::t '#f) '3 gx#module-export::t '#f))) - (table-set! - _deps161001_ + (hash-put! + _deps89348_ (##unchecked-structure-ref (##unchecked-structure-ref - _hd161030_ + _hd89377_ '1 gx#module-import::t '#f) @@ -3074,161 +3042,155 @@ '#t) '#!void)) (if (##structure-direct-instance-of? - _hd161030_ + _hd89377_ 'gx#import-set::t) (begin (for-each - _bind!161002_ + _bind!89349_ (##unchecked-structure-ref - _hd161030_ + _hd89377_ '3 gx#import-set::t '#f)) (if (fxpositive? (##unchecked-structure-ref - _hd161030_ + _hd89377_ '2 gx#import-set::t '#f)) - (table-set! - _deps161001_ + (hash-put! + _deps89348_ (##unchecked-structure-ref - _hd161030_ + _hd89377_ '1 gx#import-set::t '#f) '#t) '#!void)) - (let ((_$e161032_ + (let ((_$e89379_ (##structure-instance-of? - _hd161030_ + _hd89377_ 'gx#module-context::t))) - (if _$e161032_ - _$e161032_ + (if _$e89379_ + _$e89379_ (gx#raise-syntax-error '#f '"Unexpected import" - _stx160976_ - _hd161030_))))) - (_lp161004_ - _rest161029_ - (cons _hd161030_ _body161007_))))) - (if (##pair? _rest161008161016_) - (let ((_hd161013161038_ - (##car _rest161008161016_)) - (_tl161014161040_ - (##cdr _rest161008161016_))) - (let* ((_hd161043_ _hd161013161038_) - (_rest161045_ _tl161014161040_)) - (_K161012161035_ _rest161045_ _hd161043_))) - (_else161010161026_))))))) - (_expanded-import?160986_ - (lambda (_e160990_) - (let ((_$e160992_ + _stx89323_ + _hd89377_))))) + (_lp89351_ + _rest89376_ + (cons _hd89377_ _body89354_))))) + (if (##pair? _rest8935589363_) + (let ((_hd8936089385_ (##car _rest8935589363_)) + (_tl8936189387_ (##cdr _rest8935589363_))) + (let* ((_hd89390_ _hd8936089385_) + (_rest89392_ _tl8936189387_)) + (_K8935989382_ _rest89392_ _hd89390_))) + (_else8935789373_))))))) + (_expanded-import?89333_ + (lambda (_e89337_) + (let ((_$e89339_ (##structure-direct-instance-of? - _e160990_ + _e89337_ 'gx#import-set::t))) - (if _$e160992_ - _$e160992_ - (let ((_$e160995_ + (if _$e89339_ + _$e89339_ + (let ((_$e89342_ (##structure-direct-instance-of? - _e160990_ + _e89337_ 'gx#module-import::t))) - (if _$e160995_ - _$e160995_ + (if _$e89342_ + _$e89342_ (##structure-instance-of? - _e160990_ + _e89337_ 'gx#module-context::t)))))))) - (let ((_rbody160988_ + (let ((_rbody89335_ (gx#core-expand-import/export - _stx160976_ - _expanded-import?160986_ + _stx89323_ + _expanded-import?89333_ 'apply-import-expander gx#current-import-expander-phi - _expand1160979_))) - (if _internal-expand?160977_ - (reverse _rbody160988_) + _expand189326_))) + (if _internal-expand?89324_ + (reverse _rbody89335_) (gx#core-quote-syntax__1 - (gx#core-cons '%#import (_import!160985_ _rbody160988_)) - (gx#stx-source _stx160976_))))))) + (gx#core-cons '%#import (_import!89332_ _rbody89335_)) + (gx#stx-source _stx89323_))))))) (define gx#core-expand-import%__0 - (lambda (_stx161302_) - (let ((_internal-expand?161304_ '#f)) - (gx#core-expand-import%__% _stx161302_ _internal-expand?161304_)))) + (lambda (_stx89649_) + (let ((_internal-expand?89651_ '#f)) + (gx#core-expand-import%__% _stx89649_ _internal-expand?89651_)))) (define gx#core-expand-import% - (lambda _g168424_ - (let ((_g168423_ (##length _g168424_))) - (cond ((##fx= _g168423_ 1) - (apply (lambda (_stx161302_) - (gx#core-expand-import%__0 _stx161302_)) - _g168424_)) - ((##fx= _g168423_ 2) - (apply (lambda (_stx161306_ _internal-expand?161307_) + (lambda _g92203_ + (let ((_g92202_ (##length _g92203_))) + (cond ((##fx= _g92202_ 1) + (apply (lambda (_stx89649_) + (gx#core-expand-import%__0 _stx89649_)) + _g92203_)) + ((##fx= _g92202_ 2) + (apply (lambda (_stx89653_ _internal-expand?89654_) (gx#core-expand-import%__% - _stx161306_ - _internal-expand?161307_)) - _g168424_)) + _stx89653_ + _internal-expand?89654_)) + _g92203_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-import% - _g168424_)))))) + _g92203_)))))) (define gx#core-import-nested-module - (lambda (_spath160903_ _where160904_) - (let* ((_e160905160912_ _spath160903_) - (_E160907160916_ + (lambda (_spath89250_ _where89251_) + (let* ((_e8925289259_ _spath89250_) + (_E8925489263_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e160905160912_))) - (_E160906160971_ + _e8925289259_))) + (_E8925389318_ (lambda () - (if (gx#stx-pair? _e160905160912_) - (let ((_e160908160920_ (gx#syntax-e _e160905160912_))) - (let ((_hd160909160923_ (##car _e160908160920_)) - (_tl160910160925_ (##cdr _e160908160920_))) - (let* ((_origin160928_ _hd160909160923_) - (_sub160930_ _tl160910160925_)) + (if (gx#stx-pair? _e8925289259_) + (let ((_e8925589267_ (gx#syntax-e _e8925289259_))) + (let ((_hd8925689270_ (##car _e8925589267_)) + (_tl8925789272_ (##cdr _e8925589267_))) + (let* ((_origin89275_ _hd8925689270_) + (_sub89277_ _tl8925789272_)) (if '#t - (let ((_origin-ctx160932_ - (if (gx#stx-false? _origin160928_) + (let ((_origin-ctx89279_ + (if (gx#stx-false? _origin89275_) (gx#current-expander-context) (gx#import-module__0 - _origin160928_)))) - (let _lp160934_ ((_rest160936_ _sub160930_) - (_ctx160937_ - _origin-ctx160932_)) - (let* ((_e160938160945_ _rest160936_) - (_E160940160949_ - (lambda () _ctx160937_)) - (_E160939160967_ + _origin89275_)))) + (let _lp89281_ ((_rest89283_ _sub89277_) + (_ctx89284_ + _origin-ctx89279_)) + (let* ((_e8928589292_ _rest89283_) + (_E8928789296_ + (lambda () _ctx89284_)) + (_E8928689314_ (lambda () - (if (gx#stx-pair? - _e160938160945_) - (let ((_e160941160953_ + (if (gx#stx-pair? _e8928589292_) + (let ((_e8928889300_ (gx#syntax-e - _e160938160945_))) - (let ((_hd160942160956_ - (##car _e160941160953_)) - (_tl160943160958_ - (##cdr _e160941160953_))) - (let* ((_id160961_ - _hd160942160956_) - (_rest160963_ - _tl160943160958_)) + _e8928589292_))) + (let ((_hd8928989303_ + (##car _e8928889300_)) + (_tl8929089305_ + (##cdr _e8928889300_))) + (let* ((_id89308_ + _hd8928989303_) + (_rest89310_ + _tl8929089305_)) (if '#t - (let ((_bind160965_ + (let ((_bind89312_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#resolve-identifier__% - _id160961_ - '0 - _ctx160937_))) + (gx#resolve-identifier__% _id89308_ '0 _ctx89284_))) (if (and (##structure-direct-instance-of? - _bind160965_ + _bind89312_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _bind160965_ + _bind89312_ '4 gx#syntax-binding::t '#f) @@ -3237,833 +3199,821 @@ (gx#raise-syntax-error '#f '"Bad syntax; not bound as module" - _where160904_ - _spath160903_ - _id160961_)) - (_lp160934_ - _rest160963_ + _where89251_ + _spath89250_ + _id89308_)) + (_lp89281_ + _rest89310_ (##unchecked-structure-ref - _bind160965_ + _bind89312_ '4 gx#syntax-binding::t '#f))) - (_E160940160949_))))) + (_E8928789296_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E160940160949_))))) - (_E160939160967_)))) - (_E160907160916_))))) - (_E160907160916_))))) - (_E160906160971_)))) + (_E8928789296_))))) + (_E8928689314_)))) + (_E8925489263_))))) + (_E8925489263_))))) + (_E8925389318_)))) (define gx#core-expand-import-source - (lambda (_hd160901_) + (lambda (_hd89248_) (gx#core-expand-import%__% - (cons 'import-internal% (cons _hd160901_ '())) + (cons 'import-internal% (cons _hd89248_ '())) '#t))) (define gx#core-expand-export%__% - (lambda (_stx160409_ _internal-expand?160410_) - (letrec* ((_make-export__168353168354_ - (lambda (_bind160849_ _phi160850_ _ctx160851_ _name160852_) - (let* ((_key160854_ + (lambda (_stx88756_ _internal-expand?88757_) + (letrec* ((_make-export__9213292133_ + (lambda (_bind89196_ _phi89197_ _ctx89198_ _name89199_) + (let* ((_key89201_ (##unchecked-structure-ref - _bind160849_ + _bind89196_ '2 gx#binding::t '#f)) - (_export-key160856_ - (if _name160852_ - (gx#core-identifier-key _name160852_) - _key160854_))) + (_export-key89203_ + (if _name89199_ + (gx#core-identifier-key _name89199_) + _key89201_))) (##structure gx#module-export::t - _ctx160851_ - _key160854_ - _phi160850_ - _export-key160856_ - (let ((_$e160859_ + _ctx89198_ + _key89201_ + _phi89197_ + _export-key89203_ + (let ((_$e89206_ (##structure-instance-of? - _bind160849_ + _bind89196_ 'gx#extern-binding::t))) - (if _$e160859_ - _$e160859_ + (if _$e89206_ + _$e89206_ (##structure-direct-instance-of? - _bind160849_ + _bind89196_ 'gx#import-binding::t))))))) - (_make-export__0__168355168358_ - (lambda (_bind160865_) - (let* ((_phi160867_ (gx#current-export-expander-phi)) - (_ctx160869_ (gx#current-expander-context)) - (_name160871_ '#f)) - (_make-export__168353168354_ - _bind160865_ - _phi160867_ - _ctx160869_ - _name160871_)))) - (_make-export__1__168356168359_ - (lambda (_bind160873_ _phi160874_) - (let* ((_ctx160876_ (gx#current-expander-context)) - (_name160878_ '#f)) - (_make-export__168353168354_ - _bind160873_ - _phi160874_ - _ctx160876_ - _name160878_)))) - (_make-export__2__168357168360_ - (lambda (_bind160880_ _phi160881_ _ctx160882_) - (let ((_name160884_ '#f)) - (_make-export__168353168354_ - _bind160880_ - _phi160881_ - _ctx160882_ - _name160884_)))) - (_make-export160412_ - (lambda _g168426_ - (let ((_g168425_ (##length _g168426_))) - (cond ((##fx= _g168425_ 1) - (apply (lambda (_bind160865_) - (_make-export__0__168355168358_ - _bind160865_)) - _g168426_)) - ((##fx= _g168425_ 2) - (apply (lambda (_bind160873_ _phi160874_) - (_make-export__1__168356168359_ - _bind160873_ - _phi160874_)) - _g168426_)) - ((##fx= _g168425_ 3) - (apply (lambda (_bind160880_ - _phi160881_ - _ctx160882_) - (_make-export__2__168357168360_ - _bind160880_ - _phi160881_ - _ctx160882_)) - _g168426_)) - ((##fx= _g168425_ 4) - (apply (lambda (_bind160886_ - _phi160887_ - _ctx160888_ - _name160889_) - (_make-export__168353168354_ - _bind160886_ - _phi160887_ - _ctx160888_ - _name160889_)) - _g168426_)) + (_make-export__0__9213492137_ + (lambda (_bind89212_) + (let* ((_phi89214_ (gx#current-export-expander-phi)) + (_ctx89216_ (gx#current-expander-context)) + (_name89218_ '#f)) + (_make-export__9213292133_ + _bind89212_ + _phi89214_ + _ctx89216_ + _name89218_)))) + (_make-export__1__9213592138_ + (lambda (_bind89220_ _phi89221_) + (let* ((_ctx89223_ (gx#current-expander-context)) + (_name89225_ '#f)) + (_make-export__9213292133_ + _bind89220_ + _phi89221_ + _ctx89223_ + _name89225_)))) + (_make-export__2__9213692139_ + (lambda (_bind89227_ _phi89228_ _ctx89229_) + (let ((_name89231_ '#f)) + (_make-export__9213292133_ + _bind89227_ + _phi89228_ + _ctx89229_ + _name89231_)))) + (_make-export88759_ + (lambda _g92205_ + (let ((_g92204_ (##length _g92205_))) + (cond ((##fx= _g92204_ 1) + (apply (lambda (_bind89212_) + (_make-export__0__9213492137_ + _bind89212_)) + _g92205_)) + ((##fx= _g92204_ 2) + (apply (lambda (_bind89220_ _phi89221_) + (_make-export__1__9213592138_ + _bind89220_ + _phi89221_)) + _g92205_)) + ((##fx= _g92204_ 3) + (apply (lambda (_bind89227_ + _phi89228_ + _ctx89229_) + (_make-export__2__9213692139_ + _bind89227_ + _phi89228_ + _ctx89229_)) + _g92205_)) + ((##fx= _g92204_ 4) + (apply (lambda (_bind89233_ + _phi89234_ + _ctx89235_ + _name89236_) + (_make-export__9213292133_ + _bind89233_ + _phi89234_ + _ctx89235_ + _name89236_)) + _g92205_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g168426_)))))) - (_expand1160413_ - (lambda (_hd160562_ _K160563_ _rest160564_ _r160565_) - (let* ((_e160566160598_ _hd160562_) - (_E160593160602_ + _g92205_)))))) + (_expand188760_ + (lambda (_hd88909_ _K88910_ _rest88911_ _r88912_) + (let* ((_e8891388945_ _hd88909_) + (_E8894088949_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal export" - _stx160409_ - _hd160562_))) - (_E160583160681_ + _stx88756_ + _hd88909_))) + (_E8893089028_ (lambda () - (if (gx#stx-pair? _e160566160598_) - (let ((_e160594160606_ - (gx#syntax-e _e160566160598_))) - (let ((_hd160595160609_ - (##car _e160594160606_)) - (_tl160596160611_ - (##cdr _e160594160606_))) - (if (eq? (gx#stx-e _hd160595160609_) + (if (gx#stx-pair? _e8891388945_) + (let ((_e8894188953_ + (gx#syntax-e _e8891388945_))) + (let ((_hd8894288956_ + (##car _e8894188953_)) + (_tl8894388958_ + (##cdr _e8894188953_))) + (if (eq? (gx#stx-e _hd8894288956_) 'import:) - (let ((_in160614_ _tl160596160611_)) - (if (gx#stx-list? _in160614_) - (let _lp160616_ ((_in-rest160618_ + (let ((_in88961_ _tl8894388958_)) + (if (gx#stx-list? _in88961_) + (let _lp88963_ ((_in-rest88965_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in160614_) - (_r160619_ _r160565_)) + _in88961_) + (_r88966_ _r88912_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_e160620160627_ - _in-rest160618_) - (_E160622160631_ + (let* ((_e8896788974_ + _in-rest88965_) + (_E8896988978_ (lambda () - (_K160563_ - _rest160564_ - _r160619_))) - (_E160621160677_ + (_K88910_ + _rest88911_ + _r88966_))) + (_E8896889024_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e160620160627_) - (let ((_e160623160635_ (gx#syntax-e _e160620160627_))) - (let ((_hd160624160638_ (##car _e160623160635_)) - (_tl160625160640_ (##cdr _e160623160635_))) - (let* ((_hd160643_ _hd160624160638_) - (_in-rest160645_ _tl160625160640_)) + _e8896788974_) + (let ((_e8897088982_ (gx#syntax-e _e8896788974_))) + (let ((_hd8897188985_ (##car _e8897088982_)) + (_tl8897288987_ (##cdr _e8897088982_))) + (let* ((_hd88990_ _hd8897188985_) + (_in-rest88992_ _tl8897288987_)) (if '#t - (let ((_src160675_ - (if (gx#core-bound-module? - _hd160643_) - (gx#syntax-local-e__0 _hd160643_) + (let ((_src89022_ + (if (gx#core-bound-module? _hd88990_) + (gx#syntax-local-e__0 _hd88990_) (if (gx#core-library-module-path? - _hd160643_) + _hd88990_) (gx#import-module__0 (gx#core-resolve-library-module-path - _hd160643_)) + _hd88990_)) (if (gx#core-library-relative-module-path? - _hd160643_) + _hd88990_) (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _hd160643_)) + _hd88990_)) (if (gx#stx-string? - _hd160643_) + _hd88990_) (gx#import-module__0 (gx#core-resolve-module-path__% - _hd160643_ + _hd88990_ (gx#stx-source - _stx160409_))) - (let* ((_e160646160653_ + _stx88756_))) + (let* ((_e8899389000_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd160643_) - (_E160648160657_ + _hd88990_) + (_E8899589004_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal re-export" - _stx160409_ - _hd160643_))) - (_E160647160671_ + _stx88756_ + _hd88990_))) + (_E8899489018_ (lambda () - (if (gx#stx-pair? _e160646160653_) - (let ((_e160649160661_ - (gx#syntax-e _e160646160653_))) - (let ((_hd160650160664_ - (##car _e160649160661_)) - (_tl160651160666_ - (##cdr _e160649160661_))) - (if (eq? (gx#stx-e _hd160650160664_) 'in:) - (let ((_spath160669_ _tl160651160666_)) + (if (gx#stx-pair? _e8899389000_) + (let ((_e8899689008_ + (gx#syntax-e _e8899389000_))) + (let ((_hd8899789011_ (##car _e8899689008_)) + (_tl8899889013_ (##cdr _e8899689008_))) + (if (eq? (gx#stx-e _hd8899789011_) 'in:) + (let ((_spath89016_ _tl8899889013_)) (if '#t (gx#core-import-nested-module - _spath160669_ - _stx160409_) - (_E160648160657_))) - (_E160648160657_)))) - (_E160648160657_))))) - (_E160647160671_)))))))) + _spath89016_ + _stx88756_) + (_E8899589004_))) + (_E8899589004_)))) + (_E8899589004_))))) + (_E8899489018_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp160616_ - _in-rest160645_ - (_export-imports160414_ - _src160675_ - _r160619_))) - (_E160622160631_))))) - (_E160622160631_))))) + (_lp88963_ + _in-rest88992_ + (_export-imports88761_ + _src89022_ + _r88966_))) + (_E8896988978_))))) + (_E8896988978_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E160621160677_))) - (_E160593160602_))) - (_E160593160602_)))) - (_E160593160602_)))) - (_E160570160720_ + (_E8896889024_))) + (_E8894088949_))) + (_E8894088949_)))) + (_E8894088949_)))) + (_E8891789067_ (lambda () - (if (gx#stx-pair? _e160566160598_) - (let ((_e160584160685_ - (gx#syntax-e _e160566160598_))) - (let ((_hd160585160688_ - (##car _e160584160685_)) - (_tl160586160690_ - (##cdr _e160584160685_))) - (if (eq? (gx#stx-e _hd160585160688_) + (if (gx#stx-pair? _e8891388945_) + (let ((_e8893189032_ + (gx#syntax-e _e8891388945_))) + (let ((_hd8893289035_ + (##car _e8893189032_)) + (_tl8893389037_ + (##cdr _e8893189032_))) + (if (eq? (gx#stx-e _hd8893289035_) 'rename:) - (if (gx#stx-pair? _tl160586160690_) - (let ((_e160587160693_ + (if (gx#stx-pair? _tl8893389037_) + (let ((_e8893489040_ (gx#syntax-e - _tl160586160690_))) - (let ((_hd160588160696_ - (##car _e160587160693_)) - (_tl160589160698_ - (##cdr _e160587160693_))) - (let ((_id160701_ - _hd160588160696_)) + _tl8893389037_))) + (let ((_hd8893589043_ + (##car _e8893489040_)) + (_tl8893689045_ + (##cdr _e8893489040_))) + (let ((_id89048_ + _hd8893589043_)) (if (gx#stx-pair? - _tl160589160698_) - (let ((_e160590160703_ + _tl8893689045_) + (let ((_e8893789050_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl160589160698_))) - (let ((_hd160591160706_ (##car _e160590160703_)) - (_tl160592160708_ (##cdr _e160590160703_))) - (let ((_name160711_ _hd160591160706_)) - (if (gx#stx-null? _tl160592160708_) + _tl8893689045_))) + (let ((_hd8893889053_ (##car _e8893789050_)) + (_tl8893989055_ (##cdr _e8893789050_))) + (let ((_name89058_ _hd8893889053_)) + (if (gx#stx-null? _tl8893989055_) (if '#t - (let* ((_phi160713_ + (let* ((_phi89060_ (gx#current-export-expander-phi)) - (_$e160715_ + (_$e89062_ (gx#core-resolve-identifier__1 - _id160701_ - _phi160713_))) - (if _$e160715_ - ((lambda (_bind160718_) - (_K160563_ - _rest160564_ - (cons (_make-export__168353168354_ - _bind160718_ - _phi160713_ + _id89048_ + _phi89060_))) + (if _$e89062_ + ((lambda (_bind89065_) + (_K88910_ + _rest88911_ + (cons (_make-export__9213292133_ + _bind89065_ + _phi89060_ (gx#current-expander-context) - _name160711_) - _r160565_))) - _$e160715_) + _name89058_) + _r88912_))) + _$e89062_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx160409_ - _hd160562_ - _id160701_))) - (_E160583160681_)) - (_E160583160681_))))) - (_E160583160681_))))) + _stx88756_ + _hd88909_ + _id89048_))) + (_E8893089028_)) + (_E8893089028_))))) + (_E8893089028_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E160583160681_)) - (_E160583160681_)))) - (_E160583160681_)))) - (_E160569160769_ + (_E8893089028_)) + (_E8893089028_)))) + (_E8893089028_)))) + (_E8891689116_ (lambda () - (if (gx#stx-pair? _e160566160598_) - (let ((_e160571160724_ - (gx#syntax-e _e160566160598_))) - (let ((_hd160572160727_ - (##car _e160571160724_)) - (_tl160573160729_ - (##cdr _e160571160724_))) - (if (eq? (gx#stx-e _hd160572160727_) + (if (gx#stx-pair? _e8891388945_) + (let ((_e8891889071_ + (gx#syntax-e _e8891388945_))) + (let ((_hd8891989074_ + (##car _e8891889071_)) + (_tl8892089076_ + (##cdr _e8891889071_))) + (if (eq? (gx#stx-e _hd8891989074_) 'spec:) - (if (gx#stx-pair? _tl160573160729_) - (let ((_e160574160732_ + (if (gx#stx-pair? _tl8892089076_) + (let ((_e8892189079_ (gx#syntax-e - _tl160573160729_))) - (let ((_hd160575160735_ - (##car _e160574160732_)) - (_tl160576160737_ - (##cdr _e160574160732_))) - (let ((_phi160740_ - _hd160575160735_)) + _tl8892089076_))) + (let ((_hd8892289082_ + (##car _e8892189079_)) + (_tl8892389084_ + (##cdr _e8892189079_))) + (let ((_phi89087_ + _hd8892289082_)) (if (gx#stx-pair? - _tl160576160737_) - (let ((_e160577160742_ + _tl8892389084_) + (let ((_e8892489089_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl160576160737_))) - (let ((_hd160578160745_ (##car _e160577160742_)) - (_tl160579160747_ (##cdr _e160577160742_))) - (let ((_id160750_ _hd160578160745_)) - (if (gx#stx-pair? _tl160579160747_) - (let ((_e160580160752_ - (gx#syntax-e _tl160579160747_))) - (let ((_hd160581160755_ (##car _e160580160752_)) - (_tl160582160757_ (##cdr _e160580160752_))) - (let ((_name160760_ _hd160581160755_)) - (if (gx#stx-null? _tl160582160757_) - (if (and (gx#stx-fixnum? _phi160740_) - (gx#identifier? _id160750_) - (gx#identifier? _name160760_)) - (let* ((_phi160762_ - (gx#stx-e _phi160740_)) - (_$e160764_ + _tl8892389084_))) + (let ((_hd8892589092_ (##car _e8892489089_)) + (_tl8892689094_ (##cdr _e8892489089_))) + (let ((_id89097_ _hd8892589092_)) + (if (gx#stx-pair? _tl8892689094_) + (let ((_e8892789099_ (gx#syntax-e _tl8892689094_))) + (let ((_hd8892889102_ (##car _e8892789099_)) + (_tl8892989104_ (##cdr _e8892789099_))) + (let ((_name89107_ _hd8892889102_)) + (if (gx#stx-null? _tl8892989104_) + (if (and (gx#stx-fixnum? _phi89087_) + (gx#identifier? _id89097_) + (gx#identifier? _name89107_)) + (let* ((_phi89109_ + (gx#stx-e _phi89087_)) + (_$e89111_ (gx#core-resolve-identifier__1 - _id160750_ - _phi160762_))) - (if _$e160764_ - ((lambda (_bind160767_) - (_K160563_ - _rest160564_ - (cons (_make-export__168353168354_ - _bind160767_ - _phi160762_ + _id89097_ + _phi89109_))) + (if _$e89111_ + ((lambda (_bind89114_) + (_K88910_ + _rest88911_ + (cons (_make-export__9213292133_ + _bind89114_ + _phi89109_ (gx#current-expander-context) - _name160760_) - _r160565_))) - _$e160764_) + _name89107_) + _r88912_))) + _$e89111_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx160409_ - _hd160562_ - _id160750_))) - (_E160570160720_)) - (_E160570160720_))))) - (_E160570160720_))))) - (_E160570160720_))))) + _stx88756_ + _hd88909_ + _id89097_))) + (_E8891789067_)) + (_E8891789067_))))) + (_E8891789067_))))) + (_E8891789067_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E160570160720_)) - (_E160570160720_)))) - (_E160570160720_)))) - (_E160568160780_ + (_E8891789067_)) + (_E8891789067_)))) + (_E8891789067_)))) + (_E8891589127_ (lambda () - (let ((_id160773_ _e160566160598_)) - (if (gx#identifier? _id160773_) - (let ((_$e160775_ + (let ((_id89120_ _e8891388945_)) + (if (gx#identifier? _id89120_) + (let ((_$e89122_ (gx#core-resolve-identifier__1 - _id160773_ + _id89120_ (gx#current-export-expander-phi)))) - (if _$e160775_ - ((lambda (_bind160778_) - (_K160563_ - _rest160564_ - (cons (_make-export__0__168355168358_ - _bind160778_) - _r160565_))) - _$e160775_) + (if _$e89122_ + ((lambda (_bind89125_) + (_K88910_ + _rest88911_ + (cons (_make-export__0__9213492137_ + _bind89125_) + _r88912_))) + _$e89122_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx160409_ - _hd160562_))) - (_E160569160769_))))) - (_E160567160844_ + _stx88756_ + _hd88909_))) + (_E8891689116_))))) + (_E8891489191_ (lambda () - (if (eq? (gx#stx-e _e160566160598_) '#t) + (if (eq? (gx#stx-e _e8891388945_) '#t) (if '#t - (let* ((_current-ctx160784_ + (let* ((_current-ctx89131_ (gx#current-expander-context)) - (_current-phi160786_ + (_current-phi89133_ (gx#current-export-expander-phi)) - (_phi-ctx160788_ + (_phi-ctx89135_ (gx#core-context-shift - _current-ctx160784_ - _current-phi160786_)) - (_phi-bind160790_ - (table->list + _current-ctx89131_ + _current-phi89133_)) + (_phi-bind89137_ + (hash->list (##unchecked-structure-ref - _phi-ctx160788_ + _phi-ctx89135_ '2 gx#expander-context::t '#f)))) - (let _lp160793_ ((_bind-rest160795_ - _phi-bind160790_) - (_set160796_ '())) - (let* ((_bind-rest160797160807_ - _bind-rest160795_) - (_else160799160815_ + (let _lp89140_ ((_bind-rest89142_ + _phi-bind89137_) + (_set89143_ '())) + (let* ((_bind-rest8914489154_ + _bind-rest89142_) + (_else8914689162_ (lambda () - (_K160563_ - _rest160564_ + (_K88910_ + _rest88911_ (cons (##structure gx#export-set::t '#f - _current-phi160786_ - _set160796_) - _r160565_)))) - (_K160801160825_ - (lambda (_bind-rest160818_ - _bind160819_ - _key160820_) + _current-phi89133_ + _set89143_) + _r88912_)))) + (_K8914889172_ + (lambda (_bind-rest89165_ + _bind89166_ + _key89167_) (if (or (##structure-direct-instance-of? - _bind160819_ + _bind89166_ 'gx#import-binding::t) (gx#private-feature-binding? - _bind160819_)) - (_lp160793_ - _bind-rest160818_ - _set160796_) - (_lp160793_ - _bind-rest160818_ - (cons (_make-export__2__168357168360_ + _bind89166_)) + (_lp89140_ + _bind-rest89165_ + _set89143_) + (_lp89140_ + _bind-rest89165_ + (cons (_make-export__2__9213692139_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind160819_ - _current-phi160786_ - _current-ctx160784_) - _set160796_)))))) + _bind89166_ + _current-phi89133_ + _current-ctx89131_) + _set89143_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _bind-rest160797160807_) - (let ((_hd160802160828_ - (##car _bind-rest160797160807_)) - (_tl160803160830_ - (##cdr _bind-rest160797160807_))) - (if (##pair? _hd160802160828_) - (let ((_hd160804160833_ - (##car _hd160802160828_)) - (_tl160805160835_ - (##cdr _hd160802160828_))) - (let* ((_key160838_ + (if (##pair? _bind-rest8914489154_) + (let ((_hd8914989175_ + (##car _bind-rest8914489154_)) + (_tl8915089177_ + (##cdr _bind-rest8914489154_))) + (if (##pair? _hd8914989175_) + (let ((_hd8915189180_ + (##car _hd8914989175_)) + (_tl8915289182_ + (##cdr _hd8914989175_))) + (let* ((_key89185_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd160804160833_) - (_bind160840_ _tl160805160835_) - (_bind-rest160842_ _tl160803160830_)) - (_K160801160825_ - _bind-rest160842_ - _bind160840_ - _key160838_))) - (_else160799160815_))) + _hd8915189180_) + (_bind89187_ _tl8915289182_) + (_bind-rest89189_ _tl8915089177_)) + (_K8914889172_ _bind-rest89189_ _bind89187_ _key89185_))) + (_else8914689162_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_else160799160815_))))) - (_E160568160780_)) - (_E160568160780_))))) - (_E160567160844_)))) - (_export-imports160414_ - (lambda (_src160438_ _r160439_) - (letrec* ((_current-ctx160441_ + (_else8914689162_))))) + (_E8891589127_)) + (_E8891589127_))))) + (_E8891489191_)))) + (_export-imports88761_ + (lambda (_src88785_ _r88786_) + (letrec* ((_current-ctx88788_ (gx#current-expander-context)) - (_current-phi160442_ + (_current-phi88789_ (gx#current-export-expander-phi)) - (_import->export160443_ - (lambda (_in160524_) - (let* ((_in160525160533_ _in160524_) - (_E160527160537_ + (_import->export88790_ + (lambda (_in88871_) + (let* ((_in8887288880_ _in88871_) + (_E8887488884_ (lambda () (error '"No clause matching" - _in160525160533_))) - (_K160528160544_ - (lambda (_phi160540_ - _key160541_ - _out160542_) + _in8887288880_))) + (_K8887588891_ + (lambda (_phi88887_ + _key88888_ + _out88889_) (##structure gx#module-export::t - _current-ctx160441_ - _key160541_ - _phi160540_ - _key160541_ + _current-ctx88788_ + _key88888_ + _phi88887_ + _key88888_ '#t)))) (if (##structure-direct-instance-of? - _in160525160533_ + _in8887288880_ 'gx#module-import::t) - (let* ((_e160529160547_ + (let* ((_e8887688894_ (##unchecked-structure-ref - _in160525160533_ + _in8887288880_ '1 gx#module-import::t '#f)) - (_out160550_ _e160529160547_) - (_e160530160552_ + (_out88897_ _e8887688894_) + (_e8887788899_ (##unchecked-structure-ref - _in160525160533_ + _in8887288880_ '2 gx#module-import::t '#f)) - (_key160555_ _e160530160552_) - (_e160531160557_ + (_key88902_ _e8887788899_) + (_e8887888904_ (##unchecked-structure-ref - _in160525160533_ + _in8887288880_ '3 gx#module-import::t '#f)) - (_phi160560_ _e160531160557_)) - (_K160528160544_ - _phi160560_ - _key160555_ - _out160550_)) - (_E160527160537_))))) - (_fold-e160444_ - (lambda (_in160446_ _r160447_) - (let* ((_in160448160462_ _in160446_) - (_else160451160470_ - (lambda () _r160447_))) - (let ((_K160457160506_ - (lambda (_phi160502_ - _key160503_ - _out160504_) - (if (and (fx= _phi160502_ - _current-phi160442_) - (eq? _src160438_ + (_phi88907_ _e8887888904_)) + (_K8887588891_ + _phi88907_ + _key88902_ + _out88897_)) + (_E8887488884_))))) + (_fold-e88791_ + (lambda (_in88793_ _r88794_) + (let* ((_in8879588809_ _in88793_) + (_else8879888817_ + (lambda () _r88794_))) + (let ((_K8880488853_ + (lambda (_phi88849_ + _key88850_ + _out88851_) + (if (and (fx= _phi88849_ + _current-phi88789_) + (eq? _src88785_ (##unchecked-structure-ref - _out160504_ + _out88851_ '1 gx#module-export::t '#f))) - (cons (_import->export160443_ - _in160446_) - _r160447_) - _r160447_))) - (_K160453160481_ - (lambda (_imports160474_ - _phi160475_ - _ctx160476_) - (if (and (fx= _phi160475_ - _current-phi160442_) - (eq? _src160438_ - _ctx160476_)) - (foldl1 (lambda (_in160478_ + (cons (_import->export88790_ + _in88793_) + _r88794_) + _r88794_))) + (_K8880088828_ + (lambda (_imports88821_ + _phi88822_ + _ctx88823_) + (if (and (fx= _phi88822_ + _current-phi88789_) + (eq? _src88785_ + _ctx88823_)) + (foldl1 (lambda (_in88825_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r160479_) - (cons (_import->export160443_ _in160478_) _r160479_)) - _r160447_ - _imports160474_) + _r88826_) + (cons (_import->export88790_ _in88825_) _r88826_)) + _r88794_ + _imports88821_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _r160447_)))) - (let ((_try-match160450160499_ + _r88794_)))) + (let ((_try-match8879788846_ (lambda () (if (##structure-direct-instance-of? - _in160448160462_ + _in8879588809_ 'gx#import-set::t) - (let* ((_e160454160484_ + (let* ((_e8880188831_ (##unchecked-structure-ref - _in160448160462_ + _in8879588809_ '1 gx#import-set::t '#f)) - (_e160455160489_ + (_e8880288836_ (##unchecked-structure-ref - _in160448160462_ + _in8879588809_ '2 gx#import-set::t '#f)) - (_e160456160494_ + (_e8880388841_ (##unchecked-structure-ref - _in160448160462_ + _in8879588809_ '3 gx#import-set::t '#f))) - (let ((_ctx160487_ - _e160454160484_) - (_phi160492_ - _e160455160489_) - (_imports160497_ - _e160456160494_)) - (_K160453160481_ - _imports160497_ - _phi160492_ - _ctx160487_))) - (_else160451160470_))))) + (let ((_ctx88834_ + _e8880188831_) + (_phi88839_ + _e8880288836_) + (_imports88844_ + _e8880388841_)) + (_K8880088828_ + _imports88844_ + _phi88839_ + _ctx88834_))) + (_else8879888817_))))) (if (##structure-direct-instance-of? - _in160448160462_ + _in8879588809_ 'gx#module-import::t) - (let* ((_e160458160509_ + (let* ((_e8880588856_ (##unchecked-structure-ref - _in160448160462_ + _in8879588809_ '1 gx#module-import::t '#f)) - (_e160459160514_ + (_e8880688861_ (##unchecked-structure-ref - _in160448160462_ + _in8879588809_ '2 gx#module-import::t '#f)) - (_e160460160519_ + (_e8880788866_ (##unchecked-structure-ref - _in160448160462_ + _in8879588809_ '3 gx#module-import::t '#f))) - (let ((_out160512_ - _e160458160509_) - (_key160517_ - _e160459160514_) - (_phi160522_ - _e160460160519_)) - (_K160457160506_ - _phi160522_ - _key160517_ - _out160512_))) - (_try-match160450160499_)))))))) + (let ((_out88859_ _e8880588856_) + (_key88864_ _e8880688861_) + (_phi88869_ _e8880788866_)) + (_K8880488853_ + _phi88869_ + _key88864_ + _out88859_))) + (_try-match8879788846_)))))))) (cons (##structure gx#export-set::t - _src160438_ - _current-phi160442_ - (foldl1 _fold-e160444_ + _src88785_ + _current-phi88789_ + (foldl1 _fold-e88791_ '() (##unchecked-structure-ref - _current-ctx160441_ + _current-ctx88788_ '8 gx#module-context::t '#f))) - _r160439_)))) - (_export!160415_ - (lambda (_rbody160428_) - (letrec* ((_current-ctx160430_ + _r88786_)))) + (_export!88762_ + (lambda (_rbody88775_) + (letrec* ((_current-ctx88777_ (gx#current-expander-context)) - (_fold-e160431_ - (lambda (_out160435_ _r160436_) + (_fold-e88778_ + (lambda (_out88782_ _r88783_) (if (##structure-direct-instance-of? - _out160435_ + _out88782_ 'gx#module-export::t) - (cons _out160435_ _r160436_) + (cons _out88782_ _r88783_) (if (##structure-direct-instance-of? - _out160435_ + _out88782_ 'gx#export-set::t) (foldl1 cons - _r160436_ + _r88783_ (##unchecked-structure-ref - _out160435_ + _out88782_ '3 gx#export-set::t '#f)) - _r160436_))))) - (let ((_body160433_ (reverse _rbody160428_))) + _r88783_))))) + (let ((_body88780_ (reverse _rbody88775_))) (##unchecked-structure-set! - _current-ctx160430_ - (foldl1 _fold-e160431_ + _current-ctx88777_ + (foldl1 _fold-e88778_ (##unchecked-structure-ref - _current-ctx160430_ + _current-ctx88777_ '9 gx#module-context::t '#f) - _body160433_) + _body88780_) '9 gx#module-context::t '#f) - _body160433_)))) - (_expanded-export?160416_ - (lambda (_e160423_) - (let ((_$e160425_ + _body88780_)))) + (_expanded-export?88763_ + (lambda (_e88770_) + (let ((_$e88772_ (##structure-direct-instance-of? - _e160423_ + _e88770_ 'gx#module-export::t))) - (if _$e160425_ - _$e160425_ + (if _$e88772_ + _$e88772_ (##structure-direct-instance-of? - _e160423_ + _e88770_ 'gx#export-set::t)))))) (if (or (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - _internal-expand?160410_) - (let ((_rbody160421_ + _internal-expand?88757_) + (let ((_rbody88768_ (gx#core-expand-import/export - _stx160409_ - _expanded-export?160416_ + _stx88756_ + _expanded-export?88763_ 'apply-export-expander gx#current-export-expander-phi - _expand1160413_))) - (if _internal-expand?160410_ - (reverse _rbody160421_) + _expand188760_))) + (if _internal-expand?88757_ + (reverse _rbody88768_) (gx#core-quote-syntax__1 - (gx#core-cons '%#export (_export!160415_ _rbody160421_)) - (gx#stx-source _stx160409_)))) + (gx#core-cons '%#export (_export!88762_ _rbody88768_)) + (gx#stx-source _stx88756_)))) (if (##structure-instance-of? (gx#current-expander-context) 'gx#top-context::t) (gx#core-quote-syntax__1 (gx#core-cons '%#begin '()) - (gx#stx-source _stx160409_)) + (gx#stx-source _stx88756_)) (gx#raise-syntax-error '#f '"Illegal context" - _stx160409_)))))) + _stx88756_)))))) (define gx#core-expand-export%__0 - (lambda (_stx160894_) - (let ((_internal-expand?160896_ '#f)) - (gx#core-expand-export%__% _stx160894_ _internal-expand?160896_)))) + (lambda (_stx89241_) + (let ((_internal-expand?89243_ '#f)) + (gx#core-expand-export%__% _stx89241_ _internal-expand?89243_)))) (define gx#core-expand-export% - (lambda _g168428_ - (let ((_g168427_ (##length _g168428_))) - (cond ((##fx= _g168427_ 1) - (apply (lambda (_stx160894_) - (gx#core-expand-export%__0 _stx160894_)) - _g168428_)) - ((##fx= _g168427_ 2) - (apply (lambda (_stx160898_ _internal-expand?160899_) + (lambda _g92207_ + (let ((_g92206_ (##length _g92207_))) + (cond ((##fx= _g92206_ 1) + (apply (lambda (_stx89241_) + (gx#core-expand-export%__0 _stx89241_)) + _g92207_)) + ((##fx= _g92206_ 2) + (apply (lambda (_stx89245_ _internal-expand?89246_) (gx#core-expand-export%__% - _stx160898_ - _internal-expand?160899_)) - _g168428_)) + _stx89245_ + _internal-expand?89246_)) + _g92207_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-export% - _g168428_)))))) + _g92207_)))))) (define gx#core-expand-export-source - (lambda (_hd160406_) + (lambda (_hd88753_) (gx#core-expand-export%__% - (cons 'export-macro% (cons _hd160406_ '())) + (cons 'export-macro% (cons _hd88753_ '())) '#t))) (define gx#core-expand-provide% - (lambda (_stx160376_) - (let* ((_e160377160384_ _stx160376_) - (_E160379160388_ + (lambda (_stx88723_) + (let* ((_e8872488731_ _stx88723_) + (_E8872688735_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e160377160384_))) - (_E160378160402_ + _e8872488731_))) + (_E8872588749_ (lambda () - (if (gx#stx-pair? _e160377160384_) - (let ((_e160380160392_ (gx#syntax-e _e160377160384_))) - (let ((_hd160381160395_ (##car _e160380160392_)) - (_tl160382160397_ (##cdr _e160380160392_))) - (let ((_body160400_ _tl160382160397_)) - (if (gx#identifier-list? _body160400_) + (if (gx#stx-pair? _e8872488731_) + (let ((_e8872788739_ (gx#syntax-e _e8872488731_))) + (let ((_hd8872888742_ (##car _e8872788739_)) + (_tl8872988744_ (##cdr _e8872788739_))) + (let ((_body88747_ _tl8872988744_)) + (if (gx#identifier-list? _body88747_) (begin (gx#stx-for-each1 gx#core-bind-feature! - _body160400_) + _body88747_) (gx#core-quote-syntax__1 (gx#core-cons '%#provide (gx#stx-map1 gx#core-quote-syntax - _body160400_)) - (gx#stx-source _stx160376_))) - (_E160379160388_))))) - (_E160379160388_))))) - (_E160378160402_)))) + _body88747_)) + (gx#stx-source _stx88723_))) + (_E8872688735_))))) + (_E8872688735_))))) + (_E8872588749_)))) (define gx#core-bind-feature!__% - (lambda (_id160342_ _private?160343_ _phi160344_ _ctx160345_) + (lambda (_id88689_ _private?88690_ _phi88691_ _ctx88692_) (gx#core-bind-syntax!__% - _id160342_ - ((if _private?160343_ + _id88689_ + ((if _private?88690_ gx#make-private-feature-expander gx#make-feature-expander) - (gx#stx-e _id160342_)) - _private?160343_ - _phi160344_ - _ctx160345_))) + (gx#stx-e _id88689_)) + _private?88690_ + _phi88691_ + _ctx88692_))) (define gx#core-bind-feature!__0 - (lambda (_id160350_) - (let* ((_private?160352_ '#f) - (_phi160354_ (gx#current-expander-phi)) - (_ctx160356_ (gx#current-expander-context))) + (lambda (_id88697_) + (let* ((_private?88699_ '#f) + (_phi88701_ (gx#current-expander-phi)) + (_ctx88703_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id160350_ - _private?160352_ - _phi160354_ - _ctx160356_)))) + _id88697_ + _private?88699_ + _phi88701_ + _ctx88703_)))) (define gx#core-bind-feature!__1 - (lambda (_id160358_ _private?160359_) - (let* ((_phi160361_ (gx#current-expander-phi)) - (_ctx160363_ (gx#current-expander-context))) + (lambda (_id88705_ _private?88706_) + (let* ((_phi88708_ (gx#current-expander-phi)) + (_ctx88710_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id160358_ - _private?160359_ - _phi160361_ - _ctx160363_)))) + _id88705_ + _private?88706_ + _phi88708_ + _ctx88710_)))) (define gx#core-bind-feature!__2 - (lambda (_id160365_ _private?160366_ _phi160367_) - (let ((_ctx160369_ (gx#current-expander-context))) + (lambda (_id88712_ _private?88713_ _phi88714_) + (let ((_ctx88716_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id160365_ - _private?160366_ - _phi160367_ - _ctx160369_)))) + _id88712_ + _private?88713_ + _phi88714_ + _ctx88716_)))) (define gx#core-bind-feature! - (lambda _g168430_ - (let ((_g168429_ (##length _g168430_))) - (cond ((##fx= _g168429_ 1) - (apply (lambda (_id160350_) - (gx#core-bind-feature!__0 _id160350_)) - _g168430_)) - ((##fx= _g168429_ 2) - (apply (lambda (_id160358_ _private?160359_) - (gx#core-bind-feature!__1 - _id160358_ - _private?160359_)) - _g168430_)) - ((##fx= _g168429_ 3) - (apply (lambda (_id160365_ _private?160366_ _phi160367_) + (lambda _g92209_ + (let ((_g92208_ (##length _g92209_))) + (cond ((##fx= _g92208_ 1) + (apply (lambda (_id88697_) + (gx#core-bind-feature!__0 _id88697_)) + _g92209_)) + ((##fx= _g92208_ 2) + (apply (lambda (_id88705_ _private?88706_) + (gx#core-bind-feature!__1 _id88705_ _private?88706_)) + _g92209_)) + ((##fx= _g92208_ 3) + (apply (lambda (_id88712_ _private?88713_ _phi88714_) (gx#core-bind-feature!__2 - _id160365_ - _private?160366_ - _phi160367_)) - _g168430_)) - ((##fx= _g168429_ 4) - (apply (lambda (_id160371_ - _private?160372_ - _phi160373_ - _ctx160374_) + _id88712_ + _private?88713_ + _phi88714_)) + _g92209_)) + ((##fx= _g92208_ 4) + (apply (lambda (_id88718_ + _private?88719_ + _phi88720_ + _ctx88721_) (gx#core-bind-feature!__% - _id160371_ - _private?160372_ - _phi160373_ - _ctx160374_)) - _g168430_)) + _id88718_ + _private?88719_ + _phi88720_ + _ctx88721_)) + _g92209_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-feature! - _g168430_)))))))) + _g92209_)))))))) diff --git a/src/bootstrap/gerbil/expander/module__1.scm b/src/bootstrap/gerbil/expander/module__1.scm index 1ae58a999..61fc60610 100644 --- a/src/bootstrap/gerbil/expander/module__1.scm +++ b/src/bootstrap/gerbil/expander/module__1.scm @@ -1,839 +1,839 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gx[1]#_g168432_| + (define |gx[1]#_g92211_| (##structure gx#syntax-quote::t 'module-import::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g168434_| + (define |gx[1]#_g92213_| (##structure gx#syntax-quote::t 'make-module-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g168436_| + (define |gx[1]#_g92215_| (##structure gx#syntax-quote::t 'module-import? #f (gx#current-expander-context) '())) - (define |gx[1]#_g168443_| + (define |gx[1]#_g92222_| (##structure gx#syntax-quote::t 'module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g168446_| + (define |gx[1]#_g92225_| (##structure gx#syntax-quote::t 'module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g168449_| + (define |gx[1]#_g92228_| (##structure gx#syntax-quote::t 'module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g168452_| + (define |gx[1]#_g92231_| (##structure gx#syntax-quote::t 'module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g168459_| + (define |gx[1]#_g92238_| (##structure gx#syntax-quote::t 'module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168462_| + (define |gx[1]#_g92241_| (##structure gx#syntax-quote::t 'module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168465_| + (define |gx[1]#_g92244_| (##structure gx#syntax-quote::t 'module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168468_| + (define |gx[1]#_g92247_| (##structure gx#syntax-quote::t 'module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168475_| + (define |gx[1]#_g92254_| (##structure gx#syntax-quote::t '&module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g168478_| + (define |gx[1]#_g92257_| (##structure gx#syntax-quote::t '&module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g168481_| + (define |gx[1]#_g92260_| (##structure gx#syntax-quote::t '&module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g168484_| + (define |gx[1]#_g92263_| (##structure gx#syntax-quote::t '&module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g168491_| + (define |gx[1]#_g92270_| (##structure gx#syntax-quote::t '&module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168494_| + (define |gx[1]#_g92273_| (##structure gx#syntax-quote::t '&module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168497_| + (define |gx[1]#_g92276_| (##structure gx#syntax-quote::t '&module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168500_| + (define |gx[1]#_g92279_| (##structure gx#syntax-quote::t '&module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168502_| + (define |gx[1]#_g92281_| (##structure gx#syntax-quote::t 'module-export::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g168504_| + (define |gx[1]#_g92283_| (##structure gx#syntax-quote::t 'make-module-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g168506_| + (define |gx[1]#_g92285_| (##structure gx#syntax-quote::t 'module-export? #f (gx#current-expander-context) '())) - (define |gx[1]#_g168514_| + (define |gx[1]#_g92293_| (##structure gx#syntax-quote::t 'module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g168517_| + (define |gx[1]#_g92296_| (##structure gx#syntax-quote::t 'module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g168520_| + (define |gx[1]#_g92299_| (##structure gx#syntax-quote::t 'module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g168523_| + (define |gx[1]#_g92302_| (##structure gx#syntax-quote::t 'module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g168526_| + (define |gx[1]#_g92305_| (##structure gx#syntax-quote::t 'module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g168534_| + (define |gx[1]#_g92313_| (##structure gx#syntax-quote::t 'module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168537_| + (define |gx[1]#_g92316_| (##structure gx#syntax-quote::t 'module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168540_| + (define |gx[1]#_g92319_| (##structure gx#syntax-quote::t 'module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168543_| + (define |gx[1]#_g92322_| (##structure gx#syntax-quote::t 'module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168546_| + (define |gx[1]#_g92325_| (##structure gx#syntax-quote::t 'module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168554_| + (define |gx[1]#_g92333_| (##structure gx#syntax-quote::t '&module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g168557_| + (define |gx[1]#_g92336_| (##structure gx#syntax-quote::t '&module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g168560_| + (define |gx[1]#_g92339_| (##structure gx#syntax-quote::t '&module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g168563_| + (define |gx[1]#_g92342_| (##structure gx#syntax-quote::t '&module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g168566_| + (define |gx[1]#_g92345_| (##structure gx#syntax-quote::t '&module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g168574_| + (define |gx[1]#_g92353_| (##structure gx#syntax-quote::t '&module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168577_| + (define |gx[1]#_g92356_| (##structure gx#syntax-quote::t '&module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168580_| + (define |gx[1]#_g92359_| (##structure gx#syntax-quote::t '&module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168583_| + (define |gx[1]#_g92362_| (##structure gx#syntax-quote::t '&module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168586_| + (define |gx[1]#_g92365_| (##structure gx#syntax-quote::t '&module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168588_| + (define |gx[1]#_g92367_| (##structure gx#syntax-quote::t 'import-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g168590_| + (define |gx[1]#_g92369_| (##structure gx#syntax-quote::t 'make-import-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g168592_| + (define |gx[1]#_g92371_| (##structure gx#syntax-quote::t 'import-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g168598_| + (define |gx[1]#_g92377_| (##structure gx#syntax-quote::t 'import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g168601_| + (define |gx[1]#_g92380_| (##structure gx#syntax-quote::t 'import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g168604_| + (define |gx[1]#_g92383_| (##structure gx#syntax-quote::t 'import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g168610_| + (define |gx[1]#_g92389_| (##structure gx#syntax-quote::t 'import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168613_| + (define |gx[1]#_g92392_| (##structure gx#syntax-quote::t 'import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168616_| + (define |gx[1]#_g92395_| (##structure gx#syntax-quote::t 'import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168622_| + (define |gx[1]#_g92401_| (##structure gx#syntax-quote::t '&import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g168625_| + (define |gx[1]#_g92404_| (##structure gx#syntax-quote::t '&import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g168628_| + (define |gx[1]#_g92407_| (##structure gx#syntax-quote::t '&import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g168634_| + (define |gx[1]#_g92413_| (##structure gx#syntax-quote::t '&import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168637_| + (define |gx[1]#_g92416_| (##structure gx#syntax-quote::t '&import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168640_| + (define |gx[1]#_g92419_| (##structure gx#syntax-quote::t '&import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168642_| + (define |gx[1]#_g92421_| (##structure gx#syntax-quote::t 'export-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g168644_| + (define |gx[1]#_g92423_| (##structure gx#syntax-quote::t 'make-export-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g168646_| + (define |gx[1]#_g92425_| (##structure gx#syntax-quote::t 'export-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g168652_| + (define |gx[1]#_g92431_| (##structure gx#syntax-quote::t 'export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g168655_| + (define |gx[1]#_g92434_| (##structure gx#syntax-quote::t 'export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g168658_| + (define |gx[1]#_g92437_| (##structure gx#syntax-quote::t 'export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g168664_| + (define |gx[1]#_g92443_| (##structure gx#syntax-quote::t 'export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168667_| + (define |gx[1]#_g92446_| (##structure gx#syntax-quote::t 'export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168670_| + (define |gx[1]#_g92449_| (##structure gx#syntax-quote::t 'export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168676_| + (define |gx[1]#_g92455_| (##structure gx#syntax-quote::t '&export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g168679_| + (define |gx[1]#_g92458_| (##structure gx#syntax-quote::t '&export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g168682_| + (define |gx[1]#_g92461_| (##structure gx#syntax-quote::t '&export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g168688_| + (define |gx[1]#_g92467_| (##structure gx#syntax-quote::t '&export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168691_| + (define |gx[1]#_g92470_| (##structure gx#syntax-quote::t '&export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168694_| + (define |gx[1]#_g92473_| (##structure gx#syntax-quote::t '&export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168697_| + (define |gx[1]#_g92476_| (##structure gx#syntax-quote::t 'user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g168699_| + (define |gx[1]#_g92478_| (##structure gx#syntax-quote::t 'import-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g168701_| + (define |gx[1]#_g92480_| (##structure gx#syntax-quote::t 'make-import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g168703_| + (define |gx[1]#_g92482_| (##structure gx#syntax-quote::t 'import-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g168709_| + (define |gx[1]#_g92488_| (##structure gx#syntax-quote::t 'import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g168712_| + (define |gx[1]#_g92491_| (##structure gx#syntax-quote::t 'import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g168715_| + (define |gx[1]#_g92494_| (##structure gx#syntax-quote::t 'import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g168721_| + (define |gx[1]#_g92500_| (##structure gx#syntax-quote::t 'import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168724_| + (define |gx[1]#_g92503_| (##structure gx#syntax-quote::t 'import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168727_| + (define |gx[1]#_g92506_| (##structure gx#syntax-quote::t 'import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168733_| + (define |gx[1]#_g92512_| (##structure gx#syntax-quote::t '&import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g168736_| + (define |gx[1]#_g92515_| (##structure gx#syntax-quote::t '&import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g168739_| + (define |gx[1]#_g92518_| (##structure gx#syntax-quote::t '&import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g168745_| + (define |gx[1]#_g92524_| (##structure gx#syntax-quote::t '&import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168748_| + (define |gx[1]#_g92527_| (##structure gx#syntax-quote::t '&import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168751_| + (define |gx[1]#_g92530_| (##structure gx#syntax-quote::t '&import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168755_| + (define |gx[1]#_g92534_| (##structure gx#syntax-quote::t 'export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g168757_| + (define |gx[1]#_g92536_| (##structure gx#syntax-quote::t 'make-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g168759_| + (define |gx[1]#_g92538_| (##structure gx#syntax-quote::t 'export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g168765_| + (define |gx[1]#_g92544_| (##structure gx#syntax-quote::t 'export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g168768_| + (define |gx[1]#_g92547_| (##structure gx#syntax-quote::t 'export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g168771_| + (define |gx[1]#_g92550_| (##structure gx#syntax-quote::t 'export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g168777_| + (define |gx[1]#_g92556_| (##structure gx#syntax-quote::t 'export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168780_| + (define |gx[1]#_g92559_| (##structure gx#syntax-quote::t 'export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168783_| + (define |gx[1]#_g92562_| (##structure gx#syntax-quote::t 'export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168789_| + (define |gx[1]#_g92568_| (##structure gx#syntax-quote::t '&export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g168792_| + (define |gx[1]#_g92571_| (##structure gx#syntax-quote::t '&export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g168795_| + (define |gx[1]#_g92574_| (##structure gx#syntax-quote::t '&export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g168801_| + (define |gx[1]#_g92580_| (##structure gx#syntax-quote::t '&export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168804_| + (define |gx[1]#_g92583_| (##structure gx#syntax-quote::t '&export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168807_| + (define |gx[1]#_g92586_| (##structure gx#syntax-quote::t '&export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168811_| + (define |gx[1]#_g92590_| (##structure gx#syntax-quote::t 'export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g168813_| + (define |gx[1]#_g92592_| (##structure gx#syntax-quote::t 'import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g168815_| + (define |gx[1]#_g92594_| (##structure gx#syntax-quote::t 'import-export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g168817_| + (define |gx[1]#_g92596_| (##structure gx#syntax-quote::t 'make-import-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g168819_| + (define |gx[1]#_g92598_| (##structure gx#syntax-quote::t 'import-export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g168825_| + (define |gx[1]#_g92604_| (##structure gx#syntax-quote::t 'import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g168828_| + (define |gx[1]#_g92607_| (##structure gx#syntax-quote::t 'import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g168831_| + (define |gx[1]#_g92610_| (##structure gx#syntax-quote::t 'import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g168837_| + (define |gx[1]#_g92616_| (##structure gx#syntax-quote::t 'import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168840_| + (define |gx[1]#_g92619_| (##structure gx#syntax-quote::t 'import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168843_| + (define |gx[1]#_g92622_| (##structure gx#syntax-quote::t 'import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168849_| + (define |gx[1]#_g92628_| (##structure gx#syntax-quote::t '&import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g168852_| + (define |gx[1]#_g92631_| (##structure gx#syntax-quote::t '&import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g168855_| + (define |gx[1]#_g92634_| (##structure gx#syntax-quote::t '&import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g168861_| + (define |gx[1]#_g92640_| (##structure gx#syntax-quote::t '&import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168864_| + (define |gx[1]#_g92643_| (##structure gx#syntax-quote::t '&import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g168867_| + (define |gx[1]#_g92646_| (##structure gx#syntax-quote::t '&import-export-expander-context-set! @@ -842,7 +842,7 @@ '())) (begin (define |gx[:0:]#module-import| - (let ((__obj168385 + (let ((__obj92164 (let () (declare (not safe)) (##structure @@ -865,7 +865,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168385 + __obj92164 'gx#module-import::t '1 gerbil/core$$#class-type-info::t @@ -873,7 +873,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168385 + __obj92164 'module-import '2 gerbil/core$$#class-type-info::t @@ -881,7 +881,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168385 + __obj92164 '(source name phi weak?) '4 gerbil/core$$#class-type-info::t @@ -889,7 +889,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168385 + __obj92164 '() '3 gerbil/core$$#class-type-info::t @@ -897,7 +897,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168385 + __obj92164 '#t '5 gerbil/core$$#class-type-info::t @@ -905,7 +905,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168385 + __obj92164 '#t '6 gerbil/core$$#class-type-info::t @@ -913,7 +913,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168385 + __obj92164 '#f '7 gerbil/core$$#class-type-info::t @@ -921,182 +921,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168385 + __obj92164 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168431 |gx[1]#_g168432_|)) + (let ((__tmp92210 |gx[1]#_g92211_|)) (declare (not safe)) (##unchecked-structure-set! - __obj168385 - __tmp168431 + __obj92164 + __tmp92210 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168433 |gx[1]#_g168434_|)) + (let ((__tmp92212 |gx[1]#_g92213_|)) (declare (not safe)) (##unchecked-structure-set! - __obj168385 - __tmp168433 + __obj92164 + __tmp92212 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168435 |gx[1]#_g168436_|)) + (let ((__tmp92214 |gx[1]#_g92215_|)) (declare (not safe)) (##unchecked-structure-set! - __obj168385 - __tmp168435 + __obj92164 + __tmp92214 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168437 - (let ((__tmp168450 - (let ((__tmp168451 |gx[1]#_g168452_|)) + (let ((__tmp92216 + (let ((__tmp92229 + (let ((__tmp92230 |gx[1]#_g92231_|)) (declare (not safe)) - (cons 'source __tmp168451))) - (__tmp168438 - (let ((__tmp168447 - (let ((__tmp168448 |gx[1]#_g168449_|)) + (cons 'source __tmp92230))) + (__tmp92217 + (let ((__tmp92226 + (let ((__tmp92227 |gx[1]#_g92228_|)) (declare (not safe)) - (cons 'name __tmp168448))) - (__tmp168439 - (let ((__tmp168444 - (let ((__tmp168445 |gx[1]#_g168446_|)) + (cons 'name __tmp92227))) + (__tmp92218 + (let ((__tmp92223 + (let ((__tmp92224 |gx[1]#_g92225_|)) (declare (not safe)) - (cons 'phi __tmp168445))) - (__tmp168440 - (let ((__tmp168441 - (let ((__tmp168442 - |gx[1]#_g168443_|)) + (cons 'phi __tmp92224))) + (__tmp92219 + (let ((__tmp92220 + (let ((__tmp92221 |gx[1]#_g92222_|)) (declare (not safe)) - (cons 'weak? __tmp168442)))) + (cons 'weak? __tmp92221)))) (declare (not safe)) - (cons __tmp168441 '())))) + (cons __tmp92220 '())))) (declare (not safe)) - (cons __tmp168444 __tmp168440)))) + (cons __tmp92223 __tmp92219)))) (declare (not safe)) - (cons __tmp168447 __tmp168439)))) + (cons __tmp92226 __tmp92218)))) (declare (not safe)) - (cons __tmp168450 __tmp168438)))) + (cons __tmp92229 __tmp92217)))) (declare (not safe)) (##unchecked-structure-set! - __obj168385 - __tmp168437 + __obj92164 + __tmp92216 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168453 - (let ((__tmp168466 - (let ((__tmp168467 |gx[1]#_g168468_|)) + (let ((__tmp92232 + (let ((__tmp92245 + (let ((__tmp92246 |gx[1]#_g92247_|)) (declare (not safe)) - (cons 'source __tmp168467))) - (__tmp168454 - (let ((__tmp168463 - (let ((__tmp168464 |gx[1]#_g168465_|)) + (cons 'source __tmp92246))) + (__tmp92233 + (let ((__tmp92242 + (let ((__tmp92243 |gx[1]#_g92244_|)) (declare (not safe)) - (cons 'name __tmp168464))) - (__tmp168455 - (let ((__tmp168460 - (let ((__tmp168461 |gx[1]#_g168462_|)) + (cons 'name __tmp92243))) + (__tmp92234 + (let ((__tmp92239 + (let ((__tmp92240 |gx[1]#_g92241_|)) (declare (not safe)) - (cons 'phi __tmp168461))) - (__tmp168456 - (let ((__tmp168457 - (let ((__tmp168458 - |gx[1]#_g168459_|)) + (cons 'phi __tmp92240))) + (__tmp92235 + (let ((__tmp92236 + (let ((__tmp92237 |gx[1]#_g92238_|)) (declare (not safe)) - (cons 'weak? __tmp168458)))) + (cons 'weak? __tmp92237)))) (declare (not safe)) - (cons __tmp168457 '())))) + (cons __tmp92236 '())))) (declare (not safe)) - (cons __tmp168460 __tmp168456)))) + (cons __tmp92239 __tmp92235)))) (declare (not safe)) - (cons __tmp168463 __tmp168455)))) + (cons __tmp92242 __tmp92234)))) (declare (not safe)) - (cons __tmp168466 __tmp168454)))) + (cons __tmp92245 __tmp92233)))) (declare (not safe)) (##unchecked-structure-set! - __obj168385 - __tmp168453 + __obj92164 + __tmp92232 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168469 - (let ((__tmp168482 - (let ((__tmp168483 |gx[1]#_g168484_|)) + (let ((__tmp92248 + (let ((__tmp92261 + (let ((__tmp92262 |gx[1]#_g92263_|)) (declare (not safe)) - (cons 'source __tmp168483))) - (__tmp168470 - (let ((__tmp168479 - (let ((__tmp168480 |gx[1]#_g168481_|)) + (cons 'source __tmp92262))) + (__tmp92249 + (let ((__tmp92258 + (let ((__tmp92259 |gx[1]#_g92260_|)) (declare (not safe)) - (cons 'name __tmp168480))) - (__tmp168471 - (let ((__tmp168476 - (let ((__tmp168477 |gx[1]#_g168478_|)) + (cons 'name __tmp92259))) + (__tmp92250 + (let ((__tmp92255 + (let ((__tmp92256 |gx[1]#_g92257_|)) (declare (not safe)) - (cons 'phi __tmp168477))) - (__tmp168472 - (let ((__tmp168473 - (let ((__tmp168474 - |gx[1]#_g168475_|)) + (cons 'phi __tmp92256))) + (__tmp92251 + (let ((__tmp92252 + (let ((__tmp92253 |gx[1]#_g92254_|)) (declare (not safe)) - (cons 'weak? __tmp168474)))) + (cons 'weak? __tmp92253)))) (declare (not safe)) - (cons __tmp168473 '())))) + (cons __tmp92252 '())))) (declare (not safe)) - (cons __tmp168476 __tmp168472)))) + (cons __tmp92255 __tmp92251)))) (declare (not safe)) - (cons __tmp168479 __tmp168471)))) + (cons __tmp92258 __tmp92250)))) (declare (not safe)) - (cons __tmp168482 __tmp168470)))) + (cons __tmp92261 __tmp92249)))) (declare (not safe)) (##unchecked-structure-set! - __obj168385 - __tmp168469 + __obj92164 + __tmp92248 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168485 - (let ((__tmp168498 - (let ((__tmp168499 |gx[1]#_g168500_|)) + (let ((__tmp92264 + (let ((__tmp92277 + (let ((__tmp92278 |gx[1]#_g92279_|)) (declare (not safe)) - (cons 'source __tmp168499))) - (__tmp168486 - (let ((__tmp168495 - (let ((__tmp168496 |gx[1]#_g168497_|)) + (cons 'source __tmp92278))) + (__tmp92265 + (let ((__tmp92274 + (let ((__tmp92275 |gx[1]#_g92276_|)) (declare (not safe)) - (cons 'name __tmp168496))) - (__tmp168487 - (let ((__tmp168492 - (let ((__tmp168493 |gx[1]#_g168494_|)) + (cons 'name __tmp92275))) + (__tmp92266 + (let ((__tmp92271 + (let ((__tmp92272 |gx[1]#_g92273_|)) (declare (not safe)) - (cons 'phi __tmp168493))) - (__tmp168488 - (let ((__tmp168489 - (let ((__tmp168490 - |gx[1]#_g168491_|)) + (cons 'phi __tmp92272))) + (__tmp92267 + (let ((__tmp92268 + (let ((__tmp92269 |gx[1]#_g92270_|)) (declare (not safe)) - (cons 'weak? __tmp168490)))) + (cons 'weak? __tmp92269)))) (declare (not safe)) - (cons __tmp168489 '())))) + (cons __tmp92268 '())))) (declare (not safe)) - (cons __tmp168492 __tmp168488)))) + (cons __tmp92271 __tmp92267)))) (declare (not safe)) - (cons __tmp168495 __tmp168487)))) + (cons __tmp92274 __tmp92266)))) (declare (not safe)) - (cons __tmp168498 __tmp168486)))) + (cons __tmp92277 __tmp92265)))) (declare (not safe)) (##unchecked-structure-set! - __obj168385 - __tmp168485 + __obj92164 + __tmp92264 '15 gerbil/core$$#class-type-info::t '#f)) - __obj168385)) + __obj92164)) (define |gx[:0:]#module-export| - (let ((__obj168386 + (let ((__obj92165 (let () (declare (not safe)) (##structure @@ -1119,7 +1115,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168386 + __obj92165 'gx#module-export::t '1 gerbil/core$$#class-type-info::t @@ -1127,7 +1123,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168386 + __obj92165 'module-export '2 gerbil/core$$#class-type-info::t @@ -1135,7 +1131,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168386 + __obj92165 '(context key phi name weak?) '4 gerbil/core$$#class-type-info::t @@ -1143,7 +1139,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168386 + __obj92165 '() '3 gerbil/core$$#class-type-info::t @@ -1151,7 +1147,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168386 + __obj92165 '#t '5 gerbil/core$$#class-type-info::t @@ -1159,7 +1155,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168386 + __obj92165 '#t '6 gerbil/core$$#class-type-info::t @@ -1167,7 +1163,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168386 + __obj92165 '#f '7 gerbil/core$$#class-type-info::t @@ -1175,218 +1171,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168386 + __obj92165 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168501 |gx[1]#_g168502_|)) + (let ((__tmp92280 |gx[1]#_g92281_|)) (declare (not safe)) (##unchecked-structure-set! - __obj168386 - __tmp168501 + __obj92165 + __tmp92280 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168503 |gx[1]#_g168504_|)) + (let ((__tmp92282 |gx[1]#_g92283_|)) (declare (not safe)) (##unchecked-structure-set! - __obj168386 - __tmp168503 + __obj92165 + __tmp92282 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168505 |gx[1]#_g168506_|)) + (let ((__tmp92284 |gx[1]#_g92285_|)) (declare (not safe)) (##unchecked-structure-set! - __obj168386 - __tmp168505 + __obj92165 + __tmp92284 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168507 - (let ((__tmp168524 - (let ((__tmp168525 |gx[1]#_g168526_|)) + (let ((__tmp92286 + (let ((__tmp92303 + (let ((__tmp92304 |gx[1]#_g92305_|)) (declare (not safe)) - (cons 'context __tmp168525))) - (__tmp168508 - (let ((__tmp168521 - (let ((__tmp168522 |gx[1]#_g168523_|)) + (cons 'context __tmp92304))) + (__tmp92287 + (let ((__tmp92300 + (let ((__tmp92301 |gx[1]#_g92302_|)) (declare (not safe)) - (cons 'key __tmp168522))) - (__tmp168509 - (let ((__tmp168518 - (let ((__tmp168519 |gx[1]#_g168520_|)) + (cons 'key __tmp92301))) + (__tmp92288 + (let ((__tmp92297 + (let ((__tmp92298 |gx[1]#_g92299_|)) (declare (not safe)) - (cons 'phi __tmp168519))) - (__tmp168510 - (let ((__tmp168515 - (let ((__tmp168516 - |gx[1]#_g168517_|)) + (cons 'phi __tmp92298))) + (__tmp92289 + (let ((__tmp92294 + (let ((__tmp92295 |gx[1]#_g92296_|)) (declare (not safe)) - (cons 'name __tmp168516))) - (__tmp168511 - (let ((__tmp168512 - (let ((__tmp168513 - |gx[1]#_g168514_|)) + (cons 'name __tmp92295))) + (__tmp92290 + (let ((__tmp92291 + (let ((__tmp92292 + |gx[1]#_g92293_|)) (declare (not safe)) - (cons 'weak? - __tmp168513)))) + (cons 'weak? __tmp92292)))) (declare (not safe)) - (cons __tmp168512 '())))) + (cons __tmp92291 '())))) (declare (not safe)) - (cons __tmp168515 __tmp168511)))) + (cons __tmp92294 __tmp92290)))) (declare (not safe)) - (cons __tmp168518 __tmp168510)))) + (cons __tmp92297 __tmp92289)))) (declare (not safe)) - (cons __tmp168521 __tmp168509)))) + (cons __tmp92300 __tmp92288)))) (declare (not safe)) - (cons __tmp168524 __tmp168508)))) + (cons __tmp92303 __tmp92287)))) (declare (not safe)) (##unchecked-structure-set! - __obj168386 - __tmp168507 + __obj92165 + __tmp92286 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168527 - (let ((__tmp168544 - (let ((__tmp168545 |gx[1]#_g168546_|)) + (let ((__tmp92306 + (let ((__tmp92323 + (let ((__tmp92324 |gx[1]#_g92325_|)) (declare (not safe)) - (cons 'context __tmp168545))) - (__tmp168528 - (let ((__tmp168541 - (let ((__tmp168542 |gx[1]#_g168543_|)) + (cons 'context __tmp92324))) + (__tmp92307 + (let ((__tmp92320 + (let ((__tmp92321 |gx[1]#_g92322_|)) (declare (not safe)) - (cons 'key __tmp168542))) - (__tmp168529 - (let ((__tmp168538 - (let ((__tmp168539 |gx[1]#_g168540_|)) + (cons 'key __tmp92321))) + (__tmp92308 + (let ((__tmp92317 + (let ((__tmp92318 |gx[1]#_g92319_|)) (declare (not safe)) - (cons 'phi __tmp168539))) - (__tmp168530 - (let ((__tmp168535 - (let ((__tmp168536 - |gx[1]#_g168537_|)) + (cons 'phi __tmp92318))) + (__tmp92309 + (let ((__tmp92314 + (let ((__tmp92315 |gx[1]#_g92316_|)) (declare (not safe)) - (cons 'name __tmp168536))) - (__tmp168531 - (let ((__tmp168532 - (let ((__tmp168533 - |gx[1]#_g168534_|)) + (cons 'name __tmp92315))) + (__tmp92310 + (let ((__tmp92311 + (let ((__tmp92312 + |gx[1]#_g92313_|)) (declare (not safe)) - (cons 'weak? - __tmp168533)))) + (cons 'weak? __tmp92312)))) (declare (not safe)) - (cons __tmp168532 '())))) + (cons __tmp92311 '())))) (declare (not safe)) - (cons __tmp168535 __tmp168531)))) + (cons __tmp92314 __tmp92310)))) (declare (not safe)) - (cons __tmp168538 __tmp168530)))) + (cons __tmp92317 __tmp92309)))) (declare (not safe)) - (cons __tmp168541 __tmp168529)))) + (cons __tmp92320 __tmp92308)))) (declare (not safe)) - (cons __tmp168544 __tmp168528)))) + (cons __tmp92323 __tmp92307)))) (declare (not safe)) (##unchecked-structure-set! - __obj168386 - __tmp168527 + __obj92165 + __tmp92306 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168547 - (let ((__tmp168564 - (let ((__tmp168565 |gx[1]#_g168566_|)) + (let ((__tmp92326 + (let ((__tmp92343 + (let ((__tmp92344 |gx[1]#_g92345_|)) (declare (not safe)) - (cons 'context __tmp168565))) - (__tmp168548 - (let ((__tmp168561 - (let ((__tmp168562 |gx[1]#_g168563_|)) + (cons 'context __tmp92344))) + (__tmp92327 + (let ((__tmp92340 + (let ((__tmp92341 |gx[1]#_g92342_|)) (declare (not safe)) - (cons 'key __tmp168562))) - (__tmp168549 - (let ((__tmp168558 - (let ((__tmp168559 |gx[1]#_g168560_|)) + (cons 'key __tmp92341))) + (__tmp92328 + (let ((__tmp92337 + (let ((__tmp92338 |gx[1]#_g92339_|)) (declare (not safe)) - (cons 'phi __tmp168559))) - (__tmp168550 - (let ((__tmp168555 - (let ((__tmp168556 - |gx[1]#_g168557_|)) + (cons 'phi __tmp92338))) + (__tmp92329 + (let ((__tmp92334 + (let ((__tmp92335 |gx[1]#_g92336_|)) (declare (not safe)) - (cons 'name __tmp168556))) - (__tmp168551 - (let ((__tmp168552 - (let ((__tmp168553 - |gx[1]#_g168554_|)) + (cons 'name __tmp92335))) + (__tmp92330 + (let ((__tmp92331 + (let ((__tmp92332 + |gx[1]#_g92333_|)) (declare (not safe)) - (cons 'weak? - __tmp168553)))) + (cons 'weak? __tmp92332)))) (declare (not safe)) - (cons __tmp168552 '())))) + (cons __tmp92331 '())))) (declare (not safe)) - (cons __tmp168555 __tmp168551)))) + (cons __tmp92334 __tmp92330)))) (declare (not safe)) - (cons __tmp168558 __tmp168550)))) + (cons __tmp92337 __tmp92329)))) (declare (not safe)) - (cons __tmp168561 __tmp168549)))) + (cons __tmp92340 __tmp92328)))) (declare (not safe)) - (cons __tmp168564 __tmp168548)))) + (cons __tmp92343 __tmp92327)))) (declare (not safe)) (##unchecked-structure-set! - __obj168386 - __tmp168547 + __obj92165 + __tmp92326 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168567 - (let ((__tmp168584 - (let ((__tmp168585 |gx[1]#_g168586_|)) + (let ((__tmp92346 + (let ((__tmp92363 + (let ((__tmp92364 |gx[1]#_g92365_|)) (declare (not safe)) - (cons 'context __tmp168585))) - (__tmp168568 - (let ((__tmp168581 - (let ((__tmp168582 |gx[1]#_g168583_|)) + (cons 'context __tmp92364))) + (__tmp92347 + (let ((__tmp92360 + (let ((__tmp92361 |gx[1]#_g92362_|)) (declare (not safe)) - (cons 'key __tmp168582))) - (__tmp168569 - (let ((__tmp168578 - (let ((__tmp168579 |gx[1]#_g168580_|)) + (cons 'key __tmp92361))) + (__tmp92348 + (let ((__tmp92357 + (let ((__tmp92358 |gx[1]#_g92359_|)) (declare (not safe)) - (cons 'phi __tmp168579))) - (__tmp168570 - (let ((__tmp168575 - (let ((__tmp168576 - |gx[1]#_g168577_|)) + (cons 'phi __tmp92358))) + (__tmp92349 + (let ((__tmp92354 + (let ((__tmp92355 |gx[1]#_g92356_|)) (declare (not safe)) - (cons 'name __tmp168576))) - (__tmp168571 - (let ((__tmp168572 - (let ((__tmp168573 - |gx[1]#_g168574_|)) + (cons 'name __tmp92355))) + (__tmp92350 + (let ((__tmp92351 + (let ((__tmp92352 + |gx[1]#_g92353_|)) (declare (not safe)) - (cons 'weak? - __tmp168573)))) + (cons 'weak? __tmp92352)))) (declare (not safe)) - (cons __tmp168572 '())))) + (cons __tmp92351 '())))) (declare (not safe)) - (cons __tmp168575 __tmp168571)))) + (cons __tmp92354 __tmp92350)))) (declare (not safe)) - (cons __tmp168578 __tmp168570)))) + (cons __tmp92357 __tmp92349)))) (declare (not safe)) - (cons __tmp168581 __tmp168569)))) + (cons __tmp92360 __tmp92348)))) (declare (not safe)) - (cons __tmp168584 __tmp168568)))) + (cons __tmp92363 __tmp92347)))) (declare (not safe)) (##unchecked-structure-set! - __obj168386 - __tmp168567 + __obj92165 + __tmp92346 '15 gerbil/core$$#class-type-info::t '#f)) - __obj168386)) + __obj92165)) (define |gx[:0:]#import-set| - (let ((__obj168387 + (let ((__obj92166 (let () (declare (not safe)) (##structure @@ -1409,7 +1397,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168387 + __obj92166 'gx#import-set::t '1 gerbil/core$$#class-type-info::t @@ -1417,7 +1405,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168387 + __obj92166 'import-set '2 gerbil/core$$#class-type-info::t @@ -1425,7 +1413,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168387 + __obj92166 '(source phi imports) '4 gerbil/core$$#class-type-info::t @@ -1433,7 +1421,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168387 + __obj92166 '() '3 gerbil/core$$#class-type-info::t @@ -1441,7 +1429,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168387 + __obj92166 '#t '5 gerbil/core$$#class-type-info::t @@ -1449,7 +1437,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168387 + __obj92166 '#t '6 gerbil/core$$#class-type-info::t @@ -1457,7 +1445,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168387 + __obj92166 '#f '7 gerbil/core$$#class-type-info::t @@ -1465,150 +1453,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168387 + __obj92166 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168587 |gx[1]#_g168588_|)) + (let ((__tmp92366 |gx[1]#_g92367_|)) (declare (not safe)) (##unchecked-structure-set! - __obj168387 - __tmp168587 + __obj92166 + __tmp92366 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168589 |gx[1]#_g168590_|)) + (let ((__tmp92368 |gx[1]#_g92369_|)) (declare (not safe)) (##unchecked-structure-set! - __obj168387 - __tmp168589 + __obj92166 + __tmp92368 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168591 |gx[1]#_g168592_|)) + (let ((__tmp92370 |gx[1]#_g92371_|)) (declare (not safe)) (##unchecked-structure-set! - __obj168387 - __tmp168591 + __obj92166 + __tmp92370 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168593 - (let ((__tmp168602 - (let ((__tmp168603 |gx[1]#_g168604_|)) + (let ((__tmp92372 + (let ((__tmp92381 + (let ((__tmp92382 |gx[1]#_g92383_|)) (declare (not safe)) - (cons 'source __tmp168603))) - (__tmp168594 - (let ((__tmp168599 - (let ((__tmp168600 |gx[1]#_g168601_|)) + (cons 'source __tmp92382))) + (__tmp92373 + (let ((__tmp92378 + (let ((__tmp92379 |gx[1]#_g92380_|)) (declare (not safe)) - (cons 'phi __tmp168600))) - (__tmp168595 - (let ((__tmp168596 - (let ((__tmp168597 |gx[1]#_g168598_|)) + (cons 'phi __tmp92379))) + (__tmp92374 + (let ((__tmp92375 + (let ((__tmp92376 |gx[1]#_g92377_|)) (declare (not safe)) - (cons 'imports __tmp168597)))) + (cons 'imports __tmp92376)))) (declare (not safe)) - (cons __tmp168596 '())))) + (cons __tmp92375 '())))) (declare (not safe)) - (cons __tmp168599 __tmp168595)))) + (cons __tmp92378 __tmp92374)))) (declare (not safe)) - (cons __tmp168602 __tmp168594)))) + (cons __tmp92381 __tmp92373)))) (declare (not safe)) (##unchecked-structure-set! - __obj168387 - __tmp168593 + __obj92166 + __tmp92372 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168605 - (let ((__tmp168614 - (let ((__tmp168615 |gx[1]#_g168616_|)) + (let ((__tmp92384 + (let ((__tmp92393 + (let ((__tmp92394 |gx[1]#_g92395_|)) (declare (not safe)) - (cons 'source __tmp168615))) - (__tmp168606 - (let ((__tmp168611 - (let ((__tmp168612 |gx[1]#_g168613_|)) + (cons 'source __tmp92394))) + (__tmp92385 + (let ((__tmp92390 + (let ((__tmp92391 |gx[1]#_g92392_|)) (declare (not safe)) - (cons 'phi __tmp168612))) - (__tmp168607 - (let ((__tmp168608 - (let ((__tmp168609 |gx[1]#_g168610_|)) + (cons 'phi __tmp92391))) + (__tmp92386 + (let ((__tmp92387 + (let ((__tmp92388 |gx[1]#_g92389_|)) (declare (not safe)) - (cons 'imports __tmp168609)))) + (cons 'imports __tmp92388)))) (declare (not safe)) - (cons __tmp168608 '())))) + (cons __tmp92387 '())))) (declare (not safe)) - (cons __tmp168611 __tmp168607)))) + (cons __tmp92390 __tmp92386)))) (declare (not safe)) - (cons __tmp168614 __tmp168606)))) + (cons __tmp92393 __tmp92385)))) (declare (not safe)) (##unchecked-structure-set! - __obj168387 - __tmp168605 + __obj92166 + __tmp92384 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168617 - (let ((__tmp168626 - (let ((__tmp168627 |gx[1]#_g168628_|)) + (let ((__tmp92396 + (let ((__tmp92405 + (let ((__tmp92406 |gx[1]#_g92407_|)) (declare (not safe)) - (cons 'source __tmp168627))) - (__tmp168618 - (let ((__tmp168623 - (let ((__tmp168624 |gx[1]#_g168625_|)) + (cons 'source __tmp92406))) + (__tmp92397 + (let ((__tmp92402 + (let ((__tmp92403 |gx[1]#_g92404_|)) (declare (not safe)) - (cons 'phi __tmp168624))) - (__tmp168619 - (let ((__tmp168620 - (let ((__tmp168621 |gx[1]#_g168622_|)) + (cons 'phi __tmp92403))) + (__tmp92398 + (let ((__tmp92399 + (let ((__tmp92400 |gx[1]#_g92401_|)) (declare (not safe)) - (cons 'imports __tmp168621)))) + (cons 'imports __tmp92400)))) (declare (not safe)) - (cons __tmp168620 '())))) + (cons __tmp92399 '())))) (declare (not safe)) - (cons __tmp168623 __tmp168619)))) + (cons __tmp92402 __tmp92398)))) (declare (not safe)) - (cons __tmp168626 __tmp168618)))) + (cons __tmp92405 __tmp92397)))) (declare (not safe)) (##unchecked-structure-set! - __obj168387 - __tmp168617 + __obj92166 + __tmp92396 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168629 - (let ((__tmp168638 - (let ((__tmp168639 |gx[1]#_g168640_|)) + (let ((__tmp92408 + (let ((__tmp92417 + (let ((__tmp92418 |gx[1]#_g92419_|)) (declare (not safe)) - (cons 'source __tmp168639))) - (__tmp168630 - (let ((__tmp168635 - (let ((__tmp168636 |gx[1]#_g168637_|)) + (cons 'source __tmp92418))) + (__tmp92409 + (let ((__tmp92414 + (let ((__tmp92415 |gx[1]#_g92416_|)) (declare (not safe)) - (cons 'phi __tmp168636))) - (__tmp168631 - (let ((__tmp168632 - (let ((__tmp168633 |gx[1]#_g168634_|)) + (cons 'phi __tmp92415))) + (__tmp92410 + (let ((__tmp92411 + (let ((__tmp92412 |gx[1]#_g92413_|)) (declare (not safe)) - (cons 'imports __tmp168633)))) + (cons 'imports __tmp92412)))) (declare (not safe)) - (cons __tmp168632 '())))) + (cons __tmp92411 '())))) (declare (not safe)) - (cons __tmp168635 __tmp168631)))) + (cons __tmp92414 __tmp92410)))) (declare (not safe)) - (cons __tmp168638 __tmp168630)))) + (cons __tmp92417 __tmp92409)))) (declare (not safe)) (##unchecked-structure-set! - __obj168387 - __tmp168629 + __obj92166 + __tmp92408 '15 gerbil/core$$#class-type-info::t '#f)) - __obj168387)) + __obj92166)) (define |gx[:0:]#export-set| - (let ((__obj168388 + (let ((__obj92167 (let () (declare (not safe)) (##structure @@ -1631,7 +1619,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168388 + __obj92167 'gx#export-set::t '1 gerbil/core$$#class-type-info::t @@ -1639,7 +1627,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168388 + __obj92167 'export-set '2 gerbil/core$$#class-type-info::t @@ -1647,7 +1635,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168388 + __obj92167 '(source phi exports) '4 gerbil/core$$#class-type-info::t @@ -1655,7 +1643,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168388 + __obj92167 '() '3 gerbil/core$$#class-type-info::t @@ -1663,7 +1651,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168388 + __obj92167 '#t '5 gerbil/core$$#class-type-info::t @@ -1671,7 +1659,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168388 + __obj92167 '#t '6 gerbil/core$$#class-type-info::t @@ -1679,7 +1667,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168388 + __obj92167 '#f '7 gerbil/core$$#class-type-info::t @@ -1687,150 +1675,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168388 + __obj92167 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168641 |gx[1]#_g168642_|)) + (let ((__tmp92420 |gx[1]#_g92421_|)) (declare (not safe)) (##unchecked-structure-set! - __obj168388 - __tmp168641 + __obj92167 + __tmp92420 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168643 |gx[1]#_g168644_|)) + (let ((__tmp92422 |gx[1]#_g92423_|)) (declare (not safe)) (##unchecked-structure-set! - __obj168388 - __tmp168643 + __obj92167 + __tmp92422 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168645 |gx[1]#_g168646_|)) + (let ((__tmp92424 |gx[1]#_g92425_|)) (declare (not safe)) (##unchecked-structure-set! - __obj168388 - __tmp168645 + __obj92167 + __tmp92424 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168647 - (let ((__tmp168656 - (let ((__tmp168657 |gx[1]#_g168658_|)) + (let ((__tmp92426 + (let ((__tmp92435 + (let ((__tmp92436 |gx[1]#_g92437_|)) (declare (not safe)) - (cons 'source __tmp168657))) - (__tmp168648 - (let ((__tmp168653 - (let ((__tmp168654 |gx[1]#_g168655_|)) + (cons 'source __tmp92436))) + (__tmp92427 + (let ((__tmp92432 + (let ((__tmp92433 |gx[1]#_g92434_|)) (declare (not safe)) - (cons 'phi __tmp168654))) - (__tmp168649 - (let ((__tmp168650 - (let ((__tmp168651 |gx[1]#_g168652_|)) + (cons 'phi __tmp92433))) + (__tmp92428 + (let ((__tmp92429 + (let ((__tmp92430 |gx[1]#_g92431_|)) (declare (not safe)) - (cons 'exports __tmp168651)))) + (cons 'exports __tmp92430)))) (declare (not safe)) - (cons __tmp168650 '())))) + (cons __tmp92429 '())))) (declare (not safe)) - (cons __tmp168653 __tmp168649)))) + (cons __tmp92432 __tmp92428)))) (declare (not safe)) - (cons __tmp168656 __tmp168648)))) + (cons __tmp92435 __tmp92427)))) (declare (not safe)) (##unchecked-structure-set! - __obj168388 - __tmp168647 + __obj92167 + __tmp92426 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168659 - (let ((__tmp168668 - (let ((__tmp168669 |gx[1]#_g168670_|)) + (let ((__tmp92438 + (let ((__tmp92447 + (let ((__tmp92448 |gx[1]#_g92449_|)) (declare (not safe)) - (cons 'source __tmp168669))) - (__tmp168660 - (let ((__tmp168665 - (let ((__tmp168666 |gx[1]#_g168667_|)) + (cons 'source __tmp92448))) + (__tmp92439 + (let ((__tmp92444 + (let ((__tmp92445 |gx[1]#_g92446_|)) (declare (not safe)) - (cons 'phi __tmp168666))) - (__tmp168661 - (let ((__tmp168662 - (let ((__tmp168663 |gx[1]#_g168664_|)) + (cons 'phi __tmp92445))) + (__tmp92440 + (let ((__tmp92441 + (let ((__tmp92442 |gx[1]#_g92443_|)) (declare (not safe)) - (cons 'exports __tmp168663)))) + (cons 'exports __tmp92442)))) (declare (not safe)) - (cons __tmp168662 '())))) + (cons __tmp92441 '())))) (declare (not safe)) - (cons __tmp168665 __tmp168661)))) + (cons __tmp92444 __tmp92440)))) (declare (not safe)) - (cons __tmp168668 __tmp168660)))) + (cons __tmp92447 __tmp92439)))) (declare (not safe)) (##unchecked-structure-set! - __obj168388 - __tmp168659 + __obj92167 + __tmp92438 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168671 - (let ((__tmp168680 - (let ((__tmp168681 |gx[1]#_g168682_|)) + (let ((__tmp92450 + (let ((__tmp92459 + (let ((__tmp92460 |gx[1]#_g92461_|)) (declare (not safe)) - (cons 'source __tmp168681))) - (__tmp168672 - (let ((__tmp168677 - (let ((__tmp168678 |gx[1]#_g168679_|)) + (cons 'source __tmp92460))) + (__tmp92451 + (let ((__tmp92456 + (let ((__tmp92457 |gx[1]#_g92458_|)) (declare (not safe)) - (cons 'phi __tmp168678))) - (__tmp168673 - (let ((__tmp168674 - (let ((__tmp168675 |gx[1]#_g168676_|)) + (cons 'phi __tmp92457))) + (__tmp92452 + (let ((__tmp92453 + (let ((__tmp92454 |gx[1]#_g92455_|)) (declare (not safe)) - (cons 'exports __tmp168675)))) + (cons 'exports __tmp92454)))) (declare (not safe)) - (cons __tmp168674 '())))) + (cons __tmp92453 '())))) (declare (not safe)) - (cons __tmp168677 __tmp168673)))) + (cons __tmp92456 __tmp92452)))) (declare (not safe)) - (cons __tmp168680 __tmp168672)))) + (cons __tmp92459 __tmp92451)))) (declare (not safe)) (##unchecked-structure-set! - __obj168388 - __tmp168671 + __obj92167 + __tmp92450 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168683 - (let ((__tmp168692 - (let ((__tmp168693 |gx[1]#_g168694_|)) + (let ((__tmp92462 + (let ((__tmp92471 + (let ((__tmp92472 |gx[1]#_g92473_|)) (declare (not safe)) - (cons 'source __tmp168693))) - (__tmp168684 - (let ((__tmp168689 - (let ((__tmp168690 |gx[1]#_g168691_|)) + (cons 'source __tmp92472))) + (__tmp92463 + (let ((__tmp92468 + (let ((__tmp92469 |gx[1]#_g92470_|)) (declare (not safe)) - (cons 'phi __tmp168690))) - (__tmp168685 - (let ((__tmp168686 - (let ((__tmp168687 |gx[1]#_g168688_|)) + (cons 'phi __tmp92469))) + (__tmp92464 + (let ((__tmp92465 + (let ((__tmp92466 |gx[1]#_g92467_|)) (declare (not safe)) - (cons 'exports __tmp168687)))) + (cons 'exports __tmp92466)))) (declare (not safe)) - (cons __tmp168686 '())))) + (cons __tmp92465 '())))) (declare (not safe)) - (cons __tmp168689 __tmp168685)))) + (cons __tmp92468 __tmp92464)))) (declare (not safe)) - (cons __tmp168692 __tmp168684)))) + (cons __tmp92471 __tmp92463)))) (declare (not safe)) (##unchecked-structure-set! - __obj168388 - __tmp168683 + __obj92167 + __tmp92462 '15 gerbil/core$$#class-type-info::t '#f)) - __obj168388)) + __obj92167)) (define |gx[:0:]#import-expander| - (let ((__obj168389 + (let ((__obj92168 (let () (declare (not safe)) (##structure @@ -1853,7 +1841,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168389 + __obj92168 'gx#import-expander::t '1 gerbil/core$$#class-type-info::t @@ -1861,7 +1849,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168389 + __obj92168 'import-expander '2 gerbil/core$$#class-type-info::t @@ -1869,26 +1857,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168389 + __obj92168 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168695 - (let ((__tmp168696 |gx[1]#_g168697_|)) + (let ((__tmp92474 + (let ((__tmp92475 |gx[1]#_g92476_|)) (declare (not safe)) - (cons __tmp168696 '())))) + (cons __tmp92475 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj168389 - __tmp168695 + __obj92168 + __tmp92474 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj168389 + __obj92168 '#f '5 gerbil/core$$#class-type-info::t @@ -1896,7 +1884,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168389 + __obj92168 '#f '6 gerbil/core$$#class-type-info::t @@ -1904,7 +1892,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168389 + __obj92168 '#f '7 gerbil/core$$#class-type-info::t @@ -1912,150 +1900,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168389 + __obj92168 ':init! '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168698 |gx[1]#_g168699_|)) + (let ((__tmp92477 |gx[1]#_g92478_|)) (declare (not safe)) (##unchecked-structure-set! - __obj168389 - __tmp168698 + __obj92168 + __tmp92477 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168700 |gx[1]#_g168701_|)) + (let ((__tmp92479 |gx[1]#_g92480_|)) (declare (not safe)) (##unchecked-structure-set! - __obj168389 - __tmp168700 + __obj92168 + __tmp92479 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168702 |gx[1]#_g168703_|)) + (let ((__tmp92481 |gx[1]#_g92482_|)) (declare (not safe)) (##unchecked-structure-set! - __obj168389 - __tmp168702 + __obj92168 + __tmp92481 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168704 - (let ((__tmp168713 - (let ((__tmp168714 |gx[1]#_g168715_|)) + (let ((__tmp92483 + (let ((__tmp92492 + (let ((__tmp92493 |gx[1]#_g92494_|)) (declare (not safe)) - (cons 'context __tmp168714))) - (__tmp168705 - (let ((__tmp168710 - (let ((__tmp168711 |gx[1]#_g168712_|)) + (cons 'context __tmp92493))) + (__tmp92484 + (let ((__tmp92489 + (let ((__tmp92490 |gx[1]#_g92491_|)) (declare (not safe)) - (cons 'phi __tmp168711))) - (__tmp168706 - (let ((__tmp168707 - (let ((__tmp168708 |gx[1]#_g168709_|)) + (cons 'phi __tmp92490))) + (__tmp92485 + (let ((__tmp92486 + (let ((__tmp92487 |gx[1]#_g92488_|)) (declare (not safe)) - (cons 'e __tmp168708)))) + (cons 'e __tmp92487)))) (declare (not safe)) - (cons __tmp168707 '())))) + (cons __tmp92486 '())))) (declare (not safe)) - (cons __tmp168710 __tmp168706)))) + (cons __tmp92489 __tmp92485)))) (declare (not safe)) - (cons __tmp168713 __tmp168705)))) + (cons __tmp92492 __tmp92484)))) (declare (not safe)) (##unchecked-structure-set! - __obj168389 - __tmp168704 + __obj92168 + __tmp92483 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168716 - (let ((__tmp168725 - (let ((__tmp168726 |gx[1]#_g168727_|)) + (let ((__tmp92495 + (let ((__tmp92504 + (let ((__tmp92505 |gx[1]#_g92506_|)) (declare (not safe)) - (cons 'context __tmp168726))) - (__tmp168717 - (let ((__tmp168722 - (let ((__tmp168723 |gx[1]#_g168724_|)) + (cons 'context __tmp92505))) + (__tmp92496 + (let ((__tmp92501 + (let ((__tmp92502 |gx[1]#_g92503_|)) (declare (not safe)) - (cons 'phi __tmp168723))) - (__tmp168718 - (let ((__tmp168719 - (let ((__tmp168720 |gx[1]#_g168721_|)) + (cons 'phi __tmp92502))) + (__tmp92497 + (let ((__tmp92498 + (let ((__tmp92499 |gx[1]#_g92500_|)) (declare (not safe)) - (cons 'e __tmp168720)))) + (cons 'e __tmp92499)))) (declare (not safe)) - (cons __tmp168719 '())))) + (cons __tmp92498 '())))) (declare (not safe)) - (cons __tmp168722 __tmp168718)))) + (cons __tmp92501 __tmp92497)))) (declare (not safe)) - (cons __tmp168725 __tmp168717)))) + (cons __tmp92504 __tmp92496)))) (declare (not safe)) (##unchecked-structure-set! - __obj168389 - __tmp168716 + __obj92168 + __tmp92495 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168728 - (let ((__tmp168737 - (let ((__tmp168738 |gx[1]#_g168739_|)) + (let ((__tmp92507 + (let ((__tmp92516 + (let ((__tmp92517 |gx[1]#_g92518_|)) (declare (not safe)) - (cons 'context __tmp168738))) - (__tmp168729 - (let ((__tmp168734 - (let ((__tmp168735 |gx[1]#_g168736_|)) + (cons 'context __tmp92517))) + (__tmp92508 + (let ((__tmp92513 + (let ((__tmp92514 |gx[1]#_g92515_|)) (declare (not safe)) - (cons 'phi __tmp168735))) - (__tmp168730 - (let ((__tmp168731 - (let ((__tmp168732 |gx[1]#_g168733_|)) + (cons 'phi __tmp92514))) + (__tmp92509 + (let ((__tmp92510 + (let ((__tmp92511 |gx[1]#_g92512_|)) (declare (not safe)) - (cons 'e __tmp168732)))) + (cons 'e __tmp92511)))) (declare (not safe)) - (cons __tmp168731 '())))) + (cons __tmp92510 '())))) (declare (not safe)) - (cons __tmp168734 __tmp168730)))) + (cons __tmp92513 __tmp92509)))) (declare (not safe)) - (cons __tmp168737 __tmp168729)))) + (cons __tmp92516 __tmp92508)))) (declare (not safe)) (##unchecked-structure-set! - __obj168389 - __tmp168728 + __obj92168 + __tmp92507 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168740 - (let ((__tmp168749 - (let ((__tmp168750 |gx[1]#_g168751_|)) + (let ((__tmp92519 + (let ((__tmp92528 + (let ((__tmp92529 |gx[1]#_g92530_|)) (declare (not safe)) - (cons 'context __tmp168750))) - (__tmp168741 - (let ((__tmp168746 - (let ((__tmp168747 |gx[1]#_g168748_|)) + (cons 'context __tmp92529))) + (__tmp92520 + (let ((__tmp92525 + (let ((__tmp92526 |gx[1]#_g92527_|)) (declare (not safe)) - (cons 'phi __tmp168747))) - (__tmp168742 - (let ((__tmp168743 - (let ((__tmp168744 |gx[1]#_g168745_|)) + (cons 'phi __tmp92526))) + (__tmp92521 + (let ((__tmp92522 + (let ((__tmp92523 |gx[1]#_g92524_|)) (declare (not safe)) - (cons 'e __tmp168744)))) + (cons 'e __tmp92523)))) (declare (not safe)) - (cons __tmp168743 '())))) + (cons __tmp92522 '())))) (declare (not safe)) - (cons __tmp168746 __tmp168742)))) + (cons __tmp92525 __tmp92521)))) (declare (not safe)) - (cons __tmp168749 __tmp168741)))) + (cons __tmp92528 __tmp92520)))) (declare (not safe)) (##unchecked-structure-set! - __obj168389 - __tmp168740 + __obj92168 + __tmp92519 '15 gerbil/core$$#class-type-info::t '#f)) - __obj168389)) + __obj92168)) (define |gx[:0:]#export-expander| - (let ((__obj168390 + (let ((__obj92169 (let () (declare (not safe)) (##structure @@ -2078,7 +2066,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168390 + __obj92169 'gx#export-expander::t '1 gerbil/core$$#class-type-info::t @@ -2086,7 +2074,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168390 + __obj92169 'export-expander '2 gerbil/core$$#class-type-info::t @@ -2094,26 +2082,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168390 + __obj92169 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168752 - (let ((__tmp168753 |gx[1]#_g168697_|)) + (let ((__tmp92531 + (let ((__tmp92532 |gx[1]#_g92476_|)) (declare (not safe)) - (cons __tmp168753 '())))) + (cons __tmp92532 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj168390 - __tmp168752 + __obj92169 + __tmp92531 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj168390 + __obj92169 '#f '5 gerbil/core$$#class-type-info::t @@ -2121,7 +2109,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168390 + __obj92169 '#f '6 gerbil/core$$#class-type-info::t @@ -2129,7 +2117,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168390 + __obj92169 '#f '7 gerbil/core$$#class-type-info::t @@ -2137,150 +2125,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168390 + __obj92169 ':init! '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168754 |gx[1]#_g168755_|)) + (let ((__tmp92533 |gx[1]#_g92534_|)) (declare (not safe)) (##unchecked-structure-set! - __obj168390 - __tmp168754 + __obj92169 + __tmp92533 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168756 |gx[1]#_g168757_|)) + (let ((__tmp92535 |gx[1]#_g92536_|)) (declare (not safe)) (##unchecked-structure-set! - __obj168390 - __tmp168756 + __obj92169 + __tmp92535 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168758 |gx[1]#_g168759_|)) + (let ((__tmp92537 |gx[1]#_g92538_|)) (declare (not safe)) (##unchecked-structure-set! - __obj168390 - __tmp168758 + __obj92169 + __tmp92537 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168760 - (let ((__tmp168769 - (let ((__tmp168770 |gx[1]#_g168771_|)) + (let ((__tmp92539 + (let ((__tmp92548 + (let ((__tmp92549 |gx[1]#_g92550_|)) (declare (not safe)) - (cons 'context __tmp168770))) - (__tmp168761 - (let ((__tmp168766 - (let ((__tmp168767 |gx[1]#_g168768_|)) + (cons 'context __tmp92549))) + (__tmp92540 + (let ((__tmp92545 + (let ((__tmp92546 |gx[1]#_g92547_|)) (declare (not safe)) - (cons 'phi __tmp168767))) - (__tmp168762 - (let ((__tmp168763 - (let ((__tmp168764 |gx[1]#_g168765_|)) + (cons 'phi __tmp92546))) + (__tmp92541 + (let ((__tmp92542 + (let ((__tmp92543 |gx[1]#_g92544_|)) (declare (not safe)) - (cons 'e __tmp168764)))) + (cons 'e __tmp92543)))) (declare (not safe)) - (cons __tmp168763 '())))) + (cons __tmp92542 '())))) (declare (not safe)) - (cons __tmp168766 __tmp168762)))) + (cons __tmp92545 __tmp92541)))) (declare (not safe)) - (cons __tmp168769 __tmp168761)))) + (cons __tmp92548 __tmp92540)))) (declare (not safe)) (##unchecked-structure-set! - __obj168390 - __tmp168760 + __obj92169 + __tmp92539 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168772 - (let ((__tmp168781 - (let ((__tmp168782 |gx[1]#_g168783_|)) + (let ((__tmp92551 + (let ((__tmp92560 + (let ((__tmp92561 |gx[1]#_g92562_|)) (declare (not safe)) - (cons 'context __tmp168782))) - (__tmp168773 - (let ((__tmp168778 - (let ((__tmp168779 |gx[1]#_g168780_|)) + (cons 'context __tmp92561))) + (__tmp92552 + (let ((__tmp92557 + (let ((__tmp92558 |gx[1]#_g92559_|)) (declare (not safe)) - (cons 'phi __tmp168779))) - (__tmp168774 - (let ((__tmp168775 - (let ((__tmp168776 |gx[1]#_g168777_|)) + (cons 'phi __tmp92558))) + (__tmp92553 + (let ((__tmp92554 + (let ((__tmp92555 |gx[1]#_g92556_|)) (declare (not safe)) - (cons 'e __tmp168776)))) + (cons 'e __tmp92555)))) (declare (not safe)) - (cons __tmp168775 '())))) + (cons __tmp92554 '())))) (declare (not safe)) - (cons __tmp168778 __tmp168774)))) + (cons __tmp92557 __tmp92553)))) (declare (not safe)) - (cons __tmp168781 __tmp168773)))) + (cons __tmp92560 __tmp92552)))) (declare (not safe)) (##unchecked-structure-set! - __obj168390 - __tmp168772 + __obj92169 + __tmp92551 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168784 - (let ((__tmp168793 - (let ((__tmp168794 |gx[1]#_g168795_|)) + (let ((__tmp92563 + (let ((__tmp92572 + (let ((__tmp92573 |gx[1]#_g92574_|)) (declare (not safe)) - (cons 'context __tmp168794))) - (__tmp168785 - (let ((__tmp168790 - (let ((__tmp168791 |gx[1]#_g168792_|)) + (cons 'context __tmp92573))) + (__tmp92564 + (let ((__tmp92569 + (let ((__tmp92570 |gx[1]#_g92571_|)) (declare (not safe)) - (cons 'phi __tmp168791))) - (__tmp168786 - (let ((__tmp168787 - (let ((__tmp168788 |gx[1]#_g168789_|)) + (cons 'phi __tmp92570))) + (__tmp92565 + (let ((__tmp92566 + (let ((__tmp92567 |gx[1]#_g92568_|)) (declare (not safe)) - (cons 'e __tmp168788)))) + (cons 'e __tmp92567)))) (declare (not safe)) - (cons __tmp168787 '())))) + (cons __tmp92566 '())))) (declare (not safe)) - (cons __tmp168790 __tmp168786)))) + (cons __tmp92569 __tmp92565)))) (declare (not safe)) - (cons __tmp168793 __tmp168785)))) + (cons __tmp92572 __tmp92564)))) (declare (not safe)) (##unchecked-structure-set! - __obj168390 - __tmp168784 + __obj92169 + __tmp92563 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168796 - (let ((__tmp168805 - (let ((__tmp168806 |gx[1]#_g168807_|)) + (let ((__tmp92575 + (let ((__tmp92584 + (let ((__tmp92585 |gx[1]#_g92586_|)) (declare (not safe)) - (cons 'context __tmp168806))) - (__tmp168797 - (let ((__tmp168802 - (let ((__tmp168803 |gx[1]#_g168804_|)) + (cons 'context __tmp92585))) + (__tmp92576 + (let ((__tmp92581 + (let ((__tmp92582 |gx[1]#_g92583_|)) (declare (not safe)) - (cons 'phi __tmp168803))) - (__tmp168798 - (let ((__tmp168799 - (let ((__tmp168800 |gx[1]#_g168801_|)) + (cons 'phi __tmp92582))) + (__tmp92577 + (let ((__tmp92578 + (let ((__tmp92579 |gx[1]#_g92580_|)) (declare (not safe)) - (cons 'e __tmp168800)))) + (cons 'e __tmp92579)))) (declare (not safe)) - (cons __tmp168799 '())))) + (cons __tmp92578 '())))) (declare (not safe)) - (cons __tmp168802 __tmp168798)))) + (cons __tmp92581 __tmp92577)))) (declare (not safe)) - (cons __tmp168805 __tmp168797)))) + (cons __tmp92584 __tmp92576)))) (declare (not safe)) (##unchecked-structure-set! - __obj168390 - __tmp168796 + __obj92169 + __tmp92575 '15 gerbil/core$$#class-type-info::t '#f)) - __obj168390)) + __obj92169)) (define |gx[:0:]#import-export-expander| - (let ((__obj168391 + (let ((__obj92170 (let () (declare (not safe)) (##structure @@ -2303,7 +2291,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168391 + __obj92170 'gx#import-export-expander::t '1 gerbil/core$$#class-type-info::t @@ -2311,7 +2299,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168391 + __obj92170 'import-export-expander '2 gerbil/core$$#class-type-info::t @@ -2319,30 +2307,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168391 + __obj92170 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168808 - (let ((__tmp168812 |gx[1]#_g168813_|) - (__tmp168809 - (let ((__tmp168810 |gx[1]#_g168811_|)) + (let ((__tmp92587 + (let ((__tmp92591 |gx[1]#_g92592_|) + (__tmp92588 + (let ((__tmp92589 |gx[1]#_g92590_|)) (declare (not safe)) - (cons __tmp168810 '())))) + (cons __tmp92589 '())))) (declare (not safe)) - (cons __tmp168812 __tmp168809)))) + (cons __tmp92591 __tmp92588)))) (declare (not safe)) (##unchecked-structure-set! - __obj168391 - __tmp168808 + __obj92170 + __tmp92587 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj168391 + __obj92170 '#f '5 gerbil/core$$#class-type-info::t @@ -2350,7 +2338,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168391 + __obj92170 '#f '6 gerbil/core$$#class-type-info::t @@ -2358,7 +2346,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168391 + __obj92170 '#f '7 gerbil/core$$#class-type-info::t @@ -2366,145 +2354,145 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj168391 + __obj92170 ':init! '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168814 |gx[1]#_g168815_|)) + (let ((__tmp92593 |gx[1]#_g92594_|)) (declare (not safe)) (##unchecked-structure-set! - __obj168391 - __tmp168814 + __obj92170 + __tmp92593 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168816 |gx[1]#_g168817_|)) + (let ((__tmp92595 |gx[1]#_g92596_|)) (declare (not safe)) (##unchecked-structure-set! - __obj168391 - __tmp168816 + __obj92170 + __tmp92595 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168818 |gx[1]#_g168819_|)) + (let ((__tmp92597 |gx[1]#_g92598_|)) (declare (not safe)) (##unchecked-structure-set! - __obj168391 - __tmp168818 + __obj92170 + __tmp92597 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168820 - (let ((__tmp168829 - (let ((__tmp168830 |gx[1]#_g168831_|)) + (let ((__tmp92599 + (let ((__tmp92608 + (let ((__tmp92609 |gx[1]#_g92610_|)) (declare (not safe)) - (cons 'context __tmp168830))) - (__tmp168821 - (let ((__tmp168826 - (let ((__tmp168827 |gx[1]#_g168828_|)) + (cons 'context __tmp92609))) + (__tmp92600 + (let ((__tmp92605 + (let ((__tmp92606 |gx[1]#_g92607_|)) (declare (not safe)) - (cons 'phi __tmp168827))) - (__tmp168822 - (let ((__tmp168823 - (let ((__tmp168824 |gx[1]#_g168825_|)) + (cons 'phi __tmp92606))) + (__tmp92601 + (let ((__tmp92602 + (let ((__tmp92603 |gx[1]#_g92604_|)) (declare (not safe)) - (cons 'e __tmp168824)))) + (cons 'e __tmp92603)))) (declare (not safe)) - (cons __tmp168823 '())))) + (cons __tmp92602 '())))) (declare (not safe)) - (cons __tmp168826 __tmp168822)))) + (cons __tmp92605 __tmp92601)))) (declare (not safe)) - (cons __tmp168829 __tmp168821)))) + (cons __tmp92608 __tmp92600)))) (declare (not safe)) (##unchecked-structure-set! - __obj168391 - __tmp168820 + __obj92170 + __tmp92599 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168832 - (let ((__tmp168841 - (let ((__tmp168842 |gx[1]#_g168843_|)) + (let ((__tmp92611 + (let ((__tmp92620 + (let ((__tmp92621 |gx[1]#_g92622_|)) (declare (not safe)) - (cons 'context __tmp168842))) - (__tmp168833 - (let ((__tmp168838 - (let ((__tmp168839 |gx[1]#_g168840_|)) + (cons 'context __tmp92621))) + (__tmp92612 + (let ((__tmp92617 + (let ((__tmp92618 |gx[1]#_g92619_|)) (declare (not safe)) - (cons 'phi __tmp168839))) - (__tmp168834 - (let ((__tmp168835 - (let ((__tmp168836 |gx[1]#_g168837_|)) + (cons 'phi __tmp92618))) + (__tmp92613 + (let ((__tmp92614 + (let ((__tmp92615 |gx[1]#_g92616_|)) (declare (not safe)) - (cons 'e __tmp168836)))) + (cons 'e __tmp92615)))) (declare (not safe)) - (cons __tmp168835 '())))) + (cons __tmp92614 '())))) (declare (not safe)) - (cons __tmp168838 __tmp168834)))) + (cons __tmp92617 __tmp92613)))) (declare (not safe)) - (cons __tmp168841 __tmp168833)))) + (cons __tmp92620 __tmp92612)))) (declare (not safe)) (##unchecked-structure-set! - __obj168391 - __tmp168832 + __obj92170 + __tmp92611 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168844 - (let ((__tmp168853 - (let ((__tmp168854 |gx[1]#_g168855_|)) + (let ((__tmp92623 + (let ((__tmp92632 + (let ((__tmp92633 |gx[1]#_g92634_|)) (declare (not safe)) - (cons 'context __tmp168854))) - (__tmp168845 - (let ((__tmp168850 - (let ((__tmp168851 |gx[1]#_g168852_|)) + (cons 'context __tmp92633))) + (__tmp92624 + (let ((__tmp92629 + (let ((__tmp92630 |gx[1]#_g92631_|)) (declare (not safe)) - (cons 'phi __tmp168851))) - (__tmp168846 - (let ((__tmp168847 - (let ((__tmp168848 |gx[1]#_g168849_|)) + (cons 'phi __tmp92630))) + (__tmp92625 + (let ((__tmp92626 + (let ((__tmp92627 |gx[1]#_g92628_|)) (declare (not safe)) - (cons 'e __tmp168848)))) + (cons 'e __tmp92627)))) (declare (not safe)) - (cons __tmp168847 '())))) + (cons __tmp92626 '())))) (declare (not safe)) - (cons __tmp168850 __tmp168846)))) + (cons __tmp92629 __tmp92625)))) (declare (not safe)) - (cons __tmp168853 __tmp168845)))) + (cons __tmp92632 __tmp92624)))) (declare (not safe)) (##unchecked-structure-set! - __obj168391 - __tmp168844 + __obj92170 + __tmp92623 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp168856 - (let ((__tmp168865 - (let ((__tmp168866 |gx[1]#_g168867_|)) + (let ((__tmp92635 + (let ((__tmp92644 + (let ((__tmp92645 |gx[1]#_g92646_|)) (declare (not safe)) - (cons 'context __tmp168866))) - (__tmp168857 - (let ((__tmp168862 - (let ((__tmp168863 |gx[1]#_g168864_|)) + (cons 'context __tmp92645))) + (__tmp92636 + (let ((__tmp92641 + (let ((__tmp92642 |gx[1]#_g92643_|)) (declare (not safe)) - (cons 'phi __tmp168863))) - (__tmp168858 - (let ((__tmp168859 - (let ((__tmp168860 |gx[1]#_g168861_|)) + (cons 'phi __tmp92642))) + (__tmp92637 + (let ((__tmp92638 + (let ((__tmp92639 |gx[1]#_g92640_|)) (declare (not safe)) - (cons 'e __tmp168860)))) + (cons 'e __tmp92639)))) (declare (not safe)) - (cons __tmp168859 '())))) + (cons __tmp92638 '())))) (declare (not safe)) - (cons __tmp168862 __tmp168858)))) + (cons __tmp92641 __tmp92637)))) (declare (not safe)) - (cons __tmp168865 __tmp168857)))) + (cons __tmp92644 __tmp92636)))) (declare (not safe)) (##unchecked-structure-set! - __obj168391 - __tmp168856 + __obj92170 + __tmp92635 '15 gerbil/core$$#class-type-info::t '#f)) - __obj168391)))) + __obj92170)))) diff --git a/src/bootstrap/gerbil/expander/root__0.scm b/src/bootstrap/gerbil/expander/root__0.scm index 8a4860868..c19aa9cc2 100644 --- a/src/bootstrap/gerbil/expander/root__0.scm +++ b/src/bootstrap/gerbil/expander/root__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/root::timestamp 1708102803) + (define gerbil/expander/root::timestamp 1708370114) (begin (declare (not safe)) (define gx#*core-syntax-expanders* @@ -262,598 +262,584 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (define gx#root-context:::init!__% - (lambda (_self175632_ _bind?175633_) - (if (##fx< '2 (##structure-length _self175632_)) + (lambda (_self94843_ _bind?94844_) + (if (##fx< '2 (##structure-length _self94843_)) (begin (##unchecked-structure-set! - _self175632_ + _self94843_ 'root '1 - (##structure-type _self175632_) + (##structure-type _self94843_) '#f) (##unchecked-structure-set! - _self175632_ - (make-table 'test: eq?) + _self94843_ + (make-hash-table-eq) '2 - (##structure-type _self175632_) + (##structure-type _self94843_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self175632_ + _self94843_ '2 - (##vector-length _self175632_))) - (if _bind?175633_ + (##vector-length _self94843_))) + (if _bind?94844_ (begin - (let ((__method180251 - (method-ref _self175632_ 'bind-core-syntax-expanders!))) - (if __method180251 - (__method180251 _self175632_) + (let ((__method94894 + (method-ref _self94843_ 'bind-core-syntax-expanders!))) + (if __method94894 + (__method94894 _self94843_) (error '"Missing method" - _self175632_ + _self94843_ 'bind-core-syntax-expanders!))) - (let ((__method180252 - (method-ref _self175632_ 'bind-core-macro-expanders!))) - (if __method180252 - (__method180252 _self175632_) + (let ((__method94895 + (method-ref _self94843_ 'bind-core-macro-expanders!))) + (if __method94895 + (__method94895 _self94843_) (error '"Missing method" - _self175632_ + _self94843_ 'bind-core-macro-expanders!))) - (let ((__method180253 - (method-ref _self175632_ 'bind-core-features!))) - (if __method180253 - (__method180253 _self175632_) + (let ((__method94896 + (method-ref _self94843_ 'bind-core-features!))) + (if __method94896 + (__method94896 _self94843_) (error '"Missing method" - _self175632_ + _self94843_ 'bind-core-features!)))) '#!void))) (define gx#root-context:::init!__0 - (lambda (_self175638_) - (let ((_bind?175640_ '#t)) - (gx#root-context:::init!__% _self175638_ _bind?175640_)))) + (lambda (_self94849_) + (let ((_bind?94851_ '#t)) + (gx#root-context:::init!__% _self94849_ _bind?94851_)))) (define gx#root-context:::init! - (lambda _g180256_ - (let ((_g180255_ (##length _g180256_))) - (cond ((##fx= _g180255_ 1) - (apply (lambda (_self175638_) - (gx#root-context:::init!__0 _self175638_)) - _g180256_)) - ((##fx= _g180255_ 2) - (apply (lambda (_self175642_ _bind?175643_) + (lambda _g94899_ + (let ((_g94898_ (##length _g94899_))) + (cond ((##fx= _g94898_ 1) + (apply (lambda (_self94849_) + (gx#root-context:::init!__0 _self94849_)) + _g94899_)) + ((##fx= _g94898_ 2) + (apply (lambda (_self94853_ _bind?94854_) (gx#root-context:::init!__% - _self175642_ - _bind?175643_)) - _g180256_)) + _self94853_ + _bind?94854_)) + _g94899_)) (else (##raise-wrong-number-of-arguments-exception gx#root-context:::init! - _g180256_)))))) + _g94899_)))))) (define gx#root-context:::init!::specialize - (lambda (__t180212) - (let ((__bind-core-features!180213 + (lambda (__t94855) + (let ((__bind-core-features!94856 (make-promise (lambda () - (let ((__tmp180216 + (let ((__tmp94859 (direct-method-ref - __t180212 + __t94855 '#f 'bind-core-features!))) - (if __tmp180216 - __tmp180216 + (if __tmp94859 + __tmp94859 (error '"Missing method" 'bind-core-features!)))))) - (__bind-core-syntax-expanders!180214 + (__bind-core-macro-expanders!94857 (make-promise (lambda () - (let ((__tmp180217 + (let ((__tmp94860 (direct-method-ref - __t180212 + __t94855 '#f - 'bind-core-syntax-expanders!))) - (if __tmp180217 - __tmp180217 + 'bind-core-macro-expanders!))) + (if __tmp94860 + __tmp94860 (error '"Missing method" - 'bind-core-syntax-expanders!)))))) - (__bind-core-macro-expanders!180215 + 'bind-core-macro-expanders!)))))) + (__bind-core-syntax-expanders!94858 (make-promise (lambda () - (let ((__tmp180218 + (let ((__tmp94861 (direct-method-ref - __t180212 + __t94855 '#f - 'bind-core-macro-expanders!))) - (if __tmp180218 - __tmp180218 + 'bind-core-syntax-expanders!))) + (if __tmp94861 + __tmp94861 (error '"Missing method" - 'bind-core-macro-expanders!))))))) - (let ((_opt-lambda175630175635_ - (lambda (_self175632_ _bind?175633_) - (if (##fx< '2 (##structure-length _self175632_)) + 'bind-core-syntax-expanders!))))))) + (let ((_opt-lambda9484194846_ + (lambda (_self94843_ _bind?94844_) + (if (##fx< '2 (##structure-length _self94843_)) (begin (##unchecked-structure-set! - _self175632_ + _self94843_ 'root '1 - (##structure-type _self175632_) + (##structure-type _self94843_) '#f) (##unchecked-structure-set! - _self175632_ - (make-table 'test: eq?) + _self94843_ + (make-hash-table-eq) '2 - (##structure-type _self175632_) + (##structure-type _self94843_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self175632_ + _self94843_ '2 - (##vector-length _self175632_))) - (if _bind?175633_ + (##vector-length _self94843_))) + (if _bind?94844_ (begin - ((force __bind-core-syntax-expanders!180214) - _self175632_) - ((force __bind-core-macro-expanders!180215) - _self175632_) - ((force __bind-core-features!180213) _self175632_)) + ((force __bind-core-syntax-expanders!94858) + _self94843_) + ((force __bind-core-macro-expanders!94857) + _self94843_) + ((force __bind-core-features!94856) _self94843_)) '#!void)))) - (lambda _g180258_ - (let ((_g180257_ (##length _g180258_))) - (cond ((##fx= _g180257_ 1) - (apply (lambda (_self175638_) - (let ((_bind?175640_ '#t)) - (_opt-lambda175630175635_ - _self175638_ - _bind?175640_))) - _g180258_)) - ((##fx= _g180257_ 2) - (apply (lambda (_self175642_ _bind?175643_) - (_opt-lambda175630175635_ - _self175642_ - _bind?175643_)) - _g180258_)) + (lambda _g94901_ + (let ((_g94900_ (##length _g94901_))) + (cond ((##fx= _g94900_ 1) + (apply (lambda (_self94849_) + (let ((_bind?94851_ '#t)) + (_opt-lambda9484194846_ + _self94849_ + _bind?94851_))) + _g94901_)) + ((##fx= _g94900_ 2) + (apply (lambda (_self94853_ _bind?94854_) + (_opt-lambda9484194846_ + _self94853_ + _bind?94854_)) + _g94901_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g180258_))))))))) + _g94901_))))))))) (bind-specializer! gx#root-context:::init! gx#root-context:::init!::specialize) - (bind-method! gx#root-context::t ':init! gx#root-context:::init! '#f) + (bind-method!__% gx#root-context::t ':init! gx#root-context:::init! '#f) (define gx#top-context:::init!__% - (lambda (_self175488_ _super175489_) - (let ((_super175497_ - (let ((_$e175491_ _super175489_)) - (if _$e175491_ - _$e175491_ - (let ((_$e175494_ (gx#core-context-root__0))) - (if _$e175494_ - _$e175494_ - (let ((__obj180254 + (lambda (_self94699_ _super94700_) + (let ((_super94708_ + (let ((_$e94702_ _super94700_)) + (if _$e94702_ + _$e94702_ + (let ((_$e94705_ (gx#core-context-root__0))) + (if _$e94705_ + _$e94705_ + (let ((__obj94897 (##structure gx#root-context::t '#f '#f))) - (gx#root-context:::init! __obj180254) - __obj180254))))))) - (if (##fx< '5 (##structure-length _self175488_)) + (gx#root-context:::init! __obj94897) + __obj94897))))))) + (if (##fx< '5 (##structure-length _self94699_)) (begin (##unchecked-structure-set! - _self175488_ + _self94699_ 'top '1 - (##structure-type _self175488_) + (##structure-type _self94699_) '#f) (##unchecked-structure-set! - _self175488_ - (make-table 'test: eq?) + _self94699_ + (make-hash-table-eq) '2 - (##structure-type _self175488_) + (##structure-type _self94699_) '#f) (##unchecked-structure-set! - _self175488_ - _super175497_ + _self94699_ + _super94708_ '3 - (##structure-type _self175488_) + (##structure-type _self94699_) '#f) (##unchecked-structure-set! - _self175488_ + _self94699_ '#f '4 - (##structure-type _self175488_) + (##structure-type _self94699_) '#f) (##unchecked-structure-set! - _self175488_ + _self94699_ '#f '5 - (##structure-type _self175488_) + (##structure-type _self94699_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self175488_ + _self94699_ '5 - (##vector-length _self175488_)))))) + (##vector-length _self94699_)))))) (define gx#top-context:::init!__0 - (lambda (_self175502_) - (let ((_super175504_ '#f)) - (gx#top-context:::init!__% _self175502_ _super175504_)))) + (lambda (_self94713_) + (let ((_super94715_ '#f)) + (gx#top-context:::init!__% _self94713_ _super94715_)))) (define gx#top-context:::init! - (lambda _g180260_ - (let ((_g180259_ (##length _g180260_))) - (cond ((##fx= _g180259_ 1) - (apply (lambda (_self175502_) - (gx#top-context:::init!__0 _self175502_)) - _g180260_)) - ((##fx= _g180259_ 2) - (apply (lambda (_self175506_ _super175507_) - (gx#top-context:::init!__% - _self175506_ - _super175507_)) - _g180260_)) + (lambda _g94903_ + (let ((_g94902_ (##length _g94903_))) + (cond ((##fx= _g94902_ 1) + (apply (lambda (_self94713_) + (gx#top-context:::init!__0 _self94713_)) + _g94903_)) + ((##fx= _g94902_ 2) + (apply (lambda (_self94717_ _super94718_) + (gx#top-context:::init!__% _self94717_ _super94718_)) + _g94903_)) (else (##raise-wrong-number-of-arguments-exception gx#top-context:::init! - _g180260_)))))) - (bind-method! gx#top-context::t ':init! gx#top-context:::init! '#f) + _g94903_)))))) + (bind-method!__% gx#top-context::t ':init! gx#top-context:::init! '#f) (define gx#expander-context::bind-core-syntax-expanders!__% - (lambda (_self175219_ _bindings175220_) + (lambda (_self94430_ _bindings94431_) (for-each - (lambda (_bind175222_) - (let* ((_bind175223175230_ _bind175222_) - (_E175225175234_ - (lambda () - (error '"No clause matching" _bind175223175230_))) - (_K175226175343_ - (lambda (_rest175237_ _id175238_) + (lambda (_bind94433_) + (let* ((_bind9443494441_ _bind94433_) + (_E9443694445_ + (lambda () (error '"No clause matching" _bind9443494441_))) + (_K9443794554_ + (lambda (_rest94448_ _id94449_) (gx#core-context-put! - _self175219_ - _id175238_ + _self94430_ + _id94449_ (##structure gx#syntax-binding::t - _id175238_ - _id175238_ + _id94449_ + _id94449_ '#f - (let* ((_rest175239175250_ _rest175237_) - (_E175241175254_ + (let* ((_rest9445094461_ _rest94448_) + (_E9445294465_ (lambda () (error '"No clause matching" - _rest175239175250_))) - (_K175242175319_ - (lambda (_compiler175257_ - _expander175258_ - _key175259_) - ((let* ((_key175260175273_ _key175259_) - (_E175266175277_ + _rest9445094461_))) + (_K9445394530_ + (lambda (_compiler94468_ + _expander94469_ + _key94470_) + ((let* ((_key9447194484_ _key94470_) + (_E9447794488_ (lambda () (error '"No clause matching" - _key175260175273_)))) - (let ((_K175271175313_ + _key9447194484_)))) + (let ((_K9448294524_ (lambda () gx#make-top-special-form)) - (_K175270175306_ + (_K9448194517_ (lambda () gx#make-module-special-form)) - (_K175269175298_ + (_K9448094509_ (lambda () gx#make-definition-form)) - (_K175268175290_ + (_K9447994501_ (lambda () gx#make-special-form)) - (_K175267175282_ + (_K9447894493_ (lambda () gx#make-expression-form))) - (let* ((_try-match175265175285_ + (let* ((_try-match9447694496_ (lambda () - (if (##eq? _key175260175273_ + (if (##eq? _key9447194484_ 'expr:) - (_K175267175282_) - (_E175266175277_)))) - (_try-match175264175293_ + (_K9447894493_) + (_E9447794488_)))) + (_try-match9447594504_ (lambda () - (if (##eq? _key175260175273_ + (if (##eq? _key9447194484_ 'special:) - (_K175268175290_) - (_try-match175265175285_)))) - (_try-match175263175301_ + (_K9447994501_) + (_try-match9447694496_)))) + (_try-match9447494512_ (lambda () - (if (##eq? _key175260175273_ + (if (##eq? _key9447194484_ 'define:) - (_K175269175298_) - (_try-match175264175293_)))) - (_try-match175262175309_ + (_K9448094509_) + (_try-match9447594504_)))) + (_try-match9447394520_ (lambda () - (if (##eq? _key175260175273_ + (if (##eq? _key9447194484_ 'module:) - (_K175270175306_) - (_try-match175263175301_))))) - (if (##eq? _key175260175273_ 'top:) - (_K175271175313_) - (_try-match175262175309_))))) - _expander175258_ - _id175238_ - (let ((_$e175316_ _compiler175257_)) - (if _$e175316_ - _$e175316_ + (_K9448194517_) + (_try-match9447494512_))))) + (if (##eq? _key9447194484_ 'top:) + (_K9448294524_) + (_try-match9447394520_))))) + _expander94469_ + _id94449_ + (let ((_$e94527_ _compiler94468_)) + (if _$e94527_ + _$e94527_ gx#core-compile-top-error)))))) - (if (##pair? _rest175239175250_) - (let ((_hd175243175322_ - (##car _rest175239175250_)) - (_tl175244175324_ - (##cdr _rest175239175250_))) - (let ((_key175327_ _hd175243175322_)) - (if (##pair? _tl175244175324_) - (let ((_hd175245175329_ - (##car _tl175244175324_)) - (_tl175246175331_ - (##cdr _tl175244175324_))) - (let ((_expander175334_ - _hd175245175329_)) - (if (##pair? _tl175246175331_) - (let ((_hd175247175336_ - (##car _tl175246175331_)) - (_tl175248175338_ - (##cdr _tl175246175331_))) - (let ((_compiler175341_ - _hd175247175336_)) - (if (##null? _tl175248175338_) - (_K175242175319_ - _compiler175341_ - _expander175334_ - _key175327_) - (_E175241175254_)))) - (_E175241175254_)))) - (_E175241175254_)))) - (_E175241175254_)))))))) - (if (##pair? _bind175223175230_) - (let ((_hd175227175346_ (##car _bind175223175230_)) - (_tl175228175348_ (##cdr _bind175223175230_))) - (let* ((_id175351_ _hd175227175346_) - (_rest175353_ _tl175228175348_)) - (_K175226175343_ _rest175353_ _id175351_))) - (_E175225175234_)))) - _bindings175220_))) + (if (##pair? _rest9445094461_) + (let ((_hd9445494533_ (##car _rest9445094461_)) + (_tl9445594535_ (##cdr _rest9445094461_))) + (let ((_key94538_ _hd9445494533_)) + (if (##pair? _tl9445594535_) + (let ((_hd9445694540_ + (##car _tl9445594535_)) + (_tl9445794542_ + (##cdr _tl9445594535_))) + (let ((_expander94545_ _hd9445694540_)) + (if (##pair? _tl9445794542_) + (let ((_hd9445894547_ + (##car _tl9445794542_)) + (_tl9445994549_ + (##cdr _tl9445794542_))) + (let ((_compiler94552_ + _hd9445894547_)) + (if (##null? _tl9445994549_) + (_K9445394530_ + _compiler94552_ + _expander94545_ + _key94538_) + (_E9445294465_)))) + (_E9445294465_)))) + (_E9445294465_)))) + (_E9445294465_)))))))) + (if (##pair? _bind9443494441_) + (let ((_hd9443894557_ (##car _bind9443494441_)) + (_tl9443994559_ (##cdr _bind9443494441_))) + (let* ((_id94562_ _hd9443894557_) + (_rest94564_ _tl9443994559_)) + (_K9443794554_ _rest94564_ _id94562_))) + (_E9443694445_)))) + _bindings94431_))) (define gx#expander-context::bind-core-syntax-expanders!__0 - (lambda (_self175358_) - (let ((_bindings175360_ gx#*core-syntax-expanders*)) + (lambda (_self94569_) + (let ((_bindings94571_ gx#*core-syntax-expanders*)) (gx#expander-context::bind-core-syntax-expanders!__% - _self175358_ - _bindings175360_)))) + _self94569_ + _bindings94571_)))) (define gx#expander-context::bind-core-syntax-expanders! - (lambda _g180262_ - (let ((_g180261_ (##length _g180262_))) - (cond ((##fx= _g180261_ 1) - (apply (lambda (_self175358_) + (lambda _g94905_ + (let ((_g94904_ (##length _g94905_))) + (cond ((##fx= _g94904_ 1) + (apply (lambda (_self94569_) (gx#expander-context::bind-core-syntax-expanders!__0 - _self175358_)) - _g180262_)) - ((##fx= _g180261_ 2) - (apply (lambda (_self175362_ _bindings175363_) + _self94569_)) + _g94905_)) + ((##fx= _g94904_ 2) + (apply (lambda (_self94573_ _bindings94574_) (gx#expander-context::bind-core-syntax-expanders!__% - _self175362_ - _bindings175363_)) - _g180262_)) + _self94573_ + _bindings94574_)) + _g94905_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-syntax-expanders! - _g180262_)))))) - (bind-method! + _g94905_)))))) + (bind-method!__% gx#expander-context::t 'bind-core-syntax-expanders! gx#expander-context::bind-core-syntax-expanders! '#f) (define gx#expander-context::bind-core-macro-expanders!__% - (lambda (_self174991_ _bindings174992_) + (lambda (_self94202_ _bindings94203_) (for-each - (lambda (_bind174994_) - (let* ((_bind174995175002_ _bind174994_) - (_E174997175006_ - (lambda () - (error '"No clause matching" _bind174995175002_))) - (_K174998175074_ - (lambda (_rest175009_ _id175010_) + (lambda (_bind94205_) + (let* ((_bind9420694213_ _bind94205_) + (_E9420894217_ + (lambda () (error '"No clause matching" _bind9420694213_))) + (_K9420994285_ + (lambda (_rest94220_ _id94221_) (gx#core-context-put! - _self174991_ - _id175010_ + _self94202_ + _id94221_ (##structure gx#syntax-binding::t - _id175010_ - _id175010_ + _id94221_ + _id94221_ '#f - (let* ((_rest175011175026_ _rest175009_) - (_E175015175030_ + (let* ((_rest9422294237_ _rest94220_) + (_E9422694241_ (lambda () (error '"No clause matching" - _rest175011175026_)))) - (let ((_K175020175059_ - (lambda (_core-id175057_) + _rest9422294237_)))) + (let ((_K9423194270_ + (lambda (_core-id94268_) (##structure gx#rename-macro-expander::t - _core-id175057_))) - (_K175017175044_ - (lambda (_proc175042_) + _core-id94268_))) + (_K9422894255_ + (lambda (_proc94253_) (##structure gx#macro-expander::t - _proc175042_))) - (_K175016175035_ + _proc94253_))) + (_K9422794246_ (lambda () (##structure gx#reserved-expander::t - _id175010_)))) - (let ((_try-match175014175038_ + _id94221_)))) + (let ((_try-match9422594249_ (lambda () - (if (##null? _rest175011175026_) - (_K175016175035_) - (_E175015175030_))))) - (if (##pair? _rest175011175026_) - (let ((_tl175022175064_ - (##cdr _rest175011175026_)) - (_hd175021175062_ - (##car _rest175011175026_))) - (if (##eq? _hd175021175062_ '=>) - (if (##pair? _tl175022175064_) - (let ((_tl175024175069_ - (##cdr _tl175022175064_)) - (_hd175023175067_ - (##car _tl175022175064_))) - (if (##null? _tl175024175069_) - (let ((_core-id175072_ - _hd175023175067_)) + (if (##null? _rest9422294237_) + (_K9422794246_) + (_E9422694241_))))) + (if (##pair? _rest9422294237_) + (let ((_tl9423394275_ + (##cdr _rest9422294237_)) + (_hd9423294273_ + (##car _rest9422294237_))) + (if (##eq? _hd9423294273_ '=>) + (if (##pair? _tl9423394275_) + (let ((_tl9423594280_ + (##cdr _tl9423394275_)) + (_hd9423494278_ + (##car _tl9423394275_))) + (if (##null? _tl9423594280_) + (let ((_core-id94283_ + _hd9423494278_)) (##structure gx#rename-macro-expander::t - _core-id175072_)) - (_E175015175030_))) - (if (##null? _tl175022175064_) - (let ((_proc175052_ - _hd175021175062_)) + _core-id94283_)) + (_E9422694241_))) + (if (##null? _tl9423394275_) + (let ((_proc94263_ + _hd9423294273_)) (##structure gx#macro-expander::t - _proc175052_)) - (_E175015175030_))) - (if (##null? _tl175022175064_) - (let ((_proc175052_ - _hd175021175062_)) + _proc94263_)) + (_E9422694241_))) + (if (##null? _tl9423394275_) + (let ((_proc94263_ _hd9423294273_)) (##structure gx#macro-expander::t - _proc175052_)) - (_E175015175030_)))) - (_try-match175014175038_)))))))))) - (if (##pair? _bind174995175002_) - (let ((_hd174999175077_ (##car _bind174995175002_)) - (_tl175000175079_ (##cdr _bind174995175002_))) - (let* ((_id175082_ _hd174999175077_) - (_rest175084_ _tl175000175079_)) - (_K174998175074_ _rest175084_ _id175082_))) - (_E174997175006_)))) - _bindings174992_))) + _proc94263_)) + (_E9422694241_)))) + (_try-match9422594249_)))))))))) + (if (##pair? _bind9420694213_) + (let ((_hd9421094288_ (##car _bind9420694213_)) + (_tl9421194290_ (##cdr _bind9420694213_))) + (let* ((_id94293_ _hd9421094288_) + (_rest94295_ _tl9421194290_)) + (_K9420994285_ _rest94295_ _id94293_))) + (_E9420894217_)))) + _bindings94203_))) (define gx#expander-context::bind-core-macro-expanders!__0 - (lambda (_self175089_) - (let ((_bindings175091_ gx#*core-macro-expanders*)) + (lambda (_self94300_) + (let ((_bindings94302_ gx#*core-macro-expanders*)) (gx#expander-context::bind-core-macro-expanders!__% - _self175089_ - _bindings175091_)))) + _self94300_ + _bindings94302_)))) (define gx#expander-context::bind-core-macro-expanders! - (lambda _g180264_ - (let ((_g180263_ (##length _g180264_))) - (cond ((##fx= _g180263_ 1) - (apply (lambda (_self175089_) + (lambda _g94907_ + (let ((_g94906_ (##length _g94907_))) + (cond ((##fx= _g94906_ 1) + (apply (lambda (_self94300_) (gx#expander-context::bind-core-macro-expanders!__0 - _self175089_)) - _g180264_)) - ((##fx= _g180263_ 2) - (apply (lambda (_self175093_ _bindings175094_) + _self94300_)) + _g94907_)) + ((##fx= _g94906_ 2) + (apply (lambda (_self94304_ _bindings94305_) (gx#expander-context::bind-core-macro-expanders!__% - _self175093_ - _bindings175094_)) - _g180264_)) + _self94304_ + _bindings94305_)) + _g94907_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-macro-expanders! - _g180264_)))))) - (bind-method! + _g94907_)))))) + (bind-method!__% gx#expander-context::t 'bind-core-macro-expanders! gx#expander-context::bind-core-macro-expanders! '#f) (define gx#expander-context::bind-core-features! - (lambda (_self174735_) - (letrec ((_linux-variant?174737_ - (lambda (_sys-type174836_) - (let* ((_g174837174845_ + (lambda (_self93946_) + (letrec ((_linux-variant?93948_ + (lambda (_sys-type94047_) + (let* ((_g9404894056_ (string-split - (symbol->string _sys-type174836_) + (symbol->string _sys-type94047_) '#\-)) - (_else174839174853_ (lambda () '#f)) - (_K174841174858_ - (lambda (_rest174856_) - (not (null? _rest174856_))))) - (if (##pair? _g174837174845_) - (let ((_hd174842174861_ (##car _g174837174845_)) - (_tl174843174863_ (##cdr _g174837174845_))) - (if (equal? _hd174842174861_ '"linux") - (let ((_rest174866_ _tl174843174863_)) - (_K174841174858_ _rest174866_)) - (_else174839174853_))) - (_else174839174853_))))) - (_bsd-variant174738_ - (lambda (_sys-type174795_) - (let ((_sys-type-str174797_ - (symbol->string _sys-type174795_))) - (let _lp174799_ ((_rest174801_ - '("openbsd" - "netbsd" - "freebsd" - "darwin"))) - (let* ((_rest174802174810_ _rest174801_) - (_else174804174818_ (lambda () '#f)) - (_K174806174824_ - (lambda (_rest174821_ _sys174822_) + (_else9405094064_ (lambda () '#f)) + (_K9405294069_ + (lambda (_rest94067_) (not (null? _rest94067_))))) + (if (##pair? _g9404894056_) + (let ((_hd9405394072_ (##car _g9404894056_)) + (_tl9405494074_ (##cdr _g9404894056_))) + (if (equal? _hd9405394072_ '"linux") + (let ((_rest94077_ _tl9405494074_)) + (_K9405294069_ _rest94077_)) + (_else9405094064_))) + (_else9405094064_))))) + (_bsd-variant93949_ + (lambda (_sys-type94006_) + (let ((_sys-type-str94008_ + (symbol->string _sys-type94006_))) + (let _lp94010_ ((_rest94012_ + '("openbsd" + "netbsd" + "freebsd" + "darwin"))) + (let* ((_rest9401394021_ _rest94012_) + (_else9401594029_ (lambda () '#f)) + (_K9401794035_ + (lambda (_rest94032_ _sys94033_) (if (string-prefix? - _sys174822_ - _sys-type-str174797_) - _sys174822_ - (_lp174799_ _rest174821_))))) - (if (##pair? _rest174802174810_) - (let ((_hd174807174827_ - (##car _rest174802174810_)) - (_tl174808174829_ - (##cdr _rest174802174810_))) - (let* ((_sys174832_ _hd174807174827_) - (_rest174834_ _tl174808174829_)) - (_K174806174824_ _rest174834_ _sys174832_))) - (_else174804174818_)))))))) - (gx#core-bind-feature!__% 'gerbil '#f '0 _self174735_) - (gx#core-bind-feature!__% (gerbil-system) '#f '0 _self174735_) - (let* ((_g174739174751_ (system-type)) - (_else174741174759_ (lambda () '#!void)) - (_K174743174771_ - (lambda (_sys-type174762_ _sys-vendor174763_ _sys-cpu174764_) + _sys94033_ + _sys-type-str94008_) + _sys94033_ + (_lp94010_ _rest94032_))))) + (if (##pair? _rest9401394021_) + (let ((_hd9401894038_ (##car _rest9401394021_)) + (_tl9401994040_ (##cdr _rest9401394021_))) + (let* ((_sys94043_ _hd9401894038_) + (_rest94045_ _tl9401994040_)) + (_K9401794035_ _rest94045_ _sys94043_))) + (_else9401594029_)))))))) + (gx#core-bind-feature!__% 'gerbil '#f '0 _self93946_) + (gx#core-bind-feature!__% (gerbil-system) '#f '0 _self93946_) + (let* ((_g9395093962_ (system-type)) + (_else9395293970_ (lambda () '#!void)) + (_K9395493982_ + (lambda (_sys-type93973_ _sys-vendor93974_ _sys-cpu93975_) (gx#core-bind-feature!__% - _sys-cpu174764_ + _sys-cpu93975_ '#f '0 - _self174735_) + _self93946_) (gx#core-bind-feature!__% - _sys-type174762_ + _sys-type93973_ '#f '0 - _self174735_) - (if (_linux-variant?174737_ _sys-type174762_) + _self93946_) + (if (_linux-variant?93948_ _sys-type93973_) (gx#core-bind-feature!__% (string->symbol '"linux") '#f '0 - _self174735_) - (let ((_$e174766_ - (_bsd-variant174738_ _sys-type174762_))) - (if _$e174766_ - ((lambda (_sys-prefix174769_) + _self93946_) + (let ((_$e93977_ (_bsd-variant93949_ _sys-type93973_))) + (if _$e93977_ + ((lambda (_sys-prefix93980_) (gx#core-bind-feature!__% (string->symbol '"bsd") '#f '0 - _self174735_) + _self93946_) (gx#core-bind-feature!__% - (string->symbol _sys-prefix174769_) + (string->symbol _sys-prefix93980_) '#f '0 - _self174735_)) - _$e174766_) + _self93946_)) + _$e93977_) '#!void)))))) - (if (##pair? _g174739174751_) - (let ((_hd174744174774_ (##car _g174739174751_)) - (_tl174745174776_ (##cdr _g174739174751_))) - (let ((_sys-cpu174779_ _hd174744174774_)) - (if (##pair? _tl174745174776_) - (let ((_hd174746174781_ (##car _tl174745174776_)) - (_tl174747174783_ (##cdr _tl174745174776_))) - (let ((_sys-vendor174786_ _hd174746174781_)) - (if (##pair? _tl174747174783_) - (let ((_hd174748174788_ - (##car _tl174747174783_)) - (_tl174749174790_ - (##cdr _tl174747174783_))) - (let ((_sys-type174793_ _hd174748174788_)) - (if (##null? _tl174749174790_) - (_K174743174771_ - _sys-type174793_ - _sys-vendor174786_ - _sys-cpu174779_) + (if (##pair? _g9395093962_) + (let ((_hd9395593985_ (##car _g9395093962_)) + (_tl9395693987_ (##cdr _g9395093962_))) + (let ((_sys-cpu93990_ _hd9395593985_)) + (if (##pair? _tl9395693987_) + (let ((_hd9395793992_ (##car _tl9395693987_)) + (_tl9395893994_ (##cdr _tl9395693987_))) + (let ((_sys-vendor93997_ _hd9395793992_)) + (if (##pair? _tl9395893994_) + (let ((_hd9395993999_ (##car _tl9395893994_)) + (_tl9396094001_ (##cdr _tl9395893994_))) + (let ((_sys-type94004_ _hd9395993999_)) + (if (##null? _tl9396094001_) + (_K9395493982_ + _sys-type94004_ + _sys-vendor93997_ + _sys-cpu93990_) '#!void))) '#!void))) '#!void))) '#!void)) (if (gerbil-runtime-smp?) - (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _self174735_) + (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _self93946_) '#!void)))) - (bind-method! + (bind-method!__% gx#expander-context::t 'bind-core-features! gx#expander-context::bind-core-features! diff --git a/src/bootstrap/gerbil/expander/stx__0.scm b/src/bootstrap/gerbil/expander/stx__0.scm index eecebd3e9..eb39a1842 100644 --- a/src/bootstrap/gerbil/expander/stx__0.scm +++ b/src/bootstrap/gerbil/expander/stx__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/stx::timestamp 1708102802) + (define gerbil/expander/stx::timestamp 1708370113) (begin (declare (not safe)) (define gx#identifier-wrap::t @@ -13,8 +13,8 @@ '#f)) (define gx#identifier-wrap? (make-class-predicate gx#identifier-wrap::t)) (define gx#make-identifier-wrap - (lambda _$args138346_ - (apply make-instance gx#identifier-wrap::t _$args138346_))) + (lambda _$args80397_ + (apply make-instance gx#identifier-wrap::t _$args80397_))) (define gx#identifier-wrap-marks (make-class-slot-accessor gx#identifier-wrap::t 'marks)) (define gx#identifier-wrap-e @@ -49,8 +49,8 @@ '#f)) (define gx#syntax-wrap? (make-class-predicate gx#syntax-wrap::t)) (define gx#make-syntax-wrap - (lambda _$args138343_ - (apply make-instance gx#syntax-wrap::t _$args138343_))) + (lambda _$args80394_ + (apply make-instance gx#syntax-wrap::t _$args80394_))) (define gx#syntax-wrap-mark (make-class-slot-accessor gx#syntax-wrap::t 'mark)) (define gx#syntax-wrap-e (make-class-slot-accessor gx#syntax-wrap::t 'e)) @@ -84,8 +84,8 @@ '#f)) (define gx#syntax-quote? (make-class-predicate gx#syntax-quote::t)) (define gx#make-syntax-quote - (lambda _$args138340_ - (apply make-instance gx#syntax-quote::t _$args138340_))) + (lambda _$args80391_ + (apply make-instance gx#syntax-quote::t _$args80391_))) (define gx#syntax-quote-context (make-class-slot-accessor gx#syntax-quote::t 'context)) (define gx#syntax-quote-marks @@ -118,1011 +118,979 @@ (define gx#&syntax-quote-source-set! (make-class-slot-unchecked-mutator gx#syntax-quote::t 'source)) (define gx#identifier? - (lambda (_stx138338_) (symbol? (gx#stx-e _stx138338_)))) + (lambda (_stx80389_) (symbol? (gx#stx-e _stx80389_)))) (define gx#identifier-quote? - (lambda (_stx138336_) - (if (##structure-direct-instance-of? _stx138336_ 'gx#syntax-quote::t) - (symbol? (##unchecked-structure-ref _stx138336_ '1 gx#AST::t '#f)) + (lambda (_stx80387_) + (if (##structure-direct-instance-of? _stx80387_ 'gx#syntax-quote::t) + (symbol? (##unchecked-structure-ref _stx80387_ '1 gx#AST::t '#f)) '#f))) (define gx#sealed-syntax? - (lambda (_stx138334_) - (if (##structure-direct-instance-of? _stx138334_ 'gx#syntax-quote::t) + (lambda (_stx80385_) + (if (##structure-direct-instance-of? _stx80385_ 'gx#syntax-quote::t) '#t - (if (##structure-direct-instance-of? - _stx138334_ - 'gx#syntax-wrap::t) + (if (##structure-direct-instance-of? _stx80385_ 'gx#syntax-wrap::t) (gx#sealed-syntax? - (##unchecked-structure-ref _stx138334_ '1 gx#AST::t '#f)) + (##unchecked-structure-ref _stx80385_ '1 gx#AST::t '#f)) '#f)))) (define gx#sealed-syntax-unwrap - (lambda (_stx138332_) - (if (##structure-direct-instance-of? _stx138332_ 'gx#syntax-quote::t) - _stx138332_ - (if (##structure-direct-instance-of? - _stx138332_ - 'gx#syntax-wrap::t) + (lambda (_stx80383_) + (if (##structure-direct-instance-of? _stx80383_ 'gx#syntax-quote::t) + _stx80383_ + (if (##structure-direct-instance-of? _stx80383_ 'gx#syntax-wrap::t) (gx#sealed-syntax-unwrap - (##unchecked-structure-ref _stx138332_ '1 gx#AST::t '#f)) + (##unchecked-structure-ref _stx80383_ '1 gx#AST::t '#f)) '#f)))) (define gx#syntax-e - (lambda (_stx138315_) - (if (##structure-direct-instance-of? _stx138315_ 'gx#syntax-wrap::t) - (let _lp138317_ ((_e138319_ - (##unchecked-structure-ref - _stx138315_ - '1 - gx#AST::t - '#f)) - (_marks138320_ - (cons (##unchecked-structure-ref - _stx138315_ - '3 - gx#syntax-wrap::t - '#f) - '()))) - (if (##structure? _e138319_) - (let ((_$e138322_ (##type-id (##structure-type _e138319_)))) - (if (eq? 'gx#syntax-wrap::t _$e138322_) - (_lp138317_ - (##unchecked-structure-ref _e138319_ '1 gx#AST::t '#f) + (lambda (_stx80366_) + (if (##structure-direct-instance-of? _stx80366_ 'gx#syntax-wrap::t) + (let _lp80368_ ((_e80370_ + (##unchecked-structure-ref + _stx80366_ + '1 + gx#AST::t + '#f)) + (_marks80371_ + (cons (##unchecked-structure-ref + _stx80366_ + '3 + gx#syntax-wrap::t + '#f) + '()))) + (if (##structure? _e80370_) + (let ((_$e80373_ (##type-id (##structure-type _e80370_)))) + (if (eq? 'gx#syntax-wrap::t _$e80373_) + (_lp80368_ + (##unchecked-structure-ref _e80370_ '1 gx#AST::t '#f) (gx#apply-mark (##unchecked-structure-ref - _e138319_ + _e80370_ '3 gx#syntax-wrap::t '#f) - _marks138320_)) - (if (or (eq? 'gx#syntax-quote::t _$e138322_) - (eq? 'gx#identifier-wrap::t _$e138322_)) + _marks80371_)) + (if (or (eq? 'gx#syntax-quote::t _$e80373_) + (eq? 'gx#identifier-wrap::t _$e80373_)) (##unchecked-structure-ref - _e138319_ + _e80370_ '1 gx#AST::t '#f) - (if (eq? 'gerbil#AST::t _$e138322_) - (_lp138317_ + (if (eq? 'gerbil#AST::t _$e80373_) + (_lp80368_ (##unchecked-structure-ref - _e138319_ + _e80370_ '1 gx#AST::t '#f) - _marks138320_) - _e138319_)))) - (if (null? _marks138320_) - _e138319_ - (if (pair? _e138319_) - (cons (gx#stx-wrap (car _e138319_) _marks138320_) - (gx#stx-wrap (cdr _e138319_) _marks138320_)) - (if (vector? _e138319_) + _marks80371_) + _e80370_)))) + (if (null? _marks80371_) + _e80370_ + (if (pair? _e80370_) + (cons (gx#stx-wrap (car _e80370_) _marks80371_) + (gx#stx-wrap (cdr _e80370_) _marks80371_)) + (if (vector? _e80370_) (vector-map - (lambda (_g138327138329_) - (gx#stx-wrap _g138327138329_ _marks138320_)) - _e138319_) - (if (box? _e138319_) + (lambda (_g8037880380_) + (gx#stx-wrap _g8037880380_ _marks80371_)) + _e80370_) + (if (box? _e80370_) (box (gx#stx-wrap - (unbox _e138319_) - _marks138320_)) - _e138319_)))))) - (if (##structure-instance-of? _stx138315_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx138315_ '1 gx#AST::t '#f) - _stx138315_)))) + (unbox _e80370_) + _marks80371_)) + _e80370_)))))) + (if (##structure-instance-of? _stx80366_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx80366_ '1 gx#AST::t '#f) + _stx80366_)))) (define gx#syntax->datum - (lambda (_stx138313_) - (if (##structure-instance-of? _stx138313_ 'gerbil#AST::t) + (lambda (_stx80364_) + (if (##structure-instance-of? _stx80364_ 'gerbil#AST::t) (gx#syntax->datum - (##unchecked-structure-ref _stx138313_ '1 gx#AST::t '#f)) - (if (pair? _stx138313_) - (cons (gx#syntax->datum (car _stx138313_)) - (gx#syntax->datum (cdr _stx138313_))) - (if (vector? _stx138313_) - (vector-map gx#syntax->datum _stx138313_) - (if (box? _stx138313_) - (box (gx#syntax->datum (unbox _stx138313_))) - _stx138313_)))))) + (##unchecked-structure-ref _stx80364_ '1 gx#AST::t '#f)) + (if (pair? _stx80364_) + (cons (gx#syntax->datum (car _stx80364_)) + (gx#syntax->datum (cdr _stx80364_))) + (if (vector? _stx80364_) + (vector-map gx#syntax->datum _stx80364_) + (if (box? _stx80364_) + (box (gx#syntax->datum (unbox _stx80364_))) + _stx80364_)))))) (define gx#datum->syntax__% - (lambda (_stx138256_ _datum138257_ _src138258_ _quote?138259_) - (letrec ((_wrap-datum138261_ - (lambda (_e138285_ _marks138286_) - (_wrap-inner138263_ - _e138285_ - (lambda (_g138287138289_) + (lambda (_stx80307_ _datum80308_ _src80309_ _quote?80310_) + (letrec ((_wrap-datum80312_ + (lambda (_e80336_ _marks80337_) + (_wrap-inner80314_ + _e80336_ + (lambda (_g8033880340_) (##structure gx#identifier-wrap::t - _g138287138289_ - _src138258_ - _marks138286_))))) - (_wrap-quote138262_ - (lambda (_e138277_ _ctx138278_ _marks138279_) - (_wrap-inner138263_ - _e138277_ - (lambda (_g138280138282_) + _g8033880340_ + _src80309_ + _marks80337_))))) + (_wrap-quote80313_ + (lambda (_e80328_ _ctx80329_ _marks80330_) + (_wrap-inner80314_ + _e80328_ + (lambda (_g8033180333_) (##structure gx#syntax-quote::t - _g138280138282_ - _src138258_ - _ctx138278_ - _marks138279_))))) - (_wrap-inner138263_ - (lambda (_e138270_ _wrap-e138271_) - (let _recur138273_ ((_e138275_ _e138270_)) - (if (symbol? _e138275_) - (_wrap-e138271_ _e138275_) - (if (pair? _e138275_) - (cons (_recur138273_ (car _e138275_)) - (_recur138273_ (cdr _e138275_))) - (if (vector? _e138275_) - (vector-map _recur138273_ _e138275_) - (if (box? _e138275_) - (box (_recur138273_ (unbox _e138275_))) - _e138275_))))))) - (_wrap-outer138264_ - (lambda (_e138268_) - (if (##structure-instance-of? _e138268_ 'gerbil#AST::t) - _e138268_ - (##structure gx#AST::t _e138268_ _src138258_))))) - (if (##structure-instance-of? _datum138257_ 'gerbil#AST::t) - _datum138257_ - (if (not _stx138256_) - (##structure gx#AST::t _datum138257_ _src138258_) - (if (gx#identifier? _stx138256_) - (let ((_stx138266_ (gx#stx-unwrap__0 _stx138256_))) - (_wrap-outer138264_ + _g8033180333_ + _src80309_ + _ctx80329_ + _marks80330_))))) + (_wrap-inner80314_ + (lambda (_e80321_ _wrap-e80322_) + (let _recur80324_ ((_e80326_ _e80321_)) + (if (symbol? _e80326_) + (_wrap-e80322_ _e80326_) + (if (pair? _e80326_) + (cons (_recur80324_ (car _e80326_)) + (_recur80324_ (cdr _e80326_))) + (if (vector? _e80326_) + (vector-map _recur80324_ _e80326_) + (if (box? _e80326_) + (box (_recur80324_ (unbox _e80326_))) + _e80326_))))))) + (_wrap-outer80315_ + (lambda (_e80319_) + (if (##structure-instance-of? _e80319_ 'gerbil#AST::t) + _e80319_ + (##structure gx#AST::t _e80319_ _src80309_))))) + (if (##structure-instance-of? _datum80308_ 'gerbil#AST::t) + _datum80308_ + (if (not _stx80307_) + (##structure gx#AST::t _datum80308_ _src80309_) + (if (gx#identifier? _stx80307_) + (let ((_stx80317_ (gx#stx-unwrap__0 _stx80307_))) + (_wrap-outer80315_ (if (##structure-direct-instance-of? - _stx138266_ + _stx80317_ 'gx#syntax-quote::t) - (if _quote?138259_ - (_wrap-quote138262_ - _datum138257_ + (if _quote?80310_ + (_wrap-quote80313_ + _datum80308_ (##unchecked-structure-ref - _stx138266_ + _stx80317_ '3 gx#syntax-quote::t '#f) (##unchecked-structure-ref - _stx138266_ + _stx80317_ '4 gx#syntax-quote::t '#f)) - (_wrap-datum138261_ - _datum138257_ + (_wrap-datum80312_ + _datum80308_ (##unchecked-structure-ref - _stx138266_ + _stx80317_ '4 gx#syntax-quote::t '#f))) - (_wrap-datum138261_ - _datum138257_ + (_wrap-datum80312_ + _datum80308_ (##unchecked-structure-ref - _stx138266_ + _stx80317_ '3 gx#identifier-wrap::t '#f))))) (error '"Bad template syntax; expected identifier" - _stx138256_))))))) + _stx80307_))))))) (define gx#datum->syntax__0 - (lambda (_stx138295_ _datum138296_) - (let* ((_src138298_ '#f) (_quote?138300_ '#t)) + (lambda (_stx80346_ _datum80347_) + (let* ((_src80349_ '#f) (_quote?80351_ '#t)) (gx#datum->syntax__% - _stx138295_ - _datum138296_ - _src138298_ - _quote?138300_)))) + _stx80346_ + _datum80347_ + _src80349_ + _quote?80351_)))) (define gx#datum->syntax__1 - (lambda (_stx138302_ _datum138303_ _src138304_) - (let ((_quote?138306_ '#t)) + (lambda (_stx80353_ _datum80354_ _src80355_) + (let ((_quote?80357_ '#t)) (gx#datum->syntax__% - _stx138302_ - _datum138303_ - _src138304_ - _quote?138306_)))) + _stx80353_ + _datum80354_ + _src80355_ + _quote?80357_)))) (define gx#datum->syntax - (lambda _g142995_ - (let ((_g142994_ (##length _g142995_))) - (cond ((##fx= _g142994_ 2) - (apply (lambda (_stx138295_ _datum138296_) - (gx#datum->syntax__0 _stx138295_ _datum138296_)) - _g142995_)) - ((##fx= _g142994_ 3) - (apply (lambda (_stx138302_ _datum138303_ _src138304_) + (lambda _g80478_ + (let ((_g80477_ (##length _g80478_))) + (cond ((##fx= _g80477_ 2) + (apply (lambda (_stx80346_ _datum80347_) + (gx#datum->syntax__0 _stx80346_ _datum80347_)) + _g80478_)) + ((##fx= _g80477_ 3) + (apply (lambda (_stx80353_ _datum80354_ _src80355_) (gx#datum->syntax__1 - _stx138302_ - _datum138303_ - _src138304_)) - _g142995_)) - ((##fx= _g142994_ 4) - (apply (lambda (_stx138308_ - _datum138309_ - _src138310_ - _quote?138311_) + _stx80353_ + _datum80354_ + _src80355_)) + _g80478_)) + ((##fx= _g80477_ 4) + (apply (lambda (_stx80359_ + _datum80360_ + _src80361_ + _quote?80362_) (gx#datum->syntax__% - _stx138308_ - _datum138309_ - _src138310_ - _quote?138311_)) - _g142995_)) + _stx80359_ + _datum80360_ + _src80361_ + _quote?80362_)) + _g80478_)) (else (##raise-wrong-number-of-arguments-exception gx#datum->syntax - _g142995_)))))) + _g80478_)))))) (define gx#stx-unwrap__% - (lambda (_stx138232_ _marks138233_) - (let _lp138235_ ((_e138237_ _stx138232_) - (_marks138238_ _marks138233_) - (_src138239_ (gx#stx-source _stx138232_))) - (if (##structure-direct-instance-of? _e138237_ 'gx#syntax-wrap::t) - (_lp138235_ - (##unchecked-structure-ref _e138237_ '1 gx#AST::t '#f) + (lambda (_stx80283_ _marks80284_) + (let _lp80286_ ((_e80288_ _stx80283_) + (_marks80289_ _marks80284_) + (_src80290_ (gx#stx-source _stx80283_))) + (if (##structure-direct-instance-of? _e80288_ 'gx#syntax-wrap::t) + (_lp80286_ + (##unchecked-structure-ref _e80288_ '1 gx#AST::t '#f) (gx#apply-mark - (##unchecked-structure-ref _e138237_ '3 gx#syntax-wrap::t '#f) - _marks138238_) - (##unchecked-structure-ref _e138237_ '2 gx#AST::t '#f)) + (##unchecked-structure-ref _e80288_ '3 gx#syntax-wrap::t '#f) + _marks80289_) + (##unchecked-structure-ref _e80288_ '2 gx#AST::t '#f)) (if (##structure-direct-instance-of? - _e138237_ + _e80288_ 'gx#identifier-wrap::t) - (if (null? _marks138238_) - _e138237_ + (if (null? _marks80289_) + _e80288_ (##structure gx#identifier-wrap::t - (##unchecked-structure-ref _e138237_ '1 gx#AST::t '#f) - (##unchecked-structure-ref _e138237_ '2 gx#AST::t '#f) + (##unchecked-structure-ref _e80288_ '1 gx#AST::t '#f) + (##unchecked-structure-ref _e80288_ '2 gx#AST::t '#f) (foldl1 gx#apply-mark (##unchecked-structure-ref - _e138237_ + _e80288_ '3 gx#identifier-wrap::t '#f) - _marks138238_))) + _marks80289_))) (if (##structure-direct-instance-of? - _e138237_ + _e80288_ 'gx#syntax-quote::t) - _e138237_ - (if (##structure-instance-of? _e138237_ 'gerbil#AST::t) - (_lp138235_ + _e80288_ + (if (##structure-instance-of? _e80288_ 'gerbil#AST::t) + (_lp80286_ (##unchecked-structure-ref - _e138237_ + _e80288_ '1 gx#AST::t '#f) - _marks138238_ + _marks80289_ (##unchecked-structure-ref - _e138237_ + _e80288_ '2 gx#AST::t '#f)) - (if (symbol? _e138237_) + (if (symbol? _e80288_) (##structure gx#identifier-wrap::t - _e138237_ - _src138239_ - (reverse _marks138238_)) - (if (null? _marks138238_) - _e138237_ - (if (pair? _e138237_) + _e80288_ + _src80290_ + (reverse _marks80289_)) + (if (null? _marks80289_) + _e80288_ + (if (pair? _e80288_) (cons (gx#stx-wrap - (car _e138237_) - _marks138238_) + (car _e80288_) + _marks80289_) (gx#stx-wrap - (cdr _e138237_) - _marks138238_)) - (if (vector? _e138237_) + (cdr _e80288_) + _marks80289_)) + (if (vector? _e80288_) (vector-map - (lambda (_g138240138242_) + (lambda (_g8029180293_) (gx#stx-wrap - _g138240138242_ - _marks138238_)) - _e138237_) - (if (box? _e138237_) + _g8029180293_ + _marks80289_)) + _e80288_) + (if (box? _e80288_) (box (gx#stx-wrap - (unbox _e138237_) - _marks138238_)) - _e138237_)))))))))))) + (unbox _e80288_) + _marks80289_)) + _e80288_)))))))))))) (define gx#stx-unwrap__0 - (lambda (_stx138248_) - (let ((_marks138250_ '())) - (gx#stx-unwrap__% _stx138248_ _marks138250_)))) + (lambda (_stx80299_) + (let ((_marks80301_ '())) (gx#stx-unwrap__% _stx80299_ _marks80301_)))) (define gx#stx-unwrap - (lambda _g142997_ - (let ((_g142996_ (##length _g142997_))) - (cond ((##fx= _g142996_ 1) - (apply (lambda (_stx138248_) (gx#stx-unwrap__0 _stx138248_)) - _g142997_)) - ((##fx= _g142996_ 2) - (apply (lambda (_stx138252_ _marks138253_) - (gx#stx-unwrap__% _stx138252_ _marks138253_)) - _g142997_)) + (lambda _g80480_ + (let ((_g80479_ (##length _g80480_))) + (cond ((##fx= _g80479_ 1) + (apply (lambda (_stx80299_) (gx#stx-unwrap__0 _stx80299_)) + _g80480_)) + ((##fx= _g80479_ 2) + (apply (lambda (_stx80303_ _marks80304_) + (gx#stx-unwrap__% _stx80303_ _marks80304_)) + _g80480_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-unwrap - _g142997_)))))) + _g80480_)))))) (define gx#stx-wrap - (lambda (_stx138225_ _marks138226_) - (foldl1 (lambda (_mark138228_ _stx138229_) - (gx#stx-apply-mark _stx138229_ _mark138228_)) - _stx138225_ - _marks138226_))) + (lambda (_stx80276_ _marks80277_) + (foldl1 (lambda (_mark80279_ _stx80280_) + (gx#stx-apply-mark _stx80280_ _mark80279_)) + _stx80276_ + _marks80277_))) (define gx#stx-rewrap - (lambda (_stx138219_ _marks138220_) - (foldr1 (lambda (_mark138222_ _stx138223_) - (gx#stx-apply-mark _stx138223_ _mark138222_)) - _stx138219_ - _marks138220_))) + (lambda (_stx80270_ _marks80271_) + (foldr1 (lambda (_mark80273_ _stx80274_) + (gx#stx-apply-mark _stx80274_ _mark80273_)) + _stx80270_ + _marks80271_))) (define gx#stx-apply-mark - (lambda (_stx138216_ _mark138217_) - (if (##structure-direct-instance-of? _stx138216_ 'gx#syntax-quote::t) - _stx138216_ + (lambda (_stx80267_ _mark80268_) + (if (##structure-direct-instance-of? _stx80267_ 'gx#syntax-quote::t) + _stx80267_ (if (and (##structure-direct-instance-of? - _stx138216_ + _stx80267_ 'gx#syntax-wrap::t) - (eq? _mark138217_ + (eq? _mark80268_ (##unchecked-structure-ref - _stx138216_ + _stx80267_ '3 gx#syntax-wrap::t '#f))) - (##unchecked-structure-ref _stx138216_ '1 gx#AST::t '#f) + (##unchecked-structure-ref _stx80267_ '1 gx#AST::t '#f) (##structure gx#syntax-wrap::t - _stx138216_ - (gx#stx-source _stx138216_) - _mark138217_))))) + _stx80267_ + (gx#stx-source _stx80267_) + _mark80268_))))) (define gx#apply-mark - (lambda (_mark138180_ _marks138181_) - (let* ((_marks138182138190_ _marks138181_) - (_else138184138198_ - (lambda () (cons _mark138180_ _marks138181_))) - (_K138186138204_ - (lambda (_rest138201_ _hd138202_) - (if (eq? _mark138180_ _hd138202_) - _rest138201_ - (cons _mark138180_ _marks138181_))))) - (if (##pair? _marks138182138190_) - (let ((_hd138187138207_ (##car _marks138182138190_)) - (_tl138188138209_ (##cdr _marks138182138190_))) - (let* ((_hd138212_ _hd138187138207_) - (_rest138214_ _tl138188138209_)) - (_K138186138204_ _rest138214_ _hd138212_))) - (_else138184138198_))))) + (lambda (_mark80231_ _marks80232_) + (let* ((_marks8023380241_ _marks80232_) + (_else8023580249_ (lambda () (cons _mark80231_ _marks80232_))) + (_K8023780255_ + (lambda (_rest80252_ _hd80253_) + (if (eq? _mark80231_ _hd80253_) + _rest80252_ + (cons _mark80231_ _marks80232_))))) + (if (##pair? _marks8023380241_) + (let ((_hd8023880258_ (##car _marks8023380241_)) + (_tl8023980260_ (##cdr _marks8023380241_))) + (let* ((_hd80263_ _hd8023880258_) (_rest80265_ _tl8023980260_)) + (_K8023780255_ _rest80265_ _hd80263_))) + (_else8023580249_))))) (define gx#stx-e - (lambda (_stx138178_) - (if (##structure-direct-instance-of? _stx138178_ 'gx#syntax-wrap::t) - (gx#stx-e (##unchecked-structure-ref _stx138178_ '1 gx#AST::t '#f)) - (if (##structure-instance-of? _stx138178_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx138178_ '1 gx#AST::t '#f) - _stx138178_)))) + (lambda (_stx80229_) + (if (##structure-direct-instance-of? _stx80229_ 'gx#syntax-wrap::t) + (gx#stx-e (##unchecked-structure-ref _stx80229_ '1 gx#AST::t '#f)) + (if (##structure-instance-of? _stx80229_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx80229_ '1 gx#AST::t '#f) + _stx80229_)))) (define gx#stx-source - (lambda (_stx138176_) - (if (##structure-instance-of? _stx138176_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx138176_ '2 gx#AST::t '#f) + (lambda (_stx80227_) + (if (##structure-instance-of? _stx80227_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx80227_ '2 gx#AST::t '#f) '#f))) (define gx#stx-wrap-source - (lambda (_stx138170_ _src138171_) - (if (or (##structure-instance-of? _stx138170_ 'gerbil#AST::t) - (not _src138171_)) - _stx138170_ - (##structure gx#AST::t _stx138170_ _src138171_)))) + (lambda (_stx80221_ _src80222_) + (if (or (##structure-instance-of? _stx80221_ 'gerbil#AST::t) + (not _src80222_)) + _stx80221_ + (##structure gx#AST::t _stx80221_ _src80222_)))) (define gx#stx-datum? - (lambda (_stx138168_) (gx#self-quoting? (gx#stx-e _stx138168_)))) + (lambda (_stx80219_) (gx#self-quoting? (gx#stx-e _stx80219_)))) (define gx#self-quoting? - (lambda (_x138151_) - (let ((_$e138153_ (immediate? _x138151_))) - (if _$e138153_ - _$e138153_ - (let ((_$e138156_ (number? _x138151_))) - (if _$e138156_ - _$e138156_ - (let ((_$e138159_ (keyword? _x138151_))) - (if _$e138159_ - _$e138159_ - (let ((_$e138162_ (string? _x138151_))) - (if _$e138162_ - _$e138162_ - (let ((_$e138165_ (vector? _x138151_))) - (if _$e138165_ - _$e138165_ - (u8vector? _x138151_))))))))))))) - (define gx#stx-boolean? - (lambda (_e138149_) (boolean? (gx#stx-e _e138149_)))) - (define gx#stx-keyword? - (lambda (_e138147_) (keyword? (gx#stx-e _e138147_)))) - (define gx#stx-char? (lambda (_e138145_) (char? (gx#stx-e _e138145_)))) - (define gx#stx-number? (lambda (_e138143_) (number? (gx#stx-e _e138143_)))) - (define gx#stx-fixnum? (lambda (_e138141_) (fixnum? (gx#stx-e _e138141_)))) - (define gx#stx-string? (lambda (_e138139_) (string? (gx#stx-e _e138139_)))) - (define gx#stx-null? (lambda (_e138137_) (null? (gx#stx-e _e138137_)))) - (define gx#stx-pair? (lambda (_e138135_) (pair? (gx#stx-e _e138135_)))) + (lambda (_x80202_) + (let ((_$e80204_ (immediate? _x80202_))) + (if _$e80204_ + _$e80204_ + (let ((_$e80207_ (number? _x80202_))) + (if _$e80207_ + _$e80207_ + (let ((_$e80210_ (keyword? _x80202_))) + (if _$e80210_ + _$e80210_ + (let ((_$e80213_ (string? _x80202_))) + (if _$e80213_ + _$e80213_ + (let ((_$e80216_ (vector? _x80202_))) + (if _$e80216_ + _$e80216_ + (u8vector? _x80202_))))))))))))) + (define gx#stx-boolean? (lambda (_e80200_) (boolean? (gx#stx-e _e80200_)))) + (define gx#stx-keyword? (lambda (_e80198_) (keyword? (gx#stx-e _e80198_)))) + (define gx#stx-char? (lambda (_e80196_) (char? (gx#stx-e _e80196_)))) + (define gx#stx-number? (lambda (_e80194_) (number? (gx#stx-e _e80194_)))) + (define gx#stx-fixnum? (lambda (_e80192_) (fixnum? (gx#stx-e _e80192_)))) + (define gx#stx-string? (lambda (_e80190_) (string? (gx#stx-e _e80190_)))) + (define gx#stx-null? (lambda (_e80188_) (null? (gx#stx-e _e80188_)))) + (define gx#stx-pair? (lambda (_e80186_) (pair? (gx#stx-e _e80186_)))) (define gx#stx-list? - (lambda (_e138097_) - (let* ((_g138098138107_ (gx#stx-e _e138097_)) - (_E138101138111_ - (lambda () (error '"No clause matching" _g138098138107_)))) - (let ((_K138103138127_ - (lambda (_rest138125_) (gx#stx-list? _rest138125_))) - (_K138102138117_ (lambda (_tail138115_) (null? _tail138115_)))) - (if (##pair? _g138098138107_) - (let* ((_tl138105138130_ (##cdr _g138098138107_)) - (_rest138133_ _tl138105138130_)) - (gx#stx-list? _rest138133_)) - (let ((_tail138120_ _g138098138107_)) - (null? _tail138120_))))))) + (lambda (_e80148_) + (let* ((_g8014980158_ (gx#stx-e _e80148_)) + (_E8015280162_ + (lambda () (error '"No clause matching" _g8014980158_)))) + (let ((_K8015480178_ + (lambda (_rest80176_) (gx#stx-list? _rest80176_))) + (_K8015380168_ (lambda (_tail80166_) (null? _tail80166_)))) + (if (##pair? _g8014980158_) + (let* ((_tl8015680181_ (##cdr _g8014980158_)) + (_rest80184_ _tl8015680181_)) + (gx#stx-list? _rest80184_)) + (let ((_tail80171_ _g8014980158_)) (null? _tail80171_))))))) (define gx#stx-pair/null? - (lambda (_e138090_) - (let* ((_e138092_ (gx#stx-e _e138090_)) (_$e138094_ (pair? _e138092_))) - (if _$e138094_ _$e138094_ (null? _e138092_))))) - (define gx#stx-vector? (lambda (_e138088_) (vector? (gx#stx-e _e138088_)))) - (define gx#stx-box? (lambda (_e138086_) (box? (gx#stx-e _e138086_)))) + (lambda (_e80141_) + (let* ((_e80143_ (gx#stx-e _e80141_)) (_$e80145_ (pair? _e80143_))) + (if _$e80145_ _$e80145_ (null? _e80143_))))) + (define gx#stx-vector? (lambda (_e80139_) (vector? (gx#stx-e _e80139_)))) + (define gx#stx-box? (lambda (_e80137_) (box? (gx#stx-e _e80137_)))) (define gx#stx-eq? - (lambda (_x138083_ _y138084_) - (eq? (gx#stx-e _x138083_) (gx#stx-e _y138084_)))) + (lambda (_x80134_ _y80135_) + (eq? (gx#stx-e _x80134_) (gx#stx-e _y80135_)))) (define gx#stx-eqv? - (lambda (_x138080_ _y138081_) - (eqv? (gx#stx-e _x138080_) (gx#stx-e _y138081_)))) + (lambda (_x80131_ _y80132_) + (eqv? (gx#stx-e _x80131_) (gx#stx-e _y80132_)))) (define gx#stx-equal? - (lambda (_x138077_ _y138078_) - (equal? (gx#stx-e _x138077_) (gx#stx-e _y138078_)))) - (define gx#stx-false? (lambda (_x138075_) (not (gx#stx-e _x138075_)))) + (lambda (_x80128_ _y80129_) + (equal? (gx#stx-e _x80128_) (gx#stx-e _y80129_)))) + (define gx#stx-false? (lambda (_x80126_) (not (gx#stx-e _x80126_)))) (define gx#stx-identifier - (lambda (_template138072_ . _args138073_) + (lambda (_template80123_ . _args80124_) (gx#datum->syntax__1 - _template138072_ - (apply make-symbol (gx#syntax->datum _args138073_)) - (gx#stx-source _template138072_)))) + _template80123_ + (apply make-symbol (gx#syntax->datum _args80124_)) + (gx#stx-source _template80123_)))) (define gx#stx-identifier-marks - (lambda (_stx138070_) - (gx#stx-identifier-marks* (gx#stx-unwrap__0 _stx138070_)))) + (lambda (_stx80121_) + (gx#stx-identifier-marks* (gx#stx-unwrap__0 _stx80121_)))) (define gx#stx-identifier-marks* - (lambda (_stx138068_) - (if (##structure-direct-instance-of? - _stx138068_ - 'gx#identifier-wrap::t) - (##unchecked-structure-ref - _stx138068_ - '3 - gx#identifier-wrap::t - '#f) + (lambda (_stx80119_) + (if (##structure-direct-instance-of? _stx80119_ 'gx#identifier-wrap::t) + (##unchecked-structure-ref _stx80119_ '3 gx#identifier-wrap::t '#f) (if (##structure-direct-instance-of? - _stx138068_ + _stx80119_ 'gx#syntax-quote::t) (##unchecked-structure-ref - _stx138068_ + _stx80119_ '4 gx#syntax-quote::t '#f) (error '"Bad wrap; expected unwrapped identifier" - _stx138068_))))) + _stx80119_))))) (define gx#stx-identifier-context - (lambda (_stx138064_) - (let ((_stx138066_ (gx#stx-unwrap__0 _stx138064_))) - (if (gx#identifier-quote? _stx138066_) - (##unchecked-structure-ref _stx138066_ '3 gx#syntax-quote::t '#f) + (lambda (_stx80115_) + (let ((_stx80117_ (gx#stx-unwrap__0 _stx80115_))) + (if (gx#identifier-quote? _stx80117_) + (##unchecked-structure-ref _stx80117_ '3 gx#syntax-quote::t '#f) '#f)))) (define gx#identifier-list? - (lambda (_stx138019_) - (let* ((_g138020138030_ (gx#stx-e _stx138019_)) - (_else138023138038_ (lambda () '#f))) - (let ((_K138026138052_ - (lambda (_rest138049_ _hd138050_) - (if (gx#identifier? _hd138050_) - (gx#identifier-list? _rest138049_) + (lambda (_stx80070_) + (let* ((_g8007180081_ (gx#stx-e _stx80070_)) + (_else8007480089_ (lambda () '#f))) + (let ((_K8007780103_ + (lambda (_rest80100_ _hd80101_) + (if (gx#identifier? _hd80101_) + (gx#identifier-list? _rest80100_) '#f))) - (_K138025138043_ (lambda () '#t))) - (let ((_try-match138022138046_ + (_K8007680094_ (lambda () '#t))) + (let ((_try-match8007380097_ (lambda () - (if (##null? _g138020138030_) - (_K138025138043_) - (_else138023138038_))))) - (if (##pair? _g138020138030_) - (let ((_tl138028138057_ (##cdr _g138020138030_)) - (_hd138027138055_ (##car _g138020138030_))) - (let ((_hd138060_ _hd138027138055_) - (_rest138062_ _tl138028138057_)) - (_K138026138052_ _rest138062_ _hd138060_))) - (_try-match138022138046_))))))) + (if (##null? _g8007180081_) + (_K8007680094_) + (_else8007480089_))))) + (if (##pair? _g8007180081_) + (let ((_tl8007980108_ (##cdr _g8007180081_)) + (_hd8007880106_ (##car _g8007180081_))) + (let ((_hd80111_ _hd8007880106_) + (_rest80113_ _tl8007980108_)) + (_K8007780103_ _rest80113_ _hd80111_))) + (_try-match8007380097_))))))) (define gx#genident__% - (lambda (_e137996_ _src137997_) + (lambda (_e80047_ _src80048_) (gx#stx-wrap-source - (gensym (let ((_e137999_ (gx#stx-e _e137996_))) - (if (interned-symbol? _e137999_) _e137999_ 'g))) - (let ((_$e138001_ (gx#stx-source _e137996_))) - (if _$e138001_ _$e138001_ _src137997_))))) + (gensym (let ((_e80050_ (gx#stx-e _e80047_))) + (if (interned-symbol? _e80050_) _e80050_ 'g))) + (let ((_$e80052_ (gx#stx-source _e80047_))) + (if _$e80052_ _$e80052_ _src80048_))))) (define gx#genident__0 (lambda () - (let* ((_e138008_ 'g) (_src138010_ '#f)) - (gx#genident__% _e138008_ _src138010_)))) + (let* ((_e80059_ 'g) (_src80061_ '#f)) + (gx#genident__% _e80059_ _src80061_)))) (define gx#genident__1 - (lambda (_e138012_) - (let ((_src138014_ '#f)) (gx#genident__% _e138012_ _src138014_)))) + (lambda (_e80063_) + (let ((_src80065_ '#f)) (gx#genident__% _e80063_ _src80065_)))) (define gx#genident - (lambda _g142999_ - (let ((_g142998_ (##length _g142999_))) - (cond ((##fx= _g142998_ 0) - (apply (lambda () (gx#genident__0)) _g142999_)) - ((##fx= _g142998_ 1) - (apply (lambda (_e138012_) (gx#genident__1 _e138012_)) - _g142999_)) - ((##fx= _g142998_ 2) - (apply (lambda (_e138016_ _src138017_) - (gx#genident__% _e138016_ _src138017_)) - _g142999_)) + (lambda _g80482_ + (let ((_g80481_ (##length _g80482_))) + (cond ((##fx= _g80481_ 0) + (apply (lambda () (gx#genident__0)) _g80482_)) + ((##fx= _g80481_ 1) + (apply (lambda (_e80063_) (gx#genident__1 _e80063_)) + _g80482_)) + ((##fx= _g80481_ 2) + (apply (lambda (_e80067_ _src80068_) + (gx#genident__% _e80067_ _src80068_)) + _g80482_)) (else (##raise-wrong-number-of-arguments-exception gx#genident - _g142999_)))))) + _g80482_)))))) (define gx#gentemps - (lambda (_stx-lst137993_) (gx#stx-map1 gx#genident _stx-lst137993_))) + (lambda (_stx-lst80044_) (gx#stx-map1 gx#genident _stx-lst80044_))) (define gx#syntax->list - (lambda (_stx137991_) (gx#stx-map1 values _stx137991_))) + (lambda (_stx80042_) (gx#stx-map1 values _stx80042_))) (define gx#stx-car - (lambda (_stx137988_) + (lambda (_stx80039_) (declare (safe)) - (car (let () (declare (not safe)) (gx#syntax-e _stx137988_))))) + (car (let () (declare (not safe)) (gx#syntax-e _stx80039_))))) (define gx#stx-cdr - (lambda (_stx137985_) + (lambda (_stx80036_) (declare (safe)) - (cdr (let () (declare (not safe)) (gx#syntax-e _stx137985_))))) + (cdr (let () (declare (not safe)) (gx#syntax-e _stx80036_))))) (define gx#stx-length - (lambda (_stx137950_) - (let _lp137952_ ((_rest137954_ _stx137950_) (_n137955_ '0)) - (let* ((_g137956137964_ (gx#stx-e _rest137954_)) - (_else137958137972_ (lambda () _n137955_)) - (_K137960137977_ - (lambda (_rest137975_) - (_lp137952_ _rest137975_ (fx+ _n137955_ '1))))) - (if (##pair? _g137956137964_) - (let* ((_tl137962137980_ (##cdr _g137956137964_)) - (_rest137983_ _tl137962137980_)) - (_K137960137977_ _rest137983_)) - (_else137958137972_)))))) + (lambda (_stx80001_) + (let _lp80003_ ((_rest80005_ _stx80001_) (_n80006_ '0)) + (let* ((_g8000780015_ (gx#stx-e _rest80005_)) + (_else8000980023_ (lambda () _n80006_)) + (_K8001180028_ + (lambda (_rest80026_) + (_lp80003_ _rest80026_ (fx+ _n80006_ '1))))) + (if (##pair? _g8000780015_) + (let* ((_tl8001380031_ (##cdr _g8000780015_)) + (_rest80034_ _tl8001380031_)) + (_K8001180028_ _rest80034_)) + (_else8000980023_)))))) (define gx#stx-for-each - (lambda _g143001_ - (let ((_g143000_ (##length _g143001_))) - (cond ((##fx= _g143000_ 2) - (apply (lambda (_f137943_ _stx137944_) - (gx#stx-for-each1 _f137943_ _stx137944_)) - _g143001_)) - ((##fx= _g143000_ 3) - (apply (lambda (_f137946_ _xstx137947_ _ystx137948_) - (gx#stx-for-each2 - _f137946_ - _xstx137947_ - _ystx137948_)) - _g143001_)) + (lambda _g80484_ + (let ((_g80483_ (##length _g80484_))) + (cond ((##fx= _g80483_ 2) + (apply (lambda (_f79994_ _stx79995_) + (gx#stx-for-each1 _f79994_ _stx79995_)) + _g80484_)) + ((##fx= _g80483_ 3) + (apply (lambda (_f79997_ _xstx79998_ _ystx79999_) + (gx#stx-for-each2 _f79997_ _xstx79998_ _ystx79999_)) + _g80484_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-for-each - _g143001_)))))) + _g80484_)))))) (define gx#stx-for-each1 - (lambda (_f137893_ _stx137894_) - (if (procedure? _f137893_) + (lambda (_f79944_ _stx79945_) + (if (procedure? _f79944_) '#!void - (error '"expected procedure" _f137893_)) - (let _lp137896_ ((_rest137898_ _stx137894_)) - (let* ((_g137899137909_ (gx#syntax-e _rest137898_)) - (_else137902137917_ (lambda () (_f137893_ _rest137898_)))) - (let ((_K137905137931_ - (lambda (_rest137928_ _hd137929_) - (_f137893_ _hd137929_) - (_lp137896_ _rest137928_))) - (_K137904137922_ (lambda () '#!void))) - (let ((_try-match137901137925_ + (error '"expected procedure" _f79944_)) + (let _lp79947_ ((_rest79949_ _stx79945_)) + (let* ((_g7995079960_ (gx#syntax-e _rest79949_)) + (_else7995379968_ (lambda () (_f79944_ _rest79949_)))) + (let ((_K7995679982_ + (lambda (_rest79979_ _hd79980_) + (_f79944_ _hd79980_) + (_lp79947_ _rest79979_))) + (_K7995579973_ (lambda () '#!void))) + (let ((_try-match7995279976_ (lambda () - (if (##null? _g137899137909_) - (_K137904137922_) - (_else137902137917_))))) - (if (##pair? _g137899137909_) - (let ((_tl137907137936_ (##cdr _g137899137909_)) - (_hd137906137934_ (##car _g137899137909_))) - (let ((_hd137939_ _hd137906137934_) - (_rest137941_ _tl137907137936_)) - (_K137905137931_ _rest137941_ _hd137939_))) - (_try-match137901137925_)))))))) + (if (##null? _g7995079960_) + (_K7995579973_) + (_else7995379968_))))) + (if (##pair? _g7995079960_) + (let ((_tl7995879987_ (##cdr _g7995079960_)) + (_hd7995779985_ (##car _g7995079960_))) + (let ((_hd79990_ _hd7995779985_) + (_rest79992_ _tl7995879987_)) + (_K7995679982_ _rest79992_ _hd79990_))) + (_try-match7995279976_)))))))) (define gx#stx-for-each2 - (lambda (_f137798_ _xstx137799_ _ystx137800_) - (if (procedure? _f137798_) + (lambda (_f79849_ _xstx79850_ _ystx79851_) + (if (procedure? _f79849_) '#!void - (error '"expected procedure" _f137798_)) - (let _lp137802_ ((_xrest137804_ _xstx137799_) - (_yrest137805_ _ystx137800_)) - (let* ((_g137806137816_ (gx#syntax-e _xrest137804_)) - (_else137809137824_ (lambda () '#!void))) - (let ((_K137812137881_ - (lambda (_xrest137850_ _xhd137851_) - (let* ((_g137852137859_ (gx#syntax-e _yrest137805_)) - (_E137854137863_ + (error '"expected procedure" _f79849_)) + (let _lp79853_ ((_xrest79855_ _xstx79850_) (_yrest79856_ _ystx79851_)) + (let* ((_g7985779867_ (gx#syntax-e _xrest79855_)) + (_else7986079875_ (lambda () '#!void))) + (let ((_K7986379932_ + (lambda (_xrest79901_ _xhd79902_) + (let* ((_g7990379910_ (gx#syntax-e _yrest79856_)) + (_E7990579914_ (lambda () - (error '"No clause matching" _g137852137859_))) - (_K137855137869_ - (lambda (_yrest137866_ _yhd137867_) - (_f137798_ _xhd137851_ _yhd137867_) - (_lp137802_ _xrest137850_ _yrest137866_)))) - (if (##pair? _g137852137859_) - (let ((_hd137856137872_ (##car _g137852137859_)) - (_tl137857137874_ (##cdr _g137852137859_))) - (let* ((_yhd137877_ _hd137856137872_) - (_yrest137879_ _tl137857137874_)) - (_K137855137869_ _yrest137879_ _yhd137877_))) - (_E137854137863_))))) - (_K137811137844_ + (error '"No clause matching" _g7990379910_))) + (_K7990679920_ + (lambda (_yrest79917_ _yhd79918_) + (_f79849_ _xhd79902_ _yhd79918_) + (_lp79853_ _xrest79901_ _yrest79917_)))) + (if (##pair? _g7990379910_) + (let ((_hd7990779923_ (##car _g7990379910_)) + (_tl7990879925_ (##cdr _g7990379910_))) + (let* ((_yhd79928_ _hd7990779923_) + (_yrest79930_ _tl7990879925_)) + (_K7990679920_ _yrest79930_ _yhd79928_))) + (_E7990579914_))))) + (_K7986279895_ (lambda () - (let* ((_yrest137828137833_ _yrest137805_) - (_E137830137837_ + (let* ((_yrest7987979884_ _yrest79856_) + (_E7988179888_ (lambda () (error '"No clause matching" - _yrest137828137833_))) - (_K137831137841_ - (lambda () - (_f137798_ _xrest137804_ _yrest137805_)))) - (if (not (gx#stx-null? _yrest137828137833_)) - (_K137831137841_) - (_E137830137837_)))))) - (let ((_try-match137808137847_ + _yrest7987979884_))) + (_K7988279892_ + (lambda () (_f79849_ _xrest79855_ _yrest79856_)))) + (if (not (gx#stx-null? _yrest7987979884_)) + (_K7988279892_) + (_E7988179888_)))))) + (let ((_try-match7985979898_ (lambda () - (if (not (null? _g137806137816_)) - (_K137811137844_) - (_else137809137824_))))) - (if (##pair? _g137806137816_) - (let ((_tl137814137886_ (##cdr _g137806137816_)) - (_hd137813137884_ (##car _g137806137816_))) - (let ((_xhd137889_ _hd137813137884_) - (_xrest137891_ _tl137814137886_)) - (_K137812137881_ _xrest137891_ _xhd137889_))) - (_try-match137808137847_)))))))) + (if (not (null? _g7985779867_)) + (_K7986279895_) + (_else7986079875_))))) + (if (##pair? _g7985779867_) + (let ((_tl7986579937_ (##cdr _g7985779867_)) + (_hd7986479935_ (##car _g7985779867_))) + (let ((_xhd79940_ _hd7986479935_) + (_xrest79942_ _tl7986579937_)) + (_K7986379932_ _xrest79942_ _xhd79940_))) + (_try-match7985979898_)))))))) (define gx#stx-map - (lambda _g143003_ - (let ((_g143002_ (##length _g143003_))) - (cond ((##fx= _g143002_ 2) - (apply (lambda (_f137791_ _stx137792_) - (gx#stx-map1 _f137791_ _stx137792_)) - _g143003_)) - ((##fx= _g143002_ 3) - (apply (lambda (_f137794_ _xstx137795_ _ystx137796_) - (gx#stx-map2 _f137794_ _xstx137795_ _ystx137796_)) - _g143003_)) + (lambda _g80486_ + (let ((_g80485_ (##length _g80486_))) + (cond ((##fx= _g80485_ 2) + (apply (lambda (_f79842_ _stx79843_) + (gx#stx-map1 _f79842_ _stx79843_)) + _g80486_)) + ((##fx= _g80485_ 3) + (apply (lambda (_f79845_ _xstx79846_ _ystx79847_) + (gx#stx-map2 _f79845_ _xstx79846_ _ystx79847_)) + _g80486_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-map - _g143003_)))))) + _g80486_)))))) (define gx#stx-map1 - (lambda (_f137741_ _stx137742_) - (if (procedure? _f137741_) + (lambda (_f79792_ _stx79793_) + (if (procedure? _f79792_) '#!void - (error '"expected procedure" _f137741_)) - (let _recur137744_ ((_rest137746_ _stx137742_)) - (let* ((_g137747137757_ (gx#syntax-e _rest137746_)) - (_else137750137765_ (lambda () (_f137741_ _rest137746_)))) - (let ((_K137753137779_ - (lambda (_rest137776_ _hd137777_) - (cons (_f137741_ _hd137777_) - (_recur137744_ _rest137776_)))) - (_K137752137770_ (lambda () '()))) - (let ((_try-match137749137773_ + (error '"expected procedure" _f79792_)) + (let _recur79795_ ((_rest79797_ _stx79793_)) + (let* ((_g7979879808_ (gx#syntax-e _rest79797_)) + (_else7980179816_ (lambda () (_f79792_ _rest79797_)))) + (let ((_K7980479830_ + (lambda (_rest79827_ _hd79828_) + (cons (_f79792_ _hd79828_) (_recur79795_ _rest79827_)))) + (_K7980379821_ (lambda () '()))) + (let ((_try-match7980079824_ (lambda () - (if (##null? _g137747137757_) - (_K137752137770_) - (_else137750137765_))))) - (if (##pair? _g137747137757_) - (let ((_tl137755137784_ (##cdr _g137747137757_)) - (_hd137754137782_ (##car _g137747137757_))) - (let ((_hd137787_ _hd137754137782_) - (_rest137789_ _tl137755137784_)) - (_K137753137779_ _rest137789_ _hd137787_))) - (_try-match137749137773_)))))))) + (if (##null? _g7979879808_) + (_K7980379821_) + (_else7980179816_))))) + (if (##pair? _g7979879808_) + (let ((_tl7980679835_ (##cdr _g7979879808_)) + (_hd7980579833_ (##car _g7979879808_))) + (let ((_hd79838_ _hd7980579833_) + (_rest79840_ _tl7980679835_)) + (_K7980479830_ _rest79840_ _hd79838_))) + (_try-match7980079824_)))))))) (define gx#stx-map2 - (lambda (_f137646_ _xstx137647_ _ystx137648_) - (if (procedure? _f137646_) + (lambda (_f79697_ _xstx79698_ _ystx79699_) + (if (procedure? _f79697_) '#!void - (error '"expected procedure" _f137646_)) - (let _recur137650_ ((_xrest137652_ _xstx137647_) - (_yrest137653_ _ystx137648_)) - (let* ((_g137654137664_ (gx#syntax-e _xrest137652_)) - (_else137657137672_ (lambda () '()))) - (let ((_K137660137729_ - (lambda (_xrest137698_ _xhd137699_) - (let* ((_g137700137707_ (gx#syntax-e _yrest137653_)) - (_E137702137711_ + (error '"expected procedure" _f79697_)) + (let _recur79701_ ((_xrest79703_ _xstx79698_) + (_yrest79704_ _ystx79699_)) + (let* ((_g7970579715_ (gx#syntax-e _xrest79703_)) + (_else7970879723_ (lambda () '()))) + (let ((_K7971179780_ + (lambda (_xrest79749_ _xhd79750_) + (let* ((_g7975179758_ (gx#syntax-e _yrest79704_)) + (_E7975379762_ (lambda () - (error '"No clause matching" _g137700137707_))) - (_K137703137717_ - (lambda (_yrest137714_ _yhd137715_) - (cons (_f137646_ _xhd137699_ _yhd137715_) - (_recur137650_ - _xrest137698_ - _yrest137714_))))) - (if (##pair? _g137700137707_) - (let ((_hd137704137720_ (##car _g137700137707_)) - (_tl137705137722_ (##cdr _g137700137707_))) - (let* ((_yhd137725_ _hd137704137720_) - (_yrest137727_ _tl137705137722_)) - (_K137703137717_ _yrest137727_ _yhd137725_))) - (_E137702137711_))))) - (_K137659137692_ + (error '"No clause matching" _g7975179758_))) + (_K7975479768_ + (lambda (_yrest79765_ _yhd79766_) + (cons (_f79697_ _xhd79750_ _yhd79766_) + (_recur79701_ + _xrest79749_ + _yrest79765_))))) + (if (##pair? _g7975179758_) + (let ((_hd7975579771_ (##car _g7975179758_)) + (_tl7975679773_ (##cdr _g7975179758_))) + (let* ((_yhd79776_ _hd7975579771_) + (_yrest79778_ _tl7975679773_)) + (_K7975479768_ _yrest79778_ _yhd79776_))) + (_E7975379762_))))) + (_K7971079743_ (lambda () - (let* ((_yrest137676137681_ _yrest137653_) - (_E137678137685_ + (let* ((_yrest7972779732_ _yrest79704_) + (_E7972979736_ (lambda () (error '"No clause matching" - _yrest137676137681_))) - (_K137679137689_ - (lambda () - (_f137646_ _xrest137652_ _yrest137653_)))) - (if (not (gx#stx-null? _yrest137676137681_)) - (_K137679137689_) - (_E137678137685_)))))) - (let ((_try-match137656137695_ + _yrest7972779732_))) + (_K7973079740_ + (lambda () (_f79697_ _xrest79703_ _yrest79704_)))) + (if (not (gx#stx-null? _yrest7972779732_)) + (_K7973079740_) + (_E7972979736_)))))) + (let ((_try-match7970779746_ (lambda () - (if (not (null? _g137654137664_)) - (_K137659137692_) - (_else137657137672_))))) - (if (##pair? _g137654137664_) - (let ((_tl137662137734_ (##cdr _g137654137664_)) - (_hd137661137732_ (##car _g137654137664_))) - (let ((_xhd137737_ _hd137661137732_) - (_xrest137739_ _tl137662137734_)) - (_K137660137729_ _xrest137739_ _xhd137737_))) - (_try-match137656137695_)))))))) + (if (not (null? _g7970579715_)) + (_K7971079743_) + (_else7970879723_))))) + (if (##pair? _g7970579715_) + (let ((_tl7971379785_ (##cdr _g7970579715_)) + (_hd7971279783_ (##car _g7970579715_))) + (let ((_xhd79788_ _hd7971279783_) + (_xrest79790_ _tl7971379785_)) + (_K7971179780_ _xrest79790_ _xhd79788_))) + (_try-match7970779746_)))))))) (define gx#stx-andmap - (lambda (_f137596_ _stx137597_) - (if (procedure? _f137596_) + (lambda (_f79647_ _stx79648_) + (if (procedure? _f79647_) '#!void - (error '"expected procedure" _f137596_)) - (let _lp137599_ ((_rest137601_ _stx137597_)) - (let* ((_g137602137612_ (gx#syntax-e _rest137601_)) - (_else137605137620_ (lambda () (_f137596_ _rest137601_)))) - (let ((_K137608137634_ - (lambda (_rest137631_ _hd137632_) - (if (_f137596_ _hd137632_) - (_lp137599_ _rest137631_) - '#f))) - (_K137607137625_ (lambda () '#t))) - (let ((_try-match137604137628_ + (error '"expected procedure" _f79647_)) + (let _lp79650_ ((_rest79652_ _stx79648_)) + (let* ((_g7965379663_ (gx#syntax-e _rest79652_)) + (_else7965679671_ (lambda () (_f79647_ _rest79652_)))) + (let ((_K7965979685_ + (lambda (_rest79682_ _hd79683_) + (if (_f79647_ _hd79683_) (_lp79650_ _rest79682_) '#f))) + (_K7965879676_ (lambda () '#t))) + (let ((_try-match7965579679_ (lambda () - (if (##null? _g137602137612_) - (_K137607137625_) - (_else137605137620_))))) - (if (##pair? _g137602137612_) - (let ((_tl137610137639_ (##cdr _g137602137612_)) - (_hd137609137637_ (##car _g137602137612_))) - (let ((_hd137642_ _hd137609137637_) - (_rest137644_ _tl137610137639_)) - (_K137608137634_ _rest137644_ _hd137642_))) - (_try-match137604137628_)))))))) + (if (##null? _g7965379663_) + (_K7965879676_) + (_else7965679671_))))) + (if (##pair? _g7965379663_) + (let ((_tl7966179690_ (##cdr _g7965379663_)) + (_hd7966079688_ (##car _g7965379663_))) + (let ((_hd79693_ _hd7966079688_) + (_rest79695_ _tl7966179690_)) + (_K7965979685_ _rest79695_ _hd79693_))) + (_try-match7965579679_)))))))) (define gx#stx-ormap - (lambda (_f137543_ _stx137544_) - (if (procedure? _f137543_) + (lambda (_f79594_ _stx79595_) + (if (procedure? _f79594_) '#!void - (error '"expected procedure" _f137543_)) - (let _lp137546_ ((_rest137548_ _stx137544_)) - (let* ((_g137549137559_ (gx#syntax-e _rest137548_)) - (_else137552137567_ (lambda () (_f137543_ _rest137548_)))) - (let ((_K137555137584_ - (lambda (_rest137578_ _hd137579_) - (let ((_$e137581_ (_f137543_ _hd137579_))) - (if _$e137581_ _$e137581_ (_lp137546_ _rest137578_))))) - (_K137554137572_ (lambda () '#f))) - (let ((_try-match137551137575_ + (error '"expected procedure" _f79594_)) + (let _lp79597_ ((_rest79599_ _stx79595_)) + (let* ((_g7960079610_ (gx#syntax-e _rest79599_)) + (_else7960379618_ (lambda () (_f79594_ _rest79599_)))) + (let ((_K7960679635_ + (lambda (_rest79629_ _hd79630_) + (let ((_$e79632_ (_f79594_ _hd79630_))) + (if _$e79632_ _$e79632_ (_lp79597_ _rest79629_))))) + (_K7960579623_ (lambda () '#f))) + (let ((_try-match7960279626_ (lambda () - (if (##null? _g137549137559_) - (_K137554137572_) - (_else137552137567_))))) - (if (##pair? _g137549137559_) - (let ((_tl137557137589_ (##cdr _g137549137559_)) - (_hd137556137587_ (##car _g137549137559_))) - (let ((_hd137592_ _hd137556137587_) - (_rest137594_ _tl137557137589_)) - (_K137555137584_ _rest137594_ _hd137592_))) - (_try-match137551137575_)))))))) + (if (##null? _g7960079610_) + (_K7960579623_) + (_else7960379618_))))) + (if (##pair? _g7960079610_) + (let ((_tl7960879640_ (##cdr _g7960079610_)) + (_hd7960779638_ (##car _g7960079610_))) + (let ((_hd79643_ _hd7960779638_) + (_rest79645_ _tl7960879640_)) + (_K7960679635_ _rest79645_ _hd79643_))) + (_try-match7960279626_)))))))) (define gx#stx-foldl - (lambda (_f137491_ _iv137492_ _stx137493_) - (if (procedure? _f137491_) + (lambda (_f79542_ _iv79543_ _stx79544_) + (if (procedure? _f79542_) '#!void - (error '"expected procedure" _f137491_)) - (let _lp137495_ ((_r137497_ _iv137492_) (_rest137498_ _stx137493_)) - (let* ((_g137499137509_ (gx#syntax-e _rest137498_)) - (_else137502137517_ - (lambda () (_f137491_ _rest137498_ _r137497_)))) - (let ((_K137505137531_ - (lambda (_rest137528_ _hd137529_) - (_lp137495_ - (_f137491_ _hd137529_ _r137497_) - _rest137528_))) - (_K137504137522_ (lambda () _r137497_))) - (let ((_try-match137501137525_ + (error '"expected procedure" _f79542_)) + (let _lp79546_ ((_r79548_ _iv79543_) (_rest79549_ _stx79544_)) + (let* ((_g7955079560_ (gx#syntax-e _rest79549_)) + (_else7955379568_ + (lambda () (_f79542_ _rest79549_ _r79548_)))) + (let ((_K7955679582_ + (lambda (_rest79579_ _hd79580_) + (_lp79546_ (_f79542_ _hd79580_ _r79548_) _rest79579_))) + (_K7955579573_ (lambda () _r79548_))) + (let ((_try-match7955279576_ (lambda () - (if (##null? _g137499137509_) - (_K137504137522_) - (_else137502137517_))))) - (if (##pair? _g137499137509_) - (let ((_tl137507137536_ (##cdr _g137499137509_)) - (_hd137506137534_ (##car _g137499137509_))) - (let ((_hd137539_ _hd137506137534_) - (_rest137541_ _tl137507137536_)) - (_K137505137531_ _rest137541_ _hd137539_))) - (_try-match137501137525_)))))))) + (if (##null? _g7955079560_) + (_K7955579573_) + (_else7955379568_))))) + (if (##pair? _g7955079560_) + (let ((_tl7955879587_ (##cdr _g7955079560_)) + (_hd7955779585_ (##car _g7955079560_))) + (let ((_hd79590_ _hd7955779585_) + (_rest79592_ _tl7955879587_)) + (_K7955679582_ _rest79592_ _hd79590_))) + (_try-match7955279576_)))))))) (define gx#stx-foldr - (lambda (_f137440_ _iv137441_ _stx137442_) - (if (procedure? _f137440_) + (lambda (_f79491_ _iv79492_ _stx79493_) + (if (procedure? _f79491_) '#!void - (error '"expected procedure" _f137440_)) - (let _recur137444_ ((_rest137446_ _stx137442_)) - (let* ((_g137447137457_ (gx#syntax-e _rest137446_)) - (_else137450137465_ - (lambda () (_f137440_ _rest137446_ _iv137441_)))) - (let ((_K137453137479_ - (lambda (_rest137476_ _hd137477_) - (_f137440_ _hd137477_ (_recur137444_ _rest137476_)))) - (_K137452137470_ (lambda () _iv137441_))) - (let ((_try-match137449137473_ + (error '"expected procedure" _f79491_)) + (let _recur79495_ ((_rest79497_ _stx79493_)) + (let* ((_g7949879508_ (gx#syntax-e _rest79497_)) + (_else7950179516_ + (lambda () (_f79491_ _rest79497_ _iv79492_)))) + (let ((_K7950479530_ + (lambda (_rest79527_ _hd79528_) + (_f79491_ _hd79528_ (_recur79495_ _rest79527_)))) + (_K7950379521_ (lambda () _iv79492_))) + (let ((_try-match7950079524_ (lambda () - (if (##null? _g137447137457_) - (_K137452137470_) - (_else137450137465_))))) - (if (##pair? _g137447137457_) - (let ((_tl137455137484_ (##cdr _g137447137457_)) - (_hd137454137482_ (##car _g137447137457_))) - (let ((_hd137487_ _hd137454137482_) - (_rest137489_ _tl137455137484_)) - (_K137453137479_ _rest137489_ _hd137487_))) - (_try-match137449137473_)))))))) + (if (##null? _g7949879508_) + (_K7950379521_) + (_else7950179516_))))) + (if (##pair? _g7949879508_) + (let ((_tl7950679535_ (##cdr _g7949879508_)) + (_hd7950579533_ (##car _g7949879508_))) + (let ((_hd79538_ _hd7950579533_) + (_rest79540_ _tl7950679535_)) + (_K7950479530_ _rest79540_ _hd79538_))) + (_try-match7950079524_)))))))) (define gx#stx-reverse - (lambda (_stx137438_) (gx#stx-foldl cons '() _stx137438_))) + (lambda (_stx79489_) (gx#stx-foldl cons '() _stx79489_))) (define gx#stx-last - (lambda (_stx137399_) - (let _lp137401_ ((_rest137403_ _stx137399_)) - (let* ((_g137404137412_ (gx#syntax-e _rest137403_)) - (_else137406137420_ (lambda () _rest137403_)) - (_K137408137426_ - (lambda (_rest137423_ _hd137424_) - (if (gx#stx-null? _rest137423_) - _hd137424_ - (_lp137401_ _rest137423_))))) - (if (##pair? _g137404137412_) - (let ((_hd137409137429_ (##car _g137404137412_)) - (_tl137410137431_ (##cdr _g137404137412_))) - (let* ((_hd137434_ _hd137409137429_) - (_rest137436_ _tl137410137431_)) - (_K137408137426_ _rest137436_ _hd137434_))) - (_else137406137420_)))))) + (lambda (_stx79450_) + (let _lp79452_ ((_rest79454_ _stx79450_)) + (let* ((_g7945579463_ (gx#syntax-e _rest79454_)) + (_else7945779471_ (lambda () _rest79454_)) + (_K7945979477_ + (lambda (_rest79474_ _hd79475_) + (if (gx#stx-null? _rest79474_) + _hd79475_ + (_lp79452_ _rest79474_))))) + (if (##pair? _g7945579463_) + (let ((_hd7946079480_ (##car _g7945579463_)) + (_tl7946179482_ (##cdr _g7945579463_))) + (let* ((_hd79485_ _hd7946079480_) + (_rest79487_ _tl7946179482_)) + (_K7945979477_ _rest79487_ _hd79485_))) + (_else7945779471_)))))) (define gx#stx-last-pair - (lambda (_stx137370_) - (let _lp137372_ ((_hd137374_ _stx137370_)) - (let* ((_g137375137382_ (gx#syntax-e _hd137374_)) - (_E137377137386_ - (lambda () (error '"No clause matching" _g137375137382_))) - (_K137378137391_ - (lambda (_rest137389_) - (if (gx#stx-pair? _rest137389_) - (_lp137372_ _rest137389_) - _hd137374_)))) - (if (##pair? _g137375137382_) - (let* ((_tl137380137394_ (##cdr _g137375137382_)) - (_rest137397_ _tl137380137394_)) - (_K137378137391_ _rest137397_)) - (_E137377137386_)))))) + (lambda (_stx79421_) + (let _lp79423_ ((_hd79425_ _stx79421_)) + (let* ((_g7942679433_ (gx#syntax-e _hd79425_)) + (_E7942879437_ + (lambda () (error '"No clause matching" _g7942679433_))) + (_K7942979442_ + (lambda (_rest79440_) + (if (gx#stx-pair? _rest79440_) + (_lp79423_ _rest79440_) + _hd79425_)))) + (if (##pair? _g7942679433_) + (let* ((_tl7943179445_ (##cdr _g7942679433_)) + (_rest79448_ _tl7943179445_)) + (_K7942979442_ _rest79448_)) + (_E7942879437_)))))) (define gx#stx-list-tail - (lambda (_stx137339_ _k137340_) - (let _lp137342_ ((_rest137344_ _stx137339_) (_k137345_ _k137340_)) - (if (fxpositive? _k137345_) - (let* ((_g137346137353_ (gx#syntax-e _rest137344_)) - (_E137348137357_ - (lambda () - (error '"No clause matching" _g137346137353_))) - (_K137349137362_ - (lambda (_rest137360_) - (_lp137342_ _rest137360_ (fx- _k137345_ '1))))) - (if (##pair? _g137346137353_) - (let* ((_tl137351137365_ (##cdr _g137346137353_)) - (_rest137368_ _tl137351137365_)) - (_K137349137362_ _rest137368_)) - (_E137348137357_))) - _rest137344_)))) + (lambda (_stx79390_ _k79391_) + (let _lp79393_ ((_rest79395_ _stx79390_) (_k79396_ _k79391_)) + (if (fxpositive? _k79396_) + (let* ((_g7939779404_ (gx#syntax-e _rest79395_)) + (_E7939979408_ + (lambda () (error '"No clause matching" _g7939779404_))) + (_K7940079413_ + (lambda (_rest79411_) + (_lp79393_ _rest79411_ (fx- _k79396_ '1))))) + (if (##pair? _g7939779404_) + (let* ((_tl7940279416_ (##cdr _g7939779404_)) + (_rest79419_ _tl7940279416_)) + (_K7940079413_ _rest79419_)) + (_E7939979408_))) + _rest79395_)))) (define gx#stx-list-ref - (lambda (_stx137336_ _k137337_) - (gx#stx-car (gx#stx-list-tail _stx137336_ _k137337_)))) + (lambda (_stx79387_ _k79388_) + (gx#stx-car (gx#stx-list-tail _stx79387_ _k79388_)))) (define gx#stx-plist?__% - (lambda (_stx137248_ _key?137249_) - (if (procedure? _key?137249_) + (lambda (_stx79299_ _key?79300_) + (if (procedure? _key?79300_) '#!void - (error '"expected procedure" _key?137249_)) - (let _lp137251_ ((_rest137253_ _stx137248_)) - (let* ((_g137254137264_ (gx#stx-e _rest137253_)) - (_else137257137272_ (lambda () '#f))) - (let ((_K137260137314_ - (lambda (_rest137283_ _hd137284_) - (if (_key?137249_ _hd137284_) - (let* ((_g137285137293_ (gx#stx-e _rest137283_)) - (_else137287137301_ (lambda () '#f)) - (_K137289137306_ - (lambda (_rest137304_) - (_lp137251_ _rest137304_)))) - (if (##pair? _g137285137293_) - (let* ((_tl137291137309_ - (##cdr _g137285137293_)) - (_rest137312_ _tl137291137309_)) - (_lp137251_ _rest137312_)) - (_else137287137301_))) + (error '"expected procedure" _key?79300_)) + (let _lp79302_ ((_rest79304_ _stx79299_)) + (let* ((_g7930579315_ (gx#stx-e _rest79304_)) + (_else7930879323_ (lambda () '#f))) + (let ((_K7931179365_ + (lambda (_rest79334_ _hd79335_) + (if (_key?79300_ _hd79335_) + (let* ((_g7933679344_ (gx#stx-e _rest79334_)) + (_else7933879352_ (lambda () '#f)) + (_K7934079357_ + (lambda (_rest79355_) + (_lp79302_ _rest79355_)))) + (if (##pair? _g7933679344_) + (let* ((_tl7934279360_ (##cdr _g7933679344_)) + (_rest79363_ _tl7934279360_)) + (_lp79302_ _rest79363_)) + (_else7933879352_))) '#f))) - (_K137259137277_ (lambda () '#t))) - (let ((_try-match137256137280_ + (_K7931079328_ (lambda () '#t))) + (let ((_try-match7930779331_ (lambda () - (if (##null? _g137254137264_) - (_K137259137277_) - (_else137257137272_))))) - (if (##pair? _g137254137264_) - (let ((_tl137262137319_ (##cdr _g137254137264_)) - (_hd137261137317_ (##car _g137254137264_))) - (let ((_hd137322_ _hd137261137317_) - (_rest137324_ _tl137262137319_)) - (_K137260137314_ _rest137324_ _hd137322_))) - (_try-match137256137280_)))))))) + (if (##null? _g7930579315_) + (_K7931079328_) + (_else7930879323_))))) + (if (##pair? _g7930579315_) + (let ((_tl7931379370_ (##cdr _g7930579315_)) + (_hd7931279368_ (##car _g7930579315_))) + (let ((_hd79373_ _hd7931279368_) + (_rest79375_ _tl7931379370_)) + (_K7931179365_ _rest79375_ _hd79373_))) + (_try-match7930779331_)))))))) (define gx#stx-plist?__0 - (lambda (_stx137329_) - (let ((_key?137331_ gx#stx-keyword?)) - (gx#stx-plist?__% _stx137329_ _key?137331_)))) + (lambda (_stx79380_) + (let ((_key?79382_ gx#stx-keyword?)) + (gx#stx-plist?__% _stx79380_ _key?79382_)))) (define gx#stx-plist? - (lambda _g143005_ - (let ((_g143004_ (##length _g143005_))) - (cond ((##fx= _g143004_ 1) - (apply (lambda (_stx137329_) (gx#stx-plist?__0 _stx137329_)) - _g143005_)) - ((##fx= _g143004_ 2) - (apply (lambda (_stx137333_ _key?137334_) - (gx#stx-plist?__% _stx137333_ _key?137334_)) - _g143005_)) + (lambda _g80488_ + (let ((_g80487_ (##length _g80488_))) + (cond ((##fx= _g80487_ 1) + (apply (lambda (_stx79380_) (gx#stx-plist?__0 _stx79380_)) + _g80488_)) + ((##fx= _g80487_ 2) + (apply (lambda (_stx79384_ _key?79385_) + (gx#stx-plist?__% _stx79384_ _key?79385_)) + _g80488_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-plist? - _g143005_)))))) + _g80488_)))))) (define gx#stx-getq__% - (lambda (_key137166_ _stx137167_ _key=?137168_) - (if (procedure? _key=?137168_) + (lambda (_key79217_ _stx79218_ _key=?79219_) + (if (procedure? _key=?79219_) '#!void - (error '"expected procedure" _key=?137168_)) - (let _lp137170_ ((_rest137172_ _stx137167_)) - (let* ((_g137173137181_ (gx#syntax-e _rest137172_)) - (_else137175137189_ (lambda () '#f)) - (_K137177137223_ - (lambda (_rest137192_ _hd137193_) - (let* ((_g137194137201_ (gx#syntax-e _rest137192_)) - (_E137196137205_ + (error '"expected procedure" _key=?79219_)) + (let _lp79221_ ((_rest79223_ _stx79218_)) + (let* ((_g7922479232_ (gx#syntax-e _rest79223_)) + (_else7922679240_ (lambda () '#f)) + (_K7922879274_ + (lambda (_rest79243_ _hd79244_) + (let* ((_g7924579252_ (gx#syntax-e _rest79243_)) + (_E7924779256_ (lambda () - (error '"No clause matching" _g137194137201_))) - (_K137197137211_ - (lambda (_rest137208_ _val137209_) - (if (_key=?137168_ _hd137193_ _key137166_) - _val137209_ - (_lp137170_ _rest137208_))))) - (if (##pair? _g137194137201_) - (let ((_hd137198137214_ (##car _g137194137201_)) - (_tl137199137216_ (##cdr _g137194137201_))) - (let* ((_val137219_ _hd137198137214_) - (_rest137221_ _tl137199137216_)) - (_K137197137211_ _rest137221_ _val137219_))) - (_E137196137205_)))))) - (if (##pair? _g137173137181_) - (let ((_hd137178137226_ (##car _g137173137181_)) - (_tl137179137228_ (##cdr _g137173137181_))) - (let* ((_hd137231_ _hd137178137226_) - (_rest137233_ _tl137179137228_)) - (_K137177137223_ _rest137233_ _hd137231_))) - (_else137175137189_)))))) + (error '"No clause matching" _g7924579252_))) + (_K7924879262_ + (lambda (_rest79259_ _val79260_) + (if (_key=?79219_ _hd79244_ _key79217_) + _val79260_ + (_lp79221_ _rest79259_))))) + (if (##pair? _g7924579252_) + (let ((_hd7924979265_ (##car _g7924579252_)) + (_tl7925079267_ (##cdr _g7924579252_))) + (let* ((_val79270_ _hd7924979265_) + (_rest79272_ _tl7925079267_)) + (_K7924879262_ _rest79272_ _val79270_))) + (_E7924779256_)))))) + (if (##pair? _g7922479232_) + (let ((_hd7922979277_ (##car _g7922479232_)) + (_tl7923079279_ (##cdr _g7922479232_))) + (let* ((_hd79282_ _hd7922979277_) + (_rest79284_ _tl7923079279_)) + (_K7922879274_ _rest79284_ _hd79282_))) + (_else7922679240_)))))) (define gx#stx-getq__0 - (lambda (_key137238_ _stx137239_) - (let ((_key=?137241_ gx#stx-eq?)) - (gx#stx-getq__% _key137238_ _stx137239_ _key=?137241_)))) + (lambda (_key79289_ _stx79290_) + (let ((_key=?79292_ gx#stx-eq?)) + (gx#stx-getq__% _key79289_ _stx79290_ _key=?79292_)))) (define gx#stx-getq - (lambda _g143007_ - (let ((_g143006_ (##length _g143007_))) - (cond ((##fx= _g143006_ 2) - (apply (lambda (_key137238_ _stx137239_) - (gx#stx-getq__0 _key137238_ _stx137239_)) - _g143007_)) - ((##fx= _g143006_ 3) - (apply (lambda (_key137243_ _stx137244_ _key=?137245_) - (gx#stx-getq__% - _key137243_ - _stx137244_ - _key=?137245_)) - _g143007_)) + (lambda _g80490_ + (let ((_g80489_ (##length _g80490_))) + (cond ((##fx= _g80489_ 2) + (apply (lambda (_key79289_ _stx79290_) + (gx#stx-getq__0 _key79289_ _stx79290_)) + _g80490_)) + ((##fx= _g80489_ 3) + (apply (lambda (_key79294_ _stx79295_ _key=?79296_) + (gx#stx-getq__% _key79294_ _stx79295_ _key=?79296_)) + _g80490_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-getq - _g143007_)))))))) + _g80490_)))))))) diff --git a/src/bootstrap/gerbil/expander/stx__1.scm b/src/bootstrap/gerbil/expander/stx__1.scm index a6a8e61c2..b96504112 100644 --- a/src/bootstrap/gerbil/expander/stx__1.scm +++ b/src/bootstrap/gerbil/expander/stx__1.scm @@ -1,344 +1,344 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gx[1]#_g143010_| + (define |gx[1]#_g80493_| (##structure gx#syntax-quote::t 'AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g143012_| + (define |gx[1]#_g80495_| (##structure gx#syntax-quote::t 'identifier-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g143014_| + (define |gx[1]#_g80497_| (##structure gx#syntax-quote::t 'make-identifier-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g143016_| + (define |gx[1]#_g80499_| (##structure gx#syntax-quote::t 'identifier-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g143022_| + (define |gx[1]#_g80505_| (##structure gx#syntax-quote::t 'identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g143025_| + (define |gx[1]#_g80508_| (##structure gx#syntax-quote::t 'identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g143028_| + (define |gx[1]#_g80511_| (##structure gx#syntax-quote::t 'identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g143034_| + (define |gx[1]#_g80517_| (##structure gx#syntax-quote::t 'identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143037_| + (define |gx[1]#_g80520_| (##structure gx#syntax-quote::t 'identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143040_| + (define |gx[1]#_g80523_| (##structure gx#syntax-quote::t 'identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143046_| + (define |gx[1]#_g80529_| (##structure gx#syntax-quote::t '&identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g143049_| + (define |gx[1]#_g80532_| (##structure gx#syntax-quote::t '&identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g143052_| + (define |gx[1]#_g80535_| (##structure gx#syntax-quote::t '&identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g143058_| + (define |gx[1]#_g80541_| (##structure gx#syntax-quote::t '&identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143061_| + (define |gx[1]#_g80544_| (##structure gx#syntax-quote::t '&identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143064_| + (define |gx[1]#_g80547_| (##structure gx#syntax-quote::t '&identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143068_| + (define |gx[1]#_g80551_| (##structure gx#syntax-quote::t 'syntax-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g143070_| + (define |gx[1]#_g80553_| (##structure gx#syntax-quote::t 'make-syntax-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g143072_| + (define |gx[1]#_g80555_| (##structure gx#syntax-quote::t 'syntax-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g143078_| + (define |gx[1]#_g80561_| (##structure gx#syntax-quote::t 'syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g143081_| + (define |gx[1]#_g80564_| (##structure gx#syntax-quote::t 'syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g143084_| + (define |gx[1]#_g80567_| (##structure gx#syntax-quote::t 'syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g143090_| + (define |gx[1]#_g80573_| (##structure gx#syntax-quote::t 'syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143093_| + (define |gx[1]#_g80576_| (##structure gx#syntax-quote::t 'syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143096_| + (define |gx[1]#_g80579_| (##structure gx#syntax-quote::t 'syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143102_| + (define |gx[1]#_g80585_| (##structure gx#syntax-quote::t '&syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g143105_| + (define |gx[1]#_g80588_| (##structure gx#syntax-quote::t '&syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g143108_| + (define |gx[1]#_g80591_| (##structure gx#syntax-quote::t '&syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g143114_| + (define |gx[1]#_g80597_| (##structure gx#syntax-quote::t '&syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143117_| + (define |gx[1]#_g80600_| (##structure gx#syntax-quote::t '&syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143120_| + (define |gx[1]#_g80603_| (##structure gx#syntax-quote::t '&syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143124_| + (define |gx[1]#_g80607_| (##structure gx#syntax-quote::t 'syntax-quote::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g143126_| + (define |gx[1]#_g80609_| (##structure gx#syntax-quote::t 'make-syntax-quote #f (gx#current-expander-context) '())) - (define |gx[1]#_g143128_| + (define |gx[1]#_g80611_| (##structure gx#syntax-quote::t 'syntax-quote? #f (gx#current-expander-context) '())) - (define |gx[1]#_g143135_| + (define |gx[1]#_g80618_| (##structure gx#syntax-quote::t 'syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g143138_| + (define |gx[1]#_g80621_| (##structure gx#syntax-quote::t 'syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g143141_| + (define |gx[1]#_g80624_| (##structure gx#syntax-quote::t 'syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g143144_| + (define |gx[1]#_g80627_| (##structure gx#syntax-quote::t 'syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g143151_| + (define |gx[1]#_g80634_| (##structure gx#syntax-quote::t 'syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143154_| + (define |gx[1]#_g80637_| (##structure gx#syntax-quote::t 'syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143157_| + (define |gx[1]#_g80640_| (##structure gx#syntax-quote::t 'syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143160_| + (define |gx[1]#_g80643_| (##structure gx#syntax-quote::t 'syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143167_| + (define |gx[1]#_g80650_| (##structure gx#syntax-quote::t '&syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g143170_| + (define |gx[1]#_g80653_| (##structure gx#syntax-quote::t '&syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g143173_| + (define |gx[1]#_g80656_| (##structure gx#syntax-quote::t '&syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g143176_| + (define |gx[1]#_g80659_| (##structure gx#syntax-quote::t '&syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g143183_| + (define |gx[1]#_g80666_| (##structure gx#syntax-quote::t '&syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143186_| + (define |gx[1]#_g80669_| (##structure gx#syntax-quote::t '&syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143189_| + (define |gx[1]#_g80672_| (##structure gx#syntax-quote::t '&syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g143192_| + (define |gx[1]#_g80675_| (##structure gx#syntax-quote::t '&syntax-quote-context-set! @@ -347,7 +347,7 @@ '())) (begin (define |gx[:0:]#identifier-wrap| - (let ((__obj142991 + (let ((__obj80474 (let () (declare (not safe)) (##structure @@ -370,7 +370,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142991 + __obj80474 'gx#identifier-wrap::t '1 gerbil/core$$#class-type-info::t @@ -378,7 +378,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142991 + __obj80474 'syntax '2 gerbil/core$$#class-type-info::t @@ -386,26 +386,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142991 + __obj80474 '(marks) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143008 - (let ((__tmp143009 |gx[1]#_g143010_|)) + (let ((__tmp80491 + (let ((__tmp80492 |gx[1]#_g80493_|)) (declare (not safe)) - (cons __tmp143009 '())))) + (cons __tmp80492 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142991 - __tmp143008 + __obj80474 + __tmp80491 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142991 + __obj80474 '#t '5 gerbil/core$$#class-type-info::t @@ -413,7 +413,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142991 + __obj80474 '#t '6 gerbil/core$$#class-type-info::t @@ -421,7 +421,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142991 + __obj80474 '#f '7 gerbil/core$$#class-type-info::t @@ -429,150 +429,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142991 + __obj80474 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143011 |gx[1]#_g143012_|)) + (let ((__tmp80494 |gx[1]#_g80495_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142991 - __tmp143011 + __obj80474 + __tmp80494 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143013 |gx[1]#_g143014_|)) + (let ((__tmp80496 |gx[1]#_g80497_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142991 - __tmp143013 + __obj80474 + __tmp80496 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143015 |gx[1]#_g143016_|)) + (let ((__tmp80498 |gx[1]#_g80499_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142991 - __tmp143015 + __obj80474 + __tmp80498 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143017 - (let ((__tmp143026 - (let ((__tmp143027 |gx[1]#_g143028_|)) + (let ((__tmp80500 + (let ((__tmp80509 + (let ((__tmp80510 |gx[1]#_g80511_|)) (declare (not safe)) - (cons 'marks __tmp143027))) - (__tmp143018 - (let ((__tmp143023 - (let ((__tmp143024 |gx[1]#_g143025_|)) + (cons 'marks __tmp80510))) + (__tmp80501 + (let ((__tmp80506 + (let ((__tmp80507 |gx[1]#_g80508_|)) (declare (not safe)) - (cons 'e __tmp143024))) - (__tmp143019 - (let ((__tmp143020 - (let ((__tmp143021 |gx[1]#_g143022_|)) + (cons 'e __tmp80507))) + (__tmp80502 + (let ((__tmp80503 + (let ((__tmp80504 |gx[1]#_g80505_|)) (declare (not safe)) - (cons 'source __tmp143021)))) + (cons 'source __tmp80504)))) (declare (not safe)) - (cons __tmp143020 '())))) + (cons __tmp80503 '())))) (declare (not safe)) - (cons __tmp143023 __tmp143019)))) + (cons __tmp80506 __tmp80502)))) (declare (not safe)) - (cons __tmp143026 __tmp143018)))) + (cons __tmp80509 __tmp80501)))) (declare (not safe)) (##unchecked-structure-set! - __obj142991 - __tmp143017 + __obj80474 + __tmp80500 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143029 - (let ((__tmp143038 - (let ((__tmp143039 |gx[1]#_g143040_|)) + (let ((__tmp80512 + (let ((__tmp80521 + (let ((__tmp80522 |gx[1]#_g80523_|)) (declare (not safe)) - (cons 'marks __tmp143039))) - (__tmp143030 - (let ((__tmp143035 - (let ((__tmp143036 |gx[1]#_g143037_|)) + (cons 'marks __tmp80522))) + (__tmp80513 + (let ((__tmp80518 + (let ((__tmp80519 |gx[1]#_g80520_|)) (declare (not safe)) - (cons 'e __tmp143036))) - (__tmp143031 - (let ((__tmp143032 - (let ((__tmp143033 |gx[1]#_g143034_|)) + (cons 'e __tmp80519))) + (__tmp80514 + (let ((__tmp80515 + (let ((__tmp80516 |gx[1]#_g80517_|)) (declare (not safe)) - (cons 'source __tmp143033)))) + (cons 'source __tmp80516)))) (declare (not safe)) - (cons __tmp143032 '())))) + (cons __tmp80515 '())))) (declare (not safe)) - (cons __tmp143035 __tmp143031)))) + (cons __tmp80518 __tmp80514)))) (declare (not safe)) - (cons __tmp143038 __tmp143030)))) + (cons __tmp80521 __tmp80513)))) (declare (not safe)) (##unchecked-structure-set! - __obj142991 - __tmp143029 + __obj80474 + __tmp80512 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143041 - (let ((__tmp143050 - (let ((__tmp143051 |gx[1]#_g143052_|)) + (let ((__tmp80524 + (let ((__tmp80533 + (let ((__tmp80534 |gx[1]#_g80535_|)) (declare (not safe)) - (cons 'marks __tmp143051))) - (__tmp143042 - (let ((__tmp143047 - (let ((__tmp143048 |gx[1]#_g143049_|)) + (cons 'marks __tmp80534))) + (__tmp80525 + (let ((__tmp80530 + (let ((__tmp80531 |gx[1]#_g80532_|)) (declare (not safe)) - (cons 'e __tmp143048))) - (__tmp143043 - (let ((__tmp143044 - (let ((__tmp143045 |gx[1]#_g143046_|)) + (cons 'e __tmp80531))) + (__tmp80526 + (let ((__tmp80527 + (let ((__tmp80528 |gx[1]#_g80529_|)) (declare (not safe)) - (cons 'source __tmp143045)))) + (cons 'source __tmp80528)))) (declare (not safe)) - (cons __tmp143044 '())))) + (cons __tmp80527 '())))) (declare (not safe)) - (cons __tmp143047 __tmp143043)))) + (cons __tmp80530 __tmp80526)))) (declare (not safe)) - (cons __tmp143050 __tmp143042)))) + (cons __tmp80533 __tmp80525)))) (declare (not safe)) (##unchecked-structure-set! - __obj142991 - __tmp143041 + __obj80474 + __tmp80524 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143053 - (let ((__tmp143062 - (let ((__tmp143063 |gx[1]#_g143064_|)) + (let ((__tmp80536 + (let ((__tmp80545 + (let ((__tmp80546 |gx[1]#_g80547_|)) (declare (not safe)) - (cons 'marks __tmp143063))) - (__tmp143054 - (let ((__tmp143059 - (let ((__tmp143060 |gx[1]#_g143061_|)) + (cons 'marks __tmp80546))) + (__tmp80537 + (let ((__tmp80542 + (let ((__tmp80543 |gx[1]#_g80544_|)) (declare (not safe)) - (cons 'e __tmp143060))) - (__tmp143055 - (let ((__tmp143056 - (let ((__tmp143057 |gx[1]#_g143058_|)) + (cons 'e __tmp80543))) + (__tmp80538 + (let ((__tmp80539 + (let ((__tmp80540 |gx[1]#_g80541_|)) (declare (not safe)) - (cons 'source __tmp143057)))) + (cons 'source __tmp80540)))) (declare (not safe)) - (cons __tmp143056 '())))) + (cons __tmp80539 '())))) (declare (not safe)) - (cons __tmp143059 __tmp143055)))) + (cons __tmp80542 __tmp80538)))) (declare (not safe)) - (cons __tmp143062 __tmp143054)))) + (cons __tmp80545 __tmp80537)))) (declare (not safe)) (##unchecked-structure-set! - __obj142991 - __tmp143053 + __obj80474 + __tmp80536 '15 gerbil/core$$#class-type-info::t '#f)) - __obj142991)) + __obj80474)) (define |gx[:0:]#syntax-wrap| - (let ((__obj142992 + (let ((__obj80475 (let () (declare (not safe)) (##structure @@ -595,7 +595,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142992 + __obj80475 'gx#syntax-wrap::t '1 gerbil/core$$#class-type-info::t @@ -603,7 +603,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142992 + __obj80475 'syntax '2 gerbil/core$$#class-type-info::t @@ -611,26 +611,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142992 + __obj80475 '(mark) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143065 - (let ((__tmp143066 |gx[1]#_g143010_|)) + (let ((__tmp80548 + (let ((__tmp80549 |gx[1]#_g80493_|)) (declare (not safe)) - (cons __tmp143066 '())))) + (cons __tmp80549 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142992 - __tmp143065 + __obj80475 + __tmp80548 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142992 + __obj80475 '#t '5 gerbil/core$$#class-type-info::t @@ -638,7 +638,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142992 + __obj80475 '#t '6 gerbil/core$$#class-type-info::t @@ -646,7 +646,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142992 + __obj80475 '#f '7 gerbil/core$$#class-type-info::t @@ -654,150 +654,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142992 + __obj80475 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143067 |gx[1]#_g143068_|)) + (let ((__tmp80550 |gx[1]#_g80551_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142992 - __tmp143067 + __obj80475 + __tmp80550 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143069 |gx[1]#_g143070_|)) + (let ((__tmp80552 |gx[1]#_g80553_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142992 - __tmp143069 + __obj80475 + __tmp80552 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143071 |gx[1]#_g143072_|)) + (let ((__tmp80554 |gx[1]#_g80555_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142992 - __tmp143071 + __obj80475 + __tmp80554 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143073 - (let ((__tmp143082 - (let ((__tmp143083 |gx[1]#_g143084_|)) + (let ((__tmp80556 + (let ((__tmp80565 + (let ((__tmp80566 |gx[1]#_g80567_|)) (declare (not safe)) - (cons 'mark __tmp143083))) - (__tmp143074 - (let ((__tmp143079 - (let ((__tmp143080 |gx[1]#_g143081_|)) + (cons 'mark __tmp80566))) + (__tmp80557 + (let ((__tmp80562 + (let ((__tmp80563 |gx[1]#_g80564_|)) (declare (not safe)) - (cons 'e __tmp143080))) - (__tmp143075 - (let ((__tmp143076 - (let ((__tmp143077 |gx[1]#_g143078_|)) + (cons 'e __tmp80563))) + (__tmp80558 + (let ((__tmp80559 + (let ((__tmp80560 |gx[1]#_g80561_|)) (declare (not safe)) - (cons 'source __tmp143077)))) + (cons 'source __tmp80560)))) (declare (not safe)) - (cons __tmp143076 '())))) + (cons __tmp80559 '())))) (declare (not safe)) - (cons __tmp143079 __tmp143075)))) + (cons __tmp80562 __tmp80558)))) (declare (not safe)) - (cons __tmp143082 __tmp143074)))) + (cons __tmp80565 __tmp80557)))) (declare (not safe)) (##unchecked-structure-set! - __obj142992 - __tmp143073 + __obj80475 + __tmp80556 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143085 - (let ((__tmp143094 - (let ((__tmp143095 |gx[1]#_g143096_|)) + (let ((__tmp80568 + (let ((__tmp80577 + (let ((__tmp80578 |gx[1]#_g80579_|)) (declare (not safe)) - (cons 'mark __tmp143095))) - (__tmp143086 - (let ((__tmp143091 - (let ((__tmp143092 |gx[1]#_g143093_|)) + (cons 'mark __tmp80578))) + (__tmp80569 + (let ((__tmp80574 + (let ((__tmp80575 |gx[1]#_g80576_|)) (declare (not safe)) - (cons 'e __tmp143092))) - (__tmp143087 - (let ((__tmp143088 - (let ((__tmp143089 |gx[1]#_g143090_|)) + (cons 'e __tmp80575))) + (__tmp80570 + (let ((__tmp80571 + (let ((__tmp80572 |gx[1]#_g80573_|)) (declare (not safe)) - (cons 'source __tmp143089)))) + (cons 'source __tmp80572)))) (declare (not safe)) - (cons __tmp143088 '())))) + (cons __tmp80571 '())))) (declare (not safe)) - (cons __tmp143091 __tmp143087)))) + (cons __tmp80574 __tmp80570)))) (declare (not safe)) - (cons __tmp143094 __tmp143086)))) + (cons __tmp80577 __tmp80569)))) (declare (not safe)) (##unchecked-structure-set! - __obj142992 - __tmp143085 + __obj80475 + __tmp80568 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143097 - (let ((__tmp143106 - (let ((__tmp143107 |gx[1]#_g143108_|)) + (let ((__tmp80580 + (let ((__tmp80589 + (let ((__tmp80590 |gx[1]#_g80591_|)) (declare (not safe)) - (cons 'mark __tmp143107))) - (__tmp143098 - (let ((__tmp143103 - (let ((__tmp143104 |gx[1]#_g143105_|)) + (cons 'mark __tmp80590))) + (__tmp80581 + (let ((__tmp80586 + (let ((__tmp80587 |gx[1]#_g80588_|)) (declare (not safe)) - (cons 'e __tmp143104))) - (__tmp143099 - (let ((__tmp143100 - (let ((__tmp143101 |gx[1]#_g143102_|)) + (cons 'e __tmp80587))) + (__tmp80582 + (let ((__tmp80583 + (let ((__tmp80584 |gx[1]#_g80585_|)) (declare (not safe)) - (cons 'source __tmp143101)))) + (cons 'source __tmp80584)))) (declare (not safe)) - (cons __tmp143100 '())))) + (cons __tmp80583 '())))) (declare (not safe)) - (cons __tmp143103 __tmp143099)))) + (cons __tmp80586 __tmp80582)))) (declare (not safe)) - (cons __tmp143106 __tmp143098)))) + (cons __tmp80589 __tmp80581)))) (declare (not safe)) (##unchecked-structure-set! - __obj142992 - __tmp143097 + __obj80475 + __tmp80580 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143109 - (let ((__tmp143118 - (let ((__tmp143119 |gx[1]#_g143120_|)) + (let ((__tmp80592 + (let ((__tmp80601 + (let ((__tmp80602 |gx[1]#_g80603_|)) (declare (not safe)) - (cons 'mark __tmp143119))) - (__tmp143110 - (let ((__tmp143115 - (let ((__tmp143116 |gx[1]#_g143117_|)) + (cons 'mark __tmp80602))) + (__tmp80593 + (let ((__tmp80598 + (let ((__tmp80599 |gx[1]#_g80600_|)) (declare (not safe)) - (cons 'e __tmp143116))) - (__tmp143111 - (let ((__tmp143112 - (let ((__tmp143113 |gx[1]#_g143114_|)) + (cons 'e __tmp80599))) + (__tmp80594 + (let ((__tmp80595 + (let ((__tmp80596 |gx[1]#_g80597_|)) (declare (not safe)) - (cons 'source __tmp143113)))) + (cons 'source __tmp80596)))) (declare (not safe)) - (cons __tmp143112 '())))) + (cons __tmp80595 '())))) (declare (not safe)) - (cons __tmp143115 __tmp143111)))) + (cons __tmp80598 __tmp80594)))) (declare (not safe)) - (cons __tmp143118 __tmp143110)))) + (cons __tmp80601 __tmp80593)))) (declare (not safe)) (##unchecked-structure-set! - __obj142992 - __tmp143109 + __obj80475 + __tmp80592 '15 gerbil/core$$#class-type-info::t '#f)) - __obj142992)) + __obj80475)) (define |gx[:0:]#syntax-quote| - (let ((__obj142993 + (let ((__obj80476 (let () (declare (not safe)) (##structure @@ -820,7 +820,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142993 + __obj80476 'gx#syntax-quote::t '1 gerbil/core$$#class-type-info::t @@ -828,7 +828,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142993 + __obj80476 'syntax '2 gerbil/core$$#class-type-info::t @@ -836,26 +836,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142993 + __obj80476 '(context marks) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143121 - (let ((__tmp143122 |gx[1]#_g143010_|)) + (let ((__tmp80604 + (let ((__tmp80605 |gx[1]#_g80493_|)) (declare (not safe)) - (cons __tmp143122 '())))) + (cons __tmp80605 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj142993 - __tmp143121 + __obj80476 + __tmp80604 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj142993 + __obj80476 '#t '5 gerbil/core$$#class-type-info::t @@ -863,7 +863,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142993 + __obj80476 '#t '6 gerbil/core$$#class-type-info::t @@ -871,7 +871,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142993 + __obj80476 '#f '7 gerbil/core$$#class-type-info::t @@ -879,177 +879,173 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj142993 + __obj80476 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143123 |gx[1]#_g143124_|)) + (let ((__tmp80606 |gx[1]#_g80607_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142993 - __tmp143123 + __obj80476 + __tmp80606 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143125 |gx[1]#_g143126_|)) + (let ((__tmp80608 |gx[1]#_g80609_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142993 - __tmp143125 + __obj80476 + __tmp80608 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143127 |gx[1]#_g143128_|)) + (let ((__tmp80610 |gx[1]#_g80611_|)) (declare (not safe)) (##unchecked-structure-set! - __obj142993 - __tmp143127 + __obj80476 + __tmp80610 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143129 - (let ((__tmp143142 - (let ((__tmp143143 |gx[1]#_g143144_|)) + (let ((__tmp80612 + (let ((__tmp80625 + (let ((__tmp80626 |gx[1]#_g80627_|)) (declare (not safe)) - (cons 'context __tmp143143))) - (__tmp143130 - (let ((__tmp143139 - (let ((__tmp143140 |gx[1]#_g143141_|)) + (cons 'context __tmp80626))) + (__tmp80613 + (let ((__tmp80622 + (let ((__tmp80623 |gx[1]#_g80624_|)) (declare (not safe)) - (cons 'marks __tmp143140))) - (__tmp143131 - (let ((__tmp143136 - (let ((__tmp143137 |gx[1]#_g143138_|)) + (cons 'marks __tmp80623))) + (__tmp80614 + (let ((__tmp80619 + (let ((__tmp80620 |gx[1]#_g80621_|)) (declare (not safe)) - (cons 'e __tmp143137))) - (__tmp143132 - (let ((__tmp143133 - (let ((__tmp143134 - |gx[1]#_g143135_|)) + (cons 'e __tmp80620))) + (__tmp80615 + (let ((__tmp80616 + (let ((__tmp80617 |gx[1]#_g80618_|)) (declare (not safe)) - (cons 'source __tmp143134)))) + (cons 'source __tmp80617)))) (declare (not safe)) - (cons __tmp143133 '())))) + (cons __tmp80616 '())))) (declare (not safe)) - (cons __tmp143136 __tmp143132)))) + (cons __tmp80619 __tmp80615)))) (declare (not safe)) - (cons __tmp143139 __tmp143131)))) + (cons __tmp80622 __tmp80614)))) (declare (not safe)) - (cons __tmp143142 __tmp143130)))) + (cons __tmp80625 __tmp80613)))) (declare (not safe)) (##unchecked-structure-set! - __obj142993 - __tmp143129 + __obj80476 + __tmp80612 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143145 - (let ((__tmp143158 - (let ((__tmp143159 |gx[1]#_g143160_|)) + (let ((__tmp80628 + (let ((__tmp80641 + (let ((__tmp80642 |gx[1]#_g80643_|)) (declare (not safe)) - (cons 'context __tmp143159))) - (__tmp143146 - (let ((__tmp143155 - (let ((__tmp143156 |gx[1]#_g143157_|)) + (cons 'context __tmp80642))) + (__tmp80629 + (let ((__tmp80638 + (let ((__tmp80639 |gx[1]#_g80640_|)) (declare (not safe)) - (cons 'marks __tmp143156))) - (__tmp143147 - (let ((__tmp143152 - (let ((__tmp143153 |gx[1]#_g143154_|)) + (cons 'marks __tmp80639))) + (__tmp80630 + (let ((__tmp80635 + (let ((__tmp80636 |gx[1]#_g80637_|)) (declare (not safe)) - (cons 'e __tmp143153))) - (__tmp143148 - (let ((__tmp143149 - (let ((__tmp143150 - |gx[1]#_g143151_|)) + (cons 'e __tmp80636))) + (__tmp80631 + (let ((__tmp80632 + (let ((__tmp80633 |gx[1]#_g80634_|)) (declare (not safe)) - (cons 'source __tmp143150)))) + (cons 'source __tmp80633)))) (declare (not safe)) - (cons __tmp143149 '())))) + (cons __tmp80632 '())))) (declare (not safe)) - (cons __tmp143152 __tmp143148)))) + (cons __tmp80635 __tmp80631)))) (declare (not safe)) - (cons __tmp143155 __tmp143147)))) + (cons __tmp80638 __tmp80630)))) (declare (not safe)) - (cons __tmp143158 __tmp143146)))) + (cons __tmp80641 __tmp80629)))) (declare (not safe)) (##unchecked-structure-set! - __obj142993 - __tmp143145 + __obj80476 + __tmp80628 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143161 - (let ((__tmp143174 - (let ((__tmp143175 |gx[1]#_g143176_|)) + (let ((__tmp80644 + (let ((__tmp80657 + (let ((__tmp80658 |gx[1]#_g80659_|)) (declare (not safe)) - (cons 'context __tmp143175))) - (__tmp143162 - (let ((__tmp143171 - (let ((__tmp143172 |gx[1]#_g143173_|)) + (cons 'context __tmp80658))) + (__tmp80645 + (let ((__tmp80654 + (let ((__tmp80655 |gx[1]#_g80656_|)) (declare (not safe)) - (cons 'marks __tmp143172))) - (__tmp143163 - (let ((__tmp143168 - (let ((__tmp143169 |gx[1]#_g143170_|)) + (cons 'marks __tmp80655))) + (__tmp80646 + (let ((__tmp80651 + (let ((__tmp80652 |gx[1]#_g80653_|)) (declare (not safe)) - (cons 'e __tmp143169))) - (__tmp143164 - (let ((__tmp143165 - (let ((__tmp143166 - |gx[1]#_g143167_|)) + (cons 'e __tmp80652))) + (__tmp80647 + (let ((__tmp80648 + (let ((__tmp80649 |gx[1]#_g80650_|)) (declare (not safe)) - (cons 'source __tmp143166)))) + (cons 'source __tmp80649)))) (declare (not safe)) - (cons __tmp143165 '())))) + (cons __tmp80648 '())))) (declare (not safe)) - (cons __tmp143168 __tmp143164)))) + (cons __tmp80651 __tmp80647)))) (declare (not safe)) - (cons __tmp143171 __tmp143163)))) + (cons __tmp80654 __tmp80646)))) (declare (not safe)) - (cons __tmp143174 __tmp143162)))) + (cons __tmp80657 __tmp80645)))) (declare (not safe)) (##unchecked-structure-set! - __obj142993 - __tmp143161 + __obj80476 + __tmp80644 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp143177 - (let ((__tmp143190 - (let ((__tmp143191 |gx[1]#_g143192_|)) + (let ((__tmp80660 + (let ((__tmp80673 + (let ((__tmp80674 |gx[1]#_g80675_|)) (declare (not safe)) - (cons 'context __tmp143191))) - (__tmp143178 - (let ((__tmp143187 - (let ((__tmp143188 |gx[1]#_g143189_|)) + (cons 'context __tmp80674))) + (__tmp80661 + (let ((__tmp80670 + (let ((__tmp80671 |gx[1]#_g80672_|)) (declare (not safe)) - (cons 'marks __tmp143188))) - (__tmp143179 - (let ((__tmp143184 - (let ((__tmp143185 |gx[1]#_g143186_|)) + (cons 'marks __tmp80671))) + (__tmp80662 + (let ((__tmp80667 + (let ((__tmp80668 |gx[1]#_g80669_|)) (declare (not safe)) - (cons 'e __tmp143185))) - (__tmp143180 - (let ((__tmp143181 - (let ((__tmp143182 - |gx[1]#_g143183_|)) + (cons 'e __tmp80668))) + (__tmp80663 + (let ((__tmp80664 + (let ((__tmp80665 |gx[1]#_g80666_|)) (declare (not safe)) - (cons 'source __tmp143182)))) + (cons 'source __tmp80665)))) (declare (not safe)) - (cons __tmp143181 '())))) + (cons __tmp80664 '())))) (declare (not safe)) - (cons __tmp143184 __tmp143180)))) + (cons __tmp80667 __tmp80663)))) (declare (not safe)) - (cons __tmp143187 __tmp143179)))) + (cons __tmp80670 __tmp80662)))) (declare (not safe)) - (cons __tmp143190 __tmp143178)))) + (cons __tmp80673 __tmp80661)))) (declare (not safe)) (##unchecked-structure-set! - __obj142993 - __tmp143177 + __obj80476 + __tmp80660 '15 gerbil/core$$#class-type-info::t '#f)) - __obj142993)))) + __obj80476)))) diff --git a/src/bootstrap/gerbil/expander/stxcase__0.scm b/src/bootstrap/gerbil/expander/stxcase__0.scm index 6ff8020c3..d3c25e5b2 100644 --- a/src/bootstrap/gerbil/expander/stxcase__0.scm +++ b/src/bootstrap/gerbil/expander/stxcase__0.scm @@ -1,29 +1,29 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/stxcase::timestamp 1708102803) + (define gerbil/expander/stxcase::timestamp 1708370114) (begin (define gx#syntax-pattern::t - (let ((__tmp186184 (list gx#expander::t)) - (__tmp186182 - (let ((__tmp186183 + (let ((__tmp96259 (list gx#expander::t)) + (__tmp96257 + (let ((__tmp96258 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp186183 '())))) + (cons __tmp96258 '())))) (declare (not safe)) (make-class-type 'gx#syntax-pattern::t 'syntax-pattern - __tmp186184 + __tmp96259 '(id depth) - __tmp186182 + __tmp96257 '#f))) (define gx#syntax-pattern? (let () (declare (not safe)) (make-class-predicate gx#syntax-pattern::t))) (define gx#make-syntax-pattern - (lambda _$args181611_ - (apply make-instance gx#syntax-pattern::t _$args181611_))) + (lambda _$args96254_ + (apply make-instance gx#syntax-pattern::t _$args96254_))) (define gx#syntax-pattern-id (let () (declare (not safe)) @@ -73,717 +73,714 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gx#syntax-pattern::t 'e))) (define gx#syntax-pattern::apply-macro-expander - (lambda (_self181608_ _stx181609_) + (lambda (_self96251_ _stx96252_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Identifier used out of context" - _stx181609_)))) + _stx96252_)))) (let () (declare (not safe)) - (bind-method! + (bind-method!__% gx#syntax-pattern::t 'apply-macro-expander gx#syntax-pattern::apply-macro-expander '#f)) (define gx#macro-expand-syntax - (lambda (_stx181090_) - (letrec ((_generate181092_ - (lambda (_e181319_) - (letrec ((_BUG181321_ - (lambda (_q181483_) - (error '"BUG: syntax; generate" - _stx181090_ - _e181319_ - _q181483_))) - (_local-pattern-e181322_ - (lambda (_pat181481_) - (let ((__tmp186185 + (lambda (_stx95733_) + (letrec ((_generate95735_ + (lambda (_e95962_) + (letrec ((_BUG95964_ + (lambda (_q96126_) + (let () + (declare (not safe)) + (error '"BUG: syntax; generate" + _stx95733_ + _e95962_ + _q96126_)))) + (_local-pattern-e95965_ + (lambda (_pat96124_) + (let ((__tmp96260 (##structure-ref - _pat181481_ + _pat96124_ '2 gx#syntax-pattern::t '#f))) (declare (not safe)) - (gx#syntax-local-rewrap __tmp186185)))) - (_getvar181323_ - (lambda (_q181478_ _vars181479_) + (gx#syntax-local-rewrap __tmp96260)))) + (_getvar95966_ + (lambda (_q96121_ _vars96122_) (let () (declare (not safe)) - (assgetq _q181478_ - _vars181479_ - _BUG181321_)))) - (_getarg181324_ - (lambda (_arg181444_ _vars181445_) - (let* ((_arg181446181453_ _arg181444_) - (_E181448181457_ + (assgetq__% + _q96121_ + _vars96122_ + _BUG95964_)))) + (_getarg95967_ + (lambda (_arg96087_ _vars96088_) + (let* ((_arg9608996096_ _arg96087_) + (_E9609196100_ (lambda () - (error '"No clause matching" - _arg181446181453_))) - (_K181449181466_ - (lambda (_e181460_ _tag181461_) - (let ((_$e181463_ _tag181461_)) + (let () + (declare (not safe)) + (error '"No clause matching" + _arg9608996096_)))) + (_K9609296109_ + (lambda (_e96103_ _tag96104_) + (let ((_$e96106_ _tag96104_)) (if (let () (declare (not safe)) - (eq? 'ref _$e181463_)) + (eq? 'ref _$e96106_)) (let () (declare (not safe)) - (_getvar181323_ - _e181460_ - _vars181445_)) + (_getvar95966_ + _e96103_ + _vars96088_)) (if (let () (declare (not safe)) - (eq? 'pattern - _$e181463_)) + (eq? 'pattern _$e96106_)) (let () (declare (not safe)) - (_local-pattern-e181322_ - _e181460_)) + (_local-pattern-e95965_ + _e96103_)) (let () (declare (not safe)) - (_BUG181321_ - _arg181444_)))))))) + (_BUG95964_ + _arg96087_)))))))) (if (let () (declare (not safe)) - (##pair? _arg181446181453_)) - (let ((_hd181450181469_ + (##pair? _arg9608996096_)) + (let ((_hd9609396112_ (let () (declare (not safe)) - (##car _arg181446181453_))) - (_tl181451181471_ + (##car _arg9608996096_))) + (_tl9609496114_ (let () (declare (not safe)) - (##cdr _arg181446181453_)))) - (let* ((_tag181474_ _hd181450181469_) - (_e181476_ _tl181451181471_)) + (##cdr _arg9608996096_)))) + (let* ((_tag96117_ _hd9609396112_) + (_e96119_ _tl9609496114_)) (declare (not safe)) - (_K181449181466_ - _e181476_ - _tag181474_))) + (_K9609296109_ _e96119_ _tag96117_))) (let () (declare (not safe)) - (_E181448181457_))))))) - (let _recur181326_ ((_e181328_ _e181319_) - (_vars181329_ '())) - (let* ((_e181330181337_ _e181328_) - (_E181332181341_ + (_E9609196100_))))))) + (let _recur95969_ ((_e95971_ _e95962_) (_vars95972_ '())) + (let* ((_e9597395980_ _e95971_) + (_E9597595984_ (lambda () - (error '"No clause matching" - _e181330181337_))) - (_K181333181432_ - (lambda (_body181344_ _tag181345_) - (let ((_$e181347_ _tag181345_)) + (let () + (declare (not safe)) + (error '"No clause matching" + _e9597395980_)))) + (_K9597696075_ + (lambda (_body95987_ _tag95988_) + (let ((_$e95990_ _tag95988_)) (if (let () (declare (not safe)) - (eq? 'datum _$e181347_)) + (eq? 'datum _$e95990_)) (let () (declare (not safe)) - (gx#core-list 'quote _body181344_)) + (gx#core-list 'quote _body95987_)) (if (let () (declare (not safe)) - (eq? 'term _$e181347_)) - (let ((_id181350_ + (eq? 'term _$e95990_)) + (let ((_id95993_ (let () (declare (not safe)) (gx#syntax-local-unwrap - _body181344_)))) + _body95987_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id181350_ + _id95993_ 'gx#identifier-wrap::t)) - (let ((_marks181352_ + (let ((_marks95995_ (let () (declare (not safe)) (##unchecked-structure-ref - _id181350_ + _id95993_ '3 gx#identifier-wrap::t '#f)))) (if (let () (declare (not safe)) - (null? _marks181352_)) - (let ((__tmp186213 + (null? _marks95995_)) + (let ((__tmp96288 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#core-list 'quote _body181344_)))) + (gx#core-list 'quote _body95987_)))) (declare (not safe)) - (gx#core-list 'datum->syntax '#f __tmp186213)) - (let ((__tmp186212 + (gx#core-list 'datum->syntax '#f __tmp96288)) + (let ((__tmp96287 (let () (declare (not safe)) - (gx#core-list 'quote-syntax _body181344_))) - (__tmp186211 + (gx#core-list 'quote-syntax _body95987_))) + (__tmp96286 (let () (declare (not safe)) - (gx#core-list 'quote _body181344_)))) + (gx#core-list 'quote _body95987_)))) (declare (not safe)) (gx#core-list 'datum->syntax - __tmp186212 - __tmp186211 + __tmp96287 + __tmp96286 '#f '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id181350_ + _id95993_ 'gx#syntax-quote::t)) (let () (declare (not safe)) (gx#core-list 'quote-syntax - _body181344_)) + _body95987_)) (let () (declare (not safe)) - (_BUG181321_ - _e181328_))))) + (_BUG95964_ + _e95971_))))) (if (let () (declare (not safe)) - (eq? 'pattern _$e181347_)) + (eq? 'pattern _$e95990_)) (let () (declare (not safe)) - (_local-pattern-e181322_ - _body181344_)) + (_local-pattern-e95965_ + _body95987_)) (if (let () (declare (not safe)) - (eq? 'ref _$e181347_)) + (eq? 'ref _$e95990_)) (let () (declare (not safe)) - (_getvar181323_ - _body181344_ - _vars181329_)) + (_getvar95966_ + _body95987_ + _vars95972_)) (if (let () (declare (not safe)) (eq? 'cons - _$e181347_)) - (let ((__tmp186209 - (let ((__tmp186210 + _$e95990_)) + (let ((__tmp96284 + (let ((__tmp96285 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _body181344_))) + (car _body95987_))) (declare (not safe)) - (_recur181326_ __tmp186210 _vars181329_))) - (__tmp186207 - (let ((__tmp186208 (cdr _body181344_))) + (_recur95969_ __tmp96285 _vars95972_))) + (__tmp96282 + (let ((__tmp96283 (cdr _body95987_))) (declare (not safe)) - (_recur181326_ __tmp186208 _vars181329_)))) + (_recur95969_ __tmp96283 _vars95972_)))) (declare (not safe)) - (gx#core-list 'cons __tmp186209 __tmp186207)) - (if (let () (declare (not safe)) (eq? 'vector _$e181347_)) - (let ((__tmp186206 + (gx#core-list 'cons __tmp96284 __tmp96282)) + (if (let () (declare (not safe)) (eq? 'vector _$e95990_)) + (let ((__tmp96281 (let () (declare (not safe)) - (_recur181326_ _body181344_ _vars181329_)))) + (_recur95969_ _body95987_ _vars95972_)))) (declare (not safe)) - (gx#core-list 'list->vector __tmp186206)) - (if (let () (declare (not safe)) (eq? 'box _$e181347_)) - (let ((__tmp186205 + (gx#core-list 'list->vector __tmp96281)) + (if (let () (declare (not safe)) (eq? 'box _$e95990_)) + (let ((__tmp96280 (let () (declare (not safe)) - (_recur181326_ _body181344_ _vars181329_)))) + (_recur95969_ _body95987_ _vars95972_)))) (declare (not safe)) - (gx#core-list 'box __tmp186205)) + (gx#core-list 'box __tmp96280)) (if (let () (declare (not safe)) - (eq? 'splice _$e181347_)) - (let* ((_body181353181364_ _body181344_) - (_E181355181368_ + (eq? 'splice _$e95990_)) + (let* ((_body9599696007_ _body95987_) + (_E9599896011_ (lambda () - (error '"No clause matching" - _body181353181364_))) - (_K181356181406_ - (lambda (_args181371_ - _iv181372_ - _hd181373_ - _depth181374_) - (let* ((_targets181380_ - (map (lambda (_g181375181377_) + (let () + (declare (not safe)) + (error '"No clause matching" + _body9599696007_)))) + (_K9599996049_ + (lambda (_args96014_ + _iv96015_ + _hd96016_ + _depth96017_) + (let* ((_targets96023_ + (map (lambda (_g9601896020_) (let () (declare (not safe)) - (_getarg181324_ - _g181375181377_ - _vars181329_))) - _args181371_)) - (_fold-in181382_ + (_getarg95967_ + _g9601896020_ + _vars95972_))) + _args96014_)) + (_fold-in96025_ (let () (declare (not safe)) - (gx#gentemps _args181371_))) - (_fold-out181384_ + (gx#gentemps _args96014_))) + (_fold-out96027_ (let () (declare (not safe)) (gx#genident__0))) - (_lambda-args181386_ - (let ((__tmp186186 + (_lambda-args96029_ + (let ((__tmp96261 (let () (declare (not safe)) - (cons _fold-out181384_ + (cons _fold-out96027_ '())))) (declare (not safe)) (foldr1 cons - __tmp186186 - _fold-in181382_))) - (_lambda-body181403_ - (if (fx> _depth181374_ '1) - (let ((_r-args181394_ - (map (lambda (_arg181388_) - (let ((__tmp186191 + __tmp96261 + _fold-in96025_))) + (_lambda-body96046_ + (if (fx> _depth96017_ '1) + (let ((_r-args96037_ + (map (lambda (_arg96031_) + (let ((__tmp96266 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _arg181388_))) + (cdr _arg96031_))) (declare (not safe)) - (cons 'ref __tmp186191))) - _args181371_)) - (_r-vars181395_ - (let ((__tmp186192 - (lambda (_arg181390_ _var181391_ _r181392_) - (let ((__tmp186193 - (let ((__tmp186194 (cdr _arg181390_))) + (cons 'ref __tmp96266))) + _args96014_)) + (_r-vars96038_ + (let ((__tmp96267 + (lambda (_arg96033_ _var96034_ _r96035_) + (let ((__tmp96268 + (let ((__tmp96269 (cdr _arg96033_))) (declare (not safe)) - (cons __tmp186194 _var181391_)))) + (cons __tmp96269 _var96034_)))) (declare (not safe)) - (cons __tmp186193 _r181392_))))) + (cons __tmp96268 _r96035_))))) (declare (not safe)) - (foldr2 __tmp186192 - _vars181329_ - _args181371_ - _fold-in181382_)))) + (foldr2 __tmp96267 + _vars95972_ + _args96014_ + _fold-in96025_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp186195 - (let ((__tmp186196 + (let ((__tmp96270 + (let ((__tmp96271 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp186200 + (let ((__tmp96275 (let () (declare (not safe)) - (fx- _depth181374_ '1))) - (__tmp186197 - (let ((__tmp186198 - (let ((__tmp186199 + (fx- _depth96017_ '1))) + (__tmp96272 + (let ((__tmp96273 + (let ((__tmp96274 (let () (declare (not safe)) - (cons 'var - _fold-out181384_)))) + (cons 'var _fold-out96027_)))) (declare (not safe)) - (cons __tmp186199 _r-args181394_)))) + (cons __tmp96274 _r-args96037_)))) (declare (not safe)) - (cons _hd181373_ __tmp186198)))) + (cons _hd96016_ __tmp96273)))) (declare (not safe)) - (cons __tmp186200 __tmp186197)))) + (cons __tmp96275 __tmp96272)))) (declare (not safe)) - (cons 'splice __tmp186196)))) + (cons 'splice __tmp96271)))) (declare (not safe)) - (_recur181326_ __tmp186195 _r-vars181395_))) + (_recur95969_ __tmp96270 _r-vars96038_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_hd-vars181401_ - (let ((__tmp186187 + (let* ((_hd-vars96044_ + (let ((__tmp96262 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_arg181397_ _var181398_ _r181399_) - (let ((__tmp186188 - (let ((__tmp186189 (cdr _arg181397_))) + (lambda (_arg96040_ _var96041_ _r96042_) + (let ((__tmp96263 + (let ((__tmp96264 (cdr _arg96040_))) (declare (not safe)) - (cons __tmp186189 _var181398_)))) + (cons __tmp96264 _var96041_)))) (declare (not safe)) - (cons __tmp186188 _r181399_))))) + (cons __tmp96263 _r96042_))))) (declare (not safe)) - (foldr2 __tmp186187 - _vars181329_ - _args181371_ - _fold-in181382_))) - (__tmp186190 + (foldr2 __tmp96262 + _vars95972_ + _args96014_ + _fold-in96025_))) + (__tmp96265 (let () (declare (not safe)) - (_recur181326_ _hd181373_ _hd-vars181401_)))) + (_recur95969_ _hd96016_ _hd-vars96044_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'cons - __tmp186190 - _fold-out181384_))))) - (let ((__tmp186204 - (if (fx> (length _targets181380_) + __tmp96265 + _fold-out96027_))))) + (let ((__tmp96279 + (if (fx> (length _targets96023_) '1) (let () (declare (not safe)) (gx#core-cons* 'syntax-check-splice-targets - _targets181380_)) + _targets96023_)) '#!void)) - (__tmp186201 - (let ((__tmp186203 + (__tmp96276 + (let ((__tmp96278 (let () (declare (not safe)) (gx#core-list 'lambda% - _lambda-args181386_ - _lambda-body181403_))) - (__tmp186202 + _lambda-args96029_ + _lambda-body96046_))) + (__tmp96277 (let () (declare (not safe)) - (_recur181326_ - _iv181372_ - _vars181329_)))) + (_recur95969_ + _iv96015_ + _vars95972_)))) (declare (not safe)) (gx#core-cons* 'foldr - __tmp186203 - __tmp186202 - _targets181380_)))) + __tmp96278 + __tmp96277 + _targets96023_)))) (declare (not safe)) (gx#core-list 'begin - __tmp186204 - __tmp186201)))))) + __tmp96279 + __tmp96276)))))) (if (let () (declare (not safe)) - (##pair? _body181353181364_)) - (let ((_hd181357181409_ + (##pair? _body9599696007_)) + (let ((_hd9600096052_ (let () (declare (not safe)) - (##car _body181353181364_))) - (_tl181358181411_ + (##car _body9599696007_))) + (_tl9600196054_ (let () (declare (not safe)) - (##cdr _body181353181364_)))) - (let ((_depth181414_ _hd181357181409_)) + (##cdr _body9599696007_)))) + (let ((_depth96057_ _hd9600096052_)) (if (let () (declare (not safe)) - (##pair? _tl181358181411_)) - (let ((_hd181359181416_ + (##pair? _tl9600196054_)) + (let ((_hd9600296059_ (let () (declare (not safe)) - (##car _tl181358181411_))) - (_tl181360181418_ + (##car _tl9600196054_))) + (_tl9600396061_ (let () (declare (not safe)) - (##cdr _tl181358181411_)))) - (let ((_hd181421_ - _hd181359181416_)) + (##cdr _tl9600196054_)))) + (let ((_hd96064_ _hd9600296059_)) (if (let () (declare (not safe)) - (##pair? _tl181360181418_)) - (let ((_hd181361181423_ + (##pair? _tl9600396061_)) + (let ((_hd9600496066_ (let () (declare (not safe)) - (##car _tl181360181418_))) - (_tl181362181425_ + (##car _tl9600396061_))) + (_tl9600596068_ (let () (declare (not safe)) - (##cdr _tl181360181418_)))) - (let* ((_iv181428_ - _hd181361181423_) - (_args181430_ - _tl181362181425_)) + (##cdr _tl9600396061_)))) + (let* ((_iv96071_ + _hd9600496066_) + (_args96073_ + _tl9600596068_)) (declare (not safe)) - (_K181356181406_ - _args181430_ - _iv181428_ - _hd181421_ - _depth181414_))) + (_K9599996049_ + _args96073_ + _iv96071_ + _hd96064_ + _depth96057_))) (let () (declare (not safe)) - (_E181355181368_))))) + (_E9599896011_))))) (let () (declare (not safe)) - (_E181355181368_))))) + (_E9599896011_))))) (let () (declare (not safe)) - (_E181355181368_)))) + (_E9599896011_)))) (if (let () (declare (not safe)) - (eq? 'var _$e181347_)) - _body181344_ + (eq? 'var _$e95990_)) + _body95987_ (let () (declare (not safe)) - (_BUG181321_ _e181328_))))))))))))))) + (_BUG95964_ _e95971_))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e181330181337_)) - (let ((_hd181334181435_ + (##pair? _e9597395980_)) + (let ((_hd9597796078_ (let () (declare (not safe)) - (##car _e181330181337_))) - (_tl181335181437_ + (##car _e9597395980_))) + (_tl9597896080_ (let () (declare (not safe)) - (##cdr _e181330181337_)))) - (let* ((_tag181440_ _hd181334181435_) - (_body181442_ _tl181335181437_)) + (##cdr _e9597395980_)))) + (let* ((_tag96083_ _hd9597796078_) + (_body96085_ _tl9597896080_)) (declare (not safe)) - (_K181333181432_ _body181442_ _tag181440_))) + (_K9597696075_ _body96085_ _tag96083_))) (let () (declare (not safe)) - (_E181332181341_)))))))) - (_parse181093_ - (lambda (_e181134_) - (letrec ((_make-cons181136_ - (lambda (_hd181311_ _tl181312_) - (let ((_g186214_ _hd181311_) - (_g186216_ _tl181312_)) + (_E9597595984_)))))))) + (_parse95736_ + (lambda (_e95777_) + (letrec ((_make-cons95779_ + (lambda (_hd95954_ _tl95955_) + (let ((_g96289_ _hd95954_) + (_g96291_ _tl95955_)) (begin - (let ((_g186215_ + (let ((_g96290_ (let () (declare (not safe)) - (if (##values? _g186214_) - (##vector-length _g186214_) + (if (##values? _g96289_) + (##vector-length _g96289_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g186215_ 2))) + (##fx= _g96290_ 2))) (error "Context expects 2 values" - _g186215_))) - (let ((_g186217_ + _g96290_))) + (let ((_g96292_ (let () (declare (not safe)) - (if (##values? _g186216_) - (##vector-length _g186216_) + (if (##values? _g96291_) + (##vector-length _g96291_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g186217_ 2))) + (##fx= _g96292_ 2))) (error "Context expects 2 values" - _g186217_))) - (let ((_hd-e181314_ + _g96292_))) + (let ((_hd-e95957_ (let () (declare (not safe)) - (##vector-ref _g186214_ 0))) - (_hd-vars181315_ + (##vector-ref _g96289_ 0))) + (_hd-vars95958_ (let () (declare (not safe)) - (##vector-ref _g186214_ 1)))) - (let ((_tl-e181316_ + (##vector-ref _g96289_ 1)))) + (let ((_tl-e95959_ (let () (declare (not safe)) - (##vector-ref _g186216_ 0))) - (_tl-vars181317_ + (##vector-ref _g96291_ 0))) + (_tl-vars95960_ (let () (declare (not safe)) - (##vector-ref _g186216_ 1)))) - (values (let ((__tmp186218 + (##vector-ref _g96291_ 1)))) + (values (let ((__tmp96293 (let () (declare (not safe)) - (cons _hd-e181314_ - _tl-e181316_)))) + (cons _hd-e95957_ + _tl-e95959_)))) (declare (not safe)) - (cons 'cons __tmp186218)) - (append _hd-vars181315_ - _tl-vars181317_)))))))) - (_make-splice181137_ - (lambda (_where181250_ - _depth181251_ - _hd181252_ - _tl181253_) - (let ((_g186219_ _hd181252_) - (_g186221_ _tl181253_)) + (cons 'cons __tmp96293)) + (append _hd-vars95958_ + _tl-vars95960_)))))))) + (_make-splice95780_ + (lambda (_where95893_ + _depth95894_ + _hd95895_ + _tl95896_) + (let ((_g96294_ _hd95895_) + (_g96296_ _tl95896_)) (begin - (let ((_g186220_ + (let ((_g96295_ (let () (declare (not safe)) - (if (##values? _g186219_) - (##vector-length _g186219_) + (if (##values? _g96294_) + (##vector-length _g96294_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g186220_ 2))) + (##fx= _g96295_ 2))) (error "Context expects 2 values" - _g186220_))) - (let ((_g186222_ + _g96295_))) + (let ((_g96297_ (let () (declare (not safe)) - (if (##values? _g186221_) - (##vector-length _g186221_) + (if (##values? _g96296_) + (##vector-length _g96296_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g186222_ 2))) + (##fx= _g96297_ 2))) (error "Context expects 2 values" - _g186222_))) - (let ((_hd-e181255_ + _g96297_))) + (let ((_hd-e95898_ (let () (declare (not safe)) - (##vector-ref _g186219_ 0))) - (_hd-vars181256_ + (##vector-ref _g96294_ 0))) + (_hd-vars95899_ (let () (declare (not safe)) - (##vector-ref _g186219_ 1)))) - (let ((_tl-e181257_ + (##vector-ref _g96294_ 1)))) + (let ((_tl-e95900_ (let () (declare (not safe)) - (##vector-ref _g186221_ 0))) - (_tl-vars181258_ + (##vector-ref _g96296_ 0))) + (_tl-vars95901_ (let () (declare (not safe)) - (##vector-ref _g186221_ 1)))) - (let _lp181260_ ((_rest181262_ - _hd-vars181256_) - (_targets181263_ '()) - (_vars181264_ - _tl-vars181258_)) - (let* ((_rest181265181275_ - _rest181262_) - (_else181267181283_ + (##vector-ref _g96296_ 1)))) + (let _lp95903_ ((_rest95905_ + _hd-vars95899_) + (_targets95906_ '()) + (_vars95907_ + _tl-vars95901_)) + (let* ((_rest9590895918_ _rest95905_) + (_else9591095926_ (lambda () (if (let () (declare (not safe)) - (null? _targets181263_)) + (null? _targets95906_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _stx181090_ - _where181250_)) - (values (let ((__tmp186223 + _stx95733_ + _where95893_)) + (values (let ((__tmp96298 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp186224 - (let ((__tmp186225 + (let ((__tmp96299 + (let ((__tmp96300 (let () (declare (not safe)) - (cons _tl-e181257_ - _targets181263_)))) + (cons _tl-e95900_ + _targets95906_)))) (declare (not safe)) - (cons _hd-e181255_ __tmp186225)))) + (cons _hd-e95898_ __tmp96300)))) (declare (not safe)) - (cons _depth181251_ __tmp186224)))) + (cons _depth95894_ __tmp96299)))) (declare (not safe)) - (cons 'splice __tmp186223)) - _vars181264_)))) + (cons 'splice __tmp96298)) + _vars95907_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K181269181292_ - (lambda (_rest181286_ - _hd-pat181287_ - _hd-depth*181288_) - (let ((_hd-depth181290_ - (fx- _hd-depth*181288_ - _depth181251_))) + (_K9591295935_ + (lambda (_rest95929_ + _hd-pat95930_ + _hd-depth*95931_) + (let ((_hd-depth95933_ + (fx- _hd-depth*95931_ + _depth95894_))) (if (fxpositive? - _hd-depth181290_) - (let ((__tmp186230 + _hd-depth95933_) + (let ((__tmp96305 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp186231 + (let ((__tmp96306 (let () (declare (not safe)) - (cons 'ref _hd-pat181287_)))) + (cons 'ref _hd-pat95930_)))) (declare (not safe)) - (cons __tmp186231 _targets181263_))) - (__tmp186228 - (let ((__tmp186229 + (cons __tmp96306 _targets95906_))) + (__tmp96303 + (let ((__tmp96304 (let () (declare (not safe)) - (cons _hd-depth181290_ _hd-pat181287_)))) + (cons _hd-depth95933_ _hd-pat95930_)))) (declare (not safe)) - (cons __tmp186229 _vars181264_)))) + (cons __tmp96304 _vars95907_)))) (declare (not safe)) - (_lp181260_ _rest181286_ __tmp186230 __tmp186228)) - (if (let () (declare (not safe)) (fxzero? _hd-depth181290_)) - (let ((__tmp186226 - (let ((__tmp186227 + (_lp95903_ _rest95929_ __tmp96305 __tmp96303)) + (if (let () (declare (not safe)) (fxzero? _hd-depth95933_)) + (let ((__tmp96301 + (let ((__tmp96302 (let () (declare (not safe)) - (cons 'pattern _hd-pat181287_)))) + (cons 'pattern _hd-pat95930_)))) (declare (not safe)) - (cons __tmp186227 _targets181263_)))) + (cons __tmp96302 _targets95906_)))) (declare (not safe)) - (_lp181260_ _rest181286_ __tmp186226 _vars181264_)) + (_lp95903_ _rest95929_ __tmp96301 _vars95907_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Too many ellipses" - _stx181090_ - _where181250_)))))))) + _stx95733_ + _where95893_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest181265181275_)) - (let ((_hd181270181295_ + (##pair? _rest9590895918_)) + (let ((_hd9591395938_ (let () (declare (not safe)) - (##car _rest181265181275_))) - (_tl181271181297_ + (##car _rest9590895918_))) + (_tl9591495940_ (let () (declare (not safe)) - (##cdr _rest181265181275_)))) + (##cdr _rest9590895918_)))) (if (let () (declare (not safe)) - (##pair? _hd181270181295_)) - (let ((_hd181272181300_ + (##pair? _hd9591395938_)) + (let ((_hd9591595943_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd181270181295_))) - (_tl181273181302_ - (let () (declare (not safe)) (##cdr _hd181270181295_)))) - (let* ((_hd-depth*181305_ _hd181272181300_) - (_hd-pat181307_ _tl181273181302_) - (_rest181309_ _tl181271181297_)) + (##car _hd9591395938_))) + (_tl9591695945_ + (let () (declare (not safe)) (##cdr _hd9591395938_)))) + (let* ((_hd-depth*95948_ _hd9591595943_) + (_hd-pat95950_ _tl9591695945_) + (_rest95952_ _tl9591495940_)) (declare (not safe)) - (_K181269181292_ - _rest181309_ - _hd-pat181307_ - _hd-depth*181305_))) - (let () (declare (not safe)) (_else181267181283_)))) + (_K9591295935_ _rest95952_ _hd-pat95950_ _hd-depth*95948_))) + (let () (declare (not safe)) (_else9591095926_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else181267181283_))))))))))) - (_recur181138_ - (lambda (_e181143_ _is-e?181144_) - (if (_is-e?181144_ _e181143_) + (_else9591095926_))))))))))) + (_recur95781_ + (lambda (_e95786_ _is-e?95787_) + (if (_is-e?95787_ _e95786_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Mislpaced ellipsis" - _stx181090_)) + _stx95733_)) (if (let () (declare (not safe)) - (gx#syntax-local-pattern? _e181143_)) - (let* ((_pat181146_ + (gx#syntax-local-pattern? _e95786_)) + (let* ((_pat95789_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _e181143_))) - (_depth181148_ + _e95786_))) + (_depth95791_ (##structure-ref - _pat181146_ + _pat95789_ '3 gx#syntax-pattern::t '#f))) - (if (fxpositive? _depth181148_) + (if (fxpositive? _depth95791_) (values (let () (declare (not safe)) - (cons 'ref - _pat181146_)) - (let ((__tmp186247 + (cons 'ref _pat95789_)) + (let ((__tmp96322 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _depth181148_ _pat181146_)))) + (cons _depth95791_ _pat95789_)))) (declare (not safe)) - (cons __tmp186247 '()))) + (cons __tmp96322 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (values (let () (declare (not safe)) (cons 'pattern - _pat181146_)) + _pat95789_)) '()))) (if (let () (declare (not safe)) - (gx#identifier? _e181143_)) + (gx#identifier? _e95786_)) (values (let () (declare (not safe)) - (cons 'term _e181143_)) + (cons 'term _e95786_)) '()) (if (let () (declare (not safe)) - (gx#stx-pair? _e181143_)) - (let* ((_e181150181157_ - _e181143_) - (_E181152181161_ + (gx#stx-pair? _e95786_)) + (let* ((_e9579395800_ _e95786_) + (_E9579595804_ (lambda () (let () (declare @@ -791,2457 +788,2429 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e181150181157_)))) - (_E181151181240_ + _e9579395800_)))) + (_E9579495883_ (lambda () (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _e181150181157_)) - (let ((_e181153181165_ + (gx#stx-pair? _e9579395800_)) + (let ((_e9579695808_ (let () (declare (not safe)) - (gx#syntax-e _e181150181157_)))) - (let ((_hd181154181168_ + (gx#syntax-e _e9579395800_)))) + (let ((_hd9579795811_ (let () (declare (not safe)) - (##car _e181153181165_))) - (_tl181155181170_ + (##car _e9579695808_))) + (_tl9579895813_ (let () (declare (not safe)) - (##cdr _e181153181165_)))) - (let* ((_hd181173_ _hd181154181168_) - (_rest181175_ _tl181155181170_)) + (##cdr _e9579695808_)))) + (let* ((_hd95816_ _hd9579795811_) + (_rest95818_ _tl9579895813_)) (if '#t - (if (_is-e?181144_ _hd181173_) - (let* ((_e181176181183_ _rest181175_) - (_E181178181187_ + (if (_is-e?95787_ _hd95816_) + (let* ((_e9581995826_ _rest95818_) + (_E9582195830_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad ellipsis syntax" - _stx181090_ - _e181143_)))) - (_E181177181201_ + _stx95733_ + _e95786_)))) + (_E9582095844_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _e181176181183_)) - (let ((_e181179181191_ + _e9581995826_)) + (let ((_e9582295834_ (let () (declare (not safe)) (gx#syntax-e - _e181176181183_)))) - (let ((_hd181180181194_ + _e9581995826_)))) + (let ((_hd9582395837_ (let () (declare (not safe)) - (##car _e181179181191_))) - (_tl181181181196_ + (##car _e9582295834_))) + (_tl9582495839_ (let () (declare (not safe)) - (##cdr _e181179181191_)))) - (let ((_rest181199_ - _hd181180181194_)) + (##cdr _e9582295834_)))) + (let ((_rest95842_ + _hd9582395837_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl181181181196_)) + _tl9582495839_)) (if '#t (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_recur181138_ _rest181199_ false)) - (let () (declare (not safe)) (_E181178181187_))) - (let () (declare (not safe)) (_E181178181187_)))))) + (_recur95781_ _rest95842_ false)) + (let () (declare (not safe)) (_E9582195830_))) + (let () (declare (not safe)) (_E9582195830_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E181178181187_)))))) + (_E9582195830_)))))) (let () (declare (not safe)) - (_E181177181201_))) - (let _lp181205_ ((_rest181207_ - _rest181175_) - (_depth181208_ '0)) - (let* ((_e181209181216_ _rest181207_) - (_E181211181220_ + (_E9582095844_))) + (let _lp95848_ ((_rest95850_ _rest95818_) + (_depth95851_ '0)) + (let* ((_e9585295859_ _rest95850_) + (_E9585495863_ (lambda () - (if (fxpositive? _depth181208_) - (let ((__tmp186241 + (if (fxpositive? _depth95851_) + (let ((__tmp96316 (let () (declare (not safe)) - (_recur181138_ - _hd181173_ - _is-e?181144_))) - (__tmp186240 + (_recur95781_ + _hd95816_ + _is-e?95787_))) + (__tmp96315 (let () (declare (not safe)) - (_recur181138_ - _rest181207_ - _is-e?181144_)))) + (_recur95781_ + _rest95850_ + _is-e?95787_)))) (declare (not safe)) - (_make-splice181137_ - _e181143_ - _depth181208_ - __tmp186241 - __tmp186240)) - (let ((__tmp186239 + (_make-splice95780_ + _e95786_ + _depth95851_ + __tmp96316 + __tmp96315)) + (let ((__tmp96314 (let () (declare (not safe)) - (_recur181138_ - _hd181173_ - _is-e?181144_))) - (__tmp186238 + (_recur95781_ + _hd95816_ + _is-e?95787_))) + (__tmp96313 (let () (declare (not safe)) - (_recur181138_ - _rest181207_ - _is-e?181144_)))) + (_recur95781_ + _rest95850_ + _is-e?95787_)))) (declare (not safe)) - (_make-cons181136_ - __tmp186239 - __tmp186238))))) - (_E181210181236_ + (_make-cons95779_ + __tmp96314 + __tmp96313))))) + (_E9585395879_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _e181209181216_)) - (let ((_e181212181224_ + _e9585295859_)) + (let ((_e9585595867_ (let () (declare (not safe)) (gx#syntax-e - _e181209181216_)))) - (let ((_hd181213181227_ + _e9585295859_)))) + (let ((_hd9585695870_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e181212181224_))) - (_tl181214181229_ - (let () (declare (not safe)) (##cdr _e181212181224_)))) - (let* ((_rest-hd181232_ _hd181213181227_) - (_rest-tl181234_ _tl181214181229_)) + (##car _e9585595867_))) + (_tl9585795872_ + (let () (declare (not safe)) (##cdr _e9585595867_)))) + (let* ((_rest-hd95875_ _hd9585695870_) + (_rest-tl95877_ _tl9585795872_)) (if '#t - (if (_is-e?181144_ _rest-hd181232_) - (let ((__tmp186246 + (if (_is-e?95787_ _rest-hd95875_) + (let ((__tmp96321 (let () (declare (not safe)) - (fx+ _depth181208_ '1)))) + (fx+ _depth95851_ '1)))) (declare (not safe)) - (_lp181205_ _rest-tl181234_ __tmp186246)) - (if (fxpositive? _depth181208_) - (let ((__tmp186245 + (_lp95848_ _rest-tl95877_ __tmp96321)) + (if (fxpositive? _depth95851_) + (let ((__tmp96320 (let () (declare (not safe)) - (_recur181138_ - _hd181173_ - _is-e?181144_))) - (__tmp186244 + (_recur95781_ _hd95816_ _is-e?95787_))) + (__tmp96319 (let () (declare (not safe)) - (_recur181138_ - _rest181207_ - _is-e?181144_)))) + (_recur95781_ + _rest95850_ + _is-e?95787_)))) (declare (not safe)) - (_make-splice181137_ - _e181143_ - _depth181208_ - __tmp186245 - __tmp186244)) - (let ((__tmp186243 + (_make-splice95780_ + _e95786_ + _depth95851_ + __tmp96320 + __tmp96319)) + (let ((__tmp96318 (let () (declare (not safe)) - (_recur181138_ - _hd181173_ - _is-e?181144_))) - (__tmp186242 + (_recur95781_ _hd95816_ _is-e?95787_))) + (__tmp96317 (let () (declare (not safe)) - (_recur181138_ - _rest181207_ - _is-e?181144_)))) + (_recur95781_ + _rest95850_ + _is-e?95787_)))) (declare (not safe)) - (_make-cons181136_ __tmp186243 __tmp186242)))) - (let () (declare (not safe)) (_E181211181220_)))))) + (_make-cons95779_ __tmp96318 __tmp96317)))) + (let () (declare (not safe)) (_E9585495863_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E181211181220_)))))) + (_E9585495863_)))))) (let () (declare (not safe)) - (_E181210181236_))))) + (_E9585395879_))))) (let () (declare (not safe)) - (_E181152181161_)))))) - (let () (declare (not safe)) (_E181152181161_)))))) + (_E9579595804_)))))) + (let () (declare (not safe)) (_E9579595804_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E181151181240_))) + (_E9579495883_))) (if (let () (declare (not safe)) (gx#stx-vector? - _e181143_)) - (let ((_g186235_ - (let ((__tmp186237 + _e95786_)) + (let ((_g96310_ + (let ((__tmp96312 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (vector->list (let () (declare (not safe)) - (gx#stx-unwrap__0 _e181143_))))) + (gx#stx-unwrap__0 _e95786_))))) (declare (not safe)) - (_recur181138_ __tmp186237 _is-e?181144_)))) + (_recur95781_ __tmp96312 _is-e?95787_)))) (begin - (let ((_g186236_ + (let ((_g96311_ (let () (declare (not safe)) - (if (##values? _g186235_) - (##vector-length _g186235_) + (if (##values? _g96310_) + (##vector-length _g96310_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g186236_ 2))) - (error "Context expects 2 values" _g186236_))) - (let ((_e181244_ - (let () - (declare (not safe)) - (##vector-ref _g186235_ 0))) - (_vars181245_ + (if (not (let () (declare (not safe)) (##fx= _g96311_ 2))) + (error "Context expects 2 values" _g96311_))) + (let ((_e95887_ + (let () (declare (not safe)) (##vector-ref _g96310_ 0))) + (_vars95888_ (let () (declare (not safe)) - (##vector-ref _g186235_ 1)))) - (values (let () - (declare (not safe)) - (cons 'vector _e181244_)) - _vars181245_)))) + (##vector-ref _g96310_ 1)))) + (values (let () (declare (not safe)) (cons 'vector _e95887_)) + _vars95888_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-box? - _e181143_)) - (let ((_g186232_ - (let ((__tmp186234 + _e95786_)) + (let ((_g96307_ + (let ((__tmp96309 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (unbox (let () (declare (not safe)) - (gx#stx-unwrap__0 _e181143_))))) + (gx#stx-unwrap__0 _e95786_))))) (declare (not safe)) - (_recur181138_ __tmp186234 _is-e?181144_)))) + (_recur95781_ __tmp96309 _is-e?95787_)))) (begin - (let ((_g186233_ + (let ((_g96308_ (let () (declare (not safe)) - (if (##values? _g186232_) - (##vector-length _g186232_) + (if (##values? _g96307_) + (##vector-length _g96307_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g186233_ 2))) - (error "Context expects 2 values" _g186233_))) - (let ((_e181247_ + (##fx= _g96308_ 2))) + (error "Context expects 2 values" _g96308_))) + (let ((_e95890_ (let () (declare (not safe)) - (##vector-ref _g186232_ 0))) - (_vars181248_ + (##vector-ref _g96307_ 0))) + (_vars95891_ (let () (declare (not safe)) - (##vector-ref _g186232_ 1)))) + (##vector-ref _g96307_ 1)))) (values (let () (declare (not safe)) - (cons 'box _e181247_)) - _vars181248_)))) - (values (let () (declare (not safe)) (cons 'datum _e181143_)) + (cons 'box _e95890_)) + _vars95891_)))) + (values (let () (declare (not safe)) (cons 'datum _e95786_)) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g186248_ + (let ((_g96323_ (let () (declare (not safe)) - (_recur181138_ _e181134_ gx#ellipsis?)))) + (_recur95781_ _e95777_ gx#ellipsis?)))) (begin - (let ((_g186249_ + (let ((_g96324_ (let () (declare (not safe)) - (if (##values? _g186248_) - (##vector-length _g186248_) + (if (##values? _g96323_) + (##vector-length _g96323_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g186249_ 2))) - (error "Context expects 2 values" _g186249_))) - (let ((_tree181140_ + (##fx= _g96324_ 2))) + (error "Context expects 2 values" _g96324_))) + (let ((_tree95783_ (let () (declare (not safe)) - (##vector-ref _g186248_ 0))) - (_vars181141_ + (##vector-ref _g96323_ 0))) + (_vars95784_ (let () (declare (not safe)) - (##vector-ref _g186248_ 1)))) + (##vector-ref _g96323_ 1)))) (if (let () (declare (not safe)) - (null? _vars181141_)) - _tree181140_ + (null? _vars95784_)) + _tree95783_ (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Missing ellipsis" - _stx181090_ - _vars181141_)))))))))) - (let* ((_e181094181104_ _stx181090_) - (_E181096181108_ + _stx95733_ + _vars95784_)))))))))) + (let* ((_e9573795747_ _stx95733_) + (_E9573995751_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; expand-syntax expects a single argument" - _stx181090_)))) - (_E181095181130_ + _stx95733_)))) + (_E9573895773_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e181094181104_)) - (let ((_e181097181112_ + (gx#stx-pair? _e9573795747_)) + (let ((_e9574095755_ (let () (declare (not safe)) - (gx#syntax-e _e181094181104_)))) - (let ((_hd181098181115_ + (gx#syntax-e _e9573795747_)))) + (let ((_hd9574195758_ (let () (declare (not safe)) - (##car _e181097181112_))) - (_tl181099181117_ + (##car _e9574095755_))) + (_tl9574295760_ (let () (declare (not safe)) - (##cdr _e181097181112_)))) + (##cdr _e9574095755_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl181099181117_)) - (let ((_e181100181120_ + (gx#stx-pair? _tl9574295760_)) + (let ((_e9574395763_ (let () (declare (not safe)) - (gx#syntax-e _tl181099181117_)))) - (let ((_hd181101181123_ + (gx#syntax-e _tl9574295760_)))) + (let ((_hd9574495766_ (let () (declare (not safe)) - (##car _e181100181120_))) - (_tl181102181125_ + (##car _e9574395763_))) + (_tl9574595768_ (let () (declare (not safe)) - (##cdr _e181100181120_)))) - (let ((_form181128_ _hd181101181123_)) + (##cdr _e9574395763_)))) + (let ((_form95771_ _hd9574495766_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl181102181125_)) + (gx#stx-null? _tl9574595768_)) (if '#t - (let ((__tmp186251 - (let ((__tmp186252 + (let ((__tmp96326 + (let ((__tmp96327 (let () (declare (not safe)) - (_parse181093_ - _form181128_)))) + (_parse95736_ + _form95771_)))) (declare (not safe)) - (_generate181092_ - __tmp186252))) - (__tmp186250 + (_generate95735_ + __tmp96327))) + (__tmp96325 (let () (declare (not safe)) (gx#stx-source - _stx181090_)))) + _stx95733_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp186251 - __tmp186250)) + __tmp96326 + __tmp96325)) (let () (declare (not safe)) - (_E181096181108_))) + (_E9573995751_))) (let () (declare (not safe)) - (_E181096181108_)))))) + (_E9573995751_)))))) (let () (declare (not safe)) - (_E181096181108_))))) - (let () (declare (not safe)) (_E181096181108_)))))) - (let () (declare (not safe)) (_E181095181130_)))))) + (_E9573995751_))))) + (let () (declare (not safe)) (_E9573995751_)))))) + (let () (declare (not safe)) (_E9573895773_)))))) (define gx#macro-expand-syntax-case__% - (lambda (_stx180354_ - _identifier=?180355_ - _unwrap-e180356_ - _wrap-e180357_) - (letrec ((_generate-bindings180359_ - (lambda (_target180954_ - _ids180955_ - _clauses180956_ - _clause-ids180957_ - _E180958_) - (letrec ((_generate1180960_ - (lambda (_clause181057_ - _clause-id181058_ - _E181059_) - (let ((__tmp186257 + (lambda (_stx94997_ _identifier=?94998_ _unwrap-e94999_ _wrap-e95000_) + (letrec ((_generate-bindings95002_ + (lambda (_target95597_ + _ids95598_ + _clauses95599_ + _clause-ids95600_ + _E95601_) + (letrec ((_generate195603_ + (lambda (_clause95700_ _clause-id95701_ _E95702_) + (let ((__tmp96332 (let () (declare (not safe)) - (cons _clause-id181058_ '()))) - (__tmp186253 - (let ((__tmp186254 - (let ((__tmp186256 + (cons _clause-id95701_ '()))) + (__tmp96328 + (let ((__tmp96329 + (let ((__tmp96331 (let () (declare (not safe)) - (cons _target180954_ + (cons _target95597_ '()))) - (__tmp186255 + (__tmp96330 (let () (declare (not safe)) - (_generate-clause180361_ - _target180954_ - _ids180955_ - _clause181057_ - _E181059_)))) + (_generate-clause95004_ + _target95597_ + _ids95598_ + _clause95700_ + _E95702_)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp186256 - __tmp186255)))) + __tmp96331 + __tmp96330)))) (declare (not safe)) - (cons __tmp186254 '())))) + (cons __tmp96329 '())))) (declare (not safe)) - (cons __tmp186257 __tmp186253))))) - (let _lp180962_ ((_rest180964_ _clauses180956_) - (_rest-ids180965_ _clause-ids180957_) - (_bindings180966_ '())) - (let* ((_rest180967180975_ _rest180964_) - (_else180969180983_ - (lambda () _bindings180966_)) - (_K180971181045_ - (lambda (_rest180986_ _clause180987_) - (let* ((_rest-ids180988180995_ - _rest-ids180965_) - (_E180990180999_ + (cons __tmp96332 __tmp96328))))) + (let _lp95605_ ((_rest95607_ _clauses95599_) + (_rest-ids95608_ _clause-ids95600_) + (_bindings95609_ '())) + (let* ((_rest9561095618_ _rest95607_) + (_else9561295626_ (lambda () _bindings95609_)) + (_K9561495688_ + (lambda (_rest95629_ _clause95630_) + (let* ((_rest-ids9563195638_ _rest-ids95608_) + (_E9563395642_ (lambda () - (error '"No clause matching" - _rest-ids180988180995_))) - (_K180991181033_ - (lambda (_rest-ids181002_ - _clause-id181003_) - (let* ((_rest-ids181004181012_ - _rest-ids181002_) - (_else181006181020_ + (let () + (declare (not safe)) + (error '"No clause matching" + _rest-ids9563195638_)))) + (_K9563495676_ + (lambda (_rest-ids95645_ + _clause-id95646_) + (let* ((_rest-ids9564795655_ + _rest-ids95645_) + (_else9564995663_ (lambda () - (let ((__tmp186258 + (let ((__tmp96333 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_generate1180960_ - _clause180987_ - _clause-id181003_ - _E180958_)))) + (_generate195603_ + _clause95630_ + _clause-id95646_ + _E95601_)))) (declare (not safe)) - (cons __tmp186258 _bindings180966_)))) + (cons __tmp96333 _bindings95609_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K181008181025_ - (lambda (_next-clause-id181023_) - (let ((__tmp186259 - (let ((__tmp186260 + (_K9565195668_ + (lambda (_next-clause-id95666_) + (let ((__tmp96334 + (let ((__tmp96335 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_generate1180960_ - _clause180987_ - _clause-id181003_ - _next-clause-id181023_)))) + (_generate195603_ + _clause95630_ + _clause-id95646_ + _next-clause-id95666_)))) (declare (not safe)) - (cons __tmp186260 _bindings180966_)))) + (cons __tmp96335 _bindings95609_)))) (declare (not safe)) - (_lp180962_ _rest180986_ _rest-ids181002_ __tmp186259))))) + (_lp95605_ _rest95629_ _rest-ids95645_ __tmp96334))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest-ids181004181012_)) - (let* ((_hd181009181028_ + (##pair? _rest-ids9564795655_)) + (let* ((_hd9565295671_ (let () (declare (not safe)) - (##car _rest-ids181004181012_))) - (_next-clause-id181031_ - _hd181009181028_)) + (##car _rest-ids9564795655_))) + (_next-clause-id95674_ + _hd9565295671_)) (declare (not safe)) - (_K181008181025_ - _next-clause-id181031_)) + (_K9565195668_ + _next-clause-id95674_)) (let () (declare (not safe)) - (_else181006181020_))))))) + (_else9564995663_))))))) (if (let () (declare (not safe)) - (##pair? _rest-ids180988180995_)) - (let ((_hd180992181036_ + (##pair? _rest-ids9563195638_)) + (let ((_hd9563595679_ (let () (declare (not safe)) - (##car _rest-ids180988180995_))) - (_tl180993181038_ + (##car _rest-ids9563195638_))) + (_tl9563695681_ (let () (declare (not safe)) - (##cdr _rest-ids180988180995_)))) - (let* ((_clause-id181041_ - _hd180992181036_) - (_rest-ids181043_ - _tl180993181038_)) + (##cdr _rest-ids9563195638_)))) + (let* ((_clause-id95684_ + _hd9563595679_) + (_rest-ids95686_ + _tl9563695681_)) (declare (not safe)) - (_K180991181033_ - _rest-ids181043_ - _clause-id181041_))) + (_K9563495676_ + _rest-ids95686_ + _clause-id95684_))) (let () (declare (not safe)) - (_E180990180999_))))))) + (_E9563395642_))))))) (if (let () (declare (not safe)) - (##pair? _rest180967180975_)) - (let ((_hd180972181048_ + (##pair? _rest9561095618_)) + (let ((_hd9561595691_ (let () (declare (not safe)) - (##car _rest180967180975_))) - (_tl180973181050_ + (##car _rest9561095618_))) + (_tl9561695693_ (let () (declare (not safe)) - (##cdr _rest180967180975_)))) - (let* ((_clause181053_ _hd180972181048_) - (_rest181055_ _tl180973181050_)) + (##cdr _rest9561095618_)))) + (let* ((_clause95696_ _hd9561595691_) + (_rest95698_ _tl9561695693_)) (declare (not safe)) - (_K180971181045_ - _rest181055_ - _clause181053_))) + (_K9561495688_ _rest95698_ _clause95696_))) (let () (declare (not safe)) - (_else180969180983_)))))))) - (_generate-body180360_ - (lambda (_bindings180914_ _body180915_) - (let _recur180917_ ((_rest180919_ _bindings180914_)) - (let* ((_rest180920180928_ _rest180919_) - (_else180922180936_ (lambda () _body180915_)) - (_K180924180942_ - (lambda (_rest180939_ _hd180940_) - (let ((__tmp186262 + (_else9561295626_)))))))) + (_generate-body95003_ + (lambda (_bindings95557_ _body95558_) + (let _recur95560_ ((_rest95562_ _bindings95557_)) + (let* ((_rest9556395571_ _rest95562_) + (_else9556595579_ (lambda () _body95558_)) + (_K9556795585_ + (lambda (_rest95582_ _hd95583_) + (let ((__tmp96337 (let () (declare (not safe)) - (cons _hd180940_ '()))) - (__tmp186261 + (cons _hd95583_ '()))) + (__tmp96336 (let () (declare (not safe)) - (_recur180917_ _rest180939_)))) + (_recur95560_ _rest95582_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp186262 - __tmp186261))))) + __tmp96337 + __tmp96336))))) (if (let () (declare (not safe)) - (##pair? _rest180920180928_)) - (let ((_hd180925180945_ + (##pair? _rest9556395571_)) + (let ((_hd9556895588_ (let () (declare (not safe)) - (##car _rest180920180928_))) - (_tl180926180947_ + (##car _rest9556395571_))) + (_tl9556995590_ (let () (declare (not safe)) - (##cdr _rest180920180928_)))) - (let* ((_hd180950_ _hd180925180945_) - (_rest180952_ _tl180926180947_)) + (##cdr _rest9556395571_)))) + (let* ((_hd95593_ _hd9556895588_) + (_rest95595_ _tl9556995590_)) (declare (not safe)) - (_K180924180942_ _rest180952_ _hd180950_))) + (_K9556795585_ _rest95595_ _hd95593_))) (let () (declare (not safe)) - (_else180922180936_))))))) - (_generate-clause180361_ - (lambda (_target180777_ _ids180778_ _clause180779_ _E180780_) - (letrec ((_generate1180782_ - (lambda (_hd180869_ _fender180870_ _body180871_) - (let ((_g186263_ + (_else9556595579_))))))) + (_generate-clause95004_ + (lambda (_target95420_ _ids95421_ _clause95422_ _E95423_) + (letrec ((_generate195425_ + (lambda (_hd95512_ _fender95513_ _body95514_) + (let ((_g96338_ (let () (declare (not safe)) - (_parse-clause180363_ - _hd180869_ - _ids180778_)))) + (_parse-clause95006_ + _hd95512_ + _ids95421_)))) (begin - (let ((_g186264_ + (let ((_g96339_ (let () (declare (not safe)) - (if (##values? _g186263_) - (##vector-length _g186263_) + (if (##values? _g96338_) + (##vector-length _g96338_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g186264_ 2))) + (##fx= _g96339_ 2))) (error "Context expects 2 values" - _g186264_))) - (let ((_e180873_ + _g96339_))) + (let ((_e95516_ (let () (declare (not safe)) - (##vector-ref _g186263_ 0))) - (_mvars180874_ + (##vector-ref _g96338_ 0))) + (_mvars95517_ (let () (declare (not safe)) - (##vector-ref _g186263_ 1)))) - (let* ((_pvars180876_ + (##vector-ref _g96338_ 1)))) + (let* ((_pvars95519_ (map gx#syntax-local-rewrap (let () (declare (not safe)) (gx#gentemps - _mvars180874_)))) - (_E180878_ - (let ((__tmp186265 + _mvars95517_)))) + (_E95521_ + (let ((__tmp96340 (let () (declare (not safe)) - (cons _target180777_ + (cons _target95420_ '())))) (declare (not safe)) - (cons _E180780_ __tmp186265))) - (_K180911_ - (let ((__tmp186266 - (let ((__tmp186268 - (map (lambda (_mvar180880_ + (cons _E95423_ __tmp96340))) + (_K95554_ + (let ((__tmp96341 + (let ((__tmp96343 + (map (lambda (_mvar95523_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pvar180881_) - (let* ((_mvar180882180889_ _mvar180880_) - (_E180884180893_ + _pvar95524_) + (let* ((_mvar9552595532_ _mvar95523_) + (_E9552795536_ (lambda () - (error '"No clause matching" - _mvar180882180889_))) - (_K180885180899_ - (lambda (_depth180896_ _id180897_) - (let ((__tmp186269 - (let ((__tmp186270 - (let ((__tmp186272 + (let () + (declare (not safe)) + (error '"No clause matching" + _mvar9552595532_)))) + (_K9552895542_ + (lambda (_depth95539_ _id95540_) + (let ((__tmp96344 + (let ((__tmp96345 + (let ((__tmp96347 (let () (declare (not safe)) (gx#core-list 'quote - _id180897_))) - (__tmp186271 + _id95540_))) + (__tmp96346 (let () (declare (not safe)) (gx#core-list 'quote - _pvar180881_)))) + _pvar95524_)))) (declare (not safe)) (gx#core-list 'make-syntax-pattern - __tmp186272 - __tmp186271 - _depth180896_)))) + __tmp96347 + __tmp96346 + _depth95539_)))) (declare (not safe)) - (cons __tmp186270 '())))) + (cons __tmp96345 '())))) (declare (not safe)) - (cons _id180897_ __tmp186269))))) + (cons _id95540_ __tmp96344))))) (if (let () (declare (not safe)) - (##pair? _mvar180882180889_)) - (let ((_hd180886180902_ + (##pair? _mvar9552595532_)) + (let ((_hd9552995545_ (let () (declare (not safe)) - (##car _mvar180882180889_))) - (_tl180887180904_ + (##car _mvar9552595532_))) + (_tl9553095547_ (let () (declare (not safe)) - (##cdr _mvar180882180889_)))) - (let* ((_id180907_ _hd180886180902_) - (_depth180909_ _tl180887180904_)) + (##cdr _mvar9552595532_)))) + (let* ((_id95550_ _hd9552995545_) + (_depth95552_ _tl9553095547_)) (declare (not safe)) - (_K180885180899_ - _depth180909_ - _id180907_))) + (_K9552895542_ _depth95552_ _id95550_))) (let () (declare (not safe)) - (_E180884180893_))))) - _mvars180874_ - _pvars180876_)) - (__tmp186267 - (if (let () (declare (not safe)) (eq? _fender180870_ '#t)) - _body180871_ + (_E9552795536_))))) + _mvars95517_ + _pvars95519_)) + (__tmp96342 + (if (let () (declare (not safe)) (eq? _fender95513_ '#t)) + _body95514_ (let () (declare (not safe)) (gx#core-list 'if - _fender180870_ - _body180871_ - _E180878_))))) + _fender95513_ + _body95514_ + _E95521_))))) (declare (not safe)) - (gx#core-list 'let-syntax __tmp186268 __tmp186267)))) + (gx#core-list 'let-syntax __tmp96343 __tmp96342)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'lambda% - _pvars180876_ - __tmp186266)))) + _pvars95519_ + __tmp96341)))) (let () (declare (not safe)) - (_generate-match180362_ - _hd180869_ - _target180777_ - _e180873_ - _mvars180874_ - _K180911_ - _E180878_))))))))) - (let* ((_e180783180803_ _clause180779_) - (_E180792180807_ + (_generate-match95005_ + _hd95512_ + _target95420_ + _e95516_ + _mvars95517_ + _K95554_ + _E95521_))))))))) + (let* ((_e9542695446_ _clause95422_) + (_E9543595450_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e180783180803_)))) - (_E180785180841_ + _e9542695446_)))) + (_E9542895484_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e180783180803_)) - (let ((_e180793180811_ + (gx#stx-pair? _e9542695446_)) + (let ((_e9543695454_ (let () (declare (not safe)) - (gx#syntax-e _e180783180803_)))) - (let ((_hd180794180814_ + (gx#syntax-e _e9542695446_)))) + (let ((_hd9543795457_ (let () (declare (not safe)) - (##car _e180793180811_))) - (_tl180795180816_ + (##car _e9543695454_))) + (_tl9543895459_ (let () (declare (not safe)) - (##cdr _e180793180811_)))) - (let ((_hd180819_ _hd180794180814_)) + (##cdr _e9543695454_)))) + (let ((_hd95462_ _hd9543795457_)) (if (let () (declare (not safe)) - (gx#stx-pair? - _tl180795180816_)) - (let ((_e180796180821_ + (gx#stx-pair? _tl9543895459_)) + (let ((_e9543995464_ (let () (declare (not safe)) (gx#syntax-e - _tl180795180816_)))) - (let ((_hd180797180824_ + _tl9543895459_)))) + (let ((_hd9544095467_ (let () (declare (not safe)) - (##car _e180796180821_))) - (_tl180798180826_ + (##car _e9543995464_))) + (_tl9544195469_ (let () (declare (not safe)) - (##cdr _e180796180821_)))) - (let ((_fender180829_ - _hd180797180824_)) + (##cdr _e9543995464_)))) + (let ((_fender95472_ + _hd9544095467_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl180798180826_)) - (let ((_e180799180831_ + _tl9544195469_)) + (let ((_e9544295474_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _tl180798180826_)))) - (let ((_hd180800180834_ - (let () (declare (not safe)) (##car _e180799180831_))) - (_tl180801180836_ - (let () - (declare (not safe)) - (##cdr _e180799180831_)))) - (let ((_body180839_ _hd180800180834_)) + (gx#syntax-e _tl9544195469_)))) + (let ((_hd9544395477_ + (let () (declare (not safe)) (##car _e9544295474_))) + (_tl9544495479_ + (let () (declare (not safe)) (##cdr _e9544295474_)))) + (let ((_body95482_ _hd9544395477_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl180801180836_)) + (gx#stx-null? _tl9544495479_)) (if '#t (let () (declare (not safe)) - (_generate1180782_ - _hd180819_ - _fender180829_ - _body180839_)) - (let () (declare (not safe)) (_E180792180807_))) - (let () (declare (not safe)) (_E180792180807_)))))) - (let () (declare (not safe)) (_E180792180807_)))))) + (_generate195425_ + _hd95462_ + _fender95472_ + _body95482_)) + (let () (declare (not safe)) (_E9543595450_))) + (let () (declare (not safe)) (_E9543595450_)))))) + (let () (declare (not safe)) (_E9543595450_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E180792180807_)))))) + (_E9543595450_)))))) (let () (declare (not safe)) - (_E180792180807_))))) - (_E180784180865_ + (_E9543595450_))))) + (_E9542795508_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e180783180803_)) - (let ((_e180786180845_ + (gx#stx-pair? _e9542695446_)) + (let ((_e9542995488_ (let () (declare (not safe)) - (gx#syntax-e _e180783180803_)))) - (let ((_hd180787180848_ + (gx#syntax-e _e9542695446_)))) + (let ((_hd9543095491_ (let () (declare (not safe)) - (##car _e180786180845_))) - (_tl180788180850_ + (##car _e9542995488_))) + (_tl9543195493_ (let () (declare (not safe)) - (##cdr _e180786180845_)))) - (let ((_hd180853_ _hd180787180848_)) + (##cdr _e9542995488_)))) + (let ((_hd95496_ _hd9543095491_)) (if (let () (declare (not safe)) - (gx#stx-pair? - _tl180788180850_)) - (let ((_e180789180855_ + (gx#stx-pair? _tl9543195493_)) + (let ((_e9543295498_ (let () (declare (not safe)) (gx#syntax-e - _tl180788180850_)))) - (let ((_hd180790180858_ + _tl9543195493_)))) + (let ((_hd9543395501_ (let () (declare (not safe)) - (##car _e180789180855_))) - (_tl180791180860_ + (##car _e9543295498_))) + (_tl9543495503_ (let () (declare (not safe)) - (##cdr _e180789180855_)))) - (let ((_body180863_ - _hd180790180858_)) + (##cdr _e9543295498_)))) + (let ((_body95506_ + _hd9543395501_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl180791180860_)) + _tl9543495503_)) (if '#t (let () (declare (not safe)) - (_generate1180782_ - _hd180853_ + (_generate195425_ + _hd95496_ '#t - _body180863_)) + _body95506_)) (let () (declare (not safe)) - (_E180785180841_))) + (_E9542895484_))) (let () (declare (not safe)) - (_E180785180841_)))))) + (_E9542895484_)))))) (let () (declare (not safe)) - (_E180785180841_)))))) + (_E9542895484_)))))) (let () (declare (not safe)) - (_E180785180841_)))))) - (let () (declare (not safe)) (_E180784180865_)))))) - (_generate-match180362_ - (lambda (_where180526_ - _target180527_ - _hd180528_ - _mvars180529_ - _K180530_ - _E180531_) - (letrec ((_BUG180533_ - (lambda (_q180775_) - (error '"BUG: syntax-case; generate" - _stx180354_ - _hd180528_ - _q180775_))) - (_recur180534_ - (lambda (_e180625_ - _vars180626_ - _target180627_ - _E180628_ - _k180629_) - (let* ((_e180630180637_ _e180625_) - (_E180632180641_ + (_E9542895484_)))))) + (let () (declare (not safe)) (_E9542795508_)))))) + (_generate-match95005_ + (lambda (_where95169_ + _target95170_ + _hd95171_ + _mvars95172_ + _K95173_ + _E95174_) + (letrec ((_BUG95176_ + (lambda (_q95418_) + (let () + (declare (not safe)) + (error '"BUG: syntax-case; generate" + _stx94997_ + _hd95171_ + _q95418_)))) + (_recur95177_ + (lambda (_e95268_ + _vars95269_ + _target95270_ + _E95271_ + _k95272_) + (let* ((_e9527395280_ _e95268_) + (_E9527595284_ (lambda () - (error '"No clause matching" - _e180630180637_))) - (_K180633180763_ - (lambda (_body180644_ _tag180645_) - (let ((_$e180647_ _tag180645_)) + (let () + (declare (not safe)) + (error '"No clause matching" + _e9527395280_)))) + (_K9527695406_ + (lambda (_body95287_ _tag95288_) + (let ((_$e95290_ _tag95288_)) (if (let () (declare (not safe)) - (eq? 'any _$e180647_)) - (_k180629_ _vars180626_) + (eq? 'any _$e95290_)) + (_k95272_ _vars95269_) (if (let () (declare (not safe)) - (eq? 'id _$e180647_)) - (let ((__tmp186379 + (eq? 'id _$e95290_)) + (let ((__tmp96454 (let () (declare (not safe)) (gx#core-list 'identifier? - _target180627_))) - (__tmp186375 - (let ((__tmp186377 + _target95270_))) + (__tmp96450 + (let ((__tmp96452 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp186378 + (let ((__tmp96453 (let () (declare (not safe)) - (gx#core-list - _wrap-e180357_ - _body180644_)))) + (gx#core-list _wrap-e95000_ _body95287_)))) (declare (not safe)) (gx#core-list - _identifier=?180355_ - __tmp186378 - _target180627_))) - (__tmp186376 (_k180629_ _vars180626_))) + _identifier=?94998_ + __tmp96453 + _target95270_))) + (__tmp96451 (_k95272_ _vars95269_))) (declare (not safe)) - (gx#core-list 'if __tmp186377 __tmp186376 _E180628_)))) + (gx#core-list 'if __tmp96452 __tmp96451 _E95271_)))) (declare (not safe)) - (gx#core-list 'if __tmp186379 __tmp186375 _E180628_)) + (gx#core-list 'if __tmp96454 __tmp96450 _E95271_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (eq? 'var - _$e180647_)) - (_k180629_ - (let ((__tmp186374 + (eq? 'var _$e95290_)) + (_k95272_ + (let ((__tmp96449 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body180644_ _target180627_)))) + (cons _body95287_ _target95270_)))) (declare (not safe)) - (cons __tmp186374 _vars180626_))) - (if (let () (declare (not safe)) (eq? 'cons _$e180647_)) - (let ((_$e180650_ + (cons __tmp96449 _vars95269_))) + (if (let () (declare (not safe)) (eq? 'cons _$e95290_)) + (let ((_$e95293_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_$hd180651_ + (_$hd95294_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_$tl180652_ + (_$tl95295_ (let () (declare (not safe)) (gx#genident__1 'tl)))) - (let ((__tmp186373 + (let ((__tmp96448 (let () (declare (not safe)) - (gx#core-list 'stx-pair? _target180627_))) - (__tmp186354 - (let ((__tmp186368 - (let ((__tmp186369 - (let ((__tmp186372 + (gx#core-list 'stx-pair? _target95270_))) + (__tmp96429 + (let ((__tmp96443 + (let ((__tmp96444 + (let ((__tmp96447 (let () (declare (not safe)) - (cons _$e180650_ '()))) - (__tmp186370 - (let ((__tmp186371 + (cons _$e95293_ '()))) + (__tmp96445 + (let ((__tmp96446 (let () (declare (not safe)) (gx#core-list - _unwrap-e180356_ - _target180627_)))) + _unwrap-e94999_ + _target95270_)))) (declare (not safe)) - (cons __tmp186371 '())))) + (cons __tmp96446 '())))) (declare (not safe)) - (cons __tmp186372 __tmp186370)))) + (cons __tmp96447 __tmp96445)))) (declare (not safe)) - (cons __tmp186369 '()))) - (__tmp186355 - (let ((__tmp186358 - (let ((__tmp186364 - (let ((__tmp186367 + (cons __tmp96444 '()))) + (__tmp96430 + (let ((__tmp96433 + (let ((__tmp96439 + (let ((__tmp96442 (let () (declare (not safe)) - (cons _$hd180651_ + (cons _$hd95294_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp186365 - (let ((__tmp186366 + (__tmp96440 + (let ((__tmp96441 (let () (declare (not safe)) - (gx#core-list '##car _$e180650_)))) + (gx#core-list '##car _$e95293_)))) (declare (not safe)) - (cons __tmp186366 '())))) + (cons __tmp96441 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp186367 - __tmp186365))) - (__tmp186359 - (let ((__tmp186360 - (let ((__tmp186363 + (cons __tmp96442 + __tmp96440))) + (__tmp96434 + (let ((__tmp96435 + (let ((__tmp96438 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$tl180652_ '()))) - (__tmp186361 - (let ((__tmp186362 + (cons _$tl95295_ '()))) + (__tmp96436 + (let ((__tmp96437 (let () (declare (not safe)) - (gx#core-list '##cdr _$e180650_)))) + (gx#core-list '##cdr _$e95293_)))) (declare (not safe)) - (cons __tmp186362 '())))) + (cons __tmp96437 '())))) (declare (not safe)) - (cons __tmp186363 __tmp186361)))) + (cons __tmp96438 __tmp96436)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp186360 '())))) + (cons __tmp96435 '())))) (declare (not safe)) - (cons __tmp186364 __tmp186359))) - (__tmp186356 - (let* ((_body180653180660_ - _body180644_) - (_E180655180664_ + (cons __tmp96439 __tmp96434))) + (__tmp96431 + (let* ((_body9529695303_ + _body95287_) + (_E9529895307_ (lambda () - (error '"No clause matching" - _body180653180660_))) - (_K180656180672_ - (lambda (_tl180667_ - _hd180668_) - (let ((__tmp186357 - (lambda (_vars180670_) + (let () + (declare (not safe)) + (error '"No clause matching" + _body9529695303_)))) + (_K9529995315_ + (lambda (_tl95310_ + _hd95311_) + (let ((__tmp96432 + (lambda (_vars95313_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_recur180534_ - _tl180667_ - _vars180670_ - _$tl180652_ - _E180628_ - _k180629_))))) + (_recur95177_ + _tl95310_ + _vars95313_ + _$tl95295_ + _E95271_ + _k95272_))))) (declare (not safe)) - (_recur180534_ - _hd180668_ - _vars180626_ - _$hd180651_ - _E180628_ - __tmp186357))))) + (_recur95177_ + _hd95311_ + _vars95269_ + _$hd95294_ + _E95271_ + __tmp96432))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _body180653180660_)) - (let ((_hd180657180675_ + (##pair? _body9529695303_)) + (let ((_hd9530095318_ (let () (declare (not safe)) - (##car _body180653180660_))) - (_tl180658180677_ + (##car _body9529695303_))) + (_tl9530195320_ (let () (declare (not safe)) - (##cdr _body180653180660_)))) - (let* ((_hd180680_ - _hd180657180675_) - (_tl180682_ - _tl180658180677_)) + (##cdr _body9529695303_)))) + (let* ((_hd95323_ + _hd9530095318_) + (_tl95325_ + _tl9530195320_)) (declare (not safe)) - (_K180656180672_ - _tl180682_ - _hd180680_))) + (_K9529995315_ + _tl95325_ + _hd95323_))) (let () (declare (not safe)) - (_E180655180664_)))))) + (_E9529895307_)))))) (declare (not safe)) (gx#core-list 'let-values - __tmp186358 - __tmp186356)))) + __tmp96433 + __tmp96431)))) (declare (not safe)) (gx#core-list 'let-values - __tmp186368 - __tmp186355)))) + __tmp96443 + __tmp96430)))) (declare (not safe)) - (gx#core-list 'if __tmp186373 __tmp186354 _E180628_))) - (if (let () (declare (not safe)) (eq? 'splice _$e180647_)) - (let* ((_body180683180690_ _body180644_) - (_E180685180694_ + (gx#core-list 'if __tmp96448 __tmp96429 _E95271_))) + (if (let () (declare (not safe)) (eq? 'splice _$e95290_)) + (let* ((_body9532695333_ _body95287_) + (_E9532895337_ (lambda () - (error '"No clause matching" - _body180683180690_))) - (_K180686180745_ - (lambda (_tl180697_ _hd180698_) - (let* ((_rlen180700_ + (let () + (declare (not safe)) + (error '"No clause matching" + _body9532695333_)))) + (_K9532995388_ + (lambda (_tl95340_ _hd95341_) + (let* ((_rlen95343_ (let () (declare (not safe)) - (_splice-rlen180535_ _tl180697_))) - (_$target180702_ + (_splice-rlen95178_ _tl95340_))) + (_$target95345_ (let () (declare (not safe)) (gx#genident__1 'target))) - (_$hd180704_ + (_$hd95347_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_$tl180706_ + (_$tl95349_ (let () (declare (not safe)) (gx#genident__1 'tl))) - (_$lp180708_ + (_$lp95351_ (let () (declare (not safe)) (gx#genident__1 'loop))) - (_$lp-e180710_ + (_$lp-e95353_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_$lp-hd180712_ + (_$lp-hd95355_ (let () (declare (not safe)) (gx#genident__1 'lp-hd))) - (_$lp-tl180714_ + (_$lp-tl95357_ (let () (declare (not safe)) (gx#genident__1 'lp-tl))) - (_svars180716_ + (_svars95359_ (let () (declare (not safe)) - (_splice-vars180536_ _hd180698_))) - (_lvars180718_ + (_splice-vars95179_ _hd95341_))) + (_lvars95361_ (let () (declare (not safe)) - (gx#gentemps _svars180716_))) - (_tlvars180720_ + (gx#gentemps _svars95359_))) + (_tlvars95363_ (let () (declare (not safe)) - (gx#gentemps _svars180716_))) - (_linit180724_ - (map (lambda (_var180722_) + (gx#gentemps _svars95359_))) + (_linit95367_ + (map (lambda (_var95365_) (let () (declare (not safe)) (gx#core-list 'quote '()))) - _lvars180718_))) - (letrec ((_make-loop180727_ - (lambda (_vars180731_) - (let ((__tmp186305 - (let ((__tmp186306 - (let ((__tmp186342 + _lvars95361_))) + (letrec ((_make-loop95370_ + (lambda (_vars95374_) + (let ((__tmp96380 + (let ((__tmp96381 + (let ((__tmp96417 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$lp180708_ '()))) - (__tmp186307 - (let ((__tmp186308 - (let ((__tmp186341 + (cons _$lp95351_ '()))) + (__tmp96382 + (let ((__tmp96383 + (let ((__tmp96416 (let () (declare (not safe)) - (cons _$hd180704_ _lvars180718_))) - (__tmp186309 - (let ((__tmp186340 + (cons _$hd95347_ _lvars95361_))) + (__tmp96384 + (let ((__tmp96415 (let () (declare (not safe)) (gx#core-list 'stx-pair? - _$hd180704_))) - (__tmp186318 - (let ((__tmp186335 - (let ((__tmp186336 - (let ((__tmp186339 + _$hd95347_))) + (__tmp96393 + (let ((__tmp96410 + (let ((__tmp96411 + (let ((__tmp96414 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$lp-e180710_ '()))) - (__tmp186337 - (let ((__tmp186338 + (cons _$lp-e95353_ '()))) + (__tmp96412 + (let ((__tmp96413 (let () (declare (not safe)) (gx#core-list - _unwrap-e180356_ - _$hd180704_)))) + _unwrap-e94999_ + _$hd95347_)))) (declare (not safe)) - (cons __tmp186338 '())))) + (cons __tmp96413 '())))) (declare (not safe)) - (cons __tmp186339 __tmp186337)))) + (cons __tmp96414 __tmp96412)))) (declare (not safe)) - (cons __tmp186336 '()))) - (__tmp186319 - (let ((__tmp186325 - (let ((__tmp186331 - (let ((__tmp186334 + (cons __tmp96411 '()))) + (__tmp96394 + (let ((__tmp96400 + (let ((__tmp96406 + (let ((__tmp96409 (let () (declare (not safe)) - (cons _$lp-hd180712_ '()))) - (__tmp186332 - (let ((__tmp186333 + (cons _$lp-hd95355_ '()))) + (__tmp96407 + (let ((__tmp96408 (let () (declare (not safe)) (gx#core-list '##car - _$lp-e180710_)))) + _$lp-e95353_)))) (declare (not safe)) - (cons __tmp186333 '())))) + (cons __tmp96408 '())))) (declare (not safe)) - (cons __tmp186334 __tmp186332))) - (__tmp186326 - (let ((__tmp186327 - (let ((__tmp186330 + (cons __tmp96409 __tmp96407))) + (__tmp96401 + (let ((__tmp96402 + (let ((__tmp96405 (let () (declare (not safe)) - (cons _$lp-tl180714_ '()))) - (__tmp186328 - (let ((__tmp186329 + (cons _$lp-tl95357_ '()))) + (__tmp96403 + (let ((__tmp96404 (let () (declare (not safe)) (gx#core-list '##cdr - _$lp-e180710_)))) + _$lp-e95353_)))) (declare (not safe)) - (cons __tmp186329 '())))) + (cons __tmp96404 '())))) (declare (not safe)) - (cons __tmp186330 __tmp186328)))) + (cons __tmp96405 __tmp96403)))) (declare (not safe)) - (cons __tmp186327 '())))) + (cons __tmp96402 '())))) (declare (not safe)) - (cons __tmp186331 __tmp186326))) - (__tmp186320 - (let ((__tmp186321 - (lambda (_hdvars180733_) - (let ((__tmp186322 - (let ((__tmp186323 - (map (lambda (_svar180735_ - _lvar180736_) - (let ((__tmp186324 + (cons __tmp96406 __tmp96401))) + (__tmp96395 + (let ((__tmp96396 + (lambda (_hdvars95376_) + (let ((__tmp96397 + (let ((__tmp96398 + (map (lambda (_svar95378_ + _lvar95379_) + (let ((__tmp96399 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq _svar180735_ _hdvars180733_ _BUG180533_)))) + (assgetq__% _svar95378_ _hdvars95376_ _BUG95176_)))) (declare (not safe)) - (gx#core-list 'cons __tmp186324 _lvar180736_))) + (gx#core-list 'cons __tmp96399 _lvar95379_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _svars180716_ - _lvars180718_))) + _svars95359_ + _lvars95361_))) (declare (not safe)) - (cons _$lp-tl180714_ __tmp186323)))) + (cons _$lp-tl95357_ __tmp96398)))) (declare (not safe)) - (cons _$lp180708_ __tmp186322))))) + (cons _$lp95351_ __tmp96397))))) (declare (not safe)) - (_recur180534_ - _hd180698_ + (_recur95177_ + _hd95341_ '() - _$lp-hd180712_ - _E180628_ - __tmp186321)))) + _$lp-hd95355_ + _E95271_ + __tmp96396)))) (declare (not safe)) - (gx#core-list 'let-values __tmp186325 __tmp186320)))) + (gx#core-list 'let-values __tmp96400 __tmp96395)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp186335 - __tmp186319))) - (__tmp186310 - (let ((__tmp186314 - (map (lambda (_lvar180738_ + __tmp96410 + __tmp96394))) + (__tmp96385 + (let ((__tmp96389 + (map (lambda (_lvar95381_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tlvar180739_) - (let ((__tmp186317 + _tlvar95382_) + (let ((__tmp96392 (let () (declare (not safe)) - (cons _tlvar180739_ '()))) - (__tmp186315 - (let ((__tmp186316 + (cons _tlvar95382_ '()))) + (__tmp96390 + (let ((__tmp96391 (let () (declare (not safe)) - (gx#core-list 'reverse _lvar180738_)))) + (gx#core-list 'reverse _lvar95381_)))) (declare (not safe)) - (cons __tmp186316 '())))) + (cons __tmp96391 '())))) (declare (not safe)) - (cons __tmp186317 __tmp186315))) - _lvars180718_ - _tlvars180720_)) - (__tmp186311 - (_k180629_ - (let ((__tmp186312 - (lambda (_svar180741_ _tlvar180742_ _r180743_) - (let ((__tmp186313 + (cons __tmp96392 __tmp96390))) + _lvars95361_ + _tlvars95363_)) + (__tmp96386 + (_k95272_ + (let ((__tmp96387 + (lambda (_svar95384_ _tlvar95385_ _r95386_) + (let ((__tmp96388 (let () (declare (not safe)) - (cons _svar180741_ _tlvar180742_)))) + (cons _svar95384_ _tlvar95385_)))) (declare (not safe)) - (cons __tmp186313 _r180743_))))) + (cons __tmp96388 _r95386_))))) (declare (not safe)) - (foldl2 __tmp186312 - _vars180731_ - _svars180716_ - _tlvars180720_))))) + (foldl2 __tmp96387 + _vars95374_ + _svars95359_ + _tlvars95363_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp186314 - __tmp186311)))) + __tmp96389 + __tmp96386)))) (declare (not safe)) (gx#core-list 'if - __tmp186340 - __tmp186318 - __tmp186310)))) + __tmp96415 + __tmp96393 + __tmp96385)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp186341 - __tmp186309)))) + __tmp96416 + __tmp96384)))) (declare (not safe)) - (cons __tmp186308 '())))) + (cons __tmp96383 '())))) (declare (not safe)) - (cons __tmp186342 __tmp186307)))) + (cons __tmp96417 __tmp96382)))) (declare (not safe)) - (cons __tmp186306 '()))) - (__tmp186303 - (let ((__tmp186304 + (cons __tmp96381 '()))) + (__tmp96378 + (let ((__tmp96379 (let () (declare (not safe)) - (cons _$target180702_ _linit180724_)))) + (cons _$target95345_ _linit95367_)))) (declare (not safe)) - (cons _$lp180708_ __tmp186304)))) + (cons _$lp95351_ __tmp96379)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'letrec-values - __tmp186305 - __tmp186303))))) - (let ((_body180729_ - (let ((__tmp186344 - (let ((__tmp186345 - (let ((__tmp186348 + __tmp96380 + __tmp96378))))) + (let ((_body95372_ + (let ((__tmp96419 + (let ((__tmp96420 + (let ((__tmp96423 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp186349 + (let ((__tmp96424 (let () (declare (not safe)) - (cons _$tl180706_ '())))) + (cons _$tl95349_ '())))) (declare (not safe)) - (cons _$target180702_ __tmp186349))) - (__tmp186346 - (let ((__tmp186347 + (cons _$target95345_ __tmp96424))) + (__tmp96421 + (let ((__tmp96422 (let () (declare (not safe)) (gx#core-list 'syntax-split-splice - _target180627_ - _rlen180700_)))) + _target95270_ + _rlen95343_)))) (declare (not safe)) - (cons __tmp186347 '())))) + (cons __tmp96422 '())))) (declare (not safe)) - (cons __tmp186348 __tmp186346)))) + (cons __tmp96423 __tmp96421)))) (declare (not safe)) - (cons __tmp186345 '()))) + (cons __tmp96420 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp186343 + (__tmp96418 (let () (declare (not safe)) - (_recur180534_ - _tl180697_ - _vars180626_ - _$tl180706_ - _E180628_ - _make-loop180727_)))) + (_recur95177_ + _tl95340_ + _vars95269_ + _$tl95349_ + _E95271_ + _make-loop95370_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp186344 - __tmp186343)))) - (let ((__tmp186353 + __tmp96419 + __tmp96418)))) + (let ((__tmp96428 (let () (declare (not safe)) (gx#core-list 'stx-pair/null? - _target180627_))) - (__tmp186350 + _target95270_))) + (__tmp96425 (if (let () (declare (not safe)) - (zero? _rlen180700_)) - _body180729_ - (let ((__tmp186351 - (let ((__tmp186352 + (zero? _rlen95343_)) + _body95372_ + (let ((__tmp96426 + (let ((__tmp96427 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#core-list 'stx-length _target180627_)))) + (gx#core-list 'stx-length _target95270_)))) (declare (not safe)) - (gx#core-list 'fx>= __tmp186352 _rlen180700_)))) + (gx#core-list 'fx>= __tmp96427 _rlen95343_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'if - __tmp186351 - _body180729_ - _E180628_))))) + __tmp96426 + _body95372_ + _E95271_))))) (declare (not safe)) (gx#core-list 'if - __tmp186353 - __tmp186350 - _E180628_)))))))) + __tmp96428 + __tmp96425 + _E95271_)))))))) (if (let () (declare (not safe)) - (##pair? _body180683180690_)) - (let ((_hd180687180748_ + (##pair? _body9532695333_)) + (let ((_hd9533095391_ (let () (declare (not safe)) - (##car _body180683180690_))) - (_tl180688180750_ + (##car _body9532695333_))) + (_tl9533195393_ (let () (declare (not safe)) - (##cdr _body180683180690_)))) - (let* ((_hd180753_ _hd180687180748_) - (_tl180755_ _tl180688180750_)) + (##cdr _body9532695333_)))) + (let* ((_hd95396_ _hd9533095391_) + (_tl95398_ _tl9533195393_)) (declare (not safe)) - (_K180686180745_ _tl180755_ _hd180753_))) - (let () (declare (not safe)) (_E180685180694_)))) - (if (let () - (declare (not safe)) - (eq? 'null _$e180647_)) - (let ((__tmp186302 + (_K9532995388_ _tl95398_ _hd95396_))) + (let () (declare (not safe)) (_E9532895337_)))) + (if (let () (declare (not safe)) (eq? 'null _$e95290_)) + (let ((__tmp96377 (let () (declare (not safe)) - (gx#core-list 'stx-null? _target180627_))) - (__tmp186301 (_k180629_ _vars180626_))) + (gx#core-list 'stx-null? _target95270_))) + (__tmp96376 (_k95272_ _vars95269_))) (declare (not safe)) (gx#core-list 'if - __tmp186302 - __tmp186301 - _E180628_)) + __tmp96377 + __tmp96376 + _E95271_)) (if (let () (declare (not safe)) - (eq? 'vector _$e180647_)) - (let ((_$e180757_ + (eq? 'vector _$e95290_)) + (let ((_$e95400_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp186300 + (let ((__tmp96375 (let () (declare (not safe)) (gx#core-list 'stx-vector? - _target180627_))) - (__tmp186292 - (let ((__tmp186294 - (let ((__tmp186295 - (let ((__tmp186299 + _target95270_))) + (__tmp96367 + (let ((__tmp96369 + (let ((__tmp96370 + (let ((__tmp96374 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$e180757_ '()))) - (__tmp186296 - (let ((__tmp186297 - (let ((__tmp186298 + (cons _$e95400_ '()))) + (__tmp96371 + (let ((__tmp96372 + (let ((__tmp96373 (let () (declare (not safe)) (gx#core-list - _unwrap-e180356_ - _target180627_)))) + _unwrap-e94999_ + _target95270_)))) (declare (not safe)) - (gx#core-list 'vector->list __tmp186298)))) + (gx#core-list 'vector->list __tmp96373)))) (declare (not safe)) - (cons __tmp186297 '())))) + (cons __tmp96372 '())))) (declare (not safe)) - (cons __tmp186299 __tmp186296)))) + (cons __tmp96374 __tmp96371)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp186295 '()))) - (__tmp186293 + (cons __tmp96370 '()))) + (__tmp96368 (let () (declare (not safe)) - (_recur180534_ - _body180644_ - _vars180626_ - _$e180757_ - _E180628_ - _k180629_)))) + (_recur95177_ + _body95287_ + _vars95269_ + _$e95400_ + _E95271_ + _k95272_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp186294 - __tmp186293)))) + __tmp96369 + __tmp96368)))) (declare (not safe)) (gx#core-list 'if - __tmp186300 - __tmp186292 - _E180628_))) + __tmp96375 + __tmp96367 + _E95271_))) (if (let () (declare (not safe)) - (eq? 'box _$e180647_)) - (let ((_$e180759_ + (eq? 'box _$e95290_)) + (let ((_$e95402_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp186291 + (let ((__tmp96366 (let () (declare (not safe)) (gx#core-list 'stx-box? - _target180627_))) - (__tmp186283 - (let ((__tmp186285 - (let ((__tmp186286 - (let ((__tmp186290 + _target95270_))) + (__tmp96358 + (let ((__tmp96360 + (let ((__tmp96361 + (let ((__tmp96365 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _$e180759_ '()))) - (__tmp186287 - (let ((__tmp186288 - (let ((__tmp186289 + (let () (declare (not safe)) (cons _$e95402_ '()))) + (__tmp96362 + (let ((__tmp96363 + (let ((__tmp96364 (let () (declare (not safe)) (gx#core-list - _unwrap-e180356_ - _target180627_)))) + _unwrap-e94999_ + _target95270_)))) (declare (not safe)) - (gx#core-list 'unbox __tmp186289)))) + (gx#core-list 'unbox __tmp96364)))) (declare (not safe)) - (cons __tmp186288 '())))) + (cons __tmp96363 '())))) (declare (not safe)) - (cons __tmp186290 __tmp186287)))) + (cons __tmp96365 __tmp96362)))) (declare (not safe)) - (cons __tmp186286 '()))) + (cons __tmp96361 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp186284 + (__tmp96359 (let () (declare (not safe)) - (_recur180534_ - _body180644_ - _vars180626_ - _$e180759_ - _E180628_ - _k180629_)))) + (_recur95177_ + _body95287_ + _vars95269_ + _$e95402_ + _E95271_ + _k95272_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp186285 - __tmp186284)))) + __tmp96360 + __tmp96359)))) (declare (not safe)) (gx#core-list 'if - __tmp186291 - __tmp186283 - _E180628_))) + __tmp96366 + __tmp96358 + _E95271_))) (if (let () (declare (not safe)) - (eq? 'datum _$e180647_)) - (let ((_$e180761_ + (eq? 'datum _$e95290_)) + (let ((_$e95404_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp186282 + (let ((__tmp96357 (let () (declare (not safe)) (gx#core-list 'stx-datum? - _target180627_))) - (__tmp186273 - (let ((__tmp186277 - (let ((__tmp186278 - (let ((__tmp186281 + _target95270_))) + (__tmp96348 + (let ((__tmp96352 + (let ((__tmp96353 + (let ((__tmp96356 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$e180761_ '()))) - (__tmp186279 - (let ((__tmp186280 + (cons _$e95404_ '()))) + (__tmp96354 + (let ((__tmp96355 (let () (declare (not safe)) - (gx#core-list 'stx-e _target180627_)))) + (gx#core-list 'stx-e _target95270_)))) (declare (not safe)) - (cons __tmp186280 '())))) + (cons __tmp96355 '())))) (declare (not safe)) - (cons __tmp186281 __tmp186279)))) + (cons __tmp96356 __tmp96354)))) (declare (not safe)) - (cons __tmp186278 '()))) - (__tmp186274 - (let ((__tmp186276 + (cons __tmp96353 '()))) + (__tmp96349 + (let ((__tmp96351 (let () (declare (not safe)) - (gx#core-list 'equal? _$e180761_ _body180644_))) - (__tmp186275 (_k180629_ _vars180626_))) + (gx#core-list 'equal? _$e95404_ _body95287_))) + (__tmp96350 (_k95272_ _vars95269_))) (declare (not safe)) - (gx#core-list 'if __tmp186276 __tmp186275 _E180628_)))) + (gx#core-list 'if __tmp96351 __tmp96350 _E95271_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp186277 - __tmp186274)))) + __tmp96352 + __tmp96349)))) (declare (not safe)) (gx#core-list 'if - __tmp186282 - __tmp186273 - _E180628_))) + __tmp96357 + __tmp96348 + _E95271_))) (let () (declare (not safe)) - (_BUG180533_ _e180625_))))))))))))))) + (_BUG95176_ _e95268_))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e180630180637_)) - (let ((_hd180634180766_ + (##pair? _e9527395280_)) + (let ((_hd9527795409_ (let () (declare (not safe)) - (##car _e180630180637_))) - (_tl180635180768_ + (##car _e9527395280_))) + (_tl9527895411_ (let () (declare (not safe)) - (##cdr _e180630180637_)))) - (let* ((_tag180771_ _hd180634180766_) - (_body180773_ _tl180635180768_)) + (##cdr _e9527395280_)))) + (let* ((_tag95414_ _hd9527795409_) + (_body95416_ _tl9527895411_)) (declare (not safe)) - (_K180633180763_ - _body180773_ - _tag180771_))) + (_K9527695406_ + _body95416_ + _tag95414_))) (let () (declare (not safe)) - (_E180632180641_)))))) - (_splice-rlen180535_ - (lambda (_e180587_) - (let _lp180589_ ((_e180591_ _e180587_) - (_n180592_ '0)) - (let* ((_e180593180600_ _e180591_) - (_E180595180604_ + (_E9527595284_)))))) + (_splice-rlen95178_ + (lambda (_e95230_) + (let _lp95232_ ((_e95234_ _e95230_) + (_n95235_ '0)) + (let* ((_e9523695243_ _e95234_) + (_E9523895247_ (lambda () - (error '"No clause matching" - _e180593180600_))) - (_K180596180613_ - (lambda (_body180607_ _tag180608_) - (let ((_$e180610_ _tag180608_)) + (let () + (declare (not safe)) + (error '"No clause matching" + _e9523695243_)))) + (_K9523995256_ + (lambda (_body95250_ _tag95251_) + (let ((_$e95253_ _tag95251_)) (if (let () (declare (not safe)) - (eq? 'splice _$e180610_)) + (eq? 'splice _$e95253_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Ambiguous pattern" - _stx180354_ - _where180526_)) + _stx94997_ + _where95169_)) (if (let () (declare (not safe)) - (eq? 'cons _$e180610_)) - (let ((__tmp186381 - (cdr _body180607_)) - (__tmp186380 + (eq? 'cons _$e95253_)) + (let ((__tmp96456 + (cdr _body95250_)) + (__tmp96455 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (fx+ _n180592_ '1)))) + (fx+ _n95235_ '1)))) (declare (not safe)) - (_lp180589_ __tmp186381 __tmp186380)) - _n180592_)))))) + (_lp95232_ __tmp96456 __tmp96455)) + _n95235_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e180593180600_)) - (let ((_hd180597180616_ + (##pair? _e9523695243_)) + (let ((_hd9524095259_ (let () (declare (not safe)) - (##car _e180593180600_))) - (_tl180598180618_ + (##car _e9523695243_))) + (_tl9524195261_ (let () (declare (not safe)) - (##cdr _e180593180600_)))) - (let* ((_tag180621_ _hd180597180616_) - (_body180623_ - _tl180598180618_)) + (##cdr _e9523695243_)))) + (let* ((_tag95264_ _hd9524095259_) + (_body95266_ _tl9524195261_)) (declare (not safe)) - (_K180596180613_ - _body180623_ - _tag180621_))) + (_K9523995256_ + _body95266_ + _tag95264_))) (let () (declare (not safe)) - (_E180595180604_))))))) - (_splice-vars180536_ - (lambda (_e180543_) - (let _recur180545_ ((_e180547_ _e180543_) - (_vars180548_ '())) - (let* ((_e180549180556_ _e180547_) - (_E180551180560_ + (_E9523895247_))))))) + (_splice-vars95179_ + (lambda (_e95186_) + (let _recur95188_ ((_e95190_ _e95186_) + (_vars95191_ '())) + (let* ((_e9519295199_ _e95190_) + (_E9519495203_ (lambda () - (error '"No clause matching" - _e180549180556_))) - (_K180552180575_ - (lambda (_body180563_ _tag180564_) - (let ((_$e180566_ _tag180564_)) + (let () + (declare (not safe)) + (error '"No clause matching" + _e9519295199_)))) + (_K9519595218_ + (lambda (_body95206_ _tag95207_) + (let ((_$e95209_ _tag95207_)) (if (let () (declare (not safe)) - (eq? 'var _$e180566_)) + (eq? 'var _$e95209_)) (let () (declare (not safe)) - (cons _body180563_ - _vars180548_)) + (cons _body95206_ + _vars95191_)) (if (or (let () (declare (not safe)) (eq? 'cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _$e180566_)) - (let () (declare (not safe)) (eq? 'splice _$e180566_))) - (let ((__tmp186384 (cdr _body180563_)) - (__tmp186382 - (let ((__tmp186383 (car _body180563_))) + _$e95209_)) + (let () (declare (not safe)) (eq? 'splice _$e95209_))) + (let ((__tmp96459 (cdr _body95206_)) + (__tmp96457 + (let ((__tmp96458 (car _body95206_))) (declare (not safe)) - (_recur180545_ __tmp186383 _vars180548_)))) + (_recur95188_ __tmp96458 _vars95191_)))) (declare (not safe)) - (_recur180545_ __tmp186384 __tmp186382)) - (if (or (let () (declare (not safe)) (eq? 'vector _$e180566_)) - (let () (declare (not safe)) (eq? 'box _$e180566_))) + (_recur95188_ __tmp96459 __tmp96457)) + (if (or (let () (declare (not safe)) (eq? 'vector _$e95209_)) + (let () (declare (not safe)) (eq? 'box _$e95209_))) (let () (declare (not safe)) - (_recur180545_ _body180563_ _vars180548_)) - _vars180548_))))))) + (_recur95188_ _body95206_ _vars95191_)) + _vars95191_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e180549180556_)) - (let ((_hd180553180578_ + (##pair? _e9519295199_)) + (let ((_hd9519695221_ (let () (declare (not safe)) - (##car _e180549180556_))) - (_tl180554180580_ + (##car _e9519295199_))) + (_tl9519795223_ (let () (declare (not safe)) - (##cdr _e180549180556_)))) - (let* ((_tag180583_ _hd180553180578_) - (_body180585_ - _tl180554180580_)) + (##cdr _e9519295199_)))) + (let* ((_tag95226_ _hd9519695221_) + (_body95228_ _tl9519795223_)) (declare (not safe)) - (_K180552180575_ - _body180585_ - _tag180583_))) + (_K9519595218_ + _body95228_ + _tag95226_))) (let () (declare (not safe)) - (_E180551180560_))))))) - (_make-body180537_ - (lambda (_vars180539_) - (let ((__tmp186385 - (map (lambda (_mvar180541_) - (let ((__tmp186386 - (car _mvar180541_))) + (_E9519495203_))))))) + (_make-body95180_ + (lambda (_vars95182_) + (let ((__tmp96460 + (map (lambda (_mvar95184_) + (let ((__tmp96461 + (car _mvar95184_))) (declare (not safe)) - (assgetq __tmp186386 - _vars180539_ - _BUG180533_))) - _mvars180529_))) + (assgetq__% + __tmp96461 + _vars95182_ + _BUG95176_))) + _mvars95172_))) (declare (not safe)) - (cons _K180530_ __tmp186385))))) + (cons _K95173_ __tmp96460))))) (let () (declare (not safe)) - (_recur180534_ - _hd180528_ + (_recur95177_ + _hd95171_ '() - _target180527_ - _E180531_ - _make-body180537_))))) - (_parse-clause180363_ - (lambda (_hd180432_ _ids180433_) - (let _recur180435_ ((_e180437_ _hd180432_) - (_vars180438_ '()) - (_depth180439_ '0)) + _target95170_ + _E95174_ + _make-body95180_))))) + (_parse-clause95006_ + (lambda (_hd95075_ _ids95076_) + (let _recur95078_ ((_e95080_ _hd95075_) + (_vars95081_ '()) + (_depth95082_ '0)) (if (let () (declare (not safe)) - (gx#identifier? _e180437_)) + (gx#identifier? _e95080_)) (if (let () (declare (not safe)) - (gx#underscore? _e180437_)) - (values '(any) _vars180438_) + (gx#underscore? _e95080_)) + (values '(any) _vars95081_) (if (let () (declare (not safe)) - (gx#ellipsis? _e180437_)) + (gx#ellipsis? _e95080_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _stx180354_ - _hd180432_)) - (if (let ((__tmp186402 - (lambda (_id180441_) + _stx94997_ + _hd95075_)) + (if (let ((__tmp96477 + (lambda (_id95084_) (let () (declare (not safe)) (gx#bound-identifier=? - _e180437_ - _id180441_))))) + _e95080_ + _id95084_))))) (declare (not safe)) - (find __tmp186402 _ids180433_)) + (find __tmp96477 _ids95076_)) (values (let () (declare (not safe)) - (cons 'id _e180437_)) - _vars180438_) - (if (let ((__tmp186400 - (lambda (_var180443_) - (let ((__tmp186401 - (car _var180443_))) + (cons 'id _e95080_)) + _vars95081_) + (if (let ((__tmp96475 + (lambda (_var95086_) + (let ((__tmp96476 + (car _var95086_))) (declare (not safe)) (gx#bound-identifier=? - _e180437_ - __tmp186401))))) + _e95080_ + __tmp96476))))) (declare (not safe)) - (find __tmp186400 _vars180438_)) + (find __tmp96475 _vars95081_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Duplicate pattern variable" - _stx180354_ - _e180437_)) + _stx94997_ + _e95080_)) (values (let () (declare (not safe)) - (cons 'var _e180437_)) - (let ((__tmp186399 + (cons 'var _e95080_)) + (let ((__tmp96474 (let () (declare (not safe)) - (cons _e180437_ + (cons _e95080_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _depth180439_)))) + _depth95082_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp186399 - _vars180438_))))))) + (cons __tmp96474 + _vars95081_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _e180437_)) - (let* ((_e180444180451_ _e180437_) - (_E180446180455_ + (gx#stx-pair? _e95080_)) + (let* ((_e9508795094_ _e95080_) + (_E9508995098_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e180444180451_)))) - (_E180445180516_ + _e9508795094_)))) + (_E9508895159_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e180444180451_)) - (let ((_e180447180459_ + (gx#stx-pair? _e9508795094_)) + (let ((_e9509095102_ (let () (declare (not safe)) (gx#syntax-e - _e180444180451_)))) - (let ((_hd180448180462_ + _e9508795094_)))) + (let ((_hd9509195105_ (let () (declare (not safe)) - (##car _e180447180459_))) - (_tl180449180464_ + (##car _e9509095102_))) + (_tl9509295107_ (let () (declare (not safe)) - (##cdr _e180447180459_)))) - (let* ((_hd180467_ - _hd180448180462_) - (_rest180469_ - _tl180449180464_)) + (##cdr _e9509095102_)))) + (let* ((_hd95110_ + _hd9509195105_) + (_rest95112_ + _tl9509295107_)) (if '#t - (let* ((_make-pair180484_ - (lambda (_tag180471_ + (let* ((_make-pair95127_ + (lambda (_tag95114_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd180472_ - _tl180473_) - (let* ((_hd-depth180475_ + _hd95115_ + _tl95116_) + (let* ((_hd-depth95118_ (if (let () (declare (not safe)) - (eq? _tag180471_ 'splice)) + (eq? _tag95114_ 'splice)) (let () (declare (not safe)) - (fx+ _depth180439_ '1)) - _depth180439_)) - (_g186394_ + (fx+ _depth95082_ '1)) + _depth95082_)) + (_g96469_ (let () (declare (not safe)) - (_recur180435_ - _hd180472_ - _vars180438_ - _hd-depth180475_)))) + (_recur95078_ + _hd95115_ + _vars95081_ + _hd-depth95118_)))) (begin - (let ((_g186395_ + (let ((_g96470_ (let () (declare (not safe)) - (if (##values? _g186394_) - (##vector-length _g186394_) + (if (##values? _g96469_) + (##vector-length _g96469_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g186395_ 2))) - (error "Context expects 2 values" - _g186395_))) - (let ((_hd180477_ + (##fx= _g96470_ 2))) + (error "Context expects 2 values" _g96470_))) + (let ((_hd95120_ (let () (declare (not safe)) - (##vector-ref _g186394_ 0))) - (_vars180478_ + (##vector-ref _g96469_ 0))) + (_vars95121_ (let () (declare (not safe)) - (##vector-ref _g186394_ 1)))) - (let ((_g186396_ + (##vector-ref _g96469_ 1)))) + (let ((_g96471_ (let () (declare (not safe)) - (_recur180435_ - _tl180473_ - _vars180478_ - _depth180439_)))) + (_recur95078_ + _tl95116_ + _vars95121_ + _depth95082_)))) (begin - (let ((_g186397_ + (let ((_g96472_ (let () (declare (not safe)) - (if (##values? _g186396_) - (##vector-length _g186396_) + (if (##values? _g96471_) + (##vector-length _g96471_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g186397_ 2))) + (##fx= _g96472_ 2))) (error "Context expects 2 values" - _g186397_))) - (let ((_tl180480_ + _g96472_))) + (let ((_tl95123_ (let () (declare (not safe)) - (##vector-ref _g186396_ 0))) - (_vars180481_ + (##vector-ref _g96471_ 0))) + (_vars95124_ (let () (declare (not safe)) - (##vector-ref _g186396_ 1)))) + (##vector-ref _g96471_ 1)))) (let () - (values (let ((__tmp186398 + (values (let ((__tmp96473 (let () (declare (not safe)) - (cons _hd180477_ - _tl180480_)))) + (cons _hd95120_ + _tl95123_)))) (declare (not safe)) - (cons _tag180471_ __tmp186398)) - _vars180481_)))))))))) - (_e180485180492_ _rest180469_) - (_E180487180496_ + (cons _tag95114_ __tmp96473)) + _vars95124_)))))))))) + (_e9512895135_ _rest95112_) + (_E9513095139_ (lambda () (let () (declare (not safe)) - (_make-pair180484_ 'cons _hd180467_ _rest180469_)))) - (_E180486180512_ + (_make-pair95127_ 'cons _hd95110_ _rest95112_)))) + (_E9512995155_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e180485180492_)) - (let ((_e180488180500_ + (gx#stx-pair? _e9512895135_)) + (let ((_e9513195143_ (let () (declare (not safe)) - (gx#syntax-e _e180485180492_)))) - (let ((_hd180489180503_ + (gx#syntax-e _e9512895135_)))) + (let ((_hd9513295146_ (let () (declare (not safe)) - (##car _e180488180500_))) - (_tl180490180505_ + (##car _e9513195143_))) + (_tl9513395148_ (let () (declare (not safe)) - (##cdr _e180488180500_)))) - (let* ((_rest-hd180508_ _hd180489180503_) - (_rest-tl180510_ _tl180490180505_)) + (##cdr _e9513195143_)))) + (let* ((_rest-hd95151_ _hd9513295146_) + (_rest-tl95153_ _tl9513395148_)) (if '#t (if (let () (declare (not safe)) - (gx#ellipsis? _rest-hd180508_)) + (gx#ellipsis? _rest-hd95151_)) (let () (declare (not safe)) - (_make-pair180484_ + (_make-pair95127_ 'splice - _hd180467_ - _rest-tl180510_)) + _hd95110_ + _rest-tl95153_)) (let () (declare (not safe)) - (_make-pair180484_ + (_make-pair95127_ 'cons - _hd180467_ - _rest180469_))) + _hd95110_ + _rest95112_))) (let () (declare (not safe)) - (_E180487180496_)))))) - (let () (declare (not safe)) (_E180487180496_)))))) - (let () (declare (not safe)) (_E180486180512_))) - (let () (declare (not safe)) (_E180446180455_)))))) + (_E9513095139_)))))) + (let () (declare (not safe)) (_E9513095139_)))))) + (let () (declare (not safe)) (_E9512995155_))) + (let () (declare (not safe)) (_E9508995098_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E180446180455_)))))) - (let () - (declare (not safe)) - (_E180445180516_))) + (_E9508995098_)))))) + (let () (declare (not safe)) (_E9508895159_))) (if (let () (declare (not safe)) - (gx#stx-null? _e180437_)) - (values '(null) _vars180438_) + (gx#stx-null? _e95080_)) + (values '(null) _vars95081_) (if (let () (declare (not safe)) - (gx#stx-vector? _e180437_)) - (let ((_g186391_ - (let ((__tmp186393 + (gx#stx-vector? _e95080_)) + (let ((_g96466_ + (let ((__tmp96468 (vector->list (let () (declare (not safe)) (gx#syntax-e - _e180437_))))) + _e95080_))))) (declare (not safe)) - (_recur180435_ - __tmp186393 - _vars180438_ - _depth180439_)))) + (_recur95078_ + __tmp96468 + _vars95081_ + _depth95082_)))) (begin - (let ((_g186392_ + (let ((_g96467_ (let () (declare (not safe)) - (if (##values? _g186391_) + (if (##values? _g96466_) (##vector-length - _g186391_) + _g96466_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g186392_ 2))) + (##fx= _g96467_ 2))) (error "Context expects 2 values" - _g186392_))) - (let ((_e180520_ + _g96467_))) + (let ((_e95163_ (let () (declare (not safe)) - (##vector-ref _g186391_ 0))) - (_vars180521_ + (##vector-ref _g96466_ 0))) + (_vars95164_ (let () (declare (not safe)) - (##vector-ref - _g186391_ - 1)))) + (##vector-ref _g96466_ 1)))) (values (let () (declare (not safe)) - (cons 'vector _e180520_)) - _vars180521_)))) + (cons 'vector _e95163_)) + _vars95164_)))) (if (let () (declare (not safe)) - (gx#stx-box? _e180437_)) - (let ((_g186388_ - (let ((__tmp186390 + (gx#stx-box? _e95080_)) + (let ((_g96463_ + (let ((__tmp96465 (unbox (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _e180437_))))) + (gx#syntax-e _e95080_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_recur180435_ - __tmp186390 - _vars180438_ - _depth180439_)))) + (_recur95078_ + __tmp96465 + _vars95081_ + _depth95082_)))) (begin - (let ((_g186389_ + (let ((_g96464_ (let () (declare (not safe)) - (if (##values? - _g186388_) + (if (##values? _g96463_) (##vector-length - _g186388_) + _g96463_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g186389_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - 2))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (##fx= _g96464_ 2))) (error "Context expects 2 values" - _g186389_))) - (let ((_e180523_ + _g96464_))) + (let ((_e95166_ (let () (declare (not safe)) (##vector-ref - _g186388_ + _g96463_ 0))) - (_vars180524_ + (_vars95167_ (let () (declare (not safe)) (##vector-ref - _g186388_ + _g96463_ 1)))) (values (let () (declare (not safe)) - (cons 'box - _e180523_)) - _vars180524_)))) + (cons 'box _e95166_)) + _vars95167_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _e180437_)) - (values (let ((__tmp186387 + (gx#stx-datum? _e95080_)) + (values (let ((__tmp96462 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _e180437_)))) + (gx#stx-e _e95080_)))) (declare (not safe)) - (cons 'datum __tmp186387)) - _vars180438_) + (cons 'datum __tmp96462)) + _vars95081_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad pattern" - _stx180354_ - _e180437_)))))))))))) - (let* ((_e180364180377_ _stx180354_) - (_E180366180381_ + _stx94997_ + _e95080_)))))))))))) + (let* ((_e9500795020_ _stx94997_) + (_E9500995024_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e180364180377_)))) - (_E180365180428_ + _e9500795020_)))) + (_E9500895071_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e180364180377_)) - (let ((_e180367180385_ + (gx#stx-pair? _e9500795020_)) + (let ((_e9501095028_ (let () (declare (not safe)) - (gx#syntax-e _e180364180377_)))) - (let ((_hd180368180388_ + (gx#syntax-e _e9500795020_)))) + (let ((_hd9501195031_ (let () (declare (not safe)) - (##car _e180367180385_))) - (_tl180369180390_ + (##car _e9501095028_))) + (_tl9501295033_ (let () (declare (not safe)) - (##cdr _e180367180385_)))) + (##cdr _e9501095028_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl180369180390_)) - (let ((_e180370180393_ + (gx#stx-pair? _tl9501295033_)) + (let ((_e9501395036_ (let () (declare (not safe)) - (gx#syntax-e _tl180369180390_)))) - (let ((_hd180371180396_ + (gx#syntax-e _tl9501295033_)))) + (let ((_hd9501495039_ (let () (declare (not safe)) - (##car _e180370180393_))) - (_tl180372180398_ + (##car _e9501395036_))) + (_tl9501595041_ (let () (declare (not safe)) - (##cdr _e180370180393_)))) - (let ((_expr180401_ _hd180371180396_)) + (##cdr _e9501395036_)))) + (let ((_expr95044_ _hd9501495039_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl180372180398_)) - (let ((_e180373180403_ + (gx#stx-pair? _tl9501595041_)) + (let ((_e9501695046_ (let () (declare (not safe)) (gx#syntax-e - _tl180372180398_)))) - (let ((_hd180374180406_ + _tl9501595041_)))) + (let ((_hd9501795049_ (let () (declare (not safe)) - (##car _e180373180403_))) - (_tl180375180408_ + (##car _e9501695046_))) + (_tl9501895051_ (let () (declare (not safe)) - (##cdr _e180373180403_)))) - (let* ((_ids180411_ - _hd180374180406_) - (_clauses180413_ - _tl180375180408_)) + (##cdr _e9501695046_)))) + (let* ((_ids95054_ + _hd9501795049_) + (_clauses95056_ + _tl9501895051_)) (if '#t - (if (let ((__tmp186420 + (if (let ((__tmp96495 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier-list? _ids180411_)))) + (gx#identifier-list? _ids95054_)))) (declare (not safe)) - (not __tmp186420)) + (not __tmp96495)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad template identifier list" - _stx180354_ - _ids180411_)) - (if (let ((__tmp186419 + _stx94997_ + _ids95054_)) + (if (let ((__tmp96494 (let () (declare (not safe)) - (gx#stx-list? _clauses180413_)))) + (gx#stx-list? _clauses95056_)))) (declare (not safe)) - (not __tmp186419)) + (not __tmp96494)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; clauses expected" - _stx180354_)) - (let* ((_ids180415_ + _stx94997_)) + (let* ((_ids95058_ (let () (declare (not safe)) - (gx#syntax->list _ids180411_))) - (_clauses180417_ + (gx#syntax->list _ids95054_))) + (_clauses95060_ (let () (declare (not safe)) - (gx#syntax->list _clauses180413_))) - (_clause-ids180419_ + (gx#syntax->list _clauses95056_))) + (_clause-ids95062_ (let () (declare (not safe)) - (gx#gentemps _clauses180417_))) - (_E180421_ + (gx#gentemps _clauses95060_))) + (_E95064_ (let () (declare (not safe)) (gx#genident__0))) - (_target180423_ + (_target95066_ (let () (declare (not safe)) (gx#genident__0))) - (_first180425_ + (_first95068_ (if (let () (declare (not safe)) - (null? _clauses180417_)) - _E180421_ - (car _clause-ids180419_)))) - (let ((__tmp186404 - (let ((__tmp186405 - (let ((__tmp186407 - (let ((__tmp186412 - (let ((__tmp186413 - (let ((__tmp186418 + (null? _clauses95060_)) + _E95064_ + (car _clause-ids95062_)))) + (let ((__tmp96479 + (let ((__tmp96480 + (let ((__tmp96482 + (let ((__tmp96487 + (let ((__tmp96488 + (let ((__tmp96493 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _E180421_ '()))) - (__tmp186414 - (let ((__tmp186415 - (let ((__tmp186417 + (cons _E95064_ '()))) + (__tmp96489 + (let ((__tmp96490 + (let ((__tmp96492 (let () (declare (not safe)) - (cons _target180423_ '()))) - (__tmp186416 + (cons _target95066_ '()))) + (__tmp96491 (let () (declare (not safe)) (gx#core-list 'raise-syntax-error '#f '"Bad syntax; invalid match target" - _target180423_)))) + _target95066_)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp186417 - __tmp186416)))) + __tmp96492 + __tmp96491)))) (declare (not safe)) - (cons __tmp186415 '())))) + (cons __tmp96490 '())))) (declare (not safe)) - (cons __tmp186418 __tmp186414)))) + (cons __tmp96493 __tmp96489)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp186413 '()))) - (__tmp186408 - (let ((__tmp186411 + (cons __tmp96488 '()))) + (__tmp96483 + (let ((__tmp96486 (let () (declare (not safe)) - (_generate-bindings180359_ - _target180423_ - _ids180415_ - _clauses180417_ - _clause-ids180419_ - _E180421_))) - (__tmp186409 - (let ((__tmp186410 + (_generate-bindings95002_ + _target95066_ + _ids95058_ + _clauses95060_ + _clause-ids95062_ + _E95064_))) + (__tmp96484 + (let ((__tmp96485 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _expr180401_ '())))) + (cons _expr95044_ '())))) (declare (not safe)) - (cons _first180425_ __tmp186410)))) + (cons _first95068_ __tmp96485)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_generate-body180360_ - __tmp186411 - __tmp186409)))) + (_generate-body95003_ + __tmp96486 + __tmp96484)))) (declare (not safe)) (gx#core-list 'let-values - __tmp186412 - __tmp186408))) - (__tmp186406 + __tmp96487 + __tmp96483))) + (__tmp96481 (let () (declare (not safe)) - (gx#stx-source _stx180354_)))) + (gx#stx-source _stx94997_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp186407 - __tmp186406)))) + __tmp96482 + __tmp96481)))) (declare (not safe)) (gx#core-list 'begin-annotation '@syntax-case - __tmp186405))) - (__tmp186403 + __tmp96480))) + (__tmp96478 (let () (declare (not safe)) - (gx#stx-source _stx180354_)))) + (gx#stx-source _stx94997_)))) (declare (not safe)) - (gx#stx-wrap-source __tmp186404 __tmp186403))))) + (gx#stx-wrap-source __tmp96479 __tmp96478))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E180366180381_)))))) + (_E9500995024_)))))) (let () (declare (not safe)) - (_E180366180381_)))))) + (_E9500995024_)))))) (let () (declare (not safe)) - (_E180366180381_))))) - (let () (declare (not safe)) (_E180366180381_)))))) - (let () (declare (not safe)) (_E180365180428_)))))) + (_E9500995024_))))) + (let () (declare (not safe)) (_E9500995024_)))))) + (let () (declare (not safe)) (_E9500895071_)))))) (define gx#macro-expand-syntax-case__0 - (lambda (_stx181064_) - (let* ((_identifier=?181066_ 'free-identifier=?) - (_unwrap-e181068_ 'syntax-e) - (_wrap-e181070_ 'quote-syntax)) + (lambda (_stx95707_) + (let* ((_identifier=?95709_ 'free-identifier=?) + (_unwrap-e95711_ 'syntax-e) + (_wrap-e95713_ 'quote-syntax)) (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx181064_ - _identifier=?181066_ - _unwrap-e181068_ - _wrap-e181070_)))) + _stx95707_ + _identifier=?95709_ + _unwrap-e95711_ + _wrap-e95713_)))) (define gx#macro-expand-syntax-case__1 - (lambda (_stx181072_ _identifier=?181073_) - (let* ((_unwrap-e181075_ 'syntax-e) (_wrap-e181077_ 'quote-syntax)) + (lambda (_stx95715_ _identifier=?95716_) + (let* ((_unwrap-e95718_ 'syntax-e) (_wrap-e95720_ 'quote-syntax)) (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx181072_ - _identifier=?181073_ - _unwrap-e181075_ - _wrap-e181077_)))) + _stx95715_ + _identifier=?95716_ + _unwrap-e95718_ + _wrap-e95720_)))) (define gx#macro-expand-syntax-case__2 - (lambda (_stx181079_ _identifier=?181080_ _unwrap-e181081_) - (let ((_wrap-e181083_ 'quote-syntax)) + (lambda (_stx95722_ _identifier=?95723_ _unwrap-e95724_) + (let ((_wrap-e95726_ 'quote-syntax)) (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx181079_ - _identifier=?181080_ - _unwrap-e181081_ - _wrap-e181083_)))) + _stx95722_ + _identifier=?95723_ + _unwrap-e95724_ + _wrap-e95726_)))) (define gx#macro-expand-syntax-case - (lambda _g186422_ - (let ((_g186421_ (let () (declare (not safe)) (##length _g186422_)))) - (cond ((let () (declare (not safe)) (##fx= _g186421_ 1)) - (apply (lambda (_stx181064_) + (lambda _g96497_ + (let ((_g96496_ (let () (declare (not safe)) (##length _g96497_)))) + (cond ((let () (declare (not safe)) (##fx= _g96496_ 1)) + (apply (lambda (_stx95707_) (let () (declare (not safe)) - (gx#macro-expand-syntax-case__0 _stx181064_))) - _g186422_)) - ((let () (declare (not safe)) (##fx= _g186421_ 2)) - (apply (lambda (_stx181072_ _identifier=?181073_) + (gx#macro-expand-syntax-case__0 _stx95707_))) + _g96497_)) + ((let () (declare (not safe)) (##fx= _g96496_ 2)) + (apply (lambda (_stx95715_ _identifier=?95716_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__1 - _stx181072_ - _identifier=?181073_))) - _g186422_)) - ((let () (declare (not safe)) (##fx= _g186421_ 3)) - (apply (lambda (_stx181079_ - _identifier=?181080_ - _unwrap-e181081_) + _stx95715_ + _identifier=?95716_))) + _g96497_)) + ((let () (declare (not safe)) (##fx= _g96496_ 3)) + (apply (lambda (_stx95722_ + _identifier=?95723_ + _unwrap-e95724_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__2 - _stx181079_ - _identifier=?181080_ - _unwrap-e181081_))) - _g186422_)) - ((let () (declare (not safe)) (##fx= _g186421_ 4)) - (apply (lambda (_stx181085_ - _identifier=?181086_ - _unwrap-e181087_ - _wrap-e181088_) + _stx95722_ + _identifier=?95723_ + _unwrap-e95724_))) + _g96497_)) + ((let () (declare (not safe)) (##fx= _g96496_ 4)) + (apply (lambda (_stx95728_ + _identifier=?95729_ + _unwrap-e95730_ + _wrap-e95731_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx181085_ - _identifier=?181086_ - _unwrap-e181087_ - _wrap-e181088_))) - _g186422_)) + _stx95728_ + _identifier=?95729_ + _unwrap-e95730_ + _wrap-e95731_))) + _g96497_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-syntax-case - _g186422_)))))) + _g96497_)))))) (define gx#syntax-local-pattern? - (lambda (_stx180351_) - (if (let () (declare (not safe)) (gx#identifier? _stx180351_)) - (let ((__tmp186423 + (lambda (_stx94994_) + (if (let () (declare (not safe)) (gx#identifier? _stx94994_)) + (let ((__tmp96498 (let () (declare (not safe)) - (gx#syntax-local-e__% _stx180351_ false)))) + (gx#syntax-local-e__% _stx94994_ false)))) (declare (not safe)) - (##structure-instance-of? __tmp186423 'gx#syntax-pattern::t)) + (##structure-instance-of? __tmp96498 'gx#syntax-pattern::t)) '#f))) (define gx#syntax-check-splice-targets - (lambda (_hd180309_ . _rest180310_) - (let ((_len180312_ (length _hd180309_))) - (let _lp180314_ ((_rest180316_ _rest180310_)) - (let* ((_rest180317180325_ _rest180316_) - (_else180319180333_ (lambda () '#!void)) - (_K180321180339_ - (lambda (_rest180336_ _hd180337_) - (if (fx= _len180312_ (length _hd180337_)) - (let () - (declare (not safe)) - (_lp180314_ _rest180336_)) + (lambda (_hd94952_ . _rest94953_) + (let ((_len94955_ (length _hd94952_))) + (let _lp94957_ ((_rest94959_ _rest94953_)) + (let* ((_rest9496094968_ _rest94959_) + (_else9496294976_ (lambda () '#!void)) + (_K9496494982_ + (lambda (_rest94979_ _hd94980_) + (if (fx= _len94955_ (length _hd94980_)) + (let () (declare (not safe)) (_lp94957_ _rest94979_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Splice length mismatch" - _hd180337_)))))) - (if (let () (declare (not safe)) (##pair? _rest180317180325_)) - (let ((_hd180322180342_ + _hd94980_)))))) + (if (let () (declare (not safe)) (##pair? _rest9496094968_)) + (let ((_hd9496594985_ (let () (declare (not safe)) - (##car _rest180317180325_))) - (_tl180323180344_ + (##car _rest9496094968_))) + (_tl9496694987_ (let () (declare (not safe)) - (##cdr _rest180317180325_)))) - (let* ((_hd180347_ _hd180322180342_) - (_rest180349_ _tl180323180344_)) + (##cdr _rest9496094968_)))) + (let* ((_hd94990_ _hd9496594985_) + (_rest94992_ _tl9496694987_)) (declare (not safe)) - (_K180321180339_ _rest180349_ _hd180347_))) + (_K9496494982_ _rest94992_ _hd94990_))) '#!void)))))) (define gx#syntax-split-splice - (lambda (_stx180267_ _n180268_) - (let _lp180270_ ((_rest180272_ _stx180267_) (_r180273_ '())) - (if (let () (declare (not safe)) (gx#stx-pair? _rest180272_)) - (let* ((_g180274180281_ - (let () (declare (not safe)) (gx#syntax-e _rest180272_))) - (_E180276180285_ + (lambda (_stx94910_ _n94911_) + (let _lp94913_ ((_rest94915_ _stx94910_) (_r94916_ '())) + (if (let () (declare (not safe)) (gx#stx-pair? _rest94915_)) + (let* ((_g9491794924_ + (let () (declare (not safe)) (gx#syntax-e _rest94915_))) + (_E9491994928_ (lambda () - (error '"No clause matching" _g180274180281_))) - (_K180277180291_ - (lambda (_rest180288_ _hd180289_) - (let ((__tmp186428 + (let () + (declare (not safe)) + (error '"No clause matching" _g9491794924_)))) + (_K9492094934_ + (lambda (_rest94931_ _hd94932_) + (let ((__tmp96503 (let () (declare (not safe)) - (cons _hd180289_ _r180273_)))) + (cons _hd94932_ _r94916_)))) (declare (not safe)) - (_lp180270_ _rest180288_ __tmp186428))))) - (if (let () (declare (not safe)) (##pair? _g180274180281_)) - (let ((_hd180278180294_ - (let () - (declare (not safe)) - (##car _g180274180281_))) - (_tl180279180296_ + (_lp94913_ _rest94931_ __tmp96503))))) + (if (let () (declare (not safe)) (##pair? _g9491794924_)) + (let ((_hd9492194937_ + (let () (declare (not safe)) (##car _g9491794924_))) + (_tl9492294939_ (let () (declare (not safe)) - (##cdr _g180274180281_)))) - (let* ((_hd180299_ _hd180278180294_) - (_rest180301_ _tl180279180296_)) + (##cdr _g9491794924_)))) + (let* ((_hd94942_ _hd9492194937_) + (_rest94944_ _tl9492294939_)) (declare (not safe)) - (_K180277180291_ _rest180301_ _hd180299_))) - (let () (declare (not safe)) (_E180276180285_)))) - (let _lp180303_ ((_n180305_ _n180268_) - (_l180306_ _r180273_) - (_r180307_ _rest180272_)) - (if (let () (declare (not safe)) (null? _l180306_)) - (values _l180306_ _r180307_) - (if (fxpositive? _n180305_) - (let ((__tmp186427 - (let () - (declare (not safe)) - (fx- _n180305_ '1))) - (__tmp186426 (cdr _l180306_)) - (__tmp186424 - (let ((__tmp186425 (car _l180306_))) + (_K9492094934_ _rest94944_ _hd94942_))) + (let () (declare (not safe)) (_E9491994928_)))) + (let _lp94946_ ((_n94948_ _n94911_) + (_l94949_ _r94916_) + (_r94950_ _rest94915_)) + (if (let () (declare (not safe)) (null? _l94949_)) + (values _l94949_ _r94950_) + (if (fxpositive? _n94948_) + (let ((__tmp96502 + (let () (declare (not safe)) (fx- _n94948_ '1))) + (__tmp96501 (cdr _l94949_)) + (__tmp96499 + (let ((__tmp96500 (car _l94949_))) (declare (not safe)) - (cons __tmp186425 _r180307_)))) + (cons __tmp96500 _r94950_)))) (declare (not safe)) - (_lp180303_ __tmp186427 __tmp186426 __tmp186424)) - (values (reverse _l180306_) _r180307_)))))))))) + (_lp94946_ __tmp96502 __tmp96501 __tmp96499)) + (values (reverse _l94949_) _r94950_)))))))))) diff --git a/src/bootstrap/gerbil/expander/stxcase__1.scm b/src/bootstrap/gerbil/expander/stxcase__1.scm index 5c98c462d..684bacca1 100644 --- a/src/bootstrap/gerbil/expander/stxcase__1.scm +++ b/src/bootstrap/gerbil/expander/stxcase__1.scm @@ -1,111 +1,111 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gx[1]#_g186431_| + (define |gx[1]#_g96506_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g186433_| + (define |gx[1]#_g96508_| (##structure gx#syntax-quote::t 'syntax-pattern::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g186435_| + (define |gx[1]#_g96510_| (##structure gx#syntax-quote::t 'make-syntax-pattern #f (gx#current-expander-context) '())) - (define |gx[1]#_g186437_| + (define |gx[1]#_g96512_| (##structure gx#syntax-quote::t 'syntax-pattern? #f (gx#current-expander-context) '())) - (define |gx[1]#_g186443_| + (define |gx[1]#_g96518_| (##structure gx#syntax-quote::t 'syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g186446_| + (define |gx[1]#_g96521_| (##structure gx#syntax-quote::t 'syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g186449_| + (define |gx[1]#_g96524_| (##structure gx#syntax-quote::t 'syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g186455_| + (define |gx[1]#_g96530_| (##structure gx#syntax-quote::t 'syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g186458_| + (define |gx[1]#_g96533_| (##structure gx#syntax-quote::t 'syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g186461_| + (define |gx[1]#_g96536_| (##structure gx#syntax-quote::t 'syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g186467_| + (define |gx[1]#_g96542_| (##structure gx#syntax-quote::t '&syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g186470_| + (define |gx[1]#_g96545_| (##structure gx#syntax-quote::t '&syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g186473_| + (define |gx[1]#_g96548_| (##structure gx#syntax-quote::t '&syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g186479_| + (define |gx[1]#_g96554_| (##structure gx#syntax-quote::t '&syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g186482_| + (define |gx[1]#_g96557_| (##structure gx#syntax-quote::t '&syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g186485_| + (define |gx[1]#_g96560_| (##structure gx#syntax-quote::t '&syntax-pattern-id-set! @@ -113,7 +113,7 @@ (gx#current-expander-context) '())) (define |gx[:0:]#syntax-pattern| - (let ((__obj186181 + (let ((__obj96256 (let () (declare (not safe)) (##structure @@ -136,7 +136,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj186181 + __obj96256 'gx#syntax-pattern::t '1 gerbil/core$$#class-type-info::t @@ -144,7 +144,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj186181 + __obj96256 'syntax-pattern '2 gerbil/core$$#class-type-info::t @@ -152,26 +152,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj186181 + __obj96256 '(id depth) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp186429 - (let ((__tmp186430 |gx[1]#_g186431_|)) + (let ((__tmp96504 + (let ((__tmp96505 |gx[1]#_g96506_|)) (declare (not safe)) - (cons __tmp186430 '())))) + (cons __tmp96505 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj186181 - __tmp186429 + __obj96256 + __tmp96504 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj186181 + __obj96256 '#t '5 gerbil/core$$#class-type-info::t @@ -179,7 +179,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj186181 + __obj96256 '#f '6 gerbil/core$$#class-type-info::t @@ -187,7 +187,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj186181 + __obj96256 '#f '7 gerbil/core$$#class-type-info::t @@ -195,145 +195,145 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj186181 + __obj96256 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp186432 |gx[1]#_g186433_|)) + (let ((__tmp96507 |gx[1]#_g96508_|)) (declare (not safe)) (##unchecked-structure-set! - __obj186181 - __tmp186432 + __obj96256 + __tmp96507 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp186434 |gx[1]#_g186435_|)) + (let ((__tmp96509 |gx[1]#_g96510_|)) (declare (not safe)) (##unchecked-structure-set! - __obj186181 - __tmp186434 + __obj96256 + __tmp96509 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp186436 |gx[1]#_g186437_|)) + (let ((__tmp96511 |gx[1]#_g96512_|)) (declare (not safe)) (##unchecked-structure-set! - __obj186181 - __tmp186436 + __obj96256 + __tmp96511 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp186438 - (let ((__tmp186447 - (let ((__tmp186448 |gx[1]#_g186449_|)) + (let ((__tmp96513 + (let ((__tmp96522 + (let ((__tmp96523 |gx[1]#_g96524_|)) (declare (not safe)) - (cons 'id __tmp186448))) - (__tmp186439 - (let ((__tmp186444 - (let ((__tmp186445 |gx[1]#_g186446_|)) + (cons 'id __tmp96523))) + (__tmp96514 + (let ((__tmp96519 + (let ((__tmp96520 |gx[1]#_g96521_|)) (declare (not safe)) - (cons 'depth __tmp186445))) - (__tmp186440 - (let ((__tmp186441 - (let ((__tmp186442 |gx[1]#_g186443_|)) + (cons 'depth __tmp96520))) + (__tmp96515 + (let ((__tmp96516 + (let ((__tmp96517 |gx[1]#_g96518_|)) (declare (not safe)) - (cons 'e __tmp186442)))) + (cons 'e __tmp96517)))) (declare (not safe)) - (cons __tmp186441 '())))) + (cons __tmp96516 '())))) (declare (not safe)) - (cons __tmp186444 __tmp186440)))) + (cons __tmp96519 __tmp96515)))) (declare (not safe)) - (cons __tmp186447 __tmp186439)))) + (cons __tmp96522 __tmp96514)))) (declare (not safe)) (##unchecked-structure-set! - __obj186181 - __tmp186438 + __obj96256 + __tmp96513 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp186450 - (let ((__tmp186459 - (let ((__tmp186460 |gx[1]#_g186461_|)) + (let ((__tmp96525 + (let ((__tmp96534 + (let ((__tmp96535 |gx[1]#_g96536_|)) (declare (not safe)) - (cons 'id __tmp186460))) - (__tmp186451 - (let ((__tmp186456 - (let ((__tmp186457 |gx[1]#_g186458_|)) + (cons 'id __tmp96535))) + (__tmp96526 + (let ((__tmp96531 + (let ((__tmp96532 |gx[1]#_g96533_|)) (declare (not safe)) - (cons 'depth __tmp186457))) - (__tmp186452 - (let ((__tmp186453 - (let ((__tmp186454 |gx[1]#_g186455_|)) + (cons 'depth __tmp96532))) + (__tmp96527 + (let ((__tmp96528 + (let ((__tmp96529 |gx[1]#_g96530_|)) (declare (not safe)) - (cons 'e __tmp186454)))) + (cons 'e __tmp96529)))) (declare (not safe)) - (cons __tmp186453 '())))) + (cons __tmp96528 '())))) (declare (not safe)) - (cons __tmp186456 __tmp186452)))) + (cons __tmp96531 __tmp96527)))) (declare (not safe)) - (cons __tmp186459 __tmp186451)))) + (cons __tmp96534 __tmp96526)))) (declare (not safe)) (##unchecked-structure-set! - __obj186181 - __tmp186450 + __obj96256 + __tmp96525 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp186462 - (let ((__tmp186471 - (let ((__tmp186472 |gx[1]#_g186473_|)) + (let ((__tmp96537 + (let ((__tmp96546 + (let ((__tmp96547 |gx[1]#_g96548_|)) (declare (not safe)) - (cons 'id __tmp186472))) - (__tmp186463 - (let ((__tmp186468 - (let ((__tmp186469 |gx[1]#_g186470_|)) + (cons 'id __tmp96547))) + (__tmp96538 + (let ((__tmp96543 + (let ((__tmp96544 |gx[1]#_g96545_|)) (declare (not safe)) - (cons 'depth __tmp186469))) - (__tmp186464 - (let ((__tmp186465 - (let ((__tmp186466 |gx[1]#_g186467_|)) + (cons 'depth __tmp96544))) + (__tmp96539 + (let ((__tmp96540 + (let ((__tmp96541 |gx[1]#_g96542_|)) (declare (not safe)) - (cons 'e __tmp186466)))) + (cons 'e __tmp96541)))) (declare (not safe)) - (cons __tmp186465 '())))) + (cons __tmp96540 '())))) (declare (not safe)) - (cons __tmp186468 __tmp186464)))) + (cons __tmp96543 __tmp96539)))) (declare (not safe)) - (cons __tmp186471 __tmp186463)))) + (cons __tmp96546 __tmp96538)))) (declare (not safe)) (##unchecked-structure-set! - __obj186181 - __tmp186462 + __obj96256 + __tmp96537 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp186474 - (let ((__tmp186483 - (let ((__tmp186484 |gx[1]#_g186485_|)) + (let ((__tmp96549 + (let ((__tmp96558 + (let ((__tmp96559 |gx[1]#_g96560_|)) (declare (not safe)) - (cons 'id __tmp186484))) - (__tmp186475 - (let ((__tmp186480 - (let ((__tmp186481 |gx[1]#_g186482_|)) + (cons 'id __tmp96559))) + (__tmp96550 + (let ((__tmp96555 + (let ((__tmp96556 |gx[1]#_g96557_|)) (declare (not safe)) - (cons 'depth __tmp186481))) - (__tmp186476 - (let ((__tmp186477 - (let ((__tmp186478 |gx[1]#_g186479_|)) + (cons 'depth __tmp96556))) + (__tmp96551 + (let ((__tmp96552 + (let ((__tmp96553 |gx[1]#_g96554_|)) (declare (not safe)) - (cons 'e __tmp186478)))) + (cons 'e __tmp96553)))) (declare (not safe)) - (cons __tmp186477 '())))) + (cons __tmp96552 '())))) (declare (not safe)) - (cons __tmp186480 __tmp186476)))) + (cons __tmp96555 __tmp96551)))) (declare (not safe)) - (cons __tmp186483 __tmp186475)))) + (cons __tmp96558 __tmp96550)))) (declare (not safe)) (##unchecked-structure-set! - __obj186181 - __tmp186474 + __obj96256 + __tmp96549 '15 gerbil/core$$#class-type-info::t '#f)) - __obj186181))) + __obj96256))) diff --git a/src/bootstrap/gerbil/expander/top__0.scm b/src/bootstrap/gerbil/expander/top__0.scm index 1ec606b1e..be384b48a 100644 --- a/src/bootstrap/gerbil/expander/top__0.scm +++ b/src/bootstrap/gerbil/expander/top__0.scm @@ -1,398 +1,384 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/top::timestamp 1708102803) + (define gerbil/expander/top::timestamp 1708370114) (begin (declare (not safe)) (define gx#core-expand-begin% - (lambda (_stx155716_) - (letrec ((_expand-special155718_ - (lambda (_hd155720_ _K155721_ _rest155722_ _r155723_) - (_K155721_ - _rest155722_ - (cons (gx#core-expand-top _hd155720_) _r155723_))))) - (gx#core-expand-block__0 _stx155716_ _expand-special155718_)))) + (lambda (_stx88631_) + (letrec ((_expand-special88633_ + (lambda (_hd88635_ _K88636_ _rest88637_ _r88638_) + (_K88636_ + _rest88637_ + (cons (gx#core-expand-top _hd88635_) _r88638_))))) + (gx#core-expand-block__0 _stx88631_ _expand-special88633_)))) (define gx#core-expand-begin-syntax% - (lambda (_stx155469_) - (letrec ((_expand-special155471_ - (lambda (_hd155591_ _K155592_ _rest155593_ _r155594_) - (let* ((_K155598_ - (lambda (_e155596_) - (_K155592_ - _rest155593_ - (cons _e155596_ _r155594_)))) - (_e155599155628_ _hd155591_) - (_E155623155632_ + (lambda (_stx88384_) + (letrec ((_expand-special88386_ + (lambda (_hd88506_ _K88507_ _rest88508_ _r88509_) + (let* ((_K88513_ + (lambda (_e88511_) + (_K88507_ _rest88508_ (cons _e88511_ _r88509_)))) + (_e8851488543_ _hd88506_) + (_E8853888547_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e155599155628_))) - (_E155619155644_ + _e8851488543_))) + (_E8853488559_ (lambda () - (if (gx#stx-pair? _e155599155628_) - (let ((_e155624155636_ - (gx#syntax-e _e155599155628_))) - (let ((_hd155625155639_ - (##car _e155624155636_)) - (_tl155626155641_ - (##cdr _e155624155636_))) - (if (and (gx#identifier? - _hd155625155639_) + (if (gx#stx-pair? _e8851488543_) + (let ((_e8853988551_ + (gx#syntax-e _e8851488543_))) + (let ((_hd8854088554_ + (##car _e8853988551_)) + (_tl8854188556_ + (##cdr _e8853988551_))) + (if (and (gx#identifier? _hd8854088554_) (gx#core-identifier=? - _hd155625155639_ + _hd8854088554_ '%#define-runtime)) (if '#t - (_K155598_ + (_K88513_ (gx#core-expand-define-runtime% - _hd155591_)) - (_E155623155632_)) - (_E155623155632_)))) - (_E155623155632_)))) - (_E155615155656_ + _hd88506_)) + (_E8853888547_)) + (_E8853888547_)))) + (_E8853888547_)))) + (_E8853088571_ (lambda () - (if (gx#stx-pair? _e155599155628_) - (let ((_e155620155648_ - (gx#syntax-e _e155599155628_))) - (let ((_hd155621155651_ - (##car _e155620155648_)) - (_tl155622155653_ - (##cdr _e155620155648_))) - (if (and (gx#identifier? - _hd155621155651_) + (if (gx#stx-pair? _e8851488543_) + (let ((_e8853588563_ + (gx#syntax-e _e8851488543_))) + (let ((_hd8853688566_ + (##car _e8853588563_)) + (_tl8853788568_ + (##cdr _e8853588563_))) + (if (and (gx#identifier? _hd8853688566_) (gx#core-identifier=? - _hd155621155651_ + _hd8853688566_ '%#define-alias)) (if '#t - (_K155598_ + (_K88513_ (gx#core-expand-define-alias% - _hd155591_)) - (_E155619155644_)) - (_E155619155644_)))) - (_E155619155644_)))) - (_E155605155668_ + _hd88506_)) + (_E8853488559_)) + (_E8853488559_)))) + (_E8853488559_)))) + (_E8852088583_ (lambda () - (if (gx#stx-pair? _e155599155628_) - (let ((_e155616155660_ - (gx#syntax-e _e155599155628_))) - (let ((_hd155617155663_ - (##car _e155616155660_)) - (_tl155618155665_ - (##cdr _e155616155660_))) - (if (and (gx#identifier? - _hd155617155663_) + (if (gx#stx-pair? _e8851488543_) + (let ((_e8853188575_ + (gx#syntax-e _e8851488543_))) + (let ((_hd8853288578_ + (##car _e8853188575_)) + (_tl8853388580_ + (##cdr _e8853188575_))) + (if (and (gx#identifier? _hd8853288578_) (gx#core-identifier=? - _hd155617155663_ + _hd8853288578_ '%#define-syntax)) (if '#t - (_K155598_ + (_K88513_ (gx#core-expand-define-syntax% - _hd155591_)) - (_E155615155656_)) - (_E155615155656_)))) - (_E155615155656_)))) - (_E155601155700_ + _hd88506_)) + (_E8853088571_)) + (_E8853088571_)))) + (_E8853088571_)))) + (_E8851688615_ (lambda () - (if (gx#stx-pair? _e155599155628_) - (let ((_e155606155672_ - (gx#syntax-e _e155599155628_))) - (let ((_hd155607155675_ - (##car _e155606155672_)) - (_tl155608155677_ - (##cdr _e155606155672_))) - (if (and (gx#identifier? - _hd155607155675_) + (if (gx#stx-pair? _e8851488543_) + (let ((_e8852188587_ + (gx#syntax-e _e8851488543_))) + (let ((_hd8852288590_ + (##car _e8852188587_)) + (_tl8852388592_ + (##cdr _e8852188587_))) + (if (and (gx#identifier? _hd8852288590_) (gx#core-identifier=? - _hd155607155675_ + _hd8852288590_ '%#define-values)) - (if (gx#stx-pair? _tl155608155677_) - (let ((_e155609155680_ + (if (gx#stx-pair? _tl8852388592_) + (let ((_e8852488595_ (gx#syntax-e - _tl155608155677_))) - (let ((_hd155610155683_ - (##car _e155609155680_)) - (_tl155611155685_ - (##cdr _e155609155680_))) - (let ((_hd-bind155688_ - _hd155610155683_)) + _tl8852388592_))) + (let ((_hd8852588598_ + (##car _e8852488595_)) + (_tl8852688600_ + (##cdr _e8852488595_))) + (let ((_hd-bind88603_ + _hd8852588598_)) (if (gx#stx-pair? - _tl155611155685_) - (let ((_e155612155690_ + _tl8852688600_) + (let ((_e8852788605_ (gx#syntax-e - _tl155611155685_))) - (let ((_hd155613155693_ + _tl8852688600_))) + (let ((_hd8852888608_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e155612155690_)) - (_tl155614155695_ (##cdr _e155612155690_))) - (let ((_expr155698_ _hd155613155693_)) - (if (gx#stx-null? _tl155614155695_) - (if (gx#core-bind-values? _hd-bind155688_) + (##car _e8852788605_)) + (_tl8852988610_ (##cdr _e8852788605_))) + (let ((_expr88613_ _hd8852888608_)) + (if (gx#stx-null? _tl8852988610_) + (if (gx#core-bind-values? _hd-bind88603_) (begin - (gx#core-bind-values!__0 _hd-bind155688_) - (_K155598_ _hd155591_)) - (_E155605155668_)) - (_E155605155668_))))) - (_E155605155668_))))) + (gx#core-bind-values!__0 _hd-bind88603_) + (_K88513_ _hd88506_)) + (_E8852088583_)) + (_E8852088583_))))) + (_E8852088583_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E155605155668_)) - (_E155605155668_)))) - (_E155605155668_)))) - (_E155600155712_ + (_E8852088583_)) + (_E8852088583_)))) + (_E8852088583_)))) + (_E8851588627_ (lambda () - (if (gx#stx-pair? _e155599155628_) - (let ((_e155602155704_ - (gx#syntax-e _e155599155628_))) - (let ((_hd155603155707_ - (##car _e155602155704_)) - (_tl155604155709_ - (##cdr _e155602155704_))) - (if (and (gx#identifier? - _hd155603155707_) + (if (gx#stx-pair? _e8851488543_) + (let ((_e8851788619_ + (gx#syntax-e _e8851488543_))) + (let ((_hd8851888622_ + (##car _e8851788619_)) + (_tl8851988624_ + (##cdr _e8851788619_))) + (if (and (gx#identifier? _hd8851888622_) (gx#core-identifier=? - _hd155603155707_ + _hd8851888622_ '%#begin-syntax)) (if '#t - (_K155598_ + (_K88513_ (gx#core-expand-begin-syntax% - _hd155591_)) - (_E155601155700_)) - (_E155601155700_)))) - (_E155601155700_))))) - (_E155600155712_)))) - (_eval-body155472_ - (lambda (_rbody155480_) - (let _lp155482_ ((_rest155484_ _rbody155480_) - (_body155485_ '()) - (_ebody155486_ '())) - (let* ((_rest155487155495_ _rest155484_) - (_else155489155503_ + _hd88506_)) + (_E8851688615_)) + (_E8851688615_)))) + (_E8851688615_))))) + (_E8851588627_)))) + (_eval-body88387_ + (lambda (_rbody88395_) + (let _lp88397_ ((_rest88399_ _rbody88395_) + (_body88400_ '()) + (_ebody88401_ '())) + (let* ((_rest8840288410_ _rest88399_) + (_else8840488418_ (lambda () - (values _body155485_ + (values _body88400_ (gx#eval-syntax* (gx#core-quote-syntax__1 - (gx#core-cons '%#begin _ebody155486_) - (gx#stx-source _stx155469_)))))) - (_K155491155579_ - (lambda (_rest155506_ _hd155507_) - (let* ((_e155508155525_ _hd155507_) - (_E155520155529_ + (gx#core-cons '%#begin _ebody88401_) + (gx#stx-source _stx88384_)))))) + (_K8840688494_ + (lambda (_rest88421_ _hd88422_) + (let* ((_e8842388440_ _hd88422_) + (_E8843588444_ (lambda () - (_lp155482_ - _rest155506_ - (cons _hd155507_ _body155485_) - (cons _hd155507_ _ebody155486_)))) - (_E155510155541_ + (_lp88397_ + _rest88421_ + (cons _hd88422_ _body88400_) + (cons _hd88422_ _ebody88401_)))) + (_E8842588456_ (lambda () - (if (gx#stx-pair? _e155508155525_) - (let ((_e155521155533_ + (if (gx#stx-pair? _e8842388440_) + (let ((_e8843688448_ (gx#syntax-e - _e155508155525_))) - (let ((_hd155522155536_ - (##car _e155521155533_)) - (_tl155523155538_ - (##cdr _e155521155533_))) + _e8842388440_))) + (let ((_hd8843788451_ + (##car _e8843688448_)) + (_tl8843888453_ + (##cdr _e8843688448_))) (if (and (gx#identifier? - _hd155522155536_) + _hd8843788451_) (gx#core-identifier=? - _hd155522155536_ + _hd8843788451_ '%#begin-syntax)) (if '#t - (_lp155482_ - _rest155506_ - (cons _hd155507_ + (_lp88397_ + _rest88421_ + (cons _hd88422_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body155485_) - _ebody155486_) - (_E155520155529_)) - (_E155520155529_)))) + _body88400_) + _ebody88401_) + (_E8843588444_)) + (_E8843588444_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E155520155529_)))) - (_E155509155575_ + (_E8843588444_)))) + (_E8842488490_ (lambda () - (if (gx#stx-pair? _e155508155525_) - (let ((_e155511155545_ + (if (gx#stx-pair? _e8842388440_) + (let ((_e8842688460_ (gx#syntax-e - _e155508155525_))) - (let ((_hd155512155548_ - (##car _e155511155545_)) - (_tl155513155550_ - (##cdr _e155511155545_))) + _e8842388440_))) + (let ((_hd8842788463_ + (##car _e8842688460_)) + (_tl8842888465_ + (##cdr _e8842688460_))) (if (and (gx#identifier? - _hd155512155548_) + _hd8842788463_) (gx#core-identifier=? - _hd155512155548_ + _hd8842788463_ '%#define-values)) (if (gx#stx-pair? - _tl155513155550_) - (let ((_e155514155553_ + _tl8842888465_) + (let ((_e8842988468_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl155513155550_))) - (let ((_hd155515155556_ (##car _e155514155553_)) - (_tl155516155558_ (##cdr _e155514155553_))) - (let ((_hd-bind155561_ _hd155515155556_)) - (if (gx#stx-pair? _tl155516155558_) - (let ((_e155517155563_ - (gx#syntax-e _tl155516155558_))) - (let ((_hd155518155566_ (##car _e155517155563_)) - (_tl155519155568_ (##cdr _e155517155563_))) - (let ((_expr155571_ _hd155518155566_)) - (if (gx#stx-null? _tl155519155568_) + (gx#syntax-e _tl8842888465_))) + (let ((_hd8843088471_ (##car _e8842988468_)) + (_tl8843188473_ (##cdr _e8842988468_))) + (let ((_hd-bind88476_ _hd8843088471_)) + (if (gx#stx-pair? _tl8843188473_) + (let ((_e8843288478_ (gx#syntax-e _tl8843188473_))) + (let ((_hd8843388481_ (##car _e8843288478_)) + (_tl8843488483_ (##cdr _e8843288478_))) + (let ((_expr88486_ _hd8843388481_)) + (if (gx#stx-null? _tl8843488483_) (if '#t - (let ((_ehd155573_ + (let ((_ehd88488_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values - _hd-bind155561_) + _hd-bind88476_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr155571_) + _expr88486_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _hd155507_)))) - (_lp155482_ - _rest155506_ - (cons _ehd155573_ _body155485_) - (cons _ehd155573_ _ebody155486_))) - (_E155510155541_)) - (_E155510155541_))))) - (_E155510155541_))))) - (_E155510155541_)) - (_E155510155541_)))) + (gx#stx-source _hd88422_)))) + (_lp88397_ + _rest88421_ + (cons _ehd88488_ _body88400_) + (cons _ehd88488_ _ebody88401_))) + (_E8842588456_)) + (_E8842588456_))))) + (_E8842588456_))))) + (_E8842588456_)) + (_E8842588456_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E155510155541_))))) - (_E155509155575_))))) - (if (##pair? _rest155487155495_) - (let ((_hd155492155582_ (##car _rest155487155495_)) - (_tl155493155584_ - (##cdr _rest155487155495_))) - (let* ((_hd155587_ _hd155492155582_) - (_rest155589_ _tl155493155584_)) - (_K155491155579_ _rest155589_ _hd155587_))) - (_else155489155503_))))))) + (_E8842588456_))))) + (_E8842488490_))))) + (if (##pair? _rest8840288410_) + (let ((_hd8840788497_ (##car _rest8840288410_)) + (_tl8840888499_ (##cdr _rest8840288410_))) + (let* ((_hd88502_ _hd8840788497_) + (_rest88504_ _tl8840888499_)) + (_K8840688494_ _rest88504_ _hd88502_))) + (_else8840488418_))))))) (call-with-parameters (lambda () - (let* ((_rbody155475_ + (let* ((_rbody88390_ (gx#core-expand-block__1 - _stx155469_ - _expand-special155471_ + _stx88384_ + _expand-special88386_ '#f)) - (_g160307_ (_eval-body155472_ _rbody155475_))) + (_g88654_ (_eval-body88387_ _rbody88390_))) (begin - (let ((_g160308_ - (if (##values? _g160307_) - (##vector-length _g160307_) + (let ((_g88655_ + (if (##values? _g88654_) + (##vector-length _g88654_) 1))) - (if (not (##fx= _g160308_ 2)) - (error "Context expects 2 values" _g160308_))) - (let ((_expanded-body155477_ (##vector-ref _g160307_ 0)) - (_value155478_ (##vector-ref _g160307_ 1))) + (if (not (##fx= _g88655_ 2)) + (error "Context expects 2 values" _g88655_))) + (let ((_expanded-body88392_ (##vector-ref _g88654_ 0)) + (_value88393_ (##vector-ref _g88654_ 1))) (gx#core-quote-syntax__1 (if (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - (gx#core-cons '%#begin-syntax _expanded-body155477_) + (gx#core-cons '%#begin-syntax _expanded-body88392_) (cons (gx#core-quote-syntax__0 '%#quote) - (cons _value155478_ '()))) - (gx#stx-source _stx155469_)))))) + (cons _value88393_ '()))) + (gx#stx-source _stx88384_)))))) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1))))) (define gx#core-expand-begin-foreign% - (lambda (_stx155439_) - (let* ((_e155440155447_ _stx155439_) - (_E155442155451_ + (lambda (_stx88354_) + (let* ((_e8835588362_ _stx88354_) + (_E8835788366_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e155440155447_))) - (_E155441155465_ + _e8835588362_))) + (_E8835688380_ (lambda () - (if (gx#stx-pair? _e155440155447_) - (let ((_e155443155455_ (gx#syntax-e _e155440155447_))) - (let ((_hd155444155458_ (##car _e155443155455_)) - (_tl155445155460_ (##cdr _e155443155455_))) - (let ((_body155463_ _tl155445155460_)) - (if (gx#stx-list? _body155463_) + (if (gx#stx-pair? _e8835588362_) + (let ((_e8835888370_ (gx#syntax-e _e8835588362_))) + (let ((_hd8835988373_ (##car _e8835888370_)) + (_tl8836088375_ (##cdr _e8835888370_))) + (let ((_body88378_ _tl8836088375_)) + (if (gx#stx-list? _body88378_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin-foreign _body155463_) - (gx#stx-source _stx155439_)) - (_E155442155451_))))) - (_E155442155451_))))) - (_E155441155465_)))) + (gx#core-cons '%#begin-foreign _body88378_) + (gx#stx-source _stx88354_)) + (_E8835788366_))))) + (_E8835788366_))))) + (_E8835688380_)))) (define gx#core-expand-begin-module% - (lambda (_stx155437_) - (gx#raise-syntax-error '#f '"Illegal expansion" _stx155437_))) + (lambda (_stx88352_) + (gx#raise-syntax-error '#f '"Illegal expansion" _stx88352_))) (define gx#core-expand-begin-annotation% - (lambda (_stx155383_) - (let* ((_e155384155397_ _stx155383_) - (_E155386155401_ + (lambda (_stx88298_) + (let* ((_e8829988312_ _stx88298_) + (_E8830188316_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e155384155397_))) - (_E155385155433_ + _e8829988312_))) + (_E8830088348_ (lambda () - (if (gx#stx-pair? _e155384155397_) - (let ((_e155387155405_ (gx#syntax-e _e155384155397_))) - (let ((_hd155388155408_ (##car _e155387155405_)) - (_tl155389155410_ (##cdr _e155387155405_))) - (if (gx#stx-pair? _tl155389155410_) - (let ((_e155390155413_ - (gx#syntax-e _tl155389155410_))) - (let ((_hd155391155416_ - (##car _e155390155413_)) - (_tl155392155418_ - (##cdr _e155390155413_))) - (let ((_ann155421_ _hd155391155416_)) - (if (gx#stx-pair? _tl155392155418_) - (let ((_e155393155423_ - (gx#syntax-e _tl155392155418_))) - (let ((_hd155394155426_ - (##car _e155393155423_)) - (_tl155395155428_ - (##cdr _e155393155423_))) - (let ((_expr155431_ - _hd155394155426_)) - (if (gx#stx-null? - _tl155395155428_) + (if (gx#stx-pair? _e8829988312_) + (let ((_e8830288320_ (gx#syntax-e _e8829988312_))) + (let ((_hd8830388323_ (##car _e8830288320_)) + (_tl8830488325_ (##cdr _e8830288320_))) + (if (gx#stx-pair? _tl8830488325_) + (let ((_e8830588328_ + (gx#syntax-e _tl8830488325_))) + (let ((_hd8830688331_ (##car _e8830588328_)) + (_tl8830788333_ (##cdr _e8830588328_))) + (let ((_ann88336_ _hd8830688331_)) + (if (gx#stx-pair? _tl8830788333_) + (let ((_e8830888338_ + (gx#syntax-e _tl8830788333_))) + (let ((_hd8830988341_ + (##car _e8830888338_)) + (_tl8831088343_ + (##cdr _e8830888338_))) + (let ((_expr88346_ _hd8830988341_)) + (if (gx#stx-null? _tl8831088343_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _ann155421_ + (cons _ann88336_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-expand-expression _expr155431_) - '()))) - (gx#stx-source _stx155383_)) - (_E155386155401_)) + (cons (gx#core-expand-expression _expr88346_) '()))) + (gx#stx-source _stx88298_)) + (_E8830188316_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E155386155401_))))) - (_E155386155401_))))) - (_E155386155401_)))) - (_E155386155401_))))) - (_E155385155433_)))) + (_E8830188316_))))) + (_E8830188316_))))) + (_E8830188316_)))) + (_E8830188316_))))) + (_E8830088348_)))) (define gx#core-expand-local-block - (lambda (_stx155107_ _body155108_) - (letrec ((_expand-special155110_ - (lambda (_hd155378_ _K155379_ _rest155380_ _r155381_) - (_K155379_ + (lambda (_stx88022_ _body88023_) + (letrec ((_expand-special88025_ + (lambda (_hd88293_ _K88294_ _rest88295_ _r88296_) + (_K88294_ '() - (cons (_expand-internal155111_ _hd155378_ _rest155380_) - _r155381_)))) - (_expand-internal155111_ - (lambda (_hd155374_ _rest155375_) + (cons (_expand-internal88026_ _hd88293_ _rest88295_) + _r88296_)))) + (_expand-internal88026_ + (lambda (_hd88289_ _rest88290_) (call-with-parameters (lambda () - (_wrap-internal155113_ + (_wrap-internal88028_ (gx#core-expand-block__1 (gx#stx-wrap-source - (cons '%#begin (cons _hd155374_ _rest155375_)) - (gx#stx-source _stx155107_)) - _expand-internal-special155112_ + (cons '%#begin (cons _hd88289_ _rest88290_)) + (gx#stx-source _stx88022_)) + _expand-internal-special88027_ '#f))) gx#current-expander-context - (let ((__obj160301 + (let ((__obj88648 (##structure gx#local-context::t '#f @@ -400,745 +386,717 @@ '#f '#f '#f))) - (gx#local-context:::init! __obj160301) - __obj160301)))) - (_expand-internal-special155112_ - (lambda (_hd155269_ _K155270_ _rest155271_ _r155272_) - (let* ((_e155273155298_ _hd155269_) - (_E155293155302_ + (gx#local-context:::init! __obj88648) + __obj88648)))) + (_expand-internal-special88027_ + (lambda (_hd88184_ _K88185_ _rest88186_ _r88187_) + (let* ((_e8818888213_ _hd88184_) + (_E8820888217_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e155273155298_))) - (_E155289155314_ + _e8818888213_))) + (_E8820488229_ (lambda () - (if (gx#stx-pair? _e155273155298_) - (let ((_e155294155306_ - (gx#syntax-e _e155273155298_))) - (let ((_hd155295155309_ - (##car _e155294155306_)) - (_tl155296155311_ - (##cdr _e155294155306_))) - (if (and (gx#identifier? - _hd155295155309_) + (if (gx#stx-pair? _e8818888213_) + (let ((_e8820988221_ + (gx#syntax-e _e8818888213_))) + (let ((_hd8821088224_ + (##car _e8820988221_)) + (_tl8821188226_ + (##cdr _e8820988221_))) + (if (and (gx#identifier? _hd8821088224_) (gx#core-identifier=? - _hd155295155309_ + _hd8821088224_ '%#declare)) (if '#t - (_K155270_ - _rest155271_ + (_K88185_ + _rest88186_ (cons (gx#core-expand-declare% - _hd155269_) - _r155272_)) - (_E155293155302_)) - (_E155293155302_)))) - (_E155293155302_)))) - (_E155285155326_ + _hd88184_) + _r88187_)) + (_E8820888217_)) + (_E8820888217_)))) + (_E8820888217_)))) + (_E8820088241_ (lambda () - (if (gx#stx-pair? _e155273155298_) - (let ((_e155290155318_ - (gx#syntax-e _e155273155298_))) - (let ((_hd155291155321_ - (##car _e155290155318_)) - (_tl155292155323_ - (##cdr _e155290155318_))) - (if (and (gx#identifier? - _hd155291155321_) + (if (gx#stx-pair? _e8818888213_) + (let ((_e8820588233_ + (gx#syntax-e _e8818888213_))) + (let ((_hd8820688236_ + (##car _e8820588233_)) + (_tl8820788238_ + (##cdr _e8820588233_))) + (if (and (gx#identifier? _hd8820688236_) (gx#core-identifier=? - _hd155291155321_ + _hd8820688236_ '%#define-alias)) (if '#t (begin (gx#core-expand-define-alias% - _hd155269_) - (_K155270_ - _rest155271_ - _r155272_)) - (_E155289155314_)) - (_E155289155314_)))) - (_E155289155314_)))) - (_E155275155338_ + _hd88184_) + (_K88185_ + _rest88186_ + _r88187_)) + (_E8820488229_)) + (_E8820488229_)))) + (_E8820488229_)))) + (_E8819088253_ (lambda () - (if (gx#stx-pair? _e155273155298_) - (let ((_e155286155330_ - (gx#syntax-e _e155273155298_))) - (let ((_hd155287155333_ - (##car _e155286155330_)) - (_tl155288155335_ - (##cdr _e155286155330_))) - (if (and (gx#identifier? - _hd155287155333_) + (if (gx#stx-pair? _e8818888213_) + (let ((_e8820188245_ + (gx#syntax-e _e8818888213_))) + (let ((_hd8820288248_ + (##car _e8820188245_)) + (_tl8820388250_ + (##cdr _e8820188245_))) + (if (and (gx#identifier? _hd8820288248_) (gx#core-identifier=? - _hd155287155333_ + _hd8820288248_ '%#define-syntax)) (if '#t (begin (gx#core-expand-define-syntax% - _hd155269_) - (_K155270_ - _rest155271_ - _r155272_)) - (_E155285155326_)) - (_E155285155326_)))) - (_E155285155326_)))) - (_E155274155370_ + _hd88184_) + (_K88185_ + _rest88186_ + _r88187_)) + (_E8820088241_)) + (_E8820088241_)))) + (_E8820088241_)))) + (_E8818988285_ (lambda () - (if (gx#stx-pair? _e155273155298_) - (let ((_e155276155342_ - (gx#syntax-e _e155273155298_))) - (let ((_hd155277155345_ - (##car _e155276155342_)) - (_tl155278155347_ - (##cdr _e155276155342_))) - (if (and (gx#identifier? - _hd155277155345_) + (if (gx#stx-pair? _e8818888213_) + (let ((_e8819188257_ + (gx#syntax-e _e8818888213_))) + (let ((_hd8819288260_ + (##car _e8819188257_)) + (_tl8819388262_ + (##cdr _e8819188257_))) + (if (and (gx#identifier? _hd8819288260_) (gx#core-identifier=? - _hd155277155345_ + _hd8819288260_ '%#define-values)) - (if (gx#stx-pair? _tl155278155347_) - (let ((_e155279155350_ + (if (gx#stx-pair? _tl8819388262_) + (let ((_e8819488265_ (gx#syntax-e - _tl155278155347_))) - (let ((_hd155280155353_ - (##car _e155279155350_)) - (_tl155281155355_ - (##cdr _e155279155350_))) - (let ((_hd-bind155358_ - _hd155280155353_)) + _tl8819388262_))) + (let ((_hd8819588268_ + (##car _e8819488265_)) + (_tl8819688270_ + (##cdr _e8819488265_))) + (let ((_hd-bind88273_ + _hd8819588268_)) (if (gx#stx-pair? - _tl155281155355_) - (let ((_e155282155360_ + _tl8819688270_) + (let ((_e8819788275_ (gx#syntax-e - _tl155281155355_))) - (let ((_hd155283155363_ + _tl8819688270_))) + (let ((_hd8819888278_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e155282155360_)) - (_tl155284155365_ (##cdr _e155282155360_))) - (let ((_expr155368_ _hd155283155363_)) - (if (gx#stx-null? _tl155284155365_) - (if (gx#core-bind-values? _hd-bind155358_) + (##car _e8819788275_)) + (_tl8819988280_ (##cdr _e8819788275_))) + (let ((_expr88283_ _hd8819888278_)) + (if (gx#stx-null? _tl8819988280_) + (if (gx#core-bind-values? _hd-bind88273_) (begin - (gx#core-bind-values!__0 _hd-bind155358_) - (_K155270_ - _rest155271_ - (cons _hd155269_ _r155272_))) - (_E155275155338_)) - (_E155275155338_))))) - (_E155275155338_))))) + (gx#core-bind-values!__0 _hd-bind88273_) + (_K88185_ + _rest88186_ + (cons _hd88184_ _r88187_))) + (_E8819088253_)) + (_E8819088253_))))) + (_E8819088253_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E155275155338_)) - (_E155275155338_)))) - (_E155275155338_))))) - (_E155274155370_)))) - (_wrap-internal155113_ - (lambda (_rbody155115_) - (let _lp155117_ ((_rest155119_ _rbody155115_) - (_decls155120_ '()) - (_bind155121_ '()) - (_body155122_ '())) - (let* ((_e155123155130_ _rest155119_) - (_E155125155179_ + (_E8819088253_)) + (_E8819088253_)))) + (_E8819088253_))))) + (_E8818988285_)))) + (_wrap-internal88028_ + (lambda (_rbody88030_) + (let _lp88032_ ((_rest88034_ _rbody88030_) + (_decls88035_ '()) + (_bind88036_ '()) + (_body88037_ '())) + (let* ((_e8803888045_ _rest88034_) + (_E8804088094_ (lambda () - (let* ((_body155174_ - (let* ((_body155133155143_ - _body155122_) - (_else155136155151_ + (let* ((_body88089_ + (let* ((_body8804888058_ _body88037_) + (_else8805188066_ (lambda () (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _body155122_) + _body88037_) (gx#stx-source - _stx155107_))))) - (let ((_K155141155171_ + _stx88022_))))) + (let ((_K8805688086_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty body" - _stx155107_))) - (_K155138155157_ - (lambda (_expr155155_) - _expr155155_))) - (let ((_try-match155135155167_ + _stx88022_))) + (_K8805388072_ + (lambda (_expr88070_) + _expr88070_))) + (let ((_try-match8805088082_ (lambda () - (if (##pair? _body155133155143_) - (let ((_tl155140155162_ - (##cdr _body155133155143_)) - (_hd155139155160_ - (##car _body155133155143_))) - (if (##null? _tl155140155162_) - (let ((_expr155165_ + (if (##pair? _body8804888058_) + (let ((_tl8805588077_ + (##cdr _body8804888058_)) + (_hd8805488075_ + (##car _body8804888058_))) + (if (##null? _tl8805588077_) + (let ((_expr88080_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd155139155160_)) - (_K155138155157_ _expr155165_)) - (_else155136155151_))) - (_else155136155151_))))) + _hd8805488075_)) + (_K8805388072_ _expr88080_)) + (_else8805188066_))) + (_else8805188066_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##null? _body155133155143_) - (_K155141155171_) - (_try-match155135155167_)))))) - (_body155176_ - (if (null? _bind155121_) - _body155174_ + (if (##null? _body8804888058_) + (_K8805688086_) + (_try-match8805088082_)))))) + (_body88091_ + (if (null? _bind88036_) + _body88089_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#letrec*-values) - (cons _bind155121_ - (cons _body155174_ + (cons _bind88036_ + (cons _body88089_ '()))) - (gx#stx-source _stx155107_))))) - (if (null? _decls155120_) - _body155176_ + (gx#stx-source _stx88022_))))) + (if (null? _decls88035_) + _body88091_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _decls155120_ - (cons _body155176_ '()))) - (gx#stx-source _stx155107_)))))) - (_E155124155265_ + (cons _decls88035_ + (cons _body88091_ '()))) + (gx#stx-source _stx88022_)))))) + (_E8803988180_ (lambda () - (if (gx#stx-pair? _e155123155130_) - (let ((_e155126155183_ - (gx#syntax-e _e155123155130_))) - (let ((_hd155127155186_ - (##car _e155126155183_)) - (_tl155128155188_ - (##cdr _e155126155183_))) - (let* ((_hd155191_ _hd155127155186_) - (_rest155193_ _tl155128155188_)) + (if (gx#stx-pair? _e8803888045_) + (let ((_e8804188098_ + (gx#syntax-e _e8803888045_))) + (let ((_hd8804288101_ + (##car _e8804188098_)) + (_tl8804388103_ + (##cdr _e8804188098_))) + (let* ((_hd88106_ _hd8804288101_) + (_rest88108_ _tl8804388103_)) (if '#t - (let* ((_e155194155211_ - _hd155191_) - (_E155206155215_ + (let* ((_e8810988126_ _hd88106_) + (_E8812188130_ (lambda () - (if (null? _bind155121_) - (_lp155117_ - _rest155193_ - _decls155120_ - _bind155121_ - (cons _hd155191_ + (if (null? _bind88036_) + (_lp88032_ + _rest88108_ + _decls88035_ + _bind88036_ + (cons _hd88106_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body155122_)) - (_lp155117_ - _rest155193_ - _decls155120_ - (cons (cons '#f (cons _hd155191_ '())) _bind155121_) - _body155122_)))) + _body88037_)) + (_lp88032_ + _rest88108_ + _decls88035_ + (cons (cons '#f (cons _hd88106_ '())) _bind88036_) + _body88037_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E155196155229_ + (_E8811188144_ (lambda () (if (gx#stx-pair? - _e155194155211_) - (let ((_e155207155219_ + _e8810988126_) + (let ((_e8812288134_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e155194155211_))) - (let ((_hd155208155222_ (##car _e155207155219_)) - (_tl155209155224_ (##cdr _e155207155219_))) - (if (and (gx#identifier? _hd155208155222_) + (gx#syntax-e _e8810988126_))) + (let ((_hd8812388137_ (##car _e8812288134_)) + (_tl8812488139_ (##cdr _e8812288134_))) + (if (and (gx#identifier? _hd8812388137_) (gx#core-identifier=? - _hd155208155222_ + _hd8812388137_ '%#declare)) - (let ((_xdecls155227_ _tl155209155224_)) + (let ((_xdecls88142_ _tl8812488139_)) (if '#t - (_lp155117_ - _rest155193_ + (_lp88032_ + _rest88108_ (gx#stx-foldr cons - _decls155120_ - _xdecls155227_) - _bind155121_ - _body155122_) - (_E155206155215_))) - (_E155206155215_)))) - (_E155206155215_)))) + _decls88035_ + _xdecls88142_) + _bind88036_ + _body88037_) + (_E8812188130_))) + (_E8812188130_)))) + (_E8812188130_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E155195155261_ + (_E8811088176_ (lambda () (if (gx#stx-pair? - _e155194155211_) - (let ((_e155197155233_ + _e8810988126_) + (let ((_e8811288148_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e155194155211_))) - (let ((_hd155198155236_ (##car _e155197155233_)) - (_tl155199155238_ (##cdr _e155197155233_))) - (if (and (gx#identifier? _hd155198155236_) + (gx#syntax-e _e8810988126_))) + (let ((_hd8811388151_ (##car _e8811288148_)) + (_tl8811488153_ (##cdr _e8811288148_))) + (if (and (gx#identifier? _hd8811388151_) (gx#core-identifier=? - _hd155198155236_ + _hd8811388151_ '%#define-values)) - (if (gx#stx-pair? _tl155199155238_) - (let ((_e155200155241_ - (gx#syntax-e _tl155199155238_))) - (let ((_hd155201155244_ - (##car _e155200155241_)) - (_tl155202155246_ - (##cdr _e155200155241_))) - (let ((_hd-bind155249_ _hd155201155244_)) - (if (gx#stx-pair? _tl155202155246_) - (let ((_e155203155251_ - (gx#syntax-e - _tl155202155246_))) - (let ((_hd155204155254_ - (##car _e155203155251_)) - (_tl155205155256_ - (##cdr _e155203155251_))) - (let ((_expr155259_ - _hd155204155254_)) + (if (gx#stx-pair? _tl8811488153_) + (let ((_e8811588156_ + (gx#syntax-e _tl8811488153_))) + (let ((_hd8811688159_ (##car _e8811588156_)) + (_tl8811788161_ (##cdr _e8811588156_))) + (let ((_hd-bind88164_ _hd8811688159_)) + (if (gx#stx-pair? _tl8811788161_) + (let ((_e8811888166_ + (gx#syntax-e _tl8811788161_))) + (let ((_hd8811988169_ + (##car _e8811888166_)) + (_tl8812088171_ + (##cdr _e8811888166_))) + (let ((_expr88174_ + _hd8811988169_)) (if (gx#stx-null? - _tl155205155256_) + _tl8812088171_) (if '#t - (_lp155117_ - _rest155193_ - _decls155120_ + (_lp88032_ + _rest88108_ + _decls88035_ (cons (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd-bind155249_) - (cons (gx#core-expand-expression _expr155259_) + _hd-bind88164_) + (cons (gx#core-expand-expression _expr88174_) '())) - _bind155121_) - _body155122_) - (_E155196155229_)) + _bind88036_) + _body88037_) + (_E8811188144_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E155196155229_))))) - (_E155196155229_))))) - (_E155196155229_)) - (_E155196155229_)))) - (_E155196155229_))))) + (_E8811188144_))))) + (_E8811188144_))))) + (_E8811188144_)) + (_E8811188144_)))) + (_E8811188144_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E155195155261_)) - (_E155125155179_))))) - (_E155125155179_))))) - (_E155124155265_)))))) + (_E8811088176_)) + (_E8804088094_))))) + (_E8804088094_))))) + (_E8803988180_)))))) (gx#core-expand-block* (gx#stx-wrap-source - (cons '%#begin _body155108_) - (gx#stx-source _stx155107_)) - _expand-special155110_)))) + (cons '%#begin _body88023_) + (gx#stx-source _stx88022_)) + _expand-special88025_)))) (define gx#core-expand-declare% - (lambda (_stx155045_) - (let* ((_e155046155053_ _stx155045_) - (_E155048155057_ + (lambda (_stx87960_) + (let* ((_e8796187968_ _stx87960_) + (_E8796387972_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e155046155053_))) - (_E155047155103_ + _e8796187968_))) + (_E8796288018_ (lambda () - (if (gx#stx-pair? _e155046155053_) - (let ((_e155049155061_ (gx#syntax-e _e155046155053_))) - (let ((_hd155050155064_ (##car _e155049155061_)) - (_tl155051155066_ (##cdr _e155049155061_))) - (let ((_body155069_ _tl155051155066_)) - (if (gx#stx-list? _body155069_) + (if (gx#stx-pair? _e8796187968_) + (let ((_e8796487976_ (gx#syntax-e _e8796187968_))) + (let ((_hd8796587979_ (##car _e8796487976_)) + (_tl8796687981_ (##cdr _e8796487976_))) + (let ((_body87984_ _tl8796687981_)) + (if (gx#stx-list? _body87984_) (gx#core-quote-syntax__1 (gx#core-cons '%#declare (gx#stx-map1 - (lambda (_decl155071_) - (let* ((_e155072155079_ _decl155071_) - (_E155074155083_ + (lambda (_decl87986_) + (let* ((_e8798787994_ _decl87986_) + (_E8798987998_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e155072155079_))) - (_E155073155099_ + _e8798787994_))) + (_E8798888014_ (lambda () - (if (gx#stx-pair? - _e155072155079_) - (let ((_e155075155087_ + (if (gx#stx-pair? _e8798787994_) + (let ((_e8799088002_ (gx#syntax-e - _e155072155079_))) - (let ((_hd155076155090_ - (##car _e155075155087_)) - (_tl155077155092_ - (##cdr _e155075155087_))) - (let* ((_head155095_ - _hd155076155090_) - (_args155097_ - _tl155077155092_)) + _e8798787994_))) + (let ((_hd8799188005_ + (##car _e8799088002_)) + (_tl8799288007_ + (##cdr _e8799088002_))) + (let* ((_head88010_ + _hd8799188005_) + (_args88012_ + _tl8799288007_)) (if (gx#stx-list? - _args155097_) + _args88012_) (gx#stx-map1 gx#core-quote-syntax - _decl155071_) - (_E155074155083_))))) - (_E155074155083_))))) - (_E155073155099_))) - _body155069_)) - (gx#stx-source _stx155045_)) - (_E155048155057_))))) - (_E155048155057_))))) - (_E155047155103_)))) + _decl87986_) + (_E8798987998_))))) + (_E8798987998_))))) + (_E8798888014_))) + _body87984_)) + (gx#stx-source _stx87960_)) + (_E8796387972_))))) + (_E8796387972_))))) + (_E8796288018_)))) (define gx#core-expand-extern% - (lambda (_stx154949_) - (let* ((_e154950154957_ _stx154949_) - (_E154952154961_ + (lambda (_stx87864_) + (let* ((_e8786587872_ _stx87864_) + (_E8786787876_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e154950154957_))) - (_E154951155041_ + _e8786587872_))) + (_E8786687956_ (lambda () - (if (gx#stx-pair? _e154950154957_) - (let ((_e154953154965_ (gx#syntax-e _e154950154957_))) - (let ((_hd154954154968_ (##car _e154953154965_)) - (_tl154955154970_ (##cdr _e154953154965_))) - (let ((_body154973_ _tl154955154970_)) + (if (gx#stx-pair? _e8786587872_) + (let ((_e8786887880_ (gx#syntax-e _e8786587872_))) + (let ((_hd8786987883_ (##car _e8786887880_)) + (_tl8787087885_ (##cdr _e8786887880_))) + (let ((_body87888_ _tl8787087885_)) (if '#t - (let _lp154975_ ((_rest154977_ _body154973_) - (_r154978_ '())) - (let* ((_e154979154993_ _rest154977_) - (_E154991154997_ + (let _lp87890_ ((_rest87892_ _body87888_) + (_r87893_ '())) + (let* ((_e8789487908_ _rest87892_) + (_E8790687912_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; %#extern expects list of (internal external) identifier lists" - _stx154949_))) - (_E154981155001_ + _stx87864_))) + (_E8789687916_ (lambda () - (if (gx#stx-null? _e154979154993_) + (if (gx#stx-null? _e8789487908_) (if '#t (gx#core-quote-syntax__1 (gx#core-cons '%#extern - (reverse _r154978_)) + (reverse _r87893_)) (gx#stx-source - _stx154949_)) - (_E154991154997_)) - (_E154991154997_)))) - (_E154980155037_ + _stx87864_)) + (_E8790687912_)) + (_E8790687912_)))) + (_E8789587952_ (lambda () - (if (gx#stx-pair? _e154979154993_) - (let ((_e154982155005_ + (if (gx#stx-pair? _e8789487908_) + (let ((_e8789787920_ (gx#syntax-e - _e154979154993_))) - (let ((_hd154983155008_ - (##car _e154982155005_)) - (_tl154984155010_ - (##cdr _e154982155005_))) + _e8789487908_))) + (let ((_hd8789887923_ + (##car _e8789787920_)) + (_tl8789987925_ + (##cdr _e8789787920_))) (if (gx#stx-pair? - _hd154983155008_) - (let ((_e154985155013_ + _hd8789887923_) + (let ((_e8790087928_ (gx#syntax-e - _hd154983155008_))) - (let ((_hd154986155016_ + _hd8789887923_))) + (let ((_hd8790187931_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e154985155013_)) - (_tl154987155018_ (##cdr _e154985155013_))) - (let ((_id155021_ _hd154986155016_)) - (if (gx#stx-pair? _tl154987155018_) - (let ((_e154988155023_ - (gx#syntax-e _tl154987155018_))) - (let ((_hd154989155026_ (##car _e154988155023_)) - (_tl154990155028_ (##cdr _e154988155023_))) - (let ((_eid155031_ _hd154989155026_)) - (if (gx#stx-null? _tl154990155028_) - (let ((_rest155033_ _tl154984155010_)) - (if (and (gx#identifier? _id155021_) - (gx#identifier? _eid155031_)) - (let ((_eid155035_ - (gx#stx-e _eid155031_))) + (##car _e8790087928_)) + (_tl8790287933_ (##cdr _e8790087928_))) + (let ((_id87936_ _hd8790187931_)) + (if (gx#stx-pair? _tl8790287933_) + (let ((_e8790387938_ (gx#syntax-e _tl8790287933_))) + (let ((_hd8790487941_ (##car _e8790387938_)) + (_tl8790587943_ (##cdr _e8790387938_))) + (let ((_eid87946_ _hd8790487941_)) + (if (gx#stx-null? _tl8790587943_) + (let ((_rest87948_ _tl8789987925_)) + (if (and (gx#identifier? _id87936_) + (gx#identifier? _eid87946_)) + (let ((_eid87950_ + (gx#stx-e _eid87946_))) (gx#core-bind-extern!__0 - _id155021_ - _eid155035_) - (_lp154975_ - _rest155033_ + _id87936_ + _eid87950_) + (_lp87890_ + _rest87948_ (cons (cons (gx#core-quote-syntax__0 - _id155021_) - (cons _eid155035_ - '())) - _r154978_))) - (_E154981155001_))) - (_E154981155001_))))) - (_E154981155001_))))) - (_E154981155001_)))) + _id87936_) + (cons _eid87950_ '())) + _r87893_))) + (_E8789687916_))) + (_E8789687916_))))) + (_E8789687916_))))) + (_E8789687916_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E154981155001_))))) - (_E154980155037_))) - (_E154952154961_))))) - (_E154952154961_))))) - (_E154951155041_)))) + (_E8789687916_))))) + (_E8789587952_))) + (_E8786787876_))))) + (_E8786787876_))))) + (_E8786687956_)))) (define gx#core-expand-define-values% - (lambda (_stx154895_) - (let* ((_e154896154909_ _stx154895_) - (_E154898154913_ + (lambda (_stx87810_) + (let* ((_e8781187824_ _stx87810_) + (_E8781387828_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e154896154909_))) - (_E154897154945_ + _e8781187824_))) + (_E8781287860_ (lambda () - (if (gx#stx-pair? _e154896154909_) - (let ((_e154899154917_ (gx#syntax-e _e154896154909_))) - (let ((_hd154900154920_ (##car _e154899154917_)) - (_tl154901154922_ (##cdr _e154899154917_))) - (if (gx#stx-pair? _tl154901154922_) - (let ((_e154902154925_ - (gx#syntax-e _tl154901154922_))) - (let ((_hd154903154928_ - (##car _e154902154925_)) - (_tl154904154930_ - (##cdr _e154902154925_))) - (let ((_hd154933_ _hd154903154928_)) - (if (gx#stx-pair? _tl154904154930_) - (let ((_e154905154935_ - (gx#syntax-e _tl154904154930_))) - (let ((_hd154906154938_ - (##car _e154905154935_)) - (_tl154907154940_ - (##cdr _e154905154935_))) - (let ((_expr154943_ - _hd154906154938_)) - (if (gx#stx-null? - _tl154907154940_) + (if (gx#stx-pair? _e8781187824_) + (let ((_e8781487832_ (gx#syntax-e _e8781187824_))) + (let ((_hd8781587835_ (##car _e8781487832_)) + (_tl8781687837_ (##cdr _e8781487832_))) + (if (gx#stx-pair? _tl8781687837_) + (let ((_e8781787840_ + (gx#syntax-e _tl8781687837_))) + (let ((_hd8781887843_ (##car _e8781787840_)) + (_tl8781987845_ (##cdr _e8781787840_))) + (let ((_hd87848_ _hd8781887843_)) + (if (gx#stx-pair? _tl8781987845_) + (let ((_e8782087850_ + (gx#syntax-e _tl8781987845_))) + (let ((_hd8782187853_ + (##car _e8782087850_)) + (_tl8782287855_ + (##cdr _e8782087850_))) + (let ((_expr87858_ _hd8782187853_)) + (if (gx#stx-null? _tl8782287855_) (if (gx#core-bind-values? - _hd154933_) + _hd87848_) (begin (gx#core-bind-values!__0 - _hd154933_) + _hd87848_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd154933_) - (cons (gx#core-expand-expression _expr154943_) + _hd87848_) + (cons (gx#core-expand-expression _expr87858_) '()))) - (gx#stx-source _stx154895_))) - (_E154898154913_)) + (gx#stx-source _stx87810_))) + (_E8781387828_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E154898154913_))))) - (_E154898154913_))))) - (_E154898154913_)))) - (_E154898154913_))))) - (_E154897154945_)))) + (_E8781387828_))))) + (_E8781387828_))))) + (_E8781387828_)))) + (_E8781387828_))))) + (_E8781287860_)))) (define gx#core-expand-define-runtime% - (lambda (_stx154839_) - (let* ((_e154840154853_ _stx154839_) - (_E154842154857_ + (lambda (_stx87754_) + (let* ((_e8775587768_ _stx87754_) + (_E8775787772_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e154840154853_))) - (_E154841154891_ + _e8775587768_))) + (_E8775687806_ (lambda () - (if (gx#stx-pair? _e154840154853_) - (let ((_e154843154861_ (gx#syntax-e _e154840154853_))) - (let ((_hd154844154864_ (##car _e154843154861_)) - (_tl154845154866_ (##cdr _e154843154861_))) - (if (gx#stx-pair? _tl154845154866_) - (let ((_e154846154869_ - (gx#syntax-e _tl154845154866_))) - (let ((_hd154847154872_ - (##car _e154846154869_)) - (_tl154848154874_ - (##cdr _e154846154869_))) - (let ((_id154877_ _hd154847154872_)) - (if (gx#stx-pair? _tl154848154874_) - (let ((_e154849154879_ - (gx#syntax-e _tl154848154874_))) - (let ((_hd154850154882_ - (##car _e154849154879_)) - (_tl154851154884_ - (##cdr _e154849154879_))) - (let ((_binding-id154887_ - _hd154850154882_)) - (if (gx#stx-null? - _tl154851154884_) + (if (gx#stx-pair? _e8775587768_) + (let ((_e8775887776_ (gx#syntax-e _e8775587768_))) + (let ((_hd8775987779_ (##car _e8775887776_)) + (_tl8776087781_ (##cdr _e8775887776_))) + (if (gx#stx-pair? _tl8776087781_) + (let ((_e8776187784_ + (gx#syntax-e _tl8776087781_))) + (let ((_hd8776287787_ (##car _e8776187784_)) + (_tl8776387789_ (##cdr _e8776187784_))) + (let ((_id87792_ _hd8776287787_)) + (if (gx#stx-pair? _tl8776387789_) + (let ((_e8776487794_ + (gx#syntax-e _tl8776387789_))) + (let ((_hd8776587797_ + (##car _e8776487794_)) + (_tl8776687799_ + (##cdr _e8776487794_))) + (let ((_binding-id87802_ + _hd8776587797_)) + (if (gx#stx-null? _tl8776687799_) (if (and (gx#identifier? - _id154877_) + _id87792_) (gx#identifier? - _binding-id154887_)) - (let ((_eid154889_ + _binding-id87802_)) + (let ((_eid87804_ (gx#stx-e - _binding-id154887_))) + _binding-id87802_))) (gx#core-bind-runtime-reference!__0 - _id154877_ - _eid154889_) + _id87792_ + _eid87804_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-runtime) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id154877_) - (cons _eid154889_ '()))))) - (_E154842154857_)) + _id87792_) + (cons _eid87804_ '()))))) + (_E8775787772_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E154842154857_))))) - (_E154842154857_))))) - (_E154842154857_)))) - (_E154842154857_))))) - (_E154841154891_)))) + (_E8775787772_))))) + (_E8775787772_))))) + (_E8775787772_)))) + (_E8775787772_))))) + (_E8775687806_)))) (define gx#core-expand-define-syntax% - (lambda (_stx154782_) - (let* ((_e154783154796_ _stx154782_) - (_E154785154800_ + (lambda (_stx87697_) + (let* ((_e8769887711_ _stx87697_) + (_E8770087715_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e154783154796_))) - (_E154784154835_ + _e8769887711_))) + (_E8769987750_ (lambda () - (if (gx#stx-pair? _e154783154796_) - (let ((_e154786154804_ (gx#syntax-e _e154783154796_))) - (let ((_hd154787154807_ (##car _e154786154804_)) - (_tl154788154809_ (##cdr _e154786154804_))) - (if (gx#stx-pair? _tl154788154809_) - (let ((_e154789154812_ - (gx#syntax-e _tl154788154809_))) - (let ((_hd154790154815_ - (##car _e154789154812_)) - (_tl154791154817_ - (##cdr _e154789154812_))) - (let ((_id154820_ _hd154790154815_)) - (if (gx#stx-pair? _tl154791154817_) - (let ((_e154792154822_ - (gx#syntax-e _tl154791154817_))) - (let ((_hd154793154825_ - (##car _e154792154822_)) - (_tl154794154827_ - (##cdr _e154792154822_))) - (let ((_expr154830_ - _hd154793154825_)) - (if (gx#stx-null? - _tl154794154827_) + (if (gx#stx-pair? _e8769887711_) + (let ((_e8770187719_ (gx#syntax-e _e8769887711_))) + (let ((_hd8770287722_ (##car _e8770187719_)) + (_tl8770387724_ (##cdr _e8770187719_))) + (if (gx#stx-pair? _tl8770387724_) + (let ((_e8770487727_ + (gx#syntax-e _tl8770387724_))) + (let ((_hd8770587730_ (##car _e8770487727_)) + (_tl8770687732_ (##cdr _e8770487727_))) + (let ((_id87735_ _hd8770587730_)) + (if (gx#stx-pair? _tl8770687732_) + (let ((_e8770787737_ + (gx#syntax-e _tl8770687732_))) + (let ((_hd8770887740_ + (##car _e8770787737_)) + (_tl8770987742_ + (##cdr _e8770787737_))) + (let ((_expr87745_ _hd8770887740_)) + (if (gx#stx-null? _tl8770987742_) (if (gx#identifier? - _id154820_) - (let ((_g160309_ + _id87735_) + (let ((_g88656_ (gx#core-expand-expression+1 - _expr154830_))) + _expr87745_))) (begin - (let ((_g160310_ + (let ((_g88657_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (##values? _g160309_) - (##vector-length _g160309_) + (if (##values? _g88656_) + (##vector-length _g88656_) 1))) - (if (not (##fx= _g160310_ 2)) - (error "Context expects 2 values" _g160310_))) - (let ((_e-stx154832_ (##vector-ref _g160309_ 0)) - (_e154833_ (##vector-ref _g160309_ 1))) + (if (not (##fx= _g88657_ 2)) + (error "Context expects 2 values" _g88657_))) + (let ((_e-stx87747_ (##vector-ref _g88656_ 0)) + (_e87748_ (##vector-ref _g88656_ 1))) (begin - (gx#core-bind-syntax!__0 _id154820_ _e154833_) + (gx#core-bind-syntax!__0 _id87735_ _e87748_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons (gx#core-quote-syntax__0 _id154820_) - (cons _e-stx154832_ '()))) - (gx#stx-source _stx154782_)))))) - (_E154785154800_)) + (cons (gx#core-quote-syntax__0 _id87735_) + (cons _e-stx87747_ '()))) + (gx#stx-source _stx87697_)))))) + (_E8770087715_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E154785154800_))))) - (_E154785154800_))))) - (_E154785154800_)))) - (_E154785154800_))))) - (_E154784154835_)))) + (_E8770087715_))))) + (_E8770087715_))))) + (_E8770087715_)))) + (_E8770087715_))))) + (_E8769987750_)))) (define gx#core-expand-define-alias% - (lambda (_stx154726_) - (let* ((_e154727154740_ _stx154726_) - (_E154729154744_ + (lambda (_stx87641_) + (let* ((_e8764287655_ _stx87641_) + (_E8764487659_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e154727154740_))) - (_E154728154778_ + _e8764287655_))) + (_E8764387693_ (lambda () - (if (gx#stx-pair? _e154727154740_) - (let ((_e154730154748_ (gx#syntax-e _e154727154740_))) - (let ((_hd154731154751_ (##car _e154730154748_)) - (_tl154732154753_ (##cdr _e154730154748_))) - (if (gx#stx-pair? _tl154732154753_) - (let ((_e154733154756_ - (gx#syntax-e _tl154732154753_))) - (let ((_hd154734154759_ - (##car _e154733154756_)) - (_tl154735154761_ - (##cdr _e154733154756_))) - (let ((_id154764_ _hd154734154759_)) - (if (gx#stx-pair? _tl154735154761_) - (let ((_e154736154766_ - (gx#syntax-e _tl154735154761_))) - (let ((_hd154737154769_ - (##car _e154736154766_)) - (_tl154738154771_ - (##cdr _e154736154766_))) - (let ((_alias-id154774_ - _hd154737154769_)) - (if (gx#stx-null? - _tl154738154771_) + (if (gx#stx-pair? _e8764287655_) + (let ((_e8764587663_ (gx#syntax-e _e8764287655_))) + (let ((_hd8764687666_ (##car _e8764587663_)) + (_tl8764787668_ (##cdr _e8764587663_))) + (if (gx#stx-pair? _tl8764787668_) + (let ((_e8764887671_ + (gx#syntax-e _tl8764787668_))) + (let ((_hd8764987674_ (##car _e8764887671_)) + (_tl8765087676_ (##cdr _e8764887671_))) + (let ((_id87679_ _hd8764987674_)) + (if (gx#stx-pair? _tl8765087676_) + (let ((_e8765187681_ + (gx#syntax-e _tl8765087676_))) + (let ((_hd8765287684_ + (##car _e8765187681_)) + (_tl8765387686_ + (##cdr _e8765187681_))) + (let ((_alias-id87689_ + _hd8765287684_)) + (if (gx#stx-null? _tl8765387686_) (if (and (gx#identifier? - _id154764_) + _id87679_) (gx#identifier? - _alias-id154774_)) - (let ((_alias-id154776_ + _alias-id87689_)) + (let ((_alias-id87691_ (gx#core-quote-syntax__0 - _alias-id154774_))) + _alias-id87689_))) (gx#core-bind-alias!__0 - _id154764_ - _alias-id154776_) + _id87679_ + _alias-id87691_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-alias) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id154764_) - (cons _alias-id154776_ '()))))) - (_E154729154744_)) + _id87679_) + (cons _alias-id87691_ '()))))) + (_E8764487659_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E154729154744_))))) - (_E154729154744_))))) - (_E154729154744_)))) - (_E154729154744_))))) - (_E154728154778_)))) + (_E8764487659_))))) + (_E8764487659_))))) + (_E8764487659_)))) + (_E8764487659_))))) + (_E8764387693_)))) (define gx#core-expand-lambda%__% - (lambda (_stx154669_ _wrap?154670_) - (let* ((_e154671154681_ _stx154669_) - (_E154673154685_ + (lambda (_stx87584_ _wrap?87585_) + (let* ((_e8758687596_ _stx87584_) + (_E8758887600_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e154671154681_))) - (_E154672154712_ + _e8758687596_))) + (_E8758787627_ (lambda () - (if (gx#stx-pair? _e154671154681_) - (let ((_e154674154689_ (gx#syntax-e _e154671154681_))) - (let ((_hd154675154692_ (##car _e154674154689_)) - (_tl154676154694_ (##cdr _e154674154689_))) - (if (gx#stx-pair? _tl154676154694_) - (let ((_e154677154697_ - (gx#syntax-e _tl154676154694_))) - (let ((_hd154678154700_ - (##car _e154677154697_)) - (_tl154679154702_ - (##cdr _e154677154697_))) - (let* ((_hd154705_ _hd154678154700_) - (_body154707_ _tl154679154702_)) - (if (gx#core-bind-values? _hd154705_) + (if (gx#stx-pair? _e8758687596_) + (let ((_e8758987604_ (gx#syntax-e _e8758687596_))) + (let ((_hd8759087607_ (##car _e8758987604_)) + (_tl8759187609_ (##cdr _e8758987604_))) + (if (gx#stx-pair? _tl8759187609_) + (let ((_e8759287612_ + (gx#syntax-e _tl8759187609_))) + (let ((_hd8759387615_ (##car _e8759287612_)) + (_tl8759487617_ (##cdr _e8759287612_))) + (let* ((_hd87620_ _hd8759387615_) + (_body87622_ _tl8759487617_)) + (if (gx#core-bind-values? _hd87620_) (call-with-parameters (lambda () - (gx#core-bind-values!__0 _hd154705_) - (let ((_body154710_ + (gx#core-bind-values!__0 _hd87620_) + (let ((_body87625_ (cons (gx#core-quote-bind-values - _hd154705_) + _hd87620_) (cons (gx#core-expand-local-block - _stx154669_ - _body154707_) + _stx87584_ + _body87622_) '())))) - (if _wrap?154670_ + (if _wrap?87585_ (gx#core-quote-syntax__1 (gx#core-cons '%#lambda - _body154710_) - (gx#stx-source _stx154669_)) - _body154710_))) + _body87625_) + (gx#stx-source _stx87584_)) + _body87625_))) gx#current-expander-context - (let ((__obj160302 + (let ((__obj88649 (##structure gx#local-context::t '#f @@ -1147,120 +1105,116 @@ '#f '#f))) (gx#local-context:::init! - __obj160302) - __obj160302)) - (_E154673154685_))))) - (_E154673154685_)))) - (_E154673154685_))))) - (_E154672154712_)))) + __obj88649) + __obj88649)) + (_E8758887600_))))) + (_E8758887600_)))) + (_E8758887600_))))) + (_E8758787627_)))) (define gx#core-expand-lambda%__0 - (lambda (_stx154719_) - (let ((_wrap?154721_ '#t)) - (gx#core-expand-lambda%__% _stx154719_ _wrap?154721_)))) + (lambda (_stx87634_) + (let ((_wrap?87636_ '#t)) + (gx#core-expand-lambda%__% _stx87634_ _wrap?87636_)))) (define gx#core-expand-lambda% - (lambda _g160312_ - (let ((_g160311_ (##length _g160312_))) - (cond ((##fx= _g160311_ 1) - (apply (lambda (_stx154719_) - (gx#core-expand-lambda%__0 _stx154719_)) - _g160312_)) - ((##fx= _g160311_ 2) - (apply (lambda (_stx154723_ _wrap?154724_) - (gx#core-expand-lambda%__% - _stx154723_ - _wrap?154724_)) - _g160312_)) + (lambda _g88659_ + (let ((_g88658_ (##length _g88659_))) + (cond ((##fx= _g88658_ 1) + (apply (lambda (_stx87634_) + (gx#core-expand-lambda%__0 _stx87634_)) + _g88659_)) + ((##fx= _g88658_ 2) + (apply (lambda (_stx87638_ _wrap?87639_) + (gx#core-expand-lambda%__% _stx87638_ _wrap?87639_)) + _g88659_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-lambda% - _g160312_)))))) + _g88659_)))))) (define gx#core-expand-case-lambda% - (lambda (_stx154633_) - (let* ((_e154634154641_ _stx154633_) - (_E154636154645_ + (lambda (_stx87548_) + (let* ((_e8754987556_ _stx87548_) + (_E8755187560_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e154634154641_))) - (_E154635154664_ + _e8754987556_))) + (_E8755087579_ (lambda () - (if (gx#stx-pair? _e154634154641_) - (let ((_e154637154649_ (gx#syntax-e _e154634154641_))) - (let ((_hd154638154652_ (##car _e154637154649_)) - (_tl154639154654_ (##cdr _e154637154649_))) - (let ((_clauses154657_ _tl154639154654_)) - (if (gx#stx-list? _clauses154657_) + (if (gx#stx-pair? _e8754987556_) + (let ((_e8755287564_ (gx#syntax-e _e8754987556_))) + (let ((_hd8755387567_ (##car _e8755287564_)) + (_tl8755487569_ (##cdr _e8755287564_))) + (let ((_clauses87572_ _tl8755487569_)) + (if (gx#stx-list? _clauses87572_) (gx#core-quote-syntax__1 (gx#core-cons '%#case-lambda (gx#stx-map1 - (lambda (_clause154659_) + (lambda (_clause87574_) (gx#core-expand-lambda%__% (gx#stx-wrap-source (cons '%#case-lambda-clause - _clause154659_) - (let ((_$e154661_ - (gx#stx-source _clause154659_))) - (if _$e154661_ - _$e154661_ - (gx#stx-source _stx154633_)))) + _clause87574_) + (let ((_$e87576_ + (gx#stx-source _clause87574_))) + (if _$e87576_ + _$e87576_ + (gx#stx-source _stx87548_)))) '#f)) - _clauses154657_)) - (gx#stx-source _stx154633_)) - (_E154636154645_))))) - (_E154636154645_))))) - (_E154635154664_)))) + _clauses87572_)) + (gx#stx-source _stx87548_)) + (_E8755187560_))))) + (_E8755187560_))))) + (_E8755087579_)))) (define gx#core-expand-let-values% - (lambda (_stx154587_) - (let* ((_e154588154598_ _stx154587_) - (_E154590154602_ + (lambda (_stx87502_) + (let* ((_e8750387513_ _stx87502_) + (_E8750587517_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e154588154598_))) - (_E154589154629_ + _e8750387513_))) + (_E8750487544_ (lambda () - (if (gx#stx-pair? _e154588154598_) - (let ((_e154591154606_ (gx#syntax-e _e154588154598_))) - (let ((_hd154592154609_ (##car _e154591154606_)) - (_tl154593154611_ (##cdr _e154591154606_))) - (if (gx#stx-pair? _tl154593154611_) - (let ((_e154594154614_ - (gx#syntax-e _tl154593154611_))) - (let ((_hd154595154617_ - (##car _e154594154614_)) - (_tl154596154619_ - (##cdr _e154594154614_))) - (let* ((_hd154622_ _hd154595154617_) - (_body154624_ _tl154596154619_)) - (if (gx#core-expand-let-bind? _hd154622_) - (let ((_expressions154626_ + (if (gx#stx-pair? _e8750387513_) + (let ((_e8750687521_ (gx#syntax-e _e8750387513_))) + (let ((_hd8750787524_ (##car _e8750687521_)) + (_tl8750887526_ (##cdr _e8750687521_))) + (if (gx#stx-pair? _tl8750887526_) + (let ((_e8750987529_ + (gx#syntax-e _tl8750887526_))) + (let ((_hd8751087532_ (##car _e8750987529_)) + (_tl8751187534_ (##cdr _e8750987529_))) + (let* ((_hd87537_ _hd8751087532_) + (_body87539_ _tl8751187534_)) + (if (gx#core-expand-let-bind? _hd87537_) + (let ((_expressions87541_ (gx#stx-map1 gx#core-expand-let-bind-expression - _hd154622_))) + _hd87537_))) (call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _hd154622_) + _hd87537_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#let-values) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _hd154622_ - _expressions154626_) + _hd87537_ + _expressions87541_) (cons (gx#core-expand-local-block ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _stx154587_ - _body154624_) + _stx87502_ + _body87539_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _stx154587_))) + (gx#stx-source _stx87502_))) gx#current-expander-context - (let ((__obj160303 + (let ((__obj88650 (##structure gx#local-context::t '#f @@ -1269,58 +1223,56 @@ '#f '#f))) (gx#local-context:::init! - __obj160303) - __obj160303))) - (_E154590154602_))))) - (_E154590154602_)))) - (_E154590154602_))))) - (_E154589154629_)))) + __obj88650) + __obj88650))) + (_E8750587517_))))) + (_E8750587517_)))) + (_E8750587517_))))) + (_E8750487544_)))) (define gx#core-expand-letrec-values%__% - (lambda (_stx154532_ _form154533_) - (let* ((_e154534154544_ _stx154532_) - (_E154536154548_ + (lambda (_stx87447_ _form87448_) + (let* ((_e8744987459_ _stx87447_) + (_E8745187463_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e154534154544_))) - (_E154535154573_ + _e8744987459_))) + (_E8745087488_ (lambda () - (if (gx#stx-pair? _e154534154544_) - (let ((_e154537154552_ (gx#syntax-e _e154534154544_))) - (let ((_hd154538154555_ (##car _e154537154552_)) - (_tl154539154557_ (##cdr _e154537154552_))) - (if (gx#stx-pair? _tl154539154557_) - (let ((_e154540154560_ - (gx#syntax-e _tl154539154557_))) - (let ((_hd154541154563_ - (##car _e154540154560_)) - (_tl154542154565_ - (##cdr _e154540154560_))) - (let* ((_hd154568_ _hd154541154563_) - (_body154570_ _tl154542154565_)) - (if (gx#core-expand-let-bind? _hd154568_) + (if (gx#stx-pair? _e8744987459_) + (let ((_e8745287467_ (gx#syntax-e _e8744987459_))) + (let ((_hd8745387470_ (##car _e8745287467_)) + (_tl8745487472_ (##cdr _e8745287467_))) + (if (gx#stx-pair? _tl8745487472_) + (let ((_e8745587475_ + (gx#syntax-e _tl8745487472_))) + (let ((_hd8745687478_ (##car _e8745587475_)) + (_tl8745787480_ (##cdr _e8745587475_))) + (let* ((_hd87483_ _hd8745687478_) + (_body87485_ _tl8745787480_)) + (if (gx#core-expand-let-bind? _hd87483_) (call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _hd154568_) + _hd87483_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 - _form154533_) + _form87448_) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _hd154568_ + _hd87483_ (gx#stx-map1 gx#core-expand-let-bind-expression - _hd154568_)) + _hd87483_)) (cons (gx#core-expand-local-block - _stx154532_ - _body154570_) + _stx87447_ + _body87485_) '()))) - (gx#stx-source _stx154532_))) + (gx#stx-source _stx87447_))) gx#current-expander-context - (let ((__obj160304 + (let ((__obj88651 (##structure gx#local-context::t '#f @@ -1329,208 +1281,197 @@ '#f '#f))) (gx#local-context:::init! - __obj160304) - __obj160304)) - (_E154536154548_))))) - (_E154536154548_)))) - (_E154536154548_))))) - (_E154535154573_)))) + __obj88651) + __obj88651)) + (_E8745187463_))))) + (_E8745187463_)))) + (_E8745187463_))))) + (_E8745087488_)))) (define gx#core-expand-letrec-values%__0 - (lambda (_stx154580_) - (let ((_form154582_ '%#letrec-values)) - (gx#core-expand-letrec-values%__% _stx154580_ _form154582_)))) + (lambda (_stx87495_) + (let ((_form87497_ '%#letrec-values)) + (gx#core-expand-letrec-values%__% _stx87495_ _form87497_)))) (define gx#core-expand-letrec-values% - (lambda _g160314_ - (let ((_g160313_ (##length _g160314_))) - (cond ((##fx= _g160313_ 1) - (apply (lambda (_stx154580_) - (gx#core-expand-letrec-values%__0 _stx154580_)) - _g160314_)) - ((##fx= _g160313_ 2) - (apply (lambda (_stx154584_ _form154585_) + (lambda _g88661_ + (let ((_g88660_ (##length _g88661_))) + (cond ((##fx= _g88660_ 1) + (apply (lambda (_stx87495_) + (gx#core-expand-letrec-values%__0 _stx87495_)) + _g88661_)) + ((##fx= _g88660_ 2) + (apply (lambda (_stx87499_ _form87500_) (gx#core-expand-letrec-values%__% - _stx154584_ - _form154585_)) - _g160314_)) + _stx87499_ + _form87500_)) + _g88661_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-letrec-values% - _g160314_)))))) + _g88661_)))))) (define gx#core-expand-letrec*-values% - (lambda (_stx154529_) - (gx#core-expand-letrec-values%__% _stx154529_ '%#letrec*-values))) + (lambda (_stx87444_) + (gx#core-expand-letrec-values%__% _stx87444_ '%#letrec*-values))) (define gx#core-expand-let-bind? - (lambda (_stx154486_) - (if (gx#stx-list? _stx154486_) + (lambda (_stx87401_) + (if (gx#stx-list? _stx87401_) (gx#stx-andmap - (lambda (_bind154488_) - (let* ((_e154489154499_ _bind154488_) - (_E154491154503_ (lambda () '#f)) - (_E154490154525_ + (lambda (_bind87403_) + (let* ((_e8740487414_ _bind87403_) + (_E8740687418_ (lambda () '#f)) + (_E8740587440_ (lambda () - (if (gx#stx-pair? _e154489154499_) - (let ((_e154492154507_ - (gx#syntax-e _e154489154499_))) - (let ((_hd154493154510_ (##car _e154492154507_)) - (_tl154494154512_ - (##cdr _e154492154507_))) - (let ((_hd154515_ _hd154493154510_)) - (if (gx#stx-pair? _tl154494154512_) - (let ((_e154495154517_ - (gx#syntax-e _tl154494154512_))) - (let ((_hd154496154520_ - (##car _e154495154517_)) - (_tl154497154522_ - (##cdr _e154495154517_))) - (if (gx#stx-null? _tl154497154522_) + (if (gx#stx-pair? _e8740487414_) + (let ((_e8740787422_ (gx#syntax-e _e8740487414_))) + (let ((_hd8740887425_ (##car _e8740787422_)) + (_tl8740987427_ (##cdr _e8740787422_))) + (let ((_hd87430_ _hd8740887425_)) + (if (gx#stx-pair? _tl8740987427_) + (let ((_e8741087432_ + (gx#syntax-e _tl8740987427_))) + (let ((_hd8741187435_ + (##car _e8741087432_)) + (_tl8741287437_ + (##cdr _e8741087432_))) + (if (gx#stx-null? _tl8741287437_) (if '#t (gx#core-bind-values? - _hd154515_) - (_E154491154503_)) - (_E154491154503_)))) - (_E154491154503_))))) - (_E154491154503_))))) - (_E154490154525_))) - _stx154486_) + _hd87430_) + (_E8740687418_)) + (_E8740687418_)))) + (_E8740687418_))))) + (_E8740687418_))))) + (_E8740587440_))) + _stx87401_) '#f))) (define gx#core-expand-let-bind-expression - (lambda (_bind154445_) - (let* ((_e154446154456_ _bind154445_) - (_E154448154460_ + (lambda (_bind87360_) + (let* ((_e8736187371_ _bind87360_) + (_E8736387375_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e154446154456_))) - (_E154447154482_ + _e8736187371_))) + (_E8736287397_ (lambda () - (if (gx#stx-pair? _e154446154456_) - (let ((_e154449154464_ (gx#syntax-e _e154446154456_))) - (let ((_hd154450154467_ (##car _e154449154464_)) - (_tl154451154469_ (##cdr _e154449154464_))) - (if (gx#stx-pair? _tl154451154469_) - (let ((_e154452154472_ - (gx#syntax-e _tl154451154469_))) - (let ((_hd154453154475_ - (##car _e154452154472_)) - (_tl154454154477_ - (##cdr _e154452154472_))) - (let ((_expr154480_ _hd154453154475_)) - (if (gx#stx-null? _tl154454154477_) + (if (gx#stx-pair? _e8736187371_) + (let ((_e8736487379_ (gx#syntax-e _e8736187371_))) + (let ((_hd8736587382_ (##car _e8736487379_)) + (_tl8736687384_ (##cdr _e8736487379_))) + (if (gx#stx-pair? _tl8736687384_) + (let ((_e8736787387_ + (gx#syntax-e _tl8736687384_))) + (let ((_hd8736887390_ (##car _e8736787387_)) + (_tl8736987392_ (##cdr _e8736787387_))) + (let ((_expr87395_ _hd8736887390_)) + (if (gx#stx-null? _tl8736987392_) (if '#t (gx#core-expand-expression - _expr154480_) - (_E154448154460_)) - (_E154448154460_))))) - (_E154448154460_)))) - (_E154448154460_))))) - (_E154447154482_)))) + _expr87395_) + (_E8736387375_)) + (_E8736387375_))))) + (_E8736387375_)))) + (_E8736387375_))))) + (_E8736287397_)))) (define gx#core-expand-let-bind-values! - (lambda (_bind154404_) - (let* ((_e154405154415_ _bind154404_) - (_E154407154419_ + (lambda (_bind87319_) + (let* ((_e8732087330_ _bind87319_) + (_E8732287334_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e154405154415_))) - (_E154406154441_ + _e8732087330_))) + (_E8732187356_ (lambda () - (if (gx#stx-pair? _e154405154415_) - (let ((_e154408154423_ (gx#syntax-e _e154405154415_))) - (let ((_hd154409154426_ (##car _e154408154423_)) - (_tl154410154428_ (##cdr _e154408154423_))) - (let ((_hd154431_ _hd154409154426_)) - (if (gx#stx-pair? _tl154410154428_) - (let ((_e154411154433_ - (gx#syntax-e _tl154410154428_))) - (let ((_hd154412154436_ - (##car _e154411154433_)) - (_tl154413154438_ - (##cdr _e154411154433_))) - (if (gx#stx-null? _tl154413154438_) + (if (gx#stx-pair? _e8732087330_) + (let ((_e8732387338_ (gx#syntax-e _e8732087330_))) + (let ((_hd8732487341_ (##car _e8732387338_)) + (_tl8732587343_ (##cdr _e8732387338_))) + (let ((_hd87346_ _hd8732487341_)) + (if (gx#stx-pair? _tl8732587343_) + (let ((_e8732687348_ + (gx#syntax-e _tl8732587343_))) + (let ((_hd8732787351_ (##car _e8732687348_)) + (_tl8732887353_ (##cdr _e8732687348_))) + (if (gx#stx-null? _tl8732887353_) (if '#t - (gx#core-bind-values!__0 - _hd154431_) - (_E154407154419_)) - (_E154407154419_)))) - (_E154407154419_))))) - (_E154407154419_))))) - (_E154406154441_)))) + (gx#core-bind-values!__0 _hd87346_) + (_E8732287334_)) + (_E8732287334_)))) + (_E8732287334_))))) + (_E8732287334_))))) + (_E8732187356_)))) (define gx#core-expand-let-bind-quote - (lambda (_bind154362_ _expr154363_) - (let* ((_e154364154374_ _bind154362_) - (_E154366154378_ + (lambda (_bind87277_ _expr87278_) + (let* ((_e8727987289_ _bind87277_) + (_E8728187293_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e154364154374_))) - (_E154365154400_ + _e8727987289_))) + (_E8728087315_ (lambda () - (if (gx#stx-pair? _e154364154374_) - (let ((_e154367154382_ (gx#syntax-e _e154364154374_))) - (let ((_hd154368154385_ (##car _e154367154382_)) - (_tl154369154387_ (##cdr _e154367154382_))) - (let ((_hd154390_ _hd154368154385_)) - (if (gx#stx-pair? _tl154369154387_) - (let ((_e154370154392_ - (gx#syntax-e _tl154369154387_))) - (let ((_hd154371154395_ - (##car _e154370154392_)) - (_tl154372154397_ - (##cdr _e154370154392_))) - (if (gx#stx-null? _tl154372154397_) + (if (gx#stx-pair? _e8727987289_) + (let ((_e8728287297_ (gx#syntax-e _e8727987289_))) + (let ((_hd8728387300_ (##car _e8728287297_)) + (_tl8728487302_ (##cdr _e8728287297_))) + (let ((_hd87305_ _hd8728387300_)) + (if (gx#stx-pair? _tl8728487302_) + (let ((_e8728587307_ + (gx#syntax-e _tl8728487302_))) + (let ((_hd8728687310_ (##car _e8728587307_)) + (_tl8728787312_ (##cdr _e8728587307_))) + (if (gx#stx-null? _tl8728787312_) (if '#t (cons (gx#core-quote-bind-values - _hd154390_) - (cons _expr154363_ '())) - (_E154366154378_)) - (_E154366154378_)))) - (_E154366154378_))))) - (_E154366154378_))))) - (_E154365154400_)))) + _hd87305_) + (cons _expr87278_ '())) + (_E8728187293_)) + (_E8728187293_)))) + (_E8728187293_))))) + (_E8728187293_))))) + (_E8728087315_)))) (define gx#core-expand-let-syntax% - (lambda (_stx154316_) - (let* ((_e154317154327_ _stx154316_) - (_E154319154331_ + (lambda (_stx87231_) + (let* ((_e8723287242_ _stx87231_) + (_E8723487246_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e154317154327_))) - (_E154318154358_ + _e8723287242_))) + (_E8723387273_ (lambda () - (if (gx#stx-pair? _e154317154327_) - (let ((_e154320154335_ (gx#syntax-e _e154317154327_))) - (let ((_hd154321154338_ (##car _e154320154335_)) - (_tl154322154340_ (##cdr _e154320154335_))) - (if (gx#stx-pair? _tl154322154340_) - (let ((_e154323154343_ - (gx#syntax-e _tl154322154340_))) - (let ((_hd154324154346_ - (##car _e154323154343_)) - (_tl154325154348_ - (##cdr _e154323154343_))) - (let* ((_hd154351_ _hd154324154346_) - (_body154353_ _tl154325154348_)) + (if (gx#stx-pair? _e8723287242_) + (let ((_e8723587250_ (gx#syntax-e _e8723287242_))) + (let ((_hd8723687253_ (##car _e8723587250_)) + (_tl8723787255_ (##cdr _e8723587250_))) + (if (gx#stx-pair? _tl8723787255_) + (let ((_e8723887258_ + (gx#syntax-e _tl8723787255_))) + (let ((_hd8723987261_ (##car _e8723887258_)) + (_tl8724087263_ (##cdr _e8723887258_))) + (let* ((_hd87266_ _hd8723987261_) + (_body87268_ _tl8724087263_)) (if (gx#core-expand-let-bind-syntax? - _hd154351_) - (let ((_expanders154355_ + _hd87266_) + (let ((_expanders87270_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _hd154351_))) + _hd87266_))) (call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _hd154351_ - _expanders154355_) + _hd87266_ + _expanders87270_) (gx#core-expand-local-block - _stx154316_ - _body154353_)) + _stx87231_ + _body87268_)) gx#current-expander-context - (let ((__obj160305 + (let ((__obj88652 (##structure gx#local-context::t '#f @@ -1539,62 +1480,60 @@ '#f '#f))) (gx#local-context:::init! - __obj160305) - __obj160305))) - (_E154319154331_))))) - (_E154319154331_)))) - (_E154319154331_))))) - (_E154318154358_)))) + __obj88652) + __obj88652))) + (_E8723487246_))))) + (_E8723487246_)))) + (_E8723487246_))))) + (_E8723387273_)))) (define gx#core-expand-letrec-syntax% - (lambda (_stx154265_) - (let* ((_e154266154276_ _stx154265_) - (_E154268154280_ + (lambda (_stx87180_) + (let* ((_e8718187191_ _stx87180_) + (_E8718387195_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e154266154276_))) - (_E154267154312_ + _e8718187191_))) + (_E8718287227_ (lambda () - (if (gx#stx-pair? _e154266154276_) - (let ((_e154269154284_ (gx#syntax-e _e154266154276_))) - (let ((_hd154270154287_ (##car _e154269154284_)) - (_tl154271154289_ (##cdr _e154269154284_))) - (if (gx#stx-pair? _tl154271154289_) - (let ((_e154272154292_ - (gx#syntax-e _tl154271154289_))) - (let ((_hd154273154295_ - (##car _e154272154292_)) - (_tl154274154297_ - (##cdr _e154272154292_))) - (let* ((_hd154300_ _hd154273154295_) - (_body154302_ _tl154274154297_)) + (if (gx#stx-pair? _e8718187191_) + (let ((_e8718487199_ (gx#syntax-e _e8718187191_))) + (let ((_hd8718587202_ (##car _e8718487199_)) + (_tl8718687204_ (##cdr _e8718487199_))) + (if (gx#stx-pair? _tl8718687204_) + (let ((_e8718787207_ + (gx#syntax-e _tl8718687204_))) + (let ((_hd8718887210_ (##car _e8718787207_)) + (_tl8718987212_ (##cdr _e8718787207_))) + (let* ((_hd87215_ _hd8718887210_) + (_body87217_ _tl8718987212_)) (if (gx#core-expand-let-bind-syntax? - _hd154300_) + _hd87215_) (call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _hd154300_ - (make-list - (gx#stx-length _hd154300_) + _hd87215_ + (make-list__% + (gx#stx-length _hd87215_) '#!void)) (gx#stx-for-each2 - (lambda (_g154304154307_ - _g154305154309_) + (lambda (_g8721987222_ + _g8722087224_) (gx#core-expand-let-bind-syntax!__% - _g154304154307_ - _g154305154309_ + _g8721987222_ + _g8722087224_ '#t)) - _hd154300_ + _hd87215_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _hd154300_)) + _hd87215_)) (gx#core-expand-local-block - _stx154265_ - _body154302_)) + _stx87180_ + _body87217_)) gx#current-expander-context - (let ((__obj160306 + (let ((__obj88653 (##structure gx#local-context::t '#f @@ -1603,1928 +1542,1851 @@ '#f '#f))) (gx#local-context:::init! - __obj160306) - __obj160306)) - (_E154268154280_))))) - (_E154268154280_)))) - (_E154268154280_))))) - (_E154267154312_)))) + __obj88653) + __obj88653)) + (_E8718387195_))))) + (_E8718387195_)))) + (_E8718387195_))))) + (_E8718287227_)))) (define gx#core-expand-let-bind-syntax? - (lambda (_stx154222_) - (if (gx#stx-list? _stx154222_) + (lambda (_stx87137_) + (if (gx#stx-list? _stx87137_) (gx#stx-andmap - (lambda (_bind154224_) - (let* ((_e154225154235_ _bind154224_) - (_E154227154239_ (lambda () '#f)) - (_E154226154261_ + (lambda (_bind87139_) + (let* ((_e8714087150_ _bind87139_) + (_E8714287154_ (lambda () '#f)) + (_E8714187176_ (lambda () - (if (gx#stx-pair? _e154225154235_) - (let ((_e154228154243_ - (gx#syntax-e _e154225154235_))) - (let ((_hd154229154246_ (##car _e154228154243_)) - (_tl154230154248_ - (##cdr _e154228154243_))) - (let ((_hd154251_ _hd154229154246_)) - (if (gx#stx-pair? _tl154230154248_) - (let ((_e154231154253_ - (gx#syntax-e _tl154230154248_))) - (let ((_hd154232154256_ - (##car _e154231154253_)) - (_tl154233154258_ - (##cdr _e154231154253_))) - (if (gx#stx-null? _tl154233154258_) + (if (gx#stx-pair? _e8714087150_) + (let ((_e8714387158_ (gx#syntax-e _e8714087150_))) + (let ((_hd8714487161_ (##car _e8714387158_)) + (_tl8714587163_ (##cdr _e8714387158_))) + (let ((_hd87166_ _hd8714487161_)) + (if (gx#stx-pair? _tl8714587163_) + (let ((_e8714687168_ + (gx#syntax-e _tl8714587163_))) + (let ((_hd8714787171_ + (##car _e8714687168_)) + (_tl8714887173_ + (##cdr _e8714687168_))) + (if (gx#stx-null? _tl8714887173_) (if '#t - (gx#identifier? _hd154251_) - (_E154227154239_)) - (_E154227154239_)))) - (_E154227154239_))))) - (_E154227154239_))))) - (_E154226154261_))) - _stx154222_) + (gx#identifier? _hd87166_) + (_E8714287154_)) + (_E8714287154_)))) + (_E8714287154_))))) + (_E8714287154_))))) + (_E8714187176_))) + _stx87137_) '#f))) (define gx#core-expand-let-bind-syntax-expression - (lambda (_bind154179_) - (let* ((_e154180154190_ _bind154179_) - (_E154182154194_ + (lambda (_bind87094_) + (let* ((_e8709587105_ _bind87094_) + (_E8709787109_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e154180154190_))) - (_E154181154218_ + _e8709587105_))) + (_E8709687133_ (lambda () - (if (gx#stx-pair? _e154180154190_) - (let ((_e154183154198_ (gx#syntax-e _e154180154190_))) - (let ((_hd154184154201_ (##car _e154183154198_)) - (_tl154185154203_ (##cdr _e154183154198_))) - (if (gx#stx-pair? _tl154185154203_) - (let ((_e154186154206_ - (gx#syntax-e _tl154185154203_))) - (let ((_hd154187154209_ - (##car _e154186154206_)) - (_tl154188154211_ - (##cdr _e154186154206_))) - (let ((_expr154214_ _hd154187154209_)) - (if (gx#stx-null? _tl154188154211_) + (if (gx#stx-pair? _e8709587105_) + (let ((_e8709887113_ (gx#syntax-e _e8709587105_))) + (let ((_hd8709987116_ (##car _e8709887113_)) + (_tl8710087118_ (##cdr _e8709887113_))) + (if (gx#stx-pair? _tl8710087118_) + (let ((_e8710187121_ + (gx#syntax-e _tl8710087118_))) + (let ((_hd8710287124_ (##car _e8710187121_)) + (_tl8710387126_ (##cdr _e8710187121_))) + (let ((_expr87129_ _hd8710287124_)) + (if (gx#stx-null? _tl8710387126_) (if '#t - (let ((_g160315_ + (let ((_g88662_ (gx#core-expand-expression+1 - _expr154214_))) + _expr87129_))) (begin - (let ((_g160316_ - (if (##values? - _g160315_) + (let ((_g88663_ + (if (##values? _g88662_) (##vector-length - _g160315_) + _g88662_) 1))) - (if (not (##fx= _g160316_ 2)) + (if (not (##fx= _g88663_ 2)) (error "Context expects 2 values" - _g160316_))) - (let ((_e154216_ + _g88663_))) + (let ((_e87131_ (##vector-ref - _g160315_ + _g88662_ 1))) - _e154216_))) - (_E154182154194_)) - (_E154182154194_))))) - (_E154182154194_)))) - (_E154182154194_))))) - (_E154181154218_)))) + _e87131_))) + (_E8709787109_)) + (_E8709787109_))))) + (_E8709787109_)))) + (_E8709787109_))))) + (_E8709687133_)))) (define gx#core-expand-let-bind-syntax!__% - (lambda (_bind154124_ _e154125_ _rebind?154126_) - (let* ((_e154127154137_ _bind154124_) - (_E154129154141_ + (lambda (_bind87039_ _e87040_ _rebind?87041_) + (let* ((_e8704287052_ _bind87039_) + (_E8704487056_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e154127154137_))) - (_E154128154163_ + _e8704287052_))) + (_E8704387078_ (lambda () - (if (gx#stx-pair? _e154127154137_) - (let ((_e154130154145_ (gx#syntax-e _e154127154137_))) - (let ((_hd154131154148_ (##car _e154130154145_)) - (_tl154132154150_ (##cdr _e154130154145_))) - (let ((_id154153_ _hd154131154148_)) - (if (gx#stx-pair? _tl154132154150_) - (let ((_e154133154155_ - (gx#syntax-e _tl154132154150_))) - (let ((_hd154134154158_ - (##car _e154133154155_)) - (_tl154135154160_ - (##cdr _e154133154155_))) - (if (gx#stx-null? _tl154135154160_) + (if (gx#stx-pair? _e8704287052_) + (let ((_e8704587060_ (gx#syntax-e _e8704287052_))) + (let ((_hd8704687063_ (##car _e8704587060_)) + (_tl8704787065_ (##cdr _e8704587060_))) + (let ((_id87068_ _hd8704687063_)) + (if (gx#stx-pair? _tl8704787065_) + (let ((_e8704887070_ + (gx#syntax-e _tl8704787065_))) + (let ((_hd8704987073_ (##car _e8704887070_)) + (_tl8705087075_ (##cdr _e8704887070_))) + (if (gx#stx-null? _tl8705087075_) (if '#t (gx#core-bind-syntax!__1 - _id154153_ - _e154125_ - _rebind?154126_) - (_E154129154141_)) - (_E154129154141_)))) - (_E154129154141_))))) - (_E154129154141_))))) - (_E154128154163_)))) + _id87068_ + _e87040_ + _rebind?87041_) + (_E8704487056_)) + (_E8704487056_)))) + (_E8704487056_))))) + (_E8704487056_))))) + (_E8704387078_)))) (define gx#core-expand-let-bind-syntax!__0 - (lambda (_bind154170_ _e154171_) - (let ((_rebind?154173_ '#f)) + (lambda (_bind87085_ _e87086_) + (let ((_rebind?87088_ '#f)) (gx#core-expand-let-bind-syntax!__% - _bind154170_ - _e154171_ - _rebind?154173_)))) + _bind87085_ + _e87086_ + _rebind?87088_)))) (define gx#core-expand-let-bind-syntax! - (lambda _g160318_ - (let ((_g160317_ (##length _g160318_))) - (cond ((##fx= _g160317_ 2) - (apply (lambda (_bind154170_ _e154171_) + (lambda _g88665_ + (let ((_g88664_ (##length _g88665_))) + (cond ((##fx= _g88664_ 2) + (apply (lambda (_bind87085_ _e87086_) (gx#core-expand-let-bind-syntax!__0 - _bind154170_ - _e154171_)) - _g160318_)) - ((##fx= _g160317_ 3) - (apply (lambda (_bind154175_ _e154176_ _rebind?154177_) + _bind87085_ + _e87086_)) + _g88665_)) + ((##fx= _g88664_ 3) + (apply (lambda (_bind87090_ _e87091_ _rebind?87092_) (gx#core-expand-let-bind-syntax!__% - _bind154175_ - _e154176_ - _rebind?154177_)) - _g160318_)) + _bind87090_ + _e87091_ + _rebind?87092_)) + _g88665_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-let-bind-syntax! - _g160318_)))))) + _g88665_)))))) (define gx#core-expand-expression% - (lambda (_stx154082_) - (let* ((_e154083154093_ _stx154082_) - (_E154085154097_ + (lambda (_stx86997_) + (let* ((_e8699887008_ _stx86997_) + (_E8700087012_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e154083154093_))) - (_E154084154119_ + _e8699887008_))) + (_E8699987034_ (lambda () - (if (gx#stx-pair? _e154083154093_) - (let ((_e154086154101_ (gx#syntax-e _e154083154093_))) - (let ((_hd154087154104_ (##car _e154086154101_)) - (_tl154088154106_ (##cdr _e154086154101_))) - (if (gx#stx-pair? _tl154088154106_) - (let ((_e154089154109_ - (gx#syntax-e _tl154088154106_))) - (let ((_hd154090154112_ - (##car _e154089154109_)) - (_tl154091154114_ - (##cdr _e154089154109_))) - (let ((_expr154117_ _hd154090154112_)) - (if (gx#stx-null? _tl154091154114_) + (if (gx#stx-pair? _e8699887008_) + (let ((_e8700187016_ (gx#syntax-e _e8699887008_))) + (let ((_hd8700287019_ (##car _e8700187016_)) + (_tl8700387021_ (##cdr _e8700187016_))) + (if (gx#stx-pair? _tl8700387021_) + (let ((_e8700487024_ + (gx#syntax-e _tl8700387021_))) + (let ((_hd8700587027_ (##car _e8700487024_)) + (_tl8700687029_ (##cdr _e8700487024_))) + (let ((_expr87032_ _hd8700587027_)) + (if (gx#stx-null? _tl8700687029_) (if '#t (gx#core-expand-expression - _expr154117_) - (_E154085154097_)) - (_E154085154097_))))) - (_E154085154097_)))) - (_E154085154097_))))) - (_E154084154119_)))) + _expr87032_) + (_E8700087012_)) + (_E8700087012_))))) + (_E8700087012_)))) + (_E8700087012_))))) + (_E8699987034_)))) (define gx#core-expand-quote% - (lambda (_stx154041_) - (let* ((_e154042154052_ _stx154041_) - (_E154044154056_ + (lambda (_stx86956_) + (let* ((_e8695786967_ _stx86956_) + (_E8695986971_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e154042154052_))) - (_E154043154078_ + _e8695786967_))) + (_E8695886993_ (lambda () - (if (gx#stx-pair? _e154042154052_) - (let ((_e154045154060_ (gx#syntax-e _e154042154052_))) - (let ((_hd154046154063_ (##car _e154045154060_)) - (_tl154047154065_ (##cdr _e154045154060_))) - (if (gx#stx-pair? _tl154047154065_) - (let ((_e154048154068_ - (gx#syntax-e _tl154047154065_))) - (let ((_hd154049154071_ - (##car _e154048154068_)) - (_tl154050154073_ - (##cdr _e154048154068_))) - (let ((_e154076_ _hd154049154071_)) - (if (gx#stx-null? _tl154050154073_) + (if (gx#stx-pair? _e8695786967_) + (let ((_e8696086975_ (gx#syntax-e _e8695786967_))) + (let ((_hd8696186978_ (##car _e8696086975_)) + (_tl8696286980_ (##cdr _e8696086975_))) + (if (gx#stx-pair? _tl8696286980_) + (let ((_e8696386983_ + (gx#syntax-e _tl8696286980_))) + (let ((_hd8696486986_ (##car _e8696386983_)) + (_tl8696586988_ (##cdr _e8696386983_))) + (let ((_e86991_ _hd8696486986_)) + (if (gx#stx-null? _tl8696586988_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote) (cons (gx#syntax->datum - _e154076_) + _e86991_) '())) - (gx#stx-source _stx154041_)) - (_E154044154056_)) - (_E154044154056_))))) - (_E154044154056_)))) - (_E154044154056_))))) - (_E154043154078_)))) + (gx#stx-source _stx86956_)) + (_E8695986971_)) + (_E8695986971_))))) + (_E8695986971_)))) + (_E8695986971_))))) + (_E8695886993_)))) (define gx#core-expand-quote-syntax% - (lambda (_stx154000_) - (let* ((_e154001154011_ _stx154000_) - (_E154003154015_ + (lambda (_stx86915_) + (let* ((_e8691686926_ _stx86915_) + (_E8691886930_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e154001154011_))) - (_E154002154037_ + _e8691686926_))) + (_E8691786952_ (lambda () - (if (gx#stx-pair? _e154001154011_) - (let ((_e154004154019_ (gx#syntax-e _e154001154011_))) - (let ((_hd154005154022_ (##car _e154004154019_)) - (_tl154006154024_ (##cdr _e154004154019_))) - (if (gx#stx-pair? _tl154006154024_) - (let ((_e154007154027_ - (gx#syntax-e _tl154006154024_))) - (let ((_hd154008154030_ - (##car _e154007154027_)) - (_tl154009154032_ - (##cdr _e154007154027_))) - (let ((_e154035_ _hd154008154030_)) - (if (gx#stx-null? _tl154009154032_) + (if (gx#stx-pair? _e8691686926_) + (let ((_e8691986934_ (gx#syntax-e _e8691686926_))) + (let ((_hd8692086937_ (##car _e8691986934_)) + (_tl8692186939_ (##cdr _e8691986934_))) + (if (gx#stx-pair? _tl8692186939_) + (let ((_e8692286942_ + (gx#syntax-e _tl8692186939_))) + (let ((_hd8692386945_ (##car _e8692286942_)) + (_tl8692486947_ (##cdr _e8692286942_))) + (let ((_e86950_ _hd8692386945_)) + (if (gx#stx-null? _tl8692486947_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote-syntax) (cons (gx#core-quote-syntax__0 - _e154035_) + _e86950_) '())) - (gx#stx-source _stx154000_)) - (_E154003154015_)) - (_E154003154015_))))) - (_E154003154015_)))) - (_E154003154015_))))) - (_E154002154037_)))) + (gx#stx-source _stx86915_)) + (_E8691886930_)) + (_E8691886930_))))) + (_E8691886930_)))) + (_E8691886930_))))) + (_E8691786952_)))) (define gx#core-expand-call% - (lambda (_stx153957_) - (let* ((_e153958153968_ _stx153957_) - (_E153960153972_ + (lambda (_stx86872_) + (let* ((_e8687386883_ _stx86872_) + (_E8687586887_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153958153968_))) - (_E153959153996_ + _e8687386883_))) + (_E8687486911_ (lambda () - (if (gx#stx-pair? _e153958153968_) - (let ((_e153961153976_ (gx#syntax-e _e153958153968_))) - (let ((_hd153962153979_ (##car _e153961153976_)) - (_tl153963153981_ (##cdr _e153961153976_))) - (if (gx#stx-pair? _tl153963153981_) - (let ((_e153964153984_ - (gx#syntax-e _tl153963153981_))) - (let ((_hd153965153987_ - (##car _e153964153984_)) - (_tl153966153989_ - (##cdr _e153964153984_))) - (let* ((_rator153992_ _hd153965153987_) - (_args153994_ _tl153966153989_)) - (if (gx#stx-list? _args153994_) + (if (gx#stx-pair? _e8687386883_) + (let ((_e8687686891_ (gx#syntax-e _e8687386883_))) + (let ((_hd8687786894_ (##car _e8687686891_)) + (_tl8687886896_ (##cdr _e8687686891_))) + (if (gx#stx-pair? _tl8687886896_) + (let ((_e8687986899_ + (gx#syntax-e _tl8687886896_))) + (let ((_hd8688086902_ (##car _e8687986899_)) + (_tl8688186904_ (##cdr _e8687986899_))) + (let* ((_rator86907_ _hd8688086902_) + (_args86909_ _tl8688186904_)) + (if (gx#stx-list? _args86909_) (gx#core-quote-syntax__1 (gx#core-cons* '%#call (gx#core-expand-expression - _rator153992_) + _rator86907_) (gx#stx-map1 gx#core-expand-expression - _args153994_)) - (gx#stx-source _stx153957_)) - (_E153960153972_))))) - (_E153960153972_)))) - (_E153960153972_))))) - (_E153959153996_)))) + _args86909_)) + (gx#stx-source _stx86872_)) + (_E8687586887_))))) + (_E8687586887_)))) + (_E8687586887_))))) + (_E8687486911_)))) (define gx#core-expand-if% - (lambda (_stx153890_) - (let* ((_e153891153907_ _stx153890_) - (_E153893153911_ + (lambda (_stx86805_) + (let* ((_e8680686822_ _stx86805_) + (_E8680886826_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153891153907_))) - (_E153892153953_ + _e8680686822_))) + (_E8680786868_ (lambda () - (if (gx#stx-pair? _e153891153907_) - (let ((_e153894153915_ (gx#syntax-e _e153891153907_))) - (let ((_hd153895153918_ (##car _e153894153915_)) - (_tl153896153920_ (##cdr _e153894153915_))) - (if (gx#stx-pair? _tl153896153920_) - (let ((_e153897153923_ - (gx#syntax-e _tl153896153920_))) - (let ((_hd153898153926_ - (##car _e153897153923_)) - (_tl153899153928_ - (##cdr _e153897153923_))) - (let ((_test153931_ _hd153898153926_)) - (if (gx#stx-pair? _tl153899153928_) - (let ((_e153900153933_ - (gx#syntax-e _tl153899153928_))) - (let ((_hd153901153936_ - (##car _e153900153933_)) - (_tl153902153938_ - (##cdr _e153900153933_))) - (let ((_K153941_ _hd153901153936_)) - (if (gx#stx-pair? - _tl153902153938_) - (let ((_e153903153943_ + (if (gx#stx-pair? _e8680686822_) + (let ((_e8680986830_ (gx#syntax-e _e8680686822_))) + (let ((_hd8681086833_ (##car _e8680986830_)) + (_tl8681186835_ (##cdr _e8680986830_))) + (if (gx#stx-pair? _tl8681186835_) + (let ((_e8681286838_ + (gx#syntax-e _tl8681186835_))) + (let ((_hd8681386841_ (##car _e8681286838_)) + (_tl8681486843_ (##cdr _e8681286838_))) + (let ((_test86846_ _hd8681386841_)) + (if (gx#stx-pair? _tl8681486843_) + (let ((_e8681586848_ + (gx#syntax-e _tl8681486843_))) + (let ((_hd8681686851_ + (##car _e8681586848_)) + (_tl8681786853_ + (##cdr _e8681586848_))) + (let ((_K86856_ _hd8681686851_)) + (if (gx#stx-pair? _tl8681786853_) + (let ((_e8681886858_ (gx#syntax-e - _tl153902153938_))) - (let ((_hd153904153946_ - (##car _e153903153943_)) - (_tl153905153948_ - (##cdr _e153903153943_))) - (let ((_E153951_ - _hd153904153946_)) + _tl8681786853_))) + (let ((_hd8681986861_ + (##car _e8681886858_)) + (_tl8682086863_ + (##cdr _e8681886858_))) + (let ((_E86866_ + _hd8681986861_)) (if (gx#stx-null? - _tl153905153948_) + _tl8682086863_) (if '#t (gx#core-quote-syntax__1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#core-quote-syntax__0 '%#if) - (cons (gx#core-expand-expression _test153931_) - (cons (gx#core-expand-expression - _K153941_) + (cons (gx#core-expand-expression _test86846_) + (cons (gx#core-expand-expression _K86856_) (cons (gx#core-expand-expression - _E153951_) + _E86866_) '())))) - (gx#stx-source _stx153890_)) - (_E153893153911_)) - (_E153893153911_))))) + (gx#stx-source _stx86805_)) + (_E8680886826_)) + (_E8680886826_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E153893153911_))))) - (_E153893153911_))))) - (_E153893153911_)))) - (_E153893153911_))))) - (_E153892153953_)))) + (_E8680886826_))))) + (_E8680886826_))))) + (_E8680886826_)))) + (_E8680886826_))))) + (_E8680786868_)))) (define gx#core-expand-ref% - (lambda (_stx153849_) - (let* ((_e153850153860_ _stx153849_) - (_E153852153864_ + (lambda (_stx86764_) + (let* ((_e8676586775_ _stx86764_) + (_E8676786779_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153850153860_))) - (_E153851153886_ + _e8676586775_))) + (_E8676686801_ (lambda () - (if (gx#stx-pair? _e153850153860_) - (let ((_e153853153868_ (gx#syntax-e _e153850153860_))) - (let ((_hd153854153871_ (##car _e153853153868_)) - (_tl153855153873_ (##cdr _e153853153868_))) - (if (gx#stx-pair? _tl153855153873_) - (let ((_e153856153876_ - (gx#syntax-e _tl153855153873_))) - (let ((_hd153857153879_ - (##car _e153856153876_)) - (_tl153858153881_ - (##cdr _e153856153876_))) - (let ((_id153884_ _hd153857153879_)) - (if (gx#stx-null? _tl153858153881_) - (if (gx#identifier? _id153884_) + (if (gx#stx-pair? _e8676586775_) + (let ((_e8676886783_ (gx#syntax-e _e8676586775_))) + (let ((_hd8676986786_ (##car _e8676886783_)) + (_tl8677086788_ (##cdr _e8676886783_))) + (if (gx#stx-pair? _tl8677086788_) + (let ((_e8677186791_ + (gx#syntax-e _tl8677086788_))) + (let ((_hd8677286794_ (##car _e8677186791_)) + (_tl8677386796_ (##cdr _e8677186791_))) + (let ((_id86799_ _hd8677286794_)) + (if (gx#stx-null? _tl8677386796_) + (if (gx#identifier? _id86799_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#ref) (cons (gx#core-quote-runtime-ref - _id153884_ - _stx153849_) + _id86799_ + _stx86764_) '())) - (gx#stx-source _stx153849_)) - (_E153852153864_)) - (_E153852153864_))))) - (_E153852153864_)))) - (_E153852153864_))))) - (_E153851153886_)))) + (gx#stx-source _stx86764_)) + (_E8676786779_)) + (_E8676786779_))))) + (_E8676786779_)))) + (_E8676786779_))))) + (_E8676686801_)))) (define gx#core-expand-setq% - (lambda (_stx153795_) - (let* ((_e153796153809_ _stx153795_) - (_E153798153813_ + (lambda (_stx86710_) + (let* ((_e8671186724_ _stx86710_) + (_E8671386728_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153796153809_))) - (_E153797153845_ + _e8671186724_))) + (_E8671286760_ (lambda () - (if (gx#stx-pair? _e153796153809_) - (let ((_e153799153817_ (gx#syntax-e _e153796153809_))) - (let ((_hd153800153820_ (##car _e153799153817_)) - (_tl153801153822_ (##cdr _e153799153817_))) - (if (gx#stx-pair? _tl153801153822_) - (let ((_e153802153825_ - (gx#syntax-e _tl153801153822_))) - (let ((_hd153803153828_ - (##car _e153802153825_)) - (_tl153804153830_ - (##cdr _e153802153825_))) - (let ((_id153833_ _hd153803153828_)) - (if (gx#stx-pair? _tl153804153830_) - (let ((_e153805153835_ - (gx#syntax-e _tl153804153830_))) - (let ((_hd153806153838_ - (##car _e153805153835_)) - (_tl153807153840_ - (##cdr _e153805153835_))) - (let ((_expr153843_ - _hd153806153838_)) - (if (gx#stx-null? - _tl153807153840_) + (if (gx#stx-pair? _e8671186724_) + (let ((_e8671486732_ (gx#syntax-e _e8671186724_))) + (let ((_hd8671586735_ (##car _e8671486732_)) + (_tl8671686737_ (##cdr _e8671486732_))) + (if (gx#stx-pair? _tl8671686737_) + (let ((_e8671786740_ + (gx#syntax-e _tl8671686737_))) + (let ((_hd8671886743_ (##car _e8671786740_)) + (_tl8671986745_ (##cdr _e8671786740_))) + (let ((_id86748_ _hd8671886743_)) + (if (gx#stx-pair? _tl8671986745_) + (let ((_e8672086750_ + (gx#syntax-e _tl8671986745_))) + (let ((_hd8672186753_ + (##car _e8672086750_)) + (_tl8672286755_ + (##cdr _e8672086750_))) + (let ((_expr86758_ _hd8672186753_)) + (if (gx#stx-null? _tl8672286755_) (if (gx#identifier? - _id153833_) + _id86748_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#set!) (cons (gx#core-quote-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id153833_ - _stx153795_) - (cons (gx#core-expand-expression _expr153843_) - '()))) - (gx#stx-source _stx153795_)) - (_E153798153813_)) + _id86748_ + _stx86710_) + (cons (gx#core-expand-expression _expr86758_) '()))) + (gx#stx-source _stx86710_)) + (_E8671386728_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E153798153813_))))) - (_E153798153813_))))) - (_E153798153813_)))) - (_E153798153813_))))) - (_E153797153845_)))) + (_E8671386728_))))) + (_E8671386728_))))) + (_E8671386728_)))) + (_E8671386728_))))) + (_E8671286760_)))) (define gx#macro-expand-extern - (lambda (_stx153643_) - (letrec ((_generate153645_ - (lambda (_body153675_) - (let _lp153677_ ((_rest153679_ _body153675_) - (_ns153680_ - (gx#core-context-namespace__0)) - (_r153681_ '())) - (let* ((_e153682153697_ _rest153679_) - (_E153695153701_ + (lambda (_stx86558_) + (letrec ((_generate86560_ + (lambda (_body86590_) + (let _lp86592_ ((_rest86594_ _body86590_) + (_ns86595_ (gx#core-context-namespace__0)) + (_r86596_ '())) + (let* ((_e8659786612_ _rest86594_) + (_E8661086616_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153682153697_))) - (_E153691153705_ + _e8659786612_))) + (_E8660686620_ (lambda () - (if (gx#stx-null? _e153682153697_) - (if '#t - (reverse _r153681_) - (_E153695153701_)) - (_E153695153701_)))) - (_E153684153762_ + (if (gx#stx-null? _e8659786612_) + (if '#t (reverse _r86596_) (_E8661086616_)) + (_E8661086616_)))) + (_E8659986677_ (lambda () - (if (gx#stx-pair? _e153682153697_) - (let ((_e153692153709_ - (gx#syntax-e _e153682153697_))) - (let ((_hd153693153712_ - (##car _e153692153709_)) - (_tl153694153714_ - (##cdr _e153692153709_))) - (let* ((_hd153717_ _hd153693153712_) - (_rest153719_ _tl153694153714_)) + (if (gx#stx-pair? _e8659786612_) + (let ((_e8660786624_ + (gx#syntax-e _e8659786612_))) + (let ((_hd8660886627_ + (##car _e8660786624_)) + (_tl8660986629_ + (##cdr _e8660786624_))) + (let* ((_hd86632_ _hd8660886627_) + (_rest86634_ _tl8660986629_)) (if '#t - (if (gx#identifier? _hd153717_) - (_lp153677_ - _rest153719_ - _ns153680_ - (cons (cons _hd153717_ - (cons (if _ns153680_ + (if (gx#identifier? _hd86632_) + (_lp86592_ + _rest86634_ + _ns86595_ + (cons (cons _hd86632_ + (cons (if _ns86595_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-identifier - _hd153717_ - _ns153680_ + _hd86632_ + _ns86595_ '"#" - _hd153717_) - _hd153717_) + _hd86632_) + _hd86632_) '())) - _r153681_)) + _r86596_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_e153720153730_ - _hd153717_) - (_E153722153734_ + (let* ((_e8663586645_ + _hd86632_) + (_E8663786649_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153720153730_))) - (_E153721153758_ + _e8663586645_))) + (_E8663686673_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e153720153730_) - (let ((_e153723153738_ (gx#syntax-e _e153720153730_))) - (let ((_hd153724153741_ (##car _e153723153738_)) - (_tl153725153743_ (##cdr _e153723153738_))) - (let ((_id153746_ _hd153724153741_)) - (if (gx#stx-pair? _tl153725153743_) - (let ((_e153726153748_ - (gx#syntax-e _tl153725153743_))) - (let ((_hd153727153751_ - (##car _e153726153748_)) - (_tl153728153753_ - (##cdr _e153726153748_))) - (let ((_eid153756_ _hd153727153751_)) - (if (gx#stx-null? _tl153728153753_) - (if (and (gx#identifier? - _id153746_) + _e8663586645_) + (let ((_e8663886653_ (gx#syntax-e _e8663586645_))) + (let ((_hd8663986656_ (##car _e8663886653_)) + (_tl8664086658_ (##cdr _e8663886653_))) + (let ((_id86661_ _hd8663986656_)) + (if (gx#stx-pair? _tl8664086658_) + (let ((_e8664186663_ + (gx#syntax-e _tl8664086658_))) + (let ((_hd8664286666_ + (##car _e8664186663_)) + (_tl8664386668_ + (##cdr _e8664186663_))) + (let ((_eid86671_ _hd8664286666_)) + (if (gx#stx-null? _tl8664386668_) + (if (and (gx#identifier? _id86661_) (gx#identifier? - _eid153756_)) - (_lp153677_ - _rest153719_ - _ns153680_ - (cons (cons _id153746_ - (cons _eid153756_ + _eid86671_)) + (_lp86592_ + _rest86634_ + _ns86595_ + (cons (cons _id86661_ + (cons _eid86671_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _r153681_)) + _r86596_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E153722153734_)) - (_E153722153734_))))) - (_E153722153734_))))) - (_E153722153734_))))) + (_E8663786649_)) + (_E8663786649_))))) + (_E8663786649_))))) + (_E8663786649_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E153721153758_))) - (_E153691153705_))))) - (_E153691153705_)))) - (_E153683153791_ + (_E8663686673_))) + (_E8660686620_))))) + (_E8660686620_)))) + (_E8659886706_ (lambda () - (if (gx#stx-pair? _e153682153697_) - (let ((_e153685153766_ - (gx#syntax-e _e153682153697_))) - (let ((_hd153686153769_ - (##car _e153685153766_)) - (_tl153687153771_ - (##cdr _e153685153766_))) - (if (eq? (gx#stx-e _hd153686153769_) + (if (gx#stx-pair? _e8659786612_) + (let ((_e8660086681_ + (gx#syntax-e _e8659786612_))) + (let ((_hd8660186684_ + (##car _e8660086681_)) + (_tl8660286686_ + (##cdr _e8660086681_))) + (if (eq? (gx#stx-e _hd8660186684_) 'namespace:) - (if (gx#stx-pair? _tl153687153771_) - (let ((_e153688153774_ + (if (gx#stx-pair? _tl8660286686_) + (let ((_e8660386689_ (gx#syntax-e - _tl153687153771_))) - (let ((_hd153689153777_ - (##car _e153688153774_)) - (_tl153690153779_ - (##cdr _e153688153774_))) - (let* ((_ns153782_ - _hd153689153777_) - (_rest153784_ - _tl153690153779_)) + _tl8660286686_))) + (let ((_hd8660486692_ + (##car _e8660386689_)) + (_tl8660586694_ + (##cdr _e8660386689_))) + (let* ((_ns86697_ + _hd8660486692_) + (_rest86699_ + _tl8660586694_)) (if '#t - (let ((_ns153789_ + (let ((_ns86704_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (gx#identifier? _ns153782_) - (symbol->string (gx#stx-e _ns153782_)) - (if (or (gx#stx-string? _ns153782_) - (gx#stx-false? _ns153782_)) - (gx#stx-e _ns153782_) + (if (gx#identifier? _ns86697_) + (symbol->string (gx#stx-e _ns86697_)) + (if (or (gx#stx-string? _ns86697_) + (gx#stx-false? _ns86697_)) + (gx#stx-e _ns86697_) (gx#raise-syntax-error '#f '"Bad syntax; extern expects namespace identifier" - _stx153643_ - _ns153782_))))) - (_lp153677_ _rest153784_ _ns153789_ _r153681_)) - (_E153684153762_))))) + _stx86558_ + _ns86697_))))) + (_lp86592_ _rest86699_ _ns86704_ _r86596_)) + (_E8659986677_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E153684153762_)) - (_E153684153762_)))) - (_E153684153762_))))) - (_E153683153791_)))))) - (let* ((_e153646153653_ _stx153643_) - (_E153648153657_ + (_E8659986677_)) + (_E8659986677_)))) + (_E8659986677_))))) + (_E8659886706_)))))) + (let* ((_e8656186568_ _stx86558_) + (_E8656386572_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153646153653_))) - (_E153647153671_ + _e8656186568_))) + (_E8656286586_ (lambda () - (if (gx#stx-pair? _e153646153653_) - (let ((_e153649153661_ (gx#syntax-e _e153646153653_))) - (let ((_hd153650153664_ (##car _e153649153661_)) - (_tl153651153666_ (##cdr _e153649153661_))) - (let ((_body153669_ _tl153651153666_)) - (if (gx#stx-list? _body153669_) + (if (gx#stx-pair? _e8656186568_) + (let ((_e8656486576_ (gx#syntax-e _e8656186568_))) + (let ((_hd8656586579_ (##car _e8656486576_)) + (_tl8656686581_ (##cdr _e8656486576_))) + (let ((_body86584_ _tl8656686581_)) + (if (gx#stx-list? _body86584_) (gx#core-cons '%#extern - (_generate153645_ _body153669_)) - (_E153648153657_))))) - (_E153648153657_))))) - (_E153647153671_))))) + (_generate86560_ _body86584_)) + (_E8656386572_))))) + (_E8656386572_))))) + (_E8656286586_))))) (define gx#macro-expand-define-values - (lambda (_stx153589_) - (let* ((_e153590153603_ _stx153589_) - (_E153592153607_ + (lambda (_stx86504_) + (let* ((_e8650586518_ _stx86504_) + (_E8650786522_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153590153603_))) - (_E153591153639_ + _e8650586518_))) + (_E8650686554_ (lambda () - (if (gx#stx-pair? _e153590153603_) - (let ((_e153593153611_ (gx#syntax-e _e153590153603_))) - (let ((_hd153594153614_ (##car _e153593153611_)) - (_tl153595153616_ (##cdr _e153593153611_))) - (if (gx#stx-pair? _tl153595153616_) - (let ((_e153596153619_ - (gx#syntax-e _tl153595153616_))) - (let ((_hd153597153622_ - (##car _e153596153619_)) - (_tl153598153624_ - (##cdr _e153596153619_))) - (let ((_hd153627_ _hd153597153622_)) - (if (gx#stx-pair? _tl153598153624_) - (let ((_e153599153629_ - (gx#syntax-e _tl153598153624_))) - (let ((_hd153600153632_ - (##car _e153599153629_)) - (_tl153601153634_ - (##cdr _e153599153629_))) - (let ((_expr153637_ - _hd153600153632_)) - (if (gx#stx-null? - _tl153601153634_) + (if (gx#stx-pair? _e8650586518_) + (let ((_e8650886526_ (gx#syntax-e _e8650586518_))) + (let ((_hd8650986529_ (##car _e8650886526_)) + (_tl8651086531_ (##cdr _e8650886526_))) + (if (gx#stx-pair? _tl8651086531_) + (let ((_e8651186534_ + (gx#syntax-e _tl8651086531_))) + (let ((_hd8651286537_ (##car _e8651186534_)) + (_tl8651386539_ (##cdr _e8651186534_))) + (let ((_hd86542_ _hd8651286537_)) + (if (gx#stx-pair? _tl8651386539_) + (let ((_e8651486544_ + (gx#syntax-e _tl8651386539_))) + (let ((_hd8651586547_ + (##car _e8651486544_)) + (_tl8651686549_ + (##cdr _e8651486544_))) + (let ((_expr86552_ _hd8651586547_)) + (if (gx#stx-null? _tl8651686549_) (if (gx#stx-andmap gx#identifier? - _hd153627_) + _hd86542_) (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#user-binding-identifier - _hd153627_) - (cons _expr153637_ '()))) - (_E153592153607_)) + _hd86542_) + (cons _expr86552_ '()))) + (_E8650786522_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E153592153607_))))) - (_E153592153607_))))) - (_E153592153607_)))) - (_E153592153607_))))) - (_E153591153639_)))) + (_E8650786522_))))) + (_E8650786522_))))) + (_E8650786522_)))) + (_E8650786522_))))) + (_E8650686554_)))) (define gx#macro-expand-define-syntax - (lambda (_stx153535_) - (let* ((_e153536153549_ _stx153535_) - (_E153538153553_ + (lambda (_stx86450_) + (let* ((_e8645186464_ _stx86450_) + (_E8645386468_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153536153549_))) - (_E153537153585_ + _e8645186464_))) + (_E8645286500_ (lambda () - (if (gx#stx-pair? _e153536153549_) - (let ((_e153539153557_ (gx#syntax-e _e153536153549_))) - (let ((_hd153540153560_ (##car _e153539153557_)) - (_tl153541153562_ (##cdr _e153539153557_))) - (if (gx#stx-pair? _tl153541153562_) - (let ((_e153542153565_ - (gx#syntax-e _tl153541153562_))) - (let ((_hd153543153568_ - (##car _e153542153565_)) - (_tl153544153570_ - (##cdr _e153542153565_))) - (let ((_hd153573_ _hd153543153568_)) - (if (gx#stx-pair? _tl153544153570_) - (let ((_e153545153575_ - (gx#syntax-e _tl153544153570_))) - (let ((_hd153546153578_ - (##car _e153545153575_)) - (_tl153547153580_ - (##cdr _e153545153575_))) - (let ((_expr153583_ - _hd153546153578_)) - (if (gx#stx-null? - _tl153547153580_) + (if (gx#stx-pair? _e8645186464_) + (let ((_e8645486472_ (gx#syntax-e _e8645186464_))) + (let ((_hd8645586475_ (##car _e8645486472_)) + (_tl8645686477_ (##cdr _e8645486472_))) + (if (gx#stx-pair? _tl8645686477_) + (let ((_e8645786480_ + (gx#syntax-e _tl8645686477_))) + (let ((_hd8645886483_ (##car _e8645786480_)) + (_tl8645986485_ (##cdr _e8645786480_))) + (let ((_hd86488_ _hd8645886483_)) + (if (gx#stx-pair? _tl8645986485_) + (let ((_e8646086490_ + (gx#syntax-e _tl8645986485_))) + (let ((_hd8646186493_ + (##car _e8646086490_)) + (_tl8646286495_ + (##cdr _e8646086490_))) + (let ((_expr86498_ _hd8646186493_)) + (if (gx#stx-null? _tl8646286495_) (if (gx#identifier? - _hd153573_) + _hd86488_) (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons _hd153573_ + (cons _hd86488_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _expr153583_ '()))) - (_E153538153553_)) + (cons _expr86498_ '()))) + (_E8645386468_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E153538153553_))))) - (_E153538153553_))))) - (_E153538153553_)))) - (_E153538153553_))))) - (_E153537153585_)))) + (_E8645386468_))))) + (_E8645386468_))))) + (_E8645386468_)))) + (_E8645386468_))))) + (_E8645286500_)))) (define gx#macro-expand-define-alias - (lambda (_stx153481_) - (let* ((_e153482153495_ _stx153481_) - (_E153484153499_ + (lambda (_stx86396_) + (let* ((_e8639786410_ _stx86396_) + (_E8639986414_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153482153495_))) - (_E153483153531_ + _e8639786410_))) + (_E8639886446_ (lambda () - (if (gx#stx-pair? _e153482153495_) - (let ((_e153485153503_ (gx#syntax-e _e153482153495_))) - (let ((_hd153486153506_ (##car _e153485153503_)) - (_tl153487153508_ (##cdr _e153485153503_))) - (if (gx#stx-pair? _tl153487153508_) - (let ((_e153488153511_ - (gx#syntax-e _tl153487153508_))) - (let ((_hd153489153514_ - (##car _e153488153511_)) - (_tl153490153516_ - (##cdr _e153488153511_))) - (let ((_id153519_ _hd153489153514_)) - (if (gx#stx-pair? _tl153490153516_) - (let ((_e153491153521_ - (gx#syntax-e _tl153490153516_))) - (let ((_hd153492153524_ - (##car _e153491153521_)) - (_tl153493153526_ - (##cdr _e153491153521_))) - (let ((_alias-id153529_ - _hd153492153524_)) - (if (gx#stx-null? - _tl153493153526_) + (if (gx#stx-pair? _e8639786410_) + (let ((_e8640086418_ (gx#syntax-e _e8639786410_))) + (let ((_hd8640186421_ (##car _e8640086418_)) + (_tl8640286423_ (##cdr _e8640086418_))) + (if (gx#stx-pair? _tl8640286423_) + (let ((_e8640386426_ + (gx#syntax-e _tl8640286423_))) + (let ((_hd8640486429_ (##car _e8640386426_)) + (_tl8640586431_ (##cdr _e8640386426_))) + (let ((_id86434_ _hd8640486429_)) + (if (gx#stx-pair? _tl8640586431_) + (let ((_e8640686436_ + (gx#syntax-e _tl8640586431_))) + (let ((_hd8640786439_ + (##car _e8640686436_)) + (_tl8640886441_ + (##cdr _e8640686436_))) + (let ((_alias-id86444_ + _hd8640786439_)) + (if (gx#stx-null? _tl8640886441_) (if (and (gx#identifier? - _id153519_) + _id86434_) (gx#identifier? - _alias-id153529_)) + _alias-id86444_)) (cons (gx#core-quote-syntax__0 '%#define-alias) - (cons _id153519_ + (cons _id86434_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _alias-id153529_ '()))) - (_E153484153499_)) + (cons _alias-id86444_ '()))) + (_E8639986414_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E153484153499_))))) - (_E153484153499_))))) - (_E153484153499_)))) - (_E153484153499_))))) - (_E153483153531_)))) + (_E8639986414_))))) + (_E8639986414_))))) + (_E8639986414_)))) + (_E8639986414_))))) + (_E8639886446_)))) (define gx#macro-expand-lambda% - (lambda (_stx153438_) - (let* ((_e153439153449_ _stx153438_) - (_E153441153453_ + (lambda (_stx86353_) + (let* ((_e8635486364_ _stx86353_) + (_E8635686368_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153439153449_))) - (_E153440153477_ + _e8635486364_))) + (_E8635586392_ (lambda () - (if (gx#stx-pair? _e153439153449_) - (let ((_e153442153457_ (gx#syntax-e _e153439153449_))) - (let ((_hd153443153460_ (##car _e153442153457_)) - (_tl153444153462_ (##cdr _e153442153457_))) - (if (gx#stx-pair? _tl153444153462_) - (let ((_e153445153465_ - (gx#syntax-e _tl153444153462_))) - (let ((_hd153446153468_ - (##car _e153445153465_)) - (_tl153447153470_ - (##cdr _e153445153465_))) - (let* ((_hd153473_ _hd153446153468_) - (_body153475_ _tl153447153470_)) + (if (gx#stx-pair? _e8635486364_) + (let ((_e8635786372_ (gx#syntax-e _e8635486364_))) + (let ((_hd8635886375_ (##car _e8635786372_)) + (_tl8635986377_ (##cdr _e8635786372_))) + (if (gx#stx-pair? _tl8635986377_) + (let ((_e8636086380_ + (gx#syntax-e _tl8635986377_))) + (let ((_hd8636186383_ (##car _e8636086380_)) + (_tl8636286385_ (##cdr _e8636086380_))) + (let* ((_hd86388_ _hd8636186383_) + (_body86390_ _tl8636286385_)) (if (and (gx#stx-andmap gx#identifier? - _hd153473_) - (gx#stx-list? _body153475_) - (not (gx#stx-null? _body153475_))) + _hd86388_) + (gx#stx-list? _body86390_) + (not (gx#stx-null? _body86390_))) (gx#core-cons* '%#lambda (gx#stx-map1 gx#user-binding-identifier - _hd153473_) - _body153475_) - (_E153441153453_))))) - (_E153441153453_)))) - (_E153441153453_))))) - (_E153440153477_)))) + _hd86388_) + _body86390_) + (_E8635686368_))))) + (_E8635686368_)))) + (_E8635686368_))))) + (_E8635586392_)))) (define gx#macro-expand-case-lambda - (lambda (_stx153374_) - (letrec ((_generate153376_ - (lambda (_clause153406_) - (let* ((_e153407153414_ _clause153406_) - (_E153409153418_ + (lambda (_stx86289_) + (letrec ((_generate86291_ + (lambda (_clause86321_) + (let* ((_e8632286329_ _clause86321_) + (_E8632486333_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed clause" - _stx153374_ - _clause153406_))) - (_E153408153434_ + _stx86289_ + _clause86321_))) + (_E8632386349_ (lambda () - (if (gx#stx-pair? _e153407153414_) - (let ((_e153410153422_ - (gx#syntax-e _e153407153414_))) - (let ((_hd153411153425_ - (##car _e153410153422_)) - (_tl153412153427_ - (##cdr _e153410153422_))) - (let* ((_hd153430_ _hd153411153425_) - (_body153432_ _tl153412153427_)) + (if (gx#stx-pair? _e8632286329_) + (let ((_e8632586337_ + (gx#syntax-e _e8632286329_))) + (let ((_hd8632686340_ + (##car _e8632586337_)) + (_tl8632786342_ + (##cdr _e8632586337_))) + (let* ((_hd86345_ _hd8632686340_) + (_body86347_ _tl8632786342_)) (if (and (gx#stx-andmap gx#identifier? - _hd153430_) - (gx#stx-list? _body153432_) + _hd86345_) + (gx#stx-list? _body86347_) (not (gx#stx-null? - _body153432_))) + _body86347_))) (gx#stx-wrap-source (cons (gx#stx-map1 gx#user-binding-identifier - _hd153430_) - _body153432_) - (gx#stx-source _clause153406_)) - (_E153409153418_))))) - (_E153409153418_))))) - (_E153408153434_))))) - (let* ((_e153377153384_ _stx153374_) - (_E153379153388_ + _hd86345_) + _body86347_) + (gx#stx-source _clause86321_)) + (_E8632486333_))))) + (_E8632486333_))))) + (_E8632386349_))))) + (let* ((_e8629286299_ _stx86289_) + (_E8629486303_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153377153384_))) - (_E153378153402_ + _e8629286299_))) + (_E8629386317_ (lambda () - (if (gx#stx-pair? _e153377153384_) - (let ((_e153380153392_ (gx#syntax-e _e153377153384_))) - (let ((_hd153381153395_ (##car _e153380153392_)) - (_tl153382153397_ (##cdr _e153380153392_))) - (let ((_clauses153400_ _tl153382153397_)) - (if (gx#stx-list? _clauses153400_) + (if (gx#stx-pair? _e8629286299_) + (let ((_e8629586307_ (gx#syntax-e _e8629286299_))) + (let ((_hd8629686310_ (##car _e8629586307_)) + (_tl8629786312_ (##cdr _e8629586307_))) + (let ((_clauses86315_ _tl8629786312_)) + (if (gx#stx-list? _clauses86315_) (gx#core-cons '%#case-lambda (gx#stx-map1 - _generate153376_ - _clauses153400_)) - (_E153379153388_))))) - (_E153379153388_))))) - (_E153378153402_))))) + _generate86291_ + _clauses86315_)) + (_E8629486303_))))) + (_E8629486303_))))) + (_E8629386317_))))) (define gx#macro-expand-let-values__% - (lambda (_stx153275_ _form153276_) - (letrec ((_generate153278_ - (lambda (_bind153321_) - (let* ((_e153322153332_ _bind153321_) - (_E153324153336_ + (lambda (_stx86190_ _form86191_) + (letrec ((_generate86193_ + (lambda (_bind86236_) + (let* ((_e8623786247_ _bind86236_) + (_E8623986251_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed binding" - _stx153275_ - _bind153321_))) - (_E153323153360_ + _stx86190_ + _bind86236_))) + (_E8623886275_ (lambda () - (if (gx#stx-pair? _e153322153332_) - (let ((_e153325153340_ - (gx#syntax-e _e153322153332_))) - (let ((_hd153326153343_ - (##car _e153325153340_)) - (_tl153327153345_ - (##cdr _e153325153340_))) - (let ((_ids153348_ _hd153326153343_)) - (if (gx#stx-pair? _tl153327153345_) - (let ((_e153328153350_ + (if (gx#stx-pair? _e8623786247_) + (let ((_e8624086255_ + (gx#syntax-e _e8623786247_))) + (let ((_hd8624186258_ + (##car _e8624086255_)) + (_tl8624286260_ + (##cdr _e8624086255_))) + (let ((_ids86263_ _hd8624186258_)) + (if (gx#stx-pair? _tl8624286260_) + (let ((_e8624386265_ (gx#syntax-e - _tl153327153345_))) - (let ((_hd153329153353_ - (##car _e153328153350_)) - (_tl153330153355_ - (##cdr _e153328153350_))) - (let ((_expr153358_ - _hd153329153353_)) + _tl8624286260_))) + (let ((_hd8624486268_ + (##car _e8624386265_)) + (_tl8624586270_ + (##cdr _e8624386265_))) + (let ((_expr86273_ + _hd8624486268_)) (if (gx#stx-null? - _tl153330153355_) + _tl8624586270_) (if (gx#stx-andmap gx#identifier? - _ids153348_) + _ids86263_) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#user-binding-identifier - _ids153348_) - (cons _expr153358_ '())) - (_E153324153336_)) - (_E153324153336_))))) + _ids86263_) + (cons _expr86273_ '())) + (_E8623986251_)) + (_E8623986251_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E153324153336_))))) - (_E153324153336_))))) - (_E153323153360_))))) - (let* ((_e153279153289_ _stx153275_) - (_E153281153293_ + (_E8623986251_))))) + (_E8623986251_))))) + (_E8623886275_))))) + (let* ((_e8619486204_ _stx86190_) + (_E8619686208_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153279153289_))) - (_E153280153317_ + _e8619486204_))) + (_E8619586232_ (lambda () - (if (gx#stx-pair? _e153279153289_) - (let ((_e153282153297_ (gx#syntax-e _e153279153289_))) - (let ((_hd153283153300_ (##car _e153282153297_)) - (_tl153284153302_ (##cdr _e153282153297_))) - (if (gx#stx-pair? _tl153284153302_) - (let ((_e153285153305_ - (gx#syntax-e _tl153284153302_))) - (let ((_hd153286153308_ - (##car _e153285153305_)) - (_tl153287153310_ - (##cdr _e153285153305_))) - (let* ((_hd153313_ _hd153286153308_) - (_body153315_ _tl153287153310_)) - (if (and (gx#stx-list? _hd153313_) - (gx#stx-list? _body153315_) + (if (gx#stx-pair? _e8619486204_) + (let ((_e8619786212_ (gx#syntax-e _e8619486204_))) + (let ((_hd8619886215_ (##car _e8619786212_)) + (_tl8619986217_ (##cdr _e8619786212_))) + (if (gx#stx-pair? _tl8619986217_) + (let ((_e8620086220_ + (gx#syntax-e _tl8619986217_))) + (let ((_hd8620186223_ (##car _e8620086220_)) + (_tl8620286225_ (##cdr _e8620086220_))) + (let* ((_hd86228_ _hd8620186223_) + (_body86230_ _tl8620286225_)) + (if (and (gx#stx-list? _hd86228_) + (gx#stx-list? _body86230_) (not (gx#stx-null? - _body153315_))) + _body86230_))) (gx#core-cons* - _form153276_ + _form86191_ (gx#stx-map1 - _generate153278_ - _hd153313_) - _body153315_) - (_E153281153293_))))) - (_E153281153293_)))) - (_E153281153293_))))) - (_E153280153317_))))) + _generate86193_ + _hd86228_) + _body86230_) + (_E8619686208_))))) + (_E8619686208_)))) + (_E8619686208_))))) + (_E8619586232_))))) (define gx#macro-expand-let-values__0 - (lambda (_stx153367_) - (let ((_form153369_ '%#let-values)) - (gx#macro-expand-let-values__% _stx153367_ _form153369_)))) + (lambda (_stx86282_) + (let ((_form86284_ '%#let-values)) + (gx#macro-expand-let-values__% _stx86282_ _form86284_)))) (define gx#macro-expand-let-values - (lambda _g160320_ - (let ((_g160319_ (##length _g160320_))) - (cond ((##fx= _g160319_ 1) - (apply (lambda (_stx153367_) - (gx#macro-expand-let-values__0 _stx153367_)) - _g160320_)) - ((##fx= _g160319_ 2) - (apply (lambda (_stx153371_ _form153372_) + (lambda _g88667_ + (let ((_g88666_ (##length _g88667_))) + (cond ((##fx= _g88666_ 1) + (apply (lambda (_stx86282_) + (gx#macro-expand-let-values__0 _stx86282_)) + _g88667_)) + ((##fx= _g88666_ 2) + (apply (lambda (_stx86286_ _form86287_) (gx#macro-expand-let-values__% - _stx153371_ - _form153372_)) - _g160320_)) + _stx86286_ + _form86287_)) + _g88667_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-let-values - _g160320_)))))) + _g88667_)))))) (define gx#macro-expand-letrec-values - (lambda (_stx153272_) - (gx#macro-expand-let-values__% _stx153272_ '%#letrec-values))) + (lambda (_stx86187_) + (gx#macro-expand-let-values__% _stx86187_ '%#letrec-values))) (define gx#macro-expand-letrec*-values - (lambda (_stx153270_) - (gx#macro-expand-let-values__% _stx153270_ '%#letrec*-values))) + (lambda (_stx86185_) + (gx#macro-expand-let-values__% _stx86185_ '%#letrec*-values))) (define gx#macro-expand-if - (lambda (_stx153161_) - (let* ((_e153162153188_ _stx153161_) - (_E153174153192_ + (lambda (_stx86076_) + (let* ((_e8607786103_ _stx86076_) + (_E8608986107_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153162153188_))) - (_E153164153234_ + _e8607786103_))) + (_E8607986149_ (lambda () - (if (gx#stx-pair? _e153162153188_) - (let ((_e153175153196_ (gx#syntax-e _e153162153188_))) - (let ((_hd153176153199_ (##car _e153175153196_)) - (_tl153177153201_ (##cdr _e153175153196_))) - (if (gx#stx-pair? _tl153177153201_) - (let ((_e153178153204_ - (gx#syntax-e _tl153177153201_))) - (let ((_hd153179153207_ - (##car _e153178153204_)) - (_tl153180153209_ - (##cdr _e153178153204_))) - (let ((_test153212_ _hd153179153207_)) - (if (gx#stx-pair? _tl153180153209_) - (let ((_e153181153214_ - (gx#syntax-e _tl153180153209_))) - (let ((_hd153182153217_ - (##car _e153181153214_)) - (_tl153183153219_ - (##cdr _e153181153214_))) - (let ((_K153222_ _hd153182153217_)) - (if (gx#stx-pair? - _tl153183153219_) - (let ((_e153184153224_ + (if (gx#stx-pair? _e8607786103_) + (let ((_e8609086111_ (gx#syntax-e _e8607786103_))) + (let ((_hd8609186114_ (##car _e8609086111_)) + (_tl8609286116_ (##cdr _e8609086111_))) + (if (gx#stx-pair? _tl8609286116_) + (let ((_e8609386119_ + (gx#syntax-e _tl8609286116_))) + (let ((_hd8609486122_ (##car _e8609386119_)) + (_tl8609586124_ (##cdr _e8609386119_))) + (let ((_test86127_ _hd8609486122_)) + (if (gx#stx-pair? _tl8609586124_) + (let ((_e8609686129_ + (gx#syntax-e _tl8609586124_))) + (let ((_hd8609786132_ + (##car _e8609686129_)) + (_tl8609886134_ + (##cdr _e8609686129_))) + (let ((_K86137_ _hd8609786132_)) + (if (gx#stx-pair? _tl8609886134_) + (let ((_e8609986139_ (gx#syntax-e - _tl153183153219_))) - (let ((_hd153185153227_ - (##car _e153184153224_)) - (_tl153186153229_ - (##cdr _e153184153224_))) - (let ((_E153232_ - _hd153185153227_)) + _tl8609886134_))) + (let ((_hd8610086142_ + (##car _e8609986139_)) + (_tl8610186144_ + (##cdr _e8609986139_))) + (let ((_E86147_ + _hd8610086142_)) (if (gx#stx-null? - _tl153186153229_) + _tl8610186144_) (if '#t (gx#core-list ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#if - _test153212_ - _K153222_ - _E153232_) - (_E153174153192_)) - (_E153174153192_))))) + _test86127_ + _K86137_ + _E86147_) + (_E8608986107_)) + (_E8608986107_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E153174153192_))))) - (_E153174153192_))))) - (_E153174153192_)))) - (_E153174153192_)))) - (_E153163153266_ + (_E8608986107_))))) + (_E8608986107_))))) + (_E8608986107_)))) + (_E8608986107_)))) + (_E8607886181_ (lambda () - (if (gx#stx-pair? _e153162153188_) - (let ((_e153165153238_ (gx#syntax-e _e153162153188_))) - (let ((_hd153166153241_ (##car _e153165153238_)) - (_tl153167153243_ (##cdr _e153165153238_))) - (if (gx#stx-pair? _tl153167153243_) - (let ((_e153168153246_ - (gx#syntax-e _tl153167153243_))) - (let ((_hd153169153249_ - (##car _e153168153246_)) - (_tl153170153251_ - (##cdr _e153168153246_))) - (let ((_test153254_ _hd153169153249_)) - (if (gx#stx-pair? _tl153170153251_) - (let ((_e153171153256_ - (gx#syntax-e _tl153170153251_))) - (let ((_hd153172153259_ - (##car _e153171153256_)) - (_tl153173153261_ - (##cdr _e153171153256_))) - (let ((_K153264_ _hd153172153259_)) - (if (gx#stx-null? - _tl153173153261_) + (if (gx#stx-pair? _e8607786103_) + (let ((_e8608086153_ (gx#syntax-e _e8607786103_))) + (let ((_hd8608186156_ (##car _e8608086153_)) + (_tl8608286158_ (##cdr _e8608086153_))) + (if (gx#stx-pair? _tl8608286158_) + (let ((_e8608386161_ + (gx#syntax-e _tl8608286158_))) + (let ((_hd8608486164_ (##car _e8608386161_)) + (_tl8608586166_ (##cdr _e8608386161_))) + (let ((_test86169_ _hd8608486164_)) + (if (gx#stx-pair? _tl8608586166_) + (let ((_e8608686171_ + (gx#syntax-e _tl8608586166_))) + (let ((_hd8608786174_ + (##car _e8608686171_)) + (_tl8608886176_ + (##cdr _e8608686171_))) + (let ((_K86179_ _hd8608786174_)) + (if (gx#stx-null? _tl8608886176_) (if '#t (gx#core-list '%#if - _test153254_ - _K153264_ + _test86169_ + _K86179_ '#!void) - (_E153164153234_)) - (_E153164153234_))))) - (_E153164153234_))))) - (_E153164153234_)))) - (_E153164153234_))))) - (_E153163153266_)))) + (_E8607986149_)) + (_E8607986149_))))) + (_E8607986149_))))) + (_E8607986149_)))) + (_E8607986149_))))) + (_E8607886181_)))) (define gx#free-identifier=? - (lambda (_xid153149_ _yid153150_) - (let ((_xe153152_ (gx#resolve-identifier__0 _xid153149_)) - (_ye153153_ (gx#resolve-identifier__0 _yid153150_))) - (if (and _xe153152_ _ye153153_) - (let ((_$e153155_ (eq? _xe153152_ _ye153153_))) - (if _$e153155_ - _$e153155_ - (if (##structure-instance-of? _xe153152_ 'gx#binding::t) - (if (##structure-instance-of? - _ye153153_ - 'gx#binding::t) + (lambda (_xid86064_ _yid86065_) + (let ((_xe86067_ (gx#resolve-identifier__0 _xid86064_)) + (_ye86068_ (gx#resolve-identifier__0 _yid86065_))) + (if (and _xe86067_ _ye86068_) + (let ((_$e86070_ (eq? _xe86067_ _ye86068_))) + (if _$e86070_ + _$e86070_ + (if (##structure-instance-of? _xe86067_ 'gx#binding::t) + (if (##structure-instance-of? _ye86068_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _xe153152_ + _xe86067_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _ye153153_ + _ye86068_ '1 gx#binding::t '#f)) '#f) '#f))) - (if (or _xe153152_ _ye153153_) + (if (or _xe86067_ _ye86068_) '#f - (gx#stx-eq? _xid153149_ _yid153150_)))))) + (gx#stx-eq? _xid86064_ _yid86065_)))))) (define gx#bound-identifier=? - (lambda (_xid153133_ _yid153134_) - (letrec ((_context153136_ - (lambda (_e153147_) + (lambda (_xid86048_ _yid86049_) + (letrec ((_context86051_ + (lambda (_e86062_) (if (##structure-direct-instance-of? - _e153147_ + _e86062_ 'gx#syntax-quote::t) (##unchecked-structure-ref - _e153147_ + _e86062_ '3 gx#syntax-quote::t '#f) (gx#current-expander-context)))) - (_marks153137_ - (lambda (_e153145_) - (if (symbol? _e153145_) + (_marks86052_ + (lambda (_e86060_) + (if (symbol? _e86060_) '() (if (##structure-direct-instance-of? - _e153145_ + _e86060_ 'gx#identifier-wrap::t) (##unchecked-structure-ref - _e153145_ + _e86060_ '3 gx#identifier-wrap::t '#f) (##unchecked-structure-ref - _e153145_ + _e86060_ '4 gx#syntax-quote::t '#f))))) - (_unwrap153138_ - (lambda (_e153143_) - (if (symbol? _e153143_) - _e153143_ - (gx#syntax-local-unwrap _e153143_))))) - (let ((_x153140_ (_unwrap153138_ _xid153133_)) - (_y153141_ (_unwrap153138_ _yid153134_))) - (if (gx#stx-eq? _x153140_ _y153141_) - (if (eq? (_context153136_ _x153140_) - (_context153136_ _y153141_)) - (equal? (_marks153137_ _x153140_) - (_marks153137_ _y153141_)) + (_unwrap86053_ + (lambda (_e86058_) + (if (symbol? _e86058_) + _e86058_ + (gx#syntax-local-unwrap _e86058_))))) + (let ((_x86055_ (_unwrap86053_ _xid86048_)) + (_y86056_ (_unwrap86053_ _yid86049_))) + (if (gx#stx-eq? _x86055_ _y86056_) + (if (eq? (_context86051_ _x86055_) (_context86051_ _y86056_)) + (equal? (_marks86052_ _x86055_) (_marks86052_ _y86056_)) '#f) '#f))))) (define gx#underscore? - (lambda (_stx153131_) - (if (gx#identifier? _stx153131_) - (gx#core-identifier=? _stx153131_ '_) + (lambda (_stx86046_) + (if (gx#identifier? _stx86046_) + (gx#core-identifier=? _stx86046_ '_) '#f))) (define gx#ellipsis? - (lambda (_stx153129_) - (if (gx#identifier? _stx153129_) - (gx#core-identifier=? _stx153129_ '...) + (lambda (_stx86044_) + (if (gx#identifier? _stx86044_) + (gx#core-identifier=? _stx86044_ '...) '#f))) (define gx#user-binding-identifier - (lambda (_x153127_) - (if (gx#identifier? _x153127_) - (if (not (gx#underscore? _x153127_)) _x153127_ '#f) + (lambda (_x86042_) + (if (gx#identifier? _x86042_) + (if (not (gx#underscore? _x86042_)) _x86042_ '#f) '#f))) (define gx#check-duplicate-identifiers__% - (lambda (_stx153073_ _where153074_) - (let _lp153076_ ((_rest153078_ (gx#syntax->list _stx153073_))) - (let* ((_rest153079153087_ _rest153078_) - (_else153081153095_ (lambda () '#t)) - (_K153083153105_ - (lambda (_rest153098_ _hd153099_) - (if (not (gx#identifier? _hd153099_)) + (lambda (_stx85988_ _where85989_) + (let _lp85991_ ((_rest85993_ (gx#syntax->list _stx85988_))) + (let* ((_rest8599486002_ _rest85993_) + (_else8599686010_ (lambda () '#t)) + (_K8599886020_ + (lambda (_rest86013_ _hd86014_) + (if (not (gx#identifier? _hd86014_)) (gx#raise-syntax-error '#f '"Bad identifier" - _where153074_ - _hd153099_) - (if (find (lambda (_g153100153102_) + _where85989_ + _hd86014_) + (if (find (lambda (_g8601586017_) (gx#bound-identifier=? - _g153100153102_ - _hd153099_)) - _rest153098_) + _g8601586017_ + _hd86014_)) + _rest86013_) (gx#raise-syntax-error '#f '"Duplicate identifier" - _where153074_ - _hd153099_) - (_lp153076_ _rest153098_)))))) - (if (##pair? _rest153079153087_) - (let ((_hd153084153108_ (##car _rest153079153087_)) - (_tl153085153110_ (##cdr _rest153079153087_))) - (let* ((_hd153113_ _hd153084153108_) - (_rest153115_ _tl153085153110_)) - (_K153083153105_ _rest153115_ _hd153113_))) - (_else153081153095_)))))) + _where85989_ + _hd86014_) + (_lp85991_ _rest86013_)))))) + (if (##pair? _rest8599486002_) + (let ((_hd8599986023_ (##car _rest8599486002_)) + (_tl8600086025_ (##cdr _rest8599486002_))) + (let* ((_hd86028_ _hd8599986023_) + (_rest86030_ _tl8600086025_)) + (_K8599886020_ _rest86030_ _hd86028_))) + (_else8599686010_)))))) (define gx#check-duplicate-identifiers__0 - (lambda (_stx153120_) - (let ((_where153122_ _stx153120_)) - (gx#check-duplicate-identifiers__% _stx153120_ _where153122_)))) + (lambda (_stx86035_) + (let ((_where86037_ _stx86035_)) + (gx#check-duplicate-identifiers__% _stx86035_ _where86037_)))) (define gx#check-duplicate-identifiers - (lambda _g160322_ - (let ((_g160321_ (##length _g160322_))) - (cond ((##fx= _g160321_ 1) - (apply (lambda (_stx153120_) - (gx#check-duplicate-identifiers__0 _stx153120_)) - _g160322_)) - ((##fx= _g160321_ 2) - (apply (lambda (_stx153124_ _where153125_) + (lambda _g88669_ + (let ((_g88668_ (##length _g88669_))) + (cond ((##fx= _g88668_ 1) + (apply (lambda (_stx86035_) + (gx#check-duplicate-identifiers__0 _stx86035_)) + _g88669_)) + ((##fx= _g88668_ 2) + (apply (lambda (_stx86039_ _where86040_) (gx#check-duplicate-identifiers__% - _stx153124_ - _where153125_)) - _g160322_)) + _stx86039_ + _where86040_)) + _g88669_)) (else (##raise-wrong-number-of-arguments-exception gx#check-duplicate-identifiers - _g160322_)))))) + _g88669_)))))) (define gx#core-bind-values? - (lambda (_stx153065_) + (lambda (_stx85980_) (gx#stx-andmap - (lambda (_x153067_) - (let ((_$e153069_ (gx#identifier? _x153067_))) - (if _$e153069_ _$e153069_ (gx#stx-false? _x153067_)))) - _stx153065_))) + (lambda (_x85982_) + (let ((_$e85984_ (gx#identifier? _x85982_))) + (if _$e85984_ _$e85984_ (gx#stx-false? _x85982_)))) + _stx85980_))) (define gx#core-bind-values!__% - (lambda (_stx153029_ _rebind?153030_ _phi153031_ _ctx153032_) + (lambda (_stx85944_ _rebind?85945_ _phi85946_ _ctx85947_) (gx#stx-for-each1 - (lambda (_id153034_) - (if (gx#identifier? _id153034_) + (lambda (_id85949_) + (if (gx#identifier? _id85949_) (gx#core-bind-runtime!__% - _id153034_ - _rebind?153030_ - _phi153031_ - _ctx153032_) + _id85949_ + _rebind?85945_ + _phi85946_ + _ctx85947_) '#!void)) - _stx153029_))) + _stx85944_))) (define gx#core-bind-values!__0 - (lambda (_stx153039_) - (let* ((_rebind?153041_ '#f) - (_phi153043_ (gx#current-expander-phi)) - (_ctx153045_ (gx#current-expander-context))) + (lambda (_stx85954_) + (let* ((_rebind?85956_ '#f) + (_phi85958_ (gx#current-expander-phi)) + (_ctx85960_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx153039_ - _rebind?153041_ - _phi153043_ - _ctx153045_)))) + _stx85954_ + _rebind?85956_ + _phi85958_ + _ctx85960_)))) (define gx#core-bind-values!__1 - (lambda (_stx153047_ _rebind?153048_) - (let* ((_phi153050_ (gx#current-expander-phi)) - (_ctx153052_ (gx#current-expander-context))) + (lambda (_stx85962_ _rebind?85963_) + (let* ((_phi85965_ (gx#current-expander-phi)) + (_ctx85967_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx153047_ - _rebind?153048_ - _phi153050_ - _ctx153052_)))) + _stx85962_ + _rebind?85963_ + _phi85965_ + _ctx85967_)))) (define gx#core-bind-values!__2 - (lambda (_stx153054_ _rebind?153055_ _phi153056_) - (let ((_ctx153058_ (gx#current-expander-context))) + (lambda (_stx85969_ _rebind?85970_ _phi85971_) + (let ((_ctx85973_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx153054_ - _rebind?153055_ - _phi153056_ - _ctx153058_)))) + _stx85969_ + _rebind?85970_ + _phi85971_ + _ctx85973_)))) (define gx#core-bind-values! - (lambda _g160324_ - (let ((_g160323_ (##length _g160324_))) - (cond ((##fx= _g160323_ 1) - (apply (lambda (_stx153039_) - (gx#core-bind-values!__0 _stx153039_)) - _g160324_)) - ((##fx= _g160323_ 2) - (apply (lambda (_stx153047_ _rebind?153048_) - (gx#core-bind-values!__1 - _stx153047_ - _rebind?153048_)) - _g160324_)) - ((##fx= _g160323_ 3) - (apply (lambda (_stx153054_ _rebind?153055_ _phi153056_) + (lambda _g88671_ + (let ((_g88670_ (##length _g88671_))) + (cond ((##fx= _g88670_ 1) + (apply (lambda (_stx85954_) + (gx#core-bind-values!__0 _stx85954_)) + _g88671_)) + ((##fx= _g88670_ 2) + (apply (lambda (_stx85962_ _rebind?85963_) + (gx#core-bind-values!__1 _stx85962_ _rebind?85963_)) + _g88671_)) + ((##fx= _g88670_ 3) + (apply (lambda (_stx85969_ _rebind?85970_ _phi85971_) (gx#core-bind-values!__2 - _stx153054_ - _rebind?153055_ - _phi153056_)) - _g160324_)) - ((##fx= _g160323_ 4) - (apply (lambda (_stx153060_ - _rebind?153061_ - _phi153062_ - _ctx153063_) + _stx85969_ + _rebind?85970_ + _phi85971_)) + _g88671_)) + ((##fx= _g88670_ 4) + (apply (lambda (_stx85975_ + _rebind?85976_ + _phi85977_ + _ctx85978_) (gx#core-bind-values!__% - _stx153060_ - _rebind?153061_ - _phi153062_ - _ctx153063_)) - _g160324_)) + _stx85975_ + _rebind?85976_ + _phi85977_ + _ctx85978_)) + _g88671_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-values! - _g160324_)))))) + _g88671_)))))) (define gx#core-quote-bind-values - (lambda (_stx153024_) + (lambda (_stx85939_) (gx#stx-map1 - (lambda (_x153026_) - (if (gx#identifier? _x153026_) - (gx#core-quote-syntax__0 _x153026_) + (lambda (_x85941_) + (if (gx#identifier? _x85941_) + (gx#core-quote-syntax__0 _x85941_) '#f)) - _stx153024_))) + _stx85939_))) (define gx#core-runtime-ref? - (lambda (_stx153017_) - (if (gx#identifier? _stx153017_) - (let* ((_bind153019_ (gx#resolve-identifier__0 _stx153017_)) - (_$e153021_ (not _bind153019_))) - (if _$e153021_ - _$e153021_ + (lambda (_stx85932_) + (if (gx#identifier? _stx85932_) + (let* ((_bind85934_ (gx#resolve-identifier__0 _stx85932_)) + (_$e85936_ (not _bind85934_))) + (if _$e85936_ + _$e85936_ (##structure-instance-of? - _bind153019_ + _bind85934_ 'gx#runtime-binding::t))) '#f))) (define gx#core-quote-runtime-ref - (lambda (_id153009_ _form153010_) - (let ((_bind153012_ (gx#resolve-identifier__0 _id153009_))) - (if (##structure-instance-of? _bind153012_ 'gx#runtime-binding::t) - (gx#core-quote-syntax__0 _id153009_) - (if (not _bind153012_) + (lambda (_id85924_ _form85925_) + (let ((_bind85927_ (gx#resolve-identifier__0 _id85924_))) + (if (##structure-instance-of? _bind85927_ 'gx#runtime-binding::t) + (gx#core-quote-syntax__0 _id85924_) + (if (not _bind85927_) (if (or (gx#core-context-rebind?__% (gx#core-context-top__0)) - (gx#core-extern-symbol? (gx#stx-e _id153009_))) - (gx#core-quote-syntax__0 _id153009_) + (gx#core-extern-symbol? (gx#stx-e _id85924_))) + (gx#core-quote-syntax__0 _id85924_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _form153010_ - _id153009_)) + _form85925_ + _id85924_)) (gx#raise-syntax-error '#f '"Bad syntax; not a runtime binding" - _form153010_ - _id153009_)))))) + _form85925_ + _id85924_)))))) (define gx#core-bind-runtime!__% - (lambda (_id152968_ _rebind?152969_ _phi152970_ _ctx152971_) - (let* ((_key152973_ (gx#core-identifier-key _id152968_)) - (_eid152975_ - (gx#make-binding-id__% - _key152973_ - '#f - _phi152970_ - _ctx152971_)) - (_bind152977_ - (if (##structure-instance-of? - _ctx152971_ - 'gx#module-context::t) + (lambda (_id85883_ _rebind?85884_ _phi85885_ _ctx85886_) + (let* ((_key85888_ (gx#core-identifier-key _id85883_)) + (_eid85890_ + (gx#make-binding-id__% _key85888_ '#f _phi85885_ _ctx85886_)) + (_bind85892_ + (if (##structure-instance-of? _ctx85886_ 'gx#module-context::t) (##structure gx#module-binding::t - _eid152975_ - _key152973_ - _phi152970_ - _ctx152971_) + _eid85890_ + _key85888_ + _phi85885_ + _ctx85886_) (if (##structure-instance-of? - _ctx152971_ + _ctx85886_ 'gx#top-context::t) (##structure gx#top-binding::t - _eid152975_ - _key152973_ - _phi152970_) + _eid85890_ + _key85888_ + _phi85885_) (if (##structure-instance-of? - _ctx152971_ + _ctx85886_ 'gx#local-context::t) (##structure gx#local-binding::t - _eid152975_ - _key152973_ - _phi152970_) + _eid85890_ + _key85888_ + _phi85885_) (##structure gx#runtime-binding::t - _eid152975_ - _key152973_ - _phi152970_)))))) + _eid85890_ + _key85888_ + _phi85885_)))))) (gx#bind-identifier!__% - _id152968_ - _bind152977_ - _rebind?152969_ - _phi152970_ - _ctx152971_)))) + _id85883_ + _bind85892_ + _rebind?85884_ + _phi85885_ + _ctx85886_)))) (define gx#core-bind-runtime!__0 - (lambda (_id152983_) - (let* ((_rebind?152985_ '#f) - (_phi152987_ (gx#current-expander-phi)) - (_ctx152989_ (gx#current-expander-context))) + (lambda (_id85898_) + (let* ((_rebind?85900_ '#f) + (_phi85902_ (gx#current-expander-phi)) + (_ctx85904_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id152983_ - _rebind?152985_ - _phi152987_ - _ctx152989_)))) + _id85898_ + _rebind?85900_ + _phi85902_ + _ctx85904_)))) (define gx#core-bind-runtime!__1 - (lambda (_id152991_ _rebind?152992_) - (let* ((_phi152994_ (gx#current-expander-phi)) - (_ctx152996_ (gx#current-expander-context))) + (lambda (_id85906_ _rebind?85907_) + (let* ((_phi85909_ (gx#current-expander-phi)) + (_ctx85911_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id152991_ - _rebind?152992_ - _phi152994_ - _ctx152996_)))) + _id85906_ + _rebind?85907_ + _phi85909_ + _ctx85911_)))) (define gx#core-bind-runtime!__2 - (lambda (_id152998_ _rebind?152999_ _phi153000_) - (let ((_ctx153002_ (gx#current-expander-context))) + (lambda (_id85913_ _rebind?85914_ _phi85915_) + (let ((_ctx85917_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id152998_ - _rebind?152999_ - _phi153000_ - _ctx153002_)))) + _id85913_ + _rebind?85914_ + _phi85915_ + _ctx85917_)))) (define gx#core-bind-runtime! - (lambda _g160326_ - (let ((_g160325_ (##length _g160326_))) - (cond ((##fx= _g160325_ 1) - (apply (lambda (_id152983_) - (gx#core-bind-runtime!__0 _id152983_)) - _g160326_)) - ((##fx= _g160325_ 2) - (apply (lambda (_id152991_ _rebind?152992_) - (gx#core-bind-runtime!__1 - _id152991_ - _rebind?152992_)) - _g160326_)) - ((##fx= _g160325_ 3) - (apply (lambda (_id152998_ _rebind?152999_ _phi153000_) + (lambda _g88673_ + (let ((_g88672_ (##length _g88673_))) + (cond ((##fx= _g88672_ 1) + (apply (lambda (_id85898_) + (gx#core-bind-runtime!__0 _id85898_)) + _g88673_)) + ((##fx= _g88672_ 2) + (apply (lambda (_id85906_ _rebind?85907_) + (gx#core-bind-runtime!__1 _id85906_ _rebind?85907_)) + _g88673_)) + ((##fx= _g88672_ 3) + (apply (lambda (_id85913_ _rebind?85914_ _phi85915_) (gx#core-bind-runtime!__2 - _id152998_ - _rebind?152999_ - _phi153000_)) - _g160326_)) - ((##fx= _g160325_ 4) - (apply (lambda (_id153004_ - _rebind?153005_ - _phi153006_ - _ctx153007_) + _id85913_ + _rebind?85914_ + _phi85915_)) + _g88673_)) + ((##fx= _g88672_ 4) + (apply (lambda (_id85919_ + _rebind?85920_ + _phi85921_ + _ctx85922_) (gx#core-bind-runtime!__% - _id153004_ - _rebind?153005_ - _phi153006_ - _ctx153007_)) - _g160326_)) + _id85919_ + _rebind?85920_ + _phi85921_ + _ctx85922_)) + _g88673_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime! - _g160326_)))))) + _g88673_)))))) (define gx#core-bind-runtime-reference!__% - (lambda (_id152923_ _eid152924_ _rebind?152925_ _phi152926_ _ctx152927_) - (let* ((_key152929_ (gx#core-identifier-key _id152923_)) - (_bind152931_ - (if (##structure-instance-of? - _ctx152927_ - 'gx#module-context::t) + (lambda (_id85838_ _eid85839_ _rebind?85840_ _phi85841_ _ctx85842_) + (let* ((_key85844_ (gx#core-identifier-key _id85838_)) + (_bind85846_ + (if (##structure-instance-of? _ctx85842_ 'gx#module-context::t) (##structure gx#module-binding::t - _eid152924_ - _key152929_ - _phi152926_ - _ctx152927_) + _eid85839_ + _key85844_ + _phi85841_ + _ctx85842_) (if (##structure-instance-of? - _ctx152927_ + _ctx85842_ 'gx#top-context::t) (##structure gx#top-binding::t - _eid152924_ - _key152929_ - _phi152926_) + _eid85839_ + _key85844_ + _phi85841_) (##structure gx#runtime-binding::t - _eid152924_ - _key152929_ - _phi152926_))))) + _eid85839_ + _key85844_ + _phi85841_))))) (gx#bind-identifier!__% - _id152923_ - _bind152931_ - _rebind?152925_ - _phi152926_ - _ctx152927_)))) + _id85838_ + _bind85846_ + _rebind?85840_ + _phi85841_ + _ctx85842_)))) (define gx#core-bind-runtime-reference!__0 - (lambda (_id152937_ _eid152938_) - (let* ((_rebind?152940_ '#f) - (_phi152942_ (gx#current-expander-phi)) - (_ctx152944_ (gx#current-expander-context))) + (lambda (_id85852_ _eid85853_) + (let* ((_rebind?85855_ '#f) + (_phi85857_ (gx#current-expander-phi)) + (_ctx85859_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id152937_ - _eid152938_ - _rebind?152940_ - _phi152942_ - _ctx152944_)))) + _id85852_ + _eid85853_ + _rebind?85855_ + _phi85857_ + _ctx85859_)))) (define gx#core-bind-runtime-reference!__1 - (lambda (_id152946_ _eid152947_ _rebind?152948_) - (let* ((_phi152950_ (gx#current-expander-phi)) - (_ctx152952_ (gx#current-expander-context))) + (lambda (_id85861_ _eid85862_ _rebind?85863_) + (let* ((_phi85865_ (gx#current-expander-phi)) + (_ctx85867_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id152946_ - _eid152947_ - _rebind?152948_ - _phi152950_ - _ctx152952_)))) + _id85861_ + _eid85862_ + _rebind?85863_ + _phi85865_ + _ctx85867_)))) (define gx#core-bind-runtime-reference!__2 - (lambda (_id152954_ _eid152955_ _rebind?152956_ _phi152957_) - (let ((_ctx152959_ (gx#current-expander-context))) + (lambda (_id85869_ _eid85870_ _rebind?85871_ _phi85872_) + (let ((_ctx85874_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id152954_ - _eid152955_ - _rebind?152956_ - _phi152957_ - _ctx152959_)))) + _id85869_ + _eid85870_ + _rebind?85871_ + _phi85872_ + _ctx85874_)))) (define gx#core-bind-runtime-reference! - (lambda _g160328_ - (let ((_g160327_ (##length _g160328_))) - (cond ((##fx= _g160327_ 2) - (apply (lambda (_id152937_ _eid152938_) + (lambda _g88675_ + (let ((_g88674_ (##length _g88675_))) + (cond ((##fx= _g88674_ 2) + (apply (lambda (_id85852_ _eid85853_) (gx#core-bind-runtime-reference!__0 - _id152937_ - _eid152938_)) - _g160328_)) - ((##fx= _g160327_ 3) - (apply (lambda (_id152946_ _eid152947_ _rebind?152948_) + _id85852_ + _eid85853_)) + _g88675_)) + ((##fx= _g88674_ 3) + (apply (lambda (_id85861_ _eid85862_ _rebind?85863_) (gx#core-bind-runtime-reference!__1 - _id152946_ - _eid152947_ - _rebind?152948_)) - _g160328_)) - ((##fx= _g160327_ 4) - (apply (lambda (_id152954_ - _eid152955_ - _rebind?152956_ - _phi152957_) + _id85861_ + _eid85862_ + _rebind?85863_)) + _g88675_)) + ((##fx= _g88674_ 4) + (apply (lambda (_id85869_ + _eid85870_ + _rebind?85871_ + _phi85872_) (gx#core-bind-runtime-reference!__2 - _id152954_ - _eid152955_ - _rebind?152956_ - _phi152957_)) - _g160328_)) - ((##fx= _g160327_ 5) - (apply (lambda (_id152961_ - _eid152962_ - _rebind?152963_ - _phi152964_ - _ctx152965_) + _id85869_ + _eid85870_ + _rebind?85871_ + _phi85872_)) + _g88675_)) + ((##fx= _g88674_ 5) + (apply (lambda (_id85876_ + _eid85877_ + _rebind?85878_ + _phi85879_ + _ctx85880_) (gx#core-bind-runtime-reference!__% - _id152961_ - _eid152962_ - _rebind?152963_ - _phi152964_ - _ctx152965_)) - _g160328_)) + _id85876_ + _eid85877_ + _rebind?85878_ + _phi85879_ + _ctx85880_)) + _g88675_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime-reference! - _g160328_)))))) + _g88675_)))))) (define gx#core-bind-extern!__% - (lambda (_id152883_ _eid152884_ _rebind?152885_ _phi152886_ _ctx152887_) + (lambda (_id85798_ _eid85799_ _rebind?85800_ _phi85801_ _ctx85802_) (gx#bind-identifier!__% - _id152883_ + _id85798_ (##structure gx#extern-binding::t - _eid152884_ - (gx#core-identifier-key _id152883_) - _phi152886_) - _rebind?152885_ - _phi152886_ - _ctx152887_))) + _eid85799_ + (gx#core-identifier-key _id85798_) + _phi85801_) + _rebind?85800_ + _phi85801_ + _ctx85802_))) (define gx#core-bind-extern!__0 - (lambda (_id152892_ _eid152893_) - (let* ((_rebind?152895_ '#f) - (_phi152897_ (gx#current-expander-phi)) - (_ctx152899_ (gx#current-expander-context))) + (lambda (_id85807_ _eid85808_) + (let* ((_rebind?85810_ '#f) + (_phi85812_ (gx#current-expander-phi)) + (_ctx85814_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id152892_ - _eid152893_ - _rebind?152895_ - _phi152897_ - _ctx152899_)))) + _id85807_ + _eid85808_ + _rebind?85810_ + _phi85812_ + _ctx85814_)))) (define gx#core-bind-extern!__1 - (lambda (_id152901_ _eid152902_ _rebind?152903_) - (let* ((_phi152905_ (gx#current-expander-phi)) - (_ctx152907_ (gx#current-expander-context))) + (lambda (_id85816_ _eid85817_ _rebind?85818_) + (let* ((_phi85820_ (gx#current-expander-phi)) + (_ctx85822_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id152901_ - _eid152902_ - _rebind?152903_ - _phi152905_ - _ctx152907_)))) + _id85816_ + _eid85817_ + _rebind?85818_ + _phi85820_ + _ctx85822_)))) (define gx#core-bind-extern!__2 - (lambda (_id152909_ _eid152910_ _rebind?152911_ _phi152912_) - (let ((_ctx152914_ (gx#current-expander-context))) + (lambda (_id85824_ _eid85825_ _rebind?85826_ _phi85827_) + (let ((_ctx85829_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id152909_ - _eid152910_ - _rebind?152911_ - _phi152912_ - _ctx152914_)))) + _id85824_ + _eid85825_ + _rebind?85826_ + _phi85827_ + _ctx85829_)))) (define gx#core-bind-extern! - (lambda _g160330_ - (let ((_g160329_ (##length _g160330_))) - (cond ((##fx= _g160329_ 2) - (apply (lambda (_id152892_ _eid152893_) - (gx#core-bind-extern!__0 _id152892_ _eid152893_)) - _g160330_)) - ((##fx= _g160329_ 3) - (apply (lambda (_id152901_ _eid152902_ _rebind?152903_) + (lambda _g88677_ + (let ((_g88676_ (##length _g88677_))) + (cond ((##fx= _g88676_ 2) + (apply (lambda (_id85807_ _eid85808_) + (gx#core-bind-extern!__0 _id85807_ _eid85808_)) + _g88677_)) + ((##fx= _g88676_ 3) + (apply (lambda (_id85816_ _eid85817_ _rebind?85818_) (gx#core-bind-extern!__1 - _id152901_ - _eid152902_ - _rebind?152903_)) - _g160330_)) - ((##fx= _g160329_ 4) - (apply (lambda (_id152909_ - _eid152910_ - _rebind?152911_ - _phi152912_) + _id85816_ + _eid85817_ + _rebind?85818_)) + _g88677_)) + ((##fx= _g88676_ 4) + (apply (lambda (_id85824_ + _eid85825_ + _rebind?85826_ + _phi85827_) (gx#core-bind-extern!__2 - _id152909_ - _eid152910_ - _rebind?152911_ - _phi152912_)) - _g160330_)) - ((##fx= _g160329_ 5) - (apply (lambda (_id152916_ - _eid152917_ - _rebind?152918_ - _phi152919_ - _ctx152920_) + _id85824_ + _eid85825_ + _rebind?85826_ + _phi85827_)) + _g88677_)) + ((##fx= _g88676_ 5) + (apply (lambda (_id85831_ + _eid85832_ + _rebind?85833_ + _phi85834_ + _ctx85835_) (gx#core-bind-extern!__% - _id152916_ - _eid152917_ - _rebind?152918_ - _phi152919_ - _ctx152920_)) - _g160330_)) + _id85831_ + _eid85832_ + _rebind?85833_ + _phi85834_ + _ctx85835_)) + _g88677_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-extern! - _g160330_)))))) + _g88677_)))))) (define gx#core-bind-syntax!__% - (lambda (_id152837_ _e152838_ _rebind?152839_ _phi152840_ _ctx152841_) + (lambda (_id85752_ _e85753_ _rebind?85754_ _phi85755_ _ctx85756_) (gx#bind-identifier!__% - _id152837_ - (let ((_key152846_ (gx#core-identifier-key _id152837_)) - (_e152847_ - (if (or (##structure-instance-of? _e152838_ 'gx#expander::t) + _id85752_ + (let ((_key85761_ (gx#core-identifier-key _id85752_)) + (_e85762_ + (if (or (##structure-instance-of? _e85753_ 'gx#expander::t) (##structure-instance-of? - _e152838_ + _e85753_ 'gx#expander-context::t)) - _e152838_ + _e85753_ (##structure gx#user-expander::t - _e152838_ - _ctx152841_ - _phi152840_)))) + _e85753_ + _ctx85756_ + _phi85755_)))) (##structure gx#syntax-binding::t - (gx#make-binding-id__% _key152846_ '#t _phi152840_ _ctx152841_) - _key152846_ - _phi152840_ - _e152847_)) - _rebind?152839_ - _phi152840_ - _ctx152841_))) + (gx#make-binding-id__% _key85761_ '#t _phi85755_ _ctx85756_) + _key85761_ + _phi85755_ + _e85762_)) + _rebind?85754_ + _phi85755_ + _ctx85756_))) (define gx#core-bind-syntax!__0 - (lambda (_id152852_ _e152853_) - (let* ((_rebind?152855_ '#f) - (_phi152857_ (gx#current-expander-phi)) - (_ctx152859_ (gx#current-expander-context))) + (lambda (_id85767_ _e85768_) + (let* ((_rebind?85770_ '#f) + (_phi85772_ (gx#current-expander-phi)) + (_ctx85774_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id152852_ - _e152853_ - _rebind?152855_ - _phi152857_ - _ctx152859_)))) + _id85767_ + _e85768_ + _rebind?85770_ + _phi85772_ + _ctx85774_)))) (define gx#core-bind-syntax!__1 - (lambda (_id152861_ _e152862_ _rebind?152863_) - (let* ((_phi152865_ (gx#current-expander-phi)) - (_ctx152867_ (gx#current-expander-context))) + (lambda (_id85776_ _e85777_ _rebind?85778_) + (let* ((_phi85780_ (gx#current-expander-phi)) + (_ctx85782_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id152861_ - _e152862_ - _rebind?152863_ - _phi152865_ - _ctx152867_)))) + _id85776_ + _e85777_ + _rebind?85778_ + _phi85780_ + _ctx85782_)))) (define gx#core-bind-syntax!__2 - (lambda (_id152869_ _e152870_ _rebind?152871_ _phi152872_) - (let ((_ctx152874_ (gx#current-expander-context))) + (lambda (_id85784_ _e85785_ _rebind?85786_ _phi85787_) + (let ((_ctx85789_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id152869_ - _e152870_ - _rebind?152871_ - _phi152872_ - _ctx152874_)))) + _id85784_ + _e85785_ + _rebind?85786_ + _phi85787_ + _ctx85789_)))) (define gx#core-bind-syntax! - (lambda _g160332_ - (let ((_g160331_ (##length _g160332_))) - (cond ((##fx= _g160331_ 2) - (apply (lambda (_id152852_ _e152853_) - (gx#core-bind-syntax!__0 _id152852_ _e152853_)) - _g160332_)) - ((##fx= _g160331_ 3) - (apply (lambda (_id152861_ _e152862_ _rebind?152863_) + (lambda _g88679_ + (let ((_g88678_ (##length _g88679_))) + (cond ((##fx= _g88678_ 2) + (apply (lambda (_id85767_ _e85768_) + (gx#core-bind-syntax!__0 _id85767_ _e85768_)) + _g88679_)) + ((##fx= _g88678_ 3) + (apply (lambda (_id85776_ _e85777_ _rebind?85778_) (gx#core-bind-syntax!__1 - _id152861_ - _e152862_ - _rebind?152863_)) - _g160332_)) - ((##fx= _g160331_ 4) - (apply (lambda (_id152869_ - _e152870_ - _rebind?152871_ - _phi152872_) + _id85776_ + _e85777_ + _rebind?85778_)) + _g88679_)) + ((##fx= _g88678_ 4) + (apply (lambda (_id85784_ _e85785_ _rebind?85786_ _phi85787_) (gx#core-bind-syntax!__2 - _id152869_ - _e152870_ - _rebind?152871_ - _phi152872_)) - _g160332_)) - ((##fx= _g160331_ 5) - (apply (lambda (_id152876_ - _e152877_ - _rebind?152878_ - _phi152879_ - _ctx152880_) + _id85784_ + _e85785_ + _rebind?85786_ + _phi85787_)) + _g88679_)) + ((##fx= _g88678_ 5) + (apply (lambda (_id85791_ + _e85792_ + _rebind?85793_ + _phi85794_ + _ctx85795_) (gx#core-bind-syntax!__% - _id152876_ - _e152877_ - _rebind?152878_ - _phi152879_ - _ctx152880_)) - _g160332_)) + _id85791_ + _e85792_ + _rebind?85793_ + _phi85794_ + _ctx85795_)) + _g88679_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-syntax! - _g160332_)))))) + _g88679_)))))) (define gx#core-bind-root-syntax!__% - (lambda (_id152820_ _e152821_ _rebind?152822_) + (lambda (_id85735_ _e85736_ _rebind?85737_) (gx#core-bind-syntax!__% - _id152820_ - _e152821_ - _rebind?152822_ + _id85735_ + _e85736_ + _rebind?85737_ '0 (gx#core-context-root__0)))) (define gx#core-bind-root-syntax!__0 - (lambda (_id152827_ _e152828_) - (let ((_rebind?152830_ '#f)) - (gx#core-bind-root-syntax!__% - _id152827_ - _e152828_ - _rebind?152830_)))) + (lambda (_id85742_ _e85743_) + (let ((_rebind?85745_ '#f)) + (gx#core-bind-root-syntax!__% _id85742_ _e85743_ _rebind?85745_)))) (define gx#core-bind-root-syntax! - (lambda _g160334_ - (let ((_g160333_ (##length _g160334_))) - (cond ((##fx= _g160333_ 2) - (apply (lambda (_id152827_ _e152828_) - (gx#core-bind-root-syntax!__0 _id152827_ _e152828_)) - _g160334_)) - ((##fx= _g160333_ 3) - (apply (lambda (_id152832_ _e152833_ _rebind?152834_) + (lambda _g88681_ + (let ((_g88680_ (##length _g88681_))) + (cond ((##fx= _g88680_ 2) + (apply (lambda (_id85742_ _e85743_) + (gx#core-bind-root-syntax!__0 _id85742_ _e85743_)) + _g88681_)) + ((##fx= _g88680_ 3) + (apply (lambda (_id85747_ _e85748_ _rebind?85749_) (gx#core-bind-root-syntax!__% - _id152832_ - _e152833_ - _rebind?152834_)) - _g160334_)) + _id85747_ + _e85748_ + _rebind?85749_)) + _g88681_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-root-syntax! - _g160334_)))))) + _g88681_)))))) (define gx#core-bind-alias!__% - (lambda (_id152778_ - _alias-id152779_ - _rebind?152780_ - _phi152781_ - _ctx152782_) + (lambda (_id85693_ _alias-id85694_ _rebind?85695_ _phi85696_ _ctx85697_) (gx#bind-identifier!__% - _id152778_ - (let ((_key152784_ (gx#core-identifier-key _id152778_))) + _id85693_ + (let ((_key85699_ (gx#core-identifier-key _id85693_))) (##structure gx#alias-binding::t - (gx#make-binding-id__% _key152784_ '#t _phi152781_ _ctx152782_) - _key152784_ - _phi152781_ - _alias-id152779_)) - _rebind?152780_ - _phi152781_ - _ctx152782_))) + (gx#make-binding-id__% _key85699_ '#t _phi85696_ _ctx85697_) + _key85699_ + _phi85696_ + _alias-id85694_)) + _rebind?85695_ + _phi85696_ + _ctx85697_))) (define gx#core-bind-alias!__0 - (lambda (_id152789_ _alias-id152790_) - (let* ((_rebind?152792_ '#f) - (_phi152794_ (gx#current-expander-phi)) - (_ctx152796_ (gx#current-expander-context))) + (lambda (_id85704_ _alias-id85705_) + (let* ((_rebind?85707_ '#f) + (_phi85709_ (gx#current-expander-phi)) + (_ctx85711_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id152789_ - _alias-id152790_ - _rebind?152792_ - _phi152794_ - _ctx152796_)))) + _id85704_ + _alias-id85705_ + _rebind?85707_ + _phi85709_ + _ctx85711_)))) (define gx#core-bind-alias!__1 - (lambda (_id152798_ _alias-id152799_ _rebind?152800_) - (let* ((_phi152802_ (gx#current-expander-phi)) - (_ctx152804_ (gx#current-expander-context))) + (lambda (_id85713_ _alias-id85714_ _rebind?85715_) + (let* ((_phi85717_ (gx#current-expander-phi)) + (_ctx85719_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id152798_ - _alias-id152799_ - _rebind?152800_ - _phi152802_ - _ctx152804_)))) + _id85713_ + _alias-id85714_ + _rebind?85715_ + _phi85717_ + _ctx85719_)))) (define gx#core-bind-alias!__2 - (lambda (_id152806_ _alias-id152807_ _rebind?152808_ _phi152809_) - (let ((_ctx152811_ (gx#current-expander-context))) + (lambda (_id85721_ _alias-id85722_ _rebind?85723_ _phi85724_) + (let ((_ctx85726_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id152806_ - _alias-id152807_ - _rebind?152808_ - _phi152809_ - _ctx152811_)))) + _id85721_ + _alias-id85722_ + _rebind?85723_ + _phi85724_ + _ctx85726_)))) (define gx#core-bind-alias! - (lambda _g160336_ - (let ((_g160335_ (##length _g160336_))) - (cond ((##fx= _g160335_ 2) - (apply (lambda (_id152789_ _alias-id152790_) - (gx#core-bind-alias!__0 _id152789_ _alias-id152790_)) - _g160336_)) - ((##fx= _g160335_ 3) - (apply (lambda (_id152798_ _alias-id152799_ _rebind?152800_) + (lambda _g88683_ + (let ((_g88682_ (##length _g88683_))) + (cond ((##fx= _g88682_ 2) + (apply (lambda (_id85704_ _alias-id85705_) + (gx#core-bind-alias!__0 _id85704_ _alias-id85705_)) + _g88683_)) + ((##fx= _g88682_ 3) + (apply (lambda (_id85713_ _alias-id85714_ _rebind?85715_) (gx#core-bind-alias!__1 - _id152798_ - _alias-id152799_ - _rebind?152800_)) - _g160336_)) - ((##fx= _g160335_ 4) - (apply (lambda (_id152806_ - _alias-id152807_ - _rebind?152808_ - _phi152809_) + _id85713_ + _alias-id85714_ + _rebind?85715_)) + _g88683_)) + ((##fx= _g88682_ 4) + (apply (lambda (_id85721_ + _alias-id85722_ + _rebind?85723_ + _phi85724_) (gx#core-bind-alias!__2 - _id152806_ - _alias-id152807_ - _rebind?152808_ - _phi152809_)) - _g160336_)) - ((##fx= _g160335_ 5) - (apply (lambda (_id152813_ - _alias-id152814_ - _rebind?152815_ - _phi152816_ - _ctx152817_) + _id85721_ + _alias-id85722_ + _rebind?85723_ + _phi85724_)) + _g88683_)) + ((##fx= _g88682_ 5) + (apply (lambda (_id85728_ + _alias-id85729_ + _rebind?85730_ + _phi85731_ + _ctx85732_) (gx#core-bind-alias!__% - _id152813_ - _alias-id152814_ - _rebind?152815_ - _phi152816_ - _ctx152817_)) - _g160336_)) + _id85728_ + _alias-id85729_ + _rebind?85730_ + _phi85731_ + _ctx85732_)) + _g88683_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-alias! - _g160336_)))))) + _g88683_)))))) (define gx#make-binding-id__% - (lambda (_key152735_ _syntax?152736_ _phi152737_ _ctx152738_) - (if (uninterned-symbol? _key152735_) + (lambda (_key85650_ _syntax?85651_ _phi85652_ _ctx85653_) + (if (uninterned-symbol? _key85650_) (gensym 'L) - (if (pair? _key152735_) - (gensym (car _key152735_)) - (if (##structure-instance-of? _ctx152738_ 'gx#top-context::t) - (let ((_ns152740_ - (gx#core-context-namespace__% _ctx152738_))) - (if (and (fxzero? _phi152737_) (not _syntax?152736_)) - (if _ns152740_ - (make-symbol__1 _ns152740_ '"#" _key152735_) - _key152735_) - (if _syntax?152736_ + (if (pair? _key85650_) + (gensym (car _key85650_)) + (if (##structure-instance-of? _ctx85653_ 'gx#top-context::t) + (let ((_ns85655_ + (gx#core-context-namespace__% _ctx85653_))) + (if (and (fxzero? _phi85652_) (not _syntax?85651_)) + (if _ns85655_ + (make-symbol__1 _ns85655_ '"#" _key85650_) + _key85650_) + (if _syntax?85651_ (make-symbol__1 - (let ((_$e152742_ _ns152740_)) - (if _$e152742_ _$e152742_ '"")) + (let ((_$e85657_ _ns85655_)) + (if _$e85657_ _$e85657_ '"")) '"[:" - (number->string _phi152737_) + (number->string _phi85652_) '":]#" - _key152735_) + _key85650_) (make-symbol__1 - (let ((_$e152745_ _ns152740_)) - (if _$e152745_ _$e152745_ '"")) + (let ((_$e85660_ _ns85655_)) + (if _$e85660_ _$e85660_ '"")) '"[" - (number->string _phi152737_) + (number->string _phi85652_) '"]#" - _key152735_)))) - (gensym _key152735_)))))) + _key85650_)))) + (gensym _key85650_)))))) (define gx#make-binding-id__0 - (lambda (_key152751_) - (let* ((_syntax?152753_ '#f) - (_phi152755_ (gx#current-expander-phi)) - (_ctx152757_ (gx#current-expander-context))) + (lambda (_key85666_) + (let* ((_syntax?85668_ '#f) + (_phi85670_ (gx#current-expander-phi)) + (_ctx85672_ (gx#current-expander-context))) (gx#make-binding-id__% - _key152751_ - _syntax?152753_ - _phi152755_ - _ctx152757_)))) + _key85666_ + _syntax?85668_ + _phi85670_ + _ctx85672_)))) (define gx#make-binding-id__1 - (lambda (_key152759_ _syntax?152760_) - (let* ((_phi152762_ (gx#current-expander-phi)) - (_ctx152764_ (gx#current-expander-context))) + (lambda (_key85674_ _syntax?85675_) + (let* ((_phi85677_ (gx#current-expander-phi)) + (_ctx85679_ (gx#current-expander-context))) (gx#make-binding-id__% - _key152759_ - _syntax?152760_ - _phi152762_ - _ctx152764_)))) + _key85674_ + _syntax?85675_ + _phi85677_ + _ctx85679_)))) (define gx#make-binding-id__2 - (lambda (_key152766_ _syntax?152767_ _phi152768_) - (let ((_ctx152770_ (gx#current-expander-context))) + (lambda (_key85681_ _syntax?85682_ _phi85683_) + (let ((_ctx85685_ (gx#current-expander-context))) (gx#make-binding-id__% - _key152766_ - _syntax?152767_ - _phi152768_ - _ctx152770_)))) + _key85681_ + _syntax?85682_ + _phi85683_ + _ctx85685_)))) (define gx#make-binding-id - (lambda _g160338_ - (let ((_g160337_ (##length _g160338_))) - (cond ((##fx= _g160337_ 1) - (apply (lambda (_key152751_) - (gx#make-binding-id__0 _key152751_)) - _g160338_)) - ((##fx= _g160337_ 2) - (apply (lambda (_key152759_ _syntax?152760_) - (gx#make-binding-id__1 _key152759_ _syntax?152760_)) - _g160338_)) - ((##fx= _g160337_ 3) - (apply (lambda (_key152766_ _syntax?152767_ _phi152768_) + (lambda _g88685_ + (let ((_g88684_ (##length _g88685_))) + (cond ((##fx= _g88684_ 1) + (apply (lambda (_key85666_) + (gx#make-binding-id__0 _key85666_)) + _g88685_)) + ((##fx= _g88684_ 2) + (apply (lambda (_key85674_ _syntax?85675_) + (gx#make-binding-id__1 _key85674_ _syntax?85675_)) + _g88685_)) + ((##fx= _g88684_ 3) + (apply (lambda (_key85681_ _syntax?85682_ _phi85683_) (gx#make-binding-id__2 - _key152766_ - _syntax?152767_ - _phi152768_)) - _g160338_)) - ((##fx= _g160337_ 4) - (apply (lambda (_key152772_ - _syntax?152773_ - _phi152774_ - _ctx152775_) + _key85681_ + _syntax?85682_ + _phi85683_)) + _g88685_)) + ((##fx= _g88684_ 4) + (apply (lambda (_key85687_ + _syntax?85688_ + _phi85689_ + _ctx85690_) (gx#make-binding-id__% - _key152772_ - _syntax?152773_ - _phi152774_ - _ctx152775_)) - _g160338_)) + _key85687_ + _syntax?85688_ + _phi85689_ + _ctx85690_)) + _g88685_)) (else (##raise-wrong-number-of-arguments-exception gx#make-binding-id - _g160338_)))))))) + _g88685_)))))))) diff --git a/src/bootstrap/gerbil/runtime.ssi b/src/bootstrap/gerbil/runtime.ssi index 66eebcf1a..1e345b7f5 100644 --- a/src/bootstrap/gerbil/runtime.ssi +++ b/src/bootstrap/gerbil/runtime.ssi @@ -4,28 +4,35 @@ namespace: gerbil/runtime (%#begin (%#provide gerbil-runtime) (%#import - :gerbil/runtime/system :gerbil/runtime/util - :gerbil/runtime/loader + :gerbil/runtime/table :gerbil/runtime/control + :gerbil/runtime/system :gerbil/runtime/c3 :gerbil/runtime/mop :gerbil/runtime/error + :gerbil/runtime/interface + :gerbil/runtime/hash :gerbil/runtime/thread :gerbil/runtime/syntax :gerbil/runtime/eval :gerbil/runtime/repl + :gerbil/runtime/loader :gerbil/runtime/init) (%#export - (import: :gerbil/runtime/system) (import: :gerbil/runtime/util) - (import: :gerbil/runtime/loader) + (import: :gerbil/runtime/table) (import: :gerbil/runtime/control) + (import: :gerbil/runtime/system) (import: :gerbil/runtime/c3) (import: :gerbil/runtime/mop) (import: :gerbil/runtime/error) + (import: :gerbil/runtime/interface) + (import: :gerbil/runtime/hash) + (import: :gerbil/runtime/thread) (import: :gerbil/runtime/syntax) (import: :gerbil/runtime/eval) (import: :gerbil/runtime/repl) + (import: :gerbil/runtime/loader) (import: :gerbil/runtime/init))) (%#call (%#ref load-module) (%#quote "gerbil/runtime__0")) diff --git a/src/bootstrap/gerbil/runtime/c3.ssxi.ss b/src/bootstrap/gerbil/runtime/c3.ssxi.ss index c7663f868..5bb521ddb 100644 --- a/src/bootstrap/gerbil/runtime/c3.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/c3.ssxi.ss @@ -3,11 +3,7 @@ package: gerbil/runtime (begin (declare-type c4-linearize__% (@lambda 7 #f)) - (declare-type - c4-linearize__@ - (@kw-lambda-dispatch - (get-precedence-list: struct: eq: get-name:) - c4-linearize__%)) + (declare-type c4-linearize__@ (@lambda (1) #f)) (declare-type c4-linearize (@kw-lambda (get-name: struct: get-precedence-list: eq:) c4-linearize__@))) diff --git a/src/bootstrap/gerbil/runtime/c3__0.scm b/src/bootstrap/gerbil/runtime/c3__0.scm index 9f42e44bc..eea836750 100644 --- a/src/bootstrap/gerbil/runtime/c3__0.scm +++ b/src/bootstrap/gerbil/runtime/c3__0.scm @@ -1,541 +1,549 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/c3::timestamp 1708102801) + (define gerbil/runtime/c3::timestamp 1708370113) (begin (define c4-linearize__% - (lambda (_g83841_ - _get-precedence-list7894078946_ - _struct?7894178948_ - _eq7894278950_ - _get-name7894378952_ - _rhead78954_ - _supers78955_) - (let* ((_get-precedence-list78957_ + (lambda (_g61303_ + _get-precedence-list6097060976_ + _struct?6097160978_ + _eq6097260980_ + _get-name6097360982_ + _rhead60984_ + _supers60985_) + (let* ((_get-precedence-list60987_ (if (let () (declare (not safe)) - (eq? _get-precedence-list7894078946_ absent-value)) - (error '"Missing required keyword argument" - 'get-precedence-list:) - _get-precedence-list7894078946_)) - (_struct?78959_ + (eq? _get-precedence-list6097060976_ absent-value)) + (let () + (declare (not safe)) + (error '"Missing required keyword argument" + 'get-precedence-list:)) + _get-precedence-list6097060976_)) + (_struct?60989_ (if (let () (declare (not safe)) - (eq? _struct?7894178948_ absent-value)) - (error '"Missing required keyword argument" 'struct:) - _struct?7894178948_)) - (_eq78961_ + (eq? _struct?6097160978_ absent-value)) + (let () + (declare (not safe)) + (error '"Missing required keyword argument" 'struct:)) + _struct?6097160978_)) + (_eq60991_ (if (let () (declare (not safe)) - (eq? _eq7894278950_ absent-value)) + (eq? _eq6097260980_ absent-value)) eq? - _eq7894278950_)) - (_get-name78963_ + _eq6097260980_)) + (_get-name60993_ (if (let () (declare (not safe)) - (eq? _get-name7894378952_ absent-value)) + (eq? _get-name6097360982_ absent-value)) identity - _get-name7894378952_))) - (letrec* ((_pls78965_ (map _get-precedence-list78957_ _supers78955_)) - (_sit78966_ '()) - (_get-names78967_ - (lambda (_lst79231_) (map _get-name78963_ _lst79231_))) - (_err78968_ - (lambda _a79229_ + _get-name6097360982_))) + (letrec* ((_pls60995_ (map _get-precedence-list60987_ _supers60985_)) + (_sit60996_ '()) + (_get-names60997_ + (lambda (_lst61261_) (map _get-name60993_ _lst61261_))) + (_err60998_ + (lambda _a61259_ (apply error '"Inconsistent precedence graph" 'head: - (let ((__tmp83842 (reverse _rhead78954_))) + (let ((__tmp61304 (reverse _rhead60984_))) (declare (not safe)) - (_get-names78967_ __tmp83842)) + (_get-names60997_ __tmp61304)) 'precedence-lists: - (map _get-names78967_ _pls78965_) + (map _get-names60997_ _pls60995_) 'single-inheritance-tail: (let () (declare (not safe)) - (_get-names78967_ _sit78966_)) - _a79229_))) - (_merge-sit!78969_ - (lambda (_sit279219_) - (if (let () (declare (not safe)) (null? _sit279219_)) + (_get-names60997_ _sit60996_)) + _a61259_))) + (_merge-sit!60999_ + (lambda (_sit261249_) + (if (let () (declare (not safe)) (null? _sit261249_)) '#!void - (if (let () (declare (not safe)) (null? _sit78966_)) - (set! _sit78966_ _sit279219_) - (let _loop79221_ ((_t179223_ _sit78966_) - (_t279224_ _sit279219_)) + (if (let () (declare (not safe)) (null? _sit60996_)) + (set! _sit60996_ _sit261249_) + (let _loop61251_ ((_t161253_ _sit60996_) + (_t261254_ _sit261249_)) (if (let () (declare (not safe)) - (equal? _t179223_ _sit279219_)) + (equal? _t161253_ _sit261249_)) '#!void (if (let () (declare (not safe)) - (equal? _t279224_ _sit78966_)) - (set! _sit78966_ _sit279219_) + (equal? _t261254_ _sit60996_)) + (set! _sit60996_ _sit261249_) (if (or (let () (declare (not safe)) - (null? _t179223_)) + (null? _t161253_)) (let () (declare (not safe)) - (null? _t279224_))) - (let ((__tmp83845 - (let ((__tmp83848 + (null? _t261254_))) + (let ((__tmp61307 + (let ((__tmp61310 (let () (declare (not safe)) - (_get-names78967_ - _sit78966_))) - (__tmp83846 - (let ((__tmp83847 + (_get-names60997_ + _sit60996_))) + (__tmp61308 + (let ((__tmp61309 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_get-names78967_ _sit279219_)))) + (_get-names60997_ _sit261249_)))) (declare (not safe)) - (cons __tmp83847 '())))) + (cons __tmp61309 '())))) (declare (not safe)) - (cons __tmp83848 __tmp83846)))) + (cons __tmp61310 __tmp61308)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_err78968_ + (_err60998_ 'single-inheritance-incompatibility: - __tmp83845)) - (let ((__tmp83844 (cdr _t179223_)) - (__tmp83843 - (cdr _t279224_))) + __tmp61307)) + (let ((__tmp61306 (cdr _t161253_)) + (__tmp61305 + (cdr _t261254_))) (declare (not safe)) - (_loop79221_ - __tmp83844 - __tmp83843)))))))))) - (_rpls78970_ - (map (lambda (_pl79214_) - (let ((_g83849_ + (_loop61251_ + __tmp61306 + __tmp61305)))))))))) + (_rpls61000_ + (map (lambda (_pl61244_) + (let ((_g61311_ (let () (declare (not safe)) (append-reverse-until - _struct?78959_ - _pl79214_ + _struct?60989_ + _pl61244_ '())))) (begin - (let ((_g83850_ + (let ((_g61312_ (let () (declare (not safe)) - (if (##values? _g83849_) - (##vector-length _g83849_) + (if (##values? _g61311_) + (##vector-length _g61311_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83850_ 2))) + (##fx= _g61312_ 2))) (error "Context expects 2 values" - _g83850_))) - (let ((_tl79216_ + _g61312_))) + (let ((_tl61246_ (let () (declare (not safe)) - (##vector-ref _g83849_ 0))) - (_rh79217_ + (##vector-ref _g61311_ 0))) + (_rh61247_ (let () (declare (not safe)) - (##vector-ref _g83849_ 1)))) + (##vector-ref _g61311_ 1)))) (begin (let () (declare (not safe)) - (_merge-sit!78969_ _tl79216_)) - _rh79217_))))) - _pls78965_)) - (_unsitr-rpl78971_ - (lambda (_rpl79160_) - (let _u79162_ ((_pl-rhead79164_ _rpl79160_) - (_pl-tail79165_ '()) - (_sit-rhead79166_ (reverse _sit78966_)) - (_sit-tail79167_ '())) - (let* ((_pl-rhead7916879177_ _pl-rhead79164_) - (_E7917179181_ + (_merge-sit!60999_ _tl61246_)) + _rh61247_))))) + _pls60995_)) + (_unsitr-rpl61001_ + (lambda (_rpl61190_) + (let _u61192_ ((_pl-rhead61194_ _rpl61190_) + (_pl-tail61195_ '()) + (_sit-rhead61196_ (reverse _sit60996_)) + (_sit-tail61197_ '())) + (let* ((_pl-rhead6119861207_ _pl-rhead61194_) + (_E6120161211_ (lambda () - (error '"No clause matching" - _pl-rhead7916879177_)))) - (let ((_K7917579211_ (lambda () _pl-tail79165_)) - (_K7917279195_ - (lambda (_plrh79185_ _c79186_) - (if (member _c79186_ - _sit-tail79167_ - _eq78961_) - (let ((__tmp83861 - (let ((__tmp83862 - (reverse _pl-rhead79164_))) + (let () + (declare (not safe)) + (error '"No clause matching" + _pl-rhead6119861207_))))) + (let ((_K6120561241_ (lambda () _pl-tail61195_)) + (_K6120261225_ + (lambda (_plrh61215_ _c61216_) + (if (member _c61216_ + _sit-tail61197_ + _eq60991_) + (let ((__tmp61323 + (let ((__tmp61324 + (reverse _pl-rhead61194_))) (declare (not safe)) - (_get-names78967_ - __tmp83862))) - (__tmp83860 + (_get-names60997_ + __tmp61324))) + (__tmp61322 (let () (declare (not safe)) - (_get-names78967_ - _pl-tail79165_))) - (__tmp83858 - (let ((__tmp83859 - (reverse _sit-rhead79166_))) + (_get-names60997_ + _pl-tail61195_))) + (__tmp61320 + (let ((__tmp61321 + (reverse _sit-rhead61196_))) (declare (not safe)) - (_get-names78967_ - __tmp83859))) - (__tmp83857 + (_get-names60997_ + __tmp61321))) + (__tmp61319 (let () (declare (not safe)) - (_get-names78967_ - _sit-tail79167_))) - (__tmp83856 - (_get-name78963_ _c79186_))) + (_get-names60997_ + _sit-tail61197_))) + (__tmp61318 + (_get-name60993_ _c61216_))) (declare (not safe)) - (_err78968_ + (_err60998_ 'precedence-list-head: - __tmp83861 + __tmp61323 'precedence-list-tail: - __tmp83860 + __tmp61322 'single-inheritance-head: - __tmp83858 + __tmp61320 'single-inheritance-tail: - __tmp83857 + __tmp61319 'super-out-of-order-vs-single-inheritance-tail: - __tmp83856)) - (let ((_g83851_ - (let ((__tmp83853 - (lambda (_g7918779189_) - (_eq78961_ - _c79186_ - _g7918779189_)))) + __tmp61318)) + (let ((_g61313_ + (let ((__tmp61315 + (lambda (_g6121761219_) + (_eq60991_ + _c61216_ + _g6121761219_)))) (declare (not safe)) (append-reverse-until - __tmp83853 - _sit-rhead79166_ - _sit-tail79167_)))) + __tmp61315 + _sit-rhead61196_ + _sit-tail61197_)))) (begin - (let ((_g83852_ + (let ((_g61314_ (let () (declare (not safe)) - (if (##values? _g83851_) + (if (##values? _g61313_) (##vector-length - _g83851_) + _g61313_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83852_ 2))) + (##fx= _g61314_ 2))) (error "Context expects 2 values" - _g83852_))) - (let ((_sit-rh279192_ + _g61314_))) + (let ((_sit-rh261222_ (let () (declare (not safe)) (##vector-ref - _g83851_ + _g61313_ 0))) - (_sit-tl279193_ + (_sit-tl261223_ (let () (declare (not safe)) (##vector-ref - _g83851_ + _g61313_ 1)))) (if (let () (declare (not safe)) - (null? _sit-rh279192_)) - (let ((__tmp83855 + (null? _sit-rh261222_)) + (let ((__tmp61317 (let () (declare (not safe)) - (cons _c79186_ + (cons _c61216_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pl-tail79165_)))) + _pl-tail61195_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_u79162_ - _plrh79185_ - __tmp83855 + (_u61192_ + _plrh61215_ + __tmp61317 '() - _sit-tl279193_)) - (let ((__tmp83854 - (cdr _sit-rh279192_))) + _sit-tl261223_)) + (let ((__tmp61316 + (cdr _sit-rh261222_))) (declare (not safe)) - (_u79162_ - _plrh79185_ - _pl-tail79165_ - __tmp83854 - _sit-tl279193_)))))))))) - (let ((_try-match7917079207_ + (_u61192_ + _plrh61215_ + _pl-tail61195_ + __tmp61316 + _sit-tl261223_)))))))))) + (let ((_try-match6120061237_ (lambda () (if (let () (declare (not safe)) - (##pair? _pl-rhead7916879177_)) - (let ((_tl7917479200_ + (##pair? _pl-rhead6119861207_)) + (let ((_tl6120461230_ (let () (declare (not safe)) - (##cdr _pl-rhead7916879177_))) - (_hd7917379198_ + (##cdr _pl-rhead6119861207_))) + (_hd6120361228_ (let () (declare (not safe)) - (##car _pl-rhead7916879177_)))) - (let ((_c79203_ _hd7917379198_) - (_plrh79205_ _tl7917479200_)) + (##car _pl-rhead6119861207_)))) + (let ((_c61233_ _hd6120361228_) + (_plrh61235_ _tl6120461230_)) (let () (declare (not safe)) - (_K7917279195_ - _plrh79205_ - _c79203_)))) + (_K6120261225_ + _plrh61235_ + _c61233_)))) (let () (declare (not safe)) - (_E7917179181_)))))) + (_E6120161211_)))))) (if (let () (declare (not safe)) - (##null? _pl-rhead7916879177_)) + (##null? _pl-rhead6119861207_)) (let () (declare (not safe)) - (_K7917579211_)) + (_K6120561241_)) (let () (declare (not safe)) - (_try-match7917079207_))))))))) - (_g83863_ - (let ((_g83864_ - (let ((__tmp83866 (reverse _supers78955_))) + (_try-match6120061237_))))))))) + (_g61325_ + (let ((_g61326_ + (let ((__tmp61328 (reverse _supers60985_))) (declare (not safe)) - (append1! _rpls78970_ __tmp83866)))) + (append1! _rpls61000_ __tmp61328)))) #!void - _g83864_)) - (_g83867_ - (let ((_g83868_ - (set! _pls78965_ - (map _unsitr-rpl78971_ _rpls78970_)))) + _g61326_)) + (_g61329_ + (let ((_g61330_ + (set! _pls60995_ + (map _unsitr-rpl61001_ _rpls61000_)))) #!void - _g83868_)) - (_c3-select-next78972_ - (lambda (_tails79110_) - (let ((_candidate?79116_ - (lambda (_c79112_) - (let ((__tmp83870 - (lambda (_tail79114_) - (let ((__tmp83871 - (member _c79112_ - (cdr _tail79114_) - _eq78961_))) + _g61330_)) + (_c3-select-next61002_ + (lambda (_tails61140_) + (let ((_candidate?61146_ + (lambda (_c61142_) + (let ((__tmp61332 + (lambda (_tail61144_) + (let ((__tmp61333 + (member _c61142_ + (cdr _tail61144_) + _eq60991_))) (declare (not safe)) - (not __tmp83871))))) + (not __tmp61333))))) (declare (not safe)) - (andmap1 __tmp83870 _tails79110_))))) - (let _loop79118_ ((_ts79120_ _tails79110_)) - (let* ((_ts7912179131_ _ts79120_) - (_else7912379139_ + (andmap1 __tmp61332 _tails61140_))))) + (let _loop61148_ ((_ts61150_ _tails61140_)) + (let* ((_ts6115161161_ _ts61150_) + (_else6115361169_ (lambda () (let () (declare (not safe)) - (_err78968_)))) - (_K7912579145_ - (lambda (_rts79142_ _c79143_) + (_err60998_)))) + (_K6115561175_ + (lambda (_rts61172_ _c61173_) (if (let () (declare (not safe)) - (_candidate?79116_ _c79143_)) - _c79143_ + (_candidate?61146_ _c61173_)) + _c61173_ (let () (declare (not safe)) - (_loop79118_ _rts79142_)))))) + (_loop61148_ _rts61172_)))))) (if (let () (declare (not safe)) - (##pair? _ts7912179131_)) - (let ((_hd7912679148_ + (##pair? _ts6115161161_)) + (let ((_hd6115661178_ (let () (declare (not safe)) - (##car _ts7912179131_))) - (_tl7912779150_ + (##car _ts6115161161_))) + (_tl6115761180_ (let () (declare (not safe)) - (##cdr _ts7912179131_)))) + (##cdr _ts6115161161_)))) (if (let () (declare (not safe)) - (##pair? _hd7912679148_)) - (let* ((_hd7912879153_ + (##pair? _hd6115661178_)) + (let* ((_hd6115861183_ (let () (declare (not safe)) - (##car _hd7912679148_))) - (_c79156_ _hd7912879153_) - (_rts79158_ _tl7912779150_)) + (##car _hd6115661178_))) + (_c61186_ _hd6115861183_) + (_rts61188_ _tl6115761180_)) (declare (not safe)) - (_K7912579145_ _rts79158_ _c79156_)) + (_K6115561175_ _rts61188_ _c61186_)) (let () (declare (not safe)) - (_err78968_)))) + (_err60998_)))) (let () (declare (not safe)) - (_err78968_)))))))) - (_remove-next!78973_ - (lambda (_next79055_ _tails79056_) - (let _loop79058_ ((_t79060_ _tails79056_)) - (let* ((_t7906179072_ _t79060_) - (_E7906479076_ + (_err60998_)))))))) + (_remove-next!61003_ + (lambda (_next61085_ _tails61086_) + (let _loop61088_ ((_t61090_ _tails61086_)) + (let* ((_t6109161102_ _t61090_) + (_E6109461106_ (lambda () - (error '"No clause matching" - _t7906179072_)))) - (let ((_K7907079107_ (lambda () _tails79056_)) - (_K7906579084_ - (lambda (_more79080_ _tail79081_ _head79082_) - (if (_eq78961_ _head79082_ _next79055_) - (set-car! _t79060_ _tail79081_) + (let () + (declare (not safe)) + (error '"No clause matching" + _t6109161102_))))) + (let ((_K6110061137_ (lambda () _tails61086_)) + (_K6109561114_ + (lambda (_more61110_ _tail61111_ _head61112_) + (if (_eq60991_ _head61112_ _next61085_) + (set-car! _t61090_ _tail61111_) '#!void) (let () (declare (not safe)) - (_loop79058_ _more79080_))))) - (let ((_try-match7906379103_ + (_loop61088_ _more61110_))))) + (let ((_try-match6109361133_ (lambda () (if (let () (declare (not safe)) - (##pair? _t7906179072_)) - (let ((_tl7906779089_ + (##pair? _t6109161102_)) + (let ((_tl6109761119_ (let () (declare (not safe)) - (##cdr _t7906179072_))) - (_hd7906679087_ + (##cdr _t6109161102_))) + (_hd6109661117_ (let () (declare (not safe)) - (##car _t7906179072_)))) + (##car _t6109161102_)))) (if (let () (declare (not safe)) - (##pair? _hd7906679087_)) - (let ((_tl7906979094_ + (##pair? _hd6109661117_)) + (let ((_tl6109961124_ (let () (declare (not safe)) - (##cdr _hd7906679087_))) - (_hd7906879092_ + (##cdr _hd6109661117_))) + (_hd6109861122_ (let () (declare (not safe)) - (##car _hd7906679087_)))) - (let ((_head79097_ - _hd7906879092_) - (_tail79099_ - _tl7906979094_) - (_more79101_ - _tl7906779089_)) + (##car _hd6109661117_)))) + (let ((_head61127_ + _hd6109861122_) + (_tail61129_ + _tl6109961124_) + (_more61131_ + _tl6109761119_)) (let () (declare (not safe)) - (_K7906579084_ - _more79101_ - _tail79099_ - _head79097_)))) + (_K6109561114_ + _more61131_ + _tail61129_ + _head61127_)))) (let () (declare (not safe)) - (_E7906479076_)))) + (_E6109461106_)))) (let () (declare (not safe)) - (_E7906479076_)))))) + (_E6109461106_)))))) (if (let () (declare (not safe)) - (##null? _t7906179072_)) + (##null? _t6109161102_)) (let () (declare (not safe)) - (_K7907079107_)) + (_K6110061137_)) (let () (declare (not safe)) - (_try-match7906379103_))))))))) - (_precedence-list78974_ - (let _c3loop79005_ ((_rhead79007_ _rhead78954_) - (_tails79008_ _pls78965_)) - (let* ((_tails79010_ + (_try-match6109361133_))))))))) + (_precedence-list61004_ + (let _c3loop61035_ ((_rhead61037_ _rhead60984_) + (_tails61038_ _pls60995_)) + (let* ((_tails61040_ (let () (declare (not safe)) - (remove-nulls! _tails79008_))) - (_tails7901179021_ _tails79010_) - (_else7901479032_ + (remove-nulls! _tails61038_))) + (_tails6104161051_ _tails61040_) + (_else6104461062_ (lambda () - (let ((_next79029_ + (let ((_next61059_ (let () (declare (not safe)) - (_c3-select-next78972_ - _tails79010_)))) - (let ((__tmp83873 + (_c3-select-next61002_ + _tails61040_)))) + (let ((__tmp61335 (let () (declare (not safe)) - (cons _next79029_ _rhead79007_))) - (__tmp83872 + (cons _next61059_ _rhead61037_))) + (__tmp61334 (let () (declare (not safe)) - (_remove-next!78973_ - _next79029_ - _tails79010_)))) + (_remove-next!61003_ + _next61059_ + _tails61040_)))) (declare (not safe)) - (_c3loop79005_ __tmp83873 __tmp83872)))))) - (let ((_K7901979052_ + (_c3loop61035_ __tmp61335 __tmp61334)))))) + (let ((_K6104961082_ (lambda () (let () (declare (not safe)) - (append-reverse _rhead79007_ _sit78966_)))) - (_K7901679038_ - (lambda (_tail79036_) - (let ((__tmp83874 - (append _tail79036_ _sit78966_))) + (append-reverse _rhead61037_ _sit60996_)))) + (_K6104661068_ + (lambda (_tail61066_) + (let ((__tmp61336 + (append _tail61066_ _sit60996_))) (declare (not safe)) (append-reverse - _rhead79007_ - __tmp83874))))) - (let ((_try-match7901379048_ + _rhead61037_ + __tmp61336))))) + (let ((_try-match6104361078_ (lambda () (if (let () (declare (not safe)) - (##pair? _tails7901179021_)) - (let ((_tl7901879043_ + (##pair? _tails6104161051_)) + (let ((_tl6104861073_ (let () (declare (not safe)) - (##cdr _tails7901179021_))) - (_hd7901779041_ + (##cdr _tails6104161051_))) + (_hd6104761071_ (let () (declare (not safe)) - (##car _tails7901179021_)))) + (##car _tails6104161051_)))) (if (let () (declare (not safe)) - (##null? _tl7901879043_)) - (let ((_tail79046_ - _hd7901779041_)) + (##null? _tl6104861073_)) + (let ((_tail61076_ + _hd6104761071_)) (declare (not safe)) - (_K7901679038_ _tail79046_)) + (_K6104661068_ _tail61076_)) (let () (declare (not safe)) - (_else7901479032_)))) + (_else6104461062_)))) (let () (declare (not safe)) - (_else7901479032_)))))) + (_else6104461062_)))))) (if (let () (declare (not safe)) - (##null? _tails7901179021_)) - (let () (declare (not safe)) (_K7901979052_)) + (##null? _tails6104161051_)) + (let () (declare (not safe)) (_K6104961082_)) (let () (declare (not safe)) - (_try-match7901379048_)))))))) - (_super-struct78975_ - (let* ((_sit7897678984_ _sit78966_) - (_else7897878992_ (lambda () '#f)) - (_K7898078997_ (lambda (_s78995_) _s78995_))) + (_try-match6104361078_)))))))) + (_super-struct61005_ + (let* ((_sit6100661014_ _sit60996_) + (_else6100861022_ (lambda () '#f)) + (_K6101061027_ (lambda (_s61025_) _s61025_))) (if (let () (declare (not safe)) - (##pair? _sit7897678984_)) - (let* ((_hd7898179000_ + (##pair? _sit6100661014_)) + (let* ((_hd6101161030_ (let () (declare (not safe)) - (##car _sit7897678984_))) - (_s79003_ _hd7898179000_)) + (##car _sit6100661014_))) + (_s61033_ _hd6101161030_)) (declare (not safe)) - (_K7898078997_ _s79003_)) - (let () (declare (not safe)) (_else7897878992_)))))) - (values _precedence-list78974_ _super-struct78975_))))) + (_K6101061027_ _s61033_)) + (let () (declare (not safe)) (_else6100861022_)))))) + (values _precedence-list61004_ _super-struct61005_))))) (define c4-linearize__@ - (lambda (_keys7893979236_ . _args79238_) + (lambda (_keys6096961266_ . _args61268_) (apply c4-linearize__% - _keys7893979236_ + _keys6096961266_ (let () (declare (not safe)) - (table-ref - _keys7893979236_ + (symbolic-table-ref + _keys6096961266_ 'get-precedence-list: absent-value)) (let () (declare (not safe)) - (table-ref _keys7893979236_ 'struct: absent-value)) + (symbolic-table-ref _keys6096961266_ 'struct: absent-value)) (let () (declare (not safe)) - (table-ref _keys7893979236_ 'eq: absent-value)) + (symbolic-table-ref _keys6096961266_ 'eq: absent-value)) (let () (declare (not safe)) - (table-ref _keys7893979236_ 'get-name: absent-value)) - _args79238_))) + (symbolic-table-ref _keys6096961266_ 'get-name: absent-value)) + _args61268_))) (define c4-linearize - (lambda _args7894479244_ + (lambda _args6097461274_ (apply keyword-dispatch '#(#f get-name: struct: get-precedence-list: #f eq:) c4-linearize__@ - _args7894479244_))))) + _args6097461274_))))) diff --git a/src/bootstrap/gerbil/runtime/control.ssi b/src/bootstrap/gerbil/runtime/control.ssi index 40a145d7f..39b970d48 100644 --- a/src/bootstrap/gerbil/runtime/control.ssi +++ b/src/bootstrap/gerbil/runtime/control.ssi @@ -2,7 +2,10 @@ prelude: :gerbil/core package: gerbil/runtime namespace: #f -(%#begin (%#import :gerbil/runtime/gambit :gerbil/runtime/util) +(%#begin (%#import + :gerbil/runtime/gambit + :gerbil/runtime/util + :gerbil/runtime/table) (%#export #t) (%#define-runtime make-promise make-promise) (%#define-runtime call-with-parameters call-with-parameters) diff --git a/src/bootstrap/gerbil/runtime/control__0.scm b/src/bootstrap/gerbil/runtime/control__0.scm index b7f1d2bae..c3ea7458c 100644 --- a/src/bootstrap/gerbil/runtime/control__0.scm +++ b/src/bootstrap/gerbil/runtime/control__0.scm @@ -1,294 +1,316 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/control::timestamp 1708102800) + (define gerbil/runtime/control::timestamp 1708370113) (begin (define make-promise - (lambda (_thunk64922_) - (let () (declare (not safe)) (##make-delay-promise _thunk64922_)))) + (lambda (_thunk60847_) + (let () (declare (not safe)) (##make-delay-promise _thunk60847_)))) (define call-with-parameters - (lambda (_thunk64870_ . _rest64871_) - (let* ((_rest6487264883_ _rest64871_) - (_E6487564887_ - (lambda () (error '"No clause matching" _rest6487264883_)))) - (let ((_K6487764903_ - (lambda (_rest64898_ _val64899_ _param64900_) - (let ((__tmp78928 - (if (let () (declare (not safe)) (null? _rest64898_)) - _thunk64870_ + (lambda (_thunk60795_ . _rest60796_) + (let* ((_rest6079760808_ _rest60796_) + (_E6080060812_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" _rest6079760808_))))) + (let ((_K6080260828_ + (lambda (_rest60823_ _val60824_ _param60825_) + (let ((__tmp60859 + (if (let () (declare (not safe)) (null? _rest60823_)) + _thunk60795_ (lambda () (apply call-with-parameters - _thunk64870_ - _rest64898_))))) + _thunk60795_ + _rest60823_))))) (declare (not safe)) - (##parameterize1 _param64900_ _val64899_ __tmp78928)))) - (_K6487664892_ (lambda () (_thunk64870_)))) - (let ((_try-match6487464895_ + (##parameterize1 _param60825_ _val60824_ __tmp60859)))) + (_K6080160817_ (lambda () (_thunk60795_)))) + (let ((_try-match6079960820_ (lambda () (if (let () (declare (not safe)) - (##null? _rest6487264883_)) - (let () (declare (not safe)) (_thunk64870_)) - (let () (declare (not safe)) (_E6487564887_)))))) - (if (let () (declare (not safe)) (##pair? _rest6487264883_)) - (let ((_tl6487964908_ + (##null? _rest6079760808_)) + (let () (declare (not safe)) (_thunk60795_)) + (let () (declare (not safe)) (_E6080060812_)))))) + (if (let () (declare (not safe)) (##pair? _rest6079760808_)) + (let ((_tl6080460833_ (let () (declare (not safe)) - (##cdr _rest6487264883_))) - (_hd6487864906_ + (##cdr _rest6079760808_))) + (_hd6080360831_ (let () (declare (not safe)) - (##car _rest6487264883_)))) - (if (let () (declare (not safe)) (##pair? _tl6487964908_)) - (let ((_tl6488164915_ + (##car _rest6079760808_)))) + (if (let () (declare (not safe)) (##pair? _tl6080460833_)) + (let ((_tl6080660840_ (let () (declare (not safe)) - (##cdr _tl6487964908_))) - (_hd6488064913_ + (##cdr _tl6080460833_))) + (_hd6080560838_ (let () (declare (not safe)) - (##car _tl6487964908_)))) - (let ((_param64911_ _hd6487864906_) - (_val64918_ _hd6488064913_) - (_rest64920_ _tl6488164915_)) + (##car _tl6080460833_)))) + (let ((_param60836_ _hd6080360831_) + (_val60843_ _hd6080560838_) + (_rest60845_ _tl6080660840_)) (let () (declare (not safe)) - (_K6487764903_ - _rest64920_ - _val64918_ - _param64911_)))) - (let () (declare (not safe)) (_E6487564887_)))) - (let () (declare (not safe)) (_try-match6487464895_)))))))) + (_K6080260828_ + _rest60845_ + _val60843_ + _param60836_)))) + (let () (declare (not safe)) (_E6080060812_)))) + (let () (declare (not safe)) (_try-match6079960820_)))))))) (define with-unwind-protect - (lambda (_K64863_ _fini64864_) - (let ((_once64866_ '#f)) + (lambda (_K60788_ _fini60789_) + (let ((_once60791_ '#f)) (dynamic-wind (lambda () (declare (not interrupts-enabled)) - (if _once64866_ - (error '"Cannot re-enter unwind protected block") - (set! _once64866_ '#t))) - _K64863_ - _fini64864_)))) + (if _once60791_ + (let () + (declare (not safe)) + (error '"Cannot re-enter unwind protected block")) + (set! _once60791_ '#t))) + _K60788_ + _fini60789_)))) (define keyword-dispatch - (lambda (_kwt64760_ _K64761_ . _all-args64762_) - (if _kwt64760_ - (if (let () (declare (not safe)) (vector? _kwt64760_)) + (lambda (_kwt60685_ _K60686_ . _all-args60687_) + (if _kwt60685_ + (if (let () (declare (not safe)) (vector? _kwt60685_)) '#!void - (error '"expected vector" _kwt64760_)) + (let () + (declare (not safe)) + (error '"expected vector" _kwt60685_))) '#!void) - (if (let () (declare (not safe)) (procedure? _K64761_)) + (if (let () (declare (not safe)) (procedure? _K60686_)) '#!void - (error '"expected procedure" _K64761_)) - (let ((_keys64764_ - (let () - (declare (not safe)) - (make-table 'test: eq? 'hash: keyword-hash)))) - (let _lp64766_ ((_rest64768_ _all-args64762_) - (_args64769_ '#f) - (_tail64770_ '#f)) - (let* ((_rest6477164779_ _rest64768_) - (_else6477364787_ + (let () + (declare (not safe)) + (error '"expected procedure" _K60686_))) + (let ((_keys60689_ + (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) + (let _lp60691_ ((_rest60693_ _all-args60687_) + (_args60694_ '#f) + (_tail60695_ '#f)) + (let* ((_rest6069660704_ _rest60693_) + (_else6069860712_ (lambda () - (if _args64769_ + (if _args60694_ (begin (let () (declare (not safe)) - (##set-cdr! _tail64770_ '())) - (let ((__tmp78929 + (##set-cdr! _tail60695_ '())) + (let ((__tmp60860 (let () (declare (not safe)) - (cons _keys64764_ _args64769_)))) + (cons _keys60689_ _args60694_)))) (declare (not safe)) - (##apply _K64761_ __tmp78929))) - (_K64761_ _keys64764_)))) - (_K6477564851_ - (lambda (_hd-rest64790_ _hd64791_) - (if (keyword? _hd64791_) - (let* ((_hd-rest6479264799_ _hd-rest64790_) - (_E6479464803_ + (##apply _K60686_ __tmp60860))) + (_K60686_ _keys60689_)))) + (_K6070060776_ + (lambda (_hd-rest60715_ _hd60716_) + (if (keyword? _hd60716_) + (let* ((_hd-rest6071760724_ _hd-rest60715_) + (_E6071960728_ (lambda () - (error '"No clause matching" - _hd-rest6479264799_))) - (_K6479564811_ - (lambda (_rest64806_ _val64807_) - (if _kwt64760_ - (let ((_pos64809_ - (let ((__tmp78933 - (keyword-hash _hd64791_)) - (__tmp78932 + (let () + (declare (not safe)) + (error '"No clause matching" + _hd-rest6071760724_)))) + (_K6072060736_ + (lambda (_rest60731_ _val60732_) + (if _kwt60685_ + (let ((_pos60734_ + (let ((__tmp60864 + (keyword-hash _hd60716_)) + (__tmp60863 (let () (declare (not safe)) (##vector-length - _kwt64760_)))) + _kwt60685_)))) (declare (not safe)) (##fxmodulo - __tmp78933 - __tmp78932)))) - (if (let ((__tmp78934 + __tmp60864 + __tmp60863)))) + (if (let ((__tmp60865 (let () (declare (not safe)) (##vector-ref - _kwt64760_ - _pos64809_)))) + _kwt60685_ + _pos60734_)))) (declare (not safe)) - (eq? _hd64791_ __tmp78934)) + (eq? _hd60716_ __tmp60865)) '#!void - (error '"Unexpected keyword argument" - _K64761_ - _hd64791_))) + (let () + (declare (not safe)) + (error '"Unexpected keyword argument" + _K60686_ + _hd60716_)))) '#!void) - (if (let () + (if (let ((__tmp60866 + (let () + (declare (not safe)) + (symbolic-table-ref + _keys60689_ + _hd60716_ + absent-value)))) (declare (not safe)) - (hash-key? _keys64764_ _hd64791_)) - (error '"Duplicate keyword argument" - _K64761_ - _hd64791_) - '#!void) + (eq? __tmp60866 absent-value)) + '#!void + (let () + (declare (not safe)) + (error '"Duplicate keyword argument" + _K60686_ + _hd60716_))) (let () (declare (not safe)) - (table-set! - _keys64764_ - _hd64791_ - _val64807_)) + (symbolic-table-set! + _keys60689_ + _hd60716_ + _val60732_)) (let () (declare (not safe)) - (_lp64766_ - _rest64806_ - _args64769_ - _tail64770_))))) + (_lp60691_ + _rest60731_ + _args60694_ + _tail60695_))))) (if (let () (declare (not safe)) - (##pair? _hd-rest6479264799_)) - (let ((_hd6479664814_ + (##pair? _hd-rest6071760724_)) + (let ((_hd6072160739_ (let () (declare (not safe)) - (##car _hd-rest6479264799_))) - (_tl6479764816_ + (##car _hd-rest6071760724_))) + (_tl6072260741_ (let () (declare (not safe)) - (##cdr _hd-rest6479264799_)))) - (let* ((_val64819_ _hd6479664814_) - (_rest64821_ _tl6479764816_)) + (##cdr _hd-rest6071760724_)))) + (let* ((_val60744_ _hd6072160739_) + (_rest60746_ _tl6072260741_)) (declare (not safe)) - (_K6479564811_ _rest64821_ _val64819_))) - (let () (declare (not safe)) (_E6479464803_)))) + (_K6072060736_ _rest60746_ _val60744_))) + (let () (declare (not safe)) (_E6071960728_)))) (if (let () (declare (not safe)) - (eq? _hd64791_ '#!key)) - (let* ((_hd-rest6482264829_ _hd-rest64790_) - (_E6482464833_ + (eq? _hd60716_ '#!key)) + (let* ((_hd-rest6074760754_ _hd-rest60715_) + (_E6074960758_ (lambda () - (error '"No clause matching" - _hd-rest6482264829_))) - (_K6482564839_ - (lambda (_rest64836_ _val64837_) - (if _args64769_ + (let () + (declare (not safe)) + (error '"No clause matching" + _hd-rest6074760754_)))) + (_K6075060764_ + (lambda (_rest60761_ _val60762_) + (if _args60694_ (begin (let () (declare (not safe)) (##set-cdr! - _tail64770_ - _hd-rest64790_)) + _tail60695_ + _hd-rest60715_)) (let () (declare (not safe)) - (_lp64766_ - _rest64836_ - _args64769_ - _hd-rest64790_))) + (_lp60691_ + _rest60761_ + _args60694_ + _hd-rest60715_))) (let () (declare (not safe)) - (_lp64766_ - _rest64836_ - _hd-rest64790_ - _hd-rest64790_)))))) + (_lp60691_ + _rest60761_ + _hd-rest60715_ + _hd-rest60715_)))))) (if (let () (declare (not safe)) - (##pair? _hd-rest6482264829_)) - (let ((_hd6482664842_ + (##pair? _hd-rest6074760754_)) + (let ((_hd6075160767_ (let () (declare (not safe)) - (##car _hd-rest6482264829_))) - (_tl6482764844_ + (##car _hd-rest6074760754_))) + (_tl6075260769_ (let () (declare (not safe)) - (##cdr _hd-rest6482264829_)))) - (let* ((_val64847_ _hd6482664842_) - (_rest64849_ _tl6482764844_)) + (##cdr _hd-rest6074760754_)))) + (let* ((_val60772_ _hd6075160767_) + (_rest60774_ _tl6075260769_)) (declare (not safe)) - (_K6482564839_ - _rest64849_ - _val64847_))) + (_K6075060764_ + _rest60774_ + _val60772_))) (let () (declare (not safe)) - (_E6482464833_)))) + (_E6074960758_)))) (if (let () (declare (not safe)) - (eq? _hd64791_ '#!rest)) - (if _args64769_ + (eq? _hd60716_ '#!rest)) + (if _args60694_ (begin (let () (declare (not safe)) (##set-cdr! - _tail64770_ - _hd-rest64790_)) - (let ((__tmp78931 + _tail60695_ + _hd-rest60715_)) + (let ((__tmp60862 (let () (declare (not safe)) - (cons _keys64764_ - _args64769_)))) + (cons _keys60689_ + _args60694_)))) (declare (not safe)) - (##apply _K64761_ __tmp78931))) - (let ((__tmp78930 + (##apply _K60686_ __tmp60862))) + (let ((__tmp60861 (let () (declare (not safe)) - (cons _keys64764_ - _hd-rest64790_)))) + (cons _keys60689_ + _hd-rest60715_)))) (declare (not safe)) - (##apply _K64761_ __tmp78930))) - (if _args64769_ + (##apply _K60686_ __tmp60861))) + (if _args60694_ (begin (let () (declare (not safe)) - (##set-cdr! _tail64770_ _rest64768_)) + (##set-cdr! _tail60695_ _rest60693_)) (let () (declare (not safe)) - (_lp64766_ - _hd-rest64790_ - _args64769_ - _rest64768_))) + (_lp60691_ + _hd-rest60715_ + _args60694_ + _rest60693_))) (let () (declare (not safe)) - (_lp64766_ - _hd-rest64790_ - _rest64768_ - _rest64768_))))))))) - (if (let () (declare (not safe)) (##pair? _rest6477164779_)) - (let ((_hd6477664854_ + (_lp60691_ + _hd-rest60715_ + _rest60693_ + _rest60693_))))))))) + (if (let () (declare (not safe)) (##pair? _rest6069660704_)) + (let ((_hd6070160779_ (let () (declare (not safe)) - (##car _rest6477164779_))) - (_tl6477764856_ + (##car _rest6069660704_))) + (_tl6070260781_ (let () (declare (not safe)) - (##cdr _rest6477164779_)))) - (let* ((_hd64859_ _hd6477664854_) - (_hd-rest64861_ _tl6477764856_)) + (##cdr _rest6069660704_)))) + (let* ((_hd60784_ _hd6070160779_) + (_hd-rest60786_ _tl6070260781_)) (declare (not safe)) - (_K6477564851_ _hd-rest64861_ _hd64859_))) - (let () (declare (not safe)) (_else6477364787_)))))))) + (_K6070060776_ _hd-rest60786_ _hd60784_))) + (let () (declare (not safe)) (_else6069860712_)))))))) (define keyword-rest - (lambda (_kwt64751_ . _drop64752_) - (for-each - (lambda (_kw64754_) - (let () (declare (not safe)) (table-set! _kwt64751_ _kw64754_))) - _drop64752_) - (let ((__tmp78935 - (lambda (_k64756_ _v64757_ _r64758_) - (let ((__tmp78936 - (let () - (declare (not safe)) - (cons _v64757_ _r64758_)))) - (declare (not safe)) - (cons _k64756_ __tmp78936))))) - (declare (not safe)) - (hash-fold __tmp78935 '() _kwt64751_)))))) + (lambda (_kwt60677_ . _drop60678_) + (let ((_rest60680_ '())) + (let ((__tmp60867 + (lambda (_k60682_ _v60683_) + (if (memq _k60682_ _drop60678_) + '#!void + (set! _rest60680_ + (let ((__tmp60868 + (let () + (declare (not safe)) + (cons _v60683_ _rest60680_)))) + (declare (not safe)) + (cons _k60682_ __tmp60868))))))) + (declare (not safe)) + (raw-table-for-each _kwt60677_ __tmp60867)) + _rest60680_))))) diff --git a/src/bootstrap/gerbil/runtime/control__rt.scm b/src/bootstrap/gerbil/runtime/control__rt.scm index f2636beda..4d321b547 100644 --- a/src/bootstrap/gerbil/runtime/control__rt.scm +++ b/src/bootstrap/gerbil/runtime/control__rt.scm @@ -2,5 +2,6 @@ (begin (begin (load-module "gerbil/runtime/gambit__rt") - (load-module "gerbil/runtime/util__rt")) + (load-module "gerbil/runtime/util__rt") + (load-module "gerbil/runtime/table__rt")) (load-module "gerbil/runtime/control__0")) diff --git a/src/bootstrap/gerbil/runtime/error__0.scm b/src/bootstrap/gerbil/runtime/error__0.scm index 907e9366e..de3bb6e09 100644 --- a/src/bootstrap/gerbil/runtime/error__0.scm +++ b/src/bootstrap/gerbil/runtime/error__0.scm @@ -1,35 +1,35 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/error::timestamp 1708102801) + (define gerbil/runtime/error::timestamp 1708370113) (begin (define Exception::t - (let ((__tmp97180 (list))) + (let ((__tmp65508 (list))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#Exception::t 'Exception - __tmp97180 + __tmp65508 '() '() '#f))) (define Exception? (let () (declare (not safe)) (make-class-predicate Exception::t))) (define make-Exception - (lambda _$args92583_ (apply make-instance Exception::t _$args92583_))) + (lambda _$args65479_ (apply make-instance Exception::t _$args65479_))) (define StackTrace::t - (let ((__tmp97181 (list))) + (let ((__tmp65509 (list))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#StackTrace::t 'StackTrace - __tmp97181 + __tmp65509 '(continuation) '() '#f))) (define StackTrace? (let () (declare (not safe)) (make-class-predicate StackTrace::t))) (define make-StackTrace - (lambda _$args92580_ (apply make-instance StackTrace::t _$args92580_))) + (lambda _$args65476_ (apply make-instance StackTrace::t _$args65476_))) (define StackTrace-continuation (let () (declare (not safe)) @@ -47,19 +47,19 @@ (declare (not safe)) (make-class-slot-unchecked-mutator StackTrace::t 'continuation))) (define Error::t - (let ((__tmp97182 (list StackTrace::t Exception::t))) + (let ((__tmp65510 (list StackTrace::t Exception::t))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#Error::t 'Error - __tmp97182 + __tmp65510 '(message irritants where) '((transparent: . #t)) ':init!))) (define Error? (let () (declare (not safe)) (make-class-predicate Error::t))) (define make-Error - (lambda _$args92577_ (apply make-instance Error::t _$args92577_))) + (lambda _$args65473_ (apply make-instance Error::t _$args65473_))) (define Error-message (let () (declare (not safe)) @@ -121,20 +121,20 @@ (declare (not safe)) (make-class-slot-unchecked-mutator Error::t 'continuation))) (define RuntimeException::t - (let ((__tmp97183 (list StackTrace::t Exception::t))) + (let ((__tmp65511 (list StackTrace::t Exception::t))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#RuntimeException::t 'RuntimeException - __tmp97183 + __tmp65511 '(exception) '((transparent: . #t)) '#f))) (define RuntimeException? (let () (declare (not safe)) (make-class-predicate RuntimeException::t))) (define make-RuntimeException - (lambda _$args92574_ - (apply make-instance RuntimeException::t _$args92574_))) + (lambda _$args65470_ + (apply make-instance RuntimeException::t _$args65470_))) (define RuntimeException-exception (let () (declare (not safe)) @@ -170,144 +170,148 @@ (declare (not safe)) (make-class-slot-unchecked-mutator RuntimeException::t 'continuation))) (define gerbil-exception-handler-hook - (lambda (_exn92569_ _continue92570_) - (let ((_exn92572_ + (lambda (_exn65465_ _continue65466_) + (let ((_exn65468_ (let () (declare (not safe)) - (wrap-runtime-exception _exn92569_)))) + (wrap-runtime-exception _exn65465_)))) (declare (not safe)) - (##repl-exception-handler-hook _exn92572_ _continue92570_)))) + (##repl-exception-handler-hook _exn65468_ _continue65466_)))) (let () (declare (not safe)) (##primordial-exception-handler-hook-set! gerbil-exception-handler-hook)) (define raise - (lambda (_exn92565_) + (lambda (_exn65461_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _exn92565_)) + (class-instance? StackTrace::t _exn65461_)) (if (let () (declare (not safe)) - (unchecked-slot-ref _exn92565_ 'continuation)) + (unchecked-slot-ref _exn65461_ 'continuation)) '#!void - (let ((__tmp97184 - (lambda (_cont92567_) + (let ((__tmp65512 + (lambda (_cont65463_) (let () (declare (not safe)) (unchecked-slot-set! - _exn92565_ + _exn65461_ 'continuation - _cont92567_))))) + _cont65463_))))) (declare (not safe)) - (##continuation-capture __tmp97184))) + (##continuation-capture __tmp65512))) '#!void) - (let () (declare (not safe)) (##raise _exn92565_)))) + (let () (declare (not safe)) (##raise _exn65461_)))) (define error - (lambda (_message92562_ . _irritants92563_) - (raise (let ((__obj97174 + (lambda (_message65458_ . _irritants65459_) + (raise (let ((__obj65502 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj97174 - _message92562_ + __obj65502 + _message65458_ 'irritants: - _irritants92563_) - __obj97174)))) + _irritants65459_) + __obj65502)))) (define with-exception-handler - (lambda (_handler92555_ _thunk92556_) - (if (let () (declare (not safe)) (procedure? _handler92555_)) + (lambda (_handler65451_ _thunk65452_) + (if (let () (declare (not safe)) (procedure? _handler65451_)) '#!void - (raise (let ((__obj97175 + (raise (let ((__obj65503 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj97175 + __obj65503 '"expected procedure" 'where: 'with-exception-handler 'irritants: - (let () (declare (not safe)) (cons _handler92555_ '()))) - __obj97175))) - (if (let () (declare (not safe)) (procedure? _thunk92556_)) + (let () (declare (not safe)) (cons _handler65451_ '()))) + __obj65503))) + (if (let () (declare (not safe)) (procedure? _thunk65452_)) '#!void - (raise (let ((__obj97176 + (raise (let ((__obj65504 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj97176 + __obj65504 '"expected procedure" 'where: 'with-exception-hander 'irritants: - (let () (declare (not safe)) (cons _thunk92556_ '()))) - __obj97176))) - (let ((__tmp97185 - (lambda (_exn92558_) - (let ((_exn92560_ + (let () (declare (not safe)) (cons _thunk65452_ '()))) + __obj65504))) + (let ((__tmp65513 + (lambda (_exn65454_) + (let ((_exn65456_ (let () (declare (not safe)) - (wrap-runtime-exception _exn92558_)))) - (_handler92555_ _exn92560_))))) + (wrap-runtime-exception _exn65454_)))) + (_handler65451_ _exn65456_))))) (declare (not safe)) - (##with-exception-handler __tmp97185 _thunk92556_)))) + (##with-exception-handler __tmp65513 _thunk65452_)))) (define with-catch - (lambda (_handler92548_ _thunk92549_) - (if (let () (declare (not safe)) (procedure? _handler92548_)) + (lambda (_handler65444_ _thunk65445_) + (if (let () (declare (not safe)) (procedure? _handler65444_)) '#!void - (raise (let ((__obj97177 + (raise (let ((__obj65505 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj97177 + __obj65505 '"expected procedure" 'where: 'with-exception-handler 'irritants: - (let () (declare (not safe)) (cons _handler92548_ '()))) - __obj97177))) - (if (let () (declare (not safe)) (procedure? _thunk92549_)) + (let () (declare (not safe)) (cons _handler65444_ '()))) + __obj65505))) + (if (let () (declare (not safe)) (procedure? _thunk65445_)) '#!void - (raise (let ((__obj97178 + (raise (let ((__obj65506 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj97178 + __obj65506 '"expected procedure" 'where: 'with-exception-hander 'irritants: - (let () (declare (not safe)) (cons _thunk92549_ '()))) - __obj97178))) - (let ((__tmp97186 - (lambda (_cont92551_) + (let () (declare (not safe)) (cons _thunk65445_ '()))) + __obj65506))) + (let ((__tmp65514 + (lambda (_cont65447_) (with-exception-handler - (lambda (_exn92553_) + (lambda (_exn65449_) (let () (declare (not safe)) (##continuation-graft - _cont92551_ - _handler92548_ - _exn92553_))) - _thunk92549_)))) + _cont65447_ + _handler65444_ + _exn65449_))) + _thunk65445_)))) (declare (not safe)) - (##continuation-capture __tmp97186)))) + (##continuation-capture __tmp65514)))) (define with-exception-catcher with-catch) (define wrap-runtime-exception - (lambda (_exn92539_) - (if (or (heap-overflow-exception? _exn92539_) - (stack-overflow-exception? _exn92539_)) - _exn92539_ + (lambda (_exn65435_) + (if (or (let () + (declare (not safe)) + (heap-overflow-exception? _exn65435_)) + (let () + (declare (not safe)) + (stack-overflow-exception? _exn65435_))) + _exn65435_ (if (let () (declare (not safe)) - (class-instance? Exception::t _exn92539_)) - _exn92539_ - (if (macro-exception? _exn92539_) - (let ((_rte92544_ - (let ((__obj97179 + (class-instance? Exception::t _exn65435_)) + _exn65435_ + (if (macro-exception? _exn65435_) + (let ((_rte65440_ + (let ((__obj65507 (let () (declare (not safe)) (##structure @@ -317,331 +321,347 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97179 - _exn92539_ + __obj65507 + _exn65435_ '2 RuntimeException::t '#f)) - __obj97179))) - (let ((__tmp97187 - (lambda (_cont92546_) - (let ((__tmp97188 + __obj65507))) + (let ((__tmp65515 + (lambda (_cont65442_) + (let ((__tmp65516 (let () (declare (not safe)) - (##continuation-next _cont92546_)))) + (##continuation-next _cont65442_)))) (declare (not safe)) (unchecked-slot-set! - _rte92544_ + _rte65440_ 'continuation - __tmp97188))))) + __tmp65516))))) (declare (not safe)) - (##continuation-capture __tmp97187)) - _rte92544_) - _exn92539_))))) + (##continuation-capture __tmp65515)) + _rte65440_) + _exn65435_))))) (define exception? Exception?) (define error? Error?) (define error-object? - (lambda (_obj92534_) - (let ((_$e92536_ + (lambda (_obj65430_) + (let ((_$e65432_ (let () (declare (not safe)) - (class-instance? Error::t _obj92534_)))) - (if _$e92536_ _$e92536_ (error-exception? _obj92534_))))) + (class-instance? Error::t _obj65430_)))) + (if _$e65432_ + _$e65432_ + (let () (declare (not safe)) (error-exception? _obj65430_)))))) (define error-message - (lambda (_obj92532_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj92532_)) + (lambda (_obj65428_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj65428_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj92532_ 'message)) - (if (error-exception? _obj92532_) - (error-exception-message _obj92532_) + (unchecked-slot-ref _obj65428_ 'message)) + (if (let () (declare (not safe)) (error-exception? _obj65428_)) + (let () + (declare (not safe)) + (error-exception-message _obj65428_)) '#f)))) (define error-irritants - (lambda (_obj92530_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj92530_)) + (lambda (_obj65426_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj65426_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj92530_ 'irritants)) - (if (error-exception? _obj92530_) - (error-exception-parameters _obj92530_) + (unchecked-slot-ref _obj65426_ 'irritants)) + (if (let () (declare (not safe)) (error-exception? _obj65426_)) + (let () + (declare (not safe)) + (error-exception-parameters _obj65426_)) '#f)))) (define error-trace - (lambda (_obj92528_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj92528_)) + (lambda (_obj65424_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj65424_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj92528_ 'where)) + (unchecked-slot-ref _obj65424_ 'where)) '#f))) (define display-exception__% - (lambda (_e92510_ _port92511_) - (let ((_$e92513_ + (lambda (_e65406_ _port65407_) + (let ((_$e65409_ (let () (declare (not safe)) - (method-ref _e92510_ 'display-exception)))) - (if _$e92513_ - ((lambda (_f92516_) (_f92516_ _e92510_ _port92511_)) _$e92513_) + (method-ref _e65406_ 'display-exception)))) + (if _$e65409_ + ((lambda (_f65412_) (_f65412_ _e65406_ _port65407_)) _$e65409_) (let () (declare (not safe)) - (##default-display-exception _e92510_ _port92511_)))))) + (##default-display-exception _e65406_ _port65407_)))))) (define display-exception__0 - (lambda (_e92521_) - (let ((_port92523_ (current-error-port))) + (lambda (_e65417_) + (let ((_port65419_ (current-error-port))) (declare (not safe)) - (display-exception__% _e92521_ _port92523_)))) + (display-exception__% _e65417_ _port65419_)))) (define display-exception - (lambda _g97190_ - (let ((_g97189_ (let () (declare (not safe)) (##length _g97190_)))) - (cond ((let () (declare (not safe)) (##fx= _g97189_ 1)) - (apply (lambda (_e92521_) + (lambda _g65518_ + (let ((_g65517_ (let () (declare (not safe)) (##length _g65518_)))) + (cond ((let () (declare (not safe)) (##fx= _g65517_ 1)) + (apply (lambda (_e65417_) (let () (declare (not safe)) - (display-exception__0 _e92521_))) - _g97190_)) - ((let () (declare (not safe)) (##fx= _g97189_ 2)) - (apply (lambda (_e92525_ _port92526_) + (display-exception__0 _e65417_))) + _g65518_)) + ((let () (declare (not safe)) (##fx= _g65517_ 2)) + (apply (lambda (_e65421_ _port65422_) (let () (declare (not safe)) - (display-exception__% _e92525_ _port92526_))) - _g97190_)) + (display-exception__% _e65421_ _port65422_))) + _g65518_)) (else (##raise-wrong-number-of-arguments-exception display-exception - _g97190_)))))) + _g65518_)))))) (let () (declare (not safe)) (##display-exception-hook-set! display-exception)) (define Error:::init! - (lambda (_self92499_ _message92500_ . _rest92501_) - (let ((_message92507_ - (if (let () (declare (not safe)) (string? _message92500_)) - _message92500_ + (lambda (_self65395_ _message65396_ . _rest65397_) + (let ((_message65403_ + (if (let () (declare (not safe)) (string? _message65396_)) + _message65396_ (call-with-output-string '"" - (lambda (_g9250292504_) - (display _message92500_ _g9250292504_)))))) + (lambda (_g6539865400_) + (display _message65396_ _g6539865400_)))))) (let () (declare (not safe)) - (unchecked-slot-set! _self92499_ 'message _message92507_)) - (apply class-instance-init! _self92499_ _rest92501_)))) + (unchecked-slot-set! _self65395_ 'message _message65403_)) + (apply class-instance-init! _self65395_ _rest65397_)))) (define Error:::init!::specialize - (lambda (__t97153) - (let ((__message97154 - (let ((__tmp97155 + (lambda (__t65481) + (let ((__message65482 + (let ((__tmp65483 (let () (declare (not safe)) - (class-slot-offset __t97153 'message)))) - (if __tmp97155 __tmp97155 (error '"Unknown slot" 'message))))) - (lambda (_self92499_ _message92500_ . _rest92501_) - (let ((_message92507_ - (if (let () (declare (not safe)) (string? _message92500_)) - _message92500_ + (class-slot-offset __t65481 'message)))) + (if __tmp65483 + __tmp65483 + (let () + (declare (not safe)) + (error '"Unknown slot" 'message)))))) + (lambda (_self65395_ _message65396_ . _rest65397_) + (let ((_message65403_ + (if (let () (declare (not safe)) (string? _message65396_)) + _message65396_ (call-with-output-string '"" - (lambda (_g9250292504_) - (display _message92500_ _g9250292504_)))))) + (lambda (_g6539865400_) + (display _message65396_ _g6539865400_)))))) (let () (declare (not safe)) (##unchecked-structure-set! - _self92499_ - _message92507_ - __message97154 - __t97153 + _self65395_ + _message65403_ + __message65482 + __t65481 '#f)) - (apply class-instance-init! _self92499_ _rest92501_)))))) + (apply class-instance-init! _self65395_ _rest65397_)))))) (let () (declare (not safe)) (bind-specializer! Error:::init! Error:::init!::specialize)) (let () (declare (not safe)) - (bind-method! Error::t ':init! Error:::init! '#f)) + (bind-method!__% Error::t ':init! Error:::init! '#f)) (define dump-stack-trace? (make-parameter '#t)) (define Error::display-exception - (lambda (_self92357_ _port92358_) - (let ((_tmp-port92360_ (open-output-string)) - (_display-error-newline92361_ - (> (output-port-column _port92358_) '0))) - (let () (declare (not safe)) (fix-port-width! _tmp-port92360_)) - (let ((__tmp97191 + (lambda (_self65253_ _port65254_) + (let ((_tmp-port65256_ (open-output-string)) + (_display-error-newline65257_ + (> (output-port-column _port65254_) '0))) + (let () (declare (not safe)) (fix-port-width! _tmp-port65256_)) + (let ((__tmp65519 (lambda () - (if _display-error-newline92361_ (newline) '#!void) + (if _display-error-newline65257_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_$e92364_ + (let ((_$e65260_ (let () (declare (not safe)) - (unchecked-slot-ref _self92357_ 'where)))) - (if _$e92364_ (display _$e92364_) (display '"?"))) - (let ((__tmp97192 - (let ((__tmp97193 - (let () - (declare (not safe)) - (object-type _self92357_)))) + (unchecked-slot-ref _self65253_ 'where)))) + (if _$e65260_ (display _$e65260_) (display '"?"))) + (let ((__tmp65520 + (let ((__tmp65521 (object-type _self65253_))) (declare (not safe)) - (##type-name __tmp97193)))) + (##type-name __tmp65521)))) (declare (not safe)) - (display* '" [" __tmp97192 '"]: ")) - (let ((__tmp97194 + (display* '" [" __tmp65520 '"]: ")) + (let ((__tmp65522 (let () (declare (not safe)) - (unchecked-slot-ref _self92357_ 'message)))) + (unchecked-slot-ref _self65253_ 'message)))) (declare (not safe)) - (displayln __tmp97194)) - (let ((_irritants92367_ + (displayln __tmp65522)) + (let ((_irritants65263_ (let () (declare (not safe)) - (unchecked-slot-ref _self92357_ 'irritants)))) - (if (let () (declare (not safe)) (null? _irritants92367_)) + (unchecked-slot-ref _self65253_ 'irritants)))) + (if (let () (declare (not safe)) (null? _irritants65263_)) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_obj92369_) - (write _obj92369_) + (lambda (_obj65265_) + (write _obj65265_) (write-char '#\space)) - _irritants92367_) + _irritants65263_) (newline)))) (if (and (let () (declare (not safe)) - (class-instance? StackTrace::t _self92357_)) + (class-instance? StackTrace::t _self65253_)) (dump-stack-trace?)) - (let ((_cont9237092372_ + (let ((_cont6526665268_ (let () (declare (not safe)) (unchecked-slot-ref - _self92357_ + _self65253_ 'continuation)))) - (if _cont9237092372_ - (let ((_cont92375_ _cont9237092372_)) + (if _cont6526665268_ + (let ((_cont65271_ _cont6526665268_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) - (display-continuation-backtrace _cont92375_)) + (display-continuation-backtrace _cont65271_)) '#f)) '#!void)))) (declare (not safe)) (call-with-parameters - __tmp97191 + __tmp65519 current-output-port - _tmp-port92360_)) - (let ((__tmp97195 (get-output-string _tmp-port92360_))) + _tmp-port65256_)) + (let ((__tmp65523 (get-output-string _tmp-port65256_))) (declare (not safe)) - (##write-string __tmp97195 _port92358_))))) + (##write-string __tmp65523 _port65254_))))) (define Error::display-exception::specialize - (lambda (__t97156) - (let ((__where97157 - (let ((__tmp97161 + (lambda (__t65484) + (let ((__where65485 + (let ((__tmp65489 (let () (declare (not safe)) - (class-slot-offset __t97156 'where)))) - (if __tmp97161 __tmp97161 (error '"Unknown slot" 'where)))) - (__irritants97158 - (let ((__tmp97162 + (class-slot-offset __t65484 'where)))) + (if __tmp65489 + __tmp65489 + (let () + (declare (not safe)) + (error '"Unknown slot" 'where))))) + (__continuation65486 + (let ((__tmp65490 (let () (declare (not safe)) - (class-slot-offset __t97156 'irritants)))) - (if __tmp97162 - __tmp97162 - (error '"Unknown slot" 'irritants)))) - (__message97159 - (let ((__tmp97163 + (class-slot-offset __t65484 'continuation)))) + (if __tmp65490 + __tmp65490 + (let () + (declare (not safe)) + (error '"Unknown slot" 'continuation))))) + (__message65487 + (let ((__tmp65491 (let () (declare (not safe)) - (class-slot-offset __t97156 'message)))) - (if __tmp97163 __tmp97163 (error '"Unknown slot" 'message)))) - (__continuation97160 - (let ((__tmp97164 + (class-slot-offset __t65484 'message)))) + (if __tmp65491 + __tmp65491 + (let () + (declare (not safe)) + (error '"Unknown slot" 'message))))) + (__irritants65488 + (let ((__tmp65492 (let () (declare (not safe)) - (class-slot-offset __t97156 'continuation)))) - (if __tmp97164 - __tmp97164 - (error '"Unknown slot" 'continuation))))) - (lambda (_self92357_ _port92358_) - (let ((_tmp-port92360_ (open-output-string)) - (_display-error-newline92361_ - (> (output-port-column _port92358_) '0))) - (let () (declare (not safe)) (fix-port-width! _tmp-port92360_)) - (let ((__tmp97196 + (class-slot-offset __t65484 'irritants)))) + (if __tmp65492 + __tmp65492 + (let () + (declare (not safe)) + (error '"Unknown slot" 'irritants)))))) + (lambda (_self65253_ _port65254_) + (let ((_tmp-port65256_ (open-output-string)) + (_display-error-newline65257_ + (> (output-port-column _port65254_) '0))) + (let () (declare (not safe)) (fix-port-width! _tmp-port65256_)) + (let ((__tmp65524 (lambda () - (if _display-error-newline92361_ (newline) '#!void) + (if _display-error-newline65257_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_$e92364_ + (let ((_$e65260_ (let () (declare (not safe)) (##unchecked-structure-ref - _self92357_ - __where97157 - __t97156 + _self65253_ + __where65485 + __t65484 '#f)))) - (if _$e92364_ (display _$e92364_) (display '"?"))) - (let ((__tmp97197 - (let ((__tmp97198 - (let () - (declare (not safe)) - (object-type _self92357_)))) + (if _$e65260_ (display _$e65260_) (display '"?"))) + (let ((__tmp65525 + (let ((__tmp65526 (object-type _self65253_))) (declare (not safe)) - (##type-name __tmp97198)))) + (##type-name __tmp65526)))) (declare (not safe)) - (display* '" [" __tmp97197 '"]: ")) - (let ((__tmp97199 + (display* '" [" __tmp65525 '"]: ")) + (let ((__tmp65527 (let () (declare (not safe)) (##unchecked-structure-ref - _self92357_ - __message97159 - __t97156 + _self65253_ + __message65487 + __t65484 '#f)))) (declare (not safe)) - (displayln __tmp97199)) - (let ((_irritants92367_ + (displayln __tmp65527)) + (let ((_irritants65263_ (let () (declare (not safe)) (##unchecked-structure-ref - _self92357_ - __irritants97158 - __t97156 + _self65253_ + __irritants65488 + __t65484 '#f)))) (if (let () (declare (not safe)) - (null? _irritants92367_)) + (null? _irritants65263_)) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_obj92369_) - (write _obj92369_) + (lambda (_obj65265_) + (write _obj65265_) (write-char '#\space)) - _irritants92367_) + _irritants65263_) (newline)))) (if (and (let () (declare (not safe)) - (class-instance? StackTrace::t _self92357_)) + (class-instance? StackTrace::t _self65253_)) (dump-stack-trace?)) - (let ((_cont9237092372_ + (let ((_cont6526665268_ (let () (declare (not safe)) (##unchecked-structure-ref - _self92357_ - __continuation97160 - __t97156 + _self65253_ + __continuation65486 + __t65484 '#f)))) - (if _cont9237092372_ - (let ((_cont92375_ _cont9237092372_)) + (if _cont6526665268_ + (let ((_cont65271_ _cont6526665268_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _cont92375_)) + _cont65271_)) '#f)) '#!void)))) (declare (not safe)) (call-with-parameters - __tmp97196 + __tmp65524 current-output-port - _tmp-port92360_)) - (let ((__tmp97200 (get-output-string _tmp-port92360_))) + _tmp-port65256_)) + (let ((__tmp65528 (get-output-string _tmp-port65256_))) (declare (not safe)) - (##write-string __tmp97200 _port92358_))))))) + (##write-string __tmp65528 _port65254_))))))) (let () (declare (not safe)) (bind-specializer! @@ -649,87 +669,95 @@ Error::display-exception::specialize)) (let () (declare (not safe)) - (bind-method! Error::t 'display-exception Error::display-exception '#t)) + (bind-method!__% + Error::t + 'display-exception + Error::display-exception + '#t)) (define RuntimeException::display-exception - (lambda (_self92224_ _port92225_) - (let ((_tmp-port92227_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _tmp-port92227_)) - (let ((__tmp97201 + (lambda (_self65120_ _port65121_) + (let ((_tmp-port65123_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _tmp-port65123_)) + (let ((__tmp65529 (let () (declare (not safe)) - (unchecked-slot-ref _self92224_ 'exception)))) + (unchecked-slot-ref _self65120_ 'exception)))) (declare (not safe)) - (##default-display-exception __tmp97201 _tmp-port92227_)) + (##default-display-exception __tmp65529 _tmp-port65123_)) (if (dump-stack-trace?) - (let ((_cont9222892230_ + (let ((_cont6512465126_ (let () (declare (not safe)) - (unchecked-slot-ref _self92224_ 'continuation)))) - (if _cont9222892230_ - (let ((_cont92233_ _cont9222892230_)) - (display '"--- continuation backtrace:" _tmp-port92227_) - (newline _tmp-port92227_) + (unchecked-slot-ref _self65120_ 'continuation)))) + (if _cont6512465126_ + (let ((_cont65129_ _cont6512465126_)) + (display '"--- continuation backtrace:" _tmp-port65123_) + (newline _tmp-port65123_) (display-continuation-backtrace - _cont92233_ - _tmp-port92227_)) + _cont65129_ + _tmp-port65123_)) '#f)) '#!void) - (let ((__tmp97202 (get-output-string _tmp-port92227_))) + (let ((__tmp65530 (get-output-string _tmp-port65123_))) (declare (not safe)) - (##write-string __tmp97202 _port92225_))))) + (##write-string __tmp65530 _port65121_))))) (define RuntimeException::display-exception::specialize - (lambda (__t97165) - (let ((__exception97166 - (let ((__tmp97168 + (lambda (__t65493) + (let ((__exception65494 + (let ((__tmp65496 (let () (declare (not safe)) - (class-slot-offset __t97165 'exception)))) - (if __tmp97168 - __tmp97168 - (error '"Unknown slot" 'exception)))) - (__continuation97167 - (let ((__tmp97169 + (class-slot-offset __t65493 'exception)))) + (if __tmp65496 + __tmp65496 + (let () + (declare (not safe)) + (error '"Unknown slot" 'exception))))) + (__continuation65495 + (let ((__tmp65497 (let () (declare (not safe)) - (class-slot-offset __t97165 'continuation)))) - (if __tmp97169 - __tmp97169 - (error '"Unknown slot" 'continuation))))) - (lambda (_self92224_ _port92225_) - (let ((_tmp-port92227_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _tmp-port92227_)) - (let ((__tmp97203 + (class-slot-offset __t65493 'continuation)))) + (if __tmp65497 + __tmp65497 + (let () + (declare (not safe)) + (error '"Unknown slot" 'continuation)))))) + (lambda (_self65120_ _port65121_) + (let ((_tmp-port65123_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _tmp-port65123_)) + (let ((__tmp65531 (let () (declare (not safe)) (##unchecked-structure-ref - _self92224_ - __exception97166 - __t97165 + _self65120_ + __exception65494 + __t65493 '#f)))) (declare (not safe)) - (##default-display-exception __tmp97203 _tmp-port92227_)) + (##default-display-exception __tmp65531 _tmp-port65123_)) (if (dump-stack-trace?) - (let ((_cont9222892230_ + (let ((_cont6512465126_ (let () (declare (not safe)) (##unchecked-structure-ref - _self92224_ - __continuation97167 - __t97165 + _self65120_ + __continuation65495 + __t65493 '#f)))) - (if _cont9222892230_ - (let ((_cont92233_ _cont9222892230_)) + (if _cont6512465126_ + (let ((_cont65129_ _cont6512465126_)) (display '"--- continuation backtrace:" - _tmp-port92227_) - (newline _tmp-port92227_) + _tmp-port65123_) + (newline _tmp-port65123_) (display-continuation-backtrace - _cont92233_ - _tmp-port92227_)) + _cont65129_ + _tmp-port65123_)) '#f)) '#!void) - (let ((__tmp97204 (get-output-string _tmp-port92227_))) + (let ((__tmp65532 (get-output-string _tmp-port65123_))) (declare (not safe)) - (##write-string __tmp97204 _port92225_))))))) + (##write-string __tmp65532 _port65121_))))))) (let () (declare (not safe)) (bind-specializer! @@ -737,3572 +765,4098 @@ RuntimeException::display-exception::specialize)) (let () (declare (not safe)) - (bind-method! + (bind-method!__% RuntimeException::t 'display-exception RuntimeException::display-exception '#f)) (define fix-port-width! - (lambda (_port92096_) - (if (macro-character-port? _port92096_) - (let ((_old-width92098_ - (macro-character-port-output-width _port92096_))) + (lambda (_port64992_) + (if (macro-character-port? _port64992_) + (let ((_old-width64994_ + (macro-character-port-output-width _port64992_))) (macro-character-port-output-width-set! - _port92096_ - (lambda (_port92100_) '256)) - _old-width92098_) + _port64992_ + (lambda (_port64996_) '256)) + _old-width64994_) '#!void))) (define reset-port-width! - (lambda (_port92093_ _old-width92094_) - (if (macro-character-port? _port92093_) + (lambda (_port64989_ _old-width64990_) + (if (macro-character-port? _port64989_) (macro-character-port-output-width-set! - _port92093_ - _old-width92094_) + _port64989_ + _old-width64990_) '#!void))) (define datum-parsing-exception-filepos - (lambda (_e92091_) - (macro-readenv-filepos (datum-parsing-exception-readenv _e92091_)))) + (lambda (_e64987_) + (macro-readenv-filepos + (let () + (declare (not safe)) + (datum-parsing-exception-readenv _e64987_))))) (define abandoned-mutex-exception? - (lambda (_exn92085_) + (lambda (_exn64981_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn92085_)) - (let ((_e92088_ + (class-instance? RuntimeException::t _exn64981_)) + (let ((_e64984_ (let () (declare (not safe)) - (unchecked-slot-ref _exn92085_ 'exception)))) - (macro-abandoned-mutex-exception? _e92088_)) - (macro-abandoned-mutex-exception? _exn92085_)))) + (unchecked-slot-ref _exn64981_ 'exception)))) + (macro-abandoned-mutex-exception? _e64984_)) + (macro-abandoned-mutex-exception? _exn64981_)))) (define cfun-conversion-exception? - (lambda (_exn92081_) + (lambda (_exn64977_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn92081_)) - (let ((_e92083_ + (class-instance? RuntimeException::t _exn64977_)) + (let ((_e64979_ (let () (declare (not safe)) - (unchecked-slot-ref _exn92081_ 'exception)))) - (macro-cfun-conversion-exception? _e92083_)) - (macro-cfun-conversion-exception? _exn92081_)))) + (unchecked-slot-ref _exn64977_ 'exception)))) + (macro-cfun-conversion-exception? _e64979_)) + (macro-cfun-conversion-exception? _exn64977_)))) (define cfun-conversion-exception-arguments - (lambda (_exn92077_) + (lambda (_exn64973_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn92077_)) - (let ((_e92079_ + (class-instance? RuntimeException::t _exn64973_)) + (let ((_e64975_ (let () (declare (not safe)) - (unchecked-slot-ref _exn92077_ 'exception)))) - (if (macro-cfun-conversion-exception? _e92079_) - (macro-cfun-conversion-exception-arguments _e92079_) - (error '"not an instance" - 'cfun-conversion-exception? - (let ((__tmp97206 + (unchecked-slot-ref _exn64973_ 'exception)))) + (if (macro-cfun-conversion-exception? _e64975_) + (macro-cfun-conversion-exception-arguments _e64975_) + (let ((__tmp65535 + (let ((__tmp65536 (let () (declare (not safe)) - (cons _e92079_ '())))) + (cons _e64975_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-arguments - __tmp97206))))) - (if (macro-cfun-conversion-exception? _exn92077_) - (macro-cfun-conversion-exception-arguments _exn92077_) - (error '"not an instance" - 'cfun-conversion-exception? - (let ((__tmp97205 + __tmp65536)))) + (declare (not safe)) + (error '"not an instance" + 'cfun-conversion-exception? + __tmp65535)))) + (if (macro-cfun-conversion-exception? _exn64973_) + (macro-cfun-conversion-exception-arguments _exn64973_) + (let ((__tmp65533 + (let ((__tmp65534 (let () (declare (not safe)) - (cons _exn92077_ '())))) + (cons _exn64973_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-arguments - __tmp97205))))))) + __tmp65534)))) + (declare (not safe)) + (error '"not an instance" + 'cfun-conversion-exception? + __tmp65533)))))) (define cfun-conversion-exception-code - (lambda (_exn92073_) + (lambda (_exn64969_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn92073_)) - (let ((_e92075_ + (class-instance? RuntimeException::t _exn64969_)) + (let ((_e64971_ (let () (declare (not safe)) - (unchecked-slot-ref _exn92073_ 'exception)))) - (if (macro-cfun-conversion-exception? _e92075_) - (macro-cfun-conversion-exception-code _e92075_) - (error '"not an instance" - 'cfun-conversion-exception? - (let ((__tmp97208 + (unchecked-slot-ref _exn64969_ 'exception)))) + (if (macro-cfun-conversion-exception? _e64971_) + (macro-cfun-conversion-exception-code _e64971_) + (let ((__tmp65539 + (let ((__tmp65540 (let () (declare (not safe)) - (cons _e92075_ '())))) + (cons _e64971_ '())))) (declare (not safe)) - (cons 'cfun-conversion-exception-code - __tmp97208))))) - (if (macro-cfun-conversion-exception? _exn92073_) - (macro-cfun-conversion-exception-code _exn92073_) - (error '"not an instance" - 'cfun-conversion-exception? - (let ((__tmp97207 + (cons 'cfun-conversion-exception-code __tmp65540)))) + (declare (not safe)) + (error '"not an instance" + 'cfun-conversion-exception? + __tmp65539)))) + (if (macro-cfun-conversion-exception? _exn64969_) + (macro-cfun-conversion-exception-code _exn64969_) + (let ((__tmp65537 + (let ((__tmp65538 (let () (declare (not safe)) - (cons _exn92073_ '())))) + (cons _exn64969_ '())))) (declare (not safe)) - (cons 'cfun-conversion-exception-code - __tmp97207))))))) + (cons 'cfun-conversion-exception-code __tmp65538)))) + (declare (not safe)) + (error '"not an instance" + 'cfun-conversion-exception? + __tmp65537)))))) (define cfun-conversion-exception-message - (lambda (_exn92069_) + (lambda (_exn64965_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn92069_)) - (let ((_e92071_ + (class-instance? RuntimeException::t _exn64965_)) + (let ((_e64967_ (let () (declare (not safe)) - (unchecked-slot-ref _exn92069_ 'exception)))) - (if (macro-cfun-conversion-exception? _e92071_) - (macro-cfun-conversion-exception-message _e92071_) - (error '"not an instance" - 'cfun-conversion-exception? - (let ((__tmp97210 + (unchecked-slot-ref _exn64965_ 'exception)))) + (if (macro-cfun-conversion-exception? _e64967_) + (macro-cfun-conversion-exception-message _e64967_) + (let ((__tmp65543 + (let ((__tmp65544 (let () (declare (not safe)) - (cons _e92071_ '())))) + (cons _e64967_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-message - __tmp97210))))) - (if (macro-cfun-conversion-exception? _exn92069_) - (macro-cfun-conversion-exception-message _exn92069_) - (error '"not an instance" - 'cfun-conversion-exception? - (let ((__tmp97209 + __tmp65544)))) + (declare (not safe)) + (error '"not an instance" + 'cfun-conversion-exception? + __tmp65543)))) + (if (macro-cfun-conversion-exception? _exn64965_) + (macro-cfun-conversion-exception-message _exn64965_) + (let ((__tmp65541 + (let ((__tmp65542 (let () (declare (not safe)) - (cons _exn92069_ '())))) + (cons _exn64965_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-message - __tmp97209))))))) + __tmp65542)))) + (declare (not safe)) + (error '"not an instance" + 'cfun-conversion-exception? + __tmp65541)))))) (define cfun-conversion-exception-procedure - (lambda (_exn92063_) + (lambda (_exn64959_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn92063_)) - (let ((_e92066_ + (class-instance? RuntimeException::t _exn64959_)) + (let ((_e64962_ (let () (declare (not safe)) - (unchecked-slot-ref _exn92063_ 'exception)))) - (if (macro-cfun-conversion-exception? _e92066_) - (macro-cfun-conversion-exception-procedure _e92066_) - (error '"not an instance" - 'cfun-conversion-exception? - (let ((__tmp97212 + (unchecked-slot-ref _exn64959_ 'exception)))) + (if (macro-cfun-conversion-exception? _e64962_) + (macro-cfun-conversion-exception-procedure _e64962_) + (let ((__tmp65547 + (let ((__tmp65548 (let () (declare (not safe)) - (cons _e92066_ '())))) + (cons _e64962_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-procedure - __tmp97212))))) - (if (macro-cfun-conversion-exception? _exn92063_) - (macro-cfun-conversion-exception-procedure _exn92063_) - (error '"not an instance" - 'cfun-conversion-exception? - (let ((__tmp97211 + __tmp65548)))) + (declare (not safe)) + (error '"not an instance" + 'cfun-conversion-exception? + __tmp65547)))) + (if (macro-cfun-conversion-exception? _exn64959_) + (macro-cfun-conversion-exception-procedure _exn64959_) + (let ((__tmp65545 + (let ((__tmp65546 (let () (declare (not safe)) - (cons _exn92063_ '())))) + (cons _exn64959_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-procedure - __tmp97211))))))) + __tmp65546)))) + (declare (not safe)) + (error '"not an instance" + 'cfun-conversion-exception? + __tmp65545)))))) (define datum-parsing-exception? - (lambda (_exn92059_) + (lambda (_exn64955_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn92059_)) - (let ((_e92061_ + (class-instance? RuntimeException::t _exn64955_)) + (let ((_e64957_ (let () (declare (not safe)) - (unchecked-slot-ref _exn92059_ 'exception)))) - (macro-datum-parsing-exception? _e92061_)) - (macro-datum-parsing-exception? _exn92059_)))) + (unchecked-slot-ref _exn64955_ 'exception)))) + (macro-datum-parsing-exception? _e64957_)) + (macro-datum-parsing-exception? _exn64955_)))) (define datum-parsing-exception-kind - (lambda (_exn92055_) + (lambda (_exn64951_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn92055_)) - (let ((_e92057_ + (class-instance? RuntimeException::t _exn64951_)) + (let ((_e64953_ (let () (declare (not safe)) - (unchecked-slot-ref _exn92055_ 'exception)))) - (if (macro-datum-parsing-exception? _e92057_) - (macro-datum-parsing-exception-kind _e92057_) - (error '"not an instance" - 'datum-parsing-exception? - (let ((__tmp97214 + (unchecked-slot-ref _exn64951_ 'exception)))) + (if (macro-datum-parsing-exception? _e64953_) + (macro-datum-parsing-exception-kind _e64953_) + (let ((__tmp65551 + (let ((__tmp65552 (let () (declare (not safe)) - (cons _e92057_ '())))) + (cons _e64953_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-kind __tmp97214))))) - (if (macro-datum-parsing-exception? _exn92055_) - (macro-datum-parsing-exception-kind _exn92055_) - (error '"not an instance" - 'datum-parsing-exception? - (let ((__tmp97213 + (cons 'datum-parsing-exception-kind __tmp65552)))) + (declare (not safe)) + (error '"not an instance" + 'datum-parsing-exception? + __tmp65551)))) + (if (macro-datum-parsing-exception? _exn64951_) + (macro-datum-parsing-exception-kind _exn64951_) + (let ((__tmp65549 + (let ((__tmp65550 (let () (declare (not safe)) - (cons _exn92055_ '())))) + (cons _exn64951_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-kind __tmp97213))))))) + (cons 'datum-parsing-exception-kind __tmp65550)))) + (declare (not safe)) + (error '"not an instance" + 'datum-parsing-exception? + __tmp65549)))))) (define datum-parsing-exception-parameters - (lambda (_exn92051_) + (lambda (_exn64947_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn92051_)) - (let ((_e92053_ + (class-instance? RuntimeException::t _exn64947_)) + (let ((_e64949_ (let () (declare (not safe)) - (unchecked-slot-ref _exn92051_ 'exception)))) - (if (macro-datum-parsing-exception? _e92053_) - (macro-datum-parsing-exception-parameters _e92053_) - (error '"not an instance" - 'datum-parsing-exception? - (let ((__tmp97216 + (unchecked-slot-ref _exn64947_ 'exception)))) + (if (macro-datum-parsing-exception? _e64949_) + (macro-datum-parsing-exception-parameters _e64949_) + (let ((__tmp65555 + (let ((__tmp65556 (let () (declare (not safe)) - (cons _e92053_ '())))) + (cons _e64949_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-parameters - __tmp97216))))) - (if (macro-datum-parsing-exception? _exn92051_) - (macro-datum-parsing-exception-parameters _exn92051_) - (error '"not an instance" - 'datum-parsing-exception? - (let ((__tmp97215 + __tmp65556)))) + (declare (not safe)) + (error '"not an instance" + 'datum-parsing-exception? + __tmp65555)))) + (if (macro-datum-parsing-exception? _exn64947_) + (macro-datum-parsing-exception-parameters _exn64947_) + (let ((__tmp65553 + (let ((__tmp65554 (let () (declare (not safe)) - (cons _exn92051_ '())))) + (cons _exn64947_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-parameters - __tmp97215))))))) + __tmp65554)))) + (declare (not safe)) + (error '"not an instance" + 'datum-parsing-exception? + __tmp65553)))))) (define datum-parsing-exception-readenv - (lambda (_exn92045_) + (lambda (_exn64941_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn92045_)) - (let ((_e92048_ + (class-instance? RuntimeException::t _exn64941_)) + (let ((_e64944_ (let () (declare (not safe)) - (unchecked-slot-ref _exn92045_ 'exception)))) - (if (macro-datum-parsing-exception? _e92048_) - (macro-datum-parsing-exception-readenv _e92048_) - (error '"not an instance" - 'datum-parsing-exception? - (let ((__tmp97218 + (unchecked-slot-ref _exn64941_ 'exception)))) + (if (macro-datum-parsing-exception? _e64944_) + (macro-datum-parsing-exception-readenv _e64944_) + (let ((__tmp65559 + (let ((__tmp65560 (let () (declare (not safe)) - (cons _e92048_ '())))) + (cons _e64944_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-readenv - __tmp97218))))) - (if (macro-datum-parsing-exception? _exn92045_) - (macro-datum-parsing-exception-readenv _exn92045_) - (error '"not an instance" - 'datum-parsing-exception? - (let ((__tmp97217 + __tmp65560)))) + (declare (not safe)) + (error '"not an instance" + 'datum-parsing-exception? + __tmp65559)))) + (if (macro-datum-parsing-exception? _exn64941_) + (macro-datum-parsing-exception-readenv _exn64941_) + (let ((__tmp65557 + (let ((__tmp65558 (let () (declare (not safe)) - (cons _exn92045_ '())))) + (cons _exn64941_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-readenv - __tmp97217))))))) + (cons 'datum-parsing-exception-readenv __tmp65558)))) + (declare (not safe)) + (error '"not an instance" + 'datum-parsing-exception? + __tmp65557)))))) (define deadlock-exception? - (lambda (_exn92039_) + (lambda (_exn64935_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn92039_)) - (let ((_e92042_ + (class-instance? RuntimeException::t _exn64935_)) + (let ((_e64938_ (let () (declare (not safe)) - (unchecked-slot-ref _exn92039_ 'exception)))) - (macro-deadlock-exception? _e92042_)) - (macro-deadlock-exception? _exn92039_)))) + (unchecked-slot-ref _exn64935_ 'exception)))) + (macro-deadlock-exception? _e64938_)) + (macro-deadlock-exception? _exn64935_)))) (define divide-by-zero-exception? - (lambda (_exn92035_) + (lambda (_exn64931_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn92035_)) - (let ((_e92037_ + (class-instance? RuntimeException::t _exn64931_)) + (let ((_e64933_ (let () (declare (not safe)) - (unchecked-slot-ref _exn92035_ 'exception)))) - (macro-divide-by-zero-exception? _e92037_)) - (macro-divide-by-zero-exception? _exn92035_)))) + (unchecked-slot-ref _exn64931_ 'exception)))) + (macro-divide-by-zero-exception? _e64933_)) + (macro-divide-by-zero-exception? _exn64931_)))) (define divide-by-zero-exception-arguments - (lambda (_exn92031_) + (lambda (_exn64927_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn92031_)) - (let ((_e92033_ + (class-instance? RuntimeException::t _exn64927_)) + (let ((_e64929_ (let () (declare (not safe)) - (unchecked-slot-ref _exn92031_ 'exception)))) - (if (macro-divide-by-zero-exception? _e92033_) - (macro-divide-by-zero-exception-arguments _e92033_) - (error '"not an instance" - 'divide-by-zero-exception? - (let ((__tmp97220 + (unchecked-slot-ref _exn64927_ 'exception)))) + (if (macro-divide-by-zero-exception? _e64929_) + (macro-divide-by-zero-exception-arguments _e64929_) + (let ((__tmp65563 + (let ((__tmp65564 (let () (declare (not safe)) - (cons _e92033_ '())))) + (cons _e64929_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-arguments - __tmp97220))))) - (if (macro-divide-by-zero-exception? _exn92031_) - (macro-divide-by-zero-exception-arguments _exn92031_) - (error '"not an instance" - 'divide-by-zero-exception? - (let ((__tmp97219 + __tmp65564)))) + (declare (not safe)) + (error '"not an instance" + 'divide-by-zero-exception? + __tmp65563)))) + (if (macro-divide-by-zero-exception? _exn64927_) + (macro-divide-by-zero-exception-arguments _exn64927_) + (let ((__tmp65561 + (let ((__tmp65562 (let () (declare (not safe)) - (cons _exn92031_ '())))) + (cons _exn64927_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-arguments - __tmp97219))))))) + __tmp65562)))) + (declare (not safe)) + (error '"not an instance" + 'divide-by-zero-exception? + __tmp65561)))))) (define divide-by-zero-exception-procedure - (lambda (_exn92025_) + (lambda (_exn64921_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn92025_)) - (let ((_e92028_ + (class-instance? RuntimeException::t _exn64921_)) + (let ((_e64924_ (let () (declare (not safe)) - (unchecked-slot-ref _exn92025_ 'exception)))) - (if (macro-divide-by-zero-exception? _e92028_) - (macro-divide-by-zero-exception-procedure _e92028_) - (error '"not an instance" - 'divide-by-zero-exception? - (let ((__tmp97222 + (unchecked-slot-ref _exn64921_ 'exception)))) + (if (macro-divide-by-zero-exception? _e64924_) + (macro-divide-by-zero-exception-procedure _e64924_) + (let ((__tmp65567 + (let ((__tmp65568 (let () (declare (not safe)) - (cons _e92028_ '())))) + (cons _e64924_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-procedure - __tmp97222))))) - (if (macro-divide-by-zero-exception? _exn92025_) - (macro-divide-by-zero-exception-procedure _exn92025_) - (error '"not an instance" - 'divide-by-zero-exception? - (let ((__tmp97221 + __tmp65568)))) + (declare (not safe)) + (error '"not an instance" + 'divide-by-zero-exception? + __tmp65567)))) + (if (macro-divide-by-zero-exception? _exn64921_) + (macro-divide-by-zero-exception-procedure _exn64921_) + (let ((__tmp65565 + (let ((__tmp65566 (let () (declare (not safe)) - (cons _exn92025_ '())))) + (cons _exn64921_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-procedure - __tmp97221))))))) + __tmp65566)))) + (declare (not safe)) + (error '"not an instance" + 'divide-by-zero-exception? + __tmp65565)))))) (define error-exception? - (lambda (_exn92021_) + (lambda (_exn64917_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn92021_)) - (let ((_e92023_ + (class-instance? RuntimeException::t _exn64917_)) + (let ((_e64919_ (let () (declare (not safe)) - (unchecked-slot-ref _exn92021_ 'exception)))) - (macro-error-exception? _e92023_)) - (macro-error-exception? _exn92021_)))) + (unchecked-slot-ref _exn64917_ 'exception)))) + (macro-error-exception? _e64919_)) + (macro-error-exception? _exn64917_)))) (define error-exception-message - (lambda (_exn92017_) + (lambda (_exn64913_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn92017_)) - (let ((_e92019_ + (class-instance? RuntimeException::t _exn64913_)) + (let ((_e64915_ (let () (declare (not safe)) - (unchecked-slot-ref _exn92017_ 'exception)))) - (if (macro-error-exception? _e92019_) - (macro-error-exception-message _e92019_) - (error '"not an instance" - 'error-exception? - (let ((__tmp97224 + (unchecked-slot-ref _exn64913_ 'exception)))) + (if (macro-error-exception? _e64915_) + (macro-error-exception-message _e64915_) + (let ((__tmp65571 + (let ((__tmp65572 (let () (declare (not safe)) - (cons _e92019_ '())))) + (cons _e64915_ '())))) (declare (not safe)) - (cons 'error-exception-message __tmp97224))))) - (if (macro-error-exception? _exn92017_) - (macro-error-exception-message _exn92017_) - (error '"not an instance" - 'error-exception? - (let ((__tmp97223 + (cons 'error-exception-message __tmp65572)))) + (declare (not safe)) + (error '"not an instance" 'error-exception? __tmp65571)))) + (if (macro-error-exception? _exn64913_) + (macro-error-exception-message _exn64913_) + (let ((__tmp65569 + (let ((__tmp65570 (let () (declare (not safe)) - (cons _exn92017_ '())))) + (cons _exn64913_ '())))) (declare (not safe)) - (cons 'error-exception-message __tmp97223))))))) + (cons 'error-exception-message __tmp65570)))) + (declare (not safe)) + (error '"not an instance" 'error-exception? __tmp65569)))))) (define error-exception-parameters - (lambda (_exn92011_) + (lambda (_exn64907_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn92011_)) - (let ((_e92014_ + (class-instance? RuntimeException::t _exn64907_)) + (let ((_e64910_ (let () (declare (not safe)) - (unchecked-slot-ref _exn92011_ 'exception)))) - (if (macro-error-exception? _e92014_) - (macro-error-exception-parameters _e92014_) - (error '"not an instance" - 'error-exception? - (let ((__tmp97226 + (unchecked-slot-ref _exn64907_ 'exception)))) + (if (macro-error-exception? _e64910_) + (macro-error-exception-parameters _e64910_) + (let ((__tmp65575 + (let ((__tmp65576 (let () (declare (not safe)) - (cons _e92014_ '())))) + (cons _e64910_ '())))) (declare (not safe)) - (cons 'error-exception-parameters __tmp97226))))) - (if (macro-error-exception? _exn92011_) - (macro-error-exception-parameters _exn92011_) - (error '"not an instance" - 'error-exception? - (let ((__tmp97225 + (cons 'error-exception-parameters __tmp65576)))) + (declare (not safe)) + (error '"not an instance" 'error-exception? __tmp65575)))) + (if (macro-error-exception? _exn64907_) + (macro-error-exception-parameters _exn64907_) + (let ((__tmp65573 + (let ((__tmp65574 (let () (declare (not safe)) - (cons _exn92011_ '())))) + (cons _exn64907_ '())))) (declare (not safe)) - (cons 'error-exception-parameters __tmp97225))))))) + (cons 'error-exception-parameters __tmp65574)))) + (declare (not safe)) + (error '"not an instance" 'error-exception? __tmp65573)))))) (define expression-parsing-exception? - (lambda (_exn92007_) + (lambda (_exn64903_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn92007_)) - (let ((_e92009_ + (class-instance? RuntimeException::t _exn64903_)) + (let ((_e64905_ (let () (declare (not safe)) - (unchecked-slot-ref _exn92007_ 'exception)))) - (macro-expression-parsing-exception? _e92009_)) - (macro-expression-parsing-exception? _exn92007_)))) + (unchecked-slot-ref _exn64903_ 'exception)))) + (macro-expression-parsing-exception? _e64905_)) + (macro-expression-parsing-exception? _exn64903_)))) (define expression-parsing-exception-kind - (lambda (_exn92003_) + (lambda (_exn64899_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn92003_)) - (let ((_e92005_ + (class-instance? RuntimeException::t _exn64899_)) + (let ((_e64901_ (let () (declare (not safe)) - (unchecked-slot-ref _exn92003_ 'exception)))) - (if (macro-expression-parsing-exception? _e92005_) - (macro-expression-parsing-exception-kind _e92005_) - (error '"not an instance" - 'expression-parsing-exception? - (let ((__tmp97228 + (unchecked-slot-ref _exn64899_ 'exception)))) + (if (macro-expression-parsing-exception? _e64901_) + (macro-expression-parsing-exception-kind _e64901_) + (let ((__tmp65579 + (let ((__tmp65580 (let () (declare (not safe)) - (cons _e92005_ '())))) + (cons _e64901_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-kind - __tmp97228))))) - (if (macro-expression-parsing-exception? _exn92003_) - (macro-expression-parsing-exception-kind _exn92003_) - (error '"not an instance" - 'expression-parsing-exception? - (let ((__tmp97227 + __tmp65580)))) + (declare (not safe)) + (error '"not an instance" + 'expression-parsing-exception? + __tmp65579)))) + (if (macro-expression-parsing-exception? _exn64899_) + (macro-expression-parsing-exception-kind _exn64899_) + (let ((__tmp65577 + (let ((__tmp65578 (let () (declare (not safe)) - (cons _exn92003_ '())))) + (cons _exn64899_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-kind - __tmp97227))))))) + __tmp65578)))) + (declare (not safe)) + (error '"not an instance" + 'expression-parsing-exception? + __tmp65577)))))) (define expression-parsing-exception-parameters - (lambda (_exn91999_) + (lambda (_exn64895_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91999_)) - (let ((_e92001_ + (class-instance? RuntimeException::t _exn64895_)) + (let ((_e64897_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91999_ 'exception)))) - (if (macro-expression-parsing-exception? _e92001_) - (macro-expression-parsing-exception-parameters _e92001_) - (error '"not an instance" - 'expression-parsing-exception? - (let ((__tmp97230 + (unchecked-slot-ref _exn64895_ 'exception)))) + (if (macro-expression-parsing-exception? _e64897_) + (macro-expression-parsing-exception-parameters _e64897_) + (let ((__tmp65583 + (let ((__tmp65584 (let () (declare (not safe)) - (cons _e92001_ '())))) + (cons _e64897_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-parameters - __tmp97230))))) - (if (macro-expression-parsing-exception? _exn91999_) - (macro-expression-parsing-exception-parameters _exn91999_) - (error '"not an instance" - 'expression-parsing-exception? - (let ((__tmp97229 + __tmp65584)))) + (declare (not safe)) + (error '"not an instance" + 'expression-parsing-exception? + __tmp65583)))) + (if (macro-expression-parsing-exception? _exn64895_) + (macro-expression-parsing-exception-parameters _exn64895_) + (let ((__tmp65581 + (let ((__tmp65582 (let () (declare (not safe)) - (cons _exn91999_ '())))) + (cons _exn64895_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-parameters - __tmp97229))))))) + __tmp65582)))) + (declare (not safe)) + (error '"not an instance" + 'expression-parsing-exception? + __tmp65581)))))) (define expression-parsing-exception-source - (lambda (_exn91993_) + (lambda (_exn64889_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91993_)) - (let ((_e91996_ + (class-instance? RuntimeException::t _exn64889_)) + (let ((_e64892_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91993_ 'exception)))) - (if (macro-expression-parsing-exception? _e91996_) - (macro-expression-parsing-exception-source _e91996_) - (error '"not an instance" - 'expression-parsing-exception? - (let ((__tmp97232 + (unchecked-slot-ref _exn64889_ 'exception)))) + (if (macro-expression-parsing-exception? _e64892_) + (macro-expression-parsing-exception-source _e64892_) + (let ((__tmp65587 + (let ((__tmp65588 (let () (declare (not safe)) - (cons _e91996_ '())))) + (cons _e64892_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-source - __tmp97232))))) - (if (macro-expression-parsing-exception? _exn91993_) - (macro-expression-parsing-exception-source _exn91993_) - (error '"not an instance" - 'expression-parsing-exception? - (let ((__tmp97231 + __tmp65588)))) + (declare (not safe)) + (error '"not an instance" + 'expression-parsing-exception? + __tmp65587)))) + (if (macro-expression-parsing-exception? _exn64889_) + (macro-expression-parsing-exception-source _exn64889_) + (let ((__tmp65585 + (let ((__tmp65586 (let () (declare (not safe)) - (cons _exn91993_ '())))) + (cons _exn64889_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-source - __tmp97231))))))) + __tmp65586)))) + (declare (not safe)) + (error '"not an instance" + 'expression-parsing-exception? + __tmp65585)))))) (define file-exists-exception? - (lambda (_exn91989_) + (lambda (_exn64885_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91989_)) - (let ((_e91991_ + (class-instance? RuntimeException::t _exn64885_)) + (let ((_e64887_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91989_ 'exception)))) - (macro-file-exists-exception? _e91991_)) - (macro-file-exists-exception? _exn91989_)))) + (unchecked-slot-ref _exn64885_ 'exception)))) + (macro-file-exists-exception? _e64887_)) + (macro-file-exists-exception? _exn64885_)))) (define file-exists-exception-arguments - (lambda (_exn91985_) + (lambda (_exn64881_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91985_)) - (let ((_e91987_ + (class-instance? RuntimeException::t _exn64881_)) + (let ((_e64883_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91985_ 'exception)))) - (if (macro-file-exists-exception? _e91987_) - (macro-file-exists-exception-arguments _e91987_) - (error '"not an instance" - 'file-exists-exception? - (let ((__tmp97234 + (unchecked-slot-ref _exn64881_ 'exception)))) + (if (macro-file-exists-exception? _e64883_) + (macro-file-exists-exception-arguments _e64883_) + (let ((__tmp65591 + (let ((__tmp65592 (let () (declare (not safe)) - (cons _e91987_ '())))) + (cons _e64883_ '())))) (declare (not safe)) (cons 'file-exists-exception-arguments - __tmp97234))))) - (if (macro-file-exists-exception? _exn91985_) - (macro-file-exists-exception-arguments _exn91985_) - (error '"not an instance" - 'file-exists-exception? - (let ((__tmp97233 + __tmp65592)))) + (declare (not safe)) + (error '"not an instance" + 'file-exists-exception? + __tmp65591)))) + (if (macro-file-exists-exception? _exn64881_) + (macro-file-exists-exception-arguments _exn64881_) + (let ((__tmp65589 + (let ((__tmp65590 (let () (declare (not safe)) - (cons _exn91985_ '())))) + (cons _exn64881_ '())))) (declare (not safe)) - (cons 'file-exists-exception-arguments - __tmp97233))))))) + (cons 'file-exists-exception-arguments __tmp65590)))) + (declare (not safe)) + (error '"not an instance" + 'file-exists-exception? + __tmp65589)))))) (define file-exists-exception-procedure - (lambda (_exn91979_) + (lambda (_exn64875_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91979_)) - (let ((_e91982_ + (class-instance? RuntimeException::t _exn64875_)) + (let ((_e64878_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91979_ 'exception)))) - (if (macro-file-exists-exception? _e91982_) - (macro-file-exists-exception-procedure _e91982_) - (error '"not an instance" - 'file-exists-exception? - (let ((__tmp97236 + (unchecked-slot-ref _exn64875_ 'exception)))) + (if (macro-file-exists-exception? _e64878_) + (macro-file-exists-exception-procedure _e64878_) + (let ((__tmp65595 + (let ((__tmp65596 (let () (declare (not safe)) - (cons _e91982_ '())))) + (cons _e64878_ '())))) (declare (not safe)) (cons 'file-exists-exception-procedure - __tmp97236))))) - (if (macro-file-exists-exception? _exn91979_) - (macro-file-exists-exception-procedure _exn91979_) - (error '"not an instance" - 'file-exists-exception? - (let ((__tmp97235 + __tmp65596)))) + (declare (not safe)) + (error '"not an instance" + 'file-exists-exception? + __tmp65595)))) + (if (macro-file-exists-exception? _exn64875_) + (macro-file-exists-exception-procedure _exn64875_) + (let ((__tmp65593 + (let ((__tmp65594 (let () (declare (not safe)) - (cons _exn91979_ '())))) + (cons _exn64875_ '())))) (declare (not safe)) - (cons 'file-exists-exception-procedure - __tmp97235))))))) + (cons 'file-exists-exception-procedure __tmp65594)))) + (declare (not safe)) + (error '"not an instance" + 'file-exists-exception? + __tmp65593)))))) (define fixnum-overflow-exception? - (lambda (_exn91975_) + (lambda (_exn64871_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91975_)) - (let ((_e91977_ + (class-instance? RuntimeException::t _exn64871_)) + (let ((_e64873_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91975_ 'exception)))) - (macro-fixnum-overflow-exception? _e91977_)) - (macro-fixnum-overflow-exception? _exn91975_)))) + (unchecked-slot-ref _exn64871_ 'exception)))) + (macro-fixnum-overflow-exception? _e64873_)) + (macro-fixnum-overflow-exception? _exn64871_)))) (define fixnum-overflow-exception-arguments - (lambda (_exn91971_) + (lambda (_exn64867_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91971_)) - (let ((_e91973_ + (class-instance? RuntimeException::t _exn64867_)) + (let ((_e64869_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91971_ 'exception)))) - (if (macro-fixnum-overflow-exception? _e91973_) - (macro-fixnum-overflow-exception-arguments _e91973_) - (error '"not an instance" - 'fixnum-overflow-exception? - (let ((__tmp97238 + (unchecked-slot-ref _exn64867_ 'exception)))) + (if (macro-fixnum-overflow-exception? _e64869_) + (macro-fixnum-overflow-exception-arguments _e64869_) + (let ((__tmp65599 + (let ((__tmp65600 (let () (declare (not safe)) - (cons _e91973_ '())))) + (cons _e64869_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-arguments - __tmp97238))))) - (if (macro-fixnum-overflow-exception? _exn91971_) - (macro-fixnum-overflow-exception-arguments _exn91971_) - (error '"not an instance" - 'fixnum-overflow-exception? - (let ((__tmp97237 + __tmp65600)))) + (declare (not safe)) + (error '"not an instance" + 'fixnum-overflow-exception? + __tmp65599)))) + (if (macro-fixnum-overflow-exception? _exn64867_) + (macro-fixnum-overflow-exception-arguments _exn64867_) + (let ((__tmp65597 + (let ((__tmp65598 (let () (declare (not safe)) - (cons _exn91971_ '())))) + (cons _exn64867_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-arguments - __tmp97237))))))) + __tmp65598)))) + (declare (not safe)) + (error '"not an instance" + 'fixnum-overflow-exception? + __tmp65597)))))) (define fixnum-overflow-exception-procedure - (lambda (_exn91965_) + (lambda (_exn64861_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91965_)) - (let ((_e91968_ + (class-instance? RuntimeException::t _exn64861_)) + (let ((_e64864_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91965_ 'exception)))) - (if (macro-fixnum-overflow-exception? _e91968_) - (macro-fixnum-overflow-exception-procedure _e91968_) - (error '"not an instance" - 'fixnum-overflow-exception? - (let ((__tmp97240 + (unchecked-slot-ref _exn64861_ 'exception)))) + (if (macro-fixnum-overflow-exception? _e64864_) + (macro-fixnum-overflow-exception-procedure _e64864_) + (let ((__tmp65603 + (let ((__tmp65604 (let () (declare (not safe)) - (cons _e91968_ '())))) + (cons _e64864_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-procedure - __tmp97240))))) - (if (macro-fixnum-overflow-exception? _exn91965_) - (macro-fixnum-overflow-exception-procedure _exn91965_) - (error '"not an instance" - 'fixnum-overflow-exception? - (let ((__tmp97239 + __tmp65604)))) + (declare (not safe)) + (error '"not an instance" + 'fixnum-overflow-exception? + __tmp65603)))) + (if (macro-fixnum-overflow-exception? _exn64861_) + (macro-fixnum-overflow-exception-procedure _exn64861_) + (let ((__tmp65601 + (let ((__tmp65602 (let () (declare (not safe)) - (cons _exn91965_ '())))) + (cons _exn64861_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-procedure - __tmp97239))))))) + __tmp65602)))) + (declare (not safe)) + (error '"not an instance" + 'fixnum-overflow-exception? + __tmp65601)))))) (define heap-overflow-exception? - (lambda (_exn91959_) + (lambda (_exn64855_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91959_)) - (let ((_e91962_ + (class-instance? RuntimeException::t _exn64855_)) + (let ((_e64858_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91959_ 'exception)))) - (macro-heap-overflow-exception? _e91962_)) - (macro-heap-overflow-exception? _exn91959_)))) + (unchecked-slot-ref _exn64855_ 'exception)))) + (macro-heap-overflow-exception? _e64858_)) + (macro-heap-overflow-exception? _exn64855_)))) (define inactive-thread-exception? - (lambda (_exn91955_) + (lambda (_exn64851_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91955_)) - (let ((_e91957_ + (class-instance? RuntimeException::t _exn64851_)) + (let ((_e64853_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91955_ 'exception)))) - (macro-inactive-thread-exception? _e91957_)) - (macro-inactive-thread-exception? _exn91955_)))) + (unchecked-slot-ref _exn64851_ 'exception)))) + (macro-inactive-thread-exception? _e64853_)) + (macro-inactive-thread-exception? _exn64851_)))) (define inactive-thread-exception-arguments - (lambda (_exn91951_) + (lambda (_exn64847_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91951_)) - (let ((_e91953_ + (class-instance? RuntimeException::t _exn64847_)) + (let ((_e64849_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91951_ 'exception)))) - (if (macro-inactive-thread-exception? _e91953_) - (macro-inactive-thread-exception-arguments _e91953_) - (error '"not an instance" - 'inactive-thread-exception? - (let ((__tmp97242 + (unchecked-slot-ref _exn64847_ 'exception)))) + (if (macro-inactive-thread-exception? _e64849_) + (macro-inactive-thread-exception-arguments _e64849_) + (let ((__tmp65607 + (let ((__tmp65608 (let () (declare (not safe)) - (cons _e91953_ '())))) + (cons _e64849_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-arguments - __tmp97242))))) - (if (macro-inactive-thread-exception? _exn91951_) - (macro-inactive-thread-exception-arguments _exn91951_) - (error '"not an instance" - 'inactive-thread-exception? - (let ((__tmp97241 + __tmp65608)))) + (declare (not safe)) + (error '"not an instance" + 'inactive-thread-exception? + __tmp65607)))) + (if (macro-inactive-thread-exception? _exn64847_) + (macro-inactive-thread-exception-arguments _exn64847_) + (let ((__tmp65605 + (let ((__tmp65606 (let () (declare (not safe)) - (cons _exn91951_ '())))) + (cons _exn64847_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-arguments - __tmp97241))))))) + __tmp65606)))) + (declare (not safe)) + (error '"not an instance" + 'inactive-thread-exception? + __tmp65605)))))) (define inactive-thread-exception-procedure - (lambda (_exn91945_) + (lambda (_exn64841_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91945_)) - (let ((_e91948_ + (class-instance? RuntimeException::t _exn64841_)) + (let ((_e64844_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91945_ 'exception)))) - (if (macro-inactive-thread-exception? _e91948_) - (macro-inactive-thread-exception-procedure _e91948_) - (error '"not an instance" - 'inactive-thread-exception? - (let ((__tmp97244 + (unchecked-slot-ref _exn64841_ 'exception)))) + (if (macro-inactive-thread-exception? _e64844_) + (macro-inactive-thread-exception-procedure _e64844_) + (let ((__tmp65611 + (let ((__tmp65612 (let () (declare (not safe)) - (cons _e91948_ '())))) + (cons _e64844_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-procedure - __tmp97244))))) - (if (macro-inactive-thread-exception? _exn91945_) - (macro-inactive-thread-exception-procedure _exn91945_) - (error '"not an instance" - 'inactive-thread-exception? - (let ((__tmp97243 + __tmp65612)))) + (declare (not safe)) + (error '"not an instance" + 'inactive-thread-exception? + __tmp65611)))) + (if (macro-inactive-thread-exception? _exn64841_) + (macro-inactive-thread-exception-procedure _exn64841_) + (let ((__tmp65609 + (let ((__tmp65610 (let () (declare (not safe)) - (cons _exn91945_ '())))) + (cons _exn64841_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-procedure - __tmp97243))))))) + __tmp65610)))) + (declare (not safe)) + (error '"not an instance" + 'inactive-thread-exception? + __tmp65609)))))) (define initialized-thread-exception? - (lambda (_exn91941_) + (lambda (_exn64837_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91941_)) - (let ((_e91943_ + (class-instance? RuntimeException::t _exn64837_)) + (let ((_e64839_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91941_ 'exception)))) - (macro-initialized-thread-exception? _e91943_)) - (macro-initialized-thread-exception? _exn91941_)))) + (unchecked-slot-ref _exn64837_ 'exception)))) + (macro-initialized-thread-exception? _e64839_)) + (macro-initialized-thread-exception? _exn64837_)))) (define initialized-thread-exception-arguments - (lambda (_exn91937_) + (lambda (_exn64833_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91937_)) - (let ((_e91939_ + (class-instance? RuntimeException::t _exn64833_)) + (let ((_e64835_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91937_ 'exception)))) - (if (macro-initialized-thread-exception? _e91939_) - (macro-initialized-thread-exception-arguments _e91939_) - (error '"not an instance" - 'initialized-thread-exception? - (let ((__tmp97246 + (unchecked-slot-ref _exn64833_ 'exception)))) + (if (macro-initialized-thread-exception? _e64835_) + (macro-initialized-thread-exception-arguments _e64835_) + (let ((__tmp65615 + (let ((__tmp65616 (let () (declare (not safe)) - (cons _e91939_ '())))) + (cons _e64835_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-arguments - __tmp97246))))) - (if (macro-initialized-thread-exception? _exn91937_) - (macro-initialized-thread-exception-arguments _exn91937_) - (error '"not an instance" - 'initialized-thread-exception? - (let ((__tmp97245 + __tmp65616)))) + (declare (not safe)) + (error '"not an instance" + 'initialized-thread-exception? + __tmp65615)))) + (if (macro-initialized-thread-exception? _exn64833_) + (macro-initialized-thread-exception-arguments _exn64833_) + (let ((__tmp65613 + (let ((__tmp65614 (let () (declare (not safe)) - (cons _exn91937_ '())))) + (cons _exn64833_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-arguments - __tmp97245))))))) + __tmp65614)))) + (declare (not safe)) + (error '"not an instance" + 'initialized-thread-exception? + __tmp65613)))))) (define initialized-thread-exception-procedure - (lambda (_exn91931_) + (lambda (_exn64827_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91931_)) - (let ((_e91934_ + (class-instance? RuntimeException::t _exn64827_)) + (let ((_e64830_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91931_ 'exception)))) - (if (macro-initialized-thread-exception? _e91934_) - (macro-initialized-thread-exception-procedure _e91934_) - (error '"not an instance" - 'initialized-thread-exception? - (let ((__tmp97248 + (unchecked-slot-ref _exn64827_ 'exception)))) + (if (macro-initialized-thread-exception? _e64830_) + (macro-initialized-thread-exception-procedure _e64830_) + (let ((__tmp65619 + (let ((__tmp65620 (let () (declare (not safe)) - (cons _e91934_ '())))) + (cons _e64830_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-procedure - __tmp97248))))) - (if (macro-initialized-thread-exception? _exn91931_) - (macro-initialized-thread-exception-procedure _exn91931_) - (error '"not an instance" - 'initialized-thread-exception? - (let ((__tmp97247 + __tmp65620)))) + (declare (not safe)) + (error '"not an instance" + 'initialized-thread-exception? + __tmp65619)))) + (if (macro-initialized-thread-exception? _exn64827_) + (macro-initialized-thread-exception-procedure _exn64827_) + (let ((__tmp65617 + (let ((__tmp65618 (let () (declare (not safe)) - (cons _exn91931_ '())))) + (cons _exn64827_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-procedure - __tmp97247))))))) + __tmp65618)))) + (declare (not safe)) + (error '"not an instance" + 'initialized-thread-exception? + __tmp65617)))))) (define invalid-hash-number-exception? - (lambda (_exn91927_) + (lambda (_exn64823_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91927_)) - (let ((_e91929_ + (class-instance? RuntimeException::t _exn64823_)) + (let ((_e64825_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91927_ 'exception)))) - (macro-invalid-hash-number-exception? _e91929_)) - (macro-invalid-hash-number-exception? _exn91927_)))) + (unchecked-slot-ref _exn64823_ 'exception)))) + (macro-invalid-hash-number-exception? _e64825_)) + (macro-invalid-hash-number-exception? _exn64823_)))) (define invalid-hash-number-exception-arguments - (lambda (_exn91923_) + (lambda (_exn64819_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91923_)) - (let ((_e91925_ + (class-instance? RuntimeException::t _exn64819_)) + (let ((_e64821_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91923_ 'exception)))) - (if (macro-invalid-hash-number-exception? _e91925_) - (macro-invalid-hash-number-exception-arguments _e91925_) - (error '"not an instance" - 'invalid-hash-number-exception? - (let ((__tmp97250 + (unchecked-slot-ref _exn64819_ 'exception)))) + (if (macro-invalid-hash-number-exception? _e64821_) + (macro-invalid-hash-number-exception-arguments _e64821_) + (let ((__tmp65623 + (let ((__tmp65624 (let () (declare (not safe)) - (cons _e91925_ '())))) + (cons _e64821_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-arguments - __tmp97250))))) - (if (macro-invalid-hash-number-exception? _exn91923_) - (macro-invalid-hash-number-exception-arguments _exn91923_) - (error '"not an instance" - 'invalid-hash-number-exception? - (let ((__tmp97249 + __tmp65624)))) + (declare (not safe)) + (error '"not an instance" + 'invalid-hash-number-exception? + __tmp65623)))) + (if (macro-invalid-hash-number-exception? _exn64819_) + (macro-invalid-hash-number-exception-arguments _exn64819_) + (let ((__tmp65621 + (let ((__tmp65622 (let () (declare (not safe)) - (cons _exn91923_ '())))) + (cons _exn64819_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-arguments - __tmp97249))))))) + __tmp65622)))) + (declare (not safe)) + (error '"not an instance" + 'invalid-hash-number-exception? + __tmp65621)))))) (define invalid-hash-number-exception-procedure - (lambda (_exn91917_) + (lambda (_exn64813_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91917_)) - (let ((_e91920_ + (class-instance? RuntimeException::t _exn64813_)) + (let ((_e64816_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91917_ 'exception)))) - (if (macro-invalid-hash-number-exception? _e91920_) - (macro-invalid-hash-number-exception-procedure _e91920_) - (error '"not an instance" - 'invalid-hash-number-exception? - (let ((__tmp97252 + (unchecked-slot-ref _exn64813_ 'exception)))) + (if (macro-invalid-hash-number-exception? _e64816_) + (macro-invalid-hash-number-exception-procedure _e64816_) + (let ((__tmp65627 + (let ((__tmp65628 (let () (declare (not safe)) - (cons _e91920_ '())))) + (cons _e64816_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-procedure - __tmp97252))))) - (if (macro-invalid-hash-number-exception? _exn91917_) - (macro-invalid-hash-number-exception-procedure _exn91917_) - (error '"not an instance" - 'invalid-hash-number-exception? - (let ((__tmp97251 + __tmp65628)))) + (declare (not safe)) + (error '"not an instance" + 'invalid-hash-number-exception? + __tmp65627)))) + (if (macro-invalid-hash-number-exception? _exn64813_) + (macro-invalid-hash-number-exception-procedure _exn64813_) + (let ((__tmp65625 + (let ((__tmp65626 (let () (declare (not safe)) - (cons _exn91917_ '())))) + (cons _exn64813_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-procedure - __tmp97251))))))) + __tmp65626)))) + (declare (not safe)) + (error '"not an instance" + 'invalid-hash-number-exception? + __tmp65625)))))) (define invalid-utf8-encoding-exception? - (lambda (_exn91913_) + (lambda (_exn64809_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91913_)) - (let ((_e91915_ + (class-instance? RuntimeException::t _exn64809_)) + (let ((_e64811_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91913_ 'exception)))) - (macro-invalid-utf8-encoding-exception? _e91915_)) - (macro-invalid-utf8-encoding-exception? _exn91913_)))) + (unchecked-slot-ref _exn64809_ 'exception)))) + (macro-invalid-utf8-encoding-exception? _e64811_)) + (macro-invalid-utf8-encoding-exception? _exn64809_)))) (define invalid-utf8-encoding-exception-arguments - (lambda (_exn91909_) + (lambda (_exn64805_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91909_)) - (let ((_e91911_ + (class-instance? RuntimeException::t _exn64805_)) + (let ((_e64807_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91909_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _e91911_) - (macro-invalid-utf8-encoding-exception-arguments _e91911_) - (error '"not an instance" - 'invalid-utf8-encoding-exception? - (let ((__tmp97254 + (unchecked-slot-ref _exn64805_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _e64807_) + (macro-invalid-utf8-encoding-exception-arguments _e64807_) + (let ((__tmp65631 + (let ((__tmp65632 (let () (declare (not safe)) - (cons _e91911_ '())))) + (cons _e64807_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-arguments - __tmp97254))))) - (if (macro-invalid-utf8-encoding-exception? _exn91909_) - (macro-invalid-utf8-encoding-exception-arguments _exn91909_) - (error '"not an instance" - 'invalid-utf8-encoding-exception? - (let ((__tmp97253 + __tmp65632)))) + (declare (not safe)) + (error '"not an instance" + 'invalid-utf8-encoding-exception? + __tmp65631)))) + (if (macro-invalid-utf8-encoding-exception? _exn64805_) + (macro-invalid-utf8-encoding-exception-arguments _exn64805_) + (let ((__tmp65629 + (let ((__tmp65630 (let () (declare (not safe)) - (cons _exn91909_ '())))) + (cons _exn64805_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-arguments - __tmp97253))))))) + __tmp65630)))) + (declare (not safe)) + (error '"not an instance" + 'invalid-utf8-encoding-exception? + __tmp65629)))))) (define invalid-utf8-encoding-exception-procedure - (lambda (_exn91903_) + (lambda (_exn64799_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91903_)) - (let ((_e91906_ + (class-instance? RuntimeException::t _exn64799_)) + (let ((_e64802_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91903_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _e91906_) - (macro-invalid-utf8-encoding-exception-procedure _e91906_) - (error '"not an instance" - 'invalid-utf8-encoding-exception? - (let ((__tmp97256 + (unchecked-slot-ref _exn64799_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _e64802_) + (macro-invalid-utf8-encoding-exception-procedure _e64802_) + (let ((__tmp65635 + (let ((__tmp65636 (let () (declare (not safe)) - (cons _e91906_ '())))) + (cons _e64802_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-procedure - __tmp97256))))) - (if (macro-invalid-utf8-encoding-exception? _exn91903_) - (macro-invalid-utf8-encoding-exception-procedure _exn91903_) - (error '"not an instance" - 'invalid-utf8-encoding-exception? - (let ((__tmp97255 + __tmp65636)))) + (declare (not safe)) + (error '"not an instance" + 'invalid-utf8-encoding-exception? + __tmp65635)))) + (if (macro-invalid-utf8-encoding-exception? _exn64799_) + (macro-invalid-utf8-encoding-exception-procedure _exn64799_) + (let ((__tmp65633 + (let ((__tmp65634 (let () (declare (not safe)) - (cons _exn91903_ '())))) + (cons _exn64799_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-procedure - __tmp97255))))))) + __tmp65634)))) + (declare (not safe)) + (error '"not an instance" + 'invalid-utf8-encoding-exception? + __tmp65633)))))) (define join-timeout-exception? - (lambda (_exn91899_) + (lambda (_exn64795_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91899_)) - (let ((_e91901_ + (class-instance? RuntimeException::t _exn64795_)) + (let ((_e64797_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91899_ 'exception)))) - (macro-join-timeout-exception? _e91901_)) - (macro-join-timeout-exception? _exn91899_)))) + (unchecked-slot-ref _exn64795_ 'exception)))) + (macro-join-timeout-exception? _e64797_)) + (macro-join-timeout-exception? _exn64795_)))) (define join-timeout-exception-arguments - (lambda (_exn91895_) + (lambda (_exn64791_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91895_)) - (let ((_e91897_ + (class-instance? RuntimeException::t _exn64791_)) + (let ((_e64793_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91895_ 'exception)))) - (if (macro-join-timeout-exception? _e91897_) - (macro-join-timeout-exception-arguments _e91897_) - (error '"not an instance" - 'join-timeout-exception? - (let ((__tmp97258 + (unchecked-slot-ref _exn64791_ 'exception)))) + (if (macro-join-timeout-exception? _e64793_) + (macro-join-timeout-exception-arguments _e64793_) + (let ((__tmp65639 + (let ((__tmp65640 (let () (declare (not safe)) - (cons _e91897_ '())))) + (cons _e64793_ '())))) (declare (not safe)) (cons 'join-timeout-exception-arguments - __tmp97258))))) - (if (macro-join-timeout-exception? _exn91895_) - (macro-join-timeout-exception-arguments _exn91895_) - (error '"not an instance" - 'join-timeout-exception? - (let ((__tmp97257 + __tmp65640)))) + (declare (not safe)) + (error '"not an instance" + 'join-timeout-exception? + __tmp65639)))) + (if (macro-join-timeout-exception? _exn64791_) + (macro-join-timeout-exception-arguments _exn64791_) + (let ((__tmp65637 + (let ((__tmp65638 (let () (declare (not safe)) - (cons _exn91895_ '())))) + (cons _exn64791_ '())))) (declare (not safe)) - (cons 'join-timeout-exception-arguments - __tmp97257))))))) + (cons 'join-timeout-exception-arguments __tmp65638)))) + (declare (not safe)) + (error '"not an instance" + 'join-timeout-exception? + __tmp65637)))))) (define join-timeout-exception-procedure - (lambda (_exn91889_) + (lambda (_exn64785_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91889_)) - (let ((_e91892_ + (class-instance? RuntimeException::t _exn64785_)) + (let ((_e64788_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91889_ 'exception)))) - (if (macro-join-timeout-exception? _e91892_) - (macro-join-timeout-exception-procedure _e91892_) - (error '"not an instance" - 'join-timeout-exception? - (let ((__tmp97260 + (unchecked-slot-ref _exn64785_ 'exception)))) + (if (macro-join-timeout-exception? _e64788_) + (macro-join-timeout-exception-procedure _e64788_) + (let ((__tmp65643 + (let ((__tmp65644 (let () (declare (not safe)) - (cons _e91892_ '())))) + (cons _e64788_ '())))) (declare (not safe)) (cons 'join-timeout-exception-procedure - __tmp97260))))) - (if (macro-join-timeout-exception? _exn91889_) - (macro-join-timeout-exception-procedure _exn91889_) - (error '"not an instance" - 'join-timeout-exception? - (let ((__tmp97259 + __tmp65644)))) + (declare (not safe)) + (error '"not an instance" + 'join-timeout-exception? + __tmp65643)))) + (if (macro-join-timeout-exception? _exn64785_) + (macro-join-timeout-exception-procedure _exn64785_) + (let ((__tmp65641 + (let ((__tmp65642 (let () (declare (not safe)) - (cons _exn91889_ '())))) + (cons _exn64785_ '())))) (declare (not safe)) - (cons 'join-timeout-exception-procedure - __tmp97259))))))) + (cons 'join-timeout-exception-procedure __tmp65642)))) + (declare (not safe)) + (error '"not an instance" + 'join-timeout-exception? + __tmp65641)))))) (define keyword-expected-exception? - (lambda (_exn91885_) + (lambda (_exn64781_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91885_)) - (let ((_e91887_ + (class-instance? RuntimeException::t _exn64781_)) + (let ((_e64783_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91885_ 'exception)))) - (macro-keyword-expected-exception? _e91887_)) - (macro-keyword-expected-exception? _exn91885_)))) + (unchecked-slot-ref _exn64781_ 'exception)))) + (macro-keyword-expected-exception? _e64783_)) + (macro-keyword-expected-exception? _exn64781_)))) (define keyword-expected-exception-arguments - (lambda (_exn91881_) + (lambda (_exn64777_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91881_)) - (let ((_e91883_ + (class-instance? RuntimeException::t _exn64777_)) + (let ((_e64779_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91881_ 'exception)))) - (if (macro-keyword-expected-exception? _e91883_) - (macro-keyword-expected-exception-arguments _e91883_) - (error '"not an instance" - 'keyword-expected-exception? - (let ((__tmp97262 + (unchecked-slot-ref _exn64777_ 'exception)))) + (if (macro-keyword-expected-exception? _e64779_) + (macro-keyword-expected-exception-arguments _e64779_) + (let ((__tmp65647 + (let ((__tmp65648 (let () (declare (not safe)) - (cons _e91883_ '())))) + (cons _e64779_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-arguments - __tmp97262))))) - (if (macro-keyword-expected-exception? _exn91881_) - (macro-keyword-expected-exception-arguments _exn91881_) - (error '"not an instance" - 'keyword-expected-exception? - (let ((__tmp97261 + __tmp65648)))) + (declare (not safe)) + (error '"not an instance" + 'keyword-expected-exception? + __tmp65647)))) + (if (macro-keyword-expected-exception? _exn64777_) + (macro-keyword-expected-exception-arguments _exn64777_) + (let ((__tmp65645 + (let ((__tmp65646 (let () (declare (not safe)) - (cons _exn91881_ '())))) + (cons _exn64777_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-arguments - __tmp97261))))))) + __tmp65646)))) + (declare (not safe)) + (error '"not an instance" + 'keyword-expected-exception? + __tmp65645)))))) (define keyword-expected-exception-procedure - (lambda (_exn91875_) + (lambda (_exn64771_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91875_)) - (let ((_e91878_ + (class-instance? RuntimeException::t _exn64771_)) + (let ((_e64774_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91875_ 'exception)))) - (if (macro-keyword-expected-exception? _e91878_) - (macro-keyword-expected-exception-procedure _e91878_) - (error '"not an instance" - 'keyword-expected-exception? - (let ((__tmp97264 + (unchecked-slot-ref _exn64771_ 'exception)))) + (if (macro-keyword-expected-exception? _e64774_) + (macro-keyword-expected-exception-procedure _e64774_) + (let ((__tmp65651 + (let ((__tmp65652 (let () (declare (not safe)) - (cons _e91878_ '())))) + (cons _e64774_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-procedure - __tmp97264))))) - (if (macro-keyword-expected-exception? _exn91875_) - (macro-keyword-expected-exception-procedure _exn91875_) - (error '"not an instance" - 'keyword-expected-exception? - (let ((__tmp97263 + __tmp65652)))) + (declare (not safe)) + (error '"not an instance" + 'keyword-expected-exception? + __tmp65651)))) + (if (macro-keyword-expected-exception? _exn64771_) + (macro-keyword-expected-exception-procedure _exn64771_) + (let ((__tmp65649 + (let ((__tmp65650 (let () (declare (not safe)) - (cons _exn91875_ '())))) + (cons _exn64771_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-procedure - __tmp97263))))))) + __tmp65650)))) + (declare (not safe)) + (error '"not an instance" + 'keyword-expected-exception? + __tmp65649)))))) (define length-mismatch-exception? - (lambda (_exn91871_) + (lambda (_exn64767_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91871_)) - (let ((_e91873_ + (class-instance? RuntimeException::t _exn64767_)) + (let ((_e64769_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91871_ 'exception)))) - (macro-length-mismatch-exception? _e91873_)) - (macro-length-mismatch-exception? _exn91871_)))) + (unchecked-slot-ref _exn64767_ 'exception)))) + (macro-length-mismatch-exception? _e64769_)) + (macro-length-mismatch-exception? _exn64767_)))) (define length-mismatch-exception-arg-id - (lambda (_exn91867_) + (lambda (_exn64763_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91867_)) - (let ((_e91869_ + (class-instance? RuntimeException::t _exn64763_)) + (let ((_e64765_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91867_ 'exception)))) - (if (macro-length-mismatch-exception? _e91869_) - (macro-length-mismatch-exception-arg-id _e91869_) - (error '"not an instance" - 'length-mismatch-exception? - (let ((__tmp97266 + (unchecked-slot-ref _exn64763_ 'exception)))) + (if (macro-length-mismatch-exception? _e64765_) + (macro-length-mismatch-exception-arg-id _e64765_) + (let ((__tmp65655 + (let ((__tmp65656 (let () (declare (not safe)) - (cons _e91869_ '())))) + (cons _e64765_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arg-id - __tmp97266))))) - (if (macro-length-mismatch-exception? _exn91867_) - (macro-length-mismatch-exception-arg-id _exn91867_) - (error '"not an instance" - 'length-mismatch-exception? - (let ((__tmp97265 + __tmp65656)))) + (declare (not safe)) + (error '"not an instance" + 'length-mismatch-exception? + __tmp65655)))) + (if (macro-length-mismatch-exception? _exn64763_) + (macro-length-mismatch-exception-arg-id _exn64763_) + (let ((__tmp65653 + (let ((__tmp65654 (let () (declare (not safe)) - (cons _exn91867_ '())))) + (cons _exn64763_ '())))) (declare (not safe)) - (cons 'length-mismatch-exception-arg-id - __tmp97265))))))) + (cons 'length-mismatch-exception-arg-id __tmp65654)))) + (declare (not safe)) + (error '"not an instance" + 'length-mismatch-exception? + __tmp65653)))))) (define length-mismatch-exception-arguments - (lambda (_exn91863_) + (lambda (_exn64759_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91863_)) - (let ((_e91865_ + (class-instance? RuntimeException::t _exn64759_)) + (let ((_e64761_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91863_ 'exception)))) - (if (macro-length-mismatch-exception? _e91865_) - (macro-length-mismatch-exception-arguments _e91865_) - (error '"not an instance" - 'length-mismatch-exception? - (let ((__tmp97268 + (unchecked-slot-ref _exn64759_ 'exception)))) + (if (macro-length-mismatch-exception? _e64761_) + (macro-length-mismatch-exception-arguments _e64761_) + (let ((__tmp65659 + (let ((__tmp65660 (let () (declare (not safe)) - (cons _e91865_ '())))) + (cons _e64761_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arguments - __tmp97268))))) - (if (macro-length-mismatch-exception? _exn91863_) - (macro-length-mismatch-exception-arguments _exn91863_) - (error '"not an instance" - 'length-mismatch-exception? - (let ((__tmp97267 + __tmp65660)))) + (declare (not safe)) + (error '"not an instance" + 'length-mismatch-exception? + __tmp65659)))) + (if (macro-length-mismatch-exception? _exn64759_) + (macro-length-mismatch-exception-arguments _exn64759_) + (let ((__tmp65657 + (let ((__tmp65658 (let () (declare (not safe)) - (cons _exn91863_ '())))) + (cons _exn64759_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arguments - __tmp97267))))))) + __tmp65658)))) + (declare (not safe)) + (error '"not an instance" + 'length-mismatch-exception? + __tmp65657)))))) (define length-mismatch-exception-procedure - (lambda (_exn91857_) + (lambda (_exn64753_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91857_)) - (let ((_e91860_ + (class-instance? RuntimeException::t _exn64753_)) + (let ((_e64756_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91857_ 'exception)))) - (if (macro-length-mismatch-exception? _e91860_) - (macro-length-mismatch-exception-procedure _e91860_) - (error '"not an instance" - 'length-mismatch-exception? - (let ((__tmp97270 + (unchecked-slot-ref _exn64753_ 'exception)))) + (if (macro-length-mismatch-exception? _e64756_) + (macro-length-mismatch-exception-procedure _e64756_) + (let ((__tmp65663 + (let ((__tmp65664 (let () (declare (not safe)) - (cons _e91860_ '())))) + (cons _e64756_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-procedure - __tmp97270))))) - (if (macro-length-mismatch-exception? _exn91857_) - (macro-length-mismatch-exception-procedure _exn91857_) - (error '"not an instance" - 'length-mismatch-exception? - (let ((__tmp97269 + __tmp65664)))) + (declare (not safe)) + (error '"not an instance" + 'length-mismatch-exception? + __tmp65663)))) + (if (macro-length-mismatch-exception? _exn64753_) + (macro-length-mismatch-exception-procedure _exn64753_) + (let ((__tmp65661 + (let ((__tmp65662 (let () (declare (not safe)) - (cons _exn91857_ '())))) + (cons _exn64753_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-procedure - __tmp97269))))))) + __tmp65662)))) + (declare (not safe)) + (error '"not an instance" + 'length-mismatch-exception? + __tmp65661)))))) (define mailbox-receive-timeout-exception? - (lambda (_exn91853_) + (lambda (_exn64749_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91853_)) - (let ((_e91855_ + (class-instance? RuntimeException::t _exn64749_)) + (let ((_e64751_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91853_ 'exception)))) - (macro-mailbox-receive-timeout-exception? _e91855_)) - (macro-mailbox-receive-timeout-exception? _exn91853_)))) + (unchecked-slot-ref _exn64749_ 'exception)))) + (macro-mailbox-receive-timeout-exception? _e64751_)) + (macro-mailbox-receive-timeout-exception? _exn64749_)))) (define mailbox-receive-timeout-exception-arguments - (lambda (_exn91849_) + (lambda (_exn64745_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91849_)) - (let ((_e91851_ + (class-instance? RuntimeException::t _exn64745_)) + (let ((_e64747_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91849_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _e91851_) - (macro-mailbox-receive-timeout-exception-arguments _e91851_) - (error '"not an instance" - 'mailbox-receive-timeout-exception? - (let ((__tmp97272 + (unchecked-slot-ref _exn64745_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _e64747_) + (macro-mailbox-receive-timeout-exception-arguments _e64747_) + (let ((__tmp65667 + (let ((__tmp65668 (let () (declare (not safe)) - (cons _e91851_ '())))) + (cons _e64747_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-arguments - __tmp97272))))) - (if (macro-mailbox-receive-timeout-exception? _exn91849_) - (macro-mailbox-receive-timeout-exception-arguments _exn91849_) - (error '"not an instance" - 'mailbox-receive-timeout-exception? - (let ((__tmp97271 + __tmp65668)))) + (declare (not safe)) + (error '"not an instance" + 'mailbox-receive-timeout-exception? + __tmp65667)))) + (if (macro-mailbox-receive-timeout-exception? _exn64745_) + (macro-mailbox-receive-timeout-exception-arguments _exn64745_) + (let ((__tmp65665 + (let ((__tmp65666 (let () (declare (not safe)) - (cons _exn91849_ '())))) + (cons _exn64745_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-arguments - __tmp97271))))))) + __tmp65666)))) + (declare (not safe)) + (error '"not an instance" + 'mailbox-receive-timeout-exception? + __tmp65665)))))) (define mailbox-receive-timeout-exception-procedure - (lambda (_exn91843_) + (lambda (_exn64739_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91843_)) - (let ((_e91846_ + (class-instance? RuntimeException::t _exn64739_)) + (let ((_e64742_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91843_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _e91846_) - (macro-mailbox-receive-timeout-exception-procedure _e91846_) - (error '"not an instance" - 'mailbox-receive-timeout-exception? - (let ((__tmp97274 + (unchecked-slot-ref _exn64739_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _e64742_) + (macro-mailbox-receive-timeout-exception-procedure _e64742_) + (let ((__tmp65671 + (let ((__tmp65672 (let () (declare (not safe)) - (cons _e91846_ '())))) + (cons _e64742_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-procedure - __tmp97274))))) - (if (macro-mailbox-receive-timeout-exception? _exn91843_) - (macro-mailbox-receive-timeout-exception-procedure _exn91843_) - (error '"not an instance" - 'mailbox-receive-timeout-exception? - (let ((__tmp97273 + __tmp65672)))) + (declare (not safe)) + (error '"not an instance" + 'mailbox-receive-timeout-exception? + __tmp65671)))) + (if (macro-mailbox-receive-timeout-exception? _exn64739_) + (macro-mailbox-receive-timeout-exception-procedure _exn64739_) + (let ((__tmp65669 + (let ((__tmp65670 (let () (declare (not safe)) - (cons _exn91843_ '())))) + (cons _exn64739_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-procedure - __tmp97273))))))) + __tmp65670)))) + (declare (not safe)) + (error '"not an instance" + 'mailbox-receive-timeout-exception? + __tmp65669)))))) (define module-not-found-exception? - (lambda (_exn91839_) + (lambda (_exn64735_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91839_)) - (let ((_e91841_ + (class-instance? RuntimeException::t _exn64735_)) + (let ((_e64737_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91839_ 'exception)))) - (macro-module-not-found-exception? _e91841_)) - (macro-module-not-found-exception? _exn91839_)))) + (unchecked-slot-ref _exn64735_ 'exception)))) + (macro-module-not-found-exception? _e64737_)) + (macro-module-not-found-exception? _exn64735_)))) (define module-not-found-exception-arguments - (lambda (_exn91835_) + (lambda (_exn64731_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91835_)) - (let ((_e91837_ + (class-instance? RuntimeException::t _exn64731_)) + (let ((_e64733_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91835_ 'exception)))) - (if (macro-module-not-found-exception? _e91837_) - (macro-module-not-found-exception-arguments _e91837_) - (error '"not an instance" - 'module-not-found-exception? - (let ((__tmp97276 + (unchecked-slot-ref _exn64731_ 'exception)))) + (if (macro-module-not-found-exception? _e64733_) + (macro-module-not-found-exception-arguments _e64733_) + (let ((__tmp65675 + (let ((__tmp65676 (let () (declare (not safe)) - (cons _e91837_ '())))) + (cons _e64733_ '())))) (declare (not safe)) (cons 'module-not-found-exception-arguments - __tmp97276))))) - (if (macro-module-not-found-exception? _exn91835_) - (macro-module-not-found-exception-arguments _exn91835_) - (error '"not an instance" - 'module-not-found-exception? - (let ((__tmp97275 + __tmp65676)))) + (declare (not safe)) + (error '"not an instance" + 'module-not-found-exception? + __tmp65675)))) + (if (macro-module-not-found-exception? _exn64731_) + (macro-module-not-found-exception-arguments _exn64731_) + (let ((__tmp65673 + (let ((__tmp65674 (let () (declare (not safe)) - (cons _exn91835_ '())))) + (cons _exn64731_ '())))) (declare (not safe)) (cons 'module-not-found-exception-arguments - __tmp97275))))))) + __tmp65674)))) + (declare (not safe)) + (error '"not an instance" + 'module-not-found-exception? + __tmp65673)))))) (define module-not-found-exception-procedure - (lambda (_exn91829_) + (lambda (_exn64725_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91829_)) - (let ((_e91832_ + (class-instance? RuntimeException::t _exn64725_)) + (let ((_e64728_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91829_ 'exception)))) - (if (macro-module-not-found-exception? _e91832_) - (macro-module-not-found-exception-procedure _e91832_) - (error '"not an instance" - 'module-not-found-exception? - (let ((__tmp97278 + (unchecked-slot-ref _exn64725_ 'exception)))) + (if (macro-module-not-found-exception? _e64728_) + (macro-module-not-found-exception-procedure _e64728_) + (let ((__tmp65679 + (let ((__tmp65680 (let () (declare (not safe)) - (cons _e91832_ '())))) + (cons _e64728_ '())))) (declare (not safe)) (cons 'module-not-found-exception-procedure - __tmp97278))))) - (if (macro-module-not-found-exception? _exn91829_) - (macro-module-not-found-exception-procedure _exn91829_) - (error '"not an instance" - 'module-not-found-exception? - (let ((__tmp97277 + __tmp65680)))) + (declare (not safe)) + (error '"not an instance" + 'module-not-found-exception? + __tmp65679)))) + (if (macro-module-not-found-exception? _exn64725_) + (macro-module-not-found-exception-procedure _exn64725_) + (let ((__tmp65677 + (let ((__tmp65678 (let () (declare (not safe)) - (cons _exn91829_ '())))) + (cons _exn64725_ '())))) (declare (not safe)) (cons 'module-not-found-exception-procedure - __tmp97277))))))) + __tmp65678)))) + (declare (not safe)) + (error '"not an instance" + 'module-not-found-exception? + __tmp65677)))))) (define multiple-c-return-exception? - (lambda (_exn91823_) + (lambda (_exn64719_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91823_)) - (let ((_e91826_ + (class-instance? RuntimeException::t _exn64719_)) + (let ((_e64722_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91823_ 'exception)))) - (macro-multiple-c-return-exception? _e91826_)) - (macro-multiple-c-return-exception? _exn91823_)))) + (unchecked-slot-ref _exn64719_ 'exception)))) + (macro-multiple-c-return-exception? _e64722_)) + (macro-multiple-c-return-exception? _exn64719_)))) (define no-such-file-or-directory-exception? - (lambda (_exn91819_) + (lambda (_exn64715_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91819_)) - (let ((_e91821_ + (class-instance? RuntimeException::t _exn64715_)) + (let ((_e64717_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91819_ 'exception)))) - (macro-no-such-file-or-directory-exception? _e91821_)) - (macro-no-such-file-or-directory-exception? _exn91819_)))) + (unchecked-slot-ref _exn64715_ 'exception)))) + (macro-no-such-file-or-directory-exception? _e64717_)) + (macro-no-such-file-or-directory-exception? _exn64715_)))) (define no-such-file-or-directory-exception-arguments - (lambda (_exn91815_) + (lambda (_exn64711_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91815_)) - (let ((_e91817_ + (class-instance? RuntimeException::t _exn64711_)) + (let ((_e64713_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91815_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _e91817_) + (unchecked-slot-ref _exn64711_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _e64713_) (macro-no-such-file-or-directory-exception-arguments - _e91817_) - (error '"not an instance" - 'no-such-file-or-directory-exception? - (let ((__tmp97280 + _e64713_) + (let ((__tmp65683 + (let ((__tmp65684 (let () (declare (not safe)) - (cons _e91817_ '())))) + (cons _e64713_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-arguments - __tmp97280))))) - (if (macro-no-such-file-or-directory-exception? _exn91815_) + __tmp65684)))) + (declare (not safe)) + (error '"not an instance" + 'no-such-file-or-directory-exception? + __tmp65683)))) + (if (macro-no-such-file-or-directory-exception? _exn64711_) (macro-no-such-file-or-directory-exception-arguments - _exn91815_) - (error '"not an instance" - 'no-such-file-or-directory-exception? - (let ((__tmp97279 + _exn64711_) + (let ((__tmp65681 + (let ((__tmp65682 (let () (declare (not safe)) - (cons _exn91815_ '())))) + (cons _exn64711_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-arguments - __tmp97279))))))) + __tmp65682)))) + (declare (not safe)) + (error '"not an instance" + 'no-such-file-or-directory-exception? + __tmp65681)))))) (define no-such-file-or-directory-exception-procedure - (lambda (_exn91809_) + (lambda (_exn64705_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91809_)) - (let ((_e91812_ + (class-instance? RuntimeException::t _exn64705_)) + (let ((_e64708_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91809_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _e91812_) + (unchecked-slot-ref _exn64705_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _e64708_) (macro-no-such-file-or-directory-exception-procedure - _e91812_) - (error '"not an instance" - 'no-such-file-or-directory-exception? - (let ((__tmp97282 + _e64708_) + (let ((__tmp65687 + (let ((__tmp65688 (let () (declare (not safe)) - (cons _e91812_ '())))) + (cons _e64708_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-procedure - __tmp97282))))) - (if (macro-no-such-file-or-directory-exception? _exn91809_) + __tmp65688)))) + (declare (not safe)) + (error '"not an instance" + 'no-such-file-or-directory-exception? + __tmp65687)))) + (if (macro-no-such-file-or-directory-exception? _exn64705_) (macro-no-such-file-or-directory-exception-procedure - _exn91809_) - (error '"not an instance" - 'no-such-file-or-directory-exception? - (let ((__tmp97281 + _exn64705_) + (let ((__tmp65685 + (let ((__tmp65686 (let () (declare (not safe)) - (cons _exn91809_ '())))) + (cons _exn64705_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-procedure - __tmp97281))))))) + __tmp65686)))) + (declare (not safe)) + (error '"not an instance" + 'no-such-file-or-directory-exception? + __tmp65685)))))) (define noncontinuable-exception? - (lambda (_exn91805_) + (lambda (_exn64701_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91805_)) - (let ((_e91807_ + (class-instance? RuntimeException::t _exn64701_)) + (let ((_e64703_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91805_ 'exception)))) - (macro-noncontinuable-exception? _e91807_)) - (macro-noncontinuable-exception? _exn91805_)))) + (unchecked-slot-ref _exn64701_ 'exception)))) + (macro-noncontinuable-exception? _e64703_)) + (macro-noncontinuable-exception? _exn64701_)))) (define noncontinuable-exception-reason - (lambda (_exn91799_) + (lambda (_exn64695_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91799_)) - (let ((_e91802_ + (class-instance? RuntimeException::t _exn64695_)) + (let ((_e64698_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91799_ 'exception)))) - (if (macro-noncontinuable-exception? _e91802_) - (macro-noncontinuable-exception-reason _e91802_) - (error '"not an instance" - 'noncontinuable-exception? - (let ((__tmp97284 + (unchecked-slot-ref _exn64695_ 'exception)))) + (if (macro-noncontinuable-exception? _e64698_) + (macro-noncontinuable-exception-reason _e64698_) + (let ((__tmp65691 + (let ((__tmp65692 (let () (declare (not safe)) - (cons _e91802_ '())))) + (cons _e64698_ '())))) (declare (not safe)) (cons 'noncontinuable-exception-reason - __tmp97284))))) - (if (macro-noncontinuable-exception? _exn91799_) - (macro-noncontinuable-exception-reason _exn91799_) - (error '"not an instance" - 'noncontinuable-exception? - (let ((__tmp97283 + __tmp65692)))) + (declare (not safe)) + (error '"not an instance" + 'noncontinuable-exception? + __tmp65691)))) + (if (macro-noncontinuable-exception? _exn64695_) + (macro-noncontinuable-exception-reason _exn64695_) + (let ((__tmp65689 + (let ((__tmp65690 (let () (declare (not safe)) - (cons _exn91799_ '())))) + (cons _exn64695_ '())))) (declare (not safe)) - (cons 'noncontinuable-exception-reason - __tmp97283))))))) + (cons 'noncontinuable-exception-reason __tmp65690)))) + (declare (not safe)) + (error '"not an instance" + 'noncontinuable-exception? + __tmp65689)))))) (define nonempty-input-port-character-buffer-exception? - (lambda (_exn91795_) + (lambda (_exn64691_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91795_)) - (let ((_e91797_ + (class-instance? RuntimeException::t _exn64691_)) + (let ((_e64693_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91795_ 'exception)))) - (macro-nonempty-input-port-character-buffer-exception? _e91797_)) + (unchecked-slot-ref _exn64691_ 'exception)))) + (macro-nonempty-input-port-character-buffer-exception? _e64693_)) (macro-nonempty-input-port-character-buffer-exception? - _exn91795_)))) + _exn64691_)))) (define nonempty-input-port-character-buffer-exception-arguments - (lambda (_exn91791_) + (lambda (_exn64687_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91791_)) - (let ((_e91793_ + (class-instance? RuntimeException::t _exn64687_)) + (let ((_e64689_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91791_ 'exception)))) + (unchecked-slot-ref _exn64687_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _e91793_) + _e64689_) (macro-nonempty-input-port-character-buffer-exception-arguments - _e91793_) - (error '"not an instance" - 'nonempty-input-port-character-buffer-exception? - (let ((__tmp97286 + _e64689_) + (let ((__tmp65695 + (let ((__tmp65696 (let () (declare (not safe)) - (cons _e91793_ '())))) + (cons _e64689_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-arguments - __tmp97286))))) + __tmp65696)))) + (declare (not safe)) + (error '"not an instance" + 'nonempty-input-port-character-buffer-exception? + __tmp65695)))) (if (macro-nonempty-input-port-character-buffer-exception? - _exn91791_) + _exn64687_) (macro-nonempty-input-port-character-buffer-exception-arguments - _exn91791_) - (error '"not an instance" - 'nonempty-input-port-character-buffer-exception? - (let ((__tmp97285 + _exn64687_) + (let ((__tmp65693 + (let ((__tmp65694 (let () (declare (not safe)) - (cons _exn91791_ '())))) + (cons _exn64687_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-arguments - __tmp97285))))))) + __tmp65694)))) + (declare (not safe)) + (error '"not an instance" + 'nonempty-input-port-character-buffer-exception? + __tmp65693)))))) (define nonempty-input-port-character-buffer-exception-procedure - (lambda (_exn91785_) + (lambda (_exn64681_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91785_)) - (let ((_e91788_ + (class-instance? RuntimeException::t _exn64681_)) + (let ((_e64684_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91785_ 'exception)))) + (unchecked-slot-ref _exn64681_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _e91788_) + _e64684_) (macro-nonempty-input-port-character-buffer-exception-procedure - _e91788_) - (error '"not an instance" - 'nonempty-input-port-character-buffer-exception? - (let ((__tmp97288 + _e64684_) + (let ((__tmp65699 + (let ((__tmp65700 (let () (declare (not safe)) - (cons _e91788_ '())))) + (cons _e64684_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-procedure - __tmp97288))))) + __tmp65700)))) + (declare (not safe)) + (error '"not an instance" + 'nonempty-input-port-character-buffer-exception? + __tmp65699)))) (if (macro-nonempty-input-port-character-buffer-exception? - _exn91785_) + _exn64681_) (macro-nonempty-input-port-character-buffer-exception-procedure - _exn91785_) - (error '"not an instance" - 'nonempty-input-port-character-buffer-exception? - (let ((__tmp97287 + _exn64681_) + (let ((__tmp65697 + (let ((__tmp65698 (let () (declare (not safe)) - (cons _exn91785_ '())))) + (cons _exn64681_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-procedure - __tmp97287))))))) + __tmp65698)))) + (declare (not safe)) + (error '"not an instance" + 'nonempty-input-port-character-buffer-exception? + __tmp65697)))))) (define nonprocedure-operator-exception? - (lambda (_exn91781_) + (lambda (_exn64677_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91781_)) - (let ((_e91783_ + (class-instance? RuntimeException::t _exn64677_)) + (let ((_e64679_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91781_ 'exception)))) - (macro-nonprocedure-operator-exception? _e91783_)) - (macro-nonprocedure-operator-exception? _exn91781_)))) + (unchecked-slot-ref _exn64677_ 'exception)))) + (macro-nonprocedure-operator-exception? _e64679_)) + (macro-nonprocedure-operator-exception? _exn64677_)))) (define nonprocedure-operator-exception-arguments - (lambda (_exn91777_) + (lambda (_exn64673_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91777_)) - (let ((_e91779_ + (class-instance? RuntimeException::t _exn64673_)) + (let ((_e64675_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91777_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e91779_) - (macro-nonprocedure-operator-exception-arguments _e91779_) - (error '"not an instance" - 'nonprocedure-operator-exception? - (let ((__tmp97290 + (unchecked-slot-ref _exn64673_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e64675_) + (macro-nonprocedure-operator-exception-arguments _e64675_) + (let ((__tmp65703 + (let ((__tmp65704 (let () (declare (not safe)) - (cons _e91779_ '())))) + (cons _e64675_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-arguments - __tmp97290))))) - (if (macro-nonprocedure-operator-exception? _exn91777_) - (macro-nonprocedure-operator-exception-arguments _exn91777_) - (error '"not an instance" - 'nonprocedure-operator-exception? - (let ((__tmp97289 + __tmp65704)))) + (declare (not safe)) + (error '"not an instance" + 'nonprocedure-operator-exception? + __tmp65703)))) + (if (macro-nonprocedure-operator-exception? _exn64673_) + (macro-nonprocedure-operator-exception-arguments _exn64673_) + (let ((__tmp65701 + (let ((__tmp65702 (let () (declare (not safe)) - (cons _exn91777_ '())))) + (cons _exn64673_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-arguments - __tmp97289))))))) + __tmp65702)))) + (declare (not safe)) + (error '"not an instance" + 'nonprocedure-operator-exception? + __tmp65701)))))) (define nonprocedure-operator-exception-code - (lambda (_exn91773_) + (lambda (_exn64669_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91773_)) - (let ((_e91775_ + (class-instance? RuntimeException::t _exn64669_)) + (let ((_e64671_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91773_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e91775_) - (macro-nonprocedure-operator-exception-code _e91775_) - (error '"not an instance" - 'nonprocedure-operator-exception? - (let ((__tmp97292 + (unchecked-slot-ref _exn64669_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e64671_) + (macro-nonprocedure-operator-exception-code _e64671_) + (let ((__tmp65707 + (let ((__tmp65708 (let () (declare (not safe)) - (cons _e91775_ '())))) + (cons _e64671_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-code - __tmp97292))))) - (if (macro-nonprocedure-operator-exception? _exn91773_) - (macro-nonprocedure-operator-exception-code _exn91773_) - (error '"not an instance" - 'nonprocedure-operator-exception? - (let ((__tmp97291 + __tmp65708)))) + (declare (not safe)) + (error '"not an instance" + 'nonprocedure-operator-exception? + __tmp65707)))) + (if (macro-nonprocedure-operator-exception? _exn64669_) + (macro-nonprocedure-operator-exception-code _exn64669_) + (let ((__tmp65705 + (let ((__tmp65706 (let () (declare (not safe)) - (cons _exn91773_ '())))) + (cons _exn64669_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-code - __tmp97291))))))) + __tmp65706)))) + (declare (not safe)) + (error '"not an instance" + 'nonprocedure-operator-exception? + __tmp65705)))))) (define nonprocedure-operator-exception-operator - (lambda (_exn91769_) + (lambda (_exn64665_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91769_)) - (let ((_e91771_ + (class-instance? RuntimeException::t _exn64665_)) + (let ((_e64667_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91769_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e91771_) - (macro-nonprocedure-operator-exception-operator _e91771_) - (error '"not an instance" - 'nonprocedure-operator-exception? - (let ((__tmp97294 + (unchecked-slot-ref _exn64665_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e64667_) + (macro-nonprocedure-operator-exception-operator _e64667_) + (let ((__tmp65711 + (let ((__tmp65712 (let () (declare (not safe)) - (cons _e91771_ '())))) + (cons _e64667_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-operator - __tmp97294))))) - (if (macro-nonprocedure-operator-exception? _exn91769_) - (macro-nonprocedure-operator-exception-operator _exn91769_) - (error '"not an instance" - 'nonprocedure-operator-exception? - (let ((__tmp97293 + __tmp65712)))) + (declare (not safe)) + (error '"not an instance" + 'nonprocedure-operator-exception? + __tmp65711)))) + (if (macro-nonprocedure-operator-exception? _exn64665_) + (macro-nonprocedure-operator-exception-operator _exn64665_) + (let ((__tmp65709 + (let ((__tmp65710 (let () (declare (not safe)) - (cons _exn91769_ '())))) + (cons _exn64665_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-operator - __tmp97293))))))) + __tmp65710)))) + (declare (not safe)) + (error '"not an instance" + 'nonprocedure-operator-exception? + __tmp65709)))))) (define nonprocedure-operator-exception-rte - (lambda (_exn91763_) + (lambda (_exn64659_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91763_)) - (let ((_e91766_ + (class-instance? RuntimeException::t _exn64659_)) + (let ((_e64662_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91763_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e91766_) - (macro-nonprocedure-operator-exception-rte _e91766_) - (error '"not an instance" - 'nonprocedure-operator-exception? - (let ((__tmp97296 + (unchecked-slot-ref _exn64659_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e64662_) + (macro-nonprocedure-operator-exception-rte _e64662_) + (let ((__tmp65715 + (let ((__tmp65716 (let () (declare (not safe)) - (cons _e91766_ '())))) + (cons _e64662_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-rte - __tmp97296))))) - (if (macro-nonprocedure-operator-exception? _exn91763_) - (macro-nonprocedure-operator-exception-rte _exn91763_) - (error '"not an instance" - 'nonprocedure-operator-exception? - (let ((__tmp97295 + __tmp65716)))) + (declare (not safe)) + (error '"not an instance" + 'nonprocedure-operator-exception? + __tmp65715)))) + (if (macro-nonprocedure-operator-exception? _exn64659_) + (macro-nonprocedure-operator-exception-rte _exn64659_) + (let ((__tmp65713 + (let ((__tmp65714 (let () (declare (not safe)) - (cons _exn91763_ '())))) + (cons _exn64659_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-rte - __tmp97295))))))) + __tmp65714)))) + (declare (not safe)) + (error '"not an instance" + 'nonprocedure-operator-exception? + __tmp65713)))))) (define not-in-compilation-context-exception? - (lambda (_exn91759_) + (lambda (_exn64655_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91759_)) - (let ((_e91761_ + (class-instance? RuntimeException::t _exn64655_)) + (let ((_e64657_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91759_ 'exception)))) - (macro-not-in-compilation-context-exception? _e91761_)) - (macro-not-in-compilation-context-exception? _exn91759_)))) + (unchecked-slot-ref _exn64655_ 'exception)))) + (macro-not-in-compilation-context-exception? _e64657_)) + (macro-not-in-compilation-context-exception? _exn64655_)))) (define not-in-compilation-context-exception-arguments - (lambda (_exn91755_) + (lambda (_exn64651_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91755_)) - (let ((_e91757_ + (class-instance? RuntimeException::t _exn64651_)) + (let ((_e64653_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91755_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _e91757_) + (unchecked-slot-ref _exn64651_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _e64653_) (macro-not-in-compilation-context-exception-arguments - _e91757_) - (error '"not an instance" - 'not-in-compilation-context-exception? - (let ((__tmp97298 + _e64653_) + (let ((__tmp65719 + (let ((__tmp65720 (let () (declare (not safe)) - (cons _e91757_ '())))) + (cons _e64653_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-arguments - __tmp97298))))) - (if (macro-not-in-compilation-context-exception? _exn91755_) + __tmp65720)))) + (declare (not safe)) + (error '"not an instance" + 'not-in-compilation-context-exception? + __tmp65719)))) + (if (macro-not-in-compilation-context-exception? _exn64651_) (macro-not-in-compilation-context-exception-arguments - _exn91755_) - (error '"not an instance" - 'not-in-compilation-context-exception? - (let ((__tmp97297 + _exn64651_) + (let ((__tmp65717 + (let ((__tmp65718 (let () (declare (not safe)) - (cons _exn91755_ '())))) + (cons _exn64651_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-arguments - __tmp97297))))))) + __tmp65718)))) + (declare (not safe)) + (error '"not an instance" + 'not-in-compilation-context-exception? + __tmp65717)))))) (define not-in-compilation-context-exception-procedure - (lambda (_exn91749_) + (lambda (_exn64645_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91749_)) - (let ((_e91752_ + (class-instance? RuntimeException::t _exn64645_)) + (let ((_e64648_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91749_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _e91752_) + (unchecked-slot-ref _exn64645_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _e64648_) (macro-not-in-compilation-context-exception-procedure - _e91752_) - (error '"not an instance" - 'not-in-compilation-context-exception? - (let ((__tmp97300 + _e64648_) + (let ((__tmp65723 + (let ((__tmp65724 (let () (declare (not safe)) - (cons _e91752_ '())))) + (cons _e64648_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-procedure - __tmp97300))))) - (if (macro-not-in-compilation-context-exception? _exn91749_) + __tmp65724)))) + (declare (not safe)) + (error '"not an instance" + 'not-in-compilation-context-exception? + __tmp65723)))) + (if (macro-not-in-compilation-context-exception? _exn64645_) (macro-not-in-compilation-context-exception-procedure - _exn91749_) - (error '"not an instance" - 'not-in-compilation-context-exception? - (let ((__tmp97299 + _exn64645_) + (let ((__tmp65721 + (let ((__tmp65722 (let () (declare (not safe)) - (cons _exn91749_ '())))) + (cons _exn64645_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-procedure - __tmp97299))))))) + __tmp65722)))) + (declare (not safe)) + (error '"not an instance" + 'not-in-compilation-context-exception? + __tmp65721)))))) (define number-of-arguments-limit-exception? - (lambda (_exn91745_) + (lambda (_exn64641_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91745_)) - (let ((_e91747_ + (class-instance? RuntimeException::t _exn64641_)) + (let ((_e64643_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91745_ 'exception)))) - (macro-number-of-arguments-limit-exception? _e91747_)) - (macro-number-of-arguments-limit-exception? _exn91745_)))) + (unchecked-slot-ref _exn64641_ 'exception)))) + (macro-number-of-arguments-limit-exception? _e64643_)) + (macro-number-of-arguments-limit-exception? _exn64641_)))) (define number-of-arguments-limit-exception-arguments - (lambda (_exn91741_) + (lambda (_exn64637_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91741_)) - (let ((_e91743_ + (class-instance? RuntimeException::t _exn64637_)) + (let ((_e64639_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91741_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _e91743_) + (unchecked-slot-ref _exn64637_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _e64639_) (macro-number-of-arguments-limit-exception-arguments - _e91743_) - (error '"not an instance" - 'number-of-arguments-limit-exception? - (let ((__tmp97302 + _e64639_) + (let ((__tmp65727 + (let ((__tmp65728 (let () (declare (not safe)) - (cons _e91743_ '())))) + (cons _e64639_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-arguments - __tmp97302))))) - (if (macro-number-of-arguments-limit-exception? _exn91741_) + __tmp65728)))) + (declare (not safe)) + (error '"not an instance" + 'number-of-arguments-limit-exception? + __tmp65727)))) + (if (macro-number-of-arguments-limit-exception? _exn64637_) (macro-number-of-arguments-limit-exception-arguments - _exn91741_) - (error '"not an instance" - 'number-of-arguments-limit-exception? - (let ((__tmp97301 + _exn64637_) + (let ((__tmp65725 + (let ((__tmp65726 (let () (declare (not safe)) - (cons _exn91741_ '())))) + (cons _exn64637_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-arguments - __tmp97301))))))) + __tmp65726)))) + (declare (not safe)) + (error '"not an instance" + 'number-of-arguments-limit-exception? + __tmp65725)))))) (define number-of-arguments-limit-exception-procedure - (lambda (_exn91735_) + (lambda (_exn64631_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91735_)) - (let ((_e91738_ + (class-instance? RuntimeException::t _exn64631_)) + (let ((_e64634_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91735_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _e91738_) + (unchecked-slot-ref _exn64631_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _e64634_) (macro-number-of-arguments-limit-exception-procedure - _e91738_) - (error '"not an instance" - 'number-of-arguments-limit-exception? - (let ((__tmp97304 + _e64634_) + (let ((__tmp65731 + (let ((__tmp65732 (let () (declare (not safe)) - (cons _e91738_ '())))) + (cons _e64634_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-procedure - __tmp97304))))) - (if (macro-number-of-arguments-limit-exception? _exn91735_) + __tmp65732)))) + (declare (not safe)) + (error '"not an instance" + 'number-of-arguments-limit-exception? + __tmp65731)))) + (if (macro-number-of-arguments-limit-exception? _exn64631_) (macro-number-of-arguments-limit-exception-procedure - _exn91735_) - (error '"not an instance" - 'number-of-arguments-limit-exception? - (let ((__tmp97303 + _exn64631_) + (let ((__tmp65729 + (let ((__tmp65730 (let () (declare (not safe)) - (cons _exn91735_ '())))) + (cons _exn64631_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-procedure - __tmp97303))))))) + __tmp65730)))) + (declare (not safe)) + (error '"not an instance" + 'number-of-arguments-limit-exception? + __tmp65729)))))) (define os-exception? - (lambda (_exn91731_) + (lambda (_exn64627_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91731_)) - (let ((_e91733_ + (class-instance? RuntimeException::t _exn64627_)) + (let ((_e64629_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91731_ 'exception)))) - (macro-os-exception? _e91733_)) - (macro-os-exception? _exn91731_)))) + (unchecked-slot-ref _exn64627_ 'exception)))) + (macro-os-exception? _e64629_)) + (macro-os-exception? _exn64627_)))) (define os-exception-arguments - (lambda (_exn91727_) + (lambda (_exn64623_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91727_)) - (let ((_e91729_ + (class-instance? RuntimeException::t _exn64623_)) + (let ((_e64625_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91727_ 'exception)))) - (if (macro-os-exception? _e91729_) - (macro-os-exception-arguments _e91729_) - (error '"not an instance" - 'os-exception? - (let ((__tmp97306 + (unchecked-slot-ref _exn64623_ 'exception)))) + (if (macro-os-exception? _e64625_) + (macro-os-exception-arguments _e64625_) + (let ((__tmp65735 + (let ((__tmp65736 (let () (declare (not safe)) - (cons _e91729_ '())))) + (cons _e64625_ '())))) (declare (not safe)) - (cons 'os-exception-arguments __tmp97306))))) - (if (macro-os-exception? _exn91727_) - (macro-os-exception-arguments _exn91727_) - (error '"not an instance" - 'os-exception? - (let ((__tmp97305 + (cons 'os-exception-arguments __tmp65736)))) + (declare (not safe)) + (error '"not an instance" 'os-exception? __tmp65735)))) + (if (macro-os-exception? _exn64623_) + (macro-os-exception-arguments _exn64623_) + (let ((__tmp65733 + (let ((__tmp65734 (let () (declare (not safe)) - (cons _exn91727_ '())))) + (cons _exn64623_ '())))) (declare (not safe)) - (cons 'os-exception-arguments __tmp97305))))))) + (cons 'os-exception-arguments __tmp65734)))) + (declare (not safe)) + (error '"not an instance" 'os-exception? __tmp65733)))))) (define os-exception-code - (lambda (_exn91723_) + (lambda (_exn64619_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91723_)) - (let ((_e91725_ + (class-instance? RuntimeException::t _exn64619_)) + (let ((_e64621_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91723_ 'exception)))) - (if (macro-os-exception? _e91725_) - (macro-os-exception-code _e91725_) - (error '"not an instance" - 'os-exception? - (let ((__tmp97308 + (unchecked-slot-ref _exn64619_ 'exception)))) + (if (macro-os-exception? _e64621_) + (macro-os-exception-code _e64621_) + (let ((__tmp65739 + (let ((__tmp65740 (let () (declare (not safe)) - (cons _e91725_ '())))) + (cons _e64621_ '())))) (declare (not safe)) - (cons 'os-exception-code __tmp97308))))) - (if (macro-os-exception? _exn91723_) - (macro-os-exception-code _exn91723_) - (error '"not an instance" - 'os-exception? - (let ((__tmp97307 + (cons 'os-exception-code __tmp65740)))) + (declare (not safe)) + (error '"not an instance" 'os-exception? __tmp65739)))) + (if (macro-os-exception? _exn64619_) + (macro-os-exception-code _exn64619_) + (let ((__tmp65737 + (let ((__tmp65738 (let () (declare (not safe)) - (cons _exn91723_ '())))) + (cons _exn64619_ '())))) (declare (not safe)) - (cons 'os-exception-code __tmp97307))))))) + (cons 'os-exception-code __tmp65738)))) + (declare (not safe)) + (error '"not an instance" 'os-exception? __tmp65737)))))) (define os-exception-message - (lambda (_exn91719_) + (lambda (_exn64615_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91719_)) - (let ((_e91721_ + (class-instance? RuntimeException::t _exn64615_)) + (let ((_e64617_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91719_ 'exception)))) - (if (macro-os-exception? _e91721_) - (macro-os-exception-message _e91721_) - (error '"not an instance" - 'os-exception? - (let ((__tmp97310 + (unchecked-slot-ref _exn64615_ 'exception)))) + (if (macro-os-exception? _e64617_) + (macro-os-exception-message _e64617_) + (let ((__tmp65743 + (let ((__tmp65744 (let () (declare (not safe)) - (cons _e91721_ '())))) + (cons _e64617_ '())))) (declare (not safe)) - (cons 'os-exception-message __tmp97310))))) - (if (macro-os-exception? _exn91719_) - (macro-os-exception-message _exn91719_) - (error '"not an instance" - 'os-exception? - (let ((__tmp97309 + (cons 'os-exception-message __tmp65744)))) + (declare (not safe)) + (error '"not an instance" 'os-exception? __tmp65743)))) + (if (macro-os-exception? _exn64615_) + (macro-os-exception-message _exn64615_) + (let ((__tmp65741 + (let ((__tmp65742 (let () (declare (not safe)) - (cons _exn91719_ '())))) + (cons _exn64615_ '())))) (declare (not safe)) - (cons 'os-exception-message __tmp97309))))))) + (cons 'os-exception-message __tmp65742)))) + (declare (not safe)) + (error '"not an instance" 'os-exception? __tmp65741)))))) (define os-exception-procedure - (lambda (_exn91713_) + (lambda (_exn64609_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91713_)) - (let ((_e91716_ + (class-instance? RuntimeException::t _exn64609_)) + (let ((_e64612_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91713_ 'exception)))) - (if (macro-os-exception? _e91716_) - (macro-os-exception-procedure _e91716_) - (error '"not an instance" - 'os-exception? - (let ((__tmp97312 + (unchecked-slot-ref _exn64609_ 'exception)))) + (if (macro-os-exception? _e64612_) + (macro-os-exception-procedure _e64612_) + (let ((__tmp65747 + (let ((__tmp65748 (let () (declare (not safe)) - (cons _e91716_ '())))) + (cons _e64612_ '())))) (declare (not safe)) - (cons 'os-exception-procedure __tmp97312))))) - (if (macro-os-exception? _exn91713_) - (macro-os-exception-procedure _exn91713_) - (error '"not an instance" - 'os-exception? - (let ((__tmp97311 + (cons 'os-exception-procedure __tmp65748)))) + (declare (not safe)) + (error '"not an instance" 'os-exception? __tmp65747)))) + (if (macro-os-exception? _exn64609_) + (macro-os-exception-procedure _exn64609_) + (let ((__tmp65745 + (let ((__tmp65746 (let () (declare (not safe)) - (cons _exn91713_ '())))) + (cons _exn64609_ '())))) (declare (not safe)) - (cons 'os-exception-procedure __tmp97311))))))) + (cons 'os-exception-procedure __tmp65746)))) + (declare (not safe)) + (error '"not an instance" 'os-exception? __tmp65745)))))) (define permission-denied-exception? - (lambda (_exn91709_) + (lambda (_exn64605_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91709_)) - (let ((_e91711_ + (class-instance? RuntimeException::t _exn64605_)) + (let ((_e64607_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91709_ 'exception)))) - (macro-permission-denied-exception? _e91711_)) - (macro-permission-denied-exception? _exn91709_)))) + (unchecked-slot-ref _exn64605_ 'exception)))) + (macro-permission-denied-exception? _e64607_)) + (macro-permission-denied-exception? _exn64605_)))) (define permission-denied-exception-arguments - (lambda (_exn91705_) + (lambda (_exn64601_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91705_)) - (let ((_e91707_ + (class-instance? RuntimeException::t _exn64601_)) + (let ((_e64603_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91705_ 'exception)))) - (if (macro-permission-denied-exception? _e91707_) - (macro-permission-denied-exception-arguments _e91707_) - (error '"not an instance" - 'permission-denied-exception? - (let ((__tmp97314 + (unchecked-slot-ref _exn64601_ 'exception)))) + (if (macro-permission-denied-exception? _e64603_) + (macro-permission-denied-exception-arguments _e64603_) + (let ((__tmp65751 + (let ((__tmp65752 (let () (declare (not safe)) - (cons _e91707_ '())))) + (cons _e64603_ '())))) (declare (not safe)) (cons 'permission-denied-exception-arguments - __tmp97314))))) - (if (macro-permission-denied-exception? _exn91705_) - (macro-permission-denied-exception-arguments _exn91705_) - (error '"not an instance" - 'permission-denied-exception? - (let ((__tmp97313 + __tmp65752)))) + (declare (not safe)) + (error '"not an instance" + 'permission-denied-exception? + __tmp65751)))) + (if (macro-permission-denied-exception? _exn64601_) + (macro-permission-denied-exception-arguments _exn64601_) + (let ((__tmp65749 + (let ((__tmp65750 (let () (declare (not safe)) - (cons _exn91705_ '())))) + (cons _exn64601_ '())))) (declare (not safe)) (cons 'permission-denied-exception-arguments - __tmp97313))))))) + __tmp65750)))) + (declare (not safe)) + (error '"not an instance" + 'permission-denied-exception? + __tmp65749)))))) (define permission-denied-exception-procedure - (lambda (_exn91699_) + (lambda (_exn64595_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91699_)) - (let ((_e91702_ + (class-instance? RuntimeException::t _exn64595_)) + (let ((_e64598_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91699_ 'exception)))) - (if (macro-permission-denied-exception? _e91702_) - (macro-permission-denied-exception-procedure _e91702_) - (error '"not an instance" - 'permission-denied-exception? - (let ((__tmp97316 + (unchecked-slot-ref _exn64595_ 'exception)))) + (if (macro-permission-denied-exception? _e64598_) + (macro-permission-denied-exception-procedure _e64598_) + (let ((__tmp65755 + (let ((__tmp65756 (let () (declare (not safe)) - (cons _e91702_ '())))) + (cons _e64598_ '())))) (declare (not safe)) (cons 'permission-denied-exception-procedure - __tmp97316))))) - (if (macro-permission-denied-exception? _exn91699_) - (macro-permission-denied-exception-procedure _exn91699_) - (error '"not an instance" - 'permission-denied-exception? - (let ((__tmp97315 + __tmp65756)))) + (declare (not safe)) + (error '"not an instance" + 'permission-denied-exception? + __tmp65755)))) + (if (macro-permission-denied-exception? _exn64595_) + (macro-permission-denied-exception-procedure _exn64595_) + (let ((__tmp65753 + (let ((__tmp65754 (let () (declare (not safe)) - (cons _exn91699_ '())))) + (cons _exn64595_ '())))) (declare (not safe)) (cons 'permission-denied-exception-procedure - __tmp97315))))))) + __tmp65754)))) + (declare (not safe)) + (error '"not an instance" + 'permission-denied-exception? + __tmp65753)))))) (define range-exception? - (lambda (_exn91695_) + (lambda (_exn64591_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91695_)) - (let ((_e91697_ + (class-instance? RuntimeException::t _exn64591_)) + (let ((_e64593_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91695_ 'exception)))) - (macro-range-exception? _e91697_)) - (macro-range-exception? _exn91695_)))) + (unchecked-slot-ref _exn64591_ 'exception)))) + (macro-range-exception? _e64593_)) + (macro-range-exception? _exn64591_)))) (define range-exception-arg-id - (lambda (_exn91691_) + (lambda (_exn64587_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91691_)) - (let ((_e91693_ + (class-instance? RuntimeException::t _exn64587_)) + (let ((_e64589_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91691_ 'exception)))) - (if (macro-range-exception? _e91693_) - (macro-range-exception-arg-id _e91693_) - (error '"not an instance" - 'range-exception? - (let ((__tmp97318 + (unchecked-slot-ref _exn64587_ 'exception)))) + (if (macro-range-exception? _e64589_) + (macro-range-exception-arg-id _e64589_) + (let ((__tmp65759 + (let ((__tmp65760 (let () (declare (not safe)) - (cons _e91693_ '())))) + (cons _e64589_ '())))) (declare (not safe)) - (cons 'range-exception-arg-id __tmp97318))))) - (if (macro-range-exception? _exn91691_) - (macro-range-exception-arg-id _exn91691_) - (error '"not an instance" - 'range-exception? - (let ((__tmp97317 + (cons 'range-exception-arg-id __tmp65760)))) + (declare (not safe)) + (error '"not an instance" 'range-exception? __tmp65759)))) + (if (macro-range-exception? _exn64587_) + (macro-range-exception-arg-id _exn64587_) + (let ((__tmp65757 + (let ((__tmp65758 (let () (declare (not safe)) - (cons _exn91691_ '())))) + (cons _exn64587_ '())))) (declare (not safe)) - (cons 'range-exception-arg-id __tmp97317))))))) + (cons 'range-exception-arg-id __tmp65758)))) + (declare (not safe)) + (error '"not an instance" 'range-exception? __tmp65757)))))) (define range-exception-arguments - (lambda (_exn91687_) + (lambda (_exn64583_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91687_)) - (let ((_e91689_ + (class-instance? RuntimeException::t _exn64583_)) + (let ((_e64585_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91687_ 'exception)))) - (if (macro-range-exception? _e91689_) - (macro-range-exception-arguments _e91689_) - (error '"not an instance" - 'range-exception? - (let ((__tmp97320 + (unchecked-slot-ref _exn64583_ 'exception)))) + (if (macro-range-exception? _e64585_) + (macro-range-exception-arguments _e64585_) + (let ((__tmp65763 + (let ((__tmp65764 (let () (declare (not safe)) - (cons _e91689_ '())))) + (cons _e64585_ '())))) (declare (not safe)) - (cons 'range-exception-arguments __tmp97320))))) - (if (macro-range-exception? _exn91687_) - (macro-range-exception-arguments _exn91687_) - (error '"not an instance" - 'range-exception? - (let ((__tmp97319 + (cons 'range-exception-arguments __tmp65764)))) + (declare (not safe)) + (error '"not an instance" 'range-exception? __tmp65763)))) + (if (macro-range-exception? _exn64583_) + (macro-range-exception-arguments _exn64583_) + (let ((__tmp65761 + (let ((__tmp65762 (let () (declare (not safe)) - (cons _exn91687_ '())))) + (cons _exn64583_ '())))) (declare (not safe)) - (cons 'range-exception-arguments __tmp97319))))))) + (cons 'range-exception-arguments __tmp65762)))) + (declare (not safe)) + (error '"not an instance" 'range-exception? __tmp65761)))))) (define range-exception-procedure - (lambda (_exn91681_) + (lambda (_exn64577_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91681_)) - (let ((_e91684_ + (class-instance? RuntimeException::t _exn64577_)) + (let ((_e64580_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91681_ 'exception)))) - (if (macro-range-exception? _e91684_) - (macro-range-exception-procedure _e91684_) - (error '"not an instance" - 'range-exception? - (let ((__tmp97322 + (unchecked-slot-ref _exn64577_ 'exception)))) + (if (macro-range-exception? _e64580_) + (macro-range-exception-procedure _e64580_) + (let ((__tmp65767 + (let ((__tmp65768 (let () (declare (not safe)) - (cons _e91684_ '())))) + (cons _e64580_ '())))) (declare (not safe)) - (cons 'range-exception-procedure __tmp97322))))) - (if (macro-range-exception? _exn91681_) - (macro-range-exception-procedure _exn91681_) - (error '"not an instance" - 'range-exception? - (let ((__tmp97321 + (cons 'range-exception-procedure __tmp65768)))) + (declare (not safe)) + (error '"not an instance" 'range-exception? __tmp65767)))) + (if (macro-range-exception? _exn64577_) + (macro-range-exception-procedure _exn64577_) + (let ((__tmp65765 + (let ((__tmp65766 (let () (declare (not safe)) - (cons _exn91681_ '())))) + (cons _exn64577_ '())))) (declare (not safe)) - (cons 'range-exception-procedure __tmp97321))))))) + (cons 'range-exception-procedure __tmp65766)))) + (declare (not safe)) + (error '"not an instance" 'range-exception? __tmp65765)))))) (define rpc-remote-error-exception? - (lambda (_exn91677_) + (lambda (_exn64573_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91677_)) - (let ((_e91679_ + (class-instance? RuntimeException::t _exn64573_)) + (let ((_e64575_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91677_ 'exception)))) - (macro-rpc-remote-error-exception? _e91679_)) - (macro-rpc-remote-error-exception? _exn91677_)))) + (unchecked-slot-ref _exn64573_ 'exception)))) + (macro-rpc-remote-error-exception? _e64575_)) + (macro-rpc-remote-error-exception? _exn64573_)))) (define rpc-remote-error-exception-arguments - (lambda (_exn91673_) + (lambda (_exn64569_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91673_)) - (let ((_e91675_ + (class-instance? RuntimeException::t _exn64569_)) + (let ((_e64571_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91673_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e91675_) - (macro-rpc-remote-error-exception-arguments _e91675_) - (error '"not an instance" - 'rpc-remote-error-exception? - (let ((__tmp97324 + (unchecked-slot-ref _exn64569_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e64571_) + (macro-rpc-remote-error-exception-arguments _e64571_) + (let ((__tmp65771 + (let ((__tmp65772 (let () (declare (not safe)) - (cons _e91675_ '())))) + (cons _e64571_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-arguments - __tmp97324))))) - (if (macro-rpc-remote-error-exception? _exn91673_) - (macro-rpc-remote-error-exception-arguments _exn91673_) - (error '"not an instance" - 'rpc-remote-error-exception? - (let ((__tmp97323 + __tmp65772)))) + (declare (not safe)) + (error '"not an instance" + 'rpc-remote-error-exception? + __tmp65771)))) + (if (macro-rpc-remote-error-exception? _exn64569_) + (macro-rpc-remote-error-exception-arguments _exn64569_) + (let ((__tmp65769 + (let ((__tmp65770 (let () (declare (not safe)) - (cons _exn91673_ '())))) + (cons _exn64569_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-arguments - __tmp97323))))))) + __tmp65770)))) + (declare (not safe)) + (error '"not an instance" + 'rpc-remote-error-exception? + __tmp65769)))))) (define rpc-remote-error-exception-message - (lambda (_exn91669_) + (lambda (_exn64565_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91669_)) - (let ((_e91671_ + (class-instance? RuntimeException::t _exn64565_)) + (let ((_e64567_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91669_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e91671_) - (macro-rpc-remote-error-exception-message _e91671_) - (error '"not an instance" - 'rpc-remote-error-exception? - (let ((__tmp97326 + (unchecked-slot-ref _exn64565_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e64567_) + (macro-rpc-remote-error-exception-message _e64567_) + (let ((__tmp65775 + (let ((__tmp65776 (let () (declare (not safe)) - (cons _e91671_ '())))) + (cons _e64567_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-message - __tmp97326))))) - (if (macro-rpc-remote-error-exception? _exn91669_) - (macro-rpc-remote-error-exception-message _exn91669_) - (error '"not an instance" - 'rpc-remote-error-exception? - (let ((__tmp97325 + __tmp65776)))) + (declare (not safe)) + (error '"not an instance" + 'rpc-remote-error-exception? + __tmp65775)))) + (if (macro-rpc-remote-error-exception? _exn64565_) + (macro-rpc-remote-error-exception-message _exn64565_) + (let ((__tmp65773 + (let ((__tmp65774 (let () (declare (not safe)) - (cons _exn91669_ '())))) + (cons _exn64565_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-message - __tmp97325))))))) + __tmp65774)))) + (declare (not safe)) + (error '"not an instance" + 'rpc-remote-error-exception? + __tmp65773)))))) (define rpc-remote-error-exception-procedure - (lambda (_exn91663_) + (lambda (_exn64559_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91663_)) - (let ((_e91666_ + (class-instance? RuntimeException::t _exn64559_)) + (let ((_e64562_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91663_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e91666_) - (macro-rpc-remote-error-exception-procedure _e91666_) - (error '"not an instance" - 'rpc-remote-error-exception? - (let ((__tmp97328 + (unchecked-slot-ref _exn64559_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e64562_) + (macro-rpc-remote-error-exception-procedure _e64562_) + (let ((__tmp65779 + (let ((__tmp65780 (let () (declare (not safe)) - (cons _e91666_ '())))) + (cons _e64562_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-procedure - __tmp97328))))) - (if (macro-rpc-remote-error-exception? _exn91663_) - (macro-rpc-remote-error-exception-procedure _exn91663_) - (error '"not an instance" - 'rpc-remote-error-exception? - (let ((__tmp97327 + __tmp65780)))) + (declare (not safe)) + (error '"not an instance" + 'rpc-remote-error-exception? + __tmp65779)))) + (if (macro-rpc-remote-error-exception? _exn64559_) + (macro-rpc-remote-error-exception-procedure _exn64559_) + (let ((__tmp65777 + (let ((__tmp65778 (let () (declare (not safe)) - (cons _exn91663_ '())))) + (cons _exn64559_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-procedure - __tmp97327))))))) + __tmp65778)))) + (declare (not safe)) + (error '"not an instance" + 'rpc-remote-error-exception? + __tmp65777)))))) (define scheduler-exception? - (lambda (_exn91659_) + (lambda (_exn64555_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91659_)) - (let ((_e91661_ + (class-instance? RuntimeException::t _exn64555_)) + (let ((_e64557_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91659_ 'exception)))) - (macro-scheduler-exception? _e91661_)) - (macro-scheduler-exception? _exn91659_)))) + (unchecked-slot-ref _exn64555_ 'exception)))) + (macro-scheduler-exception? _e64557_)) + (macro-scheduler-exception? _exn64555_)))) (define scheduler-exception-reason - (lambda (_exn91653_) + (lambda (_exn64549_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91653_)) - (let ((_e91656_ + (class-instance? RuntimeException::t _exn64549_)) + (let ((_e64552_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91653_ 'exception)))) - (if (macro-scheduler-exception? _e91656_) - (macro-scheduler-exception-reason _e91656_) - (error '"not an instance" - 'scheduler-exception? - (let ((__tmp97330 + (unchecked-slot-ref _exn64549_ 'exception)))) + (if (macro-scheduler-exception? _e64552_) + (macro-scheduler-exception-reason _e64552_) + (let ((__tmp65783 + (let ((__tmp65784 (let () (declare (not safe)) - (cons _e91656_ '())))) + (cons _e64552_ '())))) (declare (not safe)) - (cons 'scheduler-exception-reason __tmp97330))))) - (if (macro-scheduler-exception? _exn91653_) - (macro-scheduler-exception-reason _exn91653_) - (error '"not an instance" - 'scheduler-exception? - (let ((__tmp97329 + (cons 'scheduler-exception-reason __tmp65784)))) + (declare (not safe)) + (error '"not an instance" + 'scheduler-exception? + __tmp65783)))) + (if (macro-scheduler-exception? _exn64549_) + (macro-scheduler-exception-reason _exn64549_) + (let ((__tmp65781 + (let ((__tmp65782 (let () (declare (not safe)) - (cons _exn91653_ '())))) + (cons _exn64549_ '())))) (declare (not safe)) - (cons 'scheduler-exception-reason __tmp97329))))))) + (cons 'scheduler-exception-reason __tmp65782)))) + (declare (not safe)) + (error '"not an instance" + 'scheduler-exception? + __tmp65781)))))) (define sfun-conversion-exception? - (lambda (_exn91649_) + (lambda (_exn64545_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91649_)) - (let ((_e91651_ + (class-instance? RuntimeException::t _exn64545_)) + (let ((_e64547_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91649_ 'exception)))) - (macro-sfun-conversion-exception? _e91651_)) - (macro-sfun-conversion-exception? _exn91649_)))) + (unchecked-slot-ref _exn64545_ 'exception)))) + (macro-sfun-conversion-exception? _e64547_)) + (macro-sfun-conversion-exception? _exn64545_)))) (define sfun-conversion-exception-arguments - (lambda (_exn91645_) + (lambda (_exn64541_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91645_)) - (let ((_e91647_ + (class-instance? RuntimeException::t _exn64541_)) + (let ((_e64543_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91645_ 'exception)))) - (if (macro-sfun-conversion-exception? _e91647_) - (macro-sfun-conversion-exception-arguments _e91647_) - (error '"not an instance" - 'sfun-conversion-exception? - (let ((__tmp97332 + (unchecked-slot-ref _exn64541_ 'exception)))) + (if (macro-sfun-conversion-exception? _e64543_) + (macro-sfun-conversion-exception-arguments _e64543_) + (let ((__tmp65787 + (let ((__tmp65788 (let () (declare (not safe)) - (cons _e91647_ '())))) + (cons _e64543_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-arguments - __tmp97332))))) - (if (macro-sfun-conversion-exception? _exn91645_) - (macro-sfun-conversion-exception-arguments _exn91645_) - (error '"not an instance" - 'sfun-conversion-exception? - (let ((__tmp97331 + __tmp65788)))) + (declare (not safe)) + (error '"not an instance" + 'sfun-conversion-exception? + __tmp65787)))) + (if (macro-sfun-conversion-exception? _exn64541_) + (macro-sfun-conversion-exception-arguments _exn64541_) + (let ((__tmp65785 + (let ((__tmp65786 (let () (declare (not safe)) - (cons _exn91645_ '())))) + (cons _exn64541_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-arguments - __tmp97331))))))) + __tmp65786)))) + (declare (not safe)) + (error '"not an instance" + 'sfun-conversion-exception? + __tmp65785)))))) (define sfun-conversion-exception-code - (lambda (_exn91641_) + (lambda (_exn64537_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91641_)) - (let ((_e91643_ + (class-instance? RuntimeException::t _exn64537_)) + (let ((_e64539_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91641_ 'exception)))) - (if (macro-sfun-conversion-exception? _e91643_) - (macro-sfun-conversion-exception-code _e91643_) - (error '"not an instance" - 'sfun-conversion-exception? - (let ((__tmp97334 + (unchecked-slot-ref _exn64537_ 'exception)))) + (if (macro-sfun-conversion-exception? _e64539_) + (macro-sfun-conversion-exception-code _e64539_) + (let ((__tmp65791 + (let ((__tmp65792 (let () (declare (not safe)) - (cons _e91643_ '())))) + (cons _e64539_ '())))) (declare (not safe)) - (cons 'sfun-conversion-exception-code - __tmp97334))))) - (if (macro-sfun-conversion-exception? _exn91641_) - (macro-sfun-conversion-exception-code _exn91641_) - (error '"not an instance" - 'sfun-conversion-exception? - (let ((__tmp97333 + (cons 'sfun-conversion-exception-code __tmp65792)))) + (declare (not safe)) + (error '"not an instance" + 'sfun-conversion-exception? + __tmp65791)))) + (if (macro-sfun-conversion-exception? _exn64537_) + (macro-sfun-conversion-exception-code _exn64537_) + (let ((__tmp65789 + (let ((__tmp65790 (let () (declare (not safe)) - (cons _exn91641_ '())))) + (cons _exn64537_ '())))) (declare (not safe)) - (cons 'sfun-conversion-exception-code - __tmp97333))))))) + (cons 'sfun-conversion-exception-code __tmp65790)))) + (declare (not safe)) + (error '"not an instance" + 'sfun-conversion-exception? + __tmp65789)))))) (define sfun-conversion-exception-message - (lambda (_exn91637_) + (lambda (_exn64533_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91637_)) - (let ((_e91639_ + (class-instance? RuntimeException::t _exn64533_)) + (let ((_e64535_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91637_ 'exception)))) - (if (macro-sfun-conversion-exception? _e91639_) - (macro-sfun-conversion-exception-message _e91639_) - (error '"not an instance" - 'sfun-conversion-exception? - (let ((__tmp97336 + (unchecked-slot-ref _exn64533_ 'exception)))) + (if (macro-sfun-conversion-exception? _e64535_) + (macro-sfun-conversion-exception-message _e64535_) + (let ((__tmp65795 + (let ((__tmp65796 (let () (declare (not safe)) - (cons _e91639_ '())))) + (cons _e64535_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-message - __tmp97336))))) - (if (macro-sfun-conversion-exception? _exn91637_) - (macro-sfun-conversion-exception-message _exn91637_) - (error '"not an instance" - 'sfun-conversion-exception? - (let ((__tmp97335 + __tmp65796)))) + (declare (not safe)) + (error '"not an instance" + 'sfun-conversion-exception? + __tmp65795)))) + (if (macro-sfun-conversion-exception? _exn64533_) + (macro-sfun-conversion-exception-message _exn64533_) + (let ((__tmp65793 + (let ((__tmp65794 (let () (declare (not safe)) - (cons _exn91637_ '())))) + (cons _exn64533_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-message - __tmp97335))))))) + __tmp65794)))) + (declare (not safe)) + (error '"not an instance" + 'sfun-conversion-exception? + __tmp65793)))))) (define sfun-conversion-exception-procedure - (lambda (_exn91631_) + (lambda (_exn64527_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91631_)) - (let ((_e91634_ + (class-instance? RuntimeException::t _exn64527_)) + (let ((_e64530_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91631_ 'exception)))) - (if (macro-sfun-conversion-exception? _e91634_) - (macro-sfun-conversion-exception-procedure _e91634_) - (error '"not an instance" - 'sfun-conversion-exception? - (let ((__tmp97338 + (unchecked-slot-ref _exn64527_ 'exception)))) + (if (macro-sfun-conversion-exception? _e64530_) + (macro-sfun-conversion-exception-procedure _e64530_) + (let ((__tmp65799 + (let ((__tmp65800 (let () (declare (not safe)) - (cons _e91634_ '())))) + (cons _e64530_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-procedure - __tmp97338))))) - (if (macro-sfun-conversion-exception? _exn91631_) - (macro-sfun-conversion-exception-procedure _exn91631_) - (error '"not an instance" - 'sfun-conversion-exception? - (let ((__tmp97337 + __tmp65800)))) + (declare (not safe)) + (error '"not an instance" + 'sfun-conversion-exception? + __tmp65799)))) + (if (macro-sfun-conversion-exception? _exn64527_) + (macro-sfun-conversion-exception-procedure _exn64527_) + (let ((__tmp65797 + (let ((__tmp65798 (let () (declare (not safe)) - (cons _exn91631_ '())))) + (cons _exn64527_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-procedure - __tmp97337))))))) + __tmp65798)))) + (declare (not safe)) + (error '"not an instance" + 'sfun-conversion-exception? + __tmp65797)))))) (define stack-overflow-exception? - (lambda (_exn91625_) + (lambda (_exn64521_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91625_)) - (let ((_e91628_ + (class-instance? RuntimeException::t _exn64521_)) + (let ((_e64524_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91625_ 'exception)))) - (macro-stack-overflow-exception? _e91628_)) - (macro-stack-overflow-exception? _exn91625_)))) + (unchecked-slot-ref _exn64521_ 'exception)))) + (macro-stack-overflow-exception? _e64524_)) + (macro-stack-overflow-exception? _exn64521_)))) (define started-thread-exception? - (lambda (_exn91621_) + (lambda (_exn64517_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91621_)) - (let ((_e91623_ + (class-instance? RuntimeException::t _exn64517_)) + (let ((_e64519_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91621_ 'exception)))) - (macro-started-thread-exception? _e91623_)) - (macro-started-thread-exception? _exn91621_)))) + (unchecked-slot-ref _exn64517_ 'exception)))) + (macro-started-thread-exception? _e64519_)) + (macro-started-thread-exception? _exn64517_)))) (define started-thread-exception-arguments - (lambda (_exn91617_) + (lambda (_exn64513_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91617_)) - (let ((_e91619_ + (class-instance? RuntimeException::t _exn64513_)) + (let ((_e64515_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91617_ 'exception)))) - (if (macro-started-thread-exception? _e91619_) - (macro-started-thread-exception-arguments _e91619_) - (error '"not an instance" - 'started-thread-exception? - (let ((__tmp97340 + (unchecked-slot-ref _exn64513_ 'exception)))) + (if (macro-started-thread-exception? _e64515_) + (macro-started-thread-exception-arguments _e64515_) + (let ((__tmp65803 + (let ((__tmp65804 (let () (declare (not safe)) - (cons _e91619_ '())))) + (cons _e64515_ '())))) (declare (not safe)) (cons 'started-thread-exception-arguments - __tmp97340))))) - (if (macro-started-thread-exception? _exn91617_) - (macro-started-thread-exception-arguments _exn91617_) - (error '"not an instance" - 'started-thread-exception? - (let ((__tmp97339 + __tmp65804)))) + (declare (not safe)) + (error '"not an instance" + 'started-thread-exception? + __tmp65803)))) + (if (macro-started-thread-exception? _exn64513_) + (macro-started-thread-exception-arguments _exn64513_) + (let ((__tmp65801 + (let ((__tmp65802 (let () (declare (not safe)) - (cons _exn91617_ '())))) + (cons _exn64513_ '())))) (declare (not safe)) (cons 'started-thread-exception-arguments - __tmp97339))))))) + __tmp65802)))) + (declare (not safe)) + (error '"not an instance" + 'started-thread-exception? + __tmp65801)))))) (define started-thread-exception-procedure - (lambda (_exn91611_) + (lambda (_exn64507_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91611_)) - (let ((_e91614_ + (class-instance? RuntimeException::t _exn64507_)) + (let ((_e64510_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91611_ 'exception)))) - (if (macro-started-thread-exception? _e91614_) - (macro-started-thread-exception-procedure _e91614_) - (error '"not an instance" - 'started-thread-exception? - (let ((__tmp97342 + (unchecked-slot-ref _exn64507_ 'exception)))) + (if (macro-started-thread-exception? _e64510_) + (macro-started-thread-exception-procedure _e64510_) + (let ((__tmp65807 + (let ((__tmp65808 (let () (declare (not safe)) - (cons _e91614_ '())))) + (cons _e64510_ '())))) (declare (not safe)) (cons 'started-thread-exception-procedure - __tmp97342))))) - (if (macro-started-thread-exception? _exn91611_) - (macro-started-thread-exception-procedure _exn91611_) - (error '"not an instance" - 'started-thread-exception? - (let ((__tmp97341 + __tmp65808)))) + (declare (not safe)) + (error '"not an instance" + 'started-thread-exception? + __tmp65807)))) + (if (macro-started-thread-exception? _exn64507_) + (macro-started-thread-exception-procedure _exn64507_) + (let ((__tmp65805 + (let ((__tmp65806 (let () (declare (not safe)) - (cons _exn91611_ '())))) + (cons _exn64507_ '())))) (declare (not safe)) (cons 'started-thread-exception-procedure - __tmp97341))))))) + __tmp65806)))) + (declare (not safe)) + (error '"not an instance" + 'started-thread-exception? + __tmp65805)))))) (define terminated-thread-exception? - (lambda (_exn91607_) + (lambda (_exn64503_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91607_)) - (let ((_e91609_ + (class-instance? RuntimeException::t _exn64503_)) + (let ((_e64505_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91607_ 'exception)))) - (macro-terminated-thread-exception? _e91609_)) - (macro-terminated-thread-exception? _exn91607_)))) + (unchecked-slot-ref _exn64503_ 'exception)))) + (macro-terminated-thread-exception? _e64505_)) + (macro-terminated-thread-exception? _exn64503_)))) (define terminated-thread-exception-arguments - (lambda (_exn91603_) + (lambda (_exn64499_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91603_)) - (let ((_e91605_ + (class-instance? RuntimeException::t _exn64499_)) + (let ((_e64501_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91603_ 'exception)))) - (if (macro-terminated-thread-exception? _e91605_) - (macro-terminated-thread-exception-arguments _e91605_) - (error '"not an instance" - 'terminated-thread-exception? - (let ((__tmp97344 + (unchecked-slot-ref _exn64499_ 'exception)))) + (if (macro-terminated-thread-exception? _e64501_) + (macro-terminated-thread-exception-arguments _e64501_) + (let ((__tmp65811 + (let ((__tmp65812 (let () (declare (not safe)) - (cons _e91605_ '())))) + (cons _e64501_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-arguments - __tmp97344))))) - (if (macro-terminated-thread-exception? _exn91603_) - (macro-terminated-thread-exception-arguments _exn91603_) - (error '"not an instance" - 'terminated-thread-exception? - (let ((__tmp97343 + __tmp65812)))) + (declare (not safe)) + (error '"not an instance" + 'terminated-thread-exception? + __tmp65811)))) + (if (macro-terminated-thread-exception? _exn64499_) + (macro-terminated-thread-exception-arguments _exn64499_) + (let ((__tmp65809 + (let ((__tmp65810 (let () (declare (not safe)) - (cons _exn91603_ '())))) + (cons _exn64499_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-arguments - __tmp97343))))))) + __tmp65810)))) + (declare (not safe)) + (error '"not an instance" + 'terminated-thread-exception? + __tmp65809)))))) (define terminated-thread-exception-procedure - (lambda (_exn91597_) + (lambda (_exn64493_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91597_)) - (let ((_e91600_ + (class-instance? RuntimeException::t _exn64493_)) + (let ((_e64496_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91597_ 'exception)))) - (if (macro-terminated-thread-exception? _e91600_) - (macro-terminated-thread-exception-procedure _e91600_) - (error '"not an instance" - 'terminated-thread-exception? - (let ((__tmp97346 + (unchecked-slot-ref _exn64493_ 'exception)))) + (if (macro-terminated-thread-exception? _e64496_) + (macro-terminated-thread-exception-procedure _e64496_) + (let ((__tmp65815 + (let ((__tmp65816 (let () (declare (not safe)) - (cons _e91600_ '())))) + (cons _e64496_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-procedure - __tmp97346))))) - (if (macro-terminated-thread-exception? _exn91597_) - (macro-terminated-thread-exception-procedure _exn91597_) - (error '"not an instance" - 'terminated-thread-exception? - (let ((__tmp97345 + __tmp65816)))) + (declare (not safe)) + (error '"not an instance" + 'terminated-thread-exception? + __tmp65815)))) + (if (macro-terminated-thread-exception? _exn64493_) + (macro-terminated-thread-exception-procedure _exn64493_) + (let ((__tmp65813 + (let ((__tmp65814 (let () (declare (not safe)) - (cons _exn91597_ '())))) + (cons _exn64493_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-procedure - __tmp97345))))))) + __tmp65814)))) + (declare (not safe)) + (error '"not an instance" + 'terminated-thread-exception? + __tmp65813)))))) (define type-exception? - (lambda (_exn91593_) + (lambda (_exn64489_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91593_)) - (let ((_e91595_ + (class-instance? RuntimeException::t _exn64489_)) + (let ((_e64491_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91593_ 'exception)))) - (macro-type-exception? _e91595_)) - (macro-type-exception? _exn91593_)))) + (unchecked-slot-ref _exn64489_ 'exception)))) + (macro-type-exception? _e64491_)) + (macro-type-exception? _exn64489_)))) (define type-exception-arg-id - (lambda (_exn91589_) + (lambda (_exn64485_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91589_)) - (let ((_e91591_ + (class-instance? RuntimeException::t _exn64485_)) + (let ((_e64487_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91589_ 'exception)))) - (if (macro-type-exception? _e91591_) - (macro-type-exception-arg-id _e91591_) - (error '"not an instance" - 'type-exception? - (let ((__tmp97348 + (unchecked-slot-ref _exn64485_ 'exception)))) + (if (macro-type-exception? _e64487_) + (macro-type-exception-arg-id _e64487_) + (let ((__tmp65819 + (let ((__tmp65820 (let () (declare (not safe)) - (cons _e91591_ '())))) + (cons _e64487_ '())))) (declare (not safe)) - (cons 'type-exception-arg-id __tmp97348))))) - (if (macro-type-exception? _exn91589_) - (macro-type-exception-arg-id _exn91589_) - (error '"not an instance" - 'type-exception? - (let ((__tmp97347 + (cons 'type-exception-arg-id __tmp65820)))) + (declare (not safe)) + (error '"not an instance" 'type-exception? __tmp65819)))) + (if (macro-type-exception? _exn64485_) + (macro-type-exception-arg-id _exn64485_) + (let ((__tmp65817 + (let ((__tmp65818 (let () (declare (not safe)) - (cons _exn91589_ '())))) + (cons _exn64485_ '())))) (declare (not safe)) - (cons 'type-exception-arg-id __tmp97347))))))) + (cons 'type-exception-arg-id __tmp65818)))) + (declare (not safe)) + (error '"not an instance" 'type-exception? __tmp65817)))))) (define type-exception-arguments - (lambda (_exn91585_) + (lambda (_exn64481_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91585_)) - (let ((_e91587_ + (class-instance? RuntimeException::t _exn64481_)) + (let ((_e64483_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91585_ 'exception)))) - (if (macro-type-exception? _e91587_) - (macro-type-exception-arguments _e91587_) - (error '"not an instance" - 'type-exception? - (let ((__tmp97350 + (unchecked-slot-ref _exn64481_ 'exception)))) + (if (macro-type-exception? _e64483_) + (macro-type-exception-arguments _e64483_) + (let ((__tmp65823 + (let ((__tmp65824 (let () (declare (not safe)) - (cons _e91587_ '())))) + (cons _e64483_ '())))) (declare (not safe)) - (cons 'type-exception-arguments __tmp97350))))) - (if (macro-type-exception? _exn91585_) - (macro-type-exception-arguments _exn91585_) - (error '"not an instance" - 'type-exception? - (let ((__tmp97349 + (cons 'type-exception-arguments __tmp65824)))) + (declare (not safe)) + (error '"not an instance" 'type-exception? __tmp65823)))) + (if (macro-type-exception? _exn64481_) + (macro-type-exception-arguments _exn64481_) + (let ((__tmp65821 + (let ((__tmp65822 (let () (declare (not safe)) - (cons _exn91585_ '())))) + (cons _exn64481_ '())))) (declare (not safe)) - (cons 'type-exception-arguments __tmp97349))))))) + (cons 'type-exception-arguments __tmp65822)))) + (declare (not safe)) + (error '"not an instance" 'type-exception? __tmp65821)))))) (define type-exception-procedure - (lambda (_exn91581_) + (lambda (_exn64477_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91581_)) - (let ((_e91583_ + (class-instance? RuntimeException::t _exn64477_)) + (let ((_e64479_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91581_ 'exception)))) - (if (macro-type-exception? _e91583_) - (macro-type-exception-procedure _e91583_) - (error '"not an instance" - 'type-exception? - (let ((__tmp97352 + (unchecked-slot-ref _exn64477_ 'exception)))) + (if (macro-type-exception? _e64479_) + (macro-type-exception-procedure _e64479_) + (let ((__tmp65827 + (let ((__tmp65828 (let () (declare (not safe)) - (cons _e91583_ '())))) + (cons _e64479_ '())))) (declare (not safe)) - (cons 'type-exception-procedure __tmp97352))))) - (if (macro-type-exception? _exn91581_) - (macro-type-exception-procedure _exn91581_) - (error '"not an instance" - 'type-exception? - (let ((__tmp97351 + (cons 'type-exception-procedure __tmp65828)))) + (declare (not safe)) + (error '"not an instance" 'type-exception? __tmp65827)))) + (if (macro-type-exception? _exn64477_) + (macro-type-exception-procedure _exn64477_) + (let ((__tmp65825 + (let ((__tmp65826 (let () (declare (not safe)) - (cons _exn91581_ '())))) + (cons _exn64477_ '())))) (declare (not safe)) - (cons 'type-exception-procedure __tmp97351))))))) + (cons 'type-exception-procedure __tmp65826)))) + (declare (not safe)) + (error '"not an instance" 'type-exception? __tmp65825)))))) (define type-exception-type-id - (lambda (_exn91575_) + (lambda (_exn64471_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91575_)) - (let ((_e91578_ + (class-instance? RuntimeException::t _exn64471_)) + (let ((_e64474_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91575_ 'exception)))) - (if (macro-type-exception? _e91578_) - (macro-type-exception-type-id _e91578_) - (error '"not an instance" - 'type-exception? - (let ((__tmp97354 + (unchecked-slot-ref _exn64471_ 'exception)))) + (if (macro-type-exception? _e64474_) + (macro-type-exception-type-id _e64474_) + (let ((__tmp65831 + (let ((__tmp65832 (let () (declare (not safe)) - (cons _e91578_ '())))) + (cons _e64474_ '())))) (declare (not safe)) - (cons 'type-exception-type-id __tmp97354))))) - (if (macro-type-exception? _exn91575_) - (macro-type-exception-type-id _exn91575_) - (error '"not an instance" - 'type-exception? - (let ((__tmp97353 + (cons 'type-exception-type-id __tmp65832)))) + (declare (not safe)) + (error '"not an instance" 'type-exception? __tmp65831)))) + (if (macro-type-exception? _exn64471_) + (macro-type-exception-type-id _exn64471_) + (let ((__tmp65829 + (let ((__tmp65830 (let () (declare (not safe)) - (cons _exn91575_ '())))) + (cons _exn64471_ '())))) (declare (not safe)) - (cons 'type-exception-type-id __tmp97353))))))) + (cons 'type-exception-type-id __tmp65830)))) + (declare (not safe)) + (error '"not an instance" 'type-exception? __tmp65829)))))) (define unbound-global-exception? - (lambda (_exn91571_) + (lambda (_exn64467_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91571_)) - (let ((_e91573_ + (class-instance? RuntimeException::t _exn64467_)) + (let ((_e64469_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91571_ 'exception)))) - (macro-unbound-global-exception? _e91573_)) - (macro-unbound-global-exception? _exn91571_)))) + (unchecked-slot-ref _exn64467_ 'exception)))) + (macro-unbound-global-exception? _e64469_)) + (macro-unbound-global-exception? _exn64467_)))) (define unbound-global-exception-code - (lambda (_exn91567_) + (lambda (_exn64463_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91567_)) - (let ((_e91569_ + (class-instance? RuntimeException::t _exn64463_)) + (let ((_e64465_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91567_ 'exception)))) - (if (macro-unbound-global-exception? _e91569_) - (macro-unbound-global-exception-code _e91569_) - (error '"not an instance" - 'unbound-global-exception? - (let ((__tmp97356 + (unchecked-slot-ref _exn64463_ 'exception)))) + (if (macro-unbound-global-exception? _e64465_) + (macro-unbound-global-exception-code _e64465_) + (let ((__tmp65835 + (let ((__tmp65836 (let () (declare (not safe)) - (cons _e91569_ '())))) + (cons _e64465_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-code __tmp97356))))) - (if (macro-unbound-global-exception? _exn91567_) - (macro-unbound-global-exception-code _exn91567_) - (error '"not an instance" - 'unbound-global-exception? - (let ((__tmp97355 + (cons 'unbound-global-exception-code __tmp65836)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-global-exception? + __tmp65835)))) + (if (macro-unbound-global-exception? _exn64463_) + (macro-unbound-global-exception-code _exn64463_) + (let ((__tmp65833 + (let ((__tmp65834 (let () (declare (not safe)) - (cons _exn91567_ '())))) + (cons _exn64463_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-code __tmp97355))))))) + (cons 'unbound-global-exception-code __tmp65834)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-global-exception? + __tmp65833)))))) (define unbound-global-exception-rte - (lambda (_exn91563_) + (lambda (_exn64459_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91563_)) - (let ((_e91565_ + (class-instance? RuntimeException::t _exn64459_)) + (let ((_e64461_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91563_ 'exception)))) - (if (macro-unbound-global-exception? _e91565_) - (macro-unbound-global-exception-rte _e91565_) - (error '"not an instance" - 'unbound-global-exception? - (let ((__tmp97358 + (unchecked-slot-ref _exn64459_ 'exception)))) + (if (macro-unbound-global-exception? _e64461_) + (macro-unbound-global-exception-rte _e64461_) + (let ((__tmp65839 + (let ((__tmp65840 (let () (declare (not safe)) - (cons _e91565_ '())))) + (cons _e64461_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-rte __tmp97358))))) - (if (macro-unbound-global-exception? _exn91563_) - (macro-unbound-global-exception-rte _exn91563_) - (error '"not an instance" - 'unbound-global-exception? - (let ((__tmp97357 + (cons 'unbound-global-exception-rte __tmp65840)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-global-exception? + __tmp65839)))) + (if (macro-unbound-global-exception? _exn64459_) + (macro-unbound-global-exception-rte _exn64459_) + (let ((__tmp65837 + (let ((__tmp65838 (let () (declare (not safe)) - (cons _exn91563_ '())))) + (cons _exn64459_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-rte __tmp97357))))))) + (cons 'unbound-global-exception-rte __tmp65838)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-global-exception? + __tmp65837)))))) (define unbound-global-exception-variable - (lambda (_exn91557_) + (lambda (_exn64453_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91557_)) - (let ((_e91560_ + (class-instance? RuntimeException::t _exn64453_)) + (let ((_e64456_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91557_ 'exception)))) - (if (macro-unbound-global-exception? _e91560_) - (macro-unbound-global-exception-variable _e91560_) - (error '"not an instance" - 'unbound-global-exception? - (let ((__tmp97360 + (unchecked-slot-ref _exn64453_ 'exception)))) + (if (macro-unbound-global-exception? _e64456_) + (macro-unbound-global-exception-variable _e64456_) + (let ((__tmp65843 + (let ((__tmp65844 (let () (declare (not safe)) - (cons _e91560_ '())))) + (cons _e64456_ '())))) (declare (not safe)) (cons 'unbound-global-exception-variable - __tmp97360))))) - (if (macro-unbound-global-exception? _exn91557_) - (macro-unbound-global-exception-variable _exn91557_) - (error '"not an instance" - 'unbound-global-exception? - (let ((__tmp97359 + __tmp65844)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-global-exception? + __tmp65843)))) + (if (macro-unbound-global-exception? _exn64453_) + (macro-unbound-global-exception-variable _exn64453_) + (let ((__tmp65841 + (let ((__tmp65842 (let () (declare (not safe)) - (cons _exn91557_ '())))) + (cons _exn64453_ '())))) (declare (not safe)) (cons 'unbound-global-exception-variable - __tmp97359))))))) + __tmp65842)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-global-exception? + __tmp65841)))))) (define unbound-key-exception? - (lambda (_exn91553_) + (lambda (_exn64449_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91553_)) - (let ((_e91555_ + (class-instance? RuntimeException::t _exn64449_)) + (let ((_e64451_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91553_ 'exception)))) - (macro-unbound-key-exception? _e91555_)) - (macro-unbound-key-exception? _exn91553_)))) + (unchecked-slot-ref _exn64449_ 'exception)))) + (macro-unbound-key-exception? _e64451_)) + (macro-unbound-key-exception? _exn64449_)))) (define unbound-key-exception-arguments - (lambda (_exn91549_) + (lambda (_exn64445_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91549_)) - (let ((_e91551_ + (class-instance? RuntimeException::t _exn64445_)) + (let ((_e64447_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91549_ 'exception)))) - (if (macro-unbound-key-exception? _e91551_) - (macro-unbound-key-exception-arguments _e91551_) - (error '"not an instance" - 'unbound-key-exception? - (let ((__tmp97362 + (unchecked-slot-ref _exn64445_ 'exception)))) + (if (macro-unbound-key-exception? _e64447_) + (macro-unbound-key-exception-arguments _e64447_) + (let ((__tmp65847 + (let ((__tmp65848 (let () (declare (not safe)) - (cons _e91551_ '())))) + (cons _e64447_ '())))) (declare (not safe)) (cons 'unbound-key-exception-arguments - __tmp97362))))) - (if (macro-unbound-key-exception? _exn91549_) - (macro-unbound-key-exception-arguments _exn91549_) - (error '"not an instance" - 'unbound-key-exception? - (let ((__tmp97361 + __tmp65848)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-key-exception? + __tmp65847)))) + (if (macro-unbound-key-exception? _exn64445_) + (macro-unbound-key-exception-arguments _exn64445_) + (let ((__tmp65845 + (let ((__tmp65846 (let () (declare (not safe)) - (cons _exn91549_ '())))) + (cons _exn64445_ '())))) (declare (not safe)) - (cons 'unbound-key-exception-arguments - __tmp97361))))))) + (cons 'unbound-key-exception-arguments __tmp65846)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-key-exception? + __tmp65845)))))) (define unbound-key-exception-procedure - (lambda (_exn91543_) + (lambda (_exn64439_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91543_)) - (let ((_e91546_ + (class-instance? RuntimeException::t _exn64439_)) + (let ((_e64442_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91543_ 'exception)))) - (if (macro-unbound-key-exception? _e91546_) - (macro-unbound-key-exception-procedure _e91546_) - (error '"not an instance" - 'unbound-key-exception? - (let ((__tmp97364 + (unchecked-slot-ref _exn64439_ 'exception)))) + (if (macro-unbound-key-exception? _e64442_) + (macro-unbound-key-exception-procedure _e64442_) + (let ((__tmp65851 + (let ((__tmp65852 (let () (declare (not safe)) - (cons _e91546_ '())))) + (cons _e64442_ '())))) (declare (not safe)) (cons 'unbound-key-exception-procedure - __tmp97364))))) - (if (macro-unbound-key-exception? _exn91543_) - (macro-unbound-key-exception-procedure _exn91543_) - (error '"not an instance" - 'unbound-key-exception? - (let ((__tmp97363 + __tmp65852)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-key-exception? + __tmp65851)))) + (if (macro-unbound-key-exception? _exn64439_) + (macro-unbound-key-exception-procedure _exn64439_) + (let ((__tmp65849 + (let ((__tmp65850 (let () (declare (not safe)) - (cons _exn91543_ '())))) + (cons _exn64439_ '())))) (declare (not safe)) - (cons 'unbound-key-exception-procedure - __tmp97363))))))) + (cons 'unbound-key-exception-procedure __tmp65850)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-key-exception? + __tmp65849)))))) (define unbound-os-environment-variable-exception? - (lambda (_exn91539_) + (lambda (_exn64435_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91539_)) - (let ((_e91541_ + (class-instance? RuntimeException::t _exn64435_)) + (let ((_e64437_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91539_ 'exception)))) - (macro-unbound-os-environment-variable-exception? _e91541_)) - (macro-unbound-os-environment-variable-exception? _exn91539_)))) + (unchecked-slot-ref _exn64435_ 'exception)))) + (macro-unbound-os-environment-variable-exception? _e64437_)) + (macro-unbound-os-environment-variable-exception? _exn64435_)))) (define unbound-os-environment-variable-exception-arguments - (lambda (_exn91535_) + (lambda (_exn64431_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91535_)) - (let ((_e91537_ + (class-instance? RuntimeException::t _exn64431_)) + (let ((_e64433_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91535_ 'exception)))) - (if (macro-unbound-os-environment-variable-exception? _e91537_) + (unchecked-slot-ref _exn64431_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _e64433_) (macro-unbound-os-environment-variable-exception-arguments - _e91537_) - (error '"not an instance" - 'unbound-os-environment-variable-exception? - (let ((__tmp97366 + _e64433_) + (let ((__tmp65855 + (let ((__tmp65856 (let () (declare (not safe)) - (cons _e91537_ '())))) + (cons _e64433_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-arguments - __tmp97366))))) - (if (macro-unbound-os-environment-variable-exception? _exn91535_) + __tmp65856)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-os-environment-variable-exception? + __tmp65855)))) + (if (macro-unbound-os-environment-variable-exception? _exn64431_) (macro-unbound-os-environment-variable-exception-arguments - _exn91535_) - (error '"not an instance" - 'unbound-os-environment-variable-exception? - (let ((__tmp97365 + _exn64431_) + (let ((__tmp65853 + (let ((__tmp65854 (let () (declare (not safe)) - (cons _exn91535_ '())))) + (cons _exn64431_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-arguments - __tmp97365))))))) + __tmp65854)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-os-environment-variable-exception? + __tmp65853)))))) (define unbound-os-environment-variable-exception-procedure - (lambda (_exn91529_) + (lambda (_exn64425_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91529_)) - (let ((_e91532_ + (class-instance? RuntimeException::t _exn64425_)) + (let ((_e64428_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91529_ 'exception)))) - (if (macro-unbound-os-environment-variable-exception? _e91532_) + (unchecked-slot-ref _exn64425_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _e64428_) (macro-unbound-os-environment-variable-exception-procedure - _e91532_) - (error '"not an instance" - 'unbound-os-environment-variable-exception? - (let ((__tmp97368 + _e64428_) + (let ((__tmp65859 + (let ((__tmp65860 (let () (declare (not safe)) - (cons _e91532_ '())))) + (cons _e64428_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-procedure - __tmp97368))))) - (if (macro-unbound-os-environment-variable-exception? _exn91529_) + __tmp65860)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-os-environment-variable-exception? + __tmp65859)))) + (if (macro-unbound-os-environment-variable-exception? _exn64425_) (macro-unbound-os-environment-variable-exception-procedure - _exn91529_) - (error '"not an instance" - 'unbound-os-environment-variable-exception? - (let ((__tmp97367 + _exn64425_) + (let ((__tmp65857 + (let ((__tmp65858 (let () (declare (not safe)) - (cons _exn91529_ '())))) + (cons _exn64425_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-procedure - __tmp97367))))))) + __tmp65858)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-os-environment-variable-exception? + __tmp65857)))))) (define unbound-serial-number-exception? - (lambda (_exn91525_) + (lambda (_exn64421_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91525_)) - (let ((_e91527_ + (class-instance? RuntimeException::t _exn64421_)) + (let ((_e64423_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91525_ 'exception)))) - (macro-unbound-serial-number-exception? _e91527_)) - (macro-unbound-serial-number-exception? _exn91525_)))) + (unchecked-slot-ref _exn64421_ 'exception)))) + (macro-unbound-serial-number-exception? _e64423_)) + (macro-unbound-serial-number-exception? _exn64421_)))) (define unbound-serial-number-exception-arguments - (lambda (_exn91521_) + (lambda (_exn64417_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91521_)) - (let ((_e91523_ + (class-instance? RuntimeException::t _exn64417_)) + (let ((_e64419_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91521_ 'exception)))) - (if (macro-unbound-serial-number-exception? _e91523_) - (macro-unbound-serial-number-exception-arguments _e91523_) - (error '"not an instance" - 'unbound-serial-number-exception? - (let ((__tmp97370 + (unchecked-slot-ref _exn64417_ 'exception)))) + (if (macro-unbound-serial-number-exception? _e64419_) + (macro-unbound-serial-number-exception-arguments _e64419_) + (let ((__tmp65863 + (let ((__tmp65864 (let () (declare (not safe)) - (cons _e91523_ '())))) + (cons _e64419_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-arguments - __tmp97370))))) - (if (macro-unbound-serial-number-exception? _exn91521_) - (macro-unbound-serial-number-exception-arguments _exn91521_) - (error '"not an instance" - 'unbound-serial-number-exception? - (let ((__tmp97369 + __tmp65864)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-serial-number-exception? + __tmp65863)))) + (if (macro-unbound-serial-number-exception? _exn64417_) + (macro-unbound-serial-number-exception-arguments _exn64417_) + (let ((__tmp65861 + (let ((__tmp65862 (let () (declare (not safe)) - (cons _exn91521_ '())))) + (cons _exn64417_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-arguments - __tmp97369))))))) + __tmp65862)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-serial-number-exception? + __tmp65861)))))) (define unbound-serial-number-exception-procedure - (lambda (_exn91515_) + (lambda (_exn64411_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91515_)) - (let ((_e91518_ + (class-instance? RuntimeException::t _exn64411_)) + (let ((_e64414_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91515_ 'exception)))) - (if (macro-unbound-serial-number-exception? _e91518_) - (macro-unbound-serial-number-exception-procedure _e91518_) - (error '"not an instance" - 'unbound-serial-number-exception? - (let ((__tmp97372 + (unchecked-slot-ref _exn64411_ 'exception)))) + (if (macro-unbound-serial-number-exception? _e64414_) + (macro-unbound-serial-number-exception-procedure _e64414_) + (let ((__tmp65867 + (let ((__tmp65868 (let () (declare (not safe)) - (cons _e91518_ '())))) + (cons _e64414_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-procedure - __tmp97372))))) - (if (macro-unbound-serial-number-exception? _exn91515_) - (macro-unbound-serial-number-exception-procedure _exn91515_) - (error '"not an instance" - 'unbound-serial-number-exception? - (let ((__tmp97371 + __tmp65868)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-serial-number-exception? + __tmp65867)))) + (if (macro-unbound-serial-number-exception? _exn64411_) + (macro-unbound-serial-number-exception-procedure _exn64411_) + (let ((__tmp65865 + (let ((__tmp65866 (let () (declare (not safe)) - (cons _exn91515_ '())))) + (cons _exn64411_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-procedure - __tmp97371))))))) + __tmp65866)))) + (declare (not safe)) + (error '"not an instance" + 'unbound-serial-number-exception? + __tmp65865)))))) (define uncaught-exception? - (lambda (_exn91511_) + (lambda (_exn64407_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91511_)) - (let ((_e91513_ + (class-instance? RuntimeException::t _exn64407_)) + (let ((_e64409_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91511_ 'exception)))) - (macro-uncaught-exception? _e91513_)) - (macro-uncaught-exception? _exn91511_)))) + (unchecked-slot-ref _exn64407_ 'exception)))) + (macro-uncaught-exception? _e64409_)) + (macro-uncaught-exception? _exn64407_)))) (define uncaught-exception-arguments - (lambda (_exn91507_) + (lambda (_exn64403_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91507_)) - (let ((_e91509_ + (class-instance? RuntimeException::t _exn64403_)) + (let ((_e64405_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91507_ 'exception)))) - (if (macro-uncaught-exception? _e91509_) - (macro-uncaught-exception-arguments _e91509_) - (error '"not an instance" - 'uncaught-exception? - (let ((__tmp97374 + (unchecked-slot-ref _exn64403_ 'exception)))) + (if (macro-uncaught-exception? _e64405_) + (macro-uncaught-exception-arguments _e64405_) + (let ((__tmp65871 + (let ((__tmp65872 (let () (declare (not safe)) - (cons _e91509_ '())))) + (cons _e64405_ '())))) (declare (not safe)) - (cons 'uncaught-exception-arguments __tmp97374))))) - (if (macro-uncaught-exception? _exn91507_) - (macro-uncaught-exception-arguments _exn91507_) - (error '"not an instance" - 'uncaught-exception? - (let ((__tmp97373 + (cons 'uncaught-exception-arguments __tmp65872)))) + (declare (not safe)) + (error '"not an instance" + 'uncaught-exception? + __tmp65871)))) + (if (macro-uncaught-exception? _exn64403_) + (macro-uncaught-exception-arguments _exn64403_) + (let ((__tmp65869 + (let ((__tmp65870 (let () (declare (not safe)) - (cons _exn91507_ '())))) + (cons _exn64403_ '())))) (declare (not safe)) - (cons 'uncaught-exception-arguments __tmp97373))))))) + (cons 'uncaught-exception-arguments __tmp65870)))) + (declare (not safe)) + (error '"not an instance" + 'uncaught-exception? + __tmp65869)))))) (define uncaught-exception-procedure - (lambda (_exn91503_) + (lambda (_exn64399_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91503_)) - (let ((_e91505_ + (class-instance? RuntimeException::t _exn64399_)) + (let ((_e64401_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91503_ 'exception)))) - (if (macro-uncaught-exception? _e91505_) - (macro-uncaught-exception-procedure _e91505_) - (error '"not an instance" - 'uncaught-exception? - (let ((__tmp97376 + (unchecked-slot-ref _exn64399_ 'exception)))) + (if (macro-uncaught-exception? _e64401_) + (macro-uncaught-exception-procedure _e64401_) + (let ((__tmp65875 + (let ((__tmp65876 (let () (declare (not safe)) - (cons _e91505_ '())))) + (cons _e64401_ '())))) (declare (not safe)) - (cons 'uncaught-exception-procedure __tmp97376))))) - (if (macro-uncaught-exception? _exn91503_) - (macro-uncaught-exception-procedure _exn91503_) - (error '"not an instance" - 'uncaught-exception? - (let ((__tmp97375 + (cons 'uncaught-exception-procedure __tmp65876)))) + (declare (not safe)) + (error '"not an instance" + 'uncaught-exception? + __tmp65875)))) + (if (macro-uncaught-exception? _exn64399_) + (macro-uncaught-exception-procedure _exn64399_) + (let ((__tmp65873 + (let ((__tmp65874 (let () (declare (not safe)) - (cons _exn91503_ '())))) + (cons _exn64399_ '())))) (declare (not safe)) - (cons 'uncaught-exception-procedure __tmp97375))))))) + (cons 'uncaught-exception-procedure __tmp65874)))) + (declare (not safe)) + (error '"not an instance" + 'uncaught-exception? + __tmp65873)))))) (define uncaught-exception-reason - (lambda (_exn91497_) + (lambda (_exn64393_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91497_)) - (let ((_e91500_ + (class-instance? RuntimeException::t _exn64393_)) + (let ((_e64396_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91497_ 'exception)))) - (if (macro-uncaught-exception? _e91500_) - (macro-uncaught-exception-reason _e91500_) - (error '"not an instance" - 'uncaught-exception? - (let ((__tmp97378 + (unchecked-slot-ref _exn64393_ 'exception)))) + (if (macro-uncaught-exception? _e64396_) + (macro-uncaught-exception-reason _e64396_) + (let ((__tmp65879 + (let ((__tmp65880 (let () (declare (not safe)) - (cons _e91500_ '())))) + (cons _e64396_ '())))) (declare (not safe)) - (cons 'uncaught-exception-reason __tmp97378))))) - (if (macro-uncaught-exception? _exn91497_) - (macro-uncaught-exception-reason _exn91497_) - (error '"not an instance" - 'uncaught-exception? - (let ((__tmp97377 + (cons 'uncaught-exception-reason __tmp65880)))) + (declare (not safe)) + (error '"not an instance" + 'uncaught-exception? + __tmp65879)))) + (if (macro-uncaught-exception? _exn64393_) + (macro-uncaught-exception-reason _exn64393_) + (let ((__tmp65877 + (let ((__tmp65878 (let () (declare (not safe)) - (cons _exn91497_ '())))) + (cons _exn64393_ '())))) (declare (not safe)) - (cons 'uncaught-exception-reason __tmp97377))))))) + (cons 'uncaught-exception-reason __tmp65878)))) + (declare (not safe)) + (error '"not an instance" + 'uncaught-exception? + __tmp65877)))))) (define uninitialized-thread-exception? - (lambda (_exn91493_) + (lambda (_exn64389_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91493_)) - (let ((_e91495_ + (class-instance? RuntimeException::t _exn64389_)) + (let ((_e64391_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91493_ 'exception)))) - (macro-uninitialized-thread-exception? _e91495_)) - (macro-uninitialized-thread-exception? _exn91493_)))) + (unchecked-slot-ref _exn64389_ 'exception)))) + (macro-uninitialized-thread-exception? _e64391_)) + (macro-uninitialized-thread-exception? _exn64389_)))) (define uninitialized-thread-exception-arguments - (lambda (_exn91489_) + (lambda (_exn64385_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91489_)) - (let ((_e91491_ + (class-instance? RuntimeException::t _exn64385_)) + (let ((_e64387_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91489_ 'exception)))) - (if (macro-uninitialized-thread-exception? _e91491_) - (macro-uninitialized-thread-exception-arguments _e91491_) - (error '"not an instance" - 'uninitialized-thread-exception? - (let ((__tmp97380 + (unchecked-slot-ref _exn64385_ 'exception)))) + (if (macro-uninitialized-thread-exception? _e64387_) + (macro-uninitialized-thread-exception-arguments _e64387_) + (let ((__tmp65883 + (let ((__tmp65884 (let () (declare (not safe)) - (cons _e91491_ '())))) + (cons _e64387_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-arguments - __tmp97380))))) - (if (macro-uninitialized-thread-exception? _exn91489_) - (macro-uninitialized-thread-exception-arguments _exn91489_) - (error '"not an instance" - 'uninitialized-thread-exception? - (let ((__tmp97379 + __tmp65884)))) + (declare (not safe)) + (error '"not an instance" + 'uninitialized-thread-exception? + __tmp65883)))) + (if (macro-uninitialized-thread-exception? _exn64385_) + (macro-uninitialized-thread-exception-arguments _exn64385_) + (let ((__tmp65881 + (let ((__tmp65882 (let () (declare (not safe)) - (cons _exn91489_ '())))) + (cons _exn64385_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-arguments - __tmp97379))))))) + __tmp65882)))) + (declare (not safe)) + (error '"not an instance" + 'uninitialized-thread-exception? + __tmp65881)))))) (define uninitialized-thread-exception-procedure - (lambda (_exn91483_) + (lambda (_exn64379_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91483_)) - (let ((_e91486_ + (class-instance? RuntimeException::t _exn64379_)) + (let ((_e64382_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91483_ 'exception)))) - (if (macro-uninitialized-thread-exception? _e91486_) - (macro-uninitialized-thread-exception-procedure _e91486_) - (error '"not an instance" - 'uninitialized-thread-exception? - (let ((__tmp97382 + (unchecked-slot-ref _exn64379_ 'exception)))) + (if (macro-uninitialized-thread-exception? _e64382_) + (macro-uninitialized-thread-exception-procedure _e64382_) + (let ((__tmp65887 + (let ((__tmp65888 (let () (declare (not safe)) - (cons _e91486_ '())))) + (cons _e64382_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-procedure - __tmp97382))))) - (if (macro-uninitialized-thread-exception? _exn91483_) - (macro-uninitialized-thread-exception-procedure _exn91483_) - (error '"not an instance" - 'uninitialized-thread-exception? - (let ((__tmp97381 + __tmp65888)))) + (declare (not safe)) + (error '"not an instance" + 'uninitialized-thread-exception? + __tmp65887)))) + (if (macro-uninitialized-thread-exception? _exn64379_) + (macro-uninitialized-thread-exception-procedure _exn64379_) + (let ((__tmp65885 + (let ((__tmp65886 (let () (declare (not safe)) - (cons _exn91483_ '())))) + (cons _exn64379_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-procedure - __tmp97381))))))) + __tmp65886)))) + (declare (not safe)) + (error '"not an instance" + 'uninitialized-thread-exception? + __tmp65885)))))) (define unknown-keyword-argument-exception? - (lambda (_exn91479_) + (lambda (_exn64375_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91479_)) - (let ((_e91481_ + (class-instance? RuntimeException::t _exn64375_)) + (let ((_e64377_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91479_ 'exception)))) - (macro-unknown-keyword-argument-exception? _e91481_)) - (macro-unknown-keyword-argument-exception? _exn91479_)))) + (unchecked-slot-ref _exn64375_ 'exception)))) + (macro-unknown-keyword-argument-exception? _e64377_)) + (macro-unknown-keyword-argument-exception? _exn64375_)))) (define unknown-keyword-argument-exception-arguments - (lambda (_exn91475_) + (lambda (_exn64371_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91475_)) - (let ((_e91477_ + (class-instance? RuntimeException::t _exn64371_)) + (let ((_e64373_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91475_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _e91477_) - (macro-unknown-keyword-argument-exception-arguments _e91477_) - (error '"not an instance" - 'unknown-keyword-argument-exception? - (let ((__tmp97384 + (unchecked-slot-ref _exn64371_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _e64373_) + (macro-unknown-keyword-argument-exception-arguments _e64373_) + (let ((__tmp65891 + (let ((__tmp65892 (let () (declare (not safe)) - (cons _e91477_ '())))) + (cons _e64373_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-arguments - __tmp97384))))) - (if (macro-unknown-keyword-argument-exception? _exn91475_) - (macro-unknown-keyword-argument-exception-arguments _exn91475_) - (error '"not an instance" - 'unknown-keyword-argument-exception? - (let ((__tmp97383 + __tmp65892)))) + (declare (not safe)) + (error '"not an instance" + 'unknown-keyword-argument-exception? + __tmp65891)))) + (if (macro-unknown-keyword-argument-exception? _exn64371_) + (macro-unknown-keyword-argument-exception-arguments _exn64371_) + (let ((__tmp65889 + (let ((__tmp65890 (let () (declare (not safe)) - (cons _exn91475_ '())))) + (cons _exn64371_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-arguments - __tmp97383))))))) + __tmp65890)))) + (declare (not safe)) + (error '"not an instance" + 'unknown-keyword-argument-exception? + __tmp65889)))))) (define unknown-keyword-argument-exception-procedure - (lambda (_exn91469_) + (lambda (_exn64365_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91469_)) - (let ((_e91472_ + (class-instance? RuntimeException::t _exn64365_)) + (let ((_e64368_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91469_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _e91472_) - (macro-unknown-keyword-argument-exception-procedure _e91472_) - (error '"not an instance" - 'unknown-keyword-argument-exception? - (let ((__tmp97386 + (unchecked-slot-ref _exn64365_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _e64368_) + (macro-unknown-keyword-argument-exception-procedure _e64368_) + (let ((__tmp65895 + (let ((__tmp65896 (let () (declare (not safe)) - (cons _e91472_ '())))) + (cons _e64368_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-procedure - __tmp97386))))) - (if (macro-unknown-keyword-argument-exception? _exn91469_) - (macro-unknown-keyword-argument-exception-procedure _exn91469_) - (error '"not an instance" - 'unknown-keyword-argument-exception? - (let ((__tmp97385 + __tmp65896)))) + (declare (not safe)) + (error '"not an instance" + 'unknown-keyword-argument-exception? + __tmp65895)))) + (if (macro-unknown-keyword-argument-exception? _exn64365_) + (macro-unknown-keyword-argument-exception-procedure _exn64365_) + (let ((__tmp65893 + (let ((__tmp65894 (let () (declare (not safe)) - (cons _exn91469_ '())))) + (cons _exn64365_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-procedure - __tmp97385))))))) + __tmp65894)))) + (declare (not safe)) + (error '"not an instance" + 'unknown-keyword-argument-exception? + __tmp65893)))))) (define unterminated-process-exception? - (lambda (_exn91465_) + (lambda (_exn64361_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91465_)) - (let ((_e91467_ + (class-instance? RuntimeException::t _exn64361_)) + (let ((_e64363_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91465_ 'exception)))) - (macro-unterminated-process-exception? _e91467_)) - (macro-unterminated-process-exception? _exn91465_)))) + (unchecked-slot-ref _exn64361_ 'exception)))) + (macro-unterminated-process-exception? _e64363_)) + (macro-unterminated-process-exception? _exn64361_)))) (define unterminated-process-exception-arguments - (lambda (_exn91461_) + (lambda (_exn64357_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91461_)) - (let ((_e91463_ + (class-instance? RuntimeException::t _exn64357_)) + (let ((_e64359_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91461_ 'exception)))) - (if (macro-unterminated-process-exception? _e91463_) - (macro-unterminated-process-exception-arguments _e91463_) - (error '"not an instance" - 'unterminated-process-exception? - (let ((__tmp97388 + (unchecked-slot-ref _exn64357_ 'exception)))) + (if (macro-unterminated-process-exception? _e64359_) + (macro-unterminated-process-exception-arguments _e64359_) + (let ((__tmp65899 + (let ((__tmp65900 (let () (declare (not safe)) - (cons _e91463_ '())))) + (cons _e64359_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-arguments - __tmp97388))))) - (if (macro-unterminated-process-exception? _exn91461_) - (macro-unterminated-process-exception-arguments _exn91461_) - (error '"not an instance" - 'unterminated-process-exception? - (let ((__tmp97387 + __tmp65900)))) + (declare (not safe)) + (error '"not an instance" + 'unterminated-process-exception? + __tmp65899)))) + (if (macro-unterminated-process-exception? _exn64357_) + (macro-unterminated-process-exception-arguments _exn64357_) + (let ((__tmp65897 + (let ((__tmp65898 (let () (declare (not safe)) - (cons _exn91461_ '())))) + (cons _exn64357_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-arguments - __tmp97387))))))) + __tmp65898)))) + (declare (not safe)) + (error '"not an instance" + 'unterminated-process-exception? + __tmp65897)))))) (define unterminated-process-exception-procedure - (lambda (_exn91455_) + (lambda (_exn64351_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91455_)) - (let ((_e91458_ + (class-instance? RuntimeException::t _exn64351_)) + (let ((_e64354_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91455_ 'exception)))) - (if (macro-unterminated-process-exception? _e91458_) - (macro-unterminated-process-exception-procedure _e91458_) - (error '"not an instance" - 'unterminated-process-exception? - (let ((__tmp97390 + (unchecked-slot-ref _exn64351_ 'exception)))) + (if (macro-unterminated-process-exception? _e64354_) + (macro-unterminated-process-exception-procedure _e64354_) + (let ((__tmp65903 + (let ((__tmp65904 (let () (declare (not safe)) - (cons _e91458_ '())))) + (cons _e64354_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-procedure - __tmp97390))))) - (if (macro-unterminated-process-exception? _exn91455_) - (macro-unterminated-process-exception-procedure _exn91455_) - (error '"not an instance" - 'unterminated-process-exception? - (let ((__tmp97389 + __tmp65904)))) + (declare (not safe)) + (error '"not an instance" + 'unterminated-process-exception? + __tmp65903)))) + (if (macro-unterminated-process-exception? _exn64351_) + (macro-unterminated-process-exception-procedure _exn64351_) + (let ((__tmp65901 + (let ((__tmp65902 (let () (declare (not safe)) - (cons _exn91455_ '())))) + (cons _exn64351_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-procedure - __tmp97389))))))) + __tmp65902)))) + (declare (not safe)) + (error '"not an instance" + 'unterminated-process-exception? + __tmp65901)))))) (define wrong-number-of-arguments-exception? - (lambda (_exn91451_) + (lambda (_exn64347_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91451_)) - (let ((_e91453_ + (class-instance? RuntimeException::t _exn64347_)) + (let ((_e64349_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91451_ 'exception)))) - (macro-wrong-number-of-arguments-exception? _e91453_)) - (macro-wrong-number-of-arguments-exception? _exn91451_)))) + (unchecked-slot-ref _exn64347_ 'exception)))) + (macro-wrong-number-of-arguments-exception? _e64349_)) + (macro-wrong-number-of-arguments-exception? _exn64347_)))) (define wrong-number-of-arguments-exception-arguments - (lambda (_exn91447_) + (lambda (_exn64343_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91447_)) - (let ((_e91449_ + (class-instance? RuntimeException::t _exn64343_)) + (let ((_e64345_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91447_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _e91449_) + (unchecked-slot-ref _exn64343_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _e64345_) (macro-wrong-number-of-arguments-exception-arguments - _e91449_) - (error '"not an instance" - 'wrong-number-of-arguments-exception? - (let ((__tmp97392 + _e64345_) + (let ((__tmp65907 + (let ((__tmp65908 (let () (declare (not safe)) - (cons _e91449_ '())))) + (cons _e64345_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-arguments - __tmp97392))))) - (if (macro-wrong-number-of-arguments-exception? _exn91447_) + __tmp65908)))) + (declare (not safe)) + (error '"not an instance" + 'wrong-number-of-arguments-exception? + __tmp65907)))) + (if (macro-wrong-number-of-arguments-exception? _exn64343_) (macro-wrong-number-of-arguments-exception-arguments - _exn91447_) - (error '"not an instance" - 'wrong-number-of-arguments-exception? - (let ((__tmp97391 + _exn64343_) + (let ((__tmp65905 + (let ((__tmp65906 (let () (declare (not safe)) - (cons _exn91447_ '())))) + (cons _exn64343_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-arguments - __tmp97391))))))) + __tmp65906)))) + (declare (not safe)) + (error '"not an instance" + 'wrong-number-of-arguments-exception? + __tmp65905)))))) (define wrong-number-of-arguments-exception-procedure - (lambda (_exn91441_) + (lambda (_exn64337_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91441_)) - (let ((_e91444_ + (class-instance? RuntimeException::t _exn64337_)) + (let ((_e64340_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91441_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _e91444_) + (unchecked-slot-ref _exn64337_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _e64340_) (macro-wrong-number-of-arguments-exception-procedure - _e91444_) - (error '"not an instance" - 'wrong-number-of-arguments-exception? - (let ((__tmp97394 + _e64340_) + (let ((__tmp65911 + (let ((__tmp65912 (let () (declare (not safe)) - (cons _e91444_ '())))) + (cons _e64340_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-procedure - __tmp97394))))) - (if (macro-wrong-number-of-arguments-exception? _exn91441_) + __tmp65912)))) + (declare (not safe)) + (error '"not an instance" + 'wrong-number-of-arguments-exception? + __tmp65911)))) + (if (macro-wrong-number-of-arguments-exception? _exn64337_) (macro-wrong-number-of-arguments-exception-procedure - _exn91441_) - (error '"not an instance" - 'wrong-number-of-arguments-exception? - (let ((__tmp97393 + _exn64337_) + (let ((__tmp65909 + (let ((__tmp65910 (let () (declare (not safe)) - (cons _exn91441_ '())))) + (cons _exn64337_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-procedure - __tmp97393))))))) + __tmp65910)))) + (declare (not safe)) + (error '"not an instance" + 'wrong-number-of-arguments-exception? + __tmp65909)))))) (define wrong-number-of-values-exception? - (lambda (_exn91437_) + (lambda (_exn64333_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91437_)) - (let ((_e91439_ + (class-instance? RuntimeException::t _exn64333_)) + (let ((_e64335_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91437_ 'exception)))) - (macro-wrong-number-of-values-exception? _e91439_)) - (macro-wrong-number-of-values-exception? _exn91437_)))) + (unchecked-slot-ref _exn64333_ 'exception)))) + (macro-wrong-number-of-values-exception? _e64335_)) + (macro-wrong-number-of-values-exception? _exn64333_)))) (define wrong-number-of-values-exception-code - (lambda (_exn91433_) + (lambda (_exn64329_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91433_)) - (let ((_e91435_ + (class-instance? RuntimeException::t _exn64329_)) + (let ((_e64331_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91433_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e91435_) - (macro-wrong-number-of-values-exception-code _e91435_) - (error '"not an instance" - 'wrong-number-of-values-exception? - (let ((__tmp97396 + (unchecked-slot-ref _exn64329_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e64331_) + (macro-wrong-number-of-values-exception-code _e64331_) + (let ((__tmp65915 + (let ((__tmp65916 (let () (declare (not safe)) - (cons _e91435_ '())))) + (cons _e64331_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-code - __tmp97396))))) - (if (macro-wrong-number-of-values-exception? _exn91433_) - (macro-wrong-number-of-values-exception-code _exn91433_) - (error '"not an instance" - 'wrong-number-of-values-exception? - (let ((__tmp97395 + __tmp65916)))) + (declare (not safe)) + (error '"not an instance" + 'wrong-number-of-values-exception? + __tmp65915)))) + (if (macro-wrong-number-of-values-exception? _exn64329_) + (macro-wrong-number-of-values-exception-code _exn64329_) + (let ((__tmp65913 + (let ((__tmp65914 (let () (declare (not safe)) - (cons _exn91433_ '())))) + (cons _exn64329_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-code - __tmp97395))))))) + __tmp65914)))) + (declare (not safe)) + (error '"not an instance" + 'wrong-number-of-values-exception? + __tmp65913)))))) (define wrong-number-of-values-exception-rte - (lambda (_exn91429_) + (lambda (_exn64325_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91429_)) - (let ((_e91431_ + (class-instance? RuntimeException::t _exn64325_)) + (let ((_e64327_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91429_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e91431_) - (macro-wrong-number-of-values-exception-rte _e91431_) - (error '"not an instance" - 'wrong-number-of-values-exception? - (let ((__tmp97398 + (unchecked-slot-ref _exn64325_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e64327_) + (macro-wrong-number-of-values-exception-rte _e64327_) + (let ((__tmp65919 + (let ((__tmp65920 (let () (declare (not safe)) - (cons _e91431_ '())))) + (cons _e64327_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-rte - __tmp97398))))) - (if (macro-wrong-number-of-values-exception? _exn91429_) - (macro-wrong-number-of-values-exception-rte _exn91429_) - (error '"not an instance" - 'wrong-number-of-values-exception? - (let ((__tmp97397 + __tmp65920)))) + (declare (not safe)) + (error '"not an instance" + 'wrong-number-of-values-exception? + __tmp65919)))) + (if (macro-wrong-number-of-values-exception? _exn64325_) + (macro-wrong-number-of-values-exception-rte _exn64325_) + (let ((__tmp65917 + (let ((__tmp65918 (let () (declare (not safe)) - (cons _exn91429_ '())))) + (cons _exn64325_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-rte - __tmp97397))))))) + __tmp65918)))) + (declare (not safe)) + (error '"not an instance" + 'wrong-number-of-values-exception? + __tmp65917)))))) (define wrong-number-of-values-exception-vals - (lambda (_exn91423_) + (lambda (_exn64319_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91423_)) - (let ((_e91426_ + (class-instance? RuntimeException::t _exn64319_)) + (let ((_e64322_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91423_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e91426_) - (macro-wrong-number-of-values-exception-vals _e91426_) - (error '"not an instance" - 'wrong-number-of-values-exception? - (let ((__tmp97400 + (unchecked-slot-ref _exn64319_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e64322_) + (macro-wrong-number-of-values-exception-vals _e64322_) + (let ((__tmp65923 + (let ((__tmp65924 (let () (declare (not safe)) - (cons _e91426_ '())))) + (cons _e64322_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-vals - __tmp97400))))) - (if (macro-wrong-number-of-values-exception? _exn91423_) - (macro-wrong-number-of-values-exception-vals _exn91423_) - (error '"not an instance" - 'wrong-number-of-values-exception? - (let ((__tmp97399 + __tmp65924)))) + (declare (not safe)) + (error '"not an instance" + 'wrong-number-of-values-exception? + __tmp65923)))) + (if (macro-wrong-number-of-values-exception? _exn64319_) + (macro-wrong-number-of-values-exception-vals _exn64319_) + (let ((__tmp65921 + (let ((__tmp65922 (let () (declare (not safe)) - (cons _exn91423_ '())))) + (cons _exn64319_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-vals - __tmp97399))))))) + __tmp65922)))) + (declare (not safe)) + (error '"not an instance" + 'wrong-number-of-values-exception? + __tmp65921)))))) (define wrong-processor-c-return-exception? - (lambda (_exn91417_) + (lambda (_exn64313_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn91417_)) - (let ((_e91420_ + (class-instance? RuntimeException::t _exn64313_)) + (let ((_e64316_ (let () (declare (not safe)) - (unchecked-slot-ref _exn91417_ 'exception)))) - (macro-wrong-processor-c-return-exception? _e91420_)) - (macro-wrong-processor-c-return-exception? _exn91417_)))))) + (unchecked-slot-ref _exn64313_ 'exception)))) + (macro-wrong-processor-c-return-exception? _e64316_)) + (macro-wrong-processor-c-return-exception? _exn64313_)))))) diff --git a/src/bootstrap/gerbil/runtime/error__1.scm b/src/bootstrap/gerbil/runtime/error__1.scm index 0329d6343..9242390ff 100644 --- a/src/bootstrap/gerbil/runtime/error__1.scm +++ b/src/bootstrap/gerbil/runtime/error__1.scm @@ -1,293 +1,293 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g97402_| + (define |[1]#_g65926_| (##structure gx#syntax-quote::t 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g97404_| + (define |[1]#_g65928_| (##structure gx#syntax-quote::t 'make-Exception #f (gx#current-expander-context) '())) - (define |[1]#_g97406_| + (define |[1]#_g65930_| (##structure gx#syntax-quote::t 'Exception? #f (gx#current-expander-context) '())) - (define |[1]#_g97408_| + (define |[1]#_g65932_| (##structure gx#syntax-quote::t 'StackTrace::t #f (gx#current-expander-context) '())) - (define |[1]#_g97410_| + (define |[1]#_g65934_| (##structure gx#syntax-quote::t 'make-StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g97412_| + (define |[1]#_g65936_| (##structure gx#syntax-quote::t 'StackTrace? #f (gx#current-expander-context) '())) - (define |[1]#_g97416_| + (define |[1]#_g65940_| (##structure gx#syntax-quote::t 'StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g97420_| + (define |[1]#_g65944_| (##structure gx#syntax-quote::t 'StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g97424_| + (define |[1]#_g65948_| (##structure gx#syntax-quote::t '&StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g97428_| + (define |[1]#_g65952_| (##structure gx#syntax-quote::t '&StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g97432_| + (define |[1]#_g65956_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g97434_| + (define |[1]#_g65958_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g97436_| + (define |[1]#_g65960_| (##structure gx#syntax-quote::t 'Error::t #f (gx#current-expander-context) '())) - (define |[1]#_g97438_| + (define |[1]#_g65962_| (##structure gx#syntax-quote::t 'make-Error #f (gx#current-expander-context) '())) - (define |[1]#_g97440_| + (define |[1]#_g65964_| (##structure gx#syntax-quote::t 'Error? #f (gx#current-expander-context) '())) - (define |[1]#_g97447_| + (define |[1]#_g65971_| (##structure gx#syntax-quote::t 'Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g97450_| + (define |[1]#_g65974_| (##structure gx#syntax-quote::t 'Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g97453_| + (define |[1]#_g65977_| (##structure gx#syntax-quote::t 'Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g97456_| + (define |[1]#_g65980_| (##structure gx#syntax-quote::t 'Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g97463_| + (define |[1]#_g65987_| (##structure gx#syntax-quote::t 'Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g97466_| + (define |[1]#_g65990_| (##structure gx#syntax-quote::t 'Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g97469_| + (define |[1]#_g65993_| (##structure gx#syntax-quote::t 'Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g97472_| + (define |[1]#_g65996_| (##structure gx#syntax-quote::t 'Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g97479_| + (define |[1]#_g66003_| (##structure gx#syntax-quote::t '&Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g97482_| + (define |[1]#_g66006_| (##structure gx#syntax-quote::t '&Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g97485_| + (define |[1]#_g66009_| (##structure gx#syntax-quote::t '&Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g97488_| + (define |[1]#_g66012_| (##structure gx#syntax-quote::t '&Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g97495_| + (define |[1]#_g66019_| (##structure gx#syntax-quote::t '&Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g97498_| + (define |[1]#_g66022_| (##structure gx#syntax-quote::t '&Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g97501_| + (define |[1]#_g66025_| (##structure gx#syntax-quote::t '&Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g97504_| + (define |[1]#_g66028_| (##structure gx#syntax-quote::t '&Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g97510_| + (define |[1]#_g66034_| (##structure gx#syntax-quote::t 'RuntimeException::t #f (gx#current-expander-context) '())) - (define |[1]#_g97512_| + (define |[1]#_g66036_| (##structure gx#syntax-quote::t 'make-RuntimeException #f (gx#current-expander-context) '())) - (define |[1]#_g97514_| + (define |[1]#_g66038_| (##structure gx#syntax-quote::t 'RuntimeException? #f (gx#current-expander-context) '())) - (define |[1]#_g97519_| + (define |[1]#_g66043_| (##structure gx#syntax-quote::t 'RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g97522_| + (define |[1]#_g66046_| (##structure gx#syntax-quote::t 'RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g97527_| + (define |[1]#_g66051_| (##structure gx#syntax-quote::t 'RuntimeException-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g97530_| + (define |[1]#_g66054_| (##structure gx#syntax-quote::t 'RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g97535_| + (define |[1]#_g66059_| (##structure gx#syntax-quote::t '&RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g97538_| + (define |[1]#_g66062_| (##structure gx#syntax-quote::t '&RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g97543_| + (define |[1]#_g66067_| (##structure gx#syntax-quote::t '&RuntimeException-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g97546_| + (define |[1]#_g66070_| (##structure gx#syntax-quote::t '&RuntimeException-exception-set! @@ -296,7 +296,7 @@ '())) (begin (define |[:0:]#Exception| - (let ((__obj97170 + (let ((__obj65498 (let () (declare (not safe)) (##structure @@ -319,7 +319,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97170 + __obj65498 'gerbil/runtime/error#Exception::t '1 gerbil/core$$#class-type-info::t @@ -327,7 +327,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97170 + __obj65498 'Exception '2 gerbil/core$$#class-type-info::t @@ -335,7 +335,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97170 + __obj65498 '() '4 gerbil/core$$#class-type-info::t @@ -343,7 +343,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97170 + __obj65498 '() '3 gerbil/core$$#class-type-info::t @@ -351,7 +351,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97170 + __obj65498 '#f '5 gerbil/core$$#class-type-info::t @@ -359,7 +359,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97170 + __obj65498 '#f '6 gerbil/core$$#class-type-info::t @@ -367,7 +367,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97170 + __obj65498 '#f '7 gerbil/core$$#class-type-info::t @@ -375,39 +375,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97170 + __obj65498 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97401 |[1]#_g97402_|)) + (let ((__tmp65925 |[1]#_g65926_|)) (declare (not safe)) (##unchecked-structure-set! - __obj97170 - __tmp97401 + __obj65498 + __tmp65925 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97403 |[1]#_g97404_|)) + (let ((__tmp65927 |[1]#_g65928_|)) (declare (not safe)) (##unchecked-structure-set! - __obj97170 - __tmp97403 + __obj65498 + __tmp65927 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97405 |[1]#_g97406_|)) + (let ((__tmp65929 |[1]#_g65930_|)) (declare (not safe)) (##unchecked-structure-set! - __obj97170 - __tmp97405 + __obj65498 + __tmp65929 '11 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj97170 + __obj65498 '() '12 gerbil/core$$#class-type-info::t @@ -415,7 +415,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97170 + __obj65498 '() '13 gerbil/core$$#class-type-info::t @@ -423,7 +423,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97170 + __obj65498 '() '14 gerbil/core$$#class-type-info::t @@ -431,14 +431,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97170 + __obj65498 '() '15 gerbil/core$$#class-type-info::t '#f)) - __obj97170)) + __obj65498)) (define |[:0:]#StackTrace| - (let ((__obj97171 + (let ((__obj65499 (let () (declare (not safe)) (##structure @@ -461,7 +461,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97171 + __obj65499 'gerbil/runtime/error#StackTrace::t '1 gerbil/core$$#class-type-info::t @@ -469,7 +469,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97171 + __obj65499 'StackTrace '2 gerbil/core$$#class-type-info::t @@ -477,7 +477,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97171 + __obj65499 '(continuation) '4 gerbil/core$$#class-type-info::t @@ -485,7 +485,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97171 + __obj65499 '() '3 gerbil/core$$#class-type-info::t @@ -493,7 +493,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97171 + __obj65499 '#f '5 gerbil/core$$#class-type-info::t @@ -501,7 +501,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97171 + __obj65499 '#f '6 gerbil/core$$#class-type-info::t @@ -509,7 +509,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97171 + __obj65499 '#f '7 gerbil/core$$#class-type-info::t @@ -517,94 +517,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97171 + __obj65499 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97407 |[1]#_g97408_|)) + (let ((__tmp65931 |[1]#_g65932_|)) (declare (not safe)) (##unchecked-structure-set! - __obj97171 - __tmp97407 + __obj65499 + __tmp65931 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97409 |[1]#_g97410_|)) + (let ((__tmp65933 |[1]#_g65934_|)) (declare (not safe)) (##unchecked-structure-set! - __obj97171 - __tmp97409 + __obj65499 + __tmp65933 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97411 |[1]#_g97412_|)) + (let ((__tmp65935 |[1]#_g65936_|)) (declare (not safe)) (##unchecked-structure-set! - __obj97171 - __tmp97411 + __obj65499 + __tmp65935 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97413 - (let ((__tmp97414 - (let ((__tmp97415 |[1]#_g97416_|)) + (let ((__tmp65937 + (let ((__tmp65938 + (let ((__tmp65939 |[1]#_g65940_|)) (declare (not safe)) - (cons 'continuation __tmp97415)))) + (cons 'continuation __tmp65939)))) (declare (not safe)) - (cons __tmp97414 '())))) + (cons __tmp65938 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj97171 - __tmp97413 + __obj65499 + __tmp65937 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97417 - (let ((__tmp97418 - (let ((__tmp97419 |[1]#_g97420_|)) + (let ((__tmp65941 + (let ((__tmp65942 + (let ((__tmp65943 |[1]#_g65944_|)) (declare (not safe)) - (cons 'continuation __tmp97419)))) + (cons 'continuation __tmp65943)))) (declare (not safe)) - (cons __tmp97418 '())))) + (cons __tmp65942 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj97171 - __tmp97417 + __obj65499 + __tmp65941 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97421 - (let ((__tmp97422 - (let ((__tmp97423 |[1]#_g97424_|)) + (let ((__tmp65945 + (let ((__tmp65946 + (let ((__tmp65947 |[1]#_g65948_|)) (declare (not safe)) - (cons 'continuation __tmp97423)))) + (cons 'continuation __tmp65947)))) (declare (not safe)) - (cons __tmp97422 '())))) + (cons __tmp65946 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj97171 - __tmp97421 + __obj65499 + __tmp65945 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97425 - (let ((__tmp97426 - (let ((__tmp97427 |[1]#_g97428_|)) + (let ((__tmp65949 + (let ((__tmp65950 + (let ((__tmp65951 |[1]#_g65952_|)) (declare (not safe)) - (cons 'continuation __tmp97427)))) + (cons 'continuation __tmp65951)))) (declare (not safe)) - (cons __tmp97426 '())))) + (cons __tmp65950 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj97171 - __tmp97425 + __obj65499 + __tmp65949 '15 gerbil/core$$#class-type-info::t '#f)) - __obj97171)) + __obj65499)) (define |[:0:]#Error| - (let ((__obj97172 + (let ((__obj65500 (let () (declare (not safe)) (##structure @@ -627,7 +627,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97172 + __obj65500 'gerbil/runtime/error#Error::t '1 gerbil/core$$#class-type-info::t @@ -635,7 +635,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97172 + __obj65500 'Error '2 gerbil/core$$#class-type-info::t @@ -643,30 +643,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97172 + __obj65500 '(message irritants where) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97429 - (let ((__tmp97433 |[1]#_g97434_|) - (__tmp97430 - (let ((__tmp97431 |[1]#_g97432_|)) + (let ((__tmp65953 + (let ((__tmp65957 |[1]#_g65958_|) + (__tmp65954 + (let ((__tmp65955 |[1]#_g65956_|)) (declare (not safe)) - (cons __tmp97431 '())))) + (cons __tmp65955 '())))) (declare (not safe)) - (cons __tmp97433 __tmp97430)))) + (cons __tmp65957 __tmp65954)))) (declare (not safe)) (##unchecked-structure-set! - __obj97172 - __tmp97429 + __obj65500 + __tmp65953 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj97172 + __obj65500 '#f '5 gerbil/core$$#class-type-info::t @@ -674,7 +674,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97172 + __obj65500 '#f '6 gerbil/core$$#class-type-info::t @@ -682,7 +682,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97172 + __obj65500 '#f '7 gerbil/core$$#class-type-info::t @@ -690,178 +690,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97172 + __obj65500 ':init! '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97435 |[1]#_g97436_|)) + (let ((__tmp65959 |[1]#_g65960_|)) (declare (not safe)) (##unchecked-structure-set! - __obj97172 - __tmp97435 + __obj65500 + __tmp65959 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97437 |[1]#_g97438_|)) + (let ((__tmp65961 |[1]#_g65962_|)) (declare (not safe)) (##unchecked-structure-set! - __obj97172 - __tmp97437 + __obj65500 + __tmp65961 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97439 |[1]#_g97440_|)) + (let ((__tmp65963 |[1]#_g65964_|)) (declare (not safe)) (##unchecked-structure-set! - __obj97172 - __tmp97439 + __obj65500 + __tmp65963 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97441 - (let ((__tmp97454 - (let ((__tmp97455 |[1]#_g97456_|)) + (let ((__tmp65965 + (let ((__tmp65978 + (let ((__tmp65979 |[1]#_g65980_|)) (declare (not safe)) - (cons 'message __tmp97455))) - (__tmp97442 - (let ((__tmp97451 - (let ((__tmp97452 |[1]#_g97453_|)) + (cons 'message __tmp65979))) + (__tmp65966 + (let ((__tmp65975 + (let ((__tmp65976 |[1]#_g65977_|)) (declare (not safe)) - (cons 'irritants __tmp97452))) - (__tmp97443 - (let ((__tmp97448 - (let ((__tmp97449 |[1]#_g97450_|)) + (cons 'irritants __tmp65976))) + (__tmp65967 + (let ((__tmp65972 + (let ((__tmp65973 |[1]#_g65974_|)) (declare (not safe)) - (cons 'where __tmp97449))) - (__tmp97444 - (let ((__tmp97445 - (let ((__tmp97446 |[1]#_g97447_|)) + (cons 'where __tmp65973))) + (__tmp65968 + (let ((__tmp65969 + (let ((__tmp65970 |[1]#_g65971_|)) (declare (not safe)) - (cons 'continuation __tmp97446)))) + (cons 'continuation __tmp65970)))) (declare (not safe)) - (cons __tmp97445 '())))) + (cons __tmp65969 '())))) (declare (not safe)) - (cons __tmp97448 __tmp97444)))) + (cons __tmp65972 __tmp65968)))) (declare (not safe)) - (cons __tmp97451 __tmp97443)))) + (cons __tmp65975 __tmp65967)))) (declare (not safe)) - (cons __tmp97454 __tmp97442)))) + (cons __tmp65978 __tmp65966)))) (declare (not safe)) (##unchecked-structure-set! - __obj97172 - __tmp97441 + __obj65500 + __tmp65965 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97457 - (let ((__tmp97470 - (let ((__tmp97471 |[1]#_g97472_|)) + (let ((__tmp65981 + (let ((__tmp65994 + (let ((__tmp65995 |[1]#_g65996_|)) (declare (not safe)) - (cons 'message __tmp97471))) - (__tmp97458 - (let ((__tmp97467 - (let ((__tmp97468 |[1]#_g97469_|)) + (cons 'message __tmp65995))) + (__tmp65982 + (let ((__tmp65991 + (let ((__tmp65992 |[1]#_g65993_|)) (declare (not safe)) - (cons 'irritants __tmp97468))) - (__tmp97459 - (let ((__tmp97464 - (let ((__tmp97465 |[1]#_g97466_|)) + (cons 'irritants __tmp65992))) + (__tmp65983 + (let ((__tmp65988 + (let ((__tmp65989 |[1]#_g65990_|)) (declare (not safe)) - (cons 'where __tmp97465))) - (__tmp97460 - (let ((__tmp97461 - (let ((__tmp97462 |[1]#_g97463_|)) + (cons 'where __tmp65989))) + (__tmp65984 + (let ((__tmp65985 + (let ((__tmp65986 |[1]#_g65987_|)) (declare (not safe)) - (cons 'continuation __tmp97462)))) + (cons 'continuation __tmp65986)))) (declare (not safe)) - (cons __tmp97461 '())))) + (cons __tmp65985 '())))) (declare (not safe)) - (cons __tmp97464 __tmp97460)))) + (cons __tmp65988 __tmp65984)))) (declare (not safe)) - (cons __tmp97467 __tmp97459)))) + (cons __tmp65991 __tmp65983)))) (declare (not safe)) - (cons __tmp97470 __tmp97458)))) + (cons __tmp65994 __tmp65982)))) (declare (not safe)) (##unchecked-structure-set! - __obj97172 - __tmp97457 + __obj65500 + __tmp65981 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97473 - (let ((__tmp97486 - (let ((__tmp97487 |[1]#_g97488_|)) + (let ((__tmp65997 + (let ((__tmp66010 + (let ((__tmp66011 |[1]#_g66012_|)) (declare (not safe)) - (cons 'message __tmp97487))) - (__tmp97474 - (let ((__tmp97483 - (let ((__tmp97484 |[1]#_g97485_|)) + (cons 'message __tmp66011))) + (__tmp65998 + (let ((__tmp66007 + (let ((__tmp66008 |[1]#_g66009_|)) (declare (not safe)) - (cons 'irritants __tmp97484))) - (__tmp97475 - (let ((__tmp97480 - (let ((__tmp97481 |[1]#_g97482_|)) + (cons 'irritants __tmp66008))) + (__tmp65999 + (let ((__tmp66004 + (let ((__tmp66005 |[1]#_g66006_|)) (declare (not safe)) - (cons 'where __tmp97481))) - (__tmp97476 - (let ((__tmp97477 - (let ((__tmp97478 |[1]#_g97479_|)) + (cons 'where __tmp66005))) + (__tmp66000 + (let ((__tmp66001 + (let ((__tmp66002 |[1]#_g66003_|)) (declare (not safe)) - (cons 'continuation __tmp97478)))) + (cons 'continuation __tmp66002)))) (declare (not safe)) - (cons __tmp97477 '())))) + (cons __tmp66001 '())))) (declare (not safe)) - (cons __tmp97480 __tmp97476)))) + (cons __tmp66004 __tmp66000)))) (declare (not safe)) - (cons __tmp97483 __tmp97475)))) + (cons __tmp66007 __tmp65999)))) (declare (not safe)) - (cons __tmp97486 __tmp97474)))) + (cons __tmp66010 __tmp65998)))) (declare (not safe)) (##unchecked-structure-set! - __obj97172 - __tmp97473 + __obj65500 + __tmp65997 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97489 - (let ((__tmp97502 - (let ((__tmp97503 |[1]#_g97504_|)) + (let ((__tmp66013 + (let ((__tmp66026 + (let ((__tmp66027 |[1]#_g66028_|)) (declare (not safe)) - (cons 'message __tmp97503))) - (__tmp97490 - (let ((__tmp97499 - (let ((__tmp97500 |[1]#_g97501_|)) + (cons 'message __tmp66027))) + (__tmp66014 + (let ((__tmp66023 + (let ((__tmp66024 |[1]#_g66025_|)) (declare (not safe)) - (cons 'irritants __tmp97500))) - (__tmp97491 - (let ((__tmp97496 - (let ((__tmp97497 |[1]#_g97498_|)) + (cons 'irritants __tmp66024))) + (__tmp66015 + (let ((__tmp66020 + (let ((__tmp66021 |[1]#_g66022_|)) (declare (not safe)) - (cons 'where __tmp97497))) - (__tmp97492 - (let ((__tmp97493 - (let ((__tmp97494 |[1]#_g97495_|)) + (cons 'where __tmp66021))) + (__tmp66016 + (let ((__tmp66017 + (let ((__tmp66018 |[1]#_g66019_|)) (declare (not safe)) - (cons 'continuation __tmp97494)))) + (cons 'continuation __tmp66018)))) (declare (not safe)) - (cons __tmp97493 '())))) + (cons __tmp66017 '())))) (declare (not safe)) - (cons __tmp97496 __tmp97492)))) + (cons __tmp66020 __tmp66016)))) (declare (not safe)) - (cons __tmp97499 __tmp97491)))) + (cons __tmp66023 __tmp66015)))) (declare (not safe)) - (cons __tmp97502 __tmp97490)))) + (cons __tmp66026 __tmp66014)))) (declare (not safe)) (##unchecked-structure-set! - __obj97172 - __tmp97489 + __obj65500 + __tmp66013 '15 gerbil/core$$#class-type-info::t '#f)) - __obj97172)) + __obj65500)) (define |[:0:]#RuntimeException| - (let ((__obj97173 + (let ((__obj65501 (let () (declare (not safe)) (##structure @@ -884,7 +884,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97173 + __obj65501 'gerbil/runtime/error#RuntimeException::t '1 gerbil/core$$#class-type-info::t @@ -892,7 +892,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97173 + __obj65501 'RuntimeException '2 gerbil/core$$#class-type-info::t @@ -900,30 +900,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97173 + __obj65501 '(exception) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97505 - (let ((__tmp97508 |[1]#_g97434_|) - (__tmp97506 - (let ((__tmp97507 |[1]#_g97432_|)) + (let ((__tmp66029 + (let ((__tmp66032 |[1]#_g65958_|) + (__tmp66030 + (let ((__tmp66031 |[1]#_g65956_|)) (declare (not safe)) - (cons __tmp97507 '())))) + (cons __tmp66031 '())))) (declare (not safe)) - (cons __tmp97508 __tmp97506)))) + (cons __tmp66032 __tmp66030)))) (declare (not safe)) (##unchecked-structure-set! - __obj97173 - __tmp97505 + __obj65501 + __tmp66029 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj97173 + __obj65501 '#f '5 gerbil/core$$#class-type-info::t @@ -931,7 +931,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97173 + __obj65501 '#f '6 gerbil/core$$#class-type-info::t @@ -939,7 +939,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97173 + __obj65501 '#f '7 gerbil/core$$#class-type-info::t @@ -947,971 +947,971 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj97173 + __obj65501 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97509 |[1]#_g97510_|)) + (let ((__tmp66033 |[1]#_g66034_|)) (declare (not safe)) (##unchecked-structure-set! - __obj97173 - __tmp97509 + __obj65501 + __tmp66033 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97511 |[1]#_g97512_|)) + (let ((__tmp66035 |[1]#_g66036_|)) (declare (not safe)) (##unchecked-structure-set! - __obj97173 - __tmp97511 + __obj65501 + __tmp66035 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97513 |[1]#_g97514_|)) + (let ((__tmp66037 |[1]#_g66038_|)) (declare (not safe)) (##unchecked-structure-set! - __obj97173 - __tmp97513 + __obj65501 + __tmp66037 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97515 - (let ((__tmp97520 - (let ((__tmp97521 |[1]#_g97522_|)) + (let ((__tmp66039 + (let ((__tmp66044 + (let ((__tmp66045 |[1]#_g66046_|)) (declare (not safe)) - (cons 'exception __tmp97521))) - (__tmp97516 - (let ((__tmp97517 - (let ((__tmp97518 |[1]#_g97519_|)) + (cons 'exception __tmp66045))) + (__tmp66040 + (let ((__tmp66041 + (let ((__tmp66042 |[1]#_g66043_|)) (declare (not safe)) - (cons 'continuation __tmp97518)))) + (cons 'continuation __tmp66042)))) (declare (not safe)) - (cons __tmp97517 '())))) + (cons __tmp66041 '())))) (declare (not safe)) - (cons __tmp97520 __tmp97516)))) + (cons __tmp66044 __tmp66040)))) (declare (not safe)) (##unchecked-structure-set! - __obj97173 - __tmp97515 + __obj65501 + __tmp66039 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97523 - (let ((__tmp97528 - (let ((__tmp97529 |[1]#_g97530_|)) + (let ((__tmp66047 + (let ((__tmp66052 + (let ((__tmp66053 |[1]#_g66054_|)) (declare (not safe)) - (cons 'exception __tmp97529))) - (__tmp97524 - (let ((__tmp97525 - (let ((__tmp97526 |[1]#_g97527_|)) + (cons 'exception __tmp66053))) + (__tmp66048 + (let ((__tmp66049 + (let ((__tmp66050 |[1]#_g66051_|)) (declare (not safe)) - (cons 'continuation __tmp97526)))) + (cons 'continuation __tmp66050)))) (declare (not safe)) - (cons __tmp97525 '())))) + (cons __tmp66049 '())))) (declare (not safe)) - (cons __tmp97528 __tmp97524)))) + (cons __tmp66052 __tmp66048)))) (declare (not safe)) (##unchecked-structure-set! - __obj97173 - __tmp97523 + __obj65501 + __tmp66047 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97531 - (let ((__tmp97536 - (let ((__tmp97537 |[1]#_g97538_|)) + (let ((__tmp66055 + (let ((__tmp66060 + (let ((__tmp66061 |[1]#_g66062_|)) (declare (not safe)) - (cons 'exception __tmp97537))) - (__tmp97532 - (let ((__tmp97533 - (let ((__tmp97534 |[1]#_g97535_|)) + (cons 'exception __tmp66061))) + (__tmp66056 + (let ((__tmp66057 + (let ((__tmp66058 |[1]#_g66059_|)) (declare (not safe)) - (cons 'continuation __tmp97534)))) + (cons 'continuation __tmp66058)))) (declare (not safe)) - (cons __tmp97533 '())))) + (cons __tmp66057 '())))) (declare (not safe)) - (cons __tmp97536 __tmp97532)))) + (cons __tmp66060 __tmp66056)))) (declare (not safe)) (##unchecked-structure-set! - __obj97173 - __tmp97531 + __obj65501 + __tmp66055 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp97539 - (let ((__tmp97544 - (let ((__tmp97545 |[1]#_g97546_|)) + (let ((__tmp66063 + (let ((__tmp66068 + (let ((__tmp66069 |[1]#_g66070_|)) (declare (not safe)) - (cons 'exception __tmp97545))) - (__tmp97540 - (let ((__tmp97541 - (let ((__tmp97542 |[1]#_g97543_|)) + (cons 'exception __tmp66069))) + (__tmp66064 + (let ((__tmp66065 + (let ((__tmp66066 |[1]#_g66067_|)) (declare (not safe)) - (cons 'continuation __tmp97542)))) + (cons 'continuation __tmp66066)))) (declare (not safe)) - (cons __tmp97541 '())))) + (cons __tmp66065 '())))) (declare (not safe)) - (cons __tmp97544 __tmp97540)))) + (cons __tmp66068 __tmp66064)))) (declare (not safe)) (##unchecked-structure-set! - __obj97173 - __tmp97539 + __obj65501 + __tmp66063 '15 gerbil/core$$#class-type-info::t '#f)) - __obj97173)) + __obj65501)) (define |[:0:]#check-procedure| - (lambda (_$stx90964_) - (let* ((_g9096890986_ - (lambda (_g9096990982_) + (lambda (_$stx63860_) + (let* ((_g6386463882_ + (lambda (_g6386563878_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9096990982_))) - (_g9096791042_ - (lambda (_g9096990990_) - (if (gx#stx-pair? _g9096990990_) - (let ((_e9097490993_ (gx#syntax-e _g9096990990_))) - (let ((_hd9097390997_ + _g6386563878_))) + (_g6386363938_ + (lambda (_g6386563886_) + (if (gx#stx-pair? _g6386563886_) + (let ((_e6387063889_ (gx#syntax-e _g6386563886_))) + (let ((_hd6386963893_ (let () (declare (not safe)) - (##car _e9097490993_))) - (_tl9097291000_ + (##car _e6387063889_))) + (_tl6386863896_ (let () (declare (not safe)) - (##cdr _e9097490993_)))) - (if (gx#stx-pair? _tl9097291000_) - (let ((_e9097791003_ - (gx#syntax-e _tl9097291000_))) - (let ((_hd9097691007_ + (##cdr _e6387063889_)))) + (if (gx#stx-pair? _tl6386863896_) + (let ((_e6387363899_ + (gx#syntax-e _tl6386863896_))) + (let ((_hd6387263903_ (let () (declare (not safe)) - (##car _e9097791003_))) - (_tl9097591010_ + (##car _e6387363899_))) + (_tl6387163906_ (let () (declare (not safe)) - (##cdr _e9097791003_)))) - (if (gx#stx-pair? _tl9097591010_) - (let ((_e9098091013_ - (gx#syntax-e _tl9097591010_))) - (let ((_hd9097991017_ + (##cdr _e6387363899_)))) + (if (gx#stx-pair? _tl6387163906_) + (let ((_e6387663909_ + (gx#syntax-e _tl6387163906_))) + (let ((_hd6387563913_ (let () (declare (not safe)) - (##car _e9098091013_))) - (_tl9097891020_ + (##car _e6387663909_))) + (_tl6387463916_ (let () (declare (not safe)) - (##cdr _e9098091013_)))) - (if (gx#stx-null? _tl9097891020_) - ((lambda (_L91023_ _L91025_) - (let ((__tmp97568 + (##cdr _e6387663909_)))) + (if (gx#stx-null? _tl6387463916_) + ((lambda (_L63919_ _L63921_) + (let ((__tmp66092 (gx#datum->syntax '#f 'unless)) - (__tmp97547 - (let ((__tmp97565 - (let ((__tmp97567 + (__tmp66071 + (let ((__tmp66089 + (let ((__tmp66091 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'procedure?)) - (__tmp97566 + (__tmp66090 (let () (declare (not safe)) - (cons _L91025_ '())))) + (cons _L63921_ '())))) (declare (not safe)) - (cons __tmp97567 __tmp97566))) - (__tmp97548 - (let ((__tmp97549 - (let ((__tmp97564 (gx#datum->syntax '#f 'raise)) - (__tmp97550 - (let ((__tmp97551 - (let ((__tmp97563 + (cons __tmp66091 __tmp66090))) + (__tmp66072 + (let ((__tmp66073 + (let ((__tmp66088 (gx#datum->syntax '#f 'raise)) + (__tmp66074 + (let ((__tmp66075 + (let ((__tmp66087 (gx#datum->syntax '#f 'Error)) - (__tmp97552 - (let ((__tmp97553 - (let ((__tmp97554 + (__tmp66076 + (let ((__tmp66077 + (let ((__tmp66078 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp97560 - (let ((__tmp97562 + (let ((__tmp66084 + (let ((__tmp66086 (gx#datum->syntax '#f 'quote)) - (__tmp97561 + (__tmp66085 (let () (declare (not safe)) - (cons _L91023_ '())))) + (cons _L63919_ '())))) (declare (not safe)) - (cons __tmp97562 __tmp97561))) - (__tmp97555 - (let ((__tmp97556 - (let ((__tmp97557 - (let ((__tmp97559 + (cons __tmp66086 __tmp66085))) + (__tmp66079 + (let ((__tmp66080 + (let ((__tmp66081 + (let ((__tmp66083 (gx#datum->syntax '#f '@list)) - (__tmp97558 + (__tmp66082 (let () (declare (not safe)) - (cons _L91025_ '())))) + (cons _L63921_ '())))) (declare (not safe)) - (cons __tmp97559 __tmp97558)))) + (cons __tmp66083 __tmp66082)))) (declare (not safe)) - (cons __tmp97557 '())))) + (cons __tmp66081 '())))) (declare (not safe)) - (cons 'irritants: __tmp97556)))) + (cons 'irritants: __tmp66080)))) (declare (not safe)) - (cons __tmp97560 __tmp97555)))) + (cons __tmp66084 __tmp66079)))) (declare (not safe)) - (cons 'where: __tmp97554)))) + (cons 'where: __tmp66078)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"expected procedure" - __tmp97553)))) + __tmp66077)))) (declare (not safe)) - (cons __tmp97563 __tmp97552)))) + (cons __tmp66087 __tmp66076)))) (declare (not safe)) - (cons __tmp97551 '())))) + (cons __tmp66075 '())))) (declare (not safe)) - (cons __tmp97564 __tmp97550)))) + (cons __tmp66088 __tmp66074)))) (declare (not safe)) - (cons __tmp97549 '())))) + (cons __tmp66073 '())))) (declare (not safe)) - (cons __tmp97565 __tmp97548)))) + (cons __tmp66089 __tmp66072)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp97568 - __tmp97547))) - _hd9097991017_ - _hd9097691007_) - (_g9096890986_ _g9096990990_)))) - (_g9096890986_ _g9096990990_)))) - (_g9096890986_ _g9096990990_)))) - (_g9096890986_ _g9096990990_))))) - (_g9096791042_ _$stx90964_)))) + (cons __tmp66092 + __tmp66071))) + _hd6387563913_ + _hd6387263903_) + (_g6386463882_ _g6386563886_)))) + (_g6386463882_ _g6386563886_)))) + (_g6386463882_ _g6386563886_)))) + (_g6386463882_ _g6386563886_))))) + (_g6386363938_ _$stx63860_)))) (define |[:0:]#defruntime-exception| - (lambda (_stx91046_) - (let* ((_g9104991076_ - (lambda (_g9105091072_) + (lambda (_stx63942_) + (let* ((_g6394563972_ + (lambda (_g6394663968_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9105091072_))) - (_g9104891311_ - (lambda (_g9105091080_) - (if (gx#stx-pair? _g9105091080_) - (let ((_e9105591083_ (gx#syntax-e _g9105091080_))) - (let ((_hd9105491087_ + _g6394663968_))) + (_g6394464207_ + (lambda (_g6394663976_) + (if (gx#stx-pair? _g6394663976_) + (let ((_e6395163979_ (gx#syntax-e _g6394663976_))) + (let ((_hd6395063983_ (let () (declare (not safe)) - (##car _e9105591083_))) - (_tl9105391090_ + (##car _e6395163979_))) + (_tl6394963986_ (let () (declare (not safe)) - (##cdr _e9105591083_)))) - (if (gx#stx-pair? _tl9105391090_) - (let ((_e9105891093_ - (gx#syntax-e _tl9105391090_))) - (let ((_hd9105791097_ + (##cdr _e6395163979_)))) + (if (gx#stx-pair? _tl6394963986_) + (let ((_e6395463989_ + (gx#syntax-e _tl6394963986_))) + (let ((_hd6395363993_ (let () (declare (not safe)) - (##car _e9105891093_))) - (_tl9105691100_ + (##car _e6395463989_))) + (_tl6395263996_ (let () (declare (not safe)) - (##cdr _e9105891093_)))) - (if (gx#stx-pair? _hd9105791097_) - (let ((_e9106191103_ - (gx#syntax-e _hd9105791097_))) - (let ((_hd9106091107_ + (##cdr _e6395463989_)))) + (if (gx#stx-pair? _hd6395363993_) + (let ((_e6395763999_ + (gx#syntax-e _hd6395363993_))) + (let ((_hd6395664003_ (let () (declare (not safe)) - (##car _e9106191103_))) - (_tl9105991110_ + (##car _e6395763999_))) + (_tl6395564006_ (let () (declare (not safe)) - (##cdr _e9106191103_)))) + (##cdr _e6395763999_)))) (if (gx#stx-pair/null? - _tl9105991110_) - (let ((_g97569_ + _tl6395564006_) + (let ((_g66093_ (gx#syntax-split-splice - _tl9105991110_ + _tl6395564006_ '0))) (begin - (let ((_g97570_ + (let ((_g66094_ (let () (declare (not safe)) (if (##values? - _g97569_) + _g66093_) (##vector-length - _g97569_) + _g66093_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g97570_ 2))) - (error "Context expects 2 values" _g97570_))) + (##fx= _g66094_ 2))) + (error "Context expects 2 values" _g66094_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target9106291113_ + (let ((_target6395864009_ (let () (declare (not safe)) (##vector-ref - _g97569_ + _g66093_ 0))) - (_tl9106491116_ + (_tl6396064012_ (let () (declare (not safe)) (##vector-ref - _g97569_ + _g66093_ 1)))) (if (gx#stx-null? - _tl9106491116_) - (letrec ((_loop9106591119_ + _tl6396064012_) + (letrec ((_loop6396164015_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd9106391123_ _getf9106991126_) - (if (gx#stx-pair? _hd9106391123_) - (let ((_e9106691129_ - (gx#syntax-e _hd9106391123_))) - (let ((_lp-hd9106791133_ + (lambda (_hd6395964019_ _getf6396564022_) + (if (gx#stx-pair? _hd6395964019_) + (let ((_e6396264025_ + (gx#syntax-e _hd6395964019_))) + (let ((_lp-hd6396364029_ (let () (declare (not safe)) - (##car _e9106691129_))) - (_lp-tl9106891136_ + (##car _e6396264025_))) + (_lp-tl6396464032_ (let () (declare (not safe)) - (##cdr _e9106691129_)))) - (_loop9106591119_ - _lp-tl9106891136_ + (##cdr _e6396264025_)))) + (_loop6396164015_ + _lp-tl6396464032_ (let () (declare (not safe)) - (cons _lp-hd9106791133_ - _getf9106991126_))))) - (let ((_getf9107091139_ - (reverse _getf9106991126_))) - (if (gx#stx-null? _tl9105691100_) - ((lambda (_L91143_ _L91145_) - (let* ((_g9116591189_ - (lambda (_g9116691185_) + (cons _lp-hd6396364029_ + _getf6396564022_))))) + (let ((_getf6396664035_ + (reverse _getf6396564022_))) + (if (gx#stx-null? _tl6395263996_) + ((lambda (_L64039_ _L64041_) + (let* ((_g6406164085_ + (lambda (_g6406264081_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9116691185_))) - (_g9116491296_ - (lambda (_g9116691193_) + _g6406264081_))) + (_g6406064192_ + (lambda (_g6406264089_) (if (gx#stx-pair? - _g9116691193_) - (let ((_e9117191196_ + _g6406264089_) + (let ((_e6406764092_ (gx#syntax-e - _g9116691193_))) - (let ((_hd9117091200_ + _g6406264089_))) + (let ((_hd6406664096_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e9117191196_))) - (_tl9116991203_ - (let () (declare (not safe)) (##cdr _e9117191196_)))) - (if (gx#stx-pair? _tl9116991203_) - (let ((_e9117491206_ (gx#syntax-e _tl9116991203_))) - (let ((_hd9117391210_ + (##car _e6406764092_))) + (_tl6406564099_ + (let () (declare (not safe)) (##cdr _e6406764092_)))) + (if (gx#stx-pair? _tl6406564099_) + (let ((_e6407064102_ (gx#syntax-e _tl6406564099_))) + (let ((_hd6406964106_ (let () (declare (not safe)) - (##car _e9117491206_))) - (_tl9117291213_ + (##car _e6407064102_))) + (_tl6406864109_ (let () (declare (not safe)) - (##cdr _e9117491206_)))) - (if (gx#stx-pair/null? _hd9117391210_) - (let ((_g97571_ + (##cdr _e6407064102_)))) + (if (gx#stx-pair/null? _hd6406964106_) + (let ((_g66095_ (gx#syntax-split-splice - _hd9117391210_ + _hd6406964106_ '0))) (begin - (let ((_g97572_ + (let ((_g66096_ (let () (declare (not safe)) - (if (##values? _g97571_) - (##vector-length _g97571_) + (if (##values? _g66095_) + (##vector-length _g66095_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g97572_ 2))) + (##fx= _g66096_ 2))) (error "Context expects 2 values" - _g97572_))) - (let ((_target9117591216_ + _g66096_))) + (let ((_target6407164112_ (let () (declare (not safe)) - (##vector-ref _g97571_ 0))) - (_tl9117791219_ + (##vector-ref _g66095_ 0))) + (_tl6407364115_ (let () (declare (not safe)) - (##vector-ref _g97571_ 1)))) - (if (gx#stx-null? _tl9117791219_) - (letrec ((_loop9117891222_ - (lambda (_hd9117691226_ - _macro-getf9118291229_) + (##vector-ref _g66095_ 1)))) + (if (gx#stx-null? _tl6407364115_) + (letrec ((_loop6407464118_ + (lambda (_hd6407264122_ + _macro-getf6407864125_) (if (gx#stx-pair? - _hd9117691226_) - (let ((_e9117991232_ + _hd6407264122_) + (let ((_e6407564128_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd9117691226_))) - (let ((_lp-hd9118091236_ - (let () (declare (not safe)) (##car _e9117991232_))) - (_lp-tl9118191239_ - (let () (declare (not safe)) (##cdr _e9117991232_)))) - (_loop9117891222_ - _lp-tl9118191239_ + _hd6407264122_))) + (let ((_lp-hd6407664132_ + (let () (declare (not safe)) (##car _e6407564128_))) + (_lp-tl6407764135_ + (let () (declare (not safe)) (##cdr _e6407564128_)))) + (_loop6407464118_ + _lp-tl6407764135_ (let () (declare (not safe)) - (cons _lp-hd9118091236_ _macro-getf9118291229_))))) - (let ((_macro-getf9118391242_ - (reverse _macro-getf9118291229_))) - (if (gx#stx-null? _tl9117291213_) - ((lambda (_L91246_ _L91248_) + (cons _lp-hd6407664132_ _macro-getf6407864125_))))) + (let ((_macro-getf6407964138_ + (reverse _macro-getf6407864125_))) + (if (gx#stx-null? _tl6406864109_) + ((lambda (_L64142_ _L64144_) (let () - (let ((__tmp97696 (gx#datum->syntax '#f 'begin)) - (__tmp97573 - (let ((__tmp97691 - (let ((__tmp97695 + (let ((__tmp66220 (gx#datum->syntax '#f 'begin)) + (__tmp66097 + (let ((__tmp66215 + (let ((__tmp66219 (gx#datum->syntax '#f 'extern)) - (__tmp97692 - (let ((__tmp97693 - (let ((__tmp97694 - (lambda (_g9127391276_ + (__tmp66216 + (let ((__tmp66217 + (let ((__tmp66218 + (lambda (_g6416964172_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g9127491279_) + _g6417064175_) (let () (declare (not safe)) - (cons _g9127391276_ _g9127491279_))))) + (cons _g6416964172_ _g6417064175_))))) (declare (not safe)) - (foldr1 __tmp97694 '() _L91246_)))) + (foldr1 __tmp66218 '() _L64142_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L91248_ - __tmp97693)))) + (cons _L64144_ + __tmp66217)))) (declare (not safe)) - (cons __tmp97695 __tmp97692))) - (__tmp97574 - (let ((__tmp97658 - (let ((__tmp97690 + (cons __tmp66219 __tmp66216))) + (__tmp66098 + (let ((__tmp66182 + (let ((__tmp66214 (gx#datum->syntax '#f 'def)) - (__tmp97659 - (let ((__tmp97687 - (let ((__tmp97688 + (__tmp66183 + (let ((__tmp66211 + (let ((__tmp66212 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp97689 (gx#datum->syntax '#f 'exn))) + (let ((__tmp66213 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp97689 '())))) + (cons __tmp66213 '())))) (declare (not safe)) - (cons _L91145_ __tmp97688))) - (__tmp97660 - (let ((__tmp97661 - (let ((__tmp97686 (gx#datum->syntax '#f 'if)) - (__tmp97662 - (let ((__tmp97682 - (let ((__tmp97685 + (cons _L64041_ __tmp66212))) + (__tmp66184 + (let ((__tmp66185 + (let ((__tmp66210 (gx#datum->syntax '#f 'if)) + (__tmp66186 + (let ((__tmp66206 + (let ((__tmp66209 (gx#datum->syntax '#f 'RuntimeException?)) - (__tmp97683 - (let ((__tmp97684 + (__tmp66207 + (let ((__tmp66208 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp97684 '())))) + (cons __tmp66208 '())))) (declare (not safe)) - (cons __tmp97685 __tmp97683))) - (__tmp97663 - (let ((__tmp97668 - (let ((__tmp97681 + (cons __tmp66209 __tmp66207))) + (__tmp66187 + (let ((__tmp66192 + (let ((__tmp66205 (gx#datum->syntax '#f 'let)) - (__tmp97669 - (let ((__tmp97674 + (__tmp66193 + (let ((__tmp66198 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp97680 (gx#datum->syntax '#f 'e)) - (__tmp97675 - (let ((__tmp97676 - (let ((__tmp97679 + (let ((__tmp66204 (gx#datum->syntax '#f 'e)) + (__tmp66199 + (let ((__tmp66200 + (let ((__tmp66203 (gx#datum->syntax '#f '&RuntimeException-exception)) - (__tmp97677 - (let ((__tmp97678 + (__tmp66201 + (let ((__tmp66202 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp97678 '())))) + (cons __tmp66202 '())))) (declare (not safe)) - (cons __tmp97679 __tmp97677)))) + (cons __tmp66203 __tmp66201)))) (declare (not safe)) - (cons __tmp97676 '())))) + (cons __tmp66200 '())))) (declare (not safe)) - (cons __tmp97680 __tmp97675))) - (__tmp97670 - (let ((__tmp97671 - (let ((__tmp97672 - (let ((__tmp97673 + (cons __tmp66204 __tmp66199))) + (__tmp66194 + (let ((__tmp66195 + (let ((__tmp66196 + (let ((__tmp66197 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp97673 '())))) + (cons __tmp66197 '())))) (declare (not safe)) - (cons _L91248_ __tmp97672)))) + (cons _L64144_ __tmp66196)))) (declare (not safe)) - (cons __tmp97671 '())))) + (cons __tmp66195 '())))) (declare (not safe)) - (cons __tmp97674 __tmp97670)))) + (cons __tmp66198 __tmp66194)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp97681 - __tmp97669))) - (__tmp97664 - (let ((__tmp97665 - (let ((__tmp97666 + (cons __tmp66205 + __tmp66193))) + (__tmp66188 + (let ((__tmp66189 + (let ((__tmp66190 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp97667 (gx#datum->syntax '#f 'exn))) + (let ((__tmp66191 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp97667 '())))) + (cons __tmp66191 '())))) (declare (not safe)) - (cons _L91248_ __tmp97666)))) + (cons _L64144_ __tmp66190)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp97665 '())))) + (cons __tmp66189 '())))) (declare (not safe)) - (cons __tmp97668 __tmp97664)))) + (cons __tmp66192 __tmp66188)))) (declare (not safe)) - (cons __tmp97682 __tmp97663)))) + (cons __tmp66206 __tmp66187)))) (declare (not safe)) - (cons __tmp97686 __tmp97662)))) + (cons __tmp66210 __tmp66186)))) (declare (not safe)) - (cons __tmp97661 '())))) + (cons __tmp66185 '())))) (declare (not safe)) - (cons __tmp97687 __tmp97660)))) + (cons __tmp66211 __tmp66184)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp97690 - __tmp97659))) - (__tmp97575 + (cons __tmp66214 + __tmp66183))) + (__tmp66099 (begin (gx#syntax-check-splice-targets - _L91143_ - _L91246_ - _L91143_ - _L91246_ - _L91143_) - (let ((__tmp97576 - (lambda (_g9126791282_ + _L64039_ + _L64142_ + _L64039_ + _L64142_ + _L64039_) + (let ((__tmp66100 + (lambda (_g6416364178_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g9126891285_ - _g9126991287_ - _g9127091289_ - _g9127191291_ - _g9127291293_) - (let ((__tmp97577 - (let ((__tmp97657 (gx#datum->syntax '#f 'def)) - (__tmp97578 - (let ((__tmp97654 - (let ((__tmp97655 - (let ((__tmp97656 + _g6416464181_ + _g6416564183_ + _g6416664185_ + _g6416764187_ + _g6416864189_) + (let ((__tmp66101 + (let ((__tmp66181 (gx#datum->syntax '#f 'def)) + (__tmp66102 + (let ((__tmp66178 + (let ((__tmp66179 + (let ((__tmp66180 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp97656 '())))) + (cons __tmp66180 '())))) (declare (not safe)) - (cons _g9126791282_ __tmp97655))) - (__tmp97579 - (let ((__tmp97580 - (let ((__tmp97653 + (cons _g6416364178_ __tmp66179))) + (__tmp66103 + (let ((__tmp66104 + (let ((__tmp66177 (gx#datum->syntax '#f 'if)) - (__tmp97581 - (let ((__tmp97649 - (let ((__tmp97652 + (__tmp66105 + (let ((__tmp66173 + (let ((__tmp66176 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'RuntimeException?)) - (__tmp97650 - (let ((__tmp97651 (gx#datum->syntax '#f 'exn))) + (__tmp66174 + (let ((__tmp66175 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp97651 '())))) + (cons __tmp66175 '())))) (declare (not safe)) - (cons __tmp97652 __tmp97650))) - (__tmp97582 - (let ((__tmp97611 - (let ((__tmp97648 (gx#datum->syntax '#f 'let)) - (__tmp97612 - (let ((__tmp97641 - (let ((__tmp97647 + (cons __tmp66176 __tmp66174))) + (__tmp66106 + (let ((__tmp66135 + (let ((__tmp66172 (gx#datum->syntax '#f 'let)) + (__tmp66136 + (let ((__tmp66165 + (let ((__tmp66171 (gx#datum->syntax '#f 'e)) - (__tmp97642 - (let ((__tmp97643 - (let ((__tmp97646 + (__tmp66166 + (let ((__tmp66167 + (let ((__tmp66170 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '&RuntimeException-exception)) - (__tmp97644 - (let ((__tmp97645 (gx#datum->syntax '#f 'exn))) + (__tmp66168 + (let ((__tmp66169 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp97645 '())))) + (cons __tmp66169 '())))) (declare (not safe)) - (cons __tmp97646 __tmp97644)))) + (cons __tmp66170 __tmp66168)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp97643 '())))) + (cons __tmp66167 '())))) (declare (not safe)) - (cons __tmp97647 __tmp97642))) - (__tmp97613 - (let ((__tmp97614 - (let ((__tmp97640 + (cons __tmp66171 __tmp66166))) + (__tmp66137 + (let ((__tmp66138 + (let ((__tmp66164 (gx#datum->syntax '#f 'if)) - (__tmp97615 - (let ((__tmp97637 - (let ((__tmp97638 + (__tmp66139 + (let ((__tmp66161 + (let ((__tmp66162 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp97639 (gx#datum->syntax '#f 'e))) + (let ((__tmp66163 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp97639 '())))) + (cons __tmp66163 '())))) (declare (not safe)) - (cons _L91248_ __tmp97638))) - (__tmp97616 - (let ((__tmp97634 - (let ((__tmp97635 - (let ((__tmp97636 + (cons _L64144_ __tmp66162))) + (__tmp66140 + (let ((__tmp66158 + (let ((__tmp66159 + (let ((__tmp66160 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp97636 '())))) + (cons __tmp66160 '())))) (declare (not safe)) - (cons _g9126891285_ __tmp97635))) - (__tmp97617 - (let ((__tmp97618 - (let ((__tmp97633 + (cons _g6416464181_ __tmp66159))) + (__tmp66141 + (let ((__tmp66142 + (let ((__tmp66157 (gx#datum->syntax '#f 'error)) - (__tmp97619 - (let ((__tmp97620 - (let ((__tmp97630 - (let ((__tmp97632 + (__tmp66143 + (let ((__tmp66144 + (let ((__tmp66154 + (let ((__tmp66156 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp97631 - (let () (declare (not safe)) (cons _L91145_ '())))) + (__tmp66155 + (let () (declare (not safe)) (cons _L64041_ '())))) (declare (not safe)) - (cons __tmp97632 __tmp97631))) - (__tmp97621 - (let ((__tmp97622 - (let ((__tmp97629 (gx#datum->syntax '#f '@list)) - (__tmp97623 - (let ((__tmp97626 - (let ((__tmp97628 + (cons __tmp66156 __tmp66155))) + (__tmp66145 + (let ((__tmp66146 + (let ((__tmp66153 (gx#datum->syntax '#f '@list)) + (__tmp66147 + (let ((__tmp66150 + (let ((__tmp66152 (gx#datum->syntax '#f 'quote)) - (__tmp97627 + (__tmp66151 (let () (declare (not safe)) - (cons _g9126791282_ '())))) + (cons _g6416364178_ '())))) (declare (not safe)) - (cons __tmp97628 __tmp97627))) - (__tmp97624 - (let ((__tmp97625 + (cons __tmp66152 __tmp66151))) + (__tmp66148 + (let ((__tmp66149 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp97625 '())))) + (cons __tmp66149 '())))) (declare (not safe)) - (cons __tmp97626 __tmp97624)))) + (cons __tmp66150 __tmp66148)))) (declare (not safe)) - (cons __tmp97629 __tmp97623)))) + (cons __tmp66153 __tmp66147)))) (declare (not safe)) - (cons __tmp97622 '())))) + (cons __tmp66146 '())))) (declare (not safe)) - (cons __tmp97630 __tmp97621)))) + (cons __tmp66154 __tmp66145)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"not an instance" - __tmp97620)))) + __tmp66144)))) (declare (not safe)) - (cons __tmp97633 __tmp97619)))) + (cons __tmp66157 __tmp66143)))) (declare (not safe)) - (cons __tmp97618 '())))) + (cons __tmp66142 '())))) (declare (not safe)) - (cons __tmp97634 __tmp97617)))) + (cons __tmp66158 __tmp66141)))) (declare (not safe)) - (cons __tmp97637 __tmp97616)))) + (cons __tmp66161 __tmp66140)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp97640 - __tmp97615)))) + (cons __tmp66164 + __tmp66139)))) (declare (not safe)) - (cons __tmp97614 '())))) + (cons __tmp66138 '())))) (declare (not safe)) - (cons __tmp97641 __tmp97613)))) + (cons __tmp66165 __tmp66137)))) (declare (not safe)) - (cons __tmp97648 __tmp97612))) - (__tmp97583 - (let ((__tmp97584 - (let ((__tmp97610 + (cons __tmp66172 __tmp66136))) + (__tmp66107 + (let ((__tmp66108 + (let ((__tmp66134 (gx#datum->syntax '#f 'if)) - (__tmp97585 - (let ((__tmp97607 - (let ((__tmp97608 - (let ((__tmp97609 + (__tmp66109 + (let ((__tmp66131 + (let ((__tmp66132 + (let ((__tmp66133 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'exn))) (declare (not safe)) - (cons __tmp97609 '())))) + (cons __tmp66133 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L91248_ - __tmp97608))) - (__tmp97586 - (let ((__tmp97604 - (let ((__tmp97605 - (let ((__tmp97606 + (cons _L64144_ + __tmp66132))) + (__tmp66110 + (let ((__tmp66128 + (let ((__tmp66129 + (let ((__tmp66130 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp97606 '())))) + (cons __tmp66130 '())))) (declare (not safe)) - (cons _g9126891285_ __tmp97605))) - (__tmp97587 - (let ((__tmp97588 - (let ((__tmp97603 (gx#datum->syntax '#f 'error)) - (__tmp97589 - (let ((__tmp97590 - (let ((__tmp97600 - (let ((__tmp97602 + (cons _g6416464181_ __tmp66129))) + (__tmp66111 + (let ((__tmp66112 + (let ((__tmp66127 (gx#datum->syntax '#f 'error)) + (__tmp66113 + (let ((__tmp66114 + (let ((__tmp66124 + (let ((__tmp66126 (gx#datum->syntax '#f 'quote)) - (__tmp97601 + (__tmp66125 (let () (declare (not safe)) - (cons _L91145_ '())))) + (cons _L64041_ '())))) (declare (not safe)) - (cons __tmp97602 __tmp97601))) - (__tmp97591 - (let ((__tmp97592 - (let ((__tmp97599 + (cons __tmp66126 __tmp66125))) + (__tmp66115 + (let ((__tmp66116 + (let ((__tmp66123 (gx#datum->syntax '#f '@list)) - (__tmp97593 - (let ((__tmp97596 + (__tmp66117 + (let ((__tmp66120 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp97598 (gx#datum->syntax '#f 'quote)) - (__tmp97597 + (let ((__tmp66122 (gx#datum->syntax '#f 'quote)) + (__tmp66121 (let () (declare (not safe)) - (cons _g9126791282_ '())))) + (cons _g6416364178_ '())))) (declare (not safe)) - (cons __tmp97598 __tmp97597))) - (__tmp97594 - (let ((__tmp97595 (gx#datum->syntax '#f 'exn))) + (cons __tmp66122 __tmp66121))) + (__tmp66118 + (let ((__tmp66119 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp97595 '())))) + (cons __tmp66119 '())))) (declare (not safe)) - (cons __tmp97596 __tmp97594)))) + (cons __tmp66120 __tmp66118)))) (declare (not safe)) - (cons __tmp97599 __tmp97593)))) + (cons __tmp66123 __tmp66117)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp97592 '())))) + (cons __tmp66116 '())))) (declare (not safe)) - (cons __tmp97600 __tmp97591)))) + (cons __tmp66124 __tmp66115)))) (declare (not safe)) - (cons '"not an instance" __tmp97590)))) + (cons '"not an instance" __tmp66114)))) (declare (not safe)) - (cons __tmp97603 __tmp97589)))) + (cons __tmp66127 __tmp66113)))) (declare (not safe)) - (cons __tmp97588 '())))) + (cons __tmp66112 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp97604 - __tmp97587)))) + (cons __tmp66128 + __tmp66111)))) (declare (not safe)) - (cons __tmp97607 __tmp97586)))) + (cons __tmp66131 __tmp66110)))) (declare (not safe)) - (cons __tmp97610 __tmp97585)))) + (cons __tmp66134 __tmp66109)))) (declare (not safe)) - (cons __tmp97584 '())))) + (cons __tmp66108 '())))) (declare (not safe)) - (cons __tmp97611 __tmp97583)))) + (cons __tmp66135 __tmp66107)))) (declare (not safe)) - (cons __tmp97649 __tmp97582)))) + (cons __tmp66173 __tmp66106)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp97653 - __tmp97581)))) + (cons __tmp66177 + __tmp66105)))) (declare (not safe)) - (cons __tmp97580 '())))) + (cons __tmp66104 '())))) (declare (not safe)) - (cons __tmp97654 __tmp97579)))) + (cons __tmp66178 __tmp66103)))) (declare (not safe)) - (cons __tmp97657 __tmp97578)))) + (cons __tmp66181 __tmp66102)))) (declare (not safe)) - (cons __tmp97577 _g9127291293_))))) + (cons __tmp66101 _g6416864189_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr* __tmp97576 + (foldr* __tmp66100 '() - _L91143_ - _L91246_ - _L91143_ - _L91246_ - _L91143_))))) + _L64039_ + _L64142_ + _L64039_ + _L64142_ + _L64039_))))) (declare (not safe)) - (cons __tmp97658 __tmp97575)))) + (cons __tmp66182 __tmp66099)))) (declare (not safe)) - (cons __tmp97691 __tmp97574)))) + (cons __tmp66215 __tmp66098)))) (declare (not safe)) - (cons __tmp97696 __tmp97573)))) - _macro-getf9118391242_ - _hd9117091200_) - (_g9116591189_ _g9116691193_))))))) + (cons __tmp66220 __tmp66097)))) + _macro-getf6407964138_ + _hd6406664096_) + (_g6406164085_ _g6406264089_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop9117891222_ - _target9117591216_ + (_loop6407464118_ + _target6407164112_ '())) - (_g9116591189_ _g9116691193_))))) - (_g9116591189_ _g9116691193_)))) - (_g9116591189_ _g9116691193_)))) - (_g9116591189_ _g9116691193_))))) + (_g6406164085_ _g6406264089_))))) + (_g6406164085_ _g6406264089_)))) + (_g6406164085_ _g6406264089_)))) + (_g6406164085_ _g6406264089_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g9116491296_ + (_g6406064192_ (list (gx#stx-identifier - _L91145_ + _L64041_ '"macro-" - _L91145_) - (map (lambda (_f91300_) + _L64041_) + (map (lambda (_f64196_) (gx#stx-identifier - _f91300_ + _f64196_ '"macro-" - _f91300_)) - (let ((__tmp97697 - (lambda (_g9130291305_ + _f64196_)) + (let ((__tmp66221 + (lambda (_g6419864201_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g9130391308_) + _g6419964204_) (let () (declare (not safe)) - (cons _g9130291305_ _g9130391308_))))) + (cons _g6419864201_ _g6419964204_))))) (declare (not safe)) - (foldr1 __tmp97697 '() _L91143_))))))) + (foldr1 __tmp66221 '() _L64039_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _getf9107091139_ - _hd9106091107_) - (_g9104991076_ _g9105091080_))))))) - (_loop9106591119_ _target9106291113_ '())) - (_g9104991076_ _g9105091080_))))) + _getf6396664035_ + _hd6395664003_) + (_g6394563972_ _g6394663976_))))))) + (_loop6396164015_ _target6395864009_ '())) + (_g6394563972_ _g6394663976_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g9104991076_ _g9105091080_)))) - (_g9104991076_ _g9105091080_)))) - (_g9104991076_ _g9105091080_)))) - (_g9104991076_ _g9105091080_))))) - (_g9104891311_ _stx91046_)))) + (_g6394563972_ _g6394663976_)))) + (_g6394563972_ _g6394663976_)))) + (_g6394563972_ _g6394663976_)))) + (_g6394563972_ _g6394663976_))))) + (_g6394464207_ _stx63942_)))) (define |[:0:]#defruntime-exceptions| - (lambda (_$stx91317_) - (let* ((_g9132191341_ - (lambda (_g9132291337_) + (lambda (_$stx64213_) + (let* ((_g6421764237_ + (lambda (_g6421864233_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9132291337_))) - (_g9132091412_ - (lambda (_g9132291345_) - (if (gx#stx-pair? _g9132291345_) - (let ((_e9132691348_ (gx#syntax-e _g9132291345_))) - (let ((_hd9132591352_ + _g6421864233_))) + (_g6421664308_ + (lambda (_g6421864241_) + (if (gx#stx-pair? _g6421864241_) + (let ((_e6422264244_ (gx#syntax-e _g6421864241_))) + (let ((_hd6422164248_ (let () (declare (not safe)) - (##car _e9132691348_))) - (_tl9132491355_ + (##car _e6422264244_))) + (_tl6422064251_ (let () (declare (not safe)) - (##cdr _e9132691348_)))) - (if (gx#stx-pair/null? _tl9132491355_) - (let ((_g97698_ + (##cdr _e6422264244_)))) + (if (gx#stx-pair/null? _tl6422064251_) + (let ((_g66222_ (gx#syntax-split-splice - _tl9132491355_ + _tl6422064251_ '0))) (begin - (let ((_g97699_ + (let ((_g66223_ (let () (declare (not safe)) - (if (##values? _g97698_) - (##vector-length _g97698_) + (if (##values? _g66222_) + (##vector-length _g66222_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g97699_ 2))) + (##fx= _g66223_ 2))) (error "Context expects 2 values" - _g97699_))) - (let ((_target9132791358_ + _g66223_))) + (let ((_target6422364254_ (let () (declare (not safe)) - (##vector-ref _g97698_ 0))) - (_tl9132991361_ + (##vector-ref _g66222_ 0))) + (_tl6422564257_ (let () (declare (not safe)) - (##vector-ref _g97698_ 1)))) - (if (gx#stx-null? _tl9132991361_) - (letrec ((_loop9133091364_ - (lambda (_hd9132891368_ - _defexn9133491371_) + (##vector-ref _g66222_ 1)))) + (if (gx#stx-null? _tl6422564257_) + (letrec ((_loop6422664260_ + (lambda (_hd6422464264_ + _defexn6423064267_) (if (gx#stx-pair? - _hd9132891368_) - (let ((_e9133191374_ + _hd6422464264_) + (let ((_e6422764270_ (gx#syntax-e - _hd9132891368_))) - (let ((_lp-hd9133291378_ + _hd6422464264_))) + (let ((_lp-hd6422864274_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e9133191374_))) - (_lp-tl9133391381_ - (let () (declare (not safe)) (##cdr _e9133191374_)))) - (_loop9133091364_ - _lp-tl9133391381_ + (let () (declare (not safe)) (##car _e6422764270_))) + (_lp-tl6422964277_ + (let () (declare (not safe)) (##cdr _e6422764270_)))) + (_loop6422664260_ + _lp-tl6422964277_ (let () (declare (not safe)) - (cons _lp-hd9133291378_ _defexn9133491371_))))) - (let ((_defexn9133591384_ (reverse _defexn9133491371_))) - ((lambda (_L91388_) - (let ((__tmp97705 (gx#datum->syntax '#f 'begin)) - (__tmp97700 - (let ((__tmp97701 - (lambda (_g9140391406_ _g9140491409_) - (let ((__tmp97702 - (let ((__tmp97704 + (cons _lp-hd6422864274_ _defexn6423064267_))))) + (let ((_defexn6423164280_ (reverse _defexn6423064267_))) + ((lambda (_L64284_) + (let ((__tmp66229 (gx#datum->syntax '#f 'begin)) + (__tmp66224 + (let ((__tmp66225 + (lambda (_g6429964302_ _g6430064305_) + (let ((__tmp66226 + (let ((__tmp66228 (gx#datum->syntax '#f 'defruntime-exception)) - (__tmp97703 + (__tmp66227 (let () (declare (not safe)) - (cons _g9140391406_ + (cons _g6429964302_ '())))) (declare (not safe)) - (cons __tmp97704 __tmp97703)))) + (cons __tmp66228 __tmp66227)))) (declare (not safe)) - (cons __tmp97702 _g9140491409_))))) + (cons __tmp66226 _g6430064305_))))) (declare (not safe)) - (foldr1 __tmp97701 '() _L91388_)))) + (foldr1 __tmp66225 '() _L64284_)))) (declare (not safe)) - (cons __tmp97705 __tmp97700))) - _defexn9133591384_)))))) + (cons __tmp66229 __tmp66224))) + _defexn6423164280_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop9133091364_ - _target9132791358_ + (_loop6422664260_ + _target6422364254_ '())) - (_g9132191341_ _g9132291345_))))) - (_g9132191341_ _g9132291345_)))) - (_g9132191341_ _g9132291345_))))) - (_g9132091412_ _$stx91317_)))))) + (_g6421764237_ _g6421864241_))))) + (_g6421764237_ _g6421864241_)))) + (_g6421764237_ _g6421864241_))))) + (_g6421664308_ _$stx64213_)))))) diff --git a/src/bootstrap/gerbil/runtime/eval.ssi b/src/bootstrap/gerbil/runtime/eval.ssi index 1591a7d5d..2571b6f12 100644 --- a/src/bootstrap/gerbil/runtime/eval.ssi +++ b/src/bootstrap/gerbil/runtime/eval.ssi @@ -8,38 +8,8 @@ namespace: #f :gerbil/runtime/util :gerbil/runtime/mop :gerbil/runtime/error + :gerbil/runtime/hash :gerbil/runtime/syntax) - (%#define-runtime __context::t __context::t) - (%#define-runtime __context? __context?) - (%#define-runtime make-__context make-__context) - (%#define-runtime __context-t __context-t) - (%#define-runtime __context-ns __context-ns) - (%#define-runtime __context-super __context-super) - (%#define-runtime __context-table __context-table) - (%#define-runtime __context-t-set! __context-t-set!) - (%#define-runtime __context-ns-set! __context-ns-set!) - (%#define-runtime __context-super-set! __context-super-set!) - (%#define-runtime __context-table-set! __context-table-set!) - (%#define-runtime &__context-t &__context-t) - (%#define-runtime &__context-ns &__context-ns) - (%#define-runtime &__context-super &__context-super) - (%#define-runtime &__context-table &__context-table) - (%#define-runtime &__context-t-set! &__context-t-set!) - (%#define-runtime &__context-ns-set! &__context-ns-set!) - (%#define-runtime &__context-super-set! &__context-super-set!) - (%#define-runtime &__context-table-set! &__context-table-set!) - (%#begin (%#begin-syntax - (%#call (%#ref load-module) - (%#quote "gerbil/runtime/eval__1"))) - (%#define-syntax __context |[:0:]#__context|)) - (%#define-runtime __runtime::t __runtime::t) - (%#define-runtime __runtime? __runtime?) - (%#define-runtime make-__runtime make-__runtime) - (%#define-runtime __runtime-id __runtime-id) - (%#define-runtime __runtime-id-set! __runtime-id-set!) - (%#define-runtime &__runtime-id &__runtime-id) - (%#define-runtime &__runtime-id-set! &__runtime-id-set!) - (%#define-syntax __runtime |[:0:]#__runtime|) (%#define-runtime __syntax::t __syntax::t) (%#define-runtime __syntax? __syntax?) (%#define-runtime make-__syntax make-__syntax) @@ -51,31 +21,10 @@ namespace: #f (%#define-runtime &__syntax-id &__syntax-id) (%#define-runtime &__syntax-e-set! &__syntax-e-set!) (%#define-runtime &__syntax-id-set! &__syntax-id-set!) - (%#define-syntax __syntax |[:0:]#__syntax|) - (%#define-runtime __macro::t __macro::t) - (%#define-runtime __macro? __macro?) - (%#define-runtime make-__macro make-__macro) - (%#define-runtime __macro-e __macro-e) - (%#define-runtime __macro-id __macro-id) - (%#define-runtime __macro-e-set! __macro-e-set!) - (%#define-runtime __macro-id-set! __macro-id-set!) - (%#define-runtime &__macro-e &__macro-e) - (%#define-runtime &__macro-id &__macro-id) - (%#define-runtime &__macro-e-set! &__macro-e-set!) - (%#define-runtime &__macro-id-set! &__macro-id-set!) - (%#define-syntax __macro |[:0:]#__macro|) - (%#define-runtime __special-form::t __special-form::t) - (%#define-runtime __special-form? __special-form?) - (%#define-runtime make-__special-form make-__special-form) - (%#define-runtime __special-form-e __special-form-e) - (%#define-runtime __special-form-id __special-form-id) - (%#define-runtime __special-form-e-set! __special-form-e-set!) - (%#define-runtime __special-form-id-set! __special-form-id-set!) - (%#define-runtime &__special-form-e &__special-form-e) - (%#define-runtime &__special-form-id &__special-form-id) - (%#define-runtime &__special-form-e-set! &__special-form-e-set!) - (%#define-runtime &__special-form-id-set! &__special-form-id-set!) - (%#define-syntax __special-form |[:0:]#__special-form|) + (%#begin (%#begin-syntax + (%#call (%#ref load-module) + (%#quote "gerbil/runtime/eval__1"))) + (%#define-syntax __syntax |[:0:]#__syntax|)) (%#define-runtime __core-form::t __core-form::t) (%#define-runtime __core-form? __core-form?) (%#define-runtime make-__core-form make-__core-form) @@ -122,77 +71,11 @@ namespace: #f &__core-special-form-id-set! &__core-special-form-id-set!) (%#define-syntax __core-special-form |[:0:]#__core-special-form|) - (%#define-runtime __struct-info::t __struct-info::t) - (%#define-runtime __struct-info? __struct-info?) - (%#define-runtime make-__struct-info make-__struct-info) - (%#define-runtime __struct-info-e __struct-info-e) - (%#define-runtime __struct-info-id __struct-info-id) - (%#define-runtime __struct-info-e-set! __struct-info-e-set!) - (%#define-runtime __struct-info-id-set! __struct-info-id-set!) - (%#define-runtime &__struct-info-e &__struct-info-e) - (%#define-runtime &__struct-info-id &__struct-info-id) - (%#define-runtime &__struct-info-e-set! &__struct-info-e-set!) - (%#define-runtime &__struct-info-id-set! &__struct-info-id-set!) - (%#define-syntax __struct-info |[:0:]#__struct-info|) - (%#define-runtime __feature::t __feature::t) - (%#define-runtime __feature? __feature?) - (%#define-runtime make-__feature make-__feature) - (%#define-runtime __feature-e __feature-e) - (%#define-runtime __feature-id __feature-id) - (%#define-runtime __feature-e-set! __feature-e-set!) - (%#define-runtime __feature-id-set! __feature-id-set!) - (%#define-runtime &__feature-e &__feature-e) - (%#define-runtime &__feature-id &__feature-id) - (%#define-runtime &__feature-e-set! &__feature-e-set!) - (%#define-runtime &__feature-id-set! &__feature-id-set!) - (%#define-syntax __feature |[:0:]#__feature|) - (%#define-runtime __module::t __module::t) - (%#define-runtime __module? __module?) - (%#define-runtime make-__module make-__module) - (%#define-runtime __module-id __module-id) - (%#define-runtime __module-path __module-path) - (%#define-runtime __module-import __module-import) - (%#define-runtime __module-export __module-export) - (%#define-runtime __module-t __module-t) - (%#define-runtime __module-ns __module-ns) - (%#define-runtime __module-super __module-super) - (%#define-runtime __module-table __module-table) - (%#define-runtime __module-id-set! __module-id-set!) - (%#define-runtime __module-path-set! __module-path-set!) - (%#define-runtime __module-import-set! __module-import-set!) - (%#define-runtime __module-export-set! __module-export-set!) - (%#define-runtime __module-t-set! __module-t-set!) - (%#define-runtime __module-ns-set! __module-ns-set!) - (%#define-runtime __module-super-set! __module-super-set!) - (%#define-runtime __module-table-set! __module-table-set!) - (%#define-runtime &__module-id &__module-id) - (%#define-runtime &__module-path &__module-path) - (%#define-runtime &__module-import &__module-import) - (%#define-runtime &__module-export &__module-export) - (%#define-runtime &__module-t &__module-t) - (%#define-runtime &__module-ns &__module-ns) - (%#define-runtime &__module-super &__module-super) - (%#define-runtime &__module-table &__module-table) - (%#define-runtime &__module-id-set! &__module-id-set!) - (%#define-runtime &__module-path-set! &__module-path-set!) - (%#define-runtime &__module-import-set! &__module-import-set!) - (%#define-runtime &__module-export-set! &__module-export-set!) - (%#define-runtime &__module-t-set! &__module-t-set!) - (%#define-runtime &__module-ns-set! &__module-ns-set!) - (%#define-runtime &__module-super-set! &__module-super-set!) - (%#define-runtime &__module-table-set! &__module-table-set!) - (%#define-syntax __module |[:0:]#__module|) - (%#define-runtime __*modules* __*modules*) - (%#define-runtime __*core* __*core*) - (%#define-runtime __*top* __*top*) + (%#define-runtime __core __core) (%#define-runtime __current-expander __current-expander) (%#define-runtime __current-compiler __current-compiler) (%#define-runtime __current-path __current-path) - (%#begin (%#define-runtime __core-resolve__% __core-resolve__%) - (%#begin (%#define-runtime - __core-resolve__0 - __core-resolve__0) - (%#define-runtime __core-resolve __core-resolve))) + (%#define-runtime __core-resolve __core-resolve) (%#begin (%#define-runtime __core-bound-id?__% __core-bound-id?__%) (%#begin (%#define-runtime __core-bound-id?__0 @@ -200,15 +83,6 @@ namespace: #f (%#define-runtime __core-bound-id? __core-bound-id?))) - (%#begin (%#define-runtime - __core-bind-runtime!__% - __core-bind-runtime!__%) - (%#begin (%#define-runtime - __core-bind-runtime!__0 - __core-bind-runtime!__0) - (%#define-runtime - __core-bind-runtime! - __core-bind-runtime!))) (%#begin (%#define-runtime __core-bind-syntax!__% __core-bind-syntax!__%) @@ -218,42 +92,6 @@ namespace: #f (%#define-runtime __core-bind-syntax! __core-bind-syntax!))) - (%#define-runtime __core-bind-macro! __core-bind-macro!) - (%#define-runtime __core-bind-special-form! __core-bind-special-form!) - (%#begin (%#define-runtime - __core-bind-user-syntax!__% - __core-bind-user-syntax!__%) - (%#begin (%#define-runtime - __core-bind-user-syntax!__0 - __core-bind-user-syntax!__0) - (%#define-runtime - __core-bind-user-syntax! - __core-bind-user-syntax!))) - (%#begin (%#define-runtime make-__runtime-id__% make-__runtime-id__%) - (%#begin (%#define-runtime - make-__runtime-id__0 - make-__runtime-id__0) - (%#define-runtime - make-__runtime-id - make-__runtime-id))) - (%#begin (%#define-runtime - make-__context-local__% - make-__context-local__%) - (%#begin (%#define-runtime - make-__context-local__0 - make-__context-local__0) - (%#define-runtime - make-__context-local - make-__context-local))) - (%#begin (%#define-runtime - make-__context-module__% - make-__context-module__%) - (%#begin (%#define-runtime - make-__context-module__0 - make-__context-module__0) - (%#define-runtime - make-__context-module - make-__context-module))) (%#begin (%#define-runtime __SRC__% __SRC__%) (%#begin (%#define-runtime __SRC__0 __SRC__0) (%#define-runtime __SRC __SRC))) diff --git a/src/bootstrap/gerbil/runtime/eval.ssxi.ss b/src/bootstrap/gerbil/runtime/eval.ssxi.ss index 6de4528d4..6b9bcfeca 100644 --- a/src/bootstrap/gerbil/runtime/eval.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/eval.ssxi.ss @@ -2,45 +2,6 @@ prelude: :gerbil/compiler/ssxi package: gerbil/runtime (begin - (declare-type - __context::t - (@class gerbil/runtime/eval#__context::t - () - () - (t ns super table) - (t ns super table) - #f - #t - #f - #f - #f)) - (declare-type __context? (@predicate __context::t)) - (declare-type make-__context (@constructor __context::t)) - (declare-type __context-t (@accessor __context::t t #t)) - (declare-type __context-ns (@accessor __context::t ns #t)) - (declare-type __context-super (@accessor __context::t super #t)) - (declare-type __context-table (@accessor __context::t table #t)) - (declare-type __context-t-set! (@mutator __context::t t #t)) - (declare-type __context-ns-set! (@mutator __context::t ns #t)) - (declare-type __context-super-set! (@mutator __context::t super #t)) - (declare-type __context-table-set! (@mutator __context::t table #t)) - (declare-type &__context-t (@accessor __context::t t #f)) - (declare-type &__context-ns (@accessor __context::t ns #f)) - (declare-type &__context-super (@accessor __context::t super #f)) - (declare-type &__context-table (@accessor __context::t table #f)) - (declare-type &__context-t-set! (@mutator __context::t t #f)) - (declare-type &__context-ns-set! (@mutator __context::t ns #f)) - (declare-type &__context-super-set! (@mutator __context::t super #f)) - (declare-type &__context-table-set! (@mutator __context::t table #f)) - (declare-type - __runtime::t - (@class gerbil/runtime/eval#__runtime::t () () (id) (id) #f #t #f #f #f)) - (declare-type __runtime? (@predicate __runtime::t)) - (declare-type make-__runtime (@constructor __runtime::t)) - (declare-type __runtime-id (@accessor __runtime::t id #t)) - (declare-type __runtime-id-set! (@mutator __runtime::t id #t)) - (declare-type &__runtime-id (@accessor __runtime::t id #f)) - (declare-type &__runtime-id-set! (@mutator __runtime::t id #f)) (declare-type __syntax::t (@class gerbil/runtime/eval#__syntax::t () () (e id) (e id) #f #t #f #f #f)) @@ -54,50 +15,6 @@ package: gerbil/runtime (declare-type &__syntax-id (@accessor __syntax::t id #f)) (declare-type &__syntax-e-set! (@mutator __syntax::t e #f)) (declare-type &__syntax-id-set! (@mutator __syntax::t id #f)) - (declare-type - __macro::t - (@class gerbil/runtime/eval#__macro::t - (__syntax::t) - (__syntax::t) - () - (e id) - #f - #t - #f - #f - #f)) - (declare-type __macro? (@predicate __macro::t)) - (declare-type make-__macro (@constructor __macro::t)) - (declare-type __macro-e (@accessor __macro::t e #t)) - (declare-type __macro-id (@accessor __macro::t id #t)) - (declare-type __macro-e-set! (@mutator __macro::t e #t)) - (declare-type __macro-id-set! (@mutator __macro::t id #t)) - (declare-type &__macro-e (@accessor __macro::t e #f)) - (declare-type &__macro-id (@accessor __macro::t id #f)) - (declare-type &__macro-e-set! (@mutator __macro::t e #f)) - (declare-type &__macro-id-set! (@mutator __macro::t id #f)) - (declare-type - __special-form::t - (@class gerbil/runtime/eval#__special-form::t - (__macro::t) - (__macro::t __syntax::t) - () - (e id) - #f - #t - #f - #f - #f)) - (declare-type __special-form? (@predicate __special-form::t)) - (declare-type make-__special-form (@constructor __special-form::t)) - (declare-type __special-form-e (@accessor __special-form::t e #t)) - (declare-type __special-form-id (@accessor __special-form::t id #t)) - (declare-type __special-form-e-set! (@mutator __special-form::t e #t)) - (declare-type __special-form-id-set! (@mutator __special-form::t id #t)) - (declare-type &__special-form-e (@accessor __special-form::t e #f)) - (declare-type &__special-form-id (@accessor __special-form::t id #f)) - (declare-type &__special-form-e-set! (@mutator __special-form::t e #f)) - (declare-type &__special-form-id-set! (@mutator __special-form::t id #f)) (declare-type __core-form::t (@class gerbil/runtime/eval#__core-form::t @@ -180,140 +97,17 @@ package: gerbil/runtime (declare-type &__core-special-form-id-set! (@mutator __core-special-form::t id #f)) - (declare-type - __struct-info::t - (@class gerbil/runtime/eval#__struct-info::t - (__syntax::t) - (__syntax::t) - () - (e id) - #f - #t - #f - #f - #f)) - (declare-type __struct-info? (@predicate __struct-info::t)) - (declare-type make-__struct-info (@constructor __struct-info::t)) - (declare-type __struct-info-e (@accessor __struct-info::t e #t)) - (declare-type __struct-info-id (@accessor __struct-info::t id #t)) - (declare-type __struct-info-e-set! (@mutator __struct-info::t e #t)) - (declare-type __struct-info-id-set! (@mutator __struct-info::t id #t)) - (declare-type &__struct-info-e (@accessor __struct-info::t e #f)) - (declare-type &__struct-info-id (@accessor __struct-info::t id #f)) - (declare-type &__struct-info-e-set! (@mutator __struct-info::t e #f)) - (declare-type &__struct-info-id-set! (@mutator __struct-info::t id #f)) - (declare-type - __feature::t - (@class gerbil/runtime/eval#__feature::t - (__syntax::t) - (__syntax::t) - () - (e id) - #f - #t - #f - #f - #f)) - (declare-type __feature? (@predicate __feature::t)) - (declare-type make-__feature (@constructor __feature::t)) - (declare-type __feature-e (@accessor __feature::t e #t)) - (declare-type __feature-id (@accessor __feature::t id #t)) - (declare-type __feature-e-set! (@mutator __feature::t e #t)) - (declare-type __feature-id-set! (@mutator __feature::t id #t)) - (declare-type &__feature-e (@accessor __feature::t e #f)) - (declare-type &__feature-id (@accessor __feature::t id #f)) - (declare-type &__feature-e-set! (@mutator __feature::t e #f)) - (declare-type &__feature-id-set! (@mutator __feature::t id #f)) - (declare-type - __module::t - (@class gerbil/runtime/eval#__module::t - (__context::t) - (__context::t) - (id path import export) - (t ns super table id path import export) - #f - #t - #f - #f - #f)) - (declare-type __module? (@predicate __module::t)) - (declare-type make-__module (@constructor __module::t)) - (declare-type __module-id (@accessor __module::t id #t)) - (declare-type __module-path (@accessor __module::t path #t)) - (declare-type __module-import (@accessor __module::t import #t)) - (declare-type __module-export (@accessor __module::t export #t)) - (declare-type __module-t (@accessor __module::t t #t)) - (declare-type __module-ns (@accessor __module::t ns #t)) - (declare-type __module-super (@accessor __module::t super #t)) - (declare-type __module-table (@accessor __module::t table #t)) - (declare-type __module-id-set! (@mutator __module::t id #t)) - (declare-type __module-path-set! (@mutator __module::t path #t)) - (declare-type __module-import-set! (@mutator __module::t import #t)) - (declare-type __module-export-set! (@mutator __module::t export #t)) - (declare-type __module-t-set! (@mutator __module::t t #t)) - (declare-type __module-ns-set! (@mutator __module::t ns #t)) - (declare-type __module-super-set! (@mutator __module::t super #t)) - (declare-type __module-table-set! (@mutator __module::t table #t)) - (declare-type &__module-id (@accessor __module::t id #f)) - (declare-type &__module-path (@accessor __module::t path #f)) - (declare-type &__module-import (@accessor __module::t import #f)) - (declare-type &__module-export (@accessor __module::t export #f)) - (declare-type &__module-t (@accessor __module::t t #f)) - (declare-type &__module-ns (@accessor __module::t ns #f)) - (declare-type &__module-super (@accessor __module::t super #f)) - (declare-type &__module-table (@accessor __module::t table #f)) - (declare-type &__module-id-set! (@mutator __module::t id #f)) - (declare-type &__module-path-set! (@mutator __module::t path #f)) - (declare-type &__module-import-set! (@mutator __module::t import #f)) - (declare-type &__module-export-set! (@mutator __module::t export #f)) - (declare-type &__module-t-set! (@mutator __module::t t #f)) - (declare-type &__module-ns-set! (@mutator __module::t ns #f)) - (declare-type &__module-super-set! (@mutator __module::t super #f)) - (declare-type &__module-table-set! (@mutator __module::t table #f)) - (declare-type __core-resolve__% (@lambda 2 #f)) - (declare-type __core-resolve__0 (@lambda 1 #f)) - (declare-type - __core-resolve - (@case-lambda (1 __core-resolve__0) (2 __core-resolve__%))) + (declare-type __core-resolve (@lambda 1 #f)) (declare-type __core-bound-id?__% (@lambda 2 #f)) (declare-type __core-bound-id?__0 (@lambda 1 #f)) (declare-type __core-bound-id? (@case-lambda (1 __core-bound-id?__0) (2 __core-bound-id?__%))) - (declare-type __core-bind-runtime!__% (@lambda 3 #f)) - (declare-type __core-bind-runtime!__0 (@lambda 2 #f)) - (declare-type - __core-bind-runtime! - (@case-lambda (2 __core-bind-runtime!__0) (3 __core-bind-runtime!__%))) (declare-type __core-bind-syntax!__% (@lambda 3 #f)) (declare-type __core-bind-syntax!__0 (@lambda 2 #f)) (declare-type __core-bind-syntax! (@case-lambda (2 __core-bind-syntax!__0) (3 __core-bind-syntax!__%))) - (declare-type __core-bind-macro! (@lambda 2 #f)) - (declare-type __core-bind-special-form! (@lambda 2 #f)) - (declare-type __core-bind-user-syntax!__% (@lambda 3 #f)) - (declare-type __core-bind-user-syntax!__0 (@lambda 2 #f)) - (declare-type - __core-bind-user-syntax! - (@case-lambda - (2 __core-bind-user-syntax!__0) - (3 __core-bind-user-syntax!__%))) - (declare-type make-__runtime-id__% (@lambda 2 #f)) - (declare-type make-__runtime-id__0 (@lambda 1 #f)) - (declare-type - make-__runtime-id - (@case-lambda (1 make-__runtime-id__0) (2 make-__runtime-id__%))) - (declare-type make-__context-local__% (@lambda 1 #f)) - (declare-type make-__context-local__0 (@lambda 0 #f)) - (declare-type - make-__context-local - (@case-lambda (0 make-__context-local__0) (1 make-__context-local__%))) - (declare-type make-__context-module__% (@lambda 4 #f)) - (declare-type make-__context-module__0 (@lambda 3 #f)) - (declare-type - make-__context-module - (@case-lambda (3 make-__context-module__0) (4 make-__context-module__%))) (declare-type __SRC__% (@lambda 2 #f)) (declare-type __SRC__0 (@lambda 1 #f)) (declare-type __SRC (@case-lambda (1 __SRC__0) (2 __SRC__%))) diff --git a/src/bootstrap/gerbil/runtime/eval__0.scm b/src/bootstrap/gerbil/runtime/eval__0.scm index 31e60de76..dd5cbcfa3 100644 --- a/src/bootstrap/gerbil/runtime/eval__0.scm +++ b/src/bootstrap/gerbil/runtime/eval__0.scm @@ -1,136 +1,26 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/eval::timestamp 1708102801) + (define gerbil/runtime/eval::timestamp 1708370113) (begin - (define __context::t - (let ((__tmp116111 (list)) - (__tmp116109 - (let ((__tmp116110 - (let () (declare (not safe)) (cons 'struct: '#t)))) - (declare (not safe)) - (cons __tmp116110 '())))) - (declare (not safe)) - (make-class-type - 'gerbil/runtime/eval#__context::t - '__context - __tmp116111 - '(t ns super table) - __tmp116109 - '#f))) - (define __context? - (let () (declare (not safe)) (make-class-predicate __context::t))) - (define make-__context - (lambda _$args111345_ (apply make-instance __context::t _$args111345_))) - (define __context-t - (let () (declare (not safe)) (make-class-slot-accessor __context::t 't))) - (define __context-ns - (let () - (declare (not safe)) - (make-class-slot-accessor __context::t 'ns))) - (define __context-super - (let () - (declare (not safe)) - (make-class-slot-accessor __context::t 'super))) - (define __context-table - (let () - (declare (not safe)) - (make-class-slot-accessor __context::t 'table))) - (define __context-t-set! - (let () (declare (not safe)) (make-class-slot-mutator __context::t 't))) - (define __context-ns-set! - (let () (declare (not safe)) (make-class-slot-mutator __context::t 'ns))) - (define __context-super-set! - (let () - (declare (not safe)) - (make-class-slot-mutator __context::t 'super))) - (define __context-table-set! - (let () - (declare (not safe)) - (make-class-slot-mutator __context::t 'table))) - (define &__context-t - (let () - (declare (not safe)) - (make-class-slot-unchecked-accessor __context::t 't))) - (define &__context-ns - (let () - (declare (not safe)) - (make-class-slot-unchecked-accessor __context::t 'ns))) - (define &__context-super - (let () - (declare (not safe)) - (make-class-slot-unchecked-accessor __context::t 'super))) - (define &__context-table - (let () - (declare (not safe)) - (make-class-slot-unchecked-accessor __context::t 'table))) - (define &__context-t-set! - (let () - (declare (not safe)) - (make-class-slot-unchecked-mutator __context::t 't))) - (define &__context-ns-set! - (let () - (declare (not safe)) - (make-class-slot-unchecked-mutator __context::t 'ns))) - (define &__context-super-set! - (let () - (declare (not safe)) - (make-class-slot-unchecked-mutator __context::t 'super))) - (define &__context-table-set! - (let () - (declare (not safe)) - (make-class-slot-unchecked-mutator __context::t 'table))) - (define __runtime::t - (let ((__tmp116114 (list)) - (__tmp116112 - (let ((__tmp116113 - (let () (declare (not safe)) (cons 'struct: '#t)))) - (declare (not safe)) - (cons __tmp116113 '())))) - (declare (not safe)) - (make-class-type - 'gerbil/runtime/eval#__runtime::t - '__runtime - __tmp116114 - '(id) - __tmp116112 - '#f))) - (define __runtime? - (let () (declare (not safe)) (make-class-predicate __runtime::t))) - (define make-__runtime - (lambda _$args111342_ (apply make-instance __runtime::t _$args111342_))) - (define __runtime-id - (let () - (declare (not safe)) - (make-class-slot-accessor __runtime::t 'id))) - (define __runtime-id-set! - (let () (declare (not safe)) (make-class-slot-mutator __runtime::t 'id))) - (define &__runtime-id - (let () - (declare (not safe)) - (make-class-slot-unchecked-accessor __runtime::t 'id))) - (define &__runtime-id-set! - (let () - (declare (not safe)) - (make-class-slot-unchecked-mutator __runtime::t 'id))) (define __syntax::t - (let ((__tmp116117 (list)) - (__tmp116115 - (let ((__tmp116116 + (let ((__tmp76776 (list)) + (__tmp76774 + (let ((__tmp76775 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp116116 '())))) + (cons __tmp76775 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__syntax::t '__syntax - __tmp116117 + __tmp76776 '(e id) - __tmp116115 + __tmp76774 '#f))) (define __syntax? (let () (declare (not safe)) (make-class-predicate __syntax::t))) (define make-__syntax - (lambda _$args111339_ (apply make-instance __syntax::t _$args111339_))) + (lambda _$args76585_ (apply make-instance __syntax::t _$args76585_))) (define __syntax-e (let () (declare (not safe)) (make-class-slot-accessor __syntax::t 'e))) (define __syntax-id @@ -155,121 +45,25 @@ (let () (declare (not safe)) (make-class-slot-unchecked-mutator __syntax::t 'id))) - (define __macro::t - (let ((__tmp116120 (list __syntax::t)) - (__tmp116118 - (let ((__tmp116119 - (let () (declare (not safe)) (cons 'struct: '#t)))) - (declare (not safe)) - (cons __tmp116119 '())))) - (declare (not safe)) - (make-class-type - 'gerbil/runtime/eval#__macro::t - '__macro - __tmp116120 - '() - __tmp116118 - '#f))) - (define __macro? - (let () (declare (not safe)) (make-class-predicate __macro::t))) - (define make-__macro - (lambda _$args111336_ (apply make-instance __macro::t _$args111336_))) - (define __macro-e - (let () (declare (not safe)) (make-class-slot-accessor __macro::t 'e))) - (define __macro-id - (let () (declare (not safe)) (make-class-slot-accessor __macro::t 'id))) - (define __macro-e-set! - (let () (declare (not safe)) (make-class-slot-mutator __macro::t 'e))) - (define __macro-id-set! - (let () (declare (not safe)) (make-class-slot-mutator __macro::t 'id))) - (define &__macro-e - (let () - (declare (not safe)) - (make-class-slot-unchecked-accessor __macro::t 'e))) - (define &__macro-id - (let () - (declare (not safe)) - (make-class-slot-unchecked-accessor __macro::t 'id))) - (define &__macro-e-set! - (let () - (declare (not safe)) - (make-class-slot-unchecked-mutator __macro::t 'e))) - (define &__macro-id-set! - (let () - (declare (not safe)) - (make-class-slot-unchecked-mutator __macro::t 'id))) - (define __special-form::t - (let ((__tmp116123 (list __macro::t)) - (__tmp116121 - (let ((__tmp116122 - (let () (declare (not safe)) (cons 'struct: '#t)))) - (declare (not safe)) - (cons __tmp116122 '())))) - (declare (not safe)) - (make-class-type - 'gerbil/runtime/eval#__special-form::t - '__special-form - __tmp116123 - '() - __tmp116121 - '#f))) - (define __special-form? - (let () (declare (not safe)) (make-class-predicate __special-form::t))) - (define make-__special-form - (lambda _$args111333_ - (apply make-instance __special-form::t _$args111333_))) - (define __special-form-e - (let () - (declare (not safe)) - (make-class-slot-accessor __special-form::t 'e))) - (define __special-form-id - (let () - (declare (not safe)) - (make-class-slot-accessor __special-form::t 'id))) - (define __special-form-e-set! - (let () - (declare (not safe)) - (make-class-slot-mutator __special-form::t 'e))) - (define __special-form-id-set! - (let () - (declare (not safe)) - (make-class-slot-mutator __special-form::t 'id))) - (define &__special-form-e - (let () - (declare (not safe)) - (make-class-slot-unchecked-accessor __special-form::t 'e))) - (define &__special-form-id - (let () - (declare (not safe)) - (make-class-slot-unchecked-accessor __special-form::t 'id))) - (define &__special-form-e-set! - (let () - (declare (not safe)) - (make-class-slot-unchecked-mutator __special-form::t 'e))) - (define &__special-form-id-set! - (let () - (declare (not safe)) - (make-class-slot-unchecked-mutator __special-form::t 'id))) (define __core-form::t - (let ((__tmp116126 (list __syntax::t)) - (__tmp116124 - (let ((__tmp116125 + (let ((__tmp76779 (list __syntax::t)) + (__tmp76777 + (let ((__tmp76778 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp116125 '())))) + (cons __tmp76778 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__core-form::t '__core-form - __tmp116126 + __tmp76779 '() - __tmp116124 + __tmp76777 '#f))) (define __core-form? (let () (declare (not safe)) (make-class-predicate __core-form::t))) (define make-__core-form - (lambda _$args111330_ - (apply make-instance __core-form::t _$args111330_))) + (lambda _$args76582_ (apply make-instance __core-form::t _$args76582_))) (define __core-form-e (let () (declare (not safe)) @@ -303,27 +97,27 @@ (declare (not safe)) (make-class-slot-unchecked-mutator __core-form::t 'id))) (define __core-expression::t - (let ((__tmp116129 (list __core-form::t)) - (__tmp116127 - (let ((__tmp116128 + (let ((__tmp76782 (list __core-form::t)) + (__tmp76780 + (let ((__tmp76781 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp116128 '())))) + (cons __tmp76781 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__core-expression::t '__core-expression - __tmp116129 + __tmp76782 '() - __tmp116127 + __tmp76780 '#f))) (define __core-expression? (let () (declare (not safe)) (make-class-predicate __core-expression::t))) (define make-__core-expression - (lambda _$args111327_ - (apply make-instance __core-expression::t _$args111327_))) + (lambda _$args76579_ + (apply make-instance __core-expression::t _$args76579_))) (define __core-expression-e (let () (declare (not safe)) @@ -357,27 +151,27 @@ (declare (not safe)) (make-class-slot-unchecked-mutator __core-expression::t 'id))) (define __core-special-form::t - (let ((__tmp116132 (list __core-form::t)) - (__tmp116130 - (let ((__tmp116131 + (let ((__tmp76785 (list __core-form::t)) + (__tmp76783 + (let ((__tmp76784 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp116131 '())))) + (cons __tmp76784 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__core-special-form::t '__core-special-form - __tmp116132 + __tmp76785 '() - __tmp116130 + __tmp76783 '#f))) (define __core-special-form? (let () (declare (not safe)) (make-class-predicate __core-special-form::t))) (define make-__core-special-form - (lambda _$args111324_ - (apply make-instance __core-special-form::t _$args111324_))) + (lambda _$args76576_ + (apply make-instance __core-special-form::t _$args76576_))) (define __core-special-form-e (let () (declare (not safe)) @@ -410,985 +204,453 @@ (let () (declare (not safe)) (make-class-slot-unchecked-mutator __core-special-form::t 'id))) - (define __struct-info::t - (let ((__tmp116135 (list __syntax::t)) - (__tmp116133 - (let ((__tmp116134 - (let () (declare (not safe)) (cons 'struct: '#t)))) - (declare (not safe)) - (cons __tmp116134 '())))) - (declare (not safe)) - (make-class-type - 'gerbil/runtime/eval#__struct-info::t - '__struct-info - __tmp116135 - '() - __tmp116133 - '#f))) - (define __struct-info? - (let () (declare (not safe)) (make-class-predicate __struct-info::t))) - (define make-__struct-info - (lambda _$args111321_ - (apply make-instance __struct-info::t _$args111321_))) - (define __struct-info-e - (let () - (declare (not safe)) - (make-class-slot-accessor __struct-info::t 'e))) - (define __struct-info-id - (let () - (declare (not safe)) - (make-class-slot-accessor __struct-info::t 'id))) - (define __struct-info-e-set! - (let () - (declare (not safe)) - (make-class-slot-mutator __struct-info::t 'e))) - (define __struct-info-id-set! - (let () - (declare (not safe)) - (make-class-slot-mutator __struct-info::t 'id))) - (define &__struct-info-e - (let () - (declare (not safe)) - (make-class-slot-unchecked-accessor __struct-info::t 'e))) - (define &__struct-info-id - (let () - (declare (not safe)) - (make-class-slot-unchecked-accessor __struct-info::t 'id))) - (define &__struct-info-e-set! - (let () - (declare (not safe)) - (make-class-slot-unchecked-mutator __struct-info::t 'e))) - (define &__struct-info-id-set! - (let () - (declare (not safe)) - (make-class-slot-unchecked-mutator __struct-info::t 'id))) - (define __feature::t - (let ((__tmp116138 (list __syntax::t)) - (__tmp116136 - (let ((__tmp116137 - (let () (declare (not safe)) (cons 'struct: '#t)))) - (declare (not safe)) - (cons __tmp116137 '())))) - (declare (not safe)) - (make-class-type - 'gerbil/runtime/eval#__feature::t - '__feature - __tmp116138 - '() - __tmp116136 - '#f))) - (define __feature? - (let () (declare (not safe)) (make-class-predicate __feature::t))) - (define make-__feature - (lambda _$args111318_ (apply make-instance __feature::t _$args111318_))) - (define __feature-e - (let () (declare (not safe)) (make-class-slot-accessor __feature::t 'e))) - (define __feature-id - (let () - (declare (not safe)) - (make-class-slot-accessor __feature::t 'id))) - (define __feature-e-set! - (let () (declare (not safe)) (make-class-slot-mutator __feature::t 'e))) - (define __feature-id-set! - (let () (declare (not safe)) (make-class-slot-mutator __feature::t 'id))) - (define &__feature-e - (let () - (declare (not safe)) - (make-class-slot-unchecked-accessor __feature::t 'e))) - (define &__feature-id - (let () - (declare (not safe)) - (make-class-slot-unchecked-accessor __feature::t 'id))) - (define &__feature-e-set! - (let () - (declare (not safe)) - (make-class-slot-unchecked-mutator __feature::t 'e))) - (define &__feature-id-set! - (let () - (declare (not safe)) - (make-class-slot-unchecked-mutator __feature::t 'id))) - (define __module::t - (let ((__tmp116141 (list __context::t)) - (__tmp116139 - (let ((__tmp116140 - (let () (declare (not safe)) (cons 'struct: '#t)))) - (declare (not safe)) - (cons __tmp116140 '())))) - (declare (not safe)) - (make-class-type - 'gerbil/runtime/eval#__module::t - '__module - __tmp116141 - '(id path import export) - __tmp116139 - '#f))) - (define __module? - (let () (declare (not safe)) (make-class-predicate __module::t))) - (define make-__module - (lambda _$args111315_ (apply make-instance __module::t _$args111315_))) - (define __module-id - (let () (declare (not safe)) (make-class-slot-accessor __module::t 'id))) - (define __module-path - (let () - (declare (not safe)) - (make-class-slot-accessor __module::t 'path))) - (define __module-import - (let () - (declare (not safe)) - (make-class-slot-accessor __module::t 'import))) - (define __module-export - (let () - (declare (not safe)) - (make-class-slot-accessor __module::t 'export))) - (define __module-t - (let () (declare (not safe)) (make-class-slot-accessor __module::t 't))) - (define __module-ns - (let () (declare (not safe)) (make-class-slot-accessor __module::t 'ns))) - (define __module-super - (let () - (declare (not safe)) - (make-class-slot-accessor __module::t 'super))) - (define __module-table - (let () - (declare (not safe)) - (make-class-slot-accessor __module::t 'table))) - (define __module-id-set! - (let () (declare (not safe)) (make-class-slot-mutator __module::t 'id))) - (define __module-path-set! - (let () - (declare (not safe)) - (make-class-slot-mutator __module::t 'path))) - (define __module-import-set! - (let () - (declare (not safe)) - (make-class-slot-mutator __module::t 'import))) - (define __module-export-set! - (let () - (declare (not safe)) - (make-class-slot-mutator __module::t 'export))) - (define __module-t-set! - (let () (declare (not safe)) (make-class-slot-mutator __module::t 't))) - (define __module-ns-set! - (let () (declare (not safe)) (make-class-slot-mutator __module::t 'ns))) - (define __module-super-set! - (let () - (declare (not safe)) - (make-class-slot-mutator __module::t 'super))) - (define __module-table-set! - (let () - (declare (not safe)) - (make-class-slot-mutator __module::t 'table))) - (define &__module-id - (let () - (declare (not safe)) - (make-class-slot-unchecked-accessor __module::t 'id))) - (define &__module-path - (let () - (declare (not safe)) - (make-class-slot-unchecked-accessor __module::t 'path))) - (define &__module-import - (let () - (declare (not safe)) - (make-class-slot-unchecked-accessor __module::t 'import))) - (define &__module-export - (let () - (declare (not safe)) - (make-class-slot-unchecked-accessor __module::t 'export))) - (define &__module-t - (let () - (declare (not safe)) - (make-class-slot-unchecked-accessor __module::t 't))) - (define &__module-ns - (let () - (declare (not safe)) - (make-class-slot-unchecked-accessor __module::t 'ns))) - (define &__module-super - (let () - (declare (not safe)) - (make-class-slot-unchecked-accessor __module::t 'super))) - (define &__module-table - (let () - (declare (not safe)) - (make-class-slot-unchecked-accessor __module::t 'table))) - (define &__module-id-set! - (let () - (declare (not safe)) - (make-class-slot-unchecked-mutator __module::t 'id))) - (define &__module-path-set! - (let () - (declare (not safe)) - (make-class-slot-unchecked-mutator __module::t 'path))) - (define &__module-import-set! - (let () - (declare (not safe)) - (make-class-slot-unchecked-mutator __module::t 'import))) - (define &__module-export-set! - (let () - (declare (not safe)) - (make-class-slot-unchecked-mutator __module::t 'export))) - (define &__module-t-set! - (let () - (declare (not safe)) - (make-class-slot-unchecked-mutator __module::t 't))) - (define &__module-ns-set! - (let () - (declare (not safe)) - (make-class-slot-unchecked-mutator __module::t 'ns))) - (define &__module-super-set! - (let () - (declare (not safe)) - (make-class-slot-unchecked-mutator __module::t 'super))) - (define &__module-table-set! - (let () - (declare (not safe)) - (make-class-slot-unchecked-mutator __module::t 'table))) - (define __*modules* (let () (declare (not safe)) (make-table))) - (define __*core* (let () (declare (not safe)) (make-table 'test: eq?))) - (define __*top* - (let ((__tmp116143 - (let () - (declare (not safe)) - (##structure __context::t 'root '#f '#f __*core*))) - (__tmp116142 - (let () (declare (not safe)) (make-table 'test: eq?)))) - (declare (not safe)) - (##structure __context::t 'top '#f __tmp116143 __tmp116142))) + (define __core (let () (declare (not safe)) (make-hash-table-eq))) (define __current-expander (make-parameter '#f)) (define __current-compiler (make-parameter '#f)) (define __current-path (make-parameter '())) - (define __core-resolve__% - (lambda (_id111290_ _ctx111291_) - (if _ctx111291_ - (let ((_id111293_ - (let () (declare (not safe)) (__AST-e _id111290_)))) - (let _lp111295_ ((_ctx111297_ _ctx111291_)) - (let ((_$e111299_ - (table-ref - (##structure-ref _ctx111297_ '4 __context::t '#f) - _id111293_ - '#f))) - (if _$e111299_ - (values _$e111299_) - (let ((_$e111302_ - (##structure-ref - _ctx111297_ - '3 - __context::t - '#f))) - (if _$e111302_ - (let () - (declare (not safe)) - (_lp111295_ _$e111302_)) - '#f)))))) - '#f))) - (define __core-resolve__0 - (lambda (_id111308_) - (let ((_ctx111310_ (__current-context))) - (declare (not safe)) - (__core-resolve__% _id111308_ _ctx111310_)))) (define __core-resolve - (lambda _g116145_ - (let ((_g116144_ (let () (declare (not safe)) (##length _g116145_)))) - (cond ((let () (declare (not safe)) (##fx= _g116144_ 1)) - (apply (lambda (_id111308_) - (let () - (declare (not safe)) - (__core-resolve__0 _id111308_))) - _g116145_)) - ((let () (declare (not safe)) (##fx= _g116144_ 2)) - (apply (lambda (_id111312_ _ctx111313_) - (let () - (declare (not safe)) - (__core-resolve__% _id111312_ _ctx111313_))) - _g116145_)) - (else - (##raise-wrong-number-of-arguments-exception - __core-resolve - _g116145_)))))) + (lambda (_id76574_) + (let ((__tmp76786 (let () (declare (not safe)) (__AST-e _id76574_)))) + (declare (not safe)) + (hash-get __core __tmp76786)))) (define __core-bound-id?__% - (lambda (_id111273_ _is?111274_) - (let ((_$e111276_ - (let () (declare (not safe)) (__core-resolve__0 _id111273_)))) - (if _$e111276_ (_is?111274_ _$e111276_) '#f)))) + (lambda (_id76558_ _is?76559_) + (let ((_$e76561_ + (let () (declare (not safe)) (__core-resolve _id76558_)))) + (if _$e76561_ (_is?76559_ _$e76561_) '#f)))) (define __core-bound-id?__0 - (lambda (_id111282_) - (let ((_is?111284_ true)) + (lambda (_id76567_) + (let ((_is?76569_ true)) (declare (not safe)) - (__core-bound-id?__% _id111282_ _is?111284_)))) + (__core-bound-id?__% _id76567_ _is?76569_)))) (define __core-bound-id? - (lambda _g116147_ - (let ((_g116146_ (let () (declare (not safe)) (##length _g116147_)))) - (cond ((let () (declare (not safe)) (##fx= _g116146_ 1)) - (apply (lambda (_id111282_) + (lambda _g76788_ + (let ((_g76787_ (let () (declare (not safe)) (##length _g76788_)))) + (cond ((let () (declare (not safe)) (##fx= _g76787_ 1)) + (apply (lambda (_id76567_) (let () (declare (not safe)) - (__core-bound-id?__0 _id111282_))) - _g116147_)) - ((let () (declare (not safe)) (##fx= _g116146_ 2)) - (apply (lambda (_id111286_ _is?111287_) + (__core-bound-id?__0 _id76567_))) + _g76788_)) + ((let () (declare (not safe)) (##fx= _g76787_ 2)) + (apply (lambda (_id76571_ _is?76572_) (let () (declare (not safe)) - (__core-bound-id?__% _id111286_ _is?111287_))) - _g116147_)) + (__core-bound-id?__% _id76571_ _is?76572_))) + _g76788_)) (else (##raise-wrong-number-of-arguments-exception __core-bound-id? - _g116147_)))))) - (define __core-bind-runtime!__% - (lambda (_id111256_ _eid111257_ _ctx111258_) - (if _eid111257_ - (let ((__tmp116150 - (##structure-ref _ctx111258_ '4 __context::t '#f)) - (__tmp116149 - (let () (declare (not safe)) (__AST-e _id111256_))) - (__tmp116148 - (let () - (declare (not safe)) - (##structure __runtime::t _eid111257_)))) - (declare (not safe)) - (table-set! __tmp116150 __tmp116149 __tmp116148)) - '#!void))) - (define __core-bind-runtime!__0 - (lambda (_id111263_ _eid111264_) - (let ((_ctx111266_ (__current-context))) - (declare (not safe)) - (__core-bind-runtime!__% _id111263_ _eid111264_ _ctx111266_)))) - (define __core-bind-runtime! - (lambda _g116152_ - (let ((_g116151_ (let () (declare (not safe)) (##length _g116152_)))) - (cond ((let () (declare (not safe)) (##fx= _g116151_ 2)) - (apply (lambda (_id111263_ _eid111264_) - (let () - (declare (not safe)) - (__core-bind-runtime!__0 _id111263_ _eid111264_))) - _g116152_)) - ((let () (declare (not safe)) (##fx= _g116151_ 3)) - (apply (lambda (_id111268_ _eid111269_ _ctx111270_) - (let () - (declare (not safe)) - (__core-bind-runtime!__% - _id111268_ - _eid111269_ - _ctx111270_))) - _g116152_)) - (else - (##raise-wrong-number-of-arguments-exception - __core-bind-runtime! - _g116152_)))))) + _g76788_)))))) (define __core-bind-syntax!__% - (lambda (_id111239_ _e111240_ _make111241_) - (let ((__tmp116153 + (lambda (_id76541_ _e76542_ _make76543_) + (let ((__tmp76789 (if (let () (declare (not safe)) (##structure-instance-of? - _e111240_ + _e76542_ 'gerbil/runtime/eval#__syntax::t)) - _e111240_ - (_make111241_ _e111240_ _id111239_)))) + _e76542_ + (_make76543_ _e76542_ _id76541_)))) (declare (not safe)) - (table-set! __*core* _id111239_ __tmp116153)))) + (hash-put! __core _id76541_ __tmp76789)))) (define __core-bind-syntax!__0 - (lambda (_id111246_ _e111247_) - (let ((_make111249_ make-__syntax)) + (lambda (_id76548_ _e76549_) + (let ((_make76551_ make-__syntax)) (declare (not safe)) - (__core-bind-syntax!__% _id111246_ _e111247_ _make111249_)))) + (__core-bind-syntax!__% _id76548_ _e76549_ _make76551_)))) (define __core-bind-syntax! - (lambda _g116155_ - (let ((_g116154_ (let () (declare (not safe)) (##length _g116155_)))) - (cond ((let () (declare (not safe)) (##fx= _g116154_ 2)) - (apply (lambda (_id111246_ _e111247_) + (lambda _g76791_ + (let ((_g76790_ (let () (declare (not safe)) (##length _g76791_)))) + (cond ((let () (declare (not safe)) (##fx= _g76790_ 2)) + (apply (lambda (_id76548_ _e76549_) (let () (declare (not safe)) - (__core-bind-syntax!__0 _id111246_ _e111247_))) - _g116155_)) - ((let () (declare (not safe)) (##fx= _g116154_ 3)) - (apply (lambda (_id111251_ _e111252_ _make111253_) + (__core-bind-syntax!__0 _id76548_ _e76549_))) + _g76791_)) + ((let () (declare (not safe)) (##fx= _g76790_ 3)) + (apply (lambda (_id76553_ _e76554_ _make76555_) (let () (declare (not safe)) (__core-bind-syntax!__% - _id111251_ - _e111252_ - _make111253_))) - _g116155_)) + _id76553_ + _e76554_ + _make76555_))) + _g76791_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-syntax! - _g116155_)))))) - (define __core-bind-macro! - (lambda (_id111235_ _e111236_) - (let () - (declare (not safe)) - (__core-bind-syntax!__% _id111235_ _e111236_ make-__macro)))) - (define __core-bind-special-form! - (lambda (_id111232_ _e111233_) - (let () - (declare (not safe)) - (__core-bind-syntax!__% _id111232_ _e111233_ make-__special-form)))) - (define __core-bind-user-syntax!__% - (lambda (_id111216_ _e111217_ _ctx111218_) - (let ((__tmp116159 (##structure-ref _ctx111218_ '4 __context::t '#f)) - (__tmp116158 (let () (declare (not safe)) (__AST-e _id111216_))) - (__tmp116156 - (if (let () - (declare (not safe)) - (##structure-instance-of? - _e111217_ - 'gerbil/runtime/eval#__syntax::t)) - _e111217_ - (let ((__tmp116157 - (let () (declare (not safe)) (__AST-e _id111216_)))) - (declare (not safe)) - (##structure __syntax::t _e111217_ __tmp116157))))) - (declare (not safe)) - (table-set! __tmp116159 __tmp116158 __tmp116156)))) - (define __core-bind-user-syntax!__0 - (lambda (_id111223_ _e111224_) - (let ((_ctx111226_ (__current-context))) - (declare (not safe)) - (__core-bind-user-syntax!__% _id111223_ _e111224_ _ctx111226_)))) - (define __core-bind-user-syntax! - (lambda _g116161_ - (let ((_g116160_ (let () (declare (not safe)) (##length _g116161_)))) - (cond ((let () (declare (not safe)) (##fx= _g116160_ 2)) - (apply (lambda (_id111223_ _e111224_) - (let () - (declare (not safe)) - (__core-bind-user-syntax!__0 - _id111223_ - _e111224_))) - _g116161_)) - ((let () (declare (not safe)) (##fx= _g116160_ 3)) - (apply (lambda (_id111228_ _e111229_ _ctx111230_) - (let () - (declare (not safe)) - (__core-bind-user-syntax!__% - _id111228_ - _e111229_ - _ctx111230_))) - _g116161_)) - (else - (##raise-wrong-number-of-arguments-exception - __core-bind-user-syntax! - _g116161_)))))) - (define make-__runtime-id__% - (lambda (_id111197_ _ctx111198_) - (let ((_id111200_ (let () (declare (not safe)) (__AST-e _id111197_)))) - (if (let () (declare (not safe)) (eq? _id111200_ '_)) - '#f - (if (uninterned-symbol? _id111200_) - (gensym _id111200_) - (if (let () (declare (not safe)) (symbol? _id111200_)) - (let ((_$e111202_ - (##structure-ref - _ctx111198_ - '1 - __context::t - '#f))) - (if (let () - (declare (not safe)) - (eq? 'local _$e111202_)) - (gensym _id111200_) - (if (let () - (declare (not safe)) - (eq? 'module _$e111202_)) - (let ((__tmp116162 - (##structure-ref - _ctx111198_ - '2 - __context::t - '#f))) - (declare (not safe)) - (make-symbol__1 __tmp116162 '"#" _id111200_)) - _id111200_))) - (error '"Illegal runtime identifier" _id111200_))))))) - (define make-__runtime-id__0 - (lambda (_id111208_) - (let ((_ctx111210_ (__current-context))) - (declare (not safe)) - (make-__runtime-id__% _id111208_ _ctx111210_)))) - (define make-__runtime-id - (lambda _g116164_ - (let ((_g116163_ (let () (declare (not safe)) (##length _g116164_)))) - (cond ((let () (declare (not safe)) (##fx= _g116163_ 1)) - (apply (lambda (_id111208_) - (let () - (declare (not safe)) - (make-__runtime-id__0 _id111208_))) - _g116164_)) - ((let () (declare (not safe)) (##fx= _g116163_ 2)) - (apply (lambda (_id111212_ _ctx111213_) - (let () - (declare (not safe)) - (make-__runtime-id__% _id111212_ _ctx111213_))) - _g116164_)) - (else - (##raise-wrong-number-of-arguments-exception - make-__runtime-id - _g116164_)))))) - (define make-__context-local__% - (lambda (_super111186_) - (let ((__tmp116165 - (let () (declare (not safe)) (make-table 'test: eq?)))) - (declare (not safe)) - (##structure __context::t 'local '#f _super111186_ __tmp116165)))) - (define make-__context-local__0 - (lambda () - (let ((_super111192_ (__current-context))) - (declare (not safe)) - (make-__context-local__% _super111192_)))) - (define make-__context-local - (lambda _g116167_ - (let ((_g116166_ (let () (declare (not safe)) (##length _g116167_)))) - (cond ((let () (declare (not safe)) (##fx= _g116166_ 0)) - (apply (lambda () - (let () - (declare (not safe)) - (make-__context-local__0))) - _g116167_)) - ((let () (declare (not safe)) (##fx= _g116166_ 1)) - (apply (lambda (_super111194_) - (let () - (declare (not safe)) - (make-__context-local__% _super111194_))) - _g116167_)) - (else - (##raise-wrong-number-of-arguments-exception - make-__context-local - _g116167_)))))) - (define make-__context-module__% - (lambda (_id111166_ _ns111167_ _path111168_ _super111169_) - (let ((__tmp116168 - (let () (declare (not safe)) (make-table 'test: eq?)))) - (declare (not safe)) - (##structure - __module::t - 'module - _ns111167_ - _super111169_ - __tmp116168 - _id111166_ - _path111168_ - '#f - '#f)))) - (define make-__context-module__0 - (lambda (_id111174_ _ns111175_ _path111176_) - (let ((_super111178_ (__current-context))) - (declare (not safe)) - (make-__context-module__% - _id111174_ - _ns111175_ - _path111176_ - _super111178_)))) - (define make-__context-module - (lambda _g116170_ - (let ((_g116169_ (let () (declare (not safe)) (##length _g116170_)))) - (cond ((let () (declare (not safe)) (##fx= _g116169_ 3)) - (apply (lambda (_id111174_ _ns111175_ _path111176_) - (let () - (declare (not safe)) - (make-__context-module__0 - _id111174_ - _ns111175_ - _path111176_))) - _g116170_)) - ((let () (declare (not safe)) (##fx= _g116169_ 4)) - (apply (lambda (_id111180_ - _ns111181_ - _path111182_ - _super111183_) - (let () - (declare (not safe)) - (make-__context-module__% - _id111180_ - _ns111181_ - _path111182_ - _super111183_))) - _g116170_)) - (else - (##raise-wrong-number-of-arguments-exception - make-__context-module - _g116170_)))))) + _g76791_)))))) (define __SRC__% - (lambda (_e111149_ _src-stx111150_) - (if (or (let () (declare (not safe)) (pair? _e111149_)) - (let () (declare (not safe)) (symbol? _e111149_))) - (let ((__tmp116174 + (lambda (_e76524_ _src-stx76525_) + (if (or (let () (declare (not safe)) (pair? _e76524_)) + (let () (declare (not safe)) (symbol? _e76524_))) + (let ((__tmp76795 (if (let () (declare (not safe)) (##structure-instance-of? - _src-stx111150_ + _src-stx76525_ 'gerbil#AST::t)) - (let ((__tmp116175 + (let ((__tmp76796 (let () (declare (not safe)) - (__AST-source _src-stx111150_)))) + (__AST-source _src-stx76525_)))) (declare (not safe)) - (__locat __tmp116175)) + (__locat __tmp76796)) '#f))) (declare (not safe)) - (##make-source _e111149_ __tmp116174)) + (##make-source _e76524_ __tmp76795)) (if (let () (declare (not safe)) - (##structure-instance-of? _e111149_ 'gerbil#AST::t)) - (let ((__tmp116173 + (##structure-instance-of? _e76524_ 'gerbil#AST::t)) + (let ((__tmp76794 (let () (declare (not safe)) - (##unchecked-structure-ref _e111149_ '1 AST::t '#f))) - (__tmp116171 - (let ((__tmp116172 + (##unchecked-structure-ref _e76524_ '1 AST::t '#f))) + (__tmp76792 + (let ((__tmp76793 (let () (declare (not safe)) - (__AST-source _e111149_)))) + (__AST-source _e76524_)))) (declare (not safe)) - (__locat __tmp116172)))) + (__locat __tmp76793)))) + (declare (not safe)) + (##make-source __tmp76794 __tmp76792)) + (let () (declare (not safe)) - (##make-source __tmp116173 __tmp116171)) - (error '"BUG! Cannot sourcify object" _e111149_))))) + (error '"BUG! Cannot sourcify object" _e76524_)))))) (define __SRC__0 - (lambda (_e111158_) - (let ((_src-stx111160_ '#f)) + (lambda (_e76533_) + (let ((_src-stx76535_ '#f)) (declare (not safe)) - (__SRC__% _e111158_ _src-stx111160_)))) + (__SRC__% _e76533_ _src-stx76535_)))) (define __SRC - (lambda _g116177_ - (let ((_g116176_ (let () (declare (not safe)) (##length _g116177_)))) - (cond ((let () (declare (not safe)) (##fx= _g116176_ 1)) - (apply (lambda (_e111158_) - (let () (declare (not safe)) (__SRC__0 _e111158_))) - _g116177_)) - ((let () (declare (not safe)) (##fx= _g116176_ 2)) - (apply (lambda (_e111162_ _src-stx111163_) + (lambda _g76798_ + (let ((_g76797_ (let () (declare (not safe)) (##length _g76798_)))) + (cond ((let () (declare (not safe)) (##fx= _g76797_ 1)) + (apply (lambda (_e76533_) + (let () (declare (not safe)) (__SRC__0 _e76533_))) + _g76798_)) + ((let () (declare (not safe)) (##fx= _g76797_ 2)) + (apply (lambda (_e76537_ _src-stx76538_) (let () (declare (not safe)) - (__SRC__% _e111162_ _src-stx111163_))) - _g116177_)) + (__SRC__% _e76537_ _src-stx76538_))) + _g76798_)) (else (##raise-wrong-number-of-arguments-exception __SRC - _g116177_)))))) + _g76798_)))))) (define __locat - (lambda (_loc111146_) - (if (let () (declare (not safe)) (##locat? _loc111146_)) - _loc111146_ + (lambda (_loc76521_) + (if (let () (declare (not safe)) (##locat? _loc76521_)) + _loc76521_ '#f))) (define __check-values - (lambda (_obj111141_ _k111142_) - (let ((_count111144_ - (if (let () (declare (not safe)) (##values? _obj111141_)) - (let () (declare (not safe)) (##vector-length _obj111141_)) + (lambda (_obj76516_ _k76517_) + (let ((_count76519_ + (if (let () (declare (not safe)) (##values? _obj76516_)) + (let () (declare (not safe)) (##vector-length _obj76516_)) '1))) - (if (fx= _count111144_ _k111142_) + (if (fx= _count76519_ _k76517_) '#!void - (error (if (fx< _count111144_ _k111142_) + (let ((__tmp76800 + (if (fx< _count76519_ _k76517_) '"Too few values for context" - '"Too many values for context") - (if (let () (declare (not safe)) (##values? _obj111141_)) + '"Too many values for context")) + (__tmp76799 + (if (let () (declare (not safe)) (##values? _obj76516_)) (let () (declare (not safe)) - (##vector->list _obj111141_)) - _obj111141_) - _k111142_))))) + (##vector->list _obj76516_)) + _obj76516_))) + (declare (not safe)) + (error __tmp76800 __tmp76799 _k76517_)))))) (define __compile - (lambda (_stx111111_) - (let* ((_$e111113_ _stx111111_) - (_$E111115111121_ + (lambda (_stx76486_) + (let* ((_$e76488_ _stx76486_) + (_$E7649076496_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e111113_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e111113_)) - (let* ((_$tgt111116111124_ - (let () (declare (not safe)) (__AST-e _$e111113_))) - (_$hd111117111127_ - (let () (declare (not safe)) (##car _$tgt111116111124_))) - (_$tl111118111130_ - (let () - (declare (not safe)) - (##cdr _$tgt111116111124_)))) - (let* ((_form111134_ _$hd111117111127_) - (_$e111136_ + _$e76488_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e76488_)) + (let* ((_$tgt7649176499_ + (let () (declare (not safe)) (__AST-e _$e76488_))) + (_$hd7649276502_ + (let () (declare (not safe)) (##car _$tgt7649176499_))) + (_$tl7649376505_ + (let () (declare (not safe)) (##cdr _$tgt7649176499_)))) + (let* ((_form76509_ _$hd7649276502_) + (_$e76511_ (let () (declare (not safe)) - (__core-resolve__0 _form111134_)))) - (if _$e111136_ - ((lambda (_bind111139_) - ((##structure-ref _bind111139_ '1 __syntax::t '#f) - _stx111111_)) - _$e111136_) + (__core-resolve _form76509_)))) + (if _$e76511_ + ((lambda (_bind76514_) + ((##structure-ref _bind76514_ '1 __syntax::t '#f) + _stx76486_)) + _$e76511_) (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; cannot resolve form" - _stx111111_ - _form111134_))))) - (let () (declare (not safe)) (_$E111115111121_)))))) + _stx76486_ + _form76509_))))) + (let () (declare (not safe)) (_$E7649076496_)))))) (define __compile-error__% - (lambda (_stx111098_ _detail111099_) + (lambda (_stx76473_ _detail76474_) (let () (declare (not safe)) (__raise-syntax-error 'compile '"Bad syntax; cannot compile" - _stx111098_ - _detail111099_)))) + _stx76473_ + _detail76474_)))) (define __compile-error__0 - (lambda (_stx111104_) - (let ((_detail111106_ '#f)) + (lambda (_stx76479_) + (let ((_detail76481_ '#f)) (declare (not safe)) - (__compile-error__% _stx111104_ _detail111106_)))) + (__compile-error__% _stx76479_ _detail76481_)))) (define __compile-error - (lambda _g116179_ - (let ((_g116178_ (let () (declare (not safe)) (##length _g116179_)))) - (cond ((let () (declare (not safe)) (##fx= _g116178_ 1)) - (apply (lambda (_stx111104_) + (lambda _g76802_ + (let ((_g76801_ (let () (declare (not safe)) (##length _g76802_)))) + (cond ((let () (declare (not safe)) (##fx= _g76801_ 1)) + (apply (lambda (_stx76479_) (let () (declare (not safe)) - (__compile-error__0 _stx111104_))) - _g116179_)) - ((let () (declare (not safe)) (##fx= _g116178_ 2)) - (apply (lambda (_stx111108_ _detail111109_) + (__compile-error__0 _stx76479_))) + _g76802_)) + ((let () (declare (not safe)) (##fx= _g76801_ 2)) + (apply (lambda (_stx76483_ _detail76484_) (let () (declare (not safe)) - (__compile-error__% _stx111108_ _detail111109_))) - _g116179_)) + (__compile-error__% _stx76483_ _detail76484_))) + _g76802_)) (else (##raise-wrong-number-of-arguments-exception __compile-error - _g116179_)))))) + _g76802_)))))) (define __compile-ignore% - (lambda (_stx111095_) - (let () (declare (not safe)) (__SRC__% ''#!void _stx111095_)))) + (lambda (_stx76470_) + (let () (declare (not safe)) (__SRC__% ''#!void _stx76470_)))) (define __compile-begin% - (lambda (_stx111070_) - (let* ((_$e111072_ _stx111070_) - (_$E111074111080_ + (lambda (_stx76445_) + (let* ((_$e76447_ _stx76445_) + (_$E7644976455_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e111072_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e111072_)) - (let* ((_$tgt111075111083_ - (let () (declare (not safe)) (__AST-e _$e111072_))) - (_$hd111076111086_ - (let () (declare (not safe)) (##car _$tgt111075111083_))) - (_$tl111077111089_ - (let () - (declare (not safe)) - (##cdr _$tgt111075111083_)))) - (let* ((_body111093_ _$tl111077111089_) - (__tmp116180 - (let ((__tmp116181 (map __compile _body111093_))) + _$e76447_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e76447_)) + (let* ((_$tgt7645076458_ + (let () (declare (not safe)) (__AST-e _$e76447_))) + (_$hd7645176461_ + (let () (declare (not safe)) (##car _$tgt7645076458_))) + (_$tl7645276464_ + (let () (declare (not safe)) (##cdr _$tgt7645076458_)))) + (let* ((_body76468_ _$tl7645276464_) + (__tmp76803 + (let ((__tmp76804 (map __compile _body76468_))) (declare (not safe)) - (cons 'begin __tmp116181)))) + (cons 'begin __tmp76804)))) (declare (not safe)) - (__SRC__% __tmp116180 _stx111070_))) - (let () (declare (not safe)) (_$E111074111080_)))))) + (__SRC__% __tmp76803 _stx76445_))) + (let () (declare (not safe)) (_$E7644976455_)))))) (define __compile-begin-foreign% - (lambda (_stx111045_) - (let* ((_$e111047_ _stx111045_) - (_$E111049111055_ + (lambda (_stx76420_) + (let* ((_$e76422_ _stx76420_) + (_$E7642476430_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e111047_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e111047_)) - (let* ((_$tgt111050111058_ - (let () (declare (not safe)) (__AST-e _$e111047_))) - (_$hd111051111061_ - (let () (declare (not safe)) (##car _$tgt111050111058_))) - (_$tl111052111064_ - (let () - (declare (not safe)) - (##cdr _$tgt111050111058_)))) - (let* ((_body111068_ _$tl111052111064_) - (__tmp116182 - (let ((__tmp116183 + _$e76422_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e76422_)) + (let* ((_$tgt7642576433_ + (let () (declare (not safe)) (__AST-e _$e76422_))) + (_$hd7642676436_ + (let () (declare (not safe)) (##car _$tgt7642576433_))) + (_$tl7642776439_ + (let () (declare (not safe)) (##cdr _$tgt7642576433_)))) + (let* ((_body76443_ _$tl7642776439_) + (__tmp76805 + (let ((__tmp76806 (let () (declare (not safe)) - (__AST->datum _body111068_)))) + (__AST->datum _body76443_)))) (declare (not safe)) - (cons 'begin __tmp116183)))) + (cons 'begin __tmp76806)))) (declare (not safe)) - (__SRC__% __tmp116182 _stx111045_))) - (let () (declare (not safe)) (_$E111049111055_)))))) + (__SRC__% __tmp76805 _stx76420_))) + (let () (declare (not safe)) (_$E7642476430_)))))) (define __compile-import% - (lambda (_stx111020_) - (let* ((_$e111022_ _stx111020_) - (_$E111024111030_ + (lambda (_stx76395_) + (let* ((_$e76397_ _stx76395_) + (_$E7639976405_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e111022_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e111022_)) - (let* ((_$tgt111025111033_ - (let () (declare (not safe)) (__AST-e _$e111022_))) - (_$hd111026111036_ - (let () (declare (not safe)) (##car _$tgt111025111033_))) - (_$tl111027111039_ - (let () - (declare (not safe)) - (##cdr _$tgt111025111033_)))) - (let* ((_body111043_ _$tl111027111039_) - (__tmp116184 - (let ((__tmp116185 - (let ((__tmp116186 - (let ((__tmp116187 + _$e76397_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e76397_)) + (let* ((_$tgt7640076408_ + (let () (declare (not safe)) (__AST-e _$e76397_))) + (_$hd7640176411_ + (let () (declare (not safe)) (##car _$tgt7640076408_))) + (_$tl7640276414_ + (let () (declare (not safe)) (##cdr _$tgt7640076408_)))) + (let* ((_body76418_ _$tl7640276414_) + (__tmp76807 + (let ((__tmp76808 + (let ((__tmp76809 + (let ((__tmp76810 (let () (declare (not safe)) - (cons _body111043_ '())))) + (cons _body76418_ '())))) (declare (not safe)) - (cons 'quote __tmp116187)))) + (cons 'quote __tmp76810)))) (declare (not safe)) - (cons __tmp116186 '())))) + (cons __tmp76809 '())))) (declare (not safe)) - (cons '__eval-import __tmp116185)))) + (cons '__eval-import __tmp76808)))) (declare (not safe)) - (__SRC__% __tmp116184 _stx111020_))) - (let () (declare (not safe)) (_$E111024111030_)))))) + (__SRC__% __tmp76807 _stx76395_))) + (let () (declare (not safe)) (_$E7639976405_)))))) (define __compile-begin-annotation% - (lambda (_stx110967_) - (let* ((_$e110969_ _stx110967_) - (_$E110971110983_ + (lambda (_stx76342_) + (let* ((_$e76344_ _stx76342_) + (_$E7634676358_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e110969_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e110969_)) - (let* ((_$tgt110972110986_ - (let () (declare (not safe)) (__AST-e _$e110969_))) - (_$hd110973110989_ - (let () (declare (not safe)) (##car _$tgt110972110986_))) - (_$tl110974110992_ - (let () - (declare (not safe)) - (##cdr _$tgt110972110986_)))) - (if (let () - (declare (not safe)) - (__AST-pair? _$tl110974110992_)) - (let* ((_$tgt110975110996_ + _$e76344_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e76344_)) + (let* ((_$tgt7634776361_ + (let () (declare (not safe)) (__AST-e _$e76344_))) + (_$hd7634876364_ + (let () (declare (not safe)) (##car _$tgt7634776361_))) + (_$tl7634976367_ + (let () (declare (not safe)) (##cdr _$tgt7634776361_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7634976367_)) + (let* ((_$tgt7635076371_ (let () (declare (not safe)) - (__AST-e _$tl110974110992_))) - (_$hd110976110999_ + (__AST-e _$tl7634976367_))) + (_$hd7635176374_ (let () (declare (not safe)) - (##car _$tgt110975110996_))) - (_$tl110977111002_ + (##car _$tgt7635076371_))) + (_$tl7635276377_ (let () (declare (not safe)) - (##cdr _$tgt110975110996_)))) - (let ((_ann111006_ _$hd110976110999_)) + (##cdr _$tgt7635076371_)))) + (let ((_ann76381_ _$hd7635176374_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl110977111002_)) - (let* ((_$tgt110978111008_ + (__AST-pair? _$tl7635276377_)) + (let* ((_$tgt7635376383_ (let () (declare (not safe)) - (__AST-e _$tl110977111002_))) - (_$hd110979111011_ + (__AST-e _$tl7635276377_))) + (_$hd7635476386_ (let () (declare (not safe)) - (##car _$tgt110978111008_))) - (_$tl110980111014_ + (##car _$tgt7635376383_))) + (_$tl7635576389_ (let () (declare (not safe)) - (##cdr _$tgt110978111008_)))) - (let ((_expr111018_ _$hd110979111011_)) - (if (let ((__tmp116188 + (##cdr _$tgt7635376383_)))) + (let ((_expr76393_ _$hd7635476386_)) + (if (let ((__tmp76811 (let () (declare (not safe)) - (__AST-e _$tl110980111014_)))) + (__AST-e _$tl7635576389_)))) (declare (not safe)) - (equal? __tmp116188 '())) + (equal? __tmp76811 '())) (let () (declare (not safe)) - (__compile _expr111018_)) + (__compile _expr76393_)) (let () (declare (not safe)) - (_$E110971110983_))))) - (let () (declare (not safe)) (_$E110971110983_))))) - (let () (declare (not safe)) (_$E110971110983_)))) - (let () (declare (not safe)) (_$E110971110983_)))))) + (_$E7634676358_))))) + (let () (declare (not safe)) (_$E7634676358_))))) + (let () (declare (not safe)) (_$E7634676358_)))) + (let () (declare (not safe)) (_$E7634676358_)))))) (define __compile-define-values% - (lambda (_stx110858_) - (let* ((_$e110860_ _stx110858_) - (_$E110862110874_ + (lambda (_stx76233_) + (let* ((_$e76235_ _stx76233_) + (_$E7623776249_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e110860_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e110860_)) - (let* ((_$tgt110863110877_ - (let () (declare (not safe)) (__AST-e _$e110860_))) - (_$hd110864110880_ - (let () (declare (not safe)) (##car _$tgt110863110877_))) - (_$tl110865110883_ - (let () - (declare (not safe)) - (##cdr _$tgt110863110877_)))) - (if (let () - (declare (not safe)) - (__AST-pair? _$tl110865110883_)) - (let* ((_$tgt110866110887_ + _$e76235_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e76235_)) + (let* ((_$tgt7623876252_ + (let () (declare (not safe)) (__AST-e _$e76235_))) + (_$hd7623976255_ + (let () (declare (not safe)) (##car _$tgt7623876252_))) + (_$tl7624076258_ + (let () (declare (not safe)) (##cdr _$tgt7623876252_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7624076258_)) + (let* ((_$tgt7624176262_ (let () (declare (not safe)) - (__AST-e _$tl110865110883_))) - (_$hd110867110890_ + (__AST-e _$tl7624076258_))) + (_$hd7624276265_ (let () (declare (not safe)) - (##car _$tgt110866110887_))) - (_$tl110868110893_ + (##car _$tgt7624176262_))) + (_$tl7624376268_ (let () (declare (not safe)) - (##cdr _$tgt110866110887_)))) - (let ((_hd110897_ _$hd110867110890_)) + (##cdr _$tgt7624176262_)))) + (let ((_hd76272_ _$hd7624276265_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl110868110893_)) - (let* ((_$tgt110869110899_ + (__AST-pair? _$tl7624376268_)) + (let* ((_$tgt7624476274_ (let () (declare (not safe)) - (__AST-e _$tl110868110893_))) - (_$hd110870110902_ + (__AST-e _$tl7624376268_))) + (_$hd7624576277_ (let () (declare (not safe)) - (##car _$tgt110869110899_))) - (_$tl110871110905_ + (##car _$tgt7624476274_))) + (_$tl7624676280_ (let () (declare (not safe)) - (##cdr _$tgt110869110899_)))) - (let ((_expr110909_ _$hd110870110902_)) - (if (let ((__tmp116221 + (##cdr _$tgt7624476274_)))) + (let ((_expr76284_ _$hd7624576277_)) + (if (let ((__tmp76844 (let () (declare (not safe)) - (__AST-e _$tl110871110905_)))) + (__AST-e _$tl7624676280_)))) (declare (not safe)) - (equal? __tmp116221 '())) - (let* ((_$e110911_ _hd110897_) - (_$E110913110954_ + (equal? __tmp76844 '())) + (let* ((_$e76286_ _hd76272_) + (_$E7628876329_ (lambda () - (let ((_$E110914110939_ + (let ((_$E7628976314_ (lambda () - (let* ((_$E110915110926_ + (let* ((_$E7629076301_ (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () @@ -1396,2987 +658,2901 @@ (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e110911_)))) - (_ids110929_ _hd110897_) - (_len110931_ (length _ids110929_)) - (_tmp110933_ - (let ((__tmp116189 (gensym))) + _$e76286_)))) + (_ids76304_ _hd76272_) + (_len76306_ (length _ids76304_)) + (_tmp76308_ + (let ((__tmp76812 (gensym))) (declare (not safe)) - (__SRC__0 __tmp116189)))) - (let ((__tmp116190 - (let ((__tmp116191 - (let ((__tmp116208 - (let ((__tmp116209 - (let ((__tmp116210 - (let ((__tmp116211 - (let ((__tmp116212 + (__SRC__0 __tmp76812)))) + (let ((__tmp76813 + (let ((__tmp76814 + (let ((__tmp76831 + (let ((__tmp76832 + (let ((__tmp76833 + (let ((__tmp76834 + (let ((__tmp76835 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__compile _expr110909_)))) + (__compile _expr76284_)))) (declare (not safe)) - (cons __tmp116212 '())))) + (cons __tmp76835 '())))) (declare (not safe)) - (cons _tmp110933_ __tmp116211)))) + (cons _tmp76308_ __tmp76834)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'define __tmp116210)))) + (cons 'define __tmp76833)))) (declare (not safe)) - (__SRC__% __tmp116209 _stx110858_))) - (__tmp116192 - (let ((__tmp116204 - (let ((__tmp116205 - (let ((__tmp116206 - (let ((__tmp116207 + (__SRC__% __tmp76832 _stx76233_))) + (__tmp76815 + (let ((__tmp76827 + (let ((__tmp76828 + (let ((__tmp76829 + (let ((__tmp76830 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (cons _len110931_ '())))) + (let () (declare (not safe)) (cons _len76306_ '())))) (declare (not safe)) - (cons _tmp110933_ __tmp116207)))) + (cons _tmp76308_ __tmp76830)))) (declare (not safe)) - (cons '__check-values __tmp116206)))) + (cons '__check-values __tmp76829)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp116205 - _stx110858_))) - (__tmp116193 - (let ((__tmp116194 - (let ((__tmp116196 - (lambda (_id110936_ + __tmp76828 + _stx76233_))) + (__tmp76816 + (let ((__tmp76817 + (let ((__tmp76819 + (lambda (_id76311_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _k110937_) - (if (let () (declare (not safe)) (__AST-e _id110936_)) - (let ((__tmp116197 - (let ((__tmp116198 - (let ((__tmp116203 + _k76312_) + (if (let () (declare (not safe)) (__AST-e _id76311_)) + (let ((__tmp76820 + (let ((__tmp76821 + (let ((__tmp76826 (let () (declare (not safe)) - (__SRC__0 _id110936_))) - (__tmp116199 - (let ((__tmp116200 - (let ((__tmp116201 - (let ((__tmp116202 + (__SRC__0 _id76311_))) + (__tmp76822 + (let ((__tmp76823 + (let ((__tmp76824 + (let ((__tmp76825 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _k110937_ '())))) + (let () (declare (not safe)) (cons _k76312_ '())))) (declare (not safe)) - (cons _tmp110933_ __tmp116202)))) + (cons _tmp76308_ __tmp76825)))) (declare (not safe)) - (cons '##vector-ref __tmp116201)))) + (cons '##vector-ref __tmp76824)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp116200 '())))) + (cons __tmp76823 '())))) (declare (not safe)) - (cons __tmp116203 __tmp116199)))) + (cons __tmp76826 __tmp76822)))) (declare (not safe)) - (cons 'define __tmp116198)))) + (cons 'define __tmp76821)))) (declare (not safe)) - (__SRC__% __tmp116197 _stx110858_)) + (__SRC__% __tmp76820 _stx76233_)) '#f))) - (__tmp116195 - (let () (declare (not safe)) (iota _len110931_)))) + (__tmp76818 + (let () (declare (not safe)) (iota__0 _len76306_)))) (declare (not safe)) - (filter-map2 __tmp116196 _ids110929_ __tmp116195)))) + (filter-map2 __tmp76819 _ids76304_ __tmp76818)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 cons '() __tmp116194)))) + (foldr1 cons '() __tmp76817)))) (declare (not safe)) - (cons __tmp116204 __tmp116193)))) + (cons __tmp76827 __tmp76816)))) (declare (not safe)) - (cons __tmp116208 __tmp116192)))) + (cons __tmp76831 __tmp76815)))) (declare (not safe)) - (cons 'begin __tmp116191)))) + (cons 'begin __tmp76814)))) (declare (not safe)) - (__SRC__% __tmp116190 _stx110858_)))))) + (__SRC__% __tmp76813 _stx76233_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (__AST-pair? _$e110911_)) - (let* ((_$tgt110916110942_ + (__AST-pair? _$e76286_)) + (let* ((_$tgt7629176317_ (let () (declare (not safe)) - (__AST-e _$e110911_))) - (_$hd110917110945_ + (__AST-e _$e76286_))) + (_$hd7629276320_ (let () (declare (not safe)) - (##car _$tgt110916110942_))) - (_$tl110918110948_ + (##car _$tgt7629176317_))) + (_$tl7629376323_ (let () (declare (not safe)) - (##cdr _$tgt110916110942_)))) - (let ((_id110952_ - _$hd110917110945_)) - (if (let ((__tmp116218 + (##cdr _$tgt7629176317_)))) + (let ((_id76327_ + _$hd7629276320_)) + (if (let ((__tmp76841 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__AST-e _$tl110918110948_)))) + (__AST-e _$tl7629376323_)))) (declare (not safe)) - (equal? __tmp116218 '())) - (let ((__tmp116213 - (let ((__tmp116214 - (let ((__tmp116217 + (equal? __tmp76841 '())) + (let ((__tmp76836 + (let ((__tmp76837 + (let ((__tmp76840 (let () (declare (not safe)) - (__SRC__0 _id110952_))) - (__tmp116215 - (let ((__tmp116216 + (__SRC__0 _id76327_))) + (__tmp76838 + (let ((__tmp76839 (let () (declare (not safe)) - (__compile _expr110909_)))) + (__compile _expr76284_)))) (declare (not safe)) - (cons __tmp116216 '())))) + (cons __tmp76839 '())))) (declare (not safe)) - (cons __tmp116217 __tmp116215)))) + (cons __tmp76840 __tmp76838)))) (declare (not safe)) - (cons 'define __tmp116214)))) + (cons 'define __tmp76837)))) (declare (not safe)) - (__SRC__% __tmp116213 _stx110858_)) - (let () (declare (not safe)) (_$E110914110939_))))) + (__SRC__% __tmp76836 _stx76233_)) + (let () (declare (not safe)) (_$E7628976314_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_$E110914110939_))))))) + (_$E7628976314_))))))) (if (let () (declare (not safe)) - (__AST-pair? _$e110911_)) - (let* ((_$tgt110919110957_ + (__AST-pair? _$e76286_)) + (let* ((_$tgt7629476332_ (let () (declare (not safe)) - (__AST-e _$e110911_))) - (_$hd110920110960_ + (__AST-e _$e76286_))) + (_$hd7629576335_ (let () (declare (not safe)) - (##car _$tgt110919110957_))) - (_$tl110921110963_ + (##car _$tgt7629476332_))) + (_$tl7629676338_ (let () (declare (not safe)) - (##cdr _$tgt110919110957_)))) - (if (let ((__tmp116220 + (##cdr _$tgt7629476332_)))) + (if (let ((__tmp76843 (let () (declare (not safe)) - (__AST-e _$hd110920110960_)))) + (__AST-e _$hd7629576335_)))) (declare (not safe)) - (equal? __tmp116220 '#f)) - (if (let ((__tmp116219 + (equal? __tmp76843 '#f)) + (if (let ((__tmp76842 (let () (declare (not safe)) - (__AST-e _$tl110921110963_)))) + (__AST-e _$tl7629676338_)))) (declare (not safe)) - (equal? __tmp116219 '())) + (equal? __tmp76842 '())) (let () (declare (not safe)) - (__compile _expr110909_)) + (__compile _expr76284_)) (let () (declare (not safe)) - (_$E110913110954_))) + (_$E7628876329_))) (let () (declare (not safe)) - (_$E110913110954_)))) + (_$E7628876329_)))) (let () (declare (not safe)) - (_$E110913110954_)))) + (_$E7628876329_)))) (let () (declare (not safe)) - (_$E110862110874_))))) - (let () (declare (not safe)) (_$E110862110874_))))) - (let () (declare (not safe)) (_$E110862110874_)))) - (let () (declare (not safe)) (_$E110862110874_)))))) + (_$E7623776249_))))) + (let () (declare (not safe)) (_$E7623776249_))))) + (let () (declare (not safe)) (_$E7623776249_)))) + (let () (declare (not safe)) (_$E7623776249_)))))) (define __compile-head-id - (lambda (_e110856_) - (let ((__tmp116222 - (if (let () (declare (not safe)) (__AST-e _e110856_)) - _e110856_ + (lambda (_e76231_) + (let ((__tmp76845 + (if (let () (declare (not safe)) (__AST-e _e76231_)) + _e76231_ (gensym)))) (declare (not safe)) - (__SRC__0 __tmp116222)))) + (__SRC__0 __tmp76845)))) (define __compile-lambda-head - (lambda (_hd110813_) - (let _recur110815_ ((_rest110817_ _hd110813_)) - (let* ((_$e110819_ _rest110817_) - (_$E110821110839_ + (lambda (_hd76188_) + (let _recur76190_ ((_rest76192_ _hd76188_)) + (let* ((_$e76194_ _rest76192_) + (_$E7619676214_ (lambda () - (let ((_$E110822110836_ + (let ((_$E7619776211_ (lambda () - (let* ((_$E110823110831_ + (let* ((_$E7619876206_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e110819_)))) - (_tail110834_ _$e110819_)) + _$e76194_)))) + (_tail76209_ _$e76194_)) (declare (not safe)) - (__compile-head-id _tail110834_))))) - (if (let ((__tmp116223 + (__compile-head-id _tail76209_))))) + (if (let ((__tmp76846 (let () (declare (not safe)) - (__AST-e _$e110819_)))) + (__AST-e _$e76194_)))) (declare (not safe)) - (equal? __tmp116223 '())) + (equal? __tmp76846 '())) '() - (let () (declare (not safe)) (_$E110822110836_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e110819_)) - (let* ((_$tgt110824110842_ - (let () (declare (not safe)) (__AST-e _$e110819_))) - (_$hd110825110845_ + (let () (declare (not safe)) (_$E7619776211_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e76194_)) + (let* ((_$tgt7619976217_ + (let () (declare (not safe)) (__AST-e _$e76194_))) + (_$hd7620076220_ + (let () (declare (not safe)) (##car _$tgt7619976217_))) + (_$tl7620176223_ (let () (declare (not safe)) - (##car _$tgt110824110842_))) - (_$tl110826110848_ - (let () - (declare (not safe)) - (##cdr _$tgt110824110842_)))) - (let* ((_hd110852_ _$hd110825110845_) - (_rest110854_ _$tl110826110848_)) - (let ((__tmp116225 + (##cdr _$tgt7619976217_)))) + (let* ((_hd76227_ _$hd7620076220_) + (_rest76229_ _$tl7620176223_)) + (let ((__tmp76848 (let () (declare (not safe)) - (__compile-head-id _hd110852_))) - (__tmp116224 + (__compile-head-id _hd76227_))) + (__tmp76847 (let () (declare (not safe)) - (_recur110815_ _rest110854_)))) + (_recur76190_ _rest76229_)))) (declare (not safe)) - (cons __tmp116225 __tmp116224)))) - (let () (declare (not safe)) (_$E110821110839_))))))) + (cons __tmp76848 __tmp76847)))) + (let () (declare (not safe)) (_$E7619676214_))))))) (define __compile-lambda% - (lambda (_stx110760_) - (let* ((_$e110762_ _stx110760_) - (_$E110764110776_ + (lambda (_stx76135_) + (let* ((_$e76137_ _stx76135_) + (_$E7613976151_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e110762_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e110762_)) - (let* ((_$tgt110765110779_ - (let () (declare (not safe)) (__AST-e _$e110762_))) - (_$hd110766110782_ - (let () (declare (not safe)) (##car _$tgt110765110779_))) - (_$tl110767110785_ - (let () - (declare (not safe)) - (##cdr _$tgt110765110779_)))) - (if (let () - (declare (not safe)) - (__AST-pair? _$tl110767110785_)) - (let* ((_$tgt110768110789_ + _$e76137_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e76137_)) + (let* ((_$tgt7614076154_ + (let () (declare (not safe)) (__AST-e _$e76137_))) + (_$hd7614176157_ + (let () (declare (not safe)) (##car _$tgt7614076154_))) + (_$tl7614276160_ + (let () (declare (not safe)) (##cdr _$tgt7614076154_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7614276160_)) + (let* ((_$tgt7614376164_ (let () (declare (not safe)) - (__AST-e _$tl110767110785_))) - (_$hd110769110792_ + (__AST-e _$tl7614276160_))) + (_$hd7614476167_ (let () (declare (not safe)) - (##car _$tgt110768110789_))) - (_$tl110770110795_ + (##car _$tgt7614376164_))) + (_$tl7614576170_ (let () (declare (not safe)) - (##cdr _$tgt110768110789_)))) - (let ((_hd110799_ _$hd110769110792_)) + (##cdr _$tgt7614376164_)))) + (let ((_hd76174_ _$hd7614476167_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl110770110795_)) - (let* ((_$tgt110771110801_ + (__AST-pair? _$tl7614576170_)) + (let* ((_$tgt7614676176_ (let () (declare (not safe)) - (__AST-e _$tl110770110795_))) - (_$hd110772110804_ + (__AST-e _$tl7614576170_))) + (_$hd7614776179_ (let () (declare (not safe)) - (##car _$tgt110771110801_))) - (_$tl110773110807_ + (##car _$tgt7614676176_))) + (_$tl7614876182_ (let () (declare (not safe)) - (##cdr _$tgt110771110801_)))) - (let ((_body110811_ _$hd110772110804_)) - (if (let ((__tmp116231 + (##cdr _$tgt7614676176_)))) + (let ((_body76186_ _$hd7614776179_)) + (if (let ((__tmp76854 (let () (declare (not safe)) - (__AST-e _$tl110773110807_)))) + (__AST-e _$tl7614876182_)))) (declare (not safe)) - (equal? __tmp116231 '())) - (let ((__tmp116226 - (let ((__tmp116227 - (let ((__tmp116230 + (equal? __tmp76854 '())) + (let ((__tmp76849 + (let ((__tmp76850 + (let ((__tmp76853 (let () (declare (not safe)) (__compile-lambda-head - _hd110799_))) - (__tmp116228 - (let ((__tmp116229 + _hd76174_))) + (__tmp76851 + (let ((__tmp76852 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__compile _body110811_)))) + (__compile _body76186_)))) (declare (not safe)) - (cons __tmp116229 '())))) + (cons __tmp76852 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp116230 - __tmp116228)))) + (cons __tmp76853 + __tmp76851)))) (declare (not safe)) - (cons 'lambda __tmp116227)))) + (cons 'lambda __tmp76850)))) (declare (not safe)) - (__SRC__% __tmp116226 _stx110760_)) + (__SRC__% __tmp76849 _stx76135_)) (let () (declare (not safe)) - (_$E110764110776_))))) - (let () (declare (not safe)) (_$E110764110776_))))) - (let () (declare (not safe)) (_$E110764110776_)))) - (let () (declare (not safe)) (_$E110764110776_)))))) + (_$E7613976151_))))) + (let () (declare (not safe)) (_$E7613976151_))))) + (let () (declare (not safe)) (_$E7613976151_)))) + (let () (declare (not safe)) (_$E7613976151_)))))) (define __compile-case-lambda% - (lambda (_stx110552_) - (letrec ((_variadic?110554_ - (lambda (_hd110725_) - (let* ((_$e110727_ _hd110725_) - (_$E110729110745_ + (lambda (_stx75927_) + (letrec ((_variadic?75929_ + (lambda (_hd76100_) + (let* ((_$e76102_ _hd76100_) + (_$E7610476120_ (lambda () - (let ((_$E110730110742_ + (let ((_$E7610576117_ (lambda () - (let ((_$E110731110739_ + (let ((_$E7610676114_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e110727_))))) + _$e76102_))))) '#t)))) - (if (let ((__tmp116232 + (if (let ((__tmp76855 (let () (declare (not safe)) - (__AST-e _$e110727_)))) + (__AST-e _$e76102_)))) (declare (not safe)) - (equal? __tmp116232 '())) + (equal? __tmp76855 '())) '#f (let () (declare (not safe)) - (_$E110730110742_))))))) - (if (let () - (declare (not safe)) - (__AST-pair? _$e110727_)) - (let* ((_$tgt110732110748_ + (_$E7610576117_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e76102_)) + (let* ((_$tgt7610776123_ (let () (declare (not safe)) - (__AST-e _$e110727_))) - (_$hd110733110751_ + (__AST-e _$e76102_))) + (_$hd7610876126_ (let () (declare (not safe)) - (##car _$tgt110732110748_))) - (_$tl110734110754_ + (##car _$tgt7610776123_))) + (_$tl7610976129_ (let () (declare (not safe)) - (##cdr _$tgt110732110748_)))) - (let ((_rest110758_ _$tl110734110754_)) + (##cdr _$tgt7610776123_)))) + (let ((_rest76133_ _$tl7610976129_)) (declare (not safe)) - (_variadic?110554_ _rest110758_))) - (let () (declare (not safe)) (_$E110729110745_)))))) - (_arity110555_ - (lambda (_hd110690_) - (let _lp110692_ ((_rest110694_ _hd110690_) (_k110695_ '0)) - (let* ((_$e110697_ _rest110694_) - (_$E110699110710_ + (_variadic?75929_ _rest76133_))) + (let () (declare (not safe)) (_$E7610476120_)))))) + (_arity75930_ + (lambda (_hd76065_) + (let _lp76067_ ((_rest76069_ _hd76065_) (_k76070_ '0)) + (let* ((_$e76072_ _rest76069_) + (_$E7607476085_ (lambda () - (let ((_$E110700110707_ + (let ((_$E7607576082_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e110697_))))) - _k110695_)))) + _$e76072_))))) + _k76070_)))) (if (let () (declare (not safe)) - (__AST-pair? _$e110697_)) - (let* ((_$tgt110701110713_ + (__AST-pair? _$e76072_)) + (let* ((_$tgt7607676088_ (let () (declare (not safe)) - (__AST-e _$e110697_))) - (_$hd110702110716_ + (__AST-e _$e76072_))) + (_$hd7607776091_ (let () (declare (not safe)) - (##car _$tgt110701110713_))) - (_$tl110703110719_ + (##car _$tgt7607676088_))) + (_$tl7607876094_ (let () (declare (not safe)) - (##cdr _$tgt110701110713_)))) - (let* ((_rest110723_ _$tl110703110719_) - (__tmp116233 + (##cdr _$tgt7607676088_)))) + (let* ((_rest76098_ _$tl7607876094_) + (__tmp76856 (let () (declare (not safe)) - (fx+ _k110695_ '1)))) + (fx+ _k76070_ '1)))) (declare (not safe)) - (_lp110692_ _rest110723_ __tmp116233))) - (let () - (declare (not safe)) - (_$E110699110710_))))))) - (_generate110556_ - (lambda (_rest110617_ _args110618_ _len110619_) - (let* ((_$e110621_ _rest110617_) - (_$E110623110634_ + (_lp76067_ _rest76098_ __tmp76856))) + (let () (declare (not safe)) (_$E7607476085_))))))) + (_generate75931_ + (lambda (_rest75992_ _args75993_ _len75994_) + (let* ((_$e75996_ _rest75992_) + (_$E7599876009_ (lambda () - (let* ((_$E110624110631_ + (let* ((_$E7599976006_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e110621_)))) - (__tmp116234 - (let ((__tmp116235 - (let ((__tmp116236 + _$e75996_)))) + (__tmp76857 + (let ((__tmp76858 + (let ((__tmp76859 (let () (declare (not safe)) - (cons _args110618_ - '())))) + (cons _args75993_ '())))) (declare (not safe)) (cons '"No clause matching arguments" - __tmp116236)))) + __tmp76859)))) (declare (not safe)) - (cons 'error __tmp116235)))) + (cons 'error __tmp76858)))) (declare (not safe)) - (__SRC__% __tmp116234 _stx110552_))))) - (if (let () - (declare (not safe)) - (__AST-pair? _$e110621_)) - (let* ((_$tgt110625110637_ + (__SRC__% __tmp76857 _stx75927_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e75996_)) + (let* ((_$tgt7600076012_ (let () (declare (not safe)) - (__AST-e _$e110621_))) - (_$hd110626110640_ + (__AST-e _$e75996_))) + (_$hd7600176015_ (let () (declare (not safe)) - (##car _$tgt110625110637_))) - (_$tl110627110643_ + (##car _$tgt7600076012_))) + (_$tl7600276018_ (let () (declare (not safe)) - (##cdr _$tgt110625110637_)))) - (let* ((_clause110647_ _$hd110626110640_) - (_rest110649_ _$tl110627110643_) - (_$e110651_ _clause110647_) - (_$E110653110662_ + (##cdr _$tgt7600076012_)))) + (let* ((_clause76022_ _$hd7600176015_) + (_rest76024_ _$tl7600276018_) + (_$e76026_ _clause76022_) + (_$E7602876037_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e110651_))))) + _$e76026_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e110651_)) - (let* ((_$tgt110654110665_ + (__AST-pair? _$e76026_)) + (let* ((_$tgt7602976040_ (let () (declare (not safe)) - (__AST-e _$e110651_))) - (_$hd110655110668_ + (__AST-e _$e76026_))) + (_$hd7603076043_ (let () (declare (not safe)) - (##car _$tgt110654110665_))) - (_$tl110656110671_ + (##car _$tgt7602976040_))) + (_$tl7603176046_ (let () (declare (not safe)) - (##cdr _$tgt110654110665_)))) - (let ((_hd110675_ _$hd110655110668_)) + (##cdr _$tgt7602976040_)))) + (let ((_hd76050_ _$hd7603076043_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl110656110671_)) - (let* ((_$tgt110657110677_ + (__AST-pair? _$tl7603176046_)) + (let* ((_$tgt7603276052_ (let () (declare (not safe)) - (__AST-e _$tl110656110671_))) - (_$hd110658110680_ + (__AST-e _$tl7603176046_))) + (_$hd7603376055_ (let () (declare (not safe)) - (##car _$tgt110657110677_))) - (_$tl110659110683_ + (##car _$tgt7603276052_))) + (_$tl7603476058_ (let () (declare (not safe)) - (##cdr _$tgt110657110677_)))) - (if (let ((__tmp116251 + (##cdr _$tgt7603276052_)))) + (if (let ((__tmp76874 (let () (declare (not safe)) - (__AST-e _$tl110659110683_)))) + (__AST-e _$tl7603476058_)))) (declare (not safe)) - (equal? __tmp116251 '())) - (let ((_clen110687_ + (equal? __tmp76874 '())) + (let ((_clen76062_ (let () (declare (not safe)) - (_arity110555_ - _hd110675_))) - (_cmp110688_ + (_arity75930_ + _hd76050_))) + (_cmp76063_ (if (let () (declare (not safe)) - (_variadic?110554_ - _hd110675_)) + (_variadic?75929_ + _hd76050_)) 'fx>= 'fx=))) - (let ((__tmp116237 - (let ((__tmp116238 - (let ((__tmp116248 + (let ((__tmp76860 + (let ((__tmp76861 + (let ((__tmp76871 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp116249 - (let ((__tmp116250 + (let ((__tmp76872 + (let ((__tmp76873 (let () (declare (not safe)) - (cons _clen110687_ '())))) + (cons _clen76062_ '())))) (declare (not safe)) - (cons _len110619_ __tmp116250)))) + (cons _len75994_ __tmp76873)))) (declare (not safe)) - (cons _cmp110688_ __tmp116249))) - (__tmp116239 - (let ((__tmp116242 - (let ((__tmp116243 - (let ((__tmp116244 - (let ((__tmp116246 - (let ((__tmp116247 + (cons _cmp76063_ __tmp76872))) + (__tmp76862 + (let ((__tmp76865 + (let ((__tmp76866 + (let ((__tmp76867 + (let ((__tmp76869 + (let ((__tmp76870 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons '%#lambda _clause110647_)))) + (cons '%#lambda _clause76022_)))) (declare (not safe)) - (__compile-lambda% __tmp116247))) - (__tmp116245 - (let () (declare (not safe)) (cons _args110618_ '())))) + (__compile-lambda% __tmp76870))) + (__tmp76868 + (let () (declare (not safe)) (cons _args75993_ '())))) (declare (not safe)) - (cons __tmp116246 __tmp116245)))) + (cons __tmp76869 __tmp76868)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '##apply __tmp116244)))) + (cons '##apply __tmp76867)))) (declare (not safe)) - (__SRC__% __tmp116243 _stx110552_))) - (__tmp116240 - (let ((__tmp116241 + (__SRC__% __tmp76866 _stx75927_))) + (__tmp76863 + (let ((__tmp76864 (let () (declare (not safe)) - (_generate110556_ - _rest110649_ - _args110618_ - _len110619_)))) + (_generate75931_ + _rest76024_ + _args75993_ + _len75994_)))) (declare (not safe)) - (cons __tmp116241 '())))) + (cons __tmp76864 '())))) (declare (not safe)) - (cons __tmp116242 __tmp116240)))) + (cons __tmp76865 __tmp76863)))) (declare (not safe)) - (cons __tmp116248 __tmp116239)))) + (cons __tmp76871 __tmp76862)))) (declare (not safe)) - (cons 'if __tmp116238)))) + (cons 'if __tmp76861)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp116237 - _stx110552_))) + __tmp76860 + _stx75927_))) (let () (declare (not safe)) - (_$E110653110662_)))) + (_$E7602876037_)))) (let () (declare (not safe)) - (_$E110653110662_))))) + (_$E7602876037_))))) (let () (declare (not safe)) - (_$E110653110662_))))) - (let () (declare (not safe)) (_$E110623110634_))))))) - (let* ((_$e110558_ _stx110552_) - (_$E110560110592_ + (_$E7602876037_))))) + (let () (declare (not safe)) (_$E7599876009_))))))) + (let* ((_$e75933_ _stx75927_) + (_$E7593575967_ (lambda () - (let ((_$E110561110574_ + (let ((_$E7593675949_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e110558_))))) - (if (let () - (declare (not safe)) - (__AST-pair? _$e110558_)) - (let* ((_$tgt110562110577_ + _$e75933_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e75933_)) + (let* ((_$tgt7593775952_ (let () (declare (not safe)) - (__AST-e _$e110558_))) - (_$hd110563110580_ + (__AST-e _$e75933_))) + (_$hd7593875955_ (let () (declare (not safe)) - (##car _$tgt110562110577_))) - (_$tl110564110583_ + (##car _$tgt7593775952_))) + (_$tl7593975958_ (let () (declare (not safe)) - (##cdr _$tgt110562110577_)))) - (let ((_clauses110587_ _$tl110564110583_)) - (let ((_args110589_ - (let ((__tmp116252 (gensym))) + (##cdr _$tgt7593775952_)))) + (let ((_clauses75962_ _$tl7593975958_)) + (let ((_args75964_ + (let ((__tmp76875 (gensym))) (declare (not safe)) - (__SRC__% __tmp116252 _stx110552_))) - (_len110590_ - (let ((__tmp116253 (gensym))) + (__SRC__% __tmp76875 _stx75927_))) + (_len75965_ + (let ((__tmp76876 (gensym))) (declare (not safe)) - (__SRC__% __tmp116253 _stx110552_)))) - (let ((__tmp116254 - (let ((__tmp116255 - (let ((__tmp116256 - (let ((__tmp116257 - (let ((__tmp116258 + (__SRC__% __tmp76876 _stx75927_)))) + (let ((__tmp76877 + (let ((__tmp76878 + (let ((__tmp76879 + (let ((__tmp76880 + (let ((__tmp76881 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp116259 - (let ((__tmp116262 - (let ((__tmp116263 - (let ((__tmp116264 - (let ((__tmp116265 - (let ((__tmp116266 + (let ((__tmp76882 + (let ((__tmp76885 + (let ((__tmp76886 + (let ((__tmp76887 + (let ((__tmp76888 + (let ((__tmp76889 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp116267 + (let ((__tmp76890 (let () (declare (not safe)) - (cons _args110589_ '())))) + (cons _args75964_ '())))) (declare (not safe)) - (cons '##length __tmp116267)))) + (cons '##length __tmp76890)))) (declare (not safe)) - (__SRC__% __tmp116266 _stx110552_)))) + (__SRC__% __tmp76889 _stx75927_)))) (declare (not safe)) - (cons __tmp116265 '())))) + (cons __tmp76888 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _len110590_ - __tmp116264)))) + (cons _len75965_ + __tmp76887)))) (declare (not safe)) - (cons __tmp116263 '()))) - (__tmp116260 - (let ((__tmp116261 + (cons __tmp76886 '()))) + (__tmp76883 + (let ((__tmp76884 (let () (declare (not safe)) - (_generate110556_ - _clauses110587_ - _args110589_ - _len110590_)))) + (_generate75931_ + _clauses75962_ + _args75964_ + _len75965_)))) (declare (not safe)) - (cons __tmp116261 '())))) + (cons __tmp76884 '())))) (declare (not safe)) - (cons __tmp116262 __tmp116260)))) + (cons __tmp76885 __tmp76883)))) (declare (not safe)) - (cons 'let __tmp116259)))) + (cons 'let __tmp76882)))) (declare (not safe)) - (__SRC__% __tmp116258 _stx110552_)))) + (__SRC__% __tmp76881 _stx75927_)))) (declare (not safe)) - (cons __tmp116257 '())))) + (cons __tmp76880 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _args110589_ - __tmp116256)))) + (cons _args75964_ + __tmp76879)))) (declare (not safe)) - (cons 'lambda __tmp116255)))) + (cons 'lambda __tmp76878)))) (declare (not safe)) - (__SRC__% __tmp116254 _stx110552_))))) - (let () (declare (not safe)) (_$E110561110574_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e110558_)) - (let* ((_$tgt110565110595_ - (let () (declare (not safe)) (__AST-e _$e110558_))) - (_$hd110566110598_ + (__SRC__% __tmp76877 _stx75927_))))) + (let () (declare (not safe)) (_$E7593675949_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e75933_)) + (let* ((_$tgt7594075970_ + (let () (declare (not safe)) (__AST-e _$e75933_))) + (_$hd7594175973_ + (let () (declare (not safe)) (##car _$tgt7594075970_))) + (_$tl7594275976_ (let () (declare (not safe)) - (##car _$tgt110565110595_))) - (_$tl110567110601_ - (let () - (declare (not safe)) - (##cdr _$tgt110565110595_)))) + (##cdr _$tgt7594075970_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl110567110601_)) - (let* ((_$tgt110568110605_ + (__AST-pair? _$tl7594275976_)) + (let* ((_$tgt7594375980_ (let () (declare (not safe)) - (__AST-e _$tl110567110601_))) - (_$hd110569110608_ + (__AST-e _$tl7594275976_))) + (_$hd7594475983_ (let () (declare (not safe)) - (##car _$tgt110568110605_))) - (_$tl110570110611_ + (##car _$tgt7594375980_))) + (_$tl7594575986_ (let () (declare (not safe)) - (##cdr _$tgt110568110605_)))) - (let ((_clause110615_ _$hd110569110608_)) - (if (let ((__tmp116269 + (##cdr _$tgt7594375980_)))) + (let ((_clause75990_ _$hd7594475983_)) + (if (let ((__tmp76892 (let () (declare (not safe)) - (__AST-e _$tl110570110611_)))) + (__AST-e _$tl7594575986_)))) (declare (not safe)) - (equal? __tmp116269 '())) - (let ((__tmp116268 + (equal? __tmp76892 '())) + (let ((__tmp76891 (let () (declare (not safe)) - (cons '%#lambda _clause110615_)))) + (cons '%#lambda _clause75990_)))) (declare (not safe)) - (__compile-lambda% __tmp116268)) - (let () - (declare (not safe)) - (_$E110560110592_))))) - (let () (declare (not safe)) (_$E110560110592_)))) - (let () (declare (not safe)) (_$E110560110592_))))))) + (__compile-lambda% __tmp76891)) + (let () (declare (not safe)) (_$E7593575967_))))) + (let () (declare (not safe)) (_$E7593575967_)))) + (let () (declare (not safe)) (_$E7593575967_))))))) (define __compile-let-form - (lambda (_stx110321_ _compile-simple110322_ _compile-values110323_) - (letrec ((_simple-bind?110325_ - (lambda (_hd110510_) - (let* ((_hd110511110521_ _hd110510_) - (_else110514110529_ (lambda () '#f))) - (let ((_K110517110542_ (lambda (_id110540_) '#t)) - (_K110516110534_ (lambda () '#t))) - (let ((_try-match110513110537_ + (lambda (_stx75696_ _compile-simple75697_ _compile-values75698_) + (letrec ((_simple-bind?75700_ + (lambda (_hd75885_) + (let* ((_hd7588675896_ _hd75885_) + (_else7588975904_ (lambda () '#f))) + (let ((_K7589275917_ (lambda (_id75915_) '#t)) + (_K7589175909_ (lambda () '#t))) + (let ((_try-match7588875912_ (lambda () (if (let () (declare (not safe)) - (##eq? _hd110511110521_ '#f)) + (##eq? _hd7588675896_ '#f)) (let () (declare (not safe)) - (_K110516110534_)) + (_K7589175909_)) (let () (declare (not safe)) - (_else110514110529_)))))) + (_else7588975904_)))))) (if (let () (declare (not safe)) - (##pair? _hd110511110521_)) - (let ((_tl110519110547_ + (##pair? _hd7588675896_)) + (let ((_tl7589475922_ (let () (declare (not safe)) - (##cdr _hd110511110521_))) - (_hd110518110545_ + (##cdr _hd7588675896_))) + (_hd7589375920_ (let () (declare (not safe)) - (##car _hd110511110521_)))) + (##car _hd7588675896_)))) (if (let () (declare (not safe)) - (##null? _tl110519110547_)) - (let ((_id110550_ _hd110518110545_)) + (##null? _tl7589475922_)) + (let ((_id75925_ _hd7589375920_)) (declare (not safe)) - (_K110517110542_ _id110550_)) + (_K7589275917_ _id75925_)) (let () (declare (not safe)) - (_try-match110513110537_)))) + (_try-match7588875912_)))) (let () (declare (not safe)) - (_try-match110513110537_)))))))) - (_car-e110326_ - (lambda (_hd110508_) - (if (let () (declare (not safe)) (pair? _hd110508_)) - (car _hd110508_) - _hd110508_)))) - (let* ((_$e110328_ _stx110321_) - (_$E110330110473_ + (_try-match7588875912_)))))))) + (_car-e75701_ + (lambda (_hd75883_) + (if (let () (declare (not safe)) (pair? _hd75883_)) + (car _hd75883_) + _hd75883_)))) + (let* ((_$e75703_ _stx75696_) + (_$E7570575848_ (lambda () - (let ((_$E110331110353_ + (let ((_$E7570675728_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e110328_))))) - (if (let () - (declare (not safe)) - (__AST-pair? _$e110328_)) - (let* ((_$tgt110332110356_ + _$e75703_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e75703_)) + (let* ((_$tgt7570775731_ (let () (declare (not safe)) - (__AST-e _$e110328_))) - (_$hd110333110359_ + (__AST-e _$e75703_))) + (_$hd7570875734_ (let () (declare (not safe)) - (##car _$tgt110332110356_))) - (_$tl110334110362_ + (##car _$tgt7570775731_))) + (_$tl7570975737_ (let () (declare (not safe)) - (##cdr _$tgt110332110356_)))) + (##cdr _$tgt7570775731_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl110334110362_)) - (let* ((_$tgt110335110366_ + (__AST-pair? _$tl7570975737_)) + (let* ((_$tgt7571075741_ (let () (declare (not safe)) - (__AST-e _$tl110334110362_))) - (_$hd110336110369_ + (__AST-e _$tl7570975737_))) + (_$hd7571175744_ (let () (declare (not safe)) - (##car _$tgt110335110366_))) - (_$tl110337110372_ + (##car _$tgt7571075741_))) + (_$tl7571275747_ (let () (declare (not safe)) - (##cdr _$tgt110335110366_)))) - (let ((_hd110376_ _$hd110336110369_)) + (##cdr _$tgt7571075741_)))) + (let ((_hd75751_ _$hd7571175744_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl110337110372_)) - (let* ((_$tgt110338110378_ + (__AST-pair? _$tl7571275747_)) + (let* ((_$tgt7571375753_ (let () (declare (not safe)) - (__AST-e _$tl110337110372_))) - (_$hd110339110381_ + (__AST-e _$tl7571275747_))) + (_$hd7571475756_ (let () (declare (not safe)) - (##car _$tgt110338110378_))) - (_$tl110340110384_ + (##car _$tgt7571375753_))) + (_$tl7571575759_ (let () (declare (not safe)) - (##cdr _$tgt110338110378_)))) - (let ((_body110388_ - _$hd110339110381_)) - (if (let ((__tmp116272 + (##cdr _$tgt7571375753_)))) + (let ((_body75763_ _$hd7571475756_)) + (if (let ((__tmp76895 (let () (declare (not safe)) - (__AST-e _$tl110340110384_)))) + (__AST-e _$tl7571575759_)))) (declare (not safe)) - (equal? __tmp116272 '())) - (let* ((_hd-ids110428_ - (map (lambda (_bind110390_) - (let* ((_$e110392_ + (equal? __tmp76895 '())) + (let* ((_hd-ids75803_ + (map (lambda (_bind75765_) + (let* ((_$e75767_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind110390_) - (_$E110394110403_ + _bind75765_) + (_$E7576975778_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e110392_))))) + _$e75767_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e110392_)) - (let* ((_$tgt110395110406_ + (__AST-pair? _$e75767_)) + (let* ((_$tgt7577075781_ (let () (declare (not safe)) - (__AST-e _$e110392_))) - (_$hd110396110409_ + (__AST-e _$e75767_))) + (_$hd7577175784_ (let () (declare (not safe)) - (##car _$tgt110395110406_))) - (_$tl110397110412_ + (##car _$tgt7577075781_))) + (_$tl7577275787_ (let () (declare (not safe)) - (##cdr _$tgt110395110406_)))) - (let ((_ids110416_ _$hd110396110409_)) + (##cdr _$tgt7577075781_)))) + (let ((_ids75791_ _$hd7577175784_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl110397110412_)) - (let* ((_$tgt110398110418_ + (__AST-pair? _$tl7577275787_)) + (let* ((_$tgt7577375793_ (let () (declare (not safe)) - (__AST-e _$tl110397110412_))) - (_$hd110399110421_ + (__AST-e _$tl7577275787_))) + (_$hd7577475796_ (let () (declare (not safe)) - (##car _$tgt110398110418_))) - (_$tl110400110424_ + (##car _$tgt7577375793_))) + (_$tl7577575799_ (let () (declare (not safe)) - (##cdr _$tgt110398110418_)))) - (if (let ((__tmp116270 + (##cdr _$tgt7577375793_)))) + (if (let ((__tmp76893 (let () (declare (not safe)) - (__AST-e _$tl110400110424_)))) + (__AST-e _$tl7577575799_)))) (declare (not safe)) - (equal? __tmp116270 '())) - _ids110416_ + (equal? __tmp76893 '())) + _ids75791_ (let () (declare (not safe)) - (_$E110394110403_)))) + (_$E7576975778_)))) (let () (declare (not safe)) - (_$E110394110403_))))) - (let () - (declare (not safe)) - (_$E110394110403_))))) - _hd110376_)) - (_exprs110468_ - (map (lambda (_bind110430_) - (let* ((_$e110432_ _bind110430_) - (_$E110434110443_ + (_$E7576975778_))))) + (let () (declare (not safe)) (_$E7576975778_))))) + _hd75751_)) + (_exprs75843_ + (map (lambda (_bind75805_) + (let* ((_$e75807_ _bind75805_) + (_$E7580975818_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e110432_))))) + _$e75807_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e110432_)) - (let* ((_$tgt110435110446_ + (__AST-pair? _$e75807_)) + (let* ((_$tgt7581075821_ (let () (declare (not safe)) - (__AST-e _$e110432_))) - (_$hd110436110449_ + (__AST-e _$e75807_))) + (_$hd7581175824_ (let () (declare (not safe)) - (##car _$tgt110435110446_))) - (_$tl110437110452_ + (##car _$tgt7581075821_))) + (_$tl7581275827_ (let () (declare (not safe)) - (##cdr _$tgt110435110446_)))) + (##cdr _$tgt7581075821_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl110437110452_)) - (let* ((_$tgt110438110456_ + (__AST-pair? _$tl7581275827_)) + (let* ((_$tgt7581375831_ (let () (declare (not safe)) - (__AST-e _$tl110437110452_))) - (_$hd110439110459_ + (__AST-e _$tl7581275827_))) + (_$hd7581475834_ (let () (declare (not safe)) - (##car _$tgt110438110456_))) - (_$tl110440110462_ + (##car _$tgt7581375831_))) + (_$tl7581575837_ (let () (declare (not safe)) - (##cdr _$tgt110438110456_)))) - (let ((_expr110466_ _$hd110439110459_)) - (if (let ((__tmp116271 + (##cdr _$tgt7581375831_)))) + (let ((_expr75841_ _$hd7581475834_)) + (if (let ((__tmp76894 (let () (declare (not safe)) - (__AST-e _$tl110440110462_)))) + (__AST-e _$tl7581575837_)))) (declare (not safe)) - (equal? __tmp116271 '())) + (equal? __tmp76894 '())) (let () (declare (not safe)) - (__compile _expr110466_)) + (__compile _expr75841_)) (let () (declare (not safe)) - (_$E110434110443_))))) + (_$E7580975818_))))) (let () (declare (not safe)) - (_$E110434110443_)))) - (let () - (declare (not safe)) - (_$E110434110443_))))) - _hd110376_)) - (_body110470_ - (let () (declare (not safe)) (__compile _body110388_)))) + (_$E7580975818_)))) + (let () (declare (not safe)) (_$E7580975818_))))) + _hd75751_)) + (_body75845_ + (let () (declare (not safe)) (__compile _body75763_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (andmap1 _simple-bind?110325_ + (andmap1 _simple-bind?75700_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd-ids110428_)) - (_compile-simple110322_ - (map _car-e110326_ _hd-ids110428_) - _exprs110468_ - _body110470_) - (_compile-values110323_ - _hd-ids110428_ - _exprs110468_ - _body110470_))) + _hd-ids75803_)) + (_compile-simple75697_ + (map _car-e75701_ _hd-ids75803_) + _exprs75843_ + _body75845_) + (_compile-values75698_ _hd-ids75803_ _exprs75843_ _body75845_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_$E110331110353_))))) + (_$E7570675728_))))) (let () (declare (not safe)) - (_$E110331110353_))))) + (_$E7570675728_))))) (let () (declare (not safe)) - (_$E110331110353_)))) - (let () (declare (not safe)) (_$E110331110353_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e110328_)) - (let* ((_$tgt110341110476_ - (let () (declare (not safe)) (__AST-e _$e110328_))) - (_$hd110342110479_ + (_$E7570675728_)))) + (let () (declare (not safe)) (_$E7570675728_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e75703_)) + (let* ((_$tgt7571675851_ + (let () (declare (not safe)) (__AST-e _$e75703_))) + (_$hd7571775854_ + (let () (declare (not safe)) (##car _$tgt7571675851_))) + (_$tl7571875857_ (let () (declare (not safe)) - (##car _$tgt110341110476_))) - (_$tl110343110482_ - (let () - (declare (not safe)) - (##cdr _$tgt110341110476_)))) + (##cdr _$tgt7571675851_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl110343110482_)) - (let* ((_$tgt110344110486_ + (__AST-pair? _$tl7571875857_)) + (let* ((_$tgt7571975861_ (let () (declare (not safe)) - (__AST-e _$tl110343110482_))) - (_$hd110345110489_ + (__AST-e _$tl7571875857_))) + (_$hd7572075864_ (let () (declare (not safe)) - (##car _$tgt110344110486_))) - (_$tl110346110492_ + (##car _$tgt7571975861_))) + (_$tl7572175867_ (let () (declare (not safe)) - (##cdr _$tgt110344110486_)))) - (if (let ((__tmp116274 + (##cdr _$tgt7571975861_)))) + (if (let ((__tmp76897 (let () (declare (not safe)) - (__AST-e _$hd110345110489_)))) + (__AST-e _$hd7572075864_)))) (declare (not safe)) - (equal? __tmp116274 '())) + (equal? __tmp76897 '())) (if (let () (declare (not safe)) - (__AST-pair? _$tl110346110492_)) - (let* ((_$tgt110347110496_ + (__AST-pair? _$tl7572175867_)) + (let* ((_$tgt7572275871_ (let () (declare (not safe)) - (__AST-e _$tl110346110492_))) - (_$hd110348110499_ + (__AST-e _$tl7572175867_))) + (_$hd7572375874_ (let () (declare (not safe)) - (##car _$tgt110347110496_))) - (_$tl110349110502_ + (##car _$tgt7572275871_))) + (_$tl7572475877_ (let () (declare (not safe)) - (##cdr _$tgt110347110496_)))) - (let ((_body110506_ _$hd110348110499_)) - (if (let ((__tmp116273 + (##cdr _$tgt7572275871_)))) + (let ((_body75881_ _$hd7572375874_)) + (if (let ((__tmp76896 (let () (declare (not safe)) - (__AST-e _$tl110349110502_)))) + (__AST-e _$tl7572475877_)))) (declare (not safe)) - (equal? __tmp116273 '())) + (equal? __tmp76896 '())) (let () (declare (not safe)) - (__compile _body110506_)) + (__compile _body75881_)) (let () (declare (not safe)) - (_$E110330110473_))))) - (let () - (declare (not safe)) - (_$E110330110473_))) - (let () (declare (not safe)) (_$E110330110473_)))) - (let () (declare (not safe)) (_$E110330110473_)))) - (let () (declare (not safe)) (_$E110330110473_))))))) + (_$E7570575848_))))) + (let () (declare (not safe)) (_$E7570575848_))) + (let () (declare (not safe)) (_$E7570575848_)))) + (let () (declare (not safe)) (_$E7570575848_)))) + (let () (declare (not safe)) (_$E7570575848_))))))) (define __compile-let-values% - (lambda (_stx110136_) - (letrec ((_compile-simple110138_ - (lambda (_hd-ids110317_ _exprs110318_ _body110319_) - (let ((__tmp116275 - (let ((__tmp116276 - (let ((__tmp116278 + (lambda (_stx75511_) + (letrec ((_compile-simple75513_ + (lambda (_hd-ids75692_ _exprs75693_ _body75694_) + (let ((__tmp76898 + (let ((__tmp76899 + (let ((__tmp76901 (map list (map __compile-head-id - _hd-ids110317_) - _exprs110318_)) - (__tmp116277 + _hd-ids75692_) + _exprs75693_)) + (__tmp76900 (let () (declare (not safe)) - (cons _body110319_ '())))) + (cons _body75694_ '())))) (declare (not safe)) - (cons __tmp116278 __tmp116277)))) + (cons __tmp76901 __tmp76900)))) (declare (not safe)) - (cons 'let __tmp116276)))) + (cons 'let __tmp76899)))) (declare (not safe)) - (__SRC__% __tmp116275 _stx110136_)))) - (_compile-values110139_ - (lambda (_hd-ids110235_ _exprs110236_ _body110237_) - (let _lp110239_ ((_rest110241_ _hd-ids110235_) - (_exprs110242_ _exprs110236_) - (_bind110243_ '()) - (_post110244_ '())) - (let* ((_rest110245110259_ _rest110241_) - (_else110248110267_ + (__SRC__% __tmp76898 _stx75511_)))) + (_compile-values75514_ + (lambda (_hd-ids75610_ _exprs75611_ _body75612_) + (let _lp75614_ ((_rest75616_ _hd-ids75610_) + (_exprs75617_ _exprs75611_) + (_bind75618_ '()) + (_post75619_ '())) + (let* ((_rest7562075634_ _rest75616_) + (_else7562375642_ (lambda () - (let ((__tmp116279 - (let ((__tmp116280 - (let ((__tmp116283 - (reverse _bind110243_)) - (__tmp116281 - (let ((__tmp116282 + (let ((__tmp76902 + (let ((__tmp76903 + (let ((__tmp76906 + (reverse _bind75618_)) + (__tmp76904 + (let ((__tmp76905 (let () (declare (not safe)) - (_compile-post110140_ - _post110244_ - _body110237_)))) + (_compile-post75515_ + _post75619_ + _body75612_)))) (declare (not safe)) - (cons __tmp116282 - '())))) + (cons __tmp76905 '())))) (declare (not safe)) - (cons __tmp116283 - __tmp116281)))) + (cons __tmp76906 __tmp76904)))) (declare (not safe)) - (cons 'let __tmp116280)))) + (cons 'let __tmp76903)))) (declare (not safe)) - (__SRC__% __tmp116279 _stx110136_))))) - (let ((_K110253110300_ - (lambda (_rest110297_ _id110298_) - (let ((__tmp116289 (cdr _exprs110242_)) - (__tmp116284 - (let ((__tmp116285 - (let ((__tmp116288 + (__SRC__% __tmp76902 _stx75511_))))) + (let ((_K7562875675_ + (lambda (_rest75672_ _id75673_) + (let ((__tmp76912 (cdr _exprs75617_)) + (__tmp76907 + (let ((__tmp76908 + (let ((__tmp76911 (let () (declare (not safe)) (__compile-head-id - _id110298_))) - (__tmp116286 - (let ((__tmp116287 - (car _exprs110242_))) + _id75673_))) + (__tmp76909 + (let ((__tmp76910 + (car _exprs75617_))) (declare (not safe)) - (cons __tmp116287 + (cons __tmp76910 '())))) (declare (not safe)) - (cons __tmp116288 - __tmp116286)))) + (cons __tmp76911 + __tmp76909)))) (declare (not safe)) - (cons __tmp116285 _bind110243_)))) + (cons __tmp76908 _bind75618_)))) (declare (not safe)) - (_lp110239_ - _rest110297_ - __tmp116289 - __tmp116284 - _post110244_)))) - (_K110250110282_ - (lambda (_rest110271_ _hd110272_) + (_lp75614_ + _rest75672_ + __tmp76912 + __tmp76907 + _post75619_)))) + (_K7562575657_ + (lambda (_rest75646_ _hd75647_) (if (let () (declare (not safe)) - (__AST-id? _hd110272_)) - (let ((__tmp116310 (cdr _exprs110242_)) - (__tmp116303 - (let ((__tmp116304 - (let ((__tmp116309 + (__AST-id? _hd75647_)) + (let ((__tmp76933 (cdr _exprs75617_)) + (__tmp76926 + (let ((__tmp76927 + (let ((__tmp76932 (let () (declare (not safe)) (__compile-head-id - _hd110272_))) - (__tmp116305 - (let ((__tmp116306 + _hd75647_))) + (__tmp76928 + (let ((__tmp76929 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp116307 - (let ((__tmp116308 (car _exprs110242_))) + (let ((__tmp76930 + (let ((__tmp76931 (car _exprs75617_))) (declare (not safe)) - (cons __tmp116308 '())))) + (cons __tmp76931 '())))) (declare (not safe)) - (cons 'values->list __tmp116307)))) + (cons 'values->list __tmp76930)))) (declare (not safe)) - (cons __tmp116306 '())))) + (cons __tmp76929 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp116309 - __tmp116305)))) + (cons __tmp76932 + __tmp76928)))) (declare (not safe)) - (cons __tmp116304 - _bind110243_)))) + (cons __tmp76927 _bind75618_)))) (declare (not safe)) - (_lp110239_ - _rest110271_ - __tmp116310 - __tmp116303 - _post110244_)) + (_lp75614_ + _rest75646_ + __tmp76933 + __tmp76926 + _post75619_)) (if (let () (declare (not safe)) - (list? _hd110272_)) - (let* ((_len110274_ - (length _hd110272_)) - (_tmp110276_ - (let ((__tmp116290 (gensym))) + (list? _hd75647_)) + (let* ((_len75649_ (length _hd75647_)) + (_tmp75651_ + (let ((__tmp76913 (gensym))) (declare (not safe)) - (__SRC__0 __tmp116290)))) - (let ((__tmp116302 - (cdr _exprs110242_)) - (__tmp116298 - (let ((__tmp116299 - (let ((__tmp116300 - (let ((__tmp116301 + (__SRC__0 __tmp76913)))) + (let ((__tmp76925 + (cdr _exprs75617_)) + (__tmp76921 + (let ((__tmp76922 + (let ((__tmp76923 + (let ((__tmp76924 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs110242_))) + (car _exprs75617_))) (declare (not safe)) - (cons __tmp116301 '())))) + (cons __tmp76924 '())))) (declare (not safe)) - (cons _tmp110276_ __tmp116300)))) + (cons _tmp75651_ __tmp76923)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp116299 - _bind110243_))) - (__tmp116291 - (let ((__tmp116292 - (let ((__tmp116293 - (let ((__tmp116294 + (cons __tmp76922 + _bind75618_))) + (__tmp76914 + (let ((__tmp76915 + (let ((__tmp76916 + (let ((__tmp76917 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp116296 - (lambda (_id110279_ _k110280_) + (let ((__tmp76919 + (lambda (_id75654_ _k75655_) (if (let () (declare (not safe)) - (__AST-e _id110279_)) - (let ((__tmp116297 + (__AST-e _id75654_)) + (let ((__tmp76920 (let () (declare (not safe)) - (__SRC__0 _id110279_)))) + (__SRC__0 _id75654_)))) (declare (not safe)) - (cons __tmp116297 _k110280_)) + (cons __tmp76920 _k75655_)) '#f))) - (__tmp116295 + (__tmp76918 (let () (declare (not safe)) - (iota _len110274_)))) + (iota__0 _len75649_)))) (declare (not safe)) (filter-map2 - __tmp116296 - _hd110272_ - __tmp116295)))) + __tmp76919 + _hd75647_ + __tmp76918)))) (declare (not safe)) - (cons _len110274_ __tmp116294)))) + (cons _len75649_ __tmp76917)))) (declare (not safe)) - (cons _tmp110276_ __tmp116293)))) + (cons _tmp75651_ __tmp76916)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp116292 - _post110244_)))) + (cons __tmp76915 + _post75619_)))) (declare (not safe)) - (_lp110239_ - _rest110271_ - __tmp116302 - __tmp116298 - __tmp116291))) + (_lp75614_ + _rest75646_ + __tmp76925 + __tmp76921 + __tmp76914))) (let () (declare (not safe)) (__compile-error__% - _stx110136_ - _hd110272_))))))) + _stx75511_ + _hd75647_))))))) (if (let () (declare (not safe)) - (##pair? _rest110245110259_)) - (let ((_tl110255110305_ + (##pair? _rest7562075634_)) + (let ((_tl7563075680_ (let () (declare (not safe)) - (##cdr _rest110245110259_))) - (_hd110254110303_ + (##cdr _rest7562075634_))) + (_hd7562975678_ (let () (declare (not safe)) - (##car _rest110245110259_)))) + (##car _rest7562075634_)))) (if (let () (declare (not safe)) - (##pair? _hd110254110303_)) - (let ((_tl110257110310_ + (##pair? _hd7562975678_)) + (let ((_tl7563275685_ (let () (declare (not safe)) - (##cdr _hd110254110303_))) - (_hd110256110308_ + (##cdr _hd7562975678_))) + (_hd7563175683_ (let () (declare (not safe)) - (##car _hd110254110303_)))) + (##car _hd7562975678_)))) (if (let () (declare (not safe)) - (##null? _tl110257110310_)) - (let ((_id110313_ _hd110256110308_) - (_rest110315_ - _tl110255110305_)) + (##null? _tl7563275685_)) + (let ((_id75688_ _hd7563175683_) + (_rest75690_ _tl7563075680_)) (let () (declare (not safe)) - (_K110253110300_ - _rest110315_ - _id110313_))) - (let ((_hd110290_ _hd110254110303_) - (_rest110292_ - _tl110255110305_)) + (_K7562875675_ + _rest75690_ + _id75688_))) + (let ((_hd75665_ _hd7562975678_) + (_rest75667_ _tl7563075680_)) (let () (declare (not safe)) - (_K110250110282_ - _rest110292_ - _hd110290_))))) - (let ((_hd110290_ _hd110254110303_) - (_rest110292_ _tl110255110305_)) + (_K7562575657_ + _rest75667_ + _hd75665_))))) + (let ((_hd75665_ _hd7562975678_) + (_rest75667_ _tl7563075680_)) (let () (declare (not safe)) - (_K110250110282_ - _rest110292_ - _hd110290_))))) + (_K7562575657_ + _rest75667_ + _hd75665_))))) (let () (declare (not safe)) - (_else110248110267_)))))))) - (_compile-post110140_ - (lambda (_post110142_ _body110143_) - (let _lp110145_ ((_rest110147_ _post110142_) - (_check110148_ '()) - (_bind110149_ '())) - (let* ((_rest110150110162_ _rest110147_) - (_else110152110170_ + (_else7562375642_)))))))) + (_compile-post75515_ + (lambda (_post75517_ _body75518_) + (let _lp75520_ ((_rest75522_ _post75517_) + (_check75523_ '()) + (_bind75524_ '())) + (let* ((_rest7552575537_ _rest75522_) + (_else7552775545_ (lambda () - (let ((__tmp116311 - (let ((__tmp116312 - (let ((__tmp116313 - (let ((__tmp116314 - (let ((__tmp116315 + (let ((__tmp76934 + (let ((__tmp76935 + (let ((__tmp76936 + (let ((__tmp76937 + (let ((__tmp76938 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp116316 - (let ((__tmp116317 + (let ((__tmp76939 + (let ((__tmp76940 (let () (declare (not safe)) - (cons _body110143_ '())))) + (cons _body75518_ '())))) (declare (not safe)) - (cons _bind110149_ __tmp116317)))) + (cons _bind75524_ __tmp76940)))) (declare (not safe)) - (cons 'let __tmp116316)))) + (cons 'let __tmp76939)))) (declare (not safe)) - (__SRC__% __tmp116315 _stx110136_)))) + (__SRC__% __tmp76938 _stx75511_)))) (declare (not safe)) - (cons __tmp116314 '())))) + (cons __tmp76937 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp116313 - _check110148_)))) + __tmp76936 + _check75523_)))) (declare (not safe)) - (cons 'begin __tmp116312)))) + (cons 'begin __tmp76935)))) (declare (not safe)) - (__SRC__% __tmp116311 _stx110136_)))) - (_K110154110209_ - (lambda (_rest110173_ - _init110174_ - _len110175_ - _tmp110176_) - (let ((__tmp116325 - (let ((__tmp116326 - (let ((__tmp116327 - (let ((__tmp116328 - (let ((__tmp116329 + (__SRC__% __tmp76934 _stx75511_)))) + (_K7552975584_ + (lambda (_rest75548_ + _init75549_ + _len75550_ + _tmp75551_) + (let ((__tmp76948 + (let ((__tmp76949 + (let ((__tmp76950 + (let ((__tmp76951 + (let ((__tmp76952 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len110175_ '())))) + (cons _len75550_ '())))) (declare (not safe)) - (cons _tmp110176_ __tmp116329)))) + (cons _tmp75551_ __tmp76952)))) (declare (not safe)) - (cons '__check-values __tmp116328)))) + (cons '__check-values __tmp76951)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp116327 - _stx110136_)))) + __tmp76950 + _stx75511_)))) (declare (not safe)) - (cons __tmp116326 _check110148_))) - (__tmp116318 - (let ((__tmp116319 - (lambda (_hd110178_ _r110179_) - (let* ((_hd110180110187_ - _hd110178_) - (_E110182110191_ + (cons __tmp76949 _check75523_))) + (__tmp76941 + (let ((__tmp76942 + (lambda (_hd75553_ _r75554_) + (let* ((_hd7555575562_ + _hd75553_) + (_E7555775566_ (lambda () - (error '"No clause matching" + (let () + (declare + (not safe)) + (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd110180110187_))) - (_K110183110197_ - (lambda (_k110194_ _id110195_) - (let ((__tmp116320 - (let ((__tmp116321 - (let ((__tmp116322 - (let ((__tmp116323 - (let ((__tmp116324 + _hd7555575562_)))) + (_K7555875572_ + (lambda (_k75569_ _id75570_) + (let ((__tmp76943 + (let ((__tmp76944 + (let ((__tmp76945 + (let ((__tmp76946 + (let ((__tmp76947 (let () (declare (not safe)) - (cons _k110194_ '())))) + (cons _k75569_ '())))) (declare (not safe)) - (cons _tmp110176_ - __tmp116324)))) + (cons _tmp75551_ __tmp76947)))) (declare (not safe)) - (cons '##vector-ref __tmp116323)))) + (cons '##vector-ref __tmp76946)))) (declare (not safe)) - (cons __tmp116322 '())))) + (cons __tmp76945 '())))) (declare (not safe)) - (cons _id110195_ __tmp116321)))) + (cons _id75570_ __tmp76944)))) (declare (not safe)) - (cons __tmp116320 _r110179_))))) + (cons __tmp76943 _r75554_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _hd110180110187_)) - (let ((_hd110184110200_ + (##pair? _hd7555575562_)) + (let ((_hd7555975575_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd110180110187_))) - (_tl110185110202_ - (let () (declare (not safe)) (##cdr _hd110180110187_)))) - (let* ((_id110205_ _hd110184110200_) - (_k110207_ _tl110185110202_)) + (##car _hd7555575562_))) + (_tl7556075577_ + (let () (declare (not safe)) (##cdr _hd7555575562_)))) + (let* ((_id75580_ _hd7555975575_) (_k75582_ _tl7556075577_)) (declare (not safe)) - (_K110183110197_ _k110207_ _id110205_))) - (let () (declare (not safe)) (_E110182110191_))))))) + (_K7555875572_ _k75582_ _id75580_))) + (let () (declare (not safe)) (_E7555775566_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp116319 - _bind110149_ - _init110174_)))) + (foldr1 __tmp76942 + _bind75524_ + _init75549_)))) (declare (not safe)) - (_lp110145_ - _rest110173_ - __tmp116325 - __tmp116318))))) + (_lp75520_ + _rest75548_ + __tmp76948 + __tmp76941))))) (if (let () (declare (not safe)) - (##pair? _rest110150110162_)) - (let ((_hd110155110212_ + (##pair? _rest7552575537_)) + (let ((_hd7553075587_ (let () (declare (not safe)) - (##car _rest110150110162_))) - (_tl110156110214_ + (##car _rest7552575537_))) + (_tl7553175589_ (let () (declare (not safe)) - (##cdr _rest110150110162_)))) + (##cdr _rest7552575537_)))) (if (let () (declare (not safe)) - (##pair? _hd110155110212_)) - (let ((_hd110157110217_ + (##pair? _hd7553075587_)) + (let ((_hd7553275592_ (let () (declare (not safe)) - (##car _hd110155110212_))) - (_tl110158110219_ + (##car _hd7553075587_))) + (_tl7553375594_ (let () (declare (not safe)) - (##cdr _hd110155110212_)))) - (let ((_tmp110222_ _hd110157110217_)) + (##cdr _hd7553075587_)))) + (let ((_tmp75597_ _hd7553275592_)) (if (let () (declare (not safe)) - (##pair? _tl110158110219_)) - (let ((_hd110159110224_ + (##pair? _tl7553375594_)) + (let ((_hd7553475599_ (let () (declare (not safe)) - (##car _tl110158110219_))) - (_tl110160110226_ + (##car _tl7553375594_))) + (_tl7553575601_ (let () (declare (not safe)) - (##cdr _tl110158110219_)))) - (let* ((_len110229_ - _hd110159110224_) - (_init110231_ - _tl110160110226_) - (_rest110233_ - _tl110156110214_)) + (##cdr _tl7553375594_)))) + (let* ((_len75604_ _hd7553475599_) + (_init75606_ _tl7553575601_) + (_rest75608_ + _tl7553175589_)) (declare (not safe)) - (_K110154110209_ - _rest110233_ - _init110231_ - _len110229_ - _tmp110222_))) + (_K7552975584_ + _rest75608_ + _init75606_ + _len75604_ + _tmp75597_))) (let () (declare (not safe)) - (_else110152110170_))))) + (_else7552775545_))))) (let () (declare (not safe)) - (_else110152110170_)))) + (_else7552775545_)))) (let () (declare (not safe)) - (_else110152110170_)))))))) + (_else7552775545_)))))))) (let () (declare (not safe)) (__compile-let-form - _stx110136_ - _compile-simple110138_ - _compile-values110139_))))) + _stx75511_ + _compile-simple75513_ + _compile-values75514_))))) (define __compile-letrec-values% - (lambda (_stx109936_) - (letrec ((_compile-simple109938_ - (lambda (_hd-ids110132_ _exprs110133_ _body110134_) - (let ((__tmp116330 - (let ((__tmp116331 - (let ((__tmp116333 + (lambda (_stx75311_) + (letrec ((_compile-simple75313_ + (lambda (_hd-ids75507_ _exprs75508_ _body75509_) + (let ((__tmp76953 + (let ((__tmp76954 + (let ((__tmp76956 (map list (map __compile-head-id - _hd-ids110132_) - _exprs110133_)) - (__tmp116332 + _hd-ids75507_) + _exprs75508_)) + (__tmp76955 (let () (declare (not safe)) - (cons _body110134_ '())))) + (cons _body75509_ '())))) (declare (not safe)) - (cons __tmp116333 __tmp116332)))) + (cons __tmp76956 __tmp76955)))) (declare (not safe)) - (cons 'letrec __tmp116331)))) + (cons 'letrec __tmp76954)))) (declare (not safe)) - (__SRC__% __tmp116330 _stx109936_)))) - (_compile-values109939_ - (lambda (_hd-ids110046_ _exprs110047_ _body110048_) - (let _lp110050_ ((_rest110052_ _hd-ids110046_) - (_exprs110053_ _exprs110047_) - (_pre110054_ '()) - (_bind110055_ '()) - (_post110056_ '())) - (let* ((_rest110057110071_ _rest110052_) - (_else110060110079_ + (__SRC__% __tmp76953 _stx75311_)))) + (_compile-values75314_ + (lambda (_hd-ids75421_ _exprs75422_ _body75423_) + (let _lp75425_ ((_rest75427_ _hd-ids75421_) + (_exprs75428_ _exprs75422_) + (_pre75429_ '()) + (_bind75430_ '()) + (_post75431_ '())) + (let* ((_rest7543275446_ _rest75427_) + (_else7543575454_ (lambda () (let () (declare (not safe)) - (_compile-inner109940_ - _pre110054_ - _bind110055_ - _post110056_ - _body110048_))))) - (let ((_K110065110115_ - (lambda (_rest110112_ _id110113_) - (let ((__tmp116339 (cdr _exprs110053_)) - (__tmp116334 - (let ((__tmp116335 - (let ((__tmp116338 + (_compile-inner75315_ + _pre75429_ + _bind75430_ + _post75431_ + _body75423_))))) + (let ((_K7544075490_ + (lambda (_rest75487_ _id75488_) + (let ((__tmp76962 (cdr _exprs75428_)) + (__tmp76957 + (let ((__tmp76958 + (let ((__tmp76961 (let () (declare (not safe)) (__compile-head-id - _id110113_))) - (__tmp116336 - (let ((__tmp116337 - (car _exprs110053_))) + _id75488_))) + (__tmp76959 + (let ((__tmp76960 + (car _exprs75428_))) (declare (not safe)) - (cons __tmp116337 + (cons __tmp76960 '())))) (declare (not safe)) - (cons __tmp116338 - __tmp116336)))) + (cons __tmp76961 + __tmp76959)))) (declare (not safe)) - (cons __tmp116335 _bind110055_)))) + (cons __tmp76958 _bind75430_)))) (declare (not safe)) - (_lp110050_ - _rest110112_ - __tmp116339 - _pre110054_ - __tmp116334 - _post110056_)))) - (_K110062110097_ - (lambda (_rest110083_ _hd110084_) + (_lp75425_ + _rest75487_ + __tmp76962 + _pre75429_ + __tmp76957 + _post75431_)))) + (_K7543775472_ + (lambda (_rest75458_ _hd75459_) (if (let () (declare (not safe)) - (__AST-id? _hd110084_)) - (let ((__tmp116367 (cdr _exprs110053_)) - (__tmp116360 - (let ((__tmp116361 - (let ((__tmp116366 + (__AST-id? _hd75459_)) + (let ((__tmp76990 (cdr _exprs75428_)) + (__tmp76983 + (let ((__tmp76984 + (let ((__tmp76989 (let () (declare (not safe)) (__compile-head-id - _hd110084_))) - (__tmp116362 - (let ((__tmp116363 + _hd75459_))) + (__tmp76985 + (let ((__tmp76986 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp116364 - (let ((__tmp116365 (car _exprs110053_))) + (let ((__tmp76987 + (let ((__tmp76988 (car _exprs75428_))) (declare (not safe)) - (cons __tmp116365 '())))) + (cons __tmp76988 '())))) (declare (not safe)) - (cons 'values->list __tmp116364)))) + (cons 'values->list __tmp76987)))) (declare (not safe)) - (cons __tmp116363 '())))) + (cons __tmp76986 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp116366 - __tmp116362)))) + (cons __tmp76989 + __tmp76985)))) (declare (not safe)) - (cons __tmp116361 - _bind110055_)))) + (cons __tmp76984 _bind75430_)))) (declare (not safe)) - (_lp110050_ - _rest110083_ - __tmp116367 - _pre110054_ - __tmp116360 - _post110056_)) + (_lp75425_ + _rest75458_ + __tmp76990 + _pre75429_ + __tmp76983 + _post75431_)) (if (let () (declare (not safe)) - (list? _hd110084_)) - (let* ((_len110086_ - (length _hd110084_)) - (_tmp110088_ - (let ((__tmp116340 (gensym))) + (list? _hd75459_)) + (let* ((_len75461_ (length _hd75459_)) + (_tmp75463_ + (let ((__tmp76963 (gensym))) (declare (not safe)) - (__SRC__0 __tmp116340)))) - (let ((__tmp116359 - (cdr _exprs110053_)) - (__tmp116352 - (let ((__tmp116353 - (lambda (_id110091_ + (__SRC__0 __tmp76963)))) + (let ((__tmp76982 + (cdr _exprs75428_)) + (__tmp76975 + (let ((__tmp76976 + (lambda (_id75466_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r110092_) - (if (let () (declare (not safe)) (__AST-e _id110091_)) - (let ((__tmp116354 - (let ((__tmp116358 + _r75467_) + (if (let () (declare (not safe)) (__AST-e _id75466_)) + (let ((__tmp76977 + (let ((__tmp76981 (let () (declare (not safe)) - (__SRC__0 _id110091_))) - (__tmp116355 - (let ((__tmp116356 - (let ((__tmp116357 + (__SRC__0 _id75466_))) + (__tmp76978 + (let ((__tmp76979 + (let ((__tmp76980 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp116357)))) + (cons 'quote __tmp76980)))) (declare (not safe)) - (cons __tmp116356 '())))) + (cons __tmp76979 '())))) (declare (not safe)) - (cons __tmp116358 __tmp116355)))) + (cons __tmp76981 __tmp76978)))) (declare (not safe)) - (cons __tmp116354 _r110092_)) - _r110092_)))) + (cons __tmp76977 _r75467_)) + _r75467_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldl1 __tmp116353 - _pre110054_ - _hd110084_))) - (__tmp116348 - (let ((__tmp116349 - (let ((__tmp116350 - (let ((__tmp116351 + (foldl1 __tmp76976 + _pre75429_ + _hd75459_))) + (__tmp76971 + (let ((__tmp76972 + (let ((__tmp76973 + (let ((__tmp76974 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs110053_))) + (car _exprs75428_))) (declare (not safe)) - (cons __tmp116351 '())))) + (cons __tmp76974 '())))) (declare (not safe)) - (cons _tmp110088_ __tmp116350)))) + (cons _tmp75463_ __tmp76973)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp116349 - _bind110055_))) - (__tmp116341 - (let ((__tmp116342 - (let ((__tmp116343 - (let ((__tmp116344 + (cons __tmp76972 + _bind75430_))) + (__tmp76964 + (let ((__tmp76965 + (let ((__tmp76966 + (let ((__tmp76967 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp116346 - (lambda (_id110094_ _k110095_) + (let ((__tmp76969 + (lambda (_id75469_ _k75470_) (if (let () (declare (not safe)) - (__AST-e _id110094_)) - (let ((__tmp116347 + (__AST-e _id75469_)) + (let ((__tmp76970 (let () (declare (not safe)) - (__SRC__0 _id110094_)))) + (__SRC__0 _id75469_)))) (declare (not safe)) - (cons __tmp116347 _k110095_)) + (cons __tmp76970 _k75470_)) '#f))) - (__tmp116345 + (__tmp76968 (let () (declare (not safe)) - (iota _len110086_)))) + (iota__0 _len75461_)))) (declare (not safe)) (filter-map2 - __tmp116346 - _hd110084_ - __tmp116345)))) + __tmp76969 + _hd75459_ + __tmp76968)))) (declare (not safe)) - (cons _len110086_ __tmp116344)))) + (cons _len75461_ __tmp76967)))) (declare (not safe)) - (cons _tmp110088_ __tmp116343)))) + (cons _tmp75463_ __tmp76966)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp116342 - _post110056_)))) + (cons __tmp76965 + _post75431_)))) (declare (not safe)) - (_lp110050_ - _rest110083_ - __tmp116359 - __tmp116352 - __tmp116348 - __tmp116341))) + (_lp75425_ + _rest75458_ + __tmp76982 + __tmp76975 + __tmp76971 + __tmp76964))) (let () (declare (not safe)) (__compile-error__% - _stx109936_ - _hd110084_))))))) + _stx75311_ + _hd75459_))))))) (if (let () (declare (not safe)) - (##pair? _rest110057110071_)) - (let ((_tl110067110120_ + (##pair? _rest7543275446_)) + (let ((_tl7544275495_ (let () (declare (not safe)) - (##cdr _rest110057110071_))) - (_hd110066110118_ + (##cdr _rest7543275446_))) + (_hd7544175493_ (let () (declare (not safe)) - (##car _rest110057110071_)))) + (##car _rest7543275446_)))) (if (let () (declare (not safe)) - (##pair? _hd110066110118_)) - (let ((_tl110069110125_ + (##pair? _hd7544175493_)) + (let ((_tl7544475500_ (let () (declare (not safe)) - (##cdr _hd110066110118_))) - (_hd110068110123_ + (##cdr _hd7544175493_))) + (_hd7544375498_ (let () (declare (not safe)) - (##car _hd110066110118_)))) + (##car _hd7544175493_)))) (if (let () (declare (not safe)) - (##null? _tl110069110125_)) - (let ((_id110128_ _hd110068110123_) - (_rest110130_ - _tl110067110120_)) + (##null? _tl7544475500_)) + (let ((_id75503_ _hd7544375498_) + (_rest75505_ _tl7544275495_)) (let () (declare (not safe)) - (_K110065110115_ - _rest110130_ - _id110128_))) - (let ((_hd110105_ _hd110066110118_) - (_rest110107_ - _tl110067110120_)) + (_K7544075490_ + _rest75505_ + _id75503_))) + (let ((_hd75480_ _hd7544175493_) + (_rest75482_ _tl7544275495_)) (let () (declare (not safe)) - (_K110062110097_ - _rest110107_ - _hd110105_))))) - (let ((_hd110105_ _hd110066110118_) - (_rest110107_ _tl110067110120_)) + (_K7543775472_ + _rest75482_ + _hd75480_))))) + (let ((_hd75480_ _hd7544175493_) + (_rest75482_ _tl7544275495_)) (let () (declare (not safe)) - (_K110062110097_ - _rest110107_ - _hd110105_))))) + (_K7543775472_ + _rest75482_ + _hd75480_))))) (let () (declare (not safe)) - (_else110060110079_)))))))) - (_compile-inner109940_ - (lambda (_pre110041_ _bind110042_ _post110043_ _body110044_) - (if (let () (declare (not safe)) (null? _pre110041_)) + (_else7543575454_)))))))) + (_compile-inner75315_ + (lambda (_pre75416_ _bind75417_ _post75418_ _body75419_) + (if (let () (declare (not safe)) (null? _pre75416_)) (let () (declare (not safe)) - (_compile-bind109941_ - _bind110042_ - _post110043_ - _body110044_)) - (let ((__tmp116368 - (let ((__tmp116369 - (let ((__tmp116372 (reverse _pre110041_)) - (__tmp116370 - (let ((__tmp116371 + (_compile-bind75316_ + _bind75417_ + _post75418_ + _body75419_)) + (let ((__tmp76991 + (let ((__tmp76992 + (let ((__tmp76995 (reverse _pre75416_)) + (__tmp76993 + (let ((__tmp76994 (let () (declare (not safe)) - (_compile-bind109941_ - _bind110042_ - _post110043_ - _body110044_)))) + (_compile-bind75316_ + _bind75417_ + _post75418_ + _body75419_)))) (declare (not safe)) - (cons __tmp116371 '())))) + (cons __tmp76994 '())))) (declare (not safe)) - (cons __tmp116372 __tmp116370)))) + (cons __tmp76995 __tmp76993)))) (declare (not safe)) - (cons 'let __tmp116369)))) + (cons 'let __tmp76992)))) (declare (not safe)) - (__SRC__% __tmp116368 _stx109936_))))) - (_compile-bind109941_ - (lambda (_bind110037_ _post110038_ _body110039_) - (let ((__tmp116373 - (let ((__tmp116374 - (let ((__tmp116377 (reverse _bind110037_)) - (__tmp116375 - (let ((__tmp116376 + (__SRC__% __tmp76991 _stx75311_))))) + (_compile-bind75316_ + (lambda (_bind75412_ _post75413_ _body75414_) + (let ((__tmp76996 + (let ((__tmp76997 + (let ((__tmp77000 (reverse _bind75412_)) + (__tmp76998 + (let ((__tmp76999 (let () (declare (not safe)) - (_compile-post109942_ - _post110038_ - _body110039_)))) + (_compile-post75317_ + _post75413_ + _body75414_)))) (declare (not safe)) - (cons __tmp116376 '())))) + (cons __tmp76999 '())))) (declare (not safe)) - (cons __tmp116377 __tmp116375)))) + (cons __tmp77000 __tmp76998)))) (declare (not safe)) - (cons 'letrec __tmp116374)))) + (cons 'letrec __tmp76997)))) (declare (not safe)) - (__SRC__% __tmp116373 _stx109936_)))) - (_compile-post109942_ - (lambda (_post109944_ _body109945_) - (let _lp109947_ ((_rest109949_ _post109944_) - (_check109950_ '()) - (_bind109951_ '())) - (let* ((_rest109952109964_ _rest109949_) - (_else109954109972_ + (__SRC__% __tmp76996 _stx75311_)))) + (_compile-post75317_ + (lambda (_post75319_ _body75320_) + (let _lp75322_ ((_rest75324_ _post75319_) + (_check75325_ '()) + (_bind75326_ '())) + (let* ((_rest7532775339_ _rest75324_) + (_else7532975347_ (lambda () - (let ((__tmp116378 - (let ((__tmp116379 - (let ((__tmp116380 - (let ((__tmp116381 + (let ((__tmp77001 + (let ((__tmp77002 + (let ((__tmp77003 + (let ((__tmp77004 (let () (declare (not safe)) - (cons _body109945_ + (cons _body75320_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (foldr1 cons __tmp116381 _bind109951_)))) + (foldr1 cons __tmp77004 _bind75326_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp116380 - _check109950_)))) + __tmp77003 + _check75325_)))) (declare (not safe)) - (cons 'begin __tmp116379)))) + (cons 'begin __tmp77002)))) (declare (not safe)) - (__SRC__% __tmp116378 _stx109936_)))) - (_K109956110011_ - (lambda (_rest109975_ - _init109976_ - _len109977_ - _tmp109978_) - (let ((__tmp116390 - (let ((__tmp116391 - (let ((__tmp116392 - (let ((__tmp116393 - (let ((__tmp116394 + (__SRC__% __tmp77001 _stx75311_)))) + (_K7533175386_ + (lambda (_rest75350_ + _init75351_ + _len75352_ + _tmp75353_) + (let ((__tmp77013 + (let ((__tmp77014 + (let ((__tmp77015 + (let ((__tmp77016 + (let ((__tmp77017 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len109977_ '())))) + (cons _len75352_ '())))) (declare (not safe)) - (cons _tmp109978_ __tmp116394)))) + (cons _tmp75353_ __tmp77017)))) (declare (not safe)) - (cons '__check-values __tmp116393)))) + (cons '__check-values __tmp77016)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp116392 - _stx109936_)))) + __tmp77015 + _stx75311_)))) (declare (not safe)) - (cons __tmp116391 _check109950_))) - (__tmp116382 - (let ((__tmp116383 - (lambda (_hd109980_ _r109981_) - (let* ((_hd109982109989_ - _hd109980_) - (_E109984109993_ + (cons __tmp77014 _check75325_))) + (__tmp77005 + (let ((__tmp77006 + (lambda (_hd75355_ _r75356_) + (let* ((_hd7535775364_ + _hd75355_) + (_E7535975368_ (lambda () - (error '"No clause matching" + (let () + (declare + (not safe)) + (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd109982109989_))) - (_K109985109999_ - (lambda (_k109996_ _id109997_) - (let ((__tmp116384 - (let ((__tmp116385 - (let ((__tmp116386 - (let ((__tmp116387 - (let ((__tmp116388 - (let ((__tmp116389 + _hd7535775364_)))) + (_K7536075374_ + (lambda (_k75371_ _id75372_) + (let ((__tmp77007 + (let ((__tmp77008 + (let ((__tmp77009 + (let ((__tmp77010 + (let ((__tmp77011 + (let ((__tmp77012 (let () (declare (not safe)) - (cons _k109996_ + (cons _k75371_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _tmp109978_ __tmp116389)))) + (cons _tmp75353_ __tmp77012)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##vector-ref - __tmp116388)))) + __tmp77011)))) (declare (not safe)) - (cons __tmp116387 '())))) + (cons __tmp77010 '())))) (declare (not safe)) - (cons _id109997_ __tmp116386)))) + (cons _id75372_ __tmp77009)))) (declare (not safe)) - (cons 'set! __tmp116385)))) + (cons 'set! __tmp77008)))) (declare (not safe)) - (cons __tmp116384 _r109981_))))) + (cons __tmp77007 _r75356_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _hd109982109989_)) - (let ((_hd109986110002_ + (##pair? _hd7535775364_)) + (let ((_hd7536175377_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd109982109989_))) - (_tl109987110004_ - (let () (declare (not safe)) (##cdr _hd109982109989_)))) - (let* ((_id110007_ _hd109986110002_) - (_k110009_ _tl109987110004_)) + (##car _hd7535775364_))) + (_tl7536275379_ + (let () (declare (not safe)) (##cdr _hd7535775364_)))) + (let* ((_id75382_ _hd7536175377_) (_k75384_ _tl7536275379_)) (declare (not safe)) - (_K109985109999_ _k110009_ _id110007_))) - (let () (declare (not safe)) (_E109984109993_))))))) + (_K7536075374_ _k75384_ _id75382_))) + (let () (declare (not safe)) (_E7535975368_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp116383 - _bind109951_ - _init109976_)))) + (foldr1 __tmp77006 + _bind75326_ + _init75351_)))) (declare (not safe)) - (_lp109947_ - _rest109975_ - __tmp116390 - __tmp116382))))) + (_lp75322_ + _rest75350_ + __tmp77013 + __tmp77005))))) (if (let () (declare (not safe)) - (##pair? _rest109952109964_)) - (let ((_hd109957110014_ + (##pair? _rest7532775339_)) + (let ((_hd7533275389_ (let () (declare (not safe)) - (##car _rest109952109964_))) - (_tl109958110016_ + (##car _rest7532775339_))) + (_tl7533375391_ (let () (declare (not safe)) - (##cdr _rest109952109964_)))) + (##cdr _rest7532775339_)))) (if (let () (declare (not safe)) - (##pair? _hd109957110014_)) - (let ((_hd109959110019_ + (##pair? _hd7533275389_)) + (let ((_hd7533475394_ (let () (declare (not safe)) - (##car _hd109957110014_))) - (_tl109960110021_ + (##car _hd7533275389_))) + (_tl7533575396_ (let () (declare (not safe)) - (##cdr _hd109957110014_)))) - (let ((_tmp110024_ _hd109959110019_)) + (##cdr _hd7533275389_)))) + (let ((_tmp75399_ _hd7533475394_)) (if (let () (declare (not safe)) - (##pair? _tl109960110021_)) - (let ((_hd109961110026_ + (##pair? _tl7533575396_)) + (let ((_hd7533675401_ (let () (declare (not safe)) - (##car _tl109960110021_))) - (_tl109962110028_ + (##car _tl7533575396_))) + (_tl7533775403_ (let () (declare (not safe)) - (##cdr _tl109960110021_)))) - (let* ((_len110031_ - _hd109961110026_) - (_init110033_ - _tl109962110028_) - (_rest110035_ - _tl109958110016_)) + (##cdr _tl7533575396_)))) + (let* ((_len75406_ _hd7533675401_) + (_init75408_ _tl7533775403_) + (_rest75410_ + _tl7533375391_)) (declare (not safe)) - (_K109956110011_ - _rest110035_ - _init110033_ - _len110031_ - _tmp110024_))) + (_K7533175386_ + _rest75410_ + _init75408_ + _len75406_ + _tmp75399_))) (let () (declare (not safe)) - (_else109954109972_))))) + (_else7532975347_))))) (let () (declare (not safe)) - (_else109954109972_)))) + (_else7532975347_)))) (let () (declare (not safe)) - (_else109954109972_)))))))) + (_else7532975347_)))))))) (let () (declare (not safe)) (__compile-let-form - _stx109936_ - _compile-simple109938_ - _compile-values109939_))))) + _stx75311_ + _compile-simple75313_ + _compile-values75314_))))) (define __compile-letrec*-values% - (lambda (_stx109691_) - (letrec ((_compile-simple109693_ - (lambda (_hd-ids109932_ _exprs109933_ _body109934_) - (let ((__tmp116395 - (let ((__tmp116396 - (let ((__tmp116398 + (lambda (_stx75066_) + (letrec ((_compile-simple75068_ + (lambda (_hd-ids75307_ _exprs75308_ _body75309_) + (let ((__tmp77018 + (let ((__tmp77019 + (let ((__tmp77021 (map list (map __compile-head-id - _hd-ids109932_) - _exprs109933_)) - (__tmp116397 + _hd-ids75307_) + _exprs75308_)) + (__tmp77020 (let () (declare (not safe)) - (cons _body109934_ '())))) + (cons _body75309_ '())))) (declare (not safe)) - (cons __tmp116398 __tmp116397)))) + (cons __tmp77021 __tmp77020)))) (declare (not safe)) - (cons 'letrec* __tmp116396)))) + (cons 'letrec* __tmp77019)))) (declare (not safe)) - (__SRC__% __tmp116395 _stx109691_)))) - (_compile-values109694_ - (lambda (_hd-ids109843_ _exprs109844_ _body109845_) - (let _lp109847_ ((_rest109849_ _hd-ids109843_) - (_exprs109850_ _exprs109844_) - (_bind109851_ '()) - (_post109852_ '())) - (let* ((_rest109853109867_ _rest109849_) - (_else109856109875_ + (__SRC__% __tmp77018 _stx75066_)))) + (_compile-values75069_ + (lambda (_hd-ids75218_ _exprs75219_ _body75220_) + (let _lp75222_ ((_rest75224_ _hd-ids75218_) + (_exprs75225_ _exprs75219_) + (_bind75226_ '()) + (_post75227_ '())) + (let* ((_rest7522875242_ _rest75224_) + (_else7523175250_ (lambda () (let () (declare (not safe)) - (_compile-bind109695_ - _bind109851_ - _post109852_ - _body109845_))))) - (let ((_K109861109915_ - (lambda (_rest109910_ _hd109911_) + (_compile-bind75070_ + _bind75226_ + _post75227_ + _body75220_))))) + (let ((_K7523675290_ + (lambda (_rest75285_ _hd75286_) (if (let () (declare (not safe)) - (__AST-id? _hd109911_)) - (let ((_id109913_ + (__AST-id? _hd75286_)) + (let ((_id75288_ (let () (declare (not safe)) - (__SRC__0 _hd109911_)))) - (let ((__tmp116413 (cdr _exprs109850_)) - (__tmp116408 - (let ((__tmp116409 - (let ((__tmp116410 - (let ((__tmp116411 + (__SRC__0 _hd75286_)))) + (let ((__tmp77036 (cdr _exprs75225_)) + (__tmp77031 + (let ((__tmp77032 + (let ((__tmp77033 + (let ((__tmp77034 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp116412 + (let ((__tmp77035 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp116412)))) + (cons 'quote __tmp77035)))) (declare (not safe)) - (cons __tmp116411 '())))) + (cons __tmp77034 '())))) (declare (not safe)) - (cons _id109913_ __tmp116410)))) + (cons _id75288_ __tmp77033)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp116409 - _bind109851_))) - (__tmp116404 - (let ((__tmp116405 - (let ((__tmp116406 - (let ((__tmp116407 + (cons __tmp77032 _bind75226_))) + (__tmp77027 + (let ((__tmp77028 + (let ((__tmp77029 + (let ((__tmp77030 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs109850_))) + (car _exprs75225_))) (declare (not safe)) - (cons __tmp116407 '())))) + (cons __tmp77030 '())))) (declare (not safe)) - (cons _id109913_ __tmp116406)))) + (cons _id75288_ __tmp77029)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp116405 - _post109852_)))) + (cons __tmp77028 + _post75227_)))) (declare (not safe)) - (_lp109847_ - _rest109910_ - __tmp116413 - __tmp116408 - __tmp116404))) - (let ((__tmp116403 (cdr _exprs109850_)) - (__tmp116399 - (let ((__tmp116400 - (let ((__tmp116401 - (let ((__tmp116402 + (_lp75222_ + _rest75285_ + __tmp77036 + __tmp77031 + __tmp77027))) + (let ((__tmp77026 (cdr _exprs75225_)) + (__tmp77022 + (let ((__tmp77023 + (let ((__tmp77024 + (let ((__tmp77025 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs109850_))) + (car _exprs75225_))) (declare (not safe)) - (cons __tmp116402 '())))) + (cons __tmp77025 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '#f __tmp116401)))) + (cons '#f __tmp77024)))) (declare (not safe)) - (cons __tmp116400 - _post109852_)))) + (cons __tmp77023 _post75227_)))) (declare (not safe)) - (_lp109847_ - _rest109910_ - __tmp116403 - _bind109851_ - __tmp116399))))) - (_K109858109895_ - (lambda (_rest109879_ _hd109880_) + (_lp75222_ + _rest75285_ + __tmp77026 + _bind75226_ + __tmp77022))))) + (_K7523375270_ + (lambda (_rest75254_ _hd75255_) (if (let () (declare (not safe)) - (__AST-id? _hd109880_)) - (let ((_id109882_ + (__AST-id? _hd75255_)) + (let ((_id75257_ (let () (declare (not safe)) - (__SRC__0 _hd109880_)))) - (let ((__tmp116449 (cdr _exprs109850_)) - (__tmp116444 - (let ((__tmp116445 - (let ((__tmp116446 - (let ((__tmp116447 + (__SRC__0 _hd75255_)))) + (let ((__tmp77072 (cdr _exprs75225_)) + (__tmp77067 + (let ((__tmp77068 + (let ((__tmp77069 + (let ((__tmp77070 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp116448 + (let ((__tmp77071 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp116448)))) + (cons 'quote __tmp77071)))) (declare (not safe)) - (cons __tmp116447 '())))) + (cons __tmp77070 '())))) (declare (not safe)) - (cons _id109882_ __tmp116446)))) + (cons _id75257_ __tmp77069)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp116445 - _bind109851_))) - (__tmp116438 - (let ((__tmp116439 - (let ((__tmp116440 - (let ((__tmp116441 + (cons __tmp77068 _bind75226_))) + (__tmp77061 + (let ((__tmp77062 + (let ((__tmp77063 + (let ((__tmp77064 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp116442 - (let ((__tmp116443 (car _exprs109850_))) + (let ((__tmp77065 + (let ((__tmp77066 (car _exprs75225_))) (declare (not safe)) - (cons __tmp116443 '())))) + (cons __tmp77066 '())))) (declare (not safe)) - (cons 'values->list __tmp116442)))) + (cons 'values->list __tmp77065)))) (declare (not safe)) - (cons __tmp116441 '())))) + (cons __tmp77064 '())))) (declare (not safe)) - (cons _id109882_ __tmp116440)))) + (cons _id75257_ __tmp77063)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp116439 - _post109852_)))) + (cons __tmp77062 + _post75227_)))) (declare (not safe)) - (_lp109847_ - _rest109879_ - __tmp116449 - __tmp116444 - __tmp116438))) - (if (let ((__tmp116437 + (_lp75222_ + _rest75254_ + __tmp77072 + __tmp77067 + __tmp77061))) + (if (let ((__tmp77060 (let () (declare (not safe)) - (__AST-e _hd109880_)))) + (__AST-e _hd75255_)))) (declare (not safe)) - (not __tmp116437)) - (let ((__tmp116436 - (cdr _exprs109850_)) - (__tmp116432 - (let ((__tmp116433 - (let ((__tmp116434 - (let ((__tmp116435 + (not __tmp77060)) + (let ((__tmp77059 (cdr _exprs75225_)) + (__tmp77055 + (let ((__tmp77056 + (let ((__tmp77057 + (let ((__tmp77058 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs109850_))) + (car _exprs75225_))) (declare (not safe)) - (cons __tmp116435 '())))) + (cons __tmp77058 '())))) (declare (not safe)) - (cons '#f __tmp116434)))) + (cons '#f __tmp77057)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp116433 - _post109852_)))) + (cons __tmp77056 + _post75227_)))) (declare (not safe)) - (_lp109847_ - _rest109879_ - __tmp116436 - _bind109851_ - __tmp116432)) + (_lp75222_ + _rest75254_ + __tmp77059 + _bind75226_ + __tmp77055)) (if (let () (declare (not safe)) - (list? _hd109880_)) - (let* ((_len109884_ - (length _hd109880_)) - (_tmp109886_ - (let ((__tmp116414 + (list? _hd75255_)) + (let* ((_len75259_ + (length _hd75255_)) + (_tmp75261_ + (let ((__tmp77037 (gensym))) (declare (not safe)) - (__SRC__0 - __tmp116414)))) - (let ((__tmp116431 - (cdr _exprs109850_)) - (__tmp116424 - (let ((__tmp116425 - (lambda (_id109889_ + (__SRC__0 __tmp77037)))) + (let ((__tmp77054 + (cdr _exprs75225_)) + (__tmp77047 + (let ((__tmp77048 + (lambda (_id75264_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r109890_) - (if (let () (declare (not safe)) (__AST-e _id109889_)) - (let ((__tmp116426 - (let ((__tmp116430 + _r75265_) + (if (let () (declare (not safe)) (__AST-e _id75264_)) + (let ((__tmp77049 + (let ((__tmp77053 (let () (declare (not safe)) - (__SRC__0 _id109889_))) - (__tmp116427 - (let ((__tmp116428 - (let ((__tmp116429 + (__SRC__0 _id75264_))) + (__tmp77050 + (let ((__tmp77051 + (let ((__tmp77052 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp116429)))) + (cons 'quote __tmp77052)))) (declare (not safe)) - (cons __tmp116428 '())))) + (cons __tmp77051 '())))) (declare (not safe)) - (cons __tmp116430 __tmp116427)))) + (cons __tmp77053 __tmp77050)))) (declare (not safe)) - (cons __tmp116426 _r109890_)) - _r109890_)))) + (cons __tmp77049 _r75265_)) + _r75265_)))) (declare (not safe)) - (foldl1 __tmp116425 _bind109851_ _hd109880_))) + (foldl1 __tmp77048 _bind75226_ _hd75255_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp116415 - (let ((__tmp116416 - (let ((__tmp116417 + (__tmp77038 + (let ((__tmp77039 + (let ((__tmp77040 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp116423 (car _exprs109850_)) - (__tmp116418 - (let ((__tmp116419 - (let ((__tmp116421 - (lambda (_id109892_ _k109893_) + (let ((__tmp77046 (car _exprs75225_)) + (__tmp77041 + (let ((__tmp77042 + (let ((__tmp77044 + (lambda (_id75267_ _k75268_) (if (let () (declare (not safe)) - (__AST-e _id109892_)) - (let ((__tmp116422 + (__AST-e _id75267_)) + (let ((__tmp77045 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__SRC__0 _id109892_)))) + (__SRC__0 _id75267_)))) (declare (not safe)) - (cons __tmp116422 _k109893_)) + (cons __tmp77045 _k75268_)) '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp116420 + (__tmp77043 (let () (declare (not safe)) - (iota _len109884_)))) + (iota__0 _len75259_)))) (declare (not safe)) (filter-map2 - __tmp116421 - _hd109880_ - __tmp116420)))) + __tmp77044 + _hd75255_ + __tmp77043)))) (declare (not safe)) - (cons _len109884_ __tmp116419)))) + (cons _len75259_ __tmp77042)))) (declare (not safe)) - (cons __tmp116423 __tmp116418)))) + (cons __tmp77046 __tmp77041)))) (declare (not safe)) - (cons _tmp109886_ __tmp116417)))) + (cons _tmp75261_ __tmp77040)))) (declare (not safe)) - (cons __tmp116416 _post109852_)))) + (cons __tmp77039 _post75227_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp109847_ - _rest109879_ - __tmp116431 - __tmp116424 - __tmp116415))) + (_lp75222_ + _rest75254_ + __tmp77054 + __tmp77047 + __tmp77038))) (let () (declare (not safe)) (__compile-error__% - _stx109691_ - _hd109880_)))))))) + _stx75066_ + _hd75255_)))))))) (if (let () (declare (not safe)) - (##pair? _rest109853109867_)) - (let ((_tl109863109920_ + (##pair? _rest7522875242_)) + (let ((_tl7523875295_ (let () (declare (not safe)) - (##cdr _rest109853109867_))) - (_hd109862109918_ + (##cdr _rest7522875242_))) + (_hd7523775293_ (let () (declare (not safe)) - (##car _rest109853109867_)))) + (##car _rest7522875242_)))) (if (let () (declare (not safe)) - (##pair? _hd109862109918_)) - (let ((_tl109865109925_ + (##pair? _hd7523775293_)) + (let ((_tl7524075300_ (let () (declare (not safe)) - (##cdr _hd109862109918_))) - (_hd109864109923_ + (##cdr _hd7523775293_))) + (_hd7523975298_ (let () (declare (not safe)) - (##car _hd109862109918_)))) + (##car _hd7523775293_)))) (if (let () (declare (not safe)) - (##null? _tl109865109925_)) - (let ((_hd109928_ _hd109864109923_) - (_rest109930_ - _tl109863109920_)) + (##null? _tl7524075300_)) + (let ((_hd75303_ _hd7523975298_) + (_rest75305_ _tl7523875295_)) (let () (declare (not safe)) - (_K109861109915_ - _rest109930_ - _hd109928_))) - (let ((_hd109903_ _hd109862109918_) - (_rest109905_ - _tl109863109920_)) + (_K7523675290_ + _rest75305_ + _hd75303_))) + (let ((_hd75278_ _hd7523775293_) + (_rest75280_ _tl7523875295_)) (let () (declare (not safe)) - (_K109858109895_ - _rest109905_ - _hd109903_))))) - (let ((_hd109903_ _hd109862109918_) - (_rest109905_ _tl109863109920_)) + (_K7523375270_ + _rest75280_ + _hd75278_))))) + (let ((_hd75278_ _hd7523775293_) + (_rest75280_ _tl7523875295_)) (let () (declare (not safe)) - (_K109858109895_ - _rest109905_ - _hd109903_))))) + (_K7523375270_ + _rest75280_ + _hd75278_))))) (let () (declare (not safe)) - (_else109856109875_)))))))) - (_compile-bind109695_ - (lambda (_bind109839_ _post109840_ _body109841_) - (let ((__tmp116450 - (let ((__tmp116451 - (let ((__tmp116454 (reverse _bind109839_)) - (__tmp116452 - (let ((__tmp116453 + (_else7523175250_)))))))) + (_compile-bind75070_ + (lambda (_bind75214_ _post75215_ _body75216_) + (let ((__tmp77073 + (let ((__tmp77074 + (let ((__tmp77077 (reverse _bind75214_)) + (__tmp77075 + (let ((__tmp77076 (let () (declare (not safe)) - (_compile-post109696_ - _post109840_ - _body109841_)))) + (_compile-post75071_ + _post75215_ + _body75216_)))) (declare (not safe)) - (cons __tmp116453 '())))) + (cons __tmp77076 '())))) (declare (not safe)) - (cons __tmp116454 __tmp116452)))) + (cons __tmp77077 __tmp77075)))) (declare (not safe)) - (cons 'let __tmp116451)))) + (cons 'let __tmp77074)))) (declare (not safe)) - (__SRC__% __tmp116450 _stx109691_)))) - (_compile-post109696_ - (lambda (_post109698_ _body109699_) - (let ((__tmp116455 - (let ((__tmp116456 - (let ((__tmp116457 - (let ((__tmp116459 - (lambda (_hd109701_ _r109702_) - (let* ((_hd109703109726_ - _hd109701_) - (_E109707109730_ + (__SRC__% __tmp77073 _stx75066_)))) + (_compile-post75071_ + (lambda (_post75073_ _body75074_) + (let ((__tmp77078 + (let ((__tmp77079 + (let ((__tmp77080 + (let ((__tmp77082 + (lambda (_hd75076_ _r75077_) + (let* ((_hd7507875101_ + _hd75076_) + (_E7508275105_ (lambda () - (error '"No clause matching" + (let () + (declare + (not safe)) + (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd109703109726_)))) + _hd7507875101_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_K109720109824_ - (lambda (_expr109822_) + (let ((_K7509575199_ + (lambda (_expr75197_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr109822_ _r109702_)))) - (_K109715109802_ - (lambda (_expr109799_ _id109800_) - (let ((__tmp116460 - (let ((__tmp116461 - (let ((__tmp116462 - (let ((__tmp116463 + (cons _expr75197_ _r75077_)))) + (_K7509075177_ + (lambda (_expr75174_ _id75175_) + (let ((__tmp77083 + (let ((__tmp77084 + (let ((__tmp77085 + (let ((__tmp77086 (let () (declare (not safe)) - (cons _expr109799_ '())))) + (cons _expr75174_ '())))) (declare (not safe)) - (cons _id109800_ __tmp116463)))) + (cons _id75175_ __tmp77086)))) (declare (not safe)) - (cons 'set! __tmp116462)))) + (cons 'set! __tmp77085)))) (declare (not safe)) - (__SRC__% __tmp116461 _stx109691_)))) + (__SRC__% __tmp77084 _stx75066_)))) (declare (not safe)) - (cons __tmp116460 _r109702_)))) - (_K109708109769_ - (lambda (_init109734_ _len109735_ _expr109736_ _tmp109737_) - (let ((__tmp116464 - (let ((__tmp116465 - (let ((__tmp116466 - (let ((__tmp116480 - (let ((__tmp116481 - (let ((__tmp116482 + (cons __tmp77083 _r75077_)))) + (_K7508375144_ + (lambda (_init75109_ _len75110_ _expr75111_ _tmp75112_) + (let ((__tmp77087 + (let ((__tmp77088 + (let ((__tmp77089 + (let ((__tmp77103 + (let ((__tmp77104 + (let ((__tmp77105 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _expr109736_ '())))) + (cons _expr75111_ '())))) (declare (not safe)) - (cons _tmp109737_ __tmp116482)))) + (cons _tmp75112_ __tmp77105)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp116481 '()))) - (__tmp116467 - (let ((__tmp116476 - (let ((__tmp116477 - (let ((__tmp116478 + (cons __tmp77104 '()))) + (__tmp77090 + (let ((__tmp77099 + (let ((__tmp77100 + (let ((__tmp77101 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp116479 + (let ((__tmp77102 (let () (declare (not safe)) - (cons _len109735_ '())))) + (cons _len75110_ '())))) (declare (not safe)) - (cons _tmp109737_ __tmp116479)))) + (cons _tmp75112_ __tmp77102)))) (declare (not safe)) - (cons '__check-values __tmp116478)))) + (cons '__check-values __tmp77101)))) (declare (not safe)) - (__SRC__% __tmp116477 _stx109691_))) - (__tmp116468 - (let ((__tmp116469 - (map (lambda (_hd109739_) - (let* ((_hd109740109747_ _hd109739_) - (_E109742109751_ + (__SRC__% __tmp77100 _stx75066_))) + (__tmp77091 + (let ((__tmp77092 + (map (lambda (_hd75114_) + (let* ((_hd7511575122_ _hd75114_) + (_E7511775126_ (lambda () - (error '"No clause matching" - _hd109740109747_))) - (_K109743109757_ - (lambda (_k109754_ _id109755_) - (let ((__tmp116470 - (let ((__tmp116471 - (let ((__tmp116472 - (let ((__tmp116473 + (let () + (declare (not safe)) + (error '"No clause matching" + _hd7511575122_)))) + (_K7511875132_ + (lambda (_k75129_ _id75130_) + (let ((__tmp77093 + (let ((__tmp77094 + (let ((__tmp77095 + (let ((__tmp77096 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp116474 - (let ((__tmp116475 + (let ((__tmp77097 + (let ((__tmp77098 (let () (declare (not safe)) - (cons _k109754_ '())))) + (cons _k75129_ '())))) (declare (not safe)) - (cons _tmp109737_ __tmp116475)))) + (cons _tmp75112_ __tmp77098)))) (declare (not safe)) - (cons '##vector-ref __tmp116474)))) + (cons '##vector-ref __tmp77097)))) (declare (not safe)) - (cons __tmp116473 '())))) + (cons __tmp77096 '())))) (declare (not safe)) - (cons _id109755_ __tmp116472)))) + (cons _id75130_ __tmp77095)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'set! __tmp116471)))) + (cons 'set! __tmp77094)))) (declare (not safe)) - (__SRC__% - __tmp116470 - _stx109691_))))) + (__SRC__% __tmp77093 _stx75066_))))) (if (let () (declare (not safe)) - (##pair? _hd109740109747_)) - (let ((_hd109744109760_ + (##pair? _hd7511575122_)) + (let ((_hd7511975135_ (let () (declare (not safe)) - (##car _hd109740109747_))) - (_tl109745109762_ + (##car _hd7511575122_))) + (_tl7512075137_ (let () (declare (not safe)) - (##cdr _hd109740109747_)))) - (let* ((_id109765_ _hd109744109760_) - (_k109767_ _tl109745109762_)) + (##cdr _hd7511575122_)))) + (let* ((_id75140_ _hd7511975135_) + (_k75142_ _tl7512075137_)) (declare (not safe)) - (_K109743109757_ - _k109767_ - _id109765_))) + (_K7511875132_ _k75142_ _id75140_))) (let () (declare (not safe)) - (_E109742109751_))))) - _init109734_))) + (_E7511775126_))))) + _init75109_))) (declare (not safe)) - (foldr1 cons '() __tmp116469)))) + (foldr1 cons '() __tmp77092)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp116476 - __tmp116468)))) + (cons __tmp77099 + __tmp77091)))) (declare (not safe)) - (cons __tmp116480 __tmp116467)))) + (cons __tmp77103 __tmp77090)))) (declare (not safe)) - (cons 'let __tmp116466)))) + (cons 'let __tmp77089)))) (declare (not safe)) - (__SRC__% __tmp116465 _stx109691_)))) + (__SRC__% __tmp77088 _stx75066_)))) (declare (not safe)) - (cons __tmp116464 _r109702_))))) - (if (let () (declare (not safe)) (##pair? _hd109703109726_)) - (let ((_tl109722109829_ - (let () - (declare (not safe)) - (##cdr _hd109703109726_))) - (_hd109721109827_ - (let () - (declare (not safe)) - (##car _hd109703109726_)))) + (cons __tmp77087 _r75077_))))) + (if (let () (declare (not safe)) (##pair? _hd7507875101_)) + (let ((_tl7509775204_ + (let () (declare (not safe)) (##cdr _hd7507875101_))) + (_hd7509675202_ + (let () (declare (not safe)) (##car _hd7507875101_)))) (if (let () (declare (not safe)) - (##eq? _hd109721109827_ '#f)) + (##eq? _hd7509675202_ '#f)) (if (let () (declare (not safe)) - (##pair? _tl109722109829_)) - (let ((_tl109724109834_ + (##pair? _tl7509775204_)) + (let ((_tl7509975209_ (let () (declare (not safe)) - (##cdr _tl109722109829_))) - (_hd109723109832_ + (##cdr _tl7509775204_))) + (_hd7509875207_ (let () (declare (not safe)) - (##car _tl109722109829_)))) + (##car _tl7509775204_)))) (if (let () (declare (not safe)) - (##null? _tl109724109834_)) - (let ((_expr109837_ _hd109723109832_)) + (##null? _tl7509975209_)) + (let ((_expr75212_ _hd7509875207_)) (declare (not safe)) - (_K109720109824_ _expr109837_)) + (_K7509575199_ _expr75212_)) (if (let () (declare (not safe)) - (##pair? _tl109724109834_)) - (let ((_tl109714109788_ + (##pair? _tl7509975209_)) + (let ((_tl7508975163_ (let () (declare (not safe)) - (##cdr _tl109724109834_))) - (_hd109713109786_ + (##cdr _tl7509975209_))) + (_hd7508875161_ (let () (declare (not safe)) - (##car _tl109724109834_)))) - (let ((_tmp109777_ _hd109721109827_) - (_expr109784_ _hd109723109832_) - (_len109791_ _hd109713109786_) - (_init109793_ _tl109714109788_)) + (##car _tl7509975209_)))) + (let ((_tmp75152_ _hd7509675202_) + (_expr75159_ _hd7509875207_) + (_len75166_ _hd7508875161_) + (_init75168_ _tl7508975163_)) (let () (declare (not safe)) - (_K109708109769_ - _init109793_ - _len109791_ - _expr109784_ - _tmp109777_)))) + (_K7508375144_ + _init75168_ + _len75166_ + _expr75159_ + _tmp75152_)))) (let () (declare (not safe)) - (_E109707109730_))))) - (let () (declare (not safe)) (_E109707109730_))) + (_E7508275105_))))) + (let () (declare (not safe)) (_E7508275105_))) (if (let () (declare (not safe)) - (##pair? _tl109722109829_)) - (let ((_tl109719109814_ + (##pair? _tl7509775204_)) + (let ((_tl7509475189_ (let () (declare (not safe)) - (##cdr _tl109722109829_))) - (_hd109718109812_ + (##cdr _tl7509775204_))) + (_hd7509375187_ (let () (declare (not safe)) - (##car _tl109722109829_)))) + (##car _tl7509775204_)))) (if (let () (declare (not safe)) - (##null? _tl109719109814_)) - (let ((_id109810_ _hd109721109827_) - (_expr109817_ _hd109718109812_)) + (##null? _tl7509475189_)) + (let ((_id75185_ _hd7509675202_) + (_expr75192_ _hd7509375187_)) (let () (declare (not safe)) - (_K109715109802_ - _expr109817_ - _id109810_))) + (_K7509075177_ _expr75192_ _id75185_))) (if (let () (declare (not safe)) - (##pair? _tl109719109814_)) - (let ((_tl109714109788_ + (##pair? _tl7509475189_)) + (let ((_tl7508975163_ (let () (declare (not safe)) - (##cdr _tl109719109814_))) - (_hd109713109786_ + (##cdr _tl7509475189_))) + (_hd7508875161_ (let () (declare (not safe)) - (##car _tl109719109814_)))) - (let ((_tmp109777_ _hd109721109827_) - (_expr109784_ _hd109718109812_) - (_len109791_ _hd109713109786_) - (_init109793_ _tl109714109788_)) + (##car _tl7509475189_)))) + (let ((_tmp75152_ _hd7509675202_) + (_expr75159_ _hd7509375187_) + (_len75166_ _hd7508875161_) + (_init75168_ _tl7508975163_)) (let () (declare (not safe)) - (_K109708109769_ - _init109793_ - _len109791_ - _expr109784_ - _tmp109777_)))) + (_K7508375144_ + _init75168_ + _len75166_ + _expr75159_ + _tmp75152_)))) (let () (declare (not safe)) - (_E109707109730_))))) - (let () (declare (not safe)) (_E109707109730_))))) - (let () (declare (not safe)) (_E109707109730_))))))) + (_E7508275105_))))) + (let () (declare (not safe)) (_E7508275105_))))) + (let () (declare (not safe)) (_E7508275105_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp116458 - (list _body109699_))) + (__tmp77081 (list _body75074_))) (declare (not safe)) - (foldl1 __tmp116459 - __tmp116458 - _post109698_)))) + (foldl1 __tmp77082 + __tmp77081 + _post75073_)))) (declare (not safe)) - (foldr1 cons '() __tmp116457)))) + (foldr1 cons '() __tmp77080)))) (declare (not safe)) - (cons 'begin __tmp116456)))) + (cons 'begin __tmp77079)))) (declare (not safe)) - (__SRC__% __tmp116455 _stx109691_))))) + (__SRC__% __tmp77078 _stx75066_))))) (let () (declare (not safe)) (__compile-let-form - _stx109691_ - _compile-simple109693_ - _compile-values109694_))))) + _stx75066_ + _compile-simple75068_ + _compile-values75069_))))) (define __compile-call% - (lambda (_stx109651_) - (let* ((_$e109653_ _stx109651_) - (_$E109655109664_ + (lambda (_stx75026_) + (let* ((_$e75028_ _stx75026_) + (_$E7503075039_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e109653_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e109653_)) - (let* ((_$tgt109656109667_ - (let () (declare (not safe)) (__AST-e _$e109653_))) - (_$hd109657109670_ - (let () (declare (not safe)) (##car _$tgt109656109667_))) - (_$tl109658109673_ - (let () - (declare (not safe)) - (##cdr _$tgt109656109667_)))) - (if (let () - (declare (not safe)) - (__AST-pair? _$tl109658109673_)) - (let* ((_$tgt109659109677_ + _$e75028_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e75028_)) + (let* ((_$tgt7503175042_ + (let () (declare (not safe)) (__AST-e _$e75028_))) + (_$hd7503275045_ + (let () (declare (not safe)) (##car _$tgt7503175042_))) + (_$tl7503375048_ + (let () (declare (not safe)) (##cdr _$tgt7503175042_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7503375048_)) + (let* ((_$tgt7503475052_ (let () (declare (not safe)) - (__AST-e _$tl109658109673_))) - (_$hd109660109680_ + (__AST-e _$tl7503375048_))) + (_$hd7503575055_ (let () (declare (not safe)) - (##car _$tgt109659109677_))) - (_$tl109661109683_ + (##car _$tgt7503475052_))) + (_$tl7503675058_ (let () (declare (not safe)) - (##cdr _$tgt109659109677_)))) - (let* ((_rator109687_ _$hd109660109680_) - (_rands109689_ _$tl109661109683_) - (__tmp116483 - (let ((__tmp116485 + (##cdr _$tgt7503475052_)))) + (let* ((_rator75062_ _$hd7503575055_) + (_rands75064_ _$tl7503675058_) + (__tmp77106 + (let ((__tmp77108 (let () (declare (not safe)) - (__compile _rator109687_))) - (__tmp116484 - (map __compile _rands109689_))) + (__compile _rator75062_))) + (__tmp77107 (map __compile _rands75064_))) (declare (not safe)) - (cons __tmp116485 __tmp116484)))) + (cons __tmp77108 __tmp77107)))) (declare (not safe)) - (__SRC__% __tmp116483 _stx109651_))) - (let () (declare (not safe)) (_$E109655109664_)))) - (let () (declare (not safe)) (_$E109655109664_)))))) + (__SRC__% __tmp77106 _stx75026_))) + (let () (declare (not safe)) (_$E7503075039_)))) + (let () (declare (not safe)) (_$E7503075039_)))))) (define __compile-ref% - (lambda (_stx109613_) - (let* ((_$e109615_ _stx109613_) - (_$E109617109626_ + (lambda (_stx74988_) + (let* ((_$e74990_ _stx74988_) + (_$E7499275001_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e109615_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e109615_)) - (let* ((_$tgt109618109629_ - (let () (declare (not safe)) (__AST-e _$e109615_))) - (_$hd109619109632_ - (let () (declare (not safe)) (##car _$tgt109618109629_))) - (_$tl109620109635_ - (let () - (declare (not safe)) - (##cdr _$tgt109618109629_)))) - (if (let () - (declare (not safe)) - (__AST-pair? _$tl109620109635_)) - (let* ((_$tgt109621109639_ + _$e74990_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e74990_)) + (let* ((_$tgt7499375004_ + (let () (declare (not safe)) (__AST-e _$e74990_))) + (_$hd7499475007_ + (let () (declare (not safe)) (##car _$tgt7499375004_))) + (_$tl7499575010_ + (let () (declare (not safe)) (##cdr _$tgt7499375004_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7499575010_)) + (let* ((_$tgt7499675014_ (let () (declare (not safe)) - (__AST-e _$tl109620109635_))) - (_$hd109622109642_ + (__AST-e _$tl7499575010_))) + (_$hd7499775017_ (let () (declare (not safe)) - (##car _$tgt109621109639_))) - (_$tl109623109645_ + (##car _$tgt7499675014_))) + (_$tl7499875020_ (let () (declare (not safe)) - (##cdr _$tgt109621109639_)))) - (let ((_id109649_ _$hd109622109642_)) - (if (let ((__tmp116486 + (##cdr _$tgt7499675014_)))) + (let ((_id75024_ _$hd7499775017_)) + (if (let ((__tmp77109 (let () (declare (not safe)) - (__AST-e _$tl109623109645_)))) + (__AST-e _$tl7499875020_)))) (declare (not safe)) - (equal? __tmp116486 '())) + (equal? __tmp77109 '())) (let () (declare (not safe)) - (__SRC__% _id109649_ _stx109613_)) - (let () (declare (not safe)) (_$E109617109626_))))) - (let () (declare (not safe)) (_$E109617109626_)))) - (let () (declare (not safe)) (_$E109617109626_)))))) + (__SRC__% _id75024_ _stx74988_)) + (let () (declare (not safe)) (_$E7499275001_))))) + (let () (declare (not safe)) (_$E7499275001_)))) + (let () (declare (not safe)) (_$E7499275001_)))))) (define __compile-setq% - (lambda (_stx109560_) - (let* ((_$e109562_ _stx109560_) - (_$E109564109576_ + (lambda (_stx74935_) + (let* ((_$e74937_ _stx74935_) + (_$E7493974951_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e109562_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e109562_)) - (let* ((_$tgt109565109579_ - (let () (declare (not safe)) (__AST-e _$e109562_))) - (_$hd109566109582_ - (let () (declare (not safe)) (##car _$tgt109565109579_))) - (_$tl109567109585_ - (let () - (declare (not safe)) - (##cdr _$tgt109565109579_)))) - (if (let () - (declare (not safe)) - (__AST-pair? _$tl109567109585_)) - (let* ((_$tgt109568109589_ + _$e74937_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e74937_)) + (let* ((_$tgt7494074954_ + (let () (declare (not safe)) (__AST-e _$e74937_))) + (_$hd7494174957_ + (let () (declare (not safe)) (##car _$tgt7494074954_))) + (_$tl7494274960_ + (let () (declare (not safe)) (##cdr _$tgt7494074954_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7494274960_)) + (let* ((_$tgt7494374964_ (let () (declare (not safe)) - (__AST-e _$tl109567109585_))) - (_$hd109569109592_ + (__AST-e _$tl7494274960_))) + (_$hd7494474967_ (let () (declare (not safe)) - (##car _$tgt109568109589_))) - (_$tl109570109595_ + (##car _$tgt7494374964_))) + (_$tl7494574970_ (let () (declare (not safe)) - (##cdr _$tgt109568109589_)))) - (let ((_id109599_ _$hd109569109592_)) + (##cdr _$tgt7494374964_)))) + (let ((_id74974_ _$hd7494474967_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl109570109595_)) - (let* ((_$tgt109571109601_ + (__AST-pair? _$tl7494574970_)) + (let* ((_$tgt7494674976_ (let () (declare (not safe)) - (__AST-e _$tl109570109595_))) - (_$hd109572109604_ + (__AST-e _$tl7494574970_))) + (_$hd7494774979_ (let () (declare (not safe)) - (##car _$tgt109571109601_))) - (_$tl109573109607_ + (##car _$tgt7494674976_))) + (_$tl7494874982_ (let () (declare (not safe)) - (##cdr _$tgt109571109601_)))) - (let ((_expr109611_ _$hd109572109604_)) - (if (let ((__tmp116492 + (##cdr _$tgt7494674976_)))) + (let ((_expr74986_ _$hd7494774979_)) + (if (let ((__tmp77115 (let () (declare (not safe)) - (__AST-e _$tl109573109607_)))) + (__AST-e _$tl7494874982_)))) (declare (not safe)) - (equal? __tmp116492 '())) - (let ((__tmp116487 - (let ((__tmp116488 - (let ((__tmp116491 + (equal? __tmp77115 '())) + (let ((__tmp77110 + (let ((__tmp77111 + (let ((__tmp77114 (let () (declare (not safe)) (__SRC__% - _id109599_ - _stx109560_))) - (__tmp116489 - (let ((__tmp116490 + _id74974_ + _stx74935_))) + (__tmp77112 + (let ((__tmp77113 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__compile _expr109611_)))) + (__compile _expr74986_)))) (declare (not safe)) - (cons __tmp116490 '())))) + (cons __tmp77113 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp116491 - __tmp116489)))) + (cons __tmp77114 + __tmp77112)))) (declare (not safe)) - (cons 'set! __tmp116488)))) + (cons 'set! __tmp77111)))) (declare (not safe)) - (__SRC__% __tmp116487 _stx109560_)) + (__SRC__% __tmp77110 _stx74935_)) (let () (declare (not safe)) - (_$E109564109576_))))) - (let () (declare (not safe)) (_$E109564109576_))))) - (let () (declare (not safe)) (_$E109564109576_)))) - (let () (declare (not safe)) (_$E109564109576_)))))) + (_$E7493974951_))))) + (let () (declare (not safe)) (_$E7493974951_))))) + (let () (declare (not safe)) (_$E7493974951_)))) + (let () (declare (not safe)) (_$E7493974951_)))))) (define __compile-if% - (lambda (_stx109492_) - (let* ((_$e109494_ _stx109492_) - (_$E109496109511_ + (lambda (_stx74867_) + (let* ((_$e74869_ _stx74867_) + (_$E7487174886_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e109494_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e109494_)) - (let* ((_$tgt109497109514_ - (let () (declare (not safe)) (__AST-e _$e109494_))) - (_$hd109498109517_ - (let () (declare (not safe)) (##car _$tgt109497109514_))) - (_$tl109499109520_ - (let () - (declare (not safe)) - (##cdr _$tgt109497109514_)))) - (if (let () - (declare (not safe)) - (__AST-pair? _$tl109499109520_)) - (let* ((_$tgt109500109524_ + _$e74869_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e74869_)) + (let* ((_$tgt7487274889_ + (let () (declare (not safe)) (__AST-e _$e74869_))) + (_$hd7487374892_ + (let () (declare (not safe)) (##car _$tgt7487274889_))) + (_$tl7487474895_ + (let () (declare (not safe)) (##cdr _$tgt7487274889_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7487474895_)) + (let* ((_$tgt7487574899_ (let () (declare (not safe)) - (__AST-e _$tl109499109520_))) - (_$hd109501109527_ + (__AST-e _$tl7487474895_))) + (_$hd7487674902_ (let () (declare (not safe)) - (##car _$tgt109500109524_))) - (_$tl109502109530_ + (##car _$tgt7487574899_))) + (_$tl7487774905_ (let () (declare (not safe)) - (##cdr _$tgt109500109524_)))) - (let ((_p109534_ _$hd109501109527_)) + (##cdr _$tgt7487574899_)))) + (let ((_p74909_ _$hd7487674902_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl109502109530_)) - (let* ((_$tgt109503109536_ + (__AST-pair? _$tl7487774905_)) + (let* ((_$tgt7487874911_ (let () (declare (not safe)) - (__AST-e _$tl109502109530_))) - (_$hd109504109539_ + (__AST-e _$tl7487774905_))) + (_$hd7487974914_ (let () (declare (not safe)) - (##car _$tgt109503109536_))) - (_$tl109505109542_ + (##car _$tgt7487874911_))) + (_$tl7488074917_ (let () (declare (not safe)) - (##cdr _$tgt109503109536_)))) - (let ((_t109546_ _$hd109504109539_)) + (##cdr _$tgt7487874911_)))) + (let ((_t74921_ _$hd7487974914_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl109505109542_)) - (let* ((_$tgt109506109548_ + (__AST-pair? _$tl7488074917_)) + (let* ((_$tgt7488174923_ (let () (declare (not safe)) - (__AST-e _$tl109505109542_))) - (_$hd109507109551_ + (__AST-e _$tl7488074917_))) + (_$hd7488274926_ (let () (declare (not safe)) - (##car _$tgt109506109548_))) - (_$tl109508109554_ + (##car _$tgt7488174923_))) + (_$tl7488374929_ (let () (declare (not safe)) - (##cdr _$tgt109506109548_)))) - (let ((_f109558_ _$hd109507109551_)) - (if (let ((__tmp116500 + (##cdr _$tgt7488174923_)))) + (let ((_f74933_ _$hd7488274926_)) + (if (let ((__tmp77123 (let () (declare (not safe)) - (__AST-e _$tl109508109554_)))) + (__AST-e _$tl7488374929_)))) (declare (not safe)) - (equal? __tmp116500 '())) - (let ((__tmp116493 - (let ((__tmp116494 - (let ((__tmp116499 + (equal? __tmp77123 '())) + (let ((__tmp77116 + (let ((__tmp77117 + (let ((__tmp77122 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (__compile _p109534_))) - (__tmp116495 - (let ((__tmp116498 + (let () (declare (not safe)) (__compile _p74909_))) + (__tmp77118 + (let ((__tmp77121 (let () (declare (not safe)) - (__compile _t109546_))) - (__tmp116496 - (let ((__tmp116497 + (__compile _t74921_))) + (__tmp77119 + (let ((__tmp77120 (let () (declare (not safe)) - (__compile _f109558_)))) + (__compile _f74933_)))) (declare (not safe)) - (cons __tmp116497 '())))) + (cons __tmp77120 '())))) (declare (not safe)) - (cons __tmp116498 __tmp116496)))) + (cons __tmp77121 __tmp77119)))) (declare (not safe)) - (cons __tmp116499 __tmp116495)))) + (cons __tmp77122 __tmp77118)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp116494)))) + (cons 'if __tmp77117)))) (declare (not safe)) - (__SRC__% - __tmp116493 - _stx109492_)) + (__SRC__% __tmp77116 _stx74867_)) (let () (declare (not safe)) - (_$E109496109511_))))) + (_$E7487174886_))))) (let () (declare (not safe)) - (_$E109496109511_))))) - (let () (declare (not safe)) (_$E109496109511_))))) - (let () (declare (not safe)) (_$E109496109511_)))) - (let () (declare (not safe)) (_$E109496109511_)))))) + (_$E7487174886_))))) + (let () (declare (not safe)) (_$E7487174886_))))) + (let () (declare (not safe)) (_$E7487174886_)))) + (let () (declare (not safe)) (_$E7487174886_)))))) (define __compile-quote% - (lambda (_stx109454_) - (let* ((_$e109456_ _stx109454_) - (_$E109458109467_ + (lambda (_stx74829_) + (let* ((_$e74831_ _stx74829_) + (_$E7483374842_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e109456_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e109456_)) - (let* ((_$tgt109459109470_ - (let () (declare (not safe)) (__AST-e _$e109456_))) - (_$hd109460109473_ - (let () (declare (not safe)) (##car _$tgt109459109470_))) - (_$tl109461109476_ - (let () - (declare (not safe)) - (##cdr _$tgt109459109470_)))) - (if (let () - (declare (not safe)) - (__AST-pair? _$tl109461109476_)) - (let* ((_$tgt109462109480_ + _$e74831_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e74831_)) + (let* ((_$tgt7483474845_ + (let () (declare (not safe)) (__AST-e _$e74831_))) + (_$hd7483574848_ + (let () (declare (not safe)) (##car _$tgt7483474845_))) + (_$tl7483674851_ + (let () (declare (not safe)) (##cdr _$tgt7483474845_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7483674851_)) + (let* ((_$tgt7483774855_ (let () (declare (not safe)) - (__AST-e _$tl109461109476_))) - (_$hd109463109483_ + (__AST-e _$tl7483674851_))) + (_$hd7483874858_ (let () (declare (not safe)) - (##car _$tgt109462109480_))) - (_$tl109464109486_ + (##car _$tgt7483774855_))) + (_$tl7483974861_ (let () (declare (not safe)) - (##cdr _$tgt109462109480_)))) - (let ((_e109490_ _$hd109463109483_)) - (if (let ((__tmp116504 + (##cdr _$tgt7483774855_)))) + (let ((_e74865_ _$hd7483874858_)) + (if (let ((__tmp77127 (let () (declare (not safe)) - (__AST-e _$tl109464109486_)))) + (__AST-e _$tl7483974861_)))) (declare (not safe)) - (equal? __tmp116504 '())) - (let ((__tmp116501 - (let ((__tmp116502 - (let ((__tmp116503 + (equal? __tmp77127 '())) + (let ((__tmp77124 + (let ((__tmp77125 + (let ((__tmp77126 (let () (declare (not safe)) - (__AST->datum _e109490_)))) + (__AST->datum _e74865_)))) (declare (not safe)) - (cons __tmp116503 '())))) + (cons __tmp77126 '())))) (declare (not safe)) - (cons 'quote __tmp116502)))) + (cons 'quote __tmp77125)))) (declare (not safe)) - (__SRC__% __tmp116501 _stx109454_)) - (let () (declare (not safe)) (_$E109458109467_))))) - (let () (declare (not safe)) (_$E109458109467_)))) - (let () (declare (not safe)) (_$E109458109467_)))))) + (__SRC__% __tmp77124 _stx74829_)) + (let () (declare (not safe)) (_$E7483374842_))))) + (let () (declare (not safe)) (_$E7483374842_)))) + (let () (declare (not safe)) (_$E7483374842_)))))) (define __compile-quote-syntax% - (lambda (_stx109416_) - (let* ((_$e109418_ _stx109416_) - (_$E109420109429_ + (lambda (_stx74791_) + (let* ((_$e74793_ _stx74791_) + (_$E7479574804_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e109418_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e109418_)) - (let* ((_$tgt109421109432_ - (let () (declare (not safe)) (__AST-e _$e109418_))) - (_$hd109422109435_ - (let () (declare (not safe)) (##car _$tgt109421109432_))) - (_$tl109423109438_ - (let () - (declare (not safe)) - (##cdr _$tgt109421109432_)))) - (if (let () - (declare (not safe)) - (__AST-pair? _$tl109423109438_)) - (let* ((_$tgt109424109442_ + _$e74793_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e74793_)) + (let* ((_$tgt7479674807_ + (let () (declare (not safe)) (__AST-e _$e74793_))) + (_$hd7479774810_ + (let () (declare (not safe)) (##car _$tgt7479674807_))) + (_$tl7479874813_ + (let () (declare (not safe)) (##cdr _$tgt7479674807_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7479874813_)) + (let* ((_$tgt7479974817_ (let () (declare (not safe)) - (__AST-e _$tl109423109438_))) - (_$hd109425109445_ + (__AST-e _$tl7479874813_))) + (_$hd7480074820_ (let () (declare (not safe)) - (##car _$tgt109424109442_))) - (_$tl109426109448_ + (##car _$tgt7479974817_))) + (_$tl7480174823_ (let () (declare (not safe)) - (##cdr _$tgt109424109442_)))) - (let ((_e109452_ _$hd109425109445_)) - (if (let ((__tmp116507 + (##cdr _$tgt7479974817_)))) + (let ((_e74827_ _$hd7480074820_)) + (if (let ((__tmp77130 (let () (declare (not safe)) - (__AST-e _$tl109426109448_)))) + (__AST-e _$tl7480174823_)))) (declare (not safe)) - (equal? __tmp116507 '())) - (let ((__tmp116505 - (let ((__tmp116506 + (equal? __tmp77130 '())) + (let ((__tmp77128 + (let ((__tmp77129 (let () (declare (not safe)) - (cons _e109452_ '())))) + (cons _e74827_ '())))) (declare (not safe)) - (cons 'quote __tmp116506)))) + (cons 'quote __tmp77129)))) (declare (not safe)) - (__SRC__% __tmp116505 _stx109416_)) - (let () (declare (not safe)) (_$E109420109429_))))) - (let () (declare (not safe)) (_$E109420109429_)))) - (let () (declare (not safe)) (_$E109420109429_)))))) + (__SRC__% __tmp77128 _stx74791_)) + (let () (declare (not safe)) (_$E7479574804_))))) + (let () (declare (not safe)) (_$E7479574804_)))) + (let () (declare (not safe)) (_$E7479574804_)))))) (let () (declare (not safe)) (__core-bind-syntax!__% diff --git a/src/bootstrap/gerbil/runtime/eval__1.scm b/src/bootstrap/gerbil/runtime/eval__1.scm index 978d7b743..25e18a8ed 100644 --- a/src/bootstrap/gerbil/runtime/eval__1.scm +++ b/src/bootstrap/gerbil/runtime/eval__1.scm @@ -1,2280 +1,330 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g116509_| - (##structure - gx#syntax-quote::t - '__context::t - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116511_| - (##structure - gx#syntax-quote::t - 'make-__context - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116513_| - (##structure - gx#syntax-quote::t - '__context? - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116520_| - (##structure - gx#syntax-quote::t - '__context-table - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116523_| - (##structure - gx#syntax-quote::t - '__context-super - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116526_| - (##structure - gx#syntax-quote::t - '__context-ns - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116529_| - (##structure - gx#syntax-quote::t - '__context-t - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116536_| - (##structure - gx#syntax-quote::t - '__context-table-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116539_| - (##structure - gx#syntax-quote::t - '__context-super-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116542_| - (##structure - gx#syntax-quote::t - '__context-ns-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116545_| - (##structure - gx#syntax-quote::t - '__context-t-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116552_| - (##structure - gx#syntax-quote::t - '&__context-table - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116555_| - (##structure - gx#syntax-quote::t - '&__context-super - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116558_| - (##structure - gx#syntax-quote::t - '&__context-ns - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116561_| - (##structure - gx#syntax-quote::t - '&__context-t - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116568_| - (##structure - gx#syntax-quote::t - '&__context-table-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116571_| - (##structure - gx#syntax-quote::t - '&__context-super-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116574_| - (##structure - gx#syntax-quote::t - '&__context-ns-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116577_| - (##structure - gx#syntax-quote::t - '&__context-t-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116579_| - (##structure - gx#syntax-quote::t - '__runtime::t - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116581_| - (##structure - gx#syntax-quote::t - 'make-__runtime - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116583_| - (##structure - gx#syntax-quote::t - '__runtime? - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116587_| - (##structure - gx#syntax-quote::t - '__runtime-id - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116591_| - (##structure - gx#syntax-quote::t - '__runtime-id-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116595_| - (##structure - gx#syntax-quote::t - '&__runtime-id - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116599_| - (##structure - gx#syntax-quote::t - '&__runtime-id-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116601_| + (define |[1]#_g77132_| (##structure gx#syntax-quote::t '__syntax::t #f (gx#current-expander-context) '())) - (define |[1]#_g116603_| + (define |[1]#_g77134_| (##structure gx#syntax-quote::t 'make-__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g116605_| + (define |[1]#_g77136_| (##structure gx#syntax-quote::t '__syntax? #f (gx#current-expander-context) '())) - (define |[1]#_g116610_| + (define |[1]#_g77141_| (##structure gx#syntax-quote::t '__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g116613_| + (define |[1]#_g77144_| (##structure gx#syntax-quote::t '__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g116618_| + (define |[1]#_g77149_| (##structure gx#syntax-quote::t '__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g116621_| + (define |[1]#_g77152_| (##structure gx#syntax-quote::t '__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g116626_| + (define |[1]#_g77157_| (##structure gx#syntax-quote::t '&__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g116629_| + (define |[1]#_g77160_| (##structure gx#syntax-quote::t '&__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g116634_| + (define |[1]#_g77165_| (##structure gx#syntax-quote::t '&__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g116637_| + (define |[1]#_g77168_| (##structure gx#syntax-quote::t '&__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g116640_| + (define |[1]#_g77171_| (##structure gx#syntax-quote::t '__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g116642_| - (##structure - gx#syntax-quote::t - '__macro::t - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116644_| - (##structure - gx#syntax-quote::t - 'make-__macro - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116646_| - (##structure - gx#syntax-quote::t - '__macro? - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116651_| - (##structure - gx#syntax-quote::t - '__macro-id - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116654_| - (##structure - gx#syntax-quote::t - '__macro-e - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116659_| - (##structure - gx#syntax-quote::t - '__macro-id-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116662_| - (##structure - gx#syntax-quote::t - '__macro-e-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116667_| - (##structure - gx#syntax-quote::t - '&__macro-id - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116670_| - (##structure - gx#syntax-quote::t - '&__macro-e - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116675_| - (##structure - gx#syntax-quote::t - '&__macro-id-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116678_| - (##structure - gx#syntax-quote::t - '&__macro-e-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116681_| - (##structure - gx#syntax-quote::t - '__macro - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116683_| - (##structure - gx#syntax-quote::t - '__special-form::t - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116685_| - (##structure - gx#syntax-quote::t - 'make-__special-form - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116687_| - (##structure - gx#syntax-quote::t - '__special-form? - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116692_| - (##structure - gx#syntax-quote::t - '__special-form-id - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116695_| - (##structure - gx#syntax-quote::t - '__special-form-e - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116700_| - (##structure - gx#syntax-quote::t - '__special-form-id-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116703_| - (##structure - gx#syntax-quote::t - '__special-form-e-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116708_| - (##structure - gx#syntax-quote::t - '&__special-form-id - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116711_| - (##structure - gx#syntax-quote::t - '&__special-form-e - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116716_| - (##structure - gx#syntax-quote::t - '&__special-form-id-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116719_| - (##structure - gx#syntax-quote::t - '&__special-form-e-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116723_| + (define |[1]#_g77173_| (##structure gx#syntax-quote::t '__core-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g116725_| + (define |[1]#_g77175_| (##structure gx#syntax-quote::t 'make-__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g116727_| + (define |[1]#_g77177_| (##structure gx#syntax-quote::t '__core-form? #f (gx#current-expander-context) '())) - (define |[1]#_g116732_| + (define |[1]#_g77182_| (##structure gx#syntax-quote::t '__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g116735_| + (define |[1]#_g77185_| (##structure gx#syntax-quote::t '__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g116740_| + (define |[1]#_g77190_| (##structure gx#syntax-quote::t '__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g116743_| + (define |[1]#_g77193_| (##structure gx#syntax-quote::t '__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g116748_| + (define |[1]#_g77198_| (##structure gx#syntax-quote::t '&__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g116751_| + (define |[1]#_g77201_| (##structure gx#syntax-quote::t '&__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g116756_| + (define |[1]#_g77206_| (##structure gx#syntax-quote::t '&__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g116759_| + (define |[1]#_g77209_| (##structure gx#syntax-quote::t '&__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g116762_| + (define |[1]#_g77212_| (##structure gx#syntax-quote::t '__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g116764_| + (define |[1]#_g77214_| (##structure gx#syntax-quote::t '__core-expression::t #f (gx#current-expander-context) '())) - (define |[1]#_g116766_| + (define |[1]#_g77216_| (##structure gx#syntax-quote::t 'make-__core-expression #f (gx#current-expander-context) '())) - (define |[1]#_g116768_| + (define |[1]#_g77218_| (##structure gx#syntax-quote::t '__core-expression? #f (gx#current-expander-context) '())) - (define |[1]#_g116773_| + (define |[1]#_g77223_| (##structure gx#syntax-quote::t '__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g116776_| + (define |[1]#_g77226_| (##structure gx#syntax-quote::t '__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g116781_| + (define |[1]#_g77231_| (##structure gx#syntax-quote::t '__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g116784_| + (define |[1]#_g77234_| (##structure gx#syntax-quote::t '__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g116789_| + (define |[1]#_g77239_| (##structure gx#syntax-quote::t '&__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g116792_| + (define |[1]#_g77242_| (##structure gx#syntax-quote::t '&__core-expression-e #f - (gx#current-expander-context) - '())) - (define |[1]#_g116797_| - (##structure - gx#syntax-quote::t - '&__core-expression-id-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116800_| - (##structure - gx#syntax-quote::t - '&__core-expression-e-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116804_| - (##structure - gx#syntax-quote::t - '__core-special-form::t - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116806_| - (##structure - gx#syntax-quote::t - 'make-__core-special-form - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116808_| - (##structure - gx#syntax-quote::t - '__core-special-form? - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116813_| - (##structure - gx#syntax-quote::t - '__core-special-form-id - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116816_| - (##structure - gx#syntax-quote::t - '__core-special-form-e - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116821_| - (##structure - gx#syntax-quote::t - '__core-special-form-id-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116824_| - (##structure - gx#syntax-quote::t - '__core-special-form-e-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116829_| - (##structure - gx#syntax-quote::t - '&__core-special-form-id - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116832_| - (##structure - gx#syntax-quote::t - '&__core-special-form-e - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116837_| - (##structure - gx#syntax-quote::t - '&__core-special-form-id-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116840_| - (##structure - gx#syntax-quote::t - '&__core-special-form-e-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116844_| - (##structure - gx#syntax-quote::t - '__struct-info::t - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116846_| - (##structure - gx#syntax-quote::t - 'make-__struct-info - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116848_| - (##structure - gx#syntax-quote::t - '__struct-info? - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116853_| - (##structure - gx#syntax-quote::t - '__struct-info-id - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116856_| - (##structure - gx#syntax-quote::t - '__struct-info-e - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116861_| - (##structure - gx#syntax-quote::t - '__struct-info-id-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116864_| - (##structure - gx#syntax-quote::t - '__struct-info-e-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116869_| - (##structure - gx#syntax-quote::t - '&__struct-info-id - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116872_| - (##structure - gx#syntax-quote::t - '&__struct-info-e - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116877_| - (##structure - gx#syntax-quote::t - '&__struct-info-id-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116880_| - (##structure - gx#syntax-quote::t - '&__struct-info-e-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116884_| - (##structure - gx#syntax-quote::t - '__feature::t - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116886_| - (##structure - gx#syntax-quote::t - 'make-__feature - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116888_| - (##structure - gx#syntax-quote::t - '__feature? - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116893_| - (##structure - gx#syntax-quote::t - '__feature-id - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116896_| - (##structure - gx#syntax-quote::t - '__feature-e - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116901_| - (##structure - gx#syntax-quote::t - '__feature-id-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116904_| - (##structure - gx#syntax-quote::t - '__feature-e-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116909_| - (##structure - gx#syntax-quote::t - '&__feature-id - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116912_| - (##structure - gx#syntax-quote::t - '&__feature-e - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116917_| - (##structure - gx#syntax-quote::t - '&__feature-id-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116920_| - (##structure - gx#syntax-quote::t - '&__feature-e-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116923_| - (##structure - gx#syntax-quote::t - '__context - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116925_| - (##structure - gx#syntax-quote::t - '__module::t - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116927_| - (##structure - gx#syntax-quote::t - 'make-__module - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116929_| - (##structure - gx#syntax-quote::t - '__module? - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116940_| - (##structure - gx#syntax-quote::t - '__module-table - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116943_| - (##structure - gx#syntax-quote::t - '__module-super - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116946_| - (##structure - gx#syntax-quote::t - '__module-ns - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116949_| - (##structure - gx#syntax-quote::t - '__module-t - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116952_| - (##structure - gx#syntax-quote::t - '__module-export - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116955_| - (##structure - gx#syntax-quote::t - '__module-import - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116958_| - (##structure - gx#syntax-quote::t - '__module-path - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116961_| - (##structure - gx#syntax-quote::t - '__module-id - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116972_| - (##structure - gx#syntax-quote::t - '__module-table-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116975_| - (##structure - gx#syntax-quote::t - '__module-super-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116978_| - (##structure - gx#syntax-quote::t - '__module-ns-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116981_| - (##structure - gx#syntax-quote::t - '__module-t-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116984_| - (##structure - gx#syntax-quote::t - '__module-export-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116987_| - (##structure - gx#syntax-quote::t - '__module-import-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116990_| - (##structure - gx#syntax-quote::t - '__module-path-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g116993_| - (##structure - gx#syntax-quote::t - '__module-id-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g117004_| - (##structure - gx#syntax-quote::t - '&__module-table - #f - (gx#current-expander-context) - '())) - (define |[1]#_g117007_| - (##structure - gx#syntax-quote::t - '&__module-super - #f - (gx#current-expander-context) - '())) - (define |[1]#_g117010_| - (##structure - gx#syntax-quote::t - '&__module-ns - #f - (gx#current-expander-context) - '())) - (define |[1]#_g117013_| - (##structure - gx#syntax-quote::t - '&__module-t - #f - (gx#current-expander-context) - '())) - (define |[1]#_g117016_| - (##structure - gx#syntax-quote::t - '&__module-export - #f - (gx#current-expander-context) - '())) - (define |[1]#_g117019_| - (##structure - gx#syntax-quote::t - '&__module-import - #f - (gx#current-expander-context) - '())) - (define |[1]#_g117022_| - (##structure - gx#syntax-quote::t - '&__module-path - #f - (gx#current-expander-context) - '())) - (define |[1]#_g117025_| - (##structure - gx#syntax-quote::t - '&__module-id - #f - (gx#current-expander-context) - '())) - (define |[1]#_g117036_| - (##structure - gx#syntax-quote::t - '&__module-table-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g117039_| - (##structure - gx#syntax-quote::t - '&__module-super-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g117042_| - (##structure - gx#syntax-quote::t - '&__module-ns-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g117045_| - (##structure - gx#syntax-quote::t - '&__module-t-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g117048_| - (##structure - gx#syntax-quote::t - '&__module-export-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g117051_| - (##structure - gx#syntax-quote::t - '&__module-import-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g117054_| - (##structure - gx#syntax-quote::t - '&__module-path-set! - #f - (gx#current-expander-context) - '())) - (define |[1]#_g117057_| - (##structure - gx#syntax-quote::t - '&__module-id-set! - #f - (gx#current-expander-context) - '())) - (begin - (define |[:0:]#__context| - (let ((__obj116098 - (let () - (declare (not safe)) - (##structure - gerbil/core$$#class-type-info::t - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f)))) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116098 - 'gerbil/runtime/eval#__context::t - '1 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116098 - '__context - '2 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116098 - '(t ns super table) - '4 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116098 - '() - '3 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116098 - '#t - '5 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116098 - '#f - '6 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116098 - '#f - '7 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116098 - '#f - '8 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116508 |[1]#_g116509_|)) - (declare (not safe)) - (##unchecked-structure-set! - __obj116098 - __tmp116508 - '9 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116510 |[1]#_g116511_|)) - (declare (not safe)) - (##unchecked-structure-set! - __obj116098 - __tmp116510 - '10 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116512 |[1]#_g116513_|)) - (declare (not safe)) - (##unchecked-structure-set! - __obj116098 - __tmp116512 - '11 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116514 - (let ((__tmp116527 - (let ((__tmp116528 |[1]#_g116529_|)) - (declare (not safe)) - (cons 't __tmp116528))) - (__tmp116515 - (let ((__tmp116524 - (let ((__tmp116525 |[1]#_g116526_|)) - (declare (not safe)) - (cons 'ns __tmp116525))) - (__tmp116516 - (let ((__tmp116521 - (let ((__tmp116522 |[1]#_g116523_|)) - (declare (not safe)) - (cons 'super __tmp116522))) - (__tmp116517 - (let ((__tmp116518 - (let ((__tmp116519 |[1]#_g116520_|)) - (declare (not safe)) - (cons 'table __tmp116519)))) - (declare (not safe)) - (cons __tmp116518 '())))) - (declare (not safe)) - (cons __tmp116521 __tmp116517)))) - (declare (not safe)) - (cons __tmp116524 __tmp116516)))) - (declare (not safe)) - (cons __tmp116527 __tmp116515)))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116098 - __tmp116514 - '12 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116530 - (let ((__tmp116543 - (let ((__tmp116544 |[1]#_g116545_|)) - (declare (not safe)) - (cons 't __tmp116544))) - (__tmp116531 - (let ((__tmp116540 - (let ((__tmp116541 |[1]#_g116542_|)) - (declare (not safe)) - (cons 'ns __tmp116541))) - (__tmp116532 - (let ((__tmp116537 - (let ((__tmp116538 |[1]#_g116539_|)) - (declare (not safe)) - (cons 'super __tmp116538))) - (__tmp116533 - (let ((__tmp116534 - (let ((__tmp116535 |[1]#_g116536_|)) - (declare (not safe)) - (cons 'table __tmp116535)))) - (declare (not safe)) - (cons __tmp116534 '())))) - (declare (not safe)) - (cons __tmp116537 __tmp116533)))) - (declare (not safe)) - (cons __tmp116540 __tmp116532)))) - (declare (not safe)) - (cons __tmp116543 __tmp116531)))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116098 - __tmp116530 - '13 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116546 - (let ((__tmp116559 - (let ((__tmp116560 |[1]#_g116561_|)) - (declare (not safe)) - (cons 't __tmp116560))) - (__tmp116547 - (let ((__tmp116556 - (let ((__tmp116557 |[1]#_g116558_|)) - (declare (not safe)) - (cons 'ns __tmp116557))) - (__tmp116548 - (let ((__tmp116553 - (let ((__tmp116554 |[1]#_g116555_|)) - (declare (not safe)) - (cons 'super __tmp116554))) - (__tmp116549 - (let ((__tmp116550 - (let ((__tmp116551 |[1]#_g116552_|)) - (declare (not safe)) - (cons 'table __tmp116551)))) - (declare (not safe)) - (cons __tmp116550 '())))) - (declare (not safe)) - (cons __tmp116553 __tmp116549)))) - (declare (not safe)) - (cons __tmp116556 __tmp116548)))) - (declare (not safe)) - (cons __tmp116559 __tmp116547)))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116098 - __tmp116546 - '14 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116562 - (let ((__tmp116575 - (let ((__tmp116576 |[1]#_g116577_|)) - (declare (not safe)) - (cons 't __tmp116576))) - (__tmp116563 - (let ((__tmp116572 - (let ((__tmp116573 |[1]#_g116574_|)) - (declare (not safe)) - (cons 'ns __tmp116573))) - (__tmp116564 - (let ((__tmp116569 - (let ((__tmp116570 |[1]#_g116571_|)) - (declare (not safe)) - (cons 'super __tmp116570))) - (__tmp116565 - (let ((__tmp116566 - (let ((__tmp116567 |[1]#_g116568_|)) - (declare (not safe)) - (cons 'table __tmp116567)))) - (declare (not safe)) - (cons __tmp116566 '())))) - (declare (not safe)) - (cons __tmp116569 __tmp116565)))) - (declare (not safe)) - (cons __tmp116572 __tmp116564)))) - (declare (not safe)) - (cons __tmp116575 __tmp116563)))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116098 - __tmp116562 - '15 - gerbil/core$$#class-type-info::t - '#f)) - __obj116098)) - (define |[:0:]#__runtime| - (let ((__obj116099 - (let () - (declare (not safe)) - (##structure - gerbil/core$$#class-type-info::t - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f)))) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116099 - 'gerbil/runtime/eval#__runtime::t - '1 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116099 - '__runtime - '2 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116099 - '(id) - '4 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116099 - '() - '3 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116099 - '#t - '5 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116099 - '#f - '6 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116099 - '#f - '7 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116099 - '#f - '8 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116578 |[1]#_g116579_|)) - (declare (not safe)) - (##unchecked-structure-set! - __obj116099 - __tmp116578 - '9 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116580 |[1]#_g116581_|)) - (declare (not safe)) - (##unchecked-structure-set! - __obj116099 - __tmp116580 - '10 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116582 |[1]#_g116583_|)) - (declare (not safe)) - (##unchecked-structure-set! - __obj116099 - __tmp116582 - '11 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116584 - (let ((__tmp116585 - (let ((__tmp116586 |[1]#_g116587_|)) - (declare (not safe)) - (cons 'id __tmp116586)))) - (declare (not safe)) - (cons __tmp116585 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116099 - __tmp116584 - '12 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116588 - (let ((__tmp116589 - (let ((__tmp116590 |[1]#_g116591_|)) - (declare (not safe)) - (cons 'id __tmp116590)))) - (declare (not safe)) - (cons __tmp116589 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116099 - __tmp116588 - '13 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116592 - (let ((__tmp116593 - (let ((__tmp116594 |[1]#_g116595_|)) - (declare (not safe)) - (cons 'id __tmp116594)))) - (declare (not safe)) - (cons __tmp116593 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116099 - __tmp116592 - '14 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116596 - (let ((__tmp116597 - (let ((__tmp116598 |[1]#_g116599_|)) - (declare (not safe)) - (cons 'id __tmp116598)))) - (declare (not safe)) - (cons __tmp116597 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116099 - __tmp116596 - '15 - gerbil/core$$#class-type-info::t - '#f)) - __obj116099)) - (define |[:0:]#__syntax| - (let ((__obj116100 - (let () - (declare (not safe)) - (##structure - gerbil/core$$#class-type-info::t - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f)))) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116100 - 'gerbil/runtime/eval#__syntax::t - '1 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116100 - '__syntax - '2 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116100 - '(e id) - '4 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116100 - '() - '3 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116100 - '#t - '5 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116100 - '#f - '6 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116100 - '#f - '7 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116100 - '#f - '8 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116600 |[1]#_g116601_|)) - (declare (not safe)) - (##unchecked-structure-set! - __obj116100 - __tmp116600 - '9 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116602 |[1]#_g116603_|)) - (declare (not safe)) - (##unchecked-structure-set! - __obj116100 - __tmp116602 - '10 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116604 |[1]#_g116605_|)) - (declare (not safe)) - (##unchecked-structure-set! - __obj116100 - __tmp116604 - '11 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116606 - (let ((__tmp116611 - (let ((__tmp116612 |[1]#_g116613_|)) - (declare (not safe)) - (cons 'e __tmp116612))) - (__tmp116607 - (let ((__tmp116608 - (let ((__tmp116609 |[1]#_g116610_|)) - (declare (not safe)) - (cons 'id __tmp116609)))) - (declare (not safe)) - (cons __tmp116608 '())))) - (declare (not safe)) - (cons __tmp116611 __tmp116607)))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116100 - __tmp116606 - '12 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116614 - (let ((__tmp116619 - (let ((__tmp116620 |[1]#_g116621_|)) - (declare (not safe)) - (cons 'e __tmp116620))) - (__tmp116615 - (let ((__tmp116616 - (let ((__tmp116617 |[1]#_g116618_|)) - (declare (not safe)) - (cons 'id __tmp116617)))) - (declare (not safe)) - (cons __tmp116616 '())))) - (declare (not safe)) - (cons __tmp116619 __tmp116615)))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116100 - __tmp116614 - '13 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116622 - (let ((__tmp116627 - (let ((__tmp116628 |[1]#_g116629_|)) - (declare (not safe)) - (cons 'e __tmp116628))) - (__tmp116623 - (let ((__tmp116624 - (let ((__tmp116625 |[1]#_g116626_|)) - (declare (not safe)) - (cons 'id __tmp116625)))) - (declare (not safe)) - (cons __tmp116624 '())))) - (declare (not safe)) - (cons __tmp116627 __tmp116623)))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116100 - __tmp116622 - '14 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116630 - (let ((__tmp116635 - (let ((__tmp116636 |[1]#_g116637_|)) - (declare (not safe)) - (cons 'e __tmp116636))) - (__tmp116631 - (let ((__tmp116632 - (let ((__tmp116633 |[1]#_g116634_|)) - (declare (not safe)) - (cons 'id __tmp116633)))) - (declare (not safe)) - (cons __tmp116632 '())))) - (declare (not safe)) - (cons __tmp116635 __tmp116631)))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116100 - __tmp116630 - '15 - gerbil/core$$#class-type-info::t - '#f)) - __obj116100)) - (define |[:0:]#__macro| - (let ((__obj116101 - (let () - (declare (not safe)) - (##structure - gerbil/core$$#class-type-info::t - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f)))) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116101 - 'gerbil/runtime/eval#__macro::t - '1 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116101 - '__macro - '2 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116101 - '() - '4 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116638 - (let ((__tmp116639 |[1]#_g116640_|)) - (declare (not safe)) - (cons __tmp116639 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116101 - __tmp116638 - '3 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116101 - '#t - '5 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116101 - '#f - '6 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116101 - '#f - '7 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116101 - '#f - '8 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116641 |[1]#_g116642_|)) - (declare (not safe)) - (##unchecked-structure-set! - __obj116101 - __tmp116641 - '9 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116643 |[1]#_g116644_|)) - (declare (not safe)) - (##unchecked-structure-set! - __obj116101 - __tmp116643 - '10 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116645 |[1]#_g116646_|)) - (declare (not safe)) - (##unchecked-structure-set! - __obj116101 - __tmp116645 - '11 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116647 - (let ((__tmp116652 - (let ((__tmp116653 |[1]#_g116654_|)) - (declare (not safe)) - (cons 'e __tmp116653))) - (__tmp116648 - (let ((__tmp116649 - (let ((__tmp116650 |[1]#_g116651_|)) - (declare (not safe)) - (cons 'id __tmp116650)))) - (declare (not safe)) - (cons __tmp116649 '())))) - (declare (not safe)) - (cons __tmp116652 __tmp116648)))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116101 - __tmp116647 - '12 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116655 - (let ((__tmp116660 - (let ((__tmp116661 |[1]#_g116662_|)) - (declare (not safe)) - (cons 'e __tmp116661))) - (__tmp116656 - (let ((__tmp116657 - (let ((__tmp116658 |[1]#_g116659_|)) - (declare (not safe)) - (cons 'id __tmp116658)))) - (declare (not safe)) - (cons __tmp116657 '())))) - (declare (not safe)) - (cons __tmp116660 __tmp116656)))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116101 - __tmp116655 - '13 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116663 - (let ((__tmp116668 - (let ((__tmp116669 |[1]#_g116670_|)) - (declare (not safe)) - (cons 'e __tmp116669))) - (__tmp116664 - (let ((__tmp116665 - (let ((__tmp116666 |[1]#_g116667_|)) - (declare (not safe)) - (cons 'id __tmp116666)))) - (declare (not safe)) - (cons __tmp116665 '())))) - (declare (not safe)) - (cons __tmp116668 __tmp116664)))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116101 - __tmp116663 - '14 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116671 - (let ((__tmp116676 - (let ((__tmp116677 |[1]#_g116678_|)) - (declare (not safe)) - (cons 'e __tmp116677))) - (__tmp116672 - (let ((__tmp116673 - (let ((__tmp116674 |[1]#_g116675_|)) - (declare (not safe)) - (cons 'id __tmp116674)))) - (declare (not safe)) - (cons __tmp116673 '())))) - (declare (not safe)) - (cons __tmp116676 __tmp116672)))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116101 - __tmp116671 - '15 - gerbil/core$$#class-type-info::t - '#f)) - __obj116101)) - (define |[:0:]#__special-form| - (let ((__obj116102 - (let () - (declare (not safe)) - (##structure - gerbil/core$$#class-type-info::t - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f)))) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116102 - 'gerbil/runtime/eval#__special-form::t - '1 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116102 - '__special-form - '2 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116102 - '() - '4 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116679 - (let ((__tmp116680 |[1]#_g116681_|)) - (declare (not safe)) - (cons __tmp116680 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116102 - __tmp116679 - '3 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116102 - '#t - '5 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116102 - '#f - '6 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116102 - '#f - '7 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116102 - '#f - '8 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116682 |[1]#_g116683_|)) - (declare (not safe)) - (##unchecked-structure-set! - __obj116102 - __tmp116682 - '9 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116684 |[1]#_g116685_|)) - (declare (not safe)) - (##unchecked-structure-set! - __obj116102 - __tmp116684 - '10 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116686 |[1]#_g116687_|)) - (declare (not safe)) - (##unchecked-structure-set! - __obj116102 - __tmp116686 - '11 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116688 - (let ((__tmp116693 - (let ((__tmp116694 |[1]#_g116695_|)) - (declare (not safe)) - (cons 'e __tmp116694))) - (__tmp116689 - (let ((__tmp116690 - (let ((__tmp116691 |[1]#_g116692_|)) - (declare (not safe)) - (cons 'id __tmp116691)))) - (declare (not safe)) - (cons __tmp116690 '())))) - (declare (not safe)) - (cons __tmp116693 __tmp116689)))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116102 - __tmp116688 - '12 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116696 - (let ((__tmp116701 - (let ((__tmp116702 |[1]#_g116703_|)) - (declare (not safe)) - (cons 'e __tmp116702))) - (__tmp116697 - (let ((__tmp116698 - (let ((__tmp116699 |[1]#_g116700_|)) - (declare (not safe)) - (cons 'id __tmp116699)))) - (declare (not safe)) - (cons __tmp116698 '())))) - (declare (not safe)) - (cons __tmp116701 __tmp116697)))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116102 - __tmp116696 - '13 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116704 - (let ((__tmp116709 - (let ((__tmp116710 |[1]#_g116711_|)) - (declare (not safe)) - (cons 'e __tmp116710))) - (__tmp116705 - (let ((__tmp116706 - (let ((__tmp116707 |[1]#_g116708_|)) - (declare (not safe)) - (cons 'id __tmp116707)))) - (declare (not safe)) - (cons __tmp116706 '())))) - (declare (not safe)) - (cons __tmp116709 __tmp116705)))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116102 - __tmp116704 - '14 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116712 - (let ((__tmp116717 - (let ((__tmp116718 |[1]#_g116719_|)) - (declare (not safe)) - (cons 'e __tmp116718))) - (__tmp116713 - (let ((__tmp116714 - (let ((__tmp116715 |[1]#_g116716_|)) - (declare (not safe)) - (cons 'id __tmp116715)))) - (declare (not safe)) - (cons __tmp116714 '())))) - (declare (not safe)) - (cons __tmp116717 __tmp116713)))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116102 - __tmp116712 - '15 - gerbil/core$$#class-type-info::t - '#f)) - __obj116102)) - (define |[:0:]#__core-form| - (let ((__obj116103 - (let () - (declare (not safe)) - (##structure - gerbil/core$$#class-type-info::t - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f)))) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116103 - 'gerbil/runtime/eval#__core-form::t - '1 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116103 - '__core-form - '2 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116103 - '() - '4 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116720 - (let ((__tmp116721 |[1]#_g116640_|)) - (declare (not safe)) - (cons __tmp116721 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116103 - __tmp116720 - '3 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116103 - '#t - '5 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116103 - '#f - '6 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116103 - '#f - '7 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116103 - '#f - '8 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116722 |[1]#_g116723_|)) - (declare (not safe)) - (##unchecked-structure-set! - __obj116103 - __tmp116722 - '9 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116724 |[1]#_g116725_|)) - (declare (not safe)) - (##unchecked-structure-set! - __obj116103 - __tmp116724 - '10 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116726 |[1]#_g116727_|)) - (declare (not safe)) - (##unchecked-structure-set! - __obj116103 - __tmp116726 - '11 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116728 - (let ((__tmp116733 - (let ((__tmp116734 |[1]#_g116735_|)) - (declare (not safe)) - (cons 'e __tmp116734))) - (__tmp116729 - (let ((__tmp116730 - (let ((__tmp116731 |[1]#_g116732_|)) - (declare (not safe)) - (cons 'id __tmp116731)))) - (declare (not safe)) - (cons __tmp116730 '())))) - (declare (not safe)) - (cons __tmp116733 __tmp116729)))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116103 - __tmp116728 - '12 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116736 - (let ((__tmp116741 - (let ((__tmp116742 |[1]#_g116743_|)) - (declare (not safe)) - (cons 'e __tmp116742))) - (__tmp116737 - (let ((__tmp116738 - (let ((__tmp116739 |[1]#_g116740_|)) - (declare (not safe)) - (cons 'id __tmp116739)))) - (declare (not safe)) - (cons __tmp116738 '())))) - (declare (not safe)) - (cons __tmp116741 __tmp116737)))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116103 - __tmp116736 - '13 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116744 - (let ((__tmp116749 - (let ((__tmp116750 |[1]#_g116751_|)) - (declare (not safe)) - (cons 'e __tmp116750))) - (__tmp116745 - (let ((__tmp116746 - (let ((__tmp116747 |[1]#_g116748_|)) - (declare (not safe)) - (cons 'id __tmp116747)))) - (declare (not safe)) - (cons __tmp116746 '())))) - (declare (not safe)) - (cons __tmp116749 __tmp116745)))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116103 - __tmp116744 - '14 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116752 - (let ((__tmp116757 - (let ((__tmp116758 |[1]#_g116759_|)) - (declare (not safe)) - (cons 'e __tmp116758))) - (__tmp116753 - (let ((__tmp116754 - (let ((__tmp116755 |[1]#_g116756_|)) - (declare (not safe)) - (cons 'id __tmp116755)))) - (declare (not safe)) - (cons __tmp116754 '())))) - (declare (not safe)) - (cons __tmp116757 __tmp116753)))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116103 - __tmp116752 - '15 - gerbil/core$$#class-type-info::t - '#f)) - __obj116103)) - (define |[:0:]#__core-expression| - (let ((__obj116104 + (gx#current-expander-context) + '())) + (define |[1]#_g77247_| + (##structure + gx#syntax-quote::t + '&__core-expression-id-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g77250_| + (##structure + gx#syntax-quote::t + '&__core-expression-e-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g77254_| + (##structure + gx#syntax-quote::t + '__core-special-form::t + #f + (gx#current-expander-context) + '())) + (define |[1]#_g77256_| + (##structure + gx#syntax-quote::t + 'make-__core-special-form + #f + (gx#current-expander-context) + '())) + (define |[1]#_g77258_| + (##structure + gx#syntax-quote::t + '__core-special-form? + #f + (gx#current-expander-context) + '())) + (define |[1]#_g77263_| + (##structure + gx#syntax-quote::t + '__core-special-form-id + #f + (gx#current-expander-context) + '())) + (define |[1]#_g77266_| + (##structure + gx#syntax-quote::t + '__core-special-form-e + #f + (gx#current-expander-context) + '())) + (define |[1]#_g77271_| + (##structure + gx#syntax-quote::t + '__core-special-form-id-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g77274_| + (##structure + gx#syntax-quote::t + '__core-special-form-e-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g77279_| + (##structure + gx#syntax-quote::t + '&__core-special-form-id + #f + (gx#current-expander-context) + '())) + (define |[1]#_g77282_| + (##structure + gx#syntax-quote::t + '&__core-special-form-e + #f + (gx#current-expander-context) + '())) + (define |[1]#_g77287_| + (##structure + gx#syntax-quote::t + '&__core-special-form-id-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g77290_| + (##structure + gx#syntax-quote::t + '&__core-special-form-e-set! + #f + (gx#current-expander-context) + '())) + (begin + (define |[:0:]#__syntax| + (let ((__obj76770 (let () (declare (not safe)) (##structure @@ -2297,239 +347,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj116104 - 'gerbil/runtime/eval#__core-expression::t + __obj76770 + 'gerbil/runtime/eval#__syntax::t '1 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj116104 - '__core-expression + __obj76770 + '__syntax '2 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj116104 - '() + __obj76770 + '(e id) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116760 - (let ((__tmp116761 |[1]#_g116762_|)) - (declare (not safe)) - (cons __tmp116761 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116104 - __tmp116760 - '3 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116104 - '#t - '5 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116104 - '#f - '6 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116104 - '#f - '7 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116104 - '#f - '8 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116763 |[1]#_g116764_|)) - (declare (not safe)) - (##unchecked-structure-set! - __obj116104 - __tmp116763 - '9 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116765 |[1]#_g116766_|)) - (declare (not safe)) - (##unchecked-structure-set! - __obj116104 - __tmp116765 - '10 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116767 |[1]#_g116768_|)) - (declare (not safe)) - (##unchecked-structure-set! - __obj116104 - __tmp116767 - '11 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116769 - (let ((__tmp116774 - (let ((__tmp116775 |[1]#_g116776_|)) - (declare (not safe)) - (cons 'e __tmp116775))) - (__tmp116770 - (let ((__tmp116771 - (let ((__tmp116772 |[1]#_g116773_|)) - (declare (not safe)) - (cons 'id __tmp116772)))) - (declare (not safe)) - (cons __tmp116771 '())))) - (declare (not safe)) - (cons __tmp116774 __tmp116770)))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116104 - __tmp116769 - '12 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116777 - (let ((__tmp116782 - (let ((__tmp116783 |[1]#_g116784_|)) - (declare (not safe)) - (cons 'e __tmp116783))) - (__tmp116778 - (let ((__tmp116779 - (let ((__tmp116780 |[1]#_g116781_|)) - (declare (not safe)) - (cons 'id __tmp116780)))) - (declare (not safe)) - (cons __tmp116779 '())))) - (declare (not safe)) - (cons __tmp116782 __tmp116778)))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116104 - __tmp116777 - '13 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116785 - (let ((__tmp116790 - (let ((__tmp116791 |[1]#_g116792_|)) - (declare (not safe)) - (cons 'e __tmp116791))) - (__tmp116786 - (let ((__tmp116787 - (let ((__tmp116788 |[1]#_g116789_|)) - (declare (not safe)) - (cons 'id __tmp116788)))) - (declare (not safe)) - (cons __tmp116787 '())))) - (declare (not safe)) - (cons __tmp116790 __tmp116786)))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116104 - __tmp116785 - '14 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116793 - (let ((__tmp116798 - (let ((__tmp116799 |[1]#_g116800_|)) - (declare (not safe)) - (cons 'e __tmp116799))) - (__tmp116794 - (let ((__tmp116795 - (let ((__tmp116796 |[1]#_g116797_|)) - (declare (not safe)) - (cons 'id __tmp116796)))) - (declare (not safe)) - (cons __tmp116795 '())))) - (declare (not safe)) - (cons __tmp116798 __tmp116794)))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116104 - __tmp116793 - '15 - gerbil/core$$#class-type-info::t - '#f)) - __obj116104)) - (define |[:0:]#__core-special-form| - (let ((__obj116105 - (let () - (declare (not safe)) - (##structure - gerbil/core$$#class-type-info::t - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f)))) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116105 - 'gerbil/runtime/eval#__core-special-form::t - '1 - gerbil/core$$#class-type-info::t - '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj116105 - '__core-special-form - '2 - gerbil/core$$#class-type-info::t - '#f)) - (let () - (declare (not safe)) - (##unchecked-structure-set! - __obj116105 + __obj76770 '() - '4 - gerbil/core$$#class-type-info::t - '#f)) - (let ((__tmp116801 - (let ((__tmp116802 |[1]#_g116762_|)) - (declare (not safe)) - (cons __tmp116802 '())))) - (declare (not safe)) - (##unchecked-structure-set! - __obj116105 - __tmp116801 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj116105 + __obj76770 '#t '5 gerbil/core$$#class-type-info::t @@ -2537,7 +387,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj116105 + __obj76770 '#f '6 gerbil/core$$#class-type-info::t @@ -2545,7 +395,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj116105 + __obj76770 '#f '7 gerbil/core$$#class-type-info::t @@ -2553,122 +403,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj116105 + __obj76770 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116803 |[1]#_g116804_|)) + (let ((__tmp77131 |[1]#_g77132_|)) (declare (not safe)) (##unchecked-structure-set! - __obj116105 - __tmp116803 + __obj76770 + __tmp77131 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116805 |[1]#_g116806_|)) + (let ((__tmp77133 |[1]#_g77134_|)) (declare (not safe)) (##unchecked-structure-set! - __obj116105 - __tmp116805 + __obj76770 + __tmp77133 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116807 |[1]#_g116808_|)) + (let ((__tmp77135 |[1]#_g77136_|)) (declare (not safe)) (##unchecked-structure-set! - __obj116105 - __tmp116807 + __obj76770 + __tmp77135 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116809 - (let ((__tmp116814 - (let ((__tmp116815 |[1]#_g116816_|)) + (let ((__tmp77137 + (let ((__tmp77142 + (let ((__tmp77143 |[1]#_g77144_|)) (declare (not safe)) - (cons 'e __tmp116815))) - (__tmp116810 - (let ((__tmp116811 - (let ((__tmp116812 |[1]#_g116813_|)) + (cons 'e __tmp77143))) + (__tmp77138 + (let ((__tmp77139 + (let ((__tmp77140 |[1]#_g77141_|)) (declare (not safe)) - (cons 'id __tmp116812)))) + (cons 'id __tmp77140)))) (declare (not safe)) - (cons __tmp116811 '())))) + (cons __tmp77139 '())))) (declare (not safe)) - (cons __tmp116814 __tmp116810)))) + (cons __tmp77142 __tmp77138)))) (declare (not safe)) (##unchecked-structure-set! - __obj116105 - __tmp116809 + __obj76770 + __tmp77137 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116817 - (let ((__tmp116822 - (let ((__tmp116823 |[1]#_g116824_|)) + (let ((__tmp77145 + (let ((__tmp77150 + (let ((__tmp77151 |[1]#_g77152_|)) (declare (not safe)) - (cons 'e __tmp116823))) - (__tmp116818 - (let ((__tmp116819 - (let ((__tmp116820 |[1]#_g116821_|)) + (cons 'e __tmp77151))) + (__tmp77146 + (let ((__tmp77147 + (let ((__tmp77148 |[1]#_g77149_|)) (declare (not safe)) - (cons 'id __tmp116820)))) + (cons 'id __tmp77148)))) (declare (not safe)) - (cons __tmp116819 '())))) + (cons __tmp77147 '())))) (declare (not safe)) - (cons __tmp116822 __tmp116818)))) + (cons __tmp77150 __tmp77146)))) (declare (not safe)) (##unchecked-structure-set! - __obj116105 - __tmp116817 + __obj76770 + __tmp77145 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116825 - (let ((__tmp116830 - (let ((__tmp116831 |[1]#_g116832_|)) + (let ((__tmp77153 + (let ((__tmp77158 + (let ((__tmp77159 |[1]#_g77160_|)) (declare (not safe)) - (cons 'e __tmp116831))) - (__tmp116826 - (let ((__tmp116827 - (let ((__tmp116828 |[1]#_g116829_|)) + (cons 'e __tmp77159))) + (__tmp77154 + (let ((__tmp77155 + (let ((__tmp77156 |[1]#_g77157_|)) (declare (not safe)) - (cons 'id __tmp116828)))) + (cons 'id __tmp77156)))) (declare (not safe)) - (cons __tmp116827 '())))) + (cons __tmp77155 '())))) (declare (not safe)) - (cons __tmp116830 __tmp116826)))) + (cons __tmp77158 __tmp77154)))) (declare (not safe)) (##unchecked-structure-set! - __obj116105 - __tmp116825 + __obj76770 + __tmp77153 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116833 - (let ((__tmp116838 - (let ((__tmp116839 |[1]#_g116840_|)) + (let ((__tmp77161 + (let ((__tmp77166 + (let ((__tmp77167 |[1]#_g77168_|)) (declare (not safe)) - (cons 'e __tmp116839))) - (__tmp116834 - (let ((__tmp116835 - (let ((__tmp116836 |[1]#_g116837_|)) + (cons 'e __tmp77167))) + (__tmp77162 + (let ((__tmp77163 + (let ((__tmp77164 |[1]#_g77165_|)) (declare (not safe)) - (cons 'id __tmp116836)))) + (cons 'id __tmp77164)))) (declare (not safe)) - (cons __tmp116835 '())))) + (cons __tmp77163 '())))) (declare (not safe)) - (cons __tmp116838 __tmp116834)))) + (cons __tmp77166 __tmp77162)))) (declare (not safe)) (##unchecked-structure-set! - __obj116105 - __tmp116833 + __obj76770 + __tmp77161 '15 gerbil/core$$#class-type-info::t '#f)) - __obj116105)) - (define |[:0:]#__struct-info| - (let ((__obj116106 + __obj76770)) + (define |[:0:]#__core-form| + (let ((__obj76771 (let () (declare (not safe)) (##structure @@ -2691,42 +541,42 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj116106 - 'gerbil/runtime/eval#__struct-info::t + __obj76771 + 'gerbil/runtime/eval#__core-form::t '1 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj116106 - '__struct-info + __obj76771 + '__core-form '2 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj116106 + __obj76771 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116841 - (let ((__tmp116842 |[1]#_g116640_|)) + (let ((__tmp77169 + (let ((__tmp77170 |[1]#_g77171_|)) (declare (not safe)) - (cons __tmp116842 '())))) + (cons __tmp77170 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj116106 - __tmp116841 + __obj76771 + __tmp77169 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj116106 + __obj76771 '#t '5 gerbil/core$$#class-type-info::t @@ -2734,7 +584,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj116106 + __obj76771 '#f '6 gerbil/core$$#class-type-info::t @@ -2742,7 +592,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj116106 + __obj76771 '#f '7 gerbil/core$$#class-type-info::t @@ -2750,122 +600,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj116106 + __obj76771 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116843 |[1]#_g116844_|)) + (let ((__tmp77172 |[1]#_g77173_|)) (declare (not safe)) (##unchecked-structure-set! - __obj116106 - __tmp116843 + __obj76771 + __tmp77172 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116845 |[1]#_g116846_|)) + (let ((__tmp77174 |[1]#_g77175_|)) (declare (not safe)) (##unchecked-structure-set! - __obj116106 - __tmp116845 + __obj76771 + __tmp77174 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116847 |[1]#_g116848_|)) + (let ((__tmp77176 |[1]#_g77177_|)) (declare (not safe)) (##unchecked-structure-set! - __obj116106 - __tmp116847 + __obj76771 + __tmp77176 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116849 - (let ((__tmp116854 - (let ((__tmp116855 |[1]#_g116856_|)) + (let ((__tmp77178 + (let ((__tmp77183 + (let ((__tmp77184 |[1]#_g77185_|)) (declare (not safe)) - (cons 'e __tmp116855))) - (__tmp116850 - (let ((__tmp116851 - (let ((__tmp116852 |[1]#_g116853_|)) + (cons 'e __tmp77184))) + (__tmp77179 + (let ((__tmp77180 + (let ((__tmp77181 |[1]#_g77182_|)) (declare (not safe)) - (cons 'id __tmp116852)))) + (cons 'id __tmp77181)))) (declare (not safe)) - (cons __tmp116851 '())))) + (cons __tmp77180 '())))) (declare (not safe)) - (cons __tmp116854 __tmp116850)))) + (cons __tmp77183 __tmp77179)))) (declare (not safe)) (##unchecked-structure-set! - __obj116106 - __tmp116849 + __obj76771 + __tmp77178 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116857 - (let ((__tmp116862 - (let ((__tmp116863 |[1]#_g116864_|)) + (let ((__tmp77186 + (let ((__tmp77191 + (let ((__tmp77192 |[1]#_g77193_|)) (declare (not safe)) - (cons 'e __tmp116863))) - (__tmp116858 - (let ((__tmp116859 - (let ((__tmp116860 |[1]#_g116861_|)) + (cons 'e __tmp77192))) + (__tmp77187 + (let ((__tmp77188 + (let ((__tmp77189 |[1]#_g77190_|)) (declare (not safe)) - (cons 'id __tmp116860)))) + (cons 'id __tmp77189)))) (declare (not safe)) - (cons __tmp116859 '())))) + (cons __tmp77188 '())))) (declare (not safe)) - (cons __tmp116862 __tmp116858)))) + (cons __tmp77191 __tmp77187)))) (declare (not safe)) (##unchecked-structure-set! - __obj116106 - __tmp116857 + __obj76771 + __tmp77186 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116865 - (let ((__tmp116870 - (let ((__tmp116871 |[1]#_g116872_|)) + (let ((__tmp77194 + (let ((__tmp77199 + (let ((__tmp77200 |[1]#_g77201_|)) (declare (not safe)) - (cons 'e __tmp116871))) - (__tmp116866 - (let ((__tmp116867 - (let ((__tmp116868 |[1]#_g116869_|)) + (cons 'e __tmp77200))) + (__tmp77195 + (let ((__tmp77196 + (let ((__tmp77197 |[1]#_g77198_|)) (declare (not safe)) - (cons 'id __tmp116868)))) + (cons 'id __tmp77197)))) (declare (not safe)) - (cons __tmp116867 '())))) + (cons __tmp77196 '())))) (declare (not safe)) - (cons __tmp116870 __tmp116866)))) + (cons __tmp77199 __tmp77195)))) (declare (not safe)) (##unchecked-structure-set! - __obj116106 - __tmp116865 + __obj76771 + __tmp77194 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116873 - (let ((__tmp116878 - (let ((__tmp116879 |[1]#_g116880_|)) + (let ((__tmp77202 + (let ((__tmp77207 + (let ((__tmp77208 |[1]#_g77209_|)) (declare (not safe)) - (cons 'e __tmp116879))) - (__tmp116874 - (let ((__tmp116875 - (let ((__tmp116876 |[1]#_g116877_|)) + (cons 'e __tmp77208))) + (__tmp77203 + (let ((__tmp77204 + (let ((__tmp77205 |[1]#_g77206_|)) (declare (not safe)) - (cons 'id __tmp116876)))) + (cons 'id __tmp77205)))) (declare (not safe)) - (cons __tmp116875 '())))) + (cons __tmp77204 '())))) (declare (not safe)) - (cons __tmp116878 __tmp116874)))) + (cons __tmp77207 __tmp77203)))) (declare (not safe)) (##unchecked-structure-set! - __obj116106 - __tmp116873 + __obj76771 + __tmp77202 '15 gerbil/core$$#class-type-info::t '#f)) - __obj116106)) - (define |[:0:]#__feature| - (let ((__obj116107 + __obj76771)) + (define |[:0:]#__core-expression| + (let ((__obj76772 (let () (declare (not safe)) (##structure @@ -2888,42 +738,42 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj116107 - 'gerbil/runtime/eval#__feature::t + __obj76772 + 'gerbil/runtime/eval#__core-expression::t '1 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj116107 - '__feature + __obj76772 + '__core-expression '2 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj116107 + __obj76772 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116881 - (let ((__tmp116882 |[1]#_g116640_|)) + (let ((__tmp77210 + (let ((__tmp77211 |[1]#_g77212_|)) (declare (not safe)) - (cons __tmp116882 '())))) + (cons __tmp77211 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj116107 - __tmp116881 + __obj76772 + __tmp77210 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj116107 + __obj76772 '#t '5 gerbil/core$$#class-type-info::t @@ -2931,7 +781,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj116107 + __obj76772 '#f '6 gerbil/core$$#class-type-info::t @@ -2939,7 +789,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj116107 + __obj76772 '#f '7 gerbil/core$$#class-type-info::t @@ -2947,122 +797,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj116107 + __obj76772 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116883 |[1]#_g116884_|)) + (let ((__tmp77213 |[1]#_g77214_|)) (declare (not safe)) (##unchecked-structure-set! - __obj116107 - __tmp116883 + __obj76772 + __tmp77213 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116885 |[1]#_g116886_|)) + (let ((__tmp77215 |[1]#_g77216_|)) (declare (not safe)) (##unchecked-structure-set! - __obj116107 - __tmp116885 + __obj76772 + __tmp77215 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116887 |[1]#_g116888_|)) + (let ((__tmp77217 |[1]#_g77218_|)) (declare (not safe)) (##unchecked-structure-set! - __obj116107 - __tmp116887 + __obj76772 + __tmp77217 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116889 - (let ((__tmp116894 - (let ((__tmp116895 |[1]#_g116896_|)) + (let ((__tmp77219 + (let ((__tmp77224 + (let ((__tmp77225 |[1]#_g77226_|)) (declare (not safe)) - (cons 'e __tmp116895))) - (__tmp116890 - (let ((__tmp116891 - (let ((__tmp116892 |[1]#_g116893_|)) + (cons 'e __tmp77225))) + (__tmp77220 + (let ((__tmp77221 + (let ((__tmp77222 |[1]#_g77223_|)) (declare (not safe)) - (cons 'id __tmp116892)))) + (cons 'id __tmp77222)))) (declare (not safe)) - (cons __tmp116891 '())))) + (cons __tmp77221 '())))) (declare (not safe)) - (cons __tmp116894 __tmp116890)))) + (cons __tmp77224 __tmp77220)))) (declare (not safe)) (##unchecked-structure-set! - __obj116107 - __tmp116889 + __obj76772 + __tmp77219 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116897 - (let ((__tmp116902 - (let ((__tmp116903 |[1]#_g116904_|)) + (let ((__tmp77227 + (let ((__tmp77232 + (let ((__tmp77233 |[1]#_g77234_|)) (declare (not safe)) - (cons 'e __tmp116903))) - (__tmp116898 - (let ((__tmp116899 - (let ((__tmp116900 |[1]#_g116901_|)) + (cons 'e __tmp77233))) + (__tmp77228 + (let ((__tmp77229 + (let ((__tmp77230 |[1]#_g77231_|)) (declare (not safe)) - (cons 'id __tmp116900)))) + (cons 'id __tmp77230)))) (declare (not safe)) - (cons __tmp116899 '())))) + (cons __tmp77229 '())))) (declare (not safe)) - (cons __tmp116902 __tmp116898)))) + (cons __tmp77232 __tmp77228)))) (declare (not safe)) (##unchecked-structure-set! - __obj116107 - __tmp116897 + __obj76772 + __tmp77227 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116905 - (let ((__tmp116910 - (let ((__tmp116911 |[1]#_g116912_|)) + (let ((__tmp77235 + (let ((__tmp77240 + (let ((__tmp77241 |[1]#_g77242_|)) (declare (not safe)) - (cons 'e __tmp116911))) - (__tmp116906 - (let ((__tmp116907 - (let ((__tmp116908 |[1]#_g116909_|)) + (cons 'e __tmp77241))) + (__tmp77236 + (let ((__tmp77237 + (let ((__tmp77238 |[1]#_g77239_|)) (declare (not safe)) - (cons 'id __tmp116908)))) + (cons 'id __tmp77238)))) (declare (not safe)) - (cons __tmp116907 '())))) + (cons __tmp77237 '())))) (declare (not safe)) - (cons __tmp116910 __tmp116906)))) + (cons __tmp77240 __tmp77236)))) (declare (not safe)) (##unchecked-structure-set! - __obj116107 - __tmp116905 + __obj76772 + __tmp77235 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116913 - (let ((__tmp116918 - (let ((__tmp116919 |[1]#_g116920_|)) + (let ((__tmp77243 + (let ((__tmp77248 + (let ((__tmp77249 |[1]#_g77250_|)) (declare (not safe)) - (cons 'e __tmp116919))) - (__tmp116914 - (let ((__tmp116915 - (let ((__tmp116916 |[1]#_g116917_|)) + (cons 'e __tmp77249))) + (__tmp77244 + (let ((__tmp77245 + (let ((__tmp77246 |[1]#_g77247_|)) (declare (not safe)) - (cons 'id __tmp116916)))) + (cons 'id __tmp77246)))) (declare (not safe)) - (cons __tmp116915 '())))) + (cons __tmp77245 '())))) (declare (not safe)) - (cons __tmp116918 __tmp116914)))) + (cons __tmp77248 __tmp77244)))) (declare (not safe)) (##unchecked-structure-set! - __obj116107 - __tmp116913 + __obj76772 + __tmp77243 '15 gerbil/core$$#class-type-info::t '#f)) - __obj116107)) - (define |[:0:]#__module| - (let ((__obj116108 + __obj76772)) + (define |[:0:]#__core-special-form| + (let ((__obj76773 (let () (declare (not safe)) (##structure @@ -3085,42 +935,42 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj116108 - 'gerbil/runtime/eval#__module::t + __obj76773 + 'gerbil/runtime/eval#__core-special-form::t '1 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj116108 - '__module + __obj76773 + '__core-special-form '2 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj116108 - '(id path import export) + __obj76773 + '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116921 - (let ((__tmp116922 |[1]#_g116923_|)) + (let ((__tmp77251 + (let ((__tmp77252 |[1]#_g77212_|)) (declare (not safe)) - (cons __tmp116922 '())))) + (cons __tmp77252 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj116108 - __tmp116921 + __obj76773 + __tmp77251 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj116108 + __obj76773 '#t '5 gerbil/core$$#class-type-info::t @@ -3128,7 +978,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj116108 + __obj76773 '#f '6 gerbil/core$$#class-type-info::t @@ -3136,7 +986,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj116108 + __obj76773 '#f '7 gerbil/core$$#class-type-info::t @@ -3144,526 +994,327 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj116108 + __obj76773 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116924 |[1]#_g116925_|)) + (let ((__tmp77253 |[1]#_g77254_|)) (declare (not safe)) (##unchecked-structure-set! - __obj116108 - __tmp116924 + __obj76773 + __tmp77253 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116926 |[1]#_g116927_|)) + (let ((__tmp77255 |[1]#_g77256_|)) (declare (not safe)) (##unchecked-structure-set! - __obj116108 - __tmp116926 + __obj76773 + __tmp77255 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116928 |[1]#_g116929_|)) + (let ((__tmp77257 |[1]#_g77258_|)) (declare (not safe)) (##unchecked-structure-set! - __obj116108 - __tmp116928 + __obj76773 + __tmp77257 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116930 - (let ((__tmp116959 - (let ((__tmp116960 |[1]#_g116961_|)) + (let ((__tmp77259 + (let ((__tmp77264 + (let ((__tmp77265 |[1]#_g77266_|)) (declare (not safe)) - (cons 'id __tmp116960))) - (__tmp116931 - (let ((__tmp116956 - (let ((__tmp116957 |[1]#_g116958_|)) - (declare (not safe)) - (cons 'path __tmp116957))) - (__tmp116932 - (let ((__tmp116953 - (let ((__tmp116954 |[1]#_g116955_|)) - (declare (not safe)) - (cons 'import __tmp116954))) - (__tmp116933 - (let ((__tmp116950 - (let ((__tmp116951 |[1]#_g116952_|)) - (declare (not safe)) - (cons 'export __tmp116951))) - (__tmp116934 - (let ((__tmp116947 - (let ((__tmp116948 - |[1]#_g116949_|)) - (declare (not safe)) - (cons 't __tmp116948))) - (__tmp116935 - (let ((__tmp116944 - (let ((__tmp116945 - |[1]#_g116946_|)) - (declare (not safe)) - (cons 'ns -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp116945))) - (__tmp116936 - (let ((__tmp116941 - (let ((__tmp116942 |[1]#_g116943_|)) - (declare (not safe)) - (cons 'super __tmp116942))) - (__tmp116937 - (let ((__tmp116938 - (let ((__tmp116939 |[1]#_g116940_|)) - (declare (not safe)) - (cons 'table __tmp116939)))) - (declare (not safe)) - (cons __tmp116938 '())))) - (declare (not safe)) - (cons __tmp116941 __tmp116937)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp116944 - __tmp116936)))) - (declare (not safe)) - (cons __tmp116947 __tmp116935)))) - (declare (not safe)) - (cons __tmp116950 __tmp116934)))) + (cons 'e __tmp77265))) + (__tmp77260 + (let ((__tmp77261 + (let ((__tmp77262 |[1]#_g77263_|)) (declare (not safe)) - (cons __tmp116953 __tmp116933)))) + (cons 'id __tmp77262)))) (declare (not safe)) - (cons __tmp116956 __tmp116932)))) + (cons __tmp77261 '())))) (declare (not safe)) - (cons __tmp116959 __tmp116931)))) + (cons __tmp77264 __tmp77260)))) (declare (not safe)) (##unchecked-structure-set! - __obj116108 - __tmp116930 + __obj76773 + __tmp77259 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116962 - (let ((__tmp116991 - (let ((__tmp116992 |[1]#_g116993_|)) + (let ((__tmp77267 + (let ((__tmp77272 + (let ((__tmp77273 |[1]#_g77274_|)) (declare (not safe)) - (cons 'id __tmp116992))) - (__tmp116963 - (let ((__tmp116988 - (let ((__tmp116989 |[1]#_g116990_|)) - (declare (not safe)) - (cons 'path __tmp116989))) - (__tmp116964 - (let ((__tmp116985 - (let ((__tmp116986 |[1]#_g116987_|)) - (declare (not safe)) - (cons 'import __tmp116986))) - (__tmp116965 - (let ((__tmp116982 - (let ((__tmp116983 |[1]#_g116984_|)) - (declare (not safe)) - (cons 'export __tmp116983))) - (__tmp116966 - (let ((__tmp116979 - (let ((__tmp116980 - |[1]#_g116981_|)) - (declare (not safe)) - (cons 't __tmp116980))) - (__tmp116967 - (let ((__tmp116976 - (let ((__tmp116977 - |[1]#_g116978_|)) - (declare (not safe)) - (cons 'ns -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp116977))) - (__tmp116968 - (let ((__tmp116973 - (let ((__tmp116974 |[1]#_g116975_|)) - (declare (not safe)) - (cons 'super __tmp116974))) - (__tmp116969 - (let ((__tmp116970 - (let ((__tmp116971 |[1]#_g116972_|)) - (declare (not safe)) - (cons 'table __tmp116971)))) - (declare (not safe)) - (cons __tmp116970 '())))) - (declare (not safe)) - (cons __tmp116973 __tmp116969)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp116976 - __tmp116968)))) - (declare (not safe)) - (cons __tmp116979 __tmp116967)))) - (declare (not safe)) - (cons __tmp116982 __tmp116966)))) + (cons 'e __tmp77273))) + (__tmp77268 + (let ((__tmp77269 + (let ((__tmp77270 |[1]#_g77271_|)) (declare (not safe)) - (cons __tmp116985 __tmp116965)))) + (cons 'id __tmp77270)))) (declare (not safe)) - (cons __tmp116988 __tmp116964)))) + (cons __tmp77269 '())))) (declare (not safe)) - (cons __tmp116991 __tmp116963)))) + (cons __tmp77272 __tmp77268)))) (declare (not safe)) (##unchecked-structure-set! - __obj116108 - __tmp116962 + __obj76773 + __tmp77267 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp116994 - (let ((__tmp117023 - (let ((__tmp117024 |[1]#_g117025_|)) + (let ((__tmp77275 + (let ((__tmp77280 + (let ((__tmp77281 |[1]#_g77282_|)) (declare (not safe)) - (cons 'id __tmp117024))) - (__tmp116995 - (let ((__tmp117020 - (let ((__tmp117021 |[1]#_g117022_|)) - (declare (not safe)) - (cons 'path __tmp117021))) - (__tmp116996 - (let ((__tmp117017 - (let ((__tmp117018 |[1]#_g117019_|)) - (declare (not safe)) - (cons 'import __tmp117018))) - (__tmp116997 - (let ((__tmp117014 - (let ((__tmp117015 |[1]#_g117016_|)) - (declare (not safe)) - (cons 'export __tmp117015))) - (__tmp116998 - (let ((__tmp117011 - (let ((__tmp117012 - |[1]#_g117013_|)) - (declare (not safe)) - (cons 't __tmp117012))) - (__tmp116999 - (let ((__tmp117008 - (let ((__tmp117009 - |[1]#_g117010_|)) - (declare (not safe)) - (cons 'ns -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp117009))) - (__tmp117000 - (let ((__tmp117005 - (let ((__tmp117006 |[1]#_g117007_|)) - (declare (not safe)) - (cons 'super __tmp117006))) - (__tmp117001 - (let ((__tmp117002 - (let ((__tmp117003 |[1]#_g117004_|)) - (declare (not safe)) - (cons 'table __tmp117003)))) - (declare (not safe)) - (cons __tmp117002 '())))) - (declare (not safe)) - (cons __tmp117005 __tmp117001)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp117008 - __tmp117000)))) - (declare (not safe)) - (cons __tmp117011 __tmp116999)))) - (declare (not safe)) - (cons __tmp117014 __tmp116998)))) + (cons 'e __tmp77281))) + (__tmp77276 + (let ((__tmp77277 + (let ((__tmp77278 |[1]#_g77279_|)) (declare (not safe)) - (cons __tmp117017 __tmp116997)))) + (cons 'id __tmp77278)))) (declare (not safe)) - (cons __tmp117020 __tmp116996)))) + (cons __tmp77277 '())))) (declare (not safe)) - (cons __tmp117023 __tmp116995)))) + (cons __tmp77280 __tmp77276)))) (declare (not safe)) (##unchecked-structure-set! - __obj116108 - __tmp116994 + __obj76773 + __tmp77275 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp117026 - (let ((__tmp117055 - (let ((__tmp117056 |[1]#_g117057_|)) + (let ((__tmp77283 + (let ((__tmp77288 + (let ((__tmp77289 |[1]#_g77290_|)) (declare (not safe)) - (cons 'id __tmp117056))) - (__tmp117027 - (let ((__tmp117052 - (let ((__tmp117053 |[1]#_g117054_|)) - (declare (not safe)) - (cons 'path __tmp117053))) - (__tmp117028 - (let ((__tmp117049 - (let ((__tmp117050 |[1]#_g117051_|)) - (declare (not safe)) - (cons 'import __tmp117050))) - (__tmp117029 - (let ((__tmp117046 - (let ((__tmp117047 |[1]#_g117048_|)) - (declare (not safe)) - (cons 'export __tmp117047))) - (__tmp117030 - (let ((__tmp117043 - (let ((__tmp117044 - |[1]#_g117045_|)) - (declare (not safe)) - (cons 't __tmp117044))) - (__tmp117031 - (let ((__tmp117040 - (let ((__tmp117041 - |[1]#_g117042_|)) - (declare (not safe)) - (cons 'ns -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp117041))) - (__tmp117032 - (let ((__tmp117037 - (let ((__tmp117038 |[1]#_g117039_|)) - (declare (not safe)) - (cons 'super __tmp117038))) - (__tmp117033 - (let ((__tmp117034 - (let ((__tmp117035 |[1]#_g117036_|)) - (declare (not safe)) - (cons 'table __tmp117035)))) - (declare (not safe)) - (cons __tmp117034 '())))) - (declare (not safe)) - (cons __tmp117037 __tmp117033)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp117040 - __tmp117032)))) - (declare (not safe)) - (cons __tmp117043 __tmp117031)))) - (declare (not safe)) - (cons __tmp117046 __tmp117030)))) + (cons 'e __tmp77289))) + (__tmp77284 + (let ((__tmp77285 + (let ((__tmp77286 |[1]#_g77287_|)) (declare (not safe)) - (cons __tmp117049 __tmp117029)))) + (cons 'id __tmp77286)))) (declare (not safe)) - (cons __tmp117052 __tmp117028)))) + (cons __tmp77285 '())))) (declare (not safe)) - (cons __tmp117055 __tmp117027)))) + (cons __tmp77288 __tmp77284)))) (declare (not safe)) (##unchecked-structure-set! - __obj116108 - __tmp117026 + __obj76773 + __tmp77283 '15 gerbil/core$$#class-type-info::t '#f)) - __obj116108)) + __obj76773)) (define |[:0:]#defcore-forms| - (lambda (_stx108961_) - (letrec ((_generate108964_ - (lambda (_id109328_ _compile109330_ _make109331_) - (let* ((_g109333109352_ - (lambda (_g109334109348_) + (lambda (_stx74336_) + (letrec ((_generate74339_ + (lambda (_id74703_ _compile74705_ _make74706_) + (let* ((_g7470874727_ + (lambda (_g7470974723_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g109334109348_))) - (_g109332109411_ - (lambda (_g109334109356_) - (if (gx#stx-pair? _g109334109356_) - (let ((_e109340109359_ - (gx#syntax-e _g109334109356_))) - (let ((_hd109339109363_ + _g7470974723_))) + (_g7470774786_ + (lambda (_g7470974731_) + (if (gx#stx-pair? _g7470974731_) + (let ((_e7471574734_ + (gx#syntax-e _g7470974731_))) + (let ((_hd7471474738_ (let () (declare (not safe)) - (##car _e109340109359_))) - (_tl109338109366_ + (##car _e7471574734_))) + (_tl7471374741_ (let () (declare (not safe)) - (##cdr _e109340109359_)))) - (if (gx#stx-pair? _tl109338109366_) - (let ((_e109343109369_ - (gx#syntax-e - _tl109338109366_))) - (let ((_hd109342109373_ + (##cdr _e7471574734_)))) + (if (gx#stx-pair? _tl7471374741_) + (let ((_e7471874744_ + (gx#syntax-e _tl7471374741_))) + (let ((_hd7471774748_ (let () (declare (not safe)) - (##car _e109343109369_))) - (_tl109341109376_ + (##car _e7471874744_))) + (_tl7471674751_ (let () (declare (not safe)) - (##cdr _e109343109369_)))) - (if (gx#stx-pair? - _tl109341109376_) - (let ((_e109346109379_ + (##cdr _e7471874744_)))) + (if (gx#stx-pair? _tl7471674751_) + (let ((_e7472174754_ (gx#syntax-e - _tl109341109376_))) - (let ((_hd109345109383_ + _tl7471674751_))) + (let ((_hd7472074758_ (let () (declare (not safe)) - (##car _e109346109379_))) - (_tl109344109386_ + (##car _e7472174754_))) + (_tl7471974761_ (let () (declare (not safe)) - (##cdr _e109346109379_)))) + (##cdr _e7472174754_)))) (if (gx#stx-null? - _tl109344109386_) - ((lambda (_L109389_ + _tl7471974761_) + ((lambda (_L74764_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L109391_ - _L109392_) + _L74766_ + _L74767_) (let () - (let ((__tmp117064 + (let ((__tmp77297 (gx#datum->syntax '#f '__core-bind-syntax!)) - (__tmp117058 - (let ((__tmp117061 - (let ((__tmp117063 + (__tmp77291 + (let ((__tmp77294 + (let ((__tmp77296 (gx#datum->syntax '#f 'quote)) - (__tmp117062 + (__tmp77295 (let () (declare (not safe)) - (cons _L109392_ '())))) + (cons _L74767_ '())))) (declare (not safe)) - (cons __tmp117063 __tmp117062))) - (__tmp117059 - (let ((__tmp117060 + (cons __tmp77296 __tmp77295))) + (__tmp77292 + (let ((__tmp77293 (let () (declare (not safe)) - (cons _L109389_ '())))) + (cons _L74764_ '())))) (declare (not safe)) - (cons _L109391_ __tmp117060)))) + (cons _L74766_ __tmp77293)))) (declare (not safe)) - (cons __tmp117061 __tmp117059)))) + (cons __tmp77294 __tmp77292)))) (declare (not safe)) - (cons __tmp117064 __tmp117058)))) - _hd109345109383_ - _hd109342109373_ - _hd109339109363_) - (_g109333109352_ _g109334109356_)))) + (cons __tmp77297 __tmp77291)))) + _hd7472074758_ + _hd7471774748_ + _hd7471474738_) + (_g7470874727_ _g7470974731_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g109333109352_ - _g109334109356_)))) - (_g109333109352_ _g109334109356_)))) - (_g109333109352_ _g109334109356_))))) - (_g109332109411_ - (list _id109328_ - (gx#stx-identifier - _id109328_ - '"__" - _compile109330_) - _make109331_)))))) - (let* ((_g108967108987_ - (lambda (_g108968108983_) + (_g7470874727_ + _g7470974731_)))) + (_g7470874727_ _g7470974731_)))) + (_g7470874727_ _g7470974731_))))) + (_g7470774786_ + (list _id74703_ + (gx#stx-identifier _id74703_ '"__" _compile74705_) + _make74706_)))))) + (let* ((_g7434274362_ + (lambda (_g7434374358_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108968108983_))) - (_g108966109324_ - (lambda (_g108968108991_) - (if (gx#stx-pair? _g108968108991_) - (let ((_e108972108994_ (gx#syntax-e _g108968108991_))) - (let ((_hd108971108998_ + _g7434374358_))) + (_g7434174699_ + (lambda (_g7434374366_) + (if (gx#stx-pair? _g7434374366_) + (let ((_e7434774369_ (gx#syntax-e _g7434374366_))) + (let ((_hd7434674373_ (let () (declare (not safe)) - (##car _e108972108994_))) - (_tl108970109001_ + (##car _e7434774369_))) + (_tl7434574376_ (let () (declare (not safe)) - (##cdr _e108972108994_)))) - (if (gx#stx-pair/null? _tl108970109001_) - (let ((_g117065_ + (##cdr _e7434774369_)))) + (if (gx#stx-pair/null? _tl7434574376_) + (let ((_g77298_ (gx#syntax-split-splice - _tl108970109001_ + _tl7434574376_ '0))) (begin - (let ((_g117066_ + (let ((_g77299_ (let () (declare (not safe)) - (if (##values? _g117065_) - (##vector-length _g117065_) + (if (##values? _g77298_) + (##vector-length _g77298_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g117066_ 2))) + (##fx= _g77299_ 2))) (error "Context expects 2 values" - _g117066_))) - (let ((_target108973109004_ + _g77299_))) + (let ((_target7434874379_ (let () (declare (not safe)) - (##vector-ref _g117065_ 0))) - (_tl108975109007_ + (##vector-ref _g77298_ 0))) + (_tl7435074382_ (let () (declare (not safe)) - (##vector-ref _g117065_ 1)))) - (if (gx#stx-null? _tl108975109007_) - (letrec ((_loop108976109010_ - (lambda (_hd108974109014_ - _form108980109017_) + (##vector-ref _g77298_ 1)))) + (if (gx#stx-null? _tl7435074382_) + (letrec ((_loop7435174385_ + (lambda (_hd7434974389_ + _form7435574392_) (if (gx#stx-pair? - _hd108974109014_) - (let ((_e108977109020_ + _hd7434974389_) + (let ((_e7435274395_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd108974109014_))) - (let ((_lp-hd108978109024_ - (let () - (declare (not safe)) - (##car _e108977109020_))) - (_lp-tl108979109027_ + (gx#syntax-e _hd7434974389_))) + (let ((_lp-hd7435374399_ + (let () (declare (not safe)) (##car _e7435274395_))) + (_lp-tl7435474402_ (let () (declare (not safe)) - (##cdr _e108977109020_)))) - (_loop108976109010_ - _lp-tl108979109027_ + (##cdr _e7435274395_)))) + (_loop7435174385_ + _lp-tl7435474402_ (let () (declare (not safe)) - (cons _lp-hd108978109024_ _form108980109017_))))) - (let ((_form108981109030_ (reverse _form108980109017_))) - ((lambda (_L109034_) - (let _lp109052_ ((_rest109055_ - (let ((__tmp117071 - (lambda (_g109315109318_ - _g109316109321_) - (let () - (declare (not safe)) - (cons _g109315109318_ - _g109316109321_))))) - (declare (not safe)) - (foldr1 __tmp117071 '() _L109034_))) - (_body109057_ '())) - (let* ((___stx116005116006_ _rest109055_) - (_g109062109109_ + (cons _lp-hd7435374399_ _form7435574392_))))) + (let ((_form7435674405_ (reverse _form7435574392_))) + ((lambda (_L74409_) + (let _lp74427_ ((_rest74430_ + (let ((__tmp77304 + (lambda (_g7469074693_ + _g7469174696_) + (let () + (declare (not safe)) + (cons _g7469074693_ + _g7469174696_))))) + (declare (not safe)) + (foldr1 __tmp77304 '() _L74409_))) + (_body74432_ '())) + (let* ((___stx7667776678_ _rest74430_) + (_g7443774484_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx116005116006_)))) - (let ((___kont116008116009_ - (lambda (_L109290_ _L109292_ _L109293_) - (_lp109052_ - _L109290_ - (let ((__tmp117067 - (_generate108964_ - _L109293_ - _L109292_ + ___stx7667776678_)))) + (let ((___kont7668076681_ + (lambda (_L74665_ _L74667_ _L74668_) + (_lp74427_ + _L74665_ + (let ((__tmp77300 + (_generate74339_ + _L74668_ + _L74667_ (gx#datum->syntax '#f 'make-__core-expression)))) (declare (not safe)) - (cons __tmp117067 _body109057_))))) - (___kont116010116011_ - (lambda (_L109217_ _L109219_ _L109220_) - (_lp109052_ - _L109217_ - (let ((__tmp117068 - (_generate108964_ - _L109220_ - _L109219_ + (cons __tmp77300 _body74432_))))) + (___kont7668276683_ + (lambda (_L74592_ _L74594_ _L74595_) + (_lp74427_ + _L74592_ + (let ((__tmp77301 + (_generate74339_ + _L74595_ + _L74594_ (gx#datum->syntax '#f 'make-__core-special-form)))) (declare (not safe)) - (cons __tmp117068 _body109057_))))) - (___kont116012116013_ - (lambda (_L109147_ _L109149_) - (_lp109052_ - _L109147_ - (let ((__tmp117069 - (_generate108964_ - _L109149_ + (cons __tmp77301 _body74432_))))) + (___kont7668476685_ + (lambda (_L74522_ _L74524_) + (_lp74427_ + _L74522_ + (let ((__tmp77302 + (_generate74339_ + _L74524_ (gx#datum->syntax '#f 'compile-error) @@ -3671,133 +1322,131 @@ '#f 'make-__core-form)))) (declare (not safe)) - (cons __tmp117069 _body109057_))))) - (___kont116014116015_ + (cons __tmp77302 _body74432_))))) + (___kont7668676687_ (lambda () - (let ((__tmp117070 (reverse _body109057_))) + (let ((__tmp77303 (reverse _body74432_))) (declare (not safe)) - (cons 'begin __tmp117070))))) - (let ((_g109061109120_ + (cons 'begin __tmp77303))))) + (let ((_g7443674495_ (lambda () - (if (gx#stx-null? ___stx116005116006_) - (___kont116014116015_) + (if (gx#stx-null? ___stx7667776678_) + (___kont7668676687_) (let () (declare (not safe)) - (_g109062109109_)))))) - (if (gx#stx-pair? ___stx116005116006_) - (let ((_e109069109246_ - (gx#syntax-e ___stx116005116006_))) - (let ((_tl109067109253_ + (_g7443774484_)))))) + (if (gx#stx-pair? ___stx7667776678_) + (let ((_e7444474621_ + (gx#syntax-e ___stx7667776678_))) + (let ((_tl7444274628_ (let () (declare (not safe)) - (##cdr _e109069109246_))) - (_hd109068109250_ + (##cdr _e7444474621_))) + (_hd7444374625_ (let () (declare (not safe)) - (##car _e109069109246_)))) - (if (gx#stx-pair? _hd109068109250_) - (let ((_e109072109256_ + (##car _e7444474621_)))) + (if (gx#stx-pair? _hd7444374625_) + (let ((_e7444774631_ (gx#syntax-e - _hd109068109250_))) - (let ((_tl109070109263_ + _hd7444374625_))) + (let ((_tl7444574638_ (let () (declare (not safe)) - (##cdr _e109072109256_))) - (_hd109071109260_ + (##cdr _e7444774631_))) + (_hd7444674635_ (let () (declare (not safe)) - (##car _e109072109256_)))) + (##car _e7444774631_)))) (if (gx#stx-pair? - _tl109070109263_) - (let ((_e109075109266_ + _tl7444574638_) + (let ((_e7445074641_ (gx#syntax-e - _tl109070109263_))) - (let ((_tl109073109273_ + _tl7444574638_))) + (let ((_tl7444874648_ (let () (declare (not safe)) - (##cdr _e109075109266_))) - (_hd109074109270_ + (##cdr _e7445074641_))) + (_hd7444974645_ (let () (declare (not safe)) - (##car _e109075109266_)))) + (##car _e7445074641_)))) (if (gx#stx-datum? - _hd109074109270_) - (let ((_e109076109276_ + _hd7444974645_) + (let ((_e7445174651_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd109074109270_))) + (gx#stx-e _hd7444974645_))) (if (let () (declare (not safe)) - (equal? _e109076109276_ 'expr:)) - (if (gx#stx-pair? _tl109073109273_) - (let ((_e109079109280_ - (gx#syntax-e _tl109073109273_))) - (let ((_tl109077109287_ + (equal? _e7445174651_ 'expr:)) + (if (gx#stx-pair? _tl7444874648_) + (let ((_e7445474655_ + (gx#syntax-e _tl7444874648_))) + (let ((_tl7445274662_ (let () (declare (not safe)) - (##cdr _e109079109280_))) - (_hd109078109284_ + (##cdr _e7445474655_))) + (_hd7445374659_ (let () (declare (not safe)) - (##car _e109079109280_)))) - (if (gx#stx-null? _tl109077109287_) - (___kont116008116009_ - _tl109067109253_ - _hd109078109284_ - _hd109071109260_) + (##car _e7445474655_)))) + (if (gx#stx-null? _tl7445274662_) + (___kont7668076681_ + _tl7444274628_ + _hd7445374659_ + _hd7444674635_) (let () (declare (not safe)) - (_g109062109109_))))) - (let () (declare (not safe)) (_g109062109109_))) + (_g7443774484_))))) + (let () (declare (not safe)) (_g7443774484_))) (if (let () (declare (not safe)) - (equal? _e109076109276_ 'special:)) - (if (gx#stx-pair? _tl109073109273_) - (let ((_e109095109207_ - (gx#syntax-e _tl109073109273_))) - (let ((_tl109093109214_ + (equal? _e7445174651_ 'special:)) + (if (gx#stx-pair? _tl7444874648_) + (let ((_e7447074582_ + (gx#syntax-e _tl7444874648_))) + (let ((_tl7446874589_ (let () (declare (not safe)) - (##cdr _e109095109207_))) - (_hd109094109211_ + (##cdr _e7447074582_))) + (_hd7446974586_ (let () (declare (not safe)) - (##car _e109095109207_)))) - (if (gx#stx-null? _tl109093109214_) - (___kont116010116011_ - _tl109067109253_ - _hd109094109211_ - _hd109071109260_) + (##car _e7447074582_)))) + (if (gx#stx-null? _tl7446874589_) + (___kont7668276683_ + _tl7444274628_ + _hd7446974586_ + _hd7444674635_) (let () (declare (not safe)) - (_g109062109109_))))) - (let () - (declare (not safe)) - (_g109062109109_))) - (let () (declare (not safe)) (_g109062109109_))))) - (let () (declare (not safe)) (_g109062109109_))))) + (_g7443774484_))))) + (let () (declare (not safe)) (_g7443774484_))) + (let () (declare (not safe)) (_g7443774484_))))) + (let () (declare (not safe)) (_g7443774484_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl109070109263_) - (___kont116012116013_ - _tl109067109253_ - _hd109071109260_) + _tl7444574638_) + (___kont7668476685_ + _tl7444274628_ + _hd7444674635_) (let () (declare (not safe)) - (_g109062109109_)))))) + (_g7443774484_)))))) (let () (declare (not safe)) - (_g109062109109_))))) + (_g7443774484_))))) (let () (declare (not safe)) - (_g109061109120_)))))))) - _form108981109030_)))))) + (_g7443674495_)))))))) + _form7435674405_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop108976109010_ - _target108973109004_ + (_loop7435174385_ + _target7434874379_ '())) - (_g108967108987_ _g108968108991_))))) - (_g108967108987_ _g108968108991_)))) - (_g108967108987_ _g108968108991_))))) - (_g108966109324_ _stx108961_))))))) + (_g7434274362_ _g7434374366_))))) + (_g7434274362_ _g7434374366_)))) + (_g7434274362_ _g7434374366_))))) + (_g7434174699_ _stx74336_))))))) diff --git a/src/bootstrap/gerbil/runtime/eval__rt.scm b/src/bootstrap/gerbil/runtime/eval__rt.scm index bb4c73a62..2d12c603e 100644 --- a/src/bootstrap/gerbil/runtime/eval__rt.scm +++ b/src/bootstrap/gerbil/runtime/eval__rt.scm @@ -5,5 +5,6 @@ (load-module "gerbil/runtime/util__rt") (load-module "gerbil/runtime/mop__rt") (load-module "gerbil/runtime/error__rt") + (load-module "gerbil/runtime/hash__rt") (load-module "gerbil/runtime/syntax__rt")) (load-module "gerbil/runtime/eval__0")) diff --git a/src/bootstrap/gerbil/runtime/gambit.ssi b/src/bootstrap/gerbil/runtime/gambit.ssi index 67af9b428..98c4a304b 100644 --- a/src/bootstrap/gerbil/runtime/gambit.ssi +++ b/src/bootstrap/gerbil/runtime/gambit.ssi @@ -40,6 +40,7 @@ namespace: #f (configure-command-string configure-command-string) (random-source-randomize! random-source-randomize!) (default-random-source default-random-source) + (random-integer random-integer) (make-thread make-thread) (make-thread-group make-thread-group) (thread-thread-group thread-thread-group) @@ -53,11 +54,24 @@ namespace: #f (mutex-lock! mutex-lock!) (mutex-unlock! mutex-unlock!) (read-subu8vector read-subu8vector) - (write-subu8vector write-subu8vector) + (write-subu8vectorp write-subu8vectorp) (read-substring read-substring) - (write-substring write-substring)) + (write-substring write-substring) + (object->serial-number object->serial-number)) (%#extern (macro-absent-obj macro-absent-obj) + (macro-unused-obj macro-unused-obj) + (macro-deleted-obj macro-deleted-obj) + (macro-slot macro-slot) + (macro-type-fixnum macro-type-fixnum) + (macro-type-table macro-type-table) + (macro-type-mutex macro-type-mutex) + (macro-max-fixnum32 macro-max-fixnum32) + (macro-number-dispatch macro-number-dispatch) + (macro-ratnum-numerator macro-ratnum-numerator) + (macro-ratnum-denominator macro-ratnum-denominator) + (macro-cpxnum-real macro-cpxnum-real) + (macro-cpxnum-imag macro-cpxnum-imag) (macro-subtype-structure macro-subtype-structure) (macro-writeenv-style macro-writeenv-style) (macro-readenv-port macro-readenv-port) @@ -74,5 +88,8 @@ namespace: #f (macro-character-port-wchars macro-character-port-wchars) (macro-character-port-output-width macro-character-port-output-width) (macro-character-port-output-width-set! - macro-character-port-output-width-set!))) + macro-character-port-output-width-set!) + (macro-mutex-lock! macro-mutex-lock!) + (macro-mutex-unlock! macro-mutex-unlock!) + (macro-current-thread macro-current-thread))) (%#call (%#ref load-module) (%#quote "gerbil/runtime/gambit__0")) diff --git a/src/bootstrap/gerbil/runtime/gambit__0.scm b/src/bootstrap/gerbil/runtime/gambit__0.scm index 9bdf34774..e9442df5e 100644 --- a/src/bootstrap/gerbil/runtime/gambit__0.scm +++ b/src/bootstrap/gerbil/runtime/gambit__0.scm @@ -1,2 +1,2 @@ (declare (block) (standard-bindings) (extended-bindings)) -(begin (define gerbil/runtime/gambit::timestamp 1708102800) '#!void) +(begin (define gerbil/runtime/gambit::timestamp 1708370113) '#!void) diff --git a/src/bootstrap/gerbil/runtime/hash.ssi b/src/bootstrap/gerbil/runtime/hash.ssi new file mode 100644 index 000000000..c9f7597d9 --- /dev/null +++ b/src/bootstrap/gerbil/runtime/hash.ssi @@ -0,0 +1,387 @@ +prelude: :gerbil/core +package: gerbil/runtime +namespace: #f + +(%#begin (%#import + :gerbil/runtime/gambit + :gerbil/runtime/util + :gerbil/runtime/table + :gerbil/runtime/mop + :gerbil/runtime/error + :gerbil/runtime/interface) + (%#export #t) + (%#define-runtime UnboundKeyError::t UnboundKeyError::t) + (%#define-runtime UnboundKeyError? UnboundKeyError?) + (%#define-runtime make-UnboundKeyError make-UnboundKeyError) + (%#define-runtime UnboundKeyError-message UnboundKeyError-message) + (%#define-runtime UnboundKeyError-irritants UnboundKeyError-irritants) + (%#define-runtime UnboundKeyError-where UnboundKeyError-where) + (%#define-runtime + UnboundKeyError-continuation + UnboundKeyError-continuation) + (%#define-runtime + UnboundKeyError-message-set! + UnboundKeyError-message-set!) + (%#define-runtime + UnboundKeyError-irritants-set! + UnboundKeyError-irritants-set!) + (%#define-runtime + UnboundKeyError-where-set! + UnboundKeyError-where-set!) + (%#define-runtime + UnboundKeyError-continuation-set! + UnboundKeyError-continuation-set!) + (%#define-runtime &UnboundKeyError-message &UnboundKeyError-message) + (%#define-runtime + &UnboundKeyError-irritants + &UnboundKeyError-irritants) + (%#define-runtime &UnboundKeyError-where &UnboundKeyError-where) + (%#define-runtime + &UnboundKeyError-continuation + &UnboundKeyError-continuation) + (%#define-runtime + &UnboundKeyError-message-set! + &UnboundKeyError-message-set!) + (%#define-runtime + &UnboundKeyError-irritants-set! + &UnboundKeyError-irritants-set!) + (%#define-runtime + &UnboundKeyError-where-set! + &UnboundKeyError-where-set!) + (%#define-runtime + &UnboundKeyError-continuation-set! + &UnboundKeyError-continuation-set!) + (%#begin (%#begin-syntax + (%#call (%#ref load-module) + (%#quote "gerbil/runtime/hash__1"))) + (%#define-syntax UnboundKeyError |[:0:]#UnboundKeyError|)) + (%#define-runtime UnboundKeyError:::init! UnboundKeyError:::init!) + (%#define-runtime raise-unbound-key-error raise-unbound-key-error) + (%#define-runtime unbound-key-error? unbound-key-error?) + (%#define-runtime HashTable::t HashTable::t) + (%#define-runtime HashTable? HashTable?) + (%#define-runtime HashTable-ref@ HashTable-ref@) + (%#define-runtime HashTable-set@ HashTable-set@) + (%#define-runtime HashTable-update@ HashTable-update@) + (%#define-runtime HashTable-del@ HashTable-del@) + (%#define-runtime HashTable-each@ HashTable-each@) + (%#define-runtime HashTable-length@ HashTable-length@) + (%#define-runtime HashTable-copy@ HashTable-copy@) + (%#define-runtime HashTable-clear@ HashTable-clear@) + (%#define-runtime HashTable-ref@-set! HashTable-ref@-set!) + (%#define-runtime HashTable-set@-set! HashTable-set@-set!) + (%#define-runtime HashTable-update@-set! HashTable-update@-set!) + (%#define-runtime HashTable-del@-set! HashTable-del@-set!) + (%#define-runtime HashTable-each@-set! HashTable-each@-set!) + (%#define-runtime HashTable-length@-set! HashTable-length@-set!) + (%#define-runtime HashTable-copy@-set! HashTable-copy@-set!) + (%#define-runtime HashTable-clear@-set! HashTable-clear@-set!) + (%#define-runtime &HashTable-ref@ &HashTable-ref@) + (%#define-runtime &HashTable-set@ &HashTable-set@) + (%#define-runtime &HashTable-update@ &HashTable-update@) + (%#define-runtime &HashTable-del@ &HashTable-del@) + (%#define-runtime &HashTable-each@ &HashTable-each@) + (%#define-runtime &HashTable-length@ &HashTable-length@) + (%#define-runtime &HashTable-copy@ &HashTable-copy@) + (%#define-runtime &HashTable-clear@ &HashTable-clear@) + (%#define-runtime &HashTable-ref@-set! &HashTable-ref@-set!) + (%#define-runtime &HashTable-set@-set! &HashTable-set@-set!) + (%#define-runtime &HashTable-update@-set! &HashTable-update@-set!) + (%#define-runtime &HashTable-del@-set! &HashTable-del@-set!) + (%#define-runtime &HashTable-each@-set! &HashTable-each@-set!) + (%#define-runtime &HashTable-length@-set! &HashTable-length@-set!) + (%#define-runtime &HashTable-copy@-set! &HashTable-copy@-set!) + (%#define-runtime &HashTable-clear@-set! &HashTable-clear@-set!) + (%#define-runtime HashTable::interface HashTable::interface) + (%#define-runtime HashTableLock::t HashTableLock::t) + (%#define-runtime HashTableLock? HashTableLock?) + (%#define-runtime HashTableLock-begin-read@ HashTableLock-begin-read@) + (%#define-runtime HashTableLock-end-read@ HashTableLock-end-read@) + (%#define-runtime + HashTableLock-begin-write@ + HashTableLock-begin-write@) + (%#define-runtime HashTableLock-end-write@ HashTableLock-end-write@) + (%#define-runtime + HashTableLock-begin-read@-set! + HashTableLock-begin-read@-set!) + (%#define-runtime + HashTableLock-end-read@-set! + HashTableLock-end-read@-set!) + (%#define-runtime + HashTableLock-begin-write@-set! + HashTableLock-begin-write@-set!) + (%#define-runtime + HashTableLock-end-write@-set! + HashTableLock-end-write@-set!) + (%#define-runtime + &HashTableLock-begin-read@ + &HashTableLock-begin-read@) + (%#define-runtime &HashTableLock-end-read@ &HashTableLock-end-read@) + (%#define-runtime + &HashTableLock-begin-write@ + &HashTableLock-begin-write@) + (%#define-runtime &HashTableLock-end-write@ &HashTableLock-end-write@) + (%#define-runtime + &HashTableLock-begin-read@-set! + &HashTableLock-begin-read@-set!) + (%#define-runtime + &HashTableLock-end-read@-set! + &HashTableLock-end-read@-set!) + (%#define-runtime + &HashTableLock-begin-write@-set! + &HashTableLock-begin-write@-set!) + (%#define-runtime + &HashTableLock-end-write@-set! + &HashTableLock-end-write@-set!) + (%#define-runtime HashTableLock::interface HashTableLock::interface) + (%#define-runtime gambit-table-update! gambit-table-update!) + (%#define-runtime gambit-table-for-each gambit-table-for-each) + (%#define-runtime gambit-table-clear! gambit-table-clear!) + (%#define-runtime hash-table::t hash-table::t) + (%#define-runtime locked-hash-table::t locked-hash-table::t) + (%#define-runtime locked-hash-table? locked-hash-table?) + (%#define-runtime make-locked-hash-table make-locked-hash-table) + (%#define-runtime locked-hash-table-table locked-hash-table-table) + (%#define-runtime locked-hash-table-lock locked-hash-table-lock) + (%#define-runtime + locked-hash-table-table-set! + locked-hash-table-table-set!) + (%#define-runtime + locked-hash-table-lock-set! + locked-hash-table-lock-set!) + (%#define-runtime &locked-hash-table-table &locked-hash-table-table) + (%#define-runtime &locked-hash-table-lock &locked-hash-table-lock) + (%#define-runtime + &locked-hash-table-table-set! + &locked-hash-table-table-set!) + (%#define-runtime + &locked-hash-table-lock-set! + &locked-hash-table-lock-set!) + (%#define-syntax locked-hash-table |[:0:]#locked-hash-table|) + (%#define-runtime checked-hash-table::t checked-hash-table::t) + (%#define-runtime checked-hash-table? checked-hash-table?) + (%#define-runtime make-checked-hash-table make-checked-hash-table) + (%#define-runtime checked-hash-table-table checked-hash-table-table) + (%#define-runtime + checked-hash-table-key-check + checked-hash-table-key-check) + (%#define-runtime + checked-hash-table-table-set! + checked-hash-table-table-set!) + (%#define-runtime + checked-hash-table-key-check-set! + checked-hash-table-key-check-set!) + (%#define-runtime &checked-hash-table-table &checked-hash-table-table) + (%#define-runtime + &checked-hash-table-key-check + &checked-hash-table-key-check) + (%#define-runtime + &checked-hash-table-table-set! + &checked-hash-table-table-set!) + (%#define-runtime + &checked-hash-table-key-check-set! + &checked-hash-table-key-check-set!) + (%#define-syntax checked-hash-table |[:0:]#checked-hash-table|) + (%#define-runtime eq-hash-table::t eq-hash-table::t) + (%#define-runtime eq-hash-table? eq-hash-table?) + (%#define-runtime make-eq-hash-table make-eq-hash-table) + (%#define-runtime eqv-hash-table::t eqv-hash-table::t) + (%#define-runtime eqv-hash-table? eqv-hash-table?) + (%#define-runtime make-eqv-hash-table make-eqv-hash-table) + (%#define-runtime symbol-hash-table::t symbol-hash-table::t) + (%#define-runtime symbol-hash-table? symbol-hash-table?) + (%#define-runtime make-symbol-hash-table make-symbol-hash-table) + (%#define-runtime string-hash-table::t string-hash-table::t) + (%#define-runtime string-hash-table? string-hash-table?) + (%#define-runtime make-string-hash-table make-string-hash-table) + (%#define-runtime hash-table? hash-table?) + (%#define-runtime is-hash-table? is-hash-table?) + (%#define-syntax defhash-method |[:0:]#defhash-method|) + (%#define-runtime HashTable-ref HashTable-ref) + (%#define-runtime &HashTable-ref &HashTable-ref) + (%#define-runtime HashTable-set! HashTable-set!) + (%#define-runtime &HashTable-set! &HashTable-set!) + (%#define-runtime HashTable-update! HashTable-update!) + (%#define-runtime &HashTable-update! &HashTable-update!) + (%#define-runtime HashTable-delete! HashTable-delete!) + (%#define-runtime &HashTable-delete! &HashTable-delete!) + (%#define-runtime HashTable-for-each HashTable-for-each) + (%#define-runtime &HashTable-for-each &HashTable-for-each) + (%#define-runtime HashTable-length HashTable-length) + (%#define-runtime &HashTable-length &HashTable-length) + (%#define-runtime HashTable-copy HashTable-copy) + (%#define-runtime &HashTable-copy &HashTable-copy) + (%#define-runtime HashTable-clear! HashTable-clear!) + (%#define-runtime &HashTable-clear! &HashTable-clear!) + (%#define-runtime + &HashTableLock-begin-read! + &HashTableLock-begin-read!) + (%#define-runtime &HashTableLock-end-read! &HashTableLock-end-read!) + (%#define-runtime + &HashTableLock-begin-write! + &HashTableLock-begin-write!) + (%#define-runtime &HashTableLock-end-write! &HashTableLock-end-write!) + (%#define-syntax deflocked-hash-method |[:0:]#deflocked-hash-method|) + (%#begin (%#define-runtime + _locked-hash-table::ref68459_ + _locked-hash-table::ref68458_) + (%#define-runtime + locked-hash-table::ref::specialize + locked-hash-table::ref::specialize)) + (%#begin (%#define-runtime + _locked-hash-table::set!68461_ + _locked-hash-table::set!68460_) + (%#define-runtime + locked-hash-table::set!::specialize + locked-hash-table::set!::specialize)) + (%#begin (%#define-runtime + _locked-hash-table::update!68463_ + _locked-hash-table::update!68462_) + (%#define-runtime + locked-hash-table::update!::specialize + locked-hash-table::update!::specialize)) + (%#begin (%#define-runtime + _locked-hash-table::delete!68465_ + _locked-hash-table::delete!68464_) + (%#define-runtime + locked-hash-table::delete!::specialize + locked-hash-table::delete!::specialize)) + (%#begin (%#define-runtime + _locked-hash-table::for-each68467_ + _locked-hash-table::for-each68466_) + (%#define-runtime + locked-hash-table::for-each::specialize + locked-hash-table::for-each::specialize)) + (%#begin (%#define-runtime + _locked-hash-table::length68469_ + _locked-hash-table::length68468_) + (%#define-runtime + locked-hash-table::length::specialize + locked-hash-table::length::specialize)) + (%#begin (%#define-runtime + _locked-hash-table::copy68471_ + _locked-hash-table::copy68470_) + (%#define-runtime + locked-hash-table::copy::specialize + locked-hash-table::copy::specialize)) + (%#begin (%#define-runtime + _locked-hash-table::clear!68473_ + _locked-hash-table::clear!68472_) + (%#define-runtime + locked-hash-table::clear!::specialize + locked-hash-table::clear!::specialize)) + (%#define-syntax + defchecked-hash-method + |[:0:]#defchecked-hash-method|) + (%#define-syntax check-hash-arg |[:0:]#check-hash-arg|) + (%#begin (%#define-runtime + _checked-hash-table::ref68751_ + _checked-hash-table::ref68750_) + (%#define-runtime + checked-hash-table::ref::specialize + checked-hash-table::ref::specialize)) + (%#begin (%#define-runtime + _checked-hash-table::set!68753_ + _checked-hash-table::set!68752_) + (%#define-runtime + checked-hash-table::set!::specialize + checked-hash-table::set!::specialize)) + (%#begin (%#define-runtime + _checked-hash-table::update!68755_ + _checked-hash-table::update!68754_) + (%#define-runtime + checked-hash-table::update!::specialize + checked-hash-table::update!::specialize)) + (%#begin (%#define-runtime + _checked-hash-table::delete!68757_ + _checked-hash-table::delete!68756_) + (%#define-runtime + checked-hash-table::delete!::specialize + checked-hash-table::delete!::specialize)) + (%#begin (%#define-runtime + _checked-hash-table::for-each68759_ + _checked-hash-table::for-each68758_) + (%#define-runtime + checked-hash-table::for-each::specialize + checked-hash-table::for-each::specialize)) + (%#begin (%#define-runtime + _checked-hash-table::length68761_ + _checked-hash-table::length68760_) + (%#define-runtime + checked-hash-table::length::specialize + checked-hash-table::length::specialize)) + (%#begin (%#define-runtime + _checked-hash-table::copy68763_ + _checked-hash-table::copy68762_) + (%#define-runtime + checked-hash-table::copy::specialize + checked-hash-table::copy::specialize)) + (%#begin (%#define-runtime + _checked-hash-table::clear!68765_ + _checked-hash-table::clear!68764_) + (%#define-runtime + checked-hash-table::clear!::specialize + checked-hash-table::clear!::specialize)) + (%#define-runtime make-generic-hash-table make-generic-hash-table) + (%#begin (%#define-runtime make-hash-table__% make-hash-table__%) + (%#define-runtime make-hash-table__@ make-hash-table__@) + (%#define-runtime make-hash-table make-hash-table)) + (%#define-runtime make-hash-table-eq make-hash-table-eq) + (%#define-runtime make-hash-table-eqv make-hash-table-eqv) + (%#define-runtime make-hash-table-symbolic make-hash-table-symbolic) + (%#define-runtime make-hash-table-string make-hash-table-string) + (%#define-runtime list->hash-table list->hash-table) + (%#define-runtime list->hash-table-eq list->hash-table-eq) + (%#define-runtime list->hash-table-eqv list->hash-table-eqv) + (%#define-runtime list->hash-table-symbolic list->hash-table-symbolic) + (%#define-runtime list->hash-table-string list->hash-table-string) + (%#define-runtime list->hash-table! list->hash-table!) + (%#define-runtime plist->hash-table plist->hash-table) + (%#define-runtime plist->hash-table-eq plist->hash-table-eq) + (%#define-runtime plist->hash-table-eqv plist->hash-table-eqv) + (%#define-runtime + plist->hash-table-symbolic + plist->hash-table-symbolic) + (%#define-runtime plist->hash-table-string plist->hash-table-string) + (%#define-runtime plist->hash-table! plist->hash-table!) + (%#define-runtime hash-length hash-length) + (%#define-runtime &hash-length &hash-length) + (%#begin (%#define-runtime hash-ref__% hash-ref__%) + (%#begin (%#define-runtime hash-ref__0 hash-ref__0) + (%#define-runtime hash-ref hash-ref))) + (%#begin (%#define-runtime &hash-ref__% &hash-ref__%) + (%#begin (%#define-runtime &hash-ref__0 &hash-ref__0) + (%#define-runtime &hash-ref &hash-ref))) + (%#define-runtime hash-get hash-get) + (%#define-runtime &hash-get &hash-get) + (%#define-runtime hash-put! hash-put!) + (%#define-runtime &hash-put! &hash-put!) + (%#begin (%#define-runtime hash-update!__% hash-update!__%) + (%#begin (%#define-runtime hash-update!__0 hash-update!__0) + (%#define-runtime hash-update! hash-update!))) + (%#begin (%#define-runtime &hash-update!__% &hash-update!__%) + (%#begin (%#define-runtime &hash-update!__0 &hash-update!__0) + (%#define-runtime &hash-update! &hash-update!))) + (%#define-runtime hash-remove! hash-remove!) + (%#define-runtime &hash-remove! &hash-remove!) + (%#define-runtime hash-key? hash-key?) + (%#define-runtime &hash-key? &hash-key?) + (%#define-runtime hash->list hash->list) + (%#define-runtime &hash->list &hash->list) + (%#define-runtime hash->plist hash->plist) + (%#define-runtime &hash->plist &hash->plist) + (%#define-runtime hash-for-each hash-for-each) + (%#define-runtime hash-map hash-map) + (%#define-runtime hash-fold hash-fold) + (%#begin (%#define-runtime hash-find__% hash-find__%) + (%#begin (%#define-runtime hash-find__0 hash-find__0) + (%#define-runtime hash-find hash-find))) + (%#define-runtime hash-keys hash-keys) + (%#define-runtime &hash-keys &hash-keys) + (%#define-runtime hash-values hash-values) + (%#define-runtime &hash-values &hash-values) + (%#define-runtime hash-copy hash-copy) + (%#define-runtime &hash-copy &hash-copy) + (%#define-runtime hash-merge hash-merge) + (%#define-runtime hash-merge! hash-merge!)) +(%#call (%#ref load-module) (%#quote "gerbil/runtime/hash__0")) diff --git a/src/bootstrap/gerbil/runtime/hash.ssxi.ss b/src/bootstrap/gerbil/runtime/hash.ssxi.ss new file mode 100644 index 000000000..597313909 --- /dev/null +++ b/src/bootstrap/gerbil/runtime/hash.ssxi.ss @@ -0,0 +1,454 @@ +prelude: :gerbil/compiler/ssxi +package: gerbil/runtime + +(begin + (declare-type + UnboundKeyError::t + (@class gerbil/runtime/hash#UnboundKeyError::t + (Error::t) + (Error::t StackTrace::t Exception::t) + () + (continuation message irritants where) + :init! + #f + #f + #f + ((:init! . UnboundKeyError:::init!)))) + (declare-type UnboundKeyError? (@predicate UnboundKeyError::t)) + (declare-type make-UnboundKeyError (@constructor UnboundKeyError::t)) + (declare-type + UnboundKeyError-message + (@accessor UnboundKeyError::t message #t)) + (declare-type + UnboundKeyError-irritants + (@accessor UnboundKeyError::t irritants #t)) + (declare-type UnboundKeyError-where (@accessor UnboundKeyError::t where #t)) + (declare-type + UnboundKeyError-continuation + (@accessor UnboundKeyError::t continuation #t)) + (declare-type + UnboundKeyError-message-set! + (@mutator UnboundKeyError::t message #t)) + (declare-type + UnboundKeyError-irritants-set! + (@mutator UnboundKeyError::t irritants #t)) + (declare-type + UnboundKeyError-where-set! + (@mutator UnboundKeyError::t where #t)) + (declare-type + UnboundKeyError-continuation-set! + (@mutator UnboundKeyError::t continuation #t)) + (declare-type + &UnboundKeyError-message + (@accessor UnboundKeyError::t message #f)) + (declare-type + &UnboundKeyError-irritants + (@accessor UnboundKeyError::t irritants #f)) + (declare-type &UnboundKeyError-where (@accessor UnboundKeyError::t where #f)) + (declare-type + &UnboundKeyError-continuation + (@accessor UnboundKeyError::t continuation #f)) + (declare-type + &UnboundKeyError-message-set! + (@mutator UnboundKeyError::t message #f)) + (declare-type + &UnboundKeyError-irritants-set! + (@mutator UnboundKeyError::t irritants #f)) + (declare-type + &UnboundKeyError-where-set! + (@mutator UnboundKeyError::t where #f)) + (declare-type + &UnboundKeyError-continuation-set! + (@mutator UnboundKeyError::t continuation #f)) + (declare-type UnboundKeyError:::init! (@lambda (2) #f)) + (declare-type raise-unbound-key-error (@lambda (2) #f)) + (declare-type unbound-key-error? (@predicate UnboundKeyError::t)) + (declare-type + HashTable::t + (@class gerbil#HashTable::t + (interface-instance::t) + (interface-instance::t) + (ref set! update! delete! for-each length copy clear) + (__object ref set! update! delete! for-each length copy clear) + #f + #t + #t + #f + #f)) + (declare-type HashTable? (@predicate HashTable::t)) + (declare-type HashTable-ref@ (@accessor HashTable::t ref #t)) + (declare-type HashTable-set@ (@accessor HashTable::t set! #t)) + (declare-type HashTable-update@ (@accessor HashTable::t update! #t)) + (declare-type HashTable-del@ (@accessor HashTable::t delete! #t)) + (declare-type HashTable-each@ (@accessor HashTable::t for-each #t)) + (declare-type HashTable-length@ (@accessor HashTable::t length #t)) + (declare-type HashTable-copy@ (@accessor HashTable::t copy #t)) + (declare-type HashTable-clear@ (@accessor HashTable::t clear #t)) + (declare-type HashTable-ref@-set! (@mutator HashTable::t ref #t)) + (declare-type HashTable-set@-set! (@mutator HashTable::t set! #t)) + (declare-type HashTable-update@-set! (@mutator HashTable::t update! #t)) + (declare-type HashTable-del@-set! (@mutator HashTable::t delete! #t)) + (declare-type HashTable-each@-set! (@mutator HashTable::t for-each #t)) + (declare-type HashTable-length@-set! (@mutator HashTable::t length #t)) + (declare-type HashTable-copy@-set! (@mutator HashTable::t copy #t)) + (declare-type HashTable-clear@-set! (@mutator HashTable::t clear #t)) + (declare-type &HashTable-ref@ (@accessor HashTable::t ref #f)) + (declare-type &HashTable-set@ (@accessor HashTable::t set! #f)) + (declare-type &HashTable-update@ (@accessor HashTable::t update! #f)) + (declare-type &HashTable-del@ (@accessor HashTable::t delete! #f)) + (declare-type &HashTable-each@ (@accessor HashTable::t for-each #f)) + (declare-type &HashTable-length@ (@accessor HashTable::t length #f)) + (declare-type &HashTable-copy@ (@accessor HashTable::t copy #f)) + (declare-type &HashTable-clear@ (@accessor HashTable::t clear #f)) + (declare-type &HashTable-ref@-set! (@mutator HashTable::t ref #f)) + (declare-type &HashTable-set@-set! (@mutator HashTable::t set! #f)) + (declare-type &HashTable-update@-set! (@mutator HashTable::t update! #f)) + (declare-type &HashTable-del@-set! (@mutator HashTable::t delete! #f)) + (declare-type &HashTable-each@-set! (@mutator HashTable::t for-each #f)) + (declare-type &HashTable-length@-set! (@mutator HashTable::t length #f)) + (declare-type &HashTable-copy@-set! (@mutator HashTable::t copy #f)) + (declare-type &HashTable-clear@-set! (@mutator HashTable::t clear #f)) + (declare-type + HashTableLock::t + (@class gerbil#HashTableLock::t + (interface-instance::t) + (interface-instance::t) + (begin-read! end-read! begin-write! end-write!) + (__object begin-read! end-read! begin-write! end-write!) + #f + #t + #t + #f + #f)) + (declare-type HashTableLock? (@predicate HashTableLock::t)) + (declare-type + HashTableLock-begin-read@ + (@accessor HashTableLock::t begin-read! #t)) + (declare-type + HashTableLock-end-read@ + (@accessor HashTableLock::t end-read! #t)) + (declare-type + HashTableLock-begin-write@ + (@accessor HashTableLock::t begin-write! #t)) + (declare-type + HashTableLock-end-write@ + (@accessor HashTableLock::t end-write! #t)) + (declare-type + HashTableLock-begin-read@-set! + (@mutator HashTableLock::t begin-read! #t)) + (declare-type + HashTableLock-end-read@-set! + (@mutator HashTableLock::t end-read! #t)) + (declare-type + HashTableLock-begin-write@-set! + (@mutator HashTableLock::t begin-write! #t)) + (declare-type + HashTableLock-end-write@-set! + (@mutator HashTableLock::t end-write! #t)) + (declare-type + &HashTableLock-begin-read@ + (@accessor HashTableLock::t begin-read! #f)) + (declare-type + &HashTableLock-end-read@ + (@accessor HashTableLock::t end-read! #f)) + (declare-type + &HashTableLock-begin-write@ + (@accessor HashTableLock::t begin-write! #f)) + (declare-type + &HashTableLock-end-write@ + (@accessor HashTableLock::t end-write! #f)) + (declare-type + &HashTableLock-begin-read@-set! + (@mutator HashTableLock::t begin-read! #f)) + (declare-type + &HashTableLock-end-read@-set! + (@mutator HashTableLock::t end-read! #f)) + (declare-type + &HashTableLock-begin-write@-set! + (@mutator HashTableLock::t begin-write! #f)) + (declare-type + &HashTableLock-end-write@-set! + (@mutator HashTableLock::t end-write! #f)) + (declare-type gambit-table-update! (@lambda 4 #f)) + (declare-type gambit-table-for-each (@lambda 2 #f)) + (declare-type gambit-table-clear! (@lambda 1 #f)) + (declare-type + hash-table::t + (@class gerbil#hash-table::t + () + () + (table count free hash test seed) + (table count free hash test seed) + #f + #t + #f + #f + #f)) + (declare-type + locked-hash-table::t + (@class gerbil/runtime/hash#locked-hash-table::t + () + () + (table lock) + (table lock) + #f + #t + #t + #f + ((clear! . _locked-hash-table::clear!68472_) + (update! . _locked-hash-table::update!68462_) + (for-each . _locked-hash-table::for-each68466_) + (ref . _locked-hash-table::ref68458_) + (delete! . _locked-hash-table::delete!68464_) + (set! . _locked-hash-table::set!68460_) + (length . _locked-hash-table::length68468_) + (copy . _locked-hash-table::copy68470_)))) + (declare-type locked-hash-table? (@predicate locked-hash-table::t)) + (declare-type make-locked-hash-table (@constructor locked-hash-table::t)) + (declare-type + locked-hash-table-table + (@accessor locked-hash-table::t table #t)) + (declare-type + locked-hash-table-lock + (@accessor locked-hash-table::t lock #t)) + (declare-type + locked-hash-table-table-set! + (@mutator locked-hash-table::t table #t)) + (declare-type + locked-hash-table-lock-set! + (@mutator locked-hash-table::t lock #t)) + (declare-type + &locked-hash-table-table + (@accessor locked-hash-table::t table #f)) + (declare-type + &locked-hash-table-lock + (@accessor locked-hash-table::t lock #f)) + (declare-type + &locked-hash-table-table-set! + (@mutator locked-hash-table::t table #f)) + (declare-type + &locked-hash-table-lock-set! + (@mutator locked-hash-table::t lock #f)) + (declare-type + checked-hash-table::t + (@class gerbil/runtime/hash#checked-hash-table::t + () + () + (table key-check) + (table key-check) + #f + #t + #t + #f + ((ref . _checked-hash-table::ref68750_) + (delete! . _checked-hash-table::delete!68756_) + (set! . _checked-hash-table::set!68752_) + (copy . _checked-hash-table::copy68762_) + (length . _checked-hash-table::length68760_) + (clear! . _checked-hash-table::clear!68764_) + (for-each . _checked-hash-table::for-each68758_) + (update! . _checked-hash-table::update!68754_)))) + (declare-type checked-hash-table? (@predicate checked-hash-table::t)) + (declare-type make-checked-hash-table (@constructor checked-hash-table::t)) + (declare-type + checked-hash-table-table + (@accessor checked-hash-table::t table #t)) + (declare-type + checked-hash-table-key-check + (@accessor checked-hash-table::t key-check #t)) + (declare-type + checked-hash-table-table-set! + (@mutator checked-hash-table::t table #t)) + (declare-type + checked-hash-table-key-check-set! + (@mutator checked-hash-table::t key-check #t)) + (declare-type + &checked-hash-table-table + (@accessor checked-hash-table::t table #f)) + (declare-type + &checked-hash-table-key-check + (@accessor checked-hash-table::t key-check #f)) + (declare-type + &checked-hash-table-table-set! + (@mutator checked-hash-table::t table #f)) + (declare-type + &checked-hash-table-key-check-set! + (@mutator checked-hash-table::t key-check #f)) + (declare-type + eq-hash-table::t + (@class gerbil#eq-hash-table + (hash-table::t) + (hash-table::t) + () + (table count free hash test seed) + #f + #t + #f + #f + #f)) + (declare-type eq-hash-table? (@predicate eq-hash-table::t)) + (declare-type make-eq-hash-table (@constructor eq-hash-table::t)) + (declare-type + eqv-hash-table::t + (@class gerbil#eqv-hash-table + (hash-table::t) + (hash-table::t) + () + (table count free hash test seed) + #f + #t + #f + #f + #f)) + (declare-type eqv-hash-table? (@predicate eqv-hash-table::t)) + (declare-type make-eqv-hash-table (@constructor eqv-hash-table::t)) + (declare-type + symbol-hash-table::t + (@class gerbil#symbol-hash-table + (hash-table::t) + (hash-table::t) + () + (table count free hash test seed) + #f + #t + #f + #f + #f)) + (declare-type symbol-hash-table? (@predicate symbol-hash-table::t)) + (declare-type make-symbol-hash-table (@constructor symbol-hash-table::t)) + (declare-type + string-hash-table::t + (@class gerbil#string-hash-table + (hash-table::t) + (hash-table::t) + () + (table count free hash test seed) + #f + #t + #f + #f + #f)) + (declare-type string-hash-table? (@predicate string-hash-table::t)) + (declare-type make-string-hash-table (@constructor string-hash-table::t)) + (declare-type hash-table? (@lambda 1 #f)) + (declare-type is-hash-table? (@lambda 1 #f)) + (declare-type HashTable-ref (@lambda 3 #f)) + (declare-type &HashTable-ref (@lambda 3 #f)) + (declare-type HashTable-set! (@lambda 3 #f)) + (declare-type &HashTable-set! (@lambda 3 #f)) + (declare-type HashTable-update! (@lambda 4 #f)) + (declare-type &HashTable-update! (@lambda 4 #f)) + (declare-type HashTable-delete! (@lambda 2 #f)) + (declare-type &HashTable-delete! (@lambda 2 #f)) + (declare-type HashTable-for-each (@lambda 2 #f)) + (declare-type &HashTable-for-each (@lambda 2 #f)) + (declare-type HashTable-length (@lambda 1 #f)) + (declare-type &HashTable-length (@lambda 1 #f)) + (declare-type HashTable-copy (@lambda 1 #f)) + (declare-type &HashTable-copy (@lambda 1 #f)) + (declare-type HashTable-clear! (@lambda 1 #f)) + (declare-type &HashTable-clear! (@lambda 1 #f)) + (declare-type &HashTableLock-begin-read! (@lambda 1 #f)) + (declare-type &HashTableLock-end-read! (@lambda 1 #f)) + (declare-type &HashTableLock-begin-write! (@lambda 1 #f)) + (declare-type &HashTableLock-end-write! (@lambda 1 #f)) + (declare-type _locked-hash-table::ref68458_ (@lambda 3 #f)) + (declare-type locked-hash-table::ref::specialize (@lambda 1 #f)) + (declare-type _locked-hash-table::set!68460_ (@lambda 3 #f)) + (declare-type locked-hash-table::set!::specialize (@lambda 1 #f)) + (declare-type _locked-hash-table::update!68462_ (@lambda 4 #f)) + (declare-type locked-hash-table::update!::specialize (@lambda 1 #f)) + (declare-type _locked-hash-table::delete!68464_ (@lambda 2 #f)) + (declare-type locked-hash-table::delete!::specialize (@lambda 1 #f)) + (declare-type _locked-hash-table::for-each68466_ (@lambda 2 #f)) + (declare-type locked-hash-table::for-each::specialize (@lambda 1 #f)) + (declare-type _locked-hash-table::length68468_ (@lambda 1 #f)) + (declare-type locked-hash-table::length::specialize (@lambda 1 #f)) + (declare-type _locked-hash-table::copy68470_ (@lambda 1 #f)) + (declare-type locked-hash-table::copy::specialize (@lambda 1 #f)) + (declare-type _locked-hash-table::clear!68472_ (@lambda 1 #f)) + (declare-type locked-hash-table::clear!::specialize (@lambda 1 #f)) + (declare-type _checked-hash-table::ref68750_ (@lambda 3 #f)) + (declare-type checked-hash-table::ref::specialize (@lambda 1 #f)) + (declare-type _checked-hash-table::set!68752_ (@lambda 3 #f)) + (declare-type checked-hash-table::set!::specialize (@lambda 1 #f)) + (declare-type _checked-hash-table::update!68754_ (@lambda 4 #f)) + (declare-type checked-hash-table::update!::specialize (@lambda 1 #f)) + (declare-type _checked-hash-table::delete!68756_ (@lambda 2 #f)) + (declare-type checked-hash-table::delete!::specialize (@lambda 1 #f)) + (declare-type _checked-hash-table::for-each68758_ (@lambda 2 #f)) + (declare-type checked-hash-table::for-each::specialize (@lambda 1 #f)) + (declare-type _checked-hash-table::length68760_ (@lambda 1 #f)) + (declare-type checked-hash-table::length::specialize (@lambda 1 #f)) + (declare-type _checked-hash-table::copy68762_ (@lambda 1 #f)) + (declare-type checked-hash-table::copy::specialize (@lambda 1 #f)) + (declare-type _checked-hash-table::clear!68764_ (@lambda 1 #f)) + (declare-type checked-hash-table::clear!::specialize (@lambda 1 #f)) + (declare-type make-generic-hash-table (@lambda 6 #f)) + (declare-type make-hash-table__% (@lambda 9 #f)) + (declare-type make-hash-table__@ (@lambda (1) #f)) + (declare-type + make-hash-table + (@kw-lambda + (weak-values: test: hash: size: seed: weak-keys: check: lock:) + make-hash-table__@)) + (declare-type make-hash-table-eq (@lambda (0) #f)) + (declare-type make-hash-table-eqv (@lambda (0) #f)) + (declare-type make-hash-table-symbolic (@lambda (0) #f)) + (declare-type make-hash-table-string (@lambda (0) #f)) + (declare-type list->hash-table (@lambda (1) #f)) + (declare-type list->hash-table-eq (@lambda (1) #f)) + (declare-type list->hash-table-eqv (@lambda (1) #f)) + (declare-type list->hash-table-symbolic (@lambda (1) #f)) + (declare-type list->hash-table-string (@lambda (1) #f)) + (declare-type list->hash-table! (@lambda 2 #f)) + (declare-type plist->hash-table (@lambda (1) #f)) + (declare-type plist->hash-table-eq (@lambda (1) #f)) + (declare-type plist->hash-table-eqv (@lambda (1) #f)) + (declare-type plist->hash-table-symbolic (@lambda (1) #f)) + (declare-type plist->hash-table-string (@lambda (1) #f)) + (declare-type plist->hash-table! (@lambda 2 #f)) + (declare-type hash-length (@lambda 1 #f)) + (declare-type &hash-length (@lambda 1 &HashTable-length)) + (declare-type hash-ref__% (@lambda 3 #f)) + (declare-type hash-ref__0 (@lambda 2 #f)) + (declare-type hash-ref (@case-lambda (2 hash-ref__0) (3 hash-ref__%))) + (declare-type &hash-ref__% (@lambda 3 #f)) + (declare-type &hash-ref__0 (@lambda 2 #f)) + (declare-type &hash-ref (@case-lambda (2 &hash-ref__0) (3 &hash-ref__%))) + (declare-type hash-get (@lambda 2 #f)) + (declare-type &hash-get (@lambda 2 #f)) + (declare-type hash-put! (@lambda 3 #f)) + (declare-type &hash-put! (@lambda 3 &HashTable-set!)) + (declare-type hash-update!__% (@lambda 4 #f)) + (declare-type hash-update!__0 (@lambda 3 #f)) + (declare-type + hash-update! + (@case-lambda (3 hash-update!__0) (4 hash-update!__%))) + (declare-type &hash-update!__% (@lambda 4 &HashTable-update!)) + (declare-type &hash-update!__0 (@lambda 3 #f)) + (declare-type + &hash-update! + (@case-lambda (3 &hash-update!__0) (4 &hash-update!__%))) + (declare-type hash-remove! (@lambda 2 #f)) + (declare-type &hash-remove! (@lambda 2 &HashTable-delete!)) + (declare-type hash-key? (@lambda 2 #f)) + (declare-type &hash-key? (@lambda 2 #f)) + (declare-type hash->list (@lambda 1 #f)) + (declare-type &hash->list (@lambda 1 #f)) + (declare-type hash->plist (@lambda 1 #f)) + (declare-type &hash->plist (@lambda 1 #f)) + (declare-type hash-for-each (@lambda 2 #f)) + (declare-type hash-map (@lambda 2 #f)) + (declare-type hash-fold (@lambda 3 #f)) + (declare-type hash-find__% (@lambda 3 #f)) + (declare-type hash-find__0 (@lambda 2 #f)) + (declare-type hash-find (@case-lambda (2 hash-find__0) (3 hash-find__%))) + (declare-type hash-keys (@lambda 1 #f)) + (declare-type &hash-keys (@lambda 1 #f)) + (declare-type hash-values (@lambda 1 #f)) + (declare-type &hash-values (@lambda 1 #f)) + (declare-type hash-copy (@lambda 1 #f)) + (declare-type &hash-copy (@lambda 1 &HashTable-copy)) + (declare-type hash-merge (@lambda (1) #f)) + (declare-type hash-merge! (@lambda (1) #f))) diff --git a/src/bootstrap/gerbil/runtime/hash__0.scm b/src/bootstrap/gerbil/runtime/hash__0.scm new file mode 100644 index 000000000..eb43275c6 --- /dev/null +++ b/src/bootstrap/gerbil/runtime/hash__0.scm @@ -0,0 +1,3523 @@ +(declare (block) (standard-bindings) (extended-bindings)) +(begin + (define gerbil/runtime/hash::timestamp 1708370113) + (begin + (define UnboundKeyError::t + (let ((__tmp71783 (list Error::t))) + (declare (not safe)) + (make-class-type + 'gerbil/runtime/hash#UnboundKeyError::t + 'UnboundKeyError + __tmp71783 + '() + '() + ':init!))) + (define UnboundKeyError? + (let () (declare (not safe)) (make-class-predicate UnboundKeyError::t))) + (define make-UnboundKeyError + (lambda _$args71686_ + (apply make-instance UnboundKeyError::t _$args71686_))) + (define UnboundKeyError-message + (let () + (declare (not safe)) + (make-class-slot-accessor UnboundKeyError::t 'message))) + (define UnboundKeyError-irritants + (let () + (declare (not safe)) + (make-class-slot-accessor UnboundKeyError::t 'irritants))) + (define UnboundKeyError-where + (let () + (declare (not safe)) + (make-class-slot-accessor UnboundKeyError::t 'where))) + (define UnboundKeyError-continuation + (let () + (declare (not safe)) + (make-class-slot-accessor UnboundKeyError::t 'continuation))) + (define UnboundKeyError-message-set! + (let () + (declare (not safe)) + (make-class-slot-mutator UnboundKeyError::t 'message))) + (define UnboundKeyError-irritants-set! + (let () + (declare (not safe)) + (make-class-slot-mutator UnboundKeyError::t 'irritants))) + (define UnboundKeyError-where-set! + (let () + (declare (not safe)) + (make-class-slot-mutator UnboundKeyError::t 'where))) + (define UnboundKeyError-continuation-set! + (let () + (declare (not safe)) + (make-class-slot-mutator UnboundKeyError::t 'continuation))) + (define &UnboundKeyError-message + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor UnboundKeyError::t 'message))) + (define &UnboundKeyError-irritants + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor UnboundKeyError::t 'irritants))) + (define &UnboundKeyError-where + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor UnboundKeyError::t 'where))) + (define &UnboundKeyError-continuation + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor UnboundKeyError::t 'continuation))) + (define &UnboundKeyError-message-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator UnboundKeyError::t 'message))) + (define &UnboundKeyError-irritants-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator UnboundKeyError::t 'irritants))) + (define &UnboundKeyError-where-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator UnboundKeyError::t 'where))) + (define &UnboundKeyError-continuation-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator UnboundKeyError::t 'continuation))) + (define UnboundKeyError:::init! Error:::init!) + (let () + (declare (not safe)) + (bind-method!__% UnboundKeyError::t ':init! UnboundKeyError:::init! '#f)) + (define raise-unbound-key-error + (lambda (_where71560_ _message71561_ . _irritants71562_) + (raise (let ((__obj71780 + (let () + (declare (not safe)) + (##structure UnboundKeyError::t '#f '#f '#f '#f)))) + (UnboundKeyError:::init! + __obj71780 + _message71561_ + 'where: + _where71560_ + 'irritants: + _irritants71562_) + __obj71780)))) + (define unbound-key-error? UnboundKeyError?) + (define HashTable::t + (let ((__tmp71788 (list interface-instance::t)) + (__tmp71784 + (let ((__tmp71787 + (let () (declare (not safe)) (cons 'struct: '#t))) + (__tmp71785 + (let ((__tmp71786 + (let () (declare (not safe)) (cons 'final: '#t)))) + (declare (not safe)) + (cons __tmp71786 '())))) + (declare (not safe)) + (cons __tmp71787 __tmp71785)))) + (declare (not safe)) + (make-class-type + 'gerbil#HashTable::t + 'HashTable + __tmp71788 + '(ref set! update! delete! for-each length copy clear) + __tmp71784 + '#f))) + (define HashTable? + (let () (declare (not safe)) (make-class-predicate HashTable::t))) + (define HashTable-ref@ + (let () + (declare (not safe)) + (make-class-slot-accessor HashTable::t 'ref))) + (define HashTable-set@ + (let () + (declare (not safe)) + (make-class-slot-accessor HashTable::t 'set!))) + (define HashTable-update@ + (let () + (declare (not safe)) + (make-class-slot-accessor HashTable::t 'update!))) + (define HashTable-del@ + (let () + (declare (not safe)) + (make-class-slot-accessor HashTable::t 'delete!))) + (define HashTable-each@ + (let () + (declare (not safe)) + (make-class-slot-accessor HashTable::t 'for-each))) + (define HashTable-length@ + (let () + (declare (not safe)) + (make-class-slot-accessor HashTable::t 'length))) + (define HashTable-copy@ + (let () + (declare (not safe)) + (make-class-slot-accessor HashTable::t 'copy))) + (define HashTable-clear@ + (let () + (declare (not safe)) + (make-class-slot-accessor HashTable::t 'clear))) + (define HashTable-ref@-set! + (let () + (declare (not safe)) + (make-class-slot-mutator HashTable::t 'ref))) + (define HashTable-set@-set! + (let () + (declare (not safe)) + (make-class-slot-mutator HashTable::t 'set!))) + (define HashTable-update@-set! + (let () + (declare (not safe)) + (make-class-slot-mutator HashTable::t 'update!))) + (define HashTable-del@-set! + (let () + (declare (not safe)) + (make-class-slot-mutator HashTable::t 'delete!))) + (define HashTable-each@-set! + (let () + (declare (not safe)) + (make-class-slot-mutator HashTable::t 'for-each))) + (define HashTable-length@-set! + (let () + (declare (not safe)) + (make-class-slot-mutator HashTable::t 'length))) + (define HashTable-copy@-set! + (let () + (declare (not safe)) + (make-class-slot-mutator HashTable::t 'copy))) + (define HashTable-clear@-set! + (let () + (declare (not safe)) + (make-class-slot-mutator HashTable::t 'clear))) + (define &HashTable-ref@ + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor HashTable::t 'ref))) + (define &HashTable-set@ + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor HashTable::t 'set!))) + (define &HashTable-update@ + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor HashTable::t 'update!))) + (define &HashTable-del@ + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor HashTable::t 'delete!))) + (define &HashTable-each@ + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor HashTable::t 'for-each))) + (define &HashTable-length@ + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor HashTable::t 'length))) + (define &HashTable-copy@ + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor HashTable::t 'copy))) + (define &HashTable-clear@ + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor HashTable::t 'clear))) + (define &HashTable-ref@-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator HashTable::t 'ref))) + (define &HashTable-set@-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator HashTable::t 'set!))) + (define &HashTable-update@-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator HashTable::t 'update!))) + (define &HashTable-del@-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator HashTable::t 'delete!))) + (define &HashTable-each@-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator HashTable::t 'for-each))) + (define &HashTable-length@-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator HashTable::t 'length))) + (define &HashTable-copy@-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator HashTable::t 'copy))) + (define &HashTable-clear@-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator HashTable::t 'clear))) + (define HashTable::interface + (let () + (declare (not safe)) + (##structure + interface-descriptor::t + HashTable::t + '(ref set! update! delete! for-each length copy clear!)))) + (define HashTableLock::t + (let ((__tmp71793 (list interface-instance::t)) + (__tmp71789 + (let ((__tmp71792 + (let () (declare (not safe)) (cons 'struct: '#t))) + (__tmp71790 + (let ((__tmp71791 + (let () (declare (not safe)) (cons 'final: '#t)))) + (declare (not safe)) + (cons __tmp71791 '())))) + (declare (not safe)) + (cons __tmp71792 __tmp71790)))) + (declare (not safe)) + (make-class-type + 'gerbil#HashTableLock::t + 'HashTableLock + __tmp71793 + '(begin-read! end-read! begin-write! end-write!) + __tmp71789 + '#f))) + (define HashTableLock? + (let () (declare (not safe)) (make-class-predicate HashTableLock::t))) + (define HashTableLock-begin-read@ + (let () + (declare (not safe)) + (make-class-slot-accessor HashTableLock::t 'begin-read!))) + (define HashTableLock-end-read@ + (let () + (declare (not safe)) + (make-class-slot-accessor HashTableLock::t 'end-read!))) + (define HashTableLock-begin-write@ + (let () + (declare (not safe)) + (make-class-slot-accessor HashTableLock::t 'begin-write!))) + (define HashTableLock-end-write@ + (let () + (declare (not safe)) + (make-class-slot-accessor HashTableLock::t 'end-write!))) + (define HashTableLock-begin-read@-set! + (let () + (declare (not safe)) + (make-class-slot-mutator HashTableLock::t 'begin-read!))) + (define HashTableLock-end-read@-set! + (let () + (declare (not safe)) + (make-class-slot-mutator HashTableLock::t 'end-read!))) + (define HashTableLock-begin-write@-set! + (let () + (declare (not safe)) + (make-class-slot-mutator HashTableLock::t 'begin-write!))) + (define HashTableLock-end-write@-set! + (let () + (declare (not safe)) + (make-class-slot-mutator HashTableLock::t 'end-write!))) + (define &HashTableLock-begin-read@ + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor HashTableLock::t 'begin-read!))) + (define &HashTableLock-end-read@ + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor HashTableLock::t 'end-read!))) + (define &HashTableLock-begin-write@ + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor HashTableLock::t 'begin-write!))) + (define &HashTableLock-end-write@ + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor HashTableLock::t 'end-write!))) + (define &HashTableLock-begin-read@-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator HashTableLock::t 'begin-read!))) + (define &HashTableLock-end-read@-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator HashTableLock::t 'end-read!))) + (define &HashTableLock-begin-write@-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator HashTableLock::t 'begin-write!))) + (define &HashTableLock-end-write@-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator HashTableLock::t 'end-write!))) + (define HashTableLock::interface + (let () + (declare (not safe)) + (##structure + interface-descriptor::t + HashTableLock::t + '(begin-read! end-read! begin-write! end-write!)))) + (let () + (declare (not safe)) + (bind-method!__0 __table::t 'ref raw-table-ref)) + (let () + (declare (not safe)) + (bind-method!__0 __table::t 'set! raw-table-set!)) + (let () + (declare (not safe)) + (bind-method!__0 __table::t 'update! raw-table-update!)) + (let () + (declare (not safe)) + (bind-method!__0 __table::t 'delete! raw-table-delete!)) + (let () + (declare (not safe)) + (bind-method!__0 __table::t 'for-each raw-table-for-each)) + (let () + (declare (not safe)) + (bind-method!__0 __table::t 'length &raw-table-count)) + (let () + (declare (not safe)) + (bind-method!__0 __table::t 'copy raw-table-copy)) + (let () + (declare (not safe)) + (bind-method!__0 __table::t 'clear! raw-table-clear!)) + (define gambit-table-update! + (lambda (_table71553_ _key71554_ _update71555_ _default71556_) + (let ((_result71558_ + (table-ref _table71553_ _key71554_ _default71556_))) + (table-set! + _table71553_ + _key71554_ + (_update71555_ _default71556_))))) + (define gambit-table-for-each + (lambda (_table71550_ _proc71551_) + (table-for-each _proc71551_ _table71550_))) + (define gambit-table-clear! + (lambda (_table71548_) + (let () + (declare (not safe)) + (##unchecked-structure-set! _table71548_ '0 '5 '#f '#f)))) + (let ((__tmp71794 (macro-type-table))) + (declare (not safe)) + (bind-method!__0 __tmp71794 'ref table-ref)) + (let ((__tmp71795 (macro-type-table))) + (declare (not safe)) + (bind-method!__0 __tmp71795 'set! table-set!)) + (let ((__tmp71796 (macro-type-table))) + (declare (not safe)) + (bind-method!__0 __tmp71796 'update! gambit-table-update!)) + (let ((__tmp71797 (macro-type-table))) + (declare (not safe)) + (bind-method!__0 __tmp71797 'delete! table-set!)) + (let ((__tmp71798 (macro-type-table))) + (declare (not safe)) + (bind-method!__0 __tmp71798 'for-each gambit-table-for-each)) + (let ((__tmp71799 (macro-type-table))) + (declare (not safe)) + (bind-method!__0 __tmp71799 'length table-length)) + (let ((__tmp71800 (macro-type-table))) + (declare (not safe)) + (bind-method!__0 __tmp71800 'copy table-copy)) + (let ((__tmp71801 (macro-type-table))) + (declare (not safe)) + (bind-method!__0 __tmp71801 'clear! gambit-table-clear!)) + (define hash-table::t + (let* ((_slots71530_ '(table count free hash test seed)) + (_slot-vector71532_ + (list->vector + (let () (declare (not safe)) (cons '#f _slots71530_)))) + (_slot-table71539_ + (let ((_slot-table71534_ + (let () + (declare (not safe)) + (make-symbolic-table__% '#f '0)))) + (for-each + (lambda (_slot71536_ _field71537_) + (let () + (declare (not safe)) + (symbolic-table-set! + _slot-table71534_ + _slot71536_ + _field71537_)) + (let ((__tmp71802 (symbol->keyword _slot71536_))) + (declare (not safe)) + (symbolic-table-set! + _slot-table71534_ + __tmp71802 + _field71537_))) + _slots71530_ + (let ((__tmp71803 (length _slots71530_))) + (declare (not safe)) + (iota__1 __tmp71803 '1))) + _slot-table71534_)) + (_flags71541_ + (let () + (declare (not safe)) + (##fxior type-flag-extensible + type-flag-concrete + type-flag-id + class-type-flag-struct))) + (_fields71543_ '#()) + (_properties71545_ + (let ((__tmp71806 + (let ((__tmp71807 + (let () + (declare (not safe)) + (foldr1 cons '() _slots71530_)))) + (declare (not safe)) + (cons 'direct-slots: __tmp71807))) + (__tmp71804 + (let ((__tmp71805 + (let () (declare (not safe)) (cons 'struct: '#t)))) + (declare (not safe)) + (cons __tmp71805 '())))) + (declare (not safe)) + (cons __tmp71806 __tmp71804)))) + (let () + (declare (not safe)) + (##structure + class::t + 'gerbil#hash-table::t + 'hash-table + _flags71541_ + __table::t + _fields71543_ + '() + _slot-vector71532_ + _slot-table71539_ + _properties71545_ + '#f + '#f)))) + (define locked-hash-table::t + (let ((__tmp71812 (list)) + (__tmp71808 + (let ((__tmp71811 + (let () (declare (not safe)) (cons 'struct: '#t))) + (__tmp71809 + (let ((__tmp71810 + (let () (declare (not safe)) (cons 'final: '#t)))) + (declare (not safe)) + (cons __tmp71810 '())))) + (declare (not safe)) + (cons __tmp71811 __tmp71809)))) + (declare (not safe)) + (make-class-type + 'gerbil/runtime/hash#locked-hash-table::t + 'locked-hash-table + __tmp71812 + '(table lock) + __tmp71808 + '#f))) + (define locked-hash-table? + (let () + (declare (not safe)) + (make-class-predicate locked-hash-table::t))) + (define make-locked-hash-table + (lambda _$args71527_ + (apply make-instance locked-hash-table::t _$args71527_))) + (define locked-hash-table-table + (let () + (declare (not safe)) + (make-class-slot-accessor locked-hash-table::t 'table))) + (define locked-hash-table-lock + (let () + (declare (not safe)) + (make-class-slot-accessor locked-hash-table::t 'lock))) + (define locked-hash-table-table-set! + (let () + (declare (not safe)) + (make-class-slot-mutator locked-hash-table::t 'table))) + (define locked-hash-table-lock-set! + (let () + (declare (not safe)) + (make-class-slot-mutator locked-hash-table::t 'lock))) + (define &locked-hash-table-table + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor locked-hash-table::t 'table))) + (define &locked-hash-table-lock + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor locked-hash-table::t 'lock))) + (define &locked-hash-table-table-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator locked-hash-table::t 'table))) + (define &locked-hash-table-lock-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator locked-hash-table::t 'lock))) + (define checked-hash-table::t + (let ((__tmp71817 (list)) + (__tmp71813 + (let ((__tmp71816 + (let () (declare (not safe)) (cons 'struct: '#t))) + (__tmp71814 + (let ((__tmp71815 + (let () (declare (not safe)) (cons 'final: '#t)))) + (declare (not safe)) + (cons __tmp71815 '())))) + (declare (not safe)) + (cons __tmp71816 __tmp71814)))) + (declare (not safe)) + (make-class-type + 'gerbil/runtime/hash#checked-hash-table::t + 'checked-hash-table + __tmp71817 + '(table key-check) + __tmp71813 + '#f))) + (define checked-hash-table? + (let () + (declare (not safe)) + (make-class-predicate checked-hash-table::t))) + (define make-checked-hash-table + (lambda _$args71524_ + (apply make-instance checked-hash-table::t _$args71524_))) + (define checked-hash-table-table + (let () + (declare (not safe)) + (make-class-slot-accessor checked-hash-table::t 'table))) + (define checked-hash-table-key-check + (let () + (declare (not safe)) + (make-class-slot-accessor checked-hash-table::t 'key-check))) + (define checked-hash-table-table-set! + (let () + (declare (not safe)) + (make-class-slot-mutator checked-hash-table::t 'table))) + (define checked-hash-table-key-check-set! + (let () + (declare (not safe)) + (make-class-slot-mutator checked-hash-table::t 'key-check))) + (define &checked-hash-table-table + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor checked-hash-table::t 'table))) + (define &checked-hash-table-key-check + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor checked-hash-table::t 'key-check))) + (define &checked-hash-table-table-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator checked-hash-table::t 'table))) + (define &checked-hash-table-key-check-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator checked-hash-table::t 'key-check))) + (define eq-hash-table::t + (let ((__tmp71820 (list hash-table::t)) + (__tmp71818 + (let ((__tmp71819 + (let () (declare (not safe)) (cons 'struct: '#t)))) + (declare (not safe)) + (cons __tmp71819 '())))) + (declare (not safe)) + (make-class-type + 'gerbil#eq-hash-table + 'hash-table + __tmp71820 + '() + __tmp71818 + '#f))) + (define eq-hash-table? + (let () (declare (not safe)) (make-class-predicate eq-hash-table::t))) + (define make-eq-hash-table + (lambda _$args71521_ + (apply make-instance eq-hash-table::t _$args71521_))) + (define eqv-hash-table::t + (let ((__tmp71823 (list hash-table::t)) + (__tmp71821 + (let ((__tmp71822 + (let () (declare (not safe)) (cons 'struct: '#t)))) + (declare (not safe)) + (cons __tmp71822 '())))) + (declare (not safe)) + (make-class-type + 'gerbil#eqv-hash-table + 'hash-table + __tmp71823 + '() + __tmp71821 + '#f))) + (define eqv-hash-table? + (let () (declare (not safe)) (make-class-predicate eqv-hash-table::t))) + (define make-eqv-hash-table + (lambda _$args71518_ + (apply make-instance eqv-hash-table::t _$args71518_))) + (define symbol-hash-table::t + (let ((__tmp71826 (list hash-table::t)) + (__tmp71824 + (let ((__tmp71825 + (let () (declare (not safe)) (cons 'struct: '#t)))) + (declare (not safe)) + (cons __tmp71825 '())))) + (declare (not safe)) + (make-class-type + 'gerbil#symbol-hash-table + 'hash-table + __tmp71826 + '() + __tmp71824 + '#f))) + (define symbol-hash-table? + (let () + (declare (not safe)) + (make-class-predicate symbol-hash-table::t))) + (define make-symbol-hash-table + (lambda _$args71515_ + (apply make-instance symbol-hash-table::t _$args71515_))) + (define string-hash-table::t + (let ((__tmp71829 (list hash-table::t)) + (__tmp71827 + (let ((__tmp71828 + (let () (declare (not safe)) (cons 'struct: '#t)))) + (declare (not safe)) + (cons __tmp71828 '())))) + (declare (not safe)) + (make-class-type + 'gerbil#string-hash-table + 'hash-table + __tmp71829 + '() + __tmp71827 + '#f))) + (define string-hash-table? + (let () + (declare (not safe)) + (make-class-predicate string-hash-table::t))) + (define make-string-hash-table + (lambda _$args71512_ + (apply make-instance string-hash-table::t _$args71512_))) + (let () + (declare (not safe)) + (bind-method!__0 hash-table::t 'ref raw-table-ref)) + (let () + (declare (not safe)) + (bind-method!__0 hash-table::t 'set! raw-table-set!)) + (let () + (declare (not safe)) + (bind-method!__0 hash-table::t 'update! raw-table-update!)) + (let () + (declare (not safe)) + (bind-method!__0 hash-table::t 'delete! raw-table-delete!)) + (let () + (declare (not safe)) + (bind-method!__0 hash-table::t 'for-each raw-table-for-each)) + (let () + (declare (not safe)) + (bind-method!__0 hash-table::t 'length &raw-table-count)) + (let () + (declare (not safe)) + (bind-method!__0 hash-table::t 'copy raw-table-copy)) + (let () + (declare (not safe)) + (bind-method!__0 hash-table::t 'clear! raw-table-clear!)) + (let () + (declare (not safe)) + (bind-method!__0 eq-hash-table::t 'ref eq-table-ref)) + (let () + (declare (not safe)) + (bind-method!__0 eq-hash-table::t 'set! eq-table-set!)) + (let () + (declare (not safe)) + (bind-method!__0 eq-hash-table::t 'update! eq-table-update!)) + (let () + (declare (not safe)) + (bind-method!__0 eq-hash-table::t 'delete! eq-table-delete!)) + (let () + (declare (not safe)) + (bind-method!__0 eqv-hash-table::t 'ref eqv-table-ref)) + (let () + (declare (not safe)) + (bind-method!__0 eqv-hash-table::t 'set! eqv-table-set!)) + (let () + (declare (not safe)) + (bind-method!__0 eqv-hash-table::t 'update! eqv-table-update!)) + (let () + (declare (not safe)) + (bind-method!__0 eqv-hash-table::t 'delete! eqv-table-delete!)) + (let () + (declare (not safe)) + (bind-method!__0 symbol-hash-table::t 'ref symbolic-table-ref)) + (let () + (declare (not safe)) + (bind-method!__0 symbol-hash-table::t 'set! symbolic-table-set!)) + (let () + (declare (not safe)) + (bind-method!__0 symbol-hash-table::t 'update! symbolic-table-update!)) + (let () + (declare (not safe)) + (bind-method!__0 symbol-hash-table::t 'delete! symbolic-table-delete!)) + (let () + (declare (not safe)) + (bind-method!__0 string-hash-table::t 'ref string-table-ref)) + (let () + (declare (not safe)) + (bind-method!__0 string-hash-table::t 'set! string-table-set!)) + (let () + (declare (not safe)) + (bind-method!__0 string-hash-table::t 'update! string-table-update!)) + (let () + (declare (not safe)) + (bind-method!__0 string-hash-table::t 'delete! string-table-delete!)) + (define hash-table? + (lambda (_obj71510_) + (if (let () (declare (not safe)) (##structure? _obj71510_)) + (let ((__tmp71830 + (let () + (declare (not safe)) + (##structure-type _obj71510_)))) + (declare (not safe)) + (eq? __tmp71830 HashTable::t)) + '#f))) + (define is-hash-table? + (lambda (_obj71505_) + (let ((_$e71507_ + (if (let () (declare (not safe)) (##structure? _obj71505_)) + (let ((__tmp71831 + (let () + (declare (not safe)) + (##structure-type _obj71505_)))) + (declare (not safe)) + (eq? __tmp71831 HashTable::t)) + '#f))) + (if _$e71507_ + _$e71507_ + (let () + (declare (not safe)) + (satisfies? HashTable::interface _obj71505_)))))) + (define HashTable-ref + (lambda (_h71499_ _key71500_ _default71501_) + (let ((_h71503_ + (if (and (let () (declare (not safe)) (##structure? _h71499_)) + (let ((__tmp71832 + (let () + (declare (not safe)) + (##structure-type _h71499_)))) + (declare (not safe)) + (eq? __tmp71832 HashTable::t))) + _h71499_ + (let () + (declare (not safe)) + (cast HashTable::interface _h71499_))))) + (declare (not safe)) + (&HashTable-ref _h71503_ _key71500_ _default71501_)))) + (define &HashTable-ref + (lambda (_h71494_ _key71495_ _default71496_) + (declare (not safe)) + ((##unchecked-structure-ref _h71494_ '2 HashTable::t '#f) + (##unchecked-structure-ref _h71494_ '1 interface-instance::t '#f) + _key71495_ + _default71496_))) + (define HashTable-set! + (lambda (_h71488_ _key71489_ _value71490_) + (let ((_h71492_ + (if (and (let () (declare (not safe)) (##structure? _h71488_)) + (let ((__tmp71833 + (let () + (declare (not safe)) + (##structure-type _h71488_)))) + (declare (not safe)) + (eq? __tmp71833 HashTable::t))) + _h71488_ + (let () + (declare (not safe)) + (cast HashTable::interface _h71488_))))) + (declare (not safe)) + (&HashTable-set! _h71492_ _key71489_ _value71490_)))) + (define &HashTable-set! + (lambda (_h71483_ _key71484_ _value71485_) + (declare (not safe)) + (begin + ((##unchecked-structure-ref _h71483_ '3 HashTable::t '#f) + (##unchecked-structure-ref _h71483_ '1 interface-instance::t '#f) + _key71484_ + _value71485_) + '#!void))) + (define HashTable-update! + (lambda (_h71476_ _key71477_ _update71478_ _default71479_) + (let ((_h71481_ + (if (and (let () (declare (not safe)) (##structure? _h71476_)) + (let ((__tmp71834 + (let () + (declare (not safe)) + (##structure-type _h71476_)))) + (declare (not safe)) + (eq? __tmp71834 HashTable::t))) + _h71476_ + (let () + (declare (not safe)) + (cast HashTable::interface _h71476_))))) + (declare (not safe)) + (&HashTable-update! + _h71481_ + _key71477_ + _update71478_ + _default71479_)))) + (define &HashTable-update! + (lambda (_h71470_ _key71471_ _update71472_ _default71473_) + (declare (not safe)) + (begin + ((##unchecked-structure-ref _h71470_ '4 HashTable::t '#f) + (##unchecked-structure-ref _h71470_ '1 interface-instance::t '#f) + _key71471_ + _update71472_ + _default71473_) + '#!void))) + (define HashTable-delete! + (lambda (_h71465_ _key71466_) + (let ((_h71468_ + (if (and (let () (declare (not safe)) (##structure? _h71465_)) + (let ((__tmp71835 + (let () + (declare (not safe)) + (##structure-type _h71465_)))) + (declare (not safe)) + (eq? __tmp71835 HashTable::t))) + _h71465_ + (let () + (declare (not safe)) + (cast HashTable::interface _h71465_))))) + (declare (not safe)) + (&HashTable-delete! _h71468_ _key71466_)))) + (define &HashTable-delete! + (lambda (_h71461_ _key71462_) + (declare (not safe)) + (begin + ((##unchecked-structure-ref _h71461_ '5 HashTable::t '#f) + (##unchecked-structure-ref _h71461_ '1 interface-instance::t '#f) + _key71462_) + '#!void))) + (define HashTable-for-each + (lambda (_h71456_ _proc71457_) + (let ((_h71459_ + (if (and (let () (declare (not safe)) (##structure? _h71456_)) + (let ((__tmp71836 + (let () + (declare (not safe)) + (##structure-type _h71456_)))) + (declare (not safe)) + (eq? __tmp71836 HashTable::t))) + _h71456_ + (let () + (declare (not safe)) + (cast HashTable::interface _h71456_))))) + (declare (not safe)) + (&HashTable-for-each _h71459_ _proc71457_)))) + (define &HashTable-for-each + (lambda (_h71452_ _proc71453_) + (declare (not safe)) + (begin + ((##unchecked-structure-ref _h71452_ '6 HashTable::t '#f) + (##unchecked-structure-ref _h71452_ '1 interface-instance::t '#f) + _proc71453_) + '#!void))) + (define HashTable-length + (lambda (_h71448_) + (let ((_h71450_ + (if (and (let () (declare (not safe)) (##structure? _h71448_)) + (let ((__tmp71837 + (let () + (declare (not safe)) + (##structure-type _h71448_)))) + (declare (not safe)) + (eq? __tmp71837 HashTable::t))) + _h71448_ + (let () + (declare (not safe)) + (cast HashTable::interface _h71448_))))) + (declare (not safe)) + (&HashTable-length _h71450_)))) + (define &HashTable-length + (lambda (_h71445_) + (declare (not safe)) + ((##unchecked-structure-ref _h71445_ '7 HashTable::t '#f) + (##unchecked-structure-ref _h71445_ '1 interface-instance::t '#f)))) + (define HashTable-copy + (lambda (_h71441_) + (let ((_h71443_ + (if (and (let () (declare (not safe)) (##structure? _h71441_)) + (let ((__tmp71838 + (let () + (declare (not safe)) + (##structure-type _h71441_)))) + (declare (not safe)) + (eq? __tmp71838 HashTable::t))) + _h71441_ + (let () + (declare (not safe)) + (cast HashTable::interface _h71441_))))) + (declare (not safe)) + (&HashTable-copy _h71443_)))) + (define &HashTable-copy + (lambda (_h71438_) + (declare (not safe)) + (cast HashTable::interface + ((##unchecked-structure-ref _h71438_ '8 HashTable::t '#f) + (##unchecked-structure-ref + _h71438_ + '1 + interface-instance::t + '#f))))) + (define HashTable-clear! + (lambda (_h71434_) + (let ((_h71436_ + (if (and (let () (declare (not safe)) (##structure? _h71434_)) + (let ((__tmp71839 + (let () + (declare (not safe)) + (##structure-type _h71434_)))) + (declare (not safe)) + (eq? __tmp71839 HashTable::t))) + _h71434_ + (let () + (declare (not safe)) + (cast HashTable::interface _h71434_))))) + (declare (not safe)) + (&HashTable-clear! _h71436_)))) + (define &HashTable-clear! + (lambda (_h71431_) + (declare (not safe)) + (begin + ((##unchecked-structure-ref _h71431_ '9 HashTable::t '#f) + (##unchecked-structure-ref _h71431_ '1 interface-instance::t '#f)) + '#!void))) + (define &HashTableLock-begin-read! + (lambda (_hl71428_) + (declare (not safe)) + ((##unchecked-structure-ref _hl71428_ '2 HashTableLock::t '#f) + (##unchecked-structure-ref _hl71428_ '1 interface-instance::t '#f)))) + (define &HashTableLock-end-read! + (lambda (_hl71425_) + (declare (not safe)) + ((##unchecked-structure-ref _hl71425_ '3 HashTableLock::t '#f) + (##unchecked-structure-ref _hl71425_ '1 interface-instance::t '#f)))) + (define &HashTableLock-begin-write! + (lambda (_hl71422_) + (declare (not safe)) + ((##unchecked-structure-ref _hl71422_ '4 HashTableLock::t '#f) + (##unchecked-structure-ref _hl71422_ '1 interface-instance::t '#f)))) + (define &HashTableLock-end-write! + (lambda (_hl71419_) + (declare (not safe)) + ((##unchecked-structure-ref _hl71419_ '5 HashTableLock::t '#f) + (##unchecked-structure-ref _hl71419_ '1 interface-instance::t '#f)))) + (define _locked-hash-table::ref68458_ + (lambda (_self71406_ _key71408_ _default71409_) + (let ((_h71411_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self71406_ + '1 + locked-hash-table::t + '#f))) + (_l71413_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self71406_ + '2 + locked-hash-table::t + '#f)))) + (dynamic-wind + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-begin-read! _l71413_))) + (lambda () + (let () + (declare (not safe)) + (&HashTable-ref _h71411_ _key71408_ _default71409_))) + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-end-read! _l71413_))))))) + (define locked-hash-table::ref::specialize + (lambda (__t71688) + (let ((__lock71689 + (let ((__tmp71691 + (let () + (declare (not safe)) + (class-slot-offset __t71688 'lock)))) + (if __tmp71691 + __tmp71691 + (let () + (declare (not safe)) + (error '"Unknown slot" 'lock))))) + (__table71690 + (let ((__tmp71692 + (let () + (declare (not safe)) + (class-slot-offset __t71688 'table)))) + (if __tmp71692 + __tmp71692 + (let () + (declare (not safe)) + (error '"Unknown slot" 'table)))))) + (lambda (_self71406_ _key71408_ _default71409_) + (let ((_h71411_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self71406_ + __table71690 + __t71688 + '#f))) + (_l71413_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self71406_ + __lock71689 + __t71688 + '#f)))) + (dynamic-wind + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-begin-read! _l71413_))) + (lambda () + (let () + (declare (not safe)) + (&HashTable-ref _h71411_ _key71408_ _default71409_))) + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-end-read! _l71413_))))))))) + (let () + (declare (not safe)) + (bind-specializer! + _locked-hash-table::ref68458_ + locked-hash-table::ref::specialize)) + (let () + (declare (not safe)) + (bind-method!__% + locked-hash-table::t + 'ref + _locked-hash-table::ref68458_ + '#f)) + (define _locked-hash-table::set!68460_ + (lambda (_self71270_ _key71272_ _value71273_) + (let ((_h71275_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self71270_ + '1 + locked-hash-table::t + '#f))) + (_l71277_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self71270_ + '2 + locked-hash-table::t + '#f)))) + (dynamic-wind + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-begin-write! _l71277_))) + (lambda () + (let () + (declare (not safe)) + (&HashTable-set! _h71275_ _key71272_ _value71273_))) + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-end-write! _l71277_))))))) + (define locked-hash-table::set!::specialize + (lambda (__t71693) + (let ((__lock71694 + (let ((__tmp71696 + (let () + (declare (not safe)) + (class-slot-offset __t71693 'lock)))) + (if __tmp71696 + __tmp71696 + (let () + (declare (not safe)) + (error '"Unknown slot" 'lock))))) + (__table71695 + (let ((__tmp71697 + (let () + (declare (not safe)) + (class-slot-offset __t71693 'table)))) + (if __tmp71697 + __tmp71697 + (let () + (declare (not safe)) + (error '"Unknown slot" 'table)))))) + (lambda (_self71270_ _key71272_ _value71273_) + (let ((_h71275_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self71270_ + __table71695 + __t71693 + '#f))) + (_l71277_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self71270_ + __lock71694 + __t71693 + '#f)))) + (dynamic-wind + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-begin-write! _l71277_))) + (lambda () + (let () + (declare (not safe)) + (&HashTable-set! _h71275_ _key71272_ _value71273_))) + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-end-write! _l71277_))))))))) + (let () + (declare (not safe)) + (bind-specializer! + _locked-hash-table::set!68460_ + locked-hash-table::set!::specialize)) + (let () + (declare (not safe)) + (bind-method!__% + locked-hash-table::t + 'set! + _locked-hash-table::set!68460_ + '#f)) + (define _locked-hash-table::update!68462_ + (lambda (_self71133_ _key71135_ _update71136_ _default71137_) + (let ((_h71139_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self71133_ + '1 + locked-hash-table::t + '#f))) + (_l71141_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self71133_ + '2 + locked-hash-table::t + '#f)))) + (dynamic-wind + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-begin-write! _l71141_))) + (lambda () + (let () + (declare (not safe)) + (&HashTable-update! + _h71139_ + _key71135_ + _update71136_ + _default71137_))) + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-end-write! _l71141_))))))) + (define locked-hash-table::update!::specialize + (lambda (__t71698) + (let ((__table71699 + (let ((__tmp71701 + (let () + (declare (not safe)) + (class-slot-offset __t71698 'table)))) + (if __tmp71701 + __tmp71701 + (let () + (declare (not safe)) + (error '"Unknown slot" 'table))))) + (__lock71700 + (let ((__tmp71702 + (let () + (declare (not safe)) + (class-slot-offset __t71698 'lock)))) + (if __tmp71702 + __tmp71702 + (let () + (declare (not safe)) + (error '"Unknown slot" 'lock)))))) + (lambda (_self71133_ _key71135_ _update71136_ _default71137_) + (let ((_h71139_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self71133_ + __table71699 + __t71698 + '#f))) + (_l71141_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self71133_ + __lock71700 + __t71698 + '#f)))) + (dynamic-wind + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-begin-write! _l71141_))) + (lambda () + (let () + (declare (not safe)) + (&HashTable-update! + _h71139_ + _key71135_ + _update71136_ + _default71137_))) + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-end-write! _l71141_))))))))) + (let () + (declare (not safe)) + (bind-specializer! + _locked-hash-table::update!68462_ + locked-hash-table::update!::specialize)) + (let () + (declare (not safe)) + (bind-method!__% + locked-hash-table::t + 'update! + _locked-hash-table::update!68462_ + '#f)) + (define _locked-hash-table::delete!68464_ + (lambda (_self70998_ _key71000_) + (let ((_h71002_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70998_ + '1 + locked-hash-table::t + '#f))) + (_l71004_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70998_ + '2 + locked-hash-table::t + '#f)))) + (dynamic-wind + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-begin-write! _l71004_))) + (lambda () + (let () + (declare (not safe)) + (&HashTable-delete! _h71002_ _key71000_))) + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-end-write! _l71004_))))))) + (define locked-hash-table::delete!::specialize + (lambda (__t71703) + (let ((__lock71704 + (let ((__tmp71706 + (let () + (declare (not safe)) + (class-slot-offset __t71703 'lock)))) + (if __tmp71706 + __tmp71706 + (let () + (declare (not safe)) + (error '"Unknown slot" 'lock))))) + (__table71705 + (let ((__tmp71707 + (let () + (declare (not safe)) + (class-slot-offset __t71703 'table)))) + (if __tmp71707 + __tmp71707 + (let () + (declare (not safe)) + (error '"Unknown slot" 'table)))))) + (lambda (_self70998_ _key71000_) + (let ((_h71002_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70998_ + __table71705 + __t71703 + '#f))) + (_l71004_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70998_ + __lock71704 + __t71703 + '#f)))) + (dynamic-wind + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-begin-write! _l71004_))) + (lambda () + (let () + (declare (not safe)) + (&HashTable-delete! _h71002_ _key71000_))) + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-end-write! _l71004_))))))))) + (let () + (declare (not safe)) + (bind-specializer! + _locked-hash-table::delete!68464_ + locked-hash-table::delete!::specialize)) + (let () + (declare (not safe)) + (bind-method!__% + locked-hash-table::t + 'delete! + _locked-hash-table::delete!68464_ + '#f)) + (define _locked-hash-table::for-each68466_ + (lambda (_self70863_ _proc70865_) + (let ((_h70867_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70863_ + '1 + locked-hash-table::t + '#f))) + (_l70869_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70863_ + '2 + locked-hash-table::t + '#f)))) + (dynamic-wind + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-begin-read! _l70869_))) + (lambda () + (let () + (declare (not safe)) + (&HashTable-for-each _h70867_ _proc70865_))) + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-end-read! _l70869_))))))) + (define locked-hash-table::for-each::specialize + (lambda (__t71708) + (let ((__table71709 + (let ((__tmp71711 + (let () + (declare (not safe)) + (class-slot-offset __t71708 'table)))) + (if __tmp71711 + __tmp71711 + (let () + (declare (not safe)) + (error '"Unknown slot" 'table))))) + (__lock71710 + (let ((__tmp71712 + (let () + (declare (not safe)) + (class-slot-offset __t71708 'lock)))) + (if __tmp71712 + __tmp71712 + (let () + (declare (not safe)) + (error '"Unknown slot" 'lock)))))) + (lambda (_self70863_ _proc70865_) + (let ((_h70867_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70863_ + __table71709 + __t71708 + '#f))) + (_l70869_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70863_ + __lock71710 + __t71708 + '#f)))) + (dynamic-wind + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-begin-read! _l70869_))) + (lambda () + (let () + (declare (not safe)) + (&HashTable-for-each _h70867_ _proc70865_))) + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-end-read! _l70869_))))))))) + (let () + (declare (not safe)) + (bind-specializer! + _locked-hash-table::for-each68466_ + locked-hash-table::for-each::specialize)) + (let () + (declare (not safe)) + (bind-method!__% + locked-hash-table::t + 'for-each + _locked-hash-table::for-each68466_ + '#f)) + (define _locked-hash-table::length68468_ + (lambda (_self70729_) + (let ((_h70732_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70729_ + '1 + locked-hash-table::t + '#f))) + (_l70734_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70729_ + '2 + locked-hash-table::t + '#f)))) + (dynamic-wind + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-begin-read! _l70734_))) + (lambda () + (let () (declare (not safe)) (&HashTable-length _h70732_))) + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-end-read! _l70734_))))))) + (define locked-hash-table::length::specialize + (lambda (__t71713) + (let ((__lock71714 + (let ((__tmp71716 + (let () + (declare (not safe)) + (class-slot-offset __t71713 'lock)))) + (if __tmp71716 + __tmp71716 + (let () + (declare (not safe)) + (error '"Unknown slot" 'lock))))) + (__table71715 + (let ((__tmp71717 + (let () + (declare (not safe)) + (class-slot-offset __t71713 'table)))) + (if __tmp71717 + __tmp71717 + (let () + (declare (not safe)) + (error '"Unknown slot" 'table)))))) + (lambda (_self70729_) + (let ((_h70732_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70729_ + __table71715 + __t71713 + '#f))) + (_l70734_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70729_ + __lock71714 + __t71713 + '#f)))) + (dynamic-wind + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-begin-read! _l70734_))) + (lambda () + (let () (declare (not safe)) (&HashTable-length _h70732_))) + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-end-read! _l70734_))))))))) + (let () + (declare (not safe)) + (bind-specializer! + _locked-hash-table::length68468_ + locked-hash-table::length::specialize)) + (let () + (declare (not safe)) + (bind-method!__% + locked-hash-table::t + 'length + _locked-hash-table::length68468_ + '#f)) + (define _locked-hash-table::copy68470_ + (lambda (_self70595_) + (let ((_h70598_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70595_ + '1 + locked-hash-table::t + '#f))) + (_l70600_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70595_ + '2 + locked-hash-table::t + '#f)))) + (dynamic-wind + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-begin-read! _l70600_))) + (lambda () (let () (declare (not safe)) (&HashTable-copy _h70598_))) + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-end-read! _l70600_))))))) + (define locked-hash-table::copy::specialize + (lambda (__t71718) + (let ((__table71719 + (let ((__tmp71721 + (let () + (declare (not safe)) + (class-slot-offset __t71718 'table)))) + (if __tmp71721 + __tmp71721 + (let () + (declare (not safe)) + (error '"Unknown slot" 'table))))) + (__lock71720 + (let ((__tmp71722 + (let () + (declare (not safe)) + (class-slot-offset __t71718 'lock)))) + (if __tmp71722 + __tmp71722 + (let () + (declare (not safe)) + (error '"Unknown slot" 'lock)))))) + (lambda (_self70595_) + (let ((_h70598_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70595_ + __table71719 + __t71718 + '#f))) + (_l70600_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70595_ + __lock71720 + __t71718 + '#f)))) + (dynamic-wind + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-begin-read! _l70600_))) + (lambda () + (let () (declare (not safe)) (&HashTable-copy _h70598_))) + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-end-read! _l70600_))))))))) + (let () + (declare (not safe)) + (bind-specializer! + _locked-hash-table::copy68470_ + locked-hash-table::copy::specialize)) + (let () + (declare (not safe)) + (bind-method!__% + locked-hash-table::t + 'copy + _locked-hash-table::copy68470_ + '#f)) + (define _locked-hash-table::clear!68472_ + (lambda (_self70461_) + (let ((_h70464_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70461_ + '1 + locked-hash-table::t + '#f))) + (_l70466_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70461_ + '2 + locked-hash-table::t + '#f)))) + (dynamic-wind + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-begin-write! _l70466_))) + (lambda () + (let () (declare (not safe)) (&HashTable-clear! _h70464_))) + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-end-write! _l70466_))))))) + (define locked-hash-table::clear!::specialize + (lambda (__t71723) + (let ((__table71724 + (let ((__tmp71726 + (let () + (declare (not safe)) + (class-slot-offset __t71723 'table)))) + (if __tmp71726 + __tmp71726 + (let () + (declare (not safe)) + (error '"Unknown slot" 'table))))) + (__lock71725 + (let ((__tmp71727 + (let () + (declare (not safe)) + (class-slot-offset __t71723 'lock)))) + (if __tmp71727 + __tmp71727 + (let () + (declare (not safe)) + (error '"Unknown slot" 'lock)))))) + (lambda (_self70461_) + (let ((_h70464_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70461_ + __table71724 + __t71723 + '#f))) + (_l70466_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70461_ + __lock71725 + __t71723 + '#f)))) + (dynamic-wind + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-begin-write! _l70466_))) + (lambda () + (let () (declare (not safe)) (&HashTable-clear! _h70464_))) + (lambda () + (let () + (declare (not safe)) + (&HashTableLock-end-write! _l70466_))))))))) + (let () + (declare (not safe)) + (bind-specializer! + _locked-hash-table::clear!68472_ + locked-hash-table::clear!::specialize)) + (let () + (declare (not safe)) + (bind-method!__% + locked-hash-table::t + 'clear! + _locked-hash-table::clear!68472_ + '#f)) + (let ((__tmp71840 (macro-type-mutex))) + (declare (not safe)) + (bind-method!__0 __tmp71840 'begin-read! mutex-lock!)) + (let ((__tmp71841 (macro-type-mutex))) + (declare (not safe)) + (bind-method!__0 __tmp71841 'end-read! mutex-unlock!)) + (let ((__tmp71842 (macro-type-mutex))) + (declare (not safe)) + (bind-method!__0 __tmp71842 'begin-write! mutex-lock!)) + (let ((__tmp71843 (macro-type-mutex))) + (declare (not safe)) + (bind-method!__0 __tmp71843 'end-write! mutex-unlock!)) + (define _checked-hash-table::ref68750_ + (lambda (_self70325_ _key70326_ _default70327_) + (let ((_h70329_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70325_ + '1 + checked-hash-table::t + '#f))) + (_key?70331_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70325_ + '2 + checked-hash-table::t + '#f)))) + ((lambda (_g7033370335_) + (if (_g7033370335_ _key70326_) + '#!void + (let () + (declare (not safe)) + (error '"invalid argument" _key70326_)))) + _key?70331_) + (let () + (declare (not safe)) + (&HashTable-ref _h70329_ _key70326_ _default70327_))))) + (define checked-hash-table::ref::specialize + (lambda (__t71728) + (let ((__key-check71729 + (let ((__tmp71731 + (let () + (declare (not safe)) + (class-slot-offset __t71728 'key-check)))) + (if __tmp71731 + __tmp71731 + (let () + (declare (not safe)) + (error '"Unknown slot" 'key-check))))) + (__table71730 + (let ((__tmp71732 + (let () + (declare (not safe)) + (class-slot-offset __t71728 'table)))) + (if __tmp71732 + __tmp71732 + (let () + (declare (not safe)) + (error '"Unknown slot" 'table)))))) + (lambda (_self70325_ _key70326_ _default70327_) + (let ((_h70329_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70325_ + __table71730 + __t71728 + '#f))) + (_key?70331_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70325_ + __key-check71729 + __t71728 + '#f)))) + ((lambda (_g7033370335_) + (if (_g7033370335_ _key70326_) + '#!void + (let () + (declare (not safe)) + (error '"invalid argument" _key70326_)))) + _key?70331_) + (let () + (declare (not safe)) + (&HashTable-ref _h70329_ _key70326_ _default70327_))))))) + (let () + (declare (not safe)) + (bind-specializer! + _checked-hash-table::ref68750_ + checked-hash-table::ref::specialize)) + (let () + (declare (not safe)) + (bind-method!__% + checked-hash-table::t + 'ref + _checked-hash-table::ref68750_ + '#f)) + (define _checked-hash-table::set!68752_ + (lambda (_self70189_ _key70190_ _value70191_) + (let ((_h70193_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70189_ + '1 + checked-hash-table::t + '#f))) + (_key?70195_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70189_ + '2 + checked-hash-table::t + '#f)))) + ((lambda (_g7019770199_) + (if (_g7019770199_ _key70190_) + '#!void + (let () + (declare (not safe)) + (error '"invalid argument" _key70190_)))) + _key?70195_) + (let () + (declare (not safe)) + (&HashTable-set! _h70193_ _key70190_ _value70191_))))) + (define checked-hash-table::set!::specialize + (lambda (__t71733) + (let ((__key-check71734 + (let ((__tmp71736 + (let () + (declare (not safe)) + (class-slot-offset __t71733 'key-check)))) + (if __tmp71736 + __tmp71736 + (let () + (declare (not safe)) + (error '"Unknown slot" 'key-check))))) + (__table71735 + (let ((__tmp71737 + (let () + (declare (not safe)) + (class-slot-offset __t71733 'table)))) + (if __tmp71737 + __tmp71737 + (let () + (declare (not safe)) + (error '"Unknown slot" 'table)))))) + (lambda (_self70189_ _key70190_ _value70191_) + (let ((_h70193_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70189_ + __table71735 + __t71733 + '#f))) + (_key?70195_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70189_ + __key-check71734 + __t71733 + '#f)))) + ((lambda (_g7019770199_) + (if (_g7019770199_ _key70190_) + '#!void + (let () + (declare (not safe)) + (error '"invalid argument" _key70190_)))) + _key?70195_) + (let () + (declare (not safe)) + (&HashTable-set! _h70193_ _key70190_ _value70191_))))))) + (let () + (declare (not safe)) + (bind-specializer! + _checked-hash-table::set!68752_ + checked-hash-table::set!::specialize)) + (let () + (declare (not safe)) + (bind-method!__% + checked-hash-table::t + 'set! + _checked-hash-table::set!68752_ + '#f)) + (define _checked-hash-table::update!68754_ + (lambda (_self70054_ _key70055_ _update70056_ _default70057_) + (let ((_h70059_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70054_ + '1 + checked-hash-table::t + '#f))) + (_key?70061_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70054_ + '2 + checked-hash-table::t + '#f)))) + ((lambda (_key?70064_) + (if (_key?70064_ _key70055_) + '#!void + (let () + (declare (not safe)) + (error '"invalid argument" _key70055_))) + (if (let () (declare (not safe)) (procedure? _update70056_)) + '#!void + (let () + (declare (not safe)) + (error '"invalid argument" _update70056_)))) + _key?70061_) + (let () + (declare (not safe)) + (&HashTable-update! + _h70059_ + _key70055_ + _update70056_ + _default70057_))))) + (define checked-hash-table::update!::specialize + (lambda (__t71738) + (let ((__table71739 + (let ((__tmp71741 + (let () + (declare (not safe)) + (class-slot-offset __t71738 'table)))) + (if __tmp71741 + __tmp71741 + (let () + (declare (not safe)) + (error '"Unknown slot" 'table))))) + (__key-check71740 + (let ((__tmp71742 + (let () + (declare (not safe)) + (class-slot-offset __t71738 'key-check)))) + (if __tmp71742 + __tmp71742 + (let () + (declare (not safe)) + (error '"Unknown slot" 'key-check)))))) + (lambda (_self70054_ _key70055_ _update70056_ _default70057_) + (let ((_h70059_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70054_ + __table71739 + __t71738 + '#f))) + (_key?70061_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self70054_ + __key-check71740 + __t71738 + '#f)))) + ((lambda (_key?70064_) + (if (_key?70064_ _key70055_) + '#!void + (let () + (declare (not safe)) + (error '"invalid argument" _key70055_))) + (if (let () (declare (not safe)) (procedure? _update70056_)) + '#!void + (let () + (declare (not safe)) + (error '"invalid argument" _update70056_)))) + _key?70061_) + (let () + (declare (not safe)) + (&HashTable-update! + _h70059_ + _key70055_ + _update70056_ + _default70057_))))))) + (let () + (declare (not safe)) + (bind-specializer! + _checked-hash-table::update!68754_ + checked-hash-table::update!::specialize)) + (let () + (declare (not safe)) + (bind-method!__% + checked-hash-table::t + 'update! + _checked-hash-table::update!68754_ + '#f)) + (define _checked-hash-table::delete!68756_ + (lambda (_self69919_ _key69920_) + (let ((_h69922_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self69919_ + '1 + checked-hash-table::t + '#f))) + (_key?69924_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self69919_ + '2 + checked-hash-table::t + '#f)))) + ((lambda (_g6992669928_) + (if (_g6992669928_ _key69920_) + '#!void + (let () + (declare (not safe)) + (error '"invalid argument" _key69920_)))) + _key?69924_) + (let () + (declare (not safe)) + (&HashTable-delete! _h69922_ _key69920_))))) + (define checked-hash-table::delete!::specialize + (lambda (__t71743) + (let ((__key-check71744 + (let ((__tmp71746 + (let () + (declare (not safe)) + (class-slot-offset __t71743 'key-check)))) + (if __tmp71746 + __tmp71746 + (let () + (declare (not safe)) + (error '"Unknown slot" 'key-check))))) + (__table71745 + (let ((__tmp71747 + (let () + (declare (not safe)) + (class-slot-offset __t71743 'table)))) + (if __tmp71747 + __tmp71747 + (let () + (declare (not safe)) + (error '"Unknown slot" 'table)))))) + (lambda (_self69919_ _key69920_) + (let ((_h69922_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self69919_ + __table71745 + __t71743 + '#f))) + (_key?69924_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self69919_ + __key-check71744 + __t71743 + '#f)))) + ((lambda (_g6992669928_) + (if (_g6992669928_ _key69920_) + '#!void + (let () + (declare (not safe)) + (error '"invalid argument" _key69920_)))) + _key?69924_) + (let () + (declare (not safe)) + (&HashTable-delete! _h69922_ _key69920_))))))) + (let () + (declare (not safe)) + (bind-specializer! + _checked-hash-table::delete!68756_ + checked-hash-table::delete!::specialize)) + (let () + (declare (not safe)) + (bind-method!__% + checked-hash-table::t + 'delete! + _checked-hash-table::delete!68756_ + '#f)) + (define _checked-hash-table::for-each68758_ + (lambda (_self69787_ _proc69788_) + (let ((_h69790_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self69787_ + '1 + checked-hash-table::t + '#f))) + (_key?69792_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self69787_ + '2 + checked-hash-table::t + '#f)))) + ((lambda (_g71844_) + (if (let () (declare (not safe)) (procedure? _proc69788_)) + '#!void + (let () + (declare (not safe)) + (error '"invalid argument" _proc69788_)))) + _key?69792_) + (let () + (declare (not safe)) + (&HashTable-for-each _h69790_ _proc69788_))))) + (define checked-hash-table::for-each::specialize + (lambda (__t71748) + (let ((__key-check71749 + (let ((__tmp71751 + (let () + (declare (not safe)) + (class-slot-offset __t71748 'key-check)))) + (if __tmp71751 + __tmp71751 + (let () + (declare (not safe)) + (error '"Unknown slot" 'key-check))))) + (__table71750 + (let ((__tmp71752 + (let () + (declare (not safe)) + (class-slot-offset __t71748 'table)))) + (if __tmp71752 + __tmp71752 + (let () + (declare (not safe)) + (error '"Unknown slot" 'table)))))) + (lambda (_self69787_ _proc69788_) + (let ((_h69790_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self69787_ + __table71750 + __t71748 + '#f))) + (_key?69792_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self69787_ + __key-check71749 + __t71748 + '#f)))) + ((lambda (_g71845_) + (if (let () (declare (not safe)) (procedure? _proc69788_)) + '#!void + (let () + (declare (not safe)) + (error '"invalid argument" _proc69788_)))) + _key?69792_) + (let () + (declare (not safe)) + (&HashTable-for-each _h69790_ _proc69788_))))))) + (let () + (declare (not safe)) + (bind-specializer! + _checked-hash-table::for-each68758_ + checked-hash-table::for-each::specialize)) + (let () + (declare (not safe)) + (bind-method!__% + checked-hash-table::t + 'for-each + _checked-hash-table::for-each68758_ + '#f)) + (define _checked-hash-table::length68760_ + (lambda (_self69657_) + (let ((_h69659_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self69657_ + '1 + checked-hash-table::t + '#f))) + (_key?69661_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self69657_ + '2 + checked-hash-table::t + '#f)))) + (let () (declare (not safe)) (&HashTable-length _h69659_))))) + (define checked-hash-table::length::specialize + (lambda (__t71753) + (let ((__key-check71754 + (let ((__tmp71756 + (let () + (declare (not safe)) + (class-slot-offset __t71753 'key-check)))) + (if __tmp71756 + __tmp71756 + (let () + (declare (not safe)) + (error '"Unknown slot" 'key-check))))) + (__table71755 + (let ((__tmp71757 + (let () + (declare (not safe)) + (class-slot-offset __t71753 'table)))) + (if __tmp71757 + __tmp71757 + (let () + (declare (not safe)) + (error '"Unknown slot" 'table)))))) + (lambda (_self69657_) + (let ((_h69659_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self69657_ + __table71755 + __t71753 + '#f))) + (_key?69661_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self69657_ + __key-check71754 + __t71753 + '#f)))) + (let () (declare (not safe)) (&HashTable-length _h69659_))))))) + (let () + (declare (not safe)) + (bind-specializer! + _checked-hash-table::length68760_ + checked-hash-table::length::specialize)) + (let () + (declare (not safe)) + (bind-method!__% + checked-hash-table::t + 'length + _checked-hash-table::length68760_ + '#f)) + (define _checked-hash-table::copy68762_ + (lambda (_self69527_) + (let ((_h69529_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self69527_ + '1 + checked-hash-table::t + '#f))) + (_key?69531_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self69527_ + '2 + checked-hash-table::t + '#f)))) + (let () (declare (not safe)) (&HashTable-copy _h69529_))))) + (define checked-hash-table::copy::specialize + (lambda (__t71758) + (let ((__table71759 + (let ((__tmp71761 + (let () + (declare (not safe)) + (class-slot-offset __t71758 'table)))) + (if __tmp71761 + __tmp71761 + (let () + (declare (not safe)) + (error '"Unknown slot" 'table))))) + (__key-check71760 + (let ((__tmp71762 + (let () + (declare (not safe)) + (class-slot-offset __t71758 'key-check)))) + (if __tmp71762 + __tmp71762 + (let () + (declare (not safe)) + (error '"Unknown slot" 'key-check)))))) + (lambda (_self69527_) + (let ((_h69529_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self69527_ + __table71759 + __t71758 + '#f))) + (_key?69531_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self69527_ + __key-check71760 + __t71758 + '#f)))) + (let () (declare (not safe)) (&HashTable-copy _h69529_))))))) + (let () + (declare (not safe)) + (bind-specializer! + _checked-hash-table::copy68762_ + checked-hash-table::copy::specialize)) + (let () + (declare (not safe)) + (bind-method!__% + checked-hash-table::t + 'copy + _checked-hash-table::copy68762_ + '#f)) + (define _checked-hash-table::clear!68764_ + (lambda (_self69397_) + (let ((_h69399_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self69397_ + '1 + checked-hash-table::t + '#f))) + (_key?69401_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self69397_ + '2 + checked-hash-table::t + '#f)))) + (let () (declare (not safe)) (&HashTable-clear! _h69399_))))) + (define checked-hash-table::clear!::specialize + (lambda (__t71763) + (let ((__table71764 + (let ((__tmp71766 + (let () + (declare (not safe)) + (class-slot-offset __t71763 'table)))) + (if __tmp71766 + __tmp71766 + (let () + (declare (not safe)) + (error '"Unknown slot" 'table))))) + (__key-check71765 + (let ((__tmp71767 + (let () + (declare (not safe)) + (class-slot-offset __t71763 'key-check)))) + (if __tmp71767 + __tmp71767 + (let () + (declare (not safe)) + (error '"Unknown slot" 'key-check)))))) + (lambda (_self69397_) + (let ((_h69399_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self69397_ + __table71764 + __t71763 + '#f))) + (_key?69401_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self69397_ + __key-check71765 + __t71763 + '#f)))) + (let () (declare (not safe)) (&HashTable-clear! _h69399_))))))) + (let () + (declare (not safe)) + (bind-specializer! + _checked-hash-table::clear!68764_ + checked-hash-table::clear!::specialize)) + (let () + (declare (not safe)) + (bind-method!__% + checked-hash-table::t + 'clear! + _checked-hash-table::clear!68764_ + '#f)) + (define make-generic-hash-table + (lambda (_table69267_ + _count69268_ + _free69269_ + _hash69270_ + _test69271_ + _seed69272_) + (let () + (declare (not safe)) + (##structure + hash-table::t + _table69267_ + _count69268_ + _free69269_ + _hash69270_ + _test69271_ + _seed69272_)))) + (define make-hash-table__% + (lambda (_g71846_ + _size-hint6913069140_ + _seed6913169142_ + _test6913269144_ + _hash6913369146_ + _lock6913469148_ + _check6913569150_ + _weak-keys6913669152_ + _weak-values6913769154_) + (let* ((_size-hint69157_ + (if (let () + (declare (not safe)) + (eq? _size-hint6913069140_ absent-value)) + '#f + _size-hint6913069140_)) + (_seed69159_ + (if (let () + (declare (not safe)) + (eq? _seed6913169142_ absent-value)) + (random-integer (macro-max-fixnum32)) + _seed6913169142_)) + (_test69161_ + (if (let () + (declare (not safe)) + (eq? _test6913269144_ absent-value)) + equal? + _test6913269144_)) + (_hash69163_ + (if (let () + (declare (not safe)) + (eq? _hash6913369146_ absent-value)) + '#f + _hash6913369146_)) + (_lock69165_ + (if (let () + (declare (not safe)) + (eq? _lock6913469148_ absent-value)) + '#f + _lock6913469148_)) + (_check69167_ + (if (let () + (declare (not safe)) + (eq? _check6913569150_ absent-value)) + '#f + _check6913569150_)) + (_weak-keys69169_ + (if (let () + (declare (not safe)) + (eq? _weak-keys6913669152_ absent-value)) + '#f + _weak-keys6913669152_)) + (_weak-values69171_ + (if (let () + (declare (not safe)) + (eq? _weak-values6913769154_ absent-value)) + '#f + _weak-values6913769154_))) + (letrec ((_wrap-lock69173_ + (lambda (_ht69251_) + (if _lock69165_ + (let ((__tmp71847 + (let ((__tmp71848 + (let () + (declare (not safe)) + (cast HashTableLock::interface + _lock69165_)))) + (declare (not safe)) + (##structure + locked-hash-table::t + _ht69251_ + __tmp71848)))) + (declare (not safe)) + (cast HashTable::interface __tmp71847)) + _ht69251_))) + (_wrap-checked69174_ + (lambda (_ht69248_ _implicit69249_) + (if _check69167_ + (let ((__tmp71849 + (let ((__tmp71850 + (if (let () + (declare (not safe)) + (procedure? _check69167_)) + _check69167_ + _implicit69249_))) + (declare (not safe)) + (##structure + checked-hash-table::t + _ht69248_ + __tmp71850)))) + (declare (not safe)) + (cast HashTable::interface __tmp71849)) + _ht69248_))) + (_make69175_ + (lambda (_kons69236_ _key?69237_ _hash69238_ _test69239_) + (let* ((_size69241_ + (let () + (declare (not safe)) + (raw-table-size-hint->size _size-hint69157_))) + (_table69243_ + (make-vector _size69241_ (macro-unused-obj))) + (_ht69245_ + (let ((__tmp71851 + (_kons69236_ + _table69243_ + '0 + (fxquotient _size69241_ '2) + _hash69238_ + _test69239_ + _seed69159_))) + (declare (not safe)) + (cast HashTable::interface __tmp71851)))) + (let ((__tmp71852 + (let () + (declare (not safe)) + (_wrap-lock69173_ _ht69245_)))) + (declare (not safe)) + (_wrap-checked69174_ __tmp71852 _key?69237_))))) + (_make-gambit-table69176_ + (lambda () + (let* ((_size69221_ + (let ((_$e69218_ _size-hint69157_)) + (if _$e69218_ _$e69218_ (macro-absent-obj)))) + (_test69226_ + (let ((_$e69223_ _test69161_)) + (if _$e69223_ _$e69223_ equal?))) + (_hash69231_ + (let ((_$e69228_ _hash69163_)) + (if _$e69228_ + _$e69228_ + (if (let () + (declare (not safe)) + (eq? _test69226_ eq?)) + eq?-hash + (if (let () + (declare (not safe)) + (eq? _test69226_ eqv?)) + eqv?-hash + equal?-hash))))) + (_ht69233_ + (let ((__tmp71853 + (make-table + 'size: + _size69221_ + 'test: + _test69226_ + 'hash: + _hash69231_ + 'weak-keys: + _weak-keys69169_ + 'weak-values: + _weak-values69171_))) + (declare (not safe)) + (cast HashTable::interface __tmp71853)))) + (let ((__tmp71854 + (let () + (declare (not safe)) + (_wrap-lock69173_ _ht69233_)))) + (declare (not safe)) + (_wrap-checked69174_ __tmp71854 true)))))) + (if (or _weak-keys69169_ _weak-values69171_) + (let () (declare (not safe)) (_make-gambit-table69176_)) + (if (and (or (let () + (declare (not safe)) + (eq? _test69161_ eq?)) + (let () + (declare (not safe)) + (eq? _test69161_ ##eq?))) + (or (let () (declare (not safe)) (not _hash69163_)) + (let () + (declare (not safe)) + (eq? _hash69163_ eq?-hash)) + (let () + (declare (not safe)) + (eq? _hash69163_ eq-hash)))) + (let () + (declare (not safe)) + (_make69175_ make-eq-hash-table true eq-hash eq?)) + (if (and (or (let () + (declare (not safe)) + (eq? _test69161_ eqv?)) + (let () + (declare (not safe)) + (eq? _test69161_ ##eqv?))) + (or (let () + (declare (not safe)) + (not _hash69163_)) + (let () + (declare (not safe)) + (eq? _hash69163_ eqv?-hash)) + (let () + (declare (not safe)) + (eq? _hash69163_ eqv-hash)))) + (let () + (declare (not safe)) + (_make69175_ make-eqv-hash-table true eqv-hash eqv?)) + (if (and (or (let () + (declare (not safe)) + (eq? _test69161_ eq?)) + (let () + (declare (not safe)) + (eq? _test69161_ ##eq?))) + (or (let () + (declare (not safe)) + (eq? _hash69163_ symbolic-hash)) + (let () + (declare (not safe)) + (eq? _hash69163_ ##symbol-hash)))) + (let () + (declare (not safe)) + (_make69175_ + make-symbol-hash-table + symbolic? + symbolic-hash + eq?)) + (if (and (or (let () + (declare (not safe)) + (eq? _test69161_ equal?)) + (let () + (declare (not safe)) + (eq? _test69161_ ##equal?)) + (let () + (declare (not safe)) + (eq? _test69161_ string=?)) + (let () + (declare (not safe)) + (eq? _test69161_ ##string=?))) + (or (let () + (declare (not safe)) + (eq? _hash69163_ string-hash)) + (let () + (declare (not safe)) + (eq? _hash69163_ ##string=?-hash)))) + (let () + (declare (not safe)) + (_make69175_ + make-string-hash-table + string? + string-hash + ##string=?)) + (if (and (let () + (declare (not safe)) + (eq? _test69161_ equal?)) + (let () + (declare (not safe)) + (not _hash69163_))) + (let () + (declare (not safe)) + (_make69175_ + make-generic-hash-table + true + equal?-hash + equal?)) + (if (let ((__tmp71856 + (let () + (declare (not safe)) + (procedure? _test69161_)))) + (declare (not safe)) + (not __tmp71856)) + (let () + (declare (not safe)) + (error '"bad hash table test function; expected procedure" + _test69161_)) + (if (let ((__tmp71855 + (let () + (declare (not safe)) + (procedure? + _hash69163_)))) + (declare (not safe)) + (not __tmp71855)) + (let () + (declare (not safe)) + (error '"bad hash table hash function; expected procedure" + _hash69163_)) + (let () + (declare (not safe)) + (_make69175_ + make-generic-hash-table + true + _hash69163_ + _test69161_)))))))))))))) + (define make-hash-table__@ + (lambda (_keys6912969256_ . _args69258_) + (apply make-hash-table__% + _keys6912969256_ + (let () + (declare (not safe)) + (symbolic-table-ref _keys6912969256_ 'size: absent-value)) + (let () + (declare (not safe)) + (symbolic-table-ref _keys6912969256_ 'seed: absent-value)) + (let () + (declare (not safe)) + (symbolic-table-ref _keys6912969256_ 'test: absent-value)) + (let () + (declare (not safe)) + (symbolic-table-ref _keys6912969256_ 'hash: absent-value)) + (let () + (declare (not safe)) + (symbolic-table-ref _keys6912969256_ 'lock: absent-value)) + (let () + (declare (not safe)) + (symbolic-table-ref _keys6912969256_ 'check: absent-value)) + (let () + (declare (not safe)) + (symbolic-table-ref + _keys6912969256_ + 'weak-keys: + absent-value)) + (let () + (declare (not safe)) + (symbolic-table-ref + _keys6912969256_ + 'weak-values: + absent-value)) + _args69258_))) + (define make-hash-table + (lambda _args6913869264_ + (apply keyword-dispatch + '#(#f + #f + weak-values: + #f + #f + test: + #f + #f + #f + hash: + #f + #f + size: + #f + #f + #f + #f + #f + #f + #f + seed: + #f + #f + #f + weak-keys: + #f + #f + #f + #f + #f + #f + check: + #f + #f + lock: + #f + #f + #f + #f + #f) + make-hash-table__@ + _args6913869264_))) + (define make-hash-table-eq + (lambda _args69126_ (apply make-hash-table 'test: eq? _args69126_))) + (define make-hash-table-eqv + (lambda _args69124_ (apply make-hash-table 'test: eqv? _args69124_))) + (define make-hash-table-symbolic + (lambda _args69122_ + (apply make-hash-table 'test: eq? 'hash: symbolic-hash _args69122_))) + (define make-hash-table-string + (lambda _args69120_ + (apply make-hash-table + 'test: + string=? + 'hash: + string-hash + _args69120_))) + (define list->hash-table + (lambda (_lst69117_ . _args69118_) + (let ((__tmp71857 + (apply make-hash-table 'size: (length _lst69117_) _args69118_))) + (declare (not safe)) + (list->hash-table! _lst69117_ __tmp71857)))) + (define list->hash-table-eq + (lambda (_lst69114_ . _args69115_) + (let ((__tmp71858 + (apply make-hash-table-eq + 'size: + (length _lst69114_) + _args69115_))) + (declare (not safe)) + (list->hash-table! _lst69114_ __tmp71858)))) + (define list->hash-table-eqv + (lambda (_lst69111_ . _args69112_) + (let ((__tmp71859 + (apply make-hash-table-eqv + 'size: + (length _lst69111_) + _args69112_))) + (declare (not safe)) + (list->hash-table! _lst69111_ __tmp71859)))) + (define list->hash-table-symbolic + (lambda (_lst69108_ . _args69109_) + (let ((__tmp71860 + (apply make-hash-table-symbolic + 'size: + (length _lst69108_) + _args69109_))) + (declare (not safe)) + (list->hash-table! _lst69108_ __tmp71860)))) + (define list->hash-table-string + (lambda (_lst69105_ . _args69106_) + (let ((__tmp71861 + (apply make-hash-table-string + 'size: + (length _lst69105_) + _args69106_))) + (declare (not safe)) + (list->hash-table! _lst69105_ __tmp71861)))) + (define list->hash-table! + (lambda (_lst69072_ _h69073_) + (for-each + (lambda (_el69075_) + (let* ((_el6907669083_ _el69075_) + (_E6907869087_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" _el6907669083_)))) + (_K6907969093_ + (lambda (_v69090_ _k69091_) + (let () + (declare (not safe)) + (&HashTable-set! _h69073_ _k69091_ _v69090_))))) + (if (let () (declare (not safe)) (##pair? _el6907669083_)) + (let ((_hd6908069096_ + (let () (declare (not safe)) (##car _el6907669083_))) + (_tl6908169098_ + (let () (declare (not safe)) (##cdr _el6907669083_)))) + (let* ((_k69101_ _hd6908069096_) (_v69103_ _tl6908169098_)) + (declare (not safe)) + (_K6907969093_ _v69103_ _k69101_))) + (let () (declare (not safe)) (_E6907869087_))))) + _lst69072_) + _h69073_)) + (define plist->hash-table + (lambda (_lst69069_ . _args69070_) + (let ((__tmp71862 + (apply make-hash-table 'size: (length _lst69069_) _args69070_))) + (declare (not safe)) + (plist->hash-table! _lst69069_ __tmp71862)))) + (define plist->hash-table-eq + (lambda (_lst69066_ . _args69067_) + (let ((__tmp71863 + (apply make-hash-table-eq + 'size: + (length _lst69066_) + _args69067_))) + (declare (not safe)) + (plist->hash-table! _lst69066_ __tmp71863)))) + (define plist->hash-table-eqv + (lambda (_lst69063_ . _args69064_) + (let ((__tmp71864 + (apply make-hash-table-eqv + 'size: + (length _lst69063_) + _args69064_))) + (declare (not safe)) + (plist->hash-table! _lst69063_ __tmp71864)))) + (define plist->hash-table-symbolic + (lambda (_lst69060_ . _args69061_) + (let ((__tmp71865 + (apply make-hash-table-symbolic + 'size: + (length _lst69060_) + _args69061_))) + (declare (not safe)) + (plist->hash-table! _lst69060_ __tmp71865)))) + (define plist->hash-table-string + (lambda (_lst69057_ . _args69058_) + (let ((__tmp71866 + (apply make-hash-table-string + 'size: + (length _lst69057_) + _args69058_))) + (declare (not safe)) + (plist->hash-table! _lst69057_ __tmp71866)))) + (define plist->hash-table! + (lambda (_lst68997_ _h68998_) + (let _loop69000_ ((_rest69002_ _lst68997_)) + (let* ((_rest6900369015_ _rest69002_) + (_else6900669023_ + (lambda () + (let () + (declare (not safe)) + (error '"bad property list -- uneven list" + _lst68997_))))) + (let ((_K6900969038_ + (lambda (_rest69034_ _val69035_ _key69036_) + (let () + (declare (not safe)) + (&HashTable-set! _h68998_ _key69036_ _val69035_)) + (let () (declare (not safe)) (_loop69000_ _rest69034_)))) + (_K6900869028_ (lambda () _h68998_))) + (let ((_try-match6900569031_ + (lambda () + (if (let () + (declare (not safe)) + (##null? _rest6900369015_)) + (let () (declare (not safe)) (_K6900869028_)) + (let () (declare (not safe)) (_else6900669023_)))))) + (if (let () (declare (not safe)) (##pair? _rest6900369015_)) + (let ((_tl6901169043_ + (let () + (declare (not safe)) + (##cdr _rest6900369015_))) + (_hd6901069041_ + (let () + (declare (not safe)) + (##car _rest6900369015_)))) + (if (let () + (declare (not safe)) + (##pair? _tl6901169043_)) + (let ((_tl6901369050_ + (let () + (declare (not safe)) + (##cdr _tl6901169043_))) + (_hd6901269048_ + (let () + (declare (not safe)) + (##car _tl6901169043_)))) + (let ((_key69046_ _hd6901069041_) + (_val69053_ _hd6901269048_) + (_rest69055_ _tl6901369050_)) + (let () + (declare (not safe)) + (_K6900969038_ + _rest69055_ + _val69053_ + _key69046_)))) + (let () (declare (not safe)) (_else6900669023_)))) + (let () + (declare (not safe)) + (_try-match6900569031_))))))))) + (define hash-length + (lambda (_h68993_) + (let ((_h68995_ + (if (and (let () (declare (not safe)) (##structure? _h68993_)) + (let ((__tmp71867 + (let () + (declare (not safe)) + (##structure-type _h68993_)))) + (declare (not safe)) + (eq? __tmp71867 HashTable::t))) + _h68993_ + (let () + (declare (not safe)) + (cast HashTable::interface _h68993_))))) + (declare (not safe)) + (&HashTable-length _h68995_)))) + (define &hash-length + (lambda (_h68991_) + (let () (declare (not safe)) (&HashTable-length _h68991_)))) + (define hash-ref__% + (lambda (_h68973_ _key68974_ _default68975_) + (let ((_h68977_ + (if (and (let () (declare (not safe)) (##structure? _h68973_)) + (let ((__tmp71868 + (let () + (declare (not safe)) + (##structure-type _h68973_)))) + (declare (not safe)) + (eq? __tmp71868 HashTable::t))) + _h68973_ + (let () + (declare (not safe)) + (cast HashTable::interface _h68973_))))) + (declare (not safe)) + (&hash-ref__% _h68977_ _key68974_ _default68975_)))) + (define hash-ref__0 + (lambda (_h68982_ _key68983_) + (let ((_default68985_ (macro-absent-obj))) + (declare (not safe)) + (hash-ref__% _h68982_ _key68983_ _default68985_)))) + (define hash-ref + (lambda _g71870_ + (let ((_g71869_ (let () (declare (not safe)) (##length _g71870_)))) + (cond ((let () (declare (not safe)) (##fx= _g71869_ 2)) + (apply (lambda (_h68982_ _key68983_) + (let () + (declare (not safe)) + (hash-ref__0 _h68982_ _key68983_))) + _g71870_)) + ((let () (declare (not safe)) (##fx= _g71869_ 3)) + (apply (lambda (_h68987_ _key68988_ _default68989_) + (let () + (declare (not safe)) + (hash-ref__% _h68987_ _key68988_ _default68989_))) + _g71870_)) + (else + (##raise-wrong-number-of-arguments-exception + hash-ref + _g71870_)))))) + (define &hash-ref__% + (lambda (_h68954_ _key68955_ _default68956_) + (let ((_result68958_ + (let () + (declare (not safe)) + (&HashTable-ref _h68954_ _key68955_ _default68956_)))) + (if (let ((__tmp71871 (macro-absent-obj))) + (declare (not safe)) + (eq? _result68958_ __tmp71871)) + (let () + (declare (not safe)) + (raise-unbound-key-error + 'hash-ref + '"unknown hash key" + 'hash: + _h68954_ + 'key: + _key68955_)) + _result68958_)))) + (define &hash-ref__0 + (lambda (_h68963_ _key68964_) + (let ((_default68966_ (macro-absent-obj))) + (declare (not safe)) + (&hash-ref__% _h68963_ _key68964_ _default68966_)))) + (define &hash-ref + (lambda _g71873_ + (let ((_g71872_ (let () (declare (not safe)) (##length _g71873_)))) + (cond ((let () (declare (not safe)) (##fx= _g71872_ 2)) + (apply (lambda (_h68963_ _key68964_) + (let () + (declare (not safe)) + (&hash-ref__0 _h68963_ _key68964_))) + _g71873_)) + ((let () (declare (not safe)) (##fx= _g71872_ 3)) + (apply (lambda (_h68968_ _key68969_ _default68970_) + (let () + (declare (not safe)) + (&hash-ref__% _h68968_ _key68969_ _default68970_))) + _g71873_)) + (else + (##raise-wrong-number-of-arguments-exception + &hash-ref + _g71873_)))))) + (define hash-get + (lambda (_h68948_ _key68949_) + (let ((_h68951_ + (if (and (let () (declare (not safe)) (##structure? _h68948_)) + (let ((__tmp71874 + (let () + (declare (not safe)) + (##structure-type _h68948_)))) + (declare (not safe)) + (eq? __tmp71874 HashTable::t))) + _h68948_ + (let () + (declare (not safe)) + (cast HashTable::interface _h68948_))))) + (declare (not safe)) + (&hash-get _h68951_ _key68949_)))) + (define &hash-get + (lambda (_h68945_ _key68946_) + (let () + (declare (not safe)) + (&HashTable-ref _h68945_ _key68946_ '#f)))) + (define hash-put! + (lambda (_h68939_ _key68940_ _value68941_) + (let ((_h68943_ + (if (and (let () (declare (not safe)) (##structure? _h68939_)) + (let ((__tmp71875 + (let () + (declare (not safe)) + (##structure-type _h68939_)))) + (declare (not safe)) + (eq? __tmp71875 HashTable::t))) + _h68939_ + (let () + (declare (not safe)) + (cast HashTable::interface _h68939_))))) + (declare (not safe)) + (&HashTable-set! _h68943_ _key68940_ _value68941_)))) + (define &hash-put! + (lambda (_h68935_ _key68936_ _value68937_) + (let () + (declare (not safe)) + (&HashTable-set! _h68935_ _key68936_ _value68937_)))) + (define hash-update!__% + (lambda (_h68914_ _key68915_ _update68916_ _default68917_) + (let ((_h68919_ + (if (and (let () (declare (not safe)) (##structure? _h68914_)) + (let ((__tmp71876 + (let () + (declare (not safe)) + (##structure-type _h68914_)))) + (declare (not safe)) + (eq? __tmp71876 HashTable::t))) + _h68914_ + (let () + (declare (not safe)) + (cast HashTable::interface _h68914_))))) + (declare (not safe)) + (&HashTable-update! + _h68919_ + _key68915_ + _update68916_ + _default68917_)))) + (define hash-update!__0 + (lambda (_h68924_ _key68925_ _update68926_) + (let ((_default68928_ '#!void)) + (declare (not safe)) + (hash-update!__% _h68924_ _key68925_ _update68926_ _default68928_)))) + (define hash-update! + (lambda _g71878_ + (let ((_g71877_ (let () (declare (not safe)) (##length _g71878_)))) + (cond ((let () (declare (not safe)) (##fx= _g71877_ 3)) + (apply (lambda (_h68924_ _key68925_ _update68926_) + (let () + (declare (not safe)) + (hash-update!__0 + _h68924_ + _key68925_ + _update68926_))) + _g71878_)) + ((let () (declare (not safe)) (##fx= _g71877_ 4)) + (apply (lambda (_h68930_ + _key68931_ + _update68932_ + _default68933_) + (let () + (declare (not safe)) + (hash-update!__% + _h68930_ + _key68931_ + _update68932_ + _default68933_))) + _g71878_)) + (else + (##raise-wrong-number-of-arguments-exception + hash-update! + _g71878_)))))) + (define &hash-update!__% + (lambda (_h68894_ _key68895_ _update68896_ _default68897_) + (let () + (declare (not safe)) + (&HashTable-update! + _h68894_ + _key68895_ + _update68896_ + _default68897_)))) + (define &hash-update!__0 + (lambda (_h68902_ _key68903_ _update68904_) + (let ((_default68906_ '#!void)) + (declare (not safe)) + (&HashTable-update! + _h68902_ + _key68903_ + _update68904_ + _default68906_)))) + (define &hash-update! + (lambda _g71880_ + (let ((_g71879_ (let () (declare (not safe)) (##length _g71880_)))) + (cond ((let () (declare (not safe)) (##fx= _g71879_ 3)) + (apply (lambda (_h68902_ _key68903_ _update68904_) + (let () + (declare (not safe)) + (&hash-update!__0 + _h68902_ + _key68903_ + _update68904_))) + _g71880_)) + ((let () (declare (not safe)) (##fx= _g71879_ 4)) + (apply (lambda (_h68908_ + _key68909_ + _update68910_ + _default68911_) + (let () + (declare (not safe)) + (&HashTable-update! + _h68908_ + _key68909_ + _update68910_ + _default68911_))) + _g71880_)) + (else + (##raise-wrong-number-of-arguments-exception + &hash-update! + _g71880_)))))) + (define hash-remove! + (lambda (_h68888_ _key68889_) + (let ((_h68891_ + (if (and (let () (declare (not safe)) (##structure? _h68888_)) + (let ((__tmp71881 + (let () + (declare (not safe)) + (##structure-type _h68888_)))) + (declare (not safe)) + (eq? __tmp71881 HashTable::t))) + _h68888_ + (let () + (declare (not safe)) + (cast HashTable::interface _h68888_))))) + (declare (not safe)) + (&HashTable-delete! _h68891_ _key68889_)))) + (define &hash-remove! + (lambda (_h68885_ _key68886_) + (let () + (declare (not safe)) + (&HashTable-delete! _h68885_ _key68886_)))) + (define hash-key? + (lambda (_h68880_ _k68881_) + (let ((_h68883_ + (if (and (let () (declare (not safe)) (##structure? _h68880_)) + (let ((__tmp71882 + (let () + (declare (not safe)) + (##structure-type _h68880_)))) + (declare (not safe)) + (eq? __tmp71882 HashTable::t))) + _h68880_ + (let () + (declare (not safe)) + (cast HashTable::interface _h68880_))))) + (declare (not safe)) + (&hash-key? _h68883_ _k68881_)))) + (define &hash-key? + (lambda (_h68877_ _k68878_) + (let ((__tmp71883 + (let ((__tmp71884 + (let () + (declare (not safe)) + (&HashTable-ref _h68877_ _k68878_ absent-value)))) + (declare (not safe)) + (eq? __tmp71884 absent-value)))) + (declare (not safe)) + (not __tmp71883)))) + (define hash->list + (lambda (_h68873_) + (let ((_h68875_ + (if (and (let () (declare (not safe)) (##structure? _h68873_)) + (let ((__tmp71885 + (let () + (declare (not safe)) + (##structure-type _h68873_)))) + (declare (not safe)) + (eq? __tmp71885 HashTable::t))) + _h68873_ + (let () + (declare (not safe)) + (cast HashTable::interface _h68873_))))) + (declare (not safe)) + (&hash->list _h68875_)))) + (define &hash->list + (lambda (_h68866_) + (let ((_lst68868_ '())) + (let ((__tmp71886 + (lambda (_k68870_ _v68871_) + (set! _lst68868_ + (let ((__tmp71887 + (let () + (declare (not safe)) + (cons _k68870_ _v68871_)))) + (declare (not safe)) + (cons __tmp71887 _lst68868_)))))) + (declare (not safe)) + (&HashTable-for-each _h68866_ __tmp71886)) + _lst68868_))) + (define hash->plist + (lambda (_h68862_) + (let ((_h68864_ + (if (and (let () (declare (not safe)) (##structure? _h68862_)) + (let ((__tmp71888 + (let () + (declare (not safe)) + (##structure-type _h68862_)))) + (declare (not safe)) + (eq? __tmp71888 HashTable::t))) + _h68862_ + (let () + (declare (not safe)) + (cast HashTable::interface _h68862_))))) + (declare (not safe)) + (&hash->plist _h68864_)))) + (define &hash->plist + (lambda (_h68855_) + (let ((_lst68857_ '())) + (let ((__tmp71889 + (lambda (_k68859_ _v68860_) + (set! _lst68857_ + (let ((__tmp71890 + (let () + (declare (not safe)) + (cons _v68860_ _lst68857_)))) + (declare (not safe)) + (cons _k68859_ __tmp71890)))))) + (declare (not safe)) + (&HashTable-for-each _h68855_ __tmp71889)) + _lst68857_))) + (define hash-for-each + (lambda (_proc68852_ _h68853_) + (let () + (declare (not safe)) + (HashTable-for-each _h68853_ _proc68852_)))) + (define hash-map + (lambda (_proc68844_ _h68845_) + (let ((_result68847_ '())) + (let ((__tmp71891 + (lambda (_k68849_ _v68850_) + (set! _result68847_ + (let ((__tmp71892 (_proc68844_ _k68849_ _v68850_))) + (declare (not safe)) + (cons __tmp71892 _result68847_)))))) + (declare (not safe)) + (HashTable-for-each _h68845_ __tmp71891)) + _result68847_))) + (define hash-fold + (lambda (_proc68835_ _iv68836_ _h68837_) + (let ((_result68839_ _iv68836_)) + (let ((__tmp71893 + (lambda (_k68841_ _v68842_) + (set! _result68839_ + (_proc68835_ _k68841_ _v68842_ _result68839_))))) + (declare (not safe)) + (HashTable-for-each _h68837_ __tmp71893)) + _result68839_))) + (define hash-find__% + (lambda (_proc68811_ _h68812_ _default-value68813_) + (call-with-current-continuation + (lambda (_return68815_) + (let ((__tmp71894 + (lambda (_k68817_ _v68818_) + (let ((_$e68820_ (_proc68811_ _k68817_ _v68818_))) + (if _$e68820_ (_return68815_ _$e68820_) '#!void))))) + (declare (not safe)) + (HashTable-for-each _h68812_ __tmp71894)) + _default-value68813_)))) + (define hash-find__0 + (lambda (_proc68826_ _h68827_) + (let ((_default-value68829_ '#f)) + (declare (not safe)) + (hash-find__% _proc68826_ _h68827_ _default-value68829_)))) + (define hash-find + (lambda _g71896_ + (let ((_g71895_ (let () (declare (not safe)) (##length _g71896_)))) + (cond ((let () (declare (not safe)) (##fx= _g71895_ 2)) + (apply (lambda (_proc68826_ _h68827_) + (let () + (declare (not safe)) + (hash-find__0 _proc68826_ _h68827_))) + _g71896_)) + ((let () (declare (not safe)) (##fx= _g71895_ 3)) + (apply (lambda (_proc68831_ _h68832_ _default-value68833_) + (let () + (declare (not safe)) + (hash-find__% + _proc68831_ + _h68832_ + _default-value68833_))) + _g71896_)) + (else + (##raise-wrong-number-of-arguments-exception + hash-find + _g71896_)))))) + (define hash-keys + (lambda (_h68806_) + (let ((_h68808_ + (if (and (let () (declare (not safe)) (##structure? _h68806_)) + (let ((__tmp71897 + (let () + (declare (not safe)) + (##structure-type _h68806_)))) + (declare (not safe)) + (eq? __tmp71897 HashTable::t))) + _h68806_ + (let () + (declare (not safe)) + (cast HashTable::interface _h68806_))))) + (declare (not safe)) + (&hash-keys _h68808_)))) + (define &hash-keys + (lambda (_h68799_) + (let ((_result68801_ '())) + (let ((__tmp71898 + (lambda (_k68803_ _v68804_) + (set! _result68801_ + (let () + (declare (not safe)) + (cons _k68803_ _result68801_)))))) + (declare (not safe)) + (&HashTable-for-each _h68799_ __tmp71898)) + _result68801_))) + (define hash-values + (lambda (_h68795_) + (let ((_h68797_ + (if (and (let () (declare (not safe)) (##structure? _h68795_)) + (let ((__tmp71899 + (let () + (declare (not safe)) + (##structure-type _h68795_)))) + (declare (not safe)) + (eq? __tmp71899 HashTable::t))) + _h68795_ + (let () + (declare (not safe)) + (cast HashTable::interface _h68795_))))) + (declare (not safe)) + (&hash-values _h68797_)))) + (define &hash-values + (lambda (_h68788_) + (let ((_result68790_ '())) + (let ((__tmp71900 + (lambda (_k68792_ _v68793_) + (set! _result68790_ + (let () + (declare (not safe)) + (cons _v68793_ _result68790_)))))) + (declare (not safe)) + (&HashTable-for-each _h68788_ __tmp71900)) + _result68790_))) + (define hash-copy + (lambda (_h68784_) + (let ((_h68786_ + (if (and (let () (declare (not safe)) (##structure? _h68784_)) + (let ((__tmp71901 + (let () + (declare (not safe)) + (##structure-type _h68784_)))) + (declare (not safe)) + (eq? __tmp71901 HashTable::t))) + _h68784_ + (let () + (declare (not safe)) + (cast HashTable::interface _h68784_))))) + (declare (not safe)) + (&HashTable-copy _h68786_)))) + (define &hash-copy + (lambda (_h68782_) + (let () (declare (not safe)) (&HashTable-copy _h68782_)))) + (define hash-merge + (lambda (_h68777_ . _rest68778_) + (let ((_copy68780_ (let () (declare (not safe)) (hash-copy _h68777_)))) + (apply hash-merge! _copy68780_ _rest68778_) + _copy68780_))) + (define hash-merge! + (lambda (_h68767_ . _rest68768_) + (let ((_h68770_ + (let () + (declare (not safe)) + (cast HashTable::interface _h68767_)))) + (for-each + (lambda (_hr68772_) + (let ((__tmp71902 + (lambda (_k68774_ _v68775_) + (if (let () + (declare (not safe)) + (&hash-key? _h68770_ _k68774_)) + '#!void + (let () + (declare (not safe)) + (&HashTable-set! _h68770_ _k68774_ _v68775_)))))) + (declare (not safe)) + (hash-for-each __tmp71902 _hr68772_))) + _rest68768_) + _h68770_))))) diff --git a/src/bootstrap/gerbil/runtime/hash__1.scm b/src/bootstrap/gerbil/runtime/hash__1.scm new file mode 100644 index 000000000..f885745b7 --- /dev/null +++ b/src/bootstrap/gerbil/runtime/hash__1.scm @@ -0,0 +1,2111 @@ +(declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) +(begin + (define |[1]#_g71905_| + (##structure + gx#syntax-quote::t + 'Error + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71907_| + (##structure + gx#syntax-quote::t + 'UnboundKeyError::t + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71909_| + (##structure + gx#syntax-quote::t + 'make-UnboundKeyError + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71911_| + (##structure + gx#syntax-quote::t + 'UnboundKeyError? + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71918_| + (##structure + gx#syntax-quote::t + 'UnboundKeyError-continuation + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71921_| + (##structure + gx#syntax-quote::t + 'UnboundKeyError-where + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71924_| + (##structure + gx#syntax-quote::t + 'UnboundKeyError-irritants + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71927_| + (##structure + gx#syntax-quote::t + 'UnboundKeyError-message + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71934_| + (##structure + gx#syntax-quote::t + 'UnboundKeyError-continuation-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71937_| + (##structure + gx#syntax-quote::t + 'UnboundKeyError-where-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71940_| + (##structure + gx#syntax-quote::t + 'UnboundKeyError-irritants-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71943_| + (##structure + gx#syntax-quote::t + 'UnboundKeyError-message-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71950_| + (##structure + gx#syntax-quote::t + '&UnboundKeyError-continuation + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71953_| + (##structure + gx#syntax-quote::t + '&UnboundKeyError-where + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71956_| + (##structure + gx#syntax-quote::t + '&UnboundKeyError-irritants + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71959_| + (##structure + gx#syntax-quote::t + '&UnboundKeyError-message + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71966_| + (##structure + gx#syntax-quote::t + '&UnboundKeyError-continuation-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71969_| + (##structure + gx#syntax-quote::t + '&UnboundKeyError-where-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71972_| + (##structure + gx#syntax-quote::t + '&UnboundKeyError-irritants-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71975_| + (##structure + gx#syntax-quote::t + '&UnboundKeyError-message-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71977_| + (##structure + gx#syntax-quote::t + 'locked-hash-table::t + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71979_| + (##structure + gx#syntax-quote::t + 'make-locked-hash-table + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71981_| + (##structure + gx#syntax-quote::t + 'locked-hash-table? + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71986_| + (##structure + gx#syntax-quote::t + 'locked-hash-table-lock + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71989_| + (##structure + gx#syntax-quote::t + 'locked-hash-table-table + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71994_| + (##structure + gx#syntax-quote::t + 'locked-hash-table-lock-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g71997_| + (##structure + gx#syntax-quote::t + 'locked-hash-table-table-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g72002_| + (##structure + gx#syntax-quote::t + '&locked-hash-table-lock + #f + (gx#current-expander-context) + '())) + (define |[1]#_g72005_| + (##structure + gx#syntax-quote::t + '&locked-hash-table-table + #f + (gx#current-expander-context) + '())) + (define |[1]#_g72010_| + (##structure + gx#syntax-quote::t + '&locked-hash-table-lock-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g72013_| + (##structure + gx#syntax-quote::t + '&locked-hash-table-table-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g72015_| + (##structure + gx#syntax-quote::t + 'checked-hash-table::t + #f + (gx#current-expander-context) + '())) + (define |[1]#_g72017_| + (##structure + gx#syntax-quote::t + 'make-checked-hash-table + #f + (gx#current-expander-context) + '())) + (define |[1]#_g72019_| + (##structure + gx#syntax-quote::t + 'checked-hash-table? + #f + (gx#current-expander-context) + '())) + (define |[1]#_g72024_| + (##structure + gx#syntax-quote::t + 'checked-hash-table-key-check + #f + (gx#current-expander-context) + '())) + (define |[1]#_g72027_| + (##structure + gx#syntax-quote::t + 'checked-hash-table-table + #f + (gx#current-expander-context) + '())) + (define |[1]#_g72032_| + (##structure + gx#syntax-quote::t + 'checked-hash-table-key-check-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g72035_| + (##structure + gx#syntax-quote::t + 'checked-hash-table-table-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g72040_| + (##structure + gx#syntax-quote::t + '&checked-hash-table-key-check + #f + (gx#current-expander-context) + '())) + (define |[1]#_g72043_| + (##structure + gx#syntax-quote::t + '&checked-hash-table-table + #f + (gx#current-expander-context) + '())) + (define |[1]#_g72048_| + (##structure + gx#syntax-quote::t + '&checked-hash-table-key-check-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g72051_| + (##structure + gx#syntax-quote::t + '&checked-hash-table-table-set! + #f + (gx#current-expander-context) + '())) + (begin + (define |[:0:]#UnboundKeyError| + (let ((__obj71779 + (let () + (declare (not safe)) + (##structure + gerbil/core$$#class-type-info::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj71779 + 'gerbil/runtime/hash#UnboundKeyError::t + '1 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj71779 + 'UnboundKeyError + '2 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj71779 + '() + '4 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp71903 + (let ((__tmp71904 |[1]#_g71905_|)) + (declare (not safe)) + (cons __tmp71904 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj71779 + __tmp71903 + '3 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj71779 + '#f + '5 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj71779 + '#f + '6 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj71779 + '#f + '7 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj71779 + ':init! + '8 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp71906 |[1]#_g71907_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj71779 + __tmp71906 + '9 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp71908 |[1]#_g71909_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj71779 + __tmp71908 + '10 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp71910 |[1]#_g71911_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj71779 + __tmp71910 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp71912 + (let ((__tmp71925 + (let ((__tmp71926 |[1]#_g71927_|)) + (declare (not safe)) + (cons 'message __tmp71926))) + (__tmp71913 + (let ((__tmp71922 + (let ((__tmp71923 |[1]#_g71924_|)) + (declare (not safe)) + (cons 'irritants __tmp71923))) + (__tmp71914 + (let ((__tmp71919 + (let ((__tmp71920 |[1]#_g71921_|)) + (declare (not safe)) + (cons 'where __tmp71920))) + (__tmp71915 + (let ((__tmp71916 + (let ((__tmp71917 |[1]#_g71918_|)) + (declare (not safe)) + (cons 'continuation __tmp71917)))) + (declare (not safe)) + (cons __tmp71916 '())))) + (declare (not safe)) + (cons __tmp71919 __tmp71915)))) + (declare (not safe)) + (cons __tmp71922 __tmp71914)))) + (declare (not safe)) + (cons __tmp71925 __tmp71913)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj71779 + __tmp71912 + '12 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp71928 + (let ((__tmp71941 + (let ((__tmp71942 |[1]#_g71943_|)) + (declare (not safe)) + (cons 'message __tmp71942))) + (__tmp71929 + (let ((__tmp71938 + (let ((__tmp71939 |[1]#_g71940_|)) + (declare (not safe)) + (cons 'irritants __tmp71939))) + (__tmp71930 + (let ((__tmp71935 + (let ((__tmp71936 |[1]#_g71937_|)) + (declare (not safe)) + (cons 'where __tmp71936))) + (__tmp71931 + (let ((__tmp71932 + (let ((__tmp71933 |[1]#_g71934_|)) + (declare (not safe)) + (cons 'continuation __tmp71933)))) + (declare (not safe)) + (cons __tmp71932 '())))) + (declare (not safe)) + (cons __tmp71935 __tmp71931)))) + (declare (not safe)) + (cons __tmp71938 __tmp71930)))) + (declare (not safe)) + (cons __tmp71941 __tmp71929)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj71779 + __tmp71928 + '13 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp71944 + (let ((__tmp71957 + (let ((__tmp71958 |[1]#_g71959_|)) + (declare (not safe)) + (cons 'message __tmp71958))) + (__tmp71945 + (let ((__tmp71954 + (let ((__tmp71955 |[1]#_g71956_|)) + (declare (not safe)) + (cons 'irritants __tmp71955))) + (__tmp71946 + (let ((__tmp71951 + (let ((__tmp71952 |[1]#_g71953_|)) + (declare (not safe)) + (cons 'where __tmp71952))) + (__tmp71947 + (let ((__tmp71948 + (let ((__tmp71949 |[1]#_g71950_|)) + (declare (not safe)) + (cons 'continuation __tmp71949)))) + (declare (not safe)) + (cons __tmp71948 '())))) + (declare (not safe)) + (cons __tmp71951 __tmp71947)))) + (declare (not safe)) + (cons __tmp71954 __tmp71946)))) + (declare (not safe)) + (cons __tmp71957 __tmp71945)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj71779 + __tmp71944 + '14 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp71960 + (let ((__tmp71973 + (let ((__tmp71974 |[1]#_g71975_|)) + (declare (not safe)) + (cons 'message __tmp71974))) + (__tmp71961 + (let ((__tmp71970 + (let ((__tmp71971 |[1]#_g71972_|)) + (declare (not safe)) + (cons 'irritants __tmp71971))) + (__tmp71962 + (let ((__tmp71967 + (let ((__tmp71968 |[1]#_g71969_|)) + (declare (not safe)) + (cons 'where __tmp71968))) + (__tmp71963 + (let ((__tmp71964 + (let ((__tmp71965 |[1]#_g71966_|)) + (declare (not safe)) + (cons 'continuation __tmp71965)))) + (declare (not safe)) + (cons __tmp71964 '())))) + (declare (not safe)) + (cons __tmp71967 __tmp71963)))) + (declare (not safe)) + (cons __tmp71970 __tmp71962)))) + (declare (not safe)) + (cons __tmp71973 __tmp71961)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj71779 + __tmp71960 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj71779)) + (define |[:0:]#locked-hash-table| + (let ((__obj71781 + (let () + (declare (not safe)) + (##structure + gerbil/core$$#class-type-info::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj71781 + 'gerbil/runtime/hash#locked-hash-table::t + '1 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj71781 + 'locked-hash-table + '2 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj71781 + '(table lock) + '4 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj71781 + '() + '3 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj71781 + '#t + '5 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj71781 + '#t + '6 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj71781 + '#f + '7 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj71781 + '#f + '8 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp71976 |[1]#_g71977_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj71781 + __tmp71976 + '9 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp71978 |[1]#_g71979_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj71781 + __tmp71978 + '10 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp71980 |[1]#_g71981_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj71781 + __tmp71980 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp71982 + (let ((__tmp71987 + (let ((__tmp71988 |[1]#_g71989_|)) + (declare (not safe)) + (cons 'table __tmp71988))) + (__tmp71983 + (let ((__tmp71984 + (let ((__tmp71985 |[1]#_g71986_|)) + (declare (not safe)) + (cons 'lock __tmp71985)))) + (declare (not safe)) + (cons __tmp71984 '())))) + (declare (not safe)) + (cons __tmp71987 __tmp71983)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj71781 + __tmp71982 + '12 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp71990 + (let ((__tmp71995 + (let ((__tmp71996 |[1]#_g71997_|)) + (declare (not safe)) + (cons 'table __tmp71996))) + (__tmp71991 + (let ((__tmp71992 + (let ((__tmp71993 |[1]#_g71994_|)) + (declare (not safe)) + (cons 'lock __tmp71993)))) + (declare (not safe)) + (cons __tmp71992 '())))) + (declare (not safe)) + (cons __tmp71995 __tmp71991)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj71781 + __tmp71990 + '13 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp71998 + (let ((__tmp72003 + (let ((__tmp72004 |[1]#_g72005_|)) + (declare (not safe)) + (cons 'table __tmp72004))) + (__tmp71999 + (let ((__tmp72000 + (let ((__tmp72001 |[1]#_g72002_|)) + (declare (not safe)) + (cons 'lock __tmp72001)))) + (declare (not safe)) + (cons __tmp72000 '())))) + (declare (not safe)) + (cons __tmp72003 __tmp71999)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj71781 + __tmp71998 + '14 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp72006 + (let ((__tmp72011 + (let ((__tmp72012 |[1]#_g72013_|)) + (declare (not safe)) + (cons 'table __tmp72012))) + (__tmp72007 + (let ((__tmp72008 + (let ((__tmp72009 |[1]#_g72010_|)) + (declare (not safe)) + (cons 'lock __tmp72009)))) + (declare (not safe)) + (cons __tmp72008 '())))) + (declare (not safe)) + (cons __tmp72011 __tmp72007)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj71781 + __tmp72006 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj71781)) + (define |[:0:]#checked-hash-table| + (let ((__obj71782 + (let () + (declare (not safe)) + (##structure + gerbil/core$$#class-type-info::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj71782 + 'gerbil/runtime/hash#checked-hash-table::t + '1 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj71782 + 'checked-hash-table + '2 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj71782 + '(table key-check) + '4 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj71782 + '() + '3 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj71782 + '#t + '5 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj71782 + '#t + '6 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj71782 + '#f + '7 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj71782 + '#f + '8 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp72014 |[1]#_g72015_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj71782 + __tmp72014 + '9 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp72016 |[1]#_g72017_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj71782 + __tmp72016 + '10 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp72018 |[1]#_g72019_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj71782 + __tmp72018 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp72020 + (let ((__tmp72025 + (let ((__tmp72026 |[1]#_g72027_|)) + (declare (not safe)) + (cons 'table __tmp72026))) + (__tmp72021 + (let ((__tmp72022 + (let ((__tmp72023 |[1]#_g72024_|)) + (declare (not safe)) + (cons 'key-check __tmp72023)))) + (declare (not safe)) + (cons __tmp72022 '())))) + (declare (not safe)) + (cons __tmp72025 __tmp72021)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj71782 + __tmp72020 + '12 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp72028 + (let ((__tmp72033 + (let ((__tmp72034 |[1]#_g72035_|)) + (declare (not safe)) + (cons 'table __tmp72034))) + (__tmp72029 + (let ((__tmp72030 + (let ((__tmp72031 |[1]#_g72032_|)) + (declare (not safe)) + (cons 'key-check __tmp72031)))) + (declare (not safe)) + (cons __tmp72030 '())))) + (declare (not safe)) + (cons __tmp72033 __tmp72029)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj71782 + __tmp72028 + '13 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp72036 + (let ((__tmp72041 + (let ((__tmp72042 |[1]#_g72043_|)) + (declare (not safe)) + (cons 'table __tmp72042))) + (__tmp72037 + (let ((__tmp72038 + (let ((__tmp72039 |[1]#_g72040_|)) + (declare (not safe)) + (cons 'key-check __tmp72039)))) + (declare (not safe)) + (cons __tmp72038 '())))) + (declare (not safe)) + (cons __tmp72041 __tmp72037)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj71782 + __tmp72036 + '14 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp72044 + (let ((__tmp72049 + (let ((__tmp72050 |[1]#_g72051_|)) + (declare (not safe)) + (cons 'table __tmp72050))) + (__tmp72045 + (let ((__tmp72046 + (let ((__tmp72047 |[1]#_g72048_|)) + (declare (not safe)) + (cons 'key-check __tmp72047)))) + (declare (not safe)) + (cons __tmp72046 '())))) + (declare (not safe)) + (cons __tmp72049 __tmp72045)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj71782 + __tmp72044 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj71782)) + (define |[:0:]#defhash-method| + (lambda (_stx67923_) + (let* ((_g6792667967_ + (lambda (_g6792767963_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g6792767963_))) + (_g6792568257_ + (lambda (_g6792767971_) + (if (gx#stx-pair? _g6792767971_) + (let ((_e6793467974_ (gx#syntax-e _g6792767971_))) + (let ((_hd6793367978_ + (let () + (declare (not safe)) + (##car _e6793467974_))) + (_tl6793267981_ + (let () + (declare (not safe)) + (##cdr _e6793467974_)))) + (if (gx#stx-pair? _tl6793267981_) + (let ((_e6793767984_ + (gx#syntax-e _tl6793267981_))) + (let ((_hd6793667988_ + (let () + (declare (not safe)) + (##car _e6793767984_))) + (_tl6793567991_ + (let () + (declare (not safe)) + (##cdr _e6793767984_)))) + (if (gx#stx-pair? _hd6793667988_) + (let ((_e6794067994_ + (gx#syntax-e _hd6793667988_))) + (let ((_hd6793967998_ + (let () + (declare (not safe)) + (##car _e6794067994_))) + (_tl6793868001_ + (let () + (declare (not safe)) + (##cdr _e6794067994_)))) + (if (gx#stx-pair? _tl6793868001_) + (let ((_e6794368004_ + (gx#syntax-e + _tl6793868001_))) + (let ((_hd6794268008_ + (let () + (declare (not safe)) + (##car _e6794368004_))) + (_tl6794168011_ + (let () + (declare (not safe)) + (##cdr _e6794368004_)))) + (if (gx#stx-pair/null? + _tl6794168011_) + (let ((_g72052_ + (gx#syntax-split-splice + _tl6794168011_ + '0))) + (begin + (let ((_g72053_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (if (##values? _g72052_) + (##vector-length _g72052_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g72053_ 2))) + (error "Context expects 2 values" _g72053_))) + (let ((_target6794468014_ + (let () + (declare (not safe)) + (##vector-ref _g72052_ 0))) + (_tl6794668017_ + (let () + (declare (not safe)) + (##vector-ref _g72052_ 1)))) + (if (gx#stx-null? _tl6794668017_) + (letrec ((_loop6794768020_ + (lambda (_hd6794568024_ _arg6795168027_) + (if (gx#stx-pair? _hd6794568024_) + (let ((_e6794868030_ + (gx#syntax-e _hd6794568024_))) + (let ((_lp-hd6794968034_ + (let () + (declare (not safe)) + (##car _e6794868030_))) + (_lp-tl6795068037_ + (let () + (declare (not safe)) + (##cdr _e6794868030_)))) + (_loop6794768020_ + _lp-tl6795068037_ + (let () + (declare (not safe)) + (cons _lp-hd6794968034_ + _arg6795168027_))))) + (let ((_arg6795268040_ + (reverse _arg6795168027_))) + (if (gx#stx-pair/null? + _tl6793567991_) + (let ((_g72054_ + (gx#syntax-split-splice + _tl6793567991_ + '0))) + (begin + (let ((_g72055_ + (let () + (declare (not safe)) + (if (##values? + _g72054_) + (##vector-length + _g72054_) + 1)))) + (if (not (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##fx= _g72055_ 2))) + (error "Context expects 2 values" _g72055_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_target6795368044_ + (let () + (declare (not safe)) + (##vector-ref + _g72054_ + 0))) + (_tl6795568047_ + (let () + (declare (not safe)) + (##vector-ref + _g72054_ + 1)))) + (if (gx#stx-null? + _tl6795568047_) + (letrec ((_loop6795668050_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd6795468054_ _body6796068057_) + (if (gx#stx-pair? _hd6795468054_) + (let ((_e6795768060_ + (gx#syntax-e _hd6795468054_))) + (let ((_lp-hd6795868064_ + (let () + (declare (not safe)) + (##car _e6795768060_))) + (_lp-tl6795968067_ + (let () + (declare (not safe)) + (##cdr _e6795768060_)))) + (_loop6795668050_ + _lp-tl6795968067_ + (let () + (declare (not safe)) + (cons _lp-hd6795868064_ + _body6796068057_))))) + (let ((_body6796168070_ + (reverse _body6796068057_))) + ((lambda (_L68074_ + _L68076_ + _L68077_ + _L68078_) + (let* ((_g6810768131_ + (lambda (_g6810868127_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g6810868127_))) + (_g6810668242_ + (lambda (_g6810868135_) + (if (gx#stx-pair? _g6810868135_) + (let ((_e6811368138_ + (gx#syntax-e + _g6810868135_))) + (let ((_hd6811268142_ + (let () + (declare + (not safe)) + (##car _e6811368138_))) + (_tl6811168145_ + (let () + (declare + (not safe)) + (##cdr _e6811368138_)))) + (if (gx#stx-pair? + _tl6811168145_) + (let ((_e6811668148_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#syntax-e _tl6811168145_))) + (let ((_hd6811568152_ + (let () + (declare (not safe)) + (##car _e6811668148_))) + (_tl6811468155_ + (let () + (declare (not safe)) + (##cdr _e6811668148_)))) + (if (gx#stx-pair/null? _hd6811568152_) + (let ((_g72056_ + (gx#syntax-split-splice _hd6811568152_ '0))) + (begin + (let ((_g72057_ + (let () + (declare (not safe)) + (if (##values? _g72056_) + (##vector-length _g72056_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g72057_ 2))) + (error "Context expects 2 values" + _g72057_))) + (let ((_target6811768158_ + (let () + (declare (not safe)) + (##vector-ref _g72056_ 0))) + (_tl6811968161_ + (let () + (declare (not safe)) + (##vector-ref _g72056_ 1)))) + (if (gx#stx-null? _tl6811968161_) + (letrec ((_loop6812068164_ + (lambda (_hd6811868168_ + _arg-val6812468171_) + (if (gx#stx-pair? + _hd6811868168_) + (let ((_e6812168174_ + (gx#syntax-e + _hd6811868168_))) + (let ((_lp-hd6812268178_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##car _e6812168174_))) + (_lp-tl6812368181_ + (let () (declare (not safe)) (##cdr _e6812168174_)))) + (_loop6812068164_ + _lp-tl6812368181_ + (let () + (declare (not safe)) + (cons _lp-hd6812268178_ _arg-val6812468171_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_arg-val6812568184_ + (reverse _arg-val6812468171_))) + (if (gx#stx-null? + _tl6811468155_) + ((lambda (_L68188_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _L68190_) + (let () + (let ((__tmp72102 (gx#datum->syntax '#f 'begin)) + (__tmp72058 + (let ((__tmp72069 + (let ((__tmp72101 + (gx#datum->syntax '#f 'def)) + (__tmp72070 + (let ((__tmp72097 + (let ((__tmp72098 + (let ((__tmp72099 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp72100 + (lambda (_g6821568218_ _g6821668221_) + (let () + (declare (not safe)) + (cons _g6821568218_ _g6821668221_))))) + (declare (not safe)) + (foldr1 __tmp72100 '() _L68076_)))) + (declare (not safe)) + (cons _L68077_ __tmp72099)))) + (declare (not safe)) + (cons _L68078_ __tmp72098))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp72071 + (let ((__tmp72072 + (let ((__tmp72096 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'let)) + (__tmp72073 + (let ((__tmp72079 + (let ((__tmp72080 + (let ((__tmp72081 + (let ((__tmp72095 + (gx#datum->syntax + '#f + 'if)) + (__tmp72082 + (let ((__tmp72090 + (let ((__tmp72094 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'immediate-instance-of?)) + (__tmp72091 + (let ((__tmp72093 + (gx#datum->syntax '#f 'HashTable::t)) + (__tmp72092 + (let () + (declare (not safe)) + (cons _L68077_ '())))) + (declare (not safe)) + (cons __tmp72093 __tmp72092)))) + (declare (not safe)) + (cons __tmp72094 __tmp72091))) + (__tmp72083 + (let ((__tmp72084 + (let ((__tmp72085 + (let ((__tmp72089 + (gx#datum->syntax '#f 'cast)) + (__tmp72086 + (let ((__tmp72088 + (gx#datum->syntax + '#f + 'HashTable::interface)) + (__tmp72087 + (let () + (declare (not safe)) + (cons _L68077_ '())))) + (declare (not safe)) + (cons __tmp72088 __tmp72087)))) + (declare (not safe)) + (cons __tmp72089 __tmp72086)))) + (declare (not safe)) + (cons __tmp72085 '())))) + (declare (not safe)) + (cons _L68077_ __tmp72084)))) + (declare (not safe)) + (cons __tmp72090 __tmp72083)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp72095 + __tmp72082)))) + (declare (not safe)) + (cons __tmp72081 '())))) + (declare (not safe)) + (cons _L68077_ __tmp72080))) + (__tmp72074 + (let ((__tmp72075 + (let ((__tmp72076 + (let ((__tmp72077 + (let ((__tmp72078 + (lambda (_g6821368224_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g6821468227_) + (let () + (declare (not safe)) + (cons _g6821368224_ _g6821468227_))))) + (declare (not safe)) + (foldr1 __tmp72078 '() _L68188_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L68077_ __tmp72077)))) + (declare (not safe)) + (cons _L68190_ __tmp72076)))) + (declare (not safe)) + (cons __tmp72075 '())))) + (declare (not safe)) + (cons __tmp72079 __tmp72074)))) + (declare (not safe)) + (cons __tmp72096 __tmp72073)))) + (declare (not safe)) + (cons __tmp72072 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp72097 __tmp72071)))) + (declare (not safe)) + (cons __tmp72101 __tmp72070))) + (__tmp72059 + (let ((__tmp72060 + (let ((__tmp72068 + (gx#datum->syntax + '#f + 'def)) + (__tmp72061 + (let ((__tmp72064 + (let ((__tmp72065 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp72066 + (let ((__tmp72067 + (lambda (_g6821168230_ _g6821268233_) + (let () + (declare (not safe)) + (cons _g6821168230_ + _g6821268233_))))) + (declare (not safe)) + (foldr1 __tmp72067 '() _L68076_)))) + (declare (not safe)) + (cons _L68077_ __tmp72066)))) + (declare (not safe)) + (cons _L68190_ __tmp72065))) + (__tmp72062 + (let ((__tmp72063 + (lambda (_g6820968236_ _g6821068239_) + (let () + (declare (not safe)) + (cons _g6820968236_ _g6821068239_))))) + (declare (not safe)) + (foldr1 __tmp72063 '() _L68074_)))) + (declare (not safe)) + (cons __tmp72064 __tmp72062)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp72068 __tmp72061)))) + (declare (not safe)) + (cons __tmp72060 '())))) + (declare (not safe)) + (cons __tmp72069 __tmp72059)))) + (declare (not safe)) + (cons __tmp72102 __tmp72058)))) + _arg-val6812568184_ + _hd6811268142_) + (_g6810768131_ _g6810868135_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_loop6812068164_ + _target6811768158_ + '())) + (_g6810768131_ _g6810868135_))))) + (_g6810768131_ _g6810868135_)))) + (_g6810768131_ _g6810868135_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g6810768131_ + _g6810868135_))))) + (_g6810668242_ + (list (gx#stx-identifier + _L68078_ + '"&" + _L68078_) + (gx#stx-map + (lambda (_arg68246_) + (if (gx#identifier? + _arg68246_) + _arg68246_ + (gx#stx-car _arg68246_))) + (let ((__tmp72103 + (lambda (_g6824868251_ + _g6824968254_) + (let () + (declare (not safe)) + (cons _g6824868251_ + _g6824968254_))))) + (declare (not safe)) + (foldr1 __tmp72103 + '() + _L68076_))))))) + _body6796168070_ + _arg6795268040_ + _hd6794268008_ + _hd6793967998_)))))) + (_loop6795668050_ _target6795368044_ '())) + (_g6792667967_ _g6792767971_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g6792667967_ + _g6792767971_))))))) + (_loop6794768020_ _target6794468014_ '())) + (_g6792667967_ _g6792767971_))))) + (_g6792667967_ _g6792767971_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g6792667967_ _g6792767971_)))) + (_g6792667967_ _g6792767971_)))) + (_g6792667967_ _g6792767971_)))) + (_g6792667967_ _g6792767971_))))) + (_g6792568257_ _stx67923_)))) + (define |[:0:]#deflocked-hash-method| + (lambda (_$stx68264_) + (let* ((_g6826868307_ + (lambda (_g6826968303_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g6826968303_))) + (_g6826768454_ + (lambda (_g6826968311_) + (if (gx#stx-pair? _g6826968311_) + (let ((_e6827768314_ (gx#syntax-e _g6826968311_))) + (let ((_hd6827668318_ + (let () + (declare (not safe)) + (##car _e6827768314_))) + (_tl6827568321_ + (let () + (declare (not safe)) + (##cdr _e6827768314_)))) + (if (gx#stx-pair? _tl6827568321_) + (let ((_e6828068324_ + (gx#syntax-e _tl6827568321_))) + (let ((_hd6827968328_ + (let () + (declare (not safe)) + (##car _e6828068324_))) + (_tl6827868331_ + (let () + (declare (not safe)) + (##cdr _e6828068324_)))) + (if (gx#stx-pair? _hd6827968328_) + (let ((_e6828368334_ + (gx#syntax-e _hd6827968328_))) + (let ((_hd6828268338_ + (let () + (declare (not safe)) + (##car _e6828368334_))) + (_tl6828168341_ + (let () + (declare (not safe)) + (##cdr _e6828368334_)))) + (if (gx#stx-pair/null? + _tl6828168341_) + (let ((_g72104_ + (gx#syntax-split-splice + _tl6828168341_ + '0))) + (begin + (let ((_g72105_ + (let () + (declare (not safe)) + (if (##values? + _g72104_) + (##vector-length + _g72104_) + 1)))) + (if (not (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##fx= _g72105_ 2))) + (error "Context expects 2 values" _g72105_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_target6828468344_ + (let () + (declare (not safe)) + (##vector-ref + _g72104_ + 0))) + (_tl6828668347_ + (let () + (declare (not safe)) + (##vector-ref + _g72104_ + 1)))) + (if (gx#stx-null? + _tl6828668347_) + (letrec ((_loop6828768350_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd6828568354_ _arg6829168357_) + (if (gx#stx-pair? _hd6828568354_) + (let ((_e6828868360_ + (gx#syntax-e _hd6828568354_))) + (let ((_lp-hd6828968364_ + (let () + (declare (not safe)) + (##car _e6828868360_))) + (_lp-tl6829068367_ + (let () + (declare (not safe)) + (##cdr _e6828868360_)))) + (_loop6828768350_ + _lp-tl6829068367_ + (let () + (declare (not safe)) + (cons _lp-hd6828968364_ + _arg6829168357_))))) + (let ((_arg6829268370_ + (reverse _arg6829168357_))) + (if (gx#stx-pair? _tl6827868331_) + (let ((_e6829568374_ + (gx#syntax-e _tl6827868331_))) + (let ((_hd6829468378_ + (let () + (declare (not safe)) + (##car _e6829568374_))) + (_tl6829368381_ + (let () + (declare (not safe)) + (##cdr _e6829568374_)))) + (if (gx#stx-pair? _tl6829368381_) + (let ((_e6829868384_ + (gx#syntax-e + _tl6829368381_))) + (let ((_hd6829768388_ + (let () + (declare (not safe)) + (##car _e6829868384_))) + (_tl6829668391_ + (let () + (declare (not safe)) + (##cdr _e6829868384_)))) + (if (gx#stx-pair? + _tl6829668391_) + (let ((_e6830168394_ + (gx#syntax-e + _tl6829668391_))) + (let ((_hd6830068398_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##car _e6830168394_))) + (_tl6829968401_ + (let () (declare (not safe)) (##cdr _e6830168394_)))) + (if (gx#stx-null? _tl6829968401_) + ((lambda (_L68404_ _L68406_ _L68407_ _L68408_ _L68409_) + (let ((__tmp72163 (gx#datum->syntax '#f 'defmethod)) + (__tmp72106 + (let ((__tmp72158 + (let ((__tmp72162 + (gx#datum->syntax '#f '@method)) + (__tmp72159 + (let ((__tmp72160 + (let ((__tmp72161 + (gx#datum->syntax + '#f + 'locked-hash-table))) + (declare (not safe)) + (cons __tmp72161 '())))) + (declare (not safe)) + (cons _L68409_ __tmp72160)))) + (declare (not safe)) + (cons __tmp72162 __tmp72159))) + (__tmp72107 + (let ((__tmp72108 + (let ((__tmp72157 + (gx#datum->syntax + '#f + 'lambda)) + (__tmp72109 + (let ((__tmp72153 + (let ((__tmp72156 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'self)) + (__tmp72154 + (let ((__tmp72155 + (lambda (_g6843968442_ _g6844068445_) + (let () + (declare (not safe)) + (cons _g6843968442_ _g6844068445_))))) + (declare (not safe)) + (foldr1 __tmp72155 '() _L68408_)))) + (declare (not safe)) + (cons __tmp72156 __tmp72154))) + (__tmp72110 + (let ((__tmp72111 + (let ((__tmp72152 (gx#datum->syntax '#f 'let)) + (__tmp72112 + (let ((__tmp72136 + (let ((__tmp72145 + (let ((__tmp72151 + (gx#datum->syntax + '#f + 'h)) + (__tmp72146 + (let ((__tmp72147 + (let ((__tmp72150 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f '&locked-hash-table-table)) + (__tmp72148 + (let ((__tmp72149 (gx#datum->syntax '#f 'self))) + (declare (not safe)) + (cons __tmp72149 '())))) + (declare (not safe)) + (cons __tmp72150 __tmp72148)))) + (declare (not safe)) + (cons __tmp72147 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp72151 + __tmp72146))) + (__tmp72137 + (let ((__tmp72138 + (let ((__tmp72144 + (gx#datum->syntax + '#f + 'l)) + (__tmp72139 + (let ((__tmp72140 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp72143 + (gx#datum->syntax + '#f + '&locked-hash-table-lock)) + (__tmp72141 + (let ((__tmp72142 + (gx#datum->syntax '#f 'self))) + (declare (not safe)) + (cons __tmp72142 '())))) + (declare (not safe)) + (cons __tmp72143 __tmp72141)))) + (declare (not safe)) + (cons __tmp72140 '())))) + (declare (not safe)) + (cons __tmp72144 __tmp72139)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp72138 '())))) + (declare (not safe)) + (cons __tmp72145 __tmp72137))) + (__tmp72113 + (let ((__tmp72114 + (let ((__tmp72135 + (gx#datum->syntax + '#f + 'dynamic-wind)) + (__tmp72115 + (let ((__tmp72130 + (let ((__tmp72134 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'cut)) + (__tmp72131 + (let ((__tmp72132 + (let ((__tmp72133 + (gx#datum->syntax '#f 'l))) + (declare (not safe)) + (cons __tmp72133 '())))) + (declare (not safe)) + (cons _L68407_ __tmp72132)))) + (declare (not safe)) + (cons __tmp72134 __tmp72131))) + (__tmp72116 + (let ((__tmp72123 + (let ((__tmp72129 (gx#datum->syntax '#f 'cut)) + (__tmp72124 + (let ((__tmp72125 + (let ((__tmp72128 + (gx#datum->syntax '#f 'h)) + (__tmp72126 + (let ((__tmp72127 + (lambda (_g6843768448_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g6843868451_) + (let () + (declare (not safe)) + (cons _g6843768448_ _g6843868451_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr1 __tmp72127 + '() + _L68408_)))) + (declare (not safe)) + (cons __tmp72128 __tmp72126)))) + (declare (not safe)) + (cons _L68406_ __tmp72125)))) + (declare (not safe)) + (cons __tmp72129 __tmp72124))) + (__tmp72117 + (let ((__tmp72118 + (let ((__tmp72122 + (gx#datum->syntax '#f 'cut)) + (__tmp72119 + (let ((__tmp72120 + (let ((__tmp72121 + (gx#datum->syntax + '#f + 'l))) + (declare (not safe)) + (cons __tmp72121 '())))) + (declare (not safe)) + (cons _L68404_ __tmp72120)))) + (declare (not safe)) + (cons __tmp72122 __tmp72119)))) + (declare (not safe)) + (cons __tmp72118 '())))) + (declare (not safe)) + (cons __tmp72123 __tmp72117)))) + (declare (not safe)) + (cons __tmp72130 __tmp72116)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp72135 + __tmp72115)))) + (declare (not safe)) + (cons __tmp72114 '())))) + (declare (not safe)) + (cons __tmp72136 __tmp72113)))) + (declare (not safe)) + (cons __tmp72152 __tmp72112)))) + (declare (not safe)) + (cons __tmp72111 '())))) + (declare (not safe)) + (cons __tmp72153 __tmp72110)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp72157 __tmp72109)))) + (declare (not safe)) + (cons __tmp72108 '())))) + (declare (not safe)) + (cons __tmp72158 __tmp72107)))) + (declare (not safe)) + (cons __tmp72163 __tmp72106))) + _hd6830068398_ + _hd6829768388_ + _hd6829468378_ + _arg6829268370_ + _hd6828268338_) + (_g6826868307_ _g6826968311_)))) + (_g6826868307_ _g6826968311_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g6826868307_ _g6826968311_)))) + (_g6826868307_ _g6826968311_))))))) + (_loop6828768350_ _target6828468344_ '())) + (_g6826868307_ _g6826968311_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g6826868307_ _g6826968311_)))) + (_g6826868307_ _g6826968311_)))) + (_g6826868307_ _g6826968311_)))) + (_g6826868307_ _g6826968311_))))) + (_g6826768454_ _$stx68264_)))) + (define |[:0:]#defchecked-hash-method| + (lambda (_$stx68475_) + (let* ((_g6847968518_ + (lambda (_g6848068514_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g6848068514_))) + (_g6847868665_ + (lambda (_g6848068522_) + (if (gx#stx-pair? _g6848068522_) + (let ((_e6848868525_ (gx#syntax-e _g6848068522_))) + (let ((_hd6848768529_ + (let () + (declare (not safe)) + (##car _e6848868525_))) + (_tl6848668532_ + (let () + (declare (not safe)) + (##cdr _e6848868525_)))) + (if (gx#stx-pair? _tl6848668532_) + (let ((_e6849168535_ + (gx#syntax-e _tl6848668532_))) + (let ((_hd6849068539_ + (let () + (declare (not safe)) + (##car _e6849168535_))) + (_tl6848968542_ + (let () + (declare (not safe)) + (##cdr _e6849168535_)))) + (if (gx#stx-pair? _hd6849068539_) + (let ((_e6849468545_ + (gx#syntax-e _hd6849068539_))) + (let ((_hd6849368549_ + (let () + (declare (not safe)) + (##car _e6849468545_))) + (_tl6849268552_ + (let () + (declare (not safe)) + (##cdr _e6849468545_)))) + (if (gx#stx-pair? _tl6849268552_) + (let ((_e6849768555_ + (gx#syntax-e + _tl6849268552_))) + (let ((_hd6849668559_ + (let () + (declare (not safe)) + (##car _e6849768555_))) + (_tl6849568562_ + (let () + (declare (not safe)) + (##cdr _e6849768555_)))) + (if (gx#stx-pair/null? + _tl6849568562_) + (let ((_g72164_ + (gx#syntax-split-splice + _tl6849568562_ + '0))) + (begin + (let ((_g72165_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (if (##values? _g72164_) + (##vector-length _g72164_) + 1)))) + (if (not (let () (declare (not safe)) (##fx= _g72165_ 2))) + (error "Context expects 2 values" _g72165_))) + (let ((_target6849868565_ + (let () + (declare (not safe)) + (##vector-ref _g72164_ 0))) + (_tl6850068568_ + (let () + (declare (not safe)) + (##vector-ref _g72164_ 1)))) + (if (gx#stx-null? _tl6850068568_) + (letrec ((_loop6850168571_ + (lambda (_hd6849968575_ _arg6850568578_) + (if (gx#stx-pair? _hd6849968575_) + (let ((_e6850268581_ + (gx#syntax-e _hd6849968575_))) + (let ((_lp-hd6850368585_ + (let () + (declare (not safe)) + (##car _e6850268581_))) + (_lp-tl6850468588_ + (let () + (declare (not safe)) + (##cdr _e6850268581_)))) + (_loop6850168571_ + _lp-tl6850468588_ + (let () + (declare (not safe)) + (cons _lp-hd6850368585_ + _arg6850568578_))))) + (let ((_arg6850668591_ + (reverse _arg6850568578_))) + (if (gx#stx-pair? _tl6848968542_) + (let ((_e6850968595_ + (gx#syntax-e + _tl6848968542_))) + (let ((_hd6850868599_ + (let () + (declare (not safe)) + (##car _e6850968595_))) + (_tl6850768602_ + (let () + (declare (not safe)) + (##cdr _e6850968595_)))) + (if (gx#stx-pair? + _tl6850768602_) + (let ((_e6851268605_ + (gx#syntax-e + _tl6850768602_))) + (let ((_hd6851168609_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##car _e6851268605_))) + (_tl6851068612_ + (let () (declare (not safe)) (##cdr _e6851268605_)))) + (if (gx#stx-null? _tl6851068612_) + ((lambda (_L68615_ _L68617_ _L68618_ _L68619_ _L68620_) + (let ((__tmp72207 (gx#datum->syntax '#f 'defmethod)) + (__tmp72166 + (let ((__tmp72202 + (let ((__tmp72206 + (gx#datum->syntax '#f '@method)) + (__tmp72203 + (let ((__tmp72204 + (let ((__tmp72205 + (gx#datum->syntax + '#f + 'checked-hash-table))) + (declare (not safe)) + (cons __tmp72205 '())))) + (declare (not safe)) + (cons _L68620_ __tmp72204)))) + (declare (not safe)) + (cons __tmp72206 __tmp72203))) + (__tmp72167 + (let ((__tmp72168 + (let ((__tmp72201 + (gx#datum->syntax + '#f + 'lambda)) + (__tmp72169 + (let ((__tmp72198 + (let ((__tmp72199 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp72200 + (lambda (_g6865068653_ _g6865168656_) + (let () + (declare (not safe)) + (cons _g6865068653_ _g6865168656_))))) + (declare (not safe)) + (foldr1 __tmp72200 '() _L68618_)))) + (declare (not safe)) + (cons _L68619_ __tmp72199))) + (__tmp72170 + (let ((__tmp72171 + (let ((__tmp72197 (gx#datum->syntax '#f 'let)) + (__tmp72172 + (let ((__tmp72183 + (let ((__tmp72191 + (let ((__tmp72196 + (gx#datum->syntax + '#f + 'h)) + (__tmp72192 + (let ((__tmp72193 + (let ((__tmp72195 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f '&checked-hash-table-table)) + (__tmp72194 + (let () + (declare (not safe)) + (cons _L68619_ '())))) + (declare (not safe)) + (cons __tmp72195 __tmp72194)))) + (declare (not safe)) + (cons __tmp72193 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp72196 + __tmp72192))) + (__tmp72184 + (let ((__tmp72185 + (let ((__tmp72190 + (gx#datum->syntax + '#f + 'key?)) + (__tmp72186 + (let ((__tmp72187 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp72189 + (gx#datum->syntax + '#f + '&checked-hash-table-key-check)) + (__tmp72188 + (let () + (declare (not safe)) + (cons _L68619_ '())))) + (declare (not safe)) + (cons __tmp72189 __tmp72188)))) + (declare (not safe)) + (cons __tmp72187 '())))) + (declare (not safe)) + (cons __tmp72190 __tmp72186)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp72185 '())))) + (declare (not safe)) + (cons __tmp72191 __tmp72184))) + (__tmp72173 + (let ((__tmp72180 + (let ((__tmp72181 + (let ((__tmp72182 + (gx#datum->syntax + '#f + 'key?))) + (declare (not safe)) + (cons __tmp72182 + '())))) + (declare (not safe)) + (cons _L68617_ __tmp72181))) + (__tmp72174 + (let ((__tmp72175 + (let ((__tmp72176 + (let ((__tmp72179 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'h)) + (__tmp72177 + (let ((__tmp72178 + (lambda (_g6864868659_ _g6864968662_) + (let () + (declare (not safe)) + (cons _g6864868659_ _g6864968662_))))) + (declare (not safe)) + (foldr1 __tmp72178 '() _L68618_)))) + (declare (not safe)) + (cons __tmp72179 __tmp72177)))) + (declare (not safe)) + (cons _L68615_ __tmp72176)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp72175 '())))) + (declare (not safe)) + (cons __tmp72180 __tmp72174)))) + (declare (not safe)) + (cons __tmp72183 __tmp72173)))) + (declare (not safe)) + (cons __tmp72197 __tmp72172)))) + (declare (not safe)) + (cons __tmp72171 '())))) + (declare (not safe)) + (cons __tmp72198 __tmp72170)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp72201 __tmp72169)))) + (declare (not safe)) + (cons __tmp72168 '())))) + (declare (not safe)) + (cons __tmp72202 __tmp72167)))) + (declare (not safe)) + (cons __tmp72207 __tmp72166))) + _hd6851168609_ + _hd6850868599_ + _arg6850668591_ + _hd6849668559_ + _hd6849368549_) + (_g6847968518_ _g6848068522_)))) + (_g6847968518_ _g6848068522_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g6847968518_ + _g6848068522_))))))) + (_loop6850168571_ _target6849868565_ '())) + (_g6847968518_ _g6848068522_))))) + (_g6847968518_ _g6848068522_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g6847968518_ _g6848068522_)))) + (_g6847968518_ _g6848068522_)))) + (_g6847968518_ _g6848068522_)))) + (_g6847968518_ _g6848068522_))))) + (_g6847868665_ _$stx68475_)))) + (define |[:0:]#check-hash-arg| + (lambda (_$stx68670_) + (let* ((_g6867468692_ + (lambda (_g6867568688_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g6867568688_))) + (_g6867368747_ + (lambda (_g6867568696_) + (if (gx#stx-pair? _g6867568696_) + (let ((_e6868068699_ (gx#syntax-e _g6867568696_))) + (let ((_hd6867968703_ + (let () + (declare (not safe)) + (##car _e6868068699_))) + (_tl6867868706_ + (let () + (declare (not safe)) + (##cdr _e6868068699_)))) + (if (gx#stx-pair? _tl6867868706_) + (let ((_e6868368709_ + (gx#syntax-e _tl6867868706_))) + (let ((_hd6868268713_ + (let () + (declare (not safe)) + (##car _e6868368709_))) + (_tl6868168716_ + (let () + (declare (not safe)) + (##cdr _e6868368709_)))) + (if (gx#stx-pair? _tl6868168716_) + (let ((_e6868668719_ + (gx#syntax-e _tl6868168716_))) + (let ((_hd6868568723_ + (let () + (declare (not safe)) + (##car _e6868668719_))) + (_tl6868468726_ + (let () + (declare (not safe)) + (##cdr _e6868668719_)))) + (if (gx#stx-null? _tl6868468726_) + ((lambda (_L68729_ _L68731_) + (let ((__tmp72216 + (gx#datum->syntax + '#f + 'unless)) + (__tmp72208 + (let ((__tmp72214 + (let ((__tmp72215 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _L68729_ '())))) + (declare (not safe)) + (cons _L68731_ __tmp72215))) + (__tmp72209 + (let ((__tmp72210 + (let ((__tmp72213 (gx#datum->syntax '#f 'error)) + (__tmp72211 + (let ((__tmp72212 + (let () + (declare (not safe)) + (cons _L68729_ '())))) + (declare (not safe)) + (cons '"invalid argument" __tmp72212)))) + (declare (not safe)) + (cons __tmp72213 __tmp72211)))) + (declare (not safe)) + (cons __tmp72210 '())))) + (declare (not safe)) + (cons __tmp72214 __tmp72209)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp72216 + __tmp72208))) + _hd6868568723_ + _hd6868268713_) + (_g6867468692_ _g6867568696_)))) + (_g6867468692_ _g6867568696_)))) + (_g6867468692_ _g6867568696_)))) + (_g6867468692_ _g6867568696_))))) + (_g6867368747_ _$stx68670_)))))) diff --git a/src/bootstrap/gerbil/runtime/hash__rt.scm b/src/bootstrap/gerbil/runtime/hash__rt.scm new file mode 100644 index 000000000..d43fd5db2 --- /dev/null +++ b/src/bootstrap/gerbil/runtime/hash__rt.scm @@ -0,0 +1,10 @@ +(declare (block) (standard-bindings) (extended-bindings)) +(begin + (begin + (load-module "gerbil/runtime/gambit__rt") + (load-module "gerbil/runtime/util__rt") + (load-module "gerbil/runtime/table__rt") + (load-module "gerbil/runtime/mop__rt") + (load-module "gerbil/runtime/error__rt") + (load-module "gerbil/runtime/interface__rt")) + (load-module "gerbil/runtime/hash__0")) diff --git a/src/bootstrap/gerbil/runtime/init.ssi b/src/bootstrap/gerbil/runtime/init.ssi index ac6d643bc..a810a86eb 100644 --- a/src/bootstrap/gerbil/runtime/init.ssi +++ b/src/bootstrap/gerbil/runtime/init.ssi @@ -11,6 +11,8 @@ namespace: #f :gerbil/runtime/control :gerbil/runtime/mop :gerbil/runtime/error + :gerbil/runtime/interface + :gerbil/runtime/hash :gerbil/runtime/thread :gerbil/runtime/syntax :gerbil/runtime/eval diff --git a/src/bootstrap/gerbil/runtime/init__0.scm b/src/bootstrap/gerbil/runtime/init__0.scm index 8a83e88bd..8966ac962 100644 --- a/src/bootstrap/gerbil/runtime/init__0.scm +++ b/src/bootstrap/gerbil/runtime/init__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/init::timestamp 1708102802) + (define gerbil/runtime/init::timestamp 1708370113) (begin (define __loading-scheme-source (make-parameter '#f)) (define __init-gx! @@ -10,54 +10,53 @@ (gx#current-expander-context (gx#make-top-context)) (gx#current-expander-module-library-path (current-module-library-path)) (gx#current-expander-module-registry - (let () (declare (not safe)) (make-table))) + (let () (declare (not safe)) (make-hash-table))) (gx#current-expander-module-import gx#core-import-module) (gx#current-expander-module-eval gx#core-eval-module) (gx#current-expander-compile __compile-top) (gx#current-expander-eval ##eval) (gx#core-bind-root-syntax! ': (gx#make-prelude-context '#f) '#t) - (__current-context __*top*) (__current-compiler __compile-top) (__current-expander gx#core-expand) (set! __eval-module gx#core-eval-module))) (define __load-gxi (lambda () - (letrec* ((_+readtable+121850_ __*readtable*)) + (letrec* ((_+readtable+77605_ __*readtable*)) (let () (declare (not safe)) (__init-gx!)) - (let* ((_core121852_ (gx#import-module ':gerbil/core)) - (_pre121854_ (gx#make-prelude-context _core121852_))) - (gx#current-expander-module-prelude _pre121854_) - (gx#core-bind-root-syntax! ': _pre121854_ '#t) + (let* ((_core77607_ (gx#import-module ':gerbil/core)) + (_pre77609_ (gx#make-prelude-context _core77607_))) + (gx#current-expander-module-prelude _pre77609_) + (gx#core-bind-root-syntax! ': _pre77609_ '#t) (gx#eval-syntax '(import :gerbil/core))) (gx#current-expander-compile __compile-top-source) (let () (declare (not safe)) (##expand-source-set! __expand-source)) (let () (declare (not safe)) (##macro-descr-set! __macro-descr)) (let () (declare (not safe)) (##main-readtable-set! __*readtable*)) (for-each - (lambda (_port121857_) - (input-port-readtable-set! _port121857_ _+readtable+121850_)) + (lambda (_port77612_) + (input-port-readtable-set! _port77612_ _+readtable+77605_)) (list ##stdin-port ##console-port)) (for-each - (lambda (_port121859_) + (lambda (_port77614_) (output-port-readtable-set! - _port121859_ + _port77614_ (readtable-sharing-allowed?-set - (output-port-readtable _port121859_) + (output-port-readtable _port77614_) '#t))) (list ##stdout-port ##console-port))))) - (define __gxi-init-interactive! (lambda (_cmdline121847_) '#!void)) + (define __gxi-init-interactive! (lambda (_cmdline77602_) '#!void)) (define load-scheme - (lambda (_path121842_) - (let ((__tmp126429 + (lambda (_path77597_) + (let ((__tmp77616 (lambda () - (let ((__tmp126430 (lambda _args121845_ '#f))) + (let ((__tmp77617 (lambda _args77600_ '#f))) (declare (not safe)) - (##load _path121842_ __tmp126430 '#t '#t '#f))))) + (##load _path77597_ __tmp77617 '#t '#t '#f))))) (declare (not safe)) (call-with-parameters - __tmp126429 + __tmp77616 __loading-scheme-source - _path121842_)))) + _path77597_)))) (define load-path (lambda () (values (let () (declare (not safe)) (current-module-library-path)) @@ -68,444 +67,424 @@ (define expander-load-path (lambda () (gx#current-expander-module-library-path))) (define add-load-path - (lambda _paths121837_ - (apply add-library-load-path _paths121837_) - (apply add-expander-load-path _paths121837_))) + (lambda _paths77592_ + (apply add-library-load-path _paths77592_) + (apply add-expander-load-path _paths77592_))) (define add-library-load-path - (lambda _paths121826_ - (let* ((_current121828_ (current-module-library-path)) - (_paths121830_ (map path-expand _paths121826_)) - (_paths121834_ - (let ((__tmp126431 - (lambda (_x121832_) - (let ((__tmp126432 - (member _x121832_ _current121828_))) + (lambda _paths77581_ + (let* ((_current77583_ (current-module-library-path)) + (_paths77585_ (map path-expand _paths77581_)) + (_paths77589_ + (let ((__tmp77618 + (lambda (_x77587_) + (let ((__tmp77619 (member _x77587_ _current77583_))) (declare (not safe)) - (not __tmp126432))))) + (not __tmp77619))))) (declare (not safe)) - (filter __tmp126431 _paths121830_)))) - (current-module-library-path - (append _current121828_ _paths121834_))))) + (filter __tmp77618 _paths77585_)))) + (current-module-library-path (append _current77583_ _paths77589_))))) (define add-expander-load-path - (lambda _paths121815_ - (let* ((_current121817_ (gx#current-expander-module-library-path)) - (_paths121819_ (map path-expand _paths121815_)) - (_paths121823_ - (let ((__tmp126433 - (lambda (_x121821_) - (let ((__tmp126434 - (member _x121821_ _current121817_))) + (lambda _paths77570_ + (let* ((_current77572_ (gx#current-expander-module-library-path)) + (_paths77574_ (map path-expand _paths77570_)) + (_paths77578_ + (let ((__tmp77620 + (lambda (_x77576_) + (let ((__tmp77621 (member _x77576_ _current77572_))) (declare (not safe)) - (not __tmp126434))))) + (not __tmp77621))))) (declare (not safe)) - (filter __tmp126433 _paths121819_)))) + (filter __tmp77620 _paths77574_)))) (gx#current-expander-module-library-path - (append _current121817_ _paths121823_))))) + (append _current77572_ _paths77578_))))) (define cons-load-path - (lambda _paths121813_ - (apply cons-library-load-path _paths121813_) - (apply cons-expander-load-path _paths121813_))) + (lambda _paths77568_ + (apply cons-library-load-path _paths77568_) + (apply cons-expander-load-path _paths77568_))) (define cons-library-load-path - (lambda _paths121808_ - (let ((_current121810_ (current-module-library-path)) - (_paths121811_ (map path-expand _paths121808_))) - (current-module-library-path - (append _paths121811_ _current121810_))))) + (lambda _paths77563_ + (let ((_current77565_ (current-module-library-path)) + (_paths77566_ (map path-expand _paths77563_))) + (current-module-library-path (append _paths77566_ _current77565_))))) (define cons-expander-load-path - (lambda _paths121803_ - (let ((_current121805_ (gx#current-expander-module-library-path)) - (_paths121806_ (map path-expand _paths121803_))) + (lambda _paths77558_ + (let ((_current77560_ (gx#current-expander-module-library-path)) + (_paths77561_ (map path-expand _paths77558_))) (gx#current-expander-module-library-path - (append _paths121806_ _current121805_))))) + (append _paths77561_ _current77560_))))) (define with-cons-load-path - (lambda (_thunk121799_ . _paths121800_) + (lambda (_thunk77554_ . _paths77555_) (apply with-cons-library-load-path (lambda () (apply with-cons-expander-load-path - _thunk121799_ - _paths121800_)) - _paths121800_))) + _thunk77554_ + _paths77555_)) + _paths77555_))) (define with-cons-library-load-path - (lambda (_thunk121792_ . _paths121793_) - (let ((_current121795_ (current-module-library-path)) - (_paths121796_ (map path-expand _paths121793_))) - (let ((__tmp126436 (lambda () (_thunk121792_))) - (__tmp126435 (append _paths121796_ _current121795_))) + (lambda (_thunk77547_ . _paths77548_) + (let ((_current77550_ (current-module-library-path)) + (_paths77551_ (map path-expand _paths77548_))) + (let ((__tmp77623 (lambda () (_thunk77547_))) + (__tmp77622 (append _paths77551_ _current77550_))) (declare (not safe)) (call-with-parameters - __tmp126436 + __tmp77623 current-module-library-path - __tmp126435))))) + __tmp77622))))) (define with-cons-expander-load-path - (lambda (_thunk121785_ . _paths121786_) - (let ((_current121788_ (gx#current-expander-module-library-path)) - (_paths121789_ (map path-expand _paths121786_))) - (let ((__tmp126438 (lambda () (_thunk121785_))) - (__tmp126437 (append _paths121789_ _current121788_))) + (lambda (_thunk77540_ . _paths77541_) + (let ((_current77543_ (gx#current-expander-module-library-path)) + (_paths77544_ (map path-expand _paths77541_))) + (let ((__tmp77625 (lambda () (_thunk77540_))) + (__tmp77624 (append _paths77544_ _current77543_))) (declare (not safe)) (call-with-parameters - __tmp126438 + __tmp77625 gx#current-expander-module-library-path - __tmp126437))))) + __tmp77624))))) (define __expand-source - (lambda (_src121771_) - (letrec ((_expand121773_ - (lambda (_src121783_) - (let ((__tmp126439 + (lambda (_src77526_) + (letrec ((_expand77528_ + (lambda (_src77538_) + (let ((__tmp77626 (gx#core-expand (let () (declare (not safe)) - (__source->syntax _src121783_))))) + (__source->syntax _src77538_))))) (declare (not safe)) - (__compile-top __tmp126439)))) - (_no-expand121774_ - (lambda (_src121779_) + (__compile-top __tmp77626)))) + (_no-expand77529_ + (lambda (_src77534_) (if (__loading-scheme-source) - _src121779_ + _src77534_ (if (let () (declare (not safe)) - (##source? _src121779_)) - (let ((_code121781_ + (##source? _src77534_)) + (let ((_code77536_ (let () (declare (not safe)) - (##source-code _src121779_)))) + (##source-code _src77534_)))) (if (let () (declare (not safe)) - (pair? _code121781_)) - (if (let ((__tmp126440 + (pair? _code77536_)) + (if (let ((__tmp77627 (let () (declare (not safe)) - (##car _code121781_)))) + (##car _code77536_)))) (declare (not safe)) - (eq? '__noexpand: __tmp126440)) + (eq? '__noexpand: __tmp77627)) (let () (declare (not safe)) - (##cdr _code121781_)) + (##cdr _code77536_)) '#f) '#f)) '#f))))) - (let ((_$e121776_ - (let () - (declare (not safe)) - (_no-expand121774_ _src121771_)))) - (if _$e121776_ - _$e121776_ - (let () (declare (not safe)) (_expand121773_ _src121771_))))))) + (let ((_$e77531_ + (let () (declare (not safe)) (_no-expand77529_ _src77526_)))) + (if _$e77531_ + _$e77531_ + (let () (declare (not safe)) (_expand77528_ _src77526_))))))) (define __macro-descr - (lambda (_src121757_ _def-syntax?121758_) - (letrec ((_fail!121760_ + (lambda (_src77512_ _def-syntax?77513_) + (letrec ((_fail!77515_ (lambda () (let () (declare (not safe)) (##raise-expression-parsing-exception 'ill-formed-macro-transformer - _src121757_)))) - (_make-descr121761_ - (lambda (_size121765_) - (let ((_expander121768_ - (let ((__tmp126441 + _src77512_)))) + (_make-descr77516_ + (lambda (_size77520_) + (let ((_expander77523_ + (let ((__tmp77628 (lambda () (let () (declare (not safe)) (##eval-top - _src121757_ + _src77512_ ##interaction-cte))))) (declare (not safe)) (call-with-parameters - __tmp126441 + __tmp77628 __loading-scheme-source 'macro)))) (if (let () (declare (not safe)) - (procedure? _expander121768_)) + (procedure? _expander77523_)) (let () (declare (not safe)) (##make-macro-descr - _def-syntax?121758_ - _size121765_ - _expander121768_ - _src121757_)) - (let () (declare (not safe)) (_fail!121760_))))))) - (if _def-syntax?121758_ - (let () (declare (not safe)) (_make-descr121761_ '-1)) - (let ((_code121763_ - (let () - (declare (not safe)) - (##source-code _src121757_)))) - (if (and (let () (declare (not safe)) (##pair? _code121763_)) - (let ((__tmp126445 - (let ((__tmp126446 - (let ((__tmp126447 + _def-syntax?77513_ + _size77520_ + _expander77523_ + _src77512_)) + (let () (declare (not safe)) (_fail!77515_))))))) + (if _def-syntax?77513_ + (let () (declare (not safe)) (_make-descr77516_ '-1)) + (let ((_code77518_ + (let () (declare (not safe)) (##source-code _src77512_)))) + (if (and (let () (declare (not safe)) (##pair? _code77518_)) + (let ((__tmp77632 + (let ((__tmp77633 + (let ((__tmp77634 (let () (declare (not safe)) - (##car _code121763_)))) + (##car _code77518_)))) (declare (not safe)) - (##sourcify - __tmp126447 - _src121757_)))) + (##sourcify __tmp77634 _src77512_)))) (declare (not safe)) - (##source-code __tmp126446)))) + (##source-code __tmp77633)))) (declare (not safe)) - (##memq __tmp126445 '(##lambda lambda)))) + (##memq __tmp77632 '(##lambda lambda)))) (begin (let () (declare (not safe)) - (##shape _src121757_ _src121757_ '-3)) - (let ((__tmp126442 - (let ((__tmp126443 - (let ((__tmp126444 + (##shape _src77512_ _src77512_ '-3)) + (let ((__tmp77629 + (let ((__tmp77630 + (let ((__tmp77631 (let () (declare (not safe)) - (##cadr _code121763_)))) + (##cadr _code77518_)))) (declare (not safe)) - (##sourcify __tmp126444 _src121757_)))) + (##sourcify __tmp77631 _src77512_)))) (declare (not safe)) - (##form-size __tmp126443)))) + (##form-size __tmp77630)))) (declare (not safe)) - (_make-descr121761_ __tmp126442))) - (let () (declare (not safe)) (_fail!121760_)))))))) + (_make-descr77516_ __tmp77629))) + (let () (declare (not safe)) (_fail!77515_)))))))) (define __source->syntax - (lambda (_src121751_) - (let _recur121753_ ((_e121755_ _src121751_)) - (if (let () (declare (not safe)) (##source? _e121755_)) - (let ((__tmp126455 - (let ((__tmp126456 + (lambda (_src77506_) + (let _recur77508_ ((_e77510_ _src77506_)) + (if (let () (declare (not safe)) (##source? _e77510_)) + (let ((__tmp77642 + (let ((__tmp77643 (let () (declare (not safe)) - (##source-code _e121755_)))) + (##source-code _e77510_)))) (declare (not safe)) - (_recur121753_ __tmp126456))) - (__tmp126454 - (let () (declare (not safe)) (##source-locat _e121755_)))) + (_recur77508_ __tmp77643))) + (__tmp77641 + (let () (declare (not safe)) (##source-locat _e77510_)))) (declare (not safe)) - (##structure AST::t __tmp126455 __tmp126454)) - (if (let () (declare (not safe)) (pair? _e121755_)) - (let ((__tmp126452 - (let ((__tmp126453 + (##structure AST::t __tmp77642 __tmp77641)) + (if (let () (declare (not safe)) (pair? _e77510_)) + (let ((__tmp77639 + (let ((__tmp77640 (let () (declare (not safe)) - (##car _e121755_)))) + (##car _e77510_)))) (declare (not safe)) - (_recur121753_ __tmp126453))) - (__tmp126450 - (let ((__tmp126451 + (_recur77508_ __tmp77640))) + (__tmp77637 + (let ((__tmp77638 (let () (declare (not safe)) - (##cdr _e121755_)))) + (##cdr _e77510_)))) (declare (not safe)) - (_recur121753_ __tmp126451)))) + (_recur77508_ __tmp77638)))) (declare (not safe)) - (cons __tmp126452 __tmp126450)) - (if (let () (declare (not safe)) (vector? _e121755_)) - (vector-map _recur121753_ _e121755_) - (if (let () (declare (not safe)) (box? _e121755_)) - (let ((__tmp126448 - (let ((__tmp126449 (unbox _e121755_))) + (cons __tmp77639 __tmp77637)) + (if (let () (declare (not safe)) (vector? _e77510_)) + (vector-map _recur77508_ _e77510_) + (if (let () (declare (not safe)) (box? _e77510_)) + (let ((__tmp77635 + (let ((__tmp77636 (unbox _e77510_))) (declare (not safe)) - (_recur121753_ __tmp126449)))) + (_recur77508_ __tmp77636)))) (declare (not safe)) - (box __tmp126448)) - _e121755_))))))) + (box __tmp77635)) + _e77510_))))))) (define __compile-top-source - (lambda (_stx121749_) - (let ((__tmp126457 - (let () (declare (not safe)) (__compile-top _stx121749_)))) + (lambda (_stx77504_) + (let ((__tmp77644 + (let () (declare (not safe)) (__compile-top _stx77504_)))) (declare (not safe)) - (cons '__noexpand: __tmp126457)))) + (cons '__noexpand: __tmp77644)))) (define __compile-top - (lambda (_stx121747_) - (let ((__tmp126458 (gx#core-compile-top-syntax _stx121747_))) + (lambda (_stx77502_) + (let ((__tmp77645 (gx#core-compile-top-syntax _stx77502_))) (declare (not safe)) - (__compile __tmp126458)))) + (__compile __tmp77645)))) (define __eval-import - (lambda (_in121728_) - (letrec* ((_mods121730_ - (let () (declare (not safe)) (make-table 'test: eq?))) - (_import1121731_ - (lambda (_in121738_ _phi121739_) - (if (gx#module-import? _in121738_) - (let ((_iphi121741_ - (fx+ _phi121739_ - (gx#module-import-phi _in121738_)))) + (lambda (_in77483_) + (letrec* ((_mods77485_ + (let () (declare (not safe)) (make-hash-table-eq))) + (_import177486_ + (lambda (_in77493_ _phi77494_) + (if (gx#module-import? _in77493_) + (let ((_iphi77496_ + (fx+ _phi77494_ + (gx#module-import-phi _in77493_)))) (if (let () (declare (not safe)) - (fxzero? _iphi121741_)) - (let ((__tmp126460 + (fxzero? _iphi77496_)) + (let ((__tmp77647 (gx#module-export-context - (gx#module-import-source _in121738_)))) + (gx#module-import-source _in77493_)))) (declare (not safe)) - (_eval1121732_ __tmp126460)) + (_eval177487_ __tmp77647)) '#!void)) - (if (gx#module-context? _in121738_) + (if (gx#module-context? _in77493_) (if (let () (declare (not safe)) - (fxzero? _phi121739_)) + (fxzero? _phi77494_)) (let () (declare (not safe)) - (_eval1121732_ _in121738_)) + (_eval177487_ _in77493_)) '#!void) - (if (gx#import-set? _in121738_) - (let ((_iphi121743_ - (fx+ _phi121739_ - (gx#import-set-phi _in121738_)))) + (if (gx#import-set? _in77493_) + (let ((_iphi77498_ + (fx+ _phi77494_ + (gx#import-set-phi _in77493_)))) (if (let () (declare (not safe)) - (fxzero? _iphi121743_)) - (let ((__tmp126459 + (fxzero? _iphi77498_)) + (let ((__tmp77646 (gx#import-set-source - _in121738_))) + _in77493_))) (declare (not safe)) - (_eval1121732_ __tmp126459)) - (if (fxpositive? _iphi121743_) + (_eval177487_ __tmp77646)) + (if (fxpositive? _iphi77498_) (for-each - (lambda (_in121745_) + (lambda (_in77500_) (let () (declare (not safe)) - (_import1121731_ - _in121745_ - _iphi121743_))) + (_import177486_ + _in77500_ + _iphi77498_))) (gx#module-context-import - (gx#import-set-source - _in121738_))) + (gx#import-set-source _in77493_))) '#!void))) - (error '"Unexpected import" _in121738_)))))) - (_eval1121732_ - (lambda (_ctx121736_) + (let () + (declare (not safe)) + (error '"Unexpected import" _in77493_))))))) + (_eval177487_ + (lambda (_ctx77491_) (if (let () (declare (not safe)) - (table-ref _mods121730_ _ctx121736_ '#f)) + (hash-get _mods77485_ _ctx77491_)) '#!void (begin (let () (declare (not safe)) - (table-set! _mods121730_ _ctx121736_ '#t)) - (__eval-module _ctx121736_)))))) - (if (let () (declare (not safe)) (pair? _in121728_)) + (hash-put! _mods77485_ _ctx77491_ '#t)) + (__eval-module _ctx77491_)))))) + (if (let () (declare (not safe)) (pair? _in77483_)) (for-each - (lambda (_in121734_) - (let () (declare (not safe)) (_import1121731_ _in121734_ '0))) - _in121728_) - (let () (declare (not safe)) (_import1121731_ _in121728_ '0)))))) + (lambda (_in77489_) + (let () (declare (not safe)) (_import177486_ _in77489_ '0))) + _in77483_) + (let () (declare (not safe)) (_import177486_ _in77483_ '0)))))) (define __eval-module - (lambda (_obj121721_) - (let* ((_key121723_ - (if (gx#module-context? _obj121721_) - (gx#module-context-path _obj121721_) - _obj121721_)) - (_$e121725_ - (let () - (declare (not safe)) - (table-ref __*modules* _key121723_ '#f)))) - (if _$e121725_ - (values _$e121725_) - (gx#core-eval-module _obj121721_))))) + (lambda (_obj77481_) (gx#core-eval-module _obj77481_))) (define gerbil-runtime-init! - (lambda (_builtin-modules121656_) + (lambda (_builtin-modules77416_) (if __runtime-initialized '#!void (begin - (let* ((_home121658_ (let () (declare (not safe)) (gerbil-home))) - (_libdir121660_ (path-expand '"lib" _home121658_)) - (_userpath121662_ + (let* ((_home77418_ (let () (declare (not safe)) (gerbil-home))) + (_libdir77420_ (path-expand '"lib" _home77418_)) + (_userpath77422_ (path-expand '"lib" (let () (declare (not safe)) (gerbil-path)))) - (_loadpath121664_ + (_loadpath77424_ (if (getenv '"GERBIL_BUILD_PREFIX" '#f) (let () (declare (not safe)) - (cons _libdir121660_ '())) - (let ((__tmp126461 + (cons _libdir77420_ '())) + (let ((__tmp77648 (let () (declare (not safe)) - (cons _libdir121660_ '())))) + (cons _libdir77420_ '())))) (declare (not safe)) - (cons _userpath121662_ __tmp126461)))) - (_loadpath121673_ - (let ((_$e121666_ (getenv '"GERBIL_LOADPATH" '#f))) - (if _$e121666_ - ((lambda (_envvar121669_) - (append (let ((__tmp126463 - (lambda (_x121671_) - (let ((__tmp126464 + (cons _userpath77422_ __tmp77648)))) + (_loadpath77433_ + (let ((_$e77426_ (getenv '"GERBIL_LOADPATH" '#f))) + (if _$e77426_ + ((lambda (_envvar77429_) + (append (let ((__tmp77650 + (lambda (_x77431_) + (let ((__tmp77651 (let () (declare (not safe)) (string-empty? - _x121671_)))) + _x77431_)))) (declare (not safe)) - (not __tmp126464)))) - (__tmp126462 + (not __tmp77651)))) + (__tmp77649 (let () (declare (not safe)) (string-split - _envvar121669_ + _envvar77429_ '#\:)))) (declare (not safe)) - (filter __tmp126463 __tmp126462)) - _loadpath121664_)) - _$e121666_) - _loadpath121664_)))) - (current-module-library-path _loadpath121673_)) - (let* ((_registry-entry121678_ - (lambda (_m121676_) + (filter __tmp77650 __tmp77649)) + _loadpath77424_)) + _$e77426_) + _loadpath77424_)))) + (current-module-library-path _loadpath77433_)) + (let* ((_registry-entry77438_ + (lambda (_m77436_) (let () (declare (not safe)) - (cons _m121676_ 'builtin)))) - (_module-registry121718_ - (let _lp121680_ ((_rest121682_ _builtin-modules121656_) - (_registry121683_ '())) - (let* ((_rest121684121692_ _rest121682_) - (_else121686121700_ + (cons _m77436_ 'builtin)))) + (_module-registry77478_ + (let _lp77440_ ((_rest77442_ _builtin-modules77416_) + (_registry77443_ '())) + (let* ((_rest7744477452_ _rest77442_) + (_else7744677460_ (lambda () (let () (declare (not safe)) - (list->table _registry121683_)))) - (_K121688121706_ - (lambda (_rest121703_ _mod121704_) - (let ((__tmp126465 - (let ((__tmp126469 - (let ((__tmp126470 + (list->hash-table _registry77443_)))) + (_K7744877466_ + (lambda (_rest77463_ _mod77464_) + (let ((__tmp77652 + (let ((__tmp77656 + (let ((__tmp77657 (string-append - _mod121704_ + _mod77464_ '"__0"))) (declare (not safe)) - (_registry-entry121678_ - __tmp126470))) - (__tmp126466 - (let ((__tmp126467 - (let ((__tmp126468 + (_registry-entry77438_ + __tmp77657))) + (__tmp77653 + (let ((__tmp77654 + (let ((__tmp77655 (string-append - _mod121704_ + _mod77464_ '"__rt"))) (declare (not safe)) - (_registry-entry121678_ - __tmp126468)))) + (_registry-entry77438_ + __tmp77655)))) (declare (not safe)) - (cons __tmp126467 - _registry121683_)))) + (cons __tmp77654 + _registry77443_)))) (declare (not safe)) - (cons __tmp126469 __tmp126466)))) + (cons __tmp77656 __tmp77653)))) (declare (not safe)) - (_lp121680_ _rest121703_ __tmp126465))))) + (_lp77440_ _rest77463_ __tmp77652))))) (if (let () (declare (not safe)) - (##pair? _rest121684121692_)) - (let ((_hd121689121709_ + (##pair? _rest7744477452_)) + (let ((_hd7744977469_ (let () (declare (not safe)) - (##car _rest121684121692_))) - (_tl121690121711_ + (##car _rest7744477452_))) + (_tl7745077471_ (let () (declare (not safe)) - (##cdr _rest121684121692_)))) - (let* ((_mod121714_ _hd121689121709_) - (_rest121716_ _tl121690121711_)) + (##cdr _rest7744477452_)))) + (let* ((_mod77474_ _hd7744977469_) + (_rest77476_ _tl7745077471_)) (declare (not safe)) - (_K121688121706_ _rest121716_ _mod121714_))) + (_K7744877466_ _rest77476_ _mod77474_))) (let () (declare (not safe)) - (_else121686121700_))))))) - (current-module-registry _module-registry121718_)) + (_else7744677460_))))))) + (current-module-registry _module-registry77478_)) (current-readtable __*readtable*) (random-source-randomize! default-random-source) (set! __runtime-initialized '#t))))) @@ -515,7 +494,9 @@ (lambda () (if __runtime-initialized '#!void - (error '"runtime has not been initialized")) + (let () + (declare (not safe)) + (error '"runtime has not been initialized"))) (if __expander-loaded '#!void (begin diff --git a/src/bootstrap/gerbil/runtime/init__rt.scm b/src/bootstrap/gerbil/runtime/init__rt.scm index ce76668e3..428ddb73a 100644 --- a/src/bootstrap/gerbil/runtime/init__rt.scm +++ b/src/bootstrap/gerbil/runtime/init__rt.scm @@ -8,6 +8,8 @@ (load-module "gerbil/runtime/control__rt") (load-module "gerbil/runtime/mop__rt") (load-module "gerbil/runtime/error__rt") + (load-module "gerbil/runtime/interface__rt") + (load-module "gerbil/runtime/hash__rt") (load-module "gerbil/runtime/thread__rt") (load-module "gerbil/runtime/syntax__rt") (load-module "gerbil/runtime/eval__rt") diff --git a/src/bootstrap/gerbil/runtime/interface.ssi b/src/bootstrap/gerbil/runtime/interface.ssi new file mode 100644 index 000000000..6ae15e9ef --- /dev/null +++ b/src/bootstrap/gerbil/runtime/interface.ssi @@ -0,0 +1,118 @@ +prelude: :gerbil/core +package: gerbil/runtime +namespace: #f + +(%#begin (%#import + :gerbil/runtime/gambit + :gerbil/runtime/util + :gerbil/runtime/table + :gerbil/runtime/mop + :gerbil/runtime/error) + (%#export #t) + (%#define-runtime CastError::t CastError::t) + (%#define-runtime CastError? CastError?) + (%#define-runtime make-CastError make-CastError) + (%#define-runtime CastError-message CastError-message) + (%#define-runtime CastError-irritants CastError-irritants) + (%#define-runtime CastError-where CastError-where) + (%#define-runtime CastError-continuation CastError-continuation) + (%#define-runtime CastError-message-set! CastError-message-set!) + (%#define-runtime CastError-irritants-set! CastError-irritants-set!) + (%#define-runtime CastError-where-set! CastError-where-set!) + (%#define-runtime + CastError-continuation-set! + CastError-continuation-set!) + (%#define-runtime &CastError-message &CastError-message) + (%#define-runtime &CastError-irritants &CastError-irritants) + (%#define-runtime &CastError-where &CastError-where) + (%#define-runtime &CastError-continuation &CastError-continuation) + (%#define-runtime &CastError-message-set! &CastError-message-set!) + (%#define-runtime &CastError-irritants-set! &CastError-irritants-set!) + (%#define-runtime &CastError-where-set! &CastError-where-set!) + (%#define-runtime + &CastError-continuation-set! + &CastError-continuation-set!) + (%#begin (%#begin-syntax + (%#call (%#ref load-module) + (%#quote "gerbil/runtime/interface__1"))) + (%#define-syntax CastError |[:0:]#CastError|)) + (%#define-runtime CastError:::init! CastError:::init!) + (%#define-runtime raise-cast-error raise-cast-error) + (%#define-runtime interface-cast-error? interface-cast-error?) + (%#define-runtime interface-instance::t interface-instance::t) + (%#define-runtime interface-instance? interface-instance?) + (%#define-runtime interface-instance-object interface-instance-object) + (%#define-runtime + interface-instance-object-set! + interface-instance-object-set!) + (%#define-runtime + &interface-instance-object + &interface-instance-object) + (%#define-runtime + &interface-instance-object-set! + &interface-instance-object-set!) + (%#define-runtime interface-descriptor::t interface-descriptor::t) + (%#define-runtime interface-descriptor? interface-descriptor?) + (%#define-runtime make-interface-descriptor make-interface-descriptor) + (%#define-runtime interface-descriptor-type interface-descriptor-type) + (%#define-runtime + interface-descriptor-methods + interface-descriptor-methods) + (%#define-runtime + interface-descriptor-type-set! + interface-descriptor-type-set!) + (%#define-runtime + interface-descriptor-methods-set! + interface-descriptor-methods-set!) + (%#define-runtime + &interface-descriptor-type + &interface-descriptor-type) + (%#define-runtime + &interface-descriptor-methods + &interface-descriptor-methods) + (%#define-runtime + &interface-descriptor-type-set! + &interface-descriptor-type-set!) + (%#define-runtime + &interface-descriptor-methods-set! + &interface-descriptor-methods-set!) + (%#define-syntax interface-descriptor |[:0:]#interface-descriptor|) + (%#define-syntax + immediate-instance-of? + |[:0:]#immediate-instance-of?|) + (%#define-runtime __interface-hash-key __interface-hash-key) + (%#define-runtime __interface-test-key __interface-test-key) + (%#begin (%#define-runtime + make-prototype-table__% + make-prototype-table__%) + (%#begin (%#define-runtime + make-prototype-table__0 + make-prototype-table__0) + (%#define-runtime + make-prototype-table__1 + make-prototype-table__1) + (%#define-runtime + make-prototype-table + make-prototype-table))) + (%#define-runtime prototype-table-ref prototype-table-ref) + (%#define-runtime prototype-table-set! prototype-table-set!) + (%#define-runtime __prototype-table-set! __prototype-table-set!) + (%#define-runtime prototype-table-update! prototype-table-update!) + (%#define-runtime __prototype-table-update! __prototype-table-update!) + (%#define-runtime prototype-trable-delete! prototype-trable-delete!) + (%#define-runtime __interface-prototypes-mx __interface-prototypes-mx) + (%#define-runtime __interface-prototypes __interface-prototypes) + (%#define-runtime + __interface-prototypes-key + __interface-prototypes-key) + (%#define-runtime interface-subclass? interface-subclass?) + (%#define-syntax mutex-lock-inline! |[:0:]#mutex-lock-inline!|) + (%#define-syntax mutex-unlock-inline! |[:0:]#mutex-unlock-inline!|) + (%#define-syntax do-create-prototype |[:0:]#do-create-prototype|) + (%#define-runtime create-prototype create-prototype) + (%#define-runtime try-create-prototype try-create-prototype) + (%#define-syntax defcast |[:0:]#defcast|) + (%#define-runtime cast cast) + (%#define-runtime try-cast try-cast) + (%#define-runtime satisfies? satisfies?)) +(%#call (%#ref load-module) (%#quote "gerbil/runtime/interface__0")) diff --git a/src/bootstrap/gerbil/runtime/interface.ssxi.ss b/src/bootstrap/gerbil/runtime/interface.ssxi.ss new file mode 100644 index 000000000..8fe982afe --- /dev/null +++ b/src/bootstrap/gerbil/runtime/interface.ssxi.ss @@ -0,0 +1,133 @@ +prelude: :gerbil/compiler/ssxi +package: gerbil/runtime + +(begin + (declare-type + CastError::t + (@class gerbil/runtime/interface#CastError::t + (Error::t) + (Error::t StackTrace::t Exception::t) + () + (continuation message irritants where) + :init! + #f + #f + #f + ((:init! . CastError:::init!)))) + (declare-type CastError? (@predicate CastError::t)) + (declare-type make-CastError (@constructor CastError::t)) + (declare-type CastError-message (@accessor CastError::t message #t)) + (declare-type CastError-irritants (@accessor CastError::t irritants #t)) + (declare-type CastError-where (@accessor CastError::t where #t)) + (declare-type + CastError-continuation + (@accessor CastError::t continuation #t)) + (declare-type CastError-message-set! (@mutator CastError::t message #t)) + (declare-type CastError-irritants-set! (@mutator CastError::t irritants #t)) + (declare-type CastError-where-set! (@mutator CastError::t where #t)) + (declare-type + CastError-continuation-set! + (@mutator CastError::t continuation #t)) + (declare-type &CastError-message (@accessor CastError::t message #f)) + (declare-type &CastError-irritants (@accessor CastError::t irritants #f)) + (declare-type &CastError-where (@accessor CastError::t where #f)) + (declare-type + &CastError-continuation + (@accessor CastError::t continuation #f)) + (declare-type &CastError-message-set! (@mutator CastError::t message #f)) + (declare-type &CastError-irritants-set! (@mutator CastError::t irritants #f)) + (declare-type &CastError-where-set! (@mutator CastError::t where #f)) + (declare-type + &CastError-continuation-set! + (@mutator CastError::t continuation #f)) + (declare-type CastError:::init! (@lambda (2) #f)) + (declare-type raise-cast-error (@lambda (2) #f)) + (declare-type interface-cast-error? (@predicate CastError::t)) + (declare-type + interface-instance::t + (@class gerbil#interface-instance::t + () + () + (__object) + (__object) + #f + #t + #f + #f + #f)) + (declare-type interface-instance? (@predicate interface-instance::t)) + (declare-type + interface-instance-object + (@accessor interface-instance::t __object #t)) + (declare-type + interface-instance-object-set! + (@mutator interface-instance::t __object #t)) + (declare-type + &interface-instance-object + (@accessor interface-instance::t __object #f)) + (declare-type + &interface-instance-object-set! + (@mutator interface-instance::t __object #f)) + (declare-type + interface-descriptor::t + (@class gerbil/runtime/interface#interface-descriptor::t + () + () + (type methods) + (type methods) + #f + #t + #t + #f + #f)) + (declare-type interface-descriptor? (@predicate interface-descriptor::t)) + (declare-type + make-interface-descriptor + (@constructor interface-descriptor::t)) + (declare-type + interface-descriptor-type + (@accessor interface-descriptor::t type #t)) + (declare-type + interface-descriptor-methods + (@accessor interface-descriptor::t methods #t)) + (declare-type + interface-descriptor-type-set! + (@mutator interface-descriptor::t type #t)) + (declare-type + interface-descriptor-methods-set! + (@mutator interface-descriptor::t methods #t)) + (declare-type + &interface-descriptor-type + (@accessor interface-descriptor::t type #f)) + (declare-type + &interface-descriptor-methods + (@accessor interface-descriptor::t methods #f)) + (declare-type + &interface-descriptor-type-set! + (@mutator interface-descriptor::t type #f)) + (declare-type + &interface-descriptor-methods-set! + (@mutator interface-descriptor::t methods #f)) + (declare-type __interface-hash-key (@lambda 1 #f)) + (declare-type __interface-test-key (@lambda 2 #f)) + (declare-type make-prototype-table__% (@lambda 2 #f)) + (declare-type make-prototype-table__0 (@lambda 0 #f)) + (declare-type make-prototype-table__1 (@lambda 1 #f)) + (declare-type + make-prototype-table + (@case-lambda + (0 make-prototype-table__0) + (1 make-prototype-table__1) + (2 make-prototype-table__%))) + (declare-type prototype-table-ref (@lambda 3 #f)) + (declare-type prototype-table-set! (@lambda 3 #f)) + (declare-type __prototype-table-set! (@lambda 3 #f)) + (declare-type prototype-table-update! (@lambda 4 #f)) + (declare-type __prototype-table-update! (@lambda 4 #f)) + (declare-type prototype-trable-delete! (@lambda 2 #f)) + (declare-type interface-subclass? (@lambda 1 #f)) + (declare-type create-prototype (@lambda 3 #f)) + (declare-type try-create-prototype (@lambda 3 #f)) + (declare-type cast (@lambda 2 #f)) + (declare-type try-cast (@lambda 2 #f)) + (declare-type satisfies? (@lambda 2 #f))) diff --git a/src/bootstrap/gerbil/runtime/interface__0.scm b/src/bootstrap/gerbil/runtime/interface__0.scm new file mode 100644 index 000000000..ad0af16ec --- /dev/null +++ b/src/bootstrap/gerbil/runtime/interface__0.scm @@ -0,0 +1,1213 @@ +(declare (block) (standard-bindings) (extended-bindings)) +(begin + (define gerbil/runtime/interface::timestamp 1708370113) + (begin + (define CastError::t + (let ((__tmp67355 (list Error::t))) + (declare (not safe)) + (make-class-type + 'gerbil/runtime/interface#CastError::t + 'CastError + __tmp67355 + '() + '() + ':init!))) + (define CastError? + (let () (declare (not safe)) (make-class-predicate CastError::t))) + (define make-CastError + (lambda _$args67348_ (apply make-instance CastError::t _$args67348_))) + (define CastError-message + (let () + (declare (not safe)) + (make-class-slot-accessor CastError::t 'message))) + (define CastError-irritants + (let () + (declare (not safe)) + (make-class-slot-accessor CastError::t 'irritants))) + (define CastError-where + (let () + (declare (not safe)) + (make-class-slot-accessor CastError::t 'where))) + (define CastError-continuation + (let () + (declare (not safe)) + (make-class-slot-accessor CastError::t 'continuation))) + (define CastError-message-set! + (let () + (declare (not safe)) + (make-class-slot-mutator CastError::t 'message))) + (define CastError-irritants-set! + (let () + (declare (not safe)) + (make-class-slot-mutator CastError::t 'irritants))) + (define CastError-where-set! + (let () + (declare (not safe)) + (make-class-slot-mutator CastError::t 'where))) + (define CastError-continuation-set! + (let () + (declare (not safe)) + (make-class-slot-mutator CastError::t 'continuation))) + (define &CastError-message + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor CastError::t 'message))) + (define &CastError-irritants + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor CastError::t 'irritants))) + (define &CastError-where + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor CastError::t 'where))) + (define &CastError-continuation + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor CastError::t 'continuation))) + (define &CastError-message-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator CastError::t 'message))) + (define &CastError-irritants-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator CastError::t 'irritants))) + (define &CastError-where-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator CastError::t 'where))) + (define &CastError-continuation-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator CastError::t 'continuation))) + (define CastError:::init! Error:::init!) + (let () + (declare (not safe)) + (bind-method!__% CastError::t ':init! CastError:::init! '#f)) + (define raise-cast-error + (lambda (_where67222_ _message67223_ . _irritants67224_) + (raise (let ((__obj67351 + (let () + (declare (not safe)) + (##structure CastError::t '#f '#f '#f '#f)))) + (CastError:::init! + __obj67351 + _message67223_ + 'where: + _where67222_ + 'irritants: + _irritants67224_) + __obj67351)))) + (define interface-cast-error? CastError?) + (define interface-instance::t + (let ((__tmp67358 (list)) + (__tmp67356 + (let ((__tmp67357 + (let () (declare (not safe)) (cons 'struct: '#t)))) + (declare (not safe)) + (cons __tmp67357 '())))) + (declare (not safe)) + (make-class-type + 'gerbil#interface-instance::t + 'interface-instance + __tmp67358 + '(__object) + __tmp67356 + '#f))) + (define interface-instance? + (let () + (declare (not safe)) + (make-class-predicate interface-instance::t))) + (define interface-instance-object + (let () + (declare (not safe)) + (make-class-slot-accessor interface-instance::t '__object))) + (define interface-instance-object-set! + (let () + (declare (not safe)) + (make-class-slot-mutator interface-instance::t '__object))) + (define &interface-instance-object + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor interface-instance::t '__object))) + (define &interface-instance-object-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator interface-instance::t '__object))) + (define interface-descriptor::t + (let ((__tmp67363 (list)) + (__tmp67359 + (let ((__tmp67362 + (let () (declare (not safe)) (cons 'struct: '#t))) + (__tmp67360 + (let ((__tmp67361 + (let () (declare (not safe)) (cons 'final: '#t)))) + (declare (not safe)) + (cons __tmp67361 '())))) + (declare (not safe)) + (cons __tmp67362 __tmp67360)))) + (declare (not safe)) + (make-class-type + 'gerbil/runtime/interface#interface-descriptor::t + 'interface-descriptor + __tmp67363 + '(type methods) + __tmp67359 + '#f))) + (define interface-descriptor? + (let () + (declare (not safe)) + (make-class-predicate interface-descriptor::t))) + (define make-interface-descriptor + (lambda _$args67219_ + (apply make-instance interface-descriptor::t _$args67219_))) + (define interface-descriptor-type + (let () + (declare (not safe)) + (make-class-slot-accessor interface-descriptor::t 'type))) + (define interface-descriptor-methods + (let () + (declare (not safe)) + (make-class-slot-accessor interface-descriptor::t 'methods))) + (define interface-descriptor-type-set! + (let () + (declare (not safe)) + (make-class-slot-mutator interface-descriptor::t 'type))) + (define interface-descriptor-methods-set! + (let () + (declare (not safe)) + (make-class-slot-mutator interface-descriptor::t 'methods))) + (define &interface-descriptor-type + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor interface-descriptor::t 'type))) + (define &interface-descriptor-methods + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor interface-descriptor::t 'methods))) + (define &interface-descriptor-type-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator interface-descriptor::t 'type))) + (define &interface-descriptor-methods-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator interface-descriptor::t 'methods))) + (define __interface-hash-key + (lambda (_key67217_) + (let ((__tmp67365 + (macro-slot + '1 + (let () (declare (not safe)) (##car _key67217_)))) + (__tmp67364 + (macro-slot + '1 + (let () (declare (not safe)) (##cdr _key67217_))))) + (declare (not safe)) + (##fxxor __tmp67365 __tmp67364)))) + (define __interface-test-key + (lambda (_a67214_ _b67215_) + (if (let ((__tmp67369 (let () (declare (not safe)) (##car _a67214_))) + (__tmp67368 (let () (declare (not safe)) (##car _b67215_)))) + (declare (not safe)) + (##eq? __tmp67369 __tmp67368)) + (let ((__tmp67367 (let () (declare (not safe)) (##cdr _a67214_))) + (__tmp67366 (let () (declare (not safe)) (##cdr _b67215_)))) + (declare (not safe)) + (##eq? __tmp67367 __tmp67366)) + '#f))) + (define make-prototype-table__% + (lambda (_size-hint67195_ _seed67197_) + (let () + (declare (not safe)) + (make-raw-table__% + _size-hint67195_ + __interface-hash-key + __interface-test-key + _seed67197_)))) + (define make-prototype-table__0 + (lambda () + (let* ((_size-hint67203_ '#f) (_seed67205_ '0)) + (declare (not safe)) + (make-prototype-table__% _size-hint67203_ _seed67205_)))) + (define make-prototype-table__1 + (lambda (_size-hint67207_) + (let ((_seed67209_ '0)) + (declare (not safe)) + (make-prototype-table__% _size-hint67207_ _seed67209_)))) + (define make-prototype-table + (lambda _g67371_ + (let ((_g67370_ (let () (declare (not safe)) (##length _g67371_)))) + (cond ((let () (declare (not safe)) (##fx= _g67370_ 0)) + (apply (lambda () + (let () + (declare (not safe)) + (make-prototype-table__0))) + _g67371_)) + ((let () (declare (not safe)) (##fx= _g67370_ 1)) + (apply (lambda (_size-hint67207_) + (let () + (declare (not safe)) + (make-prototype-table__1 _size-hint67207_))) + _g67371_)) + ((let () (declare (not safe)) (##fx= _g67370_ 2)) + (apply (lambda (_size-hint67211_ _seed67212_) + (let () + (declare (not safe)) + (make-prototype-table__% + _size-hint67211_ + _seed67212_))) + _g67371_)) + (else + (##raise-wrong-number-of-arguments-exception + make-prototype-table + _g67371_)))))) + (define prototype-table-ref + (lambda (_tab67152_ _key67153_ _default67154_) + (let ((_table67156_ + (let () (declare (not safe)) (&raw-table-table _tab67152_))) + (_seed67157_ + (let () (declare (not safe)) (&raw-table-seed _tab67152_)))) + (let* ((_h67159_ + (fxxor (let () + (declare (not safe)) + (__interface-hash-key _key67153_)) + _seed67157_)) + (_size67162_ (vector-length _table67156_)) + (_entries67165_ (fxquotient _size67162_ '2)) + (_start67168_ + (fxarithmetic-shift-left + (fxmodulo _h67159_ _entries67165_) + '1))) + (let _loop67172_ ((_probe67175_ _start67168_) + (_i67177_ '1) + (_deleted67179_ '#f)) + (let ((_k67182_ (vector-ref _table67156_ _probe67175_))) + (if (let ((__tmp67378 (macro-unused-obj))) + (declare (not safe)) + (eq? _k67182_ __tmp67378)) + _default67154_ + (if (let ((__tmp67377 (macro-deleted-obj))) + (declare (not safe)) + (eq? _k67182_ __tmp67377)) + (let ((__tmp67376 + (let ((_next-probe67185_ + (fx+ _start67168_ + _i67177_ + (fx* _i67177_ _i67177_)))) + (fxmodulo _next-probe67185_ _size67162_))) + (__tmp67375 (fx+ _i67177_ '1)) + (__tmp67374 + (let ((_$e67188_ _deleted67179_)) + (if _$e67188_ _$e67188_ _probe67175_)))) + (declare (not safe)) + (_loop67172_ __tmp67376 __tmp67375 __tmp67374)) + (if (let () + (declare (not safe)) + (__interface-test-key _key67153_ _k67182_)) + (vector-ref _table67156_ (fx+ _probe67175_ '1)) + (let ((__tmp67373 + (let ((_next-probe67191_ + (fx+ _start67168_ + _i67177_ + (fx* _i67177_ _i67177_)))) + (fxmodulo _next-probe67191_ _size67162_))) + (__tmp67372 (fx+ _i67177_ '1))) + (declare (not safe)) + (_loop67172_ + __tmp67373 + __tmp67372 + _deleted67179_))))))))))) + (define prototype-table-set! + (lambda (_tab67148_ _key67149_ _value67150_) + (if (fx< (let () (declare (not safe)) (&raw-table-free _tab67148_)) + (fxquotient + (vector-length + (let () (declare (not safe)) (&raw-table-table _tab67148_))) + '4)) + (let () (declare (not safe)) (__raw-table-rehash! _tab67148_)) + '#!void) + (let () + (declare (not safe)) + (__prototype-table-set! _tab67148_ _key67149_ _value67150_)))) + (define __prototype-table-set! + (lambda (_tab67103_ _key67104_ _value67105_) + (let ((_table67108_ + (let () (declare (not safe)) (&raw-table-table _tab67103_))) + (_seed67109_ + (let () (declare (not safe)) (&raw-table-seed _tab67103_)))) + (let* ((_h67111_ + (fxxor (let () + (declare (not safe)) + (__interface-hash-key _key67104_)) + _seed67109_)) + (_size67114_ (vector-length _table67108_)) + (_entries67117_ (fxquotient _size67114_ '2)) + (_start67120_ + (fxarithmetic-shift-left + (fxmodulo _h67111_ _entries67117_) + '1))) + (let _loop67124_ ((_probe67127_ _start67120_) + (_i67129_ '1) + (_deleted67131_ '#f)) + (let ((_k67134_ (vector-ref _table67108_ _probe67127_))) + (if (let ((__tmp67388 (macro-unused-obj))) + (declare (not safe)) + (eq? _k67134_ __tmp67388)) + (if _deleted67131_ + (begin + (vector-set! _table67108_ _deleted67131_ _key67104_) + (vector-set! + _table67108_ + (fx+ _deleted67131_ '1) + _value67105_) + ((lambda () + (let ((__tmp67387 + (fx+ (let () + (declare (not safe)) + (&raw-table-count _tab67103_)) + '1))) + (declare (not safe)) + (&raw-table-count-set! + _tab67103_ + __tmp67387))))) + (begin + (vector-set! _table67108_ _probe67127_ _key67104_) + (vector-set! + _table67108_ + (fx+ _probe67127_ '1) + _value67105_) + ((lambda () + (let ((__tmp67385 + (fx- (let () + (declare (not safe)) + (&raw-table-free _tab67103_)) + '1))) + (declare (not safe)) + (&raw-table-free-set! _tab67103_ __tmp67385)) + (let ((__tmp67386 + (fx+ (let () + (declare (not safe)) + (&raw-table-count _tab67103_)) + '1))) + (declare (not safe)) + (&raw-table-count-set! + _tab67103_ + __tmp67386)))))) + (if (let ((__tmp67384 (macro-deleted-obj))) + (declare (not safe)) + (eq? _k67134_ __tmp67384)) + (let ((__tmp67383 + (let ((_next-probe67139_ + (fx+ _start67120_ + _i67129_ + (fx* _i67129_ _i67129_)))) + (fxmodulo _next-probe67139_ _size67114_))) + (__tmp67382 (fx+ _i67129_ '1)) + (__tmp67381 + (let ((_$e67142_ _deleted67131_)) + (if _$e67142_ _$e67142_ _probe67127_)))) + (declare (not safe)) + (_loop67124_ __tmp67383 __tmp67382 __tmp67381)) + (if (let () + (declare (not safe)) + (__interface-test-key _key67104_ _k67134_)) + (begin + (vector-set! + _table67108_ + _probe67127_ + _key67104_) + (vector-set! + _table67108_ + (fx+ _probe67127_ '1) + _value67105_)) + (let ((__tmp67380 + (let ((_next-probe67145_ + (fx+ _start67120_ + _i67129_ + (fx* _i67129_ _i67129_)))) + (fxmodulo _next-probe67145_ _size67114_))) + (__tmp67379 (fx+ _i67129_ '1))) + (declare (not safe)) + (_loop67124_ + __tmp67380 + __tmp67379 + _deleted67131_))))))))))) + (define prototype-table-update! + (lambda (_tab67098_ + _key67099_ + _prototype-table-update!67100_ + _default67101_) + (if (fx< (let () (declare (not safe)) (&raw-table-free _tab67098_)) + (fxquotient + (vector-length + (let () (declare (not safe)) (&raw-table-table _tab67098_))) + '4)) + (let () (declare (not safe)) (__raw-table-rehash! _tab67098_)) + '#!void) + (let () + (declare (not safe)) + (__prototype-table-update! + _tab67098_ + _key67099_ + _prototype-table-update!67100_ + _default67101_)))) + (define __prototype-table-update! + (lambda (_tab67052_ + _key67053_ + _prototype-table-update!67054_ + _default67055_) + (let ((_table67058_ + (let () (declare (not safe)) (&raw-table-table _tab67052_))) + (_seed67059_ + (let () (declare (not safe)) (&raw-table-seed _tab67052_)))) + (let* ((_h67061_ + (fxxor (let () + (declare (not safe)) + (__interface-hash-key _key67053_)) + _seed67059_)) + (_size67064_ (vector-length _table67058_)) + (_entries67067_ (fxquotient _size67064_ '2)) + (_start67070_ + (fxarithmetic-shift-left + (fxmodulo _h67061_ _entries67067_) + '1))) + (let _loop67074_ ((_probe67077_ _start67070_) + (_i67079_ '1) + (_deleted67081_ '#f)) + (let ((_k67084_ (vector-ref _table67058_ _probe67077_))) + (if (let ((__tmp67398 (macro-unused-obj))) + (declare (not safe)) + (eq? _k67084_ __tmp67398)) + (if _deleted67081_ + (begin + (vector-set! _table67058_ _deleted67081_ _key67053_) + (vector-set! + _table67058_ + (fx+ _deleted67081_ '1) + (_prototype-table-update!67054_ _default67055_)) + ((lambda () + (let ((__tmp67397 + (fx+ (let () + (declare (not safe)) + (&raw-table-count _tab67052_)) + '1))) + (declare (not safe)) + (&raw-table-count-set! + _tab67052_ + __tmp67397))))) + (begin + (vector-set! _table67058_ _probe67077_ _key67053_) + (vector-set! + _table67058_ + (fx+ _probe67077_ '1) + (_prototype-table-update!67054_ _default67055_)) + ((lambda () + (let ((__tmp67395 + (fx- (let () + (declare (not safe)) + (&raw-table-free _tab67052_)) + '1))) + (declare (not safe)) + (&raw-table-free-set! _tab67052_ __tmp67395)) + (let ((__tmp67396 + (fx+ (let () + (declare (not safe)) + (&raw-table-count _tab67052_)) + '1))) + (declare (not safe)) + (&raw-table-count-set! + _tab67052_ + __tmp67396)))))) + (if (let ((__tmp67394 (macro-deleted-obj))) + (declare (not safe)) + (eq? _k67084_ __tmp67394)) + (let ((__tmp67393 + (let ((_next-probe67089_ + (fx+ _start67070_ + _i67079_ + (fx* _i67079_ _i67079_)))) + (fxmodulo _next-probe67089_ _size67064_))) + (__tmp67392 (fx+ _i67079_ '1)) + (__tmp67391 + (let ((_$e67092_ _deleted67081_)) + (if _$e67092_ _$e67092_ _probe67077_)))) + (declare (not safe)) + (_loop67074_ __tmp67393 __tmp67392 __tmp67391)) + (if (let () + (declare (not safe)) + (__interface-test-key _key67053_ _k67084_)) + (begin + (vector-set! + _table67058_ + _probe67077_ + _key67053_) + (vector-set! + _table67058_ + (fx+ _probe67077_ '1) + (_prototype-table-update!67054_ + (vector-ref + _table67058_ + (fx+ _probe67077_ '1))))) + (let ((__tmp67390 + (let ((_next-probe67095_ + (fx+ _start67070_ + _i67079_ + (fx* _i67079_ _i67079_)))) + (fxmodulo _next-probe67095_ _size67064_))) + (__tmp67389 (fx+ _i67079_ '1))) + (declare (not safe)) + (_loop67074_ + __tmp67390 + __tmp67389 + _deleted67081_))))))))))) + (define prototype-trable-delete! + (lambda (_tab67011_ _key67013_) + (let ((_table67016_ + (let () (declare (not safe)) (&raw-table-table _tab67011_))) + (_seed67018_ + (let () (declare (not safe)) (&raw-table-seed _tab67011_)))) + (let* ((_h67021_ + (fxxor (let () + (declare (not safe)) + (__interface-hash-key _key67013_)) + _seed67018_)) + (_size67024_ (vector-length _table67016_)) + (_entries67027_ (fxquotient _size67024_ '2)) + (_start67030_ + (fxarithmetic-shift-left + (fxmodulo _h67021_ _entries67027_) + '1))) + (let _loop67034_ ((_probe67037_ _start67030_) (_i67039_ '1)) + (let ((_k67042_ (vector-ref _table67016_ _probe67037_))) + (if (let ((__tmp67405 (macro-unused-obj))) + (declare (not safe)) + (eq? _k67042_ __tmp67405)) + '#!void + (if (let ((__tmp67404 (macro-deleted-obj))) + (declare (not safe)) + (eq? _k67042_ __tmp67404)) + (let ((__tmp67403 + (let ((_next-probe67045_ + (fx+ _start67030_ + _i67039_ + (fx* _i67039_ _i67039_)))) + (fxmodulo _next-probe67045_ _size67024_))) + (__tmp67402 (fx+ _i67039_ '1))) + (declare (not safe)) + (_loop67034_ __tmp67403 __tmp67402)) + (if (let () + (declare (not safe)) + (__interface-test-key _key67013_ _k67042_)) + (begin + (vector-set! + _table67016_ + _probe67037_ + (macro-deleted-obj)) + (vector-set! + _table67016_ + (fx+ _probe67037_ '1) + (macro-absent-obj)) + ((lambda () + (let ((__tmp67401 + (fx- (let () + (declare (not safe)) + (&raw-table-count _tab67011_)) + '1))) + (declare (not safe)) + (&raw-table-count-set! + _tab67011_ + __tmp67401))))) + (let ((__tmp67400 + (let ((_next-probe67049_ + (fx+ _start67030_ + _i67039_ + (fx* _i67039_ _i67039_)))) + (fxmodulo _next-probe67049_ _size67024_))) + (__tmp67399 (fx+ _i67039_ '1))) + (declare (not safe)) + (_loop67034_ __tmp67400 __tmp67399))))))))))) + (define __interface-prototypes-mx (make-mutex 'interface-prototype)) + (define __interface-prototypes + (let () (declare (not safe)) (make-prototype-table__% '#f '0))) + (define __interface-prototypes-key + (let () (declare (not safe)) (cons '#f '#f))) + (define interface-subclass? + (lambda (_klass67003_) + (let ((_super6700467006_ + (let () (declare (not safe)) (##type-super _klass67003_)))) + (if _super6700467006_ + (let ((_super67009_ _super6700467006_)) + (let ((__tmp67407 + (let () (declare (not safe)) (##type-id _super67009_))) + (__tmp67406 + (let () + (declare (not safe)) + (##type-id interface-instance::t)))) + (declare (not safe)) + (eq? __tmp67407 __tmp67406))) + '#f)))) + (define create-prototype + (lambda (_descriptor66899_ _klass66900_ _obj-klass66901_) + (let _loop66903_ ((_rest66906_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _descriptor66899_ + '2 + interface-descriptor::t + '#f))) + (_count66908_ '0) + (_methods66910_ '())) + (let* ((_rest6691266920_ _rest66906_) + (_else6691466976_ + (lambda () + (let ((_prototype66928_ + (let ((__obj67353 + (let ((__tmp67408 + (let () + (declare (not safe)) + (##fx+ _count66908_ '2)))) + (declare (not safe)) + (##make-structure + _klass66900_ + __tmp67408)))) + (let () + (declare (not safe)) + (object-fill! __obj67353 '#f)) + __obj67353))) + (let _loop66931_ ((_rest66933_ _methods66910_) + (_off66934_ + (let () + (declare (not safe)) + (##fx+ _count66908_ '1)))) + (let* ((_rest6693666944_ _rest66933_) + (_else6693866957_ + (lambda () + (let ((_prototype-key66952_ + (let ((__tmp67410 + (let () + (declare (not safe)) + (##type-id _klass66900_))) + (__tmp67409 + (let () + (declare (not safe)) + (##type-id + _obj-klass66901_)))) + (declare (not safe)) + (cons __tmp67410 __tmp67409)))) + (macro-mutex-lock! + __interface-prototypes-mx + '#f + (macro-current-thread)) + (let () + (declare (not safe)) + (prototype-table-set! + __interface-prototypes + _prototype-key66952_ + _prototype66928_)) + (macro-mutex-unlock! + __interface-prototypes-mx) + ((lambda (_prototype66955_) + _prototype66955_) + _prototype66928_)))) + (_K6694066964_ + (lambda (_rest66960_ _method66961_) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _prototype66928_ + _method66961_ + _off66934_ + _klass66900_ + '#f)) + (let ((__tmp67411 + (let () + (declare (not safe)) + (##fx- _off66934_ '1)))) + (declare (not safe)) + (_loop66931_ _rest66960_ __tmp67411))))) + (if (let () + (declare (not safe)) + (##pair? _rest6693666944_)) + (let ((_hd6694166967_ + (let () + (declare (not safe)) + (##car _rest6693666944_))) + (_tl6694266969_ + (let () + (declare (not safe)) + (##cdr _rest6693666944_)))) + (let* ((_method66972_ _hd6694166967_) + (_rest66974_ _tl6694266969_)) + (declare (not safe)) + (_K6694066964_ _rest66974_ _method66972_))) + (let () + (declare (not safe)) + (_else6693866957_)))))))) + (_K6691666991_ + (lambda (_rest66979_ _method-name66980_) + (let ((_$e66983_ + (let () + (declare (not safe)) + (find-method + _obj-klass66901_ + '#f + _method-name66980_)))) + (if _$e66983_ + ((lambda (_method66986_) + (let ((__tmp67413 + (let () + (declare (not safe)) + (##fx+ _count66908_ '1))) + (__tmp67412 + (let () + (declare (not safe)) + (cons _method66986_ _methods66910_)))) + (declare (not safe)) + (_loop66903_ + _rest66979_ + __tmp67413 + __tmp67412))) + _$e66983_) + ((lambda (_klass66988_ _method-name66989_) + (let () + (declare (not safe)) + (raise-cast-error + 'create-prototype + '"cannot create interface instance; missing method" + 'class: + _klass66988_ + 'method: + _method-name66989_))) + _klass66900_ + _method-name66980_)))))) + (if (let () (declare (not safe)) (##pair? _rest6691266920_)) + (let ((_hd6691766994_ + (let () (declare (not safe)) (##car _rest6691266920_))) + (_tl6691866996_ + (let () (declare (not safe)) (##cdr _rest6691266920_)))) + (let* ((_method-name66999_ _hd6691766994_) + (_rest67001_ _tl6691866996_)) + (declare (not safe)) + (_K6691666991_ _rest67001_ _method-name66999_))) + (let () (declare (not safe)) (_else6691466976_))))))) + (define try-create-prototype + (lambda (_descriptor66795_ _klass66796_ _obj-klass66797_) + (let _loop66799_ ((_rest66802_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _descriptor66795_ + '2 + interface-descriptor::t + '#f))) + (_count66804_ '0) + (_methods66806_ '())) + (let* ((_rest6680866816_ _rest66802_) + (_else6681066872_ + (lambda () + (let ((_prototype66824_ + (let ((__obj67354 + (let ((__tmp67414 + (let () + (declare (not safe)) + (##fx+ _count66804_ '2)))) + (declare (not safe)) + (##make-structure + _klass66796_ + __tmp67414)))) + (let () + (declare (not safe)) + (object-fill! __obj67354 '#f)) + __obj67354))) + (let _loop66827_ ((_rest66829_ _methods66806_) + (_off66830_ + (let () + (declare (not safe)) + (##fx+ _count66804_ '1)))) + (let* ((_rest6683266840_ _rest66829_) + (_else6683466853_ + (lambda () + (let ((_prototype-key66848_ + (let ((__tmp67416 + (let () + (declare (not safe)) + (##type-id _klass66796_))) + (__tmp67415 + (let () + (declare (not safe)) + (##type-id + _obj-klass66797_)))) + (declare (not safe)) + (cons __tmp67416 __tmp67415)))) + (macro-mutex-lock! + __interface-prototypes-mx + '#f + (macro-current-thread)) + (let () + (declare (not safe)) + (prototype-table-set! + __interface-prototypes + _prototype-key66848_ + _prototype66824_)) + (macro-mutex-unlock! + __interface-prototypes-mx) + ((lambda (_prototype66851_) + _prototype66851_) + _prototype66824_)))) + (_K6683666860_ + (lambda (_rest66856_ _method66857_) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _prototype66824_ + _method66857_ + _off66830_ + _klass66796_ + '#f)) + (let ((__tmp67417 + (let () + (declare (not safe)) + (##fx- _off66830_ '1)))) + (declare (not safe)) + (_loop66827_ _rest66856_ __tmp67417))))) + (if (let () + (declare (not safe)) + (##pair? _rest6683266840_)) + (let ((_hd6683766863_ + (let () + (declare (not safe)) + (##car _rest6683266840_))) + (_tl6683866865_ + (let () + (declare (not safe)) + (##cdr _rest6683266840_)))) + (let* ((_method66868_ _hd6683766863_) + (_rest66870_ _tl6683866865_)) + (declare (not safe)) + (_K6683666860_ _rest66870_ _method66868_))) + (let () + (declare (not safe)) + (_else6683466853_)))))))) + (_K6681266887_ + (lambda (_rest66875_ _method-name66876_) + (let ((_$e66879_ + (let () + (declare (not safe)) + (find-method + _obj-klass66797_ + '#f + _method-name66876_)))) + (if _$e66879_ + ((lambda (_method66882_) + (let ((__tmp67419 + (let () + (declare (not safe)) + (##fx+ _count66804_ '1))) + (__tmp67418 + (let () + (declare (not safe)) + (cons _method66882_ _methods66806_)))) + (declare (not safe)) + (_loop66799_ + _rest66875_ + __tmp67419 + __tmp67418))) + _$e66879_) + ((lambda (_klass66884_ _method-name66885_) '#f) + _klass66796_ + _method-name66876_)))))) + (if (let () (declare (not safe)) (##pair? _rest6680866816_)) + (let ((_hd6681366890_ + (let () (declare (not safe)) (##car _rest6680866816_))) + (_tl6681466892_ + (let () (declare (not safe)) (##cdr _rest6680866816_)))) + (let* ((_method-name66895_ _hd6681366890_) + (_rest66897_ _tl6681466892_)) + (declare (not safe)) + (_K6681266887_ _rest66897_ _method-name66895_))) + (let () (declare (not safe)) (_else6681066872_))))))) + (define cast + (lambda (_descriptor66760_ _obj66762_) + (if (let () (declare (not safe)) (##structure? _obj66762_)) + (let () + (declare (not interrupts-enabled)) + (let* ((_klass66767_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _descriptor66760_ + '1 + interface-descriptor::t + '#f))) + (_klass-id66770_ + (let () (declare (not safe)) (##type-id _klass66767_))) + (_obj-klass66773_ + (let () + (declare (not safe)) + (##structure-type _obj66762_))) + (_obj-klass-id66776_ + (let () + (declare (not safe)) + (##type-id _obj-klass66773_)))) + (if (let () + (declare (not safe)) + (##eq? _klass-id66770_ _obj-klass-id66776_)) + _obj66762_ + (if (let () + (declare (not safe)) + (interface-subclass? _obj-klass66773_)) + (let ((__tmp67420 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _obj66762_ + '1 + interface-instance::t + '#f)))) + (declare (not safe)) + (cast _descriptor66760_ __tmp67420)) + (begin + (macro-mutex-lock! + __interface-prototypes-mx + '#f + (macro-current-thread)) + (let () + (declare (not safe)) + (##set-car! + __interface-prototypes-key + _klass-id66770_)) + (let () + (declare (not safe)) + (##set-cdr! + __interface-prototypes-key + _obj-klass-id66776_)) + (let ((_prototype66786_ + (let ((_$e66780_ + (let () + (declare (not safe)) + (prototype-table-ref + __interface-prototypes + __interface-prototypes-key + '#f)))) + (if _$e66780_ + ((lambda (_prototype66783_) + (macro-mutex-unlock! + __interface-prototypes-mx) + _prototype66783_) + _$e66780_) + (begin + (macro-mutex-unlock! + __interface-prototypes-mx) + (let () + (declare (not safe)) + (create-prototype + _descriptor66760_ + _klass66767_ + _obj-klass66773_))))))) + ((lambda (_prototype66788_ _obj66789_) + (let ((_instance66791_ + (let () + (declare (not safe)) + (##structure-copy _prototype66788_)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _instance66791_ + _obj66789_ + '1 + '#f + 'cast)) + _instance66791_)) + _prototype66786_ + _obj66762_))))))) + ((lambda (_obj66793_) + (let () + (declare (not safe)) + (raise-cast-error + 'cast + '"cannot cast non-object to interface instance" + _obj66793_))) + _obj66762_)))) + (define try-cast + (lambda (_descriptor66725_ _obj66727_) + (if (let () (declare (not safe)) (##structure? _obj66727_)) + (let () + (declare (not interrupts-enabled)) + (let* ((_klass66732_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _descriptor66725_ + '1 + interface-descriptor::t + '#f))) + (_klass-id66735_ + (let () (declare (not safe)) (##type-id _klass66732_))) + (_obj-klass66738_ + (let () + (declare (not safe)) + (##structure-type _obj66727_))) + (_obj-klass-id66741_ + (let () + (declare (not safe)) + (##type-id _obj-klass66738_)))) + (if (let () + (declare (not safe)) + (##eq? _klass-id66735_ _obj-klass-id66741_)) + _obj66727_ + (if (let () + (declare (not safe)) + (interface-subclass? _obj-klass66738_)) + (let ((__tmp67421 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _obj66727_ + '1 + interface-instance::t + '#f)))) + (declare (not safe)) + (try-cast _descriptor66725_ __tmp67421)) + (begin + (macro-mutex-lock! + __interface-prototypes-mx + '#f + (macro-current-thread)) + (let () + (declare (not safe)) + (##set-car! + __interface-prototypes-key + _klass-id66735_)) + (let () + (declare (not safe)) + (##set-cdr! + __interface-prototypes-key + _obj-klass-id66741_)) + (let ((_prototype66751_ + (let ((_$e66745_ + (let () + (declare (not safe)) + (prototype-table-ref + __interface-prototypes + __interface-prototypes-key + '#f)))) + (if _$e66745_ + ((lambda (_prototype66748_) + (macro-mutex-unlock! + __interface-prototypes-mx) + _prototype66748_) + _$e66745_) + (begin + (macro-mutex-unlock! + __interface-prototypes-mx) + (let () + (declare (not safe)) + (try-create-prototype + _descriptor66725_ + _klass66732_ + _obj-klass66738_))))))) + ((lambda (_prototype66753_ _obj66754_) + (if _prototype66753_ + (let ((_instance66756_ + (let () + (declare (not safe)) + (##structure-copy + _prototype66753_)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _instance66756_ + _obj66754_ + '1 + '#f + 'cast)) + _instance66756_) + '#f)) + _prototype66751_ + _obj66727_))))))) + ((lambda (_obj66758_) '#f) _obj66727_)))) + (define satisfies? + (lambda (_descriptor66692_ _obj66694_) + (if (let () (declare (not safe)) (##structure? _obj66694_)) + (let () + (declare (not interrupts-enabled)) + (let* ((_klass66699_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _descriptor66692_ + '1 + interface-descriptor::t + '#f))) + (_klass-id66702_ + (let () (declare (not safe)) (##type-id _klass66699_))) + (_obj-klass66705_ + (let () + (declare (not safe)) + (##structure-type _obj66694_))) + (_obj-klass-id66708_ + (let () + (declare (not safe)) + (##type-id _obj-klass66705_)))) + (if (let () + (declare (not safe)) + (##eq? _klass-id66702_ _obj-klass-id66708_)) + _obj66694_ + (if (let () + (declare (not safe)) + (interface-subclass? _obj-klass66705_)) + (let ((__tmp67422 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _obj66694_ + '1 + interface-instance::t + '#f)))) + (declare (not safe)) + (satisfies? _descriptor66692_ __tmp67422)) + (begin + (macro-mutex-lock! + __interface-prototypes-mx + '#f + (macro-current-thread)) + (let () + (declare (not safe)) + (##set-car! + __interface-prototypes-key + _klass-id66702_)) + (let () + (declare (not safe)) + (##set-cdr! + __interface-prototypes-key + _obj-klass-id66708_)) + (let ((_prototype66718_ + (let ((_$e66712_ + (let () + (declare (not safe)) + (prototype-table-ref + __interface-prototypes + __interface-prototypes-key + '#f)))) + (if _$e66712_ + ((lambda (_prototype66715_) + (macro-mutex-unlock! + __interface-prototypes-mx) + _prototype66715_) + _$e66712_) + (begin + (macro-mutex-unlock! + __interface-prototypes-mx) + (let () + (declare (not safe)) + (try-create-prototype + _descriptor66692_ + _klass66699_ + _obj-klass66705_))))))) + ((lambda (_prototype66720_ _obj66721_) + (if _prototype66720_ '#t '#f)) + _prototype66718_ + _obj66694_))))))) + ((lambda (_obj66723_) '#f) _obj66694_)))))) diff --git a/src/bootstrap/gerbil/runtime/interface__1.scm b/src/bootstrap/gerbil/runtime/interface__1.scm new file mode 100644 index 000000000..f62ec18b3 --- /dev/null +++ b/src/bootstrap/gerbil/runtime/interface__1.scm @@ -0,0 +1,2212 @@ +(declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) +(begin + (define |[1]#_g67425_| + (##structure + gx#syntax-quote::t + 'Error + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67427_| + (##structure + gx#syntax-quote::t + 'CastError::t + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67429_| + (##structure + gx#syntax-quote::t + 'make-CastError + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67431_| + (##structure + gx#syntax-quote::t + 'CastError? + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67438_| + (##structure + gx#syntax-quote::t + 'CastError-continuation + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67441_| + (##structure + gx#syntax-quote::t + 'CastError-where + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67444_| + (##structure + gx#syntax-quote::t + 'CastError-irritants + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67447_| + (##structure + gx#syntax-quote::t + 'CastError-message + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67454_| + (##structure + gx#syntax-quote::t + 'CastError-continuation-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67457_| + (##structure + gx#syntax-quote::t + 'CastError-where-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67460_| + (##structure + gx#syntax-quote::t + 'CastError-irritants-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67463_| + (##structure + gx#syntax-quote::t + 'CastError-message-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67470_| + (##structure + gx#syntax-quote::t + '&CastError-continuation + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67473_| + (##structure + gx#syntax-quote::t + '&CastError-where + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67476_| + (##structure + gx#syntax-quote::t + '&CastError-irritants + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67479_| + (##structure + gx#syntax-quote::t + '&CastError-message + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67486_| + (##structure + gx#syntax-quote::t + '&CastError-continuation-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67489_| + (##structure + gx#syntax-quote::t + '&CastError-where-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67492_| + (##structure + gx#syntax-quote::t + '&CastError-irritants-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67495_| + (##structure + gx#syntax-quote::t + '&CastError-message-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67497_| + (##structure + gx#syntax-quote::t + 'interface-descriptor::t + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67499_| + (##structure + gx#syntax-quote::t + 'make-interface-descriptor + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67501_| + (##structure + gx#syntax-quote::t + 'interface-descriptor? + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67506_| + (##structure + gx#syntax-quote::t + 'interface-descriptor-methods + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67509_| + (##structure + gx#syntax-quote::t + 'interface-descriptor-type + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67514_| + (##structure + gx#syntax-quote::t + 'interface-descriptor-methods-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67517_| + (##structure + gx#syntax-quote::t + 'interface-descriptor-type-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67522_| + (##structure + gx#syntax-quote::t + '&interface-descriptor-methods + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67525_| + (##structure + gx#syntax-quote::t + '&interface-descriptor-type + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67530_| + (##structure + gx#syntax-quote::t + '&interface-descriptor-methods-set! + #f + (gx#current-expander-context) + '())) + (define |[1]#_g67533_| + (##structure + gx#syntax-quote::t + '&interface-descriptor-type-set! + #f + (gx#current-expander-context) + '())) + (begin + (define |[:0:]#CastError| + (let ((__obj67350 + (let () + (declare (not safe)) + (##structure + gerbil/core$$#class-type-info::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj67350 + 'gerbil/runtime/interface#CastError::t + '1 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj67350 + 'CastError + '2 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj67350 + '() + '4 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp67423 + (let ((__tmp67424 |[1]#_g67425_|)) + (declare (not safe)) + (cons __tmp67424 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj67350 + __tmp67423 + '3 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj67350 + '#f + '5 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj67350 + '#f + '6 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj67350 + '#f + '7 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj67350 + ':init! + '8 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp67426 |[1]#_g67427_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj67350 + __tmp67426 + '9 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp67428 |[1]#_g67429_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj67350 + __tmp67428 + '10 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp67430 |[1]#_g67431_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj67350 + __tmp67430 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp67432 + (let ((__tmp67445 + (let ((__tmp67446 |[1]#_g67447_|)) + (declare (not safe)) + (cons 'message __tmp67446))) + (__tmp67433 + (let ((__tmp67442 + (let ((__tmp67443 |[1]#_g67444_|)) + (declare (not safe)) + (cons 'irritants __tmp67443))) + (__tmp67434 + (let ((__tmp67439 + (let ((__tmp67440 |[1]#_g67441_|)) + (declare (not safe)) + (cons 'where __tmp67440))) + (__tmp67435 + (let ((__tmp67436 + (let ((__tmp67437 |[1]#_g67438_|)) + (declare (not safe)) + (cons 'continuation __tmp67437)))) + (declare (not safe)) + (cons __tmp67436 '())))) + (declare (not safe)) + (cons __tmp67439 __tmp67435)))) + (declare (not safe)) + (cons __tmp67442 __tmp67434)))) + (declare (not safe)) + (cons __tmp67445 __tmp67433)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj67350 + __tmp67432 + '12 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp67448 + (let ((__tmp67461 + (let ((__tmp67462 |[1]#_g67463_|)) + (declare (not safe)) + (cons 'message __tmp67462))) + (__tmp67449 + (let ((__tmp67458 + (let ((__tmp67459 |[1]#_g67460_|)) + (declare (not safe)) + (cons 'irritants __tmp67459))) + (__tmp67450 + (let ((__tmp67455 + (let ((__tmp67456 |[1]#_g67457_|)) + (declare (not safe)) + (cons 'where __tmp67456))) + (__tmp67451 + (let ((__tmp67452 + (let ((__tmp67453 |[1]#_g67454_|)) + (declare (not safe)) + (cons 'continuation __tmp67453)))) + (declare (not safe)) + (cons __tmp67452 '())))) + (declare (not safe)) + (cons __tmp67455 __tmp67451)))) + (declare (not safe)) + (cons __tmp67458 __tmp67450)))) + (declare (not safe)) + (cons __tmp67461 __tmp67449)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj67350 + __tmp67448 + '13 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp67464 + (let ((__tmp67477 + (let ((__tmp67478 |[1]#_g67479_|)) + (declare (not safe)) + (cons 'message __tmp67478))) + (__tmp67465 + (let ((__tmp67474 + (let ((__tmp67475 |[1]#_g67476_|)) + (declare (not safe)) + (cons 'irritants __tmp67475))) + (__tmp67466 + (let ((__tmp67471 + (let ((__tmp67472 |[1]#_g67473_|)) + (declare (not safe)) + (cons 'where __tmp67472))) + (__tmp67467 + (let ((__tmp67468 + (let ((__tmp67469 |[1]#_g67470_|)) + (declare (not safe)) + (cons 'continuation __tmp67469)))) + (declare (not safe)) + (cons __tmp67468 '())))) + (declare (not safe)) + (cons __tmp67471 __tmp67467)))) + (declare (not safe)) + (cons __tmp67474 __tmp67466)))) + (declare (not safe)) + (cons __tmp67477 __tmp67465)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj67350 + __tmp67464 + '14 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp67480 + (let ((__tmp67493 + (let ((__tmp67494 |[1]#_g67495_|)) + (declare (not safe)) + (cons 'message __tmp67494))) + (__tmp67481 + (let ((__tmp67490 + (let ((__tmp67491 |[1]#_g67492_|)) + (declare (not safe)) + (cons 'irritants __tmp67491))) + (__tmp67482 + (let ((__tmp67487 + (let ((__tmp67488 |[1]#_g67489_|)) + (declare (not safe)) + (cons 'where __tmp67488))) + (__tmp67483 + (let ((__tmp67484 + (let ((__tmp67485 |[1]#_g67486_|)) + (declare (not safe)) + (cons 'continuation __tmp67485)))) + (declare (not safe)) + (cons __tmp67484 '())))) + (declare (not safe)) + (cons __tmp67487 __tmp67483)))) + (declare (not safe)) + (cons __tmp67490 __tmp67482)))) + (declare (not safe)) + (cons __tmp67493 __tmp67481)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj67350 + __tmp67480 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj67350)) + (define |[:0:]#interface-descriptor| + (let ((__obj67352 + (let () + (declare (not safe)) + (##structure + gerbil/core$$#class-type-info::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj67352 + 'gerbil/runtime/interface#interface-descriptor::t + '1 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj67352 + 'interface-descriptor + '2 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj67352 + '(type methods) + '4 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj67352 + '() + '3 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj67352 + '#t + '5 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj67352 + '#t + '6 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj67352 + '#f + '7 + gerbil/core$$#class-type-info::t + '#f)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj67352 + '#f + '8 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp67496 |[1]#_g67497_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj67352 + __tmp67496 + '9 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp67498 |[1]#_g67499_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj67352 + __tmp67498 + '10 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp67500 |[1]#_g67501_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj67352 + __tmp67500 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp67502 + (let ((__tmp67507 + (let ((__tmp67508 |[1]#_g67509_|)) + (declare (not safe)) + (cons 'type __tmp67508))) + (__tmp67503 + (let ((__tmp67504 + (let ((__tmp67505 |[1]#_g67506_|)) + (declare (not safe)) + (cons 'methods __tmp67505)))) + (declare (not safe)) + (cons __tmp67504 '())))) + (declare (not safe)) + (cons __tmp67507 __tmp67503)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj67352 + __tmp67502 + '12 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp67510 + (let ((__tmp67515 + (let ((__tmp67516 |[1]#_g67517_|)) + (declare (not safe)) + (cons 'type __tmp67516))) + (__tmp67511 + (let ((__tmp67512 + (let ((__tmp67513 |[1]#_g67514_|)) + (declare (not safe)) + (cons 'methods __tmp67513)))) + (declare (not safe)) + (cons __tmp67512 '())))) + (declare (not safe)) + (cons __tmp67515 __tmp67511)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj67352 + __tmp67510 + '13 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp67518 + (let ((__tmp67523 + (let ((__tmp67524 |[1]#_g67525_|)) + (declare (not safe)) + (cons 'type __tmp67524))) + (__tmp67519 + (let ((__tmp67520 + (let ((__tmp67521 |[1]#_g67522_|)) + (declare (not safe)) + (cons 'methods __tmp67521)))) + (declare (not safe)) + (cons __tmp67520 '())))) + (declare (not safe)) + (cons __tmp67523 __tmp67519)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj67352 + __tmp67518 + '14 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp67526 + (let ((__tmp67531 + (let ((__tmp67532 |[1]#_g67533_|)) + (declare (not safe)) + (cons 'type __tmp67532))) + (__tmp67527 + (let ((__tmp67528 + (let ((__tmp67529 |[1]#_g67530_|)) + (declare (not safe)) + (cons 'methods __tmp67529)))) + (declare (not safe)) + (cons __tmp67528 '())))) + (declare (not safe)) + (cons __tmp67531 __tmp67527)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj67352 + __tmp67526 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj67352)) + (define |[:0:]#immediate-instance-of?| + (lambda (_$stx66232_) + (let* ((_g6623666254_ + (lambda (_g6623766250_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g6623766250_))) + (_g6623566310_ + (lambda (_g6623766258_) + (if (gx#stx-pair? _g6623766258_) + (let ((_e6624266261_ (gx#syntax-e _g6623766258_))) + (let ((_hd6624166265_ + (let () + (declare (not safe)) + (##car _e6624266261_))) + (_tl6624066268_ + (let () + (declare (not safe)) + (##cdr _e6624266261_)))) + (if (gx#stx-pair? _tl6624066268_) + (let ((_e6624566271_ + (gx#syntax-e _tl6624066268_))) + (let ((_hd6624466275_ + (let () + (declare (not safe)) + (##car _e6624566271_))) + (_tl6624366278_ + (let () + (declare (not safe)) + (##cdr _e6624566271_)))) + (if (gx#stx-pair? _tl6624366278_) + (let ((_e6624866281_ + (gx#syntax-e _tl6624366278_))) + (let ((_hd6624766285_ + (let () + (declare (not safe)) + (##car _e6624866281_))) + (_tl6624666288_ + (let () + (declare (not safe)) + (##cdr _e6624866281_)))) + (if (gx#stx-null? _tl6624666288_) + ((lambda (_L66291_ _L66293_) + (let ((__tmp67546 + (gx#datum->syntax + '#f + 'and)) + (__tmp67534 + (let ((__tmp67543 + (let ((__tmp67545 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f '##structure?)) + (__tmp67544 + (let () + (declare (not safe)) + (cons _L66291_ '())))) + (declare (not safe)) + (cons __tmp67545 __tmp67544))) + (__tmp67535 + (let ((__tmp67536 + (let ((__tmp67542 (gx#datum->syntax '#f 'eq?)) + (__tmp67537 + (let ((__tmp67539 + (let ((__tmp67541 + (gx#datum->syntax + '#f + '##structure-type)) + (__tmp67540 + (let () + (declare (not safe)) + (cons _L66291_ '())))) + (declare (not safe)) + (cons __tmp67541 __tmp67540))) + (__tmp67538 + (let () + (declare (not safe)) + (cons _L66293_ '())))) + (declare (not safe)) + (cons __tmp67539 __tmp67538)))) + (declare (not safe)) + (cons __tmp67542 __tmp67537)))) + (declare (not safe)) + (cons __tmp67536 '())))) + (declare (not safe)) + (cons __tmp67543 __tmp67535)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67546 + __tmp67534))) + _hd6624766285_ + _hd6624466275_) + (_g6623666254_ _g6623766258_)))) + (_g6623666254_ _g6623766258_)))) + (_g6623666254_ _g6623766258_)))) + (_g6623666254_ _g6623766258_))))) + (_g6623566310_ _$stx66232_)))) + (define |[:0:]#mutex-lock-inline!| + (lambda (_$stx66314_) + (let* ((_g6631866332_ + (lambda (_g6631966328_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g6631966328_))) + (_g6631766373_ + (lambda (_g6631966336_) + (if (gx#stx-pair? _g6631966336_) + (let ((_e6632366339_ (gx#syntax-e _g6631966336_))) + (let ((_hd6632266343_ + (let () + (declare (not safe)) + (##car _e6632366339_))) + (_tl6632166346_ + (let () + (declare (not safe)) + (##cdr _e6632366339_)))) + (if (gx#stx-pair? _tl6632166346_) + (let ((_e6632666349_ + (gx#syntax-e _tl6632166346_))) + (let ((_hd6632566353_ + (let () + (declare (not safe)) + (##car _e6632666349_))) + (_tl6632466356_ + (let () + (declare (not safe)) + (##cdr _e6632666349_)))) + (if (gx#stx-null? _tl6632466356_) + ((lambda (_L66359_) + (let ((__tmp67552 + (gx#datum->syntax + '#f + 'macro-mutex-lock!)) + (__tmp67547 + (let ((__tmp67548 + (let ((__tmp67549 + (let ((__tmp67550 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp67551 + (gx#datum->syntax + '#f + 'macro-current-thread))) + (declare (not safe)) + (cons __tmp67551 '())))) + (declare (not safe)) + (cons __tmp67550 '())))) + (declare (not safe)) + (cons '#f __tmp67549)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L66359_ __tmp67548)))) + (declare (not safe)) + (cons __tmp67552 __tmp67547))) + _hd6632566353_) + (_g6631866332_ _g6631966336_)))) + (_g6631866332_ _g6631966336_)))) + (_g6631866332_ _g6631966336_))))) + (_g6631766373_ _$stx66314_)))) + (define |[:0:]#mutex-unlock-inline!| + (lambda (_$stx66377_) + (let* ((_g6638166395_ + (lambda (_g6638266391_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g6638266391_))) + (_g6638066436_ + (lambda (_g6638266399_) + (if (gx#stx-pair? _g6638266399_) + (let ((_e6638666402_ (gx#syntax-e _g6638266399_))) + (let ((_hd6638566406_ + (let () + (declare (not safe)) + (##car _e6638666402_))) + (_tl6638466409_ + (let () + (declare (not safe)) + (##cdr _e6638666402_)))) + (if (gx#stx-pair? _tl6638466409_) + (let ((_e6638966412_ + (gx#syntax-e _tl6638466409_))) + (let ((_hd6638866416_ + (let () + (declare (not safe)) + (##car _e6638966412_))) + (_tl6638766419_ + (let () + (declare (not safe)) + (##cdr _e6638966412_)))) + (if (gx#stx-null? _tl6638766419_) + ((lambda (_L66422_) + (let ((__tmp67554 + (gx#datum->syntax + '#f + 'macro-mutex-unlock!)) + (__tmp67553 + (let () + (declare (not safe)) + (cons _L66422_ '())))) + (declare (not safe)) + (cons __tmp67554 __tmp67553))) + _hd6638866416_) + (_g6638166395_ _g6638266399_)))) + (_g6638166395_ _g6638266399_)))) + (_g6638166395_ _g6638266399_))))) + (_g6638066436_ _$stx66377_)))) + (define |[:0:]#do-create-prototype| + (lambda (_$stx66440_) + (let* ((_g6644466474_ + (lambda (_g6644566470_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g6644566470_))) + (_g6644366571_ + (lambda (_g6644566478_) + (if (gx#stx-pair? _g6644566478_) + (let ((_e6645366481_ (gx#syntax-e _g6644566478_))) + (let ((_hd6645266485_ + (let () + (declare (not safe)) + (##car _e6645366481_))) + (_tl6645166488_ + (let () + (declare (not safe)) + (##cdr _e6645366481_)))) + (if (gx#stx-pair? _tl6645166488_) + (let ((_e6645666491_ + (gx#syntax-e _tl6645166488_))) + (let ((_hd6645566495_ + (let () + (declare (not safe)) + (##car _e6645666491_))) + (_tl6645466498_ + (let () + (declare (not safe)) + (##cdr _e6645666491_)))) + (if (gx#stx-pair? _tl6645466498_) + (let ((_e6645966501_ + (gx#syntax-e _tl6645466498_))) + (let ((_hd6645866505_ + (let () + (declare (not safe)) + (##car _e6645966501_))) + (_tl6645766508_ + (let () + (declare (not safe)) + (##cdr _e6645966501_)))) + (if (gx#stx-pair? _tl6645766508_) + (let ((_e6646266511_ + (gx#syntax-e + _tl6645766508_))) + (let ((_hd6646166515_ + (let () + (declare (not safe)) + (##car _e6646266511_))) + (_tl6646066518_ + (let () + (declare (not safe)) + (##cdr _e6646266511_)))) + (if (gx#stx-pair? + _tl6646066518_) + (let ((_e6646566521_ + (gx#syntax-e + _tl6646066518_))) + (let ((_hd6646466525_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##car _e6646566521_))) + (_tl6646366528_ + (let () (declare (not safe)) (##cdr _e6646566521_)))) + (if (gx#stx-pair? _tl6646366528_) + (let ((_e6646866531_ (gx#syntax-e _tl6646366528_))) + (let ((_hd6646766535_ + (let () + (declare (not safe)) + (##car _e6646866531_))) + (_tl6646666538_ + (let () + (declare (not safe)) + (##cdr _e6646866531_)))) + (if (gx#stx-null? _tl6646666538_) + ((lambda (_L66541_ + _L66543_ + _L66544_ + _L66545_ + _L66546_) + (let ((__tmp67748 (gx#datum->syntax '#f 'let)) + (__tmp67555 + (let ((__tmp67747 + (gx#datum->syntax '#f 'loop)) + (__tmp67556 + (let ((__tmp67730 + (let ((__tmp67741 + (let ((__tmp67746 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'rest)) + (__tmp67742 + (let ((__tmp67743 + (let ((__tmp67745 + (gx#datum->syntax + '#f + '&interface-descriptor-methods)) + (__tmp67744 + (let () + (declare (not safe)) + (cons _L66546_ '())))) + (declare (not safe)) + (cons __tmp67745 __tmp67744)))) + (declare (not safe)) + (cons __tmp67743 '())))) + (declare (not safe)) + (cons __tmp67746 __tmp67742))) + (__tmp67731 + (let ((__tmp67738 + (let ((__tmp67740 (gx#datum->syntax '#f 'count)) + (__tmp67739 + (let () + (declare (not safe)) + (cons '0 '())))) + (declare (not safe)) + (cons __tmp67740 __tmp67739))) + (__tmp67732 + (let ((__tmp67733 + (let ((__tmp67737 + (gx#datum->syntax '#f 'methods)) + (__tmp67734 + (let ((__tmp67735 + (let ((__tmp67736 + (gx#datum->syntax + '#f + '@list))) + (declare (not safe)) + (cons __tmp67736 '())))) + (declare (not safe)) + (cons __tmp67735 '())))) + (declare (not safe)) + (cons __tmp67737 __tmp67734)))) + (declare (not safe)) + (cons __tmp67733 '())))) + (declare (not safe)) + (cons __tmp67738 __tmp67732)))) + (declare (not safe)) + (cons __tmp67741 __tmp67731))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp67557 + (let ((__tmp67558 + (let ((__tmp67729 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'match)) + (__tmp67559 + (let ((__tmp67728 (gx#datum->syntax '#f 'rest)) + (__tmp67560 + (let ((__tmp67677 + (let ((__tmp67723 + (let ((__tmp67727 + (gx#datum->syntax + '#f + '@list)) + (__tmp67724 + (let ((__tmp67726 + (gx#datum->syntax + '#f + 'method-name)) + (__tmp67725 + (gx#datum->syntax + '#f + 'rest))) + (declare (not safe)) + (cons __tmp67726 + __tmp67725)))) + (declare (not safe)) + (cons __tmp67727 + __tmp67724))) + (__tmp67678 + (let ((__tmp67679 + (let ((__tmp67722 + (gx#datum->syntax + '#f + 'cond)) + (__tmp67680 + (let ((__tmp67689 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp67716 + (let ((__tmp67721 + (gx#datum->syntax + '#f + 'find-method)) + (__tmp67717 + (let ((__tmp67718 + (let ((__tmp67719 + (let ((__tmp67720 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'method-name))) + (declare (not safe)) + (cons __tmp67720 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '#f __tmp67719)))) + (declare (not safe)) + (cons _L66544_ __tmp67718)))) + (declare (not safe)) + (cons __tmp67721 __tmp67717))) + (__tmp67690 + (let ((__tmp67715 + (gx#datum->syntax '#f '=>)) + (__tmp67691 + (let ((__tmp67692 + (let ((__tmp67714 + (gx#datum->syntax + '#f + 'lambda)) + (__tmp67693 + (let ((__tmp67712 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp67713 (gx#datum->syntax '#f 'method))) + (declare (not safe)) + (cons __tmp67713 '()))) + (__tmp67694 + (let ((__tmp67695 + (let ((__tmp67711 (gx#datum->syntax '#f 'loop)) + (__tmp67696 + (let ((__tmp67710 + (gx#datum->syntax '#f 'rest)) + (__tmp67697 + (let ((__tmp67705 + (let ((__tmp67709 + (gx#datum->syntax + '#f + '##fx+)) + (__tmp67706 + (let ((__tmp67708 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'count)) + (__tmp67707 + (let () (declare (not safe)) (cons '1 '())))) + (declare (not safe)) + (cons __tmp67708 __tmp67707)))) + (declare (not safe)) + (cons __tmp67709 __tmp67706))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp67698 + (let ((__tmp67699 + (let ((__tmp67704 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'cons)) + (__tmp67700 + (let ((__tmp67703 (gx#datum->syntax '#f 'method)) + (__tmp67701 + (let ((__tmp67702 + (gx#datum->syntax '#f 'methods))) + (declare (not safe)) + (cons __tmp67702 '())))) + (declare (not safe)) + (cons __tmp67703 __tmp67701)))) + (declare (not safe)) + (cons __tmp67704 __tmp67700)))) + (declare (not safe)) + (cons __tmp67699 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67705 __tmp67698)))) + (declare (not safe)) + (cons __tmp67710 __tmp67697)))) + (declare (not safe)) + (cons __tmp67711 __tmp67696)))) + (declare (not safe)) + (cons __tmp67695 '())))) + (declare (not safe)) + (cons __tmp67712 __tmp67694)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67714 + __tmp67693)))) + (declare (not safe)) + (cons __tmp67692 '())))) + (declare (not safe)) + (cons __tmp67715 __tmp67691)))) + (declare (not safe)) + (cons __tmp67716 __tmp67690))) + (__tmp67681 + (let ((__tmp67682 + (let ((__tmp67688 + (gx#datum->syntax '#f 'else)) + (__tmp67683 + (let ((__tmp67684 + (let ((__tmp67685 + (let ((__tmp67686 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp67687 + (gx#datum->syntax '#f 'method-name))) + (declare (not safe)) + (cons __tmp67687 '())))) + (declare (not safe)) + (cons _L66545_ __tmp67686)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L66541_ + __tmp67685)))) + (declare (not safe)) + (cons __tmp67684 '())))) + (declare (not safe)) + (cons __tmp67688 __tmp67683)))) + (declare (not safe)) + (cons __tmp67682 '())))) + (declare (not safe)) + (cons __tmp67689 __tmp67681)))) + (declare (not safe)) + (cons __tmp67722 __tmp67680)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67679 '())))) + (declare (not safe)) + (cons __tmp67723 __tmp67678))) + (__tmp67561 + (let ((__tmp67562 + (let ((__tmp67676 + (gx#datum->syntax + '#f + 'else)) + (__tmp67563 + (let ((__tmp67564 + (let ((__tmp67675 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'let)) + (__tmp67565 + (let ((__tmp67663 + (let ((__tmp67674 + (gx#datum->syntax '#f 'prototype)) + (__tmp67664 + (let ((__tmp67665 + (let ((__tmp67673 + (gx#datum->syntax + '#f + 'make-object)) + (__tmp67666 + (let ((__tmp67667 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp67668 + (let ((__tmp67672 + (gx#datum->syntax '#f '##fx+)) + (__tmp67669 + (let ((__tmp67671 + (gx#datum->syntax '#f 'count)) + (__tmp67670 + (let () + (declare (not safe)) + (cons '2 '())))) + (declare (not safe)) + (cons __tmp67671 __tmp67670)))) + (declare (not safe)) + (cons __tmp67672 __tmp67669)))) + (declare (not safe)) + (cons __tmp67668 '())))) + (declare (not safe)) + (cons _L66545_ __tmp67667)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67673 + __tmp67666)))) + (declare (not safe)) + (cons __tmp67665 '())))) + (declare (not safe)) + (cons __tmp67674 __tmp67664))) + (__tmp67566 + (let ((__tmp67567 + (let ((__tmp67662 + (gx#datum->syntax '#f 'let)) + (__tmp67568 + (let ((__tmp67661 + (gx#datum->syntax + '#f + 'loop)) + (__tmp67569 + (let ((__tmp67647 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp67657 + (let ((__tmp67660 (gx#datum->syntax '#f 'rest)) + (__tmp67658 + (let ((__tmp67659 + (gx#datum->syntax '#f 'methods))) + (declare (not safe)) + (cons __tmp67659 '())))) + (declare (not safe)) + (cons __tmp67660 __tmp67658))) + (__tmp67648 + (let ((__tmp67649 + (let ((__tmp67656 + (gx#datum->syntax '#f 'off)) + (__tmp67650 + (let ((__tmp67651 + (let ((__tmp67655 + (gx#datum->syntax + '#f + '##fx+)) + (__tmp67652 + (let ((__tmp67654 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'count)) + (__tmp67653 + (let () (declare (not safe)) (cons '1 '())))) + (declare (not safe)) + (cons __tmp67654 __tmp67653)))) + (declare (not safe)) + (cons __tmp67655 __tmp67652)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67651 '())))) + (declare (not safe)) + (cons __tmp67656 __tmp67650)))) + (declare (not safe)) + (cons __tmp67649 '())))) + (declare (not safe)) + (cons __tmp67657 __tmp67648))) + (__tmp67570 + (let ((__tmp67571 + (let ((__tmp67646 + (gx#datum->syntax '#f 'match)) + (__tmp67572 + (let ((__tmp67645 + (gx#datum->syntax '#f 'rest)) + (__tmp67573 + (let ((__tmp67617 + (let ((__tmp67640 + (let ((__tmp67644 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f '@list)) + (__tmp67641 + (let ((__tmp67643 (gx#datum->syntax '#f 'method)) + (__tmp67642 (gx#datum->syntax '#f 'rest))) + (declare (not safe)) + (cons __tmp67643 __tmp67642)))) + (declare (not safe)) + (cons __tmp67644 __tmp67641))) + (__tmp67618 + (let ((__tmp67630 + (let ((__tmp67639 + (gx#datum->syntax + '#f + '##unchecked-structure-set!)) + (__tmp67631 + (let ((__tmp67638 + (gx#datum->syntax '#f 'prototype)) + (__tmp67632 + (let ((__tmp67637 + (gx#datum->syntax '#f 'method)) + (__tmp67633 + (let ((__tmp67636 + (gx#datum->syntax + '#f + 'off)) + (__tmp67634 + (let ((__tmp67635 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons '#f '())))) + (declare (not safe)) + (cons _L66545_ __tmp67635)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67636 + __tmp67634)))) + (declare (not safe)) + (cons __tmp67637 __tmp67633)))) + (declare (not safe)) + (cons __tmp67638 __tmp67632)))) + (declare (not safe)) + (cons __tmp67639 __tmp67631))) + (__tmp67619 + (let ((__tmp67620 + (let ((__tmp67629 + (gx#datum->syntax '#f 'loop)) + (__tmp67621 + (let ((__tmp67628 + (gx#datum->syntax '#f 'rest)) + (__tmp67622 + (let ((__tmp67623 + (let ((__tmp67627 + (gx#datum->syntax + '#f + '##fx-)) + (__tmp67624 + (let ((__tmp67626 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'off)) + (__tmp67625 + (let () (declare (not safe)) (cons '1 '())))) + (declare (not safe)) + (cons __tmp67626 __tmp67625)))) + (declare (not safe)) + (cons __tmp67627 __tmp67624)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67623 '())))) + (declare (not safe)) + (cons __tmp67628 __tmp67622)))) + (declare (not safe)) + (cons __tmp67629 __tmp67621)))) + (declare (not safe)) + (cons __tmp67620 '())))) + (declare (not safe)) + (cons __tmp67630 __tmp67619)))) + (declare (not safe)) + (cons __tmp67640 __tmp67618))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp67574 + (let ((__tmp67575 + (let ((__tmp67616 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'else)) + (__tmp67576 + (let ((__tmp67577 + (let ((__tmp67615 + (gx#datum->syntax '#f 'let)) + (__tmp67578 + (let ((__tmp67602 + (let ((__tmp67614 + (gx#datum->syntax + '#f + 'prototype-key)) + (__tmp67603 + (let ((__tmp67604 + (let ((__tmp67613 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'cons)) + (__tmp67605 + (let ((__tmp67610 + (let ((__tmp67612 + (gx#datum->syntax '#f '##type-id)) + (__tmp67611 + (let () + (declare (not safe)) + (cons _L66545_ '())))) + (declare (not safe)) + (cons __tmp67612 __tmp67611))) + (__tmp67606 + (let ((__tmp67607 + (let ((__tmp67609 + (gx#datum->syntax + '#f + '##type-id)) + (__tmp67608 + (let () + (declare (not safe)) + (cons _L66544_ '())))) + (declare (not safe)) + (cons __tmp67609 __tmp67608)))) + (declare (not safe)) + (cons __tmp67607 '())))) + (declare (not safe)) + (cons __tmp67610 __tmp67606)))) + (declare (not safe)) + (cons __tmp67613 __tmp67605)))) + (declare (not safe)) + (cons __tmp67604 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67614 + __tmp67603))) + (__tmp67579 + (let ((__tmp67598 + (let ((__tmp67601 + (gx#datum->syntax + '#f + 'mutex-lock-inline!)) + (__tmp67599 + (let ((__tmp67600 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax + '#f + '__interface-prototypes-mx))) + (declare (not safe)) + (cons __tmp67600 '())))) + (declare (not safe)) + (cons __tmp67601 __tmp67599))) + (__tmp67580 + (let ((__tmp67590 + (let ((__tmp67597 + (gx#datum->syntax '#f 'prototype-table-set!)) + (__tmp67591 + (let ((__tmp67596 + (gx#datum->syntax + '#f + '__interface-prototypes)) + (__tmp67592 + (let ((__tmp67595 + (gx#datum->syntax + '#f + 'prototype-key)) + (__tmp67593 + (let ((__tmp67594 + (gx#datum->syntax + '#f + 'prototype))) + (declare (not safe)) + (cons __tmp67594 '())))) + (declare (not safe)) + (cons __tmp67595 __tmp67593)))) + (declare (not safe)) + (cons __tmp67596 __tmp67592)))) + (declare (not safe)) + (cons __tmp67597 __tmp67591))) + (__tmp67581 + (let ((__tmp67586 + (let ((__tmp67589 + (gx#datum->syntax + '#f + 'mutex-unlock-inline!)) + (__tmp67587 + (let ((__tmp67588 + (gx#datum->syntax + '#f + '__interface-prototypes-mx))) + (declare (not safe)) + (cons __tmp67588 '())))) + (declare (not safe)) + (cons __tmp67589 __tmp67587))) + (__tmp67582 + (let ((__tmp67583 + (let ((__tmp67584 + (let ((__tmp67585 + (gx#datum->syntax + '#f + 'prototype))) + (declare (not safe)) + (cons __tmp67585 '())))) + (declare (not safe)) + (cons _L66543_ __tmp67584)))) + (declare (not safe)) + (cons __tmp67583 '())))) + (declare (not safe)) + (cons __tmp67586 __tmp67582)))) + (declare (not safe)) + (cons __tmp67590 __tmp67581)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67598 + __tmp67580)))) + (declare (not safe)) + (cons __tmp67602 __tmp67579)))) + (declare (not safe)) + (cons __tmp67615 __tmp67578)))) + (declare (not safe)) + (cons __tmp67577 '())))) + (declare (not safe)) + (cons __tmp67616 __tmp67576)))) + (declare (not safe)) + (cons __tmp67575 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67617 __tmp67574)))) + (declare (not safe)) + (cons __tmp67645 __tmp67573)))) + (declare (not safe)) + (cons __tmp67646 __tmp67572)))) + (declare (not safe)) + (cons __tmp67571 '())))) + (declare (not safe)) + (cons __tmp67647 __tmp67570)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67661 + __tmp67569)))) + (declare (not safe)) + (cons __tmp67662 __tmp67568)))) + (declare (not safe)) + (cons __tmp67567 '())))) + (declare (not safe)) + (cons __tmp67663 __tmp67566)))) + (declare (not safe)) + (cons __tmp67675 __tmp67565)))) + (declare (not safe)) + (cons __tmp67564 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67676 + __tmp67563)))) + (declare (not safe)) + (cons __tmp67562 '())))) + (declare (not safe)) + (cons __tmp67677 __tmp67561)))) + (declare (not safe)) + (cons __tmp67728 __tmp67560)))) + (declare (not safe)) + (cons __tmp67729 __tmp67559)))) + (declare (not safe)) + (cons __tmp67558 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67730 + __tmp67557)))) + (declare (not safe)) + (cons __tmp67747 __tmp67556)))) + (declare (not safe)) + (cons __tmp67748 __tmp67555))) + _hd6646766535_ + _hd6646466525_ + _hd6646166515_ + _hd6645866505_ + _hd6645566495_) + (_g6644466474_ _g6644566478_)))) + (_g6644466474_ _g6644566478_)))) + (_g6644466474_ _g6644566478_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g6644466474_ _g6644566478_)))) + (_g6644466474_ _g6644566478_)))) + (_g6644466474_ _g6644566478_)))) + (_g6644466474_ _g6644566478_))))) + (_g6644366571_ _$stx66440_)))) + (define |[:0:]#defcast| + (lambda (_$stx66575_) + (let* ((_g6657966605_ + (lambda (_g6658066601_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g6658066601_))) + (_g6657866688_ + (lambda (_g6658066609_) + (if (gx#stx-pair? _g6658066609_) + (let ((_e6658766612_ (gx#syntax-e _g6658066609_))) + (let ((_hd6658666616_ + (let () + (declare (not safe)) + (##car _e6658766612_))) + (_tl6658566619_ + (let () + (declare (not safe)) + (##cdr _e6658766612_)))) + (if (gx#stx-pair? _tl6658566619_) + (let ((_e6659066622_ + (gx#syntax-e _tl6658566619_))) + (let ((_hd6658966626_ + (let () + (declare (not safe)) + (##car _e6659066622_))) + (_tl6658866629_ + (let () + (declare (not safe)) + (##cdr _e6659066622_)))) + (if (gx#stx-pair? _tl6658866629_) + (let ((_e6659366632_ + (gx#syntax-e _tl6658866629_))) + (let ((_hd6659266636_ + (let () + (declare (not safe)) + (##car _e6659366632_))) + (_tl6659166639_ + (let () + (declare (not safe)) + (##cdr _e6659366632_)))) + (if (gx#stx-pair? _tl6659166639_) + (let ((_e6659666642_ + (gx#syntax-e + _tl6659166639_))) + (let ((_hd6659566646_ + (let () + (declare (not safe)) + (##car _e6659666642_))) + (_tl6659466649_ + (let () + (declare (not safe)) + (##cdr _e6659666642_)))) + (if (gx#stx-pair? + _tl6659466649_) + (let ((_e6659966652_ + (gx#syntax-e + _tl6659466649_))) + (let ((_hd6659866656_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##car _e6659966652_))) + (_tl6659766659_ + (let () (declare (not safe)) (##cdr _e6659966652_)))) + (if (gx#stx-null? _tl6659766659_) + ((lambda (_L66662_ _L66664_ _L66665_ _L66666_) + (let ((__tmp67920 (gx#datum->syntax '#f 'def)) + (__tmp67749 + (let ((__tmp67915 + (let ((__tmp67916 + (let ((__tmp67919 + (gx#datum->syntax + '#f + 'descriptor)) + (__tmp67917 + (let ((__tmp67918 + (gx#datum->syntax + '#f + 'obj))) + (declare (not safe)) + (cons __tmp67918 '())))) + (declare (not safe)) + (cons __tmp67919 __tmp67917)))) + (declare (not safe)) + (cons _L66666_ __tmp67916))) + (__tmp67750 + (let ((__tmp67751 + (let ((__tmp67914 + (gx#datum->syntax + '#f + 'if)) + (__tmp67752 + (let ((__tmp67910 + (let ((__tmp67913 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f '##structure?)) + (__tmp67911 + (let ((__tmp67912 (gx#datum->syntax '#f 'obj))) + (declare (not safe)) + (cons __tmp67912 '())))) + (declare (not safe)) + (cons __tmp67913 __tmp67911))) + (__tmp67753 + (let ((__tmp67758 + (let ((__tmp67909 (gx#datum->syntax '#f 'let)) + (__tmp67759 + (let ((__tmp67760 + (let ((__tmp67902 + (let ((__tmp67908 + (gx#datum->syntax + '#f + 'declare)) + (__tmp67903 + (let ((__tmp67904 + (let ((__tmp67907 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'not)) + (__tmp67905 + (let ((__tmp67906 + (gx#datum->syntax + '#f + 'interrupts-enabled))) + (declare (not safe)) + (cons __tmp67906 '())))) + (declare (not safe)) + (cons __tmp67907 __tmp67905)))) + (declare (not safe)) + (cons __tmp67904 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67908 + __tmp67903))) + (__tmp67761 + (let ((__tmp67762 + (let ((__tmp67901 + (gx#datum->syntax + '#f + 'let*)) + (__tmp67763 + (let ((__tmp67869 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp67894 + (let ((__tmp67900 + (gx#datum->syntax '#f 'klass)) + (__tmp67895 + (let ((__tmp67896 + (let ((__tmp67899 + (gx#datum->syntax + '#f + '&interface-descriptor-type)) + (__tmp67897 + (let ((__tmp67898 + (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'descriptor))) + (declare (not safe)) + (cons __tmp67898 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67899 + __tmp67897)))) + (declare (not safe)) + (cons __tmp67896 '())))) + (declare (not safe)) + (cons __tmp67900 __tmp67895))) + (__tmp67870 + (let ((__tmp67887 + (let ((__tmp67893 + (gx#datum->syntax + '#f + 'klass-id)) + (__tmp67888 + (let ((__tmp67889 + (let ((__tmp67892 + (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '##type-id)) + (__tmp67890 + (let ((__tmp67891 (gx#datum->syntax '#f 'klass))) + (declare (not safe)) + (cons __tmp67891 '())))) + (declare (not safe)) + (cons __tmp67892 __tmp67890)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67889 '())))) + (declare (not safe)) + (cons __tmp67893 __tmp67888))) + (__tmp67871 + (let ((__tmp67880 + (let ((__tmp67886 + (gx#datum->syntax + '#f + 'obj-klass)) + (__tmp67881 + (let ((__tmp67882 + (let ((__tmp67885 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f '##structure-type)) + (__tmp67883 + (let ((__tmp67884 (gx#datum->syntax '#f 'obj))) + (declare (not safe)) + (cons __tmp67884 '())))) + (declare (not safe)) + (cons __tmp67885 __tmp67883)))) + (declare (not safe)) + (cons __tmp67882 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67886 + __tmp67881))) + (__tmp67872 + (let ((__tmp67873 + (let ((__tmp67879 + (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'obj-klass-id)) + (__tmp67874 + (let ((__tmp67875 + (let ((__tmp67878 + (gx#datum->syntax '#f '##type-id)) + (__tmp67876 + (let ((__tmp67877 + (gx#datum->syntax + '#f + 'obj-klass))) + (declare (not safe)) + (cons __tmp67877 '())))) + (declare (not safe)) + (cons __tmp67878 __tmp67876)))) + (declare (not safe)) + (cons __tmp67875 '())))) + (declare (not safe)) + (cons __tmp67879 __tmp67874)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67873 '())))) + (declare (not safe)) + (cons __tmp67880 __tmp67872)))) + (declare (not safe)) + (cons __tmp67887 __tmp67871)))) + (declare (not safe)) + (cons __tmp67894 __tmp67870))) + (__tmp67764 + (let ((__tmp67765 + (let ((__tmp67868 + (gx#datum->syntax '#f 'cond)) + (__tmp67766 + (let ((__tmp67859 + (let ((__tmp67862 + (let ((__tmp67867 + (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '##eq?)) + (__tmp67863 + (let ((__tmp67866 (gx#datum->syntax '#f 'klass-id)) + (__tmp67864 + (let ((__tmp67865 + (gx#datum->syntax '#f 'obj-klass-id))) + (declare (not safe)) + (cons __tmp67865 '())))) + (declare (not safe)) + (cons __tmp67866 __tmp67864)))) + (declare (not safe)) + (cons __tmp67867 __tmp67863))) + (__tmp67860 + (let ((__tmp67861 (gx#datum->syntax '#f 'obj))) + (declare (not safe)) + (cons __tmp67861 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67862 + __tmp67860))) + (__tmp67767 + (let ((__tmp67845 + (let ((__tmp67855 + (let ((__tmp67858 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'interface-subclass?)) + (__tmp67856 + (let ((__tmp67857 + (gx#datum->syntax '#f 'obj-klass))) + (declare (not safe)) + (cons __tmp67857 '())))) + (declare (not safe)) + (cons __tmp67858 __tmp67856))) + (__tmp67846 + (let ((__tmp67847 + (let ((__tmp67848 + (let ((__tmp67854 + (gx#datum->syntax + '#f + 'descriptor)) + (__tmp67849 + (let ((__tmp67850 + (let ((__tmp67853 + (gx#datum->syntax + '#f + '&interface-instance-object)) + (__tmp67851 + (let ((__tmp67852 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'obj))) + (declare (not safe)) + (cons __tmp67852 '())))) + (declare (not safe)) + (cons __tmp67853 __tmp67851)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67850 '())))) + (declare (not safe)) + (cons __tmp67854 __tmp67849)))) + (declare (not safe)) + (cons _L66666_ __tmp67848)))) + (declare (not safe)) + (cons __tmp67847 '())))) + (declare (not safe)) + (cons __tmp67855 __tmp67846))) + (__tmp67768 + (let ((__tmp67769 + (let ((__tmp67844 (gx#datum->syntax '#f 'else)) + (__tmp67770 + (let ((__tmp67840 + (let ((__tmp67843 + (gx#datum->syntax + '#f + 'mutex-lock-inline!)) + (__tmp67841 + (let ((__tmp67842 + (gx#datum->syntax + '#f + '__interface-prototypes-mx))) + (declare (not safe)) + (cons __tmp67842 '())))) + (declare (not safe)) + (cons __tmp67843 __tmp67841))) + (__tmp67771 + (let ((__tmp67834 + (let ((__tmp67839 + (gx#datum->syntax + '#f + '##set-car!)) + (__tmp67835 + (let ((__tmp67838 + (gx#datum->syntax + '#f + '__interface-prototypes-key)) + (__tmp67836 + (let ((__tmp67837 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'klass-id))) + (declare (not safe)) + (cons __tmp67837 '())))) + (declare (not safe)) + (cons __tmp67838 __tmp67836)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67839 __tmp67835))) + (__tmp67772 + (let ((__tmp67828 + (let ((__tmp67833 + (gx#datum->syntax + '#f + '##set-cdr!)) + (__tmp67829 + (let ((__tmp67832 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f '__interface-prototypes-key)) + (__tmp67830 + (let ((__tmp67831 + (gx#datum->syntax '#f 'obj-klass-id))) + (declare (not safe)) + (cons __tmp67831 '())))) + (declare (not safe)) + (cons __tmp67832 __tmp67830)))) + (declare (not safe)) + (cons __tmp67833 __tmp67829))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp67773 + (let ((__tmp67774 + (let ((__tmp67827 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'let)) + (__tmp67775 + (let ((__tmp67782 + (let ((__tmp67826 + (gx#datum->syntax '#f 'prototype)) + (__tmp67783 + (let ((__tmp67784 + (let ((__tmp67825 + (gx#datum->syntax + '#f + 'cond)) + (__tmp67785 + (let ((__tmp67802 + (let ((__tmp67818 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp67824 + (gx#datum->syntax '#f 'prototype-table-ref)) + (__tmp67819 + (let ((__tmp67823 + (gx#datum->syntax + '#f + '__interface-prototypes)) + (__tmp67820 + (let ((__tmp67822 + (gx#datum->syntax + '#f + '__interface-prototypes-key)) + (__tmp67821 + (let () + (declare (not safe)) + (cons '#f '())))) + (declare (not safe)) + (cons __tmp67822 __tmp67821)))) + (declare (not safe)) + (cons __tmp67823 __tmp67820)))) + (declare (not safe)) + (cons __tmp67824 __tmp67819))) + (__tmp67803 + (let ((__tmp67817 (gx#datum->syntax '#f '=>)) + (__tmp67804 + (let ((__tmp67805 + (let ((__tmp67816 + (gx#datum->syntax + '#f + 'lambda)) + (__tmp67806 + (let ((__tmp67814 + (let ((__tmp67815 + (gx#datum->syntax + '#f + 'prototype))) + (declare (not safe)) + (cons __tmp67815 + '()))) + (__tmp67807 + (let ((__tmp67810 + (let ((__tmp67813 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'mutex-unlock-inline!)) + (__tmp67811 + (let ((__tmp67812 + (gx#datum->syntax + '#f + '__interface-prototypes-mx))) + (declare (not safe)) + (cons __tmp67812 '())))) + (declare (not safe)) + (cons __tmp67813 __tmp67811))) + (__tmp67808 + (let ((__tmp67809 (gx#datum->syntax '#f 'prototype))) + (declare (not safe)) + (cons __tmp67809 '())))) + (declare (not safe)) + (cons __tmp67810 __tmp67808)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67814 + __tmp67807)))) + (declare (not safe)) + (cons __tmp67816 __tmp67806)))) + (declare (not safe)) + (cons __tmp67805 '())))) + (declare (not safe)) + (cons __tmp67817 __tmp67804)))) + (declare (not safe)) + (cons __tmp67818 __tmp67803))) + (__tmp67786 + (let ((__tmp67787 + (let ((__tmp67801 (gx#datum->syntax '#f 'else)) + (__tmp67788 + (let ((__tmp67797 + (let ((__tmp67800 + (gx#datum->syntax + '#f + 'mutex-unlock-inline!)) + (__tmp67798 + (let ((__tmp67799 + (gx#datum->syntax + '#f + '__interface-prototypes-mx))) + (declare (not safe)) + (cons __tmp67799 '())))) + (declare (not safe)) + (cons __tmp67800 __tmp67798))) + (__tmp67789 + (let ((__tmp67790 + (let ((__tmp67791 + (let ((__tmp67796 + (gx#datum->syntax + '#f + 'descriptor)) + (__tmp67792 + (let ((__tmp67795 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'klass)) + (__tmp67793 + (let ((__tmp67794 + (gx#datum->syntax '#f 'obj-klass))) + (declare (not safe)) + (cons __tmp67794 '())))) + (declare (not safe)) + (cons __tmp67795 __tmp67793)))) + (declare (not safe)) + (cons __tmp67796 __tmp67792)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L66665_ + __tmp67791)))) + (declare (not safe)) + (cons __tmp67790 '())))) + (declare (not safe)) + (cons __tmp67797 __tmp67789)))) + (declare (not safe)) + (cons __tmp67801 __tmp67788)))) + (declare (not safe)) + (cons __tmp67787 '())))) + (declare (not safe)) + (cons __tmp67802 __tmp67786)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67825 + __tmp67785)))) + (declare (not safe)) + (cons __tmp67784 '())))) + (declare (not safe)) + (cons __tmp67826 __tmp67783))) + (__tmp67776 + (let ((__tmp67777 + (let ((__tmp67778 + (let ((__tmp67781 + (gx#datum->syntax + '#f + 'prototype)) + (__tmp67779 + (let ((__tmp67780 + (gx#datum->syntax + '#f + 'obj))) + (declare (not safe)) + (cons __tmp67780 + '())))) + (declare (not safe)) + (cons __tmp67781 + __tmp67779)))) + (declare (not safe)) + (cons _L66664_ __tmp67778)))) + (declare (not safe)) + (cons __tmp67777 '())))) + (declare (not safe)) + (cons __tmp67782 __tmp67776)))) + (declare (not safe)) + (cons __tmp67827 __tmp67775)))) + (declare (not safe)) + (cons __tmp67774 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67828 __tmp67773)))) + (declare (not safe)) + (cons __tmp67834 __tmp67772)))) + (declare (not safe)) + (cons __tmp67840 __tmp67771)))) + (declare (not safe)) + (cons __tmp67844 __tmp67770)))) + (declare (not safe)) + (cons __tmp67769 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67845 + __tmp67768)))) + (declare (not safe)) + (cons __tmp67859 __tmp67767)))) + (declare (not safe)) + (cons __tmp67868 __tmp67766)))) + (declare (not safe)) + (cons __tmp67765 '())))) + (declare (not safe)) + (cons __tmp67869 __tmp67764)))) + (declare (not safe)) + (cons __tmp67901 __tmp67763)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67762 '())))) + (declare (not safe)) + (cons __tmp67902 __tmp67761)))) + (declare (not safe)) + (cons '() __tmp67760)))) + (declare (not safe)) + (cons __tmp67909 __tmp67759))) + (__tmp67754 + (let ((__tmp67755 + (let ((__tmp67756 + (let ((__tmp67757 + (gx#datum->syntax '#f 'obj))) + (declare (not safe)) + (cons __tmp67757 '())))) + (declare (not safe)) + (cons _L66662_ __tmp67756)))) + (declare (not safe)) + (cons __tmp67755 '())))) + (declare (not safe)) + (cons __tmp67758 __tmp67754)))) + (declare (not safe)) + (cons __tmp67910 __tmp67753)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp67914 __tmp67752)))) + (declare (not safe)) + (cons __tmp67751 '())))) + (declare (not safe)) + (cons __tmp67915 __tmp67750)))) + (declare (not safe)) + (cons __tmp67920 __tmp67749))) + _hd6659866656_ + _hd6659566646_ + _hd6659266636_ + _hd6658966626_) + (_g6657966605_ _g6658066609_)))) + (_g6657966605_ _g6658066609_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g6657966605_ _g6658066609_)))) + (_g6657966605_ _g6658066609_)))) + (_g6657966605_ _g6658066609_)))) + (_g6657966605_ _g6658066609_))))) + (_g6657866688_ _$stx66575_)))))) diff --git a/src/bootstrap/gerbil/runtime/interface__rt.scm b/src/bootstrap/gerbil/runtime/interface__rt.scm new file mode 100644 index 000000000..48d4298e7 --- /dev/null +++ b/src/bootstrap/gerbil/runtime/interface__rt.scm @@ -0,0 +1,9 @@ +(declare (block) (standard-bindings) (extended-bindings)) +(begin + (begin + (load-module "gerbil/runtime/gambit__rt") + (load-module "gerbil/runtime/util__rt") + (load-module "gerbil/runtime/table__rt") + (load-module "gerbil/runtime/mop__rt") + (load-module "gerbil/runtime/error__rt")) + (load-module "gerbil/runtime/interface__0")) diff --git a/src/bootstrap/gerbil/runtime/loader.ssi b/src/bootstrap/gerbil/runtime/loader.ssi index 24ae9d3be..5e27e35a2 100644 --- a/src/bootstrap/gerbil/runtime/loader.ssi +++ b/src/bootstrap/gerbil/runtime/loader.ssi @@ -3,7 +3,10 @@ package: gerbil/runtime namespace: #f (%#begin (%#export #t) - (%#import :gerbil/runtime/gambit :gerbil/runtime/util) + (%#import + :gerbil/runtime/gambit + :gerbil/runtime/util + :gerbil/runtime/hash) (%#define-runtime current-module-library-path current-module-library-path) diff --git a/src/bootstrap/gerbil/runtime/loader.ssxi.ss b/src/bootstrap/gerbil/runtime/loader.ssxi.ss index 5050472ec..77f922259 100644 --- a/src/bootstrap/gerbil/runtime/loader.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/loader.ssxi.ss @@ -4,5 +4,7 @@ package: gerbil/runtime (begin (declare-type load-module__% (@lambda 2 #f)) (declare-type load-module__0 (@lambda 1 #f)) - (declare-type load-module (@case-lambda (1 #f) (2 #f))) + (declare-type + load-module + (@case-lambda (1 load-module__0) (2 load-module__%))) (declare-type find-library-module (@lambda 1 #f))) diff --git a/src/bootstrap/gerbil/runtime/loader__0.scm b/src/bootstrap/gerbil/runtime/loader__0.scm index 2a9149308..31f8fee4f 100644 --- a/src/bootstrap/gerbil/runtime/loader__0.scm +++ b/src/bootstrap/gerbil/runtime/loader__0.scm @@ -1,125 +1,127 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/loader::timestamp 1708102800) + (define gerbil/runtime/loader::timestamp 1708370113) (begin (define current-module-library-path (make-parameter '#f)) (define current-module-registry (make-parameter '#f)) (define __reload-module (make-parameter '#f)) (define load-module__% - (lambda (_modpath69753_ _reload?69754_) - (let ((_$e69756_ - (if (let () (declare (not safe)) (not _reload?69754_)) - (let ((__tmp74343 (current-module-registry))) + (lambda (_modpath77386_ _reload?77387_) + (let ((_$e77389_ + (if (let () (declare (not safe)) (not _reload?77387_)) + (let ((__tmp77408 (current-module-registry))) (declare (not safe)) - (table-ref __tmp74343 _modpath69753_ '#f)) + (hash-get __tmp77408 _modpath77386_)) '#f))) - (if _$e69756_ - _$e69756_ - (let ((_$e69759_ + (if _$e77389_ + _$e77389_ + (let ((_$e77392_ (let () (declare (not safe)) - (find-library-module _modpath69753_)))) - (if _$e69759_ - ((lambda (_path69762_) - (let ((_lpath69764_ (load _path69762_))) - (let ((__tmp74344 (current-module-registry))) + (find-library-module _modpath77386_)))) + (if _$e77392_ + ((lambda (_path77395_) + (let ((_lpath77397_ (load _path77395_))) + (let ((__tmp77409 (current-module-registry))) (declare (not safe)) - (table-set! __tmp74344 _modpath69753_ _lpath69764_)) - _lpath69764_)) - _$e69759_) - (error '"module not found" _modpath69753_))))))) + (hash-put! __tmp77409 _modpath77386_ _lpath77397_)) + _lpath77397_)) + _$e77392_) + (let () + (declare (not safe)) + (error '"module not found" _modpath77386_)))))))) (define load-module__0 - (lambda (_modpath69769_) - (let ((_reload?69771_ (__reload-module))) + (lambda (_modpath77402_) + (let ((_reload?77404_ (__reload-module))) (declare (not safe)) - (load-module__% _modpath69769_ _reload?69771_)))) + (load-module__% _modpath77402_ _reload?77404_)))) (define load-module - (lambda _g74346_ - (let ((_g74345_ (let () (declare (not safe)) (##length _g74346_)))) - (cond ((let () (declare (not safe)) (##fx= _g74345_ 1)) - (apply (lambda (_modpath69769_) + (lambda _g77411_ + (let ((_g77410_ (let () (declare (not safe)) (##length _g77411_)))) + (cond ((let () (declare (not safe)) (##fx= _g77410_ 1)) + (apply (lambda (_modpath77402_) (let () (declare (not safe)) - (load-module__0 _modpath69769_))) - _g74346_)) - ((let () (declare (not safe)) (##fx= _g74345_ 2)) - (apply (lambda (_modpath69773_ _reload?69774_) + (load-module__0 _modpath77402_))) + _g77411_)) + ((let () (declare (not safe)) (##fx= _g77410_ 2)) + (apply (lambda (_modpath77406_ _reload?77407_) (let () (declare (not safe)) - (load-module__% _modpath69773_ _reload?69774_))) - _g74346_)) + (load-module__% _modpath77406_ _reload?77407_))) + _g77411_)) (else (##raise-wrong-number-of-arguments-exception load-module - _g74346_)))))) + _g77411_)))))) (define find-library-module - (lambda (_modpath69687_) - (letrec ((_find-compiled-file69689_ - (lambda (_npath69741_) - (let ((_basepath69743_ + (lambda (_modpath77320_) + (letrec ((_find-compiled-file77322_ + (lambda (_npath77374_) + (let ((_basepath77376_ (let () (declare (not safe)) - (##string-append _npath69741_ '".o")))) - (let _lp69745_ ((_current69747_ '#f) (_n69748_ '1)) - (let ((_next69750_ - (let ((__tmp74347 (number->string _n69748_))) + (##string-append _npath77374_ '".o")))) + (let _lp77378_ ((_current77380_ '#f) (_n77381_ '1)) + (let ((_next77383_ + (let ((__tmp77412 (number->string _n77381_))) (declare (not safe)) (##string-append - _basepath69743_ - __tmp74347)))) + _basepath77376_ + __tmp77412)))) (if (let () (declare (not safe)) - (##file-exists? _next69750_)) - (let ((__tmp74348 + (##file-exists? _next77383_)) + (let ((__tmp77413 (let () (declare (not safe)) - (##fx+ _n69748_ '1)))) + (##fx+ _n77381_ '1)))) (declare (not safe)) - (_lp69745_ _next69750_ __tmp74348)) - _current69747_)))))) - (_find-source-file69690_ - (lambda (_npath69737_) - (let ((_spath69739_ (string-append _npath69737_ '".scm"))) + (_lp77378_ _next77383_ __tmp77413)) + _current77380_)))))) + (_find-source-file77323_ + (lambda (_npath77370_) + (let ((_spath77372_ (string-append _npath77370_ '".scm"))) (if (let () (declare (not safe)) - (##file-exists? _spath69739_)) - _spath69739_ + (##file-exists? _spath77372_)) + _spath77372_ '#f))))) - (let _lp69692_ ((_rest69694_ (current-module-library-path))) - (let* ((_rest6969569703_ _rest69694_) - (_else6969769711_ (lambda () '#f)) - (_K6969969725_ - (lambda (_rest69714_ _dir69715_) - (let* ((_npath69717_ + (let _lp77325_ ((_rest77327_ (current-module-library-path))) + (let* ((_rest7732877336_ _rest77327_) + (_else7733077344_ (lambda () '#f)) + (_K7733277358_ + (lambda (_rest77347_ _dir77348_) + (let* ((_npath77350_ (path-expand - _modpath69687_ - (path-expand _dir69715_))) - (_$e69719_ + _modpath77320_ + (path-expand _dir77348_))) + (_$e77352_ (let () (declare (not safe)) - (_find-compiled-file69689_ _npath69717_)))) - (if _$e69719_ - (path-normalize _$e69719_) - (let ((_$e69722_ + (_find-compiled-file77322_ _npath77350_)))) + (if _$e77352_ + (path-normalize _$e77352_) + (let ((_$e77355_ (let () (declare (not safe)) - (_find-source-file69690_ _npath69717_)))) - (if _$e69722_ - (path-normalize _$e69722_) + (_find-source-file77323_ _npath77350_)))) + (if _$e77355_ + (path-normalize _$e77355_) (let () (declare (not safe)) - (_lp69692_ _rest69714_))))))))) - (if (let () (declare (not safe)) (##pair? _rest6969569703_)) - (let ((_hd6970069728_ + (_lp77325_ _rest77347_))))))))) + (if (let () (declare (not safe)) (##pair? _rest7732877336_)) + (let ((_hd7733377361_ (let () (declare (not safe)) - (##car _rest6969569703_))) - (_tl6970169730_ + (##car _rest7732877336_))) + (_tl7733477363_ (let () (declare (not safe)) - (##cdr _rest6969569703_)))) - (let* ((_dir69733_ _hd6970069728_) - (_rest69735_ _tl6970169730_)) + (##cdr _rest7732877336_)))) + (let* ((_dir77366_ _hd7733377361_) + (_rest77368_ _tl7733477363_)) (declare (not safe)) - (_K6969969725_ _rest69735_ _dir69733_))) - (let () (declare (not safe)) (_else6969769711_)))))))))) + (_K7733277358_ _rest77368_ _dir77366_))) + (let () (declare (not safe)) (_else7733077344_)))))))))) diff --git a/src/bootstrap/gerbil/runtime/loader__rt.scm b/src/bootstrap/gerbil/runtime/loader__rt.scm index 0d66f8e5a..78622fe09 100644 --- a/src/bootstrap/gerbil/runtime/loader__rt.scm +++ b/src/bootstrap/gerbil/runtime/loader__rt.scm @@ -2,5 +2,6 @@ (begin (begin (load-module "gerbil/runtime/gambit__rt") - (load-module "gerbil/runtime/util__rt")) + (load-module "gerbil/runtime/util__rt") + (load-module "gerbil/runtime/hash__rt")) (load-module "gerbil/runtime/loader__0")) diff --git a/src/bootstrap/gerbil/runtime/mop.ssi b/src/bootstrap/gerbil/runtime/mop.ssi index 104777cb8..fa6c4bb77 100644 --- a/src/bootstrap/gerbil/runtime/mop.ssi +++ b/src/bootstrap/gerbil/runtime/mop.ssi @@ -6,6 +6,7 @@ namespace: #f (%#import :gerbil/runtime/gambit :gerbil/runtime/util + :gerbil/runtime/table :gerbil/runtime/c3) (%#define-runtime type-flag-opaque type-flag-opaque) (%#define-runtime type-flag-extensible type-flag-extensible) diff --git a/src/bootstrap/gerbil/runtime/mop.ssxi.ss b/src/bootstrap/gerbil/runtime/mop.ssxi.ss index c88d0b169..090530d22 100644 --- a/src/bootstrap/gerbil/runtime/mop.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/mop.ssxi.ss @@ -144,14 +144,12 @@ package: gerbil/runtime (declare-type unchecked-slot-set! (@lambda 3 #f)) (declare-type slot-ref__% (@lambda 3 #f)) (declare-type slot-ref__0 (@lambda 2 #f)) - (declare-type slot-ref (@case-lambda (2 #f) (3 #f))) + (declare-type slot-ref (@case-lambda (2 slot-ref__0) (3 slot-ref__%))) (declare-type slot-set!__% (@lambda 4 #f)) (declare-type slot-set!__0 (@lambda 3 #f)) - (declare-type slot-set! (@case-lambda (3 #f) (4 #f))) + (declare-type slot-set! (@case-lambda (3 slot-set!__0) (4 slot-set!__%))) (declare-type __slot-error (@lambda 2 #f)) (declare-type subclass? (@lambda 2 #f)) - (declare-type object? (@lambda 1 #f)) - (declare-type object-type (@lambda 1 #f)) (declare-type direct-instance? (ast-rules @@ -262,7 +260,9 @@ package: gerbil/runtime (declare-type builtin-method-ref (@lambda 3 #f)) (declare-type bind-method!__% (@lambda 4 #f)) (declare-type bind-method!__0 (@lambda 3 #f)) - (declare-type bind-method! (@case-lambda (3 #f) (4 #f))) + (declare-type + bind-method! + (@case-lambda (3 bind-method!__0) (4 bind-method!__%))) (declare-type bind-specializer! (@lambda 2 #f)) (declare-type seal-class! (@lambda 1 #f)) (declare-type next-method (@lambda 3 #f)) diff --git a/src/bootstrap/gerbil/runtime/mop__0.scm b/src/bootstrap/gerbil/runtime/mop__0.scm index 665e416a3..f336e9ba7 100644 --- a/src/bootstrap/gerbil/runtime/mop__0.scm +++ b/src/bootstrap/gerbil/runtime/mop__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/mop::timestamp 1708102801) + (define gerbil/runtime/mop::timestamp 1708370113) (begin (define type-flag-opaque '1) (define type-flag-extensible '2) @@ -12,7 +12,7 @@ (define class-type-flag-metaclass '4096) (define class::t.id 'gerbil#class::t) (define class::t - (let* ((_slots85885_ + (let* ((_slots63347_ '(id name super flags @@ -23,2694 +23,2775 @@ properties constructor methods)) - (_slot-vector85887_ + (_slot-vector63349_ (list->vector - (let () (declare (not safe)) (cons '##type _slots85885_)))) - (_slot-table85894_ - (let ((_slot-table85889_ - (let () (declare (not safe)) (make-table 'test: eq?)))) + (let () (declare (not safe)) (cons '#f _slots63347_)))) + (_slot-table63356_ + (let ((_slot-table63351_ + (let () + (declare (not safe)) + (make-symbolic-table__% '#f '0)))) (for-each - (lambda (_slot85891_ _field85892_) + (lambda (_slot63353_ _field63354_) (let () (declare (not safe)) - (table-set! _slot-table85889_ _slot85891_ _field85892_)) - (let ((__tmp90602 (symbol->keyword _slot85891_))) + (symbolic-table-set! + _slot-table63351_ + _slot63353_ + _field63354_)) + (let ((__tmp63496 (symbol->keyword _slot63353_))) (declare (not safe)) - (table-set! _slot-table85889_ __tmp90602 _field85892_))) - _slots85885_ - (let ((__tmp90603 (length _slots85885_))) + (symbolic-table-set! + _slot-table63351_ + __tmp63496 + _field63354_))) + _slots63347_ + (let ((__tmp63497 (length _slots63347_))) (declare (not safe)) - (iota __tmp90603 '1))) - _slot-table85889_)) - (_flags85896_ + (iota__1 __tmp63497 '1))) + _slot-table63351_)) + (_flags63358_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_fields85902_ + (_fields63364_ (list->vector (apply append - (map (lambda (_g8589785899_) (list _g8589785899_ '5 '#f)) + (map (lambda (_g6335963361_) (list _g6335963361_ '5 '#f)) (let () (declare (not safe)) - (drop _slots85885_ '5)))))) - (_properties85904_ - (let ((__tmp90606 - (let ((__tmp90607 + (drop _slots63347_ '5)))))) + (_properties63366_ + (let ((__tmp63500 + (let ((__tmp63501 (let () (declare (not safe)) - (foldr1 cons '() _slots85885_)))) + (foldr1 cons '() _slots63347_)))) (declare (not safe)) - (cons 'direct-slots: __tmp90607))) - (__tmp90604 - (let ((__tmp90605 + (cons 'direct-slots: __tmp63501))) + (__tmp63498 + (let ((__tmp63499 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp90605 '())))) + (cons __tmp63499 '())))) (declare (not safe)) - (cons __tmp90606 __tmp90604))) - (_t85906_ + (cons __tmp63500 __tmp63498))) + (_t63368_ (let () (declare (not safe)) (##structure '#f class::t.id 'class - _flags85896_ + _flags63358_ ##type-type - _fields85902_ + _fields63364_ '() - _slot-vector85887_ - _slot-table85894_ - _properties85904_ + _slot-vector63349_ + _slot-table63356_ + _properties63366_ '#f '#f)))) - (let () (declare (not safe)) (##structure-type-set! _t85906_ _t85906_)) - _t85906_)) + (let () (declare (not safe)) (##structure-type-set! _t63368_ _t63368_)) + _t63368_)) (define class-type? - (lambda (_obj85883_) + (lambda (_obj63345_) (let () (declare (not safe)) - (##structure-instance-of? _obj85883_ class::t.id)))) + (##structure-instance-of? _obj63345_ class::t.id)))) (define class-type=? - (lambda (_x85880_ _y85881_) - (let ((__tmp90609 (##structure-ref _x85880_ '1 class::t '#f)) - (__tmp90608 (##structure-ref _y85881_ '1 class::t '#f))) + (lambda (_x63342_ _y63343_) + (let ((__tmp63503 (##structure-ref _x63342_ '1 class::t '#f)) + (__tmp63502 (##structure-ref _y63343_ '1 class::t '#f))) (declare (not safe)) - (eq? __tmp90609 __tmp90608)))) + (eq? __tmp63503 __tmp63502)))) (define type-opaque? - (lambda (_type85878_) - (let ((__tmp90610 - (let ((__tmp90611 + (lambda (_type63340_) + (let ((__tmp63504 + (let ((__tmp63505 (let () (declare (not safe)) - (##type-flags _type85878_)))) + (##type-flags _type63340_)))) (declare (not safe)) - (##fxand __tmp90611 type-flag-opaque)))) + (##fxand __tmp63505 type-flag-opaque)))) (declare (not safe)) - (##fx= __tmp90610 type-flag-opaque)))) + (##fx= __tmp63504 type-flag-opaque)))) (define type-extensible? - (lambda (_type85876_) - (let ((__tmp90612 - (let ((__tmp90613 + (lambda (_type63338_) + (let ((__tmp63506 + (let ((__tmp63507 (let () (declare (not safe)) - (##type-flags _type85876_)))) + (##type-flags _type63338_)))) (declare (not safe)) - (##fxand __tmp90613 type-flag-extensible)))) + (##fxand __tmp63507 type-flag-extensible)))) (declare (not safe)) - (##fx= __tmp90612 type-flag-extensible)))) + (##fx= __tmp63506 type-flag-extensible)))) (define class-type-final? - (lambda (_type85874_) - (let ((__tmp90614 - (let ((__tmp90615 + (lambda (_type63336_) + (let ((__tmp63508 + (let ((__tmp63509 (let () (declare (not safe)) - (##type-flags _type85874_)))) + (##type-flags _type63336_)))) (declare (not safe)) - (##fxand __tmp90615 type-flag-extensible)))) + (##fxand __tmp63509 type-flag-extensible)))) (declare (not safe)) - (##fx= __tmp90614 '0)))) + (##fx= __tmp63508 '0)))) (define class-type-struct? - (lambda (_klass85872_) - (let ((__tmp90616 - (let ((__tmp90617 + (lambda (_klass63334_) + (let ((__tmp63510 + (let ((__tmp63511 (let () (declare (not safe)) - (##type-flags _klass85872_)))) + (##type-flags _klass63334_)))) (declare (not safe)) - (##fxand __tmp90617 class-type-flag-struct)))) + (##fxand __tmp63511 class-type-flag-struct)))) (declare (not safe)) - (##fx= __tmp90616 class-type-flag-struct)))) + (##fx= __tmp63510 class-type-flag-struct)))) (define class-type-sealed? - (lambda (_klass85870_) - (let ((__tmp90618 - (let ((__tmp90619 + (lambda (_klass63332_) + (let ((__tmp63512 + (let ((__tmp63513 (let () (declare (not safe)) - (##type-flags _klass85870_)))) + (##type-flags _klass63332_)))) (declare (not safe)) - (##fxand __tmp90619 class-type-flag-sealed)))) + (##fxand __tmp63513 class-type-flag-sealed)))) (declare (not safe)) - (##fx= __tmp90618 class-type-flag-sealed)))) + (##fx= __tmp63512 class-type-flag-sealed)))) (define class-type-metaclass? - (lambda (_klass85868_) - (let ((__tmp90620 - (let ((__tmp90621 + (lambda (_klass63330_) + (let ((__tmp63514 + (let ((__tmp63515 (let () (declare (not safe)) - (##type-flags _klass85868_)))) + (##type-flags _klass63330_)))) (declare (not safe)) - (##fxand __tmp90621 class-type-flag-metaclass)))) + (##fxand __tmp63515 class-type-flag-metaclass)))) (declare (not safe)) - (##fx= __tmp90620 class-type-flag-metaclass)))) + (##fx= __tmp63514 class-type-flag-metaclass)))) (define properties-form - (lambda (_properties85834_) - (map (lambda (_e8583585837_) - (let* ((_g8583985846_ _e8583585837_) - (_E8584185850_ - (lambda () (error '"No clause matching" _g8583985846_))) - (_K8584285856_ - (lambda (_val85853_ _key85854_) + (lambda (_properties63296_) + (map (lambda (_e6329763299_) + (let* ((_g6330163308_ _e6329763299_) + (_E6330363312_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" _g6330163308_)))) + (_K6330463318_ + (lambda (_val63315_ _key63316_) (if (let () (declare (not safe)) - (eq? _key85854_ 'direct-supers:)) - (let ((__tmp90622 (map class-type-id _val85853_))) + (eq? _key63316_ 'direct-supers:)) + (let ((__tmp63516 (map class-type-id _val63315_))) (declare (not safe)) - (cons _key85854_ __tmp90622)) + (cons _key63316_ __tmp63516)) (let () (declare (not safe)) - (cons _key85854_ _val85853_)))))) - (if (let () (declare (not safe)) (##pair? _g8583985846_)) - (let ((_hd8584385859_ + (cons _key63316_ _val63315_)))))) + (if (let () (declare (not safe)) (##pair? _g6330163308_)) + (let ((_hd6330563321_ (let () (declare (not safe)) - (##car _g8583985846_))) - (_tl8584485861_ + (##car _g6330163308_))) + (_tl6330663323_ (let () (declare (not safe)) - (##cdr _g8583985846_)))) - (let* ((_key85864_ _hd8584385859_) - (_val85866_ _tl8584485861_)) + (##cdr _g6330163308_)))) + (let* ((_key63326_ _hd6330563321_) + (_val63328_ _tl6330663323_)) (declare (not safe)) - (_K8584285856_ _val85866_ _key85864_))) - (let () (declare (not safe)) (_E8584185850_))))) - _properties85834_))) + (_K6330463318_ _val63328_ _key63326_))) + (let () (declare (not safe)) (_E6330363312_))))) + _properties63296_))) (define make-class-type-descriptor - (lambda (_type-id85733_ - _type-name85734_ - _type-super85735_ - _precedence-list85736_ - _slot-vector85737_ - _properties85738_ - _constructor85739_ - _slot-table85740_ - _methods85741_) - (letrec ((_make-props!85743_ - (lambda (_key85803_) - (letrec* ((_ht85805_ + (lambda (_type-id63195_ + _type-name63196_ + _type-super63197_ + _precedence-list63198_ + _slot-vector63199_ + _properties63200_ + _constructor63201_ + _slot-table63202_ + _methods63203_) + (letrec ((_make-props!63205_ + (lambda (_key63265_) + (letrec* ((_ht63267_ (let () (declare (not safe)) - (make-table 'test: eq?))) - (_put-slots!85806_ - (lambda (_ht85827_ _slots85828_) + (make-symbolic-table__% '#f '0))) + (_put-slots!63268_ + (lambda (_ht63289_ _slots63290_) (for-each - (lambda (_g8582985831_) + (lambda (_g6329163293_) (let () (declare (not safe)) - (table-set! - _ht85827_ - _g8582985831_ + (symbolic-table-set! + _ht63289_ + _g6329163293_ '#t))) - _slots85828_))) - (_put-alist!85807_ - (lambda (_ht85816_ _key85817_ _alist85818_) - (let ((_$e85820_ + _slots63290_))) + (_put-alist!63269_ + (lambda (_ht63278_ _key63279_ _alist63280_) + (let ((_$e63282_ (let () (declare (not safe)) - (assgetq _key85817_ _alist85818_)))) - (if _$e85820_ - ((lambda (_g8582285824_) + (assgetq__0 + _key63279_ + _alist63280_)))) + (if _$e63282_ + ((lambda (_g6328463286_) (let () (declare (not safe)) - (_put-slots!85806_ - _ht85816_ - _g8582285824_))) - _$e85820_) + (_put-slots!63268_ + _ht63278_ + _g6328463286_))) + _$e63282_) '#!void))))) (let () (declare (not safe)) - (_put-alist!85807_ - _ht85805_ - _key85803_ - _properties85738_)) + (_put-alist!63269_ + _ht63267_ + _key63265_ + _properties63200_)) (for-each - (lambda (_mixin85809_) - (let ((_alist85811_ + (lambda (_mixin63271_) + (let ((_alist63273_ (##structure-ref - _mixin85809_ + _mixin63271_ '9 class::t '#f))) (if (or (let () (declare (not safe)) - (assgetq 'transparent: _alist85811_)) - (let ((__tmp90624 + (assgetq__0 'transparent: _alist63273_)) + (let ((__tmp63518 (let () (declare (not safe)) - (assgetq _key85803_ - _alist85811_)))) + (assgetq__0 + _key63265_ + _alist63273_)))) (declare (not safe)) - (eq? '#t __tmp90624))) - (let ((__tmp90623 + (eq? '#t __tmp63518))) + (let ((__tmp63517 (let () (declare (not safe)) - (class-type-slot-list _mixin85809_)))) + (class-type-slot-list _mixin63271_)))) (declare (not safe)) - (_put-slots!85806_ _ht85805_ __tmp90623)) + (_put-slots!63268_ _ht63267_ __tmp63517)) (let () (declare (not safe)) - (_put-alist!85807_ - _ht85805_ - _key85803_ - _alist85811_))))) - _precedence-list85736_) - _ht85805_)))) - (let* ((_transparent?85745_ + (_put-alist!63269_ + _ht63267_ + _key63265_ + _alist63273_))))) + _precedence-list63198_) + _ht63267_)))) + (let* ((_transparent?63207_ (let () (declare (not safe)) - (assgetq 'transparent: _properties85738_))) - (_all-slots-printable?85750_ - (let ((_$e85747_ _transparent?85745_)) - (if _$e85747_ - _$e85747_ - (let ((__tmp90625 + (assgetq__0 'transparent: _properties63200_))) + (_all-slots-printable?63212_ + (let ((_$e63209_ _transparent?63207_)) + (if _$e63209_ + _$e63209_ + (let ((__tmp63519 (let () (declare (not safe)) - (assgetq 'print: _properties85738_)))) + (assgetq__0 'print: _properties63200_)))) (declare (not safe)) - (eq? '#t __tmp90625))))) - (_printable85752_ + (eq? '#t __tmp63519))))) + (_printable63214_ (if (let () (declare (not safe)) - (not _all-slots-printable?85750_)) + (not _all-slots-printable?63212_)) (let () (declare (not safe)) - (_make-props!85743_ 'print:)) + (_make-props!63205_ 'print:)) '#f)) - (_all-slots-equalable?85757_ - (let ((_$e85754_ _transparent?85745_)) - (if _$e85754_ - _$e85754_ - (let ((__tmp90626 + (_all-slots-equalable?63219_ + (let ((_$e63216_ _transparent?63207_)) + (if _$e63216_ + _$e63216_ + (let ((__tmp63520 (let () (declare (not safe)) - (assgetq 'equal: _properties85738_)))) + (assgetq__0 'equal: _properties63200_)))) (declare (not safe)) - (eq? '#t __tmp90626))))) - (_equalable85759_ + (eq? '#t __tmp63520))))) + (_equalable63221_ (if (let () (declare (not safe)) - (not _all-slots-equalable?85757_)) + (not _all-slots-equalable?63219_)) (let () (declare (not safe)) - (_make-props!85743_ 'equal:)) + (_make-props!63205_ 'equal:)) '#f)) - (_first-new-field85761_ + (_first-new-field63223_ (if (let () (declare (not safe)) (##structure-instance-of? - _type-super85735_ + _type-super63197_ 'gerbil#class::t)) - (let ((__tmp90627 + (let ((__tmp63521 (##structure-ref - _type-super85735_ + _type-super63197_ '7 class::t '#f))) (declare (not safe)) - (##vector-length __tmp90627)) + (##vector-length __tmp63521)) '1)) - (_field-info-length85763_ - (let ((__tmp90628 - (let ((__tmp90629 + (_field-info-length63225_ + (let ((__tmp63522 + (let ((__tmp63523 (let () (declare (not safe)) - (##vector-length _slot-vector85737_)))) + (##vector-length _slot-vector63199_)))) (declare (not safe)) - (##fx- __tmp90629 _first-new-field85761_)))) + (##fx- __tmp63523 _first-new-field63223_)))) (declare (not safe)) - (##fx* '3 __tmp90628))) - (_field-info85765_ (make-vector _field-info-length85763_ '#f)) - (_struct?85767_ + (##fx* '3 __tmp63522))) + (_field-info63227_ (make-vector _field-info-length63225_ '#f)) + (_struct?63229_ (let () (declare (not safe)) - (assgetq 'struct: _properties85738_))) - (_final?85769_ + (assgetq__0 'struct: _properties63200_))) + (_final?63231_ (let () (declare (not safe)) - (assgetq 'final: _properties85738_))) - (_metaclass85777_ - (let ((_metaclass8577085772_ + (assgetq__0 'final: _properties63200_))) + (_metaclass63239_ + (let ((_metaclass6323263234_ (let () (declare (not safe)) - (assgetq 'metaclass: _properties85738_)))) - (if _metaclass8577085772_ - (let ((_metaclass85775_ _metaclass8577085772_)) + (assgetq__0 'metaclass: _properties63200_)))) + (if _metaclass6323263234_ + (let ((_metaclass63237_ _metaclass6323263234_)) (if (let () (declare (not safe)) (##structure-instance-of? - _metaclass85775_ + _metaclass63237_ 'gerbil#class::t)) '#!void - (error '"metaclass is not a class type" - 'class: - _type-id85733_ - 'metaclass: - _metaclass85775_)) - _metaclass85775_) + (let () + (declare (not safe)) + (error '"metaclass is not a class type" + 'class: + _type-id63195_ + 'metaclass: + _metaclass63237_))) + _metaclass63237_) '#f))) - (_opaque?85782_ - (let ((_$e85779_ + (_opaque?63244_ + (let ((_$e63241_ (let () (declare (not safe)) - (not _all-slots-equalable?85757_)))) - (if _$e85779_ - _$e85779_ - (if _type-super85735_ + (not _all-slots-equalable?63219_)))) + (if _$e63241_ + _$e63241_ + (if _type-super63197_ (let () (declare (not safe)) - (type-opaque? _type-super85735_)) + (type-opaque? _type-super63197_)) '#f)))) - (_type-flags85784_ - (let ((__tmp90633 (if _final?85769_ '0 type-flag-extensible)) - (__tmp90632 (if _opaque?85782_ type-flag-opaque '0)) - (__tmp90631 - (if _struct?85767_ class-type-flag-struct '0)) - (__tmp90630 - (if _metaclass85777_ class-type-flag-metaclass '0))) + (_type-flags63246_ + (let ((__tmp63527 (if _final?63231_ '0 type-flag-extensible)) + (__tmp63526 (if _opaque?63244_ type-flag-opaque '0)) + (__tmp63525 + (if _struct?63229_ class-type-flag-struct '0)) + (__tmp63524 + (if _metaclass63239_ class-type-flag-metaclass '0))) (declare (not safe)) (##fxior type-flag-id type-flag-concrete - __tmp90633 - __tmp90632 - __tmp90631 - __tmp90630)))) - (let _loop85787_ ((_i85789_ _first-new-field85761_) (_j85790_ '0)) + __tmp63527 + __tmp63526 + __tmp63525 + __tmp63524)))) + (let _loop63249_ ((_i63251_ _first-new-field63223_) (_j63252_ '0)) (if (let () (declare (not safe)) - (##fx< _j85790_ _field-info-length85763_)) - (let* ((_slot85792_ + (##fx< _j63252_ _field-info-length63225_)) + (let* ((_slot63254_ (let () (declare (not safe)) - (##vector-ref _slot-vector85737_ _i85789_))) - (_flags85800_ - (if _transparent?85745_ + (##vector-ref _slot-vector63199_ _i63251_))) + (_flags63262_ + (if _transparent?63207_ '0 - (let ((__tmp90635 - (if (or _all-slots-printable?85750_ + (let ((__tmp63529 + (if (or _all-slots-printable?63212_ (let () (declare (not safe)) - (table-ref - _printable85752_ - _slot85792_ + (symbolic-table-ref + _printable63214_ + _slot63254_ '#f))) '0 '1)) - (__tmp90634 - (if (or _all-slots-equalable?85757_ + (__tmp63528 + (if (or _all-slots-equalable?63219_ (let () (declare (not safe)) - (table-ref - _equalable85759_ - _slot85792_ + (symbolic-table-ref + _equalable63221_ + _slot63254_ '#f))) '0 '4))) (declare (not safe)) - (##fxior __tmp90635 __tmp90634))))) - (vector-set! _field-info85765_ _j85790_ _slot85792_) + (##fxior __tmp63529 __tmp63528))))) + (vector-set! _field-info63227_ _j63252_ _slot63254_) (vector-set! - _field-info85765_ - (let () (declare (not safe)) (##fx+ _j85790_ '1)) - _flags85800_) - (let ((__tmp90637 - (let () (declare (not safe)) (##fx+ _i85789_ '1))) - (__tmp90636 - (let () (declare (not safe)) (##fx+ _j85790_ '3)))) + _field-info63227_ + (let () (declare (not safe)) (##fx+ _j63252_ '1)) + _flags63262_) + (let ((__tmp63531 + (let () (declare (not safe)) (##fx+ _i63251_ '1))) + (__tmp63530 + (let () (declare (not safe)) (##fx+ _j63252_ '3)))) (declare (not safe)) - (_loop85787_ __tmp90637 __tmp90636))) + (_loop63249_ __tmp63531 __tmp63530))) '#!void)) - (if _metaclass85777_ + (if _metaclass63239_ (let () (declare (not safe)) (make-instance - _metaclass85777_ - _type-id85733_ - _type-name85734_ - _type-flags85784_ - _type-super85735_ - _field-info85765_ - _precedence-list85736_ - _slot-vector85737_ - _slot-table85740_ - _properties85738_ - _constructor85739_ - _methods85741_)) + _metaclass63239_ + _type-id63195_ + _type-name63196_ + _type-flags63246_ + _type-super63197_ + _field-info63227_ + _precedence-list63198_ + _slot-vector63199_ + _slot-table63202_ + _properties63200_ + _constructor63201_ + _methods63203_)) (let () (declare (not safe)) (##structure class::t - _type-id85733_ - _type-name85734_ - _type-flags85784_ - _type-super85735_ - _field-info85765_ - _precedence-list85736_ - _slot-vector85737_ - _slot-table85740_ - _properties85738_ - _constructor85739_ - _methods85741_))))))) + _type-id63195_ + _type-name63196_ + _type-flags63246_ + _type-super63197_ + _field-info63227_ + _precedence-list63198_ + _slot-vector63199_ + _slot-table63202_ + _properties63200_ + _constructor63201_ + _methods63203_))))))) (define class-type-id - (lambda (_klass85731_) + (lambda (_klass63193_) (let () (declare (not safe)) - (##structure-ref _klass85731_ '1 class::t 'id)))) + (##structure-ref _klass63193_ '1 class::t 'id)))) (define &class-type-id - (lambda (_klass85729_) + (lambda (_klass63191_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass85729_ '1 class::t 'id)))) + (##unchecked-structure-ref _klass63191_ '1 class::t 'id)))) (define class-type-id-set! - (lambda (_klass85726_ _val85727_) + (lambda (_klass63188_ _val63189_) (let () (declare (not safe)) - (##structure-set! _klass85726_ _val85727_ '1 class::t 'id)))) + (##structure-set! _klass63188_ _val63189_ '1 class::t 'id)))) (define &class-type-id-set! - (lambda (_klass85721_ _val85723_) + (lambda (_klass63183_ _val63185_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass85721_ - _val85723_ + _klass63183_ + _val63185_ '1 class::t 'id)))) (define class-type-name - (lambda (_klass85719_) + (lambda (_klass63181_) (let () (declare (not safe)) - (##structure-ref _klass85719_ '2 class::t 'name)))) + (##structure-ref _klass63181_ '2 class::t 'name)))) (define &class-type-name - (lambda (_klass85717_) + (lambda (_klass63179_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass85717_ '2 class::t 'name)))) + (##unchecked-structure-ref _klass63179_ '2 class::t 'name)))) (define class-type-name-set! - (lambda (_klass85714_ _val85715_) + (lambda (_klass63176_ _val63177_) (let () (declare (not safe)) - (##structure-set! _klass85714_ _val85715_ '2 class::t 'name)))) + (##structure-set! _klass63176_ _val63177_ '2 class::t 'name)))) (define &class-type-name-set! - (lambda (_klass85709_ _val85711_) + (lambda (_klass63171_ _val63173_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass85709_ - _val85711_ + _klass63171_ + _val63173_ '2 class::t 'name)))) (define class-type-super - (lambda (_klass85707_) + (lambda (_klass63169_) (let () (declare (not safe)) - (##structure-ref _klass85707_ '3 class::t 'super)))) + (##structure-ref _klass63169_ '3 class::t 'super)))) (define &class-type-super - (lambda (_klass85705_) + (lambda (_klass63167_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass85705_ '3 class::t 'super)))) + (##unchecked-structure-ref _klass63167_ '3 class::t 'super)))) (define class-type-super-set! - (lambda (_klass85702_ _val85703_) + (lambda (_klass63164_ _val63165_) (let () (declare (not safe)) - (##structure-set! _klass85702_ _val85703_ '3 class::t 'super)))) + (##structure-set! _klass63164_ _val63165_ '3 class::t 'super)))) (define &class-type-super-set! - (lambda (_klass85697_ _val85699_) + (lambda (_klass63159_ _val63161_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass85697_ - _val85699_ + _klass63159_ + _val63161_ '3 class::t 'super)))) (define class-type-flags - (lambda (_klass85695_) + (lambda (_klass63157_) (let () (declare (not safe)) - (##structure-ref _klass85695_ '4 class::t 'flags)))) + (##structure-ref _klass63157_ '4 class::t 'flags)))) (define &class-type-flags - (lambda (_klass85693_) + (lambda (_klass63155_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass85693_ '4 class::t 'flags)))) + (##unchecked-structure-ref _klass63155_ '4 class::t 'flags)))) (define class-type-flags-set! - (lambda (_klass85690_ _val85691_) + (lambda (_klass63152_ _val63153_) (let () (declare (not safe)) - (##structure-set! _klass85690_ _val85691_ '4 class::t 'flags)))) + (##structure-set! _klass63152_ _val63153_ '4 class::t 'flags)))) (define &class-type-flags-set! - (lambda (_klass85685_ _val85687_) + (lambda (_klass63147_ _val63149_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass85685_ - _val85687_ + _klass63147_ + _val63149_ '4 class::t 'flags)))) (define class-type-fields - (lambda (_klass85683_) + (lambda (_klass63145_) (let () (declare (not safe)) - (##structure-ref _klass85683_ '5 class::t 'fields)))) + (##structure-ref _klass63145_ '5 class::t 'fields)))) (define &class-type-fields - (lambda (_klass85681_) + (lambda (_klass63143_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass85681_ '5 class::t 'fields)))) + (##unchecked-structure-ref _klass63143_ '5 class::t 'fields)))) (define class-type-fields-set! - (lambda (_klass85678_ _val85679_) + (lambda (_klass63140_ _val63141_) (let () (declare (not safe)) - (##structure-set! _klass85678_ _val85679_ '5 class::t 'fields)))) + (##structure-set! _klass63140_ _val63141_ '5 class::t 'fields)))) (define &class-type-fields-set! - (lambda (_klass85673_ _val85675_) + (lambda (_klass63135_ _val63137_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass85673_ - _val85675_ + _klass63135_ + _val63137_ '5 class::t 'fields)))) (define class-type-precedence-list - (lambda (_klass85671_) + (lambda (_klass63133_) (let () (declare (not safe)) - (##structure-ref _klass85671_ '6 class::t 'precedence-list)))) + (##structure-ref _klass63133_ '6 class::t 'precedence-list)))) (define &class-type-precedence-list - (lambda (_klass85669_) + (lambda (_klass63131_) (let () (declare (not safe)) (##unchecked-structure-ref - _klass85669_ + _klass63131_ '6 class::t 'precedence-list)))) (define class-type-precedence-list-set! - (lambda (_klass85666_ _val85667_) + (lambda (_klass63128_ _val63129_) (let () (declare (not safe)) (##structure-set! - _klass85666_ - _val85667_ + _klass63128_ + _val63129_ '6 class::t 'precedence-list)))) (define &class-type-precedence-list-set! - (lambda (_klass85661_ _val85663_) + (lambda (_klass63123_ _val63125_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass85661_ - _val85663_ + _klass63123_ + _val63125_ '6 class::t 'precedence-list)))) (define class-type-slot-vector - (lambda (_klass85659_) + (lambda (_klass63121_) (let () (declare (not safe)) - (##structure-ref _klass85659_ '7 class::t 'slot-vector)))) + (##structure-ref _klass63121_ '7 class::t 'slot-vector)))) (define &class-type-slot-vector - (lambda (_klass85657_) + (lambda (_klass63119_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass85657_ '7 class::t 'slot-vector)))) + (##unchecked-structure-ref _klass63119_ '7 class::t 'slot-vector)))) (define class-type-slot-vector-set! - (lambda (_klass85654_ _val85655_) + (lambda (_klass63116_ _val63117_) (let () (declare (not safe)) (##structure-set! - _klass85654_ - _val85655_ + _klass63116_ + _val63117_ '7 class::t 'slot-vector)))) (define &class-type-slot-vector-set! - (lambda (_klass85649_ _val85651_) + (lambda (_klass63111_ _val63113_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass85649_ - _val85651_ + _klass63111_ + _val63113_ '7 class::t 'slot-vector)))) (define class-type-slot-table - (lambda (_klass85647_) + (lambda (_klass63109_) (let () (declare (not safe)) - (##structure-ref _klass85647_ '8 class::t 'slot-table)))) + (##structure-ref _klass63109_ '8 class::t 'slot-table)))) (define &class-type-slot-table - (lambda (_klass85645_) + (lambda (_klass63107_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass85645_ '8 class::t 'slot-table)))) + (##unchecked-structure-ref _klass63107_ '8 class::t 'slot-table)))) (define class-type-slot-table-set! - (lambda (_klass85642_ _val85643_) + (lambda (_klass63104_ _val63105_) (let () (declare (not safe)) - (##structure-set! _klass85642_ _val85643_ '8 class::t 'slot-table)))) + (##structure-set! _klass63104_ _val63105_ '8 class::t 'slot-table)))) (define &class-type-slot-table-set! - (lambda (_klass85637_ _val85639_) + (lambda (_klass63099_ _val63101_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass85637_ - _val85639_ + _klass63099_ + _val63101_ '8 class::t 'slot-table)))) (define class-type-properties - (lambda (_klass85635_) + (lambda (_klass63097_) (let () (declare (not safe)) - (##structure-ref _klass85635_ '9 class::t 'properties)))) + (##structure-ref _klass63097_ '9 class::t 'properties)))) (define &class-type-properties - (lambda (_klass85633_) + (lambda (_klass63095_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass85633_ '9 class::t 'properties)))) + (##unchecked-structure-ref _klass63095_ '9 class::t 'properties)))) (define class-type-properties-set! - (lambda (_klass85630_ _val85631_) + (lambda (_klass63092_ _val63093_) (let () (declare (not safe)) - (##structure-set! _klass85630_ _val85631_ '9 class::t 'properties)))) + (##structure-set! _klass63092_ _val63093_ '9 class::t 'properties)))) (define &class-type-properties-set! - (lambda (_klass85625_ _val85627_) + (lambda (_klass63087_ _val63089_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass85625_ - _val85627_ + _klass63087_ + _val63089_ '9 class::t 'properties)))) (define class-type-constructor - (lambda (_klass85623_) + (lambda (_klass63085_) (let () (declare (not safe)) - (##structure-ref _klass85623_ '10 class::t 'constructor)))) + (##structure-ref _klass63085_ '10 class::t 'constructor)))) (define &class-type-constructor - (lambda (_klass85621_) + (lambda (_klass63083_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass85621_ '10 class::t 'constructor)))) + (##unchecked-structure-ref _klass63083_ '10 class::t 'constructor)))) (define class-type-constructor-set! - (lambda (_klass85618_ _val85619_) + (lambda (_klass63080_ _val63081_) (let () (declare (not safe)) (##structure-set! - _klass85618_ - _val85619_ + _klass63080_ + _val63081_ '10 class::t 'constructor)))) (define &class-type-constructor-set! - (lambda (_klass85613_ _val85615_) + (lambda (_klass63075_ _val63077_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass85613_ - _val85615_ + _klass63075_ + _val63077_ '10 class::t 'constructor)))) (define class-type-methods - (lambda (_klass85611_) + (lambda (_klass63073_) (let () (declare (not safe)) - (##structure-ref _klass85611_ '11 class::t 'methods)))) + (##structure-ref _klass63073_ '11 class::t 'methods)))) (define &class-type-methods - (lambda (_klass85609_) + (lambda (_klass63071_) (let () (declare (not safe)) - (##unchecked-structure-ref _klass85609_ '11 class::t 'methods)))) + (##unchecked-structure-ref _klass63071_ '11 class::t 'methods)))) (define class-type-methods-set! - (lambda (_klass85606_ _val85607_) + (lambda (_klass63068_ _val63069_) (let () (declare (not safe)) - (##structure-set! _klass85606_ _val85607_ '11 class::t 'methods)))) + (##structure-set! _klass63068_ _val63069_ '11 class::t 'methods)))) (define &class-type-methods-set! - (lambda (_klass85601_ _val85603_) + (lambda (_klass63063_ _val63065_) (let () (declare (not safe)) (##unchecked-structure-set! - _klass85601_ - _val85603_ + _klass63063_ + _val63065_ '11 class::t 'methods)))) (define class-type-slot-list - (lambda (_klass85599_) - (cdr (vector->list (##structure-ref _klass85599_ '7 class::t '#f))))) + (lambda (_klass63061_) + (cdr (vector->list (##structure-ref _klass63061_ '7 class::t '#f))))) (define class-type-field-count - (lambda (_klass85597_) - (let ((__tmp90638 - (let ((__tmp90639 - (##structure-ref _klass85597_ '7 class::t '#f))) + (lambda (_klass63059_) + (let ((__tmp63532 + (let ((__tmp63533 + (##structure-ref _klass63059_ '7 class::t '#f))) (declare (not safe)) - (##vector-length __tmp90639)))) + (##vector-length __tmp63533)))) (declare (not safe)) - (##fx- __tmp90638 '1)))) + (##fx- __tmp63532 '1)))) (define class-type-seal! - (lambda (_klass85595_) - (let ((__tmp90640 - (let ((__tmp90641 + (lambda (_klass63057_) + (let ((__tmp63534 + (let ((__tmp63535 (let () (declare (not safe)) - (##type-flags _klass85595_)))) + (##type-flags _klass63057_)))) (declare (not safe)) - (##fxior class-type-flag-sealed __tmp90641)))) + (##fxior class-type-flag-sealed __tmp63535)))) (declare (not safe)) (##structure-set! - _klass85595_ - __tmp90640 + _klass63057_ + __tmp63534 '3 class::t class-type-seal!)))) (define &class-type-seal! - (lambda (_klass85593_) - (let ((__tmp90642 - (let ((__tmp90643 + (lambda (_klass63055_) + (let ((__tmp63536 + (let ((__tmp63537 (let () (declare (not safe)) - (##type-flags _klass85593_)))) + (##type-flags _klass63055_)))) (declare (not safe)) - (##fxior class-type-flag-sealed __tmp90643)))) + (##fxior class-type-flag-sealed __tmp63537)))) (declare (not safe)) (##unchecked-structure-set! - _klass85593_ - __tmp90642 + _klass63055_ + __tmp63536 '3 class::t class-type-seal!)))) (define substruct? - (lambda (_maybe-sub-struct85584_ _maybe-super-struct85585_) - (let ((_maybe-super-struct-id85587_ + (lambda (_maybe-sub-struct63046_ _maybe-super-struct63047_) + (let ((_maybe-super-struct-id63049_ (let () (declare (not safe)) - (##type-id _maybe-super-struct85585_)))) - (let _lp85589_ ((_super-struct85591_ _maybe-sub-struct85584_)) - (if (let () (declare (not safe)) (not _super-struct85591_)) + (##type-id _maybe-super-struct63047_)))) + (let _lp63051_ ((_super-struct63053_ _maybe-sub-struct63046_)) + (if (let () (declare (not safe)) (not _super-struct63053_)) '#f - (if (let ((__tmp90645 + (if (let ((__tmp63539 (let () (declare (not safe)) - (##type-id _super-struct85591_)))) + (##type-id _super-struct63053_)))) (declare (not safe)) - (eq? _maybe-super-struct-id85587_ __tmp90645)) + (eq? _maybe-super-struct-id63049_ __tmp63539)) '#t - (let ((__tmp90644 + (let ((__tmp63538 (let () (declare (not safe)) - (##type-super _super-struct85591_)))) + (##type-super _super-struct63053_)))) (declare (not safe)) - (_lp85589_ __tmp90644)))))))) + (_lp63051_ __tmp63538)))))))) (define base-struct/1 - (lambda (_klass85582_) + (lambda (_klass63044_) (if (let () (declare (not safe)) - (##structure-instance-of? _klass85582_ 'gerbil#class::t)) - (if (let () (declare (not safe)) (class-type-struct? _klass85582_)) - _klass85582_ - (let () (declare (not safe)) (##type-super _klass85582_))) - (if (let () (declare (not safe)) (not _klass85582_)) + (##structure-instance-of? _klass63044_ 'gerbil#class::t)) + (if (let () (declare (not safe)) (class-type-struct? _klass63044_)) + _klass63044_ + (let () (declare (not safe)) (##type-super _klass63044_))) + (if (let () (declare (not safe)) (not _klass63044_)) '#f - (error '"not a class or false" _klass85582_))))) + (let () + (declare (not safe)) + (error '"not a class or false" _klass63044_)))))) (define base-struct/2 - (lambda (_klass185570_ _klass285571_) - (let ((_s185573_ - (let () (declare (not safe)) (base-struct/1 _klass185570_))) - (_s285574_ - (let () (declare (not safe)) (base-struct/1 _klass285571_)))) - (if (or (let () (declare (not safe)) (not _s185573_)) - (and _s285574_ + (lambda (_klass163032_ _klass263033_) + (let ((_s163035_ + (let () (declare (not safe)) (base-struct/1 _klass163032_))) + (_s263036_ + (let () (declare (not safe)) (base-struct/1 _klass263033_)))) + (if (or (let () (declare (not safe)) (not _s163035_)) + (and _s263036_ (let () (declare (not safe)) - (substruct? _s185573_ _s285574_)))) - _s285574_ - (if (or (let () (declare (not safe)) (not _s285574_)) - (and _s185573_ + (substruct? _s163035_ _s263036_)))) + _s263036_ + (if (or (let () (declare (not safe)) (not _s263036_)) + (and _s163035_ (let () (declare (not safe)) - (substruct? _s285574_ _s185573_)))) - _s185573_ - (error '"bad mixin: incompatible struct bases" - _klass185570_ - _klass285571_ - _s185573_ - _s285574_)))))) + (substruct? _s263036_ _s163035_)))) + _s163035_ + (let () + (declare (not safe)) + (error '"bad mixin: incompatible struct bases" + _klass163032_ + _klass263033_ + _s163035_ + _s263036_))))))) (define base-struct/list - (lambda (_all-supers85454_) - (let* ((_all-supers8545585480_ _all-supers85454_) - (_E8546085484_ + (lambda (_all-supers62916_) + (let* ((_all-supers6291762942_ _all-supers62916_) + (_E6292262946_ (lambda () - (error '"No clause matching" _all-supers8545585480_)))) - (let ((_K8547885567_ (lambda () '#f)) - (_K8547585553_ - (lambda (_x85551_) - (let () (declare (not safe)) (base-struct/1 _x85551_)))) - (_K8547085530_ - (lambda (_y85527_ _x85528_) + (let () + (declare (not safe)) + (error '"No clause matching" _all-supers6291762942_))))) + (let ((_K6294063029_ (lambda () '#f)) + (_K6293763015_ + (lambda (_x63013_) + (let () (declare (not safe)) (base-struct/1 _x63013_)))) + (_K6293262992_ + (lambda (_y62989_ _x62990_) (let () (declare (not safe)) - (base-struct/2 _x85528_ _y85527_)))) - (_K8546185491_ - (lambda (_y85488_ _x85489_) + (base-struct/2 _x62990_ _y62989_)))) + (_K6292362953_ + (lambda (_y62950_ _x62951_) (let () (declare (not safe)) - (foldr1 base-struct/2 _x85489_ _y85488_))))) - (let* ((___match9059790598_ - (lambda (_hd8546285494_ _tl8546385496_) - (let ((_x85499_ _hd8546285494_)) - (letrec ((_splice-rest8546585501_ - (lambda (_rest8546985508_ _y85510_) + (foldr1 base-struct/2 _x62951_ _y62950_))))) + (let* ((___match6349163492_ + (lambda (_hd6292462956_ _tl6292562958_) + (let ((_x62961_ _hd6292462956_)) + (letrec ((_splice-rest6292762963_ + (lambda (_rest6293162970_ _y62972_) (if (let () (declare (not safe)) - (##null? _rest8546985508_)) + (##null? _rest6293162970_)) (let () (declare (not safe)) - (_K8546185491_ _y85510_ _x85499_)) + (_K6292362953_ _y62972_ _x62961_)) (let () (declare (not safe)) - (_E8546085484_))))) - (_splice-try8546785503_ - (lambda (_hd8546885512_ - _rest8546985514_ - _y8546485515_) - (let ((_y85518_ _hd8546885512_)) - (let ((__tmp90647 + (_E6292262946_))))) + (_splice-try6292962965_ + (lambda (_hd6293062974_ + _rest6293162976_ + _y6292662977_) + (let ((_y62980_ _hd6293062974_)) + (let ((__tmp63541 (let () (declare (not safe)) - (##cdr _rest8546985514_))) - (__tmp90646 + (##cdr _rest6293162976_))) + (__tmp63540 (let () (declare (not safe)) - (cons _y85518_ _y8546485515_)))) + (cons _y62980_ _y6292662977_)))) (declare (not safe)) - (_splice-loop8546685505_ - __tmp90647 - __tmp90646))))) - (_splice-loop8546685505_ - (lambda (_rest8546985520_ _y8546485521_) + (_splice-loop6292862967_ + __tmp63541 + __tmp63540))))) + (_splice-loop6292862967_ + (lambda (_rest6293162982_ _y6292662983_) (if (let () (declare (not safe)) - (pair? _rest8546985520_)) - (let ((__tmp90649 + (pair? _rest6293162982_)) + (let ((__tmp63543 (let () (declare (not safe)) - (##car _rest8546985520_)))) + (##car _rest6293162982_)))) (declare (not safe)) - (_splice-try8546785503_ - __tmp90649 - _rest8546985520_ - _y8546485521_)) - (let ((__tmp90648 - (reverse _y8546485521_))) + (_splice-try6292962965_ + __tmp63543 + _rest6293162982_ + _y6292662983_)) + (let ((__tmp63542 + (reverse _y6292662983_))) (declare (not safe)) - (_splice-rest8546585501_ - _rest8546985520_ - __tmp90648)))))) + (_splice-rest6292762963_ + _rest6293162982_ + __tmp63542)))))) (let () (declare (not safe)) - (_splice-loop8546685505_ _tl8546385496_ '())))))) - (_try-match8545785563_ + (_splice-loop6292862967_ _tl6292562958_ '())))))) + (_try-match6291963025_ (lambda () (if (let () (declare (not safe)) - (##pair? _all-supers8545585480_)) - (let ((_tl8547785558_ + (##pair? _all-supers6291762942_)) + (let ((_tl6293963020_ (let () (declare (not safe)) - (##cdr _all-supers8545585480_))) - (_hd8547685556_ + (##cdr _all-supers6291762942_))) + (_hd6293863018_ (let () (declare (not safe)) - (##car _all-supers8545585480_)))) + (##car _all-supers6291762942_)))) (if (let () (declare (not safe)) - (##null? _tl8547785558_)) - (let ((_x85561_ _hd8547685556_)) + (##null? _tl6293963020_)) + (let ((_x63023_ _hd6293863018_)) (declare (not safe)) - (base-struct/1 _x85561_)) + (base-struct/1 _x63023_)) (if (let () (declare (not safe)) - (##pair? _tl8547785558_)) - (let ((_tl8547485542_ + (##pair? _tl6293963020_)) + (let ((_tl6293663004_ (let () (declare (not safe)) - (##cdr _tl8547785558_))) - (_hd8547385540_ + (##cdr _tl6293963020_))) + (_hd6293563002_ (let () (declare (not safe)) - (##car _tl8547785558_)))) + (##car _tl6293963020_)))) (if (let () (declare (not safe)) - (##null? _tl8547485542_)) - (let ((_x85538_ _hd8547685556_) - (_y85545_ _hd8547385540_)) + (##null? _tl6293663004_)) + (let ((_x63000_ _hd6293863018_) + (_y63007_ _hd6293563002_)) (let () (declare (not safe)) - (_K8547085530_ - _y85545_ - _x85538_))) - (___match9059790598_ - _hd8547685556_ - _tl8547785558_))) - (___match9059790598_ - _hd8547685556_ - _tl8547785558_)))) - (let () (declare (not safe)) (_E8546085484_)))))) + (_K6293262992_ + _y63007_ + _x63000_))) + (___match6349163492_ + _hd6293863018_ + _tl6293963020_))) + (___match6349163492_ + _hd6293863018_ + _tl6293963020_)))) + (let () (declare (not safe)) (_E6292262946_)))))) (if (let () (declare (not safe)) - (##null? _all-supers8545585480_)) - (let () (declare (not safe)) (_K8547885567_)) - (let () (declare (not safe)) (_try-match8545785563_)))))))) + (##null? _all-supers6291762942_)) + (let () (declare (not safe)) (_K6294063029_)) + (let () (declare (not safe)) (_try-match6291963025_)))))))) (define base-struct - (lambda _all-supers85452_ - (let () (declare (not safe)) (base-struct/list _all-supers85452_)))) + (lambda _all-supers62914_ + (let () (declare (not safe)) (base-struct/list _all-supers62914_)))) (define find-super-constructor - (lambda (_super85404_) - (let _lp85406_ ((_rest85408_ _super85404_) (_constructor85409_ '#f)) - (let* ((_rest8541085418_ _rest85408_) - (_else8541285426_ (lambda () _constructor85409_)) - (_K8541485440_ - (lambda (_rest85429_ _hd85430_) - (let ((_$e85432_ + (lambda (_super62866_) + (let _lp62868_ ((_rest62870_ _super62866_) (_constructor62871_ '#f)) + (let* ((_rest6287262880_ _rest62870_) + (_else6287462888_ (lambda () _constructor62871_)) + (_K6287662902_ + (lambda (_rest62891_ _hd62892_) + (let ((_$e62894_ (let () (declare (not safe)) (##unchecked-structure-ref - _hd85430_ + _hd62892_ '10 class::t '#f)))) - (if _$e85432_ - ((lambda (_xconstructor85435_) + (if _$e62894_ + ((lambda (_xconstructor62897_) (if (or (let () (declare (not safe)) - (not _constructor85409_)) + (not _constructor62871_)) (let () (declare (not safe)) - (eq? _constructor85409_ - _xconstructor85435_))) + (eq? _constructor62871_ + _xconstructor62897_))) (let () (declare (not safe)) - (_lp85406_ _rest85429_ _xconstructor85435_)) - (error '"conflicting implicit constructors" - _constructor85409_ - _xconstructor85435_))) - _$e85432_) + (_lp62868_ _rest62891_ _xconstructor62897_)) + (let () + (declare (not safe)) + (error '"conflicting implicit constructors" + _constructor62871_ + _xconstructor62897_)))) + _$e62894_) (let () (declare (not safe)) - (_lp85406_ _rest85429_ _constructor85409_))))))) - (if (let () (declare (not safe)) (##pair? _rest8541085418_)) - (let ((_hd8541585443_ - (let () (declare (not safe)) (##car _rest8541085418_))) - (_tl8541685445_ - (let () (declare (not safe)) (##cdr _rest8541085418_)))) - (let* ((_hd85448_ _hd8541585443_) - (_rest85450_ _tl8541685445_)) + (_lp62868_ _rest62891_ _constructor62871_))))))) + (if (let () (declare (not safe)) (##pair? _rest6287262880_)) + (let ((_hd6287762905_ + (let () (declare (not safe)) (##car _rest6287262880_))) + (_tl6287862907_ + (let () (declare (not safe)) (##cdr _rest6287262880_)))) + (let* ((_hd62910_ _hd6287762905_) + (_rest62912_ _tl6287862907_)) (declare (not safe)) - (_K8541485440_ _rest85450_ _hd85448_))) - (let () (declare (not safe)) (_else8541285426_))))))) + (_K6287662902_ _rest62912_ _hd62910_))) + (let () (declare (not safe)) (_else6287462888_))))))) (define compute-class-slots - (lambda (_class-precedence-list85380_ _direct-slots85381_) - (let* ((_next-slot85383_ '1) - (_slot-table85385_ - (let () (declare (not safe)) (make-table 'test: eq?))) - (_r-slots85387_ '(__class)) - (_process-slot85391_ - (lambda (_slot85389_) - (if (let () (declare (not safe)) (symbol? _slot85389_)) + (lambda (_class-precedence-list62842_ _direct-slots62843_) + (let* ((_next-slot62845_ '1) + (_slot-table62847_ + (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) + (_r-slots62849_ '(__class)) + (_process-slot62853_ + (lambda (_slot62851_) + (if (let () (declare (not safe)) (symbol? _slot62851_)) '#!void - (error '"invalid slot name" _slot85389_)) - (if (let () + (let () (declare (not safe)) - (hash-key? _slot-table85385_ _slot85389_)) - '#!void + (error '"invalid slot name" _slot62851_))) + (if (let ((__tmp63545 + (let () + (declare (not safe)) + (symbolic-table-ref + _slot-table62847_ + _slot62851_ + absent-value)))) + (declare (not safe)) + (eq? __tmp63545 absent-value)) (begin (let () (declare (not safe)) - (table-set! - _slot-table85385_ - _slot85389_ - _next-slot85383_)) - (let ((__tmp90650 (symbol->keyword _slot85389_))) + (symbolic-table-set! + _slot-table62847_ + _slot62851_ + _next-slot62845_)) + (let ((__tmp63544 (symbol->keyword _slot62851_))) (declare (not safe)) - (table-set! - _slot-table85385_ - __tmp90650 - _next-slot85383_)) - (set! _r-slots85387_ + (symbolic-table-set! + _slot-table62847_ + __tmp63544 + _next-slot62845_)) + (set! _r-slots62849_ (let () (declare (not safe)) - (cons _slot85389_ _r-slots85387_))) - (set! _next-slot85383_ + (cons _slot62851_ _r-slots62849_))) + (set! _next-slot62845_ (let () (declare (not safe)) - (##fx+ _next-slot85383_ '1))))))) - (_process-slots85397_ - (lambda (_g8539285394_) - (for-each _process-slot85391_ _g8539285394_)))) + (##fx+ _next-slot62845_ '1)))) + '#!void))) + (_process-slots62859_ + (lambda (_g6285462856_) + (for-each _process-slot62853_ _g6285462856_)))) (for-each - (lambda (_mixin85400_) - (let ((__tmp90651 - (let ((__tmp90652 + (lambda (_mixin62862_) + (let ((__tmp63546 + (let ((__tmp63547 (let () (declare (not safe)) (##unchecked-structure-ref - _mixin85400_ + _mixin62862_ '9 class::t '#f)))) (declare (not safe)) - (assgetq 'direct-slots: __tmp90652 '())))) + (assgetq__% 'direct-slots: __tmp63547 '())))) (declare (not safe)) - (_process-slots85397_ __tmp90651))) - (reverse _class-precedence-list85380_)) + (_process-slots62859_ __tmp63546))) + (reverse _class-precedence-list62842_)) (let () (declare (not safe)) - (_process-slots85397_ _direct-slots85381_)) - (let ((_slot-vector85402_ (list->vector (reverse _r-slots85387_)))) - (values _slot-vector85402_ _slot-table85385_))))) + (_process-slots62859_ _direct-slots62843_)) + (let ((_slot-vector62864_ (list->vector (reverse _r-slots62849_)))) + (values _slot-vector62864_ _slot-table62847_))))) (define make-class-type - (lambda (_id85342_ - _name85343_ - _direct-supers85344_ - _direct-slots85345_ - _properties85346_ - _constructor85347_) - (let ((_$e85352_ - (let ((__tmp90653 - (lambda (_$obj85349_) - (let ((__tmp90654 + (lambda (_id62804_ + _name62805_ + _direct-supers62806_ + _direct-slots62807_ + _properties62808_ + _constructor62809_) + (let ((_$e62814_ + (let ((__tmp63548 + (lambda (_$obj62811_) + (let ((__tmp63549 (let () (declare (not safe)) (##structure-instance-of? - _$obj85349_ + _$obj62811_ 'gerbil#class::t)))) (declare (not safe)) - (not __tmp90654))))) + (not __tmp63549))))) (declare (not safe)) - (find __tmp90653 _direct-supers85344_)))) - (if _$e85352_ - ((lambda (_g8535485356_) - (error '"Illegal super class; not a class descriptor" - _g8535485356_)) - _$e85352_) - (let ((_$e85359_ + (find __tmp63548 _direct-supers62806_)))) + (if _$e62814_ + ((lambda (_g6281662818_) + (let () + (declare (not safe)) + (error '"Illegal super class; not a class descriptor" + _g6281662818_))) + _$e62814_) + (let ((_$e62821_ (let () (declare (not safe)) - (find class-type-final? _direct-supers85344_)))) - (if _$e85359_ - ((lambda (_g8536185363_) - (error '"Cannot extend final class" _g8536185363_)) - _$e85359_) + (find class-type-final? _direct-supers62806_)))) + (if _$e62821_ + ((lambda (_g6282362825_) + (let () + (declare (not safe)) + (error '"Cannot extend final class" _g6282362825_))) + _$e62821_) '#!void)))) - (let ((_g90655_ + (let ((_g63550_ (let () (declare (not safe)) - (compute-precedence-list _direct-supers85344_)))) + (compute-precedence-list _direct-supers62806_)))) (begin - (let ((_g90656_ + (let ((_g63551_ (let () (declare (not safe)) - (if (##values? _g90655_) (##vector-length _g90655_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g90656_ 2))) - (error "Context expects 2 values" _g90656_))) - (let ((_precedence-list85366_ - (let () (declare (not safe)) (##vector-ref _g90655_ 0))) - (_struct-super85367_ - (let () (declare (not safe)) (##vector-ref _g90655_ 1)))) - (let ((_g90657_ + (if (##values? _g63550_) (##vector-length _g63550_) 1)))) + (if (not (let () (declare (not safe)) (##fx= _g63551_ 2))) + (error "Context expects 2 values" _g63551_))) + (let ((_precedence-list62828_ + (let () (declare (not safe)) (##vector-ref _g63550_ 0))) + (_struct-super62829_ + (let () (declare (not safe)) (##vector-ref _g63550_ 1)))) + (let ((_g63552_ (let () (declare (not safe)) (compute-class-slots - _precedence-list85366_ - _direct-slots85345_)))) + _precedence-list62828_ + _direct-slots62807_)))) (begin - (let ((_g90658_ + (let ((_g63553_ (let () (declare (not safe)) - (if (##values? _g90657_) - (##vector-length _g90657_) + (if (##values? _g63552_) + (##vector-length _g63552_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g90658_ 2))) - (error "Context expects 2 values" _g90658_))) - (let ((_slot-vector85369_ + (if (not (let () (declare (not safe)) (##fx= _g63553_ 2))) + (error "Context expects 2 values" _g63553_))) + (let ((_slot-vector62831_ (let () (declare (not safe)) - (##vector-ref _g90657_ 0))) - (_slot-table85370_ + (##vector-ref _g63552_ 0))) + (_slot-table62832_ (let () (declare (not safe)) - (##vector-ref _g90657_ 1)))) - (let* ((_properties85372_ - (let ((__tmp90661 + (##vector-ref _g63552_ 1)))) + (let* ((_properties62834_ + (let ((__tmp63556 (let () (declare (not safe)) (cons 'direct-slots: - _direct-slots85345_))) - (__tmp90659 - (let ((__tmp90660 + _direct-slots62807_))) + (__tmp63554 + (let ((__tmp63555 (let () (declare (not safe)) (cons 'direct-supers: - _direct-supers85344_)))) + _direct-supers62806_)))) (declare (not safe)) - (cons __tmp90660 _properties85346_)))) + (cons __tmp63555 _properties62808_)))) (declare (not safe)) - (cons __tmp90661 __tmp90659))) - (_constructor*85377_ - (let ((_$e85374_ _constructor85347_)) - (if _$e85374_ - _$e85374_ + (cons __tmp63556 __tmp63554))) + (_constructor*62839_ + (let ((_$e62836_ _constructor62809_)) + (if _$e62836_ + _$e62836_ (let () (declare (not safe)) (find-super-constructor - _direct-supers85344_)))))) + _direct-supers62806_)))))) (let () (declare (not safe)) (make-class-type-descriptor - _id85342_ - _name85343_ - _struct-super85367_ - _precedence-list85366_ - _slot-vector85369_ - _properties85372_ - _constructor*85377_ - _slot-table85370_ + _id62804_ + _name62805_ + _struct-super62829_ + _precedence-list62828_ + _slot-vector62831_ + _properties62834_ + _constructor*62839_ + _slot-table62832_ '#f))))))))))) (define class-precedence-list - (lambda (_klass85340_) - (let ((__tmp90662 + (lambda (_klass62802_) + (let ((__tmp63557 (let () (declare (not safe)) - (##unchecked-structure-ref _klass85340_ '6 class::t '#f)))) + (##unchecked-structure-ref _klass62802_ '6 class::t '#f)))) (declare (not safe)) - (cons _klass85340_ __tmp90662)))) + (cons _klass62802_ __tmp63557)))) (define compute-precedence-list - (lambda (_direct-supers85338_) + (lambda (_direct-supers62800_) (let () (declare (not safe)) - (c4-linearize__% - '#f + (c4-linearize + '() + _direct-supers62800_ + 'get-precedence-list: class-precedence-list + 'struct: class-type-struct? + 'eq: eq? - ##type-name - '() - _direct-supers85338_)))) + 'get-name: + ##type-name)))) (define make-class-predicate - (lambda (_klass85322_) - (let ((_tid85324_ - (let () (declare (not safe)) (##type-id _klass85322_)))) - (if (let () (declare (not safe)) (class-type-final? _klass85322_)) - (lambda (_g8532585327_) + (lambda (_klass62784_) + (let ((_tid62786_ + (let () (declare (not safe)) (##type-id _klass62784_)))) + (if (let () (declare (not safe)) (class-type-final? _klass62784_)) + (lambda (_g6278762789_) (let () (declare (not safe)) - (##structure-direct-instance-of? _g8532585327_ _tid85324_))) + (##structure-direct-instance-of? _g6278762789_ _tid62786_))) (if (let () (declare (not safe)) - (class-type-struct? _klass85322_)) - (lambda (_g8532985331_) + (class-type-struct? _klass62784_)) + (lambda (_g6279162793_) (let () (declare (not safe)) - (##structure-instance-of? _g8532985331_ _tid85324_))) - (lambda (_g8533385335_) + (##structure-instance-of? _g6279162793_ _tid62786_))) + (lambda (_g6279562797_) (let () (declare (not safe)) - (class-instance? _klass85322_ _g8533385335_)))))))) + (class-instance? _klass62784_ _g6279562797_)))))))) (define if-class-slot-field - (lambda (_klass85311_ - _slot85312_ - _if-final85313_ - _if-struct85314_ - _if-struct-field85315_ - _if-class-slot85316_) - (let ((_field85318_ - (let ((__tmp90663 + (lambda (_klass62773_ + _slot62774_ + _if-final62775_ + _if-struct62776_ + _if-struct-field62777_ + _if-class-slot62778_) + (let ((_field62780_ + (let ((__tmp63558 (let () (declare (not safe)) (##unchecked-structure-ref - _klass85311_ + _klass62773_ '8 class::t '#f)))) (declare (not safe)) - (table-ref __tmp90663 _slot85312_ '#f)))) - (if (let () (declare (not safe)) (not _field85318_)) - (error '"unknown slot" 'class: _klass85311_ 'slot: _slot85312_) + (symbolic-table-ref __tmp63558 _slot62774_ '#f)))) + (if (let () (declare (not safe)) (not _field62780_)) + (let () + (declare (not safe)) + (error '"unknown slot" + 'class: + _klass62773_ + 'slot: + _slot62774_)) (if (let () (declare (not safe)) - (class-type-final? _klass85311_)) - (_if-final85313_ _klass85311_ _slot85312_ _field85318_) + (class-type-final? _klass62773_)) + (_if-final62775_ _klass62773_ _slot62774_ _field62780_) (if (let () (declare (not safe)) - (class-type-struct? _klass85311_)) - (_if-struct85314_ _klass85311_ _slot85312_ _field85318_) - (if (let ((_strukt85320_ + (class-type-struct? _klass62773_)) + (_if-struct62776_ _klass62773_ _slot62774_ _field62780_) + (if (let ((_strukt62782_ (let () (declare (not safe)) - (base-struct/1 _klass85311_)))) + (base-struct/1 _klass62773_)))) (and (let () (declare (not safe)) (##structure-instance-of? - _strukt85320_ + _strukt62782_ 'gerbil#class::t)) - (let ((__tmp90664 - (let ((__tmp90665 + (let ((__tmp63559 + (let ((__tmp63560 (let () (declare (not safe)) (##unchecked-structure-ref - _strukt85320_ + _strukt62782_ '7 class::t '#f)))) (declare (not safe)) - (##vector-length __tmp90665)))) + (##vector-length __tmp63560)))) (declare (not safe)) - (##fx< _field85318_ __tmp90664)))) - (_if-struct-field85315_ - _klass85311_ - _slot85312_ - _field85318_) - (_if-class-slot85316_ - _klass85311_ - _slot85312_ - _field85318_)))))))) + (##fx< _field62780_ __tmp63559)))) + (_if-struct-field62777_ + _klass62773_ + _slot62774_ + _field62780_) + (_if-class-slot62778_ + _klass62773_ + _slot62774_ + _field62780_)))))))) (define make-class-slot-accessor - (lambda (_klass85308_ _slot85309_) + (lambda (_klass62770_ _slot62771_) (let () (declare (not safe)) (if-class-slot-field - _klass85308_ - _slot85309_ + _klass62770_ + _slot62771_ make-final-slot-accessor make-struct-slot-accessor make-struct-subclass-slot-accessor make-class-cached-slot-accessor)))) (define make-class-slot-mutator - (lambda (_klass85305_ _slot85306_) + (lambda (_klass62767_ _slot62768_) (let () (declare (not safe)) (if-class-slot-field - _klass85305_ - _slot85306_ + _klass62767_ + _slot62768_ make-final-slot-mutator make-struct-slot-mutator make-struct-subclass-slot-mutator make-class-cached-slot-mutator)))) (define make-class-slot-unchecked-accessor - (lambda (_klass85302_ _slot85303_) + (lambda (_klass62764_ _slot62765_) (let () (declare (not safe)) (if-class-slot-field - _klass85302_ - _slot85303_ + _klass62764_ + _slot62765_ make-struct-slot-unchecked-accessor make-struct-slot-unchecked-accessor make-struct-slot-unchecked-accessor make-class-cached-slot-unchecked-accessor)))) (define make-class-slot-unchecked-mutator - (lambda (_klass85299_ _slot85300_) + (lambda (_klass62761_ _slot62762_) (let () (declare (not safe)) (if-class-slot-field - _klass85299_ - _slot85300_ + _klass62761_ + _slot62762_ make-struct-slot-unchecked-mutator make-struct-slot-unchecked-mutator make-struct-slot-unchecked-mutator make-class-cached-slot-unchecked-mutator)))) (define not-an-instance__% - (lambda (_object85283_ _class85284_ _slot85285_) + (lambda (_object62745_ _class62746_ _slot62747_) (apply error '"not an instance" 'object: - _object85283_ + _object62745_ 'class: - _class85284_ - (if _slot85285_ - (let ((__tmp90666 + _class62746_ + (if _slot62747_ + (let ((__tmp63561 (let () (declare (not safe)) - (cons _slot85285_ '())))) + (cons _slot62747_ '())))) (declare (not safe)) - (cons 'slot: __tmp90666)) + (cons 'slot: __tmp63561)) '())))) (define not-an-instance__0 - (lambda (_object85290_ _class85291_) - (let ((_slot85293_ '#f)) + (lambda (_object62752_ _class62753_) + (let ((_slot62755_ '#f)) (declare (not safe)) - (not-an-instance__% _object85290_ _class85291_ _slot85293_)))) + (not-an-instance__% _object62752_ _class62753_ _slot62755_)))) (define not-an-instance - (lambda _g90668_ - (let ((_g90667_ (let () (declare (not safe)) (##length _g90668_)))) - (cond ((let () (declare (not safe)) (##fx= _g90667_ 2)) - (apply (lambda (_object85290_ _class85291_) + (lambda _g63563_ + (let ((_g63562_ (let () (declare (not safe)) (##length _g63563_)))) + (cond ((let () (declare (not safe)) (##fx= _g63562_ 2)) + (apply (lambda (_object62752_ _class62753_) (let () (declare (not safe)) - (not-an-instance__0 _object85290_ _class85291_))) - _g90668_)) - ((let () (declare (not safe)) (##fx= _g90667_ 3)) - (apply (lambda (_object85295_ _class85296_ _slot85297_) + (not-an-instance__0 _object62752_ _class62753_))) + _g63563_)) + ((let () (declare (not safe)) (##fx= _g63562_ 3)) + (apply (lambda (_object62757_ _class62758_ _slot62759_) (let () (declare (not safe)) (not-an-instance__% - _object85295_ - _class85296_ - _slot85297_))) - _g90668_)) + _object62757_ + _class62758_ + _slot62759_))) + _g63563_)) (else (##raise-wrong-number-of-arguments-exception not-an-instance - _g90668_)))))) + _g63563_)))))) (define make-final-slot-accessor - (lambda (_klass85276_ _slot85277_ _field85278_) - (lambda (_obj85280_) + (lambda (_klass62738_ _slot62739_ _field62740_) + (lambda (_obj62742_) (let () (declare (not safe)) (##direct-structure-ref - _obj85280_ - _field85278_ - _klass85276_ - _slot85277_))))) + _obj62742_ + _field62740_ + _klass62738_ + _slot62739_))))) (define make-final-slot-mutator - (lambda (_klass85269_ _slot85270_ _field85271_) - (lambda (_obj85273_ _val85274_) + (lambda (_klass62731_ _slot62732_ _field62733_) + (lambda (_obj62735_ _val62736_) (let () (declare (not safe)) (##direct-structure-set! - _obj85273_ - _val85274_ - _field85271_ - _klass85269_ - _slot85270_))))) + _obj62735_ + _val62736_ + _field62733_ + _klass62731_ + _slot62732_))))) (define make-struct-slot-accessor - (lambda (_klass85263_ _slot85264_ _field85265_) - (lambda (_obj85267_) + (lambda (_klass62725_ _slot62726_ _field62727_) + (lambda (_obj62729_) (let () (declare (not safe)) (##structure-ref - _obj85267_ - _field85265_ - _klass85263_ - _slot85264_))))) + _obj62729_ + _field62727_ + _klass62725_ + _slot62726_))))) (define make-struct-slot-mutator - (lambda (_klass85256_ _slot85257_ _field85258_) - (lambda (_obj85260_ _val85261_) + (lambda (_klass62718_ _slot62719_ _field62720_) + (lambda (_obj62722_ _val62723_) (let () (declare (not safe)) (##structure-set! - _obj85260_ - _val85261_ - _field85258_ - _klass85256_ - _slot85257_))))) + _obj62722_ + _val62723_ + _field62720_ + _klass62718_ + _slot62719_))))) (define make-struct-slot-unchecked-accessor - (lambda (_klass85250_ _slot85251_ _field85252_) - (lambda (_obj85254_) + (lambda (_klass62712_ _slot62713_ _field62714_) + (lambda (_obj62716_) (let () (declare (not safe)) (##unchecked-structure-ref - _obj85254_ - _field85252_ - _klass85250_ - _slot85251_))))) + _obj62716_ + _field62714_ + _klass62712_ + _slot62713_))))) (define make-struct-slot-unchecked-mutator - (lambda (_klass85243_ _slot85244_ _field85245_) - (lambda (_obj85247_ _val85248_) + (lambda (_klass62705_ _slot62706_ _field62707_) + (lambda (_obj62709_ _val62710_) (let () (declare (not safe)) (##unchecked-structure-set! - _obj85247_ - _val85248_ - _field85245_ - _klass85243_ - _slot85244_))))) + _obj62709_ + _val62710_ + _field62707_ + _klass62705_ + _slot62706_))))) (define make-struct-subclass-slot-accessor - (lambda (_klass85237_ _slot85238_ _field85239_) - (lambda (_obj85241_) + (lambda (_klass62699_ _slot62700_ _field62701_) + (lambda (_obj62703_) (if (let () (declare (not safe)) - (class-instance? _klass85237_ _obj85241_)) + (class-instance? _klass62699_ _obj62703_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj85241_ _field85239_)) + (unchecked-slot-ref _obj62703_ _field62701_)) (let () (declare (not safe)) - (not-an-instance__% _obj85241_ _klass85237_ _slot85238_)))))) + (not-an-instance__% _obj62703_ _klass62699_ _slot62700_)))))) (define make-struct-subclass-slot-mutator - (lambda (_klass85230_ _slot85231_ _field85232_) - (lambda (_obj85234_ _val85235_) + (lambda (_klass62692_ _slot62693_ _field62694_) + (lambda (_obj62696_ _val62697_) (if (let () (declare (not safe)) - (class-instance? _klass85230_ _obj85234_)) + (class-instance? _klass62692_ _obj62696_)) (let () (declare (not safe)) - (unchecked-field-set! _obj85234_ _field85232_ _val85235_)) + (unchecked-field-set! _obj62696_ _field62694_ _val62697_)) (let () (declare (not safe)) - (not-an-instance__% _obj85234_ _klass85230_ _slot85231_)))))) + (not-an-instance__% _obj62696_ _klass62692_ _slot62693_)))))) (define make-class-cached-slot-accessor - (lambda (_klass85224_ _slot85225_ _field85226_) - (lambda (_obj85228_) - (if (let ((__tmp90669 - (let () (declare (not safe)) (##type-id _klass85224_)))) + (lambda (_klass62686_ _slot62687_ _field62688_) + (lambda (_obj62690_) + (if (let ((__tmp63564 + (let () (declare (not safe)) (##type-id _klass62686_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj85228_ __tmp90669)) + (##structure-direct-instance-of? _obj62690_ __tmp63564)) (let () (declare (not safe)) - (unchecked-field-ref _obj85228_ _field85226_)) + (unchecked-field-ref _obj62690_ _field62688_)) (if (let () (declare (not safe)) - (class-instance? _klass85224_ _obj85228_)) + (class-instance? _klass62686_ _obj62690_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj85228_ _slot85225_)) + (unchecked-slot-ref _obj62690_ _slot62687_)) (let () (declare (not safe)) (not-an-instance__% - _obj85228_ - _klass85224_ - _slot85225_))))))) + _obj62690_ + _klass62686_ + _slot62687_))))))) (define make-class-cached-slot-mutator - (lambda (_klass85217_ _slot85218_ _field85219_) - (lambda (_obj85221_ _val85222_) - (if (let ((__tmp90670 - (let () (declare (not safe)) (##type-id _klass85217_)))) + (lambda (_klass62679_ _slot62680_ _field62681_) + (lambda (_obj62683_ _val62684_) + (if (let ((__tmp63565 + (let () (declare (not safe)) (##type-id _klass62679_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj85221_ __tmp90670)) + (##structure-direct-instance-of? _obj62683_ __tmp63565)) (let () (declare (not safe)) - (unchecked-field-set! _obj85221_ _field85219_ _val85222_)) + (unchecked-field-set! _obj62683_ _field62681_ _val62684_)) (if (let () (declare (not safe)) - (class-instance? _klass85217_ _obj85221_)) + (class-instance? _klass62679_ _obj62683_)) (let () (declare (not safe)) - (unchecked-slot-set! _obj85221_ _slot85218_ _val85222_)) + (unchecked-slot-set! _obj62683_ _slot62680_ _val62684_)) (let () (declare (not safe)) (not-an-instance__% - _obj85221_ - _klass85217_ - _slot85218_))))))) + _obj62683_ + _klass62679_ + _slot62680_))))))) (define make-class-cached-slot-unchecked-accessor - (lambda (_klass85211_ _slot85212_ _field85213_) - (lambda (_obj85215_) - (if (let ((__tmp90671 - (let () (declare (not safe)) (##type-id _klass85211_)))) + (lambda (_klass62673_ _slot62674_ _field62675_) + (lambda (_obj62677_) + (if (let ((__tmp63566 + (let () (declare (not safe)) (##type-id _klass62673_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj85215_ __tmp90671)) + (##structure-direct-instance-of? _obj62677_ __tmp63566)) (let () (declare (not safe)) - (unchecked-field-ref _obj85215_ _field85213_)) + (unchecked-field-ref _obj62677_ _field62675_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj85215_ _slot85212_)))))) + (unchecked-slot-ref _obj62677_ _slot62674_)))))) (define make-class-cached-slot-unchecked-mutator - (lambda (_klass85204_ _slot85205_ _field85206_) - (lambda (_obj85208_ _val85209_) - (if (let ((__tmp90672 - (let () (declare (not safe)) (##type-id _klass85204_)))) + (lambda (_klass62666_ _slot62667_ _field62668_) + (lambda (_obj62670_ _val62671_) + (if (let ((__tmp63567 + (let () (declare (not safe)) (##type-id _klass62666_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj85208_ __tmp90672)) + (##structure-direct-instance-of? _obj62670_ __tmp63567)) (let () (declare (not safe)) - (unchecked-field-set! _obj85208_ _field85206_ _val85209_)) + (unchecked-field-set! _obj62670_ _field62668_ _val62671_)) (let () (declare (not safe)) - (unchecked-slot-set! _obj85208_ _slot85205_ _val85209_)))))) + (unchecked-slot-set! _obj62670_ _slot62667_ _val62671_)))))) (define class-slot-offset - (lambda (_klass85201_ _slot85202_) - (let ((__tmp90673 + (lambda (_klass62663_ _slot62664_) + (let ((__tmp63568 (let () (declare (not safe)) - (##unchecked-structure-ref _klass85201_ '8 class::t '#f)))) + (##unchecked-structure-ref _klass62663_ '8 class::t '#f)))) (declare (not safe)) - (table-ref __tmp90673 _slot85202_ '#f)))) + (symbolic-table-ref __tmp63568 _slot62664_ '#f)))) (define class-slot-ref - (lambda (_klass85195_ _obj85196_ _slot85197_) + (lambda (_klass62657_ _obj62658_ _slot62659_) (if (let () (declare (not safe)) - (class-instance? _klass85195_ _obj85196_)) - (let ((_off85199_ - (let ((__tmp90674 - (let () - (declare (not safe)) - (object-type _obj85196_)))) + (class-instance? _klass62657_ _obj62658_)) + (let ((_off62661_ + (let ((__tmp63569 (object-type _obj62658_))) (declare (not safe)) - (class-slot-offset __tmp90674 _slot85197_)))) + (class-slot-offset __tmp63569 _slot62659_)))) (declare (not safe)) (##unchecked-structure-ref - _obj85196_ - _off85199_ - _klass85195_ - _slot85197_)) + _obj62658_ + _off62661_ + _klass62657_ + _slot62659_)) (let () (declare (not safe)) - (not-an-instance__0 _obj85196_ _klass85195_))))) + (not-an-instance__0 _obj62658_ _klass62657_))))) (define class-slot-set! - (lambda (_klass85188_ _obj85189_ _slot85190_ _val85191_) + (lambda (_klass62650_ _obj62651_ _slot62652_ _val62653_) (if (let () (declare (not safe)) - (class-instance? _klass85188_ _obj85189_)) - (let ((_off85193_ - (let ((__tmp90675 - (let () - (declare (not safe)) - (object-type _obj85189_)))) + (class-instance? _klass62650_ _obj62651_)) + (let ((_off62655_ + (let ((__tmp63570 (object-type _obj62651_))) (declare (not safe)) - (class-slot-offset __tmp90675 _slot85190_)))) + (class-slot-offset __tmp63570 _slot62652_)))) (declare (not safe)) (##unchecked-structure-set! - _obj85189_ - _val85191_ - _off85193_ - _klass85188_ - _slot85190_)) + _obj62651_ + _val62653_ + _off62655_ + _klass62650_ + _slot62652_)) (let () (declare (not safe)) - (not-an-instance__0 _obj85189_ _klass85188_))))) + (not-an-instance__0 _obj62651_ _klass62650_))))) (define unchecked-field-ref - (lambda (_obj85185_ _off85186_) - (let ((__tmp90676 - (let () (declare (not safe)) (##structure-type _obj85185_)))) + (lambda (_obj62647_ _off62648_) + (let ((__tmp63571 + (let () (declare (not safe)) (##structure-type _obj62647_)))) (declare (not safe)) - (##unchecked-structure-ref _obj85185_ _off85186_ __tmp90676 '#f)))) + (##unchecked-structure-ref _obj62647_ _off62648_ __tmp63571 '#f)))) (define unchecked-field-set! - (lambda (_obj85181_ _off85182_ _val85183_) - (let ((__tmp90677 - (let () (declare (not safe)) (##structure-type _obj85181_)))) + (lambda (_obj62643_ _off62644_ _val62645_) + (let ((__tmp63572 + (let () (declare (not safe)) (##structure-type _obj62643_)))) (declare (not safe)) (##unchecked-structure-set! - _obj85181_ - _val85183_ - _off85182_ - __tmp90677 + _obj62643_ + _val62645_ + _off62644_ + __tmp63572 '#f)))) (define unchecked-slot-ref - (lambda (_obj85178_ _slot85179_) - (let ((__tmp90678 - (let ((__tmp90679 + (lambda (_obj62640_ _slot62641_) + (let ((__tmp63573 + (let ((__tmp63574 (let () (declare (not safe)) - (##structure-type _obj85178_)))) + (##structure-type _obj62640_)))) (declare (not safe)) - (class-slot-offset __tmp90679 _slot85179_)))) + (class-slot-offset __tmp63574 _slot62641_)))) (declare (not safe)) - (unchecked-field-ref _obj85178_ __tmp90678)))) + (unchecked-field-ref _obj62640_ __tmp63573)))) (define unchecked-slot-set! - (lambda (_obj85174_ _slot85175_ _val85176_) - (let ((__tmp90680 - (let ((__tmp90681 + (lambda (_obj62636_ _slot62637_ _val62638_) + (let ((__tmp63575 + (let ((__tmp63576 (let () (declare (not safe)) - (##structure-type _obj85174_)))) + (##structure-type _obj62636_)))) (declare (not safe)) - (class-slot-offset __tmp90681 _slot85175_)))) + (class-slot-offset __tmp63576 _slot62637_)))) (declare (not safe)) - (unchecked-field-set! _obj85174_ __tmp90680 _val85176_)))) + (unchecked-field-set! _obj62636_ __tmp63575 _val62638_)))) (define slot-ref__% - (lambda (_obj85150_ _slot85151_ _E85152_) - (if (let () (declare (not safe)) (object? _obj85150_)) - (let* ((_klass85154_ - (let () (declare (not safe)) (object-type _obj85150_))) - (_$e85157_ + (lambda (_obj62612_ _slot62613_ _E62614_) + (if (object? _obj62612_) + (let* ((_klass62616_ (object-type _obj62612_)) + (_$e62619_ (if (let () (declare (not safe)) (##structure-instance-of? - _klass85154_ + _klass62616_ 'gerbil#class::t)) (let () (declare (not safe)) - (class-slot-offset _klass85154_ _slot85151_)) + (class-slot-offset _klass62616_ _slot62613_)) '#f))) - (if _$e85157_ - ((lambda (_off85160_) + (if _$e62619_ + ((lambda (_off62622_) (let () (declare (not safe)) - (unchecked-field-ref _obj85150_ _off85160_))) - _$e85157_) - (_E85152_ _obj85150_ _slot85151_))) - (_E85152_ _obj85150_ _slot85151_)))) + (unchecked-field-ref _obj62612_ _off62622_))) + _$e62619_) + (_E62614_ _obj62612_ _slot62613_))) + (_E62614_ _obj62612_ _slot62613_)))) (define slot-ref__0 - (lambda (_obj85165_ _slot85166_) - (let ((_E85168_ __slot-error)) + (lambda (_obj62627_ _slot62628_) + (let ((_E62630_ __slot-error)) (declare (not safe)) - (slot-ref__% _obj85165_ _slot85166_ _E85168_)))) + (slot-ref__% _obj62627_ _slot62628_ _E62630_)))) (define slot-ref - (lambda _g90683_ - (let ((_g90682_ (let () (declare (not safe)) (##length _g90683_)))) - (cond ((let () (declare (not safe)) (##fx= _g90682_ 2)) - (apply (lambda (_obj85165_ _slot85166_) + (lambda _g63578_ + (let ((_g63577_ (let () (declare (not safe)) (##length _g63578_)))) + (cond ((let () (declare (not safe)) (##fx= _g63577_ 2)) + (apply (lambda (_obj62627_ _slot62628_) (let () (declare (not safe)) - (slot-ref__0 _obj85165_ _slot85166_))) - _g90683_)) - ((let () (declare (not safe)) (##fx= _g90682_ 3)) - (apply (lambda (_obj85170_ _slot85171_ _E85172_) + (slot-ref__0 _obj62627_ _slot62628_))) + _g63578_)) + ((let () (declare (not safe)) (##fx= _g63577_ 3)) + (apply (lambda (_obj62632_ _slot62633_ _E62634_) (let () (declare (not safe)) - (slot-ref__% _obj85170_ _slot85171_ _E85172_))) - _g90683_)) + (slot-ref__% _obj62632_ _slot62633_ _E62634_))) + _g63578_)) (else (##raise-wrong-number-of-arguments-exception slot-ref - _g90683_)))))) + _g63578_)))))) (define slot-set!__% - (lambda (_obj85122_ _slot85123_ _val85124_ _E85125_) - (if (let () (declare (not safe)) (object? _obj85122_)) - (let* ((_klass85127_ - (let () (declare (not safe)) (object-type _obj85122_))) - (_$e85130_ + (lambda (_obj62584_ _slot62585_ _val62586_ _E62587_) + (if (object? _obj62584_) + (let* ((_klass62589_ (object-type _obj62584_)) + (_$e62592_ (if (let () (declare (not safe)) (##structure-instance-of? - _klass85127_ + _klass62589_ 'gerbil#class::t)) (let () (declare (not safe)) - (class-slot-offset _klass85127_ _slot85123_)) + (class-slot-offset _klass62589_ _slot62585_)) '#f))) - (if _$e85130_ - ((lambda (_off85133_) + (if _$e62592_ + ((lambda (_off62595_) (let () (declare (not safe)) (unchecked-field-set! - _obj85122_ - _off85133_ - _val85124_))) - _$e85130_) - (_E85125_ _obj85122_ _slot85123_))) - (_E85125_ _obj85122_ _slot85123_)))) + _obj62584_ + _off62595_ + _val62586_))) + _$e62592_) + (_E62587_ _obj62584_ _slot62585_))) + (_E62587_ _obj62584_ _slot62585_)))) (define slot-set!__0 - (lambda (_obj85138_ _slot85139_ _val85140_) - (let ((_E85142_ __slot-error)) + (lambda (_obj62600_ _slot62601_ _val62602_) + (let ((_E62604_ __slot-error)) (declare (not safe)) - (slot-set!__% _obj85138_ _slot85139_ _val85140_ _E85142_)))) + (slot-set!__% _obj62600_ _slot62601_ _val62602_ _E62604_)))) (define slot-set! - (lambda _g90685_ - (let ((_g90684_ (let () (declare (not safe)) (##length _g90685_)))) - (cond ((let () (declare (not safe)) (##fx= _g90684_ 3)) - (apply (lambda (_obj85138_ _slot85139_ _val85140_) + (lambda _g63580_ + (let ((_g63579_ (let () (declare (not safe)) (##length _g63580_)))) + (cond ((let () (declare (not safe)) (##fx= _g63579_ 3)) + (apply (lambda (_obj62600_ _slot62601_ _val62602_) (let () (declare (not safe)) - (slot-set!__0 _obj85138_ _slot85139_ _val85140_))) - _g90685_)) - ((let () (declare (not safe)) (##fx= _g90684_ 4)) - (apply (lambda (_obj85144_ _slot85145_ _val85146_ _E85147_) + (slot-set!__0 _obj62600_ _slot62601_ _val62602_))) + _g63580_)) + ((let () (declare (not safe)) (##fx= _g63579_ 4)) + (apply (lambda (_obj62606_ _slot62607_ _val62608_ _E62609_) (let () (declare (not safe)) (slot-set!__% - _obj85144_ - _slot85145_ - _val85146_ - _E85147_))) - _g90685_)) + _obj62606_ + _slot62607_ + _val62608_ + _E62609_))) + _g63580_)) (else (##raise-wrong-number-of-arguments-exception slot-set! - _g90685_)))))) + _g63580_)))))) (define __slot-error - (lambda (_obj85118_ _slot85119_) - (error '"Cannot find slot" 'object: _obj85118_ 'slot: _slot85119_))) + (lambda (_obj62580_ _slot62581_) + (let () + (declare (not safe)) + (error '"Cannot find slot" 'object: _obj62580_ 'slot: _slot62581_)))) (define subclass? - (lambda (_maybe-sub-class85108_ _maybe-super-class85109_) - (let* ((_maybe-super-class-id85111_ + (lambda (_maybe-sub-class62570_ _maybe-super-class62571_) + (let* ((_maybe-super-class-id62573_ (let () (declare (not safe)) - (##type-id _maybe-super-class85109_))) - (_$e85113_ - (let ((__tmp90686 + (##type-id _maybe-super-class62571_))) + (_$e62575_ + (let ((__tmp63581 (let () (declare (not safe)) - (##type-id _maybe-sub-class85108_)))) + (##type-id _maybe-sub-class62570_)))) (declare (not safe)) - (eq? _maybe-super-class-id85111_ __tmp90686)))) - (if _$e85113_ - _$e85113_ - (let ((__tmp90688 - (lambda (_super-class85116_) - (let ((__tmp90689 + (eq? _maybe-super-class-id62573_ __tmp63581)))) + (if _$e62575_ + _$e62575_ + (let ((__tmp63583 + (lambda (_super-class62578_) + (let ((__tmp63584 (let () (declare (not safe)) - (##type-id _super-class85116_)))) + (##type-id _super-class62578_)))) (declare (not safe)) - (eq? __tmp90689 _maybe-super-class-id85111_)))) - (__tmp90687 + (eq? __tmp63584 _maybe-super-class-id62573_)))) + (__tmp63582 (let () (declare (not safe)) (##unchecked-structure-ref - _maybe-sub-class85108_ + _maybe-sub-class62570_ '6 class::t '#f)))) (declare (not safe)) - (ormap1 __tmp90688 __tmp90687)))))) + (ormap1 __tmp63583 __tmp63582)))))) (define object? ##structure?) (define object-type ##structure-type) (define direct-instance? - (lambda (_klass85105_ _obj85106_) - (let ((__tmp90690 - (let () (declare (not safe)) (##type-id _klass85105_)))) + (lambda (_klass62567_ _obj62568_) + (let ((__tmp63585 + (let () (declare (not safe)) (##type-id _klass62567_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj85106_ __tmp90690)))) + (##structure-direct-instance-of? _obj62568_ __tmp63585)))) (define struct-instance? - (lambda (_klass85102_ _obj85103_) - (let ((__tmp90691 - (let () (declare (not safe)) (##type-id _klass85102_)))) + (lambda (_klass62564_ _obj62565_) + (let ((__tmp63586 + (let () (declare (not safe)) (##type-id _klass62564_)))) (declare (not safe)) - (##structure-instance-of? _obj85103_ __tmp90691)))) + (##structure-instance-of? _obj62565_ __tmp63586)))) (define class-instance? - (lambda (_klass85097_ _obj85098_) - (if (let () (declare (not safe)) (object? _obj85098_)) - (let ((_type85100_ - (let () (declare (not safe)) (object-type _obj85098_)))) + (lambda (_klass62559_ _obj62560_) + (if (object? _obj62560_) + (let ((_type62562_ (object-type _obj62560_))) (if (let () (declare (not safe)) - (##structure-instance-of? _type85100_ 'gerbil#class::t)) + (##structure-instance-of? _type62562_ 'gerbil#class::t)) (let () (declare (not safe)) - (subclass? _type85100_ _klass85097_)) + (subclass? _type62562_ _klass62559_)) '#f)) '#f))) (define make-object - (lambda (_klass85092_ _k85093_) - (let ((_obj85095_ + (lambda (_klass62554_ _k62555_) + (let ((_obj62557_ (let () (declare (not safe)) - (##make-structure _klass85092_ _k85093_)))) - (let () (declare (not safe)) (object-fill! _obj85095_ '#f)) - _obj85095_))) + (##make-structure _klass62554_ _k62555_)))) + (let () (declare (not safe)) (object-fill! _obj62557_ '#f)) + _obj62557_))) (define object-fill! - (lambda (_obj85085_ _fill85086_) - (let _loop85088_ ((_i85090_ - (let ((__tmp90693 + (lambda (_obj62547_ _fill62548_) + (let _loop62550_ ((_i62552_ + (let ((__tmp63588 (let () (declare (not safe)) - (##structure-length _obj85085_)))) + (##structure-length _obj62547_)))) (declare (not safe)) - (##fx- __tmp90693 '1)))) - (if (let () (declare (not safe)) (##fx> _i85090_ '0)) + (##fx- __tmp63588 '1)))) + (if (let () (declare (not safe)) (##fx> _i62552_ '0)) (begin (let () (declare (not safe)) (##unchecked-structure-set! - _obj85085_ - _fill85086_ - _i85090_ + _obj62547_ + _fill62548_ + _i62552_ '#f '#f)) - (let ((__tmp90692 - (let () (declare (not safe)) (##fx- _i85090_ '1)))) + (let ((__tmp63587 + (let () (declare (not safe)) (##fx- _i62552_ '1)))) (declare (not safe)) - (_loop85088_ __tmp90692))) - _obj85085_)))) + (_loop62550_ __tmp63587))) + _obj62547_)))) (define new-instance - (lambda (_klass85083_) - (let ((__obj90599 - (let ((__tmp90694 - (let ((__tmp90695 + (lambda (_klass62545_) + (let ((__obj63493 + (let ((__tmp63589 + (let ((__tmp63590 (let () (declare (not safe)) (##unchecked-structure-ref - _klass85083_ + _klass62545_ '7 class::t '#f)))) (declare (not safe)) - (##vector-length __tmp90695)))) + (##vector-length __tmp63590)))) (declare (not safe)) - (##make-structure _klass85083_ __tmp90694)))) - (let () (declare (not safe)) (object-fill! __obj90599 '#f)) - __obj90599))) + (##make-structure _klass62545_ __tmp63589)))) + (let () (declare (not safe)) (object-fill! __obj63493 '#f)) + __obj63493))) (define make-instance - (lambda (_klass85073_ . _args85074_) - (let* ((_obj85076_ - (let () (declare (not safe)) (new-instance _klass85073_))) - (_$e85078_ + (lambda (_klass62535_ . _args62536_) + (let* ((_obj62538_ + (let () (declare (not safe)) (new-instance _klass62535_))) + (_$e62540_ (let () (declare (not safe)) - (##unchecked-structure-ref _klass85073_ '10 class::t '#f)))) - (if _$e85078_ - ((lambda (_kons-id85081_) + (##unchecked-structure-ref _klass62535_ '10 class::t '#f)))) + (if _$e62540_ + ((lambda (_kons-id62543_) (let () (declare (not safe)) (__constructor-init! - _klass85073_ - _kons-id85081_ - _obj85076_ - _args85074_))) - _$e85078_) + _klass62535_ + _kons-id62543_ + _obj62538_ + _args62536_))) + _$e62540_) (if (let () (declare (not safe)) - (class-type-metaclass? _klass85073_)) + (class-type-metaclass? _klass62535_)) (let () (declare (not safe)) (__metaclass-instance-init! - _klass85073_ - _obj85076_ - _args85074_)) - (if (let ((__tmp90699 + _klass62535_ + _obj62538_ + _args62536_)) + (if (let ((__tmp63595 (let () (declare (not safe)) - (class-type-struct? _klass85073_)))) + (class-type-struct? _klass62535_)))) (declare (not safe)) - (not __tmp90699)) + (not __tmp63595)) (let () (declare (not safe)) (__class-instance-init! - _klass85073_ - _obj85076_ - _args85074_)) - (if (let ((__tmp90697 - (let ((__tmp90698 + _klass62535_ + _obj62538_ + _args62536_)) + (if (let ((__tmp63593 + (let ((__tmp63594 (let () (declare (not safe)) - (##structure-length _obj85076_)))) + (##structure-length _obj62538_)))) (declare (not safe)) - (##fx- __tmp90698 '1))) - (__tmp90696 (length _args85074_))) + (##fx- __tmp63594 '1))) + (__tmp63592 (length _args62536_))) (declare (not safe)) - (##fx= __tmp90697 __tmp90696)) - (apply ##structure _klass85073_ _args85074_) - (error '"arguments don't match object size" - 'class: - _klass85073_ - 'slots: + (##fx= __tmp63593 __tmp63592)) + (apply ##structure _klass62535_ _args62536_) + (let ((__tmp63591 (let () (declare (not safe)) - (class-type-slot-list _klass85073_)) - 'args: - _args85074_)))))))) + (class-type-slot-list _klass62535_)))) + (declare (not safe)) + (error '"arguments don't match object size" + 'class: + _klass62535_ + 'slots: + __tmp63591 + 'args: + _args62536_))))))))) (define make-class-instance make-instance) (define struct-instance-init! - (lambda (_obj85070_ . _args85071_) - (if (let ((__tmp90701 (length _args85071_)) - (__tmp90700 + (lambda (_obj62532_ . _args62533_) + (if (let ((__tmp63597 (length _args62533_)) + (__tmp63596 (let () (declare (not safe)) - (##structure-length _obj85070_)))) + (##structure-length _obj62532_)))) + (declare (not safe)) + (##fx< __tmp63597 __tmp63596)) + (let () (declare (not safe)) - (##fx< __tmp90701 __tmp90700)) + (__struct-instance-init! _obj62532_ _args62533_)) (let () (declare (not safe)) - (__struct-instance-init! _obj85070_ _args85071_)) - (error '"too many arguments for struct" - 'object: - _obj85070_ - 'args: - _args85071_)))) + (error '"too many arguments for struct" + 'object: + _obj62532_ + 'args: + _args62533_))))) (define __struct-instance-init! - (lambda (_obj85029_ _args85030_) - (let _lp85032_ ((_k85034_ '1) (_rest85035_ _args85030_)) - (let* ((_rest8503685044_ _rest85035_) - (_else8503885052_ (lambda () _obj85029_)) - (_K8504085058_ - (lambda (_rest85055_ _hd85056_) + (lambda (_obj62491_ _args62492_) + (let _lp62494_ ((_k62496_ '1) (_rest62497_ _args62492_)) + (let* ((_rest6249862506_ _rest62497_) + (_else6250062514_ (lambda () _obj62491_)) + (_K6250262520_ + (lambda (_rest62517_ _hd62518_) (let () (declare (not safe)) - (unchecked-field-set! _obj85029_ _k85034_ _hd85056_)) - (let ((__tmp90702 - (let () (declare (not safe)) (##fx+ _k85034_ '1)))) + (unchecked-field-set! _obj62491_ _k62496_ _hd62518_)) + (let ((__tmp63598 + (let () (declare (not safe)) (##fx+ _k62496_ '1)))) (declare (not safe)) - (_lp85032_ __tmp90702 _rest85055_))))) - (if (let () (declare (not safe)) (##pair? _rest8503685044_)) - (let ((_hd8504185061_ - (let () (declare (not safe)) (##car _rest8503685044_))) - (_tl8504285063_ - (let () (declare (not safe)) (##cdr _rest8503685044_)))) - (let* ((_hd85066_ _hd8504185061_) - (_rest85068_ _tl8504285063_)) + (_lp62494_ __tmp63598 _rest62517_))))) + (if (let () (declare (not safe)) (##pair? _rest6249862506_)) + (let ((_hd6250362523_ + (let () (declare (not safe)) (##car _rest6249862506_))) + (_tl6250462525_ + (let () (declare (not safe)) (##cdr _rest6249862506_)))) + (let* ((_hd62528_ _hd6250362523_) + (_rest62530_ _tl6250462525_)) (declare (not safe)) - (_K8504085058_ _rest85068_ _hd85066_))) - (let () (declare (not safe)) (_else8503885052_))))))) + (_K6250262520_ _rest62530_ _hd62528_))) + (let () (declare (not safe)) (_else6250062514_))))))) (define class-instance-init! - (lambda (_obj85026_ . _args85027_) - (let ((__tmp90703 - (let () (declare (not safe)) (object-type _obj85026_)))) + (lambda (_obj62488_ . _args62489_) + (let ((__tmp63599 (object-type _obj62488_))) (declare (not safe)) - (__class-instance-init! __tmp90703 _obj85026_ _args85027_)))) + (__class-instance-init! __tmp63599 _obj62488_ _args62489_)))) (define __class-instance-init! - (lambda (_klass84970_ _obj84971_ _args84972_) - (let _lp84974_ ((_rest84976_ _args84972_)) - (let* ((_rest8497784987_ _rest84976_) - (_else8497984995_ + (lambda (_klass62432_ _obj62433_ _args62434_) + (let _lp62436_ ((_rest62438_ _args62434_)) + (let* ((_rest6243962449_ _rest62438_) + (_else6244162457_ (lambda () - (if (let () (declare (not safe)) (null? _rest84976_)) - _obj84971_ - (error '"unexpected class initializer arguments" - 'class: - _klass84970_ - 'rest: - _rest84976_)))) - (_K8498185007_ - (lambda (_rest84998_ _val84999_ _key85000_) - (let ((_$e85002_ + (if (let () (declare (not safe)) (null? _rest62438_)) + _obj62433_ + (let () + (declare (not safe)) + (error '"unexpected class initializer arguments" + 'class: + _klass62432_ + 'rest: + _rest62438_))))) + (_K6244362469_ + (lambda (_rest62460_ _val62461_ _key62462_) + (let ((_$e62464_ (let () (declare (not safe)) - (class-slot-offset _klass84970_ _key85000_)))) - (if _$e85002_ - ((lambda (_off85005_) + (class-slot-offset _klass62432_ _key62462_)))) + (if _$e62464_ + ((lambda (_off62467_) (let () (declare (not safe)) (unchecked-field-set! - _obj84971_ - _off85005_ - _val84999_)) + _obj62433_ + _off62467_ + _val62461_)) (let () (declare (not safe)) - (_lp84974_ _rest84998_))) - _$e85002_) - (error '"unknown slot" - 'class: - _klass84970_ - 'slot: - _key85000_)))))) - (if (let () (declare (not safe)) (##pair? _rest8497784987_)) - (let ((_hd8498285010_ - (let () (declare (not safe)) (##car _rest8497784987_))) - (_tl8498385012_ - (let () (declare (not safe)) (##cdr _rest8497784987_)))) - (let ((_key85015_ _hd8498285010_)) - (if (let () (declare (not safe)) (##pair? _tl8498385012_)) - (let ((_hd8498485017_ + (_lp62436_ _rest62460_))) + _$e62464_) + (let () + (declare (not safe)) + (error '"unknown slot" + 'class: + _klass62432_ + 'slot: + _key62462_))))))) + (if (let () (declare (not safe)) (##pair? _rest6243962449_)) + (let ((_hd6244462472_ + (let () (declare (not safe)) (##car _rest6243962449_))) + (_tl6244562474_ + (let () (declare (not safe)) (##cdr _rest6243962449_)))) + (let ((_key62477_ _hd6244462472_)) + (if (let () (declare (not safe)) (##pair? _tl6244562474_)) + (let ((_hd6244662479_ (let () (declare (not safe)) - (##car _tl8498385012_))) - (_tl8498585019_ + (##car _tl6244562474_))) + (_tl6244762481_ (let () (declare (not safe)) - (##cdr _tl8498385012_)))) - (let* ((_val85022_ _hd8498485017_) - (_rest85024_ _tl8498585019_)) + (##cdr _tl6244562474_)))) + (let* ((_val62484_ _hd6244662479_) + (_rest62486_ _tl6244762481_)) (declare (not safe)) - (_K8498185007_ _rest85024_ _val85022_ _key85015_))) - (let () (declare (not safe)) (_else8497984995_))))) - (let () (declare (not safe)) (_else8497984995_))))))) + (_K6244362469_ _rest62486_ _val62484_ _key62477_))) + (let () (declare (not safe)) (_else6244162457_))))) + (let () (declare (not safe)) (_else6244162457_))))))) (define __metaclass-instance-init! - (lambda (_klass84966_ _obj84967_ _args84968_) + (lambda (_klass62428_ _obj62429_ _args62430_) (apply call-method - _klass84966_ + _klass62428_ 'instance-init! - _obj84967_ - _args84968_))) + _obj62429_ + _args62430_))) (define constructor-init! - (lambda (_klass84961_ _kons-id84962_ _obj84963_ . _args84964_) + (lambda (_klass62423_ _kons-id62424_ _obj62425_ . _args62426_) (let () (declare (not safe)) (__constructor-init! - _klass84961_ - _kons-id84962_ - _obj84963_ - _args84964_)))) + _klass62423_ + _kons-id62424_ + _obj62425_ + _args62426_)))) (define __constructor-init! - (lambda (_klass84951_ _kons-id84952_ _obj84953_ _args84954_) - (let ((_$e84956_ + (lambda (_klass62413_ _kons-id62414_ _obj62415_ _args62416_) + (let ((_$e62418_ (let () (declare (not safe)) - (__find-method _klass84951_ _obj84953_ _kons-id84952_)))) - (if _$e84956_ - ((lambda (_kons84959_) - (apply _kons84959_ _obj84953_ _args84954_) - _obj84953_) - _$e84956_) - (error '"missing constructor" - 'class: - _klass84951_ - 'method: - _kons-id84952_))))) + (__find-method _klass62413_ _obj62415_ _kons-id62414_)))) + (if _$e62418_ + ((lambda (_kons62421_) + (apply _kons62421_ _obj62415_ _args62416_) + _obj62415_) + _$e62418_) + (let () + (declare (not safe)) + (error '"missing constructor" + 'class: + _klass62413_ + 'method: + _kons-id62414_)))))) (define struct-copy - (lambda (_struct84949_) - (if (let () (declare (not safe)) (##structure? _struct84949_)) + (lambda (_struct62411_) + (if (let () (declare (not safe)) (##structure? _struct62411_)) '#!void - (error '"not a structure" _struct84949_)) - (let () (declare (not safe)) (##structure-copy _struct84949_)))) + (let () + (declare (not safe)) + (error '"not a structure" _struct62411_))) + (let () (declare (not safe)) (##structure-copy _struct62411_)))) (define struct->list - (lambda (_obj84947_) - (if (let () (declare (not safe)) (object? _obj84947_)) - (let () (declare (not safe)) (##vector->list _obj84947_)) - (error '"not an object" _obj84947_)))) + (lambda (_obj62409_) + (if (object? _obj62409_) + (let () (declare (not safe)) (##vector->list _obj62409_)) + (let () + (declare (not safe)) + (error '"not an object" _obj62409_))))) (define class->list - (lambda (_obj84934_) - (if (let () (declare (not safe)) (object? _obj84934_)) - (let ((_klass84936_ - (let () (declare (not safe)) (object-type _obj84934_)))) + (lambda (_obj62396_) + (if (object? _obj62396_) + (let ((_klass62398_ (object-type _obj62396_))) (if (let () (declare (not safe)) - (##structure-instance-of? _klass84936_ 'gerbil#class::t)) - (let ((_slot-vector84938_ + (##structure-instance-of? _klass62398_ 'gerbil#class::t)) + (let ((_slot-vector62400_ (let () (declare (not safe)) (##unchecked-structure-ref - _klass84936_ + _klass62398_ '7 class::t '#f)))) - (let _loop84940_ ((_index84942_ - (let ((__tmp90709 + (let _loop62402_ ((_index62404_ + (let ((__tmp63605 (let () (declare (not safe)) (##vector-length - _slot-vector84938_)))) + _slot-vector62400_)))) (declare (not safe)) - (##fx- __tmp90709 '1))) - (_plist84943_ '())) - (if (let () (declare (not safe)) (##fx< _index84942_ '1)) + (##fx- __tmp63605 '1))) + (_plist62405_ '())) + (if (let () (declare (not safe)) (##fx< _index62404_ '1)) (let () (declare (not safe)) - (cons _klass84936_ _plist84943_)) - (let ((_slot84945_ + (cons _klass62398_ _plist62405_)) + (let ((_slot62407_ (let () (declare (not safe)) (##vector-ref - _slot-vector84938_ - _index84942_)))) - (let ((__tmp90708 + _slot-vector62400_ + _index62404_)))) + (let ((__tmp63604 (let () (declare (not safe)) - (##fx- _index84942_ '1))) - (__tmp90704 - (let ((__tmp90707 - (symbol->keyword _slot84945_)) - (__tmp90705 - (let ((__tmp90706 + (##fx- _index62404_ '1))) + (__tmp63600 + (let ((__tmp63603 + (symbol->keyword _slot62407_)) + (__tmp63601 + (let ((__tmp63602 (let () (declare (not safe)) (unchecked-field-ref - _obj84934_ - _index84942_)))) + _obj62396_ + _index62404_)))) (declare (not safe)) - (cons __tmp90706 _plist84943_)))) + (cons __tmp63602 _plist62405_)))) (declare (not safe)) - (cons __tmp90707 __tmp90705)))) + (cons __tmp63603 __tmp63601)))) (declare (not safe)) - (_loop84940_ __tmp90708 __tmp90704)))))) - (error '"not a class type" - 'object: - _obj84934_ - 'class: - _klass84936_))) - (error '"not an object" _obj84934_)))) + (_loop62402_ __tmp63604 __tmp63600)))))) + (let () + (declare (not safe)) + (error '"not a class type" + 'object: + _obj62396_ + 'class: + _klass62398_)))) + (let () + (declare (not safe)) + (error '"not an object" _obj62396_))))) (define call-method - (lambda (_obj84925_ _id84926_ . _args84927_) - (let ((_$e84929_ + (lambda (_obj62387_ _id62388_ . _args62389_) + (let ((_$e62391_ (let () (declare (not safe)) - (method-ref _obj84925_ _id84926_)))) - (if _$e84929_ - ((lambda (_method84932_) - (apply _method84932_ _obj84925_ _args84927_)) - _$e84929_) - (error '"cannot find method" - 'object: - _obj84925_ - 'method: - _id84926_))))) - (define __builtin-type-methods (make-table 'test: eq?)) + (method-ref _obj62387_ _id62388_)))) + (if _$e62391_ + ((lambda (_method62394_) + (apply _method62394_ _obj62387_ _args62389_)) + _$e62391_) + (let () + (declare (not safe)) + (error '"cannot find method" + 'object: + _obj62387_ + 'method: + _id62388_)))))) + (define __builtin-type-methods + (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) (define method-ref - (lambda (_obj84922_ _id84923_) - (if (let () (declare (not safe)) (object? _obj84922_)) - (let ((__tmp90710 - (let () (declare (not safe)) (object-type _obj84922_)))) + (lambda (_obj62384_ _id62385_) + (if (object? _obj62384_) + (let ((__tmp63606 (object-type _obj62384_))) (declare (not safe)) - (find-method __tmp90710 _obj84922_ _id84923_)) + (find-method __tmp63606 _obj62384_ _id62385_)) '#f))) (define checked-method-ref - (lambda (_obj84916_ _id84917_) - (let ((_$e84919_ + (lambda (_obj62378_ _id62379_) + (let ((_$e62381_ (let () (declare (not safe)) - (method-ref _obj84916_ _id84917_)))) - (if _$e84919_ - _$e84919_ - (error '"missing method" - 'object: - _obj84916_ - 'method: - _id84917_))))) + (method-ref _obj62378_ _id62379_)))) + (if _$e62381_ + _$e62381_ + (let () + (declare (not safe)) + (error '"missing method" + 'object: + _obj62378_ + 'method: + _id62379_)))))) (define bound-method-ref - (lambda (_obj84906_ _id84907_) - (let ((_$e84909_ + (lambda (_obj62368_ _id62369_) + (let ((_$e62371_ (let () (declare (not safe)) - (method-ref _obj84906_ _id84907_)))) - (if _$e84909_ - ((lambda (_method84912_) - (lambda _args84914_ - (apply _method84912_ _obj84906_ _args84914_))) - _$e84909_) + (method-ref _obj62368_ _id62369_)))) + (if _$e62371_ + ((lambda (_method62374_) + (lambda _args62376_ + (apply _method62374_ _obj62368_ _args62376_))) + _$e62371_) '#f)))) (define checked-bound-method-ref - (lambda (_obj84899_ _id84900_) - (let ((_method84902_ + (lambda (_obj62361_ _id62362_) + (let ((_method62364_ (let () (declare (not safe)) - (checked-method-ref _obj84899_ _id84900_)))) - (lambda _args84904_ (apply _method84902_ _obj84899_ _args84904_))))) + (checked-method-ref _obj62361_ _id62362_)))) + (lambda _args62366_ (apply _method62364_ _obj62361_ _args62366_))))) (define find-method - (lambda (_klass84895_ _obj84896_ _id84897_) + (lambda (_klass62357_ _obj62358_ _id62359_) (if (let () (declare (not safe)) - (##structure-instance-of? _klass84895_ 'gerbil#class::t)) + (##structure-instance-of? _klass62357_ 'gerbil#class::t)) (let () (declare (not safe)) - (__find-method _klass84895_ _obj84896_ _id84897_)) + (__find-method _klass62357_ _obj62358_ _id62359_)) (let () (declare (not safe)) - (builtin-find-method _klass84895_ _obj84896_ _id84897_))))) + (builtin-find-method _klass62357_ _obj62358_ _id62359_))))) (define __find-method - (lambda (_klass84888_ _obj84889_ _id84890_) - (let ((_$e84892_ + (lambda (_klass62350_ _obj62351_ _id62352_) + (let ((_$e62354_ (let () (declare (not safe)) - (direct-method-ref _klass84888_ _obj84889_ _id84890_)))) - (if _$e84892_ - _$e84892_ + (direct-method-ref _klass62350_ _obj62351_ _id62352_)))) + (if _$e62354_ + _$e62354_ (if (let () (declare (not safe)) - (class-type-sealed? _klass84888_)) + (class-type-sealed? _klass62350_)) '#f (let () (declare (not safe)) - (mixin-method-ref _klass84888_ _obj84889_ _id84890_))))))) + (mixin-method-ref _klass62350_ _obj62351_ _id62352_))))))) (define class-find-method - (lambda (_klass84884_ _obj84885_ _id84886_) + (lambda (_klass62346_ _obj62347_ _id62348_) (if (let () (declare (not safe)) - (##structure-instance-of? _klass84884_ 'gerbil#class::t)) + (##structure-instance-of? _klass62346_ 'gerbil#class::t)) (let () (declare (not safe)) - (__find-method _klass84884_ _obj84885_ _id84886_)) + (__find-method _klass62346_ _obj62347_ _id62348_)) '#f))) (define mixin-find-method - (lambda (_mixins84876_ _obj84877_ _id84878_) - (let ((__tmp90711 - (lambda (_g8487984881_) + (lambda (_mixins62338_ _obj62339_ _id62340_) + (let ((__tmp63607 + (lambda (_g6234162343_) (let () (declare (not safe)) - (direct-method-ref _g8487984881_ _obj84877_ _id84878_))))) + (direct-method-ref _g6234162343_ _obj62339_ _id62340_))))) (declare (not safe)) - (ormap1 __tmp90711 _mixins84876_)))) + (ormap1 __tmp63607 _mixins62338_)))) (define builtin-find-method - (lambda (_klass84869_ _obj84870_ _id84871_) - (if (let () (declare (not safe)) (##type? _klass84869_)) - (let ((_$e84873_ + (lambda (_klass62331_ _obj62332_ _id62333_) + (if (let () (declare (not safe)) (##type? _klass62331_)) + (let ((_$e62335_ (let () (declare (not safe)) - (builtin-method-ref _klass84869_ _obj84870_ _id84871_)))) - (if _$e84873_ - _$e84873_ - (let ((__tmp90712 + (builtin-method-ref _klass62331_ _obj62332_ _id62333_)))) + (if _$e62335_ + _$e62335_ + (let ((__tmp63608 (let () (declare (not safe)) - (##type-super _klass84869_)))) + (##type-super _klass62331_)))) (declare (not safe)) - (builtin-find-method __tmp90712 _obj84870_ _id84871_)))) + (builtin-find-method __tmp63608 _obj62332_ _id62333_)))) '#f))) (define direct-method-ref - (lambda (_klass84846_ _obj84847_ _id84848_) - (letrec ((_metaclass-resolve-method84850_ + (lambda (_klass62308_ _obj62309_ _id62310_) + (letrec ((_metaclass-resolve-method62312_ (lambda () - (let ((__method90600 + (let ((__method63494 (let () (declare (not safe)) - (method-ref _klass84846_ 'direct-method-ref)))) - (if __method90600 - (__method90600 _klass84846_ _obj84847_ _id84848_) - (error '"Missing method" - _klass84846_ - 'direct-method-ref))))) - (_metaclass-resolve-method!84851_ + (method-ref _klass62308_ 'direct-method-ref)))) + (if __method63494 + (__method63494 _klass62308_ _obj62309_ _id62310_) + (let () + (declare (not safe)) + (error '"Missing method" + _klass62308_ + 'direct-method-ref)))))) + (_metaclass-resolve-method!62313_ (lambda () - (let ((_method84866_ + (let ((_method62328_ (let () (declare (not safe)) - (_metaclass-resolve-method84850_)))) - (let ((__tmp90714 + (_metaclass-resolve-method62312_)))) + (let ((__tmp63610 (let () (declare (not safe)) (##unchecked-structure-ref - _klass84846_ + _klass62308_ '11 class::t '#f))) - (__tmp90713 (if _method84866_ 'resolved 'unknown))) + (__tmp63609 (if _method62328_ 'resolved 'unknown))) (declare (not safe)) - (table-set! __tmp90714 _id84848_ __tmp90713)) - _method84866_)))) - (let ((_$e84853_ + (symbolic-table-set! __tmp63610 _id62310_ __tmp63609)) + _method62328_)))) + (let ((_$e62315_ (let () (declare (not safe)) - (##unchecked-structure-ref _klass84846_ '11 class::t '#f)))) - (if _$e84853_ - ((lambda (_ht84856_) - (let ((_method84858_ + (##unchecked-structure-ref _klass62308_ '11 class::t '#f)))) + (if _$e62315_ + ((lambda (_ht62318_) + (let ((_method62320_ (let () (declare (not safe)) - (table-ref _ht84856_ _id84848_ '#f)))) + (symbolic-table-ref _ht62318_ _id62310_ '#f)))) (if (let () (declare (not safe)) - (procedure? _method84858_)) - _method84858_ + (procedure? _method62320_)) + _method62320_ (if (let () (declare (not safe)) - (class-type-metaclass? _klass84846_)) - (let ((_$e84860_ _method84858_)) + (class-type-metaclass? _klass62308_)) + (let ((_$e62322_ _method62320_)) (if (let () (declare (not safe)) - (eq? 'resolved _$e84860_)) + (eq? 'resolved _$e62322_)) (let () (declare (not safe)) - (_metaclass-resolve-method84850_)) + (_metaclass-resolve-method62312_)) (if (let () (declare (not safe)) - (eq? 'uknown _$e84860_)) + (eq? 'unknown _$e62322_)) '#f (let () (declare (not safe)) - (_metaclass-resolve-method!84851_))))) + (_metaclass-resolve-method!62313_))))) '#f)))) - _$e84853_) + _$e62315_) (if (let () (declare (not safe)) - (class-type-metaclass? _klass84846_)) - (let ((_tab84863_ + (class-type-metaclass? _klass62308_)) + (let ((_tab62325_ (let () (declare (not safe)) - (make-table 'test: eq?)))) + (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) (##unchecked-structure-set! - _klass84846_ - _tab84863_ + _klass62308_ + _tab62325_ '11 class::t '#f)) (let () (declare (not safe)) - (_metaclass-resolve-method!84851_))) + (_metaclass-resolve-method!62313_))) '#f)))))) (define mixin-method-ref - (lambda (_klass84842_ _obj84843_ _id84844_) - (let ((__tmp90715 (##structure-ref _klass84842_ '6 class::t '#f))) + (lambda (_klass62304_ _obj62305_ _id62306_) + (let ((__tmp63611 (##structure-ref _klass62304_ '6 class::t '#f))) (declare (not safe)) - (mixin-find-method __tmp90715 _obj84843_ _id84844_)))) + (mixin-find-method __tmp63611 _obj62305_ _id62306_)))) (define builtin-method-ref - (lambda (_klass84833_ _obj84834_ _id84835_) - (let ((_$e84837_ - (let ((__tmp90716 - (let () (declare (not safe)) (##type-id _klass84833_)))) + (lambda (_klass62295_ _obj62296_ _id62297_) + (let ((_$e62299_ + (let ((__tmp63612 + (let () (declare (not safe)) (##type-id _klass62295_)))) (declare (not safe)) - (table-ref __builtin-type-methods __tmp90716 '#f)))) - (if _$e84837_ - ((lambda (_mtab84840_) + (symbolic-table-ref __builtin-type-methods __tmp63612 '#f)))) + (if _$e62299_ + ((lambda (_mtab62302_) (let () (declare (not safe)) - (table-ref _mtab84840_ _id84835_ '#f))) - _$e84837_) + (symbolic-table-ref _mtab62302_ _id62297_ '#f))) + _$e62299_) '#f)))) (define bind-method!__% - (lambda (_klass84799_ _id84800_ _proc84801_ _rebind?84802_) - (letrec ((_bind!84804_ - (lambda (_ht84817_) - (if (and (let () (declare (not safe)) (not _rebind?84802_)) + (lambda (_klass62261_ _id62262_ _proc62263_ _rebind?62264_) + (letrec ((_bind!62266_ + (lambda (_ht62279_) + (if (and (let () (declare (not safe)) (not _rebind?62264_)) (let () (declare (not safe)) - (table-ref _ht84817_ _id84800_ '#f))) - (error '"method already bound" - 'class: - _klass84799_ - 'method: - _id84800_) + (symbolic-table-ref _ht62279_ _id62262_ '#f))) + (let () + (declare (not safe)) + (error '"method already bound" + 'class: + _klass62261_ + 'method: + _id62262_)) (let () (declare (not safe)) - (table-set! _ht84817_ _id84800_ _proc84801_)))))) - (if (let () (declare (not safe)) (procedure? _proc84801_)) + (symbolic-table-set! + _ht62279_ + _id62262_ + _proc62263_)))))) + (if (let () (declare (not safe)) (procedure? _proc62263_)) '#!void - (error '"bad method; expected procedure" _proc84801_)) + (let () + (declare (not safe)) + (error '"bad method; expected procedure" _proc62263_))) (if (let () (declare (not safe)) - (##structure-instance-of? _klass84799_ 'gerbil#class::t)) - (let ((_ht84806_ + (##structure-instance-of? _klass62261_ 'gerbil#class::t)) + (let ((_ht62268_ (let () (declare (not safe)) (##unchecked-structure-ref - _klass84799_ + _klass62261_ '11 class::t '#f)))) - (if _ht84806_ - (let () (declare (not safe)) (_bind!84804_ _ht84806_)) - (let ((_ht84808_ + (if _ht62268_ + (let () (declare (not safe)) (_bind!62266_ _ht62268_)) + (let ((_ht62270_ (let () (declare (not safe)) - (make-table 'test: eq?)))) + (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) (##unchecked-structure-set! - _klass84799_ - _ht84808_ + _klass62261_ + _ht62270_ '11 class::t '#f)) - (let () (declare (not safe)) (_bind!84804_ _ht84808_))))) - (if (let () (declare (not safe)) (##type? _klass84799_)) - (let ((_ht84815_ - (let ((_$e84810_ - (let ((__tmp90717 + (let () (declare (not safe)) (_bind!62266_ _ht62270_))))) + (if (let () (declare (not safe)) (##type? _klass62261_)) + (let ((_ht62277_ + (let ((_$e62272_ + (let ((__tmp63613 (let () (declare (not safe)) - (##type-id _klass84799_)))) + (##type-id _klass62261_)))) (declare (not safe)) - (table-ref + (symbolic-table-ref __builtin-type-methods - __tmp90717 + __tmp63613 '#f)))) - (if _$e84810_ - _$e84810_ - (let ((_ht84813_ + (if _$e62272_ + _$e62272_ + (let ((_ht62275_ (let () (declare (not safe)) - (make-table 'test: eq?)))) - (let ((__tmp90718 + (make-symbolic-table__% '#f '0)))) + (let ((__tmp63614 (let () (declare (not safe)) - (##type-id _klass84799_)))) + (##type-id _klass62261_)))) (declare (not safe)) - (table-set! + (symbolic-table-set! __builtin-type-methods - __tmp90718 - _ht84813_)) - _ht84813_))))) + __tmp63614 + _ht62275_)) + _ht62275_))))) + (declare (not safe)) + (_bind!62266_ _ht62277_)) + (let () (declare (not safe)) - (_bind!84804_ _ht84815_)) - (error '"bad class; expected class or builtin type" - _klass84799_)))))) + (error '"bad class; expected class or builtin type" + _klass62261_))))))) (define bind-method!__0 - (lambda (_klass84822_ _id84823_ _proc84824_) - (let ((_rebind?84826_ '#t)) + (lambda (_klass62284_ _id62285_ _proc62286_) + (let ((_rebind?62288_ '#t)) (declare (not safe)) (bind-method!__% - _klass84822_ - _id84823_ - _proc84824_ - _rebind?84826_)))) + _klass62284_ + _id62285_ + _proc62286_ + _rebind?62288_)))) (define bind-method! - (lambda _g90720_ - (let ((_g90719_ (let () (declare (not safe)) (##length _g90720_)))) - (cond ((let () (declare (not safe)) (##fx= _g90719_ 3)) - (apply (lambda (_klass84822_ _id84823_ _proc84824_) + (lambda _g63616_ + (let ((_g63615_ (let () (declare (not safe)) (##length _g63616_)))) + (cond ((let () (declare (not safe)) (##fx= _g63615_ 3)) + (apply (lambda (_klass62284_ _id62285_ _proc62286_) (let () (declare (not safe)) (bind-method!__0 - _klass84822_ - _id84823_ - _proc84824_))) - _g90720_)) - ((let () (declare (not safe)) (##fx= _g90719_ 4)) - (apply (lambda (_klass84828_ - _id84829_ - _proc84830_ - _rebind?84831_) + _klass62284_ + _id62285_ + _proc62286_))) + _g63616_)) + ((let () (declare (not safe)) (##fx= _g63615_ 4)) + (apply (lambda (_klass62290_ + _id62291_ + _proc62292_ + _rebind?62293_) (let () (declare (not safe)) (bind-method!__% - _klass84828_ - _id84829_ - _proc84830_ - _rebind?84831_))) - _g90720_)) + _klass62290_ + _id62291_ + _proc62292_ + _rebind?62293_))) + _g63616_)) (else (##raise-wrong-number-of-arguments-exception bind-method! - _g90720_)))))) - (define __method-specializers (make-table 'test: eq?)) + _g63616_)))))) + (define __method-specializers + (let () (declare (not safe)) (make-eq-table__% '#f '0))) (define bind-specializer! - (lambda (_proc84795_ _specializer84796_) + (lambda (_proc62257_ _specializer62258_) (let () (declare (not safe)) - (table-set! __method-specializers _proc84795_ _specializer84796_)))) + (eq-table-set! + __method-specializers + _proc62257_ + _specializer62258_)))) (define seal-class! - (lambda (_klass84762_) - (letrec ((_collect-methods!84764_ - (lambda (_mtab84780_) - (letrec ((_merge!84782_ - (lambda (_tab84790_) - (let ((__tmp90721 - (lambda (_id84792_ _proc84793_) + (lambda (_klass62224_) + (letrec ((_collect-methods!62226_ + (lambda (_mtab62242_) + (letrec ((_merge!62244_ + (lambda (_tab62252_) + (let ((__tmp63617 + (lambda (_id62254_ _proc62255_) (let () (declare (not safe)) - (table-set! - _mtab84780_ - _id84792_ - _proc84793_))))) + (symbolic-table-set! + _mtab62242_ + _id62254_ + _proc62255_))))) (declare (not safe)) - (table-for-each __tmp90721 _tab84790_)))) - (_collect-direct-methods!84783_ - (lambda (_klass84785_) - (let ((_$e84787_ + (raw-table-for-each _tab62252_ __tmp63617)))) + (_collect-direct-methods!62245_ + (lambda (_klass62247_) + (let ((_$e62249_ (let () (declare (not safe)) (##unchecked-structure-ref - _klass84785_ + _klass62247_ '11 class::t '#f)))) - (if _$e84787_ + (if _$e62249_ (let () (declare (not safe)) - (_merge!84782_ _$e84787_)) + (_merge!62244_ _$e62249_)) '#!void))))) (for-each - _collect-direct-methods!84783_ + _collect-direct-methods!62245_ (reverse (let () (declare (not safe)) - (class-precedence-list _klass84762_)))))))) + (class-precedence-list _klass62224_)))))))) (if (let () (declare (not safe)) - (##structure-instance-of? _klass84762_ 'gerbil#class::t)) + (##structure-instance-of? _klass62224_ 'gerbil#class::t)) (if (let () (declare (not safe)) - (class-type-sealed? _klass84762_)) + (class-type-sealed? _klass62224_)) '#!void (begin (if (let () (declare (not safe)) - (class-type-final? _klass84762_)) + (class-type-final? _klass62224_)) '#!void - (error '"cannot seal non-final class" _klass84762_)) + (let () + (declare (not safe)) + (error '"cannot seal non-final class" _klass62224_))) (if (let () (declare (not safe)) - (class-type-metaclass? _klass84762_)) - (let ((__method90601 + (class-type-metaclass? _klass62224_)) + (let ((__method63495 (let () (declare (not safe)) - (method-ref _klass84762_ 'seal-class!)))) - (if __method90601 - (__method90601 _klass84762_) - (error '"Missing method" - _klass84762_ - 'seal-class!))) - (if (let ((__tmp90728 + (method-ref _klass62224_ 'seal-class!)))) + (if __method63495 + (__method63495 _klass62224_) + (let () + (declare (not safe)) + (error '"Missing method" + _klass62224_ + 'seal-class!)))) + (if (let ((__tmp63624 (let () (declare (not safe)) (##unchecked-structure-ref - _klass84762_ + _klass62224_ '6 class::t '#f)))) (declare (not safe)) - (find class-type-metaclass? __tmp90728)) - (error '"cannot seal class that extends metaclass without a metaclass" - _klass84762_) - (let ((_vtab84766_ + (find class-type-metaclass? __tmp63624)) + (let () + (declare (not safe)) + (error '"cannot seal class that extends metaclass without a metaclass" + _klass62224_)) + (let ((_vtab62228_ (let () (declare (not safe)) - (make-table 'test: eq?))) - (_mtab84767_ + (make-symbolic-table__% '#f '0))) + (_mtab62229_ (let () (declare (not safe)) - (make-table 'test: eq?)))) + (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) - (_collect-methods!84764_ _mtab84767_)) - (let ((__tmp90722 - (lambda (_id84769_ _proc84770_) - (let ((_$e84772_ + (_collect-methods!62226_ _mtab62229_)) + (let ((__tmp63618 + (lambda (_id62231_ _proc62232_) + (let ((_$e62234_ (let () (declare (not safe)) - (table-ref + (eq-table-ref __method-specializers - _proc84770_ + _proc62232_ '#f)))) - (if _$e84772_ - ((lambda (_specializer84775_) - (let ((_proc84777_ - (_specializer84775_ - _klass84762_)) - (_gid84778_ - (let ((__tmp90723 + (if _$e62234_ + ((lambda (_specializer62237_) + (let ((_proc62239_ + (_specializer62237_ + _klass62224_)) + (_gid62240_ + (let ((__tmp63619 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##type-id _klass84762_)))) + (##type-id _klass62224_)))) (declare (not safe)) - (make-symbol__1 __tmp90723 '"::[" _id84769_ '"]")))) + (make-symbol__1 __tmp63619 '"::[" _id62231_ '"]")))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (eval (let ((__tmp90724 - (let ((__tmp90725 + (eval (let ((__tmp63620 + (let ((__tmp63621 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp90726 - (let ((__tmp90727 + (let ((__tmp63622 + (let ((__tmp63623 (let () (declare (not safe)) - (cons _proc84777_ '())))) + (cons _proc62239_ '())))) (declare (not safe)) - (cons 'quote __tmp90727)))) + (cons 'quote __tmp63623)))) (declare (not safe)) - (cons __tmp90726 '())))) + (cons __tmp63622 '())))) (declare (not safe)) - (cons _gid84778_ __tmp90725)))) + (cons _gid62240_ __tmp63621)))) (declare (not safe)) - (cons 'def __tmp90724))) + (cons 'def __tmp63620))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (table-set! - _vtab84766_ - _id84769_ - _proc84777_)))) - _$e84772_) + (symbolic-table-set! + _vtab62228_ + _id62231_ + _proc62239_)))) + _$e62234_) (let () (declare (not safe)) - (table-set! - _vtab84766_ - _id84769_ - _proc84770_))))))) + (symbolic-table-set! + _vtab62228_ + _id62231_ + _proc62232_))))))) (declare (not safe)) - (table-for-each __tmp90722 _mtab84767_)) + (raw-table-for-each _mtab62229_ __tmp63618)) (let () (declare (not safe)) (##unchecked-structure-set! - _klass84762_ - _vtab84766_ + _klass62224_ + _vtab62228_ '11 class::t '#f))))) (let () (declare (not safe)) - (&class-type-seal! _klass84762_)))) + (&class-type-seal! _klass62224_)))) '#!void)))) (define next-method - (lambda (_subklass84711_ _obj84712_ _id84713_) - (let ((_klass84715_ - (let () (declare (not safe)) (object-type _obj84712_))) - (_type-id84716_ - (let () (declare (not safe)) (##type-id _subklass84711_)))) + (lambda (_subklass62173_ _obj62174_ _id62175_) + (let ((_klass62177_ (object-type _obj62174_)) + (_type-id62178_ + (let () (declare (not safe)) (##type-id _subklass62173_)))) (if (let () (declare (not safe)) - (##structure-instance-of? _klass84715_ 'gerbil#class::t)) - (let _lp84718_ ((_rest84720_ + (##structure-instance-of? _klass62177_ 'gerbil#class::t)) + (let _lp62180_ ((_rest62182_ (let () (declare (not safe)) - (class-precedence-list _klass84715_)))) - (let* ((_rest8472184729_ _rest84720_) - (_else8472384737_ (lambda () '#f)) - (_K8472584743_ - (lambda (_rest84740_ _klass84741_) - (if (let ((__tmp90731 + (class-precedence-list _klass62177_)))) + (let* ((_rest6218362191_ _rest62182_) + (_else6218562199_ (lambda () '#f)) + (_K6218762205_ + (lambda (_rest62202_ _klass62203_) + (if (let ((__tmp63627 (let () (declare (not safe)) - (##type-id _klass84741_)))) + (##type-id _klass62203_)))) (declare (not safe)) - (eq? _type-id84716_ __tmp90731)) + (eq? _type-id62178_ __tmp63627)) (let () (declare (not safe)) (mixin-find-method - _rest84740_ - _obj84712_ - _id84713_)) + _rest62202_ + _obj62174_ + _id62175_)) (let () (declare (not safe)) - (_lp84718_ _rest84740_)))))) - (if (let () (declare (not safe)) (##pair? _rest8472184729_)) - (let ((_hd8472684746_ + (_lp62180_ _rest62202_)))))) + (if (let () (declare (not safe)) (##pair? _rest6218362191_)) + (let ((_hd6218862208_ (let () (declare (not safe)) - (##car _rest8472184729_))) - (_tl8472784748_ + (##car _rest6218362191_))) + (_tl6218962210_ (let () (declare (not safe)) - (##cdr _rest8472184729_)))) - (let* ((_klass84751_ _hd8472684746_) - (_rest84753_ _tl8472784748_)) + (##cdr _rest6218362191_)))) + (let* ((_klass62213_ _hd6218862208_) + (_rest62215_ _tl6218962210_)) (declare (not safe)) - (_K8472584743_ _rest84753_ _klass84751_))) - (let () (declare (not safe)) (_else8472384737_))))) - (if (let () (declare (not safe)) (##type? _klass84715_)) - (let _lp84755_ ((_klass84757_ _klass84715_)) - (if (let ((__tmp90730 + (_K6218762205_ _rest62215_ _klass62213_))) + (let () (declare (not safe)) (_else6218562199_))))) + (if (let () (declare (not safe)) (##type? _klass62177_)) + (let _lp62217_ ((_klass62219_ _klass62177_)) + (if (let ((__tmp63626 (let () (declare (not safe)) - (##type-id _klass84757_)))) + (##type-id _klass62219_)))) (declare (not safe)) - (eq? _type-id84716_ __tmp90730)) - (let ((__tmp90729 + (eq? _type-id62178_ __tmp63626)) + (let ((__tmp63625 (let () (declare (not safe)) - (##type-super _klass84757_)))) + (##type-super _klass62219_)))) (declare (not safe)) (builtin-find-method - __tmp90729 - _obj84712_ - _id84713_)) - (let ((_$e84759_ + __tmp63625 + _obj62174_ + _id62175_)) + (let ((_$e62221_ (let () (declare (not safe)) - (##type-super _klass84757_)))) - (if _$e84759_ + (##type-super _klass62219_)))) + (if _$e62221_ (let () (declare (not safe)) - (_lp84755_ _$e84759_)) + (_lp62217_ _$e62221_)) '#f)))) '#f))))) (define call-next-method - (lambda (_subklass84701_ _obj84702_ _id84703_ . _args84704_) - (let ((_$e84706_ + (lambda (_subklass62163_ _obj62164_ _id62165_ . _args62166_) + (let ((_$e62168_ (let () (declare (not safe)) - (next-method _subklass84701_ _obj84702_ _id84703_)))) - (if _$e84706_ - ((lambda (_methodf84709_) - (apply _methodf84709_ _obj84702_ _args84704_)) - _$e84706_) - (error '"cannot find next method" - 'object: - _obj84702_ - 'method: - _id84703_))))) - (define write-style (lambda (_we84699_) (macro-writeenv-style _we84699_))) + (next-method _subklass62163_ _obj62164_ _id62165_)))) + (if _$e62168_ + ((lambda (_methodf62171_) + (apply _methodf62171_ _obj62164_ _args62166_)) + _$e62168_) + (let () + (declare (not safe)) + (error '"cannot find next method" + 'object: + _obj62164_ + 'method: + _id62165_)))))) + (define write-style (lambda (_we62161_) (macro-writeenv-style _we62161_))) (define write-object - (lambda (_we84691_ _obj84692_) - (let ((_$e84694_ - (let () (declare (not safe)) (method-ref _obj84692_ ':wr)))) - (if _$e84694_ - ((lambda (_method84697_) (_method84697_ _obj84692_ _we84691_)) - _$e84694_) + (lambda (_we62153_ _obj62154_) + (let ((_$e62156_ + (let () (declare (not safe)) (method-ref _obj62154_ ':wr)))) + (if _$e62156_ + ((lambda (_method62159_) (_method62159_ _obj62154_ _we62153_)) + _$e62156_) (let () (declare (not safe)) - (##default-wr _we84691_ _obj84692_)))))) + (##default-wr _we62153_ _obj62154_)))))) (let () (declare (not safe)) (##wr-set! write-object)))) diff --git a/src/bootstrap/gerbil/runtime/mop__1.scm b/src/bootstrap/gerbil/runtime/mop__1.scm index ccfeef81d..5c615348e 100644 --- a/src/bootstrap/gerbil/runtime/mop__1.scm +++ b/src/bootstrap/gerbil/runtime/mop__1.scm @@ -1,1226 +1,1226 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |[:0:]#fxflag-set?| - (lambda (_$stx83877_) - (let* ((___stx9047790478_ _$stx83877_) - (_g8388283911_ + (lambda (_$stx61339_) + (let* ((___stx6337163372_ _$stx61339_) + (_g6134461373_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx9047790478_)))) - (let ((___kont9048090481_ - (lambda (_L84004_ _L84006_) - (let ((__tmp90738 (gx#datum->syntax '#f '##fx=)) - (__tmp90732 - (let ((__tmp90734 - (let ((__tmp90737 + ___stx6337163372_)))) + (let ((___kont6337463375_ + (lambda (_L61466_ _L61468_) + (let ((__tmp63634 (gx#datum->syntax '#f '##fx=)) + (__tmp63628 + (let ((__tmp63630 + (let ((__tmp63633 (gx#datum->syntax '#f '##fxand)) - (__tmp90735 - (let ((__tmp90736 + (__tmp63631 + (let ((__tmp63632 (let () (declare (not safe)) - (cons _L84004_ '())))) + (cons _L61466_ '())))) (declare (not safe)) - (cons _L84006_ __tmp90736)))) + (cons _L61468_ __tmp63632)))) (declare (not safe)) - (cons __tmp90737 __tmp90735))) - (__tmp90733 + (cons __tmp63633 __tmp63631))) + (__tmp63629 (let () (declare (not safe)) - (cons _L84004_ '())))) + (cons _L61466_ '())))) (declare (not safe)) - (cons __tmp90734 __tmp90733)))) + (cons __tmp63630 __tmp63629)))) (declare (not safe)) - (cons __tmp90738 __tmp90732)))) - (___kont9048290483_ - (lambda (_L83948_ _L83950_) - (let ((__tmp90751 (gx#datum->syntax '#f 'let)) - (__tmp90739 - (let ((__tmp90749 - (let ((__tmp90750 + (cons __tmp63634 __tmp63628)))) + (___kont6337663377_ + (lambda (_L61410_ _L61412_) + (let ((__tmp63647 (gx#datum->syntax '#f 'let)) + (__tmp63635 + (let ((__tmp63645 + (let ((__tmp63646 (let () (declare (not safe)) - (cons _L83948_ '())))) + (cons _L61410_ '())))) (declare (not safe)) - (cons _L83948_ __tmp90750))) - (__tmp90740 - (let ((__tmp90741 - (let ((__tmp90748 + (cons _L61410_ __tmp63646))) + (__tmp63636 + (let ((__tmp63637 + (let ((__tmp63644 (gx#datum->syntax '#f '##fx=)) - (__tmp90742 - (let ((__tmp90744 - (let ((__tmp90747 + (__tmp63638 + (let ((__tmp63640 + (let ((__tmp63643 (gx#datum->syntax '#f '##fxand)) - (__tmp90745 - (let ((__tmp90746 + (__tmp63641 + (let ((__tmp63642 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L83948_ '())))) + (let () (declare (not safe)) (cons _L61410_ '())))) (declare (not safe)) - (cons _L83950_ __tmp90746)))) + (cons _L61412_ __tmp63642)))) (declare (not safe)) - (cons __tmp90747 __tmp90745))) + (cons __tmp63643 __tmp63641))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp90743 + (__tmp63639 (let () (declare (not safe)) - (cons _L83948_ '())))) + (cons _L61410_ '())))) (declare (not safe)) - (cons __tmp90744 __tmp90743)))) + (cons __tmp63640 __tmp63639)))) (declare (not safe)) - (cons __tmp90748 __tmp90742)))) + (cons __tmp63644 __tmp63638)))) (declare (not safe)) - (cons __tmp90741 '())))) + (cons __tmp63637 '())))) (declare (not safe)) - (cons __tmp90749 __tmp90740)))) + (cons __tmp63645 __tmp63636)))) (declare (not safe)) - (cons __tmp90751 __tmp90739))))) - (let ((___match9050490505_ - (lambda (_e8388883974_ - _hd8388783978_ - _tl8388683981_ - _e8389183984_ - _hd8389083988_ - _tl8388983991_ - _e8389483994_ - _hd8389383998_ - _tl8389284001_) - (let ((_L84004_ _hd8389383998_) (_L84006_ _hd8389083988_)) - (if (or (gx#identifier? _L84004_) - (gx#stx-fixnum? _L84004_)) - (___kont9048090481_ _L84004_ _L84006_) - (___kont9048290483_ - _hd8389383998_ - _hd8389083988_)))))) - (if (gx#stx-pair? ___stx9047790478_) - (let ((_e8388883974_ (gx#syntax-e ___stx9047790478_))) - (let ((_tl8388683981_ - (let () (declare (not safe)) (##cdr _e8388883974_))) - (_hd8388783978_ - (let () (declare (not safe)) (##car _e8388883974_)))) - (if (gx#stx-pair? _tl8388683981_) - (let ((_e8389183984_ (gx#syntax-e _tl8388683981_))) - (let ((_tl8388983991_ + (cons __tmp63647 __tmp63635))))) + (let ((___match6339863399_ + (lambda (_e6135061436_ + _hd6134961440_ + _tl6134861443_ + _e6135361446_ + _hd6135261450_ + _tl6135161453_ + _e6135661456_ + _hd6135561460_ + _tl6135461463_) + (let ((_L61466_ _hd6135561460_) (_L61468_ _hd6135261450_)) + (if (or (gx#identifier? _L61466_) + (gx#stx-fixnum? _L61466_)) + (___kont6337463375_ _L61466_ _L61468_) + (___kont6337663377_ + _hd6135561460_ + _hd6135261450_)))))) + (if (gx#stx-pair? ___stx6337163372_) + (let ((_e6135061436_ (gx#syntax-e ___stx6337163372_))) + (let ((_tl6134861443_ + (let () (declare (not safe)) (##cdr _e6135061436_))) + (_hd6134961440_ + (let () (declare (not safe)) (##car _e6135061436_)))) + (if (gx#stx-pair? _tl6134861443_) + (let ((_e6135361446_ (gx#syntax-e _tl6134861443_))) + (let ((_tl6135161453_ (let () (declare (not safe)) - (##cdr _e8389183984_))) - (_hd8389083988_ + (##cdr _e6135361446_))) + (_hd6135261450_ (let () (declare (not safe)) - (##car _e8389183984_)))) - (if (gx#stx-pair? _tl8388983991_) - (let ((_e8389483994_ - (gx#syntax-e _tl8388983991_))) - (let ((_tl8389284001_ + (##car _e6135361446_)))) + (if (gx#stx-pair? _tl6135161453_) + (let ((_e6135661456_ + (gx#syntax-e _tl6135161453_))) + (let ((_tl6135461463_ (let () (declare (not safe)) - (##cdr _e8389483994_))) - (_hd8389383998_ + (##cdr _e6135661456_))) + (_hd6135561460_ (let () (declare (not safe)) - (##car _e8389483994_)))) - (if (gx#stx-null? _tl8389284001_) - (___match9050490505_ - _e8388883974_ - _hd8388783978_ - _tl8388683981_ - _e8389183984_ - _hd8389083988_ - _tl8388983991_ - _e8389483994_ - _hd8389383998_ - _tl8389284001_) + (##car _e6135661456_)))) + (if (gx#stx-null? _tl6135461463_) + (___match6339863399_ + _e6135061436_ + _hd6134961440_ + _tl6134861443_ + _e6135361446_ + _hd6135261450_ + _tl6135161453_ + _e6135661456_ + _hd6135561460_ + _tl6135461463_) (let () (declare (not safe)) - (_g8388283911_))))) + (_g6134461373_))))) (let () (declare (not safe)) - (_g8388283911_))))) - (let () (declare (not safe)) (_g8388283911_))))) - (let () (declare (not safe)) (_g8388283911_)))))))) + (_g6134461373_))))) + (let () (declare (not safe)) (_g6134461373_))))) + (let () (declare (not safe)) (_g6134461373_)))))))) (define |[:0:]#fxflag-unset?| - (lambda (_$stx84029_) - (let* ((___stx9052790528_ _$stx84029_) - (_g8403484063_ + (lambda (_$stx61491_) + (let* ((___stx6342163422_ _$stx61491_) + (_g6149661525_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx9052790528_)))) - (let ((___kont9053090531_ - (lambda (_L84155_ _L84157_) - (let ((__tmp90758 (gx#datum->syntax '#f '##fx=)) - (__tmp90752 - (let ((__tmp90754 - (let ((__tmp90757 + ___stx6342163422_)))) + (let ((___kont6342463425_ + (lambda (_L61617_ _L61619_) + (let ((__tmp63654 (gx#datum->syntax '#f '##fx=)) + (__tmp63648 + (let ((__tmp63650 + (let ((__tmp63653 (gx#datum->syntax '#f '##fxand)) - (__tmp90755 - (let ((__tmp90756 + (__tmp63651 + (let ((__tmp63652 (let () (declare (not safe)) - (cons _L84155_ '())))) + (cons _L61617_ '())))) (declare (not safe)) - (cons _L84157_ __tmp90756)))) + (cons _L61619_ __tmp63652)))) (declare (not safe)) - (cons __tmp90757 __tmp90755))) - (__tmp90753 + (cons __tmp63653 __tmp63651))) + (__tmp63649 (let () (declare (not safe)) (cons '0 '())))) (declare (not safe)) - (cons __tmp90754 __tmp90753)))) + (cons __tmp63650 __tmp63649)))) (declare (not safe)) - (cons __tmp90758 __tmp90752)))) - (___kont9053290533_ - (lambda (_L84100_ _L84102_) - (let ((__tmp90771 (gx#datum->syntax '#f 'let)) - (__tmp90759 - (let ((__tmp90769 - (let ((__tmp90770 + (cons __tmp63654 __tmp63648)))) + (___kont6342663427_ + (lambda (_L61562_ _L61564_) + (let ((__tmp63667 (gx#datum->syntax '#f 'let)) + (__tmp63655 + (let ((__tmp63665 + (let ((__tmp63666 (let () (declare (not safe)) - (cons _L84100_ '())))) + (cons _L61562_ '())))) (declare (not safe)) - (cons _L84100_ __tmp90770))) - (__tmp90760 - (let ((__tmp90761 - (let ((__tmp90768 + (cons _L61562_ __tmp63666))) + (__tmp63656 + (let ((__tmp63657 + (let ((__tmp63664 (gx#datum->syntax '#f '##fx=)) - (__tmp90762 - (let ((__tmp90764 - (let ((__tmp90767 + (__tmp63658 + (let ((__tmp63660 + (let ((__tmp63663 (gx#datum->syntax '#f '##fxand)) - (__tmp90765 - (let ((__tmp90766 + (__tmp63661 + (let ((__tmp63662 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L84100_ '())))) + (let () (declare (not safe)) (cons _L61562_ '())))) (declare (not safe)) - (cons _L84102_ __tmp90766)))) + (cons _L61564_ __tmp63662)))) (declare (not safe)) - (cons __tmp90767 __tmp90765))) + (cons __tmp63663 __tmp63661))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp90763 + (__tmp63659 (let () (declare (not safe)) (cons '0 '())))) (declare (not safe)) - (cons __tmp90764 __tmp90763)))) + (cons __tmp63660 __tmp63659)))) (declare (not safe)) - (cons __tmp90768 __tmp90762)))) + (cons __tmp63664 __tmp63658)))) (declare (not safe)) - (cons __tmp90761 '())))) + (cons __tmp63657 '())))) (declare (not safe)) - (cons __tmp90769 __tmp90760)))) + (cons __tmp63665 __tmp63656)))) (declare (not safe)) - (cons __tmp90771 __tmp90759))))) - (let ((___match9055490555_ - (lambda (_e8404084125_ - _hd8403984129_ - _tl8403884132_ - _e8404384135_ - _hd8404284139_ - _tl8404184142_ - _e8404684145_ - _hd8404584149_ - _tl8404484152_) - (let ((_L84155_ _hd8404584149_) (_L84157_ _hd8404284139_)) - (if (or (gx#identifier? _L84155_) - (gx#stx-fixnum? _L84155_)) - (___kont9053090531_ _L84155_ _L84157_) - (___kont9053290533_ - _hd8404584149_ - _hd8404284139_)))))) - (if (gx#stx-pair? ___stx9052790528_) - (let ((_e8404084125_ (gx#syntax-e ___stx9052790528_))) - (let ((_tl8403884132_ - (let () (declare (not safe)) (##cdr _e8404084125_))) - (_hd8403984129_ - (let () (declare (not safe)) (##car _e8404084125_)))) - (if (gx#stx-pair? _tl8403884132_) - (let ((_e8404384135_ (gx#syntax-e _tl8403884132_))) - (let ((_tl8404184142_ + (cons __tmp63667 __tmp63655))))) + (let ((___match6344863449_ + (lambda (_e6150261587_ + _hd6150161591_ + _tl6150061594_ + _e6150561597_ + _hd6150461601_ + _tl6150361604_ + _e6150861607_ + _hd6150761611_ + _tl6150661614_) + (let ((_L61617_ _hd6150761611_) (_L61619_ _hd6150461601_)) + (if (or (gx#identifier? _L61617_) + (gx#stx-fixnum? _L61617_)) + (___kont6342463425_ _L61617_ _L61619_) + (___kont6342663427_ + _hd6150761611_ + _hd6150461601_)))))) + (if (gx#stx-pair? ___stx6342163422_) + (let ((_e6150261587_ (gx#syntax-e ___stx6342163422_))) + (let ((_tl6150061594_ + (let () (declare (not safe)) (##cdr _e6150261587_))) + (_hd6150161591_ + (let () (declare (not safe)) (##car _e6150261587_)))) + (if (gx#stx-pair? _tl6150061594_) + (let ((_e6150561597_ (gx#syntax-e _tl6150061594_))) + (let ((_tl6150361604_ (let () (declare (not safe)) - (##cdr _e8404384135_))) - (_hd8404284139_ + (##cdr _e6150561597_))) + (_hd6150461601_ (let () (declare (not safe)) - (##car _e8404384135_)))) - (if (gx#stx-pair? _tl8404184142_) - (let ((_e8404684145_ - (gx#syntax-e _tl8404184142_))) - (let ((_tl8404484152_ + (##car _e6150561597_)))) + (if (gx#stx-pair? _tl6150361604_) + (let ((_e6150861607_ + (gx#syntax-e _tl6150361604_))) + (let ((_tl6150661614_ (let () (declare (not safe)) - (##cdr _e8404684145_))) - (_hd8404584149_ + (##cdr _e6150861607_))) + (_hd6150761611_ (let () (declare (not safe)) - (##car _e8404684145_)))) - (if (gx#stx-null? _tl8404484152_) - (___match9055490555_ - _e8404084125_ - _hd8403984129_ - _tl8403884132_ - _e8404384135_ - _hd8404284139_ - _tl8404184142_ - _e8404684145_ - _hd8404584149_ - _tl8404484152_) + (##car _e6150861607_)))) + (if (gx#stx-null? _tl6150661614_) + (___match6344863449_ + _e6150261587_ + _hd6150161591_ + _tl6150061594_ + _e6150561597_ + _hd6150461601_ + _tl6150361604_ + _e6150861607_ + _hd6150761611_ + _tl6150661614_) (let () (declare (not safe)) - (_g8403484063_))))) + (_g6149661525_))))) (let () (declare (not safe)) - (_g8403484063_))))) - (let () (declare (not safe)) (_g8403484063_))))) - (let () (declare (not safe)) (_g8403484063_)))))))) + (_g6149661525_))))) + (let () (declare (not safe)) (_g6149661525_))))) + (let () (declare (not safe)) (_g6149661525_)))))))) (define |[:0:]#defrefset| - (lambda (_stx84180_) - (let* ((_g8418384204_ - (lambda (_g8418484200_) + (lambda (_stx61642_) + (let* ((_g6164561666_ + (lambda (_g6164661662_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8418484200_))) - (_g8418284432_ - (lambda (_g8418484208_) - (if (gx#stx-pair? _g8418484208_) - (let ((_e8418984211_ (gx#syntax-e _g8418484208_))) - (let ((_hd8418884215_ + _g6164661662_))) + (_g6164461894_ + (lambda (_g6164661670_) + (if (gx#stx-pair? _g6164661670_) + (let ((_e6165161673_ (gx#syntax-e _g6164661670_))) + (let ((_hd6165061677_ (let () (declare (not safe)) - (##car _e8418984211_))) - (_tl8418784218_ + (##car _e6165161673_))) + (_tl6164961680_ (let () (declare (not safe)) - (##cdr _e8418984211_)))) - (if (gx#stx-pair? _tl8418784218_) - (let ((_e8419284221_ (gx#syntax-e _tl8418784218_))) - (let ((_hd8419184225_ + (##cdr _e6165161673_)))) + (if (gx#stx-pair? _tl6164961680_) + (let ((_e6165461683_ (gx#syntax-e _tl6164961680_))) + (let ((_hd6165361687_ (let () (declare (not safe)) - (##car _e8419284221_))) - (_tl8419084228_ + (##car _e6165461683_))) + (_tl6165261690_ (let () (declare (not safe)) - (##cdr _e8419284221_)))) - (if (gx#stx-pair? _hd8419184225_) - (let ((_e8419584231_ - (gx#syntax-e _hd8419184225_))) - (let ((_hd8419484235_ + (##cdr _e6165461683_)))) + (if (gx#stx-pair? _hd6165361687_) + (let ((_e6165761693_ + (gx#syntax-e _hd6165361687_))) + (let ((_hd6165661697_ (let () (declare (not safe)) - (##car _e8419584231_))) - (_tl8419384238_ + (##car _e6165761693_))) + (_tl6165561700_ (let () (declare (not safe)) - (##cdr _e8419584231_)))) - (if (gx#stx-pair? _tl8419384238_) - (let ((_e8419884241_ + (##cdr _e6165761693_)))) + (if (gx#stx-pair? _tl6165561700_) + (let ((_e6166061703_ (gx#syntax-e - _tl8419384238_))) - (let ((_hd8419784245_ + _tl6165561700_))) + (let ((_hd6165961707_ (let () (declare (not safe)) - (##car _e8419884241_))) - (_tl8419684248_ + (##car _e6166061703_))) + (_tl6165861710_ (let () (declare (not safe)) - (##cdr _e8419884241_)))) + (##cdr _e6166061703_)))) (if (gx#stx-null? - _tl8419684248_) + _tl6165861710_) (if (gx#stx-null? - _tl8419084228_) - ((lambda (_L84251_ + _tl6165261690_) + ((lambda (_L61713_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L84253_) - (let* ((_g8427184279_ - (lambda (_g8427284275_) + _L61715_) + (let* ((_g6173361741_ + (lambda (_g6173461737_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8427284275_))) - (_g8427084428_ - (lambda (_g8427284283_) - ((lambda (_L84286_) + _g6173461737_))) + (_g6173261890_ + (lambda (_g6173461745_) + ((lambda (_L61748_) (let () - (let* ((_g8429884306_ - (lambda (_g8429984302_) + (let* ((_g6176061768_ + (lambda (_g6176161764_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8429984302_))) - (_g8429784424_ - (lambda (_g8429984310_) - ((lambda (_L84313_) + _g6176161764_))) + (_g6175961886_ + (lambda (_g6176161772_) + ((lambda (_L61775_) (let () - (let* ((_g8432684334_ - (lambda (_g8432784330_) + (let* ((_g6178861796_ + (lambda (_g6178961792_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8432784330_))) - (_g8432584420_ - (lambda (_g8432784338_) - ((lambda (_L84341_) + _g6178961792_))) + (_g6178761882_ + (lambda (_g6178961800_) + ((lambda (_L61803_) (let () - (let* ((_g8435484362_ + (let* ((_g6181661824_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g8435584358_) + (lambda (_g6181761820_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8435584358_))) - (_g8435384416_ - (lambda (_g8435584366_) - ((lambda (_L84369_) + _g6181761820_))) + (_g6181561878_ + (lambda (_g6181761828_) + ((lambda (_L61831_) (let () - (let* ((_g8438284390_ - (lambda (_g8438384386_) + (let* ((_g6184461852_ + (lambda (_g6184561848_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8438384386_))) - (_g8438184412_ - (lambda (_g8438384394_) - ((lambda (_L84397_) + _g6184561848_))) + (_g6184361874_ + (lambda (_g6184561856_) + ((lambda (_L61859_) (let () (let () - (let ((__tmp90904 + (let ((__tmp63800 (gx#datum->syntax '#f 'begin)) - (__tmp90772 - (let ((__tmp90874 + (__tmp63668 + (let ((__tmp63770 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp90903 (gx#datum->syntax '#f 'def)) - (__tmp90875 - (let ((__tmp90876 - (let ((__tmp90877 - (let ((__tmp90902 + (let ((__tmp63799 (gx#datum->syntax '#f 'def)) + (__tmp63771 + (let ((__tmp63772 + (let ((__tmp63773 + (let ((__tmp63798 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp90878 - (let ((__tmp90897 + (__tmp63774 + (let ((__tmp63793 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp90901 + (let ((__tmp63797 (gx#datum->syntax '#f '@mop.accessor)) - (__tmp90898 - (let ((__tmp90899 - (let ((__tmp90900 + (__tmp63794 + (let ((__tmp63795 + (let ((__tmp63796 (let () (declare (not safe)) (cons '#t '())))) (declare (not safe)) - (cons _L84253_ __tmp90900)))) + (cons _L61715_ __tmp63796)))) (declare (not safe)) - (cons _L84286_ __tmp90899)))) + (cons _L61748_ __tmp63795)))) (declare (not safe)) - (cons __tmp90901 __tmp90898))) - (__tmp90879 - (let ((__tmp90880 - (let ((__tmp90896 + (cons __tmp63797 __tmp63794))) + (__tmp63775 + (let ((__tmp63776 + (let ((__tmp63792 (gx#datum->syntax '#f 'lambda)) - (__tmp90881 - (let ((__tmp90894 - (let ((__tmp90895 + (__tmp63777 + (let ((__tmp63790 + (let ((__tmp63791 (gx#datum->syntax '#f 'klass))) (declare (not safe)) - (cons __tmp90895 '()))) - (__tmp90882 - (let ((__tmp90883 - (let ((__tmp90893 + (cons __tmp63791 '()))) + (__tmp63778 + (let ((__tmp63779 + (let ((__tmp63789 (gx#datum->syntax '#f '##structure-ref)) - (__tmp90884 - (let ((__tmp90892 + (__tmp63780 + (let ((__tmp63788 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'klass)) - (__tmp90885 - (let ((__tmp90886 - (let ((__tmp90891 + (__tmp63781 + (let ((__tmp63782 + (let ((__tmp63787 (gx#datum->syntax '#f 'class::t)) - (__tmp90887 - (let ((__tmp90888 - (let ((__tmp90890 + (__tmp63783 + (let ((__tmp63784 + (let ((__tmp63786 (gx#datum->syntax '#f 'quote)) - (__tmp90889 + (__tmp63785 (let () (declare (not safe)) - (cons _L84253_ '())))) + (cons _L61715_ '())))) (declare (not safe)) - (cons __tmp90890 - __tmp90889)))) + (cons __tmp63786 + __tmp63785)))) (declare (not safe)) - (cons __tmp90888 '())))) + (cons __tmp63784 '())))) (declare (not safe)) - (cons __tmp90891 __tmp90887)))) + (cons __tmp63787 __tmp63783)))) (declare (not safe)) - (cons _L84251_ __tmp90886)))) + (cons _L61713_ __tmp63782)))) (declare (not safe)) - (cons __tmp90892 __tmp90885)))) + (cons __tmp63788 __tmp63781)))) (declare (not safe)) - (cons __tmp90893 __tmp90884)))) + (cons __tmp63789 __tmp63780)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp90883 '())))) + (cons __tmp63779 '())))) (declare (not safe)) - (cons __tmp90894 __tmp90882)))) + (cons __tmp63790 __tmp63778)))) (declare (not safe)) - (cons __tmp90896 __tmp90881)))) + (cons __tmp63792 __tmp63777)))) (declare (not safe)) - (cons __tmp90880 '())))) + (cons __tmp63776 '())))) (declare (not safe)) - (cons __tmp90897 __tmp90879)))) + (cons __tmp63793 __tmp63775)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp90902 - __tmp90878)))) + (cons __tmp63798 + __tmp63774)))) (declare (not safe)) - (cons __tmp90877 '())))) + (cons __tmp63773 '())))) (declare (not safe)) - (cons _L84313_ __tmp90876)))) + (cons _L61775_ __tmp63772)))) (declare (not safe)) - (cons __tmp90903 __tmp90875))) - (__tmp90773 - (let ((__tmp90844 - (let ((__tmp90873 + (cons __tmp63799 __tmp63771))) + (__tmp63669 + (let ((__tmp63740 + (let ((__tmp63769 (gx#datum->syntax '#f 'def)) - (__tmp90845 - (let ((__tmp90846 - (let ((__tmp90847 - (let ((__tmp90872 + (__tmp63741 + (let ((__tmp63742 + (let ((__tmp63743 + (let ((__tmp63768 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin-annotation)) - (__tmp90848 - (let ((__tmp90867 - (let ((__tmp90871 + (__tmp63744 + (let ((__tmp63763 + (let ((__tmp63767 (gx#datum->syntax '#f '@mop.accessor)) - (__tmp90868 - (let ((__tmp90869 - (let ((__tmp90870 + (__tmp63764 + (let ((__tmp63765 + (let ((__tmp63766 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L84253_ __tmp90870)))) + (cons _L61715_ __tmp63766)))) (declare (not safe)) - (cons _L84286_ __tmp90869)))) + (cons _L61748_ __tmp63765)))) (declare (not safe)) - (cons __tmp90871 __tmp90868))) - (__tmp90849 - (let ((__tmp90850 - (let ((__tmp90866 + (cons __tmp63767 __tmp63764))) + (__tmp63745 + (let ((__tmp63746 + (let ((__tmp63762 (gx#datum->syntax '#f 'lambda)) - (__tmp90851 - (let ((__tmp90864 - (let ((__tmp90865 + (__tmp63747 + (let ((__tmp63760 + (let ((__tmp63761 (gx#datum->syntax '#f 'klass))) (declare (not safe)) - (cons __tmp90865 '()))) - (__tmp90852 - (let ((__tmp90853 - (let ((__tmp90863 + (cons __tmp63761 '()))) + (__tmp63748 + (let ((__tmp63749 + (let ((__tmp63759 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##unchecked-structure-ref)) - (__tmp90854 - (let ((__tmp90862 (gx#datum->syntax '#f 'klass)) - (__tmp90855 - (let ((__tmp90856 - (let ((__tmp90861 + (__tmp63750 + (let ((__tmp63758 (gx#datum->syntax '#f 'klass)) + (__tmp63751 + (let ((__tmp63752 + (let ((__tmp63757 (gx#datum->syntax '#f 'class::t)) - (__tmp90857 - (let ((__tmp90858 - (let ((__tmp90860 + (__tmp63753 + (let ((__tmp63754 + (let ((__tmp63756 (gx#datum->syntax '#f 'quote)) - (__tmp90859 + (__tmp63755 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L84253_ '())))) + (cons _L61715_ '())))) (declare (not safe)) - (cons __tmp90860 __tmp90859)))) + (cons __tmp63756 __tmp63755)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp90858 '())))) + (cons __tmp63754 '())))) (declare (not safe)) - (cons __tmp90861 __tmp90857)))) + (cons __tmp63757 __tmp63753)))) (declare (not safe)) - (cons _L84251_ __tmp90856)))) + (cons _L61713_ __tmp63752)))) (declare (not safe)) - (cons __tmp90862 __tmp90855)))) + (cons __tmp63758 __tmp63751)))) (declare (not safe)) - (cons __tmp90863 __tmp90854)))) + (cons __tmp63759 __tmp63750)))) (declare (not safe)) - (cons __tmp90853 '())))) + (cons __tmp63749 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp90864 __tmp90852)))) + (cons __tmp63760 __tmp63748)))) (declare (not safe)) - (cons __tmp90866 __tmp90851)))) + (cons __tmp63762 __tmp63747)))) (declare (not safe)) - (cons __tmp90850 '())))) + (cons __tmp63746 '())))) (declare (not safe)) - (cons __tmp90867 __tmp90849)))) + (cons __tmp63763 __tmp63745)))) (declare (not safe)) - (cons __tmp90872 __tmp90848)))) + (cons __tmp63768 __tmp63744)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp90847 '())))) + (cons __tmp63743 '())))) (declare (not safe)) - (cons _L84341_ __tmp90846)))) + (cons _L61803_ __tmp63742)))) (declare (not safe)) - (cons __tmp90873 __tmp90845))) - (__tmp90774 - (let ((__tmp90810 - (let ((__tmp90843 + (cons __tmp63769 __tmp63741))) + (__tmp63670 + (let ((__tmp63706 + (let ((__tmp63739 (gx#datum->syntax '#f 'def)) - (__tmp90811 - (let ((__tmp90812 - (let ((__tmp90813 + (__tmp63707 + (let ((__tmp63708 + (let ((__tmp63709 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp90842 + (let ((__tmp63738 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp90814 - (let ((__tmp90837 - (let ((__tmp90841 + (__tmp63710 + (let ((__tmp63733 + (let ((__tmp63737 (gx#datum->syntax '#f '@mop.mutator)) - (__tmp90838 - (let ((__tmp90839 - (let ((__tmp90840 + (__tmp63734 + (let ((__tmp63735 + (let ((__tmp63736 (let () (declare (not safe)) (cons '#t '())))) (declare (not safe)) - (cons _L84253_ - __tmp90840)))) + (cons _L61715_ + __tmp63736)))) (declare (not safe)) - (cons _L84286_ __tmp90839)))) + (cons _L61748_ __tmp63735)))) (declare (not safe)) - (cons __tmp90841 __tmp90838))) - (__tmp90815 - (let ((__tmp90816 - (let ((__tmp90836 + (cons __tmp63737 __tmp63734))) + (__tmp63711 + (let ((__tmp63712 + (let ((__tmp63732 (gx#datum->syntax '#f 'lambda)) - (__tmp90817 - (let ((__tmp90832 - (let ((__tmp90835 + (__tmp63713 + (let ((__tmp63728 + (let ((__tmp63731 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'klass)) - (__tmp90833 - (let ((__tmp90834 (gx#datum->syntax '#f 'val))) + (__tmp63729 + (let ((__tmp63730 (gx#datum->syntax '#f 'val))) (declare (not safe)) - (cons __tmp90834 '())))) + (cons __tmp63730 '())))) (declare (not safe)) - (cons __tmp90835 __tmp90833))) - (__tmp90818 - (let ((__tmp90819 - (let ((__tmp90831 + (cons __tmp63731 __tmp63729))) + (__tmp63714 + (let ((__tmp63715 + (let ((__tmp63727 (gx#datum->syntax '#f '##structure-set!)) - (__tmp90820 - (let ((__tmp90830 + (__tmp63716 + (let ((__tmp63726 (gx#datum->syntax '#f 'klass)) - (__tmp90821 - (let ((__tmp90829 + (__tmp63717 + (let ((__tmp63725 (gx#datum->syntax '#f 'val)) - (__tmp90822 - (let ((__tmp90823 - (let ((__tmp90828 + (__tmp63718 + (let ((__tmp63719 + (let ((__tmp63724 (gx#datum->syntax '#f 'class::t)) - (__tmp90824 - (let ((__tmp90825 + (__tmp63720 + (let ((__tmp63721 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp90827 (gx#datum->syntax '#f 'quote)) - (__tmp90826 + (let ((__tmp63723 (gx#datum->syntax '#f 'quote)) + (__tmp63722 (let () (declare (not safe)) - (cons _L84253_ '())))) + (cons _L61715_ '())))) (declare (not safe)) - (cons __tmp90827 __tmp90826)))) + (cons __tmp63723 __tmp63722)))) (declare (not safe)) - (cons __tmp90825 '())))) + (cons __tmp63721 '())))) (declare (not safe)) - (cons __tmp90828 __tmp90824)))) + (cons __tmp63724 __tmp63720)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L84251_ __tmp90823)))) + (cons _L61713_ __tmp63719)))) (declare (not safe)) - (cons __tmp90829 __tmp90822)))) + (cons __tmp63725 __tmp63718)))) (declare (not safe)) - (cons __tmp90830 __tmp90821)))) + (cons __tmp63726 __tmp63717)))) (declare (not safe)) - (cons __tmp90831 __tmp90820)))) + (cons __tmp63727 __tmp63716)))) (declare (not safe)) - (cons __tmp90819 '())))) + (cons __tmp63715 '())))) (declare (not safe)) - (cons __tmp90832 __tmp90818)))) + (cons __tmp63728 __tmp63714)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp90836 __tmp90817)))) + (cons __tmp63732 __tmp63713)))) (declare (not safe)) - (cons __tmp90816 '())))) + (cons __tmp63712 '())))) (declare (not safe)) - (cons __tmp90837 __tmp90815)))) + (cons __tmp63733 __tmp63711)))) (declare (not safe)) - (cons __tmp90842 __tmp90814)))) + (cons __tmp63738 __tmp63710)))) (declare (not safe)) - (cons __tmp90813 '())))) + (cons __tmp63709 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L84369_ - __tmp90812)))) + (cons _L61831_ + __tmp63708)))) (declare (not safe)) - (cons __tmp90843 __tmp90811))) - (__tmp90775 - (let ((__tmp90776 - (let ((__tmp90809 + (cons __tmp63739 __tmp63707))) + (__tmp63671 + (let ((__tmp63672 + (let ((__tmp63705 (gx#datum->syntax '#f 'def)) - (__tmp90777 - (let ((__tmp90778 + (__tmp63673 + (let ((__tmp63674 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp90779 - (let ((__tmp90808 + (let ((__tmp63675 + (let ((__tmp63704 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp90780 - (let ((__tmp90803 - (let ((__tmp90807 + (__tmp63676 + (let ((__tmp63699 + (let ((__tmp63703 (gx#datum->syntax '#f '@mop.mutator)) - (__tmp90804 - (let ((__tmp90805 - (let ((__tmp90806 + (__tmp63700 + (let ((__tmp63701 + (let ((__tmp63702 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L84253_ __tmp90806)))) + (cons _L61715_ __tmp63702)))) (declare (not safe)) - (cons _L84286_ __tmp90805)))) + (cons _L61748_ __tmp63701)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp90807 __tmp90804))) - (__tmp90781 - (let ((__tmp90782 - (let ((__tmp90802 + (cons __tmp63703 __tmp63700))) + (__tmp63677 + (let ((__tmp63678 + (let ((__tmp63698 (gx#datum->syntax '#f 'lambda)) - (__tmp90783 - (let ((__tmp90798 + (__tmp63679 + (let ((__tmp63694 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp90801 (gx#datum->syntax '#f 'klass)) - (__tmp90799 - (let ((__tmp90800 + (let ((__tmp63697 (gx#datum->syntax '#f 'klass)) + (__tmp63695 + (let ((__tmp63696 (gx#datum->syntax '#f 'val))) (declare (not safe)) - (cons __tmp90800 '())))) + (cons __tmp63696 '())))) (declare (not safe)) - (cons __tmp90801 __tmp90799))) - (__tmp90784 - (let ((__tmp90785 - (let ((__tmp90797 + (cons __tmp63697 __tmp63695))) + (__tmp63680 + (let ((__tmp63681 + (let ((__tmp63693 (gx#datum->syntax '#f '##unchecked-structure-set!)) - (__tmp90786 - (let ((__tmp90796 + (__tmp63682 + (let ((__tmp63692 (gx#datum->syntax '#f 'klass)) - (__tmp90787 - (let ((__tmp90795 + (__tmp63683 + (let ((__tmp63691 (gx#datum->syntax '#f 'val)) - (__tmp90788 - (let ((__tmp90789 - (let ((__tmp90794 + (__tmp63684 + (let ((__tmp63685 + (let ((__tmp63690 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'class::t)) - (__tmp90790 - (let ((__tmp90791 - (let ((__tmp90793 + (__tmp63686 + (let ((__tmp63687 + (let ((__tmp63689 (gx#datum->syntax '#f 'quote)) - (__tmp90792 + (__tmp63688 (let () (declare (not safe)) - (cons _L84253_ '())))) + (cons _L61715_ '())))) (declare (not safe)) - (cons __tmp90793 __tmp90792)))) + (cons __tmp63689 __tmp63688)))) (declare (not safe)) - (cons __tmp90791 '())))) + (cons __tmp63687 '())))) (declare (not safe)) - (cons __tmp90794 __tmp90790)))) + (cons __tmp63690 __tmp63686)))) (declare (not safe)) - (cons _L84251_ __tmp90789)))) + (cons _L61713_ __tmp63685)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp90795 - __tmp90788)))) + (cons __tmp63691 + __tmp63684)))) (declare (not safe)) - (cons __tmp90796 __tmp90787)))) + (cons __tmp63692 __tmp63683)))) (declare (not safe)) - (cons __tmp90797 __tmp90786)))) + (cons __tmp63693 __tmp63682)))) (declare (not safe)) - (cons __tmp90785 '())))) + (cons __tmp63681 '())))) (declare (not safe)) - (cons __tmp90798 __tmp90784)))) + (cons __tmp63694 __tmp63680)))) (declare (not safe)) - (cons __tmp90802 __tmp90783)))) + (cons __tmp63698 __tmp63679)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp90782 '())))) + (cons __tmp63678 '())))) (declare (not safe)) - (cons __tmp90803 __tmp90781)))) + (cons __tmp63699 __tmp63677)))) (declare (not safe)) - (cons __tmp90808 __tmp90780)))) + (cons __tmp63704 __tmp63676)))) (declare (not safe)) - (cons __tmp90779 '())))) + (cons __tmp63675 '())))) (declare (not safe)) - (cons _L84397_ __tmp90778)))) + (cons _L61859_ __tmp63674)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp90809 - __tmp90777)))) + (cons __tmp63705 + __tmp63673)))) (declare (not safe)) - (cons __tmp90776 '())))) + (cons __tmp63672 '())))) (declare (not safe)) - (cons __tmp90810 __tmp90775)))) + (cons __tmp63706 __tmp63671)))) (declare (not safe)) - (cons __tmp90844 __tmp90774)))) + (cons __tmp63740 __tmp63670)))) (declare (not safe)) - (cons __tmp90874 __tmp90773)))) + (cons __tmp63770 __tmp63669)))) (declare (not safe)) - (cons __tmp90904 __tmp90772))))) + (cons __tmp63800 __tmp63668))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g8438384394_)))) - (_g8438184412_ + _g6184561856_)))) + (_g6184361874_ (gx#stx-identifier - _L84253_ + _L61715_ '"&" - _L84369_))))) - _g8435584366_)))) - (_g8435384416_ - (gx#stx-identifier _L84253_ _L84313_ '"-set!"))))) - _g8432784338_)))) + _L61831_))))) + _g6181761828_)))) + (_g6181561878_ + (gx#stx-identifier _L61715_ _L61775_ '"-set!"))))) + _g6178961800_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8432584420_ + (_g6178761882_ (gx#stx-identifier - _L84253_ + _L61715_ '"&" - _L84313_))))) - _g8429984310_)))) - (_g8429784424_ + _L61775_))))) + _g6176161772_)))) + (_g6175961886_ (gx#stx-identifier - _L84253_ + _L61715_ '"class-type-" - _L84253_))))) - _g8427284283_)))) - (_g8427084428_ (gx#core-quote-syntax 'class::t)))) - _hd8419784245_ - _hd8419484235_) - (_g8418384204_ _g8418484208_)) + _L61715_))))) + _g6173461745_)))) + (_g6173261890_ (gx#core-quote-syntax 'class::t)))) + _hd6165961707_ + _hd6165661697_) + (_g6164561666_ _g6164661670_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8418384204_ - _g8418484208_)))) - (_g8418384204_ _g8418484208_)))) - (_g8418384204_ _g8418484208_)))) - (_g8418384204_ _g8418484208_)))) - (_g8418384204_ _g8418484208_))))) - (_g8418284432_ _stx84180_)))) + (_g6164561666_ + _g6164661670_)))) + (_g6164561666_ _g6164661670_)))) + (_g6164561666_ _g6164661670_)))) + (_g6164561666_ _g6164661670_)))) + (_g6164561666_ _g6164661670_))))) + (_g6164461894_ _stx61642_)))) (define |[:0:]#defrefset*| - (lambda (_$stx84436_) - (let* ((_g8444084469_ - (lambda (_g8444184465_) + (lambda (_$stx61898_) + (let* ((_g6190261931_ + (lambda (_g6190361927_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8444184465_))) - (_g8443984569_ - (lambda (_g8444184473_) - (if (gx#stx-pair? _g8444184473_) - (let ((_e8444684476_ (gx#syntax-e _g8444184473_))) - (let ((_hd8444584480_ + _g6190361927_))) + (_g6190162031_ + (lambda (_g6190361935_) + (if (gx#stx-pair? _g6190361935_) + (let ((_e6190861938_ (gx#syntax-e _g6190361935_))) + (let ((_hd6190761942_ (let () (declare (not safe)) - (##car _e8444684476_))) - (_tl8444484483_ + (##car _e6190861938_))) + (_tl6190661945_ (let () (declare (not safe)) - (##cdr _e8444684476_)))) - (if (gx#stx-pair/null? _tl8444484483_) - (let ((_g90905_ - (gx#syntax-split-splice _tl8444484483_ '0))) + (##cdr _e6190861938_)))) + (if (gx#stx-pair/null? _tl6190661945_) + (let ((_g63801_ + (gx#syntax-split-splice _tl6190661945_ '0))) (begin - (let ((_g90906_ + (let ((_g63802_ (let () (declare (not safe)) - (if (##values? _g90905_) - (##vector-length _g90905_) + (if (##values? _g63801_) + (##vector-length _g63801_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g90906_ 2))) + (##fx= _g63802_ 2))) (error "Context expects 2 values" - _g90906_))) - (let ((_target8444784486_ + _g63802_))) + (let ((_target6190961948_ (let () (declare (not safe)) - (##vector-ref _g90905_ 0))) - (_tl8444984489_ + (##vector-ref _g63801_ 0))) + (_tl6191161951_ (let () (declare (not safe)) - (##vector-ref _g90905_ 1)))) - (if (gx#stx-null? _tl8444984489_) - (letrec ((_loop8445084492_ - (lambda (_hd8444884496_ - _field8445484499_ - _slot8445584501_) + (##vector-ref _g63801_ 1)))) + (if (gx#stx-null? _tl6191161951_) + (letrec ((_loop6191261954_ + (lambda (_hd6191061958_ + _field6191661961_ + _slot6191761963_) (if (gx#stx-pair? - _hd8444884496_) - (let ((_e8445184504_ + _hd6191061958_) + (let ((_e6191361966_ (gx#syntax-e - _hd8444884496_))) - (let ((_lp-hd8445284508_ + _hd6191061958_))) + (let ((_lp-hd6191461970_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e8445184504_))) - (_lp-tl8445384511_ - (let () (declare (not safe)) (##cdr _e8445184504_)))) - (if (gx#stx-pair? _lp-hd8445284508_) - (let ((_e8446084514_ (gx#syntax-e _lp-hd8445284508_))) - (let ((_hd8445984518_ + (##car _e6191361966_))) + (_lp-tl6191561973_ + (let () (declare (not safe)) (##cdr _e6191361966_)))) + (if (gx#stx-pair? _lp-hd6191461970_) + (let ((_e6192261976_ (gx#syntax-e _lp-hd6191461970_))) + (let ((_hd6192161980_ (let () (declare (not safe)) - (##car _e8446084514_))) - (_tl8445884521_ + (##car _e6192261976_))) + (_tl6192061983_ (let () (declare (not safe)) - (##cdr _e8446084514_)))) - (if (gx#stx-pair? _tl8445884521_) - (let ((_e8446384524_ - (gx#syntax-e _tl8445884521_))) - (let ((_hd8446284528_ + (##cdr _e6192261976_)))) + (if (gx#stx-pair? _tl6192061983_) + (let ((_e6192561986_ + (gx#syntax-e _tl6192061983_))) + (let ((_hd6192461990_ (let () (declare (not safe)) - (##car _e8446384524_))) - (_tl8446184531_ + (##car _e6192561986_))) + (_tl6192361993_ (let () (declare (not safe)) - (##cdr _e8446384524_)))) - (if (gx#stx-null? _tl8446184531_) - (_loop8445084492_ - _lp-tl8445384511_ + (##cdr _e6192561986_)))) + (if (gx#stx-null? _tl6192361993_) + (_loop6191261954_ + _lp-tl6191561973_ (let () (declare (not safe)) - (cons _hd8446284528_ - _field8445484499_)) + (cons _hd6192461990_ + _field6191661961_)) (let () (declare (not safe)) - (cons _hd8445984518_ - _slot8445584501_))) - (_g8444084469_ _g8444184473_)))) - (_g8444084469_ _g8444184473_)))) - (_g8444084469_ _g8444184473_)))) - (let ((_field8445684534_ (reverse _field8445484499_)) - (_slot8445784537_ (reverse _slot8445584501_))) - ((lambda (_L84540_ _L84542_) - (let ((__tmp90914 (gx#datum->syntax '#f 'begin)) - (__tmp90907 + (cons _hd6192161980_ + _slot6191761963_))) + (_g6190261931_ _g6190361935_)))) + (_g6190261931_ _g6190361935_)))) + (_g6190261931_ _g6190361935_)))) + (let ((_field6191861996_ (reverse _field6191661961_)) + (_slot6191961999_ (reverse _slot6191761963_))) + ((lambda (_L62002_ _L62004_) + (let ((__tmp63810 (gx#datum->syntax '#f 'begin)) + (__tmp63803 (begin - (gx#syntax-check-splice-targets _L84540_ _L84542_) - (let ((__tmp90908 - (lambda (_g8455784561_ - _g8455884564_ - _g8455984566_) - (let ((__tmp90909 - (let ((__tmp90913 + (gx#syntax-check-splice-targets _L62002_ _L62004_) + (let ((__tmp63804 + (lambda (_g6201962023_ + _g6202062026_ + _g6202162028_) + (let ((__tmp63805 + (let ((__tmp63809 (gx#datum->syntax '#f 'defrefset)) - (__tmp90910 - (let ((__tmp90911 - (let ((__tmp90912 + (__tmp63806 + (let ((__tmp63807 + (let ((__tmp63808 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _g8455784561_ '())))) + (cons _g6201962023_ '())))) (declare (not safe)) - (cons _g8455884564_ __tmp90912)))) + (cons _g6202062026_ __tmp63808)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp90911 '())))) + (cons __tmp63807 '())))) (declare (not safe)) - (cons __tmp90913 __tmp90910)))) + (cons __tmp63809 __tmp63806)))) (declare (not safe)) - (cons __tmp90909 _g8455984566_))))) + (cons __tmp63805 _g6202162028_))))) (declare (not safe)) - (foldr2 __tmp90908 '() _L84540_ _L84542_))))) + (foldr2 __tmp63804 '() _L62002_ _L62004_))))) (declare (not safe)) - (cons __tmp90914 __tmp90907))) - _field8445684534_ - _slot8445784537_)))))) + (cons __tmp63810 __tmp63803))) + _field6191861996_ + _slot6191961999_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop8445084492_ - _target8444784486_ + (_loop6191261954_ + _target6190961948_ '() '())) - (_g8444084469_ _g8444184473_))))) - (_g8444084469_ _g8444184473_)))) - (_g8444084469_ _g8444184473_))))) - (_g8443984569_ _$stx84436_)))) + (_g6190261931_ _g6190361935_))))) + (_g6190261931_ _g6190361935_)))) + (_g6190261931_ _g6190361935_))))) + (_g6190162031_ _$stx61898_)))) (define |[:0:]#__slot-e| - (lambda (_$stx84574_) - (let* ((_g8457884604_ - (lambda (_g8457984600_) + (lambda (_$stx62036_) + (let* ((_g6204062066_ + (lambda (_g6204162062_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8457984600_))) - (_g8457784687_ - (lambda (_g8457984608_) - (if (gx#stx-pair? _g8457984608_) - (let ((_e8458684611_ (gx#syntax-e _g8457984608_))) - (let ((_hd8458584615_ + _g6204162062_))) + (_g6203962149_ + (lambda (_g6204162070_) + (if (gx#stx-pair? _g6204162070_) + (let ((_e6204862073_ (gx#syntax-e _g6204162070_))) + (let ((_hd6204762077_ (let () (declare (not safe)) - (##car _e8458684611_))) - (_tl8458484618_ + (##car _e6204862073_))) + (_tl6204662080_ (let () (declare (not safe)) - (##cdr _e8458684611_)))) - (if (gx#stx-pair? _tl8458484618_) - (let ((_e8458984621_ (gx#syntax-e _tl8458484618_))) - (let ((_hd8458884625_ + (##cdr _e6204862073_)))) + (if (gx#stx-pair? _tl6204662080_) + (let ((_e6205162083_ (gx#syntax-e _tl6204662080_))) + (let ((_hd6205062087_ (let () (declare (not safe)) - (##car _e8458984621_))) - (_tl8458784628_ + (##car _e6205162083_))) + (_tl6204962090_ (let () (declare (not safe)) - (##cdr _e8458984621_)))) - (if (gx#stx-pair? _tl8458784628_) - (let ((_e8459284631_ - (gx#syntax-e _tl8458784628_))) - (let ((_hd8459184635_ + (##cdr _e6205162083_)))) + (if (gx#stx-pair? _tl6204962090_) + (let ((_e6205462093_ + (gx#syntax-e _tl6204962090_))) + (let ((_hd6205362097_ (let () (declare (not safe)) - (##car _e8459284631_))) - (_tl8459084638_ + (##car _e6205462093_))) + (_tl6205262100_ (let () (declare (not safe)) - (##cdr _e8459284631_)))) - (if (gx#stx-pair? _tl8459084638_) - (let ((_e8459584641_ + (##cdr _e6205462093_)))) + (if (gx#stx-pair? _tl6205262100_) + (let ((_e6205762103_ (gx#syntax-e - _tl8459084638_))) - (let ((_hd8459484645_ + _tl6205262100_))) + (let ((_hd6205662107_ (let () (declare (not safe)) - (##car _e8459584641_))) - (_tl8459384648_ + (##car _e6205762103_))) + (_tl6205562110_ (let () (declare (not safe)) - (##cdr _e8459584641_)))) + (##cdr _e6205762103_)))) (if (gx#stx-pair? - _tl8459384648_) - (let ((_e8459884651_ + _tl6205562110_) + (let ((_e6206062113_ (gx#syntax-e - _tl8459384648_))) - (let ((_hd8459784655_ + _tl6205562110_))) + (let ((_hd6205962117_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e8459884651_))) - (_tl8459684658_ - (let () (declare (not safe)) (##cdr _e8459884651_)))) - (if (gx#stx-null? _tl8459684658_) - ((lambda (_L84661_ _L84663_ _L84664_ _L84665_) - (let ((__tmp90961 (gx#datum->syntax '#f 'if)) - (__tmp90915 - (let ((__tmp90958 - (let ((__tmp90960 + (##car _e6206062113_))) + (_tl6205862120_ + (let () (declare (not safe)) (##cdr _e6206062113_)))) + (if (gx#stx-null? _tl6205862120_) + ((lambda (_L62123_ _L62125_ _L62126_ _L62127_) + (let ((__tmp63857 (gx#datum->syntax '#f 'if)) + (__tmp63811 + (let ((__tmp63854 + (let ((__tmp63856 (gx#datum->syntax '#f 'object?)) - (__tmp90959 + (__tmp63855 (let () (declare (not safe)) - (cons _L84665_ '())))) + (cons _L62127_ '())))) (declare (not safe)) - (cons __tmp90960 __tmp90959))) - (__tmp90916 - (let ((__tmp90921 - (let ((__tmp90957 + (cons __tmp63856 __tmp63855))) + (__tmp63812 + (let ((__tmp63817 + (let ((__tmp63853 (gx#datum->syntax '#f 'let)) - (__tmp90922 - (let ((__tmp90951 - (let ((__tmp90956 + (__tmp63818 + (let ((__tmp63847 + (let ((__tmp63852 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'klass)) - (__tmp90952 - (let ((__tmp90953 - (let ((__tmp90955 + (__tmp63848 + (let ((__tmp63849 + (let ((__tmp63851 (gx#datum->syntax '#f 'object-type)) - (__tmp90954 + (__tmp63850 (let () (declare (not safe)) - (cons _L84665_ '())))) + (cons _L62127_ '())))) (declare (not safe)) - (cons __tmp90955 __tmp90954)))) + (cons __tmp63851 __tmp63850)))) (declare (not safe)) - (cons __tmp90953 '())))) + (cons __tmp63849 '())))) (declare (not safe)) - (cons __tmp90956 __tmp90952))) - (__tmp90923 - (let ((__tmp90924 - (let ((__tmp90950 (gx#datum->syntax '#f 'cond)) - (__tmp90925 - (let ((__tmp90933 - (let ((__tmp90937 - (let ((__tmp90949 + (cons __tmp63852 __tmp63848))) + (__tmp63819 + (let ((__tmp63820 + (let ((__tmp63846 (gx#datum->syntax '#f 'cond)) + (__tmp63821 + (let ((__tmp63829 + (let ((__tmp63833 + (let ((__tmp63845 (gx#datum->syntax '#f 'and)) - (__tmp90938 - (let ((__tmp90945 - (let ((__tmp90948 + (__tmp63834 + (let ((__tmp63841 + (let ((__tmp63844 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'class-type?)) - (__tmp90946 - (let ((__tmp90947 (gx#datum->syntax '#f 'klass))) + (__tmp63842 + (let ((__tmp63843 (gx#datum->syntax '#f 'klass))) (declare (not safe)) - (cons __tmp90947 '())))) + (cons __tmp63843 '())))) (declare (not safe)) - (cons __tmp90948 __tmp90946))) - (__tmp90939 - (let ((__tmp90940 - (let ((__tmp90944 + (cons __tmp63844 __tmp63842))) + (__tmp63835 + (let ((__tmp63836 + (let ((__tmp63840 (gx#datum->syntax '#f 'class-slot-offset)) - (__tmp90941 - (let ((__tmp90943 + (__tmp63837 + (let ((__tmp63839 (gx#datum->syntax '#f 'klass)) - (__tmp90942 + (__tmp63838 (let () (declare (not safe)) - (cons _L84664_ '())))) + (cons _L62126_ '())))) (declare (not safe)) - (cons __tmp90943 __tmp90942)))) + (cons __tmp63839 __tmp63838)))) (declare (not safe)) - (cons __tmp90944 __tmp90941)))) + (cons __tmp63840 __tmp63837)))) (declare (not safe)) - (cons __tmp90940 '())))) + (cons __tmp63836 '())))) (declare (not safe)) - (cons __tmp90945 __tmp90939)))) + (cons __tmp63841 __tmp63835)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp90949 __tmp90938))) - (__tmp90934 - (let ((__tmp90936 + (cons __tmp63845 __tmp63834))) + (__tmp63830 + (let ((__tmp63832 (gx#datum->syntax '#f '=>)) - (__tmp90935 + (__tmp63831 (let () (declare (not safe)) - (cons _L84663_ '())))) + (cons _L62125_ '())))) (declare (not safe)) - (cons __tmp90936 __tmp90935)))) + (cons __tmp63832 __tmp63831)))) (declare (not safe)) - (cons __tmp90937 __tmp90934))) - (__tmp90926 - (let ((__tmp90927 - (let ((__tmp90932 + (cons __tmp63833 __tmp63830))) + (__tmp63822 + (let ((__tmp63823 + (let ((__tmp63828 (gx#datum->syntax '#f 'else)) - (__tmp90928 - (let ((__tmp90929 - (let ((__tmp90930 + (__tmp63824 + (let ((__tmp63825 + (let ((__tmp63826 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp90931 + (let ((__tmp63827 (let () (declare (not safe)) - (cons _L84664_ '())))) + (cons _L62126_ '())))) (declare (not safe)) - (cons _L84665_ __tmp90931)))) + (cons _L62127_ __tmp63827)))) (declare (not safe)) - (cons _L84661_ __tmp90930)))) + (cons _L62123_ __tmp63826)))) (declare (not safe)) - (cons __tmp90929 '())))) + (cons __tmp63825 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp90932 __tmp90928)))) + (cons __tmp63828 __tmp63824)))) (declare (not safe)) - (cons __tmp90927 '())))) + (cons __tmp63823 '())))) (declare (not safe)) - (cons __tmp90933 __tmp90926)))) + (cons __tmp63829 __tmp63822)))) (declare (not safe)) - (cons __tmp90950 __tmp90925)))) + (cons __tmp63846 __tmp63821)))) (declare (not safe)) - (cons __tmp90924 '())))) + (cons __tmp63820 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp90951 - __tmp90923)))) + (cons __tmp63847 + __tmp63819)))) (declare (not safe)) - (cons __tmp90957 __tmp90922))) - (__tmp90917 - (let ((__tmp90918 - (let ((__tmp90919 - (let ((__tmp90920 + (cons __tmp63853 __tmp63818))) + (__tmp63813 + (let ((__tmp63814 + (let ((__tmp63815 + (let ((__tmp63816 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L84664_ '())))) + (let () (declare (not safe)) (cons _L62126_ '())))) (declare (not safe)) - (cons _L84665_ __tmp90920)))) + (cons _L62127_ __tmp63816)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L84661_ - __tmp90919)))) + (cons _L62123_ + __tmp63815)))) (declare (not safe)) - (cons __tmp90918 '())))) + (cons __tmp63814 '())))) (declare (not safe)) - (cons __tmp90921 __tmp90917)))) + (cons __tmp63817 __tmp63813)))) (declare (not safe)) - (cons __tmp90958 __tmp90916)))) + (cons __tmp63854 __tmp63812)))) (declare (not safe)) - (cons __tmp90961 __tmp90915))) - _hd8459784655_ - _hd8459484645_ - _hd8459184635_ - _hd8458884625_) - (_g8457884604_ _g8457984608_)))) + (cons __tmp63857 __tmp63811))) + _hd6205962117_ + _hd6205662107_ + _hd6205362097_ + _hd6205062087_) + (_g6204062066_ _g6204162070_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8457884604_ - _g8457984608_)))) - (_g8457884604_ _g8457984608_)))) - (_g8457884604_ _g8457984608_)))) - (_g8457884604_ _g8457984608_)))) - (_g8457884604_ _g8457984608_))))) - (_g8457784687_ _$stx84574_))))) + (_g6204062066_ + _g6204162070_)))) + (_g6204062066_ _g6204162070_)))) + (_g6204062066_ _g6204162070_)))) + (_g6204062066_ _g6204162070_)))) + (_g6204062066_ _g6204162070_))))) + (_g6203962149_ _$stx62036_))))) diff --git a/src/bootstrap/gerbil/runtime/mop__rt.scm b/src/bootstrap/gerbil/runtime/mop__rt.scm index f40ce8df5..b04ba5c87 100644 --- a/src/bootstrap/gerbil/runtime/mop__rt.scm +++ b/src/bootstrap/gerbil/runtime/mop__rt.scm @@ -3,5 +3,6 @@ (begin (load-module "gerbil/runtime/gambit__rt") (load-module "gerbil/runtime/util__rt") + (load-module "gerbil/runtime/table__rt") (load-module "gerbil/runtime/c3__rt")) (load-module "gerbil/runtime/mop__0")) diff --git a/src/bootstrap/gerbil/runtime/repl__0.scm b/src/bootstrap/gerbil/runtime/repl__0.scm index 181569096..9cea6dc4a 100644 --- a/src/bootstrap/gerbil/runtime/repl__0.scm +++ b/src/bootstrap/gerbil/runtime/repl__0.scm @@ -1,28 +1,28 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/repl::timestamp 1708102802) + (define gerbil/runtime/repl::timestamp 1708370113) (define replx (lambda () - (letrec ((_write-reason117074_ - (lambda (_exn117080_) - (lambda (_cont117082_ _port117083_) + (letrec ((_write-reason77307_ + (lambda (_exn77313_) + (lambda (_cont77315_ _port77316_) (let () (declare (not safe)) (##display-exception-in-context - _exn117080_ - _cont117082_ - _port117083_)) + _exn77313_ + _cont77315_ + _port77316_)) '#f)))) (with-exception-handler - (lambda (_exn117076_) - (let ((__tmp121652 - (lambda (_cont117078_) - (let ((__tmp121653 + (lambda (_exn77309_) + (let ((__tmp77317 + (lambda (_cont77311_) + (let ((__tmp77318 (let () (declare (not safe)) - (_write-reason117074_ _exn117076_)))) + (_write-reason77307_ _exn77309_)))) (declare (not safe)) - (##repl-within _cont117078_ __tmp121653 _exn117076_))))) + (##repl-within _cont77311_ __tmp77318 _exn77309_))))) (declare (not safe)) - (##continuation-capture __tmp121652))) + (##continuation-capture __tmp77317))) ##repl))))) diff --git a/src/bootstrap/gerbil/runtime/syntax.ssi b/src/bootstrap/gerbil/runtime/syntax.ssi index f6d2c6828..8084b01d2 100644 --- a/src/bootstrap/gerbil/runtime/syntax.ssi +++ b/src/bootstrap/gerbil/runtime/syntax.ssi @@ -51,7 +51,6 @@ namespace: #f (%#define-runtime make-syntax-error make-syntax-error) (%#define-runtime syntax-error? syntax-error?) (%#define-runtime __raise-syntax-error __raise-syntax-error) - (%#define-runtime __current-context __current-context) (%#define-runtime AST::t AST::t) (%#define-runtime AST? AST?) (%#define-runtime make-AST make-AST) diff --git a/src/bootstrap/gerbil/runtime/syntax__0.scm b/src/bootstrap/gerbil/runtime/syntax__0.scm index 5d240cebf..ceee993ac 100644 --- a/src/bootstrap/gerbil/runtime/syntax__0.scm +++ b/src/bootstrap/gerbil/runtime/syntax__0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/syntax::timestamp 1708102801) + (define gerbil/runtime/syntax::timestamp 1708370113) (begin (declare (not safe)) (define SyntaxError::t @@ -13,8 +13,7 @@ '#f)) (define SyntaxError? (make-class-predicate SyntaxError::t)) (define make-SyntaxError - (lambda _$args104035_ - (apply make-instance SyntaxError::t _$args104035_))) + (lambda _$args73978_ (apply make-instance SyntaxError::t _$args73978_))) (define SyntaxError-message (make-class-slot-accessor SyntaxError::t 'message)) (define SyntaxError-irritants @@ -60,170 +59,165 @@ (define &SyntaxError-marks-set! (make-class-slot-unchecked-mutator SyntaxError::t 'marks)) (define SyntaxError::display-exception - (lambda (_self103938_ _port103939_) - (letrec ((_location103941_ + (lambda (_self73881_ _port73882_) + (letrec ((_location73884_ (lambda () - (let _lp103995_ ((_rest103997_ - (##unchecked-structure-ref - _self103938_ - '2 - SyntaxError::t - '#f))) - (let* ((_rest103998104006_ _rest103997_) - (_else104000104014_ (lambda () '#f)) - (_K104002104023_ - (lambda (_rest104017_ _hd104018_) - (let ((_$e104020_ (__AST-source _hd104018_))) - (if _$e104020_ - _$e104020_ - (_lp103995_ _rest104017_)))))) - (if (##pair? _rest103998104006_) - (let ((_hd104003104026_ (##car _rest103998104006_)) - (_tl104004104028_ - (##cdr _rest103998104006_))) - (let* ((_hd104031_ _hd104003104026_) - (_rest104033_ _tl104004104028_)) - (_K104002104023_ _rest104033_ _hd104031_))) - (_else104000104014_))))))) + (let _lp73938_ ((_rest73940_ + (##unchecked-structure-ref + _self73881_ + '2 + SyntaxError::t + '#f))) + (let* ((_rest7394173949_ _rest73940_) + (_else7394373957_ (lambda () '#f)) + (_K7394573966_ + (lambda (_rest73960_ _hd73961_) + (let ((_$e73963_ (__AST-source _hd73961_))) + (if _$e73963_ + _$e73963_ + (_lp73938_ _rest73960_)))))) + (if (##pair? _rest7394173949_) + (let ((_hd7394673969_ (##car _rest7394173949_)) + (_tl7394773971_ (##cdr _rest7394173949_))) + (let* ((_hd73974_ _hd7394673969_) + (_rest73976_ _tl7394773971_)) + (_K7394573966_ _rest73976_ _hd73974_))) + (_else7394373957_))))))) (call-with-parameters (lambda () (newline) (display '"*** ERROR IN ") - (let ((_$e103944_ (_location103941_))) - (if _$e103944_ - ((lambda (_where103947_) - (##display-locat - _where103947_ - '#t - (current-output-port))) - _$e103944_) + (let ((_$e73887_ (_location73884_))) + (if _$e73887_ + ((lambda (_where73890_) + (##display-locat _where73890_ '#t (current-output-port))) + _$e73887_) (display '"?"))) (newline) (display '"--- Syntax Error") - (let ((_$e103949_ + (let ((_$e73892_ (##unchecked-structure-ref - _self103938_ + _self73881_ '3 SyntaxError::t '#f))) - (if _$e103949_ - ((lambda (_where103952_) + (if _$e73892_ + ((lambda (_where73895_) (displayln '" at " - _where103952_ + _where73895_ '": " (##unchecked-structure-ref - _self103938_ + _self73881_ '1 SyntaxError::t '#f))) - _$e103949_) + _$e73892_) (displayln '": " (##unchecked-structure-ref - _self103938_ + _self73881_ '1 SyntaxError::t '#f)))) - (let* ((_g103953103961_ + (let* ((_g7389673904_ (##unchecked-structure-ref - _self103938_ + _self73881_ '2 SyntaxError::t '#f)) - (_else103955103969_ (lambda () '#!void)) - (_K103957103982_ - (lambda (_rest103972_ _stx103973_) + (_else7389873912_ (lambda () '#!void)) + (_K7390073925_ + (lambda (_rest73915_ _stx73916_) (display '"... form: ") - (__pp-syntax _stx103973_) + (__pp-syntax _stx73916_) (for-each - (lambda (_detail103975_) + (lambda (_detail73918_) (display '"... detail: ") - (write (__AST->datum _detail103975_)) - (let ((_$e103977_ (__AST-source _detail103975_))) - (if _$e103977_ - ((lambda (_loc103980_) + (write (__AST->datum _detail73918_)) + (let ((_$e73920_ (__AST-source _detail73918_))) + (if _$e73920_ + ((lambda (_loc73923_) (display '" at ") (##display-locat - _loc103980_ + _loc73923_ '#t (current-output-port))) - _$e103977_) + _$e73920_) '#!void)) (newline)) - _rest103972_)))) - (if (##pair? _g103953103961_) - (let ((_hd103958103985_ (##car _g103953103961_)) - (_tl103959103987_ (##cdr _g103953103961_))) - (let* ((_stx103990_ _hd103958103985_) - (_rest103992_ _tl103959103987_)) - (_K103957103982_ _rest103992_ _stx103990_))) + _rest73915_)))) + (if (##pair? _g7389673904_) + (let ((_hd7390173928_ (##car _g7389673904_)) + (_tl7390273930_ (##cdr _g7389673904_))) + (let* ((_stx73933_ _hd7390173928_) + (_rest73935_ _tl7390273930_)) + (_K7390073925_ _rest73935_ _stx73933_))) '#!void))) current-output-port - _port103939_)))) - (bind-method! + _port73882_)))) + (bind-method!__% SyntaxError::t 'display-exception SyntaxError::display-exception '#f) (seal-class! SyntaxError::t) (define make-syntax-error - (lambda (_message103809_ - _irritants103810_ - _where103811_ - _context103812_ - _marks103813_ - _phi103814_) - (let ((__obj108698 + (lambda (_message73752_ + _irritants73753_ + _where73754_ + _context73755_ + _marks73756_ + _phi73757_) + (let ((__obj74073 (##structure SyntaxError::t '#f '#f '#f '#f '#f '#f))) (##unchecked-structure-set! - __obj108698 - _message103809_ + __obj74073 + _message73752_ '1 SyntaxError::t '#f) (##unchecked-structure-set! - __obj108698 - _irritants103810_ + __obj74073 + _irritants73753_ '2 SyntaxError::t '#f) (##unchecked-structure-set! - __obj108698 - _where103811_ + __obj74073 + _where73754_ '3 SyntaxError::t '#f) (##unchecked-structure-set! - __obj108698 - _context103812_ + __obj74073 + _context73755_ '4 SyntaxError::t '#f) (##unchecked-structure-set! - __obj108698 - _marks103813_ + __obj74073 + _marks73756_ '6 SyntaxError::t '#f) (##unchecked-structure-set! - __obj108698 - _phi103814_ + __obj74073 + _phi73757_ '5 SyntaxError::t '#f) - __obj108698))) + __obj74073))) (define syntax-error? SyntaxError?) (define __raise-syntax-error - (lambda (_where103804_ _message103805_ _stx103806_ . _details103807_) + (lambda (_where73747_ _message73748_ _stx73749_ . _details73750_) (raise (make-syntax-error - _message103805_ - (cons _stx103806_ _details103807_) - _where103804_ - (__current-context) + _message73748_ + (cons _stx73749_ _details73750_) + _where73747_ + '#f '#f '#f)))) - (define __current-context (make-parameter '#f)) (define AST::t (make-class-type 'gerbil#AST::t @@ -234,7 +228,7 @@ '#f)) (define AST? (make-class-predicate AST::t)) (define make-AST - (lambda _$args103801_ (apply make-instance AST::t _$args103801_))) + (lambda _$args73744_ (apply make-instance AST::t _$args73744_))) (define AST-e (make-class-slot-accessor AST::t 'e)) (define AST-source (make-class-slot-accessor AST::t 'source)) (define AST-e-set! (make-class-slot-mutator AST::t 'e)) @@ -245,172 +239,169 @@ (define &AST-source-set! (make-class-slot-unchecked-mutator AST::t 'source)) (define __AST-e - (lambda (_stx103799_) - (if (##structure-instance-of? _stx103799_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx103799_ '1 AST::t '#f) - _stx103799_))) + (lambda (_stx73742_) + (if (##structure-instance-of? _stx73742_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx73742_ '1 AST::t '#f) + _stx73742_))) (define __AST-source - (lambda (_stx103793_) - (let _lp103795_ ((_src103797_ _stx103793_)) - (if (##structure-instance-of? _src103797_ 'gerbil#AST::t) - (_lp103795_ - (##unchecked-structure-ref _src103797_ '2 AST::t '#f)) - (if (##locat? _src103797_) _src103797_ '#f))))) + (lambda (_stx73736_) + (let _lp73738_ ((_src73740_ _stx73736_)) + (if (##structure-instance-of? _src73740_ 'gerbil#AST::t) + (_lp73738_ (##unchecked-structure-ref _src73740_ '2 AST::t '#f)) + (if (##locat? _src73740_) _src73740_ '#f))))) (define __AST - (lambda (_e103785_ _src-stx103786_) - (let ((_src103788_ (__AST-source _src-stx103786_))) - (if (or (##structure-instance-of? _e103785_ 'gerbil#AST::t) - (not _src103788_)) - _e103785_ - (##structure AST::t _e103785_ _src103788_))))) + (lambda (_e73728_ _src-stx73729_) + (let ((_src73731_ (__AST-source _src-stx73729_))) + (if (or (##structure-instance-of? _e73728_ 'gerbil#AST::t) + (not _src73731_)) + _e73728_ + (##structure AST::t _e73728_ _src73731_))))) (define __AST-eq? - (lambda (_stx103782_ _obj103783_) - (eq? (__AST-e _stx103782_) _obj103783_))) - (define __AST-pair? (lambda (_stx103780_) (pair? (__AST-e _stx103780_)))) - (define __AST-null? (lambda (_stx103778_) (null? (__AST-e _stx103778_)))) + (lambda (_stx73725_ _obj73726_) (eq? (__AST-e _stx73725_) _obj73726_))) + (define __AST-pair? (lambda (_stx73723_) (pair? (__AST-e _stx73723_)))) + (define __AST-null? (lambda (_stx73721_) (null? (__AST-e _stx73721_)))) (define __AST-datum? - (lambda (_stx103759_) - (let* ((_e103761_ (__AST-e _stx103759_)) - (_$e103763_ (number? _e103761_))) - (if _$e103763_ - _$e103763_ - (let ((_$e103766_ (string? _e103761_))) - (if _$e103766_ - _$e103766_ - (let ((_$e103769_ (char? _e103761_))) - (if _$e103769_ - _$e103769_ - (let ((_$e103772_ (keyword? _e103761_))) - (if _$e103772_ - _$e103772_ - (let ((_$e103775_ (boolean? _e103761_))) - (if _$e103775_ - _$e103775_ - (eq? _e103761_ '#!void))))))))))))) - (define __AST-id? (lambda (_stx103757_) (symbol? (__AST-e _stx103757_)))) + (lambda (_stx73702_) + (let* ((_e73704_ (__AST-e _stx73702_)) (_$e73706_ (number? _e73704_))) + (if _$e73706_ + _$e73706_ + (let ((_$e73709_ (string? _e73704_))) + (if _$e73709_ + _$e73709_ + (let ((_$e73712_ (char? _e73704_))) + (if _$e73712_ + _$e73712_ + (let ((_$e73715_ (keyword? _e73704_))) + (if _$e73715_ + _$e73715_ + (let ((_$e73718_ (boolean? _e73704_))) + (if _$e73718_ + _$e73718_ + (eq? _e73704_ '#!void))))))))))))) + (define __AST-id? (lambda (_stx73700_) (symbol? (__AST-e _stx73700_)))) (define __AST-id-list?__% - (lambda (_stx103708_ _tail?103709_) - (let _lp103711_ ((_rest103713_ _stx103708_)) - (let* ((_$e103715_ _rest103713_) - (_$E103717103730_ + (lambda (_stx73651_ _tail?73652_) + (let _lp73654_ ((_rest73656_ _stx73651_)) + (let* ((_$e73658_ _rest73656_) + (_$E7366073673_ (lambda () - (let* ((_$E103718103725_ + (let* ((_$E7366173668_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e103715_))) - (_rest103728_ _$e103715_)) - (_tail?103709_ _rest103728_))))) - (if (__AST-pair? _$e103715_) - (let* ((_$tgt103719103733_ (__AST-e _$e103715_)) - (_$hd103720103736_ (##car _$tgt103719103733_)) - (_$tl103721103739_ (##cdr _$tgt103719103733_))) - (let* ((_hd103743_ _$hd103720103736_) - (_rest103745_ _$tl103721103739_)) - (if (__AST-id? _hd103743_) (_lp103711_ _rest103745_) '#f))) - (_$E103717103730_)))))) + _$e73658_))) + (_rest73671_ _$e73658_)) + (_tail?73652_ _rest73671_))))) + (if (__AST-pair? _$e73658_) + (let* ((_$tgt7366273676_ (__AST-e _$e73658_)) + (_$hd7366373679_ (##car _$tgt7366273676_)) + (_$tl7366473682_ (##cdr _$tgt7366273676_))) + (let* ((_hd73686_ _$hd7366373679_) + (_rest73688_ _$tl7366473682_)) + (if (__AST-id? _hd73686_) (_lp73654_ _rest73688_) '#f))) + (_$E7366073673_)))))) (define __AST-id-list?__0 - (lambda (_stx103750_) - (let ((_tail?103752_ __AST-null?)) - (__AST-id-list?__% _stx103750_ _tail?103752_)))) + (lambda (_stx73693_) + (let ((_tail?73695_ __AST-null?)) + (__AST-id-list?__% _stx73693_ _tail?73695_)))) (define __AST-id-list? - (lambda _g108701_ - (let ((_g108700_ (##length _g108701_))) - (cond ((##fx= _g108700_ 1) - (apply (lambda (_stx103750_) (__AST-id-list?__0 _stx103750_)) - _g108701_)) - ((##fx= _g108700_ 2) - (apply (lambda (_stx103754_ _tail?103755_) - (__AST-id-list?__% _stx103754_ _tail?103755_)) - _g108701_)) + (lambda _g74076_ + (let ((_g74075_ (##length _g74076_))) + (cond ((##fx= _g74075_ 1) + (apply (lambda (_stx73693_) (__AST-id-list?__0 _stx73693_)) + _g74076_)) + ((##fx= _g74075_ 2) + (apply (lambda (_stx73697_ _tail?73698_) + (__AST-id-list?__% _stx73697_ _tail?73698_)) + _g74076_)) (else (##raise-wrong-number-of-arguments-exception __AST-id-list? - _g108701_)))))) + _g74076_)))))) (define __AST-bind-list? - (lambda (_stx103700_) + (lambda (_stx73643_) (__AST-id-list?__% - _stx103700_ - (lambda (_e103702_) - (let ((_$e103704_ (__AST-null? _e103702_))) - (if _$e103704_ _$e103704_ (__AST-id? _e103702_))))))) + _stx73643_ + (lambda (_e73645_) + (let ((_$e73647_ (__AST-null? _e73645_))) + (if _$e73647_ _$e73647_ (__AST-id? _e73645_))))))) (define __AST-list?__% - (lambda (_stx103653_ _tail?103654_) - (let _lp103656_ ((_rest103658_ _stx103653_)) - (let* ((_$e103660_ _rest103658_) - (_$E103662103675_ + (lambda (_stx73596_ _tail?73597_) + (let _lp73599_ ((_rest73601_ _stx73596_)) + (let* ((_$e73603_ _rest73601_) + (_$E7360573618_ (lambda () - (let* ((_$E103663103670_ + (let* ((_$E7360673613_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e103660_))) - (_rest103673_ _$e103660_)) - (_tail?103654_ _rest103673_))))) - (if (__AST-pair? _$e103660_) - (let* ((_$tgt103664103678_ (__AST-e _$e103660_)) - (_$hd103665103681_ (##car _$tgt103664103678_)) - (_$tl103666103684_ (##cdr _$tgt103664103678_))) - (let ((_rest103688_ _$tl103666103684_)) - (_lp103656_ _rest103688_))) - (_$E103662103675_)))))) + _$e73603_))) + (_rest73616_ _$e73603_)) + (_tail?73597_ _rest73616_))))) + (if (__AST-pair? _$e73603_) + (let* ((_$tgt7360773621_ (__AST-e _$e73603_)) + (_$hd7360873624_ (##car _$tgt7360773621_)) + (_$tl7360973627_ (##cdr _$tgt7360773621_))) + (let ((_rest73631_ _$tl7360973627_)) + (_lp73599_ _rest73631_))) + (_$E7360573618_)))))) (define __AST-list?__0 - (lambda (_stx103693_) - (let ((_tail?103695_ __AST-null?)) - (__AST-list?__% _stx103693_ _tail?103695_)))) + (lambda (_stx73636_) + (let ((_tail?73638_ __AST-null?)) + (__AST-list?__% _stx73636_ _tail?73638_)))) (define __AST-list? - (lambda _g108703_ - (let ((_g108702_ (##length _g108703_))) - (cond ((##fx= _g108702_ 1) - (apply (lambda (_stx103693_) (__AST-list?__0 _stx103693_)) - _g108703_)) - ((##fx= _g108702_ 2) - (apply (lambda (_stx103697_ _tail?103698_) - (__AST-list?__% _stx103697_ _tail?103698_)) - _g108703_)) + (lambda _g74078_ + (let ((_g74077_ (##length _g74078_))) + (cond ((##fx= _g74077_ 1) + (apply (lambda (_stx73636_) (__AST-list?__0 _stx73636_)) + _g74078_)) + ((##fx= _g74077_ 2) + (apply (lambda (_stx73640_ _tail?73641_) + (__AST-list?__% _stx73640_ _tail?73641_)) + _g74078_)) (else (##raise-wrong-number-of-arguments-exception __AST-list? - _g108703_)))))) + _g74078_)))))) (define __AST->list - (lambda (_stx103618_) - (let* ((_$e103620_ _stx103618_) - (_$E103622103635_ + (lambda (_stx73561_) + (let* ((_$e73563_ _stx73561_) + (_$E7356573578_ (lambda () - (let* ((_$E103623103630_ + (let* ((_$E7356673573_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e103620_))) - (_rest103633_ _$e103620_)) - (__AST-e _rest103633_))))) - (if (__AST-pair? _$e103620_) - (let* ((_$tgt103624103638_ (__AST-e _$e103620_)) - (_$hd103625103641_ (##car _$tgt103624103638_)) - (_$tl103626103644_ (##cdr _$tgt103624103638_))) - (let* ((_hd103648_ _$hd103625103641_) - (_rest103650_ _$tl103626103644_)) - (cons _hd103648_ (__AST->list _rest103650_)))) - (_$E103622103635_))))) + _$e73563_))) + (_rest73576_ _$e73563_)) + (__AST-e _rest73576_))))) + (if (__AST-pair? _$e73563_) + (let* ((_$tgt7356773581_ (__AST-e _$e73563_)) + (_$hd7356873584_ (##car _$tgt7356773581_)) + (_$tl7356973587_ (##cdr _$tgt7356773581_))) + (let* ((_hd73591_ _$hd7356873584_) + (_rest73593_ _$tl7356973587_)) + (cons _hd73591_ (__AST->list _rest73593_)))) + (_$E7356573578_))))) (define __AST->datum - (lambda (_stx103616_) - (if (##structure-instance-of? _stx103616_ 'gerbil#AST::t) - (__AST->datum (__AST-e _stx103616_)) - (if (pair? _stx103616_) - (cons (__AST->datum (car _stx103616_)) - (__AST->datum (cdr _stx103616_))) - (if (vector? _stx103616_) - (vector-map __AST->datum _stx103616_) - (if (box? _stx103616_) - (box (__AST->datum (unbox _stx103616_))) - _stx103616_)))))) + (lambda (_stx73559_) + (if (##structure-instance-of? _stx73559_ 'gerbil#AST::t) + (__AST->datum (__AST-e _stx73559_)) + (if (pair? _stx73559_) + (cons (__AST->datum (car _stx73559_)) + (__AST->datum (cdr _stx73559_))) + (if (vector? _stx73559_) + (vector-map __AST->datum _stx73559_) + (if (box? _stx73559_) + (box (__AST->datum (unbox _stx73559_))) + _stx73559_)))))) (define get-readenv - (lambda (_port103614_) + (lambda (_port73557_) (##make-readenv - _port103614_ + _port73557_ (current-readtable) __wrap-syntax __unwrap-syntax @@ -418,86 +409,83 @@ '() '#f))) (define read-syntax__% - (lambda (_in103602_) - (let ((_e103604_ (##read-datum-or-eof (get-readenv _in103602_)))) - (if (eof-object? (__AST-e _e103604_)) - (__AST-e _e103604_) - _e103604_)))) + (lambda (_in73545_) + (let ((_e73547_ (##read-datum-or-eof (get-readenv _in73545_)))) + (if (eof-object? (__AST-e _e73547_)) (__AST-e _e73547_) _e73547_)))) (define read-syntax__0 (lambda () - (let ((_in103610_ (current-input-port))) (read-syntax__% _in103610_)))) + (let ((_in73553_ (current-input-port))) (read-syntax__% _in73553_)))) (define read-syntax - (lambda _g108705_ - (let ((_g108704_ (##length _g108705_))) - (cond ((##fx= _g108704_ 0) - (apply (lambda () (read-syntax__0)) _g108705_)) - ((##fx= _g108704_ 1) - (apply (lambda (_in103612_) (read-syntax__% _in103612_)) - _g108705_)) + (lambda _g74080_ + (let ((_g74079_ (##length _g74080_))) + (cond ((##fx= _g74079_ 0) + (apply (lambda () (read-syntax__0)) _g74080_)) + ((##fx= _g74079_ 1) + (apply (lambda (_in73555_) (read-syntax__% _in73555_)) + _g74080_)) (else (##raise-wrong-number-of-arguments-exception read-syntax - _g108705_)))))) + _g74080_)))))) (define read-syntax-from-file - (lambda (_path103597_) - (let ((_r103599_ + (lambda (_path73540_) + (let ((_r73542_ (##read-all-as-a-begin-expr-from-path - (path-normalize _path103597_) + (path-normalize _path73540_) (current-readtable) __wrap-syntax __unwrap-syntax))) - (if (vector? _r103599_) - (cdr (__AST-e (vector-ref _r103599_ '1))) - (error (err-code->string _r103599_) _path103597_))))) + (if (vector? _r73542_) + (cdr (__AST-e (vector-ref _r73542_ '1))) + (error (err-code->string _r73542_) _path73540_))))) (define __wrap-syntax - (lambda (_re103594_ _e103595_) - (if (eof-object? _e103595_) - _e103595_ - (##structure AST::t _e103595_ (##readenv->locat _re103594_))))) - (define __unwrap-syntax - (lambda (_re103591_ _e103592_) (__AST-e _e103592_))) - (define __pp-syntax (lambda (_stx103589_) (pp (__AST->datum _stx103589_)))) + (lambda (_re73537_ _e73538_) + (if (eof-object? _e73538_) + _e73538_ + (##structure AST::t _e73538_ (##readenv->locat _re73537_))))) + (define __unwrap-syntax (lambda (_re73534_ _e73535_) (__AST-e _e73535_))) + (define __pp-syntax (lambda (_stx73532_) (pp (__AST->datum _stx73532_)))) (define __make-readtable (lambda () - (let ((_rt103587_ (##make-standard-readtable))) - (macro-readtable-write-extended-read-macros?-set! _rt103587_ '#t) - (macro-readtable-bracket-handler-set! _rt103587_ '@list) - (macro-readtable-brace-handler-set! _rt103587_ '@method) + (let ((_rt73530_ (##make-standard-readtable))) + (macro-readtable-write-extended-read-macros?-set! _rt73530_ '#t) + (macro-readtable-bracket-handler-set! _rt73530_ '@list) + (macro-readtable-brace-handler-set! _rt73530_ '@method) (##readtable-char-sharp-handler-set! - _rt103587_ + _rt73530_ '#\! __read-sharp-bang) - _rt103587_))) + _rt73530_))) (define __readtable-bracket-keyword-set! - (lambda (_rt103583_ _kw103584_) - (macro-readtable-bracket-handler-set! _rt103583_ _kw103584_))) + (lambda (_rt73526_ _kw73527_) + (macro-readtable-bracket-handler-set! _rt73526_ _kw73527_))) (define __readtable-brace-keyword-set! - (lambda (_rt103580_ _kw103581_) - (macro-readtable-brace-handler-set! _rt103580_ _kw103581_))) + (lambda (_rt73523_ _kw73524_) + (macro-readtable-brace-handler-set! _rt73523_ _kw73524_))) (define __read-sharp-bang - (lambda (_re103571_ _next103572_ _start-pos103573_) - (if (eq? _start-pos103573_ '0) - (let* ((_line103575_ + (lambda (_re73514_ _next73515_ _start-pos73516_) + (if (eq? _start-pos73516_ '0) + (let* ((_line73518_ (##read-line - (macro-readenv-port _re103571_) + (macro-readenv-port _re73514_) '#\newline '#f ##max-fixnum)) - (_script-line103577_ - (substring _line103575_ '1 (string-length _line103575_)))) - (macro-readenv-script-line-set! _re103571_ _script-line103577_) + (_script-line73520_ + (substring _line73518_ '1 (string-length _line73518_)))) + (macro-readenv-script-line-set! _re73514_ _script-line73520_) (##script-marker)) - (##read-sharp-bang _re103571_ _next103572_ _start-pos103573_)))) + (##read-sharp-bang _re73514_ _next73515_ _start-pos73516_)))) (set! ##readtable-setup-for-language! void) (define __*readtable* (__make-readtable)) (define source-location? ##locat?) (define source-location-path? - (lambda (_obj103569_) - (if (source-location? _obj103569_) - (string? (##locat-container _obj103569_)) + (lambda (_obj73512_) + (if (source-location? _obj73512_) + (string? (##locat-container _obj73512_)) '#f))) (define source-location-path - (lambda (_obj103567_) - (if (##locat? _obj103567_) - (##container->path (##locat-container _obj103567_)) + (lambda (_obj73510_) + (if (##locat? _obj73510_) + (##container->path (##locat-container _obj73510_)) '#f))))) diff --git a/src/bootstrap/gerbil/runtime/syntax__1.scm b/src/bootstrap/gerbil/runtime/syntax__1.scm index 6afafe5bf..5ed8806cd 100644 --- a/src/bootstrap/gerbil/runtime/syntax__1.scm +++ b/src/bootstrap/gerbil/runtime/syntax__1.scm @@ -1,279 +1,279 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g108810_| + (define |[1]#_g74185_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |[1]#_g108818_| + (define |[1]#_g74193_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g108820_| + (define |[1]#_g74195_| (##structure gx#syntax-quote::t 'SyntaxError::t #f (gx#current-expander-context) '())) - (define |[1]#_g108822_| + (define |[1]#_g74197_| (##structure gx#syntax-quote::t 'make-SyntaxError #f (gx#current-expander-context) '())) - (define |[1]#_g108824_| + (define |[1]#_g74199_| (##structure gx#syntax-quote::t 'SyntaxError? #f (gx#current-expander-context) '())) - (define |[1]#_g108833_| + (define |[1]#_g74208_| (##structure gx#syntax-quote::t 'SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g108836_| + (define |[1]#_g74211_| (##structure gx#syntax-quote::t 'SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g108839_| + (define |[1]#_g74214_| (##structure gx#syntax-quote::t 'SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g108842_| + (define |[1]#_g74217_| (##structure gx#syntax-quote::t 'SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g108845_| + (define |[1]#_g74220_| (##structure gx#syntax-quote::t 'SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g108848_| + (define |[1]#_g74223_| (##structure gx#syntax-quote::t 'SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g108857_| + (define |[1]#_g74232_| (##structure gx#syntax-quote::t 'SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108860_| + (define |[1]#_g74235_| (##structure gx#syntax-quote::t 'SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108863_| + (define |[1]#_g74238_| (##structure gx#syntax-quote::t 'SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108866_| + (define |[1]#_g74241_| (##structure gx#syntax-quote::t 'SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108869_| + (define |[1]#_g74244_| (##structure gx#syntax-quote::t 'SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108872_| + (define |[1]#_g74247_| (##structure gx#syntax-quote::t 'SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108881_| + (define |[1]#_g74256_| (##structure gx#syntax-quote::t '&SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g108884_| + (define |[1]#_g74259_| (##structure gx#syntax-quote::t '&SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g108887_| + (define |[1]#_g74262_| (##structure gx#syntax-quote::t '&SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g108890_| + (define |[1]#_g74265_| (##structure gx#syntax-quote::t '&SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g108893_| + (define |[1]#_g74268_| (##structure gx#syntax-quote::t '&SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g108896_| + (define |[1]#_g74271_| (##structure gx#syntax-quote::t '&SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g108905_| + (define |[1]#_g74280_| (##structure gx#syntax-quote::t '&SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108908_| + (define |[1]#_g74283_| (##structure gx#syntax-quote::t '&SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108911_| + (define |[1]#_g74286_| (##structure gx#syntax-quote::t '&SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108914_| + (define |[1]#_g74289_| (##structure gx#syntax-quote::t '&SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108917_| + (define |[1]#_g74292_| (##structure gx#syntax-quote::t '&SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108920_| + (define |[1]#_g74295_| (##structure gx#syntax-quote::t '&SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108922_| + (define |[1]#_g74297_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |[1]#_g108924_| + (define |[1]#_g74299_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |[1]#_g108926_| + (define |[1]#_g74301_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |[1]#_g108931_| + (define |[1]#_g74306_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g108934_| + (define |[1]#_g74309_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g108939_| + (define |[1]#_g74314_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108942_| + (define |[1]#_g74317_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108947_| + (define |[1]#_g74322_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g108950_| + (define |[1]#_g74325_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g108955_| + (define |[1]#_g74330_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g108958_| + (define |[1]#_g74333_| (##structure gx#syntax-quote::t '&AST-e-set! @@ -282,1195 +282,1165 @@ '())) (begin (define |[:0:]#core-ast-case| - (lambda (_$stx102456_) - (let* ((_g102460102484_ - (lambda (_g102461102480_) + (lambda (_$stx72399_) + (let* ((_g7240372427_ + (lambda (_g7240472423_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102461102480_))) - (_g102459102570_ - (lambda (_g102461102488_) - (if (gx#stx-pair? _g102461102488_) - (let ((_e102466102491_ (gx#syntax-e _g102461102488_))) - (let ((_hd102465102495_ + _g7240472423_))) + (_g7240272513_ + (lambda (_g7240472431_) + (if (gx#stx-pair? _g7240472431_) + (let ((_e7240972434_ (gx#syntax-e _g7240472431_))) + (let ((_hd7240872438_ (let () (declare (not safe)) - (##car _e102466102491_))) - (_tl102464102498_ + (##car _e7240972434_))) + (_tl7240772441_ (let () (declare (not safe)) - (##cdr _e102466102491_)))) - (if (gx#stx-pair? _tl102464102498_) - (let ((_e102469102501_ - (gx#syntax-e _tl102464102498_))) - (let ((_hd102468102505_ + (##cdr _e7240972434_)))) + (if (gx#stx-pair? _tl7240772441_) + (let ((_e7241272444_ + (gx#syntax-e _tl7240772441_))) + (let ((_hd7241172448_ (let () (declare (not safe)) - (##car _e102469102501_))) - (_tl102467102508_ + (##car _e7241272444_))) + (_tl7241072451_ (let () (declare (not safe)) - (##cdr _e102469102501_)))) - (if (gx#stx-pair/null? _tl102467102508_) - (let ((_g108706_ + (##cdr _e7241272444_)))) + (if (gx#stx-pair/null? _tl7241072451_) + (let ((_g74081_ (gx#syntax-split-splice - _tl102467102508_ + _tl7241072451_ '0))) (begin - (let ((_g108707_ + (let ((_g74082_ (let () (declare (not safe)) - (if (##values? _g108706_) + (if (##values? _g74081_) (##vector-length - _g108706_) + _g74081_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g108707_ 2))) + (##fx= _g74082_ 2))) (error "Context expects 2 values" - _g108707_))) - (let ((_target102470102511_ + _g74082_))) + (let ((_target7241372454_ (let () (declare (not safe)) - (##vector-ref _g108706_ 0))) - (_tl102472102514_ + (##vector-ref _g74081_ 0))) + (_tl7241572457_ (let () (declare (not safe)) - (##vector-ref - _g108706_ - 1)))) - (if (gx#stx-null? _tl102472102514_) - (letrec ((_loop102473102517_ - (lambda (_hd102471102521_ + (##vector-ref _g74081_ 1)))) + (if (gx#stx-null? _tl7241572457_) + (letrec ((_loop7241672460_ + (lambda (_hd7241472464_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body102477102524_) - (if (gx#stx-pair? _hd102471102521_) - (let ((_e102474102527_ (gx#syntax-e _hd102471102521_))) - (let ((_lp-hd102475102531_ + _body7242072467_) + (if (gx#stx-pair? _hd7241472464_) + (let ((_e7241772470_ (gx#syntax-e _hd7241472464_))) + (let ((_lp-hd7241872474_ (let () (declare (not safe)) - (##car _e102474102527_))) - (_lp-tl102476102534_ + (##car _e7241772470_))) + (_lp-tl7241972477_ (let () (declare (not safe)) - (##cdr _e102474102527_)))) - (_loop102473102517_ - _lp-tl102476102534_ + (##cdr _e7241772470_)))) + (_loop7241672460_ + _lp-tl7241972477_ (let () (declare (not safe)) - (cons _lp-hd102475102531_ - _body102477102524_))))) - (let ((_body102478102537_ - (reverse _body102477102524_))) - ((lambda (_L102541_ _L102543_) - (let ((__tmp108719 (gx#datum->syntax '#f 'let)) - (__tmp108708 - (let ((__tmp108716 - (let ((__tmp108718 + (cons _lp-hd7241872474_ _body7242072467_))))) + (let ((_body7242172480_ (reverse _body7242072467_))) + ((lambda (_L72484_ _L72486_) + (let ((__tmp74094 (gx#datum->syntax '#f 'let)) + (__tmp74083 + (let ((__tmp74091 + (let ((__tmp74093 (gx#datum->syntax '#f '$e)) - (__tmp108717 + (__tmp74092 (let () (declare (not safe)) - (cons _L102543_ '())))) + (cons _L72486_ '())))) (declare (not safe)) - (cons __tmp108718 __tmp108717))) - (__tmp108709 - (let ((__tmp108710 - (let ((__tmp108715 + (cons __tmp74093 __tmp74092))) + (__tmp74084 + (let ((__tmp74085 + (let ((__tmp74090 (gx#datum->syntax '#f 'core-ast-case%)) - (__tmp108711 - (let ((__tmp108714 + (__tmp74086 + (let ((__tmp74089 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$e)) - (__tmp108712 - (let ((__tmp108713 - (lambda (_g102561102564_ _g102562102567_) + (__tmp74087 + (let ((__tmp74088 + (lambda (_g7250472507_ _g7250572510_) (let () (declare (not safe)) - (cons _g102561102564_ _g102562102567_))))) + (cons _g7250472507_ _g7250572510_))))) (declare (not safe)) - (foldr1 __tmp108713 '() _L102541_)))) + (foldr1 __tmp74088 '() _L72484_)))) (declare (not safe)) - (cons __tmp108714 __tmp108712)))) + (cons __tmp74089 __tmp74087)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp108715 - __tmp108711)))) + (cons __tmp74090 + __tmp74086)))) (declare (not safe)) - (cons __tmp108710 '())))) + (cons __tmp74085 '())))) (declare (not safe)) - (cons __tmp108716 __tmp108709)))) + (cons __tmp74091 __tmp74084)))) (declare (not safe)) - (cons __tmp108719 __tmp108708))) - _body102478102537_ - _hd102468102505_)))))) + (cons __tmp74094 __tmp74083))) + _body7242172480_ + _hd7241172448_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop102473102517_ - _target102470102511_ + (_loop7241672460_ + _target7241372454_ '())) - (_g102460102484_ - _g102461102488_))))) - (_g102460102484_ _g102461102488_)))) - (_g102460102484_ _g102461102488_)))) - (_g102460102484_ _g102461102488_))))) - (_g102459102570_ _$stx102456_)))) + (_g7240372427_ + _g7240472431_))))) + (_g7240372427_ _g7240472431_)))) + (_g7240372427_ _g7240472431_)))) + (_g7240372427_ _g7240472431_))))) + (_g7240272513_ _$stx72399_)))) (define |[:0:]#core-ast-case%| - (lambda (_stx102575_) - (letrec ((_generate1102578_ - (lambda (_hd103119_ - _tgt103121_ - _K103122_ - _E103123_ - _kws103124_) - (let* ((_g103126103134_ - (lambda (_g103127103130_) + (lambda (_stx72518_) + (letrec ((_generate172521_ + (lambda (_hd73062_ _tgt73064_ _K73065_ _E73066_ _kws73067_) + (let* ((_g7306973077_ + (lambda (_g7307073073_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103127103130_))) - (_g103125103561_ - (lambda (_g103127103138_) - ((lambda (_L103141_) + _g7307073073_))) + (_g7306873504_ + (lambda (_g7307073081_) + ((lambda (_L73084_) (let () - (let* ((___stx108606108607_ _hd103119_) - (_g103155103169_ + (let* ((___stx7398173982_ _hd73062_) + (_g7309873112_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx108606108607_)))) - (let ((___kont108609108610_ - (lambda (_L103383_ _L103385_) - (let* ((_g103396103404_ - (lambda (_g103397103400_) + ___stx7398173982_)))) + (let ((___kont7398473985_ + (lambda (_L73326_ _L73328_) + (let* ((_g7333973347_ + (lambda (_g7334073343_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103397103400_))) - (_g103395103553_ - (lambda (_g103397103408_) - ((lambda (_L103411_) + _g7334073343_))) + (_g7333873496_ + (lambda (_g7334073351_) + ((lambda (_L73354_) (let () - (let* ((_g103423103431_ + (let* ((_g7336673374_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g103424103427_) + (lambda (_g7336773370_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103424103427_))) - (_g103422103549_ - (lambda (_g103424103435_) - ((lambda (_L103438_) + _g7336773370_))) + (_g7336573492_ + (lambda (_g7336773378_) + ((lambda (_L73381_) (let () - (let* ((_g103451103459_ - (lambda (_g103452103455_) + (let* ((_g7339473402_ + (lambda (_g7339573398_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103452103455_))) - (_g103450103545_ - (lambda (_g103452103463_) - ((lambda (_L103466_) + _g7339573398_))) + (_g7339373488_ + (lambda (_g7339573406_) + ((lambda (_L73409_) (let () - (let* ((_g103479103487_ - (lambda (_g103480103483_) + (let* ((_g7342273430_ + (lambda (_g7342373426_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103480103483_))) - (_g103478103541_ - (lambda (_g103480103491_) - ((lambda (_L103494_) + _g7342373426_))) + (_g7342173484_ + (lambda (_g7342373434_) + ((lambda (_L73437_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g103507103515_ - (lambda (_g103508103511_) + (let* ((_g7345073458_ + (lambda (_g7345173454_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103508103511_))) - (_g103506103537_ - (lambda (_g103508103519_) - ((lambda (_L103522_) + _g7345173454_))) + (_g7344973480_ + (lambda (_g7345173462_) + ((lambda (_L73465_) (let () (let () - (let ((__tmp108748 + (let ((__tmp74123 (gx#datum->syntax '#f 'if)) - (__tmp108720 - (let ((__tmp108745 - (let ((__tmp108747 + (__tmp74095 + (let ((__tmp74120 + (let ((__tmp74122 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__AST-pair?)) - (__tmp108746 - (let () (declare (not safe)) (cons _L103141_ '())))) + (__tmp74121 + (let () (declare (not safe)) (cons _L73084_ '())))) (declare (not safe)) - (cons __tmp108747 __tmp108746))) - (__tmp108721 - (let ((__tmp108723 - (let ((__tmp108744 (gx#datum->syntax '#f 'let*)) - (__tmp108724 - (let ((__tmp108726 - (let ((__tmp108739 - (let ((__tmp108740 - (let ((__tmp108741 - (let ((__tmp108743 + (cons __tmp74122 __tmp74121))) + (__tmp74096 + (let ((__tmp74098 + (let ((__tmp74119 (gx#datum->syntax '#f 'let*)) + (__tmp74099 + (let ((__tmp74101 + (let ((__tmp74114 + (let ((__tmp74115 + (let ((__tmp74116 + (let ((__tmp74118 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__AST-e)) - (__tmp108742 - (let () (declare (not safe)) (cons _L103141_ '())))) + (__tmp74117 + (let () (declare (not safe)) (cons _L73084_ '())))) (declare (not safe)) - (cons __tmp108743 __tmp108742)))) + (cons __tmp74118 __tmp74117)))) (declare (not safe)) - (cons __tmp108741 '())))) + (cons __tmp74116 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L103411_ __tmp108740))) - (__tmp108727 - (let ((__tmp108734 - (let ((__tmp108735 - (let ((__tmp108736 + (cons _L73354_ __tmp74115))) + (__tmp74102 + (let ((__tmp74109 + (let ((__tmp74110 + (let ((__tmp74111 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp108738 (gx#datum->syntax '#f '##car)) - (__tmp108737 + (let ((__tmp74113 (gx#datum->syntax '#f '##car)) + (__tmp74112 (let () (declare (not safe)) - (cons _L103411_ '())))) + (cons _L73354_ '())))) (declare (not safe)) - (cons __tmp108738 __tmp108737)))) + (cons __tmp74113 __tmp74112)))) (declare (not safe)) - (cons __tmp108736 '())))) + (cons __tmp74111 '())))) (declare (not safe)) - (cons _L103438_ __tmp108735))) + (cons _L73381_ __tmp74110))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp108728 - (let ((__tmp108729 - (let ((__tmp108730 + (__tmp74103 + (let ((__tmp74104 + (let ((__tmp74105 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp108731 - (let ((__tmp108733 + (let ((__tmp74106 + (let ((__tmp74108 (gx#datum->syntax '#f '##cdr)) - (__tmp108732 + (__tmp74107 (let () (declare (not safe)) - (cons _L103411_ '())))) + (cons _L73354_ '())))) (declare (not safe)) - (cons __tmp108733 __tmp108732)))) + (cons __tmp74108 __tmp74107)))) (declare (not safe)) - (cons __tmp108731 '())))) + (cons __tmp74106 '())))) (declare (not safe)) - (cons _L103466_ __tmp108730)))) + (cons _L73409_ __tmp74105)))) (declare (not safe)) - (cons __tmp108729 '())))) + (cons __tmp74104 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp108734 - __tmp108728)))) + (cons __tmp74109 __tmp74103)))) (declare (not safe)) - (cons __tmp108739 __tmp108727))) - (__tmp108725 + (cons __tmp74114 __tmp74102))) + (__tmp74100 (let () (declare (not safe)) - (cons _L103494_ '())))) + (cons _L73437_ '())))) (declare (not safe)) - (cons __tmp108726 __tmp108725)))) + (cons __tmp74101 __tmp74100)))) (declare (not safe)) - (cons __tmp108744 __tmp108724))) - (__tmp108722 - (let () (declare (not safe)) (cons _L103522_ '())))) + (cons __tmp74119 __tmp74099))) + (__tmp74097 + (let () (declare (not safe)) (cons _L73465_ '())))) (declare (not safe)) - (cons __tmp108723 __tmp108722)))) + (cons __tmp74098 __tmp74097)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp108745 - __tmp108721)))) + (cons __tmp74120 + __tmp74096)))) (declare (not safe)) - (cons __tmp108748 __tmp108720))))) - _g103508103519_)))) - (_g103506103537_ _E103123_)))) - _g103480103491_)))) + (cons __tmp74123 __tmp74095))))) + _g7345173462_)))) + (_g7344973480_ _E73066_)))) + _g7342373434_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g103478103541_ - (_generate1102578_ - _L103385_ - _L103438_ - (_generate1102578_ - _L103383_ - _L103466_ - _K103122_ - _E103123_ - _kws103124_) - _E103123_ - _kws103124_))))) - _g103452103463_)))) - (_g103450103545_ (gx#genident '$tl))))) - _g103424103435_)))) - (_g103422103549_ (gx#genident '$hd))))) - _g103397103408_)))) + (_g7342173484_ + (_generate172521_ + _L73328_ + _L73381_ + (_generate172521_ + _L73326_ + _L73409_ + _K73065_ + _E73066_ + _kws73067_) + _E73066_ + _kws73067_))))) + _g7339573406_)))) + (_g7339373488_ (gx#genident '$tl))))) + _g7336773378_)))) + (_g7336573492_ (gx#genident '$hd))))) + _g7334073351_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g103395103553_ + (_g7333873496_ (gx#genident '$tgt))))) - (___kont108611108612_ - (lambda (_L103258_) - (if (gx#underscore? _L103258_) - _K103122_ - (if (let ((__tmp108777 - (lambda (_g103266103268_) + (___kont7398673987_ + (lambda (_L73201_) + (if (gx#underscore? _L73201_) + _K73065_ + (if (let ((__tmp74152 + (lambda (_g7320973211_) (gx#bound-identifier=? - _g103266103268_ - _L103258_))) - (__tmp108776 + _g7320973211_ + _L73201_))) + (__tmp74151 (gx#syntax->list - _kws103124_))) + _kws73067_))) (declare (not safe)) - (find __tmp108777 - __tmp108776)) - (let* ((_g103272103287_ - (lambda (_g103273103283_) + (find __tmp74152 + __tmp74151)) + (let* ((_g7321573230_ + (lambda (_g7321673226_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _g103273103283_))) - (_g103271103332_ - (lambda (_g103273103291_) - (if (gx#stx-pair? _g103273103291_) - (let ((_e103278103294_ - (gx#syntax-e _g103273103291_))) - (let ((_hd103277103298_ + _g7321673226_))) + (_g7321473275_ + (lambda (_g7321673234_) + (if (gx#stx-pair? _g7321673234_) + (let ((_e7322173237_ (gx#syntax-e _g7321673234_))) + (let ((_hd7322073241_ (let () (declare (not safe)) - (##car _e103278103294_))) - (_tl103276103301_ + (##car _e7322173237_))) + (_tl7321973244_ (let () (declare (not safe)) - (##cdr _e103278103294_)))) - (if (gx#stx-pair? _tl103276103301_) - (let ((_e103281103304_ - (gx#syntax-e _tl103276103301_))) - (let ((_hd103280103308_ + (##cdr _e7322173237_)))) + (if (gx#stx-pair? _tl7321973244_) + (let ((_e7322473247_ + (gx#syntax-e _tl7321973244_))) + (let ((_hd7322373251_ (let () (declare (not safe)) - (##car _e103281103304_))) - (_tl103279103311_ + (##car _e7322473247_))) + (_tl7322273254_ (let () (declare (not safe)) - (##cdr _e103281103304_)))) - (if (gx#stx-null? _tl103279103311_) - ((lambda (_L103314_ _L103316_) + (##cdr _e7322473247_)))) + (if (gx#stx-null? _tl7322273254_) + ((lambda (_L73257_ _L73259_) (let () - (let ((__tmp108775 + (let ((__tmp74150 (gx#datum->syntax '#f 'if)) - (__tmp108755 - (let ((__tmp108758 - (let ((__tmp108774 + (__tmp74130 + (let ((__tmp74133 + (let ((__tmp74149 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'and)) - (__tmp108759 - (let ((__tmp108771 - (let ((__tmp108773 + (__tmp74134 + (let ((__tmp74146 + (let ((__tmp74148 (gx#datum->syntax '#f '__AST-id?)) - (__tmp108772 + (__tmp74147 (let () (declare (not safe)) - (cons _L103141_ '())))) + (cons _L73084_ '())))) (declare (not safe)) - (cons __tmp108773 __tmp108772))) - (__tmp108760 - (let ((__tmp108761 - (let ((__tmp108770 + (cons __tmp74148 __tmp74147))) + (__tmp74135 + (let ((__tmp74136 + (let ((__tmp74145 (gx#datum->syntax '#f 'eq?)) - (__tmp108762 - (let ((__tmp108767 - (let ((__tmp108769 + (__tmp74137 + (let ((__tmp74142 + (let ((__tmp74144 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__AST-e)) - (__tmp108768 - (let () (declare (not safe)) (cons _L103141_ '())))) + (__tmp74143 + (let () (declare (not safe)) (cons _L73084_ '())))) (declare (not safe)) - (cons __tmp108769 __tmp108768))) - (__tmp108763 - (let ((__tmp108764 - (let ((__tmp108766 (gx#datum->syntax '#f 'quote)) - (__tmp108765 + (cons __tmp74144 __tmp74143))) + (__tmp74138 + (let ((__tmp74139 + (let ((__tmp74141 (gx#datum->syntax '#f 'quote)) + (__tmp74140 (let () (declare (not safe)) - (cons _L103258_ '())))) + (cons _L73201_ '())))) (declare (not safe)) - (cons __tmp108766 __tmp108765)))) + (cons __tmp74141 __tmp74140)))) (declare (not safe)) - (cons __tmp108764 '())))) + (cons __tmp74139 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp108767 - __tmp108763)))) + (cons __tmp74142 + __tmp74138)))) (declare (not safe)) - (cons __tmp108770 __tmp108762)))) + (cons __tmp74145 __tmp74137)))) (declare (not safe)) - (cons __tmp108761 '())))) + (cons __tmp74136 '())))) (declare (not safe)) - (cons __tmp108771 __tmp108760)))) + (cons __tmp74146 __tmp74135)))) (declare (not safe)) - (cons __tmp108774 __tmp108759))) - (__tmp108756 - (let ((__tmp108757 + (cons __tmp74149 __tmp74134))) + (__tmp74131 + (let ((__tmp74132 (let () (declare (not safe)) - (cons _L103314_ '())))) + (cons _L73257_ '())))) (declare (not safe)) - (cons _L103316_ __tmp108757)))) + (cons _L73259_ __tmp74132)))) (declare (not safe)) - (cons __tmp108758 __tmp108756)))) + (cons __tmp74133 __tmp74131)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp108775 - __tmp108755)))) - _hd103280103308_ - _hd103277103298_) - (_g103272103287_ - _g103273103291_)))) - (_g103272103287_ _g103273103291_)))) - (_g103272103287_ _g103273103291_))))) - (_g103271103332_ (list _K103122_ _E103123_))) - (let* ((_g103336103344_ - (lambda (_g103337103340_) + (cons __tmp74150 + __tmp74130)))) + _hd7322373251_ + _hd7322073241_) + (_g7321573230_ _g7321673234_)))) + (_g7321573230_ _g7321673234_)))) + (_g7321573230_ _g7321673234_))))) + (_g7321473275_ (list _K73065_ _E73066_))) + (let* ((_g7327973287_ + (lambda (_g7328073283_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103337103340_))) - (_g103335103362_ - (lambda (_g103337103348_) - ((lambda (_L103351_) + _g7328073283_))) + (_g7327873305_ + (lambda (_g7328073291_) + ((lambda (_L73294_) (let () - (let ((__tmp108754 (gx#datum->syntax '#f 'let)) - (__tmp108749 - (let ((__tmp108751 - (let ((__tmp108752 - (let ((__tmp108753 + (let ((__tmp74129 (gx#datum->syntax '#f 'let)) + (__tmp74124 + (let ((__tmp74126 + (let ((__tmp74127 + (let ((__tmp74128 (let () (declare (not safe)) - (cons _L103141_ + (cons _L73084_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L103258_ - __tmp108753)))) + (cons _L73201_ + __tmp74128)))) (declare (not safe)) - (cons __tmp108752 '()))) - (__tmp108750 + (cons __tmp74127 '()))) + (__tmp74125 (let () (declare (not safe)) - (cons _L103351_ '())))) + (cons _L73294_ '())))) (declare (not safe)) - (cons __tmp108751 __tmp108750)))) + (cons __tmp74126 __tmp74125)))) (declare (not safe)) - (cons __tmp108754 __tmp108749)))) - _g103337103348_)))) - (_g103335103362_ _K103122_)))))) + (cons __tmp74129 __tmp74124)))) + _g7328073291_)))) + (_g7327873305_ _K73065_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont108613108614_ - (lambda (_L103176_) - (let* ((_g103187103202_ - (lambda (_g103188103198_) + (___kont7398873989_ + (lambda (_L73119_) + (let* ((_g7313073145_ + (lambda (_g7313173141_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103188103198_))) - (_g103186103247_ - (lambda (_g103188103206_) + _g7313173141_))) + (_g7312973190_ + (lambda (_g7313173149_) (if (gx#stx-pair? - _g103188103206_) - (let ((_e103193103209_ + _g7313173149_) + (let ((_e7313673152_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g103188103206_))) - (let ((_hd103192103213_ + (gx#syntax-e _g7313173149_))) + (let ((_hd7313573156_ (let () (declare (not safe)) - (##car _e103193103209_))) - (_tl103191103216_ + (##car _e7313673152_))) + (_tl7313473159_ (let () (declare (not safe)) - (##cdr _e103193103209_)))) - (if (gx#stx-pair? _tl103191103216_) - (let ((_e103196103219_ - (gx#syntax-e _tl103191103216_))) - (let ((_hd103195103223_ + (##cdr _e7313673152_)))) + (if (gx#stx-pair? _tl7313473159_) + (let ((_e7313973162_ (gx#syntax-e _tl7313473159_))) + (let ((_hd7313873166_ (let () (declare (not safe)) - (##car _e103196103219_))) - (_tl103194103226_ + (##car _e7313973162_))) + (_tl7313773169_ (let () (declare (not safe)) - (##cdr _e103196103219_)))) - (if (gx#stx-null? _tl103194103226_) - ((lambda (_L103229_ _L103231_) + (##cdr _e7313973162_)))) + (if (gx#stx-null? _tl7313773169_) + ((lambda (_L73172_ _L73174_) (let () - (let ((__tmp108791 + (let ((__tmp74166 (gx#datum->syntax '#f 'if)) - (__tmp108778 - (let ((__tmp108781 - (let ((__tmp108790 + (__tmp74153 + (let ((__tmp74156 + (let ((__tmp74165 (gx#datum->syntax '#f 'equal?)) - (__tmp108782 - (let ((__tmp108787 + (__tmp74157 + (let ((__tmp74162 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp108789 - (gx#datum->syntax '#f '__AST-e)) - (__tmp108788 + (let ((__tmp74164 (gx#datum->syntax '#f '__AST-e)) + (__tmp74163 (let () (declare (not safe)) - (cons _L103141_ '())))) + (cons _L73084_ '())))) (declare (not safe)) - (cons __tmp108789 __tmp108788))) - (__tmp108783 - (let ((__tmp108784 - (let ((__tmp108786 + (cons __tmp74164 __tmp74163))) + (__tmp74158 + (let ((__tmp74159 + (let ((__tmp74161 (gx#datum->syntax '#f 'quote)) - (__tmp108785 + (__tmp74160 (let () (declare (not safe)) - (cons _L103176_ '())))) + (cons _L73119_ '())))) (declare (not safe)) - (cons __tmp108786 __tmp108785)))) + (cons __tmp74161 __tmp74160)))) (declare (not safe)) - (cons __tmp108784 '())))) + (cons __tmp74159 '())))) (declare (not safe)) - (cons __tmp108787 __tmp108783)))) + (cons __tmp74162 __tmp74158)))) (declare (not safe)) - (cons __tmp108790 __tmp108782))) - (__tmp108779 - (let ((__tmp108780 - (let () (declare (not safe)) (cons _L103229_ '())))) + (cons __tmp74165 __tmp74157))) + (__tmp74154 + (let ((__tmp74155 + (let () (declare (not safe)) (cons _L73172_ '())))) (declare (not safe)) - (cons _L103231_ __tmp108780)))) + (cons _L73174_ __tmp74155)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp108781 - __tmp108779)))) + (cons __tmp74156 + __tmp74154)))) (declare (not safe)) - (cons __tmp108791 __tmp108778)))) - _hd103195103223_ - _hd103192103213_) - (_g103187103202_ _g103188103206_)))) - (_g103187103202_ _g103188103206_)))) - (_g103187103202_ _g103188103206_))))) + (cons __tmp74166 __tmp74153)))) + _hd7313873166_ + _hd7313573156_) + (_g7313073145_ _g7313173149_)))) + (_g7313073145_ _g7313173149_)))) + (_g7313073145_ _g7313173149_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g103186103247_ - (list _K103122_ - _E103123_)))))) - (let ((_g103153103366_ + (_g7312973190_ + (list _K73065_ _E73066_)))))) + (let ((_g7309673309_ (lambda () - (let ((_L103258_ - ___stx108606108607_)) - (if (gx#identifier? - _L103258_) - (___kont108611108612_ - _L103258_) - (___kont108613108614_ - ___stx108606108607_)))))) - (if (gx#stx-pair? ___stx108606108607_) - (let ((_e103161103373_ + (let ((_L73201_ + ___stx7398173982_)) + (if (gx#identifier? _L73201_) + (___kont7398673987_ + _L73201_) + (___kont7398873989_ + ___stx7398173982_)))))) + (if (gx#stx-pair? ___stx7398173982_) + (let ((_e7310473316_ (gx#syntax-e - ___stx108606108607_))) - (let ((_tl103159103380_ + ___stx7398173982_))) + (let ((_tl7310273323_ (let () (declare (not safe)) - (##cdr _e103161103373_))) - (_hd103160103377_ + (##cdr _e7310473316_))) + (_hd7310373320_ (let () (declare (not safe)) - (##car _e103161103373_)))) - (___kont108609108610_ - _tl103159103380_ - _hd103160103377_))) + (##car _e7310473316_)))) + (___kont7398473985_ + _tl7310273323_ + _hd7310373320_))) (let () (declare (not safe)) - (_g103153103366_)))))))) - _g103127103138_)))) - (_g103125103561_ _tgt103121_))))) - (let* ((_g102581102609_ - (lambda (_g102582102605_) + (_g7309673309_)))))))) + _g7307073081_)))) + (_g7306873504_ _tgt73064_))))) + (let* ((_g7252472552_ + (lambda (_g7252572548_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102582102605_))) - (_g102580103115_ - (lambda (_g102582102613_) - (if (gx#stx-pair? _g102582102613_) - (let ((_e102588102616_ (gx#syntax-e _g102582102613_))) - (let ((_hd102587102620_ + _g7252572548_))) + (_g7252373058_ + (lambda (_g7252572556_) + (if (gx#stx-pair? _g7252572556_) + (let ((_e7253172559_ (gx#syntax-e _g7252572556_))) + (let ((_hd7253072563_ (let () (declare (not safe)) - (##car _e102588102616_))) - (_tl102586102623_ + (##car _e7253172559_))) + (_tl7252972566_ (let () (declare (not safe)) - (##cdr _e102588102616_)))) - (if (gx#stx-pair? _tl102586102623_) - (let ((_e102591102626_ - (gx#syntax-e _tl102586102623_))) - (let ((_hd102590102630_ + (##cdr _e7253172559_)))) + (if (gx#stx-pair? _tl7252972566_) + (let ((_e7253472569_ + (gx#syntax-e _tl7252972566_))) + (let ((_hd7253372573_ (let () (declare (not safe)) - (##car _e102591102626_))) - (_tl102589102633_ + (##car _e7253472569_))) + (_tl7253272576_ (let () (declare (not safe)) - (##cdr _e102591102626_)))) - (if (gx#stx-pair? _tl102589102633_) - (let ((_e102594102636_ - (gx#syntax-e _tl102589102633_))) - (let ((_hd102593102640_ + (##cdr _e7253472569_)))) + (if (gx#stx-pair? _tl7253272576_) + (let ((_e7253772579_ + (gx#syntax-e _tl7253272576_))) + (let ((_hd7253672583_ (let () (declare (not safe)) - (##car _e102594102636_))) - (_tl102592102643_ + (##car _e7253772579_))) + (_tl7253572586_ (let () (declare (not safe)) - (##cdr _e102594102636_)))) + (##cdr _e7253772579_)))) (if (gx#stx-pair/null? - _tl102592102643_) - (let ((_g108792_ + _tl7253572586_) + (let ((_g74167_ (gx#syntax-split-splice - _tl102592102643_ + _tl7253572586_ '0))) (begin - (let ((_g108793_ + (let ((_g74168_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g108792_) - (##vector-length _g108792_) + _g74167_) + (##vector-length _g74167_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g108793_ 2))) - (error "Context expects 2 values" _g108793_))) + (if (not (let () (declare (not safe)) (##fx= _g74168_ 2))) + (error "Context expects 2 values" _g74168_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target102595102646_ + (let ((_target7253872589_ (let () (declare (not safe)) (##vector-ref - _g108792_ + _g74167_ 0))) - (_tl102597102649_ + (_tl7254072592_ (let () (declare (not safe)) (##vector-ref - _g108792_ + _g74167_ 1)))) (if (gx#stx-null? - _tl102597102649_) - (letrec ((_loop102598102652_ + _tl7254072592_) + (letrec ((_loop7254172595_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd102596102656_ _clause102602102659_) - (if (gx#stx-pair? _hd102596102656_) - (let ((_e102599102662_ - (gx#syntax-e _hd102596102656_))) - (let ((_lp-hd102600102666_ + (lambda (_hd7253972599_ _clause7254572602_) + (if (gx#stx-pair? _hd7253972599_) + (let ((_e7254272605_ + (gx#syntax-e _hd7253972599_))) + (let ((_lp-hd7254372609_ (let () (declare (not safe)) - (##car _e102599102662_))) - (_lp-tl102601102669_ + (##car _e7254272605_))) + (_lp-tl7254472612_ (let () (declare (not safe)) - (##cdr _e102599102662_)))) - (_loop102598102652_ - _lp-tl102601102669_ + (##cdr _e7254272605_)))) + (_loop7254172595_ + _lp-tl7254472612_ (let () (declare (not safe)) - (cons _lp-hd102600102666_ - _clause102602102659_))))) - (let ((_clause102603102672_ - (reverse _clause102602102659_))) - ((lambda (_L102676_ _L102678_ _L102679_) - (let _recur102701_ ((_rest102704_ - (let ((__tmp108815 + (cons _lp-hd7254372609_ + _clause7254572602_))))) + (let ((_clause7254672615_ + (reverse _clause7254572602_))) + ((lambda (_L72619_ _L72621_ _L72622_) + (let _recur72644_ ((_rest72647_ + (let ((__tmp74190 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g103106103109_ _g103107103112_) - (let () - (declare (not safe)) - (cons _g103106103109_ _g103107103112_))))) - (declare (not safe)) - (foldr1 __tmp108815 '() _L102676_)))) + (lambda (_g7304973052_ _g7305073055_) + (let () + (declare (not safe)) + (cons _g7304973052_ _g7305073055_))))) + (declare (not safe)) + (foldr1 __tmp74190 '() _L72619_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest102706102715_ - _rest102704_) - (_E102709102721_ + (let* ((_rest7264972658_ _rest72647_) + (_E7265272664_ (lambda () - (error '"No clause matching" - _rest102706102715_)))) - (let ((_K102711103091_ - (lambda (_rest102737_ - _hd102739_) - (let* ((_g102741102749_ - (lambda (_g102742102745_) + (let () + (declare (not safe)) + (error '"No clause matching" + _rest7264972658_))))) + (let ((_K7265473034_ + (lambda (_rest72680_ + _hd72682_) + (let* ((_g7268472692_ + (lambda (_g7268572688_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102742102745_))) - (_g102740103087_ - (lambda (_g102742102753_) - ((lambda (_L102756_) + _g7268572688_))) + (_g7268373030_ + (lambda (_g7268572696_) + ((lambda (_L72699_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g102774102782_ - (lambda (_g102775102778_) + (let* ((_g7271772725_ + (lambda (_g7271872721_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102775102778_))) - (_g102773103083_ - (lambda (_g102775102786_) - ((lambda (_L102789_) + _g7271872721_))) + (_g7271673026_ + (lambda (_g7271872729_) + ((lambda (_L72732_) (let () - (let* ((_g102802102810_ - (lambda (_g102803102806_) + (let* ((_g7274572753_ + (lambda (_g7274672749_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102803102806_))) - (_g102801103079_ - (lambda (_g102803102814_) - ((lambda (_L102817_) + _g7274672749_))) + (_g7274473022_ + (lambda (_g7274672757_) + ((lambda (_L72760_) (let () - (let* ((_g102830102838_ + (let* ((_g7277372781_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g102831102834_) + (lambda (_g7277472777_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102831102834_))) - (_g102829102860_ - (lambda (_g102831102842_) - ((lambda (_L102845_) + _g7277472777_))) + (_g7277272803_ + (lambda (_g7277472785_) + ((lambda (_L72788_) (let () (let () - (let ((__tmp108802 + (let ((__tmp74177 (gx#datum->syntax '#f 'let)) - (__tmp108794 - (let ((__tmp108796 - (let ((__tmp108797 - (let ((__tmp108798 - (let ((__tmp108801 + (__tmp74169 + (let ((__tmp74171 + (let ((__tmp74172 + (let ((__tmp74173 + (let ((__tmp74176 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp108799 - (let ((__tmp108800 + (__tmp74174 + (let ((__tmp74175 (let () (declare (not safe)) - (cons _L102817_ '())))) + (cons _L72760_ '())))) (declare (not safe)) - (cons '() __tmp108800)))) + (cons '() __tmp74175)))) (declare (not safe)) - (cons __tmp108801 __tmp108799)))) + (cons __tmp74176 __tmp74174)))) (declare (not safe)) - (cons __tmp108798 '())))) + (cons __tmp74173 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L102756_ - __tmp108797))) - (__tmp108795 + (cons _L72699_ __tmp74172))) + (__tmp74170 (let () (declare (not safe)) - (cons _L102845_ '())))) + (cons _L72788_ '())))) (declare (not safe)) - (cons __tmp108796 __tmp108795)))) + (cons __tmp74171 __tmp74170)))) (declare (not safe)) - (cons __tmp108802 __tmp108794))))) - _g102831102842_)))) - (_g102829102860_ - (let* ((___stx108624108625_ _hd102739_) - (_g102866102906_ + (cons __tmp74177 __tmp74169))))) + _g7277472785_)))) + (_g7277272803_ + (let* ((___stx7399974000_ _hd72682_) + (_g7280972849_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx108624108625_)))) - (let ((___kont108627108628_ - (lambda (_L103052_) - (let ((__tmp108805 - (gx#datum->syntax '#f 'begin)) - (__tmp108803 - (let ((__tmp108804 - (lambda (_g103066103069_ - _g103067103072_) + ___stx7399974000_)))) + (let ((___kont7400274003_ + (lambda (_L72995_) + (let ((__tmp74180 (gx#datum->syntax '#f 'begin)) + (__tmp74178 + (let ((__tmp74179 + (lambda (_g7300973012_ + _g7301073015_) (let () (declare (not safe)) - (cons _g103066103069_ - _g103067103072_))))) + (cons _g7300973012_ + _g7301073015_))))) (declare (not safe)) - (foldr1 __tmp108804 '() _L103052_)))) + (foldr1 __tmp74179 '() _L72995_)))) (declare (not safe)) - (cons __tmp108805 __tmp108803)))) - (___kont108631108632_ - (lambda (_L102990_ _L102992_) - (_generate1102578_ - _L102992_ - _L102679_ - _L102990_ - _L102789_ - _L102678_))) - (___kont108633108634_ - (lambda (_L102943_ _L102945_ _L102946_) - (_generate1102578_ - _L102946_ - _L102679_ - (let ((__tmp108809 (gx#datum->syntax '#f 'if)) - (__tmp108806 - (let ((__tmp108807 - (let ((__tmp108808 + (cons __tmp74180 __tmp74178)))) + (___kont7400674007_ + (lambda (_L72933_ _L72935_) + (_generate172521_ + _L72935_ + _L72622_ + _L72933_ + _L72732_ + _L72621_))) + (___kont7400874009_ + (lambda (_L72886_ _L72888_ _L72889_) + (_generate172521_ + _L72889_ + _L72622_ + (let ((__tmp74184 (gx#datum->syntax '#f 'if)) + (__tmp74181 + (let ((__tmp74182 + (let ((__tmp74183 (let () (declare (not safe)) - (cons _L102789_ '())))) + (cons _L72732_ '())))) (declare (not safe)) - (cons _L102943_ __tmp108808)))) + (cons _L72886_ __tmp74183)))) (declare (not safe)) - (cons _L102945_ __tmp108807)))) + (cons _L72888_ __tmp74182)))) (declare (not safe)) - (cons __tmp108809 __tmp108806)) - _L102789_ - _L102678_)))) - (let ((___match108653108654_ - (lambda (_e102871103012_ - _hd102870103016_ - _tl102869103019_ - ___splice108629108630_ - _target102872103022_ - _tl102874103025_) - (letrec ((_loop102875103028_ - (lambda (_hd102873103032_ - _expr102879103035_) - (if (gx#stx-pair? - _hd102873103032_) - (let ((_e102876103038_ + (cons __tmp74184 __tmp74181)) + _L72732_ + _L72621_)))) + (let ((___match7402874029_ + (lambda (_e7281472955_ + _hd7281372959_ + _tl7281272962_ + ___splice7400474005_ + _target7281572965_ + _tl7281772968_) + (letrec ((_loop7281872971_ + (lambda (_hd7281672975_ + _expr7282272978_) + (if (gx#stx-pair? _hd7281672975_) + (let ((_e7281972981_ (gx#syntax-e - _hd102873103032_))) - (let ((_lp-tl102878103045_ + _hd7281672975_))) + (let ((_lp-tl7282172988_ (let () (declare (not safe)) - (##cdr _e102876103038_))) - (_lp-hd102877103042_ + (##cdr _e7281972981_))) + (_lp-hd7282072985_ (let () (declare (not safe)) - (##car _e102876103038_)))) - (_loop102875103028_ - _lp-tl102878103045_ + (##car _e7281972981_)))) + (_loop7281872971_ + _lp-tl7282172988_ (let () (declare (not safe)) - (cons _lp-hd102877103042_ - _expr102879103035_))))) - (let ((_expr102880103048_ - (reverse _expr102879103035_))) - (___kont108627108628_ - _expr102880103048_)))))) - (_loop102875103028_ - _target102872103022_ + (cons _lp-hd7282072985_ + _expr7282272978_))))) + (let ((_expr7282372991_ + (reverse _expr7282272978_))) + (___kont7400274003_ + _expr7282372991_)))))) + (_loop7281872971_ + _target7281572965_ '()))))) - (if (gx#stx-pair? ___stx108624108625_) - (let ((_e102871103012_ - (gx#syntax-e ___stx108624108625_))) - (let ((_tl102869103019_ + (if (gx#stx-pair? ___stx7399974000_) + (let ((_e7281472955_ + (gx#syntax-e ___stx7399974000_))) + (let ((_tl7281272962_ (let () (declare (not safe)) - (##cdr _e102871103012_))) - (_hd102870103016_ + (##cdr _e7281472955_))) + (_hd7281372959_ (let () (declare (not safe)) - (##car _e102871103012_)))) - (if (gx#identifier? _hd102870103016_) + (##car _e7281472955_)))) + (if (gx#identifier? _hd7281372959_) (if (gx#free-identifier=? - |[1]#_g108810_| - _hd102870103016_) + |[1]#_g74185_| + _hd7281372959_) (if (gx#stx-pair/null? - _tl102869103019_) - (let ((___splice108629108630_ + _tl7281272962_) + (let ((___splice7400474005_ (gx#syntax-split-splice - _tl102869103019_ + _tl7281272962_ '0))) - (let ((_tl102874103025_ + (let ((_tl7281772968_ (let () (declare (not safe)) (##vector-ref - ___splice108629108630_ + ___splice7400474005_ '1))) - (_target102872103022_ + (_target7281572965_ (let () (declare (not safe)) (##vector-ref - ___splice108629108630_ + ___splice7400474005_ '0)))) (if (gx#stx-null? - _tl102874103025_) - (___match108653108654_ - _e102871103012_ - _hd102870103016_ - _tl102869103019_ - ___splice108629108630_ - _target102872103022_ - _tl102874103025_) + _tl7281772968_) + (___match7402874029_ + _e7281472955_ + _hd7281372959_ + _tl7281272962_ + ___splice7400474005_ + _target7281572965_ + _tl7281772968_) (if (gx#stx-pair? - _tl102869103019_) - (let ((_e102888102980_ + _tl7281272962_) + (let ((_e7283172923_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl102869103019_))) - (let ((_tl102886102987_ - (let () - (declare (not safe)) - (##cdr _e102888102980_))) - (_hd102887102984_ + (gx#syntax-e _tl7281272962_))) + (let ((_tl7282972930_ + (let () (declare (not safe)) (##cdr _e7283172923_))) + (_hd7283072927_ (let () (declare (not safe)) - (##car _e102888102980_)))) - (if (gx#stx-null? _tl102886102987_) - (___kont108631108632_ - _hd102887102984_ - _hd102870103016_) - (if (gx#stx-pair? _tl102886102987_) - (let ((_e102900102933_ - (gx#syntax-e _tl102886102987_))) - (let ((_tl102898102940_ + (##car _e7283172923_)))) + (if (gx#stx-null? _tl7282972930_) + (___kont7400674007_ _hd7283072927_ _hd7281372959_) + (if (gx#stx-pair? _tl7282972930_) + (let ((_e7284372876_ + (gx#syntax-e _tl7282972930_))) + (let ((_tl7284172883_ (let () (declare (not safe)) - (##cdr _e102900102933_))) - (_hd102899102937_ + (##cdr _e7284372876_))) + (_hd7284272880_ (let () (declare (not safe)) - (##car _e102900102933_)))) - (if (gx#stx-null? _tl102898102940_) - (___kont108633108634_ - _hd102899102937_ - _hd102887102984_ - _hd102870103016_) + (##car _e7284372876_)))) + (if (gx#stx-null? _tl7284172883_) + (___kont7400874009_ + _hd7284272880_ + _hd7283072927_ + _hd7281372959_) (let () (declare (not safe)) - (_g102866102906_))))) - (let () - (declare (not safe)) - (_g102866102906_)))))) - (let () (declare (not safe)) (_g102866102906_)))))) + (_g7280972849_))))) + (let () (declare (not safe)) (_g7280972849_)))))) + (let () (declare (not safe)) (_g7280972849_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? - _tl102869103019_) - (let ((_e102888102980_ + (if (gx#stx-pair? _tl7281272962_) + (let ((_e7283172923_ (gx#syntax-e - _tl102869103019_))) - (let ((_tl102886102987_ + _tl7281272962_))) + (let ((_tl7282972930_ (let () (declare (not safe)) - (##cdr _e102888102980_))) - (_hd102887102984_ + (##cdr _e7283172923_))) + (_hd7283072927_ (let () (declare (not safe)) - (##car _e102888102980_)))) + (##car _e7283172923_)))) (if (gx#stx-null? - _tl102886102987_) - (___kont108631108632_ - _hd102887102984_ - _hd102870103016_) + _tl7282972930_) + (___kont7400674007_ + _hd7283072927_ + _hd7281372959_) (if (gx#stx-pair? - _tl102886102987_) - (let ((_e102900102933_ + _tl7282972930_) + (let ((_e7284372876_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl102886102987_))) - (let ((_tl102898102940_ + (gx#syntax-e _tl7282972930_))) + (let ((_tl7284172883_ (let () (declare (not safe)) - (##cdr _e102900102933_))) - (_hd102899102937_ + (##cdr _e7284372876_))) + (_hd7284272880_ (let () (declare (not safe)) - (##car _e102900102933_)))) - (if (gx#stx-null? _tl102898102940_) - (___kont108633108634_ - _hd102899102937_ - _hd102887102984_ - _hd102870103016_) - (let () - (declare (not safe)) - (_g102866102906_))))) - (let () (declare (not safe)) (_g102866102906_)))))) + (##car _e7284372876_)))) + (if (gx#stx-null? _tl7284172883_) + (___kont7400874009_ + _hd7284272880_ + _hd7283072927_ + _hd7281372959_) + (let () (declare (not safe)) (_g7280972849_))))) + (let () (declare (not safe)) (_g7280972849_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g102866102906_)))) - (if (gx#stx-pair? _tl102869103019_) - (let ((_e102888102980_ + (_g7280972849_)))) + (if (gx#stx-pair? _tl7281272962_) + (let ((_e7283172923_ (gx#syntax-e - _tl102869103019_))) - (let ((_tl102886102987_ + _tl7281272962_))) + (let ((_tl7282972930_ (let () (declare (not safe)) - (##cdr _e102888102980_))) - (_hd102887102984_ + (##cdr _e7283172923_))) + (_hd7283072927_ (let () (declare (not safe)) - (##car _e102888102980_)))) + (##car _e7283172923_)))) (if (gx#stx-null? - _tl102886102987_) - (___kont108631108632_ - _hd102887102984_ - _hd102870103016_) + _tl7282972930_) + (___kont7400674007_ + _hd7283072927_ + _hd7281372959_) (if (gx#stx-pair? - _tl102886102987_) - (let ((_e102900102933_ + _tl7282972930_) + (let ((_e7284372876_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl102886102987_))) - (let ((_tl102898102940_ - (let () - (declare (not safe)) - (##cdr _e102900102933_))) - (_hd102899102937_ + (gx#syntax-e _tl7282972930_))) + (let ((_tl7284172883_ + (let () (declare (not safe)) (##cdr _e7284372876_))) + (_hd7284272880_ (let () (declare (not safe)) - (##car _e102900102933_)))) - (if (gx#stx-null? _tl102898102940_) - (___kont108633108634_ - _hd102899102937_ - _hd102887102984_ - _hd102870103016_) - (let () (declare (not safe)) (_g102866102906_))))) - (let () (declare (not safe)) (_g102866102906_)))))) + (##car _e7284372876_)))) + (if (gx#stx-null? _tl7284172883_) + (___kont7400874009_ + _hd7284272880_ + _hd7283072927_ + _hd7281372959_) + (let () (declare (not safe)) (_g7280972849_))))) + (let () (declare (not safe)) (_g7280972849_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g102866102906_)))) - (if (gx#stx-pair? _tl102869103019_) - (let ((_e102888102980_ - (gx#syntax-e - _tl102869103019_))) - (let ((_tl102886102987_ + (_g7280972849_)))) + (if (gx#stx-pair? _tl7281272962_) + (let ((_e7283172923_ + (gx#syntax-e _tl7281272962_))) + (let ((_tl7282972930_ (let () (declare (not safe)) - (##cdr _e102888102980_))) - (_hd102887102984_ + (##cdr _e7283172923_))) + (_hd7283072927_ (let () (declare (not safe)) - (##car _e102888102980_)))) - (if (gx#stx-null? - _tl102886102987_) - (___kont108631108632_ - _hd102887102984_ - _hd102870103016_) + (##car _e7283172923_)))) + (if (gx#stx-null? _tl7282972930_) + (___kont7400674007_ + _hd7283072927_ + _hd7281372959_) (if (gx#stx-pair? - _tl102886102987_) - (let ((_e102900102933_ + _tl7282972930_) + (let ((_e7284372876_ (gx#syntax-e - _tl102886102987_))) - (let ((_tl102898102940_ + _tl7282972930_))) + (let ((_tl7284172883_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e102900102933_))) - (_hd102899102937_ - (let () (declare (not safe)) (##car _e102900102933_)))) - (if (gx#stx-null? _tl102898102940_) - (___kont108633108634_ - _hd102899102937_ - _hd102887102984_ - _hd102870103016_) - (let () (declare (not safe)) (_g102866102906_))))) - (let () (declare (not safe)) (_g102866102906_)))))) + (##cdr _e7284372876_))) + (_hd7284272880_ + (let () (declare (not safe)) (##car _e7284372876_)))) + (if (gx#stx-null? _tl7284172883_) + (___kont7400874009_ + _hd7284272880_ + _hd7283072927_ + _hd7281372959_) + (let () (declare (not safe)) (_g7280972849_))))) + (let () (declare (not safe)) (_g7280972849_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g102866102906_)))))) + (_g7280972849_)))))) (let () (declare (not safe)) - (_g102866102906_)))))))))) + (_g7280972849_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g102803102814_)))) - (_g102801103079_ - (_recur102701_ _rest102737_))))) - _g102775102786_)))) - (_g102773103083_ + _g7274672757_)))) + (_g7274473022_ + (_recur72644_ _rest72680_))))) + _g7271872729_)))) + (_g7271673026_ (let () (declare (not safe)) - (cons _L102756_ '())))))) - _g102742102753_)))) - (_g102740103087_ (gx#genident '$E))))) + (cons _L72699_ '())))))) + _g7268572696_)))) + (_g7268373030_ (gx#genident '$E))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K102710102729_ + (_K7265372672_ (lambda () - (let ((__tmp108814 + (let ((__tmp74189 (gx#datum->syntax '#f '__raise-syntax-error)) - (__tmp108811 - (let ((__tmp108812 + (__tmp74186 + (let ((__tmp74187 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp108813 + (let ((__tmp74188 (let () (declare (not safe)) - (cons _L102679_ '())))) + (cons _L72622_ '())))) (declare (not safe)) (cons '"Bad syntax; malformed ast clause" - __tmp108813)))) + __tmp74188)))) (declare (not safe)) - (cons '#f __tmp108812)))) + (cons '#f __tmp74187)))) (declare (not safe)) - (cons __tmp108814 __tmp108811))))) + (cons __tmp74189 __tmp74186))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match102708102733_ + (let ((_try-match7265172676_ (lambda () (if (let () (declare (not safe)) - (##null? _rest102706102715_)) - (_K102710102729_) - (_E102709102721_))))) + (##null? _rest7264972658_)) + (_K7265372672_) + (_E7265272664_))))) (if (let () (declare (not safe)) - (##pair? _rest102706102715_)) - (let ((_tl102713103098_ + (##pair? _rest7264972658_)) + (let ((_tl7265673041_ (let () (declare (not safe)) - (##cdr _rest102706102715_))) - (_hd102712103095_ + (##cdr _rest7264972658_))) + (_hd7265573038_ (let () (declare (not safe)) - (##car _rest102706102715_)))) - (let ((_hd103101_ - _hd102712103095_) - (_rest103104_ - _tl102713103098_)) - (_K102711103091_ - _rest103104_ - _hd103101_))) - (_try-match102708102733_))))))) - _clause102603102672_ - _hd102593102640_ - _hd102590102630_)))))) - (_loop102598102652_ _target102595102646_ '())) - (_g102581102609_ _g102582102613_))))) + (##car _rest7264972658_)))) + (let ((_hd73044_ + _hd7265573038_) + (_rest73047_ + _tl7265673041_)) + (_K7265473034_ + _rest73047_ + _hd73044_))) + (_try-match7265172676_))))))) + _clause7254672615_ + _hd7253672583_ + _hd7253372573_)))))) + (_loop7254172595_ _target7253872589_ '())) + (_g7252472552_ _g7252572556_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g102581102609_ - _g102582102613_)))) - (_g102581102609_ _g102582102613_)))) - (_g102581102609_ _g102582102613_)))) - (_g102581102609_ _g102582102613_))))) - (_g102580103115_ _stx102575_))))) + (_g7252472552_ + _g7252572556_)))) + (_g7252472552_ _g7252572556_)))) + (_g7252472552_ _g7252572556_)))) + (_g7252472552_ _g7252572556_))))) + (_g7252373058_ _stx72518_))))) (define |[:0:]#SyntaxError| - (let ((__obj108697 + (let ((__obj74072 (let () (declare (not safe)) (##structure @@ -1493,7 +1463,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108697 + __obj74072 'gerbil/runtime/syntax#SyntaxError::t '1 gerbil/core$$#class-type-info::t @@ -1501,7 +1471,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108697 + __obj74072 'SyntaxError '2 gerbil/core$$#class-type-info::t @@ -1509,26 +1479,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108697 + __obj74072 '(message irritants where context phi marks) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp108816 - (let ((__tmp108817 |[1]#_g108818_|)) + (let ((__tmp74191 + (let ((__tmp74192 |[1]#_g74193_|)) (declare (not safe)) - (cons __tmp108817 '())))) + (cons __tmp74192 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj108697 - __tmp108816 + __obj74072 + __tmp74191 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj108697 + __obj74072 '#f '5 gerbil/core$$#class-type-info::t @@ -1536,7 +1506,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108697 + __obj74072 '#t '6 gerbil/core$$#class-type-info::t @@ -1544,7 +1514,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108697 + __obj74072 '#f '7 gerbil/core$$#class-type-info::t @@ -1552,254 +1522,254 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108697 + __obj74072 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp108819 |[1]#_g108820_|)) + (let ((__tmp74194 |[1]#_g74195_|)) (declare (not safe)) (##unchecked-structure-set! - __obj108697 - __tmp108819 + __obj74072 + __tmp74194 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp108821 |[1]#_g108822_|)) + (let ((__tmp74196 |[1]#_g74197_|)) (declare (not safe)) (##unchecked-structure-set! - __obj108697 - __tmp108821 + __obj74072 + __tmp74196 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp108823 |[1]#_g108824_|)) + (let ((__tmp74198 |[1]#_g74199_|)) (declare (not safe)) (##unchecked-structure-set! - __obj108697 - __tmp108823 + __obj74072 + __tmp74198 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp108825 - (let ((__tmp108846 - (let ((__tmp108847 |[1]#_g108848_|)) + (let ((__tmp74200 + (let ((__tmp74221 + (let ((__tmp74222 |[1]#_g74223_|)) (declare (not safe)) - (cons 'message __tmp108847))) - (__tmp108826 - (let ((__tmp108843 - (let ((__tmp108844 |[1]#_g108845_|)) + (cons 'message __tmp74222))) + (__tmp74201 + (let ((__tmp74218 + (let ((__tmp74219 |[1]#_g74220_|)) (declare (not safe)) - (cons 'irritants __tmp108844))) - (__tmp108827 - (let ((__tmp108840 - (let ((__tmp108841 |[1]#_g108842_|)) + (cons 'irritants __tmp74219))) + (__tmp74202 + (let ((__tmp74215 + (let ((__tmp74216 |[1]#_g74217_|)) (declare (not safe)) - (cons 'where __tmp108841))) - (__tmp108828 - (let ((__tmp108837 - (let ((__tmp108838 |[1]#_g108839_|)) + (cons 'where __tmp74216))) + (__tmp74203 + (let ((__tmp74212 + (let ((__tmp74213 |[1]#_g74214_|)) (declare (not safe)) - (cons 'context __tmp108838))) - (__tmp108829 - (let ((__tmp108834 - (let ((__tmp108835 - |[1]#_g108836_|)) + (cons 'context __tmp74213))) + (__tmp74204 + (let ((__tmp74209 + (let ((__tmp74210 + |[1]#_g74211_|)) (declare (not safe)) - (cons 'phi __tmp108835))) - (__tmp108830 - (let ((__tmp108831 - (let ((__tmp108832 - |[1]#_g108833_|)) + (cons 'phi __tmp74210))) + (__tmp74205 + (let ((__tmp74206 + (let ((__tmp74207 + |[1]#_g74208_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp108832)))) + __tmp74207)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp108831 '())))) + (cons __tmp74206 '())))) (declare (not safe)) - (cons __tmp108834 __tmp108830)))) + (cons __tmp74209 __tmp74205)))) (declare (not safe)) - (cons __tmp108837 __tmp108829)))) + (cons __tmp74212 __tmp74204)))) (declare (not safe)) - (cons __tmp108840 __tmp108828)))) + (cons __tmp74215 __tmp74203)))) (declare (not safe)) - (cons __tmp108843 __tmp108827)))) + (cons __tmp74218 __tmp74202)))) (declare (not safe)) - (cons __tmp108846 __tmp108826)))) + (cons __tmp74221 __tmp74201)))) (declare (not safe)) (##unchecked-structure-set! - __obj108697 - __tmp108825 + __obj74072 + __tmp74200 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp108849 - (let ((__tmp108870 - (let ((__tmp108871 |[1]#_g108872_|)) + (let ((__tmp74224 + (let ((__tmp74245 + (let ((__tmp74246 |[1]#_g74247_|)) (declare (not safe)) - (cons 'message __tmp108871))) - (__tmp108850 - (let ((__tmp108867 - (let ((__tmp108868 |[1]#_g108869_|)) + (cons 'message __tmp74246))) + (__tmp74225 + (let ((__tmp74242 + (let ((__tmp74243 |[1]#_g74244_|)) (declare (not safe)) - (cons 'irritants __tmp108868))) - (__tmp108851 - (let ((__tmp108864 - (let ((__tmp108865 |[1]#_g108866_|)) + (cons 'irritants __tmp74243))) + (__tmp74226 + (let ((__tmp74239 + (let ((__tmp74240 |[1]#_g74241_|)) (declare (not safe)) - (cons 'where __tmp108865))) - (__tmp108852 - (let ((__tmp108861 - (let ((__tmp108862 |[1]#_g108863_|)) + (cons 'where __tmp74240))) + (__tmp74227 + (let ((__tmp74236 + (let ((__tmp74237 |[1]#_g74238_|)) (declare (not safe)) - (cons 'context __tmp108862))) - (__tmp108853 - (let ((__tmp108858 - (let ((__tmp108859 - |[1]#_g108860_|)) + (cons 'context __tmp74237))) + (__tmp74228 + (let ((__tmp74233 + (let ((__tmp74234 + |[1]#_g74235_|)) (declare (not safe)) - (cons 'phi __tmp108859))) - (__tmp108854 - (let ((__tmp108855 - (let ((__tmp108856 - |[1]#_g108857_|)) + (cons 'phi __tmp74234))) + (__tmp74229 + (let ((__tmp74230 + (let ((__tmp74231 + |[1]#_g74232_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp108856)))) + __tmp74231)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp108855 '())))) + (cons __tmp74230 '())))) (declare (not safe)) - (cons __tmp108858 __tmp108854)))) + (cons __tmp74233 __tmp74229)))) (declare (not safe)) - (cons __tmp108861 __tmp108853)))) + (cons __tmp74236 __tmp74228)))) (declare (not safe)) - (cons __tmp108864 __tmp108852)))) + (cons __tmp74239 __tmp74227)))) (declare (not safe)) - (cons __tmp108867 __tmp108851)))) + (cons __tmp74242 __tmp74226)))) (declare (not safe)) - (cons __tmp108870 __tmp108850)))) + (cons __tmp74245 __tmp74225)))) (declare (not safe)) (##unchecked-structure-set! - __obj108697 - __tmp108849 + __obj74072 + __tmp74224 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp108873 - (let ((__tmp108894 - (let ((__tmp108895 |[1]#_g108896_|)) + (let ((__tmp74248 + (let ((__tmp74269 + (let ((__tmp74270 |[1]#_g74271_|)) (declare (not safe)) - (cons 'message __tmp108895))) - (__tmp108874 - (let ((__tmp108891 - (let ((__tmp108892 |[1]#_g108893_|)) + (cons 'message __tmp74270))) + (__tmp74249 + (let ((__tmp74266 + (let ((__tmp74267 |[1]#_g74268_|)) (declare (not safe)) - (cons 'irritants __tmp108892))) - (__tmp108875 - (let ((__tmp108888 - (let ((__tmp108889 |[1]#_g108890_|)) + (cons 'irritants __tmp74267))) + (__tmp74250 + (let ((__tmp74263 + (let ((__tmp74264 |[1]#_g74265_|)) (declare (not safe)) - (cons 'where __tmp108889))) - (__tmp108876 - (let ((__tmp108885 - (let ((__tmp108886 |[1]#_g108887_|)) + (cons 'where __tmp74264))) + (__tmp74251 + (let ((__tmp74260 + (let ((__tmp74261 |[1]#_g74262_|)) (declare (not safe)) - (cons 'context __tmp108886))) - (__tmp108877 - (let ((__tmp108882 - (let ((__tmp108883 - |[1]#_g108884_|)) + (cons 'context __tmp74261))) + (__tmp74252 + (let ((__tmp74257 + (let ((__tmp74258 + |[1]#_g74259_|)) (declare (not safe)) - (cons 'phi __tmp108883))) - (__tmp108878 - (let ((__tmp108879 - (let ((__tmp108880 - |[1]#_g108881_|)) + (cons 'phi __tmp74258))) + (__tmp74253 + (let ((__tmp74254 + (let ((__tmp74255 + |[1]#_g74256_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp108880)))) + __tmp74255)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp108879 '())))) + (cons __tmp74254 '())))) (declare (not safe)) - (cons __tmp108882 __tmp108878)))) + (cons __tmp74257 __tmp74253)))) (declare (not safe)) - (cons __tmp108885 __tmp108877)))) + (cons __tmp74260 __tmp74252)))) (declare (not safe)) - (cons __tmp108888 __tmp108876)))) + (cons __tmp74263 __tmp74251)))) (declare (not safe)) - (cons __tmp108891 __tmp108875)))) + (cons __tmp74266 __tmp74250)))) (declare (not safe)) - (cons __tmp108894 __tmp108874)))) + (cons __tmp74269 __tmp74249)))) (declare (not safe)) (##unchecked-structure-set! - __obj108697 - __tmp108873 + __obj74072 + __tmp74248 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp108897 - (let ((__tmp108918 - (let ((__tmp108919 |[1]#_g108920_|)) + (let ((__tmp74272 + (let ((__tmp74293 + (let ((__tmp74294 |[1]#_g74295_|)) (declare (not safe)) - (cons 'message __tmp108919))) - (__tmp108898 - (let ((__tmp108915 - (let ((__tmp108916 |[1]#_g108917_|)) + (cons 'message __tmp74294))) + (__tmp74273 + (let ((__tmp74290 + (let ((__tmp74291 |[1]#_g74292_|)) (declare (not safe)) - (cons 'irritants __tmp108916))) - (__tmp108899 - (let ((__tmp108912 - (let ((__tmp108913 |[1]#_g108914_|)) + (cons 'irritants __tmp74291))) + (__tmp74274 + (let ((__tmp74287 + (let ((__tmp74288 |[1]#_g74289_|)) (declare (not safe)) - (cons 'where __tmp108913))) - (__tmp108900 - (let ((__tmp108909 - (let ((__tmp108910 |[1]#_g108911_|)) + (cons 'where __tmp74288))) + (__tmp74275 + (let ((__tmp74284 + (let ((__tmp74285 |[1]#_g74286_|)) (declare (not safe)) - (cons 'context __tmp108910))) - (__tmp108901 - (let ((__tmp108906 - (let ((__tmp108907 - |[1]#_g108908_|)) + (cons 'context __tmp74285))) + (__tmp74276 + (let ((__tmp74281 + (let ((__tmp74282 + |[1]#_g74283_|)) (declare (not safe)) - (cons 'phi __tmp108907))) - (__tmp108902 - (let ((__tmp108903 - (let ((__tmp108904 - |[1]#_g108905_|)) + (cons 'phi __tmp74282))) + (__tmp74277 + (let ((__tmp74278 + (let ((__tmp74279 + |[1]#_g74280_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp108904)))) + __tmp74279)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp108903 '())))) + (cons __tmp74278 '())))) (declare (not safe)) - (cons __tmp108906 __tmp108902)))) + (cons __tmp74281 __tmp74277)))) (declare (not safe)) - (cons __tmp108909 __tmp108901)))) + (cons __tmp74284 __tmp74276)))) (declare (not safe)) - (cons __tmp108912 __tmp108900)))) + (cons __tmp74287 __tmp74275)))) (declare (not safe)) - (cons __tmp108915 __tmp108899)))) + (cons __tmp74290 __tmp74274)))) (declare (not safe)) - (cons __tmp108918 __tmp108898)))) + (cons __tmp74293 __tmp74273)))) (declare (not safe)) (##unchecked-structure-set! - __obj108697 - __tmp108897 + __obj74072 + __tmp74272 '15 gerbil/core$$#class-type-info::t '#f)) - __obj108697)) + __obj74072)) (define |[:0:]#AST| - (let ((__obj108699 + (let ((__obj74074 (let () (declare (not safe)) (##structure @@ -1822,7 +1792,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108699 + __obj74074 'gerbil#AST::t '1 gerbil/core$$#class-type-info::t @@ -1830,7 +1800,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108699 + __obj74074 'syntax '2 gerbil/core$$#class-type-info::t @@ -1838,7 +1808,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108699 + __obj74074 '(e source) '4 gerbil/core$$#class-type-info::t @@ -1846,7 +1816,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108699 + __obj74074 '() '3 gerbil/core$$#class-type-info::t @@ -1854,7 +1824,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108699 + __obj74074 '#t '5 gerbil/core$$#class-type-info::t @@ -1862,7 +1832,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108699 + __obj74074 '#f '6 gerbil/core$$#class-type-info::t @@ -1870,7 +1840,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108699 + __obj74074 '#f '7 gerbil/core$$#class-type-info::t @@ -1878,117 +1848,117 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj108699 + __obj74074 '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp108921 |[1]#_g108922_|)) + (let ((__tmp74296 |[1]#_g74297_|)) (declare (not safe)) (##unchecked-structure-set! - __obj108699 - __tmp108921 + __obj74074 + __tmp74296 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp108923 |[1]#_g108924_|)) + (let ((__tmp74298 |[1]#_g74299_|)) (declare (not safe)) (##unchecked-structure-set! - __obj108699 - __tmp108923 + __obj74074 + __tmp74298 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp108925 |[1]#_g108926_|)) + (let ((__tmp74300 |[1]#_g74301_|)) (declare (not safe)) (##unchecked-structure-set! - __obj108699 - __tmp108925 + __obj74074 + __tmp74300 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp108927 - (let ((__tmp108932 - (let ((__tmp108933 |[1]#_g108934_|)) + (let ((__tmp74302 + (let ((__tmp74307 + (let ((__tmp74308 |[1]#_g74309_|)) (declare (not safe)) - (cons 'e __tmp108933))) - (__tmp108928 - (let ((__tmp108929 - (let ((__tmp108930 |[1]#_g108931_|)) + (cons 'e __tmp74308))) + (__tmp74303 + (let ((__tmp74304 + (let ((__tmp74305 |[1]#_g74306_|)) (declare (not safe)) - (cons 'source __tmp108930)))) + (cons 'source __tmp74305)))) (declare (not safe)) - (cons __tmp108929 '())))) + (cons __tmp74304 '())))) (declare (not safe)) - (cons __tmp108932 __tmp108928)))) + (cons __tmp74307 __tmp74303)))) (declare (not safe)) (##unchecked-structure-set! - __obj108699 - __tmp108927 + __obj74074 + __tmp74302 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp108935 - (let ((__tmp108940 - (let ((__tmp108941 |[1]#_g108942_|)) + (let ((__tmp74310 + (let ((__tmp74315 + (let ((__tmp74316 |[1]#_g74317_|)) (declare (not safe)) - (cons 'e __tmp108941))) - (__tmp108936 - (let ((__tmp108937 - (let ((__tmp108938 |[1]#_g108939_|)) + (cons 'e __tmp74316))) + (__tmp74311 + (let ((__tmp74312 + (let ((__tmp74313 |[1]#_g74314_|)) (declare (not safe)) - (cons 'source __tmp108938)))) + (cons 'source __tmp74313)))) (declare (not safe)) - (cons __tmp108937 '())))) + (cons __tmp74312 '())))) (declare (not safe)) - (cons __tmp108940 __tmp108936)))) + (cons __tmp74315 __tmp74311)))) (declare (not safe)) (##unchecked-structure-set! - __obj108699 - __tmp108935 + __obj74074 + __tmp74310 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp108943 - (let ((__tmp108948 - (let ((__tmp108949 |[1]#_g108950_|)) + (let ((__tmp74318 + (let ((__tmp74323 + (let ((__tmp74324 |[1]#_g74325_|)) (declare (not safe)) - (cons 'e __tmp108949))) - (__tmp108944 - (let ((__tmp108945 - (let ((__tmp108946 |[1]#_g108947_|)) + (cons 'e __tmp74324))) + (__tmp74319 + (let ((__tmp74320 + (let ((__tmp74321 |[1]#_g74322_|)) (declare (not safe)) - (cons 'source __tmp108946)))) + (cons 'source __tmp74321)))) (declare (not safe)) - (cons __tmp108945 '())))) + (cons __tmp74320 '())))) (declare (not safe)) - (cons __tmp108948 __tmp108944)))) + (cons __tmp74323 __tmp74319)))) (declare (not safe)) (##unchecked-structure-set! - __obj108699 - __tmp108943 + __obj74074 + __tmp74318 '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp108951 - (let ((__tmp108956 - (let ((__tmp108957 |[1]#_g108958_|)) + (let ((__tmp74326 + (let ((__tmp74331 + (let ((__tmp74332 |[1]#_g74333_|)) (declare (not safe)) - (cons 'e __tmp108957))) - (__tmp108952 - (let ((__tmp108953 - (let ((__tmp108954 |[1]#_g108955_|)) + (cons 'e __tmp74332))) + (__tmp74327 + (let ((__tmp74328 + (let ((__tmp74329 |[1]#_g74330_|)) (declare (not safe)) - (cons 'source __tmp108954)))) + (cons 'source __tmp74329)))) (declare (not safe)) - (cons __tmp108953 '())))) + (cons __tmp74328 '())))) (declare (not safe)) - (cons __tmp108956 __tmp108952)))) + (cons __tmp74331 __tmp74327)))) (declare (not safe)) (##unchecked-structure-set! - __obj108699 - __tmp108951 + __obj74074 + __tmp74326 '15 gerbil/core$$#class-type-info::t '#f)) - __obj108699)))) + __obj74074)))) diff --git a/src/bootstrap/gerbil/runtime/system.ssi b/src/bootstrap/gerbil/runtime/system.ssi index 239b7357c..e0eadbef0 100644 --- a/src/bootstrap/gerbil/runtime/system.ssi +++ b/src/bootstrap/gerbil/runtime/system.ssi @@ -8,10 +8,6 @@ namespace: #f :gerbil/runtime/util :gerbil/runtime/control) (%#define-runtime gerbil-version-string gerbil-version-string) - (%#begin (%#begin-syntax - (%#call (%#ref load-module) - (%#quote "gerbil/runtime/system__1"))) - (%#define-syntax defmutable |[:0:]#defmutable|)) (%#define-runtime gerbil-system-manifest gerbil-system-manifest) (%#define-runtime build-manifest build-manifest) (%#begin (%#define-runtime diff --git a/src/bootstrap/gerbil/runtime/system__0.scm b/src/bootstrap/gerbil/runtime/system__0.scm index 33bbb1f30..ba7c043dd 100644 --- a/src/bootstrap/gerbil/runtime/system__0.scm +++ b/src/bootstrap/gerbil/runtime/system__0.scm @@ -1,146 +1,148 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/system::timestamp 1708102800) + (define gerbil/runtime/system::timestamp 1708370113) (begin - (define gerbil-version-string (lambda () '"v0.18.1-56-ge4a286df")) + (define gerbil-version-string (lambda () '"v0.18.1-95-ge9c2a8cb")) (define gerbil-system-manifest - (let ((__tmp69664 - (let ((__tmp69665 + (let ((__tmp60959 + (let ((__tmp60960 (let () (declare (not safe)) (gerbil-version-string)))) (declare (not safe)) - (cons '"Gerbil" __tmp69665))) - (__tmp69661 - (let ((__tmp69662 - (let ((__tmp69663 (system-version-string))) + (cons '"Gerbil" __tmp60960))) + (__tmp60956 + (let ((__tmp60957 + (let ((__tmp60958 (system-version-string))) (declare (not safe)) - (cons '"Gambit" __tmp69663)))) + (cons '"Gambit" __tmp60958)))) (declare (not safe)) - (cons __tmp69662 '())))) + (cons __tmp60957 '())))) (declare (not safe)) - (cons __tmp69664 __tmp69661))) + (cons __tmp60959 __tmp60956))) (define build-manifest gerbil-system-manifest) (set! build-manifest build-manifest) (define display-build-manifest__% - (lambda (_manifest65037_ _port65038_) - (let ((_p65044_ - (lambda (_g6503965041_) (display _g6503965041_ _port65038_))) - (_l65045_ (length _manifest65037_)) - (_i65046_ '0)) + (lambda (_manifest60900_ _port60901_) + (let ((_p60907_ + (lambda (_g6090260904_) (display _g6090260904_ _port60901_))) + (_l60908_ (length _manifest60900_)) + (_i60909_ '0)) (for-each - (lambda (_layer65048_) - (if (let () (declare (not safe)) (zero? _i65046_)) + (lambda (_layer60911_) + (if (let () (declare (not safe)) (zero? _i60909_)) '#!void - (if (= _i65046_ '1) - (let () (declare (not safe)) (_p65044_ '" on ")) - (let () (declare (not safe)) (_p65044_ '", ")))) - (let* ((_layer6504965056_ _layer65048_) - (_E6505165060_ + (if (= _i60909_ '1) + (let () (declare (not safe)) (_p60907_ '" on ")) + (let () (declare (not safe)) (_p60907_ '", ")))) + (let* ((_layer6091260919_ _layer60911_) + (_E6091460923_ (lambda () - (error '"No clause matching" _layer6504965056_))) - (_K6505265066_ - (lambda (_version65063_ _name65064_) - (let () (declare (not safe)) (_p65044_ _name65064_)) - (let () (declare (not safe)) (_p65044_ '" ")) (let () (declare (not safe)) - (_p65044_ _version65063_))))) - (if (let () (declare (not safe)) (##pair? _layer6504965056_)) - (let ((_hd6505365069_ + (error '"No clause matching" _layer6091260919_)))) + (_K6091560929_ + (lambda (_version60926_ _name60927_) + (let () (declare (not safe)) (_p60907_ _name60927_)) + (let () (declare (not safe)) (_p60907_ '" ")) + (let () + (declare (not safe)) + (_p60907_ _version60926_))))) + (if (let () (declare (not safe)) (##pair? _layer6091260919_)) + (let ((_hd6091660932_ (let () (declare (not safe)) - (##car _layer6504965056_))) - (_tl6505465071_ + (##car _layer6091260919_))) + (_tl6091760934_ (let () (declare (not safe)) - (##cdr _layer6504965056_)))) - (let* ((_name65074_ _hd6505365069_) - (_version65076_ _tl6505465071_)) + (##cdr _layer6091260919_)))) + (let* ((_name60937_ _hd6091660932_) + (_version60939_ _tl6091760934_)) (declare (not safe)) - (_K6505265066_ _version65076_ _name65074_))) - (let () (declare (not safe)) (_E6505165060_)))) - (set! _i65046_ (+ _i65046_ '1))) - _manifest65037_)))) + (_K6091560929_ _version60939_ _name60937_))) + (let () (declare (not safe)) (_E6091460923_)))) + (set! _i60909_ (+ _i60909_ '1))) + _manifest60900_)))) (define display-build-manifest__0 (lambda () - (let* ((_manifest65082_ build-manifest) - (_port65084_ (current-output-port))) + (let* ((_manifest60945_ build-manifest) + (_port60947_ (current-output-port))) (declare (not safe)) - (display-build-manifest__% _manifest65082_ _port65084_)))) + (display-build-manifest__% _manifest60945_ _port60947_)))) (define display-build-manifest__1 - (lambda (_manifest65086_) - (let ((_port65088_ (current-output-port))) + (lambda (_manifest60949_) + (let ((_port60951_ (current-output-port))) (declare (not safe)) - (display-build-manifest__% _manifest65086_ _port65088_)))) + (display-build-manifest__% _manifest60949_ _port60951_)))) (define display-build-manifest - (lambda _g69667_ - (let ((_g69666_ (let () (declare (not safe)) (##length _g69667_)))) - (cond ((let () (declare (not safe)) (##fx= _g69666_ 0)) + (lambda _g60962_ + (let ((_g60961_ (let () (declare (not safe)) (##length _g60962_)))) + (cond ((let () (declare (not safe)) (##fx= _g60961_ 0)) (apply (lambda () (let () (declare (not safe)) (display-build-manifest__0))) - _g69667_)) - ((let () (declare (not safe)) (##fx= _g69666_ 1)) - (apply (lambda (_manifest65086_) + _g60962_)) + ((let () (declare (not safe)) (##fx= _g60961_ 1)) + (apply (lambda (_manifest60949_) (let () (declare (not safe)) - (display-build-manifest__1 _manifest65086_))) - _g69667_)) - ((let () (declare (not safe)) (##fx= _g69666_ 2)) - (apply (lambda (_manifest65090_ _port65091_) + (display-build-manifest__1 _manifest60949_))) + _g60962_)) + ((let () (declare (not safe)) (##fx= _g60961_ 2)) + (apply (lambda (_manifest60953_ _port60954_) (let () (declare (not safe)) (display-build-manifest__% - _manifest65090_ - _port65091_))) - _g69667_)) + _manifest60953_ + _port60954_))) + _g60962_)) (else (##raise-wrong-number-of-arguments-exception display-build-manifest - _g69667_)))))) + _g60962_)))))) (define build-manifest/layer - (lambda (_layer65032_) - (let ((_l65034_ (assoc _layer65032_ build-manifest))) - (if _l65034_ - (let () (declare (not safe)) (cons _l65034_ '())) + (lambda (_layer60895_) + (let ((_l60897_ (assoc _layer60895_ build-manifest))) + (if _l60897_ + (let () (declare (not safe)) (cons _l60897_ '())) '())))) (define build-manifest/head (lambda () - (let ((__tmp69668 (car build-manifest))) + (let ((__tmp60963 (car build-manifest))) (declare (not safe)) - (cons __tmp69668 '())))) + (cons __tmp60963 '())))) (define build-manifest-string__% - (lambda (_manifest65019_) + (lambda (_manifest60882_) (call-with-output-string '() - (lambda (_p65021_) + (lambda (_p60884_) (let () (declare (not safe)) - (display-build-manifest__% _manifest65019_ _p65021_)))))) + (display-build-manifest__% _manifest60882_ _p60884_)))))) (define build-manifest-string__0 (lambda () - (let ((_manifest65027_ build-manifest)) + (let ((_manifest60890_ build-manifest)) (declare (not safe)) - (build-manifest-string__% _manifest65027_)))) + (build-manifest-string__% _manifest60890_)))) (define build-manifest-string - (lambda _g69670_ - (let ((_g69669_ (let () (declare (not safe)) (##length _g69670_)))) - (cond ((let () (declare (not safe)) (##fx= _g69669_ 0)) + (lambda _g60965_ + (let ((_g60964_ (let () (declare (not safe)) (##length _g60965_)))) + (cond ((let () (declare (not safe)) (##fx= _g60964_ 0)) (apply (lambda () (let () (declare (not safe)) (build-manifest-string__0))) - _g69670_)) - ((let () (declare (not safe)) (##fx= _g69669_ 1)) - (apply (lambda (_manifest65029_) + _g60965_)) + ((let () (declare (not safe)) (##fx= _g60964_ 1)) + (apply (lambda (_manifest60892_) (let () (declare (not safe)) - (build-manifest-string__% _manifest65029_))) - _g69670_)) + (build-manifest-string__% _manifest60892_))) + _g60965_)) (else (##raise-wrong-number-of-arguments-exception build-manifest-string - _g69670_)))))) + _g60965_)))))) (define gerbil-system-version-string (lambda () (let () @@ -152,15 +154,15 @@ (define gerbil-system (lambda () 'gerbil-gambit)) (define gerbil-home (lambda () - (let ((_$e65013_ (getenv '"GERBIL_HOME" '#f))) - (if _$e65013_ _$e65013_ (path-expand '"~~"))))) + (let ((_$e60876_ (getenv '"GERBIL_HOME" '#f))) + (if _$e60876_ _$e60876_ (path-expand '"~~"))))) (define gerbil-path (lambda () - (let ((_$e65009_ (getenv '"GERBIL_PATH" '#f))) - (if _$e65009_ _$e65009_ (path-expand '"~/.gerbil"))))) + (let ((_$e60872_ (getenv '"GERBIL_PATH" '#f))) + (if _$e60872_ _$e60872_ (path-expand '"~/.gerbil"))))) (define gerbil-runtime-smp? (lambda () (member '"--enable-smp" - (let ((__tmp69671 (configure-command-string))) + (let ((__tmp60966 (configure-command-string))) (declare (not safe)) - (string-split __tmp69671 '#\'))))))) + (string-split __tmp60966 '#\'))))))) diff --git a/src/bootstrap/gerbil/runtime/system__1.scm b/src/bootstrap/gerbil/runtime/system__1.scm deleted file mode 100644 index 656f972ce..000000000 --- a/src/bootstrap/gerbil/runtime/system__1.scm +++ /dev/null @@ -1,94 +0,0 @@ -(declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) -(define |[:0:]#defmutable| - (lambda (_$stx64925_) - (let* ((_g6492964947_ - (lambda (_g6493064943_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g6493064943_))) - (_g6492865003_ - (lambda (_g6493064951_) - (if (gx#stx-pair? _g6493064951_) - (let ((_e6493564954_ (gx#syntax-e _g6493064951_))) - (let ((_hd6493464958_ - (let () (declare (not safe)) (##car _e6493564954_))) - (_tl6493364961_ - (let () - (declare (not safe)) - (##cdr _e6493564954_)))) - (if (gx#stx-pair? _tl6493364961_) - (let ((_e6493864964_ (gx#syntax-e _tl6493364961_))) - (let ((_hd6493764968_ - (let () - (declare (not safe)) - (##car _e6493864964_))) - (_tl6493664971_ - (let () - (declare (not safe)) - (##cdr _e6493864964_)))) - (if (gx#stx-pair? _tl6493664971_) - (let ((_e6494164974_ - (gx#syntax-e _tl6493664971_))) - (let ((_hd6494064978_ - (let () - (declare (not safe)) - (##car _e6494164974_))) - (_tl6493964981_ - (let () - (declare (not safe)) - (##cdr _e6494164974_)))) - (if (gx#stx-null? _tl6493964981_) - ((lambda (_L64984_ _L64986_) - (let ((__tmp69685 - (gx#datum->syntax - '#f - 'begin)) - (__tmp69672 - (let ((__tmp69681 - (let ((__tmp69684 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'def)) - (__tmp69682 - (let ((__tmp69683 - (let () - (declare (not safe)) - (cons _L64984_ '())))) - (declare (not safe)) - (cons _L64986_ __tmp69683)))) - (declare (not safe)) - (cons __tmp69684 __tmp69682))) - (__tmp69673 - (let ((__tmp69677 - (let ((__tmp69680 (gx#datum->syntax '#f 'set!)) - (__tmp69678 - (let ((__tmp69679 - (let () - (declare (not safe)) - (cons _L64986_ '())))) - (declare (not safe)) - (cons _L64986_ __tmp69679)))) - (declare (not safe)) - (cons __tmp69680 __tmp69678))) - (__tmp69674 - (let ((__tmp69675 - (let ((__tmp69676 - (gx#datum->syntax '#f 'void))) - (declare (not safe)) - (cons __tmp69676 '())))) - (declare (not safe)) - (cons __tmp69675 '())))) - (declare (not safe)) - (cons __tmp69677 __tmp69674)))) - (declare (not safe)) - (cons __tmp69681 __tmp69673)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp69685 __tmp69672))) - _hd6494064978_ - _hd6493764968_) - (_g6492964947_ _g6493064951_)))) - (_g6492964947_ _g6493064951_)))) - (_g6492964947_ _g6493064951_)))) - (_g6492964947_ _g6493064951_))))) - (_g6492865003_ _$stx64925_)))) diff --git a/src/bootstrap/gerbil/runtime/table.ssi b/src/bootstrap/gerbil/runtime/table.ssi new file mode 100644 index 000000000..3ed37ae09 --- /dev/null +++ b/src/bootstrap/gerbil/runtime/table.ssi @@ -0,0 +1,110 @@ +prelude: :gerbil/core +package: gerbil/runtime +namespace: #f + +(%#begin (%#import :gerbil/runtime/gambit) + (%#export #t) + (%#define-runtime __table::t.id __table::t.id) + (%#define-runtime __table::t __table::t) + (%#define-runtime &raw-table-table &raw-table-table) + (%#define-runtime &raw-table-count &raw-table-count) + (%#define-runtime &raw-table-free &raw-table-free) + (%#define-runtime &raw-table-hash &raw-table-hash) + (%#define-runtime &raw-table-test &raw-table-test) + (%#define-runtime &raw-table-seed &raw-table-seed) + (%#define-runtime &raw-table-table-set! &raw-table-table-set!) + (%#define-runtime &raw-table-count-set! &raw-table-count-set!) + (%#define-runtime &raw-table-free-set! &raw-table-free-set!) + (%#define-runtime &raw-table-hash-set! &raw-table-hash-set!) + (%#define-runtime &raw-table-test-set! &raw-table-test-set!) + (%#define-runtime &raw-table-seed-set! &raw-table-seed-set!) + (%#define-runtime raw-table-size-hint->size raw-table-size-hint->size) + (%#begin (%#define-runtime make-raw-table__% make-raw-table__%) + (%#begin (%#define-runtime + make-raw-table__0 + make-raw-table__0) + (%#define-runtime make-raw-table make-raw-table))) + (%#define-runtime raw-table-ref raw-table-ref) + (%#define-runtime raw-table-set! raw-table-set!) + (%#define-runtime raw-table-update! raw-table-update!) + (%#define-runtime raw-table-delete! raw-table-delete!) + (%#define-runtime raw-table-for-each raw-table-for-each) + (%#define-runtime raw-table-copy raw-table-copy) + (%#define-runtime raw-table-clear! raw-table-clear!) + (%#define-runtime __raw-table-set! __raw-table-set!) + (%#define-runtime __raw-table-update! __raw-table-update!) + (%#define-runtime __raw-table-rehash! __raw-table-rehash!) + (%#define-runtime eq-hash eq-hash) + (%#define-runtime eqv-hash eqv-hash) + (%#define-runtime symbolic? symbolic?) + (%#define-runtime symbolic-hash symbolic-hash) + (%#begin (%#begin-syntax + (%#call (%#ref load-module) + (%#quote "gerbil/runtime/table__1"))) + (%#define-syntax __symbolic-hash |[:0:]#__symbolic-hash|)) + (%#define-runtime string-hash string-hash) + (%#define-syntax defspecialized-table |[:0:]#defspecialized-table|) + (%#begin (%#define-runtime make-eq-table__% make-eq-table__%) + (%#begin (%#define-runtime make-eq-table__0 make-eq-table__0) + (%#define-runtime make-eq-table__1 make-eq-table__1) + (%#define-runtime make-eq-table make-eq-table))) + (%#define-runtime eq-table-ref eq-table-ref) + (%#define-runtime eq-table-set! eq-table-set!) + (%#define-runtime __eq-table-set! __eq-table-set!) + (%#define-runtime eq-table-update! eq-table-update!) + (%#define-runtime __eq-table-update! __eq-table-update!) + (%#define-runtime eq-table-delete! eq-table-delete!) + (%#begin (%#define-runtime make-eqv-table__% make-eqv-table__%) + (%#begin (%#define-runtime + make-eqv-table__0 + make-eqv-table__0) + (%#define-runtime + make-eqv-table__1 + make-eqv-table__1) + (%#define-runtime make-eqv-table make-eqv-table))) + (%#define-runtime eqv-table-ref eqv-table-ref) + (%#define-runtime eqv-table-set! eqv-table-set!) + (%#define-runtime __eqv-table-set! __eqv-table-set!) + (%#define-runtime eqv-table-update! eqv-table-update!) + (%#define-runtime __eqv-table-update! __eqv-table-update!) + (%#define-runtime eqv-table-delete! eqv-table-delete!) + (%#begin (%#define-runtime + make-symbolic-table__% + make-symbolic-table__%) + (%#begin (%#define-runtime + make-symbolic-table__0 + make-symbolic-table__0) + (%#define-runtime + make-symbolic-table__1 + make-symbolic-table__1) + (%#define-runtime + make-symbolic-table + make-symbolic-table))) + (%#define-runtime symbolic-table-ref symbolic-table-ref) + (%#define-runtime symbolic-table-set! symbolic-table-set!) + (%#define-runtime __symbolic-table-set! __symbolic-table-set!) + (%#define-runtime symbolic-table-update! symbolic-table-update!) + (%#define-runtime __symbolic-table-update! __symbolic-table-update!) + (%#define-runtime symbolic-table-delete! symbolic-table-delete!) + (%#begin (%#define-runtime make-string-table__% make-string-table__%) + (%#begin (%#define-runtime + make-string-table__0 + make-string-table__0) + (%#define-runtime + make-string-table__1 + make-string-table__1) + (%#define-runtime + make-string-table + make-string-table))) + (%#define-runtime string-table-ref string-table-ref) + (%#define-runtime string-table-set! string-table-set!) + (%#define-runtime __string-table-set! __string-table-set!) + (%#define-runtime string-table-update! string-table-update!) + (%#define-runtime __string-table-update! __string-table-update!) + (%#define-runtime string-table-delete! string-table-delete!) + (%#define-syntax probe-step |[:0:]#probe-step|) + (%#define-syntax __table-ref |[:0:]#__table-ref|) + (%#define-syntax __table-set! |[:0:]#__table-set!|) + (%#define-syntax __table-update! |[:0:]#__table-update!|) + (%#define-syntax __table-del! |[:0:]#__table-del!|)) +(%#call (%#ref load-module) (%#quote "gerbil/runtime/table__0")) diff --git a/src/bootstrap/gerbil/runtime/table.ssxi.ss b/src/bootstrap/gerbil/runtime/table.ssxi.ss new file mode 100644 index 000000000..cfd130576 --- /dev/null +++ b/src/bootstrap/gerbil/runtime/table.ssxi.ss @@ -0,0 +1,97 @@ +prelude: :gerbil/compiler/ssxi +package: gerbil/runtime + +(begin + (declare-type &raw-table-table (@lambda 1 #f)) + (declare-type &raw-table-count (@lambda 1 #f)) + (declare-type &raw-table-free (@lambda 1 #f)) + (declare-type &raw-table-hash (@lambda 1 #f)) + (declare-type &raw-table-test (@lambda 1 #f)) + (declare-type &raw-table-seed (@lambda 1 #f)) + (declare-type &raw-table-table-set! (@lambda 2 #f)) + (declare-type &raw-table-count-set! (@lambda 2 #f)) + (declare-type &raw-table-free-set! (@lambda 2 #f)) + (declare-type &raw-table-hash-set! (@lambda 2 #f)) + (declare-type &raw-table-test-set! (@lambda 2 #f)) + (declare-type &raw-table-seed-set! (@lambda 2 #f)) + (declare-type raw-table-size-hint->size (@lambda 1 #f)) + (declare-type make-raw-table__% (@lambda 4 #f)) + (declare-type make-raw-table__0 (@lambda 3 #f)) + (declare-type + make-raw-table + (@case-lambda (3 make-raw-table__0) (4 make-raw-table__%))) + (declare-type raw-table-ref (@lambda 3 #f)) + (declare-type raw-table-set! (@lambda 3 #f)) + (declare-type raw-table-update! (@lambda 4 #f)) + (declare-type raw-table-delete! (@lambda 2 #f)) + (declare-type raw-table-for-each (@lambda 2 #f)) + (declare-type raw-table-copy (@lambda 1 #f)) + (declare-type raw-table-clear! (@lambda 1 #f)) + (declare-type __raw-table-set! (@lambda 3 #f)) + (declare-type __raw-table-update! (@lambda 4 #f)) + (declare-type __raw-table-rehash! (@lambda 1 #f)) + (declare-type eq-hash (@lambda 1 #f)) + (declare-type eqv-hash (@lambda 1 #f)) + (declare-type symbolic? (@lambda 1 #f)) + (declare-type symbolic-hash (@lambda 1 #f)) + (declare-type string-hash (@lambda 1 ##string=?-hash)) + (declare-type make-eq-table__% (@lambda 2 #f)) + (declare-type make-eq-table__0 (@lambda 0 #f)) + (declare-type make-eq-table__1 (@lambda 1 #f)) + (declare-type + make-eq-table + (@case-lambda + (0 make-eq-table__0) + (1 make-eq-table__1) + (2 make-eq-table__%))) + (declare-type eq-table-ref (@lambda 3 #f)) + (declare-type eq-table-set! (@lambda 3 #f)) + (declare-type __eq-table-set! (@lambda 3 #f)) + (declare-type eq-table-update! (@lambda 4 #f)) + (declare-type __eq-table-update! (@lambda 4 #f)) + (declare-type eq-table-delete! (@lambda 2 #f)) + (declare-type make-eqv-table__% (@lambda 2 #f)) + (declare-type make-eqv-table__0 (@lambda 0 #f)) + (declare-type make-eqv-table__1 (@lambda 1 #f)) + (declare-type + make-eqv-table + (@case-lambda + (0 make-eqv-table__0) + (1 make-eqv-table__1) + (2 make-eqv-table__%))) + (declare-type eqv-table-ref (@lambda 3 #f)) + (declare-type eqv-table-set! (@lambda 3 #f)) + (declare-type __eqv-table-set! (@lambda 3 #f)) + (declare-type eqv-table-update! (@lambda 4 #f)) + (declare-type __eqv-table-update! (@lambda 4 #f)) + (declare-type eqv-table-delete! (@lambda 2 #f)) + (declare-type make-symbolic-table__% (@lambda 2 #f)) + (declare-type make-symbolic-table__0 (@lambda 0 #f)) + (declare-type make-symbolic-table__1 (@lambda 1 #f)) + (declare-type + make-symbolic-table + (@case-lambda + (0 make-symbolic-table__0) + (1 make-symbolic-table__1) + (2 make-symbolic-table__%))) + (declare-type symbolic-table-ref (@lambda 3 #f)) + (declare-type symbolic-table-set! (@lambda 3 #f)) + (declare-type __symbolic-table-set! (@lambda 3 #f)) + (declare-type symbolic-table-update! (@lambda 4 #f)) + (declare-type __symbolic-table-update! (@lambda 4 #f)) + (declare-type symbolic-table-delete! (@lambda 2 #f)) + (declare-type make-string-table__% (@lambda 2 #f)) + (declare-type make-string-table__0 (@lambda 0 #f)) + (declare-type make-string-table__1 (@lambda 1 #f)) + (declare-type + make-string-table + (@case-lambda + (0 make-string-table__0) + (1 make-string-table__1) + (2 make-string-table__%))) + (declare-type string-table-ref (@lambda 3 #f)) + (declare-type string-table-set! (@lambda 3 #f)) + (declare-type __string-table-set! (@lambda 3 #f)) + (declare-type string-table-update! (@lambda 4 #f)) + (declare-type __string-table-update! (@lambda 4 #f)) + (declare-type string-table-delete! (@lambda 2 #f))) diff --git a/src/bootstrap/gerbil/runtime/table__0.scm b/src/bootstrap/gerbil/runtime/table__0.scm new file mode 100644 index 000000000..dbf4e3960 --- /dev/null +++ b/src/bootstrap/gerbil/runtime/table__0.scm @@ -0,0 +1,1569 @@ +(declare (block) (standard-bindings) (extended-bindings)) +(begin + (define gerbil/runtime/table::timestamp 1708370113) + (begin + (declare (not safe)) + (define __table::t.id 'gerbil#__table::t) + (define __table::t + (##structure + ##type-type + __table::t.id + 'raw-table + '26 + '#f + '#(table 5 #f count 5 #f free 5 #f hash 5 #f test 5 #f seed 5 #f))) + (define &raw-table-table + (lambda (_tab59440_) + (##unchecked-structure-ref _tab59440_ '1 __table::t 'raw-table-table))) + (define &raw-table-count + (lambda (_tab59438_) + (##unchecked-structure-ref _tab59438_ '2 __table::t 'raw-table-count))) + (define &raw-table-free + (lambda (_tab59436_) + (##unchecked-structure-ref _tab59436_ '3 __table::t 'raw-table-free))) + (define &raw-table-hash + (lambda (_tab59434_) + (##unchecked-structure-ref _tab59434_ '4 __table::t 'raw-table-hash))) + (define &raw-table-test + (lambda (_tab59432_) + (##unchecked-structure-ref _tab59432_ '5 __table::t 'raw-table-test))) + (define &raw-table-seed + (lambda (_tab59430_) + (##unchecked-structure-ref _tab59430_ '6 __table::t 'raw-table-seed))) + (define &raw-table-table-set! + (lambda (_tab59427_ _val59428_) + (##unchecked-structure-set! + _tab59427_ + _val59428_ + '1 + __table::t + 'raw-table-table-set!))) + (define &raw-table-count-set! + (lambda (_tab59424_ _val59425_) + (##unchecked-structure-set! + _tab59424_ + _val59425_ + '2 + __table::t + 'raw-table-count-set!))) + (define &raw-table-free-set! + (lambda (_tab59421_ _val59422_) + (##unchecked-structure-set! + _tab59421_ + _val59422_ + '3 + __table::t + 'raw-table-free-set!))) + (define &raw-table-hash-set! + (lambda (_tab59418_ _val59419_) + (##unchecked-structure-set! + _tab59418_ + _val59419_ + '4 + __table::t + 'raw-table-hash-set!))) + (define &raw-table-test-set! + (lambda (_tab59415_ _val59416_) + (##unchecked-structure-set! + _tab59415_ + _val59416_ + '5 + __table::t + 'raw-table-test-set!))) + (define &raw-table-seed-set! + (lambda (_tab59412_ _val59413_) + (##unchecked-structure-set! + _tab59412_ + _val59413_ + '6 + __table::t + 'raw-table-seed-set!))) + (define raw-table-size-hint->size + (lambda (_size-hint59410_) + (if (and (fixnum? _size-hint59410_) (fx> _size-hint59410_ '0)) + (fx* (fxmax '2 (expt '2 (integer-length _size-hint59410_))) '4) + '16))) + (define make-raw-table__% + (lambda (_size-hint59386_ _hash59387_ _test59388_ _seed59389_) + (let* ((_size59391_ (raw-table-size-hint->size _size-hint59386_)) + (_table59393_ (make-vector _size59391_ (macro-unused-obj)))) + (##structure + __table::t + _table59393_ + '0 + (fxquotient _size59391_ '2) + _hash59387_ + _test59388_ + _seed59389_)))) + (define make-raw-table__0 + (lambda (_size-hint59399_ _hash59400_ _test59401_) + (let ((_seed59403_ '0)) + (make-raw-table__% + _size-hint59399_ + _hash59400_ + _test59401_ + _seed59403_)))) + (define make-raw-table + (lambda _g59442_ + (let ((_g59441_ (##length _g59442_))) + (cond ((##fx= _g59441_ 3) + (apply (lambda (_size-hint59399_ _hash59400_ _test59401_) + (make-raw-table__0 + _size-hint59399_ + _hash59400_ + _test59401_)) + _g59442_)) + ((##fx= _g59441_ 4) + (apply (lambda (_size-hint59405_ + _hash59406_ + _test59407_ + _seed59408_) + (make-raw-table__% + _size-hint59405_ + _hash59406_ + _test59407_ + _seed59408_)) + _g59442_)) + (else + (##raise-wrong-number-of-arguments-exception + make-raw-table + _g59442_)))))) + (define raw-table-ref + (lambda (_tab59341_ _key59342_ _default59343_) + (let ((_table59345_ (&raw-table-table _tab59341_)) + (_seed59346_ (&raw-table-seed _tab59341_)) + (_hash59347_ (&raw-table-hash _tab59341_)) + (_test59348_ (&raw-table-test _tab59341_))) + (let* ((_h59350_ (fxxor (_hash59347_ _key59342_) _seed59346_)) + (_size59353_ (vector-length _table59345_)) + (_entries59356_ (fxquotient _size59353_ '2)) + (_start59359_ + (fxarithmetic-shift-left + (fxmodulo _h59350_ _entries59356_) + '1))) + (let _loop59363_ ((_probe59366_ _start59359_) + (_i59368_ '1) + (_deleted59370_ '#f)) + (let ((_k59373_ (vector-ref _table59345_ _probe59366_))) + (if (eq? _k59373_ (macro-unused-obj)) + _default59343_ + (if (eq? _k59373_ (macro-deleted-obj)) + (_loop59363_ + (let ((_next-probe59376_ + (fx+ _start59359_ + _i59368_ + (fx* _i59368_ _i59368_)))) + (fxmodulo _next-probe59376_ _size59353_)) + (fx+ _i59368_ '1) + (let ((_$e59379_ _deleted59370_)) + (if _$e59379_ _$e59379_ _probe59366_))) + (if (_test59348_ _key59342_ _k59373_) + (vector-ref _table59345_ (fx+ _probe59366_ '1)) + (_loop59363_ + (let ((_next-probe59382_ + (fx+ _start59359_ + _i59368_ + (fx* _i59368_ _i59368_)))) + (fxmodulo _next-probe59382_ _size59353_)) + (fx+ _i59368_ '1) + _deleted59370_)))))))))) + (define raw-table-set! + (lambda (_tab59337_ _key59338_ _value59339_) + (if (fx< (&raw-table-free _tab59337_) + (fxquotient (vector-length (&raw-table-table _tab59337_)) '4)) + (__raw-table-rehash! _tab59337_) + '#!void) + (__raw-table-set! _tab59337_ _key59338_ _value59339_))) + (define raw-table-update! + (lambda (_tab59332_ _key59333_ _update59334_ _default59335_) + (if (fx< (&raw-table-free _tab59332_) + (fxquotient (vector-length (&raw-table-table _tab59332_)) '4)) + (__raw-table-rehash! _tab59332_) + '#!void) + (__raw-table-update! + _tab59332_ + _key59333_ + _update59334_ + _default59335_))) + (define raw-table-delete! + (lambda (_tab59293_ _key59294_) + (let ((_table59296_ (&raw-table-table _tab59293_)) + (_seed59297_ (&raw-table-seed _tab59293_)) + (_hash59298_ (&raw-table-hash _tab59293_)) + (_test59299_ (&raw-table-test _tab59293_))) + (let* ((_h59301_ (fxxor (_hash59298_ _key59294_) _seed59297_)) + (_size59304_ (vector-length _table59296_)) + (_entries59307_ (fxquotient _size59304_ '2)) + (_start59310_ + (fxarithmetic-shift-left + (fxmodulo _h59301_ _entries59307_) + '1))) + (let _loop59314_ ((_probe59317_ _start59310_) (_i59319_ '1)) + (let ((_k59322_ (vector-ref _table59296_ _probe59317_))) + (if (eq? _k59322_ (macro-unused-obj)) + '#!void + (if (eq? _k59322_ (macro-deleted-obj)) + (_loop59314_ + (let ((_next-probe59325_ + (fx+ _start59310_ + _i59319_ + (fx* _i59319_ _i59319_)))) + (fxmodulo _next-probe59325_ _size59304_)) + (fx+ _i59319_ '1)) + (if (_test59299_ _key59294_ _k59322_) + (begin + (vector-set! + _table59296_ + _probe59317_ + (macro-deleted-obj)) + (vector-set! + _table59296_ + (fx+ _probe59317_ '1) + (macro-absent-obj)) + ((lambda () + (&raw-table-count-set! + _tab59293_ + (fx- (&raw-table-count _tab59293_) '1))))) + (_loop59314_ + (let ((_next-probe59329_ + (fx+ _start59310_ + _i59319_ + (fx* _i59319_ _i59319_)))) + (fxmodulo _next-probe59329_ _size59304_)) + (fx+ _i59319_ '1))))))))))) + (define raw-table-for-each + (lambda (_tab59277_ _proc59278_) + (let* ((_table59280_ (&raw-table-table _tab59277_)) + (_size59282_ (vector-length _table59280_))) + (let _loop59285_ ((_i59287_ '0)) + (if (fx< _i59287_ _size59282_) + (begin + (let ((_key59289_ (vector-ref _table59280_ _i59287_))) + (if (and (not (eq? _key59289_ (macro-unused-obj))) + (not (eq? _key59289_ (macro-deleted-obj)))) + (let ((_value59291_ + (vector-ref _table59280_ (fx+ _i59287_ '1)))) + (_proc59278_ _key59289_ _value59291_)) + '#!void)) + (_loop59285_ (fx+ _i59287_ '2))) + '#!void))))) + (define raw-table-copy + (lambda (_tab59273_) + (let ((_new-tab59275_ (##structure-copy _tab59273_))) + (&raw-table-table-set! + _new-tab59275_ + (vector-copy (&raw-table-table _tab59273_))) + _new-tab59275_))) + (define raw-table-clear! + (lambda (_tab59271_) + (vector-fill! (&raw-table-table _tab59271_) (macro-unused-obj)) + (&raw-table-count-set! _tab59271_ '0) + (&raw-table-free-set! + _tab59271_ + (fxquotient (vector-length (&raw-table-table _tab59271_)) '2)))) + (define __raw-table-set! + (lambda (_tab59225_ _key59226_ _value59227_) + (let ((_table59229_ (&raw-table-table _tab59225_)) + (_seed59230_ (&raw-table-seed _tab59225_)) + (_hash59231_ (&raw-table-hash _tab59225_)) + (_test59232_ (&raw-table-test _tab59225_))) + (let* ((_h59234_ (fxxor (_hash59231_ _key59226_) _seed59230_)) + (_size59237_ (vector-length _table59229_)) + (_entries59240_ (fxquotient _size59237_ '2)) + (_start59243_ + (fxarithmetic-shift-left + (fxmodulo _h59234_ _entries59240_) + '1))) + (let _loop59247_ ((_probe59250_ _start59243_) + (_i59252_ '1) + (_deleted59254_ '#f)) + (let ((_k59257_ (vector-ref _table59229_ _probe59250_))) + (if (eq? _k59257_ (macro-unused-obj)) + (if _deleted59254_ + (begin + (vector-set! _table59229_ _deleted59254_ _key59226_) + (vector-set! + _table59229_ + (fx+ _deleted59254_ '1) + _value59227_) + ((lambda () + (&raw-table-count-set! + _tab59225_ + (fx+ (&raw-table-count _tab59225_) '1))))) + (begin + (vector-set! _table59229_ _probe59250_ _key59226_) + (vector-set! + _table59229_ + (fx+ _probe59250_ '1) + _value59227_) + ((lambda () + (&raw-table-free-set! + _tab59225_ + (fx- (&raw-table-free _tab59225_) '1)) + (&raw-table-count-set! + _tab59225_ + (fx+ (&raw-table-count _tab59225_) '1)))))) + (if (eq? _k59257_ (macro-deleted-obj)) + (_loop59247_ + (let ((_next-probe59262_ + (fx+ _start59243_ + _i59252_ + (fx* _i59252_ _i59252_)))) + (fxmodulo _next-probe59262_ _size59237_)) + (fx+ _i59252_ '1) + (let ((_$e59265_ _deleted59254_)) + (if _$e59265_ _$e59265_ _probe59250_))) + (if (_test59232_ _key59226_ _k59257_) + (begin + (vector-set! + _table59229_ + _probe59250_ + _key59226_) + (vector-set! + _table59229_ + (fx+ _probe59250_ '1) + _value59227_)) + (_loop59247_ + (let ((_next-probe59268_ + (fx+ _start59243_ + _i59252_ + (fx* _i59252_ _i59252_)))) + (fxmodulo _next-probe59268_ _size59237_)) + (fx+ _i59252_ '1) + _deleted59254_)))))))))) + (define __raw-table-update! + (lambda (_tab59178_ _key59179_ _update59180_ _default59181_) + (let ((_table59183_ (&raw-table-table _tab59178_)) + (_seed59184_ (&raw-table-seed _tab59178_)) + (_hash59185_ (&raw-table-hash _tab59178_)) + (_test59186_ (&raw-table-test _tab59178_))) + (let* ((_h59188_ (fxxor (_hash59185_ _key59179_) _seed59184_)) + (_size59191_ (vector-length _table59183_)) + (_entries59194_ (fxquotient _size59191_ '2)) + (_start59197_ + (fxarithmetic-shift-left + (fxmodulo _h59188_ _entries59194_) + '1))) + (let _loop59201_ ((_probe59204_ _start59197_) + (_i59206_ '1) + (_deleted59208_ '#f)) + (let ((_k59211_ (vector-ref _table59183_ _probe59204_))) + (if (eq? _k59211_ (macro-unused-obj)) + (if _deleted59208_ + (begin + (vector-set! _table59183_ _deleted59208_ _key59179_) + (vector-set! + _table59183_ + (fx+ _deleted59208_ '1) + (_update59180_ _default59181_)) + ((lambda () + (&raw-table-count-set! + _tab59178_ + (fx+ (&raw-table-count _tab59178_) '1))))) + (begin + (vector-set! _table59183_ _probe59204_ _key59179_) + (vector-set! + _table59183_ + (fx+ _probe59204_ '1) + (_update59180_ _default59181_)) + ((lambda () + (&raw-table-free-set! + _tab59178_ + (fx- (&raw-table-free _tab59178_) '1)) + (&raw-table-count-set! + _tab59178_ + (fx+ (&raw-table-count _tab59178_) '1)))))) + (if (eq? _k59211_ (macro-deleted-obj)) + (_loop59201_ + (let ((_next-probe59216_ + (fx+ _start59197_ + _i59206_ + (fx* _i59206_ _i59206_)))) + (fxmodulo _next-probe59216_ _size59191_)) + (fx+ _i59206_ '1) + (let ((_$e59219_ _deleted59208_)) + (if _$e59219_ _$e59219_ _probe59204_))) + (if (_test59186_ _key59179_ _k59211_) + (begin + (vector-set! + _table59183_ + _probe59204_ + _key59179_) + (vector-set! + _table59183_ + (fx+ _probe59204_ '1) + (_update59180_ + (vector-ref + _table59183_ + (fx+ _probe59204_ '1))))) + (_loop59201_ + (let ((_next-probe59222_ + (fx+ _start59197_ + _i59206_ + (fx* _i59206_ _i59206_)))) + (fxmodulo _next-probe59222_ _size59191_)) + (fx+ _i59206_ '1) + _deleted59208_)))))))))) + (define __raw-table-rehash! + (lambda (_tab59159_) + (let* ((_old-table59161_ (&raw-table-table _tab59159_)) + (_old-size59163_ (vector-length _old-table59161_)) + (_new-size59165_ + (if (fx< (&raw-table-count _tab59159_) + (fxquotient _old-size59163_ '4)) + (vector-length _old-table59161_) + (fx* '2 (vector-length _old-table59161_)))) + (_new-table59167_ + (make-vector _new-size59165_ (macro-unused-obj)))) + (&raw-table-table-set! _tab59159_ _new-table59167_) + (&raw-table-count-set! _tab59159_ '0) + (&raw-table-free-set! _tab59159_ (fxquotient _new-size59165_ '2)) + (let _lp59170_ ((_i59172_ '0)) + (if (fx< _i59172_ _old-size59163_) + (begin + (let ((_key59174_ (vector-ref _old-table59161_ _i59172_))) + (if (and (not (eq? _key59174_ (macro-unused-obj))) + (not (eq? _key59174_ (macro-deleted-obj)))) + (let ((_value59176_ + (vector-ref + _old-table59161_ + (fx+ _i59172_ '1)))) + (__raw-table-set! + _tab59159_ + _key59174_ + _value59176_)) + '#!void)) + (_lp59170_ (fx+ _i59172_ '2))) + '#!void))))) + (define eq-hash + (lambda (_obj59153_) + (let ((_t59155_ (##type _obj59153_))) + (if (fx= (fxand _t59155_ '1) '0) + (fxand (##type-cast _obj59153_ (macro-type-fixnum)) + (macro-max-fixnum32)) + (if (symbolic? _obj59153_) + (symbolic-hash _obj59153_) + (fxand (let ((_sn59157_ (object->serial-number _obj59153_))) + (if (fixnum? _sn59157_) + _sn59157_ + (fxarithmetic-shift-left + (##bignum.mdigit-ref _sn59157_ '0) + '10))) + (macro-max-fixnum32))))))) + (define eqv-hash + (lambda (_obj59143_) + (letrec ((_combine59145_ + (lambda (_a59150_ _b59151_) + (fxand (fx* (fx+ _a59150_ + (fxarithmetic-shift-left _b59151_ '1)) + '331804471) + (macro-max-fixnum32)))) + (_hash59146_ + (lambda (_obj59148_) + (macro-number-dispatch + _obj59148_ + (eq-hash _obj59148_) + (fxand _obj59148_ (macro-max-fixnum32)) + (modulo _obj59148_ '331804481) + (_combine59145_ + (_hash59146_ (macro-ratnum-numerator _obj59148_)) + (_hash59146_ (macro-ratnum-denominator _obj59148_))) + (_combine59145_ + (##u16vector-ref _obj59148_ '0) + (_combine59145_ + (##u16vector-ref _obj59148_ '1) + (_combine59145_ + (##u16vector-ref _obj59148_ '2) + (##u16vector-ref _obj59148_ '3)))) + (_combine59145_ + (_hash59146_ (macro-cpxnum-real _obj59148_)) + (_hash59146_ (macro-cpxnum-imag _obj59148_))))))) + (_hash59146_ _obj59143_)))) + (define symbolic? + (lambda (_obj59138_) + (let ((_$e59140_ (symbol? _obj59138_))) + (if _$e59140_ _$e59140_ (keyword? _obj59138_))))) + (define symbolic-hash (lambda (_obj59136_) (macro-slot '1 _obj59136_))) + (define string-hash (lambda (_obj59134_) (##string=?-hash _obj59134_))) + (define make-eq-table__% + (lambda (_size-hint59115_ _seed59117_) + (make-raw-table__% _size-hint59115_ eq-hash eq? _seed59117_))) + (define make-eq-table__0 + (lambda () + (let* ((_size-hint59123_ '#f) (_seed59125_ '0)) + (make-eq-table__% _size-hint59123_ _seed59125_)))) + (define make-eq-table__1 + (lambda (_size-hint59127_) + (let ((_seed59129_ '0)) + (make-eq-table__% _size-hint59127_ _seed59129_)))) + (define make-eq-table + (lambda _g59444_ + (let ((_g59443_ (##length _g59444_))) + (cond ((##fx= _g59443_ 0) + (apply (lambda () (make-eq-table__0)) _g59444_)) + ((##fx= _g59443_ 1) + (apply (lambda (_size-hint59127_) + (make-eq-table__1 _size-hint59127_)) + _g59444_)) + ((##fx= _g59443_ 2) + (apply (lambda (_size-hint59131_ _seed59132_) + (make-eq-table__% _size-hint59131_ _seed59132_)) + _g59444_)) + (else + (##raise-wrong-number-of-arguments-exception + make-eq-table + _g59444_)))))) + (define eq-table-ref + (lambda (_tab59072_ _key59073_ _default59074_) + (let ((_table59076_ (&raw-table-table _tab59072_)) + (_seed59077_ (&raw-table-seed _tab59072_))) + (let* ((_h59079_ (fxxor (eq-hash _key59073_) _seed59077_)) + (_size59082_ (vector-length _table59076_)) + (_entries59085_ (fxquotient _size59082_ '2)) + (_start59088_ + (fxarithmetic-shift-left + (fxmodulo _h59079_ _entries59085_) + '1))) + (let _loop59092_ ((_probe59095_ _start59088_) + (_i59097_ '1) + (_deleted59099_ '#f)) + (let ((_k59102_ (vector-ref _table59076_ _probe59095_))) + (if (eq? _k59102_ (macro-unused-obj)) + _default59074_ + (if (eq? _k59102_ (macro-deleted-obj)) + (_loop59092_ + (let ((_next-probe59105_ + (fx+ _start59088_ + _i59097_ + (fx* _i59097_ _i59097_)))) + (fxmodulo _next-probe59105_ _size59082_)) + (fx+ _i59097_ '1) + (let ((_$e59108_ _deleted59099_)) + (if _$e59108_ _$e59108_ _probe59095_))) + (if (eq? _key59073_ _k59102_) + (vector-ref _table59076_ (fx+ _probe59095_ '1)) + (_loop59092_ + (let ((_next-probe59111_ + (fx+ _start59088_ + _i59097_ + (fx* _i59097_ _i59097_)))) + (fxmodulo _next-probe59111_ _size59082_)) + (fx+ _i59097_ '1) + _deleted59099_)))))))))) + (define eq-table-set! + (lambda (_tab59068_ _key59069_ _value59070_) + (if (fx< (&raw-table-free _tab59068_) + (fxquotient (vector-length (&raw-table-table _tab59068_)) '4)) + (__raw-table-rehash! _tab59068_) + '#!void) + (__eq-table-set! _tab59068_ _key59069_ _value59070_))) + (define __eq-table-set! + (lambda (_tab59023_ _key59024_ _value59025_) + (let ((_table59028_ (&raw-table-table _tab59023_)) + (_seed59029_ (&raw-table-seed _tab59023_))) + (let* ((_h59031_ (fxxor (eq-hash _key59024_) _seed59029_)) + (_size59034_ (vector-length _table59028_)) + (_entries59037_ (fxquotient _size59034_ '2)) + (_start59040_ + (fxarithmetic-shift-left + (fxmodulo _h59031_ _entries59037_) + '1))) + (let _loop59044_ ((_probe59047_ _start59040_) + (_i59049_ '1) + (_deleted59051_ '#f)) + (let ((_k59054_ (vector-ref _table59028_ _probe59047_))) + (if (eq? _k59054_ (macro-unused-obj)) + (if _deleted59051_ + (begin + (vector-set! _table59028_ _deleted59051_ _key59024_) + (vector-set! + _table59028_ + (fx+ _deleted59051_ '1) + _value59025_) + ((lambda () + (&raw-table-count-set! + _tab59023_ + (fx+ (&raw-table-count _tab59023_) '1))))) + (begin + (vector-set! _table59028_ _probe59047_ _key59024_) + (vector-set! + _table59028_ + (fx+ _probe59047_ '1) + _value59025_) + ((lambda () + (&raw-table-free-set! + _tab59023_ + (fx- (&raw-table-free _tab59023_) '1)) + (&raw-table-count-set! + _tab59023_ + (fx+ (&raw-table-count _tab59023_) '1)))))) + (if (eq? _k59054_ (macro-deleted-obj)) + (_loop59044_ + (let ((_next-probe59059_ + (fx+ _start59040_ + _i59049_ + (fx* _i59049_ _i59049_)))) + (fxmodulo _next-probe59059_ _size59034_)) + (fx+ _i59049_ '1) + (let ((_$e59062_ _deleted59051_)) + (if _$e59062_ _$e59062_ _probe59047_))) + (if (eq? _key59024_ _k59054_) + (begin + (vector-set! + _table59028_ + _probe59047_ + _key59024_) + (vector-set! + _table59028_ + (fx+ _probe59047_ '1) + _value59025_)) + (_loop59044_ + (let ((_next-probe59065_ + (fx+ _start59040_ + _i59049_ + (fx* _i59049_ _i59049_)))) + (fxmodulo _next-probe59065_ _size59034_)) + (fx+ _i59049_ '1) + _deleted59051_)))))))))) + (define eq-table-update! + (lambda (_tab59018_ _key59019_ _eq-table-update!59020_ _default59021_) + (if (fx< (&raw-table-free _tab59018_) + (fxquotient (vector-length (&raw-table-table _tab59018_)) '4)) + (__raw-table-rehash! _tab59018_) + '#!void) + (__eq-table-update! + _tab59018_ + _key59019_ + _eq-table-update!59020_ + _default59021_))) + (define __eq-table-update! + (lambda (_tab58972_ _key58973_ _eq-table-update!58974_ _default58975_) + (let ((_table58978_ (&raw-table-table _tab58972_)) + (_seed58979_ (&raw-table-seed _tab58972_))) + (let* ((_h58981_ (fxxor (eq-hash _key58973_) _seed58979_)) + (_size58984_ (vector-length _table58978_)) + (_entries58987_ (fxquotient _size58984_ '2)) + (_start58990_ + (fxarithmetic-shift-left + (fxmodulo _h58981_ _entries58987_) + '1))) + (let _loop58994_ ((_probe58997_ _start58990_) + (_i58999_ '1) + (_deleted59001_ '#f)) + (let ((_k59004_ (vector-ref _table58978_ _probe58997_))) + (if (eq? _k59004_ (macro-unused-obj)) + (if _deleted59001_ + (begin + (vector-set! _table58978_ _deleted59001_ _key58973_) + (vector-set! + _table58978_ + (fx+ _deleted59001_ '1) + (_eq-table-update!58974_ _default58975_)) + ((lambda () + (&raw-table-count-set! + _tab58972_ + (fx+ (&raw-table-count _tab58972_) '1))))) + (begin + (vector-set! _table58978_ _probe58997_ _key58973_) + (vector-set! + _table58978_ + (fx+ _probe58997_ '1) + (_eq-table-update!58974_ _default58975_)) + ((lambda () + (&raw-table-free-set! + _tab58972_ + (fx- (&raw-table-free _tab58972_) '1)) + (&raw-table-count-set! + _tab58972_ + (fx+ (&raw-table-count _tab58972_) '1)))))) + (if (eq? _k59004_ (macro-deleted-obj)) + (_loop58994_ + (let ((_next-probe59009_ + (fx+ _start58990_ + _i58999_ + (fx* _i58999_ _i58999_)))) + (fxmodulo _next-probe59009_ _size58984_)) + (fx+ _i58999_ '1) + (let ((_$e59012_ _deleted59001_)) + (if _$e59012_ _$e59012_ _probe58997_))) + (if (eq? _key58973_ _k59004_) + (begin + (vector-set! + _table58978_ + _probe58997_ + _key58973_) + (vector-set! + _table58978_ + (fx+ _probe58997_ '1) + (_eq-table-update!58974_ + (vector-ref + _table58978_ + (fx+ _probe58997_ '1))))) + (_loop58994_ + (let ((_next-probe59015_ + (fx+ _start58990_ + _i58999_ + (fx* _i58999_ _i58999_)))) + (fxmodulo _next-probe59015_ _size58984_)) + (fx+ _i58999_ '1) + _deleted59001_)))))))))) + (define eq-table-delete! + (lambda (_tab58931_ _key58933_) + (let ((_table58936_ (&raw-table-table _tab58931_)) + (_seed58938_ (&raw-table-seed _tab58931_))) + (let* ((_h58941_ (fxxor (eq-hash _key58933_) _seed58938_)) + (_size58944_ (vector-length _table58936_)) + (_entries58947_ (fxquotient _size58944_ '2)) + (_start58950_ + (fxarithmetic-shift-left + (fxmodulo _h58941_ _entries58947_) + '1))) + (let _loop58954_ ((_probe58957_ _start58950_) (_i58959_ '1)) + (let ((_k58962_ (vector-ref _table58936_ _probe58957_))) + (if (eq? _k58962_ (macro-unused-obj)) + '#!void + (if (eq? _k58962_ (macro-deleted-obj)) + (_loop58954_ + (let ((_next-probe58965_ + (fx+ _start58950_ + _i58959_ + (fx* _i58959_ _i58959_)))) + (fxmodulo _next-probe58965_ _size58944_)) + (fx+ _i58959_ '1)) + (if (eq? _key58933_ _k58962_) + (begin + (vector-set! + _table58936_ + _probe58957_ + (macro-deleted-obj)) + (vector-set! + _table58936_ + (fx+ _probe58957_ '1) + (macro-absent-obj)) + ((lambda () + (&raw-table-count-set! + _tab58931_ + (fx- (&raw-table-count _tab58931_) '1))))) + (_loop58954_ + (let ((_next-probe58969_ + (fx+ _start58950_ + _i58959_ + (fx* _i58959_ _i58959_)))) + (fxmodulo _next-probe58969_ _size58944_)) + (fx+ _i58959_ '1))))))))))) + (define make-eqv-table__% + (lambda (_size-hint58912_ _seed58914_) + (make-raw-table__% _size-hint58912_ eqv-hash eqv? _seed58914_))) + (define make-eqv-table__0 + (lambda () + (let* ((_size-hint58920_ '#f) (_seed58922_ '0)) + (make-eqv-table__% _size-hint58920_ _seed58922_)))) + (define make-eqv-table__1 + (lambda (_size-hint58924_) + (let ((_seed58926_ '0)) + (make-eqv-table__% _size-hint58924_ _seed58926_)))) + (define make-eqv-table + (lambda _g59446_ + (let ((_g59445_ (##length _g59446_))) + (cond ((##fx= _g59445_ 0) + (apply (lambda () (make-eqv-table__0)) _g59446_)) + ((##fx= _g59445_ 1) + (apply (lambda (_size-hint58924_) + (make-eqv-table__1 _size-hint58924_)) + _g59446_)) + ((##fx= _g59445_ 2) + (apply (lambda (_size-hint58928_ _seed58929_) + (make-eqv-table__% _size-hint58928_ _seed58929_)) + _g59446_)) + (else + (##raise-wrong-number-of-arguments-exception + make-eqv-table + _g59446_)))))) + (define eqv-table-ref + (lambda (_tab58869_ _key58870_ _default58871_) + (let ((_table58873_ (&raw-table-table _tab58869_)) + (_seed58874_ (&raw-table-seed _tab58869_))) + (let* ((_h58876_ (fxxor (eqv-hash _key58870_) _seed58874_)) + (_size58879_ (vector-length _table58873_)) + (_entries58882_ (fxquotient _size58879_ '2)) + (_start58885_ + (fxarithmetic-shift-left + (fxmodulo _h58876_ _entries58882_) + '1))) + (let _loop58889_ ((_probe58892_ _start58885_) + (_i58894_ '1) + (_deleted58896_ '#f)) + (let ((_k58899_ (vector-ref _table58873_ _probe58892_))) + (if (eq? _k58899_ (macro-unused-obj)) + _default58871_ + (if (eq? _k58899_ (macro-deleted-obj)) + (_loop58889_ + (let ((_next-probe58902_ + (fx+ _start58885_ + _i58894_ + (fx* _i58894_ _i58894_)))) + (fxmodulo _next-probe58902_ _size58879_)) + (fx+ _i58894_ '1) + (let ((_$e58905_ _deleted58896_)) + (if _$e58905_ _$e58905_ _probe58892_))) + (if (eqv? _key58870_ _k58899_) + (vector-ref _table58873_ (fx+ _probe58892_ '1)) + (_loop58889_ + (let ((_next-probe58908_ + (fx+ _start58885_ + _i58894_ + (fx* _i58894_ _i58894_)))) + (fxmodulo _next-probe58908_ _size58879_)) + (fx+ _i58894_ '1) + _deleted58896_)))))))))) + (define eqv-table-set! + (lambda (_tab58865_ _key58866_ _value58867_) + (if (fx< (&raw-table-free _tab58865_) + (fxquotient (vector-length (&raw-table-table _tab58865_)) '4)) + (__raw-table-rehash! _tab58865_) + '#!void) + (__eqv-table-set! _tab58865_ _key58866_ _value58867_))) + (define __eqv-table-set! + (lambda (_tab58820_ _key58821_ _value58822_) + (let ((_table58825_ (&raw-table-table _tab58820_)) + (_seed58826_ (&raw-table-seed _tab58820_))) + (let* ((_h58828_ (fxxor (eqv-hash _key58821_) _seed58826_)) + (_size58831_ (vector-length _table58825_)) + (_entries58834_ (fxquotient _size58831_ '2)) + (_start58837_ + (fxarithmetic-shift-left + (fxmodulo _h58828_ _entries58834_) + '1))) + (let _loop58841_ ((_probe58844_ _start58837_) + (_i58846_ '1) + (_deleted58848_ '#f)) + (let ((_k58851_ (vector-ref _table58825_ _probe58844_))) + (if (eq? _k58851_ (macro-unused-obj)) + (if _deleted58848_ + (begin + (vector-set! _table58825_ _deleted58848_ _key58821_) + (vector-set! + _table58825_ + (fx+ _deleted58848_ '1) + _value58822_) + ((lambda () + (&raw-table-count-set! + _tab58820_ + (fx+ (&raw-table-count _tab58820_) '1))))) + (begin + (vector-set! _table58825_ _probe58844_ _key58821_) + (vector-set! + _table58825_ + (fx+ _probe58844_ '1) + _value58822_) + ((lambda () + (&raw-table-free-set! + _tab58820_ + (fx- (&raw-table-free _tab58820_) '1)) + (&raw-table-count-set! + _tab58820_ + (fx+ (&raw-table-count _tab58820_) '1)))))) + (if (eq? _k58851_ (macro-deleted-obj)) + (_loop58841_ + (let ((_next-probe58856_ + (fx+ _start58837_ + _i58846_ + (fx* _i58846_ _i58846_)))) + (fxmodulo _next-probe58856_ _size58831_)) + (fx+ _i58846_ '1) + (let ((_$e58859_ _deleted58848_)) + (if _$e58859_ _$e58859_ _probe58844_))) + (if (eqv? _key58821_ _k58851_) + (begin + (vector-set! + _table58825_ + _probe58844_ + _key58821_) + (vector-set! + _table58825_ + (fx+ _probe58844_ '1) + _value58822_)) + (_loop58841_ + (let ((_next-probe58862_ + (fx+ _start58837_ + _i58846_ + (fx* _i58846_ _i58846_)))) + (fxmodulo _next-probe58862_ _size58831_)) + (fx+ _i58846_ '1) + _deleted58848_)))))))))) + (define eqv-table-update! + (lambda (_tab58815_ _key58816_ _eqv-table-update!58817_ _default58818_) + (if (fx< (&raw-table-free _tab58815_) + (fxquotient (vector-length (&raw-table-table _tab58815_)) '4)) + (__raw-table-rehash! _tab58815_) + '#!void) + (__eqv-table-update! + _tab58815_ + _key58816_ + _eqv-table-update!58817_ + _default58818_))) + (define __eqv-table-update! + (lambda (_tab58769_ _key58770_ _eqv-table-update!58771_ _default58772_) + (let ((_table58775_ (&raw-table-table _tab58769_)) + (_seed58776_ (&raw-table-seed _tab58769_))) + (let* ((_h58778_ (fxxor (eqv-hash _key58770_) _seed58776_)) + (_size58781_ (vector-length _table58775_)) + (_entries58784_ (fxquotient _size58781_ '2)) + (_start58787_ + (fxarithmetic-shift-left + (fxmodulo _h58778_ _entries58784_) + '1))) + (let _loop58791_ ((_probe58794_ _start58787_) + (_i58796_ '1) + (_deleted58798_ '#f)) + (let ((_k58801_ (vector-ref _table58775_ _probe58794_))) + (if (eq? _k58801_ (macro-unused-obj)) + (if _deleted58798_ + (begin + (vector-set! _table58775_ _deleted58798_ _key58770_) + (vector-set! + _table58775_ + (fx+ _deleted58798_ '1) + (_eqv-table-update!58771_ _default58772_)) + ((lambda () + (&raw-table-count-set! + _tab58769_ + (fx+ (&raw-table-count _tab58769_) '1))))) + (begin + (vector-set! _table58775_ _probe58794_ _key58770_) + (vector-set! + _table58775_ + (fx+ _probe58794_ '1) + (_eqv-table-update!58771_ _default58772_)) + ((lambda () + (&raw-table-free-set! + _tab58769_ + (fx- (&raw-table-free _tab58769_) '1)) + (&raw-table-count-set! + _tab58769_ + (fx+ (&raw-table-count _tab58769_) '1)))))) + (if (eq? _k58801_ (macro-deleted-obj)) + (_loop58791_ + (let ((_next-probe58806_ + (fx+ _start58787_ + _i58796_ + (fx* _i58796_ _i58796_)))) + (fxmodulo _next-probe58806_ _size58781_)) + (fx+ _i58796_ '1) + (let ((_$e58809_ _deleted58798_)) + (if _$e58809_ _$e58809_ _probe58794_))) + (if (eqv? _key58770_ _k58801_) + (begin + (vector-set! + _table58775_ + _probe58794_ + _key58770_) + (vector-set! + _table58775_ + (fx+ _probe58794_ '1) + (_eqv-table-update!58771_ + (vector-ref + _table58775_ + (fx+ _probe58794_ '1))))) + (_loop58791_ + (let ((_next-probe58812_ + (fx+ _start58787_ + _i58796_ + (fx* _i58796_ _i58796_)))) + (fxmodulo _next-probe58812_ _size58781_)) + (fx+ _i58796_ '1) + _deleted58798_)))))))))) + (define eqv-table-delete! + (lambda (_tab58728_ _key58730_) + (let ((_table58733_ (&raw-table-table _tab58728_)) + (_seed58735_ (&raw-table-seed _tab58728_))) + (let* ((_h58738_ (fxxor (eqv-hash _key58730_) _seed58735_)) + (_size58741_ (vector-length _table58733_)) + (_entries58744_ (fxquotient _size58741_ '2)) + (_start58747_ + (fxarithmetic-shift-left + (fxmodulo _h58738_ _entries58744_) + '1))) + (let _loop58751_ ((_probe58754_ _start58747_) (_i58756_ '1)) + (let ((_k58759_ (vector-ref _table58733_ _probe58754_))) + (if (eq? _k58759_ (macro-unused-obj)) + '#!void + (if (eq? _k58759_ (macro-deleted-obj)) + (_loop58751_ + (let ((_next-probe58762_ + (fx+ _start58747_ + _i58756_ + (fx* _i58756_ _i58756_)))) + (fxmodulo _next-probe58762_ _size58741_)) + (fx+ _i58756_ '1)) + (if (eqv? _key58730_ _k58759_) + (begin + (vector-set! + _table58733_ + _probe58754_ + (macro-deleted-obj)) + (vector-set! + _table58733_ + (fx+ _probe58754_ '1) + (macro-absent-obj)) + ((lambda () + (&raw-table-count-set! + _tab58728_ + (fx- (&raw-table-count _tab58728_) '1))))) + (_loop58751_ + (let ((_next-probe58766_ + (fx+ _start58747_ + _i58756_ + (fx* _i58756_ _i58756_)))) + (fxmodulo _next-probe58766_ _size58741_)) + (fx+ _i58756_ '1))))))))))) + (define make-symbolic-table__% + (lambda (_size-hint58709_ _seed58711_) + (make-raw-table__% _size-hint58709_ symbolic-hash eq? _seed58711_))) + (define make-symbolic-table__0 + (lambda () + (let* ((_size-hint58717_ '#f) (_seed58719_ '0)) + (make-symbolic-table__% _size-hint58717_ _seed58719_)))) + (define make-symbolic-table__1 + (lambda (_size-hint58721_) + (let ((_seed58723_ '0)) + (make-symbolic-table__% _size-hint58721_ _seed58723_)))) + (define make-symbolic-table + (lambda _g59448_ + (let ((_g59447_ (##length _g59448_))) + (cond ((##fx= _g59447_ 0) + (apply (lambda () (make-symbolic-table__0)) _g59448_)) + ((##fx= _g59447_ 1) + (apply (lambda (_size-hint58721_) + (make-symbolic-table__1 _size-hint58721_)) + _g59448_)) + ((##fx= _g59447_ 2) + (apply (lambda (_size-hint58725_ _seed58726_) + (make-symbolic-table__% + _size-hint58725_ + _seed58726_)) + _g59448_)) + (else + (##raise-wrong-number-of-arguments-exception + make-symbolic-table + _g59448_)))))) + (define symbolic-table-ref + (lambda (_tab58666_ _key58667_ _default58668_) + (let ((_table58670_ (&raw-table-table _tab58666_)) + (_seed58671_ (&raw-table-seed _tab58666_))) + (let* ((_h58673_ (fxxor (symbolic-hash _key58667_) _seed58671_)) + (_size58676_ (vector-length _table58670_)) + (_entries58679_ (fxquotient _size58676_ '2)) + (_start58682_ + (fxarithmetic-shift-left + (fxmodulo _h58673_ _entries58679_) + '1))) + (let _loop58686_ ((_probe58689_ _start58682_) + (_i58691_ '1) + (_deleted58693_ '#f)) + (let ((_k58696_ (vector-ref _table58670_ _probe58689_))) + (if (eq? _k58696_ (macro-unused-obj)) + _default58668_ + (if (eq? _k58696_ (macro-deleted-obj)) + (_loop58686_ + (let ((_next-probe58699_ + (fx+ _start58682_ + _i58691_ + (fx* _i58691_ _i58691_)))) + (fxmodulo _next-probe58699_ _size58676_)) + (fx+ _i58691_ '1) + (let ((_$e58702_ _deleted58693_)) + (if _$e58702_ _$e58702_ _probe58689_))) + (if (eq? _key58667_ _k58696_) + (vector-ref _table58670_ (fx+ _probe58689_ '1)) + (_loop58686_ + (let ((_next-probe58705_ + (fx+ _start58682_ + _i58691_ + (fx* _i58691_ _i58691_)))) + (fxmodulo _next-probe58705_ _size58676_)) + (fx+ _i58691_ '1) + _deleted58693_)))))))))) + (define symbolic-table-set! + (lambda (_tab58662_ _key58663_ _value58664_) + (if (fx< (&raw-table-free _tab58662_) + (fxquotient (vector-length (&raw-table-table _tab58662_)) '4)) + (__raw-table-rehash! _tab58662_) + '#!void) + (__symbolic-table-set! _tab58662_ _key58663_ _value58664_))) + (define __symbolic-table-set! + (lambda (_tab58617_ _key58618_ _value58619_) + (let ((_table58622_ (&raw-table-table _tab58617_)) + (_seed58623_ (&raw-table-seed _tab58617_))) + (let* ((_h58625_ (fxxor (symbolic-hash _key58618_) _seed58623_)) + (_size58628_ (vector-length _table58622_)) + (_entries58631_ (fxquotient _size58628_ '2)) + (_start58634_ + (fxarithmetic-shift-left + (fxmodulo _h58625_ _entries58631_) + '1))) + (let _loop58638_ ((_probe58641_ _start58634_) + (_i58643_ '1) + (_deleted58645_ '#f)) + (let ((_k58648_ (vector-ref _table58622_ _probe58641_))) + (if (eq? _k58648_ (macro-unused-obj)) + (if _deleted58645_ + (begin + (vector-set! _table58622_ _deleted58645_ _key58618_) + (vector-set! + _table58622_ + (fx+ _deleted58645_ '1) + _value58619_) + ((lambda () + (&raw-table-count-set! + _tab58617_ + (fx+ (&raw-table-count _tab58617_) '1))))) + (begin + (vector-set! _table58622_ _probe58641_ _key58618_) + (vector-set! + _table58622_ + (fx+ _probe58641_ '1) + _value58619_) + ((lambda () + (&raw-table-free-set! + _tab58617_ + (fx- (&raw-table-free _tab58617_) '1)) + (&raw-table-count-set! + _tab58617_ + (fx+ (&raw-table-count _tab58617_) '1)))))) + (if (eq? _k58648_ (macro-deleted-obj)) + (_loop58638_ + (let ((_next-probe58653_ + (fx+ _start58634_ + _i58643_ + (fx* _i58643_ _i58643_)))) + (fxmodulo _next-probe58653_ _size58628_)) + (fx+ _i58643_ '1) + (let ((_$e58656_ _deleted58645_)) + (if _$e58656_ _$e58656_ _probe58641_))) + (if (eq? _key58618_ _k58648_) + (begin + (vector-set! + _table58622_ + _probe58641_ + _key58618_) + (vector-set! + _table58622_ + (fx+ _probe58641_ '1) + _value58619_)) + (_loop58638_ + (let ((_next-probe58659_ + (fx+ _start58634_ + _i58643_ + (fx* _i58643_ _i58643_)))) + (fxmodulo _next-probe58659_ _size58628_)) + (fx+ _i58643_ '1) + _deleted58645_)))))))))) + (define symbolic-table-update! + (lambda (_tab58612_ + _key58613_ + _symbolic-table-update!58614_ + _default58615_) + (if (fx< (&raw-table-free _tab58612_) + (fxquotient (vector-length (&raw-table-table _tab58612_)) '4)) + (__raw-table-rehash! _tab58612_) + '#!void) + (__symbolic-table-update! + _tab58612_ + _key58613_ + _symbolic-table-update!58614_ + _default58615_))) + (define __symbolic-table-update! + (lambda (_tab58566_ + _key58567_ + _symbolic-table-update!58568_ + _default58569_) + (let ((_table58572_ (&raw-table-table _tab58566_)) + (_seed58573_ (&raw-table-seed _tab58566_))) + (let* ((_h58575_ (fxxor (symbolic-hash _key58567_) _seed58573_)) + (_size58578_ (vector-length _table58572_)) + (_entries58581_ (fxquotient _size58578_ '2)) + (_start58584_ + (fxarithmetic-shift-left + (fxmodulo _h58575_ _entries58581_) + '1))) + (let _loop58588_ ((_probe58591_ _start58584_) + (_i58593_ '1) + (_deleted58595_ '#f)) + (let ((_k58598_ (vector-ref _table58572_ _probe58591_))) + (if (eq? _k58598_ (macro-unused-obj)) + (if _deleted58595_ + (begin + (vector-set! _table58572_ _deleted58595_ _key58567_) + (vector-set! + _table58572_ + (fx+ _deleted58595_ '1) + (_symbolic-table-update!58568_ _default58569_)) + ((lambda () + (&raw-table-count-set! + _tab58566_ + (fx+ (&raw-table-count _tab58566_) '1))))) + (begin + (vector-set! _table58572_ _probe58591_ _key58567_) + (vector-set! + _table58572_ + (fx+ _probe58591_ '1) + (_symbolic-table-update!58568_ _default58569_)) + ((lambda () + (&raw-table-free-set! + _tab58566_ + (fx- (&raw-table-free _tab58566_) '1)) + (&raw-table-count-set! + _tab58566_ + (fx+ (&raw-table-count _tab58566_) '1)))))) + (if (eq? _k58598_ (macro-deleted-obj)) + (_loop58588_ + (let ((_next-probe58603_ + (fx+ _start58584_ + _i58593_ + (fx* _i58593_ _i58593_)))) + (fxmodulo _next-probe58603_ _size58578_)) + (fx+ _i58593_ '1) + (let ((_$e58606_ _deleted58595_)) + (if _$e58606_ _$e58606_ _probe58591_))) + (if (eq? _key58567_ _k58598_) + (begin + (vector-set! + _table58572_ + _probe58591_ + _key58567_) + (vector-set! + _table58572_ + (fx+ _probe58591_ '1) + (_symbolic-table-update!58568_ + (vector-ref + _table58572_ + (fx+ _probe58591_ '1))))) + (_loop58588_ + (let ((_next-probe58609_ + (fx+ _start58584_ + _i58593_ + (fx* _i58593_ _i58593_)))) + (fxmodulo _next-probe58609_ _size58578_)) + (fx+ _i58593_ '1) + _deleted58595_)))))))))) + (define symbolic-table-delete! + (lambda (_tab58525_ _key58527_) + (let ((_table58530_ (&raw-table-table _tab58525_)) + (_seed58532_ (&raw-table-seed _tab58525_))) + (let* ((_h58535_ (fxxor (symbolic-hash _key58527_) _seed58532_)) + (_size58538_ (vector-length _table58530_)) + (_entries58541_ (fxquotient _size58538_ '2)) + (_start58544_ + (fxarithmetic-shift-left + (fxmodulo _h58535_ _entries58541_) + '1))) + (let _loop58548_ ((_probe58551_ _start58544_) (_i58553_ '1)) + (let ((_k58556_ (vector-ref _table58530_ _probe58551_))) + (if (eq? _k58556_ (macro-unused-obj)) + '#!void + (if (eq? _k58556_ (macro-deleted-obj)) + (_loop58548_ + (let ((_next-probe58559_ + (fx+ _start58544_ + _i58553_ + (fx* _i58553_ _i58553_)))) + (fxmodulo _next-probe58559_ _size58538_)) + (fx+ _i58553_ '1)) + (if (eq? _key58527_ _k58556_) + (begin + (vector-set! + _table58530_ + _probe58551_ + (macro-deleted-obj)) + (vector-set! + _table58530_ + (fx+ _probe58551_ '1) + (macro-absent-obj)) + ((lambda () + (&raw-table-count-set! + _tab58525_ + (fx- (&raw-table-count _tab58525_) '1))))) + (_loop58548_ + (let ((_next-probe58563_ + (fx+ _start58544_ + _i58553_ + (fx* _i58553_ _i58553_)))) + (fxmodulo _next-probe58563_ _size58538_)) + (fx+ _i58553_ '1))))))))))) + (define make-string-table__% + (lambda (_size-hint58506_ _seed58508_) + (make-raw-table__% + _size-hint58506_ + string-hash + ##string=? + _seed58508_))) + (define make-string-table__0 + (lambda () + (let* ((_size-hint58514_ '#f) (_seed58516_ '0)) + (make-string-table__% _size-hint58514_ _seed58516_)))) + (define make-string-table__1 + (lambda (_size-hint58518_) + (let ((_seed58520_ '0)) + (make-string-table__% _size-hint58518_ _seed58520_)))) + (define make-string-table + (lambda _g59450_ + (let ((_g59449_ (##length _g59450_))) + (cond ((##fx= _g59449_ 0) + (apply (lambda () (make-string-table__0)) _g59450_)) + ((##fx= _g59449_ 1) + (apply (lambda (_size-hint58518_) + (make-string-table__1 _size-hint58518_)) + _g59450_)) + ((##fx= _g59449_ 2) + (apply (lambda (_size-hint58522_ _seed58523_) + (make-string-table__% _size-hint58522_ _seed58523_)) + _g59450_)) + (else + (##raise-wrong-number-of-arguments-exception + make-string-table + _g59450_)))))) + (define string-table-ref + (lambda (_tab58463_ _key58464_ _default58465_) + (let ((_table58467_ (&raw-table-table _tab58463_)) + (_seed58468_ (&raw-table-seed _tab58463_))) + (let* ((_h58470_ (fxxor (##string=?-hash _key58464_) _seed58468_)) + (_size58473_ (vector-length _table58467_)) + (_entries58476_ (fxquotient _size58473_ '2)) + (_start58479_ + (fxarithmetic-shift-left + (fxmodulo _h58470_ _entries58476_) + '1))) + (let _loop58483_ ((_probe58486_ _start58479_) + (_i58488_ '1) + (_deleted58490_ '#f)) + (let ((_k58493_ (vector-ref _table58467_ _probe58486_))) + (if (eq? _k58493_ (macro-unused-obj)) + _default58465_ + (if (eq? _k58493_ (macro-deleted-obj)) + (_loop58483_ + (let ((_next-probe58496_ + (fx+ _start58479_ + _i58488_ + (fx* _i58488_ _i58488_)))) + (fxmodulo _next-probe58496_ _size58473_)) + (fx+ _i58488_ '1) + (let ((_$e58499_ _deleted58490_)) + (if _$e58499_ _$e58499_ _probe58486_))) + (if (##string=? _key58464_ _k58493_) + (vector-ref _table58467_ (fx+ _probe58486_ '1)) + (_loop58483_ + (let ((_next-probe58502_ + (fx+ _start58479_ + _i58488_ + (fx* _i58488_ _i58488_)))) + (fxmodulo _next-probe58502_ _size58473_)) + (fx+ _i58488_ '1) + _deleted58490_)))))))))) + (define string-table-set! + (lambda (_tab58459_ _key58460_ _value58461_) + (if (fx< (&raw-table-free _tab58459_) + (fxquotient (vector-length (&raw-table-table _tab58459_)) '4)) + (__raw-table-rehash! _tab58459_) + '#!void) + (__string-table-set! _tab58459_ _key58460_ _value58461_))) + (define __string-table-set! + (lambda (_tab58414_ _key58415_ _value58416_) + (let ((_table58419_ (&raw-table-table _tab58414_)) + (_seed58420_ (&raw-table-seed _tab58414_))) + (let* ((_h58422_ (fxxor (##string=?-hash _key58415_) _seed58420_)) + (_size58425_ (vector-length _table58419_)) + (_entries58428_ (fxquotient _size58425_ '2)) + (_start58431_ + (fxarithmetic-shift-left + (fxmodulo _h58422_ _entries58428_) + '1))) + (let _loop58435_ ((_probe58438_ _start58431_) + (_i58440_ '1) + (_deleted58442_ '#f)) + (let ((_k58445_ (vector-ref _table58419_ _probe58438_))) + (if (eq? _k58445_ (macro-unused-obj)) + (if _deleted58442_ + (begin + (vector-set! _table58419_ _deleted58442_ _key58415_) + (vector-set! + _table58419_ + (fx+ _deleted58442_ '1) + _value58416_) + ((lambda () + (&raw-table-count-set! + _tab58414_ + (fx+ (&raw-table-count _tab58414_) '1))))) + (begin + (vector-set! _table58419_ _probe58438_ _key58415_) + (vector-set! + _table58419_ + (fx+ _probe58438_ '1) + _value58416_) + ((lambda () + (&raw-table-free-set! + _tab58414_ + (fx- (&raw-table-free _tab58414_) '1)) + (&raw-table-count-set! + _tab58414_ + (fx+ (&raw-table-count _tab58414_) '1)))))) + (if (eq? _k58445_ (macro-deleted-obj)) + (_loop58435_ + (let ((_next-probe58450_ + (fx+ _start58431_ + _i58440_ + (fx* _i58440_ _i58440_)))) + (fxmodulo _next-probe58450_ _size58425_)) + (fx+ _i58440_ '1) + (let ((_$e58453_ _deleted58442_)) + (if _$e58453_ _$e58453_ _probe58438_))) + (if (##string=? _key58415_ _k58445_) + (begin + (vector-set! + _table58419_ + _probe58438_ + _key58415_) + (vector-set! + _table58419_ + (fx+ _probe58438_ '1) + _value58416_)) + (_loop58435_ + (let ((_next-probe58456_ + (fx+ _start58431_ + _i58440_ + (fx* _i58440_ _i58440_)))) + (fxmodulo _next-probe58456_ _size58425_)) + (fx+ _i58440_ '1) + _deleted58442_)))))))))) + (define string-table-update! + (lambda (_tab58409_ + _key58410_ + _string-table-update!58411_ + _default58412_) + (if (fx< (&raw-table-free _tab58409_) + (fxquotient (vector-length (&raw-table-table _tab58409_)) '4)) + (__raw-table-rehash! _tab58409_) + '#!void) + (__string-table-update! + _tab58409_ + _key58410_ + _string-table-update!58411_ + _default58412_))) + (define __string-table-update! + (lambda (_tab58363_ + _key58364_ + _string-table-update!58365_ + _default58366_) + (let ((_table58369_ (&raw-table-table _tab58363_)) + (_seed58370_ (&raw-table-seed _tab58363_))) + (let* ((_h58372_ (fxxor (##string=?-hash _key58364_) _seed58370_)) + (_size58375_ (vector-length _table58369_)) + (_entries58378_ (fxquotient _size58375_ '2)) + (_start58381_ + (fxarithmetic-shift-left + (fxmodulo _h58372_ _entries58378_) + '1))) + (let _loop58385_ ((_probe58388_ _start58381_) + (_i58390_ '1) + (_deleted58392_ '#f)) + (let ((_k58395_ (vector-ref _table58369_ _probe58388_))) + (if (eq? _k58395_ (macro-unused-obj)) + (if _deleted58392_ + (begin + (vector-set! _table58369_ _deleted58392_ _key58364_) + (vector-set! + _table58369_ + (fx+ _deleted58392_ '1) + (_string-table-update!58365_ _default58366_)) + ((lambda () + (&raw-table-count-set! + _tab58363_ + (fx+ (&raw-table-count _tab58363_) '1))))) + (begin + (vector-set! _table58369_ _probe58388_ _key58364_) + (vector-set! + _table58369_ + (fx+ _probe58388_ '1) + (_string-table-update!58365_ _default58366_)) + ((lambda () + (&raw-table-free-set! + _tab58363_ + (fx- (&raw-table-free _tab58363_) '1)) + (&raw-table-count-set! + _tab58363_ + (fx+ (&raw-table-count _tab58363_) '1)))))) + (if (eq? _k58395_ (macro-deleted-obj)) + (_loop58385_ + (let ((_next-probe58400_ + (fx+ _start58381_ + _i58390_ + (fx* _i58390_ _i58390_)))) + (fxmodulo _next-probe58400_ _size58375_)) + (fx+ _i58390_ '1) + (let ((_$e58403_ _deleted58392_)) + (if _$e58403_ _$e58403_ _probe58388_))) + (if (##string=? _key58364_ _k58395_) + (begin + (vector-set! + _table58369_ + _probe58388_ + _key58364_) + (vector-set! + _table58369_ + (fx+ _probe58388_ '1) + (_string-table-update!58365_ + (vector-ref + _table58369_ + (fx+ _probe58388_ '1))))) + (_loop58385_ + (let ((_next-probe58406_ + (fx+ _start58381_ + _i58390_ + (fx* _i58390_ _i58390_)))) + (fxmodulo _next-probe58406_ _size58375_)) + (fx+ _i58390_ '1) + _deleted58392_)))))))))) + (define string-table-delete! + (lambda (_tab58322_ _key58324_) + (let ((_table58327_ (&raw-table-table _tab58322_)) + (_seed58329_ (&raw-table-seed _tab58322_))) + (let* ((_h58332_ (fxxor (##string=?-hash _key58324_) _seed58329_)) + (_size58335_ (vector-length _table58327_)) + (_entries58338_ (fxquotient _size58335_ '2)) + (_start58341_ + (fxarithmetic-shift-left + (fxmodulo _h58332_ _entries58338_) + '1))) + (let _loop58345_ ((_probe58348_ _start58341_) (_i58350_ '1)) + (let ((_k58353_ (vector-ref _table58327_ _probe58348_))) + (if (eq? _k58353_ (macro-unused-obj)) + '#!void + (if (eq? _k58353_ (macro-deleted-obj)) + (_loop58345_ + (let ((_next-probe58356_ + (fx+ _start58341_ + _i58350_ + (fx* _i58350_ _i58350_)))) + (fxmodulo _next-probe58356_ _size58335_)) + (fx+ _i58350_ '1)) + (if (##string=? _key58324_ _k58353_) + (begin + (vector-set! + _table58327_ + _probe58348_ + (macro-deleted-obj)) + (vector-set! + _table58327_ + (fx+ _probe58348_ '1) + (macro-absent-obj)) + ((lambda () + (&raw-table-count-set! + _tab58322_ + (fx- (&raw-table-count _tab58322_) '1))))) + (_loop58345_ + (let ((_next-probe58360_ + (fx+ _start58341_ + _i58350_ + (fx* _i58350_ _i58350_)))) + (fxmodulo _next-probe58360_ _size58335_)) + (fx+ _i58350_ '1))))))))))))) diff --git a/src/bootstrap/gerbil/runtime/table__1.scm b/src/bootstrap/gerbil/runtime/table__1.scm new file mode 100644 index 000000000..281b4841f --- /dev/null +++ b/src/bootstrap/gerbil/runtime/table__1.scm @@ -0,0 +1,4641 @@ +(declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) +(begin + (define |[:0:]#__symbolic-hash| + (lambda (_$stx57250_) + (let* ((_g5725457268_ + (lambda (_g5725557264_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g5725557264_))) + (_g5725357310_ + (lambda (_g5725557272_) + (if (gx#stx-pair? _g5725557272_) + (let ((_e5725957275_ (gx#syntax-e _g5725557272_))) + (let ((_hd5725857279_ + (let () + (declare (not safe)) + (##car _e5725957275_))) + (_tl5725757282_ + (let () + (declare (not safe)) + (##cdr _e5725957275_)))) + (if (gx#stx-pair? _tl5725757282_) + (let ((_e5726257285_ (gx#syntax-e _tl5725757282_))) + (let ((_hd5726157289_ + (let () + (declare (not safe)) + (##car _e5726257285_))) + (_tl5726057292_ + (let () + (declare (not safe)) + (##cdr _e5726257285_)))) + (if (gx#stx-null? _tl5726057292_) + ((lambda (_L57295_) + (let ((__tmp59453 + (gx#datum->syntax + '#f + 'macro-slot)) + (__tmp59451 + (let ((__tmp59452 + (let () + (declare (not safe)) + (cons _L57295_ '())))) + (declare (not safe)) + (cons '1 __tmp59452)))) + (declare (not safe)) + (cons __tmp59453 __tmp59451))) + _hd5726157289_) + (_g5725457268_ _g5725557272_)))) + (_g5725457268_ _g5725557272_)))) + (_g5725457268_ _g5725557272_))))) + (_g5725357310_ _$stx57250_)))) + (define |[:0:]#defspecialized-table| + (lambda (_$stx57314_) + (let* ((_g5731857364_ + (lambda (_g5731957360_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g5731957360_))) + (_g5731757517_ + (lambda (_g5731957368_) + (if (gx#stx-pair? _g5731957368_) + (let ((_e5733157371_ (gx#syntax-e _g5731957368_))) + (let ((_hd5733057375_ + (let () + (declare (not safe)) + (##car _e5733157371_))) + (_tl5732957378_ + (let () + (declare (not safe)) + (##cdr _e5733157371_)))) + (if (gx#stx-pair? _tl5732957378_) + (let ((_e5733457381_ (gx#syntax-e _tl5732957378_))) + (let ((_hd5733357385_ + (let () + (declare (not safe)) + (##car _e5733457381_))) + (_tl5733257388_ + (let () + (declare (not safe)) + (##cdr _e5733457381_)))) + (if (gx#stx-pair? _tl5733257388_) + (let ((_e5733757391_ + (gx#syntax-e _tl5733257388_))) + (let ((_hd5733657395_ + (let () + (declare (not safe)) + (##car _e5733757391_))) + (_tl5733557398_ + (let () + (declare (not safe)) + (##cdr _e5733757391_)))) + (if (gx#stx-pair? _tl5733557398_) + (let ((_e5734057401_ + (gx#syntax-e + _tl5733557398_))) + (let ((_hd5733957405_ + (let () + (declare (not safe)) + (##car _e5734057401_))) + (_tl5733857408_ + (let () + (declare (not safe)) + (##cdr _e5734057401_)))) + (if (gx#stx-pair? + _tl5733857408_) + (let ((_e5734357411_ + (gx#syntax-e + _tl5733857408_))) + (let ((_hd5734257415_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##car _e5734357411_))) + (_tl5734157418_ + (let () (declare (not safe)) (##cdr _e5734357411_)))) + (if (gx#stx-pair? _tl5734157418_) + (let ((_e5734657421_ (gx#syntax-e _tl5734157418_))) + (let ((_hd5734557425_ + (let () + (declare (not safe)) + (##car _e5734657421_))) + (_tl5734457428_ + (let () + (declare (not safe)) + (##cdr _e5734657421_)))) + (if (gx#stx-pair? _tl5734457428_) + (let ((_e5734957431_ (gx#syntax-e _tl5734457428_))) + (let ((_hd5734857435_ + (let () + (declare (not safe)) + (##car _e5734957431_))) + (_tl5734757438_ + (let () + (declare (not safe)) + (##cdr _e5734957431_)))) + (if (gx#stx-pair? _tl5734757438_) + (let ((_e5735257441_ + (gx#syntax-e _tl5734757438_))) + (let ((_hd5735157445_ + (let () + (declare (not safe)) + (##car _e5735257441_))) + (_tl5735057448_ + (let () + (declare (not safe)) + (##cdr _e5735257441_)))) + (if (gx#stx-pair? _tl5735057448_) + (let ((_e5735557451_ + (gx#syntax-e + _tl5735057448_))) + (let ((_hd5735457455_ + (let () + (declare (not safe)) + (##car _e5735557451_))) + (_tl5735357458_ + (let () + (declare (not safe)) + (##cdr _e5735557451_)))) + (if (gx#stx-pair? + _tl5735357458_) + (let ((_e5735857461_ + (gx#syntax-e + _tl5735357458_))) + (let ((_hd5735757465_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##car _e5735857461_))) + (_tl5735657468_ + (let () (declare (not safe)) (##cdr _e5735857461_)))) + (if (gx#stx-null? _tl5735657468_) + ((lambda (_L57471_ + _L57473_ + _L57474_ + _L57475_ + _L57476_ + _L57477_ + _L57478_ + _L57479_ + _L57480_) + (let ((__tmp59885 (gx#datum->syntax '#f 'begin)) + (__tmp59454 + (let ((__tmp59864 + (let ((__tmp59884 + (gx#datum->syntax '#f 'def)) + (__tmp59865 + (let ((__tmp59875 + (let ((__tmp59876 + (let ((__tmp59881 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp59883 (gx#datum->syntax '#f 'size-hint)) + (__tmp59882 + (let () (declare (not safe)) (cons '#f '())))) + (declare (not safe)) + (cons __tmp59883 __tmp59882))) + (__tmp59877 + (let ((__tmp59878 + (let ((__tmp59880 (gx#datum->syntax '#f 'seed)) + (__tmp59879 + (let () + (declare (not safe)) + (cons '0 '())))) + (declare (not safe)) + (cons __tmp59880 __tmp59879)))) + (declare (not safe)) + (cons __tmp59878 '())))) + (declare (not safe)) + (cons __tmp59881 __tmp59877)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L57480_ + __tmp59876))) + (__tmp59866 + (let ((__tmp59867 + (let ((__tmp59874 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'make-raw-table)) + (__tmp59868 + (let ((__tmp59873 (gx#datum->syntax '#f 'size-hint)) + (__tmp59869 + (let ((__tmp59870 + (let ((__tmp59871 + (let ((__tmp59872 + (gx#datum->syntax + '#f + 'seed))) + (declare (not safe)) + (cons __tmp59872 '())))) + (declare (not safe)) + (cons _L57471_ __tmp59871)))) + (declare (not safe)) + (cons _L57473_ __tmp59870)))) + (declare (not safe)) + (cons __tmp59873 __tmp59869)))) + (declare (not safe)) + (cons __tmp59874 __tmp59868)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59867 '())))) + (declare (not safe)) + (cons __tmp59875 __tmp59866)))) + (declare (not safe)) + (cons __tmp59884 __tmp59865))) + (__tmp59455 + (let ((__tmp59821 + (let ((__tmp59863 + (gx#datum->syntax '#f 'def)) + (__tmp59822 + (let ((__tmp59856 + (let ((__tmp59857 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp59862 (gx#datum->syntax '#f 'tab)) + (__tmp59858 + (let ((__tmp59861 (gx#datum->syntax '#f 'key)) + (__tmp59859 + (let ((__tmp59860 + (gx#datum->syntax '#f 'default))) + (declare (not safe)) + (cons __tmp59860 '())))) + (declare (not safe)) + (cons __tmp59861 __tmp59859)))) + (declare (not safe)) + (cons __tmp59862 __tmp59858)))) + (declare (not safe)) + (cons _L57479_ __tmp59857))) + (__tmp59823 + (let ((__tmp59824 + (let ((__tmp59855 (gx#datum->syntax '#f 'let)) + (__tmp59825 + (let ((__tmp59839 + (let ((__tmp59848 + (let ((__tmp59854 + (gx#datum->syntax + '#f + 'table)) + (__tmp59849 + (let ((__tmp59850 + (let ((__tmp59853 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f '&raw-table-table)) + (__tmp59851 + (let ((__tmp59852 (gx#datum->syntax '#f 'tab))) + (declare (not safe)) + (cons __tmp59852 '())))) + (declare (not safe)) + (cons __tmp59853 __tmp59851)))) + (declare (not safe)) + (cons __tmp59850 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59854 __tmp59849))) + (__tmp59840 + (let ((__tmp59841 + (let ((__tmp59847 + (gx#datum->syntax + '#f + 'seed)) + (__tmp59842 + (let ((__tmp59843 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp59846 + (gx#datum->syntax '#f '&raw-table-seed)) + (__tmp59844 + (let ((__tmp59845 + (gx#datum->syntax '#f 'tab))) + (declare (not safe)) + (cons __tmp59845 '())))) + (declare (not safe)) + (cons __tmp59846 __tmp59844)))) + (declare (not safe)) + (cons __tmp59843 '())))) + (declare (not safe)) + (cons __tmp59847 __tmp59842)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59841 '())))) + (declare (not safe)) + (cons __tmp59848 __tmp59840))) + (__tmp59826 + (let ((__tmp59827 + (let ((__tmp59838 + (gx#datum->syntax + '#f + '__table-ref)) + (__tmp59828 + (let ((__tmp59837 + (gx#datum->syntax + '#f + 'table)) + (__tmp59829 + (let ((__tmp59836 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'seed)) + (__tmp59830 + (let ((__tmp59831 + (let ((__tmp59832 + (let ((__tmp59835 + (gx#datum->syntax '#f 'key)) + (__tmp59833 + (let ((__tmp59834 + (gx#datum->syntax + '#f + 'default))) + (declare (not safe)) + (cons __tmp59834 '())))) + (declare (not safe)) + (cons __tmp59835 __tmp59833)))) + (declare (not safe)) + (cons _L57471_ __tmp59832)))) + (declare (not safe)) + (cons _L57473_ __tmp59831)))) + (declare (not safe)) + (cons __tmp59836 __tmp59830)))) + (declare (not safe)) + (cons __tmp59837 __tmp59829)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59838 __tmp59828)))) + (declare (not safe)) + (cons __tmp59827 '())))) + (declare (not safe)) + (cons __tmp59839 __tmp59826)))) + (declare (not safe)) + (cons __tmp59855 __tmp59825)))) + (declare (not safe)) + (cons __tmp59824 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59856 + __tmp59823)))) + (declare (not safe)) + (cons __tmp59863 __tmp59822))) + (__tmp59456 + (let ((__tmp59775 + (let ((__tmp59820 + (gx#datum->syntax + '#f + 'def)) + (__tmp59776 + (let ((__tmp59813 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp59814 + (let ((__tmp59819 (gx#datum->syntax '#f 'tab)) + (__tmp59815 + (let ((__tmp59818 + (gx#datum->syntax '#f 'key)) + (__tmp59816 + (let ((__tmp59817 + (gx#datum->syntax + '#f + 'value))) + (declare (not safe)) + (cons __tmp59817 '())))) + (declare (not safe)) + (cons __tmp59818 __tmp59816)))) + (declare (not safe)) + (cons __tmp59819 __tmp59815)))) + (declare (not safe)) + (cons _L57478_ __tmp59814))) + (__tmp59777 + (let ((__tmp59786 + (let ((__tmp59812 (gx#datum->syntax '#f 'when)) + (__tmp59787 + (let ((__tmp59793 + (let ((__tmp59811 + (gx#datum->syntax + '#f + 'fx<)) + (__tmp59794 + (let ((__tmp59807 + (let ((__tmp59810 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f '&raw-table-free)) + (__tmp59808 + (let ((__tmp59809 (gx#datum->syntax '#f 'tab))) + (declare (not safe)) + (cons __tmp59809 '())))) + (declare (not safe)) + (cons __tmp59810 __tmp59808))) + (__tmp59795 + (let ((__tmp59796 + (let ((__tmp59806 + (gx#datum->syntax '#f 'fxquotient)) + (__tmp59797 + (let ((__tmp59799 + (let ((__tmp59805 + (gx#datum->syntax + '#f + 'vector-length)) + (__tmp59800 + (let ((__tmp59801 + (let ((__tmp59804 + (gx#datum->syntax + '#f + '&raw-table-table)) + (__tmp59802 + (let ((__tmp59803 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'tab))) + (declare (not safe)) + (cons __tmp59803 '())))) + (declare (not safe)) + (cons __tmp59804 __tmp59802)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59801 '())))) + (declare (not safe)) + (cons __tmp59805 __tmp59800))) + (__tmp59798 + (let () + (declare (not safe)) + (cons '4 '())))) + (declare (not safe)) + (cons __tmp59799 __tmp59798)))) + (declare (not safe)) + (cons __tmp59806 __tmp59797)))) + (declare (not safe)) + (cons __tmp59796 '())))) + (declare (not safe)) + (cons __tmp59807 __tmp59795)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59811 __tmp59794))) + (__tmp59788 + (let ((__tmp59789 + (let ((__tmp59792 + (gx#datum->syntax + '#f + '__raw-table-rehash!)) + (__tmp59790 + (let ((__tmp59791 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'tab))) + (declare (not safe)) + (cons __tmp59791 '())))) + (declare (not safe)) + (cons __tmp59792 __tmp59790)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59789 '())))) + (declare (not safe)) + (cons __tmp59793 __tmp59788)))) + (declare (not safe)) + (cons __tmp59812 __tmp59787))) + (__tmp59778 + (let ((__tmp59779 + (let ((__tmp59780 + (let ((__tmp59785 + (gx#datum->syntax + '#f + 'tab)) + (__tmp59781 + (let ((__tmp59784 + (gx#datum->syntax + '#f + 'key)) + (__tmp59782 + (let ((__tmp59783 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'value))) + (declare (not safe)) + (cons __tmp59783 '())))) + (declare (not safe)) + (cons __tmp59784 __tmp59782)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59785 __tmp59781)))) + (declare (not safe)) + (cons _L57477_ __tmp59780)))) + (declare (not safe)) + (cons __tmp59779 '())))) + (declare (not safe)) + (cons __tmp59786 __tmp59778)))) + (declare (not safe)) + (cons __tmp59813 __tmp59777)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59820 + __tmp59776))) + (__tmp59457 + (let ((__tmp59673 + (let ((__tmp59774 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'def)) + (__tmp59674 + (let ((__tmp59767 + (let ((__tmp59768 + (let ((__tmp59773 + (gx#datum->syntax '#f 'tab)) + (__tmp59769 + (let ((__tmp59772 + (gx#datum->syntax + '#f + 'key)) + (__tmp59770 + (let ((__tmp59771 + (gx#datum->syntax + '#f + 'value))) + (declare (not safe)) + (cons __tmp59771 '())))) + (declare (not safe)) + (cons __tmp59772 __tmp59770)))) + (declare (not safe)) + (cons __tmp59773 __tmp59769)))) + (declare (not safe)) + (cons _L57477_ __tmp59768))) + (__tmp59675 + (let ((__tmp59676 + (let ((__tmp59766 + (gx#datum->syntax '#f 'let)) + (__tmp59677 + (let ((__tmp59750 + (let ((__tmp59759 + (let ((__tmp59765 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'table)) + (__tmp59760 + (let ((__tmp59761 + (let ((__tmp59764 + (gx#datum->syntax + '#f + '&raw-table-table)) + (__tmp59762 + (let ((__tmp59763 + (gx#datum->syntax '#f 'tab))) + (declare (not safe)) + (cons __tmp59763 '())))) + (declare (not safe)) + (cons __tmp59764 __tmp59762)))) + (declare (not safe)) + (cons __tmp59761 '())))) + (declare (not safe)) + (cons __tmp59765 __tmp59760))) + (__tmp59751 + (let ((__tmp59752 + (let ((__tmp59758 (gx#datum->syntax '#f 'seed)) + (__tmp59753 + (let ((__tmp59754 + (let ((__tmp59757 + (gx#datum->syntax + '#f + '&raw-table-seed)) + (__tmp59755 + (let ((__tmp59756 + (gx#datum->syntax + '#f + 'tab))) + (declare (not safe)) + (cons __tmp59756 '())))) + (declare (not safe)) + (cons __tmp59757 __tmp59755)))) + (declare (not safe)) + (cons __tmp59754 '())))) + (declare (not safe)) + (cons __tmp59758 __tmp59753)))) + (declare (not safe)) + (cons __tmp59752 '())))) + (declare (not safe)) + (cons __tmp59759 __tmp59751))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp59678 + (let ((__tmp59679 + (let ((__tmp59749 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f '__table-set!)) + (__tmp59680 + (let ((__tmp59748 (gx#datum->syntax '#f 'table)) + (__tmp59681 + (let ((__tmp59747 + (gx#datum->syntax '#f 'seed)) + (__tmp59682 + (let ((__tmp59683 + (let ((__tmp59684 + (let ((__tmp59746 + (gx#datum->syntax + '#f + 'key)) + (__tmp59685 + (let ((__tmp59745 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'value)) + (__tmp59686 + (let ((__tmp59708 + (let ((__tmp59744 + (gx#datum->syntax '#f 'lambda)) + (__tmp59709 + (let ((__tmp59710 + (let ((__tmp59728 + (let ((__tmp59743 + (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'set!)) + (__tmp59729 + (let ((__tmp59739 + (let ((__tmp59742 + (gx#datum->syntax '#f '&raw-table-free)) + (__tmp59740 + (let ((__tmp59741 + (gx#datum->syntax '#f 'tab))) + (declare (not safe)) + (cons __tmp59741 '())))) + (declare (not safe)) + (cons __tmp59742 __tmp59740))) + (__tmp59730 + (let ((__tmp59731 + (let ((__tmp59738 + (gx#datum->syntax '#f 'fx-)) + (__tmp59732 + (let ((__tmp59734 + (let ((__tmp59737 + (gx#datum->syntax + '#f + '&raw-table-free)) + (__tmp59735 + (let ((__tmp59736 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'tab))) + (declare (not safe)) + (cons __tmp59736 '())))) + (declare (not safe)) + (cons __tmp59737 __tmp59735))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp59733 + (let () + (declare (not safe)) + (cons '1 '())))) + (declare (not safe)) + (cons __tmp59734 __tmp59733)))) + (declare (not safe)) + (cons __tmp59738 __tmp59732)))) + (declare (not safe)) + (cons __tmp59731 '())))) + (declare (not safe)) + (cons __tmp59739 __tmp59730)))) + (declare (not safe)) + (cons __tmp59743 __tmp59729))) + (__tmp59711 + (let ((__tmp59712 + (let ((__tmp59727 (gx#datum->syntax '#f 'set!)) + (__tmp59713 + (let ((__tmp59723 + (let ((__tmp59726 + (gx#datum->syntax + '#f + '&raw-table-count)) + (__tmp59724 + (let ((__tmp59725 + (gx#datum->syntax + '#f + 'tab))) + (declare (not safe)) + (cons __tmp59725 '())))) + (declare (not safe)) + (cons __tmp59726 __tmp59724))) + (__tmp59714 + (let ((__tmp59715 + (let ((__tmp59722 + (gx#datum->syntax + '#f + 'fx+)) + (__tmp59716 + (let ((__tmp59718 + (let ((__tmp59721 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f '&raw-table-count)) + (__tmp59719 + (let ((__tmp59720 (gx#datum->syntax '#f 'tab))) + (declare (not safe)) + (cons __tmp59720 '())))) + (declare (not safe)) + (cons __tmp59721 __tmp59719))) + (__tmp59717 (let () (declare (not safe)) (cons '1 '())))) + (declare (not safe)) + (cons __tmp59718 __tmp59717)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59722 __tmp59716)))) + (declare (not safe)) + (cons __tmp59715 '())))) + (declare (not safe)) + (cons __tmp59723 __tmp59714)))) + (declare (not safe)) + (cons __tmp59727 __tmp59713)))) + (declare (not safe)) + (cons __tmp59712 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59728 + __tmp59711)))) + (declare (not safe)) + (cons '() __tmp59710)))) + (declare (not safe)) + (cons __tmp59744 __tmp59709))) + (__tmp59687 + (let ((__tmp59688 + (let ((__tmp59707 + (gx#datum->syntax + '#f + 'lambda)) + (__tmp59689 + (let ((__tmp59690 + (let ((__tmp59691 + (let ((__tmp59706 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'set!)) + (__tmp59692 + (let ((__tmp59702 + (let ((__tmp59705 + (gx#datum->syntax + '#f + '&raw-table-count)) + (__tmp59703 + (let ((__tmp59704 + (gx#datum->syntax + '#f + 'tab))) + (declare (not safe)) + (cons __tmp59704 '())))) + (declare (not safe)) + (cons __tmp59705 __tmp59703))) + (__tmp59693 + (let ((__tmp59694 + (let ((__tmp59701 + (gx#datum->syntax + '#f + 'fx+)) + (__tmp59695 + (let ((__tmp59697 + (let ((__tmp59700 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f '&raw-table-count)) + (__tmp59698 + (let ((__tmp59699 (gx#datum->syntax '#f 'tab))) + (declare (not safe)) + (cons __tmp59699 '())))) + (declare (not safe)) + (cons __tmp59700 __tmp59698))) + (__tmp59696 (let () (declare (not safe)) (cons '1 '())))) + (declare (not safe)) + (cons __tmp59697 __tmp59696)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59701 __tmp59695)))) + (declare (not safe)) + (cons __tmp59694 '())))) + (declare (not safe)) + (cons __tmp59702 __tmp59693)))) + (declare (not safe)) + (cons __tmp59706 __tmp59692)))) + (declare (not safe)) + (cons __tmp59691 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '() __tmp59690)))) + (declare (not safe)) + (cons __tmp59707 __tmp59689)))) + (declare (not safe)) + (cons __tmp59688 '())))) + (declare (not safe)) + (cons __tmp59708 __tmp59687)))) + (declare (not safe)) + (cons __tmp59745 __tmp59686)))) + (declare (not safe)) + (cons __tmp59746 __tmp59685)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L57471_ __tmp59684)))) + (declare (not safe)) + (cons _L57473_ __tmp59683)))) + (declare (not safe)) + (cons __tmp59747 __tmp59682)))) + (declare (not safe)) + (cons __tmp59748 __tmp59681)))) + (declare (not safe)) + (cons __tmp59749 __tmp59680)))) + (declare (not safe)) + (cons __tmp59679 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59750 __tmp59678)))) + (declare (not safe)) + (cons __tmp59766 __tmp59677)))) + (declare (not safe)) + (cons __tmp59676 '())))) + (declare (not safe)) + (cons __tmp59767 __tmp59675)))) + (declare (not safe)) + (cons __tmp59774 __tmp59674))) + (__tmp59458 + (let ((__tmp59625 + (let ((__tmp59672 (gx#datum->syntax '#f 'def)) + (__tmp59626 + (let ((__tmp59664 + (let ((__tmp59665 + (let ((__tmp59671 + (gx#datum->syntax + '#f + 'tab)) + (__tmp59666 + (let ((__tmp59670 + (gx#datum->syntax + '#f + 'key)) + (__tmp59667 + (let ((__tmp59668 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp59669 (gx#datum->syntax '#f 'default))) + (declare (not safe)) + (cons __tmp59669 '())))) + (declare (not safe)) + (cons _L57476_ __tmp59668)))) + (declare (not safe)) + (cons __tmp59670 __tmp59667)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59671 __tmp59666)))) + (declare (not safe)) + (cons _L57476_ __tmp59665))) + (__tmp59627 + (let ((__tmp59637 + (let ((__tmp59663 + (gx#datum->syntax + '#f + 'when)) + (__tmp59638 + (let ((__tmp59644 + (let ((__tmp59662 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'fx<)) + (__tmp59645 + (let ((__tmp59658 + (let ((__tmp59661 + (gx#datum->syntax + '#f + '&raw-table-free)) + (__tmp59659 + (let ((__tmp59660 + (gx#datum->syntax '#f 'tab))) + (declare (not safe)) + (cons __tmp59660 '())))) + (declare (not safe)) + (cons __tmp59661 __tmp59659))) + (__tmp59646 + (let ((__tmp59647 + (let ((__tmp59657 + (gx#datum->syntax + '#f + 'fxquotient)) + (__tmp59648 + (let ((__tmp59650 + (let ((__tmp59656 + (gx#datum->syntax + '#f + 'vector-length)) + (__tmp59651 + (let ((__tmp59652 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp59655 + (gx#datum->syntax '#f '&raw-table-table)) + (__tmp59653 + (let ((__tmp59654 + (gx#datum->syntax '#f 'tab))) + (declare (not safe)) + (cons __tmp59654 '())))) + (declare (not safe)) + (cons __tmp59655 __tmp59653)))) + (declare (not safe)) + (cons __tmp59652 '())))) + (declare (not safe)) + (cons __tmp59656 __tmp59651))) + (__tmp59649 (let () (declare (not safe)) (cons '4 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59650 + __tmp59649)))) + (declare (not safe)) + (cons __tmp59657 __tmp59648)))) + (declare (not safe)) + (cons __tmp59647 '())))) + (declare (not safe)) + (cons __tmp59658 __tmp59646)))) + (declare (not safe)) + (cons __tmp59662 __tmp59645))) + (__tmp59639 + (let ((__tmp59640 + (let ((__tmp59643 + (gx#datum->syntax '#f '__raw-table-rehash!)) + (__tmp59641 + (let ((__tmp59642 + (gx#datum->syntax '#f 'tab))) + (declare (not safe)) + (cons __tmp59642 '())))) + (declare (not safe)) + (cons __tmp59643 __tmp59641)))) + (declare (not safe)) + (cons __tmp59640 '())))) + (declare (not safe)) + (cons __tmp59644 __tmp59639)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59663 __tmp59638))) + (__tmp59628 + (let ((__tmp59629 + (let ((__tmp59630 + (let ((__tmp59636 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'tab)) + (__tmp59631 + (let ((__tmp59635 (gx#datum->syntax '#f 'key)) + (__tmp59632 + (let ((__tmp59633 + (let ((__tmp59634 + (gx#datum->syntax + '#f + 'default))) + (declare (not safe)) + (cons __tmp59634 '())))) + (declare (not safe)) + (cons _L57476_ __tmp59633)))) + (declare (not safe)) + (cons __tmp59635 __tmp59632)))) + (declare (not safe)) + (cons __tmp59636 __tmp59631)))) + (declare (not safe)) + (cons _L57475_ __tmp59630)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59629 '())))) + (declare (not safe)) + (cons __tmp59637 __tmp59628)))) + (declare (not safe)) + (cons __tmp59664 __tmp59627)))) + (declare (not safe)) + (cons __tmp59672 __tmp59626))) + (__tmp59459 + (let ((__tmp59521 + (let ((__tmp59624 (gx#datum->syntax '#f 'def)) + (__tmp59522 + (let ((__tmp59616 + (let ((__tmp59617 + (let ((__tmp59623 + (gx#datum->syntax + '#f + 'tab)) + (__tmp59618 + (let ((__tmp59622 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'key)) + (__tmp59619 + (let ((__tmp59620 + (let ((__tmp59621 + (gx#datum->syntax '#f 'default))) + (declare (not safe)) + (cons __tmp59621 '())))) + (declare (not safe)) + (cons _L57476_ __tmp59620)))) + (declare (not safe)) + (cons __tmp59622 __tmp59619)))) + (declare (not safe)) + (cons __tmp59623 __tmp59618)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L57475_ __tmp59617))) + (__tmp59523 + (let ((__tmp59524 + (let ((__tmp59615 + (gx#datum->syntax + '#f + 'let)) + (__tmp59525 + (let ((__tmp59599 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp59608 + (let ((__tmp59614 + (gx#datum->syntax '#f 'table)) + (__tmp59609 + (let ((__tmp59610 + (let ((__tmp59613 + (gx#datum->syntax + '#f + '&raw-table-table)) + (__tmp59611 + (let ((__tmp59612 + (gx#datum->syntax + '#f + 'tab))) + (declare (not safe)) + (cons __tmp59612 + '())))) + (declare (not safe)) + (cons __tmp59613 + __tmp59611)))) + (declare (not safe)) + (cons __tmp59610 '())))) + (declare (not safe)) + (cons __tmp59614 __tmp59609))) + (__tmp59600 + (let ((__tmp59601 + (let ((__tmp59607 + (gx#datum->syntax '#f 'seed)) + (__tmp59602 + (let ((__tmp59603 + (let ((__tmp59606 + (gx#datum->syntax + '#f + '&raw-table-seed)) + (__tmp59604 + (let ((__tmp59605 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'tab))) + (declare (not safe)) + (cons __tmp59605 '())))) + (declare (not safe)) + (cons __tmp59606 __tmp59604)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59603 '())))) + (declare (not safe)) + (cons __tmp59607 __tmp59602)))) + (declare (not safe)) + (cons __tmp59601 '())))) + (declare (not safe)) + (cons __tmp59608 __tmp59600))) + (__tmp59526 + (let ((__tmp59527 + (let ((__tmp59598 + (gx#datum->syntax + '#f + '__table-update!)) + (__tmp59528 + (let ((__tmp59597 + (gx#datum->syntax '#f 'table)) + (__tmp59529 + (let ((__tmp59596 + (gx#datum->syntax + '#f + 'seed)) + (__tmp59530 + (let ((__tmp59531 + (let ((__tmp59532 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp59595 (gx#datum->syntax '#f 'key)) + (__tmp59533 + (let ((__tmp59534 + (let ((__tmp59594 + (gx#datum->syntax + '#f + 'default)) + (__tmp59535 + (let ((__tmp59557 + (let ((__tmp59593 + (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'lambda)) + (__tmp59558 + (let ((__tmp59559 + (let ((__tmp59577 + (let ((__tmp59592 + (gx#datum->syntax '#f 'set!)) + (__tmp59578 + (let ((__tmp59588 + (let ((__tmp59591 + (gx#datum->syntax + '#f + '&raw-table-free)) + (__tmp59589 + (let ((__tmp59590 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'tab))) + (declare (not safe)) + (cons __tmp59590 '())))) + (declare (not safe)) + (cons __tmp59591 __tmp59589))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp59579 + (let ((__tmp59580 + (let ((__tmp59587 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'fx-)) + (__tmp59581 + (let ((__tmp59583 + (let ((__tmp59586 + (gx#datum->syntax + '#f + '&raw-table-free)) + (__tmp59584 + (let ((__tmp59585 + (gx#datum->syntax '#f 'tab))) + (declare (not safe)) + (cons __tmp59585 '())))) + (declare (not safe)) + (cons __tmp59586 __tmp59584))) + (__tmp59582 + (let () (declare (not safe)) (cons '1 '())))) + (declare (not safe)) + (cons __tmp59583 __tmp59582)))) + (declare (not safe)) + (cons __tmp59587 __tmp59581)))) + (declare (not safe)) + (cons __tmp59580 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59588 __tmp59579)))) + (declare (not safe)) + (cons __tmp59592 __tmp59578))) + (__tmp59560 + (let ((__tmp59561 + (let ((__tmp59576 + (gx#datum->syntax + '#f + 'set!)) + (__tmp59562 + (let ((__tmp59572 + (let ((__tmp59575 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f '&raw-table-count)) + (__tmp59573 + (let ((__tmp59574 (gx#datum->syntax '#f 'tab))) + (declare (not safe)) + (cons __tmp59574 '())))) + (declare (not safe)) + (cons __tmp59575 __tmp59573))) + (__tmp59563 + (let ((__tmp59564 + (let ((__tmp59571 (gx#datum->syntax '#f 'fx+)) + (__tmp59565 + (let ((__tmp59567 + (let ((__tmp59570 + (gx#datum->syntax + '#f + '&raw-table-count)) + (__tmp59568 + (let ((__tmp59569 + (gx#datum->syntax + '#f + 'tab))) + (declare (not safe)) + (cons __tmp59569 '())))) + (declare (not safe)) + (cons __tmp59570 __tmp59568))) + (__tmp59566 + (let () + (declare (not safe)) + (cons '1 '())))) + (declare (not safe)) + (cons __tmp59567 __tmp59566)))) + (declare (not safe)) + (cons __tmp59571 __tmp59565)))) + (declare (not safe)) + (cons __tmp59564 '())))) + (declare (not safe)) + (cons __tmp59572 __tmp59563)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59576 __tmp59562)))) + (declare (not safe)) + (cons __tmp59561 '())))) + (declare (not safe)) + (cons __tmp59577 __tmp59560)))) + (declare (not safe)) + (cons '() __tmp59559)))) + (declare (not safe)) + (cons __tmp59593 __tmp59558))) + (__tmp59536 + (let ((__tmp59537 + (let ((__tmp59556 (gx#datum->syntax '#f 'lambda)) + (__tmp59538 + (let ((__tmp59539 + (let ((__tmp59540 + (let ((__tmp59555 + (gx#datum->syntax + '#f + 'set!)) + (__tmp59541 + (let ((__tmp59551 + (let ((__tmp59554 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f '&raw-table-count)) + (__tmp59552 + (let ((__tmp59553 (gx#datum->syntax '#f 'tab))) + (declare (not safe)) + (cons __tmp59553 '())))) + (declare (not safe)) + (cons __tmp59554 __tmp59552))) + (__tmp59542 + (let ((__tmp59543 + (let ((__tmp59550 (gx#datum->syntax '#f 'fx+)) + (__tmp59544 + (let ((__tmp59546 + (let ((__tmp59549 + (gx#datum->syntax + '#f + '&raw-table-count)) + (__tmp59547 + (let ((__tmp59548 + (gx#datum->syntax + '#f + 'tab))) + (declare (not safe)) + (cons __tmp59548 '())))) + (declare (not safe)) + (cons __tmp59549 __tmp59547))) + (__tmp59545 + (let () + (declare (not safe)) + (cons '1 '())))) + (declare (not safe)) + (cons __tmp59546 __tmp59545)))) + (declare (not safe)) + (cons __tmp59550 __tmp59544)))) + (declare (not safe)) + (cons __tmp59543 '())))) + (declare (not safe)) + (cons __tmp59551 __tmp59542)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59555 __tmp59541)))) + (declare (not safe)) + (cons __tmp59540 '())))) + (declare (not safe)) + (cons '() __tmp59539)))) + (declare (not safe)) + (cons __tmp59556 __tmp59538)))) + (declare (not safe)) + (cons __tmp59537 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59557 + __tmp59536)))) + (declare (not safe)) + (cons __tmp59594 __tmp59535)))) + (declare (not safe)) + (cons _L57476_ __tmp59534)))) + (declare (not safe)) + (cons __tmp59595 __tmp59533)))) + (declare (not safe)) + (cons _L57471_ __tmp59532)))) + (declare (not safe)) + (cons _L57473_ __tmp59531)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59596 + __tmp59530)))) + (declare (not safe)) + (cons __tmp59597 __tmp59529)))) + (declare (not safe)) + (cons __tmp59598 __tmp59528)))) + (declare (not safe)) + (cons __tmp59527 '())))) + (declare (not safe)) + (cons __tmp59599 __tmp59526)))) + (declare (not safe)) + (cons __tmp59615 __tmp59525)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59524 '())))) + (declare (not safe)) + (cons __tmp59616 __tmp59523)))) + (declare (not safe)) + (cons __tmp59624 __tmp59522))) + (__tmp59460 + (let ((__tmp59461 + (let ((__tmp59520 + (gx#datum->syntax '#f 'def)) + (__tmp59462 + (let ((__tmp59515 + (let ((__tmp59516 + (let ((__tmp59519 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'tab)) + (__tmp59517 + (let ((__tmp59518 (gx#datum->syntax '#f 'key))) + (declare (not safe)) + (cons __tmp59518 '())))) + (declare (not safe)) + (cons __tmp59519 __tmp59517)))) + (declare (not safe)) + (cons _L57474_ __tmp59516))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp59463 + (let ((__tmp59464 + (let ((__tmp59514 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'let)) + (__tmp59465 + (let ((__tmp59498 + (let ((__tmp59507 + (let ((__tmp59513 + (gx#datum->syntax '#f 'table)) + (__tmp59508 + (let ((__tmp59509 + (let ((__tmp59512 + (gx#datum->syntax + '#f + '&raw-table-table)) + (__tmp59510 + (let ((__tmp59511 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'tab))) + (declare (not safe)) + (cons __tmp59511 '())))) + (declare (not safe)) + (cons __tmp59512 __tmp59510)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59509 '())))) + (declare (not safe)) + (cons __tmp59513 __tmp59508))) + (__tmp59499 + (let ((__tmp59500 + (let ((__tmp59506 + (gx#datum->syntax + '#f + 'seed)) + (__tmp59501 + (let ((__tmp59502 + (let ((__tmp59505 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f '&raw-table-seed)) + (__tmp59503 + (let ((__tmp59504 (gx#datum->syntax '#f 'tab))) + (declare (not safe)) + (cons __tmp59504 '())))) + (declare (not safe)) + (cons __tmp59505 __tmp59503)))) + (declare (not safe)) + (cons __tmp59502 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59506 + __tmp59501)))) + (declare (not safe)) + (cons __tmp59500 '())))) + (declare (not safe)) + (cons __tmp59507 __tmp59499))) + (__tmp59466 + (let ((__tmp59467 + (let ((__tmp59497 + (gx#datum->syntax + '#f + '__table-del!)) + (__tmp59468 + (let ((__tmp59496 + (gx#datum->syntax + '#f + 'table)) + (__tmp59469 + (let ((__tmp59495 + (gx#datum->syntax + '#f + 'seed)) + (__tmp59470 + (let ((__tmp59471 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp59472 + (let ((__tmp59494 + (gx#datum->syntax '#f 'key)) + (__tmp59473 + (let ((__tmp59474 + (let ((__tmp59493 + (gx#datum->syntax + '#f + 'lambda)) + (__tmp59475 + (let ((__tmp59476 + (let ((__tmp59477 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp59492 (gx#datum->syntax '#f 'set!)) + (__tmp59478 + (let ((__tmp59488 + (let ((__tmp59491 + (gx#datum->syntax + '#f + '&raw-table-count)) + (__tmp59489 + (let ((__tmp59490 + (gx#datum->syntax + '#f + 'tab))) + (declare (not safe)) + (cons __tmp59490 '())))) + (declare (not safe)) + (cons __tmp59491 __tmp59489))) + (__tmp59479 + (let ((__tmp59480 + (let ((__tmp59487 + (gx#datum->syntax + '#f + 'fx-)) + (__tmp59481 + (let ((__tmp59483 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp59486 + (gx#datum->syntax '#f '&raw-table-count)) + (__tmp59484 + (let ((__tmp59485 + (gx#datum->syntax '#f 'tab))) + (declare (not safe)) + (cons __tmp59485 '())))) + (declare (not safe)) + (cons __tmp59486 __tmp59484))) + (__tmp59482 + (let () (declare (not safe)) (cons '1 '())))) + (declare (not safe)) + (cons __tmp59483 __tmp59482)))) + (declare (not safe)) + (cons __tmp59487 __tmp59481)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59480 '())))) + (declare (not safe)) + (cons __tmp59488 __tmp59479)))) + (declare (not safe)) + (cons __tmp59492 __tmp59478)))) + (declare (not safe)) + (cons __tmp59477 '())))) + (declare (not safe)) + (cons '() __tmp59476)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59493 + __tmp59475)))) + (declare (not safe)) + (cons __tmp59474 '())))) + (declare (not safe)) + (cons __tmp59494 __tmp59473)))) + (declare (not safe)) + (cons _L57471_ __tmp59472)))) + (declare (not safe)) + (cons _L57473_ __tmp59471)))) + (declare (not safe)) + (cons __tmp59495 __tmp59470)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59496 + __tmp59469)))) + (declare (not safe)) + (cons __tmp59497 __tmp59468)))) + (declare (not safe)) + (cons __tmp59467 '())))) + (declare (not safe)) + (cons __tmp59498 __tmp59466)))) + (declare (not safe)) + (cons __tmp59514 __tmp59465)))) + (declare (not safe)) + (cons __tmp59464 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59515 __tmp59463)))) + (declare (not safe)) + (cons __tmp59520 __tmp59462)))) + (declare (not safe)) + (cons __tmp59461 '())))) + (declare (not safe)) + (cons __tmp59521 __tmp59460)))) + (declare (not safe)) + (cons __tmp59625 __tmp59459)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59673 + __tmp59458)))) + (declare (not safe)) + (cons __tmp59775 __tmp59457)))) + (declare (not safe)) + (cons __tmp59821 __tmp59456)))) + (declare (not safe)) + (cons __tmp59864 __tmp59455)))) + (declare (not safe)) + (cons __tmp59885 __tmp59454))) + _hd5735757465_ + _hd5735457455_ + _hd5735157445_ + _hd5734857435_ + _hd5734557425_ + _hd5734257415_ + _hd5733957405_ + _hd5733657395_ + _hd5733357385_) + (_g5731857364_ _g5731957368_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g5731857364_ + _g5731957368_)))) + (_g5731857364_ _g5731957368_)))) + (_g5731857364_ _g5731957368_)))) + (_g5731857364_ _g5731957368_)))) + (_g5731857364_ _g5731957368_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g5731857364_ + _g5731957368_)))) + (_g5731857364_ _g5731957368_)))) + (_g5731857364_ _g5731957368_)))) + (_g5731857364_ _g5731957368_)))) + (_g5731857364_ _g5731957368_))))) + (_g5731757517_ _$stx57314_)))) + (define |[:0:]#probe-step| + (lambda (_$stx57521_) + (let* ((_g5752557547_ + (lambda (_g5752657543_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g5752657543_))) + (_g5752457616_ + (lambda (_g5752657551_) + (if (gx#stx-pair? _g5752657551_) + (let ((_e5753257554_ (gx#syntax-e _g5752657551_))) + (let ((_hd5753157558_ + (let () + (declare (not safe)) + (##car _e5753257554_))) + (_tl5753057561_ + (let () + (declare (not safe)) + (##cdr _e5753257554_)))) + (if (gx#stx-pair? _tl5753057561_) + (let ((_e5753557564_ (gx#syntax-e _tl5753057561_))) + (let ((_hd5753457568_ + (let () + (declare (not safe)) + (##car _e5753557564_))) + (_tl5753357571_ + (let () + (declare (not safe)) + (##cdr _e5753557564_)))) + (if (gx#stx-pair? _tl5753357571_) + (let ((_e5753857574_ + (gx#syntax-e _tl5753357571_))) + (let ((_hd5753757578_ + (let () + (declare (not safe)) + (##car _e5753857574_))) + (_tl5753657581_ + (let () + (declare (not safe)) + (##cdr _e5753857574_)))) + (if (gx#stx-pair? _tl5753657581_) + (let ((_e5754157584_ + (gx#syntax-e + _tl5753657581_))) + (let ((_hd5754057588_ + (let () + (declare (not safe)) + (##car _e5754157584_))) + (_tl5753957591_ + (let () + (declare (not safe)) + (##cdr _e5754157584_)))) + (if (gx#stx-null? + _tl5753957591_) + ((lambda (_L57594_ + _L57596_ + _L57597_) + (let ((__tmp59905 + (gx#datum->syntax + '#f + 'let)) + (__tmp59886 + (let ((__tmp59893 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp59904 + (gx#datum->syntax '#f 'next-probe)) + (__tmp59894 + (let ((__tmp59895 + (let ((__tmp59903 + (gx#datum->syntax '#f 'fx+)) + (__tmp59896 + (let ((__tmp59897 + (let ((__tmp59898 + (let ((__tmp59899 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp59902 (gx#datum->syntax '#f 'fx*)) + (__tmp59900 + (let ((__tmp59901 + (let () + (declare (not safe)) + (cons _L57596_ '())))) + (declare (not safe)) + (cons _L57596_ __tmp59901)))) + (declare (not safe)) + (cons __tmp59902 __tmp59900)))) + (declare (not safe)) + (cons __tmp59899 '())))) + (declare (not safe)) + (cons _L57596_ __tmp59898)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L57597_ + __tmp59897)))) + (declare (not safe)) + (cons __tmp59903 __tmp59896)))) + (declare (not safe)) + (cons __tmp59895 '())))) + (declare (not safe)) + (cons __tmp59904 __tmp59894))) + (__tmp59887 + (let ((__tmp59888 + (let ((__tmp59892 + (gx#datum->syntax '#f 'fxmodulo)) + (__tmp59889 + (let ((__tmp59891 + (gx#datum->syntax + '#f + 'next-probe)) + (__tmp59890 + (let () + (declare (not safe)) + (cons _L57594_ '())))) + (declare (not safe)) + (cons __tmp59891 __tmp59890)))) + (declare (not safe)) + (cons __tmp59892 __tmp59889)))) + (declare (not safe)) + (cons __tmp59888 '())))) + (declare (not safe)) + (cons __tmp59893 __tmp59887)))) + (declare (not safe)) + (cons __tmp59905 __tmp59886))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd5754057588_ + _hd5753757578_ + _hd5753457568_) + (_g5752557547_ + _g5752657551_)))) + (_g5752557547_ _g5752657551_)))) + (_g5752557547_ _g5752657551_)))) + (_g5752557547_ _g5752657551_)))) + (_g5752557547_ _g5752657551_))))) + (_g5752457616_ _$stx57521_)))) + (define |[:0:]#__table-ref| + (lambda (_$stx57620_) + (let* ((_g5762457658_ + (lambda (_g5762557654_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g5762557654_))) + (_g5762357769_ + (lambda (_g5762557662_) + (if (gx#stx-pair? _g5762557662_) + (let ((_e5763457665_ (gx#syntax-e _g5762557662_))) + (let ((_hd5763357669_ + (let () + (declare (not safe)) + (##car _e5763457665_))) + (_tl5763257672_ + (let () + (declare (not safe)) + (##cdr _e5763457665_)))) + (if (gx#stx-pair? _tl5763257672_) + (let ((_e5763757675_ (gx#syntax-e _tl5763257672_))) + (let ((_hd5763657679_ + (let () + (declare (not safe)) + (##car _e5763757675_))) + (_tl5763557682_ + (let () + (declare (not safe)) + (##cdr _e5763757675_)))) + (if (gx#stx-pair? _tl5763557682_) + (let ((_e5764057685_ + (gx#syntax-e _tl5763557682_))) + (let ((_hd5763957689_ + (let () + (declare (not safe)) + (##car _e5764057685_))) + (_tl5763857692_ + (let () + (declare (not safe)) + (##cdr _e5764057685_)))) + (if (gx#stx-pair? _tl5763857692_) + (let ((_e5764357695_ + (gx#syntax-e + _tl5763857692_))) + (let ((_hd5764257699_ + (let () + (declare (not safe)) + (##car _e5764357695_))) + (_tl5764157702_ + (let () + (declare (not safe)) + (##cdr _e5764357695_)))) + (if (gx#stx-pair? + _tl5764157702_) + (let ((_e5764657705_ + (gx#syntax-e + _tl5764157702_))) + (let ((_hd5764557709_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##car _e5764657705_))) + (_tl5764457712_ + (let () (declare (not safe)) (##cdr _e5764657705_)))) + (if (gx#stx-pair? _tl5764457712_) + (let ((_e5764957715_ (gx#syntax-e _tl5764457712_))) + (let ((_hd5764857719_ + (let () + (declare (not safe)) + (##car _e5764957715_))) + (_tl5764757722_ + (let () + (declare (not safe)) + (##cdr _e5764957715_)))) + (if (gx#stx-pair? _tl5764757722_) + (let ((_e5765257725_ (gx#syntax-e _tl5764757722_))) + (let ((_hd5765157729_ + (let () + (declare (not safe)) + (##car _e5765257725_))) + (_tl5765057732_ + (let () + (declare (not safe)) + (##cdr _e5765257725_)))) + (if (gx#stx-null? _tl5765057732_) + ((lambda (_L57735_ + _L57737_ + _L57738_ + _L57739_ + _L57740_ + _L57741_) + (let ((__tmp60064 + (gx#datum->syntax '#f 'let*)) + (__tmp59906 + (let ((__tmp60024 + (let ((__tmp60055 + (let ((__tmp60063 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'h)) + (__tmp60056 + (let ((__tmp60057 + (let ((__tmp60062 + (gx#datum->syntax '#f 'fxxor)) + (__tmp60058 + (let ((__tmp60060 + (let ((__tmp60061 + (let () + (declare (not safe)) + (cons _L57737_ '())))) + (declare (not safe)) + (cons _L57739_ __tmp60061))) + (__tmp60059 + (let () + (declare (not safe)) + (cons _L57740_ '())))) + (declare (not safe)) + (cons __tmp60060 __tmp60059)))) + (declare (not safe)) + (cons __tmp60062 __tmp60058)))) + (declare (not safe)) + (cons __tmp60057 '())))) + (declare (not safe)) + (cons __tmp60063 __tmp60056))) + (__tmp60025 + (let ((__tmp60049 + (let ((__tmp60054 (gx#datum->syntax '#f 'size)) + (__tmp60050 + (let ((__tmp60051 + (let ((__tmp60053 + (gx#datum->syntax + '#f + 'vector-length)) + (__tmp60052 + (let () + (declare (not safe)) + (cons _L57741_ '())))) + (declare (not safe)) + (cons __tmp60053 __tmp60052)))) + (declare (not safe)) + (cons __tmp60051 '())))) + (declare (not safe)) + (cons __tmp60054 __tmp60050))) + (__tmp60026 + (let ((__tmp60041 + (let ((__tmp60048 + (gx#datum->syntax '#f 'entries)) + (__tmp60042 + (let ((__tmp60043 + (let ((__tmp60047 + (gx#datum->syntax + '#f + 'fxquotient)) + (__tmp60044 + (let ((__tmp60046 + (gx#datum->syntax + '#f + 'size)) + (__tmp60045 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons '2 '())))) + (declare (not safe)) + (cons __tmp60046 __tmp60045)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60047 + __tmp60044)))) + (declare (not safe)) + (cons __tmp60043 '())))) + (declare (not safe)) + (cons __tmp60048 __tmp60042))) + (__tmp60027 + (let ((__tmp60028 + (let ((__tmp60040 + (gx#datum->syntax '#f 'start)) + (__tmp60029 + (let ((__tmp60030 + (let ((__tmp60039 + (gx#datum->syntax + '#f + 'fxarithmetic-shift-left)) + (__tmp60031 + (let ((__tmp60033 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60038 + (gx#datum->syntax '#f 'fxmodulo)) + (__tmp60034 + (let ((__tmp60037 + (gx#datum->syntax '#f 'h)) + (__tmp60035 + (let ((__tmp60036 + (gx#datum->syntax + '#f + 'entries))) + (declare (not safe)) + (cons __tmp60036 '())))) + (declare (not safe)) + (cons __tmp60037 __tmp60035)))) + (declare (not safe)) + (cons __tmp60038 __tmp60034))) + (__tmp60032 + (let () (declare (not safe)) (cons '1 '())))) + (declare (not safe)) + (cons __tmp60033 __tmp60032)))) + (declare (not safe)) + (cons __tmp60039 __tmp60031)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60030 '())))) + (declare (not safe)) + (cons __tmp60040 __tmp60029)))) + (declare (not safe)) + (cons __tmp60028 '())))) + (declare (not safe)) + (cons __tmp60041 __tmp60027)))) + (declare (not safe)) + (cons __tmp60049 __tmp60026)))) + (declare (not safe)) + (cons __tmp60055 __tmp60025))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp59907 + (let ((__tmp59908 + (let ((__tmp60023 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'let)) + (__tmp59909 + (let ((__tmp60022 (gx#datum->syntax '#f 'loop)) + (__tmp59910 + (let ((__tmp60009 + (let ((__tmp60018 + (let ((__tmp60021 + (gx#datum->syntax + '#f + 'probe)) + (__tmp60019 + (let ((__tmp60020 + (gx#datum->syntax + '#f + 'start))) + (declare (not safe)) + (cons __tmp60020 + '())))) + (declare (not safe)) + (cons __tmp60021 + __tmp60019))) + (__tmp60010 + (let ((__tmp60015 + (let ((__tmp60017 + (gx#datum->syntax + '#f + 'i)) + (__tmp60016 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons '1 '())))) + (declare (not safe)) + (cons __tmp60017 __tmp60016))) + (__tmp60011 + (let ((__tmp60012 + (let ((__tmp60014 (gx#datum->syntax '#f 'deleted)) + (__tmp60013 + (let () (declare (not safe)) (cons '#f '())))) + (declare (not safe)) + (cons __tmp60014 __tmp60013)))) + (declare (not safe)) + (cons __tmp60012 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60015 + __tmp60011)))) + (declare (not safe)) + (cons __tmp60018 __tmp60010))) + (__tmp59911 + (let ((__tmp59912 + (let ((__tmp60008 + (gx#datum->syntax + '#f + 'let)) + (__tmp59913 + (let ((__tmp60000 + (let ((__tmp60007 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'k)) + (__tmp60001 + (let ((__tmp60002 + (let ((__tmp60006 + (gx#datum->syntax '#f 'vector-ref)) + (__tmp60003 + (let ((__tmp60004 + (let ((__tmp60005 + (gx#datum->syntax + '#f + 'probe))) + (declare (not safe)) + (cons __tmp60005 '())))) + (declare (not safe)) + (cons _L57741_ __tmp60004)))) + (declare (not safe)) + (cons __tmp60006 __tmp60003)))) + (declare (not safe)) + (cons __tmp60002 '())))) + (declare (not safe)) + (cons __tmp60007 __tmp60001))) + (__tmp59914 + (let ((__tmp59915 + (let ((__tmp59999 (gx#datum->syntax '#f 'cond)) + (__tmp59916 + (let ((__tmp59990 + (let ((__tmp59992 + (let ((__tmp59998 + (gx#datum->syntax + '#f + 'eq?)) + (__tmp59993 + (let ((__tmp59997 + (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'k)) + (__tmp59994 + (let ((__tmp59995 + (let ((__tmp59996 + (gx#datum->syntax + '#f + 'macro-unused-obj))) + (declare (not safe)) + (cons __tmp59996 '())))) + (declare (not safe)) + (cons __tmp59995 '())))) + (declare (not safe)) + (cons __tmp59997 __tmp59994)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59998 + __tmp59993))) + (__tmp59991 + (let () + (declare (not safe)) + (cons _L57735_ '())))) + (declare (not safe)) + (cons __tmp59992 __tmp59991))) + (__tmp59917 + (let ((__tmp59957 + (let ((__tmp59983 + (let ((__tmp59989 + (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'eq?)) + (__tmp59984 + (let ((__tmp59988 (gx#datum->syntax '#f 'k)) + (__tmp59985 + (let ((__tmp59986 + (let ((__tmp59987 + (gx#datum->syntax + '#f + 'macro-deleted-obj))) + (declare (not safe)) + (cons __tmp59987 '())))) + (declare (not safe)) + (cons __tmp59986 '())))) + (declare (not safe)) + (cons __tmp59988 __tmp59985)))) + (declare (not safe)) + (cons __tmp59989 __tmp59984))) + (__tmp59958 + (let ((__tmp59959 + (let ((__tmp59982 (gx#datum->syntax '#f 'loop)) + (__tmp59960 + (let ((__tmp59974 + (let ((__tmp59981 + (gx#datum->syntax + '#f + 'probe-step)) + (__tmp59975 + (let ((__tmp59980 + (gx#datum->syntax + '#f + 'start)) + (__tmp59976 + (let ((__tmp59979 + (gx#datum->syntax + '#f + 'i)) + (__tmp59977 + (let ((__tmp59978 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'size))) + (declare (not safe)) + (cons __tmp59978 '())))) + (declare (not safe)) + (cons __tmp59979 __tmp59977)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59980 __tmp59976)))) + (declare (not safe)) + (cons __tmp59981 __tmp59975))) + (__tmp59961 + (let ((__tmp59969 + (let ((__tmp59973 + (gx#datum->syntax + '#f + 'fx+)) + (__tmp59970 + (let ((__tmp59972 + (gx#datum->syntax + '#f + 'i)) + (__tmp59971 + (let () + (declare + (not safe)) + (cons '1 '())))) + (declare (not safe)) + (cons __tmp59972 + __tmp59971)))) + (declare (not safe)) + (cons __tmp59973 __tmp59970))) + (__tmp59962 + (let ((__tmp59963 + (let ((__tmp59968 + (gx#datum->syntax + '#f + 'or)) + (__tmp59964 + (let ((__tmp59967 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'deleted)) + (__tmp59965 + (let ((__tmp59966 (gx#datum->syntax '#f 'probe))) + (declare (not safe)) + (cons __tmp59966 '())))) + (declare (not safe)) + (cons __tmp59967 __tmp59965)))) + (declare (not safe)) + (cons __tmp59968 __tmp59964)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59963 '())))) + (declare (not safe)) + (cons __tmp59969 __tmp59962)))) + (declare (not safe)) + (cons __tmp59974 __tmp59961)))) + (declare (not safe)) + (cons __tmp59982 __tmp59960)))) + (declare (not safe)) + (cons __tmp59959 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59983 + __tmp59958))) + (__tmp59918 + (let ((__tmp59942 + (let ((__tmp59953 + (let ((__tmp59954 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp59955 + (let ((__tmp59956 + (gx#datum->syntax '#f 'k))) + (declare (not safe)) + (cons __tmp59956 '())))) + (declare (not safe)) + (cons _L57737_ __tmp59955)))) + (declare (not safe)) + (cons _L57738_ __tmp59954))) + (__tmp59943 + (let ((__tmp59944 + (let ((__tmp59952 + (gx#datum->syntax '#f 'vector-ref)) + (__tmp59945 + (let ((__tmp59946 + (let ((__tmp59947 + (let ((__tmp59951 + (gx#datum->syntax + '#f + 'fx+)) + (__tmp59948 + (let ((__tmp59950 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'probe)) + (__tmp59949 + (let () (declare (not safe)) (cons '1 '())))) + (declare (not safe)) + (cons __tmp59950 __tmp59949)))) + (declare (not safe)) + (cons __tmp59951 __tmp59948)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59947 '())))) + (declare (not safe)) + (cons _L57741_ __tmp59946)))) + (declare (not safe)) + (cons __tmp59952 __tmp59945)))) + (declare (not safe)) + (cons __tmp59944 '())))) + (declare (not safe)) + (cons __tmp59953 __tmp59943))) + (__tmp59919 + (let ((__tmp59920 + (let ((__tmp59941 (gx#datum->syntax '#f 'else)) + (__tmp59921 + (let ((__tmp59922 + (let ((__tmp59940 + (gx#datum->syntax '#f 'loop)) + (__tmp59923 + (let ((__tmp59932 + (let ((__tmp59939 + (gx#datum->syntax + '#f + 'probe-step)) + (__tmp59933 + (let ((__tmp59938 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'start)) + (__tmp59934 + (let ((__tmp59937 (gx#datum->syntax '#f 'i)) + (__tmp59935 + (let ((__tmp59936 + (gx#datum->syntax '#f 'size))) + (declare (not safe)) + (cons __tmp59936 '())))) + (declare (not safe)) + (cons __tmp59937 __tmp59935)))) + (declare (not safe)) + (cons __tmp59938 __tmp59934)))) + (declare (not safe)) + (cons __tmp59939 __tmp59933))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp59924 + (let ((__tmp59927 + (let ((__tmp59931 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'fx+)) + (__tmp59928 + (let ((__tmp59930 (gx#datum->syntax '#f 'i)) + (__tmp59929 + (let () (declare (not safe)) (cons '1 '())))) + (declare (not safe)) + (cons __tmp59930 __tmp59929)))) + (declare (not safe)) + (cons __tmp59931 __tmp59928))) + (__tmp59925 + (let ((__tmp59926 (gx#datum->syntax '#f 'deleted))) + (declare (not safe)) + (cons __tmp59926 '())))) + (declare (not safe)) + (cons __tmp59927 __tmp59925)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59932 __tmp59924)))) + (declare (not safe)) + (cons __tmp59940 __tmp59923)))) + (declare (not safe)) + (cons __tmp59922 '())))) + (declare (not safe)) + (cons __tmp59941 __tmp59921)))) + (declare (not safe)) + (cons __tmp59920 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp59942 + __tmp59919)))) + (declare (not safe)) + (cons __tmp59957 __tmp59918)))) + (declare (not safe)) + (cons __tmp59990 __tmp59917)))) + (declare (not safe)) + (cons __tmp59999 __tmp59916)))) + (declare (not safe)) + (cons __tmp59915 '())))) + (declare (not safe)) + (cons __tmp60000 __tmp59914)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60008 + __tmp59913)))) + (declare (not safe)) + (cons __tmp59912 '())))) + (declare (not safe)) + (cons __tmp60009 __tmp59911)))) + (declare (not safe)) + (cons __tmp60022 __tmp59910)))) + (declare (not safe)) + (cons __tmp60023 __tmp59909)))) + (declare (not safe)) + (cons __tmp59908 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60024 __tmp59907)))) + (declare (not safe)) + (cons __tmp60064 __tmp59906))) + _hd5765157729_ + _hd5764857719_ + _hd5764557709_ + _hd5764257699_ + _hd5763957689_ + _hd5763657679_) + (_g5762457658_ _g5762557662_)))) + (_g5762457658_ _g5762557662_)))) + (_g5762457658_ _g5762557662_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g5762457658_ + _g5762557662_)))) + (_g5762457658_ _g5762557662_)))) + (_g5762457658_ _g5762557662_)))) + (_g5762457658_ _g5762557662_)))) + (_g5762457658_ _g5762557662_))))) + (_g5762357769_ _$stx57620_)))) + (define |[:0:]#__table-set!| + (lambda (_$stx57773_) + (let* ((_g5777757819_ + (lambda (_g5777857815_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g5777857815_))) + (_g5777657958_ + (lambda (_g5777857823_) + (if (gx#stx-pair? _g5777857823_) + (let ((_e5778957826_ (gx#syntax-e _g5777857823_))) + (let ((_hd5778857830_ + (let () + (declare (not safe)) + (##car _e5778957826_))) + (_tl5778757833_ + (let () + (declare (not safe)) + (##cdr _e5778957826_)))) + (if (gx#stx-pair? _tl5778757833_) + (let ((_e5779257836_ (gx#syntax-e _tl5778757833_))) + (let ((_hd5779157840_ + (let () + (declare (not safe)) + (##car _e5779257836_))) + (_tl5779057843_ + (let () + (declare (not safe)) + (##cdr _e5779257836_)))) + (if (gx#stx-pair? _tl5779057843_) + (let ((_e5779557846_ + (gx#syntax-e _tl5779057843_))) + (let ((_hd5779457850_ + (let () + (declare (not safe)) + (##car _e5779557846_))) + (_tl5779357853_ + (let () + (declare (not safe)) + (##cdr _e5779557846_)))) + (if (gx#stx-pair? _tl5779357853_) + (let ((_e5779857856_ + (gx#syntax-e + _tl5779357853_))) + (let ((_hd5779757860_ + (let () + (declare (not safe)) + (##car _e5779857856_))) + (_tl5779657863_ + (let () + (declare (not safe)) + (##cdr _e5779857856_)))) + (if (gx#stx-pair? + _tl5779657863_) + (let ((_e5780157866_ + (gx#syntax-e + _tl5779657863_))) + (let ((_hd5780057870_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##car _e5780157866_))) + (_tl5779957873_ + (let () (declare (not safe)) (##cdr _e5780157866_)))) + (if (gx#stx-pair? _tl5779957873_) + (let ((_e5780457876_ (gx#syntax-e _tl5779957873_))) + (let ((_hd5780357880_ + (let () + (declare (not safe)) + (##car _e5780457876_))) + (_tl5780257883_ + (let () + (declare (not safe)) + (##cdr _e5780457876_)))) + (if (gx#stx-pair? _tl5780257883_) + (let ((_e5780757886_ (gx#syntax-e _tl5780257883_))) + (let ((_hd5780657890_ + (let () + (declare (not safe)) + (##car _e5780757886_))) + (_tl5780557893_ + (let () + (declare (not safe)) + (##cdr _e5780757886_)))) + (if (gx#stx-pair? _tl5780557893_) + (let ((_e5781057896_ + (gx#syntax-e _tl5780557893_))) + (let ((_hd5780957900_ + (let () + (declare (not safe)) + (##car _e5781057896_))) + (_tl5780857903_ + (let () + (declare (not safe)) + (##cdr _e5781057896_)))) + (if (gx#stx-pair? _tl5780857903_) + (let ((_e5781357906_ + (gx#syntax-e + _tl5780857903_))) + (let ((_hd5781257910_ + (let () + (declare (not safe)) + (##car _e5781357906_))) + (_tl5781157913_ + (let () + (declare (not safe)) + (##cdr _e5781357906_)))) + (if (gx#stx-null? + _tl5781157913_) + ((lambda (_L57916_ + _L57918_ + _L57919_ + _L57920_ + _L57921_ + _L57922_ + _L57923_ + _L57924_) + (let ((__tmp60281 + (gx#datum->syntax + '#f + 'let*)) + (__tmp60065 + (let ((__tmp60241 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60272 + (let ((__tmp60280 + (gx#datum->syntax '#f 'h)) + (__tmp60273 + (let ((__tmp60274 + (let ((__tmp60279 + (gx#datum->syntax + '#f + 'fxxor)) + (__tmp60275 + (let ((__tmp60277 + (let ((__tmp60278 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _L57920_ '())))) + (declare (not safe)) + (cons _L57922_ __tmp60278))) + (__tmp60276 + (let () (declare (not safe)) (cons _L57923_ '())))) + (declare (not safe)) + (cons __tmp60277 __tmp60276)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60279 + __tmp60275)))) + (declare (not safe)) + (cons __tmp60274 '())))) + (declare (not safe)) + (cons __tmp60280 __tmp60273))) + (__tmp60242 + (let ((__tmp60266 + (let ((__tmp60271 + (gx#datum->syntax '#f 'size)) + (__tmp60267 + (let ((__tmp60268 + (let ((__tmp60270 + (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'vector-length)) + (__tmp60269 + (let () (declare (not safe)) (cons _L57924_ '())))) + (declare (not safe)) + (cons __tmp60270 __tmp60269)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60268 '())))) + (declare (not safe)) + (cons __tmp60271 __tmp60267))) + (__tmp60243 + (let ((__tmp60258 + (let ((__tmp60265 + (gx#datum->syntax + '#f + 'entries)) + (__tmp60259 + (let ((__tmp60260 + (let ((__tmp60264 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'fxquotient)) + (__tmp60261 + (let ((__tmp60263 (gx#datum->syntax '#f 'size)) + (__tmp60262 + (let () + (declare (not safe)) + (cons '2 '())))) + (declare (not safe)) + (cons __tmp60263 __tmp60262)))) + (declare (not safe)) + (cons __tmp60264 __tmp60261)))) + (declare (not safe)) + (cons __tmp60260 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60265 + __tmp60259))) + (__tmp60244 + (let ((__tmp60245 + (let ((__tmp60257 + (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'start)) + (__tmp60246 + (let ((__tmp60247 + (let ((__tmp60256 + (gx#datum->syntax + '#f + 'fxarithmetic-shift-left)) + (__tmp60248 + (let ((__tmp60250 + (let ((__tmp60255 + (gx#datum->syntax + '#f + 'fxmodulo)) + (__tmp60251 + (let ((__tmp60254 + (gx#datum->syntax + '#f + 'h)) + (__tmp60252 + (let ((__tmp60253 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'entries))) + (declare (not safe)) + (cons __tmp60253 '())))) + (declare (not safe)) + (cons __tmp60254 __tmp60252)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60255 __tmp60251))) + (__tmp60249 + (let () + (declare (not safe)) + (cons '1 '())))) + (declare (not safe)) + (cons __tmp60250 __tmp60249)))) + (declare (not safe)) + (cons __tmp60256 __tmp60248)))) + (declare (not safe)) + (cons __tmp60247 '())))) + (declare (not safe)) + (cons __tmp60257 __tmp60246)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60245 '())))) + (declare (not safe)) + (cons __tmp60258 __tmp60244)))) + (declare (not safe)) + (cons __tmp60266 __tmp60243)))) + (declare (not safe)) + (cons __tmp60272 __tmp60242))) + (__tmp60066 + (let ((__tmp60067 + (let ((__tmp60240 + (gx#datum->syntax '#f 'let)) + (__tmp60068 + (let ((__tmp60239 + (gx#datum->syntax '#f 'loop)) + (__tmp60069 + (let ((__tmp60226 + (let ((__tmp60235 + (let ((__tmp60238 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'probe)) + (__tmp60236 + (let ((__tmp60237 + (gx#datum->syntax '#f 'start))) + (declare (not safe)) + (cons __tmp60237 '())))) + (declare (not safe)) + (cons __tmp60238 __tmp60236))) + (__tmp60227 + (let ((__tmp60232 + (let ((__tmp60234 (gx#datum->syntax '#f 'i)) + (__tmp60233 + (let () + (declare (not safe)) + (cons '1 '())))) + (declare (not safe)) + (cons __tmp60234 __tmp60233))) + (__tmp60228 + (let ((__tmp60229 + (let ((__tmp60231 + (gx#datum->syntax '#f 'deleted)) + (__tmp60230 + (let () + (declare (not safe)) + (cons '#f '())))) + (declare (not safe)) + (cons __tmp60231 __tmp60230)))) + (declare (not safe)) + (cons __tmp60229 '())))) + (declare (not safe)) + (cons __tmp60232 __tmp60228)))) + (declare (not safe)) + (cons __tmp60235 __tmp60227))) + (__tmp60070 + (let ((__tmp60071 + (let ((__tmp60225 (gx#datum->syntax '#f 'let)) + (__tmp60072 + (let ((__tmp60217 + (let ((__tmp60224 + (gx#datum->syntax '#f 'k)) + (__tmp60218 + (let ((__tmp60219 + (let ((__tmp60223 + (gx#datum->syntax + '#f + 'vector-ref)) + (__tmp60220 + (let ((__tmp60221 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60222 (gx#datum->syntax '#f 'probe))) + (declare (not safe)) + (cons __tmp60222 '())))) + (declare (not safe)) + (cons _L57924_ __tmp60221)))) + (declare (not safe)) + (cons __tmp60223 __tmp60220)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60219 '())))) + (declare (not safe)) + (cons __tmp60224 __tmp60218))) + (__tmp60073 + (let ((__tmp60074 + (let ((__tmp60216 + (gx#datum->syntax + '#f + 'cond)) + (__tmp60075 + (let ((__tmp60157 + (let ((__tmp60209 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60215 (gx#datum->syntax '#f 'eq?)) + (__tmp60210 + (let ((__tmp60214 (gx#datum->syntax '#f 'k)) + (__tmp60211 + (let ((__tmp60212 + (let ((__tmp60213 + (gx#datum->syntax + '#f + 'macro-unused-obj))) + (declare (not safe)) + (cons __tmp60213 '())))) + (declare (not safe)) + (cons __tmp60212 '())))) + (declare (not safe)) + (cons __tmp60214 __tmp60211)))) + (declare (not safe)) + (cons __tmp60215 __tmp60210))) + (__tmp60158 + (let ((__tmp60159 + (let ((__tmp60208 (gx#datum->syntax '#f 'if)) + (__tmp60160 + (let ((__tmp60207 + (gx#datum->syntax '#f 'deleted)) + (__tmp60161 + (let ((__tmp60185 + (let ((__tmp60206 + (gx#datum->syntax + '#f + 'begin)) + (__tmp60186 + (let ((__tmp60200 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60205 + (gx#datum->syntax '#f 'vector-set!)) + (__tmp60201 + (let ((__tmp60202 + (let ((__tmp60204 + (gx#datum->syntax + '#f + 'deleted)) + (__tmp60203 + (let () + (declare (not safe)) + (cons _L57920_ '())))) + (declare (not safe)) + (cons __tmp60204 __tmp60203)))) + (declare (not safe)) + (cons _L57924_ __tmp60202)))) + (declare (not safe)) + (cons __tmp60205 __tmp60201))) + (__tmp60187 + (let ((__tmp60190 + (let ((__tmp60199 + (gx#datum->syntax '#f 'vector-set!)) + (__tmp60191 + (let ((__tmp60192 + (let ((__tmp60194 + (let ((__tmp60198 + (gx#datum->syntax + '#f + 'fx+)) + (__tmp60195 + (let ((__tmp60197 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'deleted)) + (__tmp60196 + (let () (declare (not safe)) (cons '1 '())))) + (declare (not safe)) + (cons __tmp60197 __tmp60196)))) + (declare (not safe)) + (cons __tmp60198 __tmp60195))) + (__tmp60193 (let () (declare (not safe)) (cons _L57919_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60194 + __tmp60193)))) + (declare (not safe)) + (cons _L57924_ __tmp60192)))) + (declare (not safe)) + (cons __tmp60199 __tmp60191))) + (__tmp60188 + (let ((__tmp60189 + (let () + (declare (not safe)) + (cons _L57916_ '())))) + (declare (not safe)) + (cons __tmp60189 '())))) + (declare (not safe)) + (cons __tmp60190 __tmp60188)))) + (declare (not safe)) + (cons __tmp60200 __tmp60187)))) + (declare (not safe)) + (cons __tmp60206 __tmp60186))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp60162 + (let ((__tmp60163 + (let ((__tmp60184 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'begin)) + (__tmp60164 + (let ((__tmp60178 + (let ((__tmp60183 + (gx#datum->syntax '#f 'vector-set!)) + (__tmp60179 + (let ((__tmp60180 + (let ((__tmp60182 + (gx#datum->syntax + '#f + 'probe)) + (__tmp60181 + (let () + (declare (not safe)) + (cons _L57920_ + '())))) + (declare (not safe)) + (cons __tmp60182 + __tmp60181)))) + (declare (not safe)) + (cons _L57924_ __tmp60180)))) + (declare (not safe)) + (cons __tmp60183 __tmp60179))) + (__tmp60165 + (let ((__tmp60168 + (let ((__tmp60177 + (gx#datum->syntax + '#f + 'vector-set!)) + (__tmp60169 + (let ((__tmp60170 + (let ((__tmp60172 + (let ((__tmp60176 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'fx+)) + (__tmp60173 + (let ((__tmp60175 (gx#datum->syntax '#f 'probe)) + (__tmp60174 + (let () + (declare (not safe)) + (cons '1 '())))) + (declare (not safe)) + (cons __tmp60175 __tmp60174)))) + (declare (not safe)) + (cons __tmp60176 __tmp60173))) + (__tmp60171 + (let () (declare (not safe)) (cons _L57919_ '())))) + (declare (not safe)) + (cons __tmp60172 __tmp60171)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L57924_ + __tmp60170)))) + (declare (not safe)) + (cons __tmp60177 __tmp60169))) + (__tmp60166 + (let ((__tmp60167 + (let () + (declare (not safe)) + (cons _L57918_ '())))) + (declare (not safe)) + (cons __tmp60167 '())))) + (declare (not safe)) + (cons __tmp60168 __tmp60166)))) + (declare (not safe)) + (cons __tmp60178 __tmp60165)))) + (declare (not safe)) + (cons __tmp60184 __tmp60164)))) + (declare (not safe)) + (cons __tmp60163 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60185 + __tmp60162)))) + (declare (not safe)) + (cons __tmp60207 __tmp60161)))) + (declare (not safe)) + (cons __tmp60208 __tmp60160)))) + (declare (not safe)) + (cons __tmp60159 '())))) + (declare (not safe)) + (cons __tmp60209 __tmp60158))) + (__tmp60076 + (let ((__tmp60124 + (let ((__tmp60150 + (let ((__tmp60156 (gx#datum->syntax '#f 'eq?)) + (__tmp60151 + (let ((__tmp60155 + (gx#datum->syntax '#f 'k)) + (__tmp60152 + (let ((__tmp60153 + (let ((__tmp60154 + (gx#datum->syntax + '#f + 'macro-deleted-obj))) + (declare (not safe)) + (cons __tmp60154 + '())))) + (declare (not safe)) + (cons __tmp60153 '())))) + (declare (not safe)) + (cons __tmp60155 __tmp60152)))) + (declare (not safe)) + (cons __tmp60156 __tmp60151))) + (__tmp60125 + (let ((__tmp60126 + (let ((__tmp60149 + (gx#datum->syntax '#f 'loop)) + (__tmp60127 + (let ((__tmp60141 + (let ((__tmp60148 + (gx#datum->syntax + '#f + 'probe-step)) + (__tmp60142 + (let ((__tmp60147 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'start)) + (__tmp60143 + (let ((__tmp60146 (gx#datum->syntax '#f 'i)) + (__tmp60144 + (let ((__tmp60145 + (gx#datum->syntax '#f 'size))) + (declare (not safe)) + (cons __tmp60145 '())))) + (declare (not safe)) + (cons __tmp60146 __tmp60144)))) + (declare (not safe)) + (cons __tmp60147 __tmp60143)))) + (declare (not safe)) + (cons __tmp60148 __tmp60142))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp60128 + (let ((__tmp60136 + (let ((__tmp60140 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'fx+)) + (__tmp60137 + (let ((__tmp60139 (gx#datum->syntax '#f 'i)) + (__tmp60138 + (let () + (declare (not safe)) + (cons '1 '())))) + (declare (not safe)) + (cons __tmp60139 __tmp60138)))) + (declare (not safe)) + (cons __tmp60140 __tmp60137))) + (__tmp60129 + (let ((__tmp60130 + (let ((__tmp60135 (gx#datum->syntax '#f 'or)) + (__tmp60131 + (let ((__tmp60134 + (gx#datum->syntax '#f 'deleted)) + (__tmp60132 + (let ((__tmp60133 + (gx#datum->syntax + '#f + 'probe))) + (declare (not safe)) + (cons __tmp60133 '())))) + (declare (not safe)) + (cons __tmp60134 __tmp60132)))) + (declare (not safe)) + (cons __tmp60135 __tmp60131)))) + (declare (not safe)) + (cons __tmp60130 '())))) + (declare (not safe)) + (cons __tmp60136 __tmp60129)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60141 + __tmp60128)))) + (declare (not safe)) + (cons __tmp60149 __tmp60127)))) + (declare (not safe)) + (cons __tmp60126 '())))) + (declare (not safe)) + (cons __tmp60150 __tmp60125))) + (__tmp60077 + (let ((__tmp60101 + (let ((__tmp60120 + (let ((__tmp60121 + (let ((__tmp60122 + (let ((__tmp60123 + (gx#datum->syntax + '#f + 'k))) + (declare (not safe)) + (cons __tmp60123 + '())))) + (declare (not safe)) + (cons _L57920_ __tmp60122)))) + (declare (not safe)) + (cons _L57921_ __tmp60121))) + (__tmp60102 + (let ((__tmp60114 + (let ((__tmp60119 + (gx#datum->syntax + '#f + 'vector-set!)) + (__tmp60115 + (let ((__tmp60116 + (let ((__tmp60118 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'probe)) + (__tmp60117 + (let () (declare (not safe)) (cons _L57920_ '())))) + (declare (not safe)) + (cons __tmp60118 __tmp60117)))) + (declare (not safe)) + (cons _L57924_ __tmp60116)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60119 __tmp60115))) + (__tmp60103 + (let ((__tmp60104 + (let ((__tmp60113 + (gx#datum->syntax + '#f + 'vector-set!)) + (__tmp60105 + (let ((__tmp60106 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60108 + (let ((__tmp60112 + (gx#datum->syntax '#f 'fx+)) + (__tmp60109 + (let ((__tmp60111 + (gx#datum->syntax '#f 'probe)) + (__tmp60110 + (let () + (declare (not safe)) + (cons '1 '())))) + (declare (not safe)) + (cons __tmp60111 __tmp60110)))) + (declare (not safe)) + (cons __tmp60112 __tmp60109))) + (__tmp60107 + (let () + (declare (not safe)) + (cons _L57919_ '())))) + (declare (not safe)) + (cons __tmp60108 __tmp60107)))) + (declare (not safe)) + (cons _L57924_ __tmp60106)))) + (declare (not safe)) + (cons __tmp60113 __tmp60105)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60104 '())))) + (declare (not safe)) + (cons __tmp60114 __tmp60103)))) + (declare (not safe)) + (cons __tmp60120 __tmp60102))) + (__tmp60078 + (let ((__tmp60079 + (let ((__tmp60100 + (gx#datum->syntax '#f 'else)) + (__tmp60080 + (let ((__tmp60081 + (let ((__tmp60099 + (gx#datum->syntax + '#f + 'loop)) + (__tmp60082 + (let ((__tmp60091 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60098 + (gx#datum->syntax '#f 'probe-step)) + (__tmp60092 + (let ((__tmp60097 + (gx#datum->syntax '#f 'start)) + (__tmp60093 + (let ((__tmp60096 + (gx#datum->syntax '#f 'i)) + (__tmp60094 + (let ((__tmp60095 + (gx#datum->syntax + '#f + 'size))) + (declare (not safe)) + (cons __tmp60095 '())))) + (declare (not safe)) + (cons __tmp60096 __tmp60094)))) + (declare (not safe)) + (cons __tmp60097 __tmp60093)))) + (declare (not safe)) + (cons __tmp60098 __tmp60092))) + (__tmp60083 + (let ((__tmp60086 + (let ((__tmp60090 + (gx#datum->syntax '#f 'fx+)) + (__tmp60087 + (let ((__tmp60089 + (gx#datum->syntax '#f 'i)) + (__tmp60088 + (let () + (declare (not safe)) + (cons '1 '())))) + (declare (not safe)) + (cons __tmp60089 __tmp60088)))) + (declare (not safe)) + (cons __tmp60090 __tmp60087))) + (__tmp60084 + (let ((__tmp60085 + (gx#datum->syntax '#f 'deleted))) + (declare (not safe)) + (cons __tmp60085 '())))) + (declare (not safe)) + (cons __tmp60086 __tmp60084)))) + (declare (not safe)) + (cons __tmp60091 __tmp60083)))) + (declare (not safe)) + (cons __tmp60099 __tmp60082)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60081 '())))) + (declare (not safe)) + (cons __tmp60100 __tmp60080)))) + (declare (not safe)) + (cons __tmp60079 '())))) + (declare (not safe)) + (cons __tmp60101 __tmp60078)))) + (declare (not safe)) + (cons __tmp60124 __tmp60077)))) + (declare (not safe)) + (cons __tmp60157 __tmp60076)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60216 __tmp60075)))) + (declare (not safe)) + (cons __tmp60074 '())))) + (declare (not safe)) + (cons __tmp60217 __tmp60073)))) + (declare (not safe)) + (cons __tmp60225 __tmp60072)))) + (declare (not safe)) + (cons __tmp60071 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60226 + __tmp60070)))) + (declare (not safe)) + (cons __tmp60239 __tmp60069)))) + (declare (not safe)) + (cons __tmp60240 __tmp60068)))) + (declare (not safe)) + (cons __tmp60067 '())))) + (declare (not safe)) + (cons __tmp60241 __tmp60066)))) + (declare (not safe)) + (cons __tmp60281 __tmp60065))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd5781257910_ + _hd5780957900_ + _hd5780657890_ + _hd5780357880_ + _hd5780057870_ + _hd5779757860_ + _hd5779457850_ + _hd5779157840_) + (_g5777757819_ + _g5777857823_)))) + (_g5777757819_ _g5777857823_)))) + (_g5777757819_ _g5777857823_)))) + (_g5777757819_ _g5777857823_)))) + (_g5777757819_ _g5777857823_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g5777757819_ + _g5777857823_)))) + (_g5777757819_ _g5777857823_)))) + (_g5777757819_ _g5777857823_)))) + (_g5777757819_ _g5777857823_)))) + (_g5777757819_ _g5777857823_))))) + (_g5777657958_ _$stx57773_)))) + (define |[:0:]#__table-update!| + (lambda (_$stx57962_) + (let* ((_g5796658012_ + (lambda (_g5796758008_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g5796758008_))) + (_g5796558165_ + (lambda (_g5796758016_) + (if (gx#stx-pair? _g5796758016_) + (let ((_e5797958019_ (gx#syntax-e _g5796758016_))) + (let ((_hd5797858023_ + (let () + (declare (not safe)) + (##car _e5797958019_))) + (_tl5797758026_ + (let () + (declare (not safe)) + (##cdr _e5797958019_)))) + (if (gx#stx-pair? _tl5797758026_) + (let ((_e5798258029_ (gx#syntax-e _tl5797758026_))) + (let ((_hd5798158033_ + (let () + (declare (not safe)) + (##car _e5798258029_))) + (_tl5798058036_ + (let () + (declare (not safe)) + (##cdr _e5798258029_)))) + (if (gx#stx-pair? _tl5798058036_) + (let ((_e5798558039_ + (gx#syntax-e _tl5798058036_))) + (let ((_hd5798458043_ + (let () + (declare (not safe)) + (##car _e5798558039_))) + (_tl5798358046_ + (let () + (declare (not safe)) + (##cdr _e5798558039_)))) + (if (gx#stx-pair? _tl5798358046_) + (let ((_e5798858049_ + (gx#syntax-e + _tl5798358046_))) + (let ((_hd5798758053_ + (let () + (declare (not safe)) + (##car _e5798858049_))) + (_tl5798658056_ + (let () + (declare (not safe)) + (##cdr _e5798858049_)))) + (if (gx#stx-pair? + _tl5798658056_) + (let ((_e5799158059_ + (gx#syntax-e + _tl5798658056_))) + (let ((_hd5799058063_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##car _e5799158059_))) + (_tl5798958066_ + (let () (declare (not safe)) (##cdr _e5799158059_)))) + (if (gx#stx-pair? _tl5798958066_) + (let ((_e5799458069_ (gx#syntax-e _tl5798958066_))) + (let ((_hd5799358073_ + (let () + (declare (not safe)) + (##car _e5799458069_))) + (_tl5799258076_ + (let () + (declare (not safe)) + (##cdr _e5799458069_)))) + (if (gx#stx-pair? _tl5799258076_) + (let ((_e5799758079_ (gx#syntax-e _tl5799258076_))) + (let ((_hd5799658083_ + (let () + (declare (not safe)) + (##car _e5799758079_))) + (_tl5799558086_ + (let () + (declare (not safe)) + (##cdr _e5799758079_)))) + (if (gx#stx-pair? _tl5799558086_) + (let ((_e5800058089_ + (gx#syntax-e _tl5799558086_))) + (let ((_hd5799958093_ + (let () + (declare (not safe)) + (##car _e5800058089_))) + (_tl5799858096_ + (let () + (declare (not safe)) + (##cdr _e5800058089_)))) + (if (gx#stx-pair? _tl5799858096_) + (let ((_e5800358099_ + (gx#syntax-e + _tl5799858096_))) + (let ((_hd5800258103_ + (let () + (declare (not safe)) + (##car _e5800358099_))) + (_tl5800158106_ + (let () + (declare (not safe)) + (##cdr _e5800358099_)))) + (if (gx#stx-pair? + _tl5800158106_) + (let ((_e5800658109_ + (gx#syntax-e + _tl5800158106_))) + (let ((_hd5800558113_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##car _e5800658109_))) + (_tl5800458116_ + (let () (declare (not safe)) (##cdr _e5800658109_)))) + (if (gx#stx-null? _tl5800458116_) + ((lambda (_L58119_ + _L58121_ + _L58122_ + _L58123_ + _L58124_ + _L58125_ + _L58126_ + _L58127_ + _L58128_) + (let ((__tmp60513 (gx#datum->syntax '#f 'let*)) + (__tmp60282 + (let ((__tmp60473 + (let ((__tmp60504 + (let ((__tmp60512 + (gx#datum->syntax '#f 'h)) + (__tmp60505 + (let ((__tmp60506 + (let ((__tmp60511 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'fxxor)) + (__tmp60507 + (let ((__tmp60509 + (let ((__tmp60510 + (let () + (declare (not safe)) + (cons _L58124_ '())))) + (declare (not safe)) + (cons _L58126_ __tmp60510))) + (__tmp60508 + (let () + (declare (not safe)) + (cons _L58127_ '())))) + (declare (not safe)) + (cons __tmp60509 __tmp60508)))) + (declare (not safe)) + (cons __tmp60511 __tmp60507)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60506 '())))) + (declare (not safe)) + (cons __tmp60512 __tmp60505))) + (__tmp60474 + (let ((__tmp60498 + (let ((__tmp60503 + (gx#datum->syntax + '#f + 'size)) + (__tmp60499 + (let ((__tmp60500 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60502 + (gx#datum->syntax '#f 'vector-length)) + (__tmp60501 + (let () + (declare (not safe)) + (cons _L58128_ '())))) + (declare (not safe)) + (cons __tmp60502 __tmp60501)))) + (declare (not safe)) + (cons __tmp60500 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60503 + __tmp60499))) + (__tmp60475 + (let ((__tmp60490 + (let ((__tmp60497 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'entries)) + (__tmp60491 + (let ((__tmp60492 + (let ((__tmp60496 + (gx#datum->syntax '#f 'fxquotient)) + (__tmp60493 + (let ((__tmp60495 + (gx#datum->syntax '#f 'size)) + (__tmp60494 + (let () + (declare (not safe)) + (cons '2 '())))) + (declare (not safe)) + (cons __tmp60495 __tmp60494)))) + (declare (not safe)) + (cons __tmp60496 __tmp60493)))) + (declare (not safe)) + (cons __tmp60492 '())))) + (declare (not safe)) + (cons __tmp60497 __tmp60491))) + (__tmp60476 + (let ((__tmp60477 + (let ((__tmp60489 (gx#datum->syntax '#f 'start)) + (__tmp60478 + (let ((__tmp60479 + (let ((__tmp60488 + (gx#datum->syntax + '#f + 'fxarithmetic-shift-left)) + (__tmp60480 + (let ((__tmp60482 + (let ((__tmp60487 + (gx#datum->syntax + '#f + 'fxmodulo)) + (__tmp60483 + (let ((__tmp60486 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'h)) + (__tmp60484 + (let ((__tmp60485 (gx#datum->syntax '#f 'entries))) + (declare (not safe)) + (cons __tmp60485 '())))) + (declare (not safe)) + (cons __tmp60486 __tmp60484)))) + (declare (not safe)) + (cons __tmp60487 __tmp60483))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp60481 + (let () + (declare (not safe)) + (cons '1 '())))) + (declare (not safe)) + (cons __tmp60482 __tmp60481)))) + (declare (not safe)) + (cons __tmp60488 __tmp60480)))) + (declare (not safe)) + (cons __tmp60479 '())))) + (declare (not safe)) + (cons __tmp60489 __tmp60478)))) + (declare (not safe)) + (cons __tmp60477 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60490 + __tmp60476)))) + (declare (not safe)) + (cons __tmp60498 __tmp60475)))) + (declare (not safe)) + (cons __tmp60504 __tmp60474))) + (__tmp60283 + (let ((__tmp60284 + (let ((__tmp60472 + (gx#datum->syntax '#f 'let)) + (__tmp60285 + (let ((__tmp60471 + (gx#datum->syntax + '#f + 'loop)) + (__tmp60286 + (let ((__tmp60458 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60467 + (let ((__tmp60470 + (gx#datum->syntax '#f 'probe)) + (__tmp60468 + (let ((__tmp60469 + (gx#datum->syntax '#f 'start))) + (declare (not safe)) + (cons __tmp60469 '())))) + (declare (not safe)) + (cons __tmp60470 __tmp60468))) + (__tmp60459 + (let ((__tmp60464 + (let ((__tmp60466 + (gx#datum->syntax '#f 'i)) + (__tmp60465 + (let () + (declare (not safe)) + (cons '1 '())))) + (declare (not safe)) + (cons __tmp60466 __tmp60465))) + (__tmp60460 + (let ((__tmp60461 + (let ((__tmp60463 + (gx#datum->syntax + '#f + 'deleted)) + (__tmp60462 + (let () + (declare (not safe)) + (cons '#f '())))) + (declare (not safe)) + (cons __tmp60463 __tmp60462)))) + (declare (not safe)) + (cons __tmp60461 '())))) + (declare (not safe)) + (cons __tmp60464 __tmp60460)))) + (declare (not safe)) + (cons __tmp60467 __tmp60459))) + (__tmp60287 + (let ((__tmp60288 + (let ((__tmp60457 (gx#datum->syntax '#f 'let)) + (__tmp60289 + (let ((__tmp60449 + (let ((__tmp60456 + (gx#datum->syntax '#f 'k)) + (__tmp60450 + (let ((__tmp60451 + (let ((__tmp60455 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'vector-ref)) + (__tmp60452 + (let ((__tmp60453 + (let ((__tmp60454 + (gx#datum->syntax '#f 'probe))) + (declare (not safe)) + (cons __tmp60454 '())))) + (declare (not safe)) + (cons _L58128_ __tmp60453)))) + (declare (not safe)) + (cons __tmp60455 __tmp60452)))) + (declare (not safe)) + (cons __tmp60451 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60456 __tmp60450))) + (__tmp60290 + (let ((__tmp60291 + (let ((__tmp60448 + (gx#datum->syntax + '#f + 'cond)) + (__tmp60292 + (let ((__tmp60385 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60441 + (let ((__tmp60447 + (gx#datum->syntax '#f 'eq?)) + (__tmp60442 + (let ((__tmp60446 + (gx#datum->syntax '#f 'k)) + (__tmp60443 + (let ((__tmp60444 + (let ((__tmp60445 + (gx#datum->syntax + '#f + 'macro-unused-obj))) + (declare (not safe)) + (cons __tmp60445 + '())))) + (declare (not safe)) + (cons __tmp60444 '())))) + (declare (not safe)) + (cons __tmp60446 __tmp60443)))) + (declare (not safe)) + (cons __tmp60447 __tmp60442))) + (__tmp60386 + (let ((__tmp60387 + (let ((__tmp60440 + (gx#datum->syntax '#f 'if)) + (__tmp60388 + (let ((__tmp60439 + (gx#datum->syntax + '#f + 'deleted)) + (__tmp60389 + (let ((__tmp60415 + (let ((__tmp60438 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'begin)) + (__tmp60416 + (let ((__tmp60432 + (let ((__tmp60437 + (gx#datum->syntax '#f 'vector-set!)) + (__tmp60433 + (let ((__tmp60434 + (let ((__tmp60436 + (gx#datum->syntax + '#f + 'deleted)) + (__tmp60435 + (let () + (declare (not safe)) + (cons _L58124_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60436 + __tmp60435)))) + (declare (not safe)) + (cons _L58128_ __tmp60434)))) + (declare (not safe)) + (cons __tmp60437 __tmp60433))) + (__tmp60417 + (let ((__tmp60420 + (let ((__tmp60431 + (gx#datum->syntax + '#f + 'vector-set!)) + (__tmp60421 + (let ((__tmp60422 + (let ((__tmp60426 + (let ((__tmp60430 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'fx+)) + (__tmp60427 + (let ((__tmp60429 + (gx#datum->syntax '#f 'deleted)) + (__tmp60428 + (let () + (declare (not safe)) + (cons '1 '())))) + (declare (not safe)) + (cons __tmp60429 __tmp60428)))) + (declare (not safe)) + (cons __tmp60430 __tmp60427))) + (__tmp60423 + (let ((__tmp60424 + (let ((__tmp60425 + (let () + (declare (not safe)) + (cons _L58122_ '())))) + (declare (not safe)) + (cons _L58123_ __tmp60425)))) + (declare (not safe)) + (cons __tmp60424 '())))) + (declare (not safe)) + (cons __tmp60426 __tmp60423)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L58128_ + __tmp60422)))) + (declare (not safe)) + (cons __tmp60431 __tmp60421))) + (__tmp60418 + (let ((__tmp60419 + (let () + (declare (not safe)) + (cons _L58119_ '())))) + (declare (not safe)) + (cons __tmp60419 '())))) + (declare (not safe)) + (cons __tmp60420 __tmp60418)))) + (declare (not safe)) + (cons __tmp60432 __tmp60417)))) + (declare (not safe)) + (cons __tmp60438 __tmp60416))) + (__tmp60390 + (let ((__tmp60391 + (let ((__tmp60414 (gx#datum->syntax '#f 'begin)) + (__tmp60392 + (let ((__tmp60408 + (let ((__tmp60413 + (gx#datum->syntax + '#f + 'vector-set!)) + (__tmp60409 + (let ((__tmp60410 + (let ((__tmp60412 + (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'probe)) + (__tmp60411 + (let () (declare (not safe)) (cons _L58124_ '())))) + (declare (not safe)) + (cons __tmp60412 __tmp60411)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L58128_ + __tmp60410)))) + (declare (not safe)) + (cons __tmp60413 __tmp60409))) + (__tmp60393 + (let ((__tmp60396 + (let ((__tmp60407 + (gx#datum->syntax + '#f + 'vector-set!)) + (__tmp60397 + (let ((__tmp60398 + (let ((__tmp60402 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60406 (gx#datum->syntax '#f 'fx+)) + (__tmp60403 + (let ((__tmp60405 + (gx#datum->syntax '#f 'probe)) + (__tmp60404 + (let () + (declare (not safe)) + (cons '1 '())))) + (declare (not safe)) + (cons __tmp60405 __tmp60404)))) + (declare (not safe)) + (cons __tmp60406 __tmp60403))) + (__tmp60399 + (let ((__tmp60400 + (let ((__tmp60401 + (let () + (declare (not safe)) + (cons _L58122_ '())))) + (declare (not safe)) + (cons _L58123_ __tmp60401)))) + (declare (not safe)) + (cons __tmp60400 '())))) + (declare (not safe)) + (cons __tmp60402 __tmp60399)))) + (declare (not safe)) + (cons _L58128_ __tmp60398)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60407 + __tmp60397))) + (__tmp60394 + (let ((__tmp60395 + (let () + (declare (not safe)) + (cons _L58121_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60395 '())))) + (declare (not safe)) + (cons __tmp60396 __tmp60394)))) + (declare (not safe)) + (cons __tmp60408 __tmp60393)))) + (declare (not safe)) + (cons __tmp60414 __tmp60392)))) + (declare (not safe)) + (cons __tmp60391 '())))) + (declare (not safe)) + (cons __tmp60415 __tmp60390)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60439 + __tmp60389)))) + (declare (not safe)) + (cons __tmp60440 __tmp60388)))) + (declare (not safe)) + (cons __tmp60387 '())))) + (declare (not safe)) + (cons __tmp60441 __tmp60386))) + (__tmp60293 + (let ((__tmp60352 + (let ((__tmp60378 + (let ((__tmp60384 + (gx#datum->syntax '#f 'eq?)) + (__tmp60379 + (let ((__tmp60383 + (gx#datum->syntax + '#f + 'k)) + (__tmp60380 + (let ((__tmp60381 + (let ((__tmp60382 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'macro-deleted-obj))) + (declare (not safe)) + (cons __tmp60382 '())))) + (declare (not safe)) + (cons __tmp60381 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60383 + __tmp60380)))) + (declare (not safe)) + (cons __tmp60384 __tmp60379))) + (__tmp60353 + (let ((__tmp60354 + (let ((__tmp60377 + (gx#datum->syntax + '#f + 'loop)) + (__tmp60355 + (let ((__tmp60369 + (let ((__tmp60376 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'probe-step)) + (__tmp60370 + (let ((__tmp60375 (gx#datum->syntax '#f 'start)) + (__tmp60371 + (let ((__tmp60374 + (gx#datum->syntax '#f 'i)) + (__tmp60372 + (let ((__tmp60373 + (gx#datum->syntax + '#f + 'size))) + (declare (not safe)) + (cons __tmp60373 '())))) + (declare (not safe)) + (cons __tmp60374 __tmp60372)))) + (declare (not safe)) + (cons __tmp60375 __tmp60371)))) + (declare (not safe)) + (cons __tmp60376 __tmp60370))) + (__tmp60356 + (let ((__tmp60364 + (let ((__tmp60368 (gx#datum->syntax '#f 'fx+)) + (__tmp60365 + (let ((__tmp60367 + (gx#datum->syntax '#f 'i)) + (__tmp60366 + (let () + (declare (not safe)) + (cons '1 '())))) + (declare (not safe)) + (cons __tmp60367 __tmp60366)))) + (declare (not safe)) + (cons __tmp60368 __tmp60365))) + (__tmp60357 + (let ((__tmp60358 + (let ((__tmp60363 + (gx#datum->syntax '#f 'or)) + (__tmp60359 + (let ((__tmp60362 + (gx#datum->syntax + '#f + 'deleted)) + (__tmp60360 + (let ((__tmp60361 + (gx#datum->syntax + '#f + 'probe))) + (declare (not safe)) + (cons __tmp60361 '())))) + (declare (not safe)) + (cons __tmp60362 __tmp60360)))) + (declare (not safe)) + (cons __tmp60363 __tmp60359)))) + (declare (not safe)) + (cons __tmp60358 '())))) + (declare (not safe)) + (cons __tmp60364 __tmp60357)))) + (declare (not safe)) + (cons __tmp60369 __tmp60356)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60377 + __tmp60355)))) + (declare (not safe)) + (cons __tmp60354 '())))) + (declare (not safe)) + (cons __tmp60378 __tmp60353))) + (__tmp60294 + (let ((__tmp60318 + (let ((__tmp60348 + (let ((__tmp60349 + (let ((__tmp60350 + (let ((__tmp60351 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'k))) + (declare (not safe)) + (cons __tmp60351 '())))) + (declare (not safe)) + (cons _L58124_ __tmp60350)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L58125_ __tmp60349))) + (__tmp60319 + (let ((__tmp60342 + (let ((__tmp60347 + (gx#datum->syntax + '#f + 'vector-set!)) + (__tmp60343 + (let ((__tmp60344 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60346 (gx#datum->syntax '#f 'probe)) + (__tmp60345 + (let () + (declare (not safe)) + (cons _L58124_ '())))) + (declare (not safe)) + (cons __tmp60346 __tmp60345)))) + (declare (not safe)) + (cons _L58128_ __tmp60344)))) + (declare (not safe)) + (cons __tmp60347 __tmp60343))) + (__tmp60320 + (let ((__tmp60321 + (let ((__tmp60341 (gx#datum->syntax '#f 'vector-set!)) + (__tmp60322 + (let ((__tmp60323 + (let ((__tmp60336 + (let ((__tmp60340 + (gx#datum->syntax '#f 'fx+)) + (__tmp60337 + (let ((__tmp60339 + (gx#datum->syntax + '#f + 'probe)) + (__tmp60338 + (let () + (declare (not safe)) + (cons '1 '())))) + (declare (not safe)) + (cons __tmp60339 + __tmp60338)))) + (declare (not safe)) + (cons __tmp60340 __tmp60337))) + (__tmp60324 + (let ((__tmp60325 + (let ((__tmp60326 + (let ((__tmp60327 + (let ((__tmp60335 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'vector-ref)) + (__tmp60328 + (let ((__tmp60329 + (let ((__tmp60330 + (let ((__tmp60334 + (gx#datum->syntax + '#f + 'fx+)) + (__tmp60331 + (let ((__tmp60333 + (gx#datum->syntax + '#f + 'probe)) + (__tmp60332 + (let () + (declare + (not safe)) + (cons '1 '())))) + (declare (not safe)) + (cons __tmp60333 + __tmp60332)))) + (declare (not safe)) + (cons __tmp60334 __tmp60331)))) + (declare (not safe)) + (cons __tmp60330 '())))) + (declare (not safe)) + (cons _L58128_ __tmp60329)))) + (declare (not safe)) + (cons __tmp60335 __tmp60328)))) + (declare (not safe)) + (cons __tmp60327 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L58123_ + __tmp60326)))) + (declare (not safe)) + (cons __tmp60325 '())))) + (declare (not safe)) + (cons __tmp60336 __tmp60324)))) + (declare (not safe)) + (cons _L58128_ __tmp60323)))) + (declare (not safe)) + (cons __tmp60341 __tmp60322)))) + (declare (not safe)) + (cons __tmp60321 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60342 + __tmp60320)))) + (declare (not safe)) + (cons __tmp60348 __tmp60319))) + (__tmp60295 + (let ((__tmp60296 + (let ((__tmp60317 + (gx#datum->syntax + '#f + 'else)) + (__tmp60297 + (let ((__tmp60298 + (let ((__tmp60316 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'loop)) + (__tmp60299 + (let ((__tmp60308 + (let ((__tmp60315 + (gx#datum->syntax '#f 'probe-step)) + (__tmp60309 + (let ((__tmp60314 + (gx#datum->syntax + '#f + 'start)) + (__tmp60310 + (let ((__tmp60313 + (gx#datum->syntax + '#f + 'i)) + (__tmp60311 + (let ((__tmp60312 + (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'size))) + (declare (not safe)) + (cons __tmp60312 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60313 + __tmp60311)))) + (declare (not safe)) + (cons __tmp60314 __tmp60310)))) + (declare (not safe)) + (cons __tmp60315 __tmp60309))) + (__tmp60300 + (let ((__tmp60303 + (let ((__tmp60307 + (gx#datum->syntax '#f 'fx+)) + (__tmp60304 + (let ((__tmp60306 + (gx#datum->syntax + '#f + 'i)) + (__tmp60305 + (let () + (declare (not safe)) + (cons '1 '())))) + (declare (not safe)) + (cons __tmp60306 + __tmp60305)))) + (declare (not safe)) + (cons __tmp60307 __tmp60304))) + (__tmp60301 + (let ((__tmp60302 + (gx#datum->syntax + '#f + 'deleted))) + (declare (not safe)) + (cons __tmp60302 '())))) + (declare (not safe)) + (cons __tmp60303 __tmp60301)))) + (declare (not safe)) + (cons __tmp60308 __tmp60300)))) + (declare (not safe)) + (cons __tmp60316 __tmp60299)))) + (declare (not safe)) + (cons __tmp60298 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60317 + __tmp60297)))) + (declare (not safe)) + (cons __tmp60296 '())))) + (declare (not safe)) + (cons __tmp60318 __tmp60295)))) + (declare (not safe)) + (cons __tmp60352 __tmp60294)))) + (declare (not safe)) + (cons __tmp60385 __tmp60293)))) + (declare (not safe)) + (cons __tmp60448 __tmp60292)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60291 '())))) + (declare (not safe)) + (cons __tmp60449 __tmp60290)))) + (declare (not safe)) + (cons __tmp60457 __tmp60289)))) + (declare (not safe)) + (cons __tmp60288 '())))) + (declare (not safe)) + (cons __tmp60458 __tmp60287)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60471 + __tmp60286)))) + (declare (not safe)) + (cons __tmp60472 __tmp60285)))) + (declare (not safe)) + (cons __tmp60284 '())))) + (declare (not safe)) + (cons __tmp60473 __tmp60283)))) + (declare (not safe)) + (cons __tmp60513 __tmp60282))) + _hd5800558113_ + _hd5800258103_ + _hd5799958093_ + _hd5799658083_ + _hd5799358073_ + _hd5799058063_ + _hd5798758053_ + _hd5798458043_ + _hd5798158033_) + (_g5796658012_ _g5796758016_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g5796658012_ + _g5796758016_)))) + (_g5796658012_ _g5796758016_)))) + (_g5796658012_ _g5796758016_)))) + (_g5796658012_ _g5796758016_)))) + (_g5796658012_ _g5796758016_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g5796658012_ + _g5796758016_)))) + (_g5796658012_ _g5796758016_)))) + (_g5796658012_ _g5796758016_)))) + (_g5796658012_ _g5796758016_)))) + (_g5796658012_ _g5796758016_))))) + (_g5796558165_ _$stx57962_)))) + (define |[:0:]#__table-del!| + (lambda (_$stx58169_) + (let* ((_g5817358207_ + (lambda (_g5817458203_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g5817458203_))) + (_g5817258318_ + (lambda (_g5817458211_) + (if (gx#stx-pair? _g5817458211_) + (let ((_e5818358214_ (gx#syntax-e _g5817458211_))) + (let ((_hd5818258218_ + (let () + (declare (not safe)) + (##car _e5818358214_))) + (_tl5818158221_ + (let () + (declare (not safe)) + (##cdr _e5818358214_)))) + (if (gx#stx-pair? _tl5818158221_) + (let ((_e5818658224_ (gx#syntax-e _tl5818158221_))) + (let ((_hd5818558228_ + (let () + (declare (not safe)) + (##car _e5818658224_))) + (_tl5818458231_ + (let () + (declare (not safe)) + (##cdr _e5818658224_)))) + (if (gx#stx-pair? _tl5818458231_) + (let ((_e5818958234_ + (gx#syntax-e _tl5818458231_))) + (let ((_hd5818858238_ + (let () + (declare (not safe)) + (##car _e5818958234_))) + (_tl5818758241_ + (let () + (declare (not safe)) + (##cdr _e5818958234_)))) + (if (gx#stx-pair? _tl5818758241_) + (let ((_e5819258244_ + (gx#syntax-e + _tl5818758241_))) + (let ((_hd5819158248_ + (let () + (declare (not safe)) + (##car _e5819258244_))) + (_tl5819058251_ + (let () + (declare (not safe)) + (##cdr _e5819258244_)))) + (if (gx#stx-pair? + _tl5819058251_) + (let ((_e5819558254_ + (gx#syntax-e + _tl5819058251_))) + (let ((_hd5819458258_ + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (##car _e5819558254_))) + (_tl5819358261_ + (let () (declare (not safe)) (##cdr _e5819558254_)))) + (if (gx#stx-pair? _tl5819358261_) + (let ((_e5819858264_ (gx#syntax-e _tl5819358261_))) + (let ((_hd5819758268_ + (let () + (declare (not safe)) + (##car _e5819858264_))) + (_tl5819658271_ + (let () + (declare (not safe)) + (##cdr _e5819858264_)))) + (if (gx#stx-pair? _tl5819658271_) + (let ((_e5820158274_ (gx#syntax-e _tl5819658271_))) + (let ((_hd5820058278_ + (let () + (declare (not safe)) + (##car _e5820158274_))) + (_tl5819958281_ + (let () + (declare (not safe)) + (##cdr _e5820158274_)))) + (if (gx#stx-null? _tl5819958281_) + ((lambda (_L58284_ + _L58286_ + _L58287_ + _L58288_ + _L58289_ + _L58290_) + (let ((__tmp60675 + (gx#datum->syntax '#f 'let*)) + (__tmp60514 + (let ((__tmp60635 + (let ((__tmp60666 + (let ((__tmp60674 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'h)) + (__tmp60667 + (let ((__tmp60668 + (let ((__tmp60673 + (gx#datum->syntax '#f 'fxxor)) + (__tmp60669 + (let ((__tmp60671 + (let ((__tmp60672 + (let () + (declare (not safe)) + (cons _L58286_ '())))) + (declare (not safe)) + (cons _L58288_ __tmp60672))) + (__tmp60670 + (let () + (declare (not safe)) + (cons _L58289_ '())))) + (declare (not safe)) + (cons __tmp60671 __tmp60670)))) + (declare (not safe)) + (cons __tmp60673 __tmp60669)))) + (declare (not safe)) + (cons __tmp60668 '())))) + (declare (not safe)) + (cons __tmp60674 __tmp60667))) + (__tmp60636 + (let ((__tmp60660 + (let ((__tmp60665 (gx#datum->syntax '#f 'size)) + (__tmp60661 + (let ((__tmp60662 + (let ((__tmp60664 + (gx#datum->syntax + '#f + 'vector-length)) + (__tmp60663 + (let () + (declare (not safe)) + (cons _L58290_ '())))) + (declare (not safe)) + (cons __tmp60664 __tmp60663)))) + (declare (not safe)) + (cons __tmp60662 '())))) + (declare (not safe)) + (cons __tmp60665 __tmp60661))) + (__tmp60637 + (let ((__tmp60652 + (let ((__tmp60659 + (gx#datum->syntax '#f 'entries)) + (__tmp60653 + (let ((__tmp60654 + (let ((__tmp60658 + (gx#datum->syntax + '#f + 'fxquotient)) + (__tmp60655 + (let ((__tmp60657 + (gx#datum->syntax + '#f + 'size)) + (__tmp60656 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons '2 '())))) + (declare (not safe)) + (cons __tmp60657 __tmp60656)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60658 + __tmp60655)))) + (declare (not safe)) + (cons __tmp60654 '())))) + (declare (not safe)) + (cons __tmp60659 __tmp60653))) + (__tmp60638 + (let ((__tmp60639 + (let ((__tmp60651 + (gx#datum->syntax '#f 'start)) + (__tmp60640 + (let ((__tmp60641 + (let ((__tmp60650 + (gx#datum->syntax + '#f + 'fxarithmetic-shift-left)) + (__tmp60642 + (let ((__tmp60644 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60649 + (gx#datum->syntax '#f 'fxmodulo)) + (__tmp60645 + (let ((__tmp60648 + (gx#datum->syntax '#f 'h)) + (__tmp60646 + (let ((__tmp60647 + (gx#datum->syntax + '#f + 'entries))) + (declare (not safe)) + (cons __tmp60647 '())))) + (declare (not safe)) + (cons __tmp60648 __tmp60646)))) + (declare (not safe)) + (cons __tmp60649 __tmp60645))) + (__tmp60643 + (let () (declare (not safe)) (cons '1 '())))) + (declare (not safe)) + (cons __tmp60644 __tmp60643)))) + (declare (not safe)) + (cons __tmp60650 __tmp60642)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60641 '())))) + (declare (not safe)) + (cons __tmp60651 __tmp60640)))) + (declare (not safe)) + (cons __tmp60639 '())))) + (declare (not safe)) + (cons __tmp60652 __tmp60638)))) + (declare (not safe)) + (cons __tmp60660 __tmp60637)))) + (declare (not safe)) + (cons __tmp60666 __tmp60636))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp60515 + (let ((__tmp60516 + (let ((__tmp60634 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'let)) + (__tmp60517 + (let ((__tmp60633 (gx#datum->syntax '#f 'loop)) + (__tmp60518 + (let ((__tmp60624 + (let ((__tmp60629 + (let ((__tmp60632 + (gx#datum->syntax + '#f + 'probe)) + (__tmp60630 + (let ((__tmp60631 + (gx#datum->syntax + '#f + 'start))) + (declare (not safe)) + (cons __tmp60631 + '())))) + (declare (not safe)) + (cons __tmp60632 + __tmp60630))) + (__tmp60625 + (let ((__tmp60626 + (let ((__tmp60628 + (gx#datum->syntax + '#f + 'i)) + (__tmp60627 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons '1 '())))) + (declare (not safe)) + (cons __tmp60628 __tmp60627)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60626 '())))) + (declare (not safe)) + (cons __tmp60629 __tmp60625))) + (__tmp60519 + (let ((__tmp60520 + (let ((__tmp60623 + (gx#datum->syntax + '#f + 'let)) + (__tmp60521 + (let ((__tmp60615 + (let ((__tmp60622 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'k)) + (__tmp60616 + (let ((__tmp60617 + (let ((__tmp60621 + (gx#datum->syntax '#f 'vector-ref)) + (__tmp60618 + (let ((__tmp60619 + (let ((__tmp60620 + (gx#datum->syntax + '#f + 'probe))) + (declare (not safe)) + (cons __tmp60620 '())))) + (declare (not safe)) + (cons _L58290_ __tmp60619)))) + (declare (not safe)) + (cons __tmp60621 __tmp60618)))) + (declare (not safe)) + (cons __tmp60617 '())))) + (declare (not safe)) + (cons __tmp60622 __tmp60616))) + (__tmp60522 + (let ((__tmp60523 + (let ((__tmp60614 (gx#datum->syntax '#f 'cond)) + (__tmp60524 + (let ((__tmp60603 + (let ((__tmp60607 + (let ((__tmp60613 + (gx#datum->syntax + '#f + 'eq?)) + (__tmp60608 + (let ((__tmp60612 + (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'k)) + (__tmp60609 + (let ((__tmp60610 + (let ((__tmp60611 + (gx#datum->syntax + '#f + 'macro-unused-obj))) + (declare (not safe)) + (cons __tmp60611 '())))) + (declare (not safe)) + (cons __tmp60610 '())))) + (declare (not safe)) + (cons __tmp60612 __tmp60609)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60613 + __tmp60608))) + (__tmp60604 + (let ((__tmp60605 + (let ((__tmp60606 + (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'void))) + (declare (not safe)) + (cons __tmp60606 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60605 '())))) + (declare (not safe)) + (cons __tmp60607 __tmp60604))) + (__tmp60525 + (let ((__tmp60577 + (let ((__tmp60596 + (let ((__tmp60602 + (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'eq?)) + (__tmp60597 + (let ((__tmp60601 (gx#datum->syntax '#f 'k)) + (__tmp60598 + (let ((__tmp60599 + (let ((__tmp60600 + (gx#datum->syntax + '#f + 'macro-deleted-obj))) + (declare (not safe)) + (cons __tmp60600 '())))) + (declare (not safe)) + (cons __tmp60599 '())))) + (declare (not safe)) + (cons __tmp60601 __tmp60598)))) + (declare (not safe)) + (cons __tmp60602 __tmp60597))) + (__tmp60578 + (let ((__tmp60579 + (let ((__tmp60595 (gx#datum->syntax '#f 'loop)) + (__tmp60580 + (let ((__tmp60587 + (let ((__tmp60594 + (gx#datum->syntax + '#f + 'probe-step)) + (__tmp60588 + (let ((__tmp60593 + (gx#datum->syntax + '#f + 'start)) + (__tmp60589 + (let ((__tmp60592 + (gx#datum->syntax + '#f + 'i)) + (__tmp60590 + (let ((__tmp60591 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'size))) + (declare (not safe)) + (cons __tmp60591 '())))) + (declare (not safe)) + (cons __tmp60592 __tmp60590)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60593 __tmp60589)))) + (declare (not safe)) + (cons __tmp60594 __tmp60588))) + (__tmp60581 + (let ((__tmp60582 + (let ((__tmp60586 + (gx#datum->syntax + '#f + 'fx+)) + (__tmp60583 + (let ((__tmp60585 + (gx#datum->syntax + '#f + 'i)) + (__tmp60584 + (let () + (declare + (not safe)) + (cons '1 '())))) + (declare (not safe)) + (cons __tmp60585 + __tmp60584)))) + (declare (not safe)) + (cons __tmp60586 __tmp60583)))) + (declare (not safe)) + (cons __tmp60582 '())))) + (declare (not safe)) + (cons __tmp60587 __tmp60581)))) + (declare (not safe)) + (cons __tmp60595 __tmp60580)))) + (declare (not safe)) + (cons __tmp60579 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60596 + __tmp60578))) + (__tmp60526 + (let ((__tmp60548 + (let ((__tmp60573 + (let ((__tmp60574 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp60575 + (let ((__tmp60576 + (gx#datum->syntax '#f 'k))) + (declare (not safe)) + (cons __tmp60576 '())))) + (declare (not safe)) + (cons _L58286_ __tmp60575)))) + (declare (not safe)) + (cons _L58287_ __tmp60574))) + (__tmp60549 + (let ((__tmp60565 + (let ((__tmp60572 + (gx#datum->syntax '#f 'vector-set!)) + (__tmp60566 + (let ((__tmp60567 + (let ((__tmp60571 + (gx#datum->syntax + '#f + 'probe)) + (__tmp60568 + (let ((__tmp60569 + (let ((__tmp60570 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'macro-deleted-obj))) + (declare (not safe)) + (cons __tmp60570 '())))) + (declare (not safe)) + (cons __tmp60569 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60571 __tmp60568)))) + (declare (not safe)) + (cons _L58290_ __tmp60567)))) + (declare (not safe)) + (cons __tmp60572 __tmp60566))) + (__tmp60550 + (let ((__tmp60553 + (let ((__tmp60564 + (gx#datum->syntax + '#f + 'vector-set!)) + (__tmp60554 + (let ((__tmp60555 + (let ((__tmp60559 + (let ((__tmp60563 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'fx+)) + (__tmp60560 + (let ((__tmp60562 (gx#datum->syntax '#f 'probe)) + (__tmp60561 + (let () (declare (not safe)) (cons '1 '())))) + (declare (not safe)) + (cons __tmp60562 __tmp60561)))) + (declare (not safe)) + (cons __tmp60563 __tmp60560))) + (__tmp60556 + (let ((__tmp60557 + (let ((__tmp60558 + (gx#datum->syntax '#f 'macro-absent-obj))) + (declare (not safe)) + (cons __tmp60558 '())))) + (declare (not safe)) + (cons __tmp60557 '())))) + (declare (not safe)) + (cons __tmp60559 __tmp60556)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L58290_ __tmp60555)))) + (declare (not safe)) + (cons __tmp60564 __tmp60554))) + (__tmp60551 + (let ((__tmp60552 + (let () + (declare (not safe)) + (cons _L58284_ '())))) + (declare (not safe)) + (cons __tmp60552 '())))) + (declare (not safe)) + (cons __tmp60553 __tmp60551)))) + (declare (not safe)) + (cons __tmp60565 __tmp60550)))) + (declare (not safe)) + (cons __tmp60573 __tmp60549))) + (__tmp60527 + (let ((__tmp60528 + (let ((__tmp60547 (gx#datum->syntax '#f 'else)) + (__tmp60529 + (let ((__tmp60530 + (let ((__tmp60546 + (gx#datum->syntax '#f 'loop)) + (__tmp60531 + (let ((__tmp60538 + (let ((__tmp60545 + (gx#datum->syntax + '#f + 'probe-step)) + (__tmp60539 + (let ((__tmp60544 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'start)) + (__tmp60540 + (let ((__tmp60543 (gx#datum->syntax '#f 'i)) + (__tmp60541 + (let ((__tmp60542 + (gx#datum->syntax '#f 'size))) + (declare (not safe)) + (cons __tmp60542 '())))) + (declare (not safe)) + (cons __tmp60543 __tmp60541)))) + (declare (not safe)) + (cons __tmp60544 __tmp60540)))) + (declare (not safe)) + (cons __tmp60545 __tmp60539))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp60532 + (let ((__tmp60533 + (let ((__tmp60537 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'fx+)) + (__tmp60534 + (let ((__tmp60536 (gx#datum->syntax '#f 'i)) + (__tmp60535 + (let () (declare (not safe)) (cons '1 '())))) + (declare (not safe)) + (cons __tmp60536 __tmp60535)))) + (declare (not safe)) + (cons __tmp60537 __tmp60534)))) + (declare (not safe)) + (cons __tmp60533 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60538 __tmp60532)))) + (declare (not safe)) + (cons __tmp60546 __tmp60531)))) + (declare (not safe)) + (cons __tmp60530 '())))) + (declare (not safe)) + (cons __tmp60547 __tmp60529)))) + (declare (not safe)) + (cons __tmp60528 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60548 + __tmp60527)))) + (declare (not safe)) + (cons __tmp60577 __tmp60526)))) + (declare (not safe)) + (cons __tmp60603 __tmp60525)))) + (declare (not safe)) + (cons __tmp60614 __tmp60524)))) + (declare (not safe)) + (cons __tmp60523 '())))) + (declare (not safe)) + (cons __tmp60615 __tmp60522)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60623 + __tmp60521)))) + (declare (not safe)) + (cons __tmp60520 '())))) + (declare (not safe)) + (cons __tmp60624 __tmp60519)))) + (declare (not safe)) + (cons __tmp60633 __tmp60518)))) + (declare (not safe)) + (cons __tmp60634 __tmp60517)))) + (declare (not safe)) + (cons __tmp60516 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp60635 __tmp60515)))) + (declare (not safe)) + (cons __tmp60675 __tmp60514))) + _hd5820058278_ + _hd5819758268_ + _hd5819458258_ + _hd5819158248_ + _hd5818858238_ + _hd5818558228_) + (_g5817358207_ _g5817458211_)))) + (_g5817358207_ _g5817458211_)))) + (_g5817358207_ _g5817458211_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g5817358207_ + _g5817458211_)))) + (_g5817358207_ _g5817458211_)))) + (_g5817358207_ _g5817458211_)))) + (_g5817358207_ _g5817458211_)))) + (_g5817358207_ _g5817458211_))))) + (_g5817258318_ _$stx58169_))))) diff --git a/src/bootstrap/gerbil/runtime/table__rt.scm b/src/bootstrap/gerbil/runtime/table__rt.scm new file mode 100644 index 000000000..c2eea63c4 --- /dev/null +++ b/src/bootstrap/gerbil/runtime/table__rt.scm @@ -0,0 +1,4 @@ +(declare (block) (standard-bindings) (extended-bindings)) +(begin + (load-module "gerbil/runtime/gambit__rt") + (load-module "gerbil/runtime/table__0")) diff --git a/src/bootstrap/gerbil/runtime/thread.ssi b/src/bootstrap/gerbil/runtime/thread.ssi index 01fa77881..549e3f761 100644 --- a/src/bootstrap/gerbil/runtime/thread.ssi +++ b/src/bootstrap/gerbil/runtime/thread.ssi @@ -5,7 +5,8 @@ namespace: #f (%#begin (%#import :gerbil/runtime/gambit :gerbil/runtime/util - :gerbil/runtime/error) + :gerbil/runtime/error + :gerbil/runtime/hash) (%#export #t) (%#define-runtime spawn spawn) (%#define-runtime spawn/name spawn/name) diff --git a/src/bootstrap/gerbil/runtime/thread.ssxi.ss b/src/bootstrap/gerbil/runtime/thread.ssxi.ss index aa4af8de5..c722f5769 100644 --- a/src/bootstrap/gerbil/runtime/thread.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/thread.ssxi.ss @@ -9,10 +9,14 @@ package: gerbil/runtime (declare-type spawn-thread__% (@lambda 3 #f)) (declare-type spawn-thread__0 (@lambda 1 #f)) (declare-type spawn-thread__1 (@lambda 2 #f)) - (declare-type spawn-thread (@case-lambda (1 #f) (2 #f) (3 #f))) + (declare-type + spawn-thread + (@case-lambda (1 spawn-thread__0) (2 spawn-thread__1) (3 spawn-thread__%))) (declare-type thread-local-ref__% (@lambda 2 #f)) (declare-type thread-local-ref__0 (@lambda 1 #f)) - (declare-type thread-local-ref (@case-lambda (1 #f) (2 #f))) + (declare-type + thread-local-ref + (@case-lambda (1 thread-local-ref__0) (2 thread-local-ref__%))) (declare-type thread-local-get (@lambda 1 #f)) (declare-type thread-local-set! (@lambda 2 #f)) (declare-type thread-local-clear! (@lambda 1 #f)) diff --git a/src/bootstrap/gerbil/runtime/thread__0.scm b/src/bootstrap/gerbil/runtime/thread__0.scm index 25d7c8879..2c8cbb95b 100644 --- a/src/bootstrap/gerbil/runtime/thread__0.scm +++ b/src/bootstrap/gerbil/runtime/thread__0.scm @@ -1,378 +1,376 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/thread::timestamp 1708102801) + (define gerbil/runtime/thread::timestamp 1708370113) (begin (define spawn - (lambda (_f97867_ . _args97868_) - (if (let () (declare (not safe)) (procedure? _f97867_)) + (lambda (_f72378_ . _args72379_) + (if (let () (declare (not safe)) (procedure? _f72378_)) '#!void - (raise (let ((__obj102437 + (raise (let ((__obj72380 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj102437 + __obj72380 '"expected procedure" 'where: 'spawn 'irritants: - (let () (declare (not safe)) (cons _f97867_ '()))) - __obj102437))) + (let () (declare (not safe)) (cons _f72378_ '()))) + __obj72380))) (let () (declare (not safe)) - (spawn-actor _f97867_ _args97868_ '#!void '#f)))) + (spawn-actor _f72378_ _args72379_ '#!void '#f)))) (define spawn/name - (lambda (_name97863_ _f97864_ . _args97865_) - (if (let () (declare (not safe)) (procedure? _f97864_)) + (lambda (_name72374_ _f72375_ . _args72376_) + (if (let () (declare (not safe)) (procedure? _f72375_)) '#!void - (raise (let ((__obj102438 + (raise (let ((__obj72381 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj102438 + __obj72381 '"expected procedure" 'where: 'spawn/name 'irritants: - (let () (declare (not safe)) (cons _f97864_ '()))) - __obj102438))) + (let () (declare (not safe)) (cons _f72375_ '()))) + __obj72381))) (let () (declare (not safe)) - (spawn-actor _f97864_ _args97865_ _name97863_ '#f)))) + (spawn-actor _f72375_ _args72376_ _name72374_ '#f)))) (define spawn/group - (lambda (_name97857_ _f97858_ . _args97859_) - (if (let () (declare (not safe)) (procedure? _f97858_)) + (lambda (_name72368_ _f72369_ . _args72370_) + (if (let () (declare (not safe)) (procedure? _f72369_)) '#!void - (raise (let ((__obj102439 + (raise (let ((__obj72382 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj102439 + __obj72382 '"expected procedure" 'where: 'spawn/group 'irritants: - (let () (declare (not safe)) (cons _f97858_ '()))) - __obj102439))) - (let ((_tgroup97861_ (make-thread-group _name97857_))) + (let () (declare (not safe)) (cons _f72369_ '()))) + __obj72382))) + (let ((_tgroup72372_ (make-thread-group _name72368_))) (declare (not safe)) - (spawn-actor _f97858_ _args97859_ _name97857_ _tgroup97861_)))) + (spawn-actor _f72369_ _args72370_ _name72368_ _tgroup72372_)))) (define spawn-actor - (lambda (_f97830_ _args97831_ _name97832_ _tgroup97833_) - (letrec ((_thread-main97835_ - (lambda (_thunk97849_) + (lambda (_f72341_ _args72342_ _name72343_ _tgroup72344_) + (letrec ((_thread-main72346_ + (lambda (_thunk72360_) (lambda () (with-exception-handler - (lambda (_exn97852_) - (let ((__tmp102441 - (lambda (_cont97854_) + (lambda (_exn72363_) + (let ((__tmp72384 + (lambda (_cont72365_) (if __unhandled-actor-exception-hook - (let ((__tmp102442 + (let ((__tmp72385 (lambda () (__unhandled-actor-exception-hook - _cont97854_ - _exn97852_)))) + _cont72365_ + _exn72363_)))) (declare (not safe)) - (with-catch void __tmp102442)) + (with-catch void __tmp72385)) '#!void) - (let ((__tmp102443 + (let ((__tmp72386 (let () (declare (not safe)) - (##continuation-last _cont97854_)))) + (##continuation-last _cont72365_)))) (declare (not safe)) (##continuation-graft - __tmp102443 + __tmp72386 ##primordial-exception-handler - _exn97852_))))) + _exn72363_))))) (declare (not safe)) - (##continuation-capture __tmp102441))) - _thunk97849_))))) - (let* ((_thunk97838_ - (if (let () (declare (not safe)) (null? _args97831_)) - _f97830_ - (lambda () (apply _f97830_ _args97831_)))) - (_thunk97841_ + (##continuation-capture __tmp72384))) + _thunk72360_))))) + (let* ((_thunk72349_ + (if (let () (declare (not safe)) (null? _args72342_)) + _f72341_ + (lambda () (apply _f72341_ _args72342_)))) + (_thunk72352_ (lambda () (let () (declare (not safe)) - (with-exception-stack-trace__0 _thunk97838_)))) - (_tgroup97846_ - (let ((_$e97843_ _tgroup97833_)) - (if _$e97843_ - _$e97843_ + (with-exception-stack-trace__0 _thunk72349_)))) + (_tgroup72357_ + (let ((_$e72354_ _tgroup72344_)) + (if _$e72354_ + _$e72354_ (let () (declare (not safe)) (current-thread-group)))))) (thread-start! (thread-init! (construct-actor-thread '#f '0) - (let () (declare (not safe)) (_thread-main97835_ _thunk97841_)) - _name97832_ - _tgroup97846_)))))) + (let () (declare (not safe)) (_thread-main72346_ _thunk72352_)) + _name72343_ + _tgroup72357_)))))) (define spawn-thread__% - (lambda (_thunk97808_ _name97809_ _tgroup97810_) - (thread-start! (make-thread _thunk97808_ _name97809_ _tgroup97810_)))) + (lambda (_thunk72319_ _name72320_ _tgroup72321_) + (thread-start! (make-thread _thunk72319_ _name72320_ _tgroup72321_)))) (define spawn-thread__0 - (lambda (_thunk97815_) - (let* ((_name97817_ absent-obj) (_tgroup97819_ absent-obj)) + (lambda (_thunk72326_) + (let* ((_name72328_ absent-obj) (_tgroup72330_ absent-obj)) (declare (not safe)) - (spawn-thread__% _thunk97815_ _name97817_ _tgroup97819_)))) + (spawn-thread__% _thunk72326_ _name72328_ _tgroup72330_)))) (define spawn-thread__1 - (lambda (_thunk97821_ _name97822_) - (let ((_tgroup97824_ absent-obj)) + (lambda (_thunk72332_ _name72333_) + (let ((_tgroup72335_ absent-obj)) (declare (not safe)) - (spawn-thread__% _thunk97821_ _name97822_ _tgroup97824_)))) + (spawn-thread__% _thunk72332_ _name72333_ _tgroup72335_)))) (define spawn-thread - (lambda _g102445_ - (let ((_g102444_ (let () (declare (not safe)) (##length _g102445_)))) - (cond ((let () (declare (not safe)) (##fx= _g102444_ 1)) - (apply (lambda (_thunk97815_) + (lambda _g72388_ + (let ((_g72387_ (let () (declare (not safe)) (##length _g72388_)))) + (cond ((let () (declare (not safe)) (##fx= _g72387_ 1)) + (apply (lambda (_thunk72326_) (let () (declare (not safe)) - (spawn-thread__0 _thunk97815_))) - _g102445_)) - ((let () (declare (not safe)) (##fx= _g102444_ 2)) - (apply (lambda (_thunk97821_ _name97822_) + (spawn-thread__0 _thunk72326_))) + _g72388_)) + ((let () (declare (not safe)) (##fx= _g72387_ 2)) + (apply (lambda (_thunk72332_ _name72333_) (let () (declare (not safe)) - (spawn-thread__1 _thunk97821_ _name97822_))) - _g102445_)) - ((let () (declare (not safe)) (##fx= _g102444_ 3)) - (apply (lambda (_thunk97826_ _name97827_ _tgroup97828_) + (spawn-thread__1 _thunk72332_ _name72333_))) + _g72388_)) + ((let () (declare (not safe)) (##fx= _g72387_ 3)) + (apply (lambda (_thunk72337_ _name72338_ _tgroup72339_) (let () (declare (not safe)) (spawn-thread__% - _thunk97826_ - _name97827_ - _tgroup97828_))) - _g102445_)) + _thunk72337_ + _name72338_ + _tgroup72339_))) + _g72388_)) (else (##raise-wrong-number-of-arguments-exception spawn-thread - _g102445_)))))) + _g72388_)))))) (define thread-local-ref__% - (lambda (_key97792_ _default97793_) - (let ((_tab97795_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key72303_ _default72304_) + (let ((_tab72306_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (table-ref _tab97795_ _key97792_ _default97793_)))) + (hash-ref__% _tab72306_ _key72303_ _default72304_)))) (define thread-local-ref__0 - (lambda (_key97800_) - (let ((_default97802_ absent-obj)) + (lambda (_key72311_) + (let ((_default72313_ absent-obj)) (declare (not safe)) - (thread-local-ref__% _key97800_ _default97802_)))) + (thread-local-ref__% _key72311_ _default72313_)))) (define thread-local-ref - (lambda _g102447_ - (let ((_g102446_ (let () (declare (not safe)) (##length _g102447_)))) - (cond ((let () (declare (not safe)) (##fx= _g102446_ 1)) - (apply (lambda (_key97800_) + (lambda _g72390_ + (let ((_g72389_ (let () (declare (not safe)) (##length _g72390_)))) + (cond ((let () (declare (not safe)) (##fx= _g72389_ 1)) + (apply (lambda (_key72311_) (let () (declare (not safe)) - (thread-local-ref__0 _key97800_))) - _g102447_)) - ((let () (declare (not safe)) (##fx= _g102446_ 2)) - (apply (lambda (_key97804_ _default97805_) + (thread-local-ref__0 _key72311_))) + _g72390_)) + ((let () (declare (not safe)) (##fx= _g72389_ 2)) + (apply (lambda (_key72315_ _default72316_) (let () (declare (not safe)) - (thread-local-ref__% _key97804_ _default97805_))) - _g102447_)) + (thread-local-ref__% _key72315_ _default72316_))) + _g72390_)) (else (##raise-wrong-number-of-arguments-exception thread-local-ref - _g102447_)))))) + _g72390_)))))) (define thread-local-get - (lambda (_key97789_) - (let () (declare (not safe)) (thread-local-ref _key97789_ '#f)))) + (lambda (_key72300_) + (let () (declare (not safe)) (thread-local-ref__% _key72300_ '#f)))) (define thread-local-set! - (lambda (_key97784_ _value97785_) - (let ((_tab97787_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key72295_ _value72296_) + (let ((_tab72298_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (table-set! _tab97787_ _key97784_ _value97785_)))) + (hash-put! _tab72298_ _key72295_ _value72296_)))) (define thread-local-clear! - (lambda (_key97780_) - (let ((_tab97782_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key72291_) + (let ((_tab72293_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (table-set! _tab97782_ _key97780_)))) + (hash-remove! _tab72293_ _key72291_)))) (define thread-local-table (lambda () - (let ((_thr97766_ (current-thread))) - (if (let () (declare (not safe)) (actor-thread? _thr97766_)) - (let ((_$e97768_ (actor-thread-locals _thr97766_))) - (if _$e97768_ - (values _$e97768_) - (let ((_tab97771_ - (let () - (declare (not safe)) - (make-table 'test: eq?)))) - (actor-thread-locals-set! _thr97766_ _tab97771_) - _tab97771_))) + (let ((_thr72277_ (current-thread))) + (if (actor-thread? _thr72277_) + (let ((_$e72279_ (actor-thread-locals _thr72277_))) + (if _$e72279_ + (values _$e72279_) + (let ((_tab72282_ + (let () (declare (not safe)) (make-hash-table-eq)))) + (actor-thread-locals-set! _thr72277_ _tab72282_) + _tab72282_))) (if (let () (declare (not safe)) - (eq? _thr97766_ ##primordial-thread)) + (eq? _thr72277_ ##primordial-thread)) __primordial-thread-locals (begin (mutex-lock! __thread-locals-mutex) - (let ((_$e97773_ + (let ((_$e72284_ (let () (declare (not safe)) - (table-ref __thread-locals _thr97766_ '#f)))) - (if _$e97773_ - ((lambda (_tab97776_) + (hash-get __thread-locals _thr72277_)))) + (if _$e72284_ + ((lambda (_tab72287_) (mutex-unlock! __thread-locals-mutex) - _tab97776_) - _$e97773_) - (let ((_tab97778_ + _tab72287_) + _$e72284_) + (let ((_tab72289_ (let () (declare (not safe)) - (make-table 'test: eq?)))) + (make-hash-table-eq)))) (let () (declare (not safe)) - (table-set! + (hash-put! __thread-locals - _thr97766_ - _tab97778_)) + _thr72277_ + _tab72289_)) (mutex-unlock! __thread-locals-mutex) - _tab97778_))))))))) + _tab72289_))))))))) (define __primordial-thread-locals - (let () (declare (not safe)) (make-table 'test: eq?))) + (let () (declare (not safe)) (make-hash-table-eq))) (define __thread-locals - (let () (declare (not safe)) (make-table 'test: eq? 'weak-keys: '#t))) + (let () (declare (not safe)) (make-hash-table-eq 'weak-keys: '#t))) (define __thread-locals-mutex (make-mutex 'thread-locals)) (define __unhandled-actor-exception-hook '#f) (define unhandled-actor-exception-hook-set! - (lambda (_proc97763_) - (if (let () (declare (not safe)) (procedure? _proc97763_)) + (lambda (_proc72274_) + (if (let () (declare (not safe)) (procedure? _proc72274_)) '#!void - (raise (let ((__obj102440 + (raise (let ((__obj72383 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj102440 + __obj72383 '"Bad argument; expected procedure or #f" 'where: 'unhandler-actor-exception-hook-set! 'irritants: - (let () (declare (not safe)) (cons _proc97763_ '()))) - __obj102440))) - (set! __unhandled-actor-exception-hook _proc97763_))) + (let () (declare (not safe)) (cons _proc72274_ '()))) + __obj72383))) + (set! __unhandled-actor-exception-hook _proc72274_))) (define current-thread-group (lambda () (thread-thread-group (current-thread)))) (define with-lock - (lambda (_mx97751_ _proc97752_) - (let ((_handler97754_ (current-exception-handler))) + (lambda (_mx72262_ _proc72263_) + (let ((_handler72265_ (current-exception-handler))) (with-exception-handler - (lambda (_e97756_) - (let ((__tmp102448 + (lambda (_e72267_) + (let ((__tmp72391 (lambda () - (mutex-unlock! _mx97751_) - (_handler97754_ _e97756_)))) + (mutex-unlock! _mx72262_) + (_handler72265_ _e72267_)))) (declare (not safe)) - (with-catch void __tmp102448)) + (with-catch void __tmp72391)) (let () (declare (not safe)) - (##thread-end-with-uncaught-exception! _e97756_))) + (##thread-end-with-uncaught-exception! _e72267_))) (lambda () - (mutex-lock! _mx97751_) - (let ((_result97760_ (_proc97752_))) - (mutex-unlock! _mx97751_) - _result97760_)))))) + (mutex-lock! _mx72262_) + (let ((_result72271_ (_proc72263_))) + (mutex-unlock! _mx72262_) + _result72271_)))))) (define with-dynamic-lock - (lambda (_mx97746_ _proc97747_) + (lambda (_mx72257_ _proc72258_) (dynamic-wind - (lambda () (mutex-lock! _mx97746_)) - _proc97747_ - (lambda () (mutex-unlock! _mx97746_))))) + (lambda () (mutex-lock! _mx72257_)) + _proc72258_ + (lambda () (mutex-unlock! _mx72257_))))) (define with-exception-stack-trace__% - (lambda (_thunk97727_ _error-port97728_) + (lambda (_thunk72238_ _error-port72239_) (with-exception-handler - (let ((_E97730_ (current-exception-handler))) - (lambda (_exn97732_) + (let ((_E72241_ (current-exception-handler))) + (lambda (_exn72243_) (continuation-capture - (lambda (_cont97734_) + (lambda (_cont72245_) (if (dump-stack-trace?) (let () (declare (not safe)) (dump-stack-trace!__% - _cont97734_ - _exn97732_ - _error-port97728_)) + _cont72245_ + _exn72243_ + _error-port72239_)) '#!void) - (_E97730_ _exn97732_))))) - _thunk97727_))) + (_E72241_ _exn72243_))))) + _thunk72238_))) (define with-exception-stack-trace__0 - (lambda (_thunk97739_) - (let ((_error-port97741_ (current-error-port))) + (lambda (_thunk72250_) + (let ((_error-port72252_ (current-error-port))) (declare (not safe)) - (with-exception-stack-trace__% _thunk97739_ _error-port97741_)))) + (with-exception-stack-trace__% _thunk72250_ _error-port72252_)))) (define with-exception-stack-trace - (lambda _g102450_ - (let ((_g102449_ (let () (declare (not safe)) (##length _g102450_)))) - (cond ((let () (declare (not safe)) (##fx= _g102449_ 1)) - (apply (lambda (_thunk97739_) + (lambda _g72393_ + (let ((_g72392_ (let () (declare (not safe)) (##length _g72393_)))) + (cond ((let () (declare (not safe)) (##fx= _g72392_ 1)) + (apply (lambda (_thunk72250_) (let () (declare (not safe)) - (with-exception-stack-trace__0 _thunk97739_))) - _g102450_)) - ((let () (declare (not safe)) (##fx= _g102449_ 2)) - (apply (lambda (_thunk97743_ _error-port97744_) + (with-exception-stack-trace__0 _thunk72250_))) + _g72393_)) + ((let () (declare (not safe)) (##fx= _g72392_ 2)) + (apply (lambda (_thunk72254_ _error-port72255_) (let () (declare (not safe)) (with-exception-stack-trace__% - _thunk97743_ - _error-port97744_))) - _g102450_)) + _thunk72254_ + _error-port72255_))) + _g72393_)) (else (##raise-wrong-number-of-arguments-exception with-exception-stack-trace - _g102450_)))))) + _g72393_)))))) (define dump-stack-trace!__% - (lambda (_cont97708_ _exn97709_ _error-port97710_) - (let ((_out97712_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _out97712_)) - (display '"*** Unhandled exception in " _out97712_) - (display (current-thread) _out97712_) - (newline _out97712_) - (display-exception _exn97709_ _out97712_) + (lambda (_cont72219_ _exn72220_ _error-port72221_) + (let ((_out72223_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _out72223_)) + (display '"*** Unhandled exception in " _out72223_) + (display (current-thread) _out72223_) + (newline _out72223_) + (display-exception _exn72220_ _out72223_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _exn97709_)) + (class-instance? StackTrace::t _exn72220_)) '#!void (begin - (display '"Continuation backtrace: " _out97712_) - (newline _out97712_) - (display-continuation-backtrace _cont97708_ _out97712_))) - (let ((__tmp102451 (get-output-string _out97712_))) + (display '"Continuation backtrace: " _out72223_) + (newline _out72223_) + (display-continuation-backtrace _cont72219_ _out72223_))) + (let ((__tmp72394 (get-output-string _out72223_))) (declare (not safe)) - (##write-string __tmp102451 _error-port97710_))))) + (##write-string __tmp72394 _error-port72221_))))) (define dump-stack-trace!__0 - (lambda (_cont97717_ _exn97718_) - (let ((_error-port97720_ (current-error-port))) + (lambda (_cont72228_ _exn72229_) + (let ((_error-port72231_ (current-error-port))) (declare (not safe)) - (dump-stack-trace!__% _cont97717_ _exn97718_ _error-port97720_)))) + (dump-stack-trace!__% _cont72228_ _exn72229_ _error-port72231_)))) (define dump-stack-trace! - (lambda _g102453_ - (let ((_g102452_ (let () (declare (not safe)) (##length _g102453_)))) - (cond ((let () (declare (not safe)) (##fx= _g102452_ 2)) - (apply (lambda (_cont97717_ _exn97718_) + (lambda _g72396_ + (let ((_g72395_ (let () (declare (not safe)) (##length _g72396_)))) + (cond ((let () (declare (not safe)) (##fx= _g72395_ 2)) + (apply (lambda (_cont72228_ _exn72229_) (let () (declare (not safe)) - (dump-stack-trace!__0 _cont97717_ _exn97718_))) - _g102453_)) - ((let () (declare (not safe)) (##fx= _g102452_ 3)) - (apply (lambda (_cont97722_ _exn97723_ _error-port97724_) + (dump-stack-trace!__0 _cont72228_ _exn72229_))) + _g72396_)) + ((let () (declare (not safe)) (##fx= _g72395_ 3)) + (apply (lambda (_cont72233_ _exn72234_ _error-port72235_) (let () (declare (not safe)) (dump-stack-trace!__% - _cont97722_ - _exn97723_ - _error-port97724_))) - _g102453_)) + _cont72233_ + _exn72234_ + _error-port72235_))) + _g72396_)) (else (##raise-wrong-number-of-arguments-exception dump-stack-trace! - _g102453_)))))) + _g72396_)))))) (define-type-of-thread actor-thread constructor: diff --git a/src/bootstrap/gerbil/runtime/thread__rt.scm b/src/bootstrap/gerbil/runtime/thread__rt.scm index 18a369cc8..4ead0b477 100644 --- a/src/bootstrap/gerbil/runtime/thread__rt.scm +++ b/src/bootstrap/gerbil/runtime/thread__rt.scm @@ -3,5 +3,6 @@ (begin (load-module "gerbil/runtime/gambit__rt") (load-module "gerbil/runtime/util__rt") - (load-module "gerbil/runtime/error__rt")) + (load-module "gerbil/runtime/error__rt") + (load-module "gerbil/runtime/hash__rt")) (load-module "gerbil/runtime/thread__0")) diff --git a/src/bootstrap/gerbil/runtime/util.ssi b/src/bootstrap/gerbil/runtime/util.ssi index d9670a82e..5bd42fbc3 100644 --- a/src/bootstrap/gerbil/runtime/util.ssi +++ b/src/bootstrap/gerbil/runtime/util.ssi @@ -37,47 +37,6 @@ namespace: #f subvector->list__0 subvector->list__0) (%#define-runtime subvector->list subvector->list))) - (%#define-runtime make-hash-table make-hash-table) - (%#define-runtime make-hash-table-eq make-hash-table-eq) - (%#define-runtime make-hash-table-eqv make-hash-table-eqv) - (%#define-runtime list->hash-table list->hash-table) - (%#define-runtime list->hash-table-eq list->hash-table-eq) - (%#define-runtime list->hash-table-eqv list->hash-table-eqv) - (%#define-runtime hash? hash?) - (%#define-runtime hash-table? hash-table?) - (%#define-runtime hash-length hash-length) - (%#define-runtime hash-ref hash-ref) - (%#define-runtime hash-get hash-get) - (%#define-runtime hash-put! hash-put!) - (%#begin (%#define-runtime hash-update!__% hash-update!__%) - (%#begin (%#define-runtime hash-update!__0 hash-update!__0) - (%#define-runtime hash-update! hash-update!))) - (%#define-runtime hash-remove! hash-remove!) - (%#define-runtime hash->list hash->list) - (%#define-runtime hash->plist hash->plist) - (%#begin (%#define-runtime plist->hash-table__% plist->hash-table__%) - (%#begin (%#define-runtime - plist->hash-table__0 - plist->hash-table__0) - (%#define-runtime - plist->hash-table - plist->hash-table))) - (%#define-runtime plist->hash-table-eq plist->hash-table-eq) - (%#define-runtime plist->hash-table-eqv plist->hash-table-eqv) - (%#define-runtime hash-key? hash-key?) - (%#define-runtime hash-for-each hash-for-each) - (%#define-runtime hash-map hash-map) - (%#define-runtime hash-fold hash-fold) - (%#define-runtime hash-find hash-find) - (%#define-runtime hash-keys hash-keys) - (%#define-runtime hash-values hash-values) - (%#define-runtime hash-copy hash-copy) - (%#define-runtime hash-copy! hash-copy!) - (%#define-runtime hash-merge hash-merge) - (%#define-runtime hash-merge! hash-merge!) - (%#begin (%#define-runtime hash-clear!__% hash-clear!__%) - (%#begin (%#define-runtime hash-clear!__0 hash-clear!__0) - (%#define-runtime hash-clear! hash-clear!))) (%#begin (%#define-runtime make-list__% make-list__%) (%#begin (%#define-runtime make-list__0 make-list__0) (%#define-runtime make-list make-list))) diff --git a/src/bootstrap/gerbil/runtime/util.ssxi.ss b/src/bootstrap/gerbil/runtime/util.ssxi.ss index fcea3f1e2..720442a68 100644 --- a/src/bootstrap/gerbil/runtime/util.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/util.ssxi.ss @@ -7,7 +7,9 @@ package: gerbil/runtime (declare-type file-newer? (@lambda 2 #f)) (declare-type create-directory*__% (@lambda 2 #f)) (declare-type create-directory*__0 (@lambda 1 #f)) - (declare-type create-directory* (@case-lambda (1 #f) (2 #f))) + (declare-type + create-directory* + (@case-lambda (1 create-directory*__0) (2 create-directory*__%))) (declare-type true (ast-rules @@ -74,70 +76,9 @@ package: gerbil/runtime (declare-type subvector->list__% (@lambda 2 #f)) (declare-type subvector->list__0 (@lambda 1 #f)) (declare-type subvector->list (@case-lambda (1 #f) (2 #f))) - (declare-type make-hash-table (@lambda (0) make-table)) - (declare-type - make-hash-table-eq - (ast-rules - (%#call) - ((%#call _ arg ...) - (%#call (%#ref make-table) (%#quote test:) (%#ref eq?) arg ...)))) - (declare-type - make-hash-table-eqv - (ast-rules - (%#call) - ((%#call _ arg ...) - (%#call (%#ref make-table) (%#quote test:) (%#ref eqv?) arg ...)))) - (declare-type list->hash-table (@lambda (1) list->table)) - (declare-type - list->hash-table-eq - (ast-rules - (%#call) - ((%#call _ lst arg ...) - (%#call (%#ref list->table) lst (%#quote test:) (%#ref eq?) arg ...)))) - (declare-type - list->hash-table-eqv - (ast-rules - (%#call) - ((%#call _ lst arg ...) - (%#call (%#ref list->table) lst (%#quote test:) (%#ref eqv?) arg ...)))) - (declare-type hash? (@lambda 1 table?)) - (declare-type hash-table? (@lambda 1 table?)) - (declare-type hash-length (@lambda 1 table-length)) - (declare-type hash-ref (@case-lambda (2 table-ref) (3 table-ref))) - (declare-type - hash-get - (ast-rules - (%#call) - ((%#call _ ht key) (%#call (%#ref table-ref) ht key (%#quote #f))))) - (declare-type hash-put! (@lambda 3 table-set!)) - (declare-type hash-update!__% (@lambda 4 #f)) - (declare-type hash-update!__0 (@lambda 3 #f)) - (declare-type hash-update! (@case-lambda (3 #f) (4 #f))) - (declare-type hash-remove! (@lambda 2 table-set!)) - (declare-type hash->list (@lambda 1 table->list)) - (declare-type hash->plist (@lambda 1 #f)) - (declare-type plist->hash-table__% (@lambda 2 #f)) - (declare-type plist->hash-table__0 (@lambda 1 #f)) - (declare-type plist->hash-table (@case-lambda (1 #f) (2 #f))) - (declare-type plist->hash-table-eq (@lambda 1 #f)) - (declare-type plist->hash-table-eqv (@lambda 1 #f)) - (declare-type hash-key? (@lambda 2 #f)) - (declare-type hash-for-each (@lambda 2 table-for-each)) - (declare-type hash-map (@lambda 2 #f)) - (declare-type hash-fold (@lambda 3 #f)) - (declare-type hash-find (@lambda 2 table-search)) - (declare-type hash-keys (@lambda 1 #f)) - (declare-type hash-values (@lambda 1 #f)) - (declare-type hash-copy (@lambda (1) #f)) - (declare-type hash-copy! (@lambda (1) #f)) - (declare-type hash-merge (@lambda (1) #f)) - (declare-type hash-merge! (@lambda (1) #f)) - (declare-type hash-clear!__% (@lambda 2 #f)) - (declare-type hash-clear!__0 (@lambda 1 #f)) - (declare-type hash-clear! (@case-lambda (1 #f) (2 #f))) (declare-type make-list__% (@lambda 2 #f)) (declare-type make-list__0 (@lambda 1 #f)) - (declare-type make-list (@case-lambda (1 #f) (2 #f))) + (declare-type make-list (@case-lambda (1 make-list__0) (2 make-list__%))) (declare-type cons* (ast-rules @@ -147,11 +88,11 @@ package: gerbil/runtime (%#call (%#ref cons) x (%#call recur y rest ...))))) (declare-type foldl1 (@lambda 3 #f)) (declare-type foldl2 (@lambda 4 #f)) - (declare-type foldl (@case-lambda (3 foldl1) (4 foldl2) ((5) foldl*))) + (declare-type foldl (@case-lambda (3 foldl1) (4 foldl2) ((4) foldl*))) (declare-type foldl* (@lambda (2) #f)) (declare-type foldr1 (@lambda 3 #f)) (declare-type foldr2 (@lambda 4 #f)) - (declare-type foldr (@case-lambda (3 foldr1) (4 foldr2) ((5) foldr*))) + (declare-type foldr (@case-lambda (3 foldr1) (4 foldr2) ((4) foldr*))) (declare-type foldr* (@lambda (2) #f)) (declare-type drop (@lambda 2 #f)) (declare-type remove-nulls! (@lambda 1 #f)) @@ -160,43 +101,43 @@ package: gerbil/runtime (declare-type append-reverse-until (@lambda 3 #f)) (declare-type andmap1 (@lambda 2 #f)) (declare-type andmap2 (@lambda 3 #f)) - (declare-type andmap (@case-lambda (2 andmap1) (3 andmap2) ((4) andmap*))) + (declare-type andmap (@case-lambda (2 andmap1) (3 andmap2) ((3) andmap*))) (declare-type andmap* (@lambda (1) #f)) (declare-type ormap1 (@lambda 2 #f)) (declare-type ormap2 (@lambda 3 #f)) - (declare-type ormap (@case-lambda (2 ormap1) (3 ormap2) ((4) ormap*))) + (declare-type ormap (@case-lambda (2 ormap1) (3 ormap2) ((3) ormap*))) (declare-type ormap* (@lambda (1) #f)) (declare-type filter (@lambda 2 #f)) (declare-type filter-map1 (@lambda 2 #f)) (declare-type filter-map2 (@lambda 3 #f)) (declare-type filter-map - (@case-lambda (2 filter-map1) (3 filter-map2) ((4) filter-map*))) + (@case-lambda (2 filter-map1) (3 filter-map2) ((3) filter-map*))) (declare-type filter-map* (@lambda (1) #f)) (declare-type iota__% (@lambda 3 #f)) (declare-type iota__0 (@lambda 1 #f)) (declare-type iota__1 (@lambda 2 #f)) - (declare-type iota (@case-lambda (1 #f) (2 #f) (3 #f))) + (declare-type iota (@case-lambda (1 iota__0) (2 iota__1) (3 iota__%))) (declare-type last-pair (@lambda 1 #f)) (declare-type last (@lambda 1 #f)) (declare-type assgetq__% (@lambda 3 #f)) (declare-type assgetq__0 (@lambda 2 #f)) - (declare-type assgetq (@case-lambda (2 #f) (3 #f))) + (declare-type assgetq (@case-lambda (2 assgetq__0) (3 assgetq__%))) (declare-type assgetv__% (@lambda 3 #f)) (declare-type assgetv__0 (@lambda 2 #f)) - (declare-type assgetv (@case-lambda (2 #f) (3 #f))) + (declare-type assgetv (@case-lambda (2 assgetv__0) (3 assgetv__%))) (declare-type assget__% (@lambda 3 #f)) (declare-type assget__0 (@lambda 2 #f)) - (declare-type assget (@case-lambda (2 #f) (3 #f))) + (declare-type assget (@case-lambda (2 assget__0) (3 assget__%))) (declare-type pgetq__% (@lambda 3 #f)) (declare-type pgetq__0 (@lambda 2 #f)) - (declare-type pgetq (@case-lambda (2 #f) (3 #f))) + (declare-type pgetq (@case-lambda (2 pgetq__0) (3 pgetq__%))) (declare-type pgetv__% (@lambda 3 #f)) (declare-type pgetv__0 (@lambda 2 #f)) - (declare-type pgetv (@case-lambda (2 #f) (3 #f))) + (declare-type pgetv (@case-lambda (2 pgetv__0) (3 pgetv__%))) (declare-type pget__% (@lambda 3 #f)) (declare-type pget__0 (@lambda 2 #f)) - (declare-type pget (@case-lambda (2 #f) (3 #f))) + (declare-type pget (@case-lambda (2 pget__0) (3 pget__%))) (declare-type find (@lambda 2 #f)) (declare-type memf (@lambda 2 #f)) (declare-type remove1 (@lambda 2 #f)) @@ -253,10 +194,14 @@ package: gerbil/runtime (declare-type string-prefix? (@lambda 2 #f)) (declare-type string-index__% (@lambda 3 #f)) (declare-type string-index__0 (@lambda 2 #f)) - (declare-type string-index (@case-lambda (2 #f) (3 #f))) + (declare-type + string-index + (@case-lambda (2 string-index__0) (3 string-index__%))) (declare-type string-rindex__% (@lambda 3 #f)) (declare-type string-rindex__0 (@lambda 2 #f)) - (declare-type string-rindex (@case-lambda (2 #f) (3 #f))) + (declare-type + string-rindex + (@case-lambda (2 string-rindex__0) (3 string-rindex__%))) (declare-type string-split (@lambda 2 #f)) (declare-type string-join (@lambda 2 #f)) (declare-type read-u8vector (@lambda 2 #f)) diff --git a/src/bootstrap/gerbil/runtime/util__0.scm b/src/bootstrap/gerbil/runtime/util__0.scm index c0055950a..a8b5a861e 100644 --- a/src/bootstrap/gerbil/runtime/util__0.scm +++ b/src/bootstrap/gerbil/runtime/util__0.scm @@ -1,2400 +1,2165 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/util::timestamp 1708102800) + (define gerbil/runtime/util::timestamp 1708370113) (begin (define displayln - (lambda _args59326_ - (let _lp59328_ ((_rest59330_ _args59326_)) - (let* ((_rest5933159339_ _rest59330_) - (_else5933359347_ (lambda () (newline))) - (_K5933559353_ - (lambda (_rest59350_ _hd59351_) - (display _hd59351_) - (let () (declare (not safe)) (_lp59328_ _rest59350_))))) - (if (let () (declare (not safe)) (##pair? _rest5933159339_)) - (let ((_hd5933659356_ - (let () (declare (not safe)) (##car _rest5933159339_))) - (_tl5933759358_ - (let () (declare (not safe)) (##cdr _rest5933159339_)))) - (let* ((_hd59361_ _hd5933659356_) - (_rest59363_ _tl5933759358_)) + (lambda _args56422_ + (let _lp56424_ ((_rest56426_ _args56422_)) + (let* ((_rest5642756435_ _rest56426_) + (_else5642956443_ (lambda () (newline))) + (_K5643156449_ + (lambda (_rest56446_ _hd56447_) + (display _hd56447_) + (let () (declare (not safe)) (_lp56424_ _rest56446_))))) + (if (let () (declare (not safe)) (##pair? _rest5642756435_)) + (let ((_hd5643256452_ + (let () (declare (not safe)) (##car _rest5642756435_))) + (_tl5643356454_ + (let () (declare (not safe)) (##cdr _rest5642756435_)))) + (let* ((_hd56457_ _hd5643256452_) + (_rest56459_ _tl5643356454_)) (declare (not safe)) - (_K5933559353_ _rest59363_ _hd59361_))) + (_K5643156449_ _rest56459_ _hd56457_))) (let () (declare (not safe)) (newline))))))) - (define display* (lambda _args59324_ (for-each display _args59324_))) + (define display* (lambda _args56420_ (for-each display _args56420_))) (define file-newer? - (lambda (_file159317_ _file259318_) - (letrec ((_modification-time59320_ - (lambda (_file59322_) - (let ((__tmp64326 + (lambda (_file156413_ _file256414_) + (letrec ((_modification-time56416_ + (lambda (_file56418_) + (let ((__tmp56843 (file-info-last-modification-time - (file-info _file59322_ '#t)))) + (file-info _file56418_ '#t)))) (declare (not safe)) - (##time->seconds __tmp64326))))) - (let ((__tmp64328 + (##time->seconds __tmp56843))))) + (let ((__tmp56845 (let () (declare (not safe)) - (_modification-time59320_ _file159317_))) - (__tmp64327 + (_modification-time56416_ _file156413_))) + (__tmp56844 (let () (declare (not safe)) - (_modification-time59320_ _file259318_)))) + (_modification-time56416_ _file256414_)))) (declare (not safe)) - (##fl> __tmp64328 __tmp64327))))) + (##fl> __tmp56845 __tmp56844))))) (define create-directory*__% - (lambda (_dir59291_ _perms59292_) - (letrec ((_create159294_ - (lambda (_path59305_) - (if (file-exists? _path59305_) - (if (let ((__tmp64329 (file-type _path59305_))) + (lambda (_dir56387_ _perms56388_) + (letrec ((_create156390_ + (lambda (_path56401_) + (if (file-exists? _path56401_) + (if (let ((__tmp56846 (file-type _path56401_))) (declare (not safe)) - (eq? __tmp64329 'directory)) + (eq? __tmp56846 'directory)) '#!void - (error '"Path component is not a directory" - _path59305_)) - (if _perms59292_ + (let () + (declare (not safe)) + (error '"Path component is not a directory" + _path56401_))) + (if _perms56388_ (create-directory (list 'path: - _path59305_ + _path56401_ 'permissions: - _perms59292_)) - (create-directory _path59305_)))))) - (if (file-exists? _dir59291_) + _perms56388_)) + (create-directory _path56401_)))))) + (if (file-exists? _dir56387_) '#!void - (let _lp59296_ ((_start59298_ '0)) - (let ((_$e59300_ + (let _lp56392_ ((_start56394_ '0)) + (let ((_$e56396_ (let () (declare (not safe)) - (string-index _dir59291_ '#\/ _start59298_)))) - (if _$e59300_ - ((lambda (_x59303_) - (if (let () (declare (not safe)) (##fx> _x59303_ '0)) - (let ((__tmp64330 - (substring _dir59291_ '0 _x59303_))) + (string-index__% _dir56387_ '#\/ _start56394_)))) + (if _$e56396_ + ((lambda (_x56399_) + (if (let () (declare (not safe)) (##fx> _x56399_ '0)) + (let ((__tmp56847 + (substring _dir56387_ '0 _x56399_))) (declare (not safe)) - (_create159294_ __tmp64330)) + (_create156390_ __tmp56847)) '#!void) - (let ((__tmp64331 + (let ((__tmp56848 (let () (declare (not safe)) - (##fx+ _x59303_ '1)))) + (##fx+ _x56399_ '1)))) (declare (not safe)) - (_lp59296_ __tmp64331))) - _$e59300_) + (_lp56392_ __tmp56848))) + _$e56396_) (let () (declare (not safe)) - (_create159294_ _dir59291_))))))))) + (_create156390_ _dir56387_))))))))) (define create-directory*__0 - (lambda (_dir59310_) - (let ((_perms59312_ '493)) + (lambda (_dir56406_) + (let ((_perms56408_ '493)) (declare (not safe)) - (create-directory*__% _dir59310_ _perms59312_)))) + (create-directory*__% _dir56406_ _perms56408_)))) (define create-directory* - (lambda _g64333_ - (let ((_g64332_ (let () (declare (not safe)) (##length _g64333_)))) - (cond ((let () (declare (not safe)) (##fx= _g64332_ 1)) - (apply (lambda (_dir59310_) + (lambda _g56850_ + (let ((_g56849_ (let () (declare (not safe)) (##length _g56850_)))) + (cond ((let () (declare (not safe)) (##fx= _g56849_ 1)) + (apply (lambda (_dir56406_) (let () (declare (not safe)) - (create-directory*__0 _dir59310_))) - _g64333_)) - ((let () (declare (not safe)) (##fx= _g64332_ 2)) - (apply (lambda (_dir59314_ _perms59315_) + (create-directory*__0 _dir56406_))) + _g56850_)) + ((let () (declare (not safe)) (##fx= _g56849_ 2)) + (apply (lambda (_dir56410_ _perms56411_) (let () (declare (not safe)) - (create-directory*__% _dir59314_ _perms59315_))) - _g64333_)) + (create-directory*__% _dir56410_ _perms56411_))) + _g56850_)) (else (##raise-wrong-number-of-arguments-exception create-directory* - _g64333_)))))) + _g56850_)))))) (define absent-obj (let () (declare (not safe)) (##absent-object))) (define absent-value '#(#!void)) - (define true (lambda _g64334_ '#t)) + (define true (lambda _g56851_ '#t)) (define true? - (lambda (_obj59287_) (let () (declare (not safe)) (eq? _obj59287_ '#t)))) - (define false (lambda _g64335_ '#f)) - (define void (lambda _g64336_ '#!void)) + (lambda (_obj56383_) (let () (declare (not safe)) (eq? _obj56383_ '#t)))) + (define false (lambda _g56852_ '#f)) + (define void (lambda _g56853_ '#!void)) (define void? - (lambda (_obj59283_) - (let () (declare (not safe)) (eq? _obj59283_ '#!void)))) - (define eof-object (lambda _g64337_ '#!eof)) - (define identity (lambda (_obj59280_) _obj59280_)) + (lambda (_obj56379_) + (let () (declare (not safe)) (eq? _obj56379_ '#!void)))) + (define eof-object (lambda _g56854_ '#!eof)) + (define identity (lambda (_obj56376_) _obj56376_)) (define dssl-object? - (lambda (_obj59278_) - (if (memq _obj59278_ '(#!key #!rest #!optional)) '#t '#f))) + (lambda (_obj56374_) + (if (memq _obj56374_ '(#!key #!rest #!optional)) '#t '#f))) (define dssl-key-object? - (lambda (_obj59276_) - (let () (declare (not safe)) (eq? _obj59276_ '#!key)))) + (lambda (_obj56372_) + (let () (declare (not safe)) (eq? _obj56372_ '#!key)))) (define dssl-rest-object? - (lambda (_obj59274_) - (let () (declare (not safe)) (eq? _obj59274_ '#!rest)))) + (lambda (_obj56370_) + (let () (declare (not safe)) (eq? _obj56370_ '#!rest)))) (define dssl-optional-object? - (lambda (_obj59272_) - (let () (declare (not safe)) (eq? _obj59272_ '#!optional)))) + (lambda (_obj56368_) + (let () (declare (not safe)) (eq? _obj56368_ '#!optional)))) (define immediate? - (lambda (_obj59268_) - (let* ((_t59270_ (let () (declare (not safe)) (##type _obj59268_))) - (__tmp64338 - (let () (declare (not safe)) (##fxand _t59270_ '1)))) + (lambda (_obj56364_) + (let* ((_t56366_ (let () (declare (not safe)) (##type _obj56364_))) + (__tmp56855 + (let () (declare (not safe)) (##fxand _t56366_ '1)))) (declare (not safe)) - (##fxzero? __tmp64338)))) + (##fxzero? __tmp56855)))) (define nonnegative-fixnum? - (lambda (_obj59266_) - (if (fixnum? _obj59266_) - (let ((__tmp64339 (fxnegative? _obj59266_))) + (lambda (_obj56362_) + (if (let () (declare (not safe)) (fixnum? _obj56362_)) + (let ((__tmp56856 (fxnegative? _obj56362_))) (declare (not safe)) - (not __tmp64339)) + (not __tmp56856)) '#f))) (define values-count - (lambda (_obj59264_) - (if (let () (declare (not safe)) (##values? _obj59264_)) - (let () (declare (not safe)) (##vector-length _obj59264_)) + (lambda (_obj56360_) + (if (let () (declare (not safe)) (##values? _obj56360_)) + (let () (declare (not safe)) (##vector-length _obj56360_)) '1))) (define values-ref - (lambda (_obj59261_ _k59262_) - (if (let () (declare (not safe)) (##values? _obj59261_)) - (let () (declare (not safe)) (##vector-ref _obj59261_ _k59262_)) - _obj59261_))) + (lambda (_obj56357_ _k56358_) + (if (let () (declare (not safe)) (##values? _obj56357_)) + (let () (declare (not safe)) (##vector-ref _obj56357_ _k56358_)) + _obj56357_))) (define values->list - (lambda (_obj59259_) - (if (let () (declare (not safe)) (##values? _obj59259_)) - (let () (declare (not safe)) (##vector->list _obj59259_)) - (list _obj59259_)))) + (lambda (_obj56355_) + (if (let () (declare (not safe)) (##values? _obj56355_)) + (let () (declare (not safe)) (##vector->list _obj56355_)) + (list _obj56355_)))) (define subvector->list__% - (lambda (_obj59244_ _start59245_) - (let ((_lst59247_ - (let () (declare (not safe)) (##vector->list _obj59244_)))) - (list-tail _lst59247_ _start59245_)))) + (lambda (_obj56340_ _start56341_) + (let ((_lst56343_ + (let () (declare (not safe)) (##vector->list _obj56340_)))) + (list-tail _lst56343_ _start56341_)))) (define subvector->list__0 - (lambda (_obj59252_) - (let ((_start59254_ '0)) + (lambda (_obj56348_) + (let ((_start56350_ '0)) (declare (not safe)) - (subvector->list__% _obj59252_ _start59254_)))) + (subvector->list__% _obj56348_ _start56350_)))) (define subvector->list - (lambda _g64341_ - (let ((_g64340_ (let () (declare (not safe)) (##length _g64341_)))) - (cond ((let () (declare (not safe)) (##fx= _g64340_ 1)) - (apply (lambda (_obj59252_) + (lambda _g56858_ + (let ((_g56857_ (let () (declare (not safe)) (##length _g56858_)))) + (cond ((let () (declare (not safe)) (##fx= _g56857_ 1)) + (apply (lambda (_obj56348_) (let () (declare (not safe)) - (subvector->list__0 _obj59252_))) - _g64341_)) - ((let () (declare (not safe)) (##fx= _g64340_ 2)) - (apply (lambda (_obj59256_ _start59257_) + (subvector->list__0 _obj56348_))) + _g56858_)) + ((let () (declare (not safe)) (##fx= _g56857_ 2)) + (apply (lambda (_obj56352_ _start56353_) (let () (declare (not safe)) - (subvector->list__% _obj59256_ _start59257_))) - _g64341_)) + (subvector->list__% _obj56352_ _start56353_))) + _g56858_)) (else (##raise-wrong-number-of-arguments-exception subvector->list - _g64341_)))))) - (define make-hash-table make-table) - (define make-hash-table-eq - (lambda _args59241_ (apply make-table 'test: eq? _args59241_))) - (define make-hash-table-eqv - (lambda _args59239_ (apply make-table 'test: eqv? _args59239_))) - (define list->hash-table list->table) - (define list->hash-table-eq - (lambda (_lst59236_ . _args59237_) - (apply list->table _lst59236_ 'test: eq? _args59237_))) - (define list->hash-table-eqv - (lambda (_lst59233_ . _args59234_) - (apply list->table _lst59233_ 'test: eqv? _args59234_))) - (define hash? table?) - (define hash-table? table?) - (define hash-length table-length) - (define hash-ref table-ref) - (define hash-get - (lambda (_ht59230_ _k59231_) (table-ref _ht59230_ _k59231_ '#f))) - (define hash-put! - (lambda (_ht59226_ _k59227_ _v59228_) - (table-set! _ht59226_ _k59227_ _v59228_))) - (define hash-update!__% - (lambda (_ht59205_ _k59206_ _update59207_ _default59208_) - (let* ((_value59210_ - (let () - (declare (not safe)) - (table-ref _ht59205_ _k59206_ _default59208_))) - (__tmp64342 (_update59207_ _value59210_))) - (declare (not safe)) - (table-set! _ht59205_ _k59206_ __tmp64342)))) - (define hash-update!__0 - (lambda (_ht59215_ _k59216_ _update59217_) - (let ((_default59219_ '#!void)) - (declare (not safe)) - (hash-update!__% _ht59215_ _k59216_ _update59217_ _default59219_)))) - (define hash-update! - (lambda _g64344_ - (let ((_g64343_ (let () (declare (not safe)) (##length _g64344_)))) - (cond ((let () (declare (not safe)) (##fx= _g64343_ 3)) - (apply (lambda (_ht59215_ _k59216_ _update59217_) - (let () - (declare (not safe)) - (hash-update!__0 - _ht59215_ - _k59216_ - _update59217_))) - _g64344_)) - ((let () (declare (not safe)) (##fx= _g64343_ 4)) - (apply (lambda (_ht59221_ - _k59222_ - _update59223_ - _default59224_) - (let () - (declare (not safe)) - (hash-update!__% - _ht59221_ - _k59222_ - _update59223_ - _default59224_))) - _g64344_)) - (else - (##raise-wrong-number-of-arguments-exception - hash-update! - _g64344_)))))) - (define hash-remove! - (lambda (_ht59201_ _k59202_) (table-set! _ht59201_ _k59202_))) - (define hash->list table->list) - (define hash->plist - (lambda (_ht59199_) - (let () (declare (not safe)) (hash-fold cons* '() _ht59199_)))) - (define plist->hash-table__% - (lambda (_plst59134_ _ht59135_) - (let _lp59137_ ((_rest59139_ _plst59134_)) - (let* ((_rest5914059151_ _rest59139_) - (_E5914359155_ - (lambda () (error '"No clause matching" _rest5914059151_)))) - (let ((_K5914559170_ - (lambda (_rest59166_ _v59167_ _k59168_) - (let () - (declare (not safe)) - (table-set! _ht59135_ _k59168_ _v59167_)) - (let () (declare (not safe)) (_lp59137_ _rest59166_)))) - (_K5914459160_ (lambda () _ht59135_))) - (let ((_try-match5914259163_ - (lambda () - (if (let () - (declare (not safe)) - (##eq? _rest5914059151_ '())) - (let () (declare (not safe)) (_K5914459160_)) - (let () (declare (not safe)) (_E5914359155_)))))) - (if (let () (declare (not safe)) (##pair? _rest5914059151_)) - (let ((_tl5914759175_ - (let () - (declare (not safe)) - (##cdr _rest5914059151_))) - (_hd5914659173_ - (let () - (declare (not safe)) - (##car _rest5914059151_)))) - (if (let () - (declare (not safe)) - (##pair? _tl5914759175_)) - (let ((_tl5914959182_ - (let () - (declare (not safe)) - (##cdr _tl5914759175_))) - (_hd5914859180_ - (let () - (declare (not safe)) - (##car _tl5914759175_)))) - (let ((_k59178_ _hd5914659173_) - (_v59185_ _hd5914859180_) - (_rest59187_ _tl5914959182_)) - (let () - (declare (not safe)) - (_K5914559170_ - _rest59187_ - _v59185_ - _k59178_)))) - (let () - (declare (not safe)) - (_try-match5914259163_)))) - (let () - (declare (not safe)) - (_try-match5914259163_))))))))) - (define plist->hash-table__0 - (lambda (_plst59192_) - (let ((_ht59194_ (let () (declare (not safe)) (make-table)))) - (declare (not safe)) - (plist->hash-table__% _plst59192_ _ht59194_)))) - (define plist->hash-table - (lambda _g64346_ - (let ((_g64345_ (let () (declare (not safe)) (##length _g64346_)))) - (cond ((let () (declare (not safe)) (##fx= _g64345_ 1)) - (apply (lambda (_plst59192_) - (let () - (declare (not safe)) - (plist->hash-table__0 _plst59192_))) - _g64346_)) - ((let () (declare (not safe)) (##fx= _g64345_ 2)) - (apply (lambda (_plst59196_ _ht59197_) - (let () - (declare (not safe)) - (plist->hash-table__% _plst59196_ _ht59197_))) - _g64346_)) - (else - (##raise-wrong-number-of-arguments-exception - plist->hash-table - _g64346_)))))) - (define plist->hash-table-eq - (lambda (_plst59131_) - (let ((__tmp64347 - (let () (declare (not safe)) (make-table 'test: eq?)))) - (declare (not safe)) - (plist->hash-table _plst59131_ __tmp64347)))) - (define plist->hash-table-eqv - (lambda (_plst59129_) - (let ((__tmp64348 - (let () (declare (not safe)) (make-table 'test: eqv?)))) - (declare (not safe)) - (plist->hash-table _plst59129_ __tmp64348)))) - (define hash-key? - (lambda (_ht59126_ _k59127_) - (let ((__tmp64349 - (let ((__tmp64350 - (let () - (declare (not safe)) - (table-ref _ht59126_ _k59127_ absent-value)))) - (declare (not safe)) - (eq? __tmp64350 absent-value)))) - (declare (not safe)) - (not __tmp64349)))) - (define hash-for-each table-for-each) - (define hash-map - (lambda (_fun59119_ _ht59120_) - (let ((__tmp64351 - (lambda (_k59122_ _v59123_ _r59124_) - (let ((__tmp64352 (_fun59119_ _k59122_ _v59123_))) - (declare (not safe)) - (cons __tmp64352 _r59124_))))) - (declare (not safe)) - (hash-fold __tmp64351 '() _ht59120_)))) - (define hash-fold - (lambda (_fun59110_ _iv59111_ _ht59112_) - (let ((_ret59114_ _iv59111_)) - (let ((__tmp64353 - (lambda (_k59116_ _v59117_) - (set! _ret59114_ - (_fun59110_ _k59116_ _v59117_ _ret59114_))))) - (declare (not safe)) - (table-for-each __tmp64353 _ht59112_)) - _ret59114_))) - (define hash-find table-search) - (define hash-keys - (lambda (_ht59105_) - (let ((__tmp64354 (lambda (_k59107_ _v59108_) _k59107_))) - (declare (not safe)) - (hash-map __tmp64354 _ht59105_)))) - (define hash-values - (lambda (_ht59100_) - (let ((__tmp64355 (lambda (_k59102_ _v59103_) _v59103_))) - (declare (not safe)) - (hash-map __tmp64355 _ht59100_)))) - (define hash-copy - (lambda (_hd59095_ . _rest59096_) - (let ((_hd59098_ (table-copy _hd59095_))) - (if (let () (declare (not safe)) (null? _rest59096_)) - _hd59098_ - (apply hash-copy! _hd59098_ _rest59096_))))) - (define hash-copy! - (lambda (_hd59090_ . _rest59091_) - (for-each - (lambda (_r59093_) (table-merge! _hd59090_ _r59093_)) - _rest59091_) - _hd59090_)) - (define hash-merge - (lambda (_hd59084_ . _rest59085_) - (let ((__tmp64356 - (lambda (_tab59087_ _r59088_) - (table-merge _r59088_ _tab59087_)))) - (declare (not safe)) - (foldl1 __tmp64356 _hd59084_ _rest59085_)))) - (define hash-merge! - (lambda (_hd59078_ . _rest59079_) - (let ((__tmp64357 - (lambda (_tab59081_ _r59082_) - (table-merge! _r59082_ _tab59081_)))) - (declare (not safe)) - (foldl1 __tmp64357 _hd59078_ _rest59079_)))) - (define hash-clear!__% - (lambda (_ht59063_ _size59064_) - (let ((_gcht59066_ - (let () (declare (not safe)) (##vector-ref _ht59063_ '5)))) - (if (let ((__tmp64358 (fixnum? _gcht59066_))) - (declare (not safe)) - (not __tmp64358)) - (let () - (declare (not safe)) - (##vector-set! _ht59063_ '5 _size59064_)) - '#!void)))) - (define hash-clear!__0 - (lambda (_ht59071_) - (let ((_size59073_ '0)) - (declare (not safe)) - (hash-clear!__% _ht59071_ _size59073_)))) - (define hash-clear! - (lambda _g64360_ - (let ((_g64359_ (let () (declare (not safe)) (##length _g64360_)))) - (cond ((let () (declare (not safe)) (##fx= _g64359_ 1)) - (apply (lambda (_ht59071_) - (let () - (declare (not safe)) - (hash-clear!__0 _ht59071_))) - _g64360_)) - ((let () (declare (not safe)) (##fx= _g64359_ 2)) - (apply (lambda (_ht59075_ _size59076_) - (let () - (declare (not safe)) - (hash-clear!__% _ht59075_ _size59076_))) - _g64360_)) - (else - (##raise-wrong-number-of-arguments-exception - hash-clear! - _g64360_)))))) + _g56858_)))))) (define make-list__% - (lambda (_k59044_ _val59045_) - (if (fixnum? _k59044_) + (lambda (_k56321_ _val56322_) + (if (let () (declare (not safe)) (fixnum? _k56321_)) '#!void - (error '"expected argument 1 to be fixnum" _k59044_)) - (let _lp59047_ ((_n59049_ '0) (_r59050_ '())) - (if (let () (declare (not safe)) (##fx< _n59049_ _k59044_)) - (let ((__tmp64362 - (let () (declare (not safe)) (##fx+ _n59049_ '1))) - (__tmp64361 - (let () (declare (not safe)) (cons _val59045_ _r59050_)))) + (let () + (declare (not safe)) + (error '"expected argument 1 to be fixnum" _k56321_))) + (let _lp56324_ ((_n56326_ '0) (_r56327_ '())) + (if (let () (declare (not safe)) (##fx< _n56326_ _k56321_)) + (let ((__tmp56860 + (let () (declare (not safe)) (##fx+ _n56326_ '1))) + (__tmp56859 + (let () (declare (not safe)) (cons _val56322_ _r56327_)))) (declare (not safe)) - (_lp59047_ __tmp64362 __tmp64361)) - _r59050_)))) + (_lp56324_ __tmp56860 __tmp56859)) + _r56327_)))) (define make-list__0 - (lambda (_k59055_) - (let ((_val59057_ '#f)) + (lambda (_k56332_) + (let ((_val56334_ '#f)) (declare (not safe)) - (make-list__% _k59055_ _val59057_)))) + (make-list__% _k56332_ _val56334_)))) (define make-list - (lambda _g64364_ - (let ((_g64363_ (let () (declare (not safe)) (##length _g64364_)))) - (cond ((let () (declare (not safe)) (##fx= _g64363_ 1)) - (apply (lambda (_k59055_) + (lambda _g56862_ + (let ((_g56861_ (let () (declare (not safe)) (##length _g56862_)))) + (cond ((let () (declare (not safe)) (##fx= _g56861_ 1)) + (apply (lambda (_k56332_) (let () (declare (not safe)) - (make-list__0 _k59055_))) - _g64364_)) - ((let () (declare (not safe)) (##fx= _g64363_ 2)) - (apply (lambda (_k59059_ _val59060_) + (make-list__0 _k56332_))) + _g56862_)) + ((let () (declare (not safe)) (##fx= _g56861_ 2)) + (apply (lambda (_k56336_ _val56337_) (let () (declare (not safe)) - (make-list__% _k59059_ _val59060_))) - _g64364_)) + (make-list__% _k56336_ _val56337_))) + _g56862_)) (else (##raise-wrong-number-of-arguments-exception make-list - _g64364_)))))) + _g56862_)))))) (define cons* - (lambda (_x59034_ _y59035_ . _rest59036_) - (letrec ((_recur59038_ - (lambda (_x59040_ _rest59041_) - (if (let () (declare (not safe)) (pair? _rest59041_)) - (let ((__tmp64365 - (let ((__tmp64367 + (lambda (_x56311_ _y56312_ . _rest56313_) + (letrec ((_recur56315_ + (lambda (_x56317_ _rest56318_) + (if (let () (declare (not safe)) (pair? _rest56318_)) + (let ((__tmp56863 + (let ((__tmp56865 (let () (declare (not safe)) - (##car _rest59041_))) - (__tmp64366 + (##car _rest56318_))) + (__tmp56864 (let () (declare (not safe)) - (##cdr _rest59041_)))) + (##cdr _rest56318_)))) (declare (not safe)) - (_recur59038_ __tmp64367 __tmp64366)))) + (_recur56315_ __tmp56865 __tmp56864)))) (declare (not safe)) - (cons _x59040_ __tmp64365)) - _x59040_)))) - (let ((__tmp64368 + (cons _x56317_ __tmp56863)) + _x56317_)))) + (let ((__tmp56866 (let () (declare (not safe)) - (_recur59038_ _y59035_ _rest59036_)))) + (_recur56315_ _y56312_ _rest56313_)))) (declare (not safe)) - (cons _x59034_ __tmp64368))))) + (cons _x56311_ __tmp56866))))) (define foldl1 - (lambda (_f58992_ _iv58993_ _lst58994_) - (let _lp58996_ ((_rest58998_ _lst58994_) (_r58999_ _iv58993_)) - (let* ((_rest5900059008_ _rest58998_) - (_else5900259016_ (lambda () _r58999_)) - (_K5900459022_ - (lambda (_rest59019_ _x59020_) - (let ((__tmp64369 (_f58992_ _x59020_ _r58999_))) + (lambda (_f56269_ _iv56270_ _lst56271_) + (let _lp56273_ ((_rest56275_ _lst56271_) (_r56276_ _iv56270_)) + (let* ((_rest5627756285_ _rest56275_) + (_else5627956293_ (lambda () _r56276_)) + (_K5628156299_ + (lambda (_rest56296_ _x56297_) + (let ((__tmp56867 (_f56269_ _x56297_ _r56276_))) (declare (not safe)) - (_lp58996_ _rest59019_ __tmp64369))))) - (if (let () (declare (not safe)) (##pair? _rest5900059008_)) - (let ((_hd5900559025_ - (let () (declare (not safe)) (##car _rest5900059008_))) - (_tl5900659027_ - (let () (declare (not safe)) (##cdr _rest5900059008_)))) - (let* ((_x59030_ _hd5900559025_) - (_rest59032_ _tl5900659027_)) + (_lp56273_ _rest56296_ __tmp56867))))) + (if (let () (declare (not safe)) (##pair? _rest5627756285_)) + (let ((_hd5628256302_ + (let () (declare (not safe)) (##car _rest5627756285_))) + (_tl5628356304_ + (let () (declare (not safe)) (##cdr _rest5627756285_)))) + (let* ((_x56307_ _hd5628256302_) + (_rest56309_ _tl5628356304_)) (declare (not safe)) - (_K5900459022_ _rest59032_ _x59030_))) - (let () (declare (not safe)) (_else5900259016_))))))) + (_K5628156299_ _rest56309_ _x56307_))) + (let () (declare (not safe)) (_else5627956293_))))))) (define foldl2 - (lambda (_f58915_ _iv58916_ _lst158917_ _lst258918_) - (let _lp58920_ ((_rest158922_ _lst158917_) - (_rest258923_ _lst258918_) - (_r58924_ _iv58916_)) - (let* ((_rest15892558933_ _rest158922_) - (_else5892758941_ (lambda () _r58924_)) - (_K5892958980_ - (lambda (_rest158944_ _x158945_) - (let* ((_rest25894658954_ _rest258923_) - (_else5894858962_ (lambda () _r58924_)) - (_K5895058968_ - (lambda (_rest258965_ _x258966_) - (let ((__tmp64370 - (_f58915_ _x158945_ _x258966_ _r58924_))) + (lambda (_f56192_ _iv56193_ _lst156194_ _lst256195_) + (let _lp56197_ ((_rest156199_ _lst156194_) + (_rest256200_ _lst256195_) + (_r56201_ _iv56193_)) + (let* ((_rest15620256210_ _rest156199_) + (_else5620456218_ (lambda () _r56201_)) + (_K5620656257_ + (lambda (_rest156221_ _x156222_) + (let* ((_rest25622356231_ _rest256200_) + (_else5622556239_ (lambda () _r56201_)) + (_K5622756245_ + (lambda (_rest256242_ _x256243_) + (let ((__tmp56868 + (_f56192_ _x156222_ _x256243_ _r56201_))) (declare (not safe)) - (_lp58920_ - _rest158944_ - _rest258965_ - __tmp64370))))) + (_lp56197_ + _rest156221_ + _rest256242_ + __tmp56868))))) (if (let () (declare (not safe)) - (##pair? _rest25894658954_)) - (let ((_hd5895158971_ + (##pair? _rest25622356231_)) + (let ((_hd5622856248_ (let () (declare (not safe)) - (##car _rest25894658954_))) - (_tl5895258973_ + (##car _rest25622356231_))) + (_tl5622956250_ (let () (declare (not safe)) - (##cdr _rest25894658954_)))) - (let* ((_x258976_ _hd5895158971_) - (_rest258978_ _tl5895258973_)) + (##cdr _rest25622356231_)))) + (let* ((_x256253_ _hd5622856248_) + (_rest256255_ _tl5622956250_)) (declare (not safe)) - (_K5895058968_ _rest258978_ _x258976_))) - (let () (declare (not safe)) (_else5894858962_))))))) - (if (let () (declare (not safe)) (##pair? _rest15892558933_)) - (let ((_hd5893058983_ - (let () (declare (not safe)) (##car _rest15892558933_))) - (_tl5893158985_ + (_K5622756245_ _rest256255_ _x256253_))) + (let () (declare (not safe)) (_else5622556239_))))))) + (if (let () (declare (not safe)) (##pair? _rest15620256210_)) + (let ((_hd5620756260_ + (let () (declare (not safe)) (##car _rest15620256210_))) + (_tl5620856262_ (let () (declare (not safe)) - (##cdr _rest15892558933_)))) - (let* ((_x158988_ _hd5893058983_) - (_rest158990_ _tl5893158985_)) + (##cdr _rest15620256210_)))) + (let* ((_x156265_ _hd5620756260_) + (_rest156267_ _tl5620856262_)) (declare (not safe)) - (_K5892958980_ _rest158990_ _x158988_))) - (let () (declare (not safe)) (_else5892758941_))))))) + (_K5620656257_ _rest156267_ _x156265_))) + (let () (declare (not safe)) (_else5620456218_))))))) (define foldl - (lambda _g64372_ - (let ((_g64371_ (let () (declare (not safe)) (##length _g64372_)))) - (cond ((let () (declare (not safe)) (##fx= _g64371_ 3)) - (apply (lambda (_f58900_ _iv58901_ _lst58902_) + (lambda _g56870_ + (let ((_g56869_ (let () (declare (not safe)) (##length _g56870_)))) + (cond ((let () (declare (not safe)) (##fx= _g56869_ 3)) + (apply (lambda (_f56177_ _iv56178_ _lst56179_) (let () (declare (not safe)) - (foldl1 _f58900_ _iv58901_ _lst58902_))) - _g64372_)) - ((let () (declare (not safe)) (##fx= _g64371_ 4)) - (apply (lambda (_f58904_ _iv58905_ _lst158906_ _lst258907_) + (foldl1 _f56177_ _iv56178_ _lst56179_))) + _g56870_)) + ((let () (declare (not safe)) (##fx= _g56869_ 4)) + (apply (lambda (_f56181_ _iv56182_ _lst156183_ _lst256184_) (let () (declare (not safe)) - (foldl2 _f58904_ - _iv58905_ - _lst158906_ - _lst258907_))) - _g64372_)) - ((let () (declare (not safe)) (##fx>= _g64371_ 4)) - (apply foldl* _g64372_)) + (foldl2 _f56181_ + _iv56182_ + _lst156183_ + _lst256184_))) + _g56870_)) + ((let () (declare (not safe)) (##fx>= _g56869_ 4)) + (apply foldl* _g56870_)) (else (##raise-wrong-number-of-arguments-exception foldl - _g64372_)))))) + _g56870_)))))) (define foldl* - (lambda (_f58888_ _iv58889_ . _rest58890_) - (let _recur58892_ ((_iv58894_ _iv58889_) (_rest58895_ _rest58890_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest58895_)) - (let ((__tmp64374 - (apply _f58888_ - (let ((__tmp64376 - (lambda (_xs58897_ _r58898_) - (let ((__tmp64377 (car _xs58897_))) + (lambda (_f56165_ _iv56166_ . _rest56167_) + (let _recur56169_ ((_iv56171_ _iv56166_) (_rest56172_ _rest56167_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest56172_)) + (let ((__tmp56872 + (apply _f56165_ + (let ((__tmp56874 + (lambda (_xs56174_ _r56175_) + (let ((__tmp56875 (car _xs56174_))) (declare (not safe)) - (cons __tmp64377 _r58898_)))) - (__tmp64375 (list _iv58894_))) + (cons __tmp56875 _r56175_)))) + (__tmp56873 (list _iv56171_))) (declare (not safe)) - (foldr1 __tmp64376 __tmp64375 _rest58895_)))) - (__tmp64373 (map cdr _rest58895_))) + (foldr1 __tmp56874 __tmp56873 _rest56172_)))) + (__tmp56871 (map cdr _rest56172_))) (declare (not safe)) - (_recur58892_ __tmp64374 __tmp64373)) - _iv58894_)))) + (_recur56169_ __tmp56872 __tmp56871)) + _iv56171_)))) (define foldr1 - (lambda (_f58847_ _iv58848_ _lst58849_) - (let _recur58851_ ((_rest58853_ _lst58849_)) - (let* ((_rest5885458862_ _rest58853_) - (_else5885658870_ (lambda () _iv58848_)) - (_K5885858876_ - (lambda (_rest58873_ _x58874_) - (_f58847_ - _x58874_ + (lambda (_f56124_ _iv56125_ _lst56126_) + (let _recur56128_ ((_rest56130_ _lst56126_)) + (let* ((_rest5613156139_ _rest56130_) + (_else5613356147_ (lambda () _iv56125_)) + (_K5613556153_ + (lambda (_rest56150_ _x56151_) + (_f56124_ + _x56151_ (let () (declare (not safe)) - (_recur58851_ _rest58873_)))))) - (if (let () (declare (not safe)) (##pair? _rest5885458862_)) - (let ((_hd5885958879_ - (let () (declare (not safe)) (##car _rest5885458862_))) - (_tl5886058881_ - (let () (declare (not safe)) (##cdr _rest5885458862_)))) - (let* ((_x58884_ _hd5885958879_) - (_rest58886_ _tl5886058881_)) + (_recur56128_ _rest56150_)))))) + (if (let () (declare (not safe)) (##pair? _rest5613156139_)) + (let ((_hd5613656156_ + (let () (declare (not safe)) (##car _rest5613156139_))) + (_tl5613756158_ + (let () (declare (not safe)) (##cdr _rest5613156139_)))) + (let* ((_x56161_ _hd5613656156_) + (_rest56163_ _tl5613756158_)) (declare (not safe)) - (_K5885858876_ _rest58886_ _x58884_))) - (let () (declare (not safe)) (_else5885658870_))))))) + (_K5613556153_ _rest56163_ _x56161_))) + (let () (declare (not safe)) (_else5613356147_))))))) (define foldr2 - (lambda (_f58771_ _iv58772_ _lst158773_ _lst258774_) - (let _recur58776_ ((_rest158778_ _lst158773_) - (_rest258779_ _lst258774_)) - (let* ((_rest15878058788_ _rest158778_) - (_else5878258796_ (lambda () _iv58772_)) - (_K5878458835_ - (lambda (_rest158799_ _x158800_) - (let* ((_rest25880158809_ _rest258779_) - (_else5880358817_ (lambda () _iv58772_)) - (_K5880558823_ - (lambda (_rest258820_ _x258821_) - (_f58771_ - _x158800_ - _x258821_ + (lambda (_f56048_ _iv56049_ _lst156050_ _lst256051_) + (let _recur56053_ ((_rest156055_ _lst156050_) + (_rest256056_ _lst256051_)) + (let* ((_rest15605756065_ _rest156055_) + (_else5605956073_ (lambda () _iv56049_)) + (_K5606156112_ + (lambda (_rest156076_ _x156077_) + (let* ((_rest25607856086_ _rest256056_) + (_else5608056094_ (lambda () _iv56049_)) + (_K5608256100_ + (lambda (_rest256097_ _x256098_) + (_f56048_ + _x156077_ + _x256098_ (let () (declare (not safe)) - (_recur58776_ _rest158799_ _rest258820_)))))) + (_recur56053_ _rest156076_ _rest256097_)))))) (if (let () (declare (not safe)) - (##pair? _rest25880158809_)) - (let ((_hd5880658826_ + (##pair? _rest25607856086_)) + (let ((_hd5608356103_ (let () (declare (not safe)) - (##car _rest25880158809_))) - (_tl5880758828_ + (##car _rest25607856086_))) + (_tl5608456105_ (let () (declare (not safe)) - (##cdr _rest25880158809_)))) - (let* ((_x258831_ _hd5880658826_) - (_rest258833_ _tl5880758828_)) + (##cdr _rest25607856086_)))) + (let* ((_x256108_ _hd5608356103_) + (_rest256110_ _tl5608456105_)) (declare (not safe)) - (_K5880558823_ _rest258833_ _x258831_))) - (let () (declare (not safe)) (_else5880358817_))))))) - (if (let () (declare (not safe)) (##pair? _rest15878058788_)) - (let ((_hd5878558838_ - (let () (declare (not safe)) (##car _rest15878058788_))) - (_tl5878658840_ + (_K5608256100_ _rest256110_ _x256108_))) + (let () (declare (not safe)) (_else5608056094_))))))) + (if (let () (declare (not safe)) (##pair? _rest15605756065_)) + (let ((_hd5606256115_ + (let () (declare (not safe)) (##car _rest15605756065_))) + (_tl5606356117_ (let () (declare (not safe)) - (##cdr _rest15878058788_)))) - (let* ((_x158843_ _hd5878558838_) - (_rest158845_ _tl5878658840_)) + (##cdr _rest15605756065_)))) + (let* ((_x156120_ _hd5606256115_) + (_rest156122_ _tl5606356117_)) (declare (not safe)) - (_K5878458835_ _rest158845_ _x158843_))) - (let () (declare (not safe)) (_else5878258796_))))))) + (_K5606156112_ _rest156122_ _x156120_))) + (let () (declare (not safe)) (_else5605956073_))))))) (define foldr - (lambda _g64379_ - (let ((_g64378_ (let () (declare (not safe)) (##length _g64379_)))) - (cond ((let () (declare (not safe)) (##fx= _g64378_ 3)) - (apply (lambda (_f58756_ _iv58757_ _lst58758_) + (lambda _g56877_ + (let ((_g56876_ (let () (declare (not safe)) (##length _g56877_)))) + (cond ((let () (declare (not safe)) (##fx= _g56876_ 3)) + (apply (lambda (_f56033_ _iv56034_ _lst56035_) (let () (declare (not safe)) - (foldr1 _f58756_ _iv58757_ _lst58758_))) - _g64379_)) - ((let () (declare (not safe)) (##fx= _g64378_ 4)) - (apply (lambda (_f58760_ _iv58761_ _lst158762_ _lst258763_) + (foldr1 _f56033_ _iv56034_ _lst56035_))) + _g56877_)) + ((let () (declare (not safe)) (##fx= _g56876_ 4)) + (apply (lambda (_f56037_ _iv56038_ _lst156039_ _lst256040_) (let () (declare (not safe)) - (foldr2 _f58760_ - _iv58761_ - _lst158762_ - _lst258763_))) - _g64379_)) - ((let () (declare (not safe)) (##fx>= _g64378_ 4)) - (apply foldr* _g64379_)) + (foldr2 _f56037_ + _iv56038_ + _lst156039_ + _lst256040_))) + _g56877_)) + ((let () (declare (not safe)) (##fx>= _g56876_ 4)) + (apply foldr* _g56877_)) (else (##raise-wrong-number-of-arguments-exception foldr - _g64379_)))))) + _g56877_)))))) (define foldr* - (lambda (_f58745_ _iv58746_ . _rest58747_) - (let _recur58749_ ((_rest58751_ _rest58747_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest58751_)) - (apply _f58745_ - (let ((__tmp64382 - (lambda (_xs58753_ _r58754_) - (let ((__tmp64383 (car _xs58753_))) + (lambda (_f56022_ _iv56023_ . _rest56024_) + (let _recur56026_ ((_rest56028_ _rest56024_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest56028_)) + (apply _f56022_ + (let ((__tmp56880 + (lambda (_xs56030_ _r56031_) + (let ((__tmp56881 (car _xs56030_))) (declare (not safe)) - (cons __tmp64383 _r58754_)))) - (__tmp64380 - (list (let ((__tmp64381 (map cdr _rest58751_))) + (cons __tmp56881 _r56031_)))) + (__tmp56878 + (list (let ((__tmp56879 (map cdr _rest56028_))) (declare (not safe)) - (_recur58749_ __tmp64381))))) + (_recur56026_ __tmp56879))))) (declare (not safe)) - (foldr1 __tmp64382 __tmp64380 _rest58751_))) - _iv58746_)))) + (foldr1 __tmp56880 __tmp56878 _rest56028_))) + _iv56023_)))) (define drop - (lambda (_l58742_ _k58743_) - (if (let () (declare (not safe)) (##fxpositive? _k58743_)) - (let ((__tmp64385 (cdr _l58742_)) - (__tmp64384 (let () (declare (not safe)) (fx- _k58743_ '1)))) + (lambda (_l56019_ _k56020_) + (if (let () (declare (not safe)) (##fxpositive? _k56020_)) + (let ((__tmp56883 (let () (declare (not safe)) (##cdr _l56019_))) + (__tmp56882 + (let () (declare (not safe)) (##fx- _k56020_ '1)))) (declare (not safe)) - (drop __tmp64385 __tmp64384)) - _l58742_))) + (drop __tmp56883 __tmp56882)) + _l56019_))) (define remove-nulls! - (lambda (_l58629_) - (let* ((_l5863058643_ _l58629_) - (_E5863458647_ - (lambda () (error '"No clause matching" _l5863058643_)))) - (let ((_K5863958732_ - (lambda (_r58730_) - (let () (declare (not safe)) (remove-nulls! _r58730_)))) - (_K5863658719_ - (lambda (_r58659_) - (let _loop58661_ ((_l58663_ _l58629_) (_r58664_ _r58659_)) - (let* ((_r5866558678_ _r58664_) - (_E5866958682_ + (lambda (_l55906_) + (let* ((_l5590755920_ _l55906_) + (_E5591155924_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" _l5590755920_))))) + (let ((_K5591656009_ + (lambda (_r56007_) + (let () (declare (not safe)) (remove-nulls! _r56007_)))) + (_K5591355996_ + (lambda (_r55936_) + (let _loop55938_ ((_l55940_ _l55906_) (_r55941_ _r55936_)) + (let* ((_r5594255955_ _r55941_) + (_E5594655959_ (lambda () - (error '"No clause matching" _r5866558678_)))) - (let ((_K5867458709_ - (lambda (_rr58707_) + (let () + (declare (not safe)) + (error '"No clause matching" + _r5594255955_))))) + (let ((_K5595155986_ + (lambda (_rr55984_) (set-cdr! - _l58663_ + _l55940_ (let () (declare (not safe)) - (remove-nulls! _rr58707_))))) - (_K5867158696_ - (lambda (_rr58694_) + (remove-nulls! _rr55984_))))) + (_K5594855973_ + (lambda (_rr55971_) (let () (declare (not safe)) - (_loop58661_ _r58664_ _rr58694_)))) - (_K5867058687_ (lambda () '#!void))) + (_loop55938_ _r55941_ _rr55971_)))) + (_K5594755964_ (lambda () '#!void))) (if (let () (declare (not safe)) - (##pair? _r5866558678_)) - (let ((_tl5867658714_ + (##pair? _r5594255955_)) + (let ((_tl5595355991_ (let () (declare (not safe)) - (##cdr _r5866558678_))) - (_hd5867558712_ + (##cdr _r5594255955_))) + (_hd5595255989_ (let () (declare (not safe)) - (##car _r5866558678_)))) + (##car _r5594255955_)))) (if (let () (declare (not safe)) - (##null? _hd5867558712_)) - (let ((_rr58717_ _tl5867658714_)) + (##null? _hd5595255989_)) + (let ((_rr55994_ _tl5595355991_)) (declare (not safe)) - (_K5867458709_ _rr58717_)) - (let ((_rr58702_ _tl5867658714_)) + (_K5595155986_ _rr55994_)) + (let ((_rr55979_ _tl5595355991_)) (declare (not safe)) - (_K5867158696_ _rr58702_)))) + (_K5594855973_ _rr55979_)))) '#!void)))) - _l58629_)) - (_K5863558652_ (lambda () _l58629_))) - (if (let () (declare (not safe)) (##pair? _l5863058643_)) - (let ((_tl5864158737_ - (let () (declare (not safe)) (##cdr _l5863058643_))) - (_hd5864058735_ - (let () (declare (not safe)) (##car _l5863058643_)))) - (if (let () (declare (not safe)) (##null? _hd5864058735_)) - (let ((_r58740_ _tl5864158737_)) + _l55906_)) + (_K5591255929_ (lambda () _l55906_))) + (if (let () (declare (not safe)) (##pair? _l5590755920_)) + (let ((_tl5591856014_ + (let () (declare (not safe)) (##cdr _l5590755920_))) + (_hd5591756012_ + (let () (declare (not safe)) (##car _l5590755920_)))) + (if (let () (declare (not safe)) (##null? _hd5591756012_)) + (let ((_r56017_ _tl5591856014_)) (declare (not safe)) - (remove-nulls! _r58740_)) - (let ((_r58725_ _tl5864158737_)) + (remove-nulls! _r56017_)) + (let ((_r56002_ _tl5591856014_)) (declare (not safe)) - (_K5863658719_ _r58725_)))) - (let () (declare (not safe)) (_K5863558652_))))))) + (_K5591355996_ _r56002_)))) + (let () (declare (not safe)) (_K5591255929_))))))) (define append1! - (lambda (_l58624_ _x58625_) - (let ((_l258627_ (let () (declare (not safe)) (cons _x58625_ '())))) - (if (let () (declare (not safe)) (pair? _l58624_)) + (lambda (_l55901_ _x55902_) + (let ((_l255904_ (let () (declare (not safe)) (cons _x55902_ '())))) + (if (let () (declare (not safe)) (pair? _l55901_)) (set-cdr! - (let () (declare (not safe)) (##last-pair _l58624_)) - _l258627_) - _l258627_)))) + (let () (declare (not safe)) (##last-pair _l55901_)) + _l255904_) + _l255904_)))) (define append-reverse - (lambda (_rev-head58621_ _tail58622_) + (lambda (_rev-head55898_ _tail55899_) (let () (declare (not safe)) - (foldl1 cons _tail58622_ _rev-head58621_)))) + (foldl1 cons _tail55899_ _rev-head55898_)))) (define append-reverse-until - (lambda (_pred58574_ _rhead58575_ _tail58576_) - (let _loop58578_ ((_rhead58580_ _rhead58575_) - (_tail58581_ _tail58576_)) - (let* ((_rhead5858258591_ _rhead58580_) - (_E5858558595_ - (lambda () (error '"No clause matching" _rhead5858258591_)))) - (let ((_K5858958618_ (lambda () (values '() _tail58581_))) - (_K5858658602_ - (lambda (_r58599_ _a58600_) - (if (_pred58574_ _a58600_) - (values _rhead58580_ _tail58581_) - (let ((__tmp64386 + (lambda (_pred55851_ _rhead55852_ _tail55853_) + (let _loop55855_ ((_rhead55857_ _rhead55852_) + (_tail55858_ _tail55853_)) + (let* ((_rhead5585955868_ _rhead55857_) + (_E5586255872_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" _rhead5585955868_))))) + (let ((_K5586655895_ (lambda () (values '() _tail55858_))) + (_K5586355879_ + (lambda (_r55876_ _a55877_) + (if (_pred55851_ _a55877_) + (values _rhead55857_ _tail55858_) + (let ((__tmp56884 (let () (declare (not safe)) - (cons _a58600_ _tail58581_)))) + (cons _a55877_ _tail55858_)))) (declare (not safe)) - (_loop58578_ _r58599_ __tmp64386)))))) - (let ((_try-match5858458614_ + (_loop55855_ _r55876_ __tmp56884)))))) + (let ((_try-match5586155891_ (lambda () (if (let () (declare (not safe)) - (##pair? _rhead5858258591_)) - (let ((_tl5858858607_ + (##pair? _rhead5585955868_)) + (let ((_tl5586555884_ (let () (declare (not safe)) - (##cdr _rhead5858258591_))) - (_hd5858758605_ + (##cdr _rhead5585955868_))) + (_hd5586455882_ (let () (declare (not safe)) - (##car _rhead5858258591_)))) - (let ((_a58610_ _hd5858758605_) - (_r58612_ _tl5858858607_)) + (##car _rhead5585955868_)))) + (let ((_a55887_ _hd5586455882_) + (_r55889_ _tl5586555884_)) (let () (declare (not safe)) - (_K5858658602_ _r58612_ _a58610_)))) - (let () (declare (not safe)) (_E5858558595_)))))) - (if (let () (declare (not safe)) (##null? _rhead5858258591_)) - (let () (declare (not safe)) (_K5858958618_)) + (_K5586355879_ _r55889_ _a55887_)))) + (let () (declare (not safe)) (_E5586255872_)))))) + (if (let () (declare (not safe)) (##null? _rhead5585955868_)) + (let () (declare (not safe)) (_K5586655895_)) (let () (declare (not safe)) - (_try-match5858458614_))))))))) + (_try-match5586155891_))))))))) (define andmap1 - (lambda (_f58534_ _lst58535_) - (let _lp58537_ ((_rest58539_ _lst58535_)) - (let* ((_rest5854058548_ _rest58539_) - (_else5854258556_ (lambda () '#t)) - (_K5854458562_ - (lambda (_rest58559_ _x58560_) - (if (_f58534_ _x58560_) - (let () (declare (not safe)) (_lp58537_ _rest58559_)) + (lambda (_f55811_ _lst55812_) + (let _lp55814_ ((_rest55816_ _lst55812_)) + (let* ((_rest5581755825_ _rest55816_) + (_else5581955833_ (lambda () '#t)) + (_K5582155839_ + (lambda (_rest55836_ _x55837_) + (if (_f55811_ _x55837_) + (let () (declare (not safe)) (_lp55814_ _rest55836_)) '#f)))) - (if (let () (declare (not safe)) (##pair? _rest5854058548_)) - (let ((_hd5854558565_ - (let () (declare (not safe)) (##car _rest5854058548_))) - (_tl5854658567_ - (let () (declare (not safe)) (##cdr _rest5854058548_)))) - (let* ((_x58570_ _hd5854558565_) - (_rest58572_ _tl5854658567_)) + (if (let () (declare (not safe)) (##pair? _rest5581755825_)) + (let ((_hd5582255842_ + (let () (declare (not safe)) (##car _rest5581755825_))) + (_tl5582355844_ + (let () (declare (not safe)) (##cdr _rest5581755825_)))) + (let* ((_x55847_ _hd5582255842_) + (_rest55849_ _tl5582355844_)) (declare (not safe)) - (_K5854458562_ _rest58572_ _x58570_))) - (let () (declare (not safe)) (_else5854258556_))))))) + (_K5582155839_ _rest55849_ _x55847_))) + (let () (declare (not safe)) (_else5581955833_))))))) (define andmap2 - (lambda (_f58459_ _lst158460_ _lst258461_) - (let _lp58463_ ((_rest158465_ _lst158460_) (_rest258466_ _lst258461_)) - (let* ((_rest15846758475_ _rest158465_) - (_else5846958483_ (lambda () '#t)) - (_K5847158522_ - (lambda (_rest158486_ _x158487_) - (let* ((_rest25848858496_ _rest258466_) - (_else5849058504_ (lambda () '#t)) - (_K5849258510_ - (lambda (_rest258507_ _x258508_) - (if (_f58459_ _x158487_ _x258508_) + (lambda (_f55736_ _lst155737_ _lst255738_) + (let _lp55740_ ((_rest155742_ _lst155737_) (_rest255743_ _lst255738_)) + (let* ((_rest15574455752_ _rest155742_) + (_else5574655760_ (lambda () '#t)) + (_K5574855799_ + (lambda (_rest155763_ _x155764_) + (let* ((_rest25576555773_ _rest255743_) + (_else5576755781_ (lambda () '#t)) + (_K5576955787_ + (lambda (_rest255784_ _x255785_) + (if (_f55736_ _x155764_ _x255785_) (let () (declare (not safe)) - (_lp58463_ _rest158486_ _rest258507_)) + (_lp55740_ _rest155763_ _rest255784_)) '#f)))) (if (let () (declare (not safe)) - (##pair? _rest25848858496_)) - (let ((_hd5849358513_ + (##pair? _rest25576555773_)) + (let ((_hd5577055790_ (let () (declare (not safe)) - (##car _rest25848858496_))) - (_tl5849458515_ + (##car _rest25576555773_))) + (_tl5577155792_ (let () (declare (not safe)) - (##cdr _rest25848858496_)))) - (let* ((_x258518_ _hd5849358513_) - (_rest258520_ _tl5849458515_)) + (##cdr _rest25576555773_)))) + (let* ((_x255795_ _hd5577055790_) + (_rest255797_ _tl5577155792_)) (declare (not safe)) - (_K5849258510_ _rest258520_ _x258518_))) - (let () (declare (not safe)) (_else5849058504_))))))) - (if (let () (declare (not safe)) (##pair? _rest15846758475_)) - (let ((_hd5847258525_ - (let () (declare (not safe)) (##car _rest15846758475_))) - (_tl5847358527_ + (_K5576955787_ _rest255797_ _x255795_))) + (let () (declare (not safe)) (_else5576755781_))))))) + (if (let () (declare (not safe)) (##pair? _rest15574455752_)) + (let ((_hd5574955802_ + (let () (declare (not safe)) (##car _rest15574455752_))) + (_tl5575055804_ (let () (declare (not safe)) - (##cdr _rest15846758475_)))) - (let* ((_x158530_ _hd5847258525_) - (_rest158532_ _tl5847358527_)) + (##cdr _rest15574455752_)))) + (let* ((_x155807_ _hd5574955802_) + (_rest155809_ _tl5575055804_)) (declare (not safe)) - (_K5847158522_ _rest158532_ _x158530_))) - (let () (declare (not safe)) (_else5846958483_))))))) + (_K5574855799_ _rest155809_ _x155807_))) + (let () (declare (not safe)) (_else5574655760_))))))) (define andmap - (lambda _g64388_ - (let ((_g64387_ (let () (declare (not safe)) (##length _g64388_)))) - (cond ((let () (declare (not safe)) (##fx= _g64387_ 2)) - (apply (lambda (_f58447_ _lst58448_) + (lambda _g56886_ + (let ((_g56885_ (let () (declare (not safe)) (##length _g56886_)))) + (cond ((let () (declare (not safe)) (##fx= _g56885_ 2)) + (apply (lambda (_f55724_ _lst55725_) (let () (declare (not safe)) - (andmap1 _f58447_ _lst58448_))) - _g64388_)) - ((let () (declare (not safe)) (##fx= _g64387_ 3)) - (apply (lambda (_f58450_ _lst158451_ _lst258452_) + (andmap1 _f55724_ _lst55725_))) + _g56886_)) + ((let () (declare (not safe)) (##fx= _g56885_ 3)) + (apply (lambda (_f55727_ _lst155728_ _lst255729_) (let () (declare (not safe)) - (andmap2 _f58450_ _lst158451_ _lst258452_))) - _g64388_)) - ((let () (declare (not safe)) (##fx>= _g64387_ 3)) - (apply andmap* _g64388_)) + (andmap2 _f55727_ _lst155728_ _lst255729_))) + _g56886_)) + ((let () (declare (not safe)) (##fx>= _g56885_ 3)) + (apply andmap* _g56886_)) (else (##raise-wrong-number-of-arguments-exception andmap - _g64388_)))))) + _g56886_)))))) (define andmap* - (lambda (_f58440_ . _rest58441_) - (let _recur58443_ ((_rest58445_ _rest58441_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest58445_)) - (if (apply _f58440_ (map car _rest58445_)) - (let ((__tmp64389 (map cdr _rest58445_))) + (lambda (_f55717_ . _rest55718_) + (let _recur55720_ ((_rest55722_ _rest55718_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest55722_)) + (if (apply _f55717_ (map car _rest55722_)) + (let ((__tmp56887 (map cdr _rest55722_))) (declare (not safe)) - (_recur58443_ __tmp64389)) + (_recur55720_ __tmp56887)) '#f) '#t)))) (define ormap1 - (lambda (_f58397_ _lst58398_) - (let _lp58400_ ((_rest58402_ _lst58398_)) - (let* ((_rest5840358411_ _rest58402_) - (_else5840558419_ (lambda () '#f)) - (_K5840758428_ - (lambda (_rest58422_ _x58423_) - (let ((_$e58425_ (_f58397_ _x58423_))) - (if _$e58425_ - _$e58425_ + (lambda (_f55674_ _lst55675_) + (let _lp55677_ ((_rest55679_ _lst55675_)) + (let* ((_rest5568055688_ _rest55679_) + (_else5568255696_ (lambda () '#f)) + (_K5568455705_ + (lambda (_rest55699_ _x55700_) + (let ((_$e55702_ (_f55674_ _x55700_))) + (if _$e55702_ + _$e55702_ (let () (declare (not safe)) - (_lp58400_ _rest58422_))))))) - (if (let () (declare (not safe)) (##pair? _rest5840358411_)) - (let ((_hd5840858431_ - (let () (declare (not safe)) (##car _rest5840358411_))) - (_tl5840958433_ - (let () (declare (not safe)) (##cdr _rest5840358411_)))) - (let* ((_x58436_ _hd5840858431_) - (_rest58438_ _tl5840958433_)) + (_lp55677_ _rest55699_))))))) + (if (let () (declare (not safe)) (##pair? _rest5568055688_)) + (let ((_hd5568555708_ + (let () (declare (not safe)) (##car _rest5568055688_))) + (_tl5568655710_ + (let () (declare (not safe)) (##cdr _rest5568055688_)))) + (let* ((_x55713_ _hd5568555708_) + (_rest55715_ _tl5568655710_)) (declare (not safe)) - (_K5840758428_ _rest58438_ _x58436_))) - (let () (declare (not safe)) (_else5840558419_))))))) + (_K5568455705_ _rest55715_ _x55713_))) + (let () (declare (not safe)) (_else5568255696_))))))) (define ormap2 - (lambda (_f58319_ _lst158320_ _lst258321_) - (let _lp58323_ ((_rest158325_ _lst158320_) (_rest258326_ _lst258321_)) - (let* ((_rest15832758335_ _rest158325_) - (_else5832958343_ (lambda () '#f)) - (_K5833158385_ - (lambda (_rest158346_ _x158347_) - (let* ((_rest25834858356_ _rest258326_) - (_else5835058364_ (lambda () '#f)) - (_K5835258373_ - (lambda (_rest258367_ _x258368_) - (let ((_$e58370_ (_f58319_ _x158347_ _x258368_))) - (if _$e58370_ - _$e58370_ + (lambda (_f55596_ _lst155597_ _lst255598_) + (let _lp55600_ ((_rest155602_ _lst155597_) (_rest255603_ _lst255598_)) + (let* ((_rest15560455612_ _rest155602_) + (_else5560655620_ (lambda () '#f)) + (_K5560855662_ + (lambda (_rest155623_ _x155624_) + (let* ((_rest25562555633_ _rest255603_) + (_else5562755641_ (lambda () '#f)) + (_K5562955650_ + (lambda (_rest255644_ _x255645_) + (let ((_$e55647_ (_f55596_ _x155624_ _x255645_))) + (if _$e55647_ + _$e55647_ (let () (declare (not safe)) - (_lp58323_ - _rest158346_ - _rest258367_))))))) + (_lp55600_ + _rest155623_ + _rest255644_))))))) (if (let () (declare (not safe)) - (##pair? _rest25834858356_)) - (let ((_hd5835358376_ + (##pair? _rest25562555633_)) + (let ((_hd5563055653_ (let () (declare (not safe)) - (##car _rest25834858356_))) - (_tl5835458378_ + (##car _rest25562555633_))) + (_tl5563155655_ (let () (declare (not safe)) - (##cdr _rest25834858356_)))) - (let* ((_x258381_ _hd5835358376_) - (_rest258383_ _tl5835458378_)) + (##cdr _rest25562555633_)))) + (let* ((_x255658_ _hd5563055653_) + (_rest255660_ _tl5563155655_)) (declare (not safe)) - (_K5835258373_ _rest258383_ _x258381_))) - (let () (declare (not safe)) (_else5835058364_))))))) - (if (let () (declare (not safe)) (##pair? _rest15832758335_)) - (let ((_hd5833258388_ - (let () (declare (not safe)) (##car _rest15832758335_))) - (_tl5833358390_ + (_K5562955650_ _rest255660_ _x255658_))) + (let () (declare (not safe)) (_else5562755641_))))))) + (if (let () (declare (not safe)) (##pair? _rest15560455612_)) + (let ((_hd5560955665_ + (let () (declare (not safe)) (##car _rest15560455612_))) + (_tl5561055667_ (let () (declare (not safe)) - (##cdr _rest15832758335_)))) - (let* ((_x158393_ _hd5833258388_) - (_rest158395_ _tl5833358390_)) + (##cdr _rest15560455612_)))) + (let* ((_x155670_ _hd5560955665_) + (_rest155672_ _tl5561055667_)) (declare (not safe)) - (_K5833158385_ _rest158395_ _x158393_))) - (let () (declare (not safe)) (_else5832958343_))))))) + (_K5560855662_ _rest155672_ _x155670_))) + (let () (declare (not safe)) (_else5560655620_))))))) (define ormap - (lambda _g64391_ - (let ((_g64390_ (let () (declare (not safe)) (##length _g64391_)))) - (cond ((let () (declare (not safe)) (##fx= _g64390_ 2)) - (apply (lambda (_f58307_ _lst58308_) + (lambda _g56889_ + (let ((_g56888_ (let () (declare (not safe)) (##length _g56889_)))) + (cond ((let () (declare (not safe)) (##fx= _g56888_ 2)) + (apply (lambda (_f55584_ _lst55585_) (let () (declare (not safe)) - (ormap1 _f58307_ _lst58308_))) - _g64391_)) - ((let () (declare (not safe)) (##fx= _g64390_ 3)) - (apply (lambda (_f58310_ _lst158311_ _lst258312_) + (ormap1 _f55584_ _lst55585_))) + _g56889_)) + ((let () (declare (not safe)) (##fx= _g56888_ 3)) + (apply (lambda (_f55587_ _lst155588_ _lst255589_) (let () (declare (not safe)) - (ormap2 _f58310_ _lst158311_ _lst258312_))) - _g64391_)) - ((let () (declare (not safe)) (##fx>= _g64390_ 3)) - (apply ormap* _g64391_)) + (ormap2 _f55587_ _lst155588_ _lst255589_))) + _g56889_)) + ((let () (declare (not safe)) (##fx>= _g56888_ 3)) + (apply ormap* _g56889_)) (else (##raise-wrong-number-of-arguments-exception ormap - _g64391_)))))) + _g56889_)))))) (define ormap* - (lambda (_f58297_ . _rest58298_) - (let _recur58300_ ((_rest58302_ _rest58298_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest58302_)) - (let ((_$e58304_ (apply _f58297_ (map car _rest58302_)))) - (if _$e58304_ - _$e58304_ - (let ((__tmp64392 (map cdr _rest58302_))) + (lambda (_f55574_ . _rest55575_) + (let _recur55577_ ((_rest55579_ _rest55575_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest55579_)) + (let ((_$e55581_ (apply _f55574_ (map car _rest55579_)))) + (if _$e55581_ + _$e55581_ + (let ((__tmp56890 (map cdr _rest55579_))) (declare (not safe)) - (_recur58300_ __tmp64392)))) + (_recur55577_ __tmp56890)))) '#f)))) (define filter - (lambda (_f58255_ _lst58256_) - (let _recur58258_ ((_lst58260_ _lst58256_)) - (let* ((_lst5826158269_ _lst58260_) - (_else5826358277_ (lambda () '())) - (_K5826558285_ - (lambda (_rest58280_ _hd58281_) - (if (_f58255_ _hd58281_) - (let ((_tail58283_ + (lambda (_f55532_ _lst55533_) + (let _recur55535_ ((_lst55537_ _lst55533_)) + (let* ((_lst5553855546_ _lst55537_) + (_else5554055554_ (lambda () '())) + (_K5554255562_ + (lambda (_rest55557_ _hd55558_) + (if (_f55532_ _hd55558_) + (let ((_tail55560_ (let () (declare (not safe)) - (_recur58258_ _rest58280_)))) + (_recur55535_ _rest55557_)))) (if (let () (declare (not safe)) - (eq? _tail58283_ _rest58280_)) - _lst58260_ + (eq? _tail55560_ _rest55557_)) + _lst55537_ (let () (declare (not safe)) - (cons _hd58281_ _tail58283_)))) + (cons _hd55558_ _tail55560_)))) (let () (declare (not safe)) - (_recur58258_ _rest58280_)))))) - (if (let () (declare (not safe)) (##pair? _lst5826158269_)) - (let ((_hd5826658288_ - (let () (declare (not safe)) (##car _lst5826158269_))) - (_tl5826758290_ - (let () (declare (not safe)) (##cdr _lst5826158269_)))) - (let* ((_hd58293_ _hd5826658288_) - (_rest58295_ _tl5826758290_)) + (_recur55535_ _rest55557_)))))) + (if (let () (declare (not safe)) (##pair? _lst5553855546_)) + (let ((_hd5554355565_ + (let () (declare (not safe)) (##car _lst5553855546_))) + (_tl5554455567_ + (let () (declare (not safe)) (##cdr _lst5553855546_)))) + (let* ((_hd55570_ _hd5554355565_) + (_rest55572_ _tl5554455567_)) (declare (not safe)) - (_K5826558285_ _rest58295_ _hd58293_))) - (let () (declare (not safe)) (_else5826358277_))))))) + (_K5554255562_ _rest55572_ _hd55570_))) + (let () (declare (not safe)) (_else5554055554_))))))) (define filter-map1 - (lambda (_f58210_ _lst58211_) - (let _recur58213_ ((_rest58215_ _lst58211_)) - (let* ((_rest5821658224_ _rest58215_) - (_else5821858232_ (lambda () '())) - (_K5822058243_ - (lambda (_rest58235_ _x58236_) - (let ((_$e58238_ (_f58210_ _x58236_))) - (if _$e58238_ - ((lambda (_r58241_) - (let ((__tmp64393 + (lambda (_f55487_ _lst55488_) + (let _recur55490_ ((_rest55492_ _lst55488_)) + (let* ((_rest5549355501_ _rest55492_) + (_else5549555509_ (lambda () '())) + (_K5549755520_ + (lambda (_rest55512_ _x55513_) + (let ((_$e55515_ (_f55487_ _x55513_))) + (if _$e55515_ + ((lambda (_r55518_) + (let ((__tmp56891 (let () (declare (not safe)) - (_recur58213_ _rest58235_)))) + (_recur55490_ _rest55512_)))) (declare (not safe)) - (cons _r58241_ __tmp64393))) - _$e58238_) + (cons _r55518_ __tmp56891))) + _$e55515_) (let () (declare (not safe)) - (_recur58213_ _rest58235_))))))) - (if (let () (declare (not safe)) (##pair? _rest5821658224_)) - (let ((_hd5822158246_ - (let () (declare (not safe)) (##car _rest5821658224_))) - (_tl5822258248_ - (let () (declare (not safe)) (##cdr _rest5821658224_)))) - (let* ((_x58251_ _hd5822158246_) - (_rest58253_ _tl5822258248_)) + (_recur55490_ _rest55512_))))))) + (if (let () (declare (not safe)) (##pair? _rest5549355501_)) + (let ((_hd5549855523_ + (let () (declare (not safe)) (##car _rest5549355501_))) + (_tl5549955525_ + (let () (declare (not safe)) (##cdr _rest5549355501_)))) + (let* ((_x55528_ _hd5549855523_) + (_rest55530_ _tl5549955525_)) (declare (not safe)) - (_K5822058243_ _rest58253_ _x58251_))) - (let () (declare (not safe)) (_else5821858232_))))))) + (_K5549755520_ _rest55530_ _x55528_))) + (let () (declare (not safe)) (_else5549555509_))))))) (define filter-map2 - (lambda (_f58130_ _lst158131_ _lst258132_) - (let _recur58134_ ((_rest158136_ _lst158131_) - (_rest258137_ _lst258132_)) - (let* ((_rest15813858146_ _rest158136_) - (_else5814058154_ (lambda () '())) - (_K5814258198_ - (lambda (_rest158157_ _x158158_) - (let* ((_rest25815958167_ _rest258137_) - (_else5816158175_ (lambda () '())) - (_K5816358186_ - (lambda (_rest258178_ _x258179_) - (let ((_$e58181_ (_f58130_ _x158158_ _x258179_))) - (if _$e58181_ - ((lambda (_r58184_) - (let ((__tmp64394 + (lambda (_f55407_ _lst155408_ _lst255409_) + (let _recur55411_ ((_rest155413_ _lst155408_) + (_rest255414_ _lst255409_)) + (let* ((_rest15541555423_ _rest155413_) + (_else5541755431_ (lambda () '())) + (_K5541955475_ + (lambda (_rest155434_ _x155435_) + (let* ((_rest25543655444_ _rest255414_) + (_else5543855452_ (lambda () '())) + (_K5544055463_ + (lambda (_rest255455_ _x255456_) + (let ((_$e55458_ (_f55407_ _x155435_ _x255456_))) + (if _$e55458_ + ((lambda (_r55461_) + (let ((__tmp56892 (let () (declare (not safe)) - (_recur58134_ - _rest158157_ - _rest258178_)))) + (_recur55411_ + _rest155434_ + _rest255455_)))) (declare (not safe)) - (cons _r58184_ __tmp64394))) - _$e58181_) + (cons _r55461_ __tmp56892))) + _$e55458_) (let () (declare (not safe)) - (_recur58134_ - _rest158157_ - _rest258178_))))))) + (_recur55411_ + _rest155434_ + _rest255455_))))))) (if (let () (declare (not safe)) - (##pair? _rest25815958167_)) - (let ((_hd5816458189_ + (##pair? _rest25543655444_)) + (let ((_hd5544155466_ (let () (declare (not safe)) - (##car _rest25815958167_))) - (_tl5816558191_ + (##car _rest25543655444_))) + (_tl5544255468_ (let () (declare (not safe)) - (##cdr _rest25815958167_)))) - (let* ((_x258194_ _hd5816458189_) - (_rest258196_ _tl5816558191_)) + (##cdr _rest25543655444_)))) + (let* ((_x255471_ _hd5544155466_) + (_rest255473_ _tl5544255468_)) (declare (not safe)) - (_K5816358186_ _rest258196_ _x258194_))) - (let () (declare (not safe)) (_else5816158175_))))))) - (if (let () (declare (not safe)) (##pair? _rest15813858146_)) - (let ((_hd5814358201_ - (let () (declare (not safe)) (##car _rest15813858146_))) - (_tl5814458203_ + (_K5544055463_ _rest255473_ _x255471_))) + (let () (declare (not safe)) (_else5543855452_))))))) + (if (let () (declare (not safe)) (##pair? _rest15541555423_)) + (let ((_hd5542055478_ + (let () (declare (not safe)) (##car _rest15541555423_))) + (_tl5542155480_ (let () (declare (not safe)) - (##cdr _rest15813858146_)))) - (let* ((_x158206_ _hd5814358201_) - (_rest158208_ _tl5814458203_)) + (##cdr _rest15541555423_)))) + (let* ((_x155483_ _hd5542055478_) + (_rest155485_ _tl5542155480_)) (declare (not safe)) - (_K5814258198_ _rest158208_ _x158206_))) - (let () (declare (not safe)) (_else5814058154_))))))) + (_K5541955475_ _rest155485_ _x155483_))) + (let () (declare (not safe)) (_else5541755431_))))))) (define filter-map - (lambda _g64396_ - (let ((_g64395_ (let () (declare (not safe)) (##length _g64396_)))) - (cond ((let () (declare (not safe)) (##fx= _g64395_ 2)) - (apply (lambda (_f58118_ _lst58119_) + (lambda _g56894_ + (let ((_g56893_ (let () (declare (not safe)) (##length _g56894_)))) + (cond ((let () (declare (not safe)) (##fx= _g56893_ 2)) + (apply (lambda (_f55395_ _lst55396_) (let () (declare (not safe)) - (filter-map1 _f58118_ _lst58119_))) - _g64396_)) - ((let () (declare (not safe)) (##fx= _g64395_ 3)) - (apply (lambda (_f58121_ _lst158122_ _lst258123_) + (filter-map1 _f55395_ _lst55396_))) + _g56894_)) + ((let () (declare (not safe)) (##fx= _g56893_ 3)) + (apply (lambda (_f55398_ _lst155399_ _lst255400_) (let () (declare (not safe)) - (filter-map2 _f58121_ _lst158122_ _lst258123_))) - _g64396_)) - ((let () (declare (not safe)) (##fx>= _g64395_ 3)) - (apply filter-map* _g64396_)) + (filter-map2 _f55398_ _lst155399_ _lst255400_))) + _g56894_)) + ((let () (declare (not safe)) (##fx>= _g56893_ 3)) + (apply filter-map* _g56894_)) (else (##raise-wrong-number-of-arguments-exception filter-map - _g64396_)))))) + _g56894_)))))) (define filter-map* - (lambda (_f58106_ . _rest58107_) - (let _recur58109_ ((_rest58111_ _rest58107_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest58111_)) - (let ((_$e58113_ (apply _f58106_ (map car _rest58111_)))) - (if _$e58113_ - ((lambda (_r58116_) - (let ((__tmp64398 - (let ((__tmp64399 (map cdr _rest58111_))) + (lambda (_f55383_ . _rest55384_) + (let _recur55386_ ((_rest55388_ _rest55384_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest55388_)) + (let ((_$e55390_ (apply _f55383_ (map car _rest55388_)))) + (if _$e55390_ + ((lambda (_r55393_) + (let ((__tmp56896 + (let ((__tmp56897 (map cdr _rest55388_))) (declare (not safe)) - (_recur58109_ __tmp64399)))) + (_recur55386_ __tmp56897)))) (declare (not safe)) - (cons _r58116_ __tmp64398))) - _$e58113_) - (let ((__tmp64397 (map cdr _rest58111_))) + (cons _r55393_ __tmp56896))) + _$e55390_) + (let ((__tmp56895 (map cdr _rest55388_))) (declare (not safe)) - (_recur58109_ __tmp64397)))) + (_recur55386_ __tmp56895)))) '())))) (define iota__% - (lambda (_count58074_ _start58075_ _step58076_) - (if (fixnum? _count58074_) + (lambda (_count55351_ _start55352_ _step55353_) + (if (let () (declare (not safe)) (fixnum? _count55351_)) '#!void - (error '"expected fixnum" _count58074_)) - (if (let () (declare (not safe)) (number? _start58075_)) + (let () + (declare (not safe)) + (error '"expected fixnum" _count55351_))) + (if (let () (declare (not safe)) (number? _start55352_)) '#!void - (error '"expected number" _start58075_)) - (if (let () (declare (not safe)) (number? _step58076_)) + (let () + (declare (not safe)) + (error '"expected number" _start55352_))) + (if (let () (declare (not safe)) (number? _step55353_)) '#!void - (error '"expected number" _step58076_)) - (let ((_root58078_ (let () (declare (not safe)) (cons '#f '())))) - (let _lp58080_ ((_i58082_ '0) - (_x58083_ _start58075_) - (_tl58084_ _root58078_)) - (if (let () (declare (not safe)) (##fx< _i58082_ _count58074_)) - (let ((_tl*58086_ - (let () (declare (not safe)) (cons _x58083_ '())))) + (let () + (declare (not safe)) + (error '"expected number" _step55353_))) + (let ((_root55355_ (let () (declare (not safe)) (cons '#f '())))) + (let _lp55357_ ((_i55359_ '0) + (_x55360_ _start55352_) + (_tl55361_ _root55355_)) + (if (let () (declare (not safe)) (##fx< _i55359_ _count55351_)) + (let ((_tl*55363_ + (let () (declare (not safe)) (cons _x55360_ '())))) (let () (declare (not safe)) - (##set-cdr! _tl58084_ _tl*58086_)) - (let ((__tmp64401 - (let () (declare (not safe)) (##fx+ _i58082_ '1))) - (__tmp64400 (+ _x58083_ _step58076_))) + (##set-cdr! _tl55361_ _tl*55363_)) + (let ((__tmp56899 + (let () (declare (not safe)) (##fx+ _i55359_ '1))) + (__tmp56898 (+ _x55360_ _step55353_))) (declare (not safe)) - (_lp58080_ __tmp64401 __tmp64400 _tl*58086_))) - (let () (declare (not safe)) (##cdr _root58078_))))))) + (_lp55357_ __tmp56899 __tmp56898 _tl*55363_))) + (let () (declare (not safe)) (##cdr _root55355_))))))) (define iota__0 - (lambda (_count58091_) - (let* ((_start58093_ '0) (_step58095_ '1)) + (lambda (_count55368_) + (let* ((_start55370_ '0) (_step55372_ '1)) (declare (not safe)) - (iota__% _count58091_ _start58093_ _step58095_)))) + (iota__% _count55368_ _start55370_ _step55372_)))) (define iota__1 - (lambda (_count58097_ _start58098_) - (let ((_step58100_ '1)) + (lambda (_count55374_ _start55375_) + (let ((_step55377_ '1)) (declare (not safe)) - (iota__% _count58097_ _start58098_ _step58100_)))) + (iota__% _count55374_ _start55375_ _step55377_)))) (define iota - (lambda _g64403_ - (let ((_g64402_ (let () (declare (not safe)) (##length _g64403_)))) - (cond ((let () (declare (not safe)) (##fx= _g64402_ 1)) - (apply (lambda (_count58091_) - (let () (declare (not safe)) (iota__0 _count58091_))) - _g64403_)) - ((let () (declare (not safe)) (##fx= _g64402_ 2)) - (apply (lambda (_count58097_ _start58098_) + (lambda _g56901_ + (let ((_g56900_ (let () (declare (not safe)) (##length _g56901_)))) + (cond ((let () (declare (not safe)) (##fx= _g56900_ 1)) + (apply (lambda (_count55368_) + (let () (declare (not safe)) (iota__0 _count55368_))) + _g56901_)) + ((let () (declare (not safe)) (##fx= _g56900_ 2)) + (apply (lambda (_count55374_ _start55375_) (let () (declare (not safe)) - (iota__1 _count58097_ _start58098_))) - _g64403_)) - ((let () (declare (not safe)) (##fx= _g64402_ 3)) - (apply (lambda (_count58102_ _start58103_ _step58104_) + (iota__1 _count55374_ _start55375_))) + _g56901_)) + ((let () (declare (not safe)) (##fx= _g56900_ 3)) + (apply (lambda (_count55379_ _start55380_ _step55381_) (let () (declare (not safe)) - (iota__% _count58102_ _start58103_ _step58104_))) - _g64403_)) + (iota__% _count55379_ _start55380_ _step55381_))) + _g56901_)) (else (##raise-wrong-number-of-arguments-exception iota - _g64403_)))))) + _g56901_)))))) (define last-pair - (lambda (_lst58048_) - (let* ((_lst5804958056_ _lst58048_) - (_E5805158060_ - (lambda () (error '"No clause matching" _lst5804958056_))) - (_K5805258065_ - (lambda (_rest58063_) - (if (let () (declare (not safe)) (pair? _rest58063_)) - (let () (declare (not safe)) (last-pair _rest58063_)) - _lst58048_)))) - (if (let () (declare (not safe)) (##pair? _lst5804958056_)) - (let* ((_tl5805458068_ - (let () (declare (not safe)) (##cdr _lst5804958056_))) - (_rest58071_ _tl5805458068_)) + (lambda (_lst55325_) + (let* ((_lst5532655333_ _lst55325_) + (_E5532855337_ + (lambda () + (let () + (declare (not safe)) + (error '"No clause matching" _lst5532655333_)))) + (_K5532955342_ + (lambda (_rest55340_) + (if (let () (declare (not safe)) (pair? _rest55340_)) + (let () (declare (not safe)) (last-pair _rest55340_)) + _lst55325_)))) + (if (let () (declare (not safe)) (##pair? _lst5532655333_)) + (let* ((_tl5533155345_ + (let () (declare (not safe)) (##cdr _lst5532655333_))) + (_rest55348_ _tl5533155345_)) (declare (not safe)) - (_K5805258065_ _rest58071_)) - (let () (declare (not safe)) (_E5805158060_)))))) + (_K5532955342_ _rest55348_)) + (let () (declare (not safe)) (_E5532855337_)))))) (define last - (lambda (_lst58046_) - (car (let () (declare (not safe)) (last-pair _lst58046_))))) + (lambda (_lst55323_) + (car (let () (declare (not safe)) (last-pair _lst55323_))))) (define assgetq__% - (lambda (_key58024_ _lst58026_ _default58028_) - (let ((_$e58031_ - (if (let () (declare (not safe)) (pair? _lst58026_)) - (assq _key58024_ _lst58026_) + (lambda (_key55301_ _lst55303_ _default55305_) + (let ((_$e55308_ + (if (let () (declare (not safe)) (pair? _lst55303_)) + (assq _key55301_ _lst55303_) '#f))) - (if _$e58031_ - (cdr _$e58031_) - (if (let () (declare (not safe)) (procedure? _default58028_)) - (_default58028_ _key58024_) - _default58028_))))) + (if _$e55308_ + (cdr _$e55308_) + (if (let () (declare (not safe)) (procedure? _default55305_)) + (_default55305_ _key55301_) + _default55305_))))) (define assgetq__0 - (lambda (_key58037_ _lst58038_) - (let ((_default58040_ '#f)) + (lambda (_key55314_ _lst55315_) + (let ((_default55317_ '#f)) (declare (not safe)) - (assgetq__% _key58037_ _lst58038_ _default58040_)))) + (assgetq__% _key55314_ _lst55315_ _default55317_)))) (define assgetq - (lambda _g64405_ - (let ((_g64404_ (let () (declare (not safe)) (##length _g64405_)))) - (cond ((let () (declare (not safe)) (##fx= _g64404_ 2)) - (apply (lambda (_key58037_ _lst58038_) + (lambda _g56903_ + (let ((_g56902_ (let () (declare (not safe)) (##length _g56903_)))) + (cond ((let () (declare (not safe)) (##fx= _g56902_ 2)) + (apply (lambda (_key55314_ _lst55315_) (let () (declare (not safe)) - (assgetq__0 _key58037_ _lst58038_))) - _g64405_)) - ((let () (declare (not safe)) (##fx= _g64404_ 3)) - (apply (lambda (_key58042_ _lst58043_ _default58044_) + (assgetq__0 _key55314_ _lst55315_))) + _g56903_)) + ((let () (declare (not safe)) (##fx= _g56902_ 3)) + (apply (lambda (_key55319_ _lst55320_ _default55321_) (let () (declare (not safe)) - (assgetq__% _key58042_ _lst58043_ _default58044_))) - _g64405_)) + (assgetq__% _key55319_ _lst55320_ _default55321_))) + _g56903_)) (else (##raise-wrong-number-of-arguments-exception assgetq - _g64405_)))))) + _g56903_)))))) (define assgetv__% - (lambda (_key58001_ _lst58003_ _default58005_) - (let ((_$e58008_ - (if (let () (declare (not safe)) (pair? _lst58003_)) - (assv _key58001_ _lst58003_) + (lambda (_key55278_ _lst55280_ _default55282_) + (let ((_$e55285_ + (if (let () (declare (not safe)) (pair? _lst55280_)) + (assv _key55278_ _lst55280_) '#f))) - (if _$e58008_ - (cdr _$e58008_) - (if (let () (declare (not safe)) (procedure? _default58005_)) - (_default58005_ _key58001_) - _default58005_))))) + (if _$e55285_ + (cdr _$e55285_) + (if (let () (declare (not safe)) (procedure? _default55282_)) + (_default55282_ _key55278_) + _default55282_))))) (define assgetv__0 - (lambda (_key58014_ _lst58015_) - (let ((_default58017_ '#f)) + (lambda (_key55291_ _lst55292_) + (let ((_default55294_ '#f)) (declare (not safe)) - (assgetv__% _key58014_ _lst58015_ _default58017_)))) + (assgetv__% _key55291_ _lst55292_ _default55294_)))) (define assgetv - (lambda _g64407_ - (let ((_g64406_ (let () (declare (not safe)) (##length _g64407_)))) - (cond ((let () (declare (not safe)) (##fx= _g64406_ 2)) - (apply (lambda (_key58014_ _lst58015_) + (lambda _g56905_ + (let ((_g56904_ (let () (declare (not safe)) (##length _g56905_)))) + (cond ((let () (declare (not safe)) (##fx= _g56904_ 2)) + (apply (lambda (_key55291_ _lst55292_) (let () (declare (not safe)) - (assgetv__0 _key58014_ _lst58015_))) - _g64407_)) - ((let () (declare (not safe)) (##fx= _g64406_ 3)) - (apply (lambda (_key58019_ _lst58020_ _default58021_) + (assgetv__0 _key55291_ _lst55292_))) + _g56905_)) + ((let () (declare (not safe)) (##fx= _g56904_ 3)) + (apply (lambda (_key55296_ _lst55297_ _default55298_) (let () (declare (not safe)) - (assgetv__% _key58019_ _lst58020_ _default58021_))) - _g64407_)) + (assgetv__% _key55296_ _lst55297_ _default55298_))) + _g56905_)) (else (##raise-wrong-number-of-arguments-exception assgetv - _g64407_)))))) + _g56905_)))))) (define assget__% - (lambda (_key57978_ _lst57980_ _default57982_) - (let ((_$e57985_ - (if (let () (declare (not safe)) (pair? _lst57980_)) - (assoc _key57978_ _lst57980_) + (lambda (_key55255_ _lst55257_ _default55259_) + (let ((_$e55262_ + (if (let () (declare (not safe)) (pair? _lst55257_)) + (assoc _key55255_ _lst55257_) '#f))) - (if _$e57985_ - (cdr _$e57985_) - (if (let () (declare (not safe)) (procedure? _default57982_)) - (_default57982_ _key57978_) - _default57982_))))) + (if _$e55262_ + (cdr _$e55262_) + (if (let () (declare (not safe)) (procedure? _default55259_)) + (_default55259_ _key55255_) + _default55259_))))) (define assget__0 - (lambda (_key57991_ _lst57992_) - (let ((_default57994_ '#f)) + (lambda (_key55268_ _lst55269_) + (let ((_default55271_ '#f)) (declare (not safe)) - (assget__% _key57991_ _lst57992_ _default57994_)))) + (assget__% _key55268_ _lst55269_ _default55271_)))) (define assget - (lambda _g64409_ - (let ((_g64408_ (let () (declare (not safe)) (##length _g64409_)))) - (cond ((let () (declare (not safe)) (##fx= _g64408_ 2)) - (apply (lambda (_key57991_ _lst57992_) + (lambda _g56907_ + (let ((_g56906_ (let () (declare (not safe)) (##length _g56907_)))) + (cond ((let () (declare (not safe)) (##fx= _g56906_ 2)) + (apply (lambda (_key55268_ _lst55269_) (let () (declare (not safe)) - (assget__0 _key57991_ _lst57992_))) - _g64409_)) - ((let () (declare (not safe)) (##fx= _g64408_ 3)) - (apply (lambda (_key57996_ _lst57997_ _default57998_) + (assget__0 _key55268_ _lst55269_))) + _g56907_)) + ((let () (declare (not safe)) (##fx= _g56906_ 3)) + (apply (lambda (_key55273_ _lst55274_ _default55275_) (let () (declare (not safe)) - (assget__% _key57996_ _lst57997_ _default57998_))) - _g64409_)) + (assget__% _key55273_ _lst55274_ _default55275_))) + _g56907_)) (else (##raise-wrong-number-of-arguments-exception assget - _g64409_)))))) + _g56907_)))))) (define pgetq__% - (lambda (_key57907_ _lst57909_ _default57911_) - (let _lp57914_ ((_rest57917_ _lst57909_)) - (let* ((_rest5791957929_ _rest57917_) - (_else5792157937_ + (lambda (_key55184_ _lst55186_ _default55188_) + (let _lp55191_ ((_rest55194_ _lst55186_)) + (let* ((_rest5519655206_ _rest55194_) + (_else5519855214_ (lambda () (if (let () (declare (not safe)) - (procedure? _default57911_)) - (_default57911_ _key57907_) - _default57911_))) - (_K5792357946_ - (lambda (_rest57940_ _v57941_ _k57943_) - (if (let () (declare (not safe)) (eq? _k57943_ _key57907_)) - _v57941_ + (procedure? _default55188_)) + (_default55188_ _key55184_) + _default55188_))) + (_K5520055223_ + (lambda (_rest55217_ _v55218_ _k55220_) + (if (let () (declare (not safe)) (eq? _k55220_ _key55184_)) + _v55218_ (let () (declare (not safe)) - (_lp57914_ _rest57940_)))))) - (if (let () (declare (not safe)) (##pair? _rest5791957929_)) - (let ((_hd5792457949_ - (let () (declare (not safe)) (##car _rest5791957929_))) - (_tl5792557951_ - (let () (declare (not safe)) (##cdr _rest5791957929_)))) - (let ((_k57954_ _hd5792457949_)) - (if (let () (declare (not safe)) (##pair? _tl5792557951_)) - (let ((_hd5792657956_ + (_lp55191_ _rest55217_)))))) + (if (let () (declare (not safe)) (##pair? _rest5519655206_)) + (let ((_hd5520155226_ + (let () (declare (not safe)) (##car _rest5519655206_))) + (_tl5520255228_ + (let () (declare (not safe)) (##cdr _rest5519655206_)))) + (let ((_k55231_ _hd5520155226_)) + (if (let () (declare (not safe)) (##pair? _tl5520255228_)) + (let ((_hd5520355233_ (let () (declare (not safe)) - (##car _tl5792557951_))) - (_tl5792757958_ + (##car _tl5520255228_))) + (_tl5520455235_ (let () (declare (not safe)) - (##cdr _tl5792557951_)))) - (let* ((_v57961_ _hd5792657956_) - (_rest57963_ _tl5792757958_)) + (##cdr _tl5520255228_)))) + (let* ((_v55238_ _hd5520355233_) + (_rest55240_ _tl5520455235_)) (declare (not safe)) - (_K5792357946_ _rest57963_ _v57961_ _k57954_))) - (let () (declare (not safe)) (_else5792157937_))))) - (let () (declare (not safe)) (_else5792157937_))))))) + (_K5520055223_ _rest55240_ _v55238_ _k55231_))) + (let () (declare (not safe)) (_else5519855214_))))) + (let () (declare (not safe)) (_else5519855214_))))))) (define pgetq__0 - (lambda (_key57968_ _lst57969_) - (let ((_default57971_ '#f)) + (lambda (_key55245_ _lst55246_) + (let ((_default55248_ '#f)) (declare (not safe)) - (pgetq__% _key57968_ _lst57969_ _default57971_)))) + (pgetq__% _key55245_ _lst55246_ _default55248_)))) (define pgetq - (lambda _g64411_ - (let ((_g64410_ (let () (declare (not safe)) (##length _g64411_)))) - (cond ((let () (declare (not safe)) (##fx= _g64410_ 2)) - (apply (lambda (_key57968_ _lst57969_) + (lambda _g56909_ + (let ((_g56908_ (let () (declare (not safe)) (##length _g56909_)))) + (cond ((let () (declare (not safe)) (##fx= _g56908_ 2)) + (apply (lambda (_key55245_ _lst55246_) (let () (declare (not safe)) - (pgetq__0 _key57968_ _lst57969_))) - _g64411_)) - ((let () (declare (not safe)) (##fx= _g64410_ 3)) - (apply (lambda (_key57973_ _lst57974_ _default57975_) + (pgetq__0 _key55245_ _lst55246_))) + _g56909_)) + ((let () (declare (not safe)) (##fx= _g56908_ 3)) + (apply (lambda (_key55250_ _lst55251_ _default55252_) (let () (declare (not safe)) - (pgetq__% _key57973_ _lst57974_ _default57975_))) - _g64411_)) + (pgetq__% _key55250_ _lst55251_ _default55252_))) + _g56909_)) (else (##raise-wrong-number-of-arguments-exception pgetq - _g64411_)))))) + _g56909_)))))) (define pgetv__% - (lambda (_key57836_ _lst57838_ _default57840_) - (let _lp57843_ ((_rest57846_ _lst57838_)) - (let* ((_rest5784857858_ _rest57846_) - (_else5785057866_ + (lambda (_key55113_ _lst55115_ _default55117_) + (let _lp55120_ ((_rest55123_ _lst55115_)) + (let* ((_rest5512555135_ _rest55123_) + (_else5512755143_ (lambda () (if (let () (declare (not safe)) - (procedure? _default57840_)) - (_default57840_ _key57836_) - _default57840_))) - (_K5785257875_ - (lambda (_rest57869_ _v57870_ _k57872_) + (procedure? _default55117_)) + (_default55117_ _key55113_) + _default55117_))) + (_K5512955152_ + (lambda (_rest55146_ _v55147_ _k55149_) (if (let () (declare (not safe)) - (eqv? _k57872_ _key57836_)) - _v57870_ + (eqv? _k55149_ _key55113_)) + _v55147_ (let () (declare (not safe)) - (_lp57843_ _rest57869_)))))) - (if (let () (declare (not safe)) (##pair? _rest5784857858_)) - (let ((_hd5785357878_ - (let () (declare (not safe)) (##car _rest5784857858_))) - (_tl5785457880_ - (let () (declare (not safe)) (##cdr _rest5784857858_)))) - (let ((_k57883_ _hd5785357878_)) - (if (let () (declare (not safe)) (##pair? _tl5785457880_)) - (let ((_hd5785557885_ + (_lp55120_ _rest55146_)))))) + (if (let () (declare (not safe)) (##pair? _rest5512555135_)) + (let ((_hd5513055155_ + (let () (declare (not safe)) (##car _rest5512555135_))) + (_tl5513155157_ + (let () (declare (not safe)) (##cdr _rest5512555135_)))) + (let ((_k55160_ _hd5513055155_)) + (if (let () (declare (not safe)) (##pair? _tl5513155157_)) + (let ((_hd5513255162_ (let () (declare (not safe)) - (##car _tl5785457880_))) - (_tl5785657887_ + (##car _tl5513155157_))) + (_tl5513355164_ (let () (declare (not safe)) - (##cdr _tl5785457880_)))) - (let* ((_v57890_ _hd5785557885_) - (_rest57892_ _tl5785657887_)) + (##cdr _tl5513155157_)))) + (let* ((_v55167_ _hd5513255162_) + (_rest55169_ _tl5513355164_)) (declare (not safe)) - (_K5785257875_ _rest57892_ _v57890_ _k57883_))) - (let () (declare (not safe)) (_else5785057866_))))) - (let () (declare (not safe)) (_else5785057866_))))))) + (_K5512955152_ _rest55169_ _v55167_ _k55160_))) + (let () (declare (not safe)) (_else5512755143_))))) + (let () (declare (not safe)) (_else5512755143_))))))) (define pgetv__0 - (lambda (_key57897_ _lst57898_) - (let ((_default57900_ '#f)) + (lambda (_key55174_ _lst55175_) + (let ((_default55177_ '#f)) (declare (not safe)) - (pgetv__% _key57897_ _lst57898_ _default57900_)))) + (pgetv__% _key55174_ _lst55175_ _default55177_)))) (define pgetv - (lambda _g64413_ - (let ((_g64412_ (let () (declare (not safe)) (##length _g64413_)))) - (cond ((let () (declare (not safe)) (##fx= _g64412_ 2)) - (apply (lambda (_key57897_ _lst57898_) + (lambda _g56911_ + (let ((_g56910_ (let () (declare (not safe)) (##length _g56911_)))) + (cond ((let () (declare (not safe)) (##fx= _g56910_ 2)) + (apply (lambda (_key55174_ _lst55175_) (let () (declare (not safe)) - (pgetv__0 _key57897_ _lst57898_))) - _g64413_)) - ((let () (declare (not safe)) (##fx= _g64412_ 3)) - (apply (lambda (_key57902_ _lst57903_ _default57904_) + (pgetv__0 _key55174_ _lst55175_))) + _g56911_)) + ((let () (declare (not safe)) (##fx= _g56910_ 3)) + (apply (lambda (_key55179_ _lst55180_ _default55181_) (let () (declare (not safe)) - (pgetv__% _key57902_ _lst57903_ _default57904_))) - _g64413_)) + (pgetv__% _key55179_ _lst55180_ _default55181_))) + _g56911_)) (else (##raise-wrong-number-of-arguments-exception pgetv - _g64413_)))))) + _g56911_)))))) (define pget__% - (lambda (_key57765_ _lst57767_ _default57769_) - (let _lp57772_ ((_rest57775_ _lst57767_)) - (let* ((_rest5777757787_ _rest57775_) - (_else5777957795_ + (lambda (_key55042_ _lst55044_ _default55046_) + (let _lp55049_ ((_rest55052_ _lst55044_)) + (let* ((_rest5505455064_ _rest55052_) + (_else5505655072_ (lambda () (if (let () (declare (not safe)) - (procedure? _default57769_)) - (_default57769_ _key57765_) - _default57769_))) - (_K5778157804_ - (lambda (_rest57798_ _v57799_ _k57801_) + (procedure? _default55046_)) + (_default55046_ _key55042_) + _default55046_))) + (_K5505855081_ + (lambda (_rest55075_ _v55076_ _k55078_) (if (let () (declare (not safe)) - (equal? _k57801_ _key57765_)) - _v57799_ + (equal? _k55078_ _key55042_)) + _v55076_ (let () (declare (not safe)) - (_lp57772_ _rest57798_)))))) - (if (let () (declare (not safe)) (##pair? _rest5777757787_)) - (let ((_hd5778257807_ - (let () (declare (not safe)) (##car _rest5777757787_))) - (_tl5778357809_ - (let () (declare (not safe)) (##cdr _rest5777757787_)))) - (let ((_k57812_ _hd5778257807_)) - (if (let () (declare (not safe)) (##pair? _tl5778357809_)) - (let ((_hd5778457814_ + (_lp55049_ _rest55075_)))))) + (if (let () (declare (not safe)) (##pair? _rest5505455064_)) + (let ((_hd5505955084_ + (let () (declare (not safe)) (##car _rest5505455064_))) + (_tl5506055086_ + (let () (declare (not safe)) (##cdr _rest5505455064_)))) + (let ((_k55089_ _hd5505955084_)) + (if (let () (declare (not safe)) (##pair? _tl5506055086_)) + (let ((_hd5506155091_ (let () (declare (not safe)) - (##car _tl5778357809_))) - (_tl5778557816_ + (##car _tl5506055086_))) + (_tl5506255093_ (let () (declare (not safe)) - (##cdr _tl5778357809_)))) - (let* ((_v57819_ _hd5778457814_) - (_rest57821_ _tl5778557816_)) + (##cdr _tl5506055086_)))) + (let* ((_v55096_ _hd5506155091_) + (_rest55098_ _tl5506255093_)) (declare (not safe)) - (_K5778157804_ _rest57821_ _v57819_ _k57812_))) - (let () (declare (not safe)) (_else5777957795_))))) - (let () (declare (not safe)) (_else5777957795_))))))) + (_K5505855081_ _rest55098_ _v55096_ _k55089_))) + (let () (declare (not safe)) (_else5505655072_))))) + (let () (declare (not safe)) (_else5505655072_))))))) (define pget__0 - (lambda (_key57826_ _lst57827_) - (let ((_default57829_ '#f)) + (lambda (_key55103_ _lst55104_) + (let ((_default55106_ '#f)) (declare (not safe)) - (pget__% _key57826_ _lst57827_ _default57829_)))) + (pget__% _key55103_ _lst55104_ _default55106_)))) (define pget - (lambda _g64415_ - (let ((_g64414_ (let () (declare (not safe)) (##length _g64415_)))) - (cond ((let () (declare (not safe)) (##fx= _g64414_ 2)) - (apply (lambda (_key57826_ _lst57827_) + (lambda _g56913_ + (let ((_g56912_ (let () (declare (not safe)) (##length _g56913_)))) + (cond ((let () (declare (not safe)) (##fx= _g56912_ 2)) + (apply (lambda (_key55103_ _lst55104_) (let () (declare (not safe)) - (pget__0 _key57826_ _lst57827_))) - _g64415_)) - ((let () (declare (not safe)) (##fx= _g64414_ 3)) - (apply (lambda (_key57831_ _lst57832_ _default57833_) + (pget__0 _key55103_ _lst55104_))) + _g56913_)) + ((let () (declare (not safe)) (##fx= _g56912_ 3)) + (apply (lambda (_key55108_ _lst55109_ _default55110_) (let () (declare (not safe)) - (pget__% _key57831_ _lst57832_ _default57833_))) - _g64415_)) + (pget__% _key55108_ _lst55109_ _default55110_))) + _g56913_)) (else (##raise-wrong-number-of-arguments-exception pget - _g64415_)))))) + _g56913_)))))) (define find - (lambda (_pred57758_ _lst57759_) - (let ((_$e57761_ - (let () (declare (not safe)) (memf _pred57758_ _lst57759_)))) - (if _$e57761_ (car _$e57761_) '#f)))) + (lambda (_pred55035_ _lst55036_) + (let ((_$e55038_ + (let () (declare (not safe)) (memf _pred55035_ _lst55036_)))) + (if _$e55038_ (car _$e55038_) '#f)))) (define memf - (lambda (_proc57718_ _lst57719_) - (let _lp57721_ ((_rest57723_ _lst57719_)) - (let* ((_rest5772457732_ _rest57723_) - (_else5772657740_ (lambda () '#f)) - (_K5772857746_ - (lambda (_tl57743_ _hd57744_) - (if (_proc57718_ _hd57744_) - _rest57723_ - (let () (declare (not safe)) (_lp57721_ _tl57743_)))))) - (if (let () (declare (not safe)) (##pair? _rest5772457732_)) - (let ((_hd5772957749_ - (let () (declare (not safe)) (##car _rest5772457732_))) - (_tl5773057751_ - (let () (declare (not safe)) (##cdr _rest5772457732_)))) - (let* ((_hd57754_ _hd5772957749_) (_tl57756_ _tl5773057751_)) + (lambda (_proc54995_ _lst54996_) + (let _lp54998_ ((_rest55000_ _lst54996_)) + (let* ((_rest5500155009_ _rest55000_) + (_else5500355017_ (lambda () '#f)) + (_K5500555023_ + (lambda (_tl55020_ _hd55021_) + (if (_proc54995_ _hd55021_) + _rest55000_ + (let () (declare (not safe)) (_lp54998_ _tl55020_)))))) + (if (let () (declare (not safe)) (##pair? _rest5500155009_)) + (let ((_hd5500655026_ + (let () (declare (not safe)) (##car _rest5500155009_))) + (_tl5500755028_ + (let () (declare (not safe)) (##cdr _rest5500155009_)))) + (let* ((_hd55031_ _hd5500655026_) (_tl55033_ _tl5500755028_)) (declare (not safe)) - (_K5772857746_ _tl57756_ _hd57754_))) - (let () (declare (not safe)) (_else5772657740_))))))) + (_K5500555023_ _tl55033_ _hd55031_))) + (let () (declare (not safe)) (_else5500355017_))))))) (define remove1 - (lambda (_el57671_ _lst57673_) - (let _lp57676_ ((_rest57679_ _lst57673_) (_r57681_ '())) - (let* ((_rest5768357691_ _rest57679_) - (_else5768557699_ (lambda () _lst57673_)) - (_K5768757706_ - (lambda (_rest57702_ _hd57703_) + (lambda (_el54948_ _lst54950_) + (let _lp54953_ ((_rest54956_ _lst54950_) (_r54958_ '())) + (let* ((_rest5496054968_ _rest54956_) + (_else5496254976_ (lambda () _lst54950_)) + (_K5496454983_ + (lambda (_rest54979_ _hd54980_) (if (let () (declare (not safe)) - (equal? _el57671_ _hd57703_)) + (equal? _el54948_ _hd54980_)) (let () (declare (not safe)) - (foldl1 cons _rest57702_ _r57681_)) - (let ((__tmp64416 + (foldl1 cons _rest54979_ _r54958_)) + (let ((__tmp56914 (let () (declare (not safe)) - (cons _hd57703_ _r57681_)))) + (cons _hd54980_ _r54958_)))) (declare (not safe)) - (_lp57676_ _rest57702_ __tmp64416)))))) - (if (let () (declare (not safe)) (##pair? _rest5768357691_)) - (let ((_hd5768857709_ - (let () (declare (not safe)) (##car _rest5768357691_))) - (_tl5768957711_ - (let () (declare (not safe)) (##cdr _rest5768357691_)))) - (let* ((_hd57714_ _hd5768857709_) - (_rest57716_ _tl5768957711_)) + (_lp54953_ _rest54979_ __tmp56914)))))) + (if (let () (declare (not safe)) (##pair? _rest5496054968_)) + (let ((_hd5496554986_ + (let () (declare (not safe)) (##car _rest5496054968_))) + (_tl5496654988_ + (let () (declare (not safe)) (##cdr _rest5496054968_)))) + (let* ((_hd54991_ _hd5496554986_) + (_rest54993_ _tl5496654988_)) (declare (not safe)) - (_K5768757706_ _rest57716_ _hd57714_))) - (let () (declare (not safe)) (_else5768557699_))))))) + (_K5496454983_ _rest54993_ _hd54991_))) + (let () (declare (not safe)) (_else5496254976_))))))) (define remv - (lambda (_el57624_ _lst57626_) - (let _lp57629_ ((_rest57632_ _lst57626_) (_r57634_ '())) - (let* ((_rest5763657644_ _rest57632_) - (_else5763857652_ (lambda () _lst57626_)) - (_K5764057659_ - (lambda (_rest57655_ _hd57656_) + (lambda (_el54901_ _lst54903_) + (let _lp54906_ ((_rest54909_ _lst54903_) (_r54911_ '())) + (let* ((_rest5491354921_ _rest54909_) + (_else5491554929_ (lambda () _lst54903_)) + (_K5491754936_ + (lambda (_rest54932_ _hd54933_) (if (let () (declare (not safe)) - (eqv? _el57624_ _hd57656_)) + (eqv? _el54901_ _hd54933_)) (let () (declare (not safe)) - (foldl1 cons _rest57655_ _r57634_)) - (let ((__tmp64417 + (foldl1 cons _rest54932_ _r54911_)) + (let ((__tmp56915 (let () (declare (not safe)) - (cons _hd57656_ _r57634_)))) + (cons _hd54933_ _r54911_)))) (declare (not safe)) - (_lp57629_ _rest57655_ __tmp64417)))))) - (if (let () (declare (not safe)) (##pair? _rest5763657644_)) - (let ((_hd5764157662_ - (let () (declare (not safe)) (##car _rest5763657644_))) - (_tl5764257664_ - (let () (declare (not safe)) (##cdr _rest5763657644_)))) - (let* ((_hd57667_ _hd5764157662_) - (_rest57669_ _tl5764257664_)) + (_lp54906_ _rest54932_ __tmp56915)))))) + (if (let () (declare (not safe)) (##pair? _rest5491354921_)) + (let ((_hd5491854939_ + (let () (declare (not safe)) (##car _rest5491354921_))) + (_tl5491954941_ + (let () (declare (not safe)) (##cdr _rest5491354921_)))) + (let* ((_hd54944_ _hd5491854939_) + (_rest54946_ _tl5491954941_)) (declare (not safe)) - (_K5764057659_ _rest57669_ _hd57667_))) - (let () (declare (not safe)) (_else5763857652_))))))) + (_K5491754936_ _rest54946_ _hd54944_))) + (let () (declare (not safe)) (_else5491554929_))))))) (define remq - (lambda (_el57577_ _lst57579_) - (let _lp57582_ ((_rest57585_ _lst57579_) (_r57587_ '())) - (let* ((_rest5758957597_ _rest57585_) - (_else5759157605_ (lambda () _lst57579_)) - (_K5759357612_ - (lambda (_rest57608_ _hd57609_) - (if (let () (declare (not safe)) (eq? _el57577_ _hd57609_)) + (lambda (_el54854_ _lst54856_) + (let _lp54859_ ((_rest54862_ _lst54856_) (_r54864_ '())) + (let* ((_rest5486654874_ _rest54862_) + (_else5486854882_ (lambda () _lst54856_)) + (_K5487054889_ + (lambda (_rest54885_ _hd54886_) + (if (let () (declare (not safe)) (eq? _el54854_ _hd54886_)) (let () (declare (not safe)) - (foldl1 cons _rest57608_ _r57587_)) - (let ((__tmp64418 + (foldl1 cons _rest54885_ _r54864_)) + (let ((__tmp56916 (let () (declare (not safe)) - (cons _hd57609_ _r57587_)))) + (cons _hd54886_ _r54864_)))) (declare (not safe)) - (_lp57582_ _rest57608_ __tmp64418)))))) - (if (let () (declare (not safe)) (##pair? _rest5758957597_)) - (let ((_hd5759457615_ - (let () (declare (not safe)) (##car _rest5758957597_))) - (_tl5759557617_ - (let () (declare (not safe)) (##cdr _rest5758957597_)))) - (let* ((_hd57620_ _hd5759457615_) - (_rest57622_ _tl5759557617_)) + (_lp54859_ _rest54885_ __tmp56916)))))) + (if (let () (declare (not safe)) (##pair? _rest5486654874_)) + (let ((_hd5487154892_ + (let () (declare (not safe)) (##car _rest5486654874_))) + (_tl5487254894_ + (let () (declare (not safe)) (##cdr _rest5486654874_)))) + (let* ((_hd54897_ _hd5487154892_) + (_rest54899_ _tl5487254894_)) (declare (not safe)) - (_K5759357612_ _rest57622_ _hd57620_))) - (let () (declare (not safe)) (_else5759157605_))))))) + (_K5487054889_ _rest54899_ _hd54897_))) + (let () (declare (not safe)) (_else5486854882_))))))) (define remf - (lambda (_proc57536_ _lst57537_) - (let _lp57539_ ((_rest57541_ _lst57537_) (_r57542_ '())) - (let* ((_rest5754357551_ _rest57541_) - (_else5754557559_ (lambda () _lst57537_)) - (_K5754757565_ - (lambda (_rest57562_ _hd57563_) - (if (_proc57536_ _hd57563_) + (lambda (_proc54813_ _lst54814_) + (let _lp54816_ ((_rest54818_ _lst54814_) (_r54819_ '())) + (let* ((_rest5482054828_ _rest54818_) + (_else5482254836_ (lambda () _lst54814_)) + (_K5482454842_ + (lambda (_rest54839_ _hd54840_) + (if (_proc54813_ _hd54840_) (let () (declare (not safe)) - (foldl1 cons _rest57562_ _r57542_)) - (let ((__tmp64419 + (foldl1 cons _rest54839_ _r54819_)) + (let ((__tmp56917 (let () (declare (not safe)) - (cons _hd57563_ _r57542_)))) + (cons _hd54840_ _r54819_)))) (declare (not safe)) - (_lp57539_ _rest57562_ __tmp64419)))))) - (if (let () (declare (not safe)) (##pair? _rest5754357551_)) - (let ((_hd5754857568_ - (let () (declare (not safe)) (##car _rest5754357551_))) - (_tl5754957570_ - (let () (declare (not safe)) (##cdr _rest5754357551_)))) - (let* ((_hd57573_ _hd5754857568_) - (_rest57575_ _tl5754957570_)) + (_lp54816_ _rest54839_ __tmp56917)))))) + (if (let () (declare (not safe)) (##pair? _rest5482054828_)) + (let ((_hd5482554845_ + (let () (declare (not safe)) (##car _rest5482054828_))) + (_tl5482654847_ + (let () (declare (not safe)) (##cdr _rest5482054828_)))) + (let* ((_hd54850_ _hd5482554845_) + (_rest54852_ _tl5482654847_)) (declare (not safe)) - (_K5754757565_ _rest57575_ _hd57573_))) - (let () (declare (not safe)) (_else5754557559_))))))) - (define 1+ (lambda (_x57534_) (+ _x57534_ '1))) - (define 1- (lambda (_x57532_) (- _x57532_ '1))) - (define fx1+ (lambda (_x57530_) (fx+ _x57530_ '1))) - (define fx1- (lambda (_x57528_) (fx- _x57528_ '1))) + (_K5482454842_ _rest54852_ _hd54850_))) + (let () (declare (not safe)) (_else5482254836_))))))) + (define 1+ (lambda (_x54811_) (+ _x54811_ '1))) + (define 1- (lambda (_x54809_) (- _x54809_ '1))) + (define fx1+ (lambda (_x54807_) (fx+ _x54807_ '1))) + (define fx1- (lambda (_x54805_) (fx- _x54805_ '1))) (define fxshift fxarithmetic-shift) (define fx/ fxquotient) (define fx>=0? - (lambda (_x57526_) - (if (fixnum? _x57526_) - (let () (declare (not safe)) (##fx>= _x57526_ '0)) + (lambda (_x54803_) + (if (let () (declare (not safe)) (fixnum? _x54803_)) + (let () (declare (not safe)) (##fx>= _x54803_ '0)) '#f))) (define fx>0? - (lambda (_x57524_) - (if (fixnum? _x57524_) - (let () (declare (not safe)) (##fx> _x57524_ '0)) + (lambda (_x54801_) + (if (let () (declare (not safe)) (fixnum? _x54801_)) + (let () (declare (not safe)) (##fx> _x54801_ '0)) '#f))) (define fx=0? - (lambda (_x57522_) (let () (declare (not safe)) (eq? _x57522_ '0)))) + (lambda (_x54799_) (let () (declare (not safe)) (eq? _x54799_ '0)))) (define fx<0? - (lambda (_x57520_) - (if (fixnum? _x57520_) - (let () (declare (not safe)) (##fx< _x57520_ '0)) + (lambda (_x54797_) + (if (let () (declare (not safe)) (fixnum? _x54797_)) + (let () (declare (not safe)) (##fx< _x54797_ '0)) '#f))) (define fx<=0? - (lambda (_x57518_) - (if (fixnum? _x57518_) - (let () (declare (not safe)) (##fx<= _x57518_ '0)) + (lambda (_x54795_) + (if (let () (declare (not safe)) (fixnum? _x54795_)) + (let () (declare (not safe)) (##fx<= _x54795_ '0)) '#f))) (define interned-symbol? - (lambda (_x57516_) - (if (let () (declare (not safe)) (symbol? _x57516_)) - (let ((__tmp64420 (uninterned-symbol? _x57516_))) + (lambda (_x54793_) + (if (let () (declare (not safe)) (symbol? _x54793_)) + (let ((__tmp56918 (uninterned-symbol? _x54793_))) (declare (not safe)) - (not __tmp64420)) + (not __tmp56918)) '#f))) (define display-as-string - (lambda (_x57488_ _port57489_) - (if (or (let () (declare (not safe)) (string? _x57488_)) - (let () (declare (not safe)) (symbol? _x57488_)) - (keyword? _x57488_) - (let () (declare (not safe)) (number? _x57488_)) - (let () (declare (not safe)) (char? _x57488_))) - (display _x57488_ _port57489_) - (if (let () (declare (not safe)) (pair? _x57488_)) + (lambda (_x54765_ _port54766_) + (if (or (let () (declare (not safe)) (string? _x54765_)) + (let () (declare (not safe)) (symbol? _x54765_)) + (keyword? _x54765_) + (let () (declare (not safe)) (number? _x54765_)) + (let () (declare (not safe)) (char? _x54765_))) + (display _x54765_ _port54766_) + (if (let () (declare (not safe)) (pair? _x54765_)) (begin - (let ((__tmp64421 (car _x57488_))) + (let ((__tmp56919 (car _x54765_))) (declare (not safe)) - (display-as-string __tmp64421 _port57489_)) - (let ((__tmp64422 (cdr _x57488_))) + (display-as-string __tmp56919 _port54766_)) + (let ((__tmp56920 (cdr _x54765_))) (declare (not safe)) - (display-as-string __tmp64422 _port57489_))) - (if (let () (declare (not safe)) (vector? _x57488_)) + (display-as-string __tmp56920 _port54766_))) + (if (let () (declare (not safe)) (vector? _x54765_)) (vector-for-each - (lambda (_g5750257504_) + (lambda (_g5477954781_) (let () (declare (not safe)) - (display-as-string _g5750257504_ _port57489_))) - _x57488_) - (if (or (let () (declare (not safe)) (null? _x57488_)) + (display-as-string _g5477954781_ _port54766_))) + _x54765_) + (if (or (let () (declare (not safe)) (null? _x54765_)) (let () (declare (not safe)) - (eq? _x57488_ '#!void)) + (eq? _x54765_ '#!void)) (let () (declare (not safe)) - (eof-object? _x57488_)) - (let () (declare (not safe)) (boolean? _x57488_))) + (eof-object? _x54765_)) + (let () (declare (not safe)) (boolean? _x54765_))) '#!void - (error '"cannot convert as string" _x57488_))))))) + (let () + (declare (not safe)) + (error '"cannot convert as string" _x54765_)))))))) (define as-string__0 - (lambda (_x57476_) - (if (let () (declare (not safe)) (string? _x57476_)) - _x57476_ - (if (let () (declare (not safe)) (symbol? _x57476_)) - (symbol->string _x57476_) - (if (keyword? _x57476_) - (keyword->string _x57476_) + (lambda (_x54753_) + (if (let () (declare (not safe)) (string? _x54753_)) + _x54753_ + (if (let () (declare (not safe)) (symbol? _x54753_)) + (symbol->string _x54753_) + (if (keyword? _x54753_) + (keyword->string _x54753_) (call-with-output-string '() - (lambda (_g5747757479_) + (lambda (_g5475454756_) (let () (declare (not safe)) - (display-as-string _x57476_ _g5747757479_))))))))) + (display-as-string _x54753_ _g5475454756_))))))))) (define as-string__1 - (lambda _args57482_ + (lambda _args54759_ (call-with-output-string '() - (lambda (_g5748357485_) + (lambda (_g5476054762_) (let () (declare (not safe)) - (display-as-string _args57482_ _g5748357485_)))))) + (display-as-string _args54759_ _g5476054762_)))))) (define as-string - (lambda _g64424_ - (let ((_g64423_ (let () (declare (not safe)) (##length _g64424_)))) - (cond ((let () (declare (not safe)) (##fx= _g64423_ 1)) - (apply (lambda (_x57476_) + (lambda _g56922_ + (let ((_g56921_ (let () (declare (not safe)) (##length _g56922_)))) + (cond ((let () (declare (not safe)) (##fx= _g56921_ 1)) + (apply (lambda (_x54753_) (let () (declare (not safe)) - (as-string__0 _x57476_))) - _g64424_)) - (#t (apply as-string__1 _g64424_)) + (as-string__0 _x54753_))) + _g56922_)) + (#t (apply as-string__1 _g56922_)) (else (##raise-wrong-number-of-arguments-exception as-string - _g64424_)))))) + _g56922_)))))) (define make-symbol__0 - (lambda (_x57472_) - (if (interned-symbol? _x57472_) - _x57472_ + (lambda (_x54749_) + (if (interned-symbol? _x54749_) + _x54749_ (string->symbol - (let () (declare (not safe)) (as-string__0 _x57472_)))))) + (let () (declare (not safe)) (as-string__0 _x54749_)))))) (define make-symbol__1 - (lambda _args57474_ (string->symbol (apply as-string _args57474_)))) + (lambda _args54751_ (string->symbol (apply as-string _args54751_)))) (define make-symbol - (lambda _g64426_ - (let ((_g64425_ (let () (declare (not safe)) (##length _g64426_)))) - (cond ((let () (declare (not safe)) (##fx= _g64425_ 1)) - (apply (lambda (_x57472_) + (lambda _g56924_ + (let ((_g56923_ (let () (declare (not safe)) (##length _g56924_)))) + (cond ((let () (declare (not safe)) (##fx= _g56923_ 1)) + (apply (lambda (_x54749_) (let () (declare (not safe)) - (make-symbol__0 _x57472_))) - _g64426_)) - (#t (apply make-symbol__1 _g64426_)) + (make-symbol__0 _x54749_))) + _g56924_)) + (#t (apply make-symbol__1 _g56924_)) (else (##raise-wrong-number-of-arguments-exception make-symbol - _g64426_)))))) + _g56924_)))))) (define make-keyword__0 - (lambda (_x57468_) - (if (interned-keyword? _x57468_) - _x57468_ + (lambda (_x54745_) + (if (interned-keyword? _x54745_) + _x54745_ (string->keyword - (let () (declare (not safe)) (as-string__0 _x57468_)))))) + (let () (declare (not safe)) (as-string__0 _x54745_)))))) (define make-keyword__1 - (lambda _args57470_ (string->keyword (apply as-string _args57470_)))) + (lambda _args54747_ (string->keyword (apply as-string _args54747_)))) (define make-keyword - (lambda _g64428_ - (let ((_g64427_ (let () (declare (not safe)) (##length _g64428_)))) - (cond ((let () (declare (not safe)) (##fx= _g64427_ 1)) - (apply (lambda (_x57468_) + (lambda _g56926_ + (let ((_g56925_ (let () (declare (not safe)) (##length _g56926_)))) + (cond ((let () (declare (not safe)) (##fx= _g56925_ 1)) + (apply (lambda (_x54745_) (let () (declare (not safe)) - (make-keyword__0 _x57468_))) - _g64428_)) - (#t (apply make-keyword__1 _g64428_)) + (make-keyword__0 _x54745_))) + _g56926_)) + (#t (apply make-keyword__1 _g56926_)) (else (##raise-wrong-number-of-arguments-exception make-keyword - _g64428_)))))) + _g56926_)))))) (define interned-keyword? - (lambda (_x57466_) - (if (keyword? _x57466_) - (let ((__tmp64429 (uninterned-keyword? _x57466_))) + (lambda (_x54743_) + (if (keyword? _x54743_) + (let ((__tmp56927 (uninterned-keyword? _x54743_))) (declare (not safe)) - (not __tmp64429)) + (not __tmp56927)) '#f))) (define symbol->keyword - (lambda (_sym57464_) - ((if (uninterned-symbol? _sym57464_) + (lambda (_sym54741_) + ((if (uninterned-symbol? _sym54741_) string->uninterned-keyword string->keyword) - (symbol->string _sym57464_)))) + (symbol->string _sym54741_)))) (define keyword->symbol - (lambda (_kw57462_) - ((if (uninterned-keyword? _kw57462_) + (lambda (_kw54739_) + ((if (uninterned-keyword? _kw54739_) string->uninterned-symbol string->symbol) - (keyword->string _kw57462_)))) + (keyword->string _kw54739_)))) (define bytes->string__% - (lambda (_bstr57440_ _enc57441_) - (if (let () (declare (not safe)) (eq? _enc57441_ 'UTF-8)) - (utf8->string _bstr57440_) - (let* ((_in57443_ + (lambda (_bstr54717_ _enc54718_) + (if (let () (declare (not safe)) (eq? _enc54718_ 'UTF-8)) + (utf8->string _bstr54717_) + (let* ((_in54720_ (open-input-u8vector - (let ((__tmp64430 - (let ((__tmp64431 - (let ((__tmp64432 + (let ((__tmp56928 + (let ((__tmp56929 + (let ((__tmp56930 (let () (declare (not safe)) - (cons _bstr57440_ '())))) + (cons _bstr54717_ '())))) (declare (not safe)) - (cons 'init: __tmp64432)))) + (cons 'init: __tmp56930)))) (declare (not safe)) - (cons _enc57441_ __tmp64431)))) + (cons _enc54718_ __tmp56929)))) (declare (not safe)) - (cons 'char-encoding: __tmp64430)))) - (_len57445_ (u8vector-length _bstr57440_)) - (_out57447_ (make-string _len57445_)) - (_n57449_ - (read-substring _out57447_ '0 _len57445_ _in57443_))) - (string-shrink! _out57447_ _n57449_) - _out57447_)))) + (cons 'char-encoding: __tmp56928)))) + (_len54722_ (u8vector-length _bstr54717_)) + (_out54724_ (make-string _len54722_)) + (_n54726_ + (read-substring _out54724_ '0 _len54722_ _in54720_))) + (string-shrink! _out54724_ _n54726_) + _out54724_)))) (define bytes->string__0 - (lambda (_bstr57455_) - (let ((_enc57457_ 'UTF-8)) + (lambda (_bstr54732_) + (let ((_enc54734_ 'UTF-8)) (declare (not safe)) - (bytes->string__% _bstr57455_ _enc57457_)))) + (bytes->string__% _bstr54732_ _enc54734_)))) (define bytes->string - (lambda _g64434_ - (let ((_g64433_ (let () (declare (not safe)) (##length _g64434_)))) - (cond ((let () (declare (not safe)) (##fx= _g64433_ 1)) - (apply (lambda (_bstr57455_) + (lambda _g56932_ + (let ((_g56931_ (let () (declare (not safe)) (##length _g56932_)))) + (cond ((let () (declare (not safe)) (##fx= _g56931_ 1)) + (apply (lambda (_bstr54732_) (let () (declare (not safe)) - (bytes->string__0 _bstr57455_))) - _g64434_)) - ((let () (declare (not safe)) (##fx= _g64433_ 2)) - (apply (lambda (_bstr57459_ _enc57460_) + (bytes->string__0 _bstr54732_))) + _g56932_)) + ((let () (declare (not safe)) (##fx= _g56931_ 2)) + (apply (lambda (_bstr54736_ _enc54737_) (let () (declare (not safe)) - (bytes->string__% _bstr57459_ _enc57460_))) - _g64434_)) + (bytes->string__% _bstr54736_ _enc54737_))) + _g56932_)) (else (##raise-wrong-number-of-arguments-exception bytes->string - _g64434_)))))) + _g56932_)))))) (define string->bytes__% - (lambda (_str57426_ _enc57427_) - (if (let () (declare (not safe)) (eq? _enc57427_ 'UTF-8)) - (string->utf8 _str57426_) + (lambda (_str54703_ _enc54704_) + (if (let () (declare (not safe)) (eq? _enc54704_ 'UTF-8)) + (string->utf8 _str54703_) (substring->bytes - _str57426_ + _str54703_ '0 - (string-length _str57426_) - _enc57427_)))) + (string-length _str54703_) + _enc54704_)))) (define string->bytes__0 - (lambda (_str57432_) - (let ((_enc57434_ 'UTF-8)) + (lambda (_str54709_) + (let ((_enc54711_ 'UTF-8)) (declare (not safe)) - (string->bytes__% _str57432_ _enc57434_)))) + (string->bytes__% _str54709_ _enc54711_)))) (define string->bytes - (lambda _g64436_ - (let ((_g64435_ (let () (declare (not safe)) (##length _g64436_)))) - (cond ((let () (declare (not safe)) (##fx= _g64435_ 1)) - (apply (lambda (_str57432_) + (lambda _g56934_ + (let ((_g56933_ (let () (declare (not safe)) (##length _g56934_)))) + (cond ((let () (declare (not safe)) (##fx= _g56933_ 1)) + (apply (lambda (_str54709_) (let () (declare (not safe)) - (string->bytes__0 _str57432_))) - _g64436_)) - ((let () (declare (not safe)) (##fx= _g64435_ 2)) - (apply (lambda (_str57436_ _enc57437_) + (string->bytes__0 _str54709_))) + _g56934_)) + ((let () (declare (not safe)) (##fx= _g56933_ 2)) + (apply (lambda (_str54713_ _enc54714_) (let () (declare (not safe)) - (string->bytes__% _str57436_ _enc57437_))) - _g64436_)) + (string->bytes__% _str54713_ _enc54714_))) + _g56934_)) (else (##raise-wrong-number-of-arguments-exception string->bytes - _g64436_)))))) + _g56934_)))))) (define substring->bytes__% - (lambda (_str57404_ _start57405_ _end57406_ _enc57407_) - (if (let () (declare (not safe)) (eq? _enc57407_ 'UTF-8)) - (string->utf8 _str57404_ _start57405_ _end57406_) - (let ((_out57409_ + (lambda (_str54681_ _start54682_ _end54683_ _enc54684_) + (if (let () (declare (not safe)) (eq? _enc54684_ 'UTF-8)) + (string->utf8 _str54681_ _start54682_ _end54683_) + (let ((_out54686_ (open-output-u8vector - (let ((__tmp64437 + (let ((__tmp56935 (let () (declare (not safe)) - (cons _enc57407_ '())))) + (cons _enc54684_ '())))) (declare (not safe)) - (cons 'char-encoding: __tmp64437))))) - (write-substring _str57404_ _start57405_ _end57406_ _out57409_) - (get-output-u8vector _out57409_))))) + (cons 'char-encoding: __tmp56935))))) + (write-substring _str54681_ _start54682_ _end54683_ _out54686_) + (get-output-u8vector _out54686_))))) (define substring->bytes__0 - (lambda (_str57414_ _start57415_ _end57416_) - (let ((_enc57418_ 'UTF-8)) + (lambda (_str54691_ _start54692_ _end54693_) + (let ((_enc54695_ 'UTF-8)) (declare (not safe)) (substring->bytes__% - _str57414_ - _start57415_ - _end57416_ - _enc57418_)))) + _str54691_ + _start54692_ + _end54693_ + _enc54695_)))) (define substring->bytes - (lambda _g64439_ - (let ((_g64438_ (let () (declare (not safe)) (##length _g64439_)))) - (cond ((let () (declare (not safe)) (##fx= _g64438_ 3)) - (apply (lambda (_str57414_ _start57415_ _end57416_) + (lambda _g56937_ + (let ((_g56936_ (let () (declare (not safe)) (##length _g56937_)))) + (cond ((let () (declare (not safe)) (##fx= _g56936_ 3)) + (apply (lambda (_str54691_ _start54692_ _end54693_) (let () (declare (not safe)) (substring->bytes__0 - _str57414_ - _start57415_ - _end57416_))) - _g64439_)) - ((let () (declare (not safe)) (##fx= _g64438_ 4)) - (apply (lambda (_str57420_ _start57421_ _end57422_ _enc57423_) + _str54691_ + _start54692_ + _end54693_))) + _g56937_)) + ((let () (declare (not safe)) (##fx= _g56936_ 4)) + (apply (lambda (_str54697_ _start54698_ _end54699_ _enc54700_) (let () (declare (not safe)) (substring->bytes__% - _str57420_ - _start57421_ - _end57422_ - _enc57423_))) - _g64439_)) + _str54697_ + _start54698_ + _end54699_ + _enc54700_))) + _g56937_)) (else (##raise-wrong-number-of-arguments-exception substring->bytes - _g64439_)))))) + _g56937_)))))) (define string-empty? - (lambda (_str57401_) - (let ((__tmp64440 (string-length _str57401_))) + (lambda (_str54678_) + (let ((__tmp56938 (string-length _str54678_))) (declare (not safe)) - (##fxzero? __tmp64440)))) + (##fxzero? __tmp56938)))) (define string-prefix? - (lambda (_prefix57391_ _str57392_) - (let ((_str-len57394_ (string-length _str57392_)) - (_prefix-len57395_ (string-length _prefix57391_))) + (lambda (_prefix54668_ _str54669_) + (let ((_str-len54671_ (string-length _str54669_)) + (_prefix-len54672_ (string-length _prefix54668_))) (if (let () (declare (not safe)) - (##fx<= _prefix-len57395_ _str-len57394_)) - (let _lp57397_ ((_i57399_ '0)) + (##fx<= _prefix-len54672_ _str-len54671_)) + (let _lp54674_ ((_i54676_ '0)) (if (let () (declare (not safe)) - (##fx< _i57399_ _prefix-len57395_)) - (if (let ((__tmp64443 + (##fx< _i54676_ _prefix-len54672_)) + (if (let ((__tmp56941 (let () (declare (not safe)) - (##string-ref _str57392_ _i57399_))) - (__tmp64442 + (##string-ref _str54669_ _i54676_))) + (__tmp56940 (let () (declare (not safe)) - (##string-ref _prefix57391_ _i57399_)))) + (##string-ref _prefix54668_ _i54676_)))) (declare (not safe)) - (eq? __tmp64443 __tmp64442)) - (let ((__tmp64441 + (eq? __tmp56941 __tmp56940)) + (let ((__tmp56939 (let () (declare (not safe)) - (##fx+ _i57399_ '1)))) + (##fx+ _i54676_ '1)))) (declare (not safe)) - (_lp57397_ __tmp64441)) + (_lp54674_ __tmp56939)) '#f) '#t)) '#f)))) (define string-index__% - (lambda (_str57369_ _char57370_ _start57371_) - (let ((_len57373_ (string-length _str57369_))) - (let _lp57375_ ((_k57377_ _start57371_)) - (if (let () (declare (not safe)) (##fx< _k57377_ _len57373_)) - (if (let ((__tmp64445 + (lambda (_str54646_ _char54647_ _start54648_) + (let ((_len54650_ (string-length _str54646_))) + (let _lp54652_ ((_k54654_ _start54648_)) + (if (let () (declare (not safe)) (##fx< _k54654_ _len54650_)) + (if (let ((__tmp56943 (let () (declare (not safe)) - (##string-ref _str57369_ _k57377_)))) + (##string-ref _str54646_ _k54654_)))) (declare (not safe)) - (eq? _char57370_ __tmp64445)) - _k57377_ - (let ((__tmp64444 - (let () (declare (not safe)) (##fx+ _k57377_ '1)))) + (eq? _char54647_ __tmp56943)) + _k54654_ + (let ((__tmp56942 + (let () (declare (not safe)) (##fx+ _k54654_ '1)))) (declare (not safe)) - (_lp57375_ __tmp64444))) + (_lp54652_ __tmp56942))) '#f))))) (define string-index__0 - (lambda (_str57382_ _char57383_) - (let ((_start57385_ '0)) + (lambda (_str54659_ _char54660_) + (let ((_start54662_ '0)) (declare (not safe)) - (string-index__% _str57382_ _char57383_ _start57385_)))) + (string-index__% _str54659_ _char54660_ _start54662_)))) (define string-index - (lambda _g64447_ - (let ((_g64446_ (let () (declare (not safe)) (##length _g64447_)))) - (cond ((let () (declare (not safe)) (##fx= _g64446_ 2)) - (apply (lambda (_str57382_ _char57383_) + (lambda _g56945_ + (let ((_g56944_ (let () (declare (not safe)) (##length _g56945_)))) + (cond ((let () (declare (not safe)) (##fx= _g56944_ 2)) + (apply (lambda (_str54659_ _char54660_) (let () (declare (not safe)) - (string-index__0 _str57382_ _char57383_))) - _g64447_)) - ((let () (declare (not safe)) (##fx= _g64446_ 3)) - (apply (lambda (_str57387_ _char57388_ _start57389_) + (string-index__0 _str54659_ _char54660_))) + _g56945_)) + ((let () (declare (not safe)) (##fx= _g56944_ 3)) + (apply (lambda (_str54664_ _char54665_ _start54666_) (let () (declare (not safe)) (string-index__% - _str57387_ - _char57388_ - _start57389_))) - _g64447_)) + _str54664_ + _char54665_ + _start54666_))) + _g56945_)) (else (##raise-wrong-number-of-arguments-exception string-index - _g64447_)))))) + _g56945_)))))) (define string-rindex__% - (lambda (_str57340_ _char57341_ _start57342_) - (let* ((_len57344_ (string-length _str57340_)) - (_start57349_ - (let ((_$e57346_ _start57342_)) - (if _$e57346_ - _$e57346_ - (let () (declare (not safe)) (##fx- _len57344_ '1)))))) - (let _lp57352_ ((_k57354_ _start57349_)) - (if (let () (declare (not safe)) (##fx>= _k57354_ '0)) - (if (let ((__tmp64449 + (lambda (_str54617_ _char54618_ _start54619_) + (let* ((_len54621_ (string-length _str54617_)) + (_start54626_ + (let ((_$e54623_ _start54619_)) + (if _$e54623_ + _$e54623_ + (let () (declare (not safe)) (##fx- _len54621_ '1)))))) + (let _lp54629_ ((_k54631_ _start54626_)) + (if (let () (declare (not safe)) (##fx>= _k54631_ '0)) + (if (let ((__tmp56947 (let () (declare (not safe)) - (##string-ref _str57340_ _k57354_)))) + (##string-ref _str54617_ _k54631_)))) (declare (not safe)) - (eq? _char57341_ __tmp64449)) - _k57354_ - (let ((__tmp64448 - (let () (declare (not safe)) (##fx- _k57354_ '1)))) + (eq? _char54618_ __tmp56947)) + _k54631_ + (let ((__tmp56946 + (let () (declare (not safe)) (##fx- _k54631_ '1)))) (declare (not safe)) - (_lp57352_ __tmp64448))) + (_lp54629_ __tmp56946))) '#f))))) (define string-rindex__0 - (lambda (_str57359_ _char57360_) - (let ((_start57362_ '#f)) + (lambda (_str54636_ _char54637_) + (let ((_start54639_ '#f)) (declare (not safe)) - (string-rindex__% _str57359_ _char57360_ _start57362_)))) + (string-rindex__% _str54636_ _char54637_ _start54639_)))) (define string-rindex - (lambda _g64451_ - (let ((_g64450_ (let () (declare (not safe)) (##length _g64451_)))) - (cond ((let () (declare (not safe)) (##fx= _g64450_ 2)) - (apply (lambda (_str57359_ _char57360_) + (lambda _g56949_ + (let ((_g56948_ (let () (declare (not safe)) (##length _g56949_)))) + (cond ((let () (declare (not safe)) (##fx= _g56948_ 2)) + (apply (lambda (_str54636_ _char54637_) (let () (declare (not safe)) - (string-rindex__0 _str57359_ _char57360_))) - _g64451_)) - ((let () (declare (not safe)) (##fx= _g64450_ 3)) - (apply (lambda (_str57364_ _char57365_ _start57366_) + (string-rindex__0 _str54636_ _char54637_))) + _g56949_)) + ((let () (declare (not safe)) (##fx= _g56948_ 3)) + (apply (lambda (_str54641_ _char54642_ _start54643_) (let () (declare (not safe)) (string-rindex__% - _str57364_ - _char57365_ - _start57366_))) - _g64451_)) + _str54641_ + _char54642_ + _start54643_))) + _g56949_)) (else (##raise-wrong-number-of-arguments-exception string-rindex - _g64451_)))))) + _g56949_)))))) (define string-split - (lambda (_str57324_ _char57325_) - (let ((_len57327_ (string-length _str57324_))) - (let _lp57329_ ((_start57331_ '0) (_r57332_ '())) - (let ((_$e57334_ + (lambda (_str54601_ _char54602_) + (let ((_len54604_ (string-length _str54601_))) + (let _lp54606_ ((_start54608_ '0) (_r54609_ '())) + (let ((_$e54611_ (let () (declare (not safe)) - (string-index _str57324_ _char57325_ _start57331_)))) - (if _$e57334_ - ((lambda (_end57337_) - (let ((__tmp64455 + (string-index__% _str54601_ _char54602_ _start54608_)))) + (if _$e54611_ + ((lambda (_end54614_) + (let ((__tmp56953 (let () (declare (not safe)) - (##fx+ _end57337_ '1))) - (__tmp64453 - (let ((__tmp64454 + (##fx+ _end54614_ '1))) + (__tmp56951 + (let ((__tmp56952 (let () (declare (not safe)) (##substring - _str57324_ - _start57331_ - _end57337_)))) + _str54601_ + _start54608_ + _end54614_)))) (declare (not safe)) - (cons __tmp64454 _r57332_)))) + (cons __tmp56952 _r54609_)))) (declare (not safe)) - (_lp57329_ __tmp64455 __tmp64453))) - _$e57334_) + (_lp54606_ __tmp56953 __tmp56951))) + _$e54611_) (if (let () (declare (not safe)) - (##fx< _start57331_ _len57327_)) - (let ((__tmp64452 + (##fx< _start54608_ _len54604_)) + (let ((__tmp56950 (list (let () (declare (not safe)) (##substring - _str57324_ - _start57331_ - _len57327_))))) + _str54601_ + _start54608_ + _len54604_))))) (declare (not safe)) - (foldl1 cons __tmp64452 _r57332_)) - (reverse _r57332_)))))))) + (foldl1 cons __tmp56950 _r54609_)) + (reverse _r54609_)))))))) (define string-join - (lambda (_strs57229_ _join57230_) - (letrec ((_join-length57232_ - (lambda (_strs57283_ _jlen57284_) - (let _lp57286_ ((_rest57288_ _strs57283_) (_len57289_ '0)) - (let* ((_rest5729057298_ _rest57288_) - (_else5729257306_ (lambda () '0)) - (_K5729457312_ - (lambda (_rest57309_ _hd57310_) + (lambda (_strs54506_ _join54507_) + (letrec ((_join-length54509_ + (lambda (_strs54560_ _jlen54561_) + (let _lp54563_ ((_rest54565_ _strs54560_) (_len54566_ '0)) + (let* ((_rest5456754575_ _rest54565_) + (_else5456954583_ (lambda () '0)) + (_K5457154589_ + (lambda (_rest54586_ _hd54587_) (if (let () (declare (not safe)) - (string? _hd57310_)) + (string? _hd54587_)) (if (let () (declare (not safe)) - (pair? _rest57309_)) - (let ((__tmp64457 - (let ((__tmp64458 + (pair? _rest54586_)) + (let ((__tmp56955 + (let ((__tmp56956 (let () (declare (not safe)) (##string-length - _hd57310_)))) + _hd54587_)))) (declare (not safe)) - (##fx+ __tmp64458 - _jlen57284_ - _len57289_)))) + (##fx+ __tmp56956 + _jlen54561_ + _len54566_)))) (declare (not safe)) - (_lp57286_ _rest57309_ __tmp64457)) - (let ((__tmp64456 + (_lp54563_ _rest54586_ __tmp56955)) + (let ((__tmp56954 (let () (declare (not safe)) - (##string-length _hd57310_)))) + (##string-length _hd54587_)))) (declare (not safe)) - (##fx+ __tmp64456 _len57289_))) - (error '"expected string" _hd57310_))))) + (##fx+ __tmp56954 _len54566_))) + (let () + (declare (not safe)) + (error '"expected string" _hd54587_)))))) (if (let () (declare (not safe)) - (##pair? _rest5729057298_)) - (let ((_hd5729557315_ + (##pair? _rest5456754575_)) + (let ((_hd5457254592_ (let () (declare (not safe)) - (##car _rest5729057298_))) - (_tl5729657317_ + (##car _rest5456754575_))) + (_tl5457354594_ (let () (declare (not safe)) - (##cdr _rest5729057298_)))) - (let* ((_hd57320_ _hd5729557315_) - (_rest57322_ _tl5729657317_)) + (##cdr _rest5456754575_)))) + (let* ((_hd54597_ _hd5457254592_) + (_rest54599_ _tl5457354594_)) (declare (not safe)) - (_K5729457312_ _rest57322_ _hd57320_))) + (_K5457154589_ _rest54599_ _hd54597_))) (let () (declare (not safe)) - (_else5729257306_)))))))) - (let* ((_join57234_ - (if (let () (declare (not safe)) (char? _join57230_)) - (string _join57230_) - (if (let () (declare (not safe)) (string? _join57230_)) - _join57230_ - (error '"expected string or char" _join57230_)))) - (_jlen57236_ - (let () (declare (not safe)) (##string-length _join57234_))) - (_olen57238_ + (_else5456954583_)))))))) + (let* ((_join54511_ + (if (let () (declare (not safe)) (char? _join54507_)) + (string _join54507_) + (if (let () (declare (not safe)) (string? _join54507_)) + _join54507_ + (let () + (declare (not safe)) + (error '"expected string or char" _join54507_))))) + (_jlen54513_ + (let () (declare (not safe)) (##string-length _join54511_))) + (_olen54515_ (let () (declare (not safe)) - (_join-length57232_ _strs57229_ _jlen57236_))) - (_ostr57240_ (make-string _olen57238_))) - (let _lp57243_ ((_rest57245_ _strs57229_) (_k57246_ '0)) - (let* ((_rest5724757255_ _rest57245_) - (_else5724957263_ (lambda () '"")) - (_K5725157271_ - (lambda (_rest57266_ _hd57267_) - (let ((_hdlen57269_ + (_join-length54509_ _strs54506_ _jlen54513_))) + (_ostr54517_ (make-string _olen54515_))) + (let _lp54520_ ((_rest54522_ _strs54506_) (_k54523_ '0)) + (let* ((_rest5452454532_ _rest54522_) + (_else5452654540_ (lambda () '"")) + (_K5452854548_ + (lambda (_rest54543_ _hd54544_) + (let ((_hdlen54546_ (let () (declare (not safe)) - (##string-length _hd57267_)))) - (if (let () (declare (not safe)) (pair? _rest57266_)) + (##string-length _hd54544_)))) + (if (let () (declare (not safe)) (pair? _rest54543_)) (begin (let () (declare (not safe)) (##substring-move! - _hd57267_ + _hd54544_ '0 - _hdlen57269_ - _ostr57240_ - _k57246_)) - (let ((__tmp64459 + _hdlen54546_ + _ostr54517_ + _k54523_)) + (let ((__tmp56957 (let () (declare (not safe)) - (##fx+ _k57246_ _hdlen57269_)))) + (##fx+ _k54523_ _hdlen54546_)))) (declare (not safe)) (##substring-move! - _join57234_ + _join54511_ '0 - _jlen57236_ - _ostr57240_ - __tmp64459)) - (let ((__tmp64460 + _jlen54513_ + _ostr54517_ + __tmp56957)) + (let ((__tmp56958 (let () (declare (not safe)) - (##fx+ _k57246_ - _hdlen57269_ - _jlen57236_)))) + (##fx+ _k54523_ + _hdlen54546_ + _jlen54513_)))) (declare (not safe)) - (_lp57243_ _rest57266_ __tmp64460))) + (_lp54520_ _rest54543_ __tmp56958))) (begin (let () (declare (not safe)) (##substring-move! - _hd57267_ + _hd54544_ '0 - _hdlen57269_ - _ostr57240_ - _k57246_)) - _ostr57240_)))))) - (if (let () (declare (not safe)) (##pair? _rest5724757255_)) - (let ((_hd5725257274_ + _hdlen54546_ + _ostr54517_ + _k54523_)) + _ostr54517_)))))) + (if (let () (declare (not safe)) (##pair? _rest5452454532_)) + (let ((_hd5452954551_ (let () (declare (not safe)) - (##car _rest5724757255_))) - (_tl5725357276_ + (##car _rest5452454532_))) + (_tl5453054553_ (let () (declare (not safe)) - (##cdr _rest5724757255_)))) - (let* ((_hd57279_ _hd5725257274_) - (_rest57281_ _tl5725357276_)) + (##cdr _rest5452454532_)))) + (let* ((_hd54556_ _hd5452954551_) + (_rest54558_ _tl5453054553_)) (declare (not safe)) - (_K5725157271_ _rest57281_ _hd57279_))) - (let () (declare (not safe)) (_else5724957263_))))))))) + (_K5452854548_ _rest54558_ _hd54556_))) + (let () (declare (not safe)) (_else5452654540_))))))))) (define read-u8vector - (lambda (_bytes57226_ _port57227_) + (lambda (_bytes54503_ _port54504_) (read-subu8vector - _bytes57226_ + _bytes54503_ '0 - (u8vector-length _bytes57226_) - _port57227_))) + (u8vector-length _bytes54503_) + _port54504_))) (define write-u8vector - (lambda (_bytes57223_ _port57224_) + (lambda (_bytes54500_ _port54501_) (write-subu8vector - _bytes57223_ + _bytes54500_ '0 - (u8vector-length _bytes57223_) - _port57224_))) + (u8vector-length _bytes54500_) + _port54501_))) (define read-string - (lambda (_str57220_ _port57221_) - (read-substring _str57220_ '0 (string-length _str57220_) _port57221_))) + (lambda (_str54497_ _port54498_) + (read-substring _str54497_ '0 (string-length _str54497_) _port54498_))) (define write-string - (lambda (_str57217_ _port57218_) + (lambda (_str54494_ _port54495_) (write-substring - _str57217_ + _str54494_ '0 - (string-length _str57217_) - _port57218_))) + (string-length _str54494_) + _port54495_))) (define DBG-printer (make-parameter write)) (define DBG-helper - (lambda (_tag57186_ - _dbg-exprs57187_ - _dbg-thunks57188_ - _expr57189_ - _thunk57190_) - (letrec ((_o57192_ (current-output-port)) - (_e57193_ (current-error-port)) - (_p57194_ (DBG-printer)) - (_f57195_ - (lambda () (force-output _o57192_) (force-output _e57193_))) - (_d57196_ (lambda (_x57203_) (display _x57203_ _e57193_))) - (_w57197_ (lambda (_x57205_) (_p57194_ _x57205_ _e57193_))) - (_n57198_ (lambda () (newline _e57193_))) - (_v57199_ - (lambda (_l57208_) + (lambda (_tag54463_ + _dbg-exprs54464_ + _dbg-thunks54465_ + _expr54466_ + _thunk54467_) + (letrec ((_o54469_ (current-output-port)) + (_e54470_ (current-error-port)) + (_p54471_ (DBG-printer)) + (_f54472_ + (lambda () (force-output _o54469_) (force-output _e54470_))) + (_d54473_ (lambda (_x54480_) (display _x54480_ _e54470_))) + (_w54474_ (lambda (_x54482_) (_p54471_ _x54482_ _e54470_))) + (_n54475_ (lambda () (newline _e54470_))) + (_v54476_ + (lambda (_l54485_) (for-each - (lambda (_x57210_) - (let () (declare (not safe)) (_d57196_ '" ")) - (let () (declare (not safe)) (_w57197_ _x57210_))) - _l57208_) - (let () (declare (not safe)) (_n57198_)))) - (_x57200_ - (lambda (_expr57212_ _thunk57213_) - (let () (declare (not safe)) (_f57195_)) - (let () (declare (not safe)) (_d57196_ '" ")) - (let () (declare (not safe)) (_w57197_ _expr57212_)) - (let () (declare (not safe)) (_d57196_ '" =>")) + (lambda (_x54487_) + (let () (declare (not safe)) (_d54473_ '" ")) + (let () (declare (not safe)) (_w54474_ _x54487_))) + _l54485_) + (let () (declare (not safe)) (_n54475_)))) + (_x54477_ + (lambda (_expr54489_ _thunk54490_) + (let () (declare (not safe)) (_f54472_)) + (let () (declare (not safe)) (_d54473_ '" ")) + (let () (declare (not safe)) (_w54474_ _expr54489_)) + (let () (declare (not safe)) (_d54473_ '" =>")) (call-with-values - _thunk57213_ - (lambda _x57215_ - (let () (declare (not safe)) (_v57199_ _x57215_)) - (let () (declare (not safe)) (_f57195_)) - (apply values _x57215_)))))) - (if _tag57186_ + _thunk54490_ + (lambda _x54492_ + (let () (declare (not safe)) (_v54476_ _x54492_)) + (let () (declare (not safe)) (_f54472_)) + (apply values _x54492_)))))) + (if _tag54463_ (begin - (if (let () (declare (not safe)) (eq? _tag57186_ '#!void)) + (if (let () (declare (not safe)) (eq? _tag54463_ '#!void)) '#!void (begin - (let () (declare (not safe)) (_f57195_)) - (let () (declare (not safe)) (_d57196_ _tag57186_)) - (let () (declare (not safe)) (_n57198_)))) - (for-each _x57200_ _dbg-exprs57187_ _dbg-thunks57188_) - (if _thunk57190_ + (let () (declare (not safe)) (_f54472_)) + (let () (declare (not safe)) (_d54473_ _tag54463_)) + (let () (declare (not safe)) (_n54475_)))) + (for-each _x54477_ _dbg-exprs54464_ _dbg-thunks54465_) + (if _thunk54467_ (let () (declare (not safe)) - (_x57200_ _expr57189_ _thunk57190_)) + (_x54477_ _expr54466_ _thunk54467_)) '#!void)) - (if _thunk57190_ (_thunk57190_) '#!void))))))) + (if _thunk54467_ (_thunk54467_) '#!void))))))) diff --git a/src/bootstrap/gerbil/runtime/util__1.scm b/src/bootstrap/gerbil/runtime/util__1.scm index f9b4c3949..3a9829713 100644 --- a/src/bootstrap/gerbil/runtime/util__1.scm +++ b/src/bootstrap/gerbil/runtime/util__1.scm @@ -1,13 +1,13 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g64748_| + (define |[1]#_g57246_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |[1]#_g64749_| + (define |[1]#_g57247_| (##structure gx#syntax-quote::t 'quote @@ -16,2316 +16,2316 @@ '())) (begin (define |[:0:]#defassget| - (lambda (_$stx55765_) - (let* ((_g5576955787_ - (lambda (_g5577055783_) + (lambda (_$stx53042_) + (let* ((_g5304653064_ + (lambda (_g5304753060_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5577055783_))) - (_g5576855843_ - (lambda (_g5577055791_) - (if (gx#stx-pair? _g5577055791_) - (let ((_e5577555794_ (gx#syntax-e _g5577055791_))) - (let ((_hd5577455798_ + _g5304753060_))) + (_g5304553120_ + (lambda (_g5304753068_) + (if (gx#stx-pair? _g5304753068_) + (let ((_e5305253071_ (gx#syntax-e _g5304753068_))) + (let ((_hd5305153075_ (let () (declare (not safe)) - (##car _e5577555794_))) - (_tl5577355801_ + (##car _e5305253071_))) + (_tl5305053078_ (let () (declare (not safe)) - (##cdr _e5577555794_)))) - (if (gx#stx-pair? _tl5577355801_) - (let ((_e5577855804_ - (gx#syntax-e _tl5577355801_))) - (let ((_hd5577755808_ + (##cdr _e5305253071_)))) + (if (gx#stx-pair? _tl5305053078_) + (let ((_e5305553081_ + (gx#syntax-e _tl5305053078_))) + (let ((_hd5305453085_ (let () (declare (not safe)) - (##car _e5577855804_))) - (_tl5577655811_ + (##car _e5305553081_))) + (_tl5305353088_ (let () (declare (not safe)) - (##cdr _e5577855804_)))) - (if (gx#stx-pair? _tl5577655811_) - (let ((_e5578155814_ - (gx#syntax-e _tl5577655811_))) - (let ((_hd5578055818_ + (##cdr _e5305553081_)))) + (if (gx#stx-pair? _tl5305353088_) + (let ((_e5305853091_ + (gx#syntax-e _tl5305353088_))) + (let ((_hd5305753095_ (let () (declare (not safe)) - (##car _e5578155814_))) - (_tl5577955821_ + (##car _e5305853091_))) + (_tl5305653098_ (let () (declare (not safe)) - (##cdr _e5578155814_)))) - (if (gx#stx-null? _tl5577955821_) - ((lambda (_L55824_ _L55826_) - (let ((__tmp64509 + (##cdr _e5305853091_)))) + (if (gx#stx-null? _tl5305653098_) + ((lambda (_L53101_ _L53103_) + (let ((__tmp57007 (gx#datum->syntax '#f 'def)) - (__tmp64461 - (let ((__tmp64500 - (let ((__tmp64501 + (__tmp56959 + (let ((__tmp56998 + (let ((__tmp56999 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64508 (gx#datum->syntax '#f 'key)) - (__tmp64502 - (let ((__tmp64507 + (let ((__tmp57006 (gx#datum->syntax '#f 'key)) + (__tmp57000 + (let ((__tmp57005 (gx#datum->syntax '#f 'lst)) - (__tmp64503 - (let ((__tmp64504 - (let ((__tmp64506 + (__tmp57001 + (let ((__tmp57002 + (let ((__tmp57004 (gx#datum->syntax '#f 'default)) - (__tmp64505 + (__tmp57003 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp64506 - __tmp64505)))) + (cons __tmp57004 + __tmp57003)))) (declare (not safe)) - (cons __tmp64504 '())))) + (cons __tmp57002 '())))) (declare (not safe)) - (cons __tmp64507 __tmp64503)))) + (cons __tmp57005 __tmp57001)))) (declare (not safe)) - (cons __tmp64508 __tmp64502)))) + (cons __tmp57006 __tmp57000)))) (declare (not safe)) - (cons _L55826_ __tmp64501))) - (__tmp64462 - (let ((__tmp64463 - (let ((__tmp64499 (gx#datum->syntax '#f 'cond)) - (__tmp64464 - (let ((__tmp64481 - (let ((__tmp64486 - (let ((__tmp64498 + (cons _L53103_ __tmp56999))) + (__tmp56960 + (let ((__tmp56961 + (let ((__tmp56997 (gx#datum->syntax '#f 'cond)) + (__tmp56962 + (let ((__tmp56979 + (let ((__tmp56984 + (let ((__tmp56996 (gx#datum->syntax '#f 'and)) - (__tmp64487 - (let ((__tmp64494 + (__tmp56985 + (let ((__tmp56992 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64497 (gx#datum->syntax '#f 'pair?)) - (__tmp64495 - (let ((__tmp64496 (gx#datum->syntax '#f 'lst))) + (let ((__tmp56995 (gx#datum->syntax '#f 'pair?)) + (__tmp56993 + (let ((__tmp56994 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp64496 '())))) + (cons __tmp56994 '())))) (declare (not safe)) - (cons __tmp64497 __tmp64495))) - (__tmp64488 - (let ((__tmp64489 - (let ((__tmp64490 - (let ((__tmp64493 + (cons __tmp56995 __tmp56993))) + (__tmp56986 + (let ((__tmp56987 + (let ((__tmp56988 + (let ((__tmp56991 (gx#datum->syntax '#f 'key)) - (__tmp64491 - (let ((__tmp64492 + (__tmp56989 + (let ((__tmp56990 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp64492 '())))) + (cons __tmp56990 '())))) (declare (not safe)) - (cons __tmp64493 __tmp64491)))) + (cons __tmp56991 __tmp56989)))) (declare (not safe)) - (cons _L55824_ __tmp64490)))) + (cons _L53101_ __tmp56988)))) (declare (not safe)) - (cons __tmp64489 '())))) + (cons __tmp56987 '())))) (declare (not safe)) - (cons __tmp64494 __tmp64488)))) + (cons __tmp56992 __tmp56986)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64498 - __tmp64487))) - (__tmp64482 - (let ((__tmp64485 + (cons __tmp56996 + __tmp56985))) + (__tmp56980 + (let ((__tmp56983 (gx#datum->syntax '#f '=>)) - (__tmp64483 - (let ((__tmp64484 + (__tmp56981 + (let ((__tmp56982 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'cdr))) (declare (not safe)) - (cons __tmp64484 '())))) + (cons __tmp56982 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64485 - __tmp64483)))) + (cons __tmp56983 + __tmp56981)))) (declare (not safe)) - (cons __tmp64486 __tmp64482))) - (__tmp64465 - (let ((__tmp64471 - (let ((__tmp64477 - (let ((__tmp64480 + (cons __tmp56984 __tmp56980))) + (__tmp56963 + (let ((__tmp56969 + (let ((__tmp56975 + (let ((__tmp56978 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'procedure?)) - (__tmp64478 - (let ((__tmp64479 (gx#datum->syntax '#f 'default))) + (__tmp56976 + (let ((__tmp56977 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp64479 '())))) + (cons __tmp56977 '())))) (declare (not safe)) - (cons __tmp64480 __tmp64478))) - (__tmp64472 - (let ((__tmp64473 - (let ((__tmp64476 (gx#datum->syntax '#f 'default)) - (__tmp64474 - (let ((__tmp64475 (gx#datum->syntax '#f 'key))) + (cons __tmp56978 __tmp56976))) + (__tmp56970 + (let ((__tmp56971 + (let ((__tmp56974 (gx#datum->syntax '#f 'default)) + (__tmp56972 + (let ((__tmp56973 (gx#datum->syntax '#f 'key))) (declare (not safe)) - (cons __tmp64475 '())))) + (cons __tmp56973 '())))) (declare (not safe)) - (cons __tmp64476 __tmp64474)))) + (cons __tmp56974 __tmp56972)))) (declare (not safe)) - (cons __tmp64473 '())))) + (cons __tmp56971 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64477 - __tmp64472))) - (__tmp64466 - (let ((__tmp64467 - (let ((__tmp64470 + (cons __tmp56975 + __tmp56970))) + (__tmp56964 + (let ((__tmp56965 + (let ((__tmp56968 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'else)) - (__tmp64468 - (let ((__tmp64469 (gx#datum->syntax '#f 'default))) + (__tmp56966 + (let ((__tmp56967 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp64469 '())))) + (cons __tmp56967 '())))) (declare (not safe)) - (cons __tmp64470 __tmp64468)))) + (cons __tmp56968 __tmp56966)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64467 '())))) + (cons __tmp56965 '())))) (declare (not safe)) - (cons __tmp64471 __tmp64466)))) + (cons __tmp56969 __tmp56964)))) (declare (not safe)) - (cons __tmp64481 __tmp64465)))) + (cons __tmp56979 __tmp56963)))) (declare (not safe)) - (cons __tmp64499 __tmp64464)))) + (cons __tmp56997 __tmp56962)))) (declare (not safe)) - (cons __tmp64463 '())))) + (cons __tmp56961 '())))) (declare (not safe)) - (cons __tmp64500 __tmp64462)))) + (cons __tmp56998 __tmp56960)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64509 - __tmp64461))) - _hd5578055818_ - _hd5577755808_) - (_g5576955787_ _g5577055791_)))) - (_g5576955787_ _g5577055791_)))) - (_g5576955787_ _g5577055791_)))) - (_g5576955787_ _g5577055791_))))) - (_g5576855843_ _$stx55765_)))) + (cons __tmp57007 + __tmp56959))) + _hd5305753095_ + _hd5305453085_) + (_g5304653064_ _g5304753068_)))) + (_g5304653064_ _g5304753068_)))) + (_g5304653064_ _g5304753068_)))) + (_g5304653064_ _g5304753068_))))) + (_g5304553120_ _$stx53042_)))) (define |[:0:]#defpget| - (lambda (_$stx55847_) - (let* ((_g5585155869_ - (lambda (_g5585255865_) + (lambda (_$stx53124_) + (let* ((_g5312853146_ + (lambda (_g5312953142_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5585255865_))) - (_g5585055924_ - (lambda (_g5585255873_) - (if (gx#stx-pair? _g5585255873_) - (let ((_e5585755876_ (gx#syntax-e _g5585255873_))) - (let ((_hd5585655880_ + _g5312953142_))) + (_g5312753201_ + (lambda (_g5312953150_) + (if (gx#stx-pair? _g5312953150_) + (let ((_e5313453153_ (gx#syntax-e _g5312953150_))) + (let ((_hd5313353157_ (let () (declare (not safe)) - (##car _e5585755876_))) - (_tl5585555883_ + (##car _e5313453153_))) + (_tl5313253160_ (let () (declare (not safe)) - (##cdr _e5585755876_)))) - (if (gx#stx-pair? _tl5585555883_) - (let ((_e5586055886_ - (gx#syntax-e _tl5585555883_))) - (let ((_hd5585955890_ + (##cdr _e5313453153_)))) + (if (gx#stx-pair? _tl5313253160_) + (let ((_e5313753163_ + (gx#syntax-e _tl5313253160_))) + (let ((_hd5313653167_ (let () (declare (not safe)) - (##car _e5586055886_))) - (_tl5585855893_ + (##car _e5313753163_))) + (_tl5313553170_ (let () (declare (not safe)) - (##cdr _e5586055886_)))) - (if (gx#stx-pair? _tl5585855893_) - (let ((_e5586355896_ - (gx#syntax-e _tl5585855893_))) - (let ((_hd5586255900_ + (##cdr _e5313753163_)))) + (if (gx#stx-pair? _tl5313553170_) + (let ((_e5314053173_ + (gx#syntax-e _tl5313553170_))) + (let ((_hd5313953177_ (let () (declare (not safe)) - (##car _e5586355896_))) - (_tl5586155903_ + (##car _e5314053173_))) + (_tl5313853180_ (let () (declare (not safe)) - (##cdr _e5586355896_)))) - (if (gx#stx-null? _tl5586155903_) - ((lambda (_L55906_ _L55908_) - (let ((__tmp64579 + (##cdr _e5314053173_)))) + (if (gx#stx-null? _tl5313853180_) + ((lambda (_L53183_ _L53185_) + (let ((__tmp57077 (gx#datum->syntax '#f 'def)) - (__tmp64510 - (let ((__tmp64570 - (let ((__tmp64571 + (__tmp57008 + (let ((__tmp57068 + (let ((__tmp57069 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64578 (gx#datum->syntax '#f 'key)) - (__tmp64572 - (let ((__tmp64577 + (let ((__tmp57076 (gx#datum->syntax '#f 'key)) + (__tmp57070 + (let ((__tmp57075 (gx#datum->syntax '#f 'lst)) - (__tmp64573 - (let ((__tmp64574 - (let ((__tmp64576 + (__tmp57071 + (let ((__tmp57072 + (let ((__tmp57074 (gx#datum->syntax '#f 'default)) - (__tmp64575 + (__tmp57073 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp64576 - __tmp64575)))) + (cons __tmp57074 + __tmp57073)))) (declare (not safe)) - (cons __tmp64574 '())))) + (cons __tmp57072 '())))) (declare (not safe)) - (cons __tmp64577 __tmp64573)))) + (cons __tmp57075 __tmp57071)))) (declare (not safe)) - (cons __tmp64578 __tmp64572)))) + (cons __tmp57076 __tmp57070)))) (declare (not safe)) - (cons _L55908_ __tmp64571))) - (__tmp64511 - (let ((__tmp64512 - (let ((__tmp64569 (gx#datum->syntax '#f 'let)) - (__tmp64513 - (let ((__tmp64568 + (cons _L53185_ __tmp57069))) + (__tmp57009 + (let ((__tmp57010 + (let ((__tmp57067 (gx#datum->syntax '#f 'let)) + (__tmp57011 + (let ((__tmp57066 (gx#datum->syntax '#f 'lp)) - (__tmp64514 - (let ((__tmp64563 - (let ((__tmp64564 - (let ((__tmp64567 + (__tmp57012 + (let ((__tmp57061 + (let ((__tmp57062 + (let ((__tmp57065 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'rest)) - (__tmp64565 - (let ((__tmp64566 (gx#datum->syntax '#f 'lst))) + (__tmp57063 + (let ((__tmp57064 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp64566 '())))) + (cons __tmp57064 '())))) (declare (not safe)) - (cons __tmp64567 __tmp64565)))) + (cons __tmp57065 __tmp57063)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64564 '()))) - (__tmp64515 - (let ((__tmp64516 - (let ((__tmp64562 + (cons __tmp57062 '()))) + (__tmp57013 + (let ((__tmp57014 + (let ((__tmp57060 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'match)) - (__tmp64517 - (let ((__tmp64561 (gx#datum->syntax '#f 'rest)) - (__tmp64518 - (let ((__tmp64537 - (let ((__tmp64554 - (let ((__tmp64560 + (__tmp57015 + (let ((__tmp57059 (gx#datum->syntax '#f 'rest)) + (__tmp57016 + (let ((__tmp57035 + (let ((__tmp57052 + (let ((__tmp57058 (gx#datum->syntax '#f '@list)) - (__tmp64555 - (let ((__tmp64559 + (__tmp57053 + (let ((__tmp57057 (gx#datum->syntax '#f 'k)) - (__tmp64556 - (let ((__tmp64558 + (__tmp57054 + (let ((__tmp57056 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'v)) - (__tmp64557 (gx#datum->syntax '#f 'rest))) + (__tmp57055 (gx#datum->syntax '#f 'rest))) (declare (not safe)) - (cons __tmp64558 __tmp64557)))) + (cons __tmp57056 __tmp57055)))) (declare (not safe)) - (cons __tmp64559 __tmp64556)))) + (cons __tmp57057 __tmp57054)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64560 __tmp64555))) - (__tmp64538 - (let ((__tmp64539 - (let ((__tmp64553 + (cons __tmp57058 __tmp57053))) + (__tmp57036 + (let ((__tmp57037 + (let ((__tmp57051 (gx#datum->syntax '#f 'if)) - (__tmp64540 - (let ((__tmp64548 + (__tmp57038 + (let ((__tmp57046 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64549 - (let ((__tmp64552 (gx#datum->syntax '#f 'k)) - (__tmp64550 - (let ((__tmp64551 + (let ((__tmp57047 + (let ((__tmp57050 (gx#datum->syntax '#f 'k)) + (__tmp57048 + (let ((__tmp57049 (gx#datum->syntax '#f 'key))) (declare (not safe)) - (cons __tmp64551 '())))) + (cons __tmp57049 '())))) (declare (not safe)) - (cons __tmp64552 __tmp64550)))) + (cons __tmp57050 __tmp57048)))) (declare (not safe)) - (cons _L55906_ __tmp64549))) - (__tmp64541 - (let ((__tmp64547 (gx#datum->syntax '#f 'v)) - (__tmp64542 - (let ((__tmp64543 - (let ((__tmp64546 + (cons _L53183_ __tmp57047))) + (__tmp57039 + (let ((__tmp57045 (gx#datum->syntax '#f 'v)) + (__tmp57040 + (let ((__tmp57041 + (let ((__tmp57044 (gx#datum->syntax '#f 'lp)) - (__tmp64544 - (let ((__tmp64545 + (__tmp57042 + (let ((__tmp57043 (gx#datum->syntax '#f 'rest))) (declare (not safe)) - (cons __tmp64545 '())))) + (cons __tmp57043 '())))) (declare (not safe)) - (cons __tmp64546 __tmp64544)))) + (cons __tmp57044 __tmp57042)))) (declare (not safe)) - (cons __tmp64543 '())))) + (cons __tmp57041 '())))) (declare (not safe)) - (cons __tmp64547 __tmp64542)))) + (cons __tmp57045 __tmp57040)))) (declare (not safe)) - (cons __tmp64548 __tmp64541)))) + (cons __tmp57046 __tmp57039)))) (declare (not safe)) - (cons __tmp64553 __tmp64540)))) + (cons __tmp57051 __tmp57038)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64539 '())))) + (cons __tmp57037 '())))) (declare (not safe)) - (cons __tmp64554 __tmp64538))) - (__tmp64519 - (let ((__tmp64520 - (let ((__tmp64536 + (cons __tmp57052 __tmp57036))) + (__tmp57017 + (let ((__tmp57018 + (let ((__tmp57034 (gx#datum->syntax '#f 'else)) - (__tmp64521 - (let ((__tmp64522 - (let ((__tmp64535 + (__tmp57019 + (let ((__tmp57020 + (let ((__tmp57033 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'if)) - (__tmp64523 - (let ((__tmp64531 - (let ((__tmp64534 + (__tmp57021 + (let ((__tmp57029 + (let ((__tmp57032 (gx#datum->syntax '#f 'procedure?)) - (__tmp64532 - (let ((__tmp64533 + (__tmp57030 + (let ((__tmp57031 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp64533 '())))) + (cons __tmp57031 '())))) (declare (not safe)) - (cons __tmp64534 __tmp64532))) - (__tmp64524 - (let ((__tmp64527 - (let ((__tmp64530 + (cons __tmp57032 __tmp57030))) + (__tmp57022 + (let ((__tmp57025 + (let ((__tmp57028 (gx#datum->syntax '#f 'default)) - (__tmp64528 - (let ((__tmp64529 + (__tmp57026 + (let ((__tmp57027 (gx#datum->syntax '#f 'key))) (declare (not safe)) - (cons __tmp64529 '())))) + (cons __tmp57027 '())))) (declare (not safe)) - (cons __tmp64530 __tmp64528))) - (__tmp64525 - (let ((__tmp64526 + (cons __tmp57028 __tmp57026))) + (__tmp57023 + (let ((__tmp57024 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp64526 '())))) + (cons __tmp57024 '())))) (declare (not safe)) - (cons __tmp64527 __tmp64525)))) + (cons __tmp57025 __tmp57023)))) (declare (not safe)) - (cons __tmp64531 __tmp64524)))) + (cons __tmp57029 __tmp57022)))) (declare (not safe)) - (cons __tmp64535 __tmp64523)))) + (cons __tmp57033 __tmp57021)))) (declare (not safe)) - (cons __tmp64522 '())))) + (cons __tmp57020 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64536 __tmp64521)))) + (cons __tmp57034 __tmp57019)))) (declare (not safe)) - (cons __tmp64520 '())))) + (cons __tmp57018 '())))) (declare (not safe)) - (cons __tmp64537 __tmp64519)))) + (cons __tmp57035 __tmp57017)))) (declare (not safe)) - (cons __tmp64561 __tmp64518)))) + (cons __tmp57059 __tmp57016)))) (declare (not safe)) - (cons __tmp64562 __tmp64517)))) + (cons __tmp57060 __tmp57015)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64516 '())))) + (cons __tmp57014 '())))) (declare (not safe)) - (cons __tmp64563 __tmp64515)))) + (cons __tmp57061 __tmp57013)))) (declare (not safe)) - (cons __tmp64568 __tmp64514)))) + (cons __tmp57066 __tmp57012)))) (declare (not safe)) - (cons __tmp64569 __tmp64513)))) + (cons __tmp57067 __tmp57011)))) (declare (not safe)) - (cons __tmp64512 '())))) + (cons __tmp57010 '())))) (declare (not safe)) - (cons __tmp64570 __tmp64511)))) + (cons __tmp57068 __tmp57009)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64579 - __tmp64510))) - _hd5586255900_ - _hd5585955890_) - (_g5585155869_ _g5585255873_)))) - (_g5585155869_ _g5585255873_)))) - (_g5585155869_ _g5585255873_)))) - (_g5585155869_ _g5585255873_))))) - (_g5585055924_ _$stx55847_)))) + (cons __tmp57077 + __tmp57008))) + _hd5313953177_ + _hd5313653167_) + (_g5312853146_ _g5312953150_)))) + (_g5312853146_ _g5312953150_)))) + (_g5312853146_ _g5312953150_)))) + (_g5312853146_ _g5312953150_))))) + (_g5312753201_ _$stx53124_)))) (define |[:0:]#defremove1| - (lambda (_$stx55928_) - (let* ((_g5593255950_ - (lambda (_g5593355946_) + (lambda (_$stx53205_) + (let* ((_g5320953227_ + (lambda (_g5321053223_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5593355946_))) - (_g5593156005_ - (lambda (_g5593355954_) - (if (gx#stx-pair? _g5593355954_) - (let ((_e5593855957_ (gx#syntax-e _g5593355954_))) - (let ((_hd5593755961_ + _g5321053223_))) + (_g5320853282_ + (lambda (_g5321053231_) + (if (gx#stx-pair? _g5321053231_) + (let ((_e5321553234_ (gx#syntax-e _g5321053231_))) + (let ((_hd5321453238_ (let () (declare (not safe)) - (##car _e5593855957_))) - (_tl5593655964_ + (##car _e5321553234_))) + (_tl5321353241_ (let () (declare (not safe)) - (##cdr _e5593855957_)))) - (if (gx#stx-pair? _tl5593655964_) - (let ((_e5594155967_ - (gx#syntax-e _tl5593655964_))) - (let ((_hd5594055971_ + (##cdr _e5321553234_)))) + (if (gx#stx-pair? _tl5321353241_) + (let ((_e5321853244_ + (gx#syntax-e _tl5321353241_))) + (let ((_hd5321753248_ (let () (declare (not safe)) - (##car _e5594155967_))) - (_tl5593955974_ + (##car _e5321853244_))) + (_tl5321653251_ (let () (declare (not safe)) - (##cdr _e5594155967_)))) - (if (gx#stx-pair? _tl5593955974_) - (let ((_e5594455977_ - (gx#syntax-e _tl5593955974_))) - (let ((_hd5594355981_ + (##cdr _e5321853244_)))) + (if (gx#stx-pair? _tl5321653251_) + (let ((_e5322153254_ + (gx#syntax-e _tl5321653251_))) + (let ((_hd5322053258_ (let () (declare (not safe)) - (##car _e5594455977_))) - (_tl5594255984_ + (##car _e5322153254_))) + (_tl5321953261_ (let () (declare (not safe)) - (##cdr _e5594455977_)))) - (if (gx#stx-null? _tl5594255984_) - ((lambda (_L55987_ _L55989_) - (let ((__tmp64650 + (##cdr _e5322153254_)))) + (if (gx#stx-null? _tl5321953261_) + ((lambda (_L53264_ _L53266_) + (let ((__tmp57148 (gx#datum->syntax '#f 'def)) - (__tmp64580 - (let ((__tmp64645 - (let ((__tmp64646 + (__tmp57078 + (let ((__tmp57143 + (let ((__tmp57144 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64649 (gx#datum->syntax '#f 'el)) - (__tmp64647 - (let ((__tmp64648 + (let ((__tmp57147 (gx#datum->syntax '#f 'el)) + (__tmp57145 + (let ((__tmp57146 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp64648 '())))) + (cons __tmp57146 '())))) (declare (not safe)) - (cons __tmp64649 __tmp64647)))) + (cons __tmp57147 __tmp57145)))) (declare (not safe)) - (cons _L55989_ __tmp64646))) - (__tmp64581 - (let ((__tmp64582 - (let ((__tmp64644 (gx#datum->syntax '#f 'let)) - (__tmp64583 - (let ((__tmp64643 + (cons _L53266_ __tmp57144))) + (__tmp57079 + (let ((__tmp57080 + (let ((__tmp57142 (gx#datum->syntax '#f 'let)) + (__tmp57081 + (let ((__tmp57141 (gx#datum->syntax '#f 'lp)) - (__tmp64584 - (let ((__tmp64632 - (let ((__tmp64639 - (let ((__tmp64642 + (__tmp57082 + (let ((__tmp57130 + (let ((__tmp57137 + (let ((__tmp57140 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'rest)) - (__tmp64640 - (let ((__tmp64641 (gx#datum->syntax '#f 'lst))) + (__tmp57138 + (let ((__tmp57139 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp64641 '())))) + (cons __tmp57139 '())))) (declare (not safe)) - (cons __tmp64642 __tmp64640))) - (__tmp64633 - (let ((__tmp64634 - (let ((__tmp64638 (gx#datum->syntax '#f 'r)) - (__tmp64635 - (let ((__tmp64636 - (let ((__tmp64637 + (cons __tmp57140 __tmp57138))) + (__tmp57131 + (let ((__tmp57132 + (let ((__tmp57136 (gx#datum->syntax '#f 'r)) + (__tmp57133 + (let ((__tmp57134 + (let ((__tmp57135 (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp64637 '())))) + (cons __tmp57135 '())))) (declare (not safe)) - (cons __tmp64636 '())))) + (cons __tmp57134 '())))) (declare (not safe)) - (cons __tmp64638 __tmp64635)))) + (cons __tmp57136 __tmp57133)))) (declare (not safe)) - (cons __tmp64634 '())))) + (cons __tmp57132 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64639 - __tmp64633))) - (__tmp64585 - (let ((__tmp64586 - (let ((__tmp64631 + (cons __tmp57137 + __tmp57131))) + (__tmp57083 + (let ((__tmp57084 + (let ((__tmp57129 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'match)) - (__tmp64587 - (let ((__tmp64630 (gx#datum->syntax '#f 'rest)) - (__tmp64588 - (let ((__tmp64594 - (let ((__tmp64625 - (let ((__tmp64629 + (__tmp57085 + (let ((__tmp57128 (gx#datum->syntax '#f 'rest)) + (__tmp57086 + (let ((__tmp57092 + (let ((__tmp57123 + (let ((__tmp57127 (gx#datum->syntax '#f '@list)) - (__tmp64626 - (let ((__tmp64628 + (__tmp57124 + (let ((__tmp57126 (gx#datum->syntax '#f 'hd)) - (__tmp64627 + (__tmp57125 (gx#datum->syntax '#f 'rest))) (declare (not safe)) - (cons __tmp64628 - __tmp64627)))) + (cons __tmp57126 + __tmp57125)))) (declare (not safe)) - (cons __tmp64629 __tmp64626))) - (__tmp64595 - (let ((__tmp64596 - (let ((__tmp64624 + (cons __tmp57127 __tmp57124))) + (__tmp57093 + (let ((__tmp57094 + (let ((__tmp57122 (gx#datum->syntax '#f 'if)) - (__tmp64597 - (let ((__tmp64619 + (__tmp57095 + (let ((__tmp57117 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64620 - (let ((__tmp64623 (gx#datum->syntax '#f 'el)) - (__tmp64621 - (let ((__tmp64622 + (let ((__tmp57118 + (let ((__tmp57121 (gx#datum->syntax '#f 'el)) + (__tmp57119 + (let ((__tmp57120 (gx#datum->syntax '#f 'hd))) (declare (not safe)) - (cons __tmp64622 '())))) + (cons __tmp57120 '())))) (declare (not safe)) - (cons __tmp64623 __tmp64621)))) + (cons __tmp57121 __tmp57119)))) (declare (not safe)) - (cons _L55987_ __tmp64620))) - (__tmp64598 - (let ((__tmp64611 - (let ((__tmp64618 + (cons _L53264_ __tmp57118))) + (__tmp57096 + (let ((__tmp57109 + (let ((__tmp57116 (gx#datum->syntax '#f 'foldl1)) - (__tmp64612 - (let ((__tmp64617 + (__tmp57110 + (let ((__tmp57115 (gx#datum->syntax '#f 'cons)) - (__tmp64613 - (let ((__tmp64616 + (__tmp57111 + (let ((__tmp57114 (gx#datum->syntax '#f 'rest)) - (__tmp64614 - (let ((__tmp64615 + (__tmp57112 + (let ((__tmp57113 (gx#datum->syntax '#f 'r))) (declare (not safe)) - (cons __tmp64615 + (cons __tmp57113 '())))) (declare (not safe)) - (cons __tmp64616 - __tmp64614)))) + (cons __tmp57114 + __tmp57112)))) (declare (not safe)) - (cons __tmp64617 __tmp64613)))) + (cons __tmp57115 __tmp57111)))) (declare (not safe)) - (cons __tmp64618 __tmp64612))) - (__tmp64599 - (let ((__tmp64600 - (let ((__tmp64610 + (cons __tmp57116 __tmp57110))) + (__tmp57097 + (let ((__tmp57098 + (let ((__tmp57108 (gx#datum->syntax '#f 'lp)) - (__tmp64601 - (let ((__tmp64609 + (__tmp57099 + (let ((__tmp57107 (gx#datum->syntax '#f 'rest)) - (__tmp64602 - (let ((__tmp64603 - (let ((__tmp64608 + (__tmp57100 + (let ((__tmp57101 + (let ((__tmp57106 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'cons)) - (__tmp64604 - (let ((__tmp64607 (gx#datum->syntax '#f 'hd)) - (__tmp64605 - (let ((__tmp64606 + (__tmp57102 + (let ((__tmp57105 (gx#datum->syntax '#f 'hd)) + (__tmp57103 + (let ((__tmp57104 (gx#datum->syntax '#f 'r))) (declare (not safe)) - (cons __tmp64606 '())))) + (cons __tmp57104 '())))) (declare (not safe)) - (cons __tmp64607 __tmp64605)))) + (cons __tmp57105 __tmp57103)))) (declare (not safe)) - (cons __tmp64608 __tmp64604)))) + (cons __tmp57106 __tmp57102)))) (declare (not safe)) - (cons __tmp64603 '())))) + (cons __tmp57101 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64609 - __tmp64602)))) + (cons __tmp57107 + __tmp57100)))) (declare (not safe)) - (cons __tmp64610 __tmp64601)))) + (cons __tmp57108 __tmp57099)))) (declare (not safe)) - (cons __tmp64600 '())))) + (cons __tmp57098 '())))) (declare (not safe)) - (cons __tmp64611 __tmp64599)))) + (cons __tmp57109 __tmp57097)))) (declare (not safe)) - (cons __tmp64619 __tmp64598)))) + (cons __tmp57117 __tmp57096)))) (declare (not safe)) - (cons __tmp64624 __tmp64597)))) + (cons __tmp57122 __tmp57095)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64596 '())))) + (cons __tmp57094 '())))) (declare (not safe)) - (cons __tmp64625 __tmp64595))) - (__tmp64589 - (let ((__tmp64590 - (let ((__tmp64593 + (cons __tmp57123 __tmp57093))) + (__tmp57087 + (let ((__tmp57088 + (let ((__tmp57091 (gx#datum->syntax '#f 'else)) - (__tmp64591 - (let ((__tmp64592 + (__tmp57089 + (let ((__tmp57090 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp64592 '())))) + (cons __tmp57090 '())))) (declare (not safe)) - (cons __tmp64593 __tmp64591)))) + (cons __tmp57091 __tmp57089)))) (declare (not safe)) - (cons __tmp64590 '())))) + (cons __tmp57088 '())))) (declare (not safe)) - (cons __tmp64594 __tmp64589)))) + (cons __tmp57092 __tmp57087)))) (declare (not safe)) - (cons __tmp64630 __tmp64588)))) + (cons __tmp57128 __tmp57086)))) (declare (not safe)) - (cons __tmp64631 __tmp64587)))) + (cons __tmp57129 __tmp57085)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64586 '())))) + (cons __tmp57084 '())))) (declare (not safe)) - (cons __tmp64632 __tmp64585)))) + (cons __tmp57130 __tmp57083)))) (declare (not safe)) - (cons __tmp64643 __tmp64584)))) + (cons __tmp57141 __tmp57082)))) (declare (not safe)) - (cons __tmp64644 __tmp64583)))) + (cons __tmp57142 __tmp57081)))) (declare (not safe)) - (cons __tmp64582 '())))) + (cons __tmp57080 '())))) (declare (not safe)) - (cons __tmp64645 __tmp64581)))) + (cons __tmp57143 __tmp57079)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64650 - __tmp64580))) - _hd5594355981_ - _hd5594055971_) - (_g5593255950_ _g5593355954_)))) - (_g5593255950_ _g5593355954_)))) - (_g5593255950_ _g5593355954_)))) - (_g5593255950_ _g5593355954_))))) - (_g5593156005_ _$stx55928_)))) + (cons __tmp57148 + __tmp57078))) + _hd5322053258_ + _hd5321753248_) + (_g5320953227_ _g5321053231_)))) + (_g5320953227_ _g5321053231_)))) + (_g5320953227_ _g5321053231_)))) + (_g5320953227_ _g5321053231_))))) + (_g5320853282_ _$stx53205_)))) (define |[:0:]#DBG| - (lambda (_$stx56009_) - (let* ((_g5601356024_ - (lambda (_g5601456020_) + (lambda (_$stx53286_) + (let* ((_g5329053301_ + (lambda (_g5329153297_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5601456020_))) - (_g5601256053_ - (lambda (_g5601456028_) - (if (gx#stx-pair? _g5601456028_) - (let ((_e5601856031_ (gx#syntax-e _g5601456028_))) - (let ((_hd5601756035_ + _g5329153297_))) + (_g5328953330_ + (lambda (_g5329153305_) + (if (gx#stx-pair? _g5329153305_) + (let ((_e5329553308_ (gx#syntax-e _g5329153305_))) + (let ((_hd5329453312_ (let () (declare (not safe)) - (##car _e5601856031_))) - (_tl5601656038_ + (##car _e5329553308_))) + (_tl5329353315_ (let () (declare (not safe)) - (##cdr _e5601856031_)))) - ((lambda (_L56041_) - (let ((__tmp64652 (gx#datum->syntax '#f 'DBG/1)) - (__tmp64651 + (##cdr _e5329553308_)))) + ((lambda (_L53318_) + (let ((__tmp57150 (gx#datum->syntax '#f 'DBG/1)) + (__tmp57149 (let () (declare (not safe)) - (cons '1 _L56041_)))) + (cons '1 _L53318_)))) (declare (not safe)) - (cons __tmp64652 __tmp64651))) - _tl5601656038_))) - (_g5601356024_ _g5601456028_))))) - (_g5601256053_ _$stx56009_)))) + (cons __tmp57150 __tmp57149))) + _tl5329353315_))) + (_g5329053301_ _g5329153305_))))) + (_g5328953330_ _$stx53286_)))) (define |[:0:]#DBG/1| - (lambda (_$stx56057_) - (let* ((___stx6397363974_ _$stx56057_) - (_g5606856282_ + (lambda (_$stx53334_) + (let* ((___stx5649056491_ _$stx53334_) + (_g5334553559_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx6397363974_)))) - (let ((___kont6397663977_ - (lambda (_L57135_ _L57137_ _L57138_ _L57139_ _L57140_) - (let ((__tmp64653 - (let ((__tmp64654 - (let ((__tmp64655 - (let ((__tmp64659 - (let ((__tmp64660 - (lambda (_g5717057173_ - _g5717157176_) + ___stx5649056491_)))) + (let ((___kont5649356494_ + (lambda (_L54412_ _L54414_ _L54415_ _L54416_ _L54417_) + (let ((__tmp57151 + (let ((__tmp57152 + (let ((__tmp57153 + (let ((__tmp57157 + (let ((__tmp57158 + (lambda (_g5444754450_ + _g5444854453_) (let () (declare (not safe)) - (cons _g5717057173_ - _g5717157176_))))) + (cons _g5444754450_ + _g5444854453_))))) (declare (not safe)) - (foldr1 __tmp64660 + (foldr1 __tmp57158 '() - _L57138_))) - (__tmp64656 - (let ((__tmp64657 - (let ((__tmp64658 + _L54415_))) + (__tmp57154 + (let ((__tmp57155 + (let ((__tmp57156 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L57135_ '())))) + (cons _L54412_ '())))) (declare (not safe)) - (cons _L57137_ __tmp64658)))) + (cons _L54414_ __tmp57156)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L57139_ __tmp64657)))) + (cons _L54416_ __tmp57155)))) (declare (not safe)) - (cons __tmp64659 __tmp64656)))) + (cons __tmp57157 __tmp57154)))) (declare (not safe)) - (cons '() __tmp64655)))) + (cons '() __tmp57153)))) (declare (not safe)) - (cons '2 __tmp64654)))) + (cons '2 __tmp57152)))) (declare (not safe)) - (cons _L57140_ __tmp64653)))) - (___kont6398063981_ - (lambda (_L56988_ _L56990_ _L56991_ _L56992_) - (let ((__tmp64661 - (let ((__tmp64662 - (let ((__tmp64663 - (let ((__tmp64667 - (let ((__tmp64668 - (lambda (_g5701557018_ - _g5701657021_) + (cons _L54417_ __tmp57151)))) + (___kont5649756498_ + (lambda (_L54265_ _L54267_ _L54268_ _L54269_) + (let ((__tmp57159 + (let ((__tmp57160 + (let ((__tmp57161 + (let ((__tmp57165 + (let ((__tmp57166 + (lambda (_g5429254295_ + _g5429354298_) (let () (declare (not safe)) - (cons _g5701557018_ - _g5701657021_))))) + (cons _g5429254295_ + _g5429354298_))))) (declare (not safe)) - (foldr1 __tmp64668 + (foldr1 __tmp57166 '() - _L56990_))) - (__tmp64664 - (let ((__tmp64665 - (let ((__tmp64666 + _L54267_))) + (__tmp57162 + (let ((__tmp57163 + (let ((__tmp57164 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L56988_ '())))) + (cons _L54265_ '())))) (declare (not safe)) - (cons _L56988_ __tmp64666)))) + (cons _L54265_ __tmp57164)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L56991_ __tmp64665)))) + (cons _L54268_ __tmp57163)))) (declare (not safe)) - (cons __tmp64667 __tmp64664)))) + (cons __tmp57165 __tmp57162)))) (declare (not safe)) - (cons '() __tmp64663)))) + (cons '() __tmp57161)))) (declare (not safe)) - (cons '2 __tmp64662)))) + (cons '2 __tmp57160)))) (declare (not safe)) - (cons _L56992_ __tmp64661)))) - (___kont6398463985_ - (lambda (_L56891_) - (let ((__tmp64680 (gx#datum->syntax '#f 'DBG-helper)) - (__tmp64669 - (let ((__tmp64670 - (let ((__tmp64677 - (let ((__tmp64679 + (cons _L54269_ __tmp57159)))) + (___kont5650156502_ + (lambda (_L54168_) + (let ((__tmp57178 (gx#datum->syntax '#f 'DBG-helper)) + (__tmp57167 + (let ((__tmp57168 + (let ((__tmp57175 + (let ((__tmp57177 (gx#datum->syntax '#f 'quote)) - (__tmp64678 + (__tmp57176 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp64679 __tmp64678))) - (__tmp64671 - (let ((__tmp64674 - (let ((__tmp64676 + (cons __tmp57177 __tmp57176))) + (__tmp57169 + (let ((__tmp57172 + (let ((__tmp57174 (gx#datum->syntax '#f 'quote)) - (__tmp64675 + (__tmp57173 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp64676 __tmp64675))) - (__tmp64672 - (let ((__tmp64673 + (cons __tmp57174 __tmp57173))) + (__tmp57170 + (let ((__tmp57171 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons '#f __tmp64673)))) + (cons '#f __tmp57171)))) (declare (not safe)) - (cons __tmp64674 __tmp64672)))) + (cons __tmp57172 __tmp57170)))) (declare (not safe)) - (cons __tmp64677 __tmp64671)))) + (cons __tmp57175 __tmp57169)))) (declare (not safe)) - (cons _L56891_ __tmp64670)))) + (cons _L54168_ __tmp57168)))) (declare (not safe)) - (cons __tmp64680 __tmp64669)))) - (___kont6398663987_ - (lambda (_L56814_ - _L56816_ - _L56817_ - _L56818_ - _L56819_ - _L56820_) - (let ((__tmp64681 - (let ((__tmp64682 - (let ((__tmp64684 - (let ((__tmp64685 - (let ((__tmp64686 + (cons __tmp57178 __tmp57167)))) + (___kont5650356504_ + (lambda (_L54091_ + _L54093_ + _L54094_ + _L54095_ + _L54096_ + _L54097_) + (let ((__tmp57179 + (let ((__tmp57180 + (let ((__tmp57182 + (let ((__tmp57183 + (let ((__tmp57184 (let () (declare (not safe)) - (cons _L56817_ '())))) + (cons _L54094_ '())))) (declare (not safe)) - (cons _L56818_ __tmp64686)))) + (cons _L54095_ __tmp57184)))) (declare (not safe)) - (cons __tmp64685 _L56819_))) - (__tmp64683 + (cons __tmp57183 _L54096_))) + (__tmp57181 (let () (declare (not safe)) - (cons _L56816_ _L56814_)))) + (cons _L54093_ _L54091_)))) (declare (not safe)) - (cons __tmp64684 __tmp64683)))) + (cons __tmp57182 __tmp57181)))) (declare (not safe)) - (cons '2 __tmp64682)))) + (cons '2 __tmp57180)))) (declare (not safe)) - (cons _L56820_ __tmp64681)))) - (___kont6398863989_ - (lambda (_L56695_ _L56697_ _L56698_ _L56699_ _L56700_) - (let ((__tmp64687 - (let ((__tmp64688 - (let ((__tmp64690 - (let ((__tmp64691 - (let ((__tmp64692 + (cons _L54097_ __tmp57179)))) + (___kont5650556506_ + (lambda (_L53972_ _L53974_ _L53975_ _L53976_ _L53977_) + (let ((__tmp57185 + (let ((__tmp57186 + (let ((__tmp57188 + (let ((__tmp57189 + (let ((__tmp57190 (let () (declare (not safe)) - (cons _L56698_ '())))) + (cons _L53975_ '())))) (declare (not safe)) - (cons _L56698_ __tmp64692)))) + (cons _L53975_ __tmp57190)))) (declare (not safe)) - (cons __tmp64691 _L56699_))) - (__tmp64689 + (cons __tmp57189 _L53976_))) + (__tmp57187 (let () (declare (not safe)) - (cons _L56697_ _L56695_)))) + (cons _L53974_ _L53972_)))) (declare (not safe)) - (cons __tmp64690 __tmp64689)))) + (cons __tmp57188 __tmp57187)))) (declare (not safe)) - (cons '2 __tmp64688)))) + (cons '2 __tmp57186)))) (declare (not safe)) - (cons _L56700_ __tmp64687)))) - (___kont6399063991_ - (lambda (_L56612_ _L56614_ _L56615_) - (let ((__tmp64693 - (let ((__tmp64694 - (let ((__tmp64695 + (cons _L53977_ __tmp57185)))) + (___kont5650756508_ + (lambda (_L53889_ _L53891_ _L53892_) + (let ((__tmp57191 + (let ((__tmp57192 + (let ((__tmp57193 (let () (declare (not safe)) - (cons _L56614_ _L56612_)))) + (cons _L53891_ _L53889_)))) (declare (not safe)) - (cons '() __tmp64695)))) + (cons '() __tmp57193)))) (declare (not safe)) - (cons '3 __tmp64694)))) + (cons '3 __tmp57192)))) (declare (not safe)) - (cons _L56615_ __tmp64693)))) - (___kont6399263993_ - (lambda (_L56533_ _L56535_ _L56536_ _L56537_ _L56538_) - (let ((__tmp64696 - (let ((__tmp64697 - (let ((__tmp64699 + (cons _L53892_ __tmp57191)))) + (___kont5650956510_ + (lambda (_L53810_ _L53812_ _L53813_ _L53814_ _L53815_) + (let ((__tmp57194 + (let ((__tmp57195 + (let ((__tmp57197 (let () (declare (not safe)) - (cons _L56536_ _L56537_))) - (__tmp64698 + (cons _L53813_ _L53814_))) + (__tmp57196 (let () (declare (not safe)) - (cons _L56535_ _L56533_)))) + (cons _L53812_ _L53810_)))) (declare (not safe)) - (cons __tmp64699 __tmp64698)))) + (cons __tmp57197 __tmp57196)))) (declare (not safe)) - (cons '3 __tmp64697)))) + (cons '3 __tmp57195)))) (declare (not safe)) - (cons _L56538_ __tmp64696)))) - (___kont6399463995_ - (lambda (_L56417_ - _L56419_ - _L56420_ - _L56421_ - _L56422_ - _L56423_) - (let ((__tmp64747 (gx#datum->syntax '#f 'let)) - (__tmp64700 - (let ((__tmp64735 - (let ((__tmp64744 - (let ((__tmp64746 + (cons _L53815_ __tmp57194)))) + (___kont5651156512_ + (lambda (_L53694_ + _L53696_ + _L53697_ + _L53698_ + _L53699_ + _L53700_) + (let ((__tmp57245 (gx#datum->syntax '#f 'let)) + (__tmp57198 + (let ((__tmp57233 + (let ((__tmp57242 + (let ((__tmp57244 (gx#datum->syntax '#f 'tagval)) - (__tmp64745 + (__tmp57243 (let () (declare (not safe)) - (cons _L56420_ '())))) + (cons _L53697_ '())))) (declare (not safe)) - (cons __tmp64746 __tmp64745))) - (__tmp64736 - (let ((__tmp64737 - (let ((__tmp64743 + (cons __tmp57244 __tmp57243))) + (__tmp57234 + (let ((__tmp57235 + (let ((__tmp57241 (gx#datum->syntax '#f 'thunk)) - (__tmp64738 - (let ((__tmp64739 - (let ((__tmp64742 + (__tmp57236 + (let ((__tmp57237 + (let ((__tmp57240 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp64740 - (let ((__tmp64741 + (__tmp57238 + (let ((__tmp57239 (let () (declare (not safe)) - (cons _L56417_ '())))) + (cons _L53694_ '())))) (declare (not safe)) - (cons '() __tmp64741)))) + (cons '() __tmp57239)))) (declare (not safe)) - (cons __tmp64742 __tmp64740)))) + (cons __tmp57240 __tmp57238)))) (declare (not safe)) - (cons __tmp64739 '())))) + (cons __tmp57237 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64743 - __tmp64738)))) + (cons __tmp57241 + __tmp57236)))) (declare (not safe)) - (cons __tmp64737 '())))) + (cons __tmp57235 '())))) (declare (not safe)) - (cons __tmp64744 __tmp64736))) - (__tmp64701 - (let ((__tmp64702 - (let ((__tmp64734 + (cons __tmp57242 __tmp57234))) + (__tmp57199 + (let ((__tmp57200 + (let ((__tmp57232 (gx#datum->syntax '#f 'if)) - (__tmp64703 - (let ((__tmp64733 + (__tmp57201 + (let ((__tmp57231 (gx#datum->syntax '#f 'tagval)) - (__tmp64704 - (let ((__tmp64708 - (let ((__tmp64732 + (__tmp57202 + (let ((__tmp57206 + (let ((__tmp57230 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'DBG-helper)) - (__tmp64709 - (let ((__tmp64731 (gx#datum->syntax '#f 'tagval)) - (__tmp64710 - (let ((__tmp64726 - (let ((__tmp64730 + (__tmp57207 + (let ((__tmp57229 (gx#datum->syntax '#f 'tagval)) + (__tmp57208 + (let ((__tmp57224 + (let ((__tmp57228 (gx#datum->syntax '#f 'quote)) - (__tmp64727 - (let ((__tmp64728 - (let ((__tmp64729 - (lambda (_g5645756460_ + (__tmp57225 + (let ((__tmp57226 + (let ((__tmp57227 + (lambda (_g5373453737_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g5645856463_) + _g5373553740_) (let () (declare (not safe)) - (cons _g5645756460_ _g5645856463_))))) + (cons _g5373453737_ _g5373553740_))))) (declare (not safe)) - (foldr1 __tmp64729 '() _L56422_)))) + (foldr1 __tmp57227 '() _L53699_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64728 '())))) + (cons __tmp57226 '())))) (declare (not safe)) - (cons __tmp64730 __tmp64727))) - (__tmp64711 - (let ((__tmp64718 - (let ((__tmp64725 + (cons __tmp57228 __tmp57225))) + (__tmp57209 + (let ((__tmp57216 + (let ((__tmp57223 (gx#datum->syntax '#f 'list)) - (__tmp64719 - (let ((__tmp64720 - (lambda (_g5645556466_ + (__tmp57217 + (let ((__tmp57218 + (lambda (_g5373253743_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g5645656469_) - (let ((__tmp64721 - (let ((__tmp64724 + _g5373353746_) + (let ((__tmp57219 + (let ((__tmp57222 (gx#datum->syntax '#f 'lambda)) - (__tmp64722 - (let ((__tmp64723 + (__tmp57220 + (let ((__tmp57221 (let () (declare (not safe)) - (cons _g5645556466_ '())))) + (cons _g5373253743_ '())))) (declare (not safe)) - (cons '() __tmp64723)))) + (cons '() __tmp57221)))) (declare (not safe)) - (cons __tmp64724 __tmp64722)))) + (cons __tmp57222 __tmp57220)))) (declare (not safe)) - (cons __tmp64721 _g5645656469_))))) + (cons __tmp57219 _g5373353746_))))) (declare (not safe)) - (foldr1 __tmp64720 '() _L56421_)))) + (foldr1 __tmp57218 '() _L53698_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64725 - __tmp64719))) - (__tmp64712 - (let ((__tmp64715 - (let ((__tmp64717 + (cons __tmp57223 + __tmp57217))) + (__tmp57210 + (let ((__tmp57213 + (let ((__tmp57215 (gx#datum->syntax '#f 'quote)) - (__tmp64716 + (__tmp57214 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L56419_ '())))) + (cons _L53696_ '())))) (declare (not safe)) - (cons __tmp64717 __tmp64716))) - (__tmp64713 - (let ((__tmp64714 (gx#datum->syntax '#f 'thunk))) + (cons __tmp57215 __tmp57214))) + (__tmp57211 + (let ((__tmp57212 (gx#datum->syntax '#f 'thunk))) (declare (not safe)) - (cons __tmp64714 '())))) + (cons __tmp57212 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64715 - __tmp64713)))) + (cons __tmp57213 + __tmp57211)))) (declare (not safe)) - (cons __tmp64718 __tmp64712)))) + (cons __tmp57216 __tmp57210)))) (declare (not safe)) - (cons __tmp64726 __tmp64711)))) + (cons __tmp57224 __tmp57209)))) (declare (not safe)) - (cons __tmp64731 __tmp64710)))) + (cons __tmp57229 __tmp57208)))) (declare (not safe)) - (cons __tmp64732 __tmp64709))) - (__tmp64705 - (let ((__tmp64706 - (let ((__tmp64707 (gx#datum->syntax '#f 'thunk))) + (cons __tmp57230 __tmp57207))) + (__tmp57203 + (let ((__tmp57204 + (let ((__tmp57205 (gx#datum->syntax '#f 'thunk))) (declare (not safe)) - (cons __tmp64707 '())))) + (cons __tmp57205 '())))) (declare (not safe)) - (cons __tmp64706 '())))) + (cons __tmp57204 '())))) (declare (not safe)) - (cons __tmp64708 __tmp64705)))) + (cons __tmp57206 __tmp57203)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64733 - __tmp64704)))) + (cons __tmp57231 + __tmp57202)))) (declare (not safe)) - (cons __tmp64734 __tmp64703)))) + (cons __tmp57232 __tmp57201)))) (declare (not safe)) - (cons __tmp64702 '())))) + (cons __tmp57200 '())))) (declare (not safe)) - (cons __tmp64735 __tmp64701)))) + (cons __tmp57233 __tmp57199)))) (declare (not safe)) - (cons __tmp64747 __tmp64700))))) - (let* ((___match6432464325_ - (lambda (_e5624056289_ - _hd5623956293_ - _tl5623856296_ - _e5624356299_ - _hd5624256303_ - _tl5624156306_ - _e5624456309_ - _e5624756313_ - _hd5624656317_ - _tl5624556320_ - ___splice6399663997_ - _target5624856323_ - _tl5625056326_) - (letrec ((_loop5625156329_ - (lambda (_hd5624956333_ - _exprs5625556336_ - _names5625656338_) - (if (gx#stx-pair? _hd5624956333_) - (let ((_e5625256341_ - (gx#syntax-e _hd5624956333_))) - (let ((_lp-tl5625456348_ + (cons __tmp57245 __tmp57198))))) + (let* ((___match5684156842_ + (lambda (_e5351753566_ + _hd5351653570_ + _tl5351553573_ + _e5352053576_ + _hd5351953580_ + _tl5351853583_ + _e5352153586_ + _e5352453590_ + _hd5352353594_ + _tl5352253597_ + ___splice5651356514_ + _target5352553600_ + _tl5352753603_) + (letrec ((_loop5352853606_ + (lambda (_hd5352653610_ + _exprs5353253613_ + _names5353353615_) + (if (gx#stx-pair? _hd5352653610_) + (let ((_e5352953618_ + (gx#syntax-e _hd5352653610_))) + (let ((_lp-tl5353153625_ (let () (declare (not safe)) - (##cdr _e5625256341_))) - (_lp-hd5625356345_ + (##cdr _e5352953618_))) + (_lp-hd5353053622_ (let () (declare (not safe)) - (##car _e5625256341_)))) - (if (gx#stx-pair? _lp-hd5625356345_) - (let ((_e5626156351_ + (##car _e5352953618_)))) + (if (gx#stx-pair? _lp-hd5353053622_) + (let ((_e5353853628_ (gx#syntax-e - _lp-hd5625356345_))) - (let ((_tl5625956358_ + _lp-hd5353053622_))) + (let ((_tl5353653635_ (let () (declare (not safe)) - (##cdr _e5626156351_))) - (_hd5626056355_ + (##cdr _e5353853628_))) + (_hd5353753632_ (let () (declare (not safe)) - (##car _e5626156351_)))) + (##car _e5353853628_)))) (if (gx#stx-pair? - _tl5625956358_) - (let ((_e5626456361_ + _tl5353653635_) + (let ((_e5354153638_ (gx#syntax-e - _tl5625956358_))) - (let ((_tl5626256368_ + _tl5353653635_))) + (let ((_tl5353953645_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e5626456361_))) - (_hd5626356365_ - (let () (declare (not safe)) (##car _e5626456361_)))) - (if (gx#stx-null? _tl5626256368_) - (_loop5625156329_ - _lp-tl5625456348_ + (##cdr _e5354153638_))) + (_hd5354053642_ + (let () (declare (not safe)) (##car _e5354153638_)))) + (if (gx#stx-null? _tl5353953645_) + (_loop5352853606_ + _lp-tl5353153625_ (let () (declare (not safe)) - (cons _hd5626356365_ _exprs5625556336_)) + (cons _hd5354053642_ _exprs5353253613_)) (let () (declare (not safe)) - (cons _hd5626056355_ _names5625656338_))) - (let () (declare (not safe)) (_g5606856282_))))) - (let () (declare (not safe)) (_g5606856282_))))) + (cons _hd5353753632_ _names5353353615_))) + (let () (declare (not safe)) (_g5334553559_))))) + (let () (declare (not safe)) (_g5334553559_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g5606856282_))))) - (let ((_names5625856374_ - (reverse _names5625656338_)) - (_exprs5625756371_ - (reverse _exprs5625556336_))) - (if (gx#stx-pair? _tl5624556320_) - (let ((_e5626756377_ + (_g5334553559_))))) + (let ((_names5353553651_ + (reverse _names5353353615_)) + (_exprs5353453648_ + (reverse _exprs5353253613_))) + (if (gx#stx-pair? _tl5352253597_) + (let ((_e5354453654_ (gx#syntax-e - _tl5624556320_))) - (let ((_tl5626556384_ + _tl5352253597_))) + (let ((_tl5354253661_ (let () (declare (not safe)) - (##cdr _e5626756377_))) - (_hd5626656381_ + (##cdr _e5354453654_))) + (_hd5354353658_ (let () (declare (not safe)) - (##car _e5626756377_)))) + (##car _e5354453654_)))) (if (gx#stx-null? - _hd5626656381_) + _hd5354353658_) (if (gx#stx-pair? - _tl5626556384_) - (let ((_e5627056387_ + _tl5354253661_) + (let ((_e5354753664_ (gx#syntax-e - _tl5626556384_))) - (let ((_tl5626856394_ + _tl5354253661_))) + (let ((_tl5354553671_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e5627056387_))) - (_hd5626956391_ - (let () (declare (not safe)) (##car _e5627056387_)))) - (if (gx#stx-pair? _tl5626856394_) - (let ((_e5627356397_ (gx#syntax-e _tl5626856394_))) - (let ((_tl5627156404_ + (let () (declare (not safe)) (##cdr _e5354753664_))) + (_hd5354653668_ + (let () (declare (not safe)) (##car _e5354753664_)))) + (if (gx#stx-pair? _tl5354553671_) + (let ((_e5355053674_ (gx#syntax-e _tl5354553671_))) + (let ((_tl5354853681_ (let () (declare (not safe)) - (##cdr _e5627356397_))) - (_hd5627256401_ + (##cdr _e5355053674_))) + (_hd5354953678_ (let () (declare (not safe)) - (##car _e5627356397_)))) - (if (gx#stx-pair? _tl5627156404_) - (let ((_e5627656407_ - (gx#syntax-e _tl5627156404_))) - (let ((_tl5627456414_ + (##car _e5355053674_)))) + (if (gx#stx-pair? _tl5354853681_) + (let ((_e5355353684_ + (gx#syntax-e _tl5354853681_))) + (let ((_tl5355153691_ (let () (declare (not safe)) - (##cdr _e5627656407_))) - (_hd5627556411_ + (##cdr _e5355353684_))) + (_hd5355253688_ (let () (declare (not safe)) - (##car _e5627656407_)))) - (if (gx#stx-null? _tl5627456414_) - (___kont6399463995_ - _hd5627556411_ - _hd5627256401_ - _hd5626956391_ - _exprs5625756371_ - _names5625856374_ - _hd5623956293_) + (##car _e5355353684_)))) + (if (gx#stx-null? _tl5355153691_) + (___kont5651156512_ + _hd5355253688_ + _hd5354953678_ + _hd5354653668_ + _exprs5353453648_ + _names5353553651_ + _hd5351653570_) (let () (declare (not safe)) - (_g5606856282_))))) + (_g5334553559_))))) (let () (declare (not safe)) - (_g5606856282_))))) - (let () (declare (not safe)) (_g5606856282_))))) - (let () (declare (not safe)) (_g5606856282_))) + (_g5334553559_))))) + (let () (declare (not safe)) (_g5334553559_))))) + (let () (declare (not safe)) (_g5334553559_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g5606856282_))))) + (_g5334553559_))))) (let () (declare (not safe)) - (_g5606856282_)))))))) - (_loop5625156329_ _target5624856323_ '() '())))) - (___match6410264103_ - (lambda (_e5611256914_ - _hd5611156918_ - _tl5611056921_ - _e5611556924_ - _hd5611456928_ - _tl5611356931_ - _e5611656934_ - _e5611956938_ - _hd5611856942_ - _tl5611756945_ - ___splice6398263983_ - _target5612056948_ - _tl5612256951_ - _e5613156954_ - _hd5613056958_ - _tl5612956961_) - (letrec ((_loop5612356964_ - (lambda (_hd5612156968_ _exprs5612756971_) - (if (gx#stx-pair? _hd5612156968_) - (let ((_e5612456974_ - (gx#syntax-e _hd5612156968_))) - (let ((_lp-tl5612656981_ + (_g5334553559_)))))))) + (_loop5352853606_ _target5352553600_ '() '())))) + (___match5661956620_ + (lambda (_e5338954191_ + _hd5338854195_ + _tl5338754198_ + _e5339254201_ + _hd5339154205_ + _tl5339054208_ + _e5339354211_ + _e5339654215_ + _hd5339554219_ + _tl5339454222_ + ___splice5649956500_ + _target5339754225_ + _tl5339954228_ + _e5340854231_ + _hd5340754235_ + _tl5340654238_) + (letrec ((_loop5340054241_ + (lambda (_hd5339854245_ _exprs5340454248_) + (if (gx#stx-pair? _hd5339854245_) + (let ((_e5340154251_ + (gx#syntax-e _hd5339854245_))) + (let ((_lp-tl5340354258_ (let () (declare (not safe)) - (##cdr _e5612456974_))) - (_lp-hd5612556978_ + (##cdr _e5340154251_))) + (_lp-hd5340254255_ (let () (declare (not safe)) - (##car _e5612456974_)))) - (_loop5612356964_ - _lp-tl5612656981_ + (##car _e5340154251_)))) + (_loop5340054241_ + _lp-tl5340354258_ (let () (declare (not safe)) - (cons _lp-hd5612556978_ - _exprs5612756971_))))) - (let ((_exprs5612856984_ - (reverse _exprs5612756971_))) - (___kont6398063981_ - _hd5613056958_ - _exprs5612856984_ - _hd5611856942_ - _hd5611156918_)))))) - (_loop5612356964_ _target5612056948_ '())))) - (___match6406264063_ - (lambda (_e5607757031_ - _hd5607657035_ - _tl5607557038_ - _e5608057041_ - _hd5607957045_ - _tl5607857048_ - _e5608157051_ - _e5608457055_ - _hd5608357059_ - _tl5608257062_ - ___splice6397863979_ - _target5608557065_ - _tl5608757068_ - _e5609657071_ - _hd5609557075_ - _tl5609457078_ - _e5609957081_ - _hd5609857085_ - _tl5609757088_ - _e5610257091_ - _hd5610157095_ - _tl5610057098_ - _e5610557101_ - _hd5610457105_ - _tl5610357108_) - (letrec ((_loop5608857111_ - (lambda (_hd5608657115_ _exprs5609257118_) - (if (gx#stx-pair? _hd5608657115_) - (let ((_e5608957121_ - (gx#syntax-e _hd5608657115_))) - (let ((_lp-tl5609157128_ + (cons _lp-hd5340254255_ + _exprs5340454248_))))) + (let ((_exprs5340554261_ + (reverse _exprs5340454248_))) + (___kont5649756498_ + _hd5340754235_ + _exprs5340554261_ + _hd5339554219_ + _hd5338854195_)))))) + (_loop5340054241_ _target5339754225_ '())))) + (___match5657956580_ + (lambda (_e5335454308_ + _hd5335354312_ + _tl5335254315_ + _e5335754318_ + _hd5335654322_ + _tl5335554325_ + _e5335854328_ + _e5336154332_ + _hd5336054336_ + _tl5335954339_ + ___splice5649556496_ + _target5336254342_ + _tl5336454345_ + _e5337354348_ + _hd5337254352_ + _tl5337154355_ + _e5337654358_ + _hd5337554362_ + _tl5337454365_ + _e5337954368_ + _hd5337854372_ + _tl5337754375_ + _e5338254378_ + _hd5338154382_ + _tl5338054385_) + (letrec ((_loop5336554388_ + (lambda (_hd5336354392_ _exprs5336954395_) + (if (gx#stx-pair? _hd5336354392_) + (let ((_e5336654398_ + (gx#syntax-e _hd5336354392_))) + (let ((_lp-tl5336854405_ (let () (declare (not safe)) - (##cdr _e5608957121_))) - (_lp-hd5609057125_ + (##cdr _e5336654398_))) + (_lp-hd5336754402_ (let () (declare (not safe)) - (##car _e5608957121_)))) - (_loop5608857111_ - _lp-tl5609157128_ + (##car _e5336654398_)))) + (_loop5336554388_ + _lp-tl5336854405_ (let () (declare (not safe)) - (cons _lp-hd5609057125_ - _exprs5609257118_))))) - (let ((_exprs5609357131_ - (reverse _exprs5609257118_))) - (___kont6397663977_ - _hd5610457105_ - _hd5610157095_ - _exprs5609357131_ - _hd5608357059_ - _hd5607657035_)))))) - (_loop5608857111_ _target5608557065_ '()))))) - (if (gx#stx-pair? ___stx6397363974_) - (let ((_e5607757031_ (gx#syntax-e ___stx6397363974_))) - (let ((_tl5607557038_ - (let () (declare (not safe)) (##cdr _e5607757031_))) - (_hd5607657035_ + (cons _lp-hd5336754402_ + _exprs5336954395_))))) + (let ((_exprs5337054408_ + (reverse _exprs5336954395_))) + (___kont5649356494_ + _hd5338154382_ + _hd5337854372_ + _exprs5337054408_ + _hd5336054336_ + _hd5335354312_)))))) + (_loop5336554388_ _target5336254342_ '()))))) + (if (gx#stx-pair? ___stx5649056491_) + (let ((_e5335454308_ (gx#syntax-e ___stx5649056491_))) + (let ((_tl5335254315_ + (let () (declare (not safe)) (##cdr _e5335454308_))) + (_hd5335354312_ (let () (declare (not safe)) - (##car _e5607757031_)))) - (if (gx#stx-pair? _tl5607557038_) - (let ((_e5608057041_ (gx#syntax-e _tl5607557038_))) - (let ((_tl5607857048_ + (##car _e5335454308_)))) + (if (gx#stx-pair? _tl5335254315_) + (let ((_e5335754318_ (gx#syntax-e _tl5335254315_))) + (let ((_tl5335554325_ (let () (declare (not safe)) - (##cdr _e5608057041_))) - (_hd5607957045_ + (##cdr _e5335754318_))) + (_hd5335654322_ (let () (declare (not safe)) - (##car _e5608057041_)))) - (if (gx#stx-datum? _hd5607957045_) - (let ((_e5608157051_ - (gx#stx-e _hd5607957045_))) + (##car _e5335754318_)))) + (if (gx#stx-datum? _hd5335654322_) + (let ((_e5335854328_ + (gx#stx-e _hd5335654322_))) (if (let () (declare (not safe)) - (equal? _e5608157051_ '1)) - (if (gx#stx-pair? _tl5607857048_) - (let ((_e5608457055_ + (equal? _e5335854328_ '1)) + (if (gx#stx-pair? _tl5335554325_) + (let ((_e5336154332_ (gx#syntax-e - _tl5607857048_))) - (let ((_tl5608257062_ + _tl5335554325_))) + (let ((_tl5335954339_ (let () (declare (not safe)) - (##cdr _e5608457055_))) - (_hd5608357059_ + (##cdr _e5336154332_))) + (_hd5336054336_ (let () (declare (not safe)) - (##car _e5608457055_)))) + (##car _e5336154332_)))) (if (gx#stx-pair/null? - _tl5608257062_) + _tl5335954339_) (if (fx>= (gx#stx-length - _tl5608257062_) + _tl5335954339_) '2) - (let ((___splice6397863979_ + (let ((___splice5649556496_ (gx#syntax-split-splice - _tl5608257062_ + _tl5335954339_ '2))) - (let ((_tl5608757068_ + (let ((_tl5336454345_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref ___splice6397863979_ '1))) - (_target5608557065_ + (##vector-ref ___splice5649556496_ '1))) + (_target5336254342_ (let () (declare (not safe)) - (##vector-ref ___splice6397863979_ '0)))) - (if (gx#stx-pair? _tl5608757068_) - (let ((_e5609657071_ (gx#syntax-e _tl5608757068_))) - (let ((_tl5609457078_ + (##vector-ref ___splice5649556496_ '0)))) + (if (gx#stx-pair? _tl5336454345_) + (let ((_e5337354348_ (gx#syntax-e _tl5336454345_))) + (let ((_tl5337154355_ (let () (declare (not safe)) - (##cdr _e5609657071_))) - (_hd5609557075_ + (##cdr _e5337354348_))) + (_hd5337254352_ (let () (declare (not safe)) - (##car _e5609657071_)))) - (if (gx#stx-pair? _hd5609557075_) - (let ((_e5609957081_ - (gx#syntax-e _hd5609557075_))) - (let ((_tl5609757088_ + (##car _e5337354348_)))) + (if (gx#stx-pair? _hd5337254352_) + (let ((_e5337654358_ + (gx#syntax-e _hd5337254352_))) + (let ((_tl5337454365_ (let () (declare (not safe)) - (##cdr _e5609957081_))) - (_hd5609857085_ + (##cdr _e5337654358_))) + (_hd5337554362_ (let () (declare (not safe)) - (##car _e5609957081_)))) - (if (gx#identifier? _hd5609857085_) + (##car _e5337654358_)))) + (if (gx#identifier? _hd5337554362_) (if (gx#free-identifier=? - |[1]#_g64749_| - _hd5609857085_) - (if (gx#stx-pair? _tl5609757088_) - (let ((_e5610257091_ + |[1]#_g57247_| + _hd5337554362_) + (if (gx#stx-pair? _tl5337454365_) + (let ((_e5337954368_ (gx#syntax-e - _tl5609757088_))) - (let ((_tl5610057098_ + _tl5337454365_))) + (let ((_tl5337754375_ (let () (declare (not safe)) - (##cdr _e5610257091_))) - (_hd5610157095_ + (##cdr _e5337954368_))) + (_hd5337854372_ (let () (declare (not safe)) - (##car _e5610257091_)))) + (##car _e5337954368_)))) (if (gx#stx-null? - _tl5610057098_) + _tl5337754375_) (if (gx#stx-pair? - _tl5609457078_) - (let ((_e5610557101_ + _tl5337154355_) + (let ((_e5338254378_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl5609457078_))) - (let ((_tl5610357108_ + (gx#syntax-e _tl5337154355_))) + (let ((_tl5338054385_ (let () (declare (not safe)) - (##cdr _e5610557101_))) - (_hd5610457105_ + (##cdr _e5338254378_))) + (_hd5338154382_ (let () (declare (not safe)) - (##car _e5610557101_)))) - (if (gx#stx-null? _tl5610357108_) - (___match6406264063_ - _e5607757031_ - _hd5607657035_ - _tl5607557038_ - _e5608057041_ - _hd5607957045_ - _tl5607857048_ - _e5608157051_ - _e5608457055_ - _hd5608357059_ - _tl5608257062_ - ___splice6397863979_ - _target5608557065_ - _tl5608757068_ - _e5609657071_ - _hd5609557075_ - _tl5609457078_ - _e5609957081_ - _hd5609857085_ - _tl5609757088_ - _e5610257091_ - _hd5610157095_ - _tl5610057098_ - _e5610557101_ - _hd5610457105_ - _tl5610357108_) - (if (fx>= (gx#stx-length _tl5608257062_) '1) - (let ((___splice6398263983_ + (##car _e5338254378_)))) + (if (gx#stx-null? _tl5338054385_) + (___match5657956580_ + _e5335454308_ + _hd5335354312_ + _tl5335254315_ + _e5335754318_ + _hd5335654322_ + _tl5335554325_ + _e5335854328_ + _e5336154332_ + _hd5336054336_ + _tl5335954339_ + ___splice5649556496_ + _target5336254342_ + _tl5336454345_ + _e5337354348_ + _hd5337254352_ + _tl5337154355_ + _e5337654358_ + _hd5337554362_ + _tl5337454365_ + _e5337954368_ + _hd5337854372_ + _tl5337754375_ + _e5338254378_ + _hd5338154382_ + _tl5338054385_) + (if (fx>= (gx#stx-length _tl5335954339_) '1) + (let ((___splice5649956500_ (gx#syntax-split-splice - _tl5608257062_ + _tl5335954339_ '1))) - (let ((_tl5612256951_ + (let ((_tl5339954228_ (let () (declare (not safe)) (##vector-ref - ___splice6398263983_ + ___splice5649956500_ '1))) - (_target5612056948_ + (_target5339754225_ (let () (declare (not safe)) (##vector-ref - ___splice6398263983_ + ___splice5649956500_ '0)))) - (if (gx#stx-pair? _tl5612256951_) - (let ((_e5613156954_ - (gx#syntax-e _tl5612256951_))) - (let ((_tl5612956961_ + (if (gx#stx-pair? _tl5339954228_) + (let ((_e5340854231_ + (gx#syntax-e _tl5339954228_))) + (let ((_tl5340654238_ (let () (declare (not safe)) - (##cdr _e5613156954_))) - (_hd5613056958_ + (##cdr _e5340854231_))) + (_hd5340754235_ (let () (declare (not safe)) - (##car _e5613156954_)))) - (if (gx#stx-null? _tl5612956961_) - (___match6410264103_ - _e5607757031_ - _hd5607657035_ - _tl5607557038_ - _e5608057041_ - _hd5607957045_ - _tl5607857048_ - _e5608157051_ - _e5608457055_ - _hd5608357059_ - _tl5608257062_ - ___splice6398263983_ - _target5612056948_ - _tl5612256951_ - _e5613156954_ - _hd5613056958_ - _tl5612956961_) + (##car _e5340854231_)))) + (if (gx#stx-null? _tl5340654238_) + (___match5661956620_ + _e5335454308_ + _hd5335354312_ + _tl5335254315_ + _e5335754318_ + _hd5335654322_ + _tl5335554325_ + _e5335854328_ + _e5336154332_ + _hd5336054336_ + _tl5335954339_ + ___splice5649956500_ + _target5339754225_ + _tl5339954228_ + _e5340854231_ + _hd5340754235_ + _tl5340654238_) (if (gx#stx-null? - _tl5608257062_) - (___kont6398463985_ - _hd5608357059_) + _tl5335954339_) + (___kont5650156502_ + _hd5336054336_) (let () (declare (not safe)) - (_g5606856282_)))))) - (if (gx#stx-null? _tl5608257062_) - (___kont6398463985_ _hd5608357059_) + (_g5334553559_)))))) + (if (gx#stx-null? _tl5335954339_) + (___kont5650156502_ _hd5336054336_) (let () (declare (not safe)) - (_g5606856282_)))))) - (if (gx#stx-null? _tl5608257062_) - (___kont6398463985_ _hd5608357059_) + (_g5334553559_)))))) + (if (gx#stx-null? _tl5335954339_) + (___kont5650156502_ _hd5336054336_) (let () (declare (not safe)) - (_g5606856282_))))))) - (if (fx>= (gx#stx-length _tl5608257062_) '1) - (let ((___splice6398263983_ - (gx#syntax-split-splice _tl5608257062_ '1))) - (let ((_tl5612256951_ + (_g5334553559_))))))) + (if (fx>= (gx#stx-length _tl5335954339_) '1) + (let ((___splice5649956500_ + (gx#syntax-split-splice _tl5335954339_ '1))) + (let ((_tl5339954228_ (let () (declare (not safe)) - (##vector-ref ___splice6398263983_ '1))) - (_target5612056948_ + (##vector-ref ___splice5649956500_ '1))) + (_target5339754225_ (let () (declare (not safe)) - (##vector-ref ___splice6398263983_ '0)))) - (if (gx#stx-pair? _tl5612256951_) - (let ((_e5613156954_ - (gx#syntax-e _tl5612256951_))) - (let ((_tl5612956961_ + (##vector-ref ___splice5649956500_ '0)))) + (if (gx#stx-pair? _tl5339954228_) + (let ((_e5340854231_ + (gx#syntax-e _tl5339954228_))) + (let ((_tl5340654238_ (let () (declare (not safe)) - (##cdr _e5613156954_))) - (_hd5613056958_ + (##cdr _e5340854231_))) + (_hd5340754235_ (let () (declare (not safe)) - (##car _e5613156954_)))) - (if (gx#stx-null? _tl5612956961_) - (___match6410264103_ - _e5607757031_ - _hd5607657035_ - _tl5607557038_ - _e5608057041_ - _hd5607957045_ - _tl5607857048_ - _e5608157051_ - _e5608457055_ - _hd5608357059_ - _tl5608257062_ - ___splice6398263983_ - _target5612056948_ - _tl5612256951_ - _e5613156954_ - _hd5613056958_ - _tl5612956961_) - (if (gx#stx-null? _tl5608257062_) - (___kont6398463985_ _hd5608357059_) + (##car _e5340854231_)))) + (if (gx#stx-null? _tl5340654238_) + (___match5661956620_ + _e5335454308_ + _hd5335354312_ + _tl5335254315_ + _e5335754318_ + _hd5335654322_ + _tl5335554325_ + _e5335854328_ + _e5336154332_ + _hd5336054336_ + _tl5335954339_ + ___splice5649956500_ + _target5339754225_ + _tl5339954228_ + _e5340854231_ + _hd5340754235_ + _tl5340654238_) + (if (gx#stx-null? _tl5335954339_) + (___kont5650156502_ _hd5336054336_) (let () (declare (not safe)) - (_g5606856282_)))))) - (if (gx#stx-null? _tl5608257062_) - (___kont6398463985_ _hd5608357059_) + (_g5334553559_)))))) + (if (gx#stx-null? _tl5335954339_) + (___kont5650156502_ _hd5336054336_) (let () (declare (not safe)) - (_g5606856282_)))))) - (if (gx#stx-null? _tl5608257062_) - (___kont6398463985_ _hd5608357059_) - (let () (declare (not safe)) (_g5606856282_))))) - (if (fx>= (gx#stx-length _tl5608257062_) '1) - (let ((___splice6398263983_ - (gx#syntax-split-splice _tl5608257062_ '1))) - (let ((_tl5612256951_ + (_g5334553559_)))))) + (if (gx#stx-null? _tl5335954339_) + (___kont5650156502_ _hd5336054336_) + (let () (declare (not safe)) (_g5334553559_))))) + (if (fx>= (gx#stx-length _tl5335954339_) '1) + (let ((___splice5649956500_ + (gx#syntax-split-splice _tl5335954339_ '1))) + (let ((_tl5339954228_ (let () (declare (not safe)) - (##vector-ref ___splice6398263983_ '1))) - (_target5612056948_ + (##vector-ref ___splice5649956500_ '1))) + (_target5339754225_ (let () (declare (not safe)) - (##vector-ref ___splice6398263983_ '0)))) - (if (gx#stx-pair? _tl5612256951_) - (let ((_e5613156954_ (gx#syntax-e _tl5612256951_))) - (let ((_tl5612956961_ + (##vector-ref ___splice5649956500_ '0)))) + (if (gx#stx-pair? _tl5339954228_) + (let ((_e5340854231_ (gx#syntax-e _tl5339954228_))) + (let ((_tl5340654238_ (let () (declare (not safe)) - (##cdr _e5613156954_))) - (_hd5613056958_ + (##cdr _e5340854231_))) + (_hd5340754235_ (let () (declare (not safe)) - (##car _e5613156954_)))) - (if (gx#stx-null? _tl5612956961_) - (___match6410264103_ - _e5607757031_ - _hd5607657035_ - _tl5607557038_ - _e5608057041_ - _hd5607957045_ - _tl5607857048_ - _e5608157051_ - _e5608457055_ - _hd5608357059_ - _tl5608257062_ - ___splice6398263983_ - _target5612056948_ - _tl5612256951_ - _e5613156954_ - _hd5613056958_ - _tl5612956961_) - (if (gx#stx-null? _tl5608257062_) - (___kont6398463985_ _hd5608357059_) + (##car _e5340854231_)))) + (if (gx#stx-null? _tl5340654238_) + (___match5661956620_ + _e5335454308_ + _hd5335354312_ + _tl5335254315_ + _e5335754318_ + _hd5335654322_ + _tl5335554325_ + _e5335854328_ + _e5336154332_ + _hd5336054336_ + _tl5335954339_ + ___splice5649956500_ + _target5339754225_ + _tl5339954228_ + _e5340854231_ + _hd5340754235_ + _tl5340654238_) + (if (gx#stx-null? _tl5335954339_) + (___kont5650156502_ _hd5336054336_) (let () (declare (not safe)) - (_g5606856282_)))))) - (if (gx#stx-null? _tl5608257062_) - (___kont6398463985_ _hd5608357059_) + (_g5334553559_)))))) + (if (gx#stx-null? _tl5335954339_) + (___kont5650156502_ _hd5336054336_) (let () (declare (not safe)) - (_g5606856282_)))))) - (if (gx#stx-null? _tl5608257062_) - (___kont6398463985_ _hd5608357059_) - (let () (declare (not safe)) (_g5606856282_))))))) + (_g5334553559_)))))) + (if (gx#stx-null? _tl5335954339_) + (___kont5650156502_ _hd5336054336_) + (let () (declare (not safe)) (_g5334553559_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (fx>= (gx#stx-length - _tl5608257062_) + _tl5335954339_) '1) - (let ((___splice6398263983_ + (let ((___splice5649956500_ (gx#syntax-split-splice - _tl5608257062_ + _tl5335954339_ '1))) - (let ((_tl5612256951_ + (let ((_tl5339954228_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice6398263983_ '1))) - (_target5612056948_ + (##vector-ref ___splice5649956500_ '1))) + (_target5339754225_ (let () (declare (not safe)) - (##vector-ref ___splice6398263983_ '0)))) - (if (gx#stx-pair? _tl5612256951_) - (let ((_e5613156954_ (gx#syntax-e _tl5612256951_))) - (let ((_tl5612956961_ + (##vector-ref ___splice5649956500_ '0)))) + (if (gx#stx-pair? _tl5339954228_) + (let ((_e5340854231_ (gx#syntax-e _tl5339954228_))) + (let ((_tl5340654238_ (let () (declare (not safe)) - (##cdr _e5613156954_))) - (_hd5613056958_ + (##cdr _e5340854231_))) + (_hd5340754235_ (let () (declare (not safe)) - (##car _e5613156954_)))) - (if (gx#stx-null? _tl5612956961_) - (___match6410264103_ - _e5607757031_ - _hd5607657035_ - _tl5607557038_ - _e5608057041_ - _hd5607957045_ - _tl5607857048_ - _e5608157051_ - _e5608457055_ - _hd5608357059_ - _tl5608257062_ - ___splice6398263983_ - _target5612056948_ - _tl5612256951_ - _e5613156954_ - _hd5613056958_ - _tl5612956961_) - (if (gx#stx-null? _tl5608257062_) - (___kont6398463985_ _hd5608357059_) + (##car _e5340854231_)))) + (if (gx#stx-null? _tl5340654238_) + (___match5661956620_ + _e5335454308_ + _hd5335354312_ + _tl5335254315_ + _e5335754318_ + _hd5335654322_ + _tl5335554325_ + _e5335854328_ + _e5336154332_ + _hd5336054336_ + _tl5335954339_ + ___splice5649956500_ + _target5339754225_ + _tl5339954228_ + _e5340854231_ + _hd5340754235_ + _tl5340654238_) + (if (gx#stx-null? _tl5335954339_) + (___kont5650156502_ _hd5336054336_) (let () (declare (not safe)) - (_g5606856282_)))))) - (if (gx#stx-null? _tl5608257062_) - (___kont6398463985_ _hd5608357059_) - (let () (declare (not safe)) (_g5606856282_)))))) + (_g5334553559_)))))) + (if (gx#stx-null? _tl5335954339_) + (___kont5650156502_ _hd5336054336_) + (let () (declare (not safe)) (_g5334553559_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl5608257062_) - (___kont6398463985_ - _hd5608357059_) + _tl5335954339_) + (___kont5650156502_ + _hd5336054336_) (let () (declare (not safe)) - (_g5606856282_))))) + (_g5334553559_))))) (if (fx>= (gx#stx-length - _tl5608257062_) + _tl5335954339_) '1) - (let ((___splice6398263983_ + (let ((___splice5649956500_ (gx#syntax-split-splice - _tl5608257062_ + _tl5335954339_ '1))) - (let ((_tl5612256951_ + (let ((_tl5339954228_ (let () (declare (not safe)) (##vector-ref - ___splice6398263983_ + ___splice5649956500_ '1))) - (_target5612056948_ + (_target5339754225_ (let () (declare (not safe)) (##vector-ref - ___splice6398263983_ + ___splice5649956500_ '0)))) (if (gx#stx-pair? - _tl5612256951_) - (let ((_e5613156954_ + _tl5339954228_) + (let ((_e5340854231_ (gx#syntax-e - _tl5612256951_))) - (let ((_tl5612956961_ + _tl5339954228_))) + (let ((_tl5340654238_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e5613156954_))) - (_hd5613056958_ - (let () (declare (not safe)) (##car _e5613156954_)))) - (if (gx#stx-null? _tl5612956961_) - (___match6410264103_ - _e5607757031_ - _hd5607657035_ - _tl5607557038_ - _e5608057041_ - _hd5607957045_ - _tl5607857048_ - _e5608157051_ - _e5608457055_ - _hd5608357059_ - _tl5608257062_ - ___splice6398263983_ - _target5612056948_ - _tl5612256951_ - _e5613156954_ - _hd5613056958_ - _tl5612956961_) - (if (gx#stx-null? _tl5608257062_) - (___kont6398463985_ _hd5608357059_) - (let () (declare (not safe)) (_g5606856282_)))))) - (if (gx#stx-null? _tl5608257062_) - (___kont6398463985_ _hd5608357059_) - (let () (declare (not safe)) (_g5606856282_)))))) + (let () (declare (not safe)) (##cdr _e5340854231_))) + (_hd5340754235_ + (let () (declare (not safe)) (##car _e5340854231_)))) + (if (gx#stx-null? _tl5340654238_) + (___match5661956620_ + _e5335454308_ + _hd5335354312_ + _tl5335254315_ + _e5335754318_ + _hd5335654322_ + _tl5335554325_ + _e5335854328_ + _e5336154332_ + _hd5336054336_ + _tl5335954339_ + ___splice5649956500_ + _target5339754225_ + _tl5339954228_ + _e5340854231_ + _hd5340754235_ + _tl5340654238_) + (if (gx#stx-null? _tl5335954339_) + (___kont5650156502_ _hd5336054336_) + (let () (declare (not safe)) (_g5334553559_)))))) + (if (gx#stx-null? _tl5335954339_) + (___kont5650156502_ _hd5336054336_) + (let () (declare (not safe)) (_g5334553559_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl5608257062_) - (___kont6398463985_ - _hd5608357059_) + _tl5335954339_) + (___kont5650156502_ + _hd5336054336_) (let () (declare (not safe)) - (_g5606856282_))))) + (_g5334553559_))))) (if (fx>= (gx#stx-length - _tl5608257062_) + _tl5335954339_) '1) - (let ((___splice6398263983_ + (let ((___splice5649956500_ (gx#syntax-split-splice - _tl5608257062_ + _tl5335954339_ '1))) - (let ((_tl5612256951_ + (let ((_tl5339954228_ (let () (declare (not safe)) (##vector-ref - ___splice6398263983_ + ___splice5649956500_ '1))) - (_target5612056948_ + (_target5339754225_ (let () (declare (not safe)) (##vector-ref - ___splice6398263983_ + ___splice5649956500_ '0)))) (if (gx#stx-pair? - _tl5612256951_) - (let ((_e5613156954_ + _tl5339954228_) + (let ((_e5340854231_ (gx#syntax-e - _tl5612256951_))) - (let ((_tl5612956961_ + _tl5339954228_))) + (let ((_tl5340654238_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e5613156954_))) - (_hd5613056958_ - (let () (declare (not safe)) (##car _e5613156954_)))) - (if (gx#stx-null? _tl5612956961_) - (___match6410264103_ - _e5607757031_ - _hd5607657035_ - _tl5607557038_ - _e5608057041_ - _hd5607957045_ - _tl5607857048_ - _e5608157051_ - _e5608457055_ - _hd5608357059_ - _tl5608257062_ - ___splice6398263983_ - _target5612056948_ - _tl5612256951_ - _e5613156954_ - _hd5613056958_ - _tl5612956961_) - (if (gx#stx-null? _tl5608257062_) - (___kont6398463985_ _hd5608357059_) - (let () (declare (not safe)) (_g5606856282_)))))) + (##cdr _e5340854231_))) + (_hd5340754235_ + (let () (declare (not safe)) (##car _e5340854231_)))) + (if (gx#stx-null? _tl5340654238_) + (___match5661956620_ + _e5335454308_ + _hd5335354312_ + _tl5335254315_ + _e5335754318_ + _hd5335654322_ + _tl5335554325_ + _e5335854328_ + _e5336154332_ + _hd5336054336_ + _tl5335954339_ + ___splice5649956500_ + _target5339754225_ + _tl5339954228_ + _e5340854231_ + _hd5340754235_ + _tl5340654238_) + (if (gx#stx-null? _tl5335954339_) + (___kont5650156502_ _hd5336054336_) + (let () (declare (not safe)) (_g5334553559_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl5608257062_) - (___kont6398463985_ - _hd5608357059_) + _tl5335954339_) + (___kont5650156502_ + _hd5336054336_) (let () (declare (not safe)) - (_g5606856282_)))))) - (if (gx#stx-null? _tl5608257062_) - (___kont6398463985_ - _hd5608357059_) + (_g5334553559_)))))) + (if (gx#stx-null? _tl5335954339_) + (___kont5650156502_ + _hd5336054336_) (let () (declare (not safe)) - (_g5606856282_))))))) - (if (fx>= (gx#stx-length _tl5608257062_) '1) - (let ((___splice6398263983_ + (_g5334553559_))))))) + (if (fx>= (gx#stx-length _tl5335954339_) '1) + (let ((___splice5649956500_ (gx#syntax-split-splice - _tl5608257062_ + _tl5335954339_ '1))) - (let ((_tl5612256951_ + (let ((_tl5339954228_ (let () (declare (not safe)) (##vector-ref - ___splice6398263983_ + ___splice5649956500_ '1))) - (_target5612056948_ + (_target5339754225_ (let () (declare (not safe)) (##vector-ref - ___splice6398263983_ + ___splice5649956500_ '0)))) - (if (gx#stx-pair? _tl5612256951_) - (let ((_e5613156954_ + (if (gx#stx-pair? _tl5339954228_) + (let ((_e5340854231_ (gx#syntax-e - _tl5612256951_))) - (let ((_tl5612956961_ + _tl5339954228_))) + (let ((_tl5340654238_ (let () (declare (not safe)) - (##cdr _e5613156954_))) - (_hd5613056958_ + (##cdr _e5340854231_))) + (_hd5340754235_ (let () (declare (not safe)) - (##car _e5613156954_)))) + (##car _e5340854231_)))) (if (gx#stx-null? - _tl5612956961_) - (___match6410264103_ - _e5607757031_ - _hd5607657035_ - _tl5607557038_ - _e5608057041_ - _hd5607957045_ - _tl5607857048_ - _e5608157051_ - _e5608457055_ - _hd5608357059_ - _tl5608257062_ - ___splice6398263983_ - _target5612056948_ - _tl5612256951_ - _e5613156954_ - _hd5613056958_ - _tl5612956961_) + _tl5340654238_) + (___match5661956620_ + _e5335454308_ + _hd5335354312_ + _tl5335254315_ + _e5335754318_ + _hd5335654322_ + _tl5335554325_ + _e5335854328_ + _e5336154332_ + _hd5336054336_ + _tl5335954339_ + ___splice5649956500_ + _target5339754225_ + _tl5339954228_ + _e5340854231_ + _hd5340754235_ + _tl5340654238_) (if (gx#stx-null? - _tl5608257062_) - (___kont6398463985_ - _hd5608357059_) + _tl5335954339_) + (___kont5650156502_ + _hd5336054336_) (let () (declare (not safe)) - (_g5606856282_)))))) - (if (gx#stx-null? _tl5608257062_) - (___kont6398463985_ - _hd5608357059_) + (_g5334553559_)))))) + (if (gx#stx-null? _tl5335954339_) + (___kont5650156502_ + _hd5336054336_) (let () (declare (not safe)) - (_g5606856282_)))))) - (if (gx#stx-null? _tl5608257062_) - (___kont6398463985_ _hd5608357059_) + (_g5334553559_)))))) + (if (gx#stx-null? _tl5335954339_) + (___kont5650156502_ _hd5336054336_) (let () (declare (not safe)) - (_g5606856282_))))))) - (if (fx>= (gx#stx-length _tl5608257062_) '1) - (let ((___splice6398263983_ - (gx#syntax-split-splice _tl5608257062_ '1))) - (let ((_tl5612256951_ + (_g5334553559_))))))) + (if (fx>= (gx#stx-length _tl5335954339_) '1) + (let ((___splice5649956500_ + (gx#syntax-split-splice _tl5335954339_ '1))) + (let ((_tl5339954228_ (let () (declare (not safe)) - (##vector-ref ___splice6398263983_ '1))) - (_target5612056948_ + (##vector-ref ___splice5649956500_ '1))) + (_target5339754225_ (let () (declare (not safe)) (##vector-ref - ___splice6398263983_ + ___splice5649956500_ '0)))) - (if (gx#stx-pair? _tl5612256951_) - (let ((_e5613156954_ - (gx#syntax-e _tl5612256951_))) - (let ((_tl5612956961_ + (if (gx#stx-pair? _tl5339954228_) + (let ((_e5340854231_ + (gx#syntax-e _tl5339954228_))) + (let ((_tl5340654238_ (let () (declare (not safe)) - (##cdr _e5613156954_))) - (_hd5613056958_ + (##cdr _e5340854231_))) + (_hd5340754235_ (let () (declare (not safe)) - (##car _e5613156954_)))) - (if (gx#stx-null? _tl5612956961_) - (___match6410264103_ - _e5607757031_ - _hd5607657035_ - _tl5607557038_ - _e5608057041_ - _hd5607957045_ - _tl5607857048_ - _e5608157051_ - _e5608457055_ - _hd5608357059_ - _tl5608257062_ - ___splice6398263983_ - _target5612056948_ - _tl5612256951_ - _e5613156954_ - _hd5613056958_ - _tl5612956961_) - (if (gx#stx-null? _tl5608257062_) - (___kont6398463985_ - _hd5608357059_) + (##car _e5340854231_)))) + (if (gx#stx-null? _tl5340654238_) + (___match5661956620_ + _e5335454308_ + _hd5335354312_ + _tl5335254315_ + _e5335754318_ + _hd5335654322_ + _tl5335554325_ + _e5335854328_ + _e5336154332_ + _hd5336054336_ + _tl5335954339_ + ___splice5649956500_ + _target5339754225_ + _tl5339954228_ + _e5340854231_ + _hd5340754235_ + _tl5340654238_) + (if (gx#stx-null? _tl5335954339_) + (___kont5650156502_ + _hd5336054336_) (let () (declare (not safe)) - (_g5606856282_)))))) - (if (gx#stx-null? _tl5608257062_) - (___kont6398463985_ _hd5608357059_) + (_g5334553559_)))))) + (if (gx#stx-null? _tl5335954339_) + (___kont5650156502_ _hd5336054336_) (let () (declare (not safe)) - (_g5606856282_)))))) - (if (gx#stx-null? _tl5608257062_) - (___kont6398463985_ _hd5608357059_) + (_g5334553559_)))))) + (if (gx#stx-null? _tl5335954339_) + (___kont5650156502_ _hd5336054336_) (let () (declare (not safe)) - (_g5606856282_))))))) - (if (fx>= (gx#stx-length _tl5608257062_) '1) - (let ((___splice6398263983_ - (gx#syntax-split-splice _tl5608257062_ '1))) - (let ((_tl5612256951_ + (_g5334553559_))))))) + (if (fx>= (gx#stx-length _tl5335954339_) '1) + (let ((___splice5649956500_ + (gx#syntax-split-splice _tl5335954339_ '1))) + (let ((_tl5339954228_ (let () (declare (not safe)) - (##vector-ref ___splice6398263983_ '1))) - (_target5612056948_ + (##vector-ref ___splice5649956500_ '1))) + (_target5339754225_ (let () (declare (not safe)) - (##vector-ref ___splice6398263983_ '0)))) - (if (gx#stx-pair? _tl5612256951_) - (let ((_e5613156954_ (gx#syntax-e _tl5612256951_))) - (let ((_tl5612956961_ + (##vector-ref ___splice5649956500_ '0)))) + (if (gx#stx-pair? _tl5339954228_) + (let ((_e5340854231_ (gx#syntax-e _tl5339954228_))) + (let ((_tl5340654238_ (let () (declare (not safe)) - (##cdr _e5613156954_))) - (_hd5613056958_ + (##cdr _e5340854231_))) + (_hd5340754235_ (let () (declare (not safe)) - (##car _e5613156954_)))) - (if (gx#stx-null? _tl5612956961_) - (___match6410264103_ - _e5607757031_ - _hd5607657035_ - _tl5607557038_ - _e5608057041_ - _hd5607957045_ - _tl5607857048_ - _e5608157051_ - _e5608457055_ - _hd5608357059_ - _tl5608257062_ - ___splice6398263983_ - _target5612056948_ - _tl5612256951_ - _e5613156954_ - _hd5613056958_ - _tl5612956961_) - (if (gx#stx-null? _tl5608257062_) - (___kont6398463985_ _hd5608357059_) + (##car _e5340854231_)))) + (if (gx#stx-null? _tl5340654238_) + (___match5661956620_ + _e5335454308_ + _hd5335354312_ + _tl5335254315_ + _e5335754318_ + _hd5335654322_ + _tl5335554325_ + _e5335854328_ + _e5336154332_ + _hd5336054336_ + _tl5335954339_ + ___splice5649956500_ + _target5339754225_ + _tl5339954228_ + _e5340854231_ + _hd5340754235_ + _tl5340654238_) + (if (gx#stx-null? _tl5335954339_) + (___kont5650156502_ _hd5336054336_) (let () (declare (not safe)) - (_g5606856282_)))))) - (if (gx#stx-null? _tl5608257062_) - (___kont6398463985_ _hd5608357059_) + (_g5334553559_)))))) + (if (gx#stx-null? _tl5335954339_) + (___kont5650156502_ _hd5336054336_) (let () (declare (not safe)) - (_g5606856282_)))))) - (if (gx#stx-null? _tl5608257062_) - (___kont6398463985_ _hd5608357059_) - (let () (declare (not safe)) (_g5606856282_))))) + (_g5334553559_)))))) + (if (gx#stx-null? _tl5335954339_) + (___kont5650156502_ _hd5336054336_) + (let () (declare (not safe)) (_g5334553559_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl5608257062_) - (___kont6398463985_ - _hd5608357059_) + _tl5335954339_) + (___kont5650156502_ + _hd5336054336_) (let () (declare (not safe)) - (_g5606856282_)))))) + (_g5334553559_)))))) (let () (declare (not safe)) - (_g5606856282_))) + (_g5334553559_))) (if (let () (declare (not safe)) - (equal? _e5608157051_ '2)) - (if (gx#stx-pair? _tl5607857048_) - (let ((_e5615856754_ + (equal? _e5335854328_ '2)) + (if (gx#stx-pair? _tl5335554325_) + (let ((_e5343554031_ (gx#syntax-e - _tl5607857048_))) - (let ((_tl5615656761_ + _tl5335554325_))) + (let ((_tl5343354038_ (let () (declare (not safe)) - (##cdr _e5615856754_))) - (_hd5615756758_ + (##cdr _e5343554031_))) + (_hd5343454035_ (let () (declare (not safe)) - (##car _e5615856754_)))) + (##car _e5343554031_)))) (if (gx#stx-pair? - _tl5615656761_) - (let ((_e5616156764_ + _tl5343354038_) + (let ((_e5343854041_ (gx#syntax-e - _tl5615656761_))) - (let ((_tl5615956771_ + _tl5343354038_))) + (let ((_tl5343654048_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e5616156764_))) - (_hd5616056768_ - (let () (declare (not safe)) (##car _e5616156764_)))) - (if (gx#stx-pair? _hd5616056768_) - (let ((_e5616456774_ (gx#syntax-e _hd5616056768_))) - (let ((_tl5616256781_ + (let () (declare (not safe)) (##cdr _e5343854041_))) + (_hd5343754045_ + (let () (declare (not safe)) (##car _e5343854041_)))) + (if (gx#stx-pair? _hd5343754045_) + (let ((_e5344154051_ (gx#syntax-e _hd5343754045_))) + (let ((_tl5343954058_ (let () (declare (not safe)) - (##cdr _e5616456774_))) - (_hd5616356778_ + (##cdr _e5344154051_))) + (_hd5344054055_ (let () (declare (not safe)) - (##car _e5616456774_)))) - (if (gx#stx-pair? _hd5616356778_) - (let ((_e5616756784_ - (gx#syntax-e _hd5616356778_))) - (let ((_tl5616556791_ + (##car _e5344154051_)))) + (if (gx#stx-pair? _hd5344054055_) + (let ((_e5344454061_ + (gx#syntax-e _hd5344054055_))) + (let ((_tl5344254068_ (let () (declare (not safe)) - (##cdr _e5616756784_))) - (_hd5616656788_ + (##cdr _e5344454061_))) + (_hd5344354065_ (let () (declare (not safe)) - (##car _e5616756784_)))) - (if (gx#identifier? _hd5616656788_) + (##car _e5344454061_)))) + (if (gx#identifier? _hd5344354065_) (if (gx#free-identifier=? - |[1]#_g64748_| - _hd5616656788_) - (if (gx#stx-pair? _tl5616556791_) - (let ((_e5617056794_ + |[1]#_g57246_| + _hd5344354065_) + (if (gx#stx-pair? _tl5344254068_) + (let ((_e5344754071_ (gx#syntax-e - _tl5616556791_))) - (let ((_tl5616856801_ + _tl5344254068_))) + (let ((_tl5344554078_ (let () (declare (not safe)) - (##cdr _e5617056794_))) - (_hd5616956798_ + (##cdr _e5344754071_))) + (_hd5344654075_ (let () (declare (not safe)) - (##car _e5617056794_)))) + (##car _e5344754071_)))) (if (gx#stx-null? - _tl5616856801_) + _tl5344554078_) (if (gx#stx-pair? - _tl5616256781_) - (let ((_e5617356804_ + _tl5343954058_) + (let ((_e5345054081_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl5616256781_))) - (let ((_tl5617156811_ + (gx#syntax-e _tl5343954058_))) + (let ((_tl5344854088_ (let () (declare (not safe)) - (##cdr _e5617356804_))) - (_hd5617256808_ + (##cdr _e5345054081_))) + (_hd5344954085_ (let () (declare (not safe)) - (##car _e5617356804_)))) - (___kont6398663987_ - _tl5615956771_ - _tl5617156811_ - _hd5617256808_ - _hd5616956798_ - _hd5615756758_ - _hd5607657035_))) - (___kont6398863989_ - _tl5615956771_ - _tl5616256781_ - _hd5616356778_ - _hd5615756758_ - _hd5607657035_)) - (___kont6398863989_ - _tl5615956771_ - _tl5616256781_ - _hd5616356778_ - _hd5615756758_ - _hd5607657035_)))) + (##car _e5345054081_)))) + (___kont5650356504_ + _tl5343654048_ + _tl5344854088_ + _hd5344954085_ + _hd5344654075_ + _hd5343454035_ + _hd5335354312_))) + (___kont5650556506_ + _tl5343654048_ + _tl5343954058_ + _hd5344054055_ + _hd5343454035_ + _hd5335354312_)) + (___kont5650556506_ + _tl5343654048_ + _tl5343954058_ + _hd5344054055_ + _hd5343454035_ + _hd5335354312_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont6398863989_ - _tl5615956771_ - _tl5616256781_ - _hd5616356778_ - _hd5615756758_ - _hd5607657035_)) - (___kont6398863989_ - _tl5615956771_ - _tl5616256781_ - _hd5616356778_ - _hd5615756758_ - _hd5607657035_)) - (___kont6398863989_ - _tl5615956771_ - _tl5616256781_ - _hd5616356778_ - _hd5615756758_ - _hd5607657035_)))) - (___kont6398863989_ - _tl5615956771_ - _tl5616256781_ - _hd5616356778_ - _hd5615756758_ - _hd5607657035_)))) - (if (gx#stx-null? _hd5616056768_) - (___kont6399063991_ - _tl5615956771_ - _hd5615756758_ - _hd5607657035_) - (let () (declare (not safe)) (_g5606856282_)))))) - (let () (declare (not safe)) (_g5606856282_))))) + (___kont5650556506_ + _tl5343654048_ + _tl5343954058_ + _hd5344054055_ + _hd5343454035_ + _hd5335354312_)) + (___kont5650556506_ + _tl5343654048_ + _tl5343954058_ + _hd5344054055_ + _hd5343454035_ + _hd5335354312_)) + (___kont5650556506_ + _tl5343654048_ + _tl5343954058_ + _hd5344054055_ + _hd5343454035_ + _hd5335354312_)))) + (___kont5650556506_ + _tl5343654048_ + _tl5343954058_ + _hd5344054055_ + _hd5343454035_ + _hd5335354312_)))) + (if (gx#stx-null? _hd5343754045_) + (___kont5650756508_ + _tl5343654048_ + _hd5343454035_ + _hd5335354312_) + (let () (declare (not safe)) (_g5334553559_)))))) + (let () (declare (not safe)) (_g5334553559_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g5606856282_))) + (_g5334553559_))) (if (let () (declare (not safe)) - (equal? _e5608157051_ '3)) + (equal? _e5335854328_ '3)) (if (gx#stx-pair? - _tl5607857048_) - (let ((_e5622556503_ + _tl5335554325_) + (let ((_e5350253780_ (gx#syntax-e - _tl5607857048_))) - (let ((_tl5622356510_ + _tl5335554325_))) + (let ((_tl5350053787_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e5622556503_))) - (_hd5622456507_ - (let () (declare (not safe)) (##car _e5622556503_)))) - (if (gx#stx-pair? _tl5622356510_) - (let ((_e5622856513_ (gx#syntax-e _tl5622356510_))) - (let ((_tl5622656520_ + (##cdr _e5350253780_))) + (_hd5350153784_ + (let () (declare (not safe)) (##car _e5350253780_)))) + (if (gx#stx-pair? _tl5350053787_) + (let ((_e5350553790_ (gx#syntax-e _tl5350053787_))) + (let ((_tl5350353797_ (let () (declare (not safe)) - (##cdr _e5622856513_))) - (_hd5622756517_ + (##cdr _e5350553790_))) + (_hd5350453794_ (let () (declare (not safe)) - (##car _e5622856513_)))) - (if (gx#stx-pair? _hd5622756517_) - (let ((_e5623156523_ (gx#syntax-e _hd5622756517_))) - (let ((_tl5622956530_ + (##car _e5350553790_)))) + (if (gx#stx-pair? _hd5350453794_) + (let ((_e5350853800_ (gx#syntax-e _hd5350453794_))) + (let ((_tl5350653807_ (let () (declare (not safe)) - (##cdr _e5623156523_))) - (_hd5623056527_ + (##cdr _e5350853800_))) + (_hd5350753804_ (let () (declare (not safe)) - (##car _e5623156523_)))) - (___kont6399263993_ - _tl5622656520_ - _tl5622956530_ - _hd5623056527_ - _hd5622456507_ - _hd5607657035_))) - (if (gx#stx-pair/null? _hd5622456507_) - (let ((___splice6399663997_ + (##car _e5350853800_)))) + (___kont5650956510_ + _tl5350353797_ + _tl5350653807_ + _hd5350753804_ + _hd5350153784_ + _hd5335354312_))) + (if (gx#stx-pair/null? _hd5350153784_) + (let ((___splice5651356514_ (gx#syntax-split-splice - _hd5622456507_ + _hd5350153784_ '0))) - (let ((_tl5625056326_ + (let ((_tl5352753603_ (let () (declare (not safe)) (##vector-ref - ___splice6399663997_ + ___splice5651356514_ '1))) - (_target5624856323_ + (_target5352553600_ (let () (declare (not safe)) (##vector-ref - ___splice6399663997_ + ___splice5651356514_ '0)))) - (if (gx#stx-null? _tl5625056326_) - (___match6432464325_ - _e5607757031_ - _hd5607657035_ - _tl5607557038_ - _e5608057041_ - _hd5607957045_ - _tl5607857048_ - _e5608157051_ - _e5622556503_ - _hd5622456507_ - _tl5622356510_ - ___splice6399663997_ - _target5624856323_ - _tl5625056326_) + (if (gx#stx-null? _tl5352753603_) + (___match5684156842_ + _e5335454308_ + _hd5335354312_ + _tl5335254315_ + _e5335754318_ + _hd5335654322_ + _tl5335554325_ + _e5335854328_ + _e5350253780_ + _hd5350153784_ + _tl5350053787_ + ___splice5651356514_ + _target5352553600_ + _tl5352753603_) (let () (declare (not safe)) - (_g5606856282_))))) + (_g5334553559_))))) (let () (declare (not safe)) - (_g5606856282_)))))) - (if (gx#stx-pair/null? _hd5622456507_) - (let ((___splice6399663997_ - (gx#syntax-split-splice _hd5622456507_ '0))) - (let ((_tl5625056326_ + (_g5334553559_)))))) + (if (gx#stx-pair/null? _hd5350153784_) + (let ((___splice5651356514_ + (gx#syntax-split-splice _hd5350153784_ '0))) + (let ((_tl5352753603_ (let () (declare (not safe)) - (##vector-ref ___splice6399663997_ '1))) - (_target5624856323_ + (##vector-ref ___splice5651356514_ '1))) + (_target5352553600_ (let () (declare (not safe)) - (##vector-ref ___splice6399663997_ '0)))) - (if (gx#stx-null? _tl5625056326_) - (___match6432464325_ - _e5607757031_ - _hd5607657035_ - _tl5607557038_ - _e5608057041_ - _hd5607957045_ - _tl5607857048_ - _e5608157051_ - _e5622556503_ - _hd5622456507_ - _tl5622356510_ - ___splice6399663997_ - _target5624856323_ - _tl5625056326_) + (##vector-ref ___splice5651356514_ '0)))) + (if (gx#stx-null? _tl5352753603_) + (___match5684156842_ + _e5335454308_ + _hd5335354312_ + _tl5335254315_ + _e5335754318_ + _hd5335654322_ + _tl5335554325_ + _e5335854328_ + _e5350253780_ + _hd5350153784_ + _tl5350053787_ + ___splice5651356514_ + _target5352553600_ + _tl5352753603_) (let () (declare (not safe)) - (_g5606856282_))))) - (let () (declare (not safe)) (_g5606856282_)))))) + (_g5334553559_))))) + (let () (declare (not safe)) (_g5334553559_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g5606856282_))) + (_g5334553559_))) (let () (declare (not safe)) - (_g5606856282_)))))) + (_g5334553559_)))))) (let () (declare (not safe)) - (_g5606856282_))))) - (let () (declare (not safe)) (_g5606856282_))))) - (let () (declare (not safe)) (_g5606856282_)))))))))) + (_g5334553559_))))) + (let () (declare (not safe)) (_g5334553559_))))) + (let () (declare (not safe)) (_g5334553559_)))))))))) diff --git a/src/bootstrap/gerbil/runtime__0.scm b/src/bootstrap/gerbil/runtime__0.scm index 9f793cafb..47a4c6a8e 100644 --- a/src/bootstrap/gerbil/runtime__0.scm +++ b/src/bootstrap/gerbil/runtime__0.scm @@ -1,2 +1,2 @@ (declare (block) (standard-bindings) (extended-bindings)) -(begin (define gerbil/runtime::timestamp 1708102802) '#!void) +(begin (define gerbil/runtime::timestamp 1708370113) '#!void) diff --git a/src/bootstrap/gerbil/runtime__rt.scm b/src/bootstrap/gerbil/runtime__rt.scm index 707191c12..4b4f4b078 100644 --- a/src/bootstrap/gerbil/runtime__rt.scm +++ b/src/bootstrap/gerbil/runtime__rt.scm @@ -1,16 +1,19 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin (begin - (load-module "gerbil/runtime/system__rt") (load-module "gerbil/runtime/util__rt") - (load-module "gerbil/runtime/loader__rt") + (load-module "gerbil/runtime/table__rt") (load-module "gerbil/runtime/control__rt") + (load-module "gerbil/runtime/system__rt") (load-module "gerbil/runtime/c3__rt") (load-module "gerbil/runtime/mop__rt") (load-module "gerbil/runtime/error__rt") + (load-module "gerbil/runtime/interface__rt") + (load-module "gerbil/runtime/hash__rt") (load-module "gerbil/runtime/thread__rt") (load-module "gerbil/runtime/syntax__rt") (load-module "gerbil/runtime/eval__rt") (load-module "gerbil/runtime/repl__rt") + (load-module "gerbil/runtime/loader__rt") (load-module "gerbil/runtime/init__rt")) (load-module "gerbil/runtime__0")) diff --git a/src/build/build-bach.ss b/src/build/build-bach.ss index 57b369db4..4dd0c66a7 100644 --- a/src/build/build-bach.ss +++ b/src/build/build-bach.ss @@ -24,16 +24,19 @@ '(;; :gerbil/runtime "gerbil/runtime/gambit" "gerbil/runtime/util" - "gerbil/runtime/system" - "gerbil/runtime/loader" + "gerbil/runtime/table" "gerbil/runtime/control" + "gerbil/runtime/system" "gerbil/runtime/c3" "gerbil/runtime/mop" "gerbil/runtime/error" + "gerbil/runtime/interface" + "gerbil/runtime/hash" "gerbil/runtime/thread" "gerbil/runtime/syntax" "gerbil/runtime/eval" "gerbil/runtime/repl" + "gerbil/runtime/loader" "gerbil/runtime/init" "gerbil/runtime" ;; :gerbil/gambit diff --git a/src/build/build-libgerbil.ss b/src/build/build-libgerbil.ss index b2782f97f..f51a5ac05 100755 --- a/src/build/build-libgerbil.ss +++ b/src/build/build-libgerbil.ss @@ -34,16 +34,19 @@ (def gerbil-runtime '("gerbil/runtime/gambit" "gerbil/runtime/util" - "gerbil/runtime/system" - "gerbil/runtime/loader" + "gerbil/runtime/table" "gerbil/runtime/control" + "gerbil/runtime/system" "gerbil/runtime/c3" "gerbil/runtime/mop" "gerbil/runtime/error" + "gerbil/runtime/interface" + "gerbil/runtime/hash" "gerbil/runtime/thread" "gerbil/runtime/syntax" "gerbil/runtime/eval" "gerbil/runtime/repl" + "gerbil/runtime/loader" "gerbil/runtime/init" "gerbil/runtime")) diff --git a/src/build/build1.ss b/src/build/build1.ss index 0df35e201..44fc2d7b7 100644 --- a/src/build/build1.ss +++ b/src/build/build1.ss @@ -6,16 +6,19 @@ (def gerbil-modules-runtime '("gerbil/runtime/gambit.ss" "gerbil/runtime/util.ss" - "gerbil/runtime/system.ss" - "gerbil/runtime/loader.ss" + "gerbil/runtime/table.ss" "gerbil/runtime/control.ss" + "gerbil/runtime/system.ss" "gerbil/runtime/c3.ss" "gerbil/runtime/mop.ss" "gerbil/runtime/error.ss" + "gerbil/runtime/interface.ss" + "gerbil/runtime/hash.ss" "gerbil/runtime/thread.ss" "gerbil/runtime/syntax.ss" "gerbil/runtime/eval.ss" "gerbil/runtime/repl.ss" + "gerbil/runtime/loader.ss" "gerbil/runtime/init.ss" "gerbil/runtime.ss")) diff --git a/src/gerbil/boot/gerbil-boot.scm b/src/gerbil/boot/gerbil-boot.scm index 932387ffb..bdc40035a 100644 --- a/src/gerbil/boot/gerbil-boot.scm +++ b/src/gerbil/boot/gerbil-boot.scm @@ -1,16 +1,19 @@ (define __gerbil-boot-modules '("gerbil/runtime/gambit" "gerbil/runtime/util" - "gerbil/runtime/system" - "gerbil/runtime/loader" + "gerbil/runtime/table" "gerbil/runtime/control" + "gerbil/runtime/system" "gerbil/runtime/c3" "gerbil/runtime/mop" "gerbil/runtime/error" + "gerbil/runtime/interface" + "gerbil/runtime/hash" "gerbil/runtime/thread" "gerbil/runtime/syntax" "gerbil/runtime/eval" "gerbil/runtime/repl" + "gerbil/runtime/loader" "gerbil/runtime/init" "gerbil/runtime")) diff --git a/src/gerbil/compiler/compile.ss b/src/gerbil/compiler/compile.ss index 444942b1a..83fe04e20 100644 --- a/src/gerbil/compiler/compile.ss +++ b/src/gerbil/compiler/compile.ss @@ -103,7 +103,7 @@ namespace: gxc (def table (delay (let (tbl (make-hash-table-eq)) - (hash-copy! tbl (force super)) ... + (hash-merge! tbl (force super)) ... (hash-put! tbl 'symbol method) ... tbl)))) ((recur compile-method (table . super) . methods) diff --git a/src/gerbil/compiler/driver.ss b/src/gerbil/compiler/driver.ss index ad49aedd9..7de85814d 100644 --- a/src/gerbil/compiler/driver.ss +++ b/src/gerbil/compiler/driver.ss @@ -62,16 +62,19 @@ namespace: gxc (def gerbil-runtime-modules '("gerbil/runtime/gambit" "gerbil/runtime/util" - "gerbil/runtime/system" - "gerbil/runtime/loader" + "gerbil/runtime/table" "gerbil/runtime/control" + "gerbil/runtime/system" "gerbil/runtime/c3" "gerbil/runtime/mop" "gerbil/runtime/error" + "gerbil/runtime/interface" + "gerbil/runtime/hash" "gerbil/runtime/thread" "gerbil/runtime/syntax" "gerbil/runtime/eval" "gerbil/runtime/repl" + "gerbil/runtime/loader" "gerbil/runtime/init" "gerbil/runtime")) diff --git a/src/gerbil/compiler/optimize-call.ss b/src/gerbil/compiler/optimize-call.ss index 49de2f933..00de4fffa 100644 --- a/src/gerbil/compiler/optimize-call.ss +++ b/src/gerbil/compiler/optimize-call.ss @@ -349,7 +349,7 @@ namespace: gxc kwargs kwvars)) (kwset (map (lambda (kw kwvar) - ['%#call '(%#ref hash-put!) ['%#ref kwt] + ['%#call '(%#ref symbolic-table-set!) ['%#ref kwt] ['%#quote (car kw)] ['%#ref kwvar]]) kwargs kwvars)) @@ -368,9 +368,9 @@ namespace: gxc ['%#let-values kwbind ['%#let-values [[[kwt] (xform-wrap-source - ['%#call '(%#ref make-hash-table-eq) - '(%#quote size:) - ['%#quote (length kwargs)]] + ['%#call '(%#ref make-symbolic-table) + ['%#quote (length kwargs)] + '(%#quote 0)] stx)]] ['%#begin kwset ... diff --git a/src/gerbil/compiler/optimize.ss b/src/gerbil/compiler/optimize.ss index bacf9817d..e033e63c7 100644 --- a/src/gerbil/compiler/optimize.ss +++ b/src/gerbil/compiler/optimize.ss @@ -37,10 +37,31 @@ namespace: gxc ;;; ssxi loading (def (optimizer-load-builtin-ssxi) - (optimizer-import-ssxi-by-id 'gerbil/builtin) - (hash-put! (optimizer-info-ssxi (current-compile-optimizer-info)) - 'gerbil/builtin - #t)) + (def (load-it! id) + (unless (hash-get (optimizer-info-ssxi (current-compile-optimizer-info)) id) + (optimizer-import-ssxi-by-id id) + (hash-put! (optimizer-info-ssxi (current-compile-optimizer-info)) + id + #t))) + (for-each load-it! + '(gerbil/runtime/gambit + gerbil/runtime/util + gerbil/runtime/table + gerbil/runtime/control + gerbil/runtime/system + gerbil/runtime/c3 + gerbil/runtime/mop + gerbil/runtime/error + gerbil/runtime/interface + gerbil/runtime/hash + gerbil/runtime/thread + gerbil/runtime/syntax + gerbil/runtime/eval + gerbil/runtime/repl + gerbil/runtime/loader + gerbil/runtime/init + gerbil/runtime + gerbil/builtin))) (def (optimizer-load-ssxi-deps ctx) (def deps diff --git a/src/gerbil/main.ss b/src/gerbil/main.ss index d312223e1..bc398ec07 100644 --- a/src/gerbil/main.ss +++ b/src/gerbil/main.ss @@ -16,15 +16,18 @@ package: gerbil '(;; :gerbil/runtime "gerbil/runtime/gambit" "gerbil/runtime/util" - "gerbil/runtime/system" - "gerbil/runtime/loader" + "gerbil/runtime/table" "gerbil/runtime/control" + "gerbil/runtime/system" "gerbil/runtime/c3" "gerbil/runtime/mop" "gerbil/runtime/error" + "gerbil/runtime/interface" + "gerbil/runtime/hash" "gerbil/runtime/syntax" "gerbil/runtime/eval" "gerbil/runtime/repl" + "gerbil/runtime/loader" "gerbil/runtime/init" "gerbil/runtime" ;; :gerbil/gambit diff --git a/src/gerbil/prelude/builtin.ssxi.ss b/src/gerbil/prelude/builtin.ssxi.ss index e488f95b0..980f405ea 100644 --- a/src/gerbil/prelude/builtin.ssxi.ss +++ b/src/gerbil/prelude/builtin.ssxi.ss @@ -4,15 +4,8 @@ prelude: :gerbil/compiler/ssxi package: gerbil -;; gx-gambc0: struct-instance? and direct-instance? [pattern matcher] +;; runtime direct-instance? (declare-type* - (struct-instance? - (@lambda 2 inline: - (ast-rules (%#call) - ((%#call _ klass obj) - (%#call (%#ref ##structure-instance-of?) - obj - (%#call (%#ref ##type-id) klass)))))) (direct-instance? (@lambda 2 inline: (ast-rules (%#call) @@ -146,39 +139,6 @@ package: gerbil #'(%#let-values ((($values) expr)) (%#call recur (%#ref $values)))))))))) -;; runtime: simple hash-table ops -(declare-type* - (make-hash-table (@lambda (0) make-table)) - (make-hash-table-eq (@lambda (0) inline: - (ast-rules (%#call) - ((%#call _ arg ...) - (%#call (%#ref make-table) (%#quote test:) (%#ref eq?) arg ...))))) - (make-hash-table-eqv (@lambda (0) inline: - (ast-rules (%#call) - ((%#call _ arg ...) - (%#call (%#ref make-table) (%#quote test:) (%#ref eqv?) arg ...))))) - (list->hash-table (@lambda (1) list->table)) - (list->hash-table-eq (@lambda (1) inline: - (ast-rules (%#call) - ((%#call _ lst arg ...) - (%#call (%#ref list->table) lst (%#quote test:) (%#ref eq?) arg ...))))) - (list->hash-table-eqv (@lambda (1) inline: - (ast-rules (%#call) - ((%#call _ lst arg ...) - (%#call (%#ref list->table) lst (%#quote test:) (%#ref eqv?) arg ...))))) - (hash? (@lambda 1 table?)) - (hash-table? (@lambda 1 table?)) - (hash-length (@lambda 1 table-length)) - (hash-ref (@case-lambda (2 table-ref) (3 table-ref))) - (hash-get (@lambda 2 inline: - (ast-rules (%#call) - ((%#call _ ht key) - (%#call (%#ref table-ref) ht key (%#quote #f)))))) - (hash-put! (@lambda 3 table-set!)) - (hash-remove! (@lambda 2 table-set!)) - (hash->list (@lambda 1 table->list)) - (hash-for-each (@lambda 2 table-for-each)) - (hash-find (@lambda 2 table-search))) ;; runtime: simple arithmetic (declare-type* @@ -201,14 +161,6 @@ package: gerbil (fx/ (@lambda 2 fxquotient)) (fxshift (@lambda 2 fxarithmetic-shift))) -;; runtime: foldings -(declare-type* - (foldl (@case-lambda (3 foldl1) (4 foldl2) ((5) foldl*))) - (foldr (@case-lambda (3 foldr1) (4 foldr2) ((5) foldr*))) - (andmap (@case-lambda (2 andmap1) (3 andmap2) ((4) andmap*))) - (ormap (@case-lambda (2 ormap1) (3 ormap2) ((4) ormap*))) - (filter-map (@case-lambda (2 filter-map1) (3 filter-map2) ((4) filter-map*)))) - ;;; runtime procedure signatures (defrules declare-primitive/0 () ((_ prim ...) @@ -360,40 +312,17 @@ package: gerbil (write-char 1 2)) ;; core runtime primitives -- -(declare-primitive/0/unchecked - gerbil-system system-type) - (declare-primitive/1/unchecked immediate? fixnum? nonnegative-fixnum? fxzero? flonum? box? box - last last-pair dssl-object? dssl-key-object? dssl-rest-object? dssl-optional-object? - plist->hash-table-eq plist->hash-table-eqv - hash-keys - hash-values eq?-hash eqv?-hash equal?-hash keyword? uninterned-keyword? interned-keyword? string-empty? - class-type? - class-type-id - class-type-precedence-list - class-type-slot-vector - class-type-slot-table - class-type-properties - class-type-constructor - class-type-methods - class-type-fields - class-type-struct? - class-type-final? - class-type-sealed? - make-class-predicate - - object? object-type - struct->list class->list exception? error-object? error? error-message error-irritants error-trace read-syntax-from-file @@ -401,7 +330,6 @@ package: gerbil promise?) (declare-primitive/1 - fixnum? nonnegative-fixnum? fxpositive? fxnegative? fxodd? fxeven? fixnum->flonum flzero? flpositive? flnegative? @@ -427,32 +355,6 @@ package: gerbil get-output-u8vector make-promise) -(declare-primitive/2/unchecked - memf find - remove1 remq remv remf - hash-key? - hash-map - string-split string-join - string-prefix? - make-struct-field-accessor - make-struct-field-mutator - make-struct-field-unchecked-accessor - make-struct-field-unchecked-mutator - make-class-slot-accessor - make-class-slot-mutator - make-class-slot-unchecked-accessor - make-class-slot-unchecked-mutator - class-slot-offset - unchecked-field-ref - unchecked-slot-ref - struct-instance? class-instance? - substruct? subclass? - method-ref bound-method-ref - checked-method-ref checked-bound-method-ref - with-unwind-protect - with-catch - file-newer?) - (declare-primitive/2 fxmodulo fxbit-set? @@ -470,25 +372,11 @@ package: gerbil call-with-input-u8vector with-input-from-u8vector call-with-output-u8vector with-output-to-u8vector) -(declare-primitive/3/unchecked - hash-fold - struct-field-ref - class-slot-ref - unchecked-field-set! - unchecked-slot-set! - next-method - find-method - direct-method-ref) - (declare-primitive/3 subvector u8vector-set! subu8vector) -(declare-primitive/4/unchecked - struct-field-set! - class-slot-set!) - (declare-primitive/4 subvector-fill! subu8vector-fill!) @@ -498,42 +386,7 @@ package: gerbil substring-move! subu8vector-move!) -(declare-primitive/6/unchecked - make-class-type) - -(declare-primitive/unchecked* - (iota 1 2 3) - (assgetq 2 3) - (assgetv 2 3) - (assget 2 3) - (pgetq 2 3) - (pgetv 2 3) - (pget 2 3) - (plist->hash-table 1 2) - (hash-update! 3 4) - (hash-copy (1)) - (hash-copy! (1)) - (hash-merge (1)) - (hash-merge! (1)) - (hash-clear! 1 2) - (string->bytes 1 2) - (substring->bytes 3 4) - (bytes->string 1 2) - (string-index 2 3) - (string-rindex 2 3) - (make-instance (1)) - (class-instance-init! (1)) - (slot-ref 2 3) - (slot-set! 3 4) - (bind-method! 3 4) - (call-next-method (3)) - (call-with-parameters (1)) - (read-syntax 0 1) - (load-module 1 2) - (create-directory* 1 2)) - (declare-primitive* - (make-list 1 2) (subvector->list 1 2) (vector->list 1 2 3) (vector->string 1 2 3) @@ -557,7 +410,7 @@ package: gerbil (substring-fill! 4) (substring-move! 5) (current-error-port 0 1) - (make-parameter 1 2) + (make-parameter 1 2 3) (current-exception-handler 0 1) (exit 0 1) (getenv 1 2) @@ -908,7 +761,6 @@ package: gerbil replace-bit-field copy-bit-field) (declare-primitive* - (error (1)) (continuation-graft (2)) (continuation-return (1)) (display-exception 1 2) @@ -980,134 +832,6 @@ package: gerbil (thread-init! 2 3 4) (tty-mode-set! 5 6)) -;; exceptions -(declare-primitive/1 - fixnum-overflow-exception? - fixnum-overflow-exception-procedure - fixnum-overflow-exception-arguments - - initialized-thread-exception? - initialized-thread-exception-procedure - initialized-thread-exception-arguments - uninitialized-thread-exception? - uninitialized-thread-exception-procedure - uninitialized-thread-exception-arguments - inactive-thread-exception? - inactive-thread-exception-procedure - inactive-thread-exception-arguments - - unterminated-process-exception? - unterminated-process-exception-procedure - unterminated-process-exception-arguments - - nonempty-input-port-character-buffer-exception? - nonempty-input-port-character-buffer-exception-arguments - nonempty-input-port-character-buffer-exception-procedure - - unbound-serial-number-exception? - unbound-serial-number-exception-procedure - unbound-serial-number-exception-arguments - unbound-table-key-exception? - unbound-table-key-exception-procedure - unbound-table-key-exception-arguments - - mailbox-receive-timeout-exception? - mailbox-receive-timeout-exception-procedure - mailbox-receive-timeout-exception-arguments - heap-overflow-exception? - stack-overflow-exception? - os-exception? - os-exception-procedure - os-exception-arguments - os-exception-code - os-exception-message - no-such-file-or-directory-exception? - no-such-file-or-directory-exception-procedure - no-such-file-or-directory-exception-arguments - unbound-os-environment-variable-exception? - unbound-os-environment-variable-exception-procedure - unbound-os-environment-variable-exception-arguments - scheduler-exception? - scheduler-exception-reason - deadlock-exception? - abandoned-mutex-exception? - join-timeout-exception? - join-timeout-exception-procedure - join-timeout-exception-arguments - started-thread-exception? - started-thread-exception-procedure - started-thread-exception-arguments - terminated-thread-exception? - terminated-thread-exception-procedure - terminated-thread-exception-arguments - uncaught-exception? - uncaught-exception-procedure - uncaught-exception-arguments - uncaught-exception-reason - cfun-conversion-exception? - cfun-conversion-exception-procedure - cfun-conversion-exception-arguments - cfun-conversion-exception-code - cfun-conversion-exception-message - sfun-conversion-exception? - sfun-conversion-exception-procedure - sfun-conversion-exception-arguments - sfun-conversion-exception-code - sfun-conversion-exception-message - multiple-c-return-exception? - datum-parsing-exception? - datum-parsing-exception-kind - datum-parsing-exception-parameters - datum-parsing-exception-readenv - expression-parsing-exception? - expression-parsing-exception-kind - expression-parsing-exception-parameters - expression-parsing-exception-source - unbound-global-exception? - unbound-global-exception-variable - unbound-global-exception-code - unbound-global-exception-rte - type-exception? - type-exception-procedure - type-exception-arguments - type-exception-arg-num - type-exception-type-id - range-exception? - range-exception-procedure - range-exception-arguments - range-exception-arg-num - divide-by-zero-exception? - divide-by-zero-exception-procedure - divide-by-zero-exception-arguments - improper-length-list-exception? - improper-length-list-exception-procedure - improper-length-list-exception-arguments - improper-length-list-exception-arg-num - wrong-number-of-arguments-exception? - wrong-number-of-arguments-exception-procedure - wrong-number-of-arguments-exception-arguments - number-of-arguments-limit-exception? - number-of-arguments-limit-exception-procedure - number-of-arguments-limit-exception-arguments - nonprocedure-operator-exception? - nonprocedure-operator-exception-operator - nonprocedure-operator-exception-arguments - nonprocedure-operator-exception-code - nonprocedure-operator-exception-rte - unknown-keyword-argument-exception? - unknown-keyword-argument-exception-procedure - unknown-keyword-argument-exception-arguments - keyword-expected-exception? - keyword-expected-exception-procedure - keyword-expected-exception-arguments - error-exception? - error-exception-message - error-exception-parameters - - invalid-hash-number-exception? - invalid-hash-number-exception-procedure - invalid-hash-number-exception-arguments) - ;; hvectors (declare-primitive* (s8vector? 1) @@ -1253,19 +977,3 @@ package: gerbil (f64vector-copy! 3 4 5) (subf64vector-move! 5) (f64vector-shrink! 2)) - -(declare-primitive/unchecked* - (spawn (1)) - (spawn/name (2)) - (spawn/group (2)) - (spawn-actor 4) - (spawn-thread 1 2 3) - (thread-local-ref 1 2) - (thread-local-set! 2) - (thread-local-clear! 1) - (current-thread-group 0) - (actor-thread? 1) - (read-string 2) - (write-string 2) - (read-u8vector 2) - (write-u8vector 2)) diff --git a/src/gerbil/prelude/core.ss b/src/gerbil/prelude/core.ss index 4fdcaf027..60f2286a1 100644 --- a/src/gerbil/prelude/core.ss +++ b/src/gerbil/prelude/core.ss @@ -138,16 +138,14 @@ package: gerbil dssl-object? dssl-key-object? dssl-rest-object? dssl-optional-object? values-count values->list make-hash-table make-hash-table-eq make-hash-table-eqv - hash-table? + hash-table? is-hash-table? hash->list hash->plist list->hash-table list->hash-table-eq list->hash-table-eqv plist->hash-table plist->hash-table-eq plist->hash-table-eqv hash-length hash-ref hash-get hash-put! hash-remove! hash-update! hash-key? hash-find hash-for-each hash-map hash-fold hash-keys hash-values - hash-copy hash-copy! - hash-merge hash-merge! - hash-clear! + hash-copy hash-merge hash-merge! eq?-hash eqv?-hash equal?-hash uninterned-symbol? interned-symbol? string->uninterned-symbol gensym make-symbol make-uninterned-symbol symbol-hash as-string display-as-string @@ -161,6 +159,10 @@ package: gerbil string-split string-join string-empty? string-prefix? string->keyword keyword->string make-uninterned-keyword symbol->keyword keyword->symbol + + ;; kw dispatch and method tables + make-symbolic-table symbolic-table-ref symbolic-table-set! symbolic-table-delete! + ;; class linearization with C4 c4-linearize @@ -230,6 +232,7 @@ package: gerbil find-method next-method call-next-method substruct? subclass? + ;; write-env style write-style ;; control @@ -902,7 +905,7 @@ package: gerbil ((get-kw ...) (map (lambda% (kwarg) (with-syntax ((key (car kwarg))) - #'(hash-ref kwvar 'key absent-value))) + #'(symbolic-table-ref kwvar 'key absent-value))) kwargs)) (main main)) (syntax/loc stx diff --git a/src/gerbil/runtime.ss b/src/gerbil/runtime.ss index e48bc0689..5a779ecde 100644 --- a/src/gerbil/runtime.ss +++ b/src/gerbil/runtime.ss @@ -8,30 +8,37 @@ package: gerbil (provide gerbil-runtime) (import - "runtime/system" "runtime/util" - "runtime/loader" + "runtime/table" "runtime/control" + "runtime/system" "runtime/c3" "runtime/mop" "runtime/error" + "runtime/interface" + "runtime/hash" "runtime/thread" "runtime/syntax" "runtime/eval" "runtime/repl" + "runtime/loader" "runtime/init") (export (import: - "runtime/system" "runtime/util" - "runtime/loader" + "runtime/table" "runtime/control" + "runtime/system" "runtime/c3" "runtime/mop" "runtime/error" + "runtime/interface" + "runtime/hash" + "runtime/thread" "runtime/syntax" "runtime/eval" "runtime/repl" + "runtime/loader" "runtime/init")) (void) ;; so that the runtime module exists diff --git a/src/gerbil/runtime/control.ss b/src/gerbil/runtime/control.ss index 9c08919d0..b286cbe78 100644 --- a/src/gerbil/runtime/control.ss +++ b/src/gerbil/runtime/control.ss @@ -5,7 +5,7 @@ prelude: "../prelude/core" package: gerbil/runtime namespace: #f -(import "gambit" "util") +(import "gambit" "util" "table") (export #t) (def (make-promise thunk) @@ -36,7 +36,7 @@ namespace: #f (error "expected vector" kwt))) (unless (procedure? K) (error "expected procedure" K)) - (let ((keys (make-hash-table-eq hash: keyword-hash))) + (let (keys (make-symbolic-table #f 0)) (let lp ((rest all-args) (args #f) (tail #f)) (match rest ([hd . hd-rest] @@ -48,9 +48,10 @@ namespace: #f (let ((pos (##fxmodulo (keyword-hash hd) (##vector-length kwt)))) (unless (eq? hd (##vector-ref kwt pos)) (error "Unexpected keyword argument" K hd)))) - (when (hash-key? keys hd) + (unless (eq? (symbolic-table-ref keys hd absent-value) + absent-value) (error "Duplicate keyword argument" K hd)) - (hash-put! keys hd val) + (symbolic-table-set! keys hd val) (lp rest args tail)))) ((eq? hd #!key) ; keyword escape (match hd-rest @@ -80,5 +81,10 @@ namespace: #f (K keys))))))) (def (keyword-rest kwt . drop) - (for-each (lambda (kw) (hash-remove! kwt kw)) drop) - (hash-fold (lambda (k v r) (cons* k v r)) [] kwt)) + (let (rest []) + (raw-table-for-each + kwt + (lambda (k v) + (unless (memq k drop) + (set! rest (cons* k v rest))))) + rest)) diff --git a/src/gerbil/runtime/eval.ss b/src/gerbil/runtime/eval.ss index 89af1f957..1ddb44b58 100644 --- a/src/gerbil/runtime/eval.ss +++ b/src/gerbil/runtime/eval.ss @@ -6,29 +6,15 @@ package: gerbil/runtime namespace: #f (export #t) -(import "gambit" "util" "mop" "error" "syntax") +(import "gambit" "util" "mop" "error" "hash" "syntax") -(defstruct __context (t ns super table)) -(defstruct __runtime (id)) (defstruct __syntax (e id)) -(defstruct (__macro __syntax) ()) -(defstruct (__special-form __macro) ()) (defstruct (__core-form __syntax) ()) (defstruct (__core-expression __core-form) ()) (defstruct (__core-special-form __core-form) ()) -(defstruct (__struct-info __syntax) ()) -(defstruct (__feature __syntax) ()) -(defstruct (__module __context) (id path import export)) -(def __*modules* - (make-hash-table)) -(def __*core* +(def __core (make-hash-table-eq)) -(def __*top* - (make-__context - 'top #f - (make-__context 'root #f #f __*core*) - (make-hash-table-eq))) ;; interpretation parameters (def __current-expander @@ -38,55 +24,16 @@ namespace: #f (def __current-path (make-parameter '())) -(def (__core-resolve id (ctx (__current-context))) - (and ctx - (let (id (__AST-e id)) - (let lp ((ctx ctx)) - (cond - ((table-ref (__context-table ctx) id #f) => values) - ((__context-super ctx) => lp) - (else #f)))))) +(def (__core-resolve id) + (hash-get __core (__AST-e id))) (def (__core-bound-id? id (is? true)) (cond ((__core-resolve id) => is?) (else #f))) -(def (__core-bind-runtime! id eid (ctx (__current-context))) - (when eid - (hash-put! (__context-table ctx) (__AST-e id) (make-__runtime eid)))) (def (__core-bind-syntax! id e (make make-__syntax)) - (hash-put! __*core* id (if (__syntax? e) e (make e id)))) -(def (__core-bind-macro! id e) - (__core-bind-syntax! id e make-__macro)) -(def (__core-bind-special-form! id e) - (__core-bind-syntax! id e make-__special-form)) -(def (__core-bind-user-syntax! id e (ctx (__current-context))) - (hash-put! (__context-table ctx) (__AST-e id) - (if (__syntax? e) e - (make-__syntax e (__AST-e id))))) - -(def (make-__runtime-id id (ctx (__current-context))) - (let (id (__AST-e id)) - (cond - ((eq? id '_) #f) - ((uninterned-symbol? id) - (gensym id)) - ((symbol? id) - (case (__context-t ctx) - ((local) - (gensym id)) - ((module) - (make-symbol (__context-ns ctx) "#" id)) - (else id))) - (else - (error "Illegal runtime identifier" id))))) - -(def (make-__context-local (super (__current-context))) - (make-__context 'local #f super (make-hash-table-eq))) - -(def (make-__context-module id ns path (super (__current-context))) - (make-__module 'module ns super (make-hash-table-eq) id path #f #f)) + (hash-put! __core id (if (__syntax? e) e (make e id)))) (def (__SRC e (src-stx #f)) (cond diff --git a/src/gerbil/runtime/gambit.ss b/src/gerbil/runtime/gambit.ss index 9b9a8905d..614f548ca 100644 --- a/src/gerbil/runtime/gambit.ss +++ b/src/gerbil/runtime/gambit.ss @@ -52,6 +52,7 @@ namespace: #f random-source-randomize! default-random-source + random-integer make-thread make-thread-group @@ -65,13 +66,27 @@ namespace: #f mutex-lock! mutex-unlock! read-subu8vector - write-subu8vector + write-subu8vectorp read-substring - write-substring) + write-substring + + object->serial-number) ;; gambit macros (extern macro-absent-obj + macro-unused-obj + macro-deleted-obj + macro-slot + macro-type-fixnum + macro-type-table + macro-type-mutex + macro-max-fixnum32 + macro-number-dispatch + macro-ratnum-numerator + macro-ratnum-denominator + macro-cpxnum-real + macro-cpxnum-imag macro-subtype-structure macro-writeenv-style macro-readenv-port @@ -84,6 +99,9 @@ namespace: #f macro-character-port? macro-character-port-wchars macro-character-port-output-width - macro-character-port-output-width-set!) + macro-character-port-output-width-set! + macro-mutex-lock! + macro-mutex-unlock! + macro-current-thread) (void) ;; so that the __0 file exists diff --git a/src/gerbil/runtime/hash.ss b/src/gerbil/runtime/hash.ss new file mode 100644 index 000000000..b587de998 --- /dev/null +++ b/src/gerbil/runtime/hash.ss @@ -0,0 +1,594 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; Gerbil hash table interface +prelude: "../prelude/core" +package: gerbil/runtime +namespace: #f + +(import "gambit" "util" "table" "mop" "error" "interface") +(export #t) + +(defclass (UnboundKeyError Error) () + constructor: :init!) + +(defmethod {:init! UnboundKeyError} + Error:::init!) + +(def (raise-unbound-key-error where message . irritants) + (raise + (UnboundKeyError message where: where irritants: irritants))) + +(def unbound-key-error? UnboundKeyError?) + +(defstruct-type HashTable::t (interface-instance::t) + #f HashTable? + id: gerbil#HashTable::t + name: HashTable + final: #t + slots: + ((ref HashTable-ref@ HashTable-ref@-set!) + (set! HashTable-set@ HashTable-set@-set!) + (update! HashTable-update@ HashTable-update@-set!) + (delete! HashTable-del@ HashTable-del@-set!) + (for-each HashTable-each@ HashTable-each@-set!) + (length HashTable-length@ HashTable-length@-set!) + (copy HashTable-copy@ HashTable-copy@-set!) + (clear HashTable-clear@ HashTable-clear@-set!))) + +(def HashTable::interface + (interface-descriptor + HashTable::t + '(ref set! update! delete! for-each length copy clear!))) + +(defstruct-type HashTableLock::t (interface-instance::t) + #f HashTableLock? + id: gerbil#HashTableLock::t + name: HashTableLock + final: #t + slots: + ((begin-read! HashTableLock-begin-read@ HashTableLock-begin-read@-set!) + (end-read! HashTableLock-end-read@ HashTableLock-end-read@-set!) + (begin-write! HashTableLock-begin-write@ HashTableLock-begin-write@-set!) + (end-write! HashTableLock-end-write@ HashTableLock-end-write@-set!))) + +(def HashTableLock::interface + (interface-descriptor + HashTableLock::t + '(begin-read! end-read! begin-write! end-write!))) + +;; raw/builtin table methods +(bind-method! __table::t 'ref raw-table-ref) +(bind-method! __table::t 'set! raw-table-set!) +(bind-method! __table::t 'update! raw-table-update!) +(bind-method! __table::t 'delete! raw-table-delete!) +(bind-method! __table::t 'for-each raw-table-for-each) +(bind-method! __table::t 'length &raw-table-count) +(bind-method! __table::t 'copy raw-table-copy) +(bind-method! __table::t 'clear! raw-table-clear!) + +(def (gambit-table-update! table key update default) + (let (result (table-ref table key default)) + (table-set! table key (update default)))) + +(def (gambit-table-for-each table proc) + (table-for-each proc table)) + +(def (gambit-table-clear! table) + (##unchecked-structure-set! table 0 5 #f #f)) + +(bind-method! (macro-type-table) 'ref table-ref) +(bind-method! (macro-type-table) 'set! table-set!) +(bind-method! (macro-type-table) 'update! gambit-table-update!) +(bind-method! (macro-type-table) 'delete! table-set!) +(bind-method! (macro-type-table) 'for-each gambit-table-for-each) +(bind-method! (macro-type-table) 'length table-length) +(bind-method! (macro-type-table) 'copy table-copy) +(bind-method! (macro-type-table) 'clear! gambit-table-clear!) + +;; immediate hash-table class; reifies the raw-table type +(def hash-table::t + (begin-annotation + (@mop.class gerbil#hash-table::t ; type-id + () ; super + (table count free hash test seed) ; slots + #f ; constructor + #t ; struct? + #f ; final? + #f) ; metaclass + (let* ((slots '(table count free hash test seed)) + (slot-vector + (list->vector (cons #f slots))) + (slot-table + (let (slot-table (make-symbolic-table #f 0)) + (for-each + (lambda (slot field) + (symbolic-table-set! slot-table slot field) + (symbolic-table-set! slot-table (symbol->keyword slot) field)) + slots + (iota (length slots) 1)) + slot-table)) + (flags + (##fxior type-flag-extensible type-flag-concrete type-flag-id + class-type-flag-struct)) + (fields '#()) + (properties + `((direct-slots: ,@slots) + (struct: . #t)))) + (##structure + class::t ; type + 'gerbil#hash-table::t ; type-id + 'hash-table ; type-name + flags ; type-flags + __table::t ; type-super + fields ; type-fields + [] ; class-type-precedence-list + slot-vector ; class-type-slot-vector + slot-table ; class-type-slot-table + properties ; class-type-properties + #f ; class-type-constructor + #f)))) + +;; locked hash table; wraps a HashTable instance to lock on primitive operations +(defstruct locked-hash-table (table lock) + final: #t) + +;; checked hash table; wraps a HashTable and performs safety checks +(defstruct checked-hash-table (table key-check) + final: #t) + +;; specializer types +(defstruct-type eq-hash-table::t (hash-table::t) + make-eq-hash-table eq-hash-table? + id: gerbil#eq-hash-table + name: hash-table) +(defstruct-type eqv-hash-table::t (hash-table::t) + make-eqv-hash-table eqv-hash-table? + id: gerbil#eqv-hash-table + name: hash-table) +(defstruct-type symbol-hash-table::t (hash-table::t) + make-symbol-hash-table symbol-hash-table? + id: gerbil#symbol-hash-table + name: hash-table) +(defstruct-type string-hash-table::t (hash-table::t) + make-string-hash-table string-hash-table? + id: gerbil#string-hash-table + name: hash-table) + +(bind-method! hash-table::t 'ref raw-table-ref) +(bind-method! hash-table::t 'set! raw-table-set!) +(bind-method! hash-table::t 'update! raw-table-update!) +(bind-method! hash-table::t 'delete! raw-table-delete!) +(bind-method! hash-table::t 'for-each raw-table-for-each) +(bind-method! hash-table::t 'length &raw-table-count) +(bind-method! hash-table::t 'copy raw-table-copy) +(bind-method! hash-table::t 'clear! raw-table-clear!) + +(bind-method! eq-hash-table::t 'ref eq-table-ref) +(bind-method! eq-hash-table::t 'set! eq-table-set!) +(bind-method! eq-hash-table::t 'update! eq-table-update!) +(bind-method! eq-hash-table::t 'delete! eq-table-delete!) + +(bind-method! eqv-hash-table::t 'ref eqv-table-ref) +(bind-method! eqv-hash-table::t 'set! eqv-table-set!) +(bind-method! eqv-hash-table::t 'update! eqv-table-update!) +(bind-method! eqv-hash-table::t 'delete! eqv-table-delete!) + +(bind-method! symbol-hash-table::t 'ref symbolic-table-ref) +(bind-method! symbol-hash-table::t 'set! symbolic-table-set!) +(bind-method! symbol-hash-table::t 'update! symbolic-table-update!) +(bind-method! symbol-hash-table::t 'delete! symbolic-table-delete!) + +(bind-method! string-hash-table::t 'ref string-table-ref) +(bind-method! string-hash-table::t 'set! string-table-set!) +(bind-method! string-hash-table::t 'update! string-table-update!) +(bind-method! string-hash-table::t 'delete! string-table-delete!) + +;; HashTable interface methods +(def (hash-table? obj) + (immediate-instance-of? HashTable::t obj)) + +(def (is-hash-table? obj) + (or (immediate-instance-of? HashTable::t obj) + (satisfies? HashTable::interface obj))) + +(defsyntax (defhash-method stx) + (syntax-case stx () + ((_ (hash-method h arg ...) body ...) + (with-syntax ((&hash-method (stx-identifier #'hash-method "&" #'hash-method)) + ((arg-val ...) + (stx-map (lambda (arg) + (if (identifier? arg) + arg + (stx-car arg))) + #'(arg ...)))) + #'(begin + (def (hash-method h arg ...) + (let (h (if (immediate-instance-of? HashTable::t h) + h (cast HashTable::interface h))) + (&hash-method h arg-val ...))) + (def (&hash-method h arg ...) + body ...)))))) + +;; the basic interface methods +(defhash-method (HashTable-ref h key default) + (declare (not safe)) + ((&HashTable-ref@ h) (&interface-instance-object h) key default)) + +(defhash-method (HashTable-set! h key value) + (declare (not safe)) + ((&HashTable-set@ h) (&interface-instance-object h) key value) + (void)) + +(defhash-method (HashTable-update! h key update default) + (declare (not safe)) + ((&HashTable-update@ h) (&interface-instance-object h) key update default) + (void)) + +(defhash-method (HashTable-delete! h key) + (declare (not safe)) + ((&HashTable-del@ h) (&interface-instance-object h) key) + (void)) + +(defhash-method (HashTable-for-each h proc) + (declare (not safe)) + ((&HashTable-each@ h) (&interface-instance-object h) proc) + (void)) + +(defhash-method (HashTable-length h) + (declare (not safe)) + ((&HashTable-length@ h) (&interface-instance-object h))) + +(defhash-method (HashTable-copy h) + (declare (not safe)) + (cast HashTable::interface + ((&HashTable-copy@ h) (&interface-instance-object h)))) + +(defhash-method (HashTable-clear! h) + (declare (not safe)) + ((&HashTable-clear@ h) (&interface-instance-object h)) + (void)) + +;; hash table locker methods +(def (&HashTableLock-begin-read! hl) + (declare (not safe)) + ((&HashTableLock-begin-read@ hl) (&interface-instance-object hl))) + +(def (&HashTableLock-end-read! hl) + (declare (not safe)) + ((&HashTableLock-end-read@ hl) (&interface-instance-object hl))) + +(def (&HashTableLock-begin-write! hl) + (declare (not safe)) + ((&HashTableLock-begin-write@ hl) (&interface-instance-object hl))) + +(def (&HashTableLock-end-write! hl) + (declare (not safe)) + ((&HashTableLock-end-write@ hl) (&interface-instance-object hl))) + +;; locked hash table methods +(defrules deflocked-hash-method () + ((_ (method arg ...) begin-lock hash-method end-lock) + (defmethod {method locked-hash-table} + (lambda (self arg ...) + (let ((h (&locked-hash-table-table self)) + (l (&locked-hash-table-lock self))) + (dynamic-wind + (cut begin-lock l) + (cut hash-method h arg ...) + (cut end-lock l))))))) + +(deflocked-hash-method (ref key default) + &HashTableLock-begin-read! + &HashTable-ref + &HashTableLock-end-read!) + +(deflocked-hash-method (set! key value) + &HashTableLock-begin-write! + &HashTable-set! + &HashTableLock-end-write!) + +(deflocked-hash-method (update! key update default) + &HashTableLock-begin-write! + &HashTable-update! + &HashTableLock-end-write!) + +(deflocked-hash-method (delete! key) + &HashTableLock-begin-write! + &HashTable-delete! + &HashTableLock-end-write!) + +(deflocked-hash-method (for-each proc) + &HashTableLock-begin-read! + &HashTable-for-each + &HashTableLock-end-read!) + +(deflocked-hash-method (length) + &HashTableLock-begin-read! + &HashTable-length + &HashTableLock-end-read!) + +(deflocked-hash-method (copy) + &HashTableLock-begin-read! + &HashTable-copy + &HashTableLock-end-read!) + +(deflocked-hash-method (clear!) + &HashTableLock-begin-write! + &HashTable-clear! + &HashTableLock-end-write!) + +;; checked hash table methods +;; make mutexes implement the hash table lock interface +(bind-method! (macro-type-mutex) 'begin-read! mutex-lock!) +(bind-method! (macro-type-mutex) 'end-read! mutex-unlock!) +(bind-method! (macro-type-mutex) 'begin-write! mutex-lock!) +(bind-method! (macro-type-mutex) 'end-write! mutex-unlock!) + +(defrules defchecked-hash-method () + ((_ (method self arg ...) check hash-method) + (defmethod {method checked-hash-table} + (lambda (self arg ...) + (let ((h (&checked-hash-table-table self)) + (key? (&checked-hash-table-key-check self))) + (check key?) + (hash-method h arg ...)))))) + +(defrules check-hash-arg () + ((_ check? obj) + (unless (check? obj) + (error "invalid argument" obj)))) + +(defchecked-hash-method (ref self key default) + (cut check-hash-arg <> key) + &HashTable-ref) + +(defchecked-hash-method (set! self key value) + (cut check-hash-arg <> key) + &HashTable-set!) + +(defchecked-hash-method (update! self key update default) + (lambda (key?) + (check-hash-arg key? key) + (check-hash-arg procedure? update)) + &HashTable-update!) + +(defchecked-hash-method (delete! self key) + (cut check-hash-arg <> key) + &HashTable-delete!) + +(defchecked-hash-method (for-each self proc) + (lambda (_) (check-hash-arg procedure? proc)) + &HashTable-for-each) + +(defchecked-hash-method (length self) + void + &HashTable-length) + +(defchecked-hash-method (copy self) + void + &HashTable-copy) + +(defchecked-hash-method (clear! self) + void + &HashTable-clear!) + +(def (make-generic-hash-table table count free hash test seed) + (##structure hash-table::t table count free hash test seed)) + +(def (make-hash-table size: (size-hint #f) + seed: (seed (random-integer (macro-max-fixnum32))) + test: (test equal?) + hash: (hash #f) + lock: (lock #f) + check: (check #f) + ;; these two force gambit hash tables + weak-keys: (weak-keys #f) + weak-values: (weak-values #f)) + (def (wrap-lock ht) + (if lock + (cast HashTable::interface + (make-locked-hash-table ht (cast HashTableLock::interface lock))) + ht)) + + (def (wrap-checked ht implicit) + (if check + (cast HashTable::interface + (make-checked-hash-table ht (if (procedure? check) check implicit))) + ht)) + + (def (make kons key? hash test) + (let* ((size (raw-table-size-hint->size size-hint)) + (table (make-vector size (macro-unused-obj))) + (ht (cast HashTable::interface + (kons table 0 (fxquotient size 2) hash test seed)))) + (wrap-checked + (wrap-lock ht) + key?))) + + (def (make-gambit-table) + (let* ((size (or size-hint (macro-absent-obj))) + (test (or test equal?)) + (hash (cond + (hash) + ((eq? test eq?) + eq?-hash) + ((eq? test eqv?) + eqv?-hash) + (else + equal?-hash))) + (ht + (cast HashTable::interface + (make-table + size: size + test: test + hash: hash + weak-keys: weak-keys + weak-values: weak-values)))) + (wrap-checked + (wrap-lock ht) + true))) + + (cond + ((or weak-keys weak-values) + (make-gambit-table)) + ((and (or (eq? test eq?) (eq? test ##eq?)) + (or (not hash) (eq? hash eq?-hash) (eq? hash eq-hash))) + (make make-eq-hash-table true eq-hash eq?)) + ((and (or (eq? test eqv?) (eq? test ##eqv?)) + (or (not hash) (eq? hash eqv?-hash) (eq? hash eqv-hash))) + (make make-eqv-hash-table true eqv-hash eqv?)) + ((and (or (eq? test eq?) (eq? test ##eq?)) + (or (eq? hash symbolic-hash) (eq? hash ##symbol-hash))) + (make make-symbol-hash-table symbolic? symbolic-hash eq?)) + ((and (or (eq? test equal?) (eq? test ##equal?) (eq? test string=?) (eq? test ##string=?)) + (or (eq? hash string-hash) (eq? hash ##string=?-hash))) + (make make-string-hash-table string? string-hash ##string=?)) + ((and (eq? test equal?) (not hash)) + (make make-generic-hash-table true equal?-hash equal?)) + ((not (procedure? test)) + (error "bad hash table test function; expected procedure" test)) + ((not (procedure? hash)) + (error "bad hash table hash function; expected procedure" hash)) + (else + (make make-generic-hash-table true hash test)))) + +(def (make-hash-table-eq . args) + (apply make-hash-table test: eq? args)) + +(def (make-hash-table-eqv . args) + (apply make-hash-table test: eqv? args)) + +(def (make-hash-table-symbolic . args) + (apply make-hash-table test: eq? hash: symbolic-hash args)) + +(def (make-hash-table-string . args) + (apply make-hash-table test: string=? hash: string-hash args)) + +(def (list->hash-table lst . args) + (list->hash-table! lst (apply make-hash-table size: (length lst) args))) + +(def (list->hash-table-eq lst . args) + (list->hash-table! lst (apply make-hash-table-eq size: (length lst) args))) + +(def (list->hash-table-eqv lst . args) + (list->hash-table! lst (apply make-hash-table-eqv size: (length lst) args))) + +(def (list->hash-table-symbolic lst . args) + (list->hash-table! lst (apply make-hash-table-symbolic size: (length lst) args))) + +(def (list->hash-table-string lst . args) + (list->hash-table! lst (apply make-hash-table-string size: (length lst) args))) + +(def (list->hash-table! lst h) + (for-each + (lambda (el) + (with ([k . v] el) + (&HashTable-set! h k v))) + lst) + h) + +(def (plist->hash-table lst . args) + (plist->hash-table! lst (apply make-hash-table size: (length lst) args))) + +(def (plist->hash-table-eq lst . args) + (plist->hash-table! lst (apply make-hash-table-eq size: (length lst) args))) + +(def (plist->hash-table-eqv lst . args) + (plist->hash-table! lst (apply make-hash-table-eqv size: (length lst) args))) + +(def (plist->hash-table-symbolic lst . args) + (plist->hash-table! lst (apply make-hash-table-symbolic size: (length lst) args))) + +(def (plist->hash-table-string lst . args) + (plist->hash-table! lst (apply make-hash-table-string size: (length lst) args))) + +(def (plist->hash-table! lst h) + (let loop ((rest lst)) + (match rest + ([key val . rest] + (&HashTable-set! h key val) + (loop rest)) + ([] h) + (else + (error "bad property list -- uneven list" lst))))) + +;; common hash table api +(defhash-method (hash-length h) + (&HashTable-length h)) + +(defhash-method (hash-ref h key (default (macro-absent-obj))) + (let (result (&HashTable-ref h key default)) + (if (eq? result (macro-absent-obj)) + (raise-unbound-key-error 'hash-ref "unknown hash key" hash: h key: key) + result))) + +(defhash-method (hash-get h key) + (&HashTable-ref h key #f)) + +(defhash-method (hash-put! h key value) + (&HashTable-set! h key value)) + +(defhash-method (hash-update! h key update (default #!void)) + (&HashTable-update! h key update default)) + +(defhash-method (hash-remove! h key) + (&HashTable-delete! h key)) + +(defhash-method (hash-key? h k) + (not (eq? (&HashTable-ref h k absent-value) absent-value))) + +(defhash-method (hash->list h) + (let (lst []) + (&HashTable-for-each h (lambda (k v) (set! lst (cons (cons k v) lst)))) + lst)) + +(defhash-method (hash->plist h) + (let (lst []) + (&HashTable-for-each h (lambda (k v) (set! lst (cons* k v lst)))) + lst)) + +(def (hash-for-each proc h) + (HashTable-for-each h proc)) + +(def (hash-map proc h) + (let (result []) + (HashTable-for-each h (lambda (k v) (set! result (cons (proc k v) result)))) + result)) + +(def (hash-fold proc iv h) + (let (result iv) + (HashTable-for-each h (lambda (k v) (set! result (proc k v result)))) + result)) + +(def (hash-find proc h (default-value #f)) + (let/cc return + (HashTable-for-each h (lambda (k v) (cond ((proc k v) => return)))) + default-value)) + +(defhash-method (hash-keys h) + (let (result []) + (&HashTable-for-each h (lambda (k v) (set! result (cons k result)))) + result)) + +(defhash-method (hash-values h) + (let (result []) + (&HashTable-for-each h (lambda (k v) (set! result (cons v result)))) + result)) + +(defhash-method (hash-copy h) + (&HashTable-copy h)) + +(def (hash-merge h . rest) + (let (copy (hash-copy h)) + (apply hash-merge! copy rest) + copy)) + +(def (hash-merge! h . rest) + (let (h (cast HashTable::interface h)) + (for-each (lambda (hr) (hash-for-each + (lambda (k v) + (unless (&hash-key? h k) + (&HashTable-set! h k v))) + hr)) + rest) + h)) diff --git a/src/gerbil/runtime/init.ss b/src/gerbil/runtime/init.ss index de36fedbc..1f62f2b40 100644 --- a/src/gerbil/runtime/init.ss +++ b/src/gerbil/runtime/init.ss @@ -6,7 +6,7 @@ package: gerbil/runtime namespace: #f (export #t) -(import "gambit" "system" "util" "loader" "control" "mop" "error" "thread" "syntax" "eval" "repl") +(import "gambit" "system" "util" "loader" "control" "mop" "error" "interface" "hash" "thread" "syntax" "eval" "repl") (def __loading-scheme-source (make-parameter #f)) @@ -24,7 +24,6 @@ namespace: #f (gx#current-expander-eval ##eval) (gx#core-bind-root-syntax! ': (gx#make-prelude-context #f) #t) ;; setup _gx - (__current-context __*top*) (__current-compiler __compile-top) (__current-expander gx#core-expand) (set! __eval-module gx#core-eval-module)) @@ -228,15 +227,8 @@ namespace: #f (for-each (lambda (in) (import1 in 0)) in) (import1 in 0))) -;; bootstrap module eval - init-gx! sets to gx#core-eval-module (def (__eval-module obj) - (let (key (if (gx#module-context? obj) - (gx#module-context-path obj) - obj)) - (cond - ((hash-get __*modules* key) => values) ; bootstrap import - (else - (gx#core-eval-module obj))))) + (gx#core-eval-module obj)) (def (gerbil-runtime-init! builtin-modules) (unless __runtime-initialized diff --git a/src/gerbil/runtime/interface.ss b/src/gerbil/runtime/interface.ss new file mode 100644 index 000000000..0cf59de43 --- /dev/null +++ b/src/gerbil/runtime/interface.ss @@ -0,0 +1,166 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; Gerbil interfaces +prelude: "../prelude/core" +package: gerbil/runtime +namespace: #f + +(import "gambit" "util" "table" "mop" "error") +(export #t) + +;; interface related errors +(defclass (CastError Error) () + constructor: :init!) + +(defmethod {:init! CastError} + Error:::init!) + +(def (raise-cast-error where message . irritants) + (raise + (CastError message where: where irritants: irritants))) + +(def interface-cast-error? CastError?) + +;; base type for all interface instances +(defstruct-type interface-instance::t () + #f interface-instance? + id: gerbil#interface-instance::t + name: interface-instance + slots: + ((__object interface-instance-object interface-instance-object-set!))) + +;; interface meta descriptor +(defstruct interface-descriptor (type methods) final: #t) + +(defrules immediate-instance-of? () + ((_ klass obj) + (and (##structure? obj) (eq? (##structure-type obj) klass)))) + +;; prototype table +(def (__interface-hash-key key) + (##fxxor (__symbolic-hash (##car key)) (__symbolic-hash (##cdr key)))) +(def (__interface-test-key a b) + (and (##eq? (##car a) (##car b)) + (##eq? (##cdr a) (##cdr b)))) + +(defspecialized-table make-prototype-table + prototype-table-ref + prototype-table-set! __prototype-table-set! + prototype-table-update! __prototype-table-update! + prototype-trable-delete! + __interface-hash-key __interface-test-key) + +(def __interface-prototypes-mx (make-mutex 'interface-prototype)) +(def __interface-prototypes (make-prototype-table #f 0)) +(def __interface-prototypes-key (cons #f #f)) ; pre-allocated key for lookups + +(def (interface-subclass? klass) + (alet (super (##type-super klass)) + (eq? (##type-id super) (##type-id interface-instance::t)))) + +(defrules mutex-lock-inline! () + ((_ mx) + (macro-mutex-lock! mx #f (macro-current-thread)))) +(defrules mutex-unlock-inline! () + ((_ mx) + (macro-mutex-unlock! mx))) + +(defrules do-create-prototype () + ((_ descriptor klass obj-klass continue fail!) + (let loop ((rest (&interface-descriptor-methods descriptor)) + (count 0) + (methods [])) + (match rest + ([method-name . rest] + (cond + ((find-method obj-klass #f method-name) + => (lambda (method) (loop rest (##fx+ count 1) (cons method methods)))) + (else + (fail! klass method-name)))) + (else + (let (prototype (make-object klass (##fx+ count 2))) + (let loop ((rest methods) (off (##fx+ count 1))) + (match rest + ([method . rest] + (##unchecked-structure-set! prototype method off klass #f) + (loop rest (##fx- off 1))) + (else + (let (prototype-key (cons (##type-id klass) (##type-id obj-klass))) + (mutex-lock-inline! __interface-prototypes-mx) + (prototype-table-set! __interface-prototypes prototype-key prototype) + (mutex-unlock-inline! __interface-prototypes-mx) + (continue prototype))))))))))) + +(def (create-prototype descriptor klass obj-klass) + (do-create-prototype + descriptor klass obj-klass + (lambda (prototype) prototype) + (lambda (klass method-name) + (raise-cast-error 'create-prototype "cannot create interface instance; missing method" class: klass method: method-name)))) + +(def (try-create-prototype descriptor klass obj-klass) + (do-create-prototype + descriptor klass obj-klass + (lambda (prototype) prototype) + (lambda (klass method-name) #f))) + +(defrules defcast () + ((_ cast-it do-prototype do-instance do-fail) + (def (cast-it descriptor obj) + (if (##structure? obj) + (let () + (declare (not interrupts-enabled)) + (let* ((klass (&interface-descriptor-type descriptor)) + (klass-id (##type-id klass)) + (obj-klass (##structure-type obj)) + (obj-klass-id (##type-id obj-klass))) + (cond + ((##eq? klass-id obj-klass-id) + ;; already an instance of the right interface + obj) + ((interface-subclass? obj-klass) + ;; another interface instance, recast + (cast-it descriptor (&interface-instance-object obj))) + (else + ;; vanilla object, convert to an interface instance + (mutex-lock-inline! __interface-prototypes-mx) + (##set-car! __interface-prototypes-key klass-id) + (##set-cdr! __interface-prototypes-key obj-klass-id) + (let (prototype + (cond + ((prototype-table-ref __interface-prototypes __interface-prototypes-key #f) + => (lambda (prototype) + (mutex-unlock-inline! __interface-prototypes-mx) + prototype)) + (else + (mutex-unlock-inline! __interface-prototypes-mx) + (do-prototype descriptor klass obj-klass)))) + (do-instance prototype obj)))))) + (do-fail obj))))) + +;; cast an object to an interface, creating an instance from the prototype +(defcast cast + create-prototype + (lambda (prototype obj) + (let (instance (##structure-copy prototype)) + (##unchecked-structure-set! instance obj 1 #f 'cast) + instance)) + (lambda (obj) + (raise-cast-error 'cast "cannot cast non-object to interface instance" obj))) + +;; try to cast an object to an interface +(defcast try-cast + try-create-prototype + (lambda (prototype obj) + (and prototype + (let (instance (##structure-copy prototype)) + (##unchecked-structure-set! instance obj 1 #f 'cast) + instance))) + (lambda (obj) #f)) + +;; check if an object satisfies an interface, optimistically creating a prototype +(defcast satisfies? + try-create-prototype + (lambda (prototype obj) + (and prototype #t)) + (lambda (obj) #f)) diff --git a/src/gerbil/runtime/loader.ss b/src/gerbil/runtime/loader.ss index 07ff0a48f..e62d8bca8 100644 --- a/src/gerbil/runtime/loader.ss +++ b/src/gerbil/runtime/loader.ss @@ -6,7 +6,7 @@ package: gerbil/runtime namespace: #f (export #t) -(import "gambit" "util") +(import "gambit" "util" "hash") (def current-module-library-path (make-parameter #f)) diff --git a/src/gerbil/runtime/mop.ss b/src/gerbil/runtime/mop.ss index 351e98e6c..d8bfcb2d0 100644 --- a/src/gerbil/runtime/mop.ss +++ b/src/gerbil/runtime/mop.ss @@ -6,7 +6,7 @@ package: gerbil/runtime namespace: #f (export #t) -(import "gambit" "util" "c3") +(import "gambit" "util" "table" "c3") ;; Gambit structure rtd [runtime type descriptor] ;; (define-type type @@ -71,13 +71,13 @@ namespace: #f '(id name super flags fields precedence-list slot-vector slot-table properties constructor methods)) (slot-vector - (list->vector (cons '##type slots))) + (list->vector (cons #f slots))) (slot-table - (let (slot-table (make-hash-table-eq)) + (let (slot-table (make-symbolic-table #f 0)) (for-each (lambda (slot field) - (hash-put! slot-table slot field) - (hash-put! slot-table (symbol->keyword slot) field)) + (symbolic-table-set! slot-table slot field) + (symbolic-table-set! slot-table (symbol->keyword slot) field)) slots (iota (length slots) 1)) slot-table)) @@ -156,9 +156,9 @@ namespace: #f ;; ht: table to which to add according slots ;; key: either print: or equal: (both implied by transparent:) (def (make-props! key) - (def ht (make-hash-table-eq)) + (def ht (make-symbolic-table #f 0)) (def (put-slots! ht slots) - (for-each (cut hash-put! ht <> #t) slots)) + (for-each (cut symbolic-table-set! ht <> #t) slots)) (def (put-alist! ht key alist) (cond ((assgetq key alist) => (cut put-slots! ht <>)))) (put-alist! ht key properties) @@ -203,8 +203,8 @@ namespace: #f (let* ((slot (##vector-ref slot-vector i)) (flags (if transparent? 0 - (##fxior (if (or all-slots-printable? (hash-get printable slot)) 0 1) - (if (or all-slots-equalable? (hash-get equalable slot)) 0 4))))) + (##fxior (if (or all-slots-printable? (symbolic-table-ref printable slot #f)) 0 1) + (if (or all-slots-equalable? (symbolic-table-ref equalable slot #f)) 0 4))))) (vector-set! field-info j slot) (vector-set! field-info (##fx+ j 1) flags) (loop (##fx+ i 1) (##fx+ j 3))))) @@ -345,15 +345,16 @@ namespace: #f ;; -> (Vector Symbol) (Table (Or Symbol Keyword) -> Fixnum) (def (compute-class-slots class-precedence-list direct-slots) (let* ((next-slot 1) ;; 0 is special slot for type-descriptor - (slot-table (make-hash-table-eq)) + (slot-table (make-symbolic-table #f 0)) (r-slots '(__class)) (process-slot (lambda (slot) (unless (symbol? slot) (error "invalid slot name" slot)) - (unless (hash-key? slot-table slot) ;; ignore if already registered as a slot - (hash-put! slot-table slot next-slot) - (hash-put! slot-table (symbol->keyword slot) next-slot) + (when (eq? (symbolic-table-ref slot-table slot absent-value) + absent-value);; ignore if already registered as a slot + (symbolic-table-set! slot-table slot next-slot) + (symbolic-table-set! slot-table (symbol->keyword slot) next-slot) (set! r-slots (cons slot r-slots)) (set! next-slot (##fx+ next-slot 1))))) (process-slots (cut for-each process-slot <>))) @@ -415,7 +416,7 @@ namespace: #f ;; or (c) the slot being a regular class slot (the more expensive code path), ;; return an accessor for this klass and slot. (def (if-class-slot-field klass slot if-final if-struct if-struct-field if-class-slot) - (let (field (hash-get (&class-type-slot-table klass) slot)) + (let (field (symbolic-table-ref (&class-type-slot-table klass) slot #f)) (cond ((not field) (error "unknown slot" class: klass slot: slot)) @@ -513,7 +514,7 @@ namespace: #f (unchecked-slot-set! obj slot val))) (def (class-slot-offset klass slot) - (hash-get (&class-type-slot-table klass) slot)) + (symbolic-table-ref (&class-type-slot-table klass) slot #f)) (def (class-slot-ref klass obj slot) (if (class-instance? klass obj) @@ -699,7 +700,7 @@ namespace: #f (error "cannot find method" object: obj method: id)))) (def __builtin-type-methods - (make-table test: eq?)) + (make-symbolic-table #f 0)) (def (method-ref obj id) (and (object? obj) @@ -753,26 +754,26 @@ namespace: #f (def (metaclass-resolve-method!) (let (method (metaclass-resolve-method)) - (hash-put! (&class-type-methods klass) id - (if method 'resolved 'unknown)) + (symbolic-table-set! (&class-type-methods klass) id + (if method 'resolved 'unknown)) method)) (cond ((&class-type-methods klass) => (lambda (ht) - (let (method (hash-get ht id)) + (let (method (symbolic-table-ref ht id #f)) (cond ((procedure? method) method) ((class-type-metaclass? klass) (case method ((resolved) (metaclass-resolve-method)) - ((uknown) #f) + ((unknown) #f) (else (metaclass-resolve-method!)))) (else #f))))) ((class-type-metaclass? klass) - (let (tab (make-hash-table-eq)) + (let (tab (make-symbolic-table #f 0)) (&class-type-methods-set! klass tab) (metaclass-resolve-method!))) (else #f))) @@ -782,15 +783,15 @@ namespace: #f (def (builtin-method-ref klass obj id) (cond - ((hash-get __builtin-type-methods (##type-id klass)) - => (lambda (mtab) (hash-get mtab id))) + ((symbolic-table-ref __builtin-type-methods (##type-id klass) #f) + => (lambda (mtab) (symbolic-table-ref mtab id #f))) (else #f))) (def (bind-method! klass id proc (rebind? #t)) (def (bind! ht) - (if (and (not rebind?) (hash-get ht id)) + (if (and (not rebind?) (symbolic-table-ref ht id #f)) (error "method already bound" class: klass method: id) - (hash-put! ht id proc))) + (symbolic-table-set! ht id proc))) (unless (procedure? proc) (error "bad method; expected procedure" proc)) @@ -800,32 +801,33 @@ namespace: #f (let (ht (&class-type-methods klass)) (if ht (bind! ht) - (let (ht (make-hash-table-eq)) + (let (ht (make-symbolic-table #f 0)) (&class-type-methods-set! klass ht) (bind! ht))))) ((##type? klass) (let (ht (cond - ((hash-get __builtin-type-methods (##type-id klass))) + ((symbolic-table-ref __builtin-type-methods (##type-id klass) #f)) (else - (let (ht (make-hash-table-eq)) - (hash-put! __builtin-type-methods (##type-id klass) ht) + (let (ht (make-symbolic-table #f 0)) + (symbolic-table-set! __builtin-type-methods (##type-id klass) ht) ht)))) (bind! ht))) (else (error "bad class; expected class or builtin type" klass)))) (def __method-specializers - (make-table test: eq?)) + (make-eq-table #f 0)) (def (bind-specializer! proc specializer) - (hash-put! __method-specializers proc specializer)) + (eq-table-set! __method-specializers proc specializer)) (def (seal-class! klass) (def (collect-methods! mtab) (def (merge! tab) - (hash-for-each (lambda (id proc) (hash-put! mtab id proc)) - tab)) + (raw-table-for-each + tab + (lambda (id proc) (symbolic-table-set! mtab id proc)))) (def (collect-direct-methods! klass) (cond @@ -844,22 +846,22 @@ namespace: #f ((find class-type-metaclass? (&class-type-precedence-list klass)) (error "cannot seal class that extends metaclass without a metaclass" klass)) (else - (let ((vtab (make-hash-table-eq)) - (mtab (make-hash-table-eq))) + (let ((vtab (make-symbolic-table #f 0)) + (mtab (make-symbolic-table #f 0))) (collect-methods! mtab) - (hash-for-each + (raw-table-for-each + mtab (lambda (id proc) (cond - ((hash-get __method-specializers proc) + ((eq-table-ref __method-specializers proc #f) => (lambda (specializer) (let ((proc (specializer klass)) (gid (make-symbol (##type-id klass) "::[" id "]"))) ;; give the procedure a name and make it accessible to the debugger (eval `(def ,gid (quote ,proc))) - (hash-put! vtab id proc)))) + (symbolic-table-set! vtab id proc)))) (else - (hash-put! vtab id proc)))) - mtab) + (symbolic-table-set! vtab id proc))))) (&class-type-methods-set! klass vtab)))) (&class-type-seal! klass)))) diff --git a/src/gerbil/runtime/syntax.ss b/src/gerbil/runtime/syntax.ss index e65173c9b..443cc4719 100644 --- a/src/gerbil/runtime/syntax.ss +++ b/src/gerbil/runtime/syntax.ss @@ -130,10 +130,7 @@ namespace: #f (def (__raise-syntax-error where message stx . details) (raise - (make-syntax-error message (cons stx details) where (__current-context) #f #f))) - -(def __current-context - (make-parameter #f)) + (make-syntax-error message (cons stx details) where #f #f #f))) ;;; ASTs (defstruct AST (e source) diff --git a/src/gerbil/runtime/system.ss b/src/gerbil/runtime/system.ss index 837d495c0..aa3611b0d 100644 --- a/src/gerbil/runtime/system.ss +++ b/src/gerbil/runtime/system.ss @@ -9,10 +9,6 @@ namespace: #f (import "gambit" "util" "control") (include "version.ss") -;; Redundantly define this macro here until the version in the prelude is fully bootstrapped. -(defrules defmutable () - ((_ var value) (begin (def var value) (set! var var) (void)))) - (def gerbil-system-manifest [["Gerbil" :: (gerbil-version-string)] ["Gambit" :: (system-version-string)]]) diff --git a/src/gerbil/runtime/table.ss b/src/gerbil/runtime/table.ss new file mode 100644 index 000000000..614c644cb --- /dev/null +++ b/src/gerbil/runtime/table.ss @@ -0,0 +1,387 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; Gerbil hash tables: raw tables +prelude: "../prelude/core" +package: gerbil/runtime +namespace: #f + +(import "gambit") +(export #t) +(declare (not safe)) + +;; this is defined as a raw gambit type, as we don't have MOP yet -- it needs tables! +(def __table::t.id 'gerbil#__table::t) + +(def __table::t + (##structure ##type-type ; type + __table::t.id ; id + 'raw-table ; name + 26 ; flags: extensible | concrete | nongenerative + #f ; super + '#(table 5 #f count 5 #f free 5 #f hash 5 #f test 5 #f seed 5 #f))) + +(def (&raw-table-table tab) + (##unchecked-structure-ref tab 1 __table::t 'raw-table-table)) +(def (&raw-table-count tab) + (##unchecked-structure-ref tab 2 __table::t 'raw-table-count)) +(def (&raw-table-free tab) + (##unchecked-structure-ref tab 3 __table::t 'raw-table-free)) +(def (&raw-table-hash tab) + (##unchecked-structure-ref tab 4 __table::t 'raw-table-hash)) +(def (&raw-table-test tab) + (##unchecked-structure-ref tab 5 __table::t 'raw-table-test)) +(def (&raw-table-seed tab) + (##unchecked-structure-ref tab 6 __table::t 'raw-table-seed)) + +(def (&raw-table-table-set! tab val) + (##unchecked-structure-set! tab val 1 __table::t 'raw-table-table-set!)) +(def (&raw-table-count-set! tab val) + (##unchecked-structure-set! tab val 2 __table::t 'raw-table-count-set!)) +(def (&raw-table-free-set! tab val) + (##unchecked-structure-set! tab val 3 __table::t 'raw-table-free-set!)) +(def (&raw-table-hash-set! tab val) + (##unchecked-structure-set! tab val 4 __table::t 'raw-table-hash-set!)) +(def (&raw-table-test-set! tab val) + (##unchecked-structure-set! tab val 5 __table::t 'raw-table-test-set!)) +(def (&raw-table-seed-set! tab val) + (##unchecked-structure-set! tab val 6 __table::t 'raw-table-seed-set!)) + +;; generic raw tables +(def (raw-table-size-hint->size size-hint) + (if (and (fixnum? size-hint) (fx> size-hint 0)) + ;; make it a power of 2 so that quadratic probing produces + ;; a full table probe; we multiply by 4 to avoid rehashing. + (fx* (fxmax 2 (expt 2 (integer-length size-hint))) 4) + 16)) + +(def (make-raw-table size-hint hash test (seed 0)) + (let* ((size (raw-table-size-hint->size size-hint)) + (table (make-vector size (macro-unused-obj)))) + (##structure __table::t table 0 (fxquotient size 2) hash test seed))) + +(def (raw-table-ref tab key default) + (let ((table (&raw-table-table tab)) + (seed (&raw-table-seed tab)) + (hash (&raw-table-hash tab)) + (test (&raw-table-test tab))) + (__table-ref table seed hash test key default))) + +(def (raw-table-set! tab key value) + (when (fx< (&raw-table-free tab) + (fxquotient (vector-length (&raw-table-table tab)) 4)) + (__raw-table-rehash! tab)) + (__raw-table-set! tab key value)) + +(def (raw-table-update! tab key update default) + (when (fx< (&raw-table-free tab) + (fxquotient (vector-length (&raw-table-table tab)) 4)) + (__raw-table-rehash! tab)) + (__raw-table-update! tab key update default)) + +(def (raw-table-delete! tab key) + (let ((table (&raw-table-table tab)) + (seed (&raw-table-seed tab)) + (hash (&raw-table-hash tab)) + (test (&raw-table-test tab))) + (__table-del! table seed hash test key + (lambda () + (set! (&raw-table-count tab) (fx- (&raw-table-count tab) 1)))))) + +(def (raw-table-for-each tab proc) + (let* ((table (&raw-table-table tab)) + (size (vector-length table))) + (let loop ((i 0)) + (when (fx< i size) + (let (key (vector-ref table i)) + (when (and (not (eq? key (macro-unused-obj))) + (not (eq? key (macro-deleted-obj)))) + (let (value (vector-ref table (fx+ i 1))) + (proc key value)))) + (loop (fx+ i 2)))))) + +(def (raw-table-copy tab) + (let (new-tab (##structure-copy tab)) + (set! (&raw-table-table new-tab) + (vector-copy (&raw-table-table tab))) + new-tab)) + +(def (raw-table-clear! tab) + (vector-fill! (&raw-table-table tab) (macro-unused-obj)) + (set! (&raw-table-count tab) 0) + (set! (&raw-table-free tab) + (fxquotient (vector-length (&raw-table-table tab)) 2))) + +(def (__raw-table-set! tab key value) + (let ((table (&raw-table-table tab)) + (seed (&raw-table-seed tab)) + (hash (&raw-table-hash tab)) + (test (&raw-table-test tab))) + (__table-set! table seed hash test key value + (lambda () ; insert + (set! (&raw-table-free tab) (fx- (&raw-table-free tab) 1)) + (set! (&raw-table-count tab) (fx+ (&raw-table-count tab) 1))) + (lambda () ; ressurect + (set! (&raw-table-count tab) (fx+ (&raw-table-count tab) 1)))))) + +(def (__raw-table-update! tab key update default) + (let ((table (&raw-table-table tab)) + (seed (&raw-table-seed tab)) + (hash (&raw-table-hash tab)) + (test (&raw-table-test tab))) + (__table-update! table seed hash test key update default + (lambda () ; insert + (set! (&raw-table-free tab) (fx- (&raw-table-free tab) 1)) + (set! (&raw-table-count tab) (fx+ (&raw-table-count tab) 1))) + (lambda () ; ressurect + (set! (&raw-table-count tab) (fx+ (&raw-table-count tab) 1)))))) + +(def (__raw-table-rehash! tab) + (let* ((old-table (&raw-table-table tab)) + (old-size (vector-length old-table)) + (new-size + (if (fx< (&raw-table-count tab) (fxquotient old-size 4)) + (vector-length old-table) + (fx* 2 (vector-length old-table)))) + (new-table + (make-vector new-size (macro-unused-obj)))) + (set! (&raw-table-table tab) new-table) + (set! (&raw-table-count tab) 0) + (set! (&raw-table-free tab) (fxquotient new-size 2)) + (let lp ((i 0)) + (when (fx< i old-size) + (let (key (vector-ref old-table i)) + (when (and (not (eq? key (macro-unused-obj))) + (not (eq? key (macro-deleted-obj)))) + (let (value (vector-ref old-table (fx+ i 1))) + (__raw-table-set! tab key value)))) + (lp (fx+ i 2)))))) + +;;; specialized tables +;;; in-module eq?-hash to avoid cross runtime call cost,. +(def (eq-hash obj) + (let (t (##type obj)) + (cond + ((fx= (fxand t #b1) 0) + ;; immediate + (fxand + (##type-cast obj (macro-type-fixnum)) + (macro-max-fixnum32))) + ((symbolic? obj) + (symbolic-hash obj)) + (else + (fxand + (let ((sn (object->serial-number obj))) + (if (fixnum? sn) + sn + (fxarithmetic-shift-left + (##bignum.mdigit-ref sn 0) + 10))) + (macro-max-fixnum32)))))) + +(def (eqv-hash obj) + (define (combine a b) + (fxand + (fx* (fx+ a (fxarithmetic-shift-left b 1)) + 331804471) + (macro-max-fixnum32))) + + (define (hash obj) + (macro-number-dispatch obj + (eq-hash obj) ;; obj = not a number + (fxand obj (macro-max-fixnum32)) ;; obj = fixnum + (modulo obj 331804481) ;; obj = bignum + (combine (hash (macro-ratnum-numerator obj)) ;; obj = ratnum + (hash (macro-ratnum-denominator obj))) + (combine (##u16vector-ref obj 0) ;; obj = flonum + (combine (##u16vector-ref obj 1) + (combine (##u16vector-ref obj 2) + (##u16vector-ref obj 3)))) + (combine (hash (macro-cpxnum-real obj)) ;; obj = cpxnum + (hash (macro-cpxnum-imag obj))))) + + (hash obj)) + +(def (symbolic? obj) + (or (symbol? obj) (keyword? obj))) + +(def (symbolic-hash obj) + (__symbolic-hash obj)) + +(defrules __symbolic-hash () + ((_ obj) + (macro-slot 1 obj))) + +(def (string-hash obj) + (##string=?-hash obj)) + +(defrules defspecialized-table () + ((_ make ref set __set update __update del hash eq) + (begin + (def (make (size-hint #f) (seed 0)) + (make-raw-table size-hint hash eq seed)) + (def (ref tab key default) + (let ((table (&raw-table-table tab)) + (seed (&raw-table-seed tab))) + (__table-ref table seed hash eq key default))) + (def (set tab key value) + (when (fx< (&raw-table-free tab) + (fxquotient (vector-length (&raw-table-table tab)) 4)) + (__raw-table-rehash! tab)) + (__set tab key value)) + (def (__set tab key value) + (let ((table (&raw-table-table tab)) + (seed (&raw-table-seed tab))) + (__table-set! table seed hash eq key value + (lambda () ; insert + (set! (&raw-table-free tab) (fx- (&raw-table-free tab) 1)) + (set! (&raw-table-count tab) (fx+ (&raw-table-count tab) 1))) + (lambda () ; ressurect + (set! (&raw-table-count tab) (fx+ (&raw-table-count tab) 1)))))) + (def (update tab key update default) + (when (fx< (&raw-table-free tab) + (fxquotient (vector-length (&raw-table-table tab)) 4)) + (__raw-table-rehash! tab)) + (__update tab key update default)) + (def (__update tab key update default) + (let ((table (&raw-table-table tab)) + (seed (&raw-table-seed tab))) + (__table-update! table seed hash eq key update default + (lambda () ; insert + (set! (&raw-table-free tab) (fx- (&raw-table-free tab) 1)) + (set! (&raw-table-count tab) (fx+ (&raw-table-count tab) 1))) + (lambda () ; ressurect + (set! (&raw-table-count tab) (fx+ (&raw-table-count tab) 1)))))) + (def (del tab key) + (let ((table (&raw-table-table tab)) + (seed (&raw-table-seed tab))) + (__table-del! table seed hash eq key + (lambda () + (set! (&raw-table-count tab) (fx- (&raw-table-count tab) 1))))))))) + + +;; eq-table +(defspecialized-table make-eq-table + eq-table-ref + eq-table-set! __eq-table-set! + eq-table-update! __eq-table-update! + eq-table-delete! + eq-hash eq?) +;; eqv-table +(defspecialized-table make-eqv-table + eqv-table-ref + eqv-table-set! __eqv-table-set! + eqv-table-update! __eqv-table-update! + eqv-table-delete! + eqv-hash eqv?) +;;; symbolic-table: symbols or keywords +(defspecialized-table make-symbolic-table + symbolic-table-ref + symbolic-table-set! __symbolic-table-set! + symbolic-table-update! __symbolic-table-update! + symbolic-table-delete! + symbolic-hash eq?) +;;; string-table: strings +(defspecialized-table make-string-table + string-table-ref + string-table-set! __string-table-set! + string-table-update! __string-table-update! + string-table-delete! + string-hash ##string=?) + +;;; table implementation; open addressing, quadratic probing +(defrules probe-step () + ((_ start i size) + (let (next-probe (fx+ start i (fx* i i))) + (fxmodulo next-probe size)))) + +(defrules __table-ref () + ((_ table seed hash test key default-value) + (let* ((h (fxxor (hash key) seed)) + (size (vector-length table)) + (entries (fxquotient size 2)) + (start (fxarithmetic-shift-left (fxmodulo h entries) 1))) + (let loop ((probe start) (i 1) (deleted #f)) + (let (k (vector-ref table probe)) + (cond + ((eq? k (macro-unused-obj)) + default-value) + ((eq? k (macro-deleted-obj)) + (loop (probe-step start i size) (fx+ i 1) (or deleted probe))) + ((test key k) + (vector-ref table (fx+ probe 1))) + (else + (loop (probe-step start i size) (fx+ i 1) deleted)))))))) + +(defrules __table-set! () + ((_ table seed hash test key value inserted ressurected) + (let* ((h (fxxor (hash key) seed)) + (size (vector-length table)) + (entries (fxquotient size 2)) + (start (fxarithmetic-shift-left (fxmodulo h entries) 1))) + (let loop ((probe start) (i 1) (deleted #f)) + (let (k (vector-ref table probe)) + (cond + ((eq? k (macro-unused-obj)) + (if deleted + (begin + (vector-set! table deleted key) + (vector-set! table (fx+ deleted 1) value) + (ressurected)) + (begin + (vector-set! table probe key) + (vector-set! table (fx+ probe 1) value) + (inserted)))) + ((eq? k (macro-deleted-obj)) + (loop (probe-step start i size) (fx+ i 1) (or deleted probe))) + ((test key k) + (vector-set! table probe key) + (vector-set! table (fx+ probe 1) value)) + (else + (loop (probe-step start i size) (fx+ i 1) deleted)))))))) + +(defrules __table-update! () + ((_ table seed hash test key update default inserted ressurected) + (let* ((h (fxxor (hash key) seed)) + (size (vector-length table)) + (entries (fxquotient size 2)) + (start (fxarithmetic-shift-left (fxmodulo h entries) 1))) + (let loop ((probe start) (i 1) (deleted #f)) + (let (k (vector-ref table probe)) + (cond + ((eq? k (macro-unused-obj)) + (if deleted + (begin + (vector-set! table deleted key) + (vector-set! table (fx+ deleted 1) (update default)) + (ressurected)) + (begin + (vector-set! table probe key) + (vector-set! table (fx+ probe 1) (update default)) + (inserted)))) + ((eq? k (macro-deleted-obj)) + (loop (probe-step start i size) (fx+ i 1) (or deleted probe))) + ((test key k) + (vector-set! table probe key) + (vector-set! table (fx+ probe 1) (update (vector-ref table (fx+ probe 1))))) + (else + (loop (probe-step start i size) (fx+ i 1) deleted)))))))) + +(defrules __table-del! () + ((_ table seed hash test key deleted) + (let* ((h (fxxor (hash key) seed)) + (size (vector-length table)) + (entries (fxquotient size 2)) + (start (fxarithmetic-shift-left (fxmodulo h entries) 1))) + (let loop ((probe start) (i 1)) + (let (k (vector-ref table probe)) + (cond + ((eq? k (macro-unused-obj)) + (void)) + ((eq? k (macro-deleted-obj)) + (loop (probe-step start i size) (fx+ i 1))) + ((test key k) + (vector-set! table probe (macro-deleted-obj)) + (vector-set! table (fx+ probe 1) (macro-absent-obj)) + (deleted)) + (else + (loop (probe-step start i size) (fx+ i 1))))))))) diff --git a/src/gerbil/runtime/thread.ss b/src/gerbil/runtime/thread.ss index 4a3bbcbfc..7c91aa70f 100644 --- a/src/gerbil/runtime/thread.ss +++ b/src/gerbil/runtime/thread.ss @@ -5,7 +5,7 @@ prelude: "../prelude/core" package: gerbil/runtime namespace: #f -(import "gambit" "util" "error") +(import "gambit" "util" "error" "hash") (export #t) ;; spawn an actor thread apply f to args diff --git a/src/gerbil/runtime/util.ss b/src/gerbil/runtime/util.ss index be4932a68..4c78c7b9d 100644 --- a/src/gerbil/runtime/util.ss +++ b/src/gerbil/runtime/util.ss @@ -112,106 +112,6 @@ namespace: #f (let ((lst (##vector->list obj))) (list-tail lst start))) -(def make-hash-table make-table) -(def (make-hash-table-eq . args) - (apply make-table test: eq? args)) -(def (make-hash-table-eqv . args) - (apply make-table test: eqv? args)) - -(def list->hash-table list->table) -(def (list->hash-table-eq lst . args) - (apply list->table lst test: eq? args)) -(def (list->hash-table-eqv lst . args) - (apply list->table lst test: eqv? args)) - -(def hash? - table?) -(def hash-table? - table?) - -(def hash-length - table-length) -(def hash-ref - table-ref) -(def (hash-get ht k) - (table-ref ht k #f)) -(def (hash-put! ht k v) - (table-set! ht k v)) -(def (hash-update! ht k update (default #!void)) - (let ((value (hash-ref ht k default))) - (hash-put! ht k (update value)))) - -(def (hash-remove! ht k) - (table-set! ht k)) - -(def hash->list - table->list) - -(def (hash->plist ht) - (hash-fold cons* [] ht)) - -(def (plist->hash-table plst (ht (make-hash-table))) - (let lp ((rest plst)) - (match rest - ([k v . rest] - (hash-put! ht k v) - (lp rest)) - (() ht)))) - -(def (plist->hash-table-eq plst) - (plist->hash-table plst (make-hash-table-eq))) -(def (plist->hash-table-eqv plst) - (plist->hash-table plst (make-hash-table-eqv))) - -(def (hash-key? ht k) - (not (eq? (hash-ref ht k absent-value) absent-value))) - -(def hash-for-each - table-for-each) - -(def (hash-map fun ht) - (hash-fold - (lambda (k v r) (cons (fun k v) r)) - [] ht)) - -(def (hash-fold fun iv ht) - (let ((ret iv)) - (hash-for-each - (lambda (k v) (set! ret (fun k v ret))) - ht) - ret)) - -(def hash-find - table-search) - -(def (hash-keys ht) - (hash-map (lambda (k v) k) ht)) - -(def (hash-values ht) - (hash-map (lambda (k v) v) ht)) - -(def (hash-copy hd . rest) - (let ((hd (table-copy hd))) - (if (null? rest) hd - (apply hash-copy! hd rest)))) - -(def (hash-copy! hd . rest) - (for-each (lambda (r) (table-merge! hd r)) rest) - hd) - -(def (hash-merge hd . rest) - (foldl (lambda (tab r) (table-merge r tab)) - hd rest)) - -(def (hash-merge! hd . rest) - (foldl (lambda (tab r) (table-merge! r tab)) - hd rest)) - -(def (hash-clear! ht (size 0)) - (let ((gcht (##vector-ref ht 5))) - (if (not (fixnum? gcht)) - (##vector-set! ht 5 size)))) - (def (make-list k (val #f)) (unless (fixnum? k) (error "expected argument 1 to be fixnum" k)) @@ -294,8 +194,8 @@ namespace: #f rest)) iv))) -(def (drop l k) ;; unsafe variant, not exported - (if (##fxpositive? k) (drop (cdr l) (fx1- k)) l)) +(def (drop l k) ;; unsafe variant, not prelude exported + (if (##fxpositive? k) (drop (##cdr l) (##fx- k 1)) l)) ;; Destructively remove the empty lists from a list of lists, returns the list. ;; : (List (List X)) -> (List (NonEmptyList X)) diff --git a/src/gerbil/test/table-bench.ss b/src/gerbil/test/table-bench.ss new file mode 100644 index 000000000..05f172efd --- /dev/null +++ b/src/gerbil/test/table-bench.ss @@ -0,0 +1,147 @@ +(import :std/iter + :gerbil/gambit + :gerbil/runtime/hash + :gerbil/runtime/table) +(export main) + +(extern namespace: #f time) + +(def (main iters elements) + (let ((n (string->number iters)) + (els (string->number elements))) + (bench/equal-table n els) + (bench/eq-table n els) + (bench/symbolic-table n els) + + (bench/direct-equal-table n els) + (bench/direct-eq-table n els) + (bench/direct-symbolic-table n els) + + (bench/raw-eq-table n els) + (bench/raw-symbolic-table n els) + (bench/gambit-equal-table n els) + (bench/gambit-eq-table n els) + (bench/gambit-symbol-table n els))) + +(def (bench/equal-table n els) + (run "generic table" + n els + (cut make-hash-table size: <>) + hash-get + hash-put! + hash-remove!)) + +(def (bench/eq-table n els) + (run "specialized eq-table" + n els + (cut make-hash-table-eq size: <>) + hash-get + hash-put! + hash-remove!)) + +(def (bench/symbolic-table n els) + (run "specialized symbolic-table" + n els + (cut make-hash-table-symbolic size: <>) + hash-get + hash-put! + hash-remove!)) + +(def (bench/direct-equal-table n els) + (run "generic table (direct)" + n els + (cut make-hash-table size: <>) + (cut &HashTable-ref <> <> #f) + &HashTable-set! + &HashTable-delete!)) + +(def (bench/direct-eq-table n els) + (run "specialized eq-table (direct)" + n els + (cut make-hash-table-eq size: <>) + (cut &HashTable-ref <> <> #f) + &HashTable-set! + &HashTable-delete!)) + +(def (bench/direct-symbolic-table n els) + (run "specialized symbolic-table (direct)" + n els + (cut make-hash-table-symbolic size: <>) + (cut &HashTable-ref <> <> #f) + &HashTable-set! + &HashTable-delete!)) + +(def (bench/raw-eq-table n els) + (run "raw specialized eq-table" + n els + (cut make-eq-table <> 0) + (cut eq-table-ref <> <> #f) + eq-table-set! + eq-table-delete!)) + +(def (bench/raw-symbolic-table n els) + (run "raw specialized symbolic-table" + n els + (cut make-symbolic-table <> 0) + (cut symbolic-table-ref <> <> #f) + symbolic-table-set! + symbolic-table-delete!)) + +(def (bench/gambit-equal-table n els) + (run "gambit equal-table" + n els + (cut make-table size: <> test: equal?) + (cut table-ref <> <> #f) + table-set! + table-set!)) + +(def (bench/gambit-eq-table n els) + (run "gambit eq-table" + n els + (cut make-table size: <> test: eq?) + (cut table-ref <> <> #f) + table-set! + table-set!)) + +(def (bench/gambit-symbol-table n els) + (run "gambit symbol-table" + n els + (cut make-table size: <> test: eq? hash: ##symbol-hash) + (cut table-ref <> <> #f) + table-set! + table-set!)) + +(def (bench1 keys vals make get set delete) + (let (tab (make (length keys))) + (for-each + (lambda (k v) + (set tab k v) + (let (vv (get tab k)) + (unless (eqv? vv v) + (error "bad value" key: k value: v expected: vv)))) + keys vals))) + +(def (bench2 keys vals make get set delete) + (let (tab (make (length keys))) + (for-each (cut set tab <> <>) keys vals) + (for-each + (lambda (k v) + (let (vv (get tab k)) + (unless (eqv? vv v) + (error "bad value" key: k value: v expected: vv)))) + keys vals))) + +(def (run name n els make ref set delete) + (let* ((vals (iota els)) + (keys (map (cut make-symbol "key" <>) vals))) + (displayln "============================================================") + (displayln "target: " name) + (displayln "------------------------------------------------------------") + (##gc) + (time (run-it n (cut bench1 keys vals make ref set delete))) + (##gc) + (time (run-it n (cut bench2 keys vals make ref set delete))))) + +(def (run-it n bench) + (for (i (in-range n)) + (bench))) diff --git a/src/gerbil/test/table-test.ss b/src/gerbil/test/table-test.ss new file mode 100644 index 000000000..48ec8413e --- /dev/null +++ b/src/gerbil/test/table-test.ss @@ -0,0 +1,39 @@ +(import :std/test + :std/iter + :gerbil/runtime/table) +(export table-test) + +(def table-test + (test-suite "raw-table" + (test-case "basic ops" + (let (h (make-raw-table #f eq-hash eq?)) + (for ((k '(a b c d e f g)) + (v (in-naturals))) + (raw-table-set! h k v) + (check (raw-table-ref h k #f) => v)) + (for ((k '(a b c d e f g)) + (v (in-naturals))) + (check (raw-table-ref h k #f) => v)) + (for (k '(a b c d e f g)) + (raw-table-delete! h k) + (check (raw-table-ref h k #f) => #f)))) + (test-case "rehashing" + (let (h (make-raw-table #f eq-hash eq?)) + (for (x (iota 200)) + (raw-table-set! h x x)) + (for (x (iota 200)) + (check (raw-table-ref h x #f) => x)))) + (test-case "put/remove interleaving" + (let (h (make-raw-table #f eq-hash eq?)) + (for (x (iota 200)) + (raw-table-set! h x x)) + (for (x (iota 200)) + (check (raw-table-ref h x #f) => x)) + (for (x (iota 100)) + (raw-table-delete! h x)) + (for (x (iota 100 100)) + (check (raw-table-ref h x #f) => x)) + (for (x (iota 100)) + (raw-table-set! h x x)) + (for (x (iota 200)) + (check (raw-table-ref h x #f) => x)))))) diff --git a/src/std/actor-v18/io-test.ss b/src/std/actor-v18/io-test.ss index 56191dcd8..0865deffa 100644 --- a/src/std/actor-v18/io-test.ss +++ b/src/std/actor-v18/io-test.ss @@ -6,6 +6,7 @@ :std/error :std/sugar :std/io + :std/misc/hash ./message ./io) (export actor-message-io-test) @@ -77,7 +78,7 @@ (check-marshal-unmarshal world: keyword-tag) (check-marshal-unmarshal "hello world" string-tag) (check-marshal-unmarshal '#u8(1 2 3) u8vector-tag) - (check-marshal-unmarshal (hash (a 1) (b 2) (c 3)) table-tag) + (check-marshal-unmarshal (hash (a 1) (b 2) (c 3)) table-tag equal-hash?) (check-marshal-unmarshal (current-time) time-tag equal-time?)) (test-case "serde objects" diff --git a/src/std/build-spec.ss b/src/std/build-spec.ss index c4cefb8d9..0ca4003e9 100644 --- a/src/std/build-spec.ss +++ b/src/std/build-spec.ss @@ -4,7 +4,6 @@ (def (build-spec . _) `((gxc: "build-config" (extra-inputs: ("build-features.ss"))) - "gambit-sharp" "metaclass" "interactive" "foreign" diff --git a/src/std/build.ss b/src/std/build.ss index 4c84f0c36..e043fb579 100755 --- a/src/std/build.ss +++ b/src/std/build.ss @@ -5,7 +5,10 @@ (def libdir (path-expand "lib" (getenv "GERBIL_BUILD_PREFIX" (gerbil-home)))) (add-load-path srcdir) -(eval '(import :std/gambit-sharp)) +(let (gambit-sharp + (path-expand "lib/_gambit#.scm" + (getenv "GERBIL_BUILD_PREFIX" (gerbil-home)))) + (eval `(begin-foreign (include ,gambit-sharp)))) ;; The indirection below allows the build-std to do its imports in a module context, transitively (gx#import-module "build-std.ss" #t #t) diff --git a/src/std/contract.ss b/src/std/contract.ss index 49522c371..655bd4215 100644 --- a/src/std/contract.ss +++ b/src/std/contract.ss @@ -178,7 +178,7 @@ (def (expand-body var Interface body checked?) (with-syntax ((@app (syntax-local-introduce '%%app)) - (Type::t (interface-info-descriptor (syntax-local-value Interface))) + (Type::t (interface-info-interface-descriptor (syntax-local-value Interface))) (var-quoted (core-quote-syntax var)) (var var) (Interface Interface) diff --git a/src/std/error.ss b/src/std/error.ss index 74f0152d4..bebe8b816 100644 --- a/src/std/error.ss +++ b/src/std/error.ss @@ -2,6 +2,7 @@ ;;; (C) vyzo ;;; Gerbil error objects (import :gerbil/runtime/error + :gerbil/runtime/hash :gerbil/runtime/thread (for-syntax :gerbil/expander)) (export Exception Exception? @@ -21,7 +22,7 @@ PrematureEndOfInput PrematureEndOfInput? raise-premature-end-of-input premature-end-of-input-error? Timeout Timeout? raise-timeout timeout-error? - UnboundKey UnboundKey? raise-unbound-key unbound-key-error? + UnboundKeyError UnboundKeyError? raise-unbound-key unbound-key-error? ContextError ContextError? raise-context-error context-error? UnsupportedMethod UnsupportedMethod? raise-unsupported-method unsupported-method-error? ContractViolation ContractViolation? raise-contract-violation contract-violation-error? @@ -78,9 +79,6 @@ ;; contextual errors (deferror-class ContextError () context-error?) -;; key lookup errors -(deferror-class UnboundKey () unbound-key-error?) - ;; unsupported interface methods (deferror-class UnsupportedMethod () unsupported-method-error?) @@ -142,9 +140,6 @@ (defraise/context (raise-context-error where message irritants ...) (ContextError message irritants: [irritants ...])) -(defraise/context (raise-unbound-key where irritants ...) - (UnboundKey "no value associated with key" irritants: [irritants ...])) - (defraise/context (raise-unsupported-method where) (UnsupportedMethod "unsupported method" irritants: [])) @@ -154,6 +149,9 @@ (defraise/context (raise-bad-argument where expectation irritants ...) (ContractViolation "contract violation" irritants: [expectation irritants ...])) +(defraise/context (raise-unbound-key where irritants ...) + (UnboundKeyError "no value associated with key" irritants: [irritants ...])) + ;; it's a bug (deferror-class BUG () is-it-bug?) diff --git a/src/std/gambit-sharp.ss b/src/std/gambit-sharp.ss deleted file mode 100644 index bf1eb5a49..000000000 --- a/src/std/gambit-sharp.ss +++ /dev/null @@ -1,10 +0,0 @@ -;; -*- Gerbil -*- -;; © vyzo -;; this module should be imported by build scripts that need _gambit# macros -;; in the interpreter -(extern namespace: #f __loading-scheme-source) -(let (gambit-sharp - (path-expand "lib/_gambit#.scm" - (getenv "GERBIL_BUILD_PREFIX" (gerbil-home)))) - (parameterize ((__loading-scheme-source #t)) - (eval `(include ,gambit-sharp)))) diff --git a/src/std/interface.ss b/src/std/interface.ss index d48a21df3..85e2821aa 100644 --- a/src/std/interface.ss +++ b/src/std/interface.ss @@ -1,177 +1,45 @@ ;;; -*- Gerbil -*- ;;; © vyzo -;;; Go-style interfaces -(import :std/error +;;; interface macros +(import :gerbil/runtime/interface :std/sugar (only-in :std/srfi/1 reverse!) (for-syntax :gerbil/expander (only-in :std/srfi/1 delete-duplicates) (only-in :std/sort sort) (only-in :std/misc/symbol compare-symbolic))) -(export interface interface-out +(export interface + interface-out + cast try-cast satisfies? interface-instance? interface-instance-object &interface-instance-object interface-descriptor? interface-descriptor-type interface-descriptor-methods interface-cast-error? (for-syntax #t)) -(declare (not safe)) -(deferror-class CastError () interface-cast-error?) -(defraise/context (raise-cast-error where message irritants ...) - (CastError message irritants: [irritants ...])) - -;; base type for all interface instances -(defstruct-type interface-instance::t () - #f interface-instance? - name: interface-instance - slots: - ((__object interface-instance-object interface-instance-object-set!))) - -;; interface meta descriptor -(defstruct interface-descriptor (type methods) final: #t) - -;; prototype table -(def (hash-key key) - (fxxor (##symbol-hash (car key)) (##symbol-hash (cdr key)))) -(def (test-key a b) - (and (eq? (car a) (car b)) - (eq? (cdr a) (cdr b)))) - -(def +interface-prototypes-mx+ (make-mutex 'interface-constructor)) -(def +interface-prototypes+ (make-hash-table hash: hash-key test: test-key)) -(def +interface-prototypes-key+ (cons #f #f)) ; pre-allocated key for lookups - -(def (interface-subclass? klass) - (alet (super (##type-super klass)) - (eq? (##type-id super) (##type-id interface-instance::t)))) - -(extern namespace: #f - macro-mutex-lock! - macro-mutex-unlock! - macro-current-thread) - -;; using these gives a 35% boost in microbenchmarks -(defrule (mutex-lock-inline! mx) - (macro-mutex-lock! mx #f (macro-current-thread))) -(defrule (mutex-unlock-inline! mx) - (macro-mutex-unlock! mx)) - -(defrule (do-create-prototype descriptor klass obj-klass continue fail!) - (let lp ((rest (&interface-descriptor-methods descriptor)) - (count 0) - (methods [])) - (match rest - ([method-name . rest] - (cond - ((find-method obj-klass #f method-name) - => (lambda (method) (lp rest (fx+ count 1) (cons method methods)))) - (else - (fail! klass method-name)))) - (else - (let (prototype (make-object klass (fx+ count 2))) - (let lp ((rest methods) (off (fx+ count 1))) - (match rest - ([method . rest] - (##unchecked-structure-set! prototype method off klass #f) - (lp rest (fx- off 1))) - (else - (let (prototype-key (cons (##type-id klass) (##type-id obj-klass))) - (mutex-lock-inline! +interface-prototypes-mx+) - (##table-set! +interface-prototypes+ prototype-key prototype) - (mutex-unlock-inline! +interface-prototypes-mx+) - (continue prototype)))))))))) - -(def (create-prototype descriptor klass obj-klass) - (do-create-prototype - descriptor klass obj-klass - (lambda (prototype) prototype) - (lambda (klass method-name) - (raise-cast-error create-prototype "Cannot create interface instance; missing method" klass method-name)))) - -(def (try-create-prototype descriptor klass obj-klass) - (do-create-prototype - descriptor klass obj-klass - (lambda (prototype) #t) - (lambda (klass method-name) #f))) - -;; cast an object to an interface instance -(def (cast descriptor obj) - (if (object? obj) - (let () - (declare (not interrupts-enabled)) - (let* ((klass (&interface-descriptor-type descriptor)) - (klass-id (##type-id klass)) - (obj-klass (##structure-type obj)) - (obj-klass-id (##type-id obj-klass))) - (cond - ((eq? klass-id obj-klass-id) - ;; already an instance of the right interface - obj) - ((interface-subclass? obj-klass) - ;; another interface instance, recast - (cast descriptor (&interface-instance-object obj))) - (else - ;; vanilla object, convert to an interface instance - (mutex-lock-inline! +interface-prototypes-mx+) - (set-car! +interface-prototypes-key+ klass-id) - (set-cdr! +interface-prototypes-key+ obj-klass-id) - (let* ((prototype - (cond - ((##table-ref +interface-prototypes+ +interface-prototypes-key+ #f) - => (lambda (prototype) - (mutex-unlock-inline! +interface-prototypes-mx+) - prototype)) - (else - (mutex-unlock-inline! +interface-prototypes-mx+) - (create-prototype descriptor klass obj-klass)))) - (instance (##structure-copy prototype))) - (##unchecked-structure-set! instance obj 1 klass #f) - instance))))) - (raise-cast-error cast "Cannot cast non-object to interface instance" obj))) - -;; check if an object satisfies an interface -(def (satisfies? descriptor obj) - (if (object? obj) - (let () - (declare (not interrupts-enabled)) - (let* ((klass (&interface-descriptor-type descriptor)) - (klass-id (##type-id klass)) - (obj-klass (##structure-type obj)) - (obj-klass-id (##type-id obj-klass))) - (cond - ((eq? klass-id obj-klass-id) - ;; already an instance of the right interface - #t) - ((interface-subclass? obj-klass) - ;; another interface instance, recast - (satisfies? descriptor (&interface-instance-object obj))) - (else - ;; vanilla object, convert to an interface instance - (mutex-lock-inline! +interface-prototypes-mx+) - (set-car! +interface-prototypes-key+ klass-id) - (set-cdr! +interface-prototypes-key+ obj-klass-id) - (cond - ((##table-ref +interface-prototypes+ +interface-prototypes-key+ #f) - => (lambda (prototype) - (mutex-unlock-inline! +interface-prototypes-mx+) - #t)) - (else - (mutex-unlock-inline! +interface-prototypes-mx+) - (try-create-prototype descriptor klass obj-klass))))))) - #f)) - -;; the all encompassing macro(s) (begin-syntax - (defstruct interface-info (name methods type descriptor - constructor predicate instance-predicate - method-impl unchecked-method-impl)) + (defclass interface-info (name + interface-methods + instance-type interface-descriptor + instance-constructor instance-try-constructor + instance-predicate instance-satisfies-predicate + implementation-methods + unchecked-implementation-methods)) (defmethod {apply-macro-expander interface-info} - (with-syntax ((cast (quote-syntax cast))) + (with-syntax ((cast (quote-syntax cast)) + (immediate-instance-of? (quote-syntax immediate-instance-of?))) (lambda (self stx) (syntax-case stx () ((_ obj) - (with-syntax ((descriptor (interface-info-descriptor self))) - #'(cast descriptor obj)))))))) + (with-syntax ((klass (interface-info-instance-type self)) + (descriptor (interface-info-interface-descriptor self))) + #'(let ($obj obj) + (if (immediate-instance-of? klass $obj) + $obj + (cast descriptor $obj))))) + (_ (identifier? stx) + (with-syntax ((descriptor (interface-info-interface-descriptor self))) + #'descriptor))))))) (defsyntax (interface stx) (def symbollist/sort (invert-hash h) <) => '((1 . "a") (2 . "b") (3 . "c"))) - (check (invert-hash (hash (4 "d") (33 "c")) to: h) => h) + (check (invert-hash (hash (4 "d") (33 "c")) to: h) => h :: equal-hash?) (check (hash->list/sort h string '(("a" . 1) ("b" . 2) ("c" . 33) ("d" . 4)))) (test-case "invert-hash/fold" @@ -51,50 +50,52 @@ => '(("e" . 1) ("h" . 0) ("l" . 5) ("o" . 4)))) (test-case "hash-restrict-keys" (def h (hash ("a" 1) ("b" 2) ("c" 3) ("d" 4) ("e" 5))) - (check (hash-restrict-keys h '()) => (hash)) - (check (hash-restrict-keys h '("a" "c" "e")) => (hash ("a" 1) ("c" 3) ("e" 5))) - (check (hash-restrict-keys h '("a" "b" "c" "d" "e")) => h)) + (check (hash-restrict-keys h '()) => (hash) :: equal-hash?) + (check (hash-restrict-keys h '("a" "c" "e")) => (hash ("a" 1) ("c" 3) ("e" 5)) :: equal-hash?) + (check (hash-restrict-keys h '("a" "b" "c" "d" "e")) => h :: equal-hash?)) (test-case "hash-value-map" (def h (hash ("a" 1) ("b" 2) ("c" 3) ("d" 4) ("e" 5))) (check (hash-value-map h (lambda (x) (* x 2))) - => (hash ("a" 2) ("b" 4) ("c" 6) ("d" 8) ("e" 10)))) + => (hash ("a" 2) ("b" 4) ("c" 6) ("d" 8) ("e" 10)) :: equal-hash?)) (test-case "hash-key-value-map" (def h (hash ("a" 1) ("b" 2) ("c" 3) ("d" 4) ("e" 5) ("f" 6))) (check (hash-key-value-map (lambda (k v) (and (even? v) (cons (/ v 2) (string-append k k)))) h) - => (hash (1 "bb") (2 "dd") (3 "ff")))) + => (hash (1 "bb") (2 "dd") (3 "ff")) :: equal-hash?)) (test-case "hash-filter" (def h (hash ("a" 1) ("b" 2) ("c" 3) ("d" 4) ("e" 5))) (check (hash-filter h (lambda (k v) (odd? v))) - => (hash ("a" 1) ("c" 3) ("e" 5)))) + => (hash ("a" 1) ("c" 3) ("e" 5)) :: equal-hash?)) (test-case "hash-remove" (def h (hash ("a" 1) ("b" 2) ("c" 3) ("d" 4) ("e" 5))) (check (hash-remove h (lambda (k v) (odd? v))) - => (hash ("b" 2) ("d" 4)))) + => (hash ("b" 2) ("d" 4)) :: equal-hash?)) (test-case "hash-remove-value" (def h (hash ("a" 1) ("b" 2) ("c" 3) ("d" 4) ("e" 5))) (check (hash-remove-value h 3) - => (hash ("a" 1) ("b" 2) ("d" 4) ("e" 5)))) + => (hash ("a" 1) ("b" 2) ("d" 4) ("e" 5)) :: equal-hash?)) (test-case "hash-ensure-removed!" (def h (hash ("a" 1) ("b" 2) ("c" 3) ("d" 4) ("e" 5))) (check (values->list (hash-ensure-removed! h "d")) => '(4 #t)) (check (values->list (hash-ensure-removed! h "e")) => '(5 #t)) (check (values->list (hash-ensure-removed! h "e")) => '(#f #f)) (check (values->list (hash-ensure-removed! h "f")) => '(#f #f)) - (check h => (hash ("a" 1) ("b" 2) ("c" 3)))) + (check h => (hash ("a" 1) ("b" 2) ("c" 3)) :: equal-hash?)) (test-case "hash-merge/override" (check (hash-merge/override (hash (1 11) (2 12) (3 13) (4 14) (5 15) (6 16) (7 17)) (hash (0 20) (2 22) (4 24) (6 26) (8 28)) (hash (3 33) (6 36) (9 39))) - => (hash (0 20) (1 11) (2 22) (3 33) (4 24) (5 15) (6 36) (7 17) (8 28) (9 39)))) + => (hash (0 20) (1 11) (2 22) (3 33) (4 24) (5 15) (6 36) (7 17) (8 28) (9 39)) + :: equal-hash?)) (test-case "hash-merge/override!" (def h (hash (1 11) (2 12) (3 13) (4 14) (5 15) (6 16) (7 17))) (check (hash-merge/override! h (hash (0 20) (2 22) (4 24) (6 26) (8 28)) (hash (3 33) (6 36) (9 39))) - => h) - (check h => (hash (0 20) (1 11) (2 22) (3 33) (4 24) (5 15) (6 36) (7 17) (8 28) (9 39)))) + => h :: equal-hash?) + (check h => (hash (0 20) (1 11) (2 22) (3 33) (4 24) (5 15) (6 36) (7 17) (8 28) (9 39)) + :: equal-hash?)) (test-case "hash-get-set!, hash-ref-set!" (def h (hash (1 11) (2 12) (3 13))) (check (hash-get h 2) => 12) diff --git a/src/std/misc/hash.ss b/src/std/misc/hash.ss index 8f24b9ea2..83d0e0a81 100644 --- a/src/std/misc/hash.ss +++ b/src/std/misc/hash.ss @@ -3,6 +3,7 @@ ;;; Hash-table utilities (export + equal-hash? hash-empty? hash-ref/default hash-ensure-ref @@ -29,19 +30,28 @@ :std/iter :std/sort) +(def (equal-hash? a b) + (and (hash-table? a) + (hash-table? b) + (= (hash-length a) (hash-length b)) + (andmap (lambda (kv) + (with ([k . v] kv) + (and (hash-key? b k) + (if (hash-table? v) + (equal-hash? (hash-ref b k) v) + (equal? (hash-ref b (car kv)) v))))) + (hash->list a)))) + (def (hash-empty? h) (zero? (hash-length h))) -;; *private* object (a vector) to mark absence of parameter given. NOT EXPORTED. -(def %none '#(none)) - ;; type (Table V K) ;; hash-tables mapping key K to values V (note that V comes before K) ;; Lookup a table. If the key is missing, compute and return a default value. ;; : V <- (Table V K) K (V <-) (def (hash-ref/default table key default) - (let ((val (hash-ref table key %none))) - (if (eq? val %none) + (let (val (hash-ref table key absent-value)) + (if (eq? val absent-value) (default) val))) @@ -156,8 +166,8 @@ ;; the value that was removed, if any, or #f if none was found, ;; and a boolean that tells if there was a value. (def (hash-ensure-removed! table key) - (let ((val (hash-ref table key %none))) - (if (eq? val %none) + (let ((val (hash-ref table key absent-value))) + (if (eq? val absent-value) (values #f #f) (begin (hash-remove! table key) @@ -179,8 +189,10 @@ ;; This is unlike hash-merge ;; : Table <- Table (Optional-Keyword Bool) Table ... (def (hash-merge/override base-table . rest) - (foldl (lambda (tab r) (table-merge r tab #t)) - base-table rest)) + (foldl (lambda (tab r) + (hash-for-each (cut hash-put! r <> <>) tab) + r) + (hash-copy base-table) rest)) ;; Merge hash tables together and update the base table's bindings. If same key exists in both base ;; table and rest of other tables then the key/value binding of the other tables takes precedence. @@ -188,13 +200,15 @@ ;; in multiple other tables then the rightmost table's binding takes precedence. ;; : Table <- Table (Optional-Keyword Bool) Table ... (def (hash-merge/override! base-table . rest) - (foldl (lambda (tab r) (table-merge! r tab #t)) + (foldl (lambda (tab r) + (hash-for-each (cut hash-put! r <> <>) tab) + r) base-table rest)) ;; Extract from a hash-table an alist of its key-value pairs, with keys sorted the predicate. ;; : (List (Pair K V)) <- (Table V K) (Bool <- K K) (def (hash->list/sort hash pred) - (sort (table->list hash) (lambda (x y) (pred (car x) (car y))))) + (sort (hash->list hash) (lambda (x y) (pred (car x) (car y))))) (def hash-get-set! hash-put!) ;; allow hash-get to be used as a place (def hash-ref-set! ;; allow hash-ref to be used as a place, accepting (ignored) optional default argument diff --git a/src/std/misc/repr-test.ss b/src/std/misc/repr-test.ss index a29a41ce4..29b70b883 100644 --- a/src/std/misc/repr-test.ss +++ b/src/std/misc/repr-test.ss @@ -36,8 +36,8 @@ "[1 2 [3 . 4] [5 #u8(114 101 112 114) ...]]" "(vector #f #!void #!eof)" ;;"(hash (a 1) (b 2) (,(vector 'x 'y) 'xyzzy))" - "(hash-eq (a 1) (b 2))" - "(hash-eqv (1 'a) (2 'b))" + ;;"(hash-eq (a 1) (b 2))" + ;;"(hash-eqv (1 'a) (2 'b))" "(foo a: 1 b: 2)" "(values 1 2 3)" "(values)") diff --git a/src/std/misc/repr.ss b/src/std/misc/repr.ss index 9f02d83cd..527b14938 100644 --- a/src/std/misc/repr.ss +++ b/src/std/misc/repr.ss @@ -116,7 +116,8 @@ (display-separated (u8vector->list x) port prefix: "#u8(" suffix: ")")) - ((hash-table? x) ;; hash-table: print as (hash ...) + ;; FIXME + #;((hash-table? x) ;; hash-table: print as (hash ...) (let* ((prefix (let (testf (##vector-ref x 2)) (cond diff --git a/src/std/misc/string-test.ss b/src/std/misc/string-test.ss index 92e551b94..f68100058 100644 --- a/src/std/misc/string-test.ss +++ b/src/std/misc/string-test.ss @@ -81,7 +81,7 @@ (check (str 1.2E+2) => "120.0") (check (str 'abc) => "abc") (check (str '(1 2)) => "[1 2]") - (check (str (hash (a 10))) => "(hash (a 10))") + #;(check (str (hash (a 10))) => "(hash (a 10))") (check (str #(1 2)) => "(vector 1 2)") (check (str (values 1 2)) => "(values 1 2)") (check (str (make-point 1 2)) => "(point 1 2)")) diff --git a/src/std/protobuf/protobuf-test.ss b/src/std/protobuf/protobuf-test.ss index e0639d877..00c3e07e4 100644 --- a/src/std/protobuf/protobuf-test.ss +++ b/src/std/protobuf/protobuf-test.ss @@ -5,14 +5,20 @@ (import :std/test :std/sugar :std/protobuf/io - :std/protobuf/macros) + :std/protobuf/macros + :std/misc/hash) (export protobuf-test) (extern (this-source-file this-source-file)) -(def (check-marshal-unmarshal obj bio-read-e bio-write-e) +(def (with-equal-hash? a b) + (if (hash-table? a) + (equal-hash? a b) + (equal? a b))) + +(def (check-marshal-unmarshal obj bio-read-e bio-write-e (eqf equal?)) (check (unmarshal (marshal obj bio-write-e) bio-read-e) - => obj)) + => obj :: eqf)) (def protobuf-test (test-suite "test :std/protobuf" @@ -120,7 +126,11 @@ map: (c 1 string A)) (check-marshal-unmarshal (B c: (hash ("a" (A a: "a" b: 1)) ("b" (A a: "b" b: 2)))) - BufferedReader-read-B BufferedWriter-write-B)) + BufferedReader-read-B BufferedWriter-write-B + (lambda (x y) + (andmap with-equal-hash? + (struct->list x) + (struct->list y))))) (test-case "test parser" (check (gx#import-module (path-expand "potpourri-test.proto" diff --git a/src/std/text/json/json-test.ss b/src/std/text/json/json-test.ss index 5b020cade..92a5ce2e5 100644 --- a/src/std/text/json/json-test.ss +++ b/src/std/text/json/json-test.ss @@ -4,6 +4,7 @@ (import :std/io :std/misc/walist + :std/misc/hash :std/parser/base :std/sugar :std/test @@ -18,12 +19,13 @@ (write-json (hash (a a) (b b)) output)))) (def (check-encode-decode obj str) - (parameterize ((json-sort-keys #f)) - (check (string->json-object (json-object->string obj)) => obj)) + (let (eqf (if (hash-table? obj) equal-hash? equal?)) + (parameterize ((json-sort-keys #f)) + (check (string->json-object (json-object->string obj)) => obj :: eqf)) - (parameterize ((json-sort-keys #t)) - (check (json-object->string obj) => str) - (check (string->json-object str) => obj))) + (parameterize ((json-sort-keys #t)) + (check (json-object->string obj) => str) + (check (string->json-object str) => obj :: eqf)))) (def (check-encode-decode= obj) (checkf = (string->json-object (json-object->string obj)) obj)) @@ -66,13 +68,13 @@ "{\"a\":1,\"b\":2,\"c\":{\"d\":3,\"e\":4,\"f\":5}}") (check (call-with-output-string "" (cut write-json obj <>)) => str) - (check (call-with-input-string str read-json) => obj) + (check (call-with-input-string str read-json) => obj :: equal-hash?) (check (do-with-buffered-string-writer (cut write-json obj <>)) => str) - (check (do-with-buffered-string-reader str read-json) => obj) + (check (do-with-buffered-string-reader str read-json) => obj :: equal-hash?) (check (do-with-buffered-writer (cut write-json obj <>)) => str) - (check (do-with-buffered-reader str read-json) => obj)))) + (check (do-with-buffered-reader str read-json) => obj :: equal-hash?)))) (def (do-with-buffered-writer proc) (let (buf (open-buffered-writer #f)) diff --git a/src/std/text/json/util.ss b/src/std/text/json/util.ss index d0b31b85e..c6416fcad 100644 --- a/src/std/text/json/util.ss +++ b/src/std/text/json/util.ss @@ -3,7 +3,9 @@ ;;; json utilities (import :gerbil/gambit + :gerbil/runtime/hash :std/error + :std/interface :std/io :std/misc/ports :std/misc/process @@ -96,7 +98,7 @@ (def (trivial-json-object->struct strukt json (defaults #f)) (unless defaults (set! defaults (hash))) - (def offsets (class-type-slot-table strukt)) + (def offsets (cast HashTable::interface (class-type-slot-table strukt))) (def slots (class-type-slot-vector strukt)) (def n (vector-length slots)) (def (get-pos key)